% Este arquivo desenha um ret^angulo de lados iguais
% os v´ertices dele s~ao P1 P2 P3 P4

P1=[0 ;0];
P2=[1 ;0];
P3=[1 ;1];
P4=[0 ;1];

% P1=[0 ;0];
% P2=[2 ;0];
% P3=[2 ;1];
% P4=[0 ;1];

% o quadrado
lineseg(P1,P2,'r')
lineseg(P2,P3,'r')
lineseg(P3,P4,'r')
lineseg(P4,P1,'r')

axis([-3 5 -3 5])
xlabel('eixo x')
ylabel('eixo y')

%transformando o quadrado
%fazendo uma traslaç~ao de 3 unidades `a direita
%vetor de traslaç~ao:

figure
b=[3;0];
Tras=[P1 P2 P3 P4] +[b b b b];
TP1=Tras(:,1);
TP2=Tras(:,2);
TP3=Tras(:,3);
TP4=Tras(:,4);
% o quadrado trasladado ´e figura azul

lineseg(TP1,TP2,'b')
lineseg(TP2,TP3,'b')
lineseg(TP3,TP4,'b')
lineseg(TP4,TP1,'b')
axis([-3 5 -3 5])
xlabel('eixo x')
ylabel('eixo y')

%traslaç~ao de 3 unid. `a direita e -2 unid. `a esquerda(em verde)

% figure
% b=[3;2];
% Tras=[P1 P2 P3 P4] +[b b b b];
% TP1=Tras(:,1);
% TP2=Tras(:,2);
% TP3=Tras(:,3);
% TP4=Tras(:,4);
% 
% lineseg(TP1,TP2,'g')
% lineseg(TP2,TP3,'g')
% lineseg(TP3,TP4,'g')
% lineseg(TP4,TP1,'g')
% axis([-3 5 -3 5])
% xlabel('eixo x')
% ylabel('eixo y')