如何在Mathematica中绘制复数？

Question

I have a very simple equation that I want to plot in Mathematica without Wolfram Alpha and I am having some trouble. This is the equation [ z^7 = 1 - i ] and I have used eq3 = Solve[{z^7 == 1 - i}, {z}] and found the answers but I want to plot them now but Plot function doesn't plot it. I tried CounterPlot and DensityPlot and neither of these functions is plotting it. please help!

Answer 1

I tried solving it like this eq3 = Solve[z^7 == 1 - I, z]; Graphics[Point[ReIm[z /. eq3]]] and ListPlot[ReIm[z /. eq3]]

Answer 2

Here is a solution:

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]