%Rutina para obtener la respuesta a escalon e impulso de una funcion de
%transferencia de segundo oredn. Circuito RLC.
num=10^8;
den=[1 10^4 10^8];
Hs=tf(num,den)
figure(1),step(num,den)
figure(2),impulse(num,den)
%Cambio de la resistencia a 50 ohm
den=[1 .5*10^4 10^8];
Hs=tf(num,den)
figure(3),step(num,den)
figure(4),impulse(num,den)