

[x,fs]=wavread('AMPIN.WAV');



[b,a]=yulewalk(5,[0 1000/(fs/2) 3000/(fs/2) 1],[1 1 .1 .1]);



y=filter(b,a,x);



wavwrite(y,fs,16,'EARIN.WAV');

