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}]]