> restart:
> m:=[[2*cos(t)-cos(2*t),2*sin(t)-sin(2*t)],[2*cos(t)+cos(2*t),2*sin(t)+sin(2*t)]]:
> t:=k*Pi/100:
> plot([m$k=0..200],scaling=constrained,axes=none,color=red);