%Lab5a4.m
% Impulsrespons for ulike transferfunksjoner.
% Transfer funksjon H(z)= Tellerpolynom/Nevnerpolynom
% Impuls laget av en 1-er etterfulgt av 31 0-ere
N=32;                      
Impuls=[1 zeros(1,N-1)];
% Dempet kausal Sinus
Tellerkoeff=[exp(-0.65/8)*sin(2*pi*500/8000) 0];
Nevnerkoeff=[1 -2*exp(-0.65/8)*cos(2*pi*500/8000) exp(-2*0.65/8)];   
respons=filter(Tellerkoeff,Nevnerkoeff,Impuls);
n=0:(N-1);
stem(n,respons,'fill')
legend('h(n)=Enhetssprang')
%pause

