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

波变换

开发平台:

Matlab

  1. function hh = wtitle(string,varargin)
  2. %WTITLE  Graph title.
  3. %   WTITLE('text') adds text at the top of the current axis.
  4. %
  5. %   WTITLE('text','Property1',PropertyValue1,'Property2',PropertyValue2,...)
  6. %   sets the values of the specified properties of the title.
  7. %
  8. %   H = WTITLE(...) returns the handle to the text object
  9. %   used as the title.
  10. %
  11. %   See also WXLABEL, WYLABEL, XLABEL, YLABEL, ZLABEL, TITLE, TEXT.
  12. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 01-Oct-97.
  13. %   Last Revision: 01-May-1998.
  14. %   Copyright 1995-2002 The MathWorks, Inc.
  15. % $Revision: 1.9 $
  16. nbin = nargin;
  17. if nbin>1
  18.     for k=1:2:nbin-1
  19.         p = deblank(lower(varargin{k}));
  20.         if isequal(p,'parent')
  21.             ax = varargin{k+1};
  22.             varargin(k:k+1) = [];
  23.             break
  24.         end
  25.     end
  26. end
  27. if isempty(ax) , ax = gca; end
  28. h = get(ax,'title');
  29. if nargin > 1 & (nargin-1)/2-fix((nargin-1)/2),
  30.   error('Incorrect number of input arguments')
  31. end
  32. %Over-ride text objects default font attributes with
  33. %the Axes' default font attributes.
  34. set(h, 'FontAngle',  get(ax, 'FontAngle'), ...
  35.        'FontName',   get(ax, 'FontName'), ...
  36.        'FontSize',   get(ax, 'FontSize'), ...
  37.        'FontWeight', get(ax, 'FontWeight'), ...
  38.        'Rotation',   0, ...
  39.        'string',     string, varargin{:});
  40. if nargout > 0
  41.   hh = h;
  42. end