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

波变换

开发平台:

Matlab

  1. function Ts = nodesplt(Ts,node)
  2. %NODESPLT Split (decompose) node.
  3. %   T = NODESPLT(T,N) returns the modified tree
  4. %   structure T corresponding to the decomposition
  5. %   of the node N.
  6. %
  7. %   The nodes are numbered from left to right and
  8. %   from top to bottom. The root index is 0.
  9. %
  10. %   See also MAKETREE, NODEJOIN, WTREEMGR.
  11. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 12-Mar-96.
  12. %   Last Revision: 04-May-1999.
  13. %   Copyright 1995-2002 The MathWorks, Inc.
  14. % $Revision: 1.11 $
  15. % Check arguments.
  16. if errargn(mfilename,nargin,[2],nargout,[0 1]), error('*'); end
  17. node_rank = wtreemgr('istnode',Ts,node);
  18. if node_rank==0
  19.     errargt(mfilename,'invalid node value','msg');
  20.     return
  21. end
  22. order   = wtreemgr('order',Ts);
  23. depth   = wtreemgr('depth',Ts);
  24. node    = depo2ind(order,node);
  25. indord  = node*order;
  26. nbinfo  = size(Ts,1)-1;
  27. ins_val = [indord+1:indord+order;zeros(nbinfo,order)];
  28. Ts      = wtreemgr('replace',Ts,ins_val,node_rank,node_rank);