function b=fiede(a)
% a canale stereo
% viene filtrato con pass basso a ft=1200 HZ
% infine viene decimato prendendo 1 campione ogni 10
ft=1200/22050;
h=fir1(800,ft,'low');
c(1,:)=conv(a(1,:),h);
c(2,:)=conv(a(2,:),h);
n=size(c,2);
m=floor(n/10);
for i=1:m
b(i,1)=c(1,i*10-9);
b(i,2)=c(2,i*10-9);
end
end