% Lfilt	
%   Realizes the lowpass wavelet filter of size N for the Haar function

function L=Lfilt(c0,c1,N)

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