我有一个非常简单的等式，我想在没有Wolfram Alpha的Mathematica中绘图，我遇到了一些麻烦。这是方程式[z ^ 7 = 1 - i]并且我使用了eq3 =求解[{z ^ 7 == 1 - i}，{z}]并找到答案，但我想现在绘制它们但是绘图函数没有绘制它。我尝试了CounterPlot和DensityPlot，这些函数都没有绘制它。请帮忙！
答案 0 :(得分：1)
我试着像这样解决它 eq3 =求解[z ^ 7 == 1 - I，z]; 图形[Point [ReIm [z /。 EQ3]]] 和 ListPlot [ReIm [z /。 EQ3]
答案 1 :(得分：1)
这是一个解决方案：
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]