%Lab5b1.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)];
% Eksponensiell demping
Tellerkoeff=[1 0];
Nevnerkoeff=[1 -0.65];   
x=[1 1 1 1 0 0 0 0 0 0 0 0];
y=filter(Tellerkoeff,Nevnerkoeff,x);
%respons=filter(Tellerkoeff,Nevnerkoeff,Impuls);
%n=0:(N-1);
n=0:11;
stem(n,y,'fill')
%stem(n,respons,'fill')
%legend('h(n)=Enhetssprang')
%pause

