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