Kontrakcija - dilatacija

Kontrakcija - dilatacija kruznice

al1=3;al2=.5;
a={{al1,0},{0,al2}}; Print["A=",MatrixForm[a]];ContourPlot[{x^2+y^2==1,(x/al1)^2+(y/al2)^2==1},{x,-3,3},{y,-1,1},Axes->True,Frame->False, AspectRatio->Automatic]

Kontrakcija - dilatacija pravokutnika

P={{1,1},{-1,1},{-1,-1},{1,-1},{1,1}}
P1=P.a
Show[Graphics[{Point[{0,0}],Line[P],Line[P1]}],Frame->False,Axes->True,Ticks->Automatic,AspectRatio->Automatic]

Linearni operatori u ravnini, Primjer 12, str.13

Print["A=",MatrixForm[{{2,1},{1,2}}]];
Solve[{2x1+x2==xi, x1+2x2==eta},{x1,x2}]

ContourPlot[{x^2+y^2==1,((2x-y)/3)^2+((-x+2y)/3)^2==1},{x,-3,3},{y,-3,3}, Axes->True, AspectRatio->Automatic]