%Hang szûrése 100 kaszkádba kapcsolt szûrõvel
szurfir ;[b]=fir1(100,.7);
h=audioread('szam.wav');h=[h; zeros(5000,1)];%h=ssz;
h1=h;
[n,Wn]=ellipord(.68,.74,1,55)
[c,d]=ellip(n,1,55,Wn);
figure(1);clf
[H,w]=freqz(c,d);
plot(w/pi,20*log10(abs(H)+eps)),grid on	%Absolutérték
figure(2);clf
plot(w/pi,unwrap(angle(H)));
for l=1:100
   h1=filter(b,1,h1);   %lineáris fázisú
   %h1=filter(c,d,h1);  %nemlineáris fázisú
end
soundsc(h,11025)
pause(2)
soundsc(h1,11025)