%rutina para graficar en tiempo continuo una 
%funcion coseno con periodo T0=0.5 seg
t=[0:.01:6];
A=1;
a=.5;
w0=4*pi;
ft=A*cos(w0*t);
figure(3),plot(t,ft,'b')
hold on
et=exp(-a*t);
figure(3),plot(t,et,'r')
gt=et.*ft;
figure(3),plot(t,gt,'k')