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

波变换

开发平台:

Matlab

  1. function x = ihlwt(a,d,integerFlag)
  2. %IHLWT Haar (Integer) Wavelet reconstruction 1-D using lifting.
  3. %
  4. %     x = ihlwt(a,d) ou
  5. %     x = ihlwt(a,d,integerFlag)
  6. %     Dans le cas 2, on a une transformation en entiers
  7. %     modulo la normalisation.
  8. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 28-Jan-2000.
  9. %   Last Revision 16-Jun-2003.
  10. %   Copyright 1995-2004 The MathWorks, Inc.
  11. %   $Revision: 1.1.6.3 $ $Date: 2004/04/13 00:39:40 $ 
  12. % Test si transformation en entiers.
  13. notInteger = nargin<3;
  14. % Reverse Lifting.
  15. if notInteger
  16.     d = 2*d;          % Normalization.
  17.     a = (a-d/2);      % Reverse primal lifting.
  18. else
  19.     a = (a-fix(d/2)); % Reverse primal lifting.
  20. end
  21. d = a+d;   % Reverse dual lifting.
  22. % Merging.
  23. x = [d;a];
  24. x = x(:)';