高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)

高校数学の質問スレ（医者・東大卒専用） Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

152: １３２人目の素数さん [sage] 2024/08/25(日) 12:59:59.55 ID:/qrXHaIo >>140 行列で計算させると算出時間が爆速なのにびっくりしました。 達人のスクリプトを改造して道具箱に保存しておきます。 (* j 人でジャンケンをしたときの終了までの回数の最頻値とその確率を返す *) calc[j_]:=( M=Table[If[n==m,1-(2^m-2)/3^(m-1),Binomial[m,n]/3^(m-1)],{m,1,j},{n,1,j}]; p=Differences@Table[MatrixPower[M,i][[j,1]],{i,0,10j}]; max=Max@p; Flatten@{Position[p,max],max,N[max]} ) In[3]:= calc[15] Out[3]= {30, 65101358743766874914341259145354001254712997240185483777481087387163094008455949207206\ > 93198405902336999941273392239247993407703628004425130823658476122231689832344483758966236574\ > 375695 / 11947838420050013668726696739307151046843799152024135169583095938840977078626722578\ > 97327618239887790786549346048626664496721871548575328400043101228717425477619608889629973635\ > 327326175449, 0.0054488} calc[15] http://rio2016.5ch.net/test/read.cgi/math/1723152147/152

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

あと 839 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.020s