> restart;

> x:=cos(t);

> y:=sin(t);

> m:=[[x,y],[x-t*y,y+t*x]];

> t:=2*k*Pi/100;

> plot([m$k=1..100],color=green,scaling=constrained,axes=none);

>