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

波变换

开发平台:

Matlab

  1. function [Lo_D,Hi_D,Lo_R,Hi_R] = orthfilt(W,P)
  2. %ORTHFILT Orthogonal wavelet filter set.
  3. %   [LO_D,HI_D,LO_R,HI_R] = ORTHFILT(W) computes the
  4. %   four filters associated with the scaling filter W 
  5. %   corresponding to a wavelet:
  6. %   LO_D = decomposition low-pass filter
  7. %   HI_D = decomposition high-pass filter
  8. %   LO_R = reconstruction low-pass filter
  9. %   HI_R = reconstruction high-pass filter.
  10. %
  11. %   See also BIORFILT, QMF, WFILTERS.
  12. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  13. %   Last Revision: 13-May-2003.
  14. %   Copyright 1995-2004 The MathWorks, Inc.
  15. % $Revision: 1.11.4.2 $
  16. % Check arguments.
  17. if nargin<2 , P = 0; end
  18. % Normalize filter sum.
  19. W = W/sum(W);
  20. % Associated filters.
  21. Lo_R = sqrt(2)*W;
  22. Hi_R = qmf(Lo_R,P);
  23. Hi_D = wrev(Hi_R);
  24. Lo_D = wrev(Lo_R);