function w=highpass(err)
if numel(err)<88200
on=numel(err);
err=padd(err,88200);
else
    on=0;
end
ferr=fft(err);
kbande=floor(450*numel(err)/88200);
bande=1:kbande;
bandeC=[bande numel(err)-bande];
ferr(bandeC)=0;

w=real(ifft(ferr));
if on
w=unpadd(w,on);
end
end