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

波变换

开发平台:

Matlab

  1. function [wpt,n2m] = wp2wtree(wpt)
  2. %WP2WTREE Extract wavelet tree from wavelet packet tree.
  3. %   T = WP2WTREE(T) computes the modified tree T
  4. %   corresponding to the wavelet decomposition tree.
  5. %
  6. %   See also WPDEC, WPDEC2.
  7. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  8. %   Last Revision: 23-May-2003.
  9. %   Copyright 1995-2004 The MathWorks, Inc.
  10. %   $Revision: 1.4.4.2 $  $Date: 2004/03/15 22:39:17 $
  11. depth = treedpth(wpt);
  12. if depth==0
  13.     n2m = [];
  14.     return
  15. end
  16. order = treeord(wpt);
  17. nottn = noleaves(wpt,'dp');
  18. K     = 0<nottn(:,2) & nottn(:,2)<order;
  19. n2m   = depo2ind(order,nottn(K,:));
  20. wpt   = nodejoin(wpt,n2m);