[next] [prev] [prev-tail] [tail] [up]

6.12 Drawing roots of complex equation?

rootsPlot[poly_, z_] := ListPlot[{Re[z], Im[z]} 
  /. NSolve[poly == 0, z], 
  PlotStyle -> Directive[PointSize[0.015]]]; 
 
rootsPlot[z^7 - 1, z]

[next] [prev] [prev-tail] [front] [up]