Esempio

> Sh:=(v,r)->matrix(3,3,[[1-r*v[1]*v[2],-r*v[2]^2,0],[r*v[1]^2,1+r*v[1]*v[2],0],[0,0,1]]):

> t0:=[[0,0],[3,0],[0,3],[0,0]]:disegno(t0);

> t1:=trasforma(t0,Sh([1,0],1/2));

> disegno(t1);

>