|
|
Mathematica里好像没有直接画复变函数图形的命令，但可以借助Matlab里画复变函数的方法（三维图形里，z轴表示实部，虚部用颜色表示）：
(* Rieman surface of Sqrt[z] *)
RevolutionPlot3D[ { Re[Sqrt[r] Exp[I*phi/2]] }, {r, 0, 2}, {phi, -2 \[Pi], 2 \[Pi]}]
RevolutionPlot3D[ { Im[Sqrt[r] Exp[I*phi/2]] }, {r, 0,
2}, {phi, -2 \[Pi], 6 \[Pi]}] |
|
回复此楼
