Monte Carlo methods: Difference between revisions
Content added Content deleted
Line 392:
</pre>
<lang lisp>(
▲ (if (<= (+ (Math/pow (rand) 2) (Math/pow (rand) 2)) 1) (inc within) within)
(
[n]
(* 4 (float (/ (reduce + (take n (repeatedly experiment))) n))))
(pi-estimate 10000)
</lang>
{{out}}
<pre>
3.
</pre>
|