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

> .