% -------------------------------------------------------------------
% exa060606.m, for fig 9.6.6
% 產生 coif4 小波的時域波形，同時給出了尺度函數的時域波形； 
%--------------------------------------------------------------------
clear;

iter=4
[phi4,psi4,xval4] = wavefun('coif4',iter);
subplot(2,2,1)
plot(xval4,phi4);grid on
title('Coif4: Phi')
subplot(222)
plot(xval4,psi4);grid on
title('Coif4: Psi')