Esempio

> with(linalg):

> figura:=matrix([[1,1],[3,1],[1.8,2],[1.5,3],[1,1]]);

figura := matrix([[1, 1], [3, 1], [1.8, 2], [1.5, 3...

> disegno:=f->plot(convert(f,listlist),view=[-6..6,-6..6],scaling=CONSTRAINED,style=LINE):

> trasforma:=(f,m)->delcols(evalm(augment(f,vector(rowdim(f),1))&*m),rowdim(m)..rowdim(m)): la funzione che esegue la trasformazione è modificata per usare le coordinate omogenee

> T:=(h,k)->matrix(3,3,[[1,0,0],[0,1,0],[h,k,1]]):

> f1:=trasforma(figura,T(2,1));

f1 := matrix([[3, 2], [5, 2], [3.8, 3.], [3.5, 4.],...

> disegni:=l->plots[display](map(disegno,l)):

> disegni({figura, f1});

[Maple Plot]

>