clear all
close all
figure(1)

subplot(2,2,1)
t = linspace(0,1,2048);
si = sin( 2*pi * t);
plot(t,si)
title('ORIGINAL FUNCTION')

subplot(2,2,2)
wf=MakeONFilter('Symmlet',8);
b=fwt_po(si,8, wf);
plot(t,b)
 hold on
plot(t(1), b(1), 'o')
plot(t(256), b(256), 'o')
plot(t, b(1)*ones(length(t)), 'r--')
title('SYMMLET8')


subplot(2,2,3)
wf=MakeONFilter('Coiflet',3);
b=fwt_po(si,8, wf);
plot(t,b)
 hold on
plot(t(1), b(1), 'o')
plot(t(256), b(256), 'o')
plot(t, b(1)*ones(length(t)), 'r--')
title('COIF3')

subplot(2,2,4)
wf=MakeONFilter('Daubechies',20);
b=fwt_po(si,8, wf);
plot(t,b)
 hold on
plot(t(1), b(1), 'o')
plot(t(256), b(256), 'o')
plot(t, b(1)*ones(length(t)), 'r--')
title('DAUB20')
print -depsc 'C:\Temp\Problem01.eps'
