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

波变换

开发平台:

Matlab

  1. function labels = tlabels(t,varargin)
  2. %TLABELS Labels for the nodes of a tree.
  3. %   LABELS = TLABELS(T,TYPE,N) returns the labels for
  4. %   the nodes N of the tree T.
  5. %   The valid values for TYPE are:
  6. %       'p' for depth-position.
  7. %       'i' for indices.
  8. %       'n' for none.
  9. %   
  10. %   LABELS = TLABELS(T,TYPE) returns the labels
  11. %   for all nodes of T.
  12. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 01-Jun-98.
  13. %   Last Revision: 15-May-2003.
  14. %   Copyright 1995-2004 The MathWorks, Inc.
  15. %   $Revision: 1.4.4.2 $  $Date: 2004/03/15 22:38:45 $
  16. labtype = varargin{1};
  17. if length(varargin)<2
  18.     nodes = allnodes(t);
  19. else
  20.     nodes = varargin{2};
  21. end
  22. nbnodes = length(nodes);
  23. labels  = [];
  24. switch labtype
  25.   case {'p','dp'}
  26.     order = treeord(t);
  27.     [d,p] = ind2depo(order,nodes);
  28.     
  29.     for k=1:nbnodes
  30.         labels = strvcat(labels,sprintf('(%0.f,%0.f)',d(k),p(k)));
  31.     end
  32.   case 'i'
  33.     for k=1:nbnodes
  34.         labels = strvcat(labels,sprintf('(%0.f)',nodes(k)));
  35.     end
  36.   case 'n'
  37. end