Новое в системе 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]=