% Hfilt	
%   Realizes the highpass wavelet filter of size N for the Haar function

function H=Hfilt(c0,c1,N)

for k=1:N/2,
H=[H;zeros(1,2*(k-1)),c1,-c0,zeros(1,N-2*k)];
end
