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

---

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

---

44: 2024/08/15(木)10:18 ID:5ggTekS4(1/2)調 AAS
bWin <- function(x){# 1 beats 3, 3 beats 2, 2 beats 1
if(length(unique(x))!=2 ) return(0) # no winner
u=sort(unique(x))
if(all(u==c(1,2))) return(sum(x==2)) # how many winners who won by 2
if(all(u==c(2,3))) return(sum(x==3)) # how many winners who won by 3
if(all(u==c(1,3))) return(sum(x==1)) # how many winners who won by 1
}

janken.till.winner.sim <- function(n){ # janken till someone wins
if(n<2) return(NA)
x=sample(1:3,n,replace = TRUE) # janken by n people
count=1 # counter of janken game
while(bWin(x)==0){ # if draw try again
x=sample(1:3,n,replace = TRUE) # janken again till someone win
count=count+1
}
c(bWin(x),count) # return how many winners and counter
}

janken.till.chamipion.sim <- \(n){
re=janken.till.winner.sim(n)
count=re[2]
winner=re[1]
while(winner>1){
re=janken.till.winner.sim(n)
count=count+re[2]
winner=re[1]
}
count
}
res=replicate(1e5,janken.till.chamipion.sim(9))
summary(res)
hist(res,col=2,breaks='scott',freq=FALSE,xlab='count',main='')
BEST::plotPost(res,showMode = TRUE,breaks='scott')

---

45(1): 2024/08/15(木)10:18 ID:5ggTekS4(2/2)調 AAS
９人で野球チームをつくる。
全員がピッチャーをやりたがったためジャンケンで決めることにする。
全員でのジャンケンから始めてその勝者でジャンケンを続けることを繰り返す。
ピッチャーが決まるまでのジャンケンの回数の期待値と中央値を求めよ。

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.035s