5 lines
227 B
Text
5 lines
227 B
Text
|
MonkeyDartsPi[numberOfThrows_] := (
|
||
|
|
xyCoordinates = RandomReal[{0, 1}, {numberOfThrows, 2}];
|
||
|
|
InsideCircle = Length[Select[Total[xyCoordinates^2, {2}],#<=1&]] ;
|
||
|
|
4*N[InsideCircle / Length[xyCoordinates],1+Log10[numberOfThrows]])
|