> restart:

> x:=cos(t):

> y:=sin(t):

> m:=[[x,y],[x-y,y+x]]:

> t:=n*Pi/50:

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

>