%ESTE PROGRAMA FAZ TUDO
clf
tri=[0 1 0 0;0 0 2 0];
line(tri(1,:),tri(2,:))
hold on
axis([-3 3 -3 3])

t=15*pi/180;
R1=[cos(t) -sin(t); sin(t) cos(t)]; %matriz de rotaç~ao

%AS ROTAÇ~OES
for i=1:3
tri=R1*tri
line(tri(1,:),tri(2,:))
end

tri=[tri;ones(1,4)];
M=[1 0 .2;0 1 0; 0 0 1];   %matriz de traslaç~ao

%AS TRASLAÇ~OES
for i=1:4
tri=M*tri
line(tri(1,:),tri(2,:))
end
 %INVERTENDO AS ROTAÇOES NA ULTIMA TRANSF.

 R2=inv(R1)
tri=R2*[tri(1,1:4);tri(2,1:4)]
line(tri(1,:),tri(2,:))

% 
% for i=1:2
% tri=R1*tri
% line(tri(1,:),tri(2,:))
% end
% tri=M*[tri;ones(1,4)]
% line(tri(1,:),tri(2,:))