%rutina para graficar en tiempo continuo 
a=.8;
t=[0:.01:6];
x=exp(-a*t);
figure(1),plot(t,x,'r')
nums=[1];
dens=[1 a];
Fs=tf(nums,dens)
%figure(3),impulse(nums,dens,6);
figure(3),impulse(Fs,6);