高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

472: 2024/12/28(土)12:26 ID:ABHDoLY/(1/3) AAS
横綱、大関、関脇で巴戦を行う。
２力士が対戦して，勝った方が残りの 1 力士と対戦をする。
これを繰り返して，２連勝した力士が優勝をする。

勝利確率は通算成績に従うとする（巴戦での成績も組み入れて計算する）
巴戦前の通算成績は
横綱 対 大関は　横綱の１０勝９負
大関 対 関脇は　大関の　８勝７負
横綱 対 関脇は　横綱の　６勝５負
とする。

大関　対　関脇で巴戦を始めるときにそれぞれの力士の優勝する確率を算出しなさい。

---

473: 2024/12/28(土)12:27 ID:ABHDoLY/(2/3) AAS
sim=\(){
h12=c(10,9) # bout3
h23=c(8,7) # bout1
h13=c(6,5) # bout2

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))
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()))

---

474: 2024/12/28(土)12:43 ID:ABHDoLY/(3/3) AAS
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()))

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.037s