- 684 名前：卵の名無しさん mailto:sage [2018/08/23(木) 21:40:11.07 ID:MpxHuSF8.net]
- 数学板で出された問題。 ボケ予防にいいなぁ。分数の約分もできないバカはボケることもないだろね
# 壺の中にn個の白球と2n個の赤球と3n個の青球がある。このとき、以下の操作（T）を行う。
# 壺から球を１つ無作為に取り出す。
# それが白球であれば壺の中に戻す。
# それが赤球であれば壺の中に戻して、さらに壺の中に赤球を１つ入れる。
# それが青球であれば壺の中に戻さず捨てる。
# 操作（T）を、赤球の個数と青球の個数が等しくなるまで続ける。
# 等しくなったときまでに行われた操作の回数をa[n]とする。
# a[n]の期待値E(a[n])をnで表せ。
# シミュレーション解のスクリプトを書いてみた。
W=0
R=1
B=-1
f<- function(n){
U=c(rep(W,n),rep(R,2*n),rep(B,3*n))
counter=0
while(sum(U==R)!=sum(U==B)){
i=sample(1:length(U),1)
if(U[i]==R) U=append(U,R)
if(U[i]==B) U=U[-i]
counter=counter+1
}
counter
}
replicate(10,mean(replicate(1e3,f(30))))
g <- function(n) mean(replicate(10,mean(replicate(1e2,f(n)))))
for(i in 1:10*10) cat(g(i),' ')
|
 |
