如何在数学中绘制复数

Question

我有一个非常简单的方程，我想在没有 Wolfram Alpha 的情况下在 Mathematica 中绘制，我遇到了一些麻烦。这是方程 [ z^7 = 1 - i ]，我使用了 eq3 = Solve[{z^7 == 1 - i}， {z}] 并找到了答案，但我现在想绘制它们，但绘图函数没有绘制它。我尝试了CounterPplot和DensityPplot，但这两个函数都没有绘制它。请帮忙！

Answer 1

我尝试像这样解决它eq3 = 求解[z^7 == 1 - I， z];图形[点[ReIm[z/. eq3]]]和ListPlot[ReIm[z/. eq3]]

Answer 2

这是一个解决方案：

eq := z^7 == 1 - I
eq3 = Solve[eq, {z}] // Flatten // Values;
ListPlot[{Re[eq3], Im[eq3]}, PlotMarkers -> Automatic, Joined -> True, PlotLabels -> {"Real part", "Imaginary part"}, AxesLabel -> {"Root number"}, GridLines -> Automatic]