开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > 波变换 > 查看源码
drawtree.m
资源名称：wavelet_toolbox.rar　[点击查看]
上传用户：haiyisale
上传日期：2013-01-09
资源大小：3246k
文件大小：2k
源码类别：

波变换

开发平台：

Matlab

drawtree.m：源码内容
  1. function fig = drawtree(t,varargin)
  2. %DRAWTREE Draw wavelet packet decomposition tree.
  3. %   DRAWTREE(T) draws the wavelet packet tree T.
  4. %   F = DRAWTREE(T) returns the figure's handle.
  5. %
  6. %   For an existing figure F produced by a previous call
  7. %   to the DRAWTREE function, DRAWTREE(T,F) draws the wavelet 
  8. %   packet tree T in the figure whose handle is F.
  9. %
  10. %   Example:
  11. %     x   = sin(8*pi*[0:0.005:1]);
  12. %     t   = wpdec(x,3,'db2');
  13. %     fig = drawtree(t);
  14. %     %---------------------------------------
  15. %     % Use command line function to modify t
  16. %     %---------------------------------------
  17. %     t   = wpjoin(t,2);
  18. %     drawtree(t,fig);
  19. %
  20. %   See also READTREE.
  22. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 01-Oct-97.
  23. %   Last Revision: 21-May-2003.
  24. %   Copyright 1995-2004 The MathWorks, Inc.
  25. %   $Revision: 1.11.4.2 $
  27. %--------------%
  28. % OLD VERSION  %
  29. %--------------%
  30. %   DRAWTREE(T,D) draws the wavelet packet tree T.
  31. %   D is the data structure associated with T.
  32. %   F = DRAWTREE(T,D) returns the figure's handle.
  33. %
  34. %   For an existing figure F produced by a previous call
  35. %   to the DRAWTREE function, DRAWTREE(T,F) draws the wavelet 
  36. %   packet tree T in the figure whose handle is F.
  37. %
  38. %   Example:
  39. %     x = sin(8*pi*[0:0.005:1]);
  40. %     [t,d] = wpdec(x,3,'db2');
  41. %     fig   = drawtree(t,d);
  42. %     %--------------------------------------------
  43. %     % Use command line function to modify t or d
  44. %     %--------------------------------------------
  45. %     [t,d] = wpjoin(t,d,2);
  46. %     drawtree(t,d,fig);
  47. %
  48. %   See also READTREE.
  50. % Check arguments.
  51. %-----------------
  52. nbIn = nargin;
  53. switch nbIn
  54.   case {0}  , error('Not enough input arguments.');
  55.       
  56.   case {1,2,3} 
  57.       if isa(t,'wptree')
  58.           maxarg = 2;
  59.       else
  60.           maxarg = 3;
  61.       end
  62.       if (nbIn>maxarg) , error('Too many input arguments.'); end
  63.       
  64.   otherwise , error('Too many input arguments.');
  65. end
  67. % Draw tree.
  68. %-----------
  69. order = treeord(t);
  70. switch order
  71.     case 2 , prefix = 'wp1d';
  72.     case 4 , prefix = 'wp2d';
  73. end
  74. func1 = [prefix 'tool'];
  75. func2 = [prefix 'mngr'];
  77. newfig = 1;
  78. if nargin==maxarg
  79.     fig = varargin{end};
  80.     varargin(end) = [];
  81.     wins = wfindobj('figure');
  82.     if ~isempty(find(wins==fig))
  83.         tagfig = lower(get(fig,'tag'));
  84.         if isequal(func1,tagfig) , newfig = 0; end
  85.     end
  86. end
  87. if newfig , fig = feval(func1); end
  88. feval(func2,'load_dec',fig,t,varargin{:});