sameswfplot.m
上传用户:haiyisale
上传日期:2013-01-09
资源大小:3246k
文件大小:1k
源码类别:

波变换

开发平台:

Matlab

  1. function sameswfplot(wname,powMAX)
  2. %SAMESWFPLOT Same BSWFUN and WAVEFUN plots.
  3. %   Command line: SAMESWFPLOT(wname,powMAX)
  4. %      SAMESWFPLOT        <==> SAMESWFPLOT('bior1.3',0) 
  5. %      SAMESWFPLOT(wname) <==> SAMESWFPLOT(wname,0)
  6. %
  7. %   See also BSWFUN.
  8. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 18-Jul-2003.
  9. %   Last Revision: 18-Jul-2003.
  10. %   Copyright 1995-2004 The MathWorks, Inc.
  11. %   $Revision: 1.1.6.2 $ $Date: 2004/03/15 22:41:39 $ 
  12. switch nargin
  13.     case 0 , powMAX = 0; wname = 'bior1.3'; 
  14.     case 1 , powMAX = 0; 
  15. end
  16. iter = 10;
  17. wavefun(wname,iter,'plot');
  18. [LoD_A,HiD_A,LoR_A,HiR_A] = wfilters(wname);
  19. [Hs,Gs,Ha,Ga,PRCond,AACond] = wave2lp(wname,powMAX)
  20. [LoD_B,HiD_B,LoR_B,HiR_B] = lp2filters(Ha,Ga,Hs,Gs);
  21. bswfun(LoD_B,HiD_B,LoR_B,HiR_B,iter,'plot');
  22. sep = '-';
  23. sep = sep(ones(1,75));
  24. disp(sep)
  25. disp(['Wavelet: ' wname]);
  26. disp('%----+----+----+----%')
  27. disp(['LoD_A: ',sprintf('%9.4f',LoD_A)]);
  28. disp(['HiD_A: ',sprintf('%9.4f',HiD_A)]);
  29. disp(['LoR_A: ',sprintf('%9.4f',LoR_A)]);
  30. disp(['HiR_A: ',sprintf('%9.4f',HiR_A)]);
  31. disp(' ');
  32. disp(['LoD_B: ',sprintf('%9.4f',LoD_B)]);
  33. disp(['HiD_B: ',sprintf('%9.4f',HiD_B)]);
  34. disp(['LoR_B: ',sprintf('%9.4f',LoR_B)]);
  35. disp(['HiR_B: ',sprintf('%9.4f',HiR_B)]);
  36. disp(' ');
  37. disp(sep)