高校数学の質問スレ Part439

[過去ﾛｸﾞ] 高校数学の質問スレ Part439 (1002ﾚｽ)
上下前次 1-新

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

347: 2024/12/29(日)20:17 ID:sW/d1eRn(13/14) AA×
>>282

347:  [sage] 2024/12/29(日) 20:17:15.48 ID:sW/d1eRn

>>282
>プログラム作って計算して、どうぞ
のご希望に沿って　Wolframで書いてみた。
理工系卒ならWolframが使えるのが普通じゃないかな？医系ならR言語。最近は文系でもRやStanを使う人が増えた。

sim[] := Module[(* 1:横綱 2:大関 3:関脇*)
{h12,h23,h13,bout,lastWinner,flg,count},
h12={10,9}; (*　通算成績　1 vs 2 *)
h23={8,7};　(*　通算成績　2 vs 3 *)
h13={6,5};　(*　通算成績　1 vs 3 *)
bout=RandomSample[Range[3],1][[1]];(* 初戦の試合番号=抜け番 *)
lastWinner=0;(*前勝者*)
flg=False;(*連勝フラッグ*)
count=0;(*試合数*)
While[!flg,
count++;
If[bout==1,(* 2 vs 3 *)
i=2-RandomVariate[BinomialDistribution[1,h23[[1]]/Total@h23],1][[1]];(*勝者のindex*)
h23[[i]]=h23[[i]]++;(*通算成績更新*)
winner={2,3}[[i]];(*勝者番号*)
bout={3,2}[[i]](*次の試合番号*)
];
If[bout==2,(* 1 vs 3 *)
i=2-RandomVariate[BinomialDistribution[1,h13[[1]]/Total@h13],1][[1]];
h13[[i]]=h13[[i]]++;
winner={1,3}[[i]];
bout={3,1}[[i]]
];
If[bout==3,(* 1 vs 2 *)
i=2-RandomVariate[BinomialDistribution[1,h12[[1]]/Total@h12],1][[1]];
h12[[i]]=h12[[i]]++;
winner={1,2}[[i]];
bout={2,1}[[i]]
];
flg = winner==lastWinner;(*連勝フラッグ更新*)
lastWinner=winner(*前勝者更新*)
];
{winner,count}(*優勝者,試合数*)
]

http://rio2016.5ch.net/test/read.cgi/math/1733739984/347

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

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

ぬこの手ぬこTOP 0.303s*