
% DOIS TRIANGULOS
clf
tri=[0 1 0 0;0 0 2 0];

tri1=[0 1 0 0;-2 -2 0 -2];

line(tri(1,:),tri(2,:))

line(tri1(1,:),tri1(2,:))

hold on
axis([-3 5 -3 3])

%MATRIZ DE EXPANS~AO ???

 M=[1 .5;0 1];   
% M2=[0.5 0;0. 1]; 
M1=[0.8 0;0 0.8];

% EXPANS~OES SIMULTANEAS
for i=1:3
tri=M*tri
% line(tri(1,:),tri(2,:)) % ESTE COMANDO NAO FORNECE CORES
%COLOCANDO ENTRE ASPAS g OU r INDICA VERDE OU VERMELHO RESPECT.
plot(tri(1,:),tri(2,:),'g-')
end

for i=1:5
tri1=M1*tri1
% line(tri1(1,:),tri1(2,:),'r')% ESTE COMANDO NAO FORNECE CORES
plot(tri1(1,:),tri1(2,:),'r')

end 