subplot(1,1,1);
echo
data = [ 1 0 -3 2 1 0 1 2 ];
H_haar = [1/sqrt(2) 1/sqrt(2)];

pause

aa = dwt( data, H_haar, 1 )
bar(aa)
pause
ab = dwt( data, H_haar, 2 )
bar(ab)
pause
ac = dwt( data, H_haar, 3 )
bar(ac)
pause
clear data; 
clear aa; 
data = MakeSignal('Doppler', 512);
filt = MakeONFilter('Symmlet', 8);
aa = dwt( data, filt, 3);
subplot(2,1,1)
plot(data)
axis([1 512 -2 2])
subplot(2,1,2)
plot(aa, '-');
axis([1 512 -2 2])