20/01/26 05:07:50 VXCChmo7.net
>>939
シミュレーションだと収束しそうにない。
> sim2 <- function(n){
+ pn=mean(replicate(1e3,sim(n)))
+ sqrt(n)*pn
+ }
>
> sim2(5)
[1] 0.9995224
> sim2(10)
[1] 1.862582
> sim2(50)
[1] 5.572001
> sim2(100)
[1] 8.62
> sim2(500)
[1] 21.08612
> sim2(1000)
[1] 30.32624
>