高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新

---

110: 2024/08/21(水)10:42 ID:trPnwZW4(2/6) AA×
>>107


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
110: [sage] 2024/08/21(水) 10:42:51.81 ID:trPnwZW4 >>107 レスありがとうございます。 コードを解読しました。 (* a 人でジャンケンして参加者が b 人になる確率,a==b ならアイコ *) p[a_,b_]:=p[a,b]=If[a==b,1-(2^a-2)/3^(a-1),Binomial[a,b]/3^(a-1)] m=11; (* 参加者数の変遷を列挙 *) f=Flatten[Table[{m,m-x1,m-x2,m-x3,m-x4,m-x5,m-x6,m-x7,m-x8,m-x9,1}, {x1,0,m-1},{x2,x1,m-1},{x3,x2,m-1},{x4,x3,m-1},{x5,x4,m-1}, {x6,x5,m-1},{x7,x6,m-1},{x8,x7,m-1},{x9,x8,m-1}],8]; (* 変遷確率積の総和*) Total[Product[p[#[[k]],#[[k+1]]],{k,1,10}] & /@f] % // N 正しいように思いますので自分のコードのデバッグ作業に移ります。 http://rio2016.5ch.net/test/read.cgi/math/1723152147/110
レスありがとうございます コードを解読しました 人でジャンケンして参加者が 人になる確率 ならアイコ 参加者数の変遷を列挙 変遷確率積の総和 正しいように思いますので自分のコードのデバッグ作業に移ります

---

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

---

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

---

ぬこの手 ぬこTOP 0.025s