Reputation: 187
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!
Upvotes: 1
Views: 2527
Reputation: 111
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]
Upvotes: 1
Reputation: 187
I tried solving it like this eq3 = Solve[z^7 == 1 - I, z]; Graphics[Point[ReIm[z /. eq3]]] and ListPlot[ReIm[z /. eq3]]
Upvotes: 1