Wavelet

Development Platform:

Matlab

sameswfplot.m：Code Content

							function sameswfplot(wname,powMAX)
%SAMESWFPLOT Same BSWFUN and WAVEFUN plots.
%   Command line: SAMESWFPLOT(wname,powMAX)
%      SAMESWFPLOT        <==> SAMESWFPLOT('bior1.3',0) 
%      SAMESWFPLOT(wname) <==> SAMESWFPLOT(wname,0)
%
%   See also BSWFUN.
%   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 18-Jul-2003.
%   Last Revision: 18-Jul-2003.
%   Copyright 1995-2004 The MathWorks, Inc.
%   $Revision: 1.1.6.2 $ $Date: 2004/03/15 22:41:39 $ 
switch nargin
    case 0 , powMAX = 0; wname = 'bior1.3'; 
    case 1 , powMAX = 0; 
end
iter = 10;
wavefun(wname,iter,'plot');
[LoD_A,HiD_A,LoR_A,HiR_A] = wfilters(wname);
[Hs,Gs,Ha,Ga,PRCond,AACond] = wave2lp(wname,powMAX)
[LoD_B,HiD_B,LoR_B,HiR_B] = lp2filters(Ha,Ga,Hs,Gs);
bswfun(LoD_B,HiD_B,LoR_B,HiR_B,iter,'plot');
sep = '-';
sep = sep(ones(1,75));
disp(sep)
disp(['Wavelet: ' wname]);
disp('%----+----+----+----%')
disp(['LoD_A: ',sprintf('%9.4f',LoD_A)]);
disp(['HiD_A: ',sprintf('%9.4f',HiD_A)]);
disp(['LoR_A: ',sprintf('%9.4f',LoR_A)]);
disp(['HiR_A: ',sprintf('%9.4f',HiR_A)]);
disp(' ');
disp(['LoD_B: ',sprintf('%9.4f',LoD_B)]);
disp(['HiD_B: ',sprintf('%9.4f',HiD_B)]);
disp(['LoR_B: ',sprintf('%9.4f',LoR_B)]);
disp(['HiR_B: ',sprintf('%9.4f',HiR_B)]);
disp(' ');
disp(sep)

						