Global Index (short | long) | Local contents | Local Index (short | long)
idopttog(arg,hm,replot)
IDOPTTOG Toggles checked options.
This function calls | This function is called by |
---|---|
function idopttog(arg,hm,replot) % L. Ljung 9-27-94 % Copyright (c) 1986-98 by The MathWorks, Inc. % $Revision: 2.5 $ $Date: 1997/12/02 03:44:35 $ global XIDplotw pw=gcf; if nargin<3,replot=1;end if nargin<2 hm=gcbo;%get(pw,'currentmenu'); end usd=get(hm,'userdata'); if strcmp(arg,'check') if strcmp(get(hm,'checked'),'on')&~strcmp(get(hm,'label'),... menulabel('&Spectral analysis')) return else set(hm,'checked','on'); set(usd(1),'checked','off') optval=int2str(usd(4)); userd=get(XIDplotw(usd(2),2),'userdata'); [ru,cu]=size(userd); if usd(3)==1,newd=optval;else newd=deblank(userd(1,:));end for kk=2:ru if kk==usd(3);ite=optval;else ite=deblank(userd(kk,:));end newd=str2mat(newd,ite); end set(XIDplotw(usd(2),2),'userdata',newd); confflag=0; if strcmp(get(hm,'tag'),'predict') win=get(get(hm,'parent'),'parent'); conf=findobj(win,'tag','confonoff'); if strcmp(get(conf,'checked'),'on'),confflag=1;end set(conf,'enable','off'); elseif strcmp(get(hm,'tag'),'simul') win=get(get(hm,'parent'),'parent'); conf=findobj(win,'tag','confonoff'); set(conf,'enable','on'); end if replot, iduiclpw(usd(2)); if confflag iduistat('No confidence intervals for predicted output.',0,3); end end end elseif strcmp(arg,'set') optval=int2str(usd(3)); userd=get(XIDplotw(usd(1),2),'userdata'); [ru,cu]=size(userd); if usd(2)==1,newd=optval;else newd=deblank(userd(1,:));end for kk=2:ru if kk==usd(2);ite=optval;else ite=deblank(userd(kk,:));end newd=str2mat(newd,ite); end set(XIDplotw(usd(1),2),'userdata',newd); if usd(1)==3 pre=findobj(gcf,'tag','predict'); check=get(pre,'checked'); set(pre,'label',menulabel([optval,' Step Ahead &Predicted Output'])); if strcmp(check,'on') set(pre,'checked','on'),if replot iduiclpw(usd(1));end end return end if replot,iduiclpw(usd(1));end elseif strcmp(arg,'unit_circle') huc=gcbo;%get(gcf,'currentmenu'); onoff=get(huc,'checked'); if strcmp(onoff,'on'),offon='off';else offon='on';end set(huc,'checked',offon); hl=findobj(XIDplotw(4,1),'tag','zpucl'); if isempty(hl)&strcmp(offon,'on') iduistat('Unit circle will be drawn at next plot.',0,4); return end set(hl,'vis',offon); elseif strcmp(arg,'reimaxes') huc=gcbo;%get(gcf,'currentmenu'); onoff=get(huc,'checked'); if strcmp(onoff,'on'),offon='off';else offon='on';end set(huc,'checked',offon); hre=findobj(XIDplotw(4,1),'tag','zpaxr'); him=findobj(XIDplotw(4,1),'tag','zpaxi'); if isempty(hre)&strcmp(offon,'on') iduistat('Axes will be drawn at next plot.',0,4); return end if strcmp(offon,'on') set(hre,'xdata',get(get(hre,'parent'),'xlim')); set(him,'ydata',get(get(hre,'parent'),'ylim')); end set([hre him],'vis',offon); end