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

---

474: 2024/12/28(土)12:43 ID:ABHDoLY/(3/3) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
474: [sage] 2024/12/28(土) 12:43:10.85 ID:ABHDoLY/ sim=function(){ h12=c(10,9) # bout3　横綱1vs大関2 h23=c(8,7) # bout1　大関2vs関脇3 h13=c(6,5) # bout2　横綱1vs関脇3 bout=1 # 初戦の試合番号 last_winner=0　# 前勝者 flg= FALSE # 連勝フラッグ count=0 # 試合数 while(!flg){ count=count+1 if(bout==1){ i=2-rbinom(1,1,h23[1]/sum(h23)) # 勝者のindex h23[i]=h23[i]+1 # 通算成績更新 winner=c(2,3)[i] # 勝者番号 bout=c(2,3)[-i] # 敗者番号=次の試合番号 } if(bout==2){ i=2-rbinom(1,1,h13[1]/sum(h13)) h13[i]=h13[i]+1 winner=c(1,3)[i] bout=c(1,3)[-i] } if(bout==3){ i=2-rbinom(1,1,h12[1]/sum(h12)) h12[i]=h12[i]+1 winner=c(1,2)[i] bout=c(1,2)[-i] } flg <- winner==last_winner last_winner=winner } c(winner=winner,count=count) } t(replicate(100,sim())) http://rio2016.5ch.net/test/read.cgi/math/1723152147/474
横綱大関 大関関脇 横綱関脇 初戦の試合番号 前勝者 連勝フラッグ 試合数 勝者の 通算成績更新 勝者番号 敗者番号次の試合番号

---

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

---

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

---

ぬこの手 ぬこTOP 0.024s