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

波变换

开发平台:

Matlab

  1. function Y = inp2sq(xDEC,level)
  2. %INP2SQ In Place to "square" storage of coefficients.
  3. %   Y = INP2SQ(xDEC,LEVEL) returns the "Square" storage
  4. %   for a 2-D wavelet decomposition obtained by Lifting.
  5. %
  6. %   Example:
  7. %      load woman; L = 3
  8. %      XinP = lwt2(X,'db2,L);
  9. %      Xsq  = inp2sq(XinP,L);
  10. %
  11. %   See also ILWT2, LWT2.
  12. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 25-May-2001.
  13. %   Last Revision: 26-Jun-2003.
  14. %   Copyright 1995-2004 The MathWorks, Inc.
  15. %   $Revision: 1.1.6.3 $  $Date: 2004/04/13 00:39:44 $
  16. wname = 'dummy';
  17. Y = lwtcoef2('ca',xDEC,wname,level,level);
  18. for k = level:-1:1
  19.     H = lwtcoef2('ch',xDEC,wname,level,k);
  20.     V = lwtcoef2('cv',xDEC,wname,level,k);
  21.     D = lwtcoef2('cd',xDEC,wname,level,k);
  22.     Y = [Y , H ; V , D];
  23. end