CE=z^2+z==(zr+zi*I)^3-(zr+zi*I)^2-2*(zr+zi*I)+3;
CES=Values[Flatten[Table[Solve[CE,z],
{zr,Range[-2,2,.25]},{zi,Range[-2,2,.01]}]]];
ListPlot[Table[{Re[CES[[i]]],Im[CES[[i]]]},
{i,Length[CES]}],Axes->False,AspectRatio->1,
ColorFunction->Function[{x,y},
Darker[Hue[y^2+y]]],ImageSize->500]
No comments:
Post a Comment