function []=trasform(A,basenome)

% Mostra l'effetto dell'applicazione di una matrice alla sfera unitaria

N = 201;

theta = linspace(0, 2*pi, N);

x = cos(theta);
y = sin(theta);

figure(1)
handle = axes
set(handle,'FontSize',18)
handle = plot(x,y)
set(handle,'LineWidth',2);
grid('on')
axis('square')
%title('Sfera unitaria: s')
s = strcat(basenome,'0.eps');
print('-deps2',s)

Az = A*[x;y];
figure(2)
handle = axes
set(handle,'FontSize',18)
handle = plot(Az(1,:),Az(2,:))
set(handle,'LineWidth',2);
grid('on')
axis('square')
%title('Trasformazione 1: As')
s = strcat(basenome,'1.eps');
print('-deps2',s)

A2z = A^2*[x;y];
figure(3)
handle = axes
set(handle,'FontSize',18)
handle = plot(A2z(1,:),A2z(2,:))
set(handle,'LineWidth',2);
grid('on')
axis('square')
%title('Trasformazione 2: A^2s')
s = strcat(basenome,'2.eps');
print('-deps2',s)

A3z = A^3*[x;y];
figure(4)
handle = axes
set(handle,'FontSize',18)
handle = plot(A3z(1,:),A3z(2,:))
set(handle,'LineWidth',2);
grid('on')
axis('square')
%title('Trasformazione 3: A^3s')
s = strcat(basenome,'3.eps');
print('-deps2',s)

A4z = A^4*[x;y];
figure(5)
handle = axes
set(handle,'FontSize',18)
handle = plot(A4z(1,:),A4z(2,:))
set(handle,'LineWidth',2);
grid('on')
axis('square')
%title('Trasformazione 4: A^4s')
s = strcat(basenome,'4.eps');
print('-deps2',s)

A5z = A^5*[x;y];
figure(6)
handle = axes
set(handle,'FontSize',18)
handle = plot(A5z(1,:),A5z(2,:))
set(handle,'LineWidth',2);
grid('on')
axis('square')
%title('Trasformazione 5: A^5s')
s = strcat(basenome,'5.eps');
print('-deps2',s)