Fundamental Mathematics from an Advanced Standpoint

Math 4303

Helmut Knaust, Department of Mathematical Sciences, UTEP, El Paso TX 79968
hknaust@utep.edu

Last Edits: 3/3/2015

Orbits

We graph (z^n) for a complex number z.

Orbit[z_,n_:9]:=Show[Graphics[Table[{GrayLevel[Min[0.75,k/n]],AbsolutePointSize[5],Point[{Re[z^k],Im[z^k]}]},{k,0,n,1}]],PlotRange->All,Axes->True,PlotRange->All,AxesOrigin->{0,0}]
Orbit[Exp[-.01+.3I],28]