> restart;

> x:=cos(t);

> y:=sin(t);

> m:=[[x,y],[2*x^2-1,2*x*y]];

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

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