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

波变换

开发平台:

Matlab

  1. function [sx,sy] = mngcoor(x,y,axe,in4)
  2. %MNGCOOR Manage display of coordinates values.
  3. %   [sx,sy] = mngcoor(x,y) or
  4. %   [sx,sy] = mngcoor(x,y,axe) or 
  5. %   [sx,sy] = mngcoor(x,y,axe,opt)
  6. %   (x,y)   = point coordinates in the axes axe (not used).
  7. %   opt = 'real' or 'int'   
  8. %   (sx,sy) = strings which give (x,y) position
  9. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 01-May-96.
  10. %   Last Revision: 02-Jun-2003.
  11. %   Copyright 1995-2004 The MathWorks, Inc.
  12. % $Revision: 1.10.4.2 $
  13. if (nargin<4) || isempty(in4)
  14.    mode = 'r';
  15. else
  16.    mode = lower(in4(1));
  17. end
  18. switch mode
  19.   case 'r'
  20.     sx = ['X = ' , wstrcoor(x,5,6)];
  21.     sy = ['Y = ' , wstrcoor(y,5,6)];
  22.     
  23.   case 'i'
  24.     sx = sprintf('X = %0.f',round(x));
  25.     sy = sprintf('Y = %0.f',round(y));
  26.   otherwise
  27.     sx = [];
  28.     sy = [];
  29. end