% Script para Juan Antonio (C99)
% En 1), 2) y 3) la fs = 2*fo y el ts = 1/fs
%1) Junio 2013
f0 = 500; %frecuencia central = 1/0.002
t = [0:0.0001:0.004]; %Eje x del seno
t2 = [0.004:0.000001:0.01]; %Eje x de la contante
figure, plot(t,3*sin(2*pi*f0*t),'b');
hold on
plot(t2,0);
hold off
axis([0 0.01 -3 3]);
xlabel('Tiempo(s)');
ylabel('Amplitud');

%2) Octubre 2013
f0 = 200; %frecuencia central = 1/0.005
t = [0:0.0001:0.02]; %Eje x del seno
t2 = [0.02:0.000001:0.04]; %Eje x de la contante
t3 = [0.04:0.0001:0.06]; %Eje x del seno derecha
figure, plot(t,5*sin(2*pi*f0*t),'b');
hold on
plot(t2,0);
plot(t3,5*sin(2*pi*f0*t3),'b');
hold off
axis([0 0.06 -6 6]);
xlabel('Tiempo(s)');
ylabel('Amplitud');

%3) Octubre 2013
f0 = 200; %frecuencia central = 1/0.005
t = [0:0.0001:0.02]; %Eje x del seno
t2 = [0.02:0.000001:0.03]; %Eje x de la contante
t3 = [0.03:0.0001:0.035]; %Eje x del seno derecha
t4 = [0.035:0.000001:0.04]; %Eje x de la contante
t5 = [0.04:0.0001:0.06]; %Eje x del seno derecha
figure, plot(t,5*sin(2*pi*f0*t),'b');
hold on
plot(t2,0);
plot(t3,5*sin(2*pi*f0*t3),'b');
plot(t4,0);
plot(t5,5*sin(2*pi*f0*t5),'b');
hold off
axis([0 0.06 -6 6]);
xlabel('Tiempo(s)');
ylabel('Amplitud');