bhp.m

Double Density Wavelet Soft

function h = bhp(k)
% h = bhp(k)
% Binomial hipass filter
% H(z) = [(1/z-1)/2]^k

h = 1;
for i = 1:k
  h = ([0 h] - [h 0])/2;
end