%Fichier filtre2.m

%Fe=10kHz
Fe=10;
% creation du vecteur de frequence 
f=linspace(-2*Fe,2*Fe,512); %impose 512 points
%f=(-2*Fe:pas:2*Fe) %impose le pas

%Essai du filtre [x(n)+y(n-1)]/2
a0 = 1;
b1 = -2;
a=[a0 0];
b=[1 b1 0];

% réponse en fréquence (abscisse en fréquence réduite) 
freqzz(a,b,2*pi*f/Fe);

%sauvegarde de la figure dans un fichier .wmf pour impression
print graph2 -dmeta

%réponse impulsionnelle
figure
n=(-2:15);
imp_Kronecker=(n==0);
stem(n,imp_Kronecker);
hold on
rep_imp=filter(a,b,imp_Kronecker)
stem(n,rep_imp);