%Lab5a3.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)];
% Kausal Sinus
Tellerkoeff=[sin(2*pi*500/8000) 0];
Nevnerkoeff=[1 -2*cos(2*pi*500/8000) 1];   
respons=filter(Tellerkoeff,Nevnerkoeff,Impuls);
n=0:(N-1);
stem(n,respons,'fill')
legend('h(n)=Enhetssprang')
%pause

