%DESENHA UM TRIANGULO
clf
tri=[0 1 0 0;0 0 2 0];
line(tri(1,:),tri(2,:))
hold on
axis([-2 2 -2 2])


%DESENHA UM  RETANGULO

ret=[0 1 1 0 0;-0.5 -0.5 -1.5 -1.5 -0.5]
line(ret(1,:),ret(2,:))

%A ROTAÇ~AO DO TRIANGULO

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

tri=R1*tri
line(tri(1,:),tri(2,:))

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

% TRASLAÇ~AO DO RETANGULO

ret=M*ret
line(ret(1,:),ret(2,:))

 