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

---

51: 2024/08/15(木)19:23 ID:ysyyeRB1(1/2) AA×
>>1


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
51: [sage] 2024/08/15(木) 19:23:19.21 ID:ysyyeRB1 j[n_] :=( (* n人でジャンケンして勝者が決まるまでの回数と勝者の数*) count=0; Until[Length@Union@a==2,a=RandomChoice[Range[3],n];count++]; b=Sort@Union@a; If[b=={1,2}, winners=Count[a,2]]; If[b=={2,3}, winners=Count[a,3]]; If[b=={1,3}, winners=Count[a,1]] ; {winners,count} ) sim[n_] :=((* 勝者が一人になるまでの回数　*) For[{winner,counts}=j[n],winner>1,k=j[winner];winner=k[[1]];counts=counts+k[[2]]]; counts ) res9=Table[sim[9],10^5]; Histogram[res9] Mean[res9]//N Median[res9] http://rio2016.5ch.net/test/read.cgi/math/1723152147/51
人でジャンケンして勝者が決まるまでの回数と勝者の数 勝者が一人になるまでの回数

---

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

---

あと 701 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.016s