%rutina para graficar en tiempo continuo a partir de una funcion en
%S
A=3;
a=.5;
omega=pi;
nums=3*[1 a];
dens=[1 2*a a*a+omega*omega];
Fs=A*tf(nums,dens)
figure(5),impulse(nums,dens,6);
%hold
%t=[0:.1:12];
%f=2.7*exp(-a*t).*cos(omega*t);
%figure(4),plot(t,f)
