ang = 0:h:2*pi; % dividim tot el cercle en angles
v = [cos(ang); sin(ang)]; %tots els vectors inicials de norma 1
vt = A*v; %tots els vectors transformats per A
% pintem cada vector i el seu transformat
for k = 1:2 %fem dues voltes
plot(v(1,:), v(2,:),'b'); % el cercle
plot(vt(1,:), vt(2,:),'g'); % l'el·lipse
plot([0,v(1,i)],[0,v(2,i)],'b');
plot([0,vt(1,i)],[0,vt(2,i)],'g');
vv = 0.95*[v(1,i),v(2,i)];
vvt = 0.95*[vt(1,i),vt(2,i)];
vectarrow (vv,vv,0.04,'b',2)
vectarrow (vvt,vvt,0.04,'g',2)