22/04/22 11:26:40 +6xIP21g.net
n=18のときのシミュレーションで検算してみる
> n=18
> calc(n)
[1] 0.5042975
> sim = \(n) sample(6,1) >= mean(sample(6,n,rep=T))
> mean(replicate(1e6,sim(n)))
[1] 0.504517
まあ、近似しているかな。
22/04/22 11:26:40 +6xIP21g.net
n=18のときのシミュレーションで検算してみる
> n=18
> calc(n)
[1] 0.5042975
> sim = \(n) sample(6,1) >= mean(sample(6,n,rep=T))
> mean(replicate(1e6,sim(n)))
[1] 0.504517
まあ、近似しているかな。