%Lab5b1.m
%
N=12;                      
Impuls=[1 zeros(1,N-1)]
%
% Eksponensiell demping
Tellerkoeff=[1 0];
Nevnerkoeff=[1 -0.65];   
%
% Inngangssignal
x=[1 1 1 1 0 0 0 0 0 0 0 0];
%
% Impulsrespons
h=filter(Tellerkoeff,Nevnerkoeff,Impuls)
%
% Folding mellom Impulsrespons og Inngangsssignal
y1=conv(h,x)
%
% Plukker ut de 12 første verdiene
for jb = 1:N
    y2(jb) = y1(jb);
end
%
% Plotter
n=0:(N-1);
stem(n,y2,'fill')
