18/07/02 19:22:51.64 tMXA02ZR.net
>>459
これは簡単にシミュレーションできた。
totter <- function(n=1e3){
step=c(1,-1)
pos=numeric(n)
pos[1]=0
for(i in 1:n) {
pos[i+1]=pos[i]+sample(step,1,p=2:1)
}
all(pos>=0)
}
mean(replicate(1e3,totter()))
18/07/02 19:22:51.64 tMXA02ZR.net
>>459
これは簡単にシミュレーションできた。
totter <- function(n=1e3){
step=c(1,-1)
pos=numeric(n)
pos[1]=0
for(i in 1:n) {
pos[i+1]=pos[i]+sample(step,1,p=2:1)
}
all(pos>=0)
}
mean(replicate(1e3,totter()))