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

>