##Circulo
theta=linspace(0,2*pi,100);
x=cos(theta);
y=sin(theta);
Circulo=[x;y];
hold on

subplot(1,2,1)

plot(x,y,"r")
axis([-8 8 -8 8], "square")
title("Circulo")
grid on
##Elipse

T=[1 0 2;0 1 2;0 0 1];
Ejes=[3 0 0;0 2 0;0 0 1];
objeto1=[x;y;ones(size(x))];

Elipse=T*Ejes*objeto1;

subplot(1,2,2)

plot(Elipse(1,:),Elipse(2,:),"r");
title("Elipse")


axis([-8 8 -8 8], "square")
grid on

print -deps -color "Elipse4.eps" 
print -dtex -color "Elipse2.tex"
saveas(1,"Elipse3.jpg")

hold off
