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

波变换

开发平台:

Matlab

  1. function disp(t)
  2. %DISP Display information of DTREE object.
  3. %
  4. %   See also GET, READ, SET, WRITE.
  5. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 03-Aug-2000.
  6. %   Last Revision: 21-May-2003.
  7. %   Copyright 1995-2004 The MathWorks, Inc.
  8. %   $Revision: 1.5.4.2 $  $Date: 2004/03/15 22:37:26 $
  9. % Get wavelet packet tree information.
  10. order = treeord(t);
  11. depth = treedpth(t);
  12. tn = leaves(t);
  13. dataSize = read(t,'sizes',0);
  14. headerStr = [...
  15. ' Data Tree Object Structure '
  16.     '============================'
  17. ];
  18. infoStr = [...
  19. ' Size of initial data : '
  20. ' Order                : ' 
  21. ' Depth                : '
  22. ' Terminal nodes       : '
  23. ];
  24. % Setting Strings.
  25. %-----------------
  26. prec = 4;
  27. tn = tn';
  28. nb_tn = length(tn);
  29. lStr = '['; 
  30. if nb_tn>16 , nb_tn = 16; rStr = ' ...]'; else , rStr = ']'; end
  31. tnStr = [lStr int2str(tn(1:nb_tn)) rStr];
  32. addLen = 20;
  33. sep = '-';
  34. sepStr = sep(ones(1,size(infoStr,2)+addLen));
  35. % Displaying.
  36. %------------
  37. disp(' ')
  38. disp(headerStr);
  39. ind = 1;     disp([infoStr(ind,:) , '[' int2str(dataSize) ']'])
  40. ind = ind+1; disp([infoStr(ind,:) , int2str(order)])
  41. ind = ind+1; disp([infoStr(ind,:) , int2str(depth)])
  42. ind = ind+1; disp([infoStr(ind,:) , tnStr])
  43. disp(sepStr);
  44. disp(' ')