New in Wolfram
Mathematica
8: New and Improved Core Algorithms
◄
previous
|
next
►
Core Algorithms
Solve Transcendental Equations Numerically
This finds approximate solutions of a transcendental equation in a bounded region.
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]=