Wolfram
Mathematica
8의 신기능: 새롭게 향상된 핵심 알고리즘
◄
이전
|
다음
►
핵심 알고리즘
초월 방정식의 수치적 풀이
주어진 범위에서 초월 방정식의 근사 해를 구합니다.
In[1]:=
X
f = Gamma[z] - Log[z] - I/2; sol = NSolve[f == 0 && Abs[z - 10] < 10, z]; ContourPlot[{Re[f /. z -> x + I y] == 0, Im[f /. z -> x + I y] == 0}, {x, 0, 20}, {y, -10, 10}, RegionFunction -> (Abs[#1 + I #2 - 10] < 10 &), Epilog -> {Red, PointSize[0.025], Point[{Re[z], Im[z]}] /. sol}]
Out[1]=
