Mathematica Cool Graph

line = {Re[#], Im[#]} & /@ NestList[#^2 + 0.34 - 0.344I&, 0., 300] ;
Show[Graphics[Line[line]]] ;

Show[%, PlotRange→All] ;

 

 

 

 

 

Created by Mathematica  (October 24, 2005) Valid XHTML 1.1!