% -------------------------------------------------------------------
% exa060609.m, for fig 9.6.9
% 產生雙正交小波 bior3.7 的時域波形，同時給出了尺度函數的時域波形； 
% phi1,psi1是分解用小波和尺度函數，phi2,psi2 是重建用小波和尺度函數；
%--------------------------------------------------------------------
clear;

iter=4
[phi1,psi1,phi2,psi2,xval] = wavefun('bior3.7',iter);
subplot(2,2,1)
plot(xval,phi1);grid on
title('Dec. scalling function:Phi')
subplot(2,2,2)
plot(xval,psi1);grid on
title('Dec. wavelet function:Psi')
subplot(2,2,3)
plot(xval,phi2);grid on
title('Rec. scalling function:Phi')
subplot(2,2,4)
plot(xval,psi2);grid on
title('Rec. wavelet function:Psi')