4 lines
227 B
Text
4 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]])
|