www.gusucode.com > wavelet工具箱matlab源码程序 > wavelet/wavelet/txtinaxe.m
function out1 = txtinaxe(option,in2,in3,in4,in5,in6,in7,in8,in9) %TXTINAXE Right and left texts for axes. % OUT1 = TXTINAXE(OPTION,IN2,IN3,IN4,IN5,IN6,IN7,IN8,IN9) % M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 01-May-96. % Last Revision: 20-Jul-2010. % Copyright 1995-2010 The MathWorks, Inc. [dlx,drx] = mextglob('get','posLX_Txtinaxe','posRX_Txtinaxe'); if nargin==0 , option = 'create'; end opt = option(1); switch opt case 'c' % OPTION = 'create' if nargin>8 , drx = in9; end if nargin>7 , dlx = in8; end if nargin<7 CurScrPixPerInch = get(0,'ScreenPixelsPerInch'); StdScrPixPerInch = 72; RatScrPixPerInch = StdScrPixPerInch / CurScrPixPerInch; fontsize = floor(16*RatScrPixPerInch); else fontsize = in7; end if nargin<6, fonttype = 'bold'; else fonttype = in6; end if nargin<5, vis = 'on'; else vis = in5; end if nargin<4, side = 'l'; else side = in4; end if nargin<3, axe = gca; else axe = in3; end if nargin<2, txt = 'txt'; else txt = in2; end old_units = get(axe,'Units'); set(axe,'Units','pixels'); pos_a = get(axe,'Position'); if side(1)=='l' , xtxt = -dlx; else xtxt = pos_a(3)+drx; end ytxt = pos_a(4)/2; out1 = text(... 'Parent',axe, ... 'String',txt, ... 'FontWeight',fonttype, ... 'FontSize',fontsize, ... 'Units','pixels', ... 'Position',[xtxt ytxt], ... 'HorizontalAlignment','center', ... 'Visible',vis ... ); set(axe,'Units',old_units); set(out1,'Units','normalized'); case 'p' % OPTION = 'pos' %--------------------------------------- % in2 = hdl_txt , in3 = dlx , in4 = drx %--------------------------------------- if nargin>2 dlx = in3; if nargin>3 , drx = in4; end end axe = get(in2,'Parent'); pos_t = get(in2,'Position'); old_units = get(axe,'Units'); set(axe,'Units','pixels'); pos_a = get(axe,'Position'); if pos_t(1)<0 , xtxt = -dlx; else xtxt = pos_a(3)+drx; end set(in2,'Units','pixels','Position',[xtxt pos_a(4)/2]); set(axe,'Units',old_units); set(in2,'Units','normalized'); end