WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

コンパイルされた乱数生成器を作成する

Wolfram Language code: n = 1000000; incircle = Compile[{}, With[{pt = {RandomReal[], RandomReal[]}}, If[Norm[pt] < 1, 1, 0]]];
Wolfram Language code: 4.0 * Total[Table[incircle[], {n}]] / n
Wolfram Language code: n = 5000; randpt = Compile[{}, With[{pt = {RandomReal[], RandomReal[]}}, pt]];
Wolfram Language code: Graphics[{If[Norm[#] < 1, Red, Blue], Point[#]}& /@ Table[randpt[], {n}]]