Comment detail

π (Nested Flatten)

Rにはpiという組み込み変数がありますが、計算であればRらしくモンテカルロで。

1
2
3
pi.montecarlo <- function(n){
  mean(replicate(n, sum(runif(2)^2) < 1)) * 4
}

Index

Feed

Other

Link

Pathtraq

loading...