function y = lin_transform(A,x)
%
% y = lin_transform(A,x)
% Mostra il vettore x ed il vettore trasformato da A y=Ax
% Funziona solo in R^2
%
sizeA=size(A);
sizex=size(x);
if sizex(1)~=2 | sizex(2)~=1 | sizeA(1)~=2 | sizeA(2)~=2
disp('Errore questa function funziona solo nel piano')
disp('A deve essere una matrice 2x2')
disp('x deve essere un vettore colonna di 2 componenti')
return
end

y = A*x;

maxX = max(abs(x(1)),abs(y(1)));
maxY = max(abs(x(2)),abs(y(2)));
maxXY = max(maxX,maxY);

figure
subplot(1,2,1)
plot([0 x(1)], [0 x(2)], 'g-o')
axis([-maxXY maxXY -maxXY maxXY])
title('vettore x')
axis('square')
grid on

subplot(1,2,2)
plot([0 y(1)], [0 y(2)], 'r-x')
axis([-maxXY maxXY -maxXY maxXY])
title('vettore y=Ax')
axis('square')
grid on