Todo

%Rectas Tangentes a una circunferencia
t=0:0.01:2*pi;
x=2*cos(t);
y=2*sin(t);
c=-2:0.01:8;
a=(1/sqrt(15))*c-8/sqrt(15);
b=-(1/sqrt(15))*c+8/sqrt(15);plot(x,y,'b',c,a,'r',c,b,'r')
grid
xlabel('Eje X')
ylabel('Eje Y')
title('Rectas tangentes a una circunferencia')
axis([-4,9,-5,5])
legend('Circunferencia','Rectas')
%Dos segmentos circulares más un valorabsoluto
x=-3:0.01:3;
y=2*abs(x)-6;
t=0:0.01:pi-acos(1/2);
a=1+2*cos(t);
b=2*sin(t);
c=-1-2*cos(t);
figure(2)
plot(x,y,'b',a,b,'r',c,b,'r')
grid
axis([-8,8,-8,5])
xlabel('EjeX')
ylabel('Eje Y')
title('Dos segmentos circulares más un valor absoluto')
legend('Rectas','Segmentos Circulares')
%Una circunferencia y dos semicircunferencias
t=0:0.01:2*pi;x=cos(t);
y=sin(t);
r=0:0.01:pi;
a=2*cos(r);
b=-3+2*sin(r);
c=+3-2*sin(r);
figure(3)
plot(x,y,'r',a,b,'b',a,c,'b')
grid
axis([-6,6,-4.5,4.5])
xlabel('Eje X')
ylabel('Eje Y')title('Una circunferencia y 2 semicircunferencias')
legend('Circunferencia','Semicircunferencia')
%Parábola rotada
x=-2:0.01:3;
y=x.^2;
o=16*pi/180;
a=2+x*cos(o)-y*sin(o);b=2+x*sin(o)+y*cos(o);
figure(4)
plot(a,b,'b')
axis([-6,14,-2,15])
grid
xlabel('Eje x')
ylabel('Eje y')
title('Parábola rotada')
legend('Parábola rotada')
%Intersección de rectas
t=-10:0.01:10;x=t+4;
y=-t;
a=1-t/2;
b=-t;
figure(5)
plot(x,y,'r',a,b,'b')
grid
xlabel('Eje X')
ylabel('Eje Y')
title('Intersección de rectas')
legend('Recta 1','Recta 2')
%TrayectoriasParabólicas
t=0:0.01:80*sin(pi/4)/9.8;
x=40*cos(pi/4)*t;
y=40*sin(pi/4)*t-(9.8/2)*t.^2;
r=0:0.01:sqrt(3200*tan(pi/3)/(9.8^2));
v=((9.8/2)/sin(pi/3))*sqrt(3200*tan(pi/3)/(9.8^2));a=v*cos(pi/3);
a=v*cos(pi/3)*r;
b=v*sin(pi/3)*r-(9.8/2)*r.^2;
figure(6)
plot(x,y,'b',a,b,'r')
grid
xlabel('Eje X')
ylabel('Eje Y')
title('Trayectorias Parabólicas')
legend('θ=45º','θ=60º')