Wolfram
Mathematica
8의 신기능: 빠른 컴파일 함수 기능
◄
이전
|
다음
►
소프트웨어 개발
난수 생성
Mathematica
의
Compile
은 난수 생성을 지원합니다.
In[1]:=
X
n = 1000000; incircle = Compile[{}, With[{pt = {RandomReal[], RandomReal[]}}, If[Norm[pt] < 1, 1, 0]]];
In[2]:=
X
4.0*Total[Table[incircle[], {n}]]/n
Out[2]=
In[3]:=
X
n = 5000; randpt = Compile[{}, With[{pt = {RandomReal[], RandomReal[]}}, pt]];
In[4]:=
X
Graphics[{If[Norm[#] < 1, Red, Blue], Point[#]} & /@ Table[randpt[], {n}]]
Out[4]=
