Global Index (short | long) | Local contents | Local Index (short | long)
iduiopt(arg,window,number,optno,optval,figno,con,coff)
IDUIOPT Handles the setting of all options.
The arguments are as follows
window is the window we are working with
number is the menu-item (similar) that we are adression within this window
handno is the handle number that holds the options as userdata
It is a vector of length=no of options to be handled
optno is a vector containing the option numbers to be handled currently
handno is placed as userdata of the window
optno is placed as userdata of the respective edit ui the plotwindow
(if applicable) to be refreshed upon return is placed as userdata
of the first text edit window (no 4)
ARG
dlg_freq Options for frequency responses and spectra
dlg_nos Number of samples for transient response
dlg_dec Decimation factor
dlg_ioopt Options associated with the iterative search
dlg_lgs No of lags in residual analysis
dlg_ph Prediction horizon in COMPARE plot
dlg_sampff Setting the sample numbers to be used in fit calculation
apply Lets the options take action. Places the info at the
appropriate userdata and refreshes the plot
| This function calls | This function is called by |
|---|---|
function iduiopt(arg,window,number,optno,optval,figno,con,coff)
% L. Ljung 4-4-94
% Copyright (c) 1986-98 by The MathWorks, Inc.
% $Revision: 2.7 $ $Date: 1998/05/22 01:18:24 $
global XIDopt XIDplotw XIDparest XIDss XIDlayout
if strcmp(window,'plotw')
handno=XIDplotw(number,2);
elseif strcmp(window,'handle')
handno=number(1);
elseif strcmp(window,'ioopt')
handno=XIDparest(2);
elseif strcmp(window,'ssopt')
handno=XIDss(1,6);
elseif strcmp(window,'men')
handno=XIDplotw(16,1);
end
usd=get(handno,'UserData');
if strcmp(arg(1:3),'dlg')
no_of_opt=length(optno);
tag=['sitb',int2str(22+no_of_opt)];
f=findobj(get(0,'children'),'flat','tag',tag);
%figname=idlaytab('figname',22+no_of_opt);
if isempty(f)
iduistat('Opening the dialog box...')
layout
butw=mStdButtonWidth;buth=mStdButtonHeight;
etf = mEdgeToFrame;
FigW = iduilay2(3);
f = figure('vis','off',...
'NumberTitle','off','HandleVisibility','callback',...
'Color',get(0,'DefaultUIControlBackgroundColor'),'tag',tag);
XIDopt(1,no_of_opt) = f;
set(f,'Menubar','none');
% LEVEL1
pos = iduilay1(FigW,3);
uicontrol(f,'pos',pos(1,:),'style','frame');
uicontrol(f,'Pos',pos(2,:),'style','push',...
'string','Apply','callback',['iduipoin(1);',...
'iduistat(''compiling...'');',...
'iduiopt(''apply'',''handle'',get(gcf,''UserData''));',...
'iduipoin(2);']);
uicontrol(f,'Pos',pos(3,:),'style','push',...
'callback','set(gcf,''visible'',''off'')','string','Close');
XIDopt(2,no_of_opt)=uicontrol(f,'Pos',...
pos(4,:),'style','push','string','Help');
% LEVEL 2
lev = pos(1,2)+pos(1,4);twono=2*no_of_opt;
pos = iduilay1(FigW,twono,twono,lev,[],3);
uicontrol(f,'pos',pos(1,:),'style','frame');
for boxno=1:no_of_opt
% lev = pos(1,2)+pos(1,4);
XIDopt(boxno*2+1,no_of_opt)=...
uicontrol(f,'pos',pos(twono+3-2*boxno,:),'style','edit',...
'HorizontalAlignment','left','backgroundcolor','white');
XIDopt(boxno*2+2,no_of_opt)=...
uicontrol(f,'pos',pos(twono+2-2*boxno,:),'style','text',...
'HorizontalAlignment','left');
end
poslev=pos(1,2)+pos(1,4);
FigWH=[FigW poslev+mEdgeToFrame];
ScreenPos = get(0,'ScreenSize');
FigPos=[(ScreenPos(3:4)-FigWH)/2 FigWH];
set(f,'pos',FigPos);
set(get(f,'children'),'unit','norm')
laynum=no_of_opt+22;
if length(XIDlayout)>26
if XIDlayout(laynum,3)
eval('set(f,''pos'',XIDlayout(laynum,1:4))','')
end
end
else
figure(f(1))
end
set(XIDopt(1,no_of_opt),'UserData',[handno;no_of_opt],'vis','on')
iduistat('Ready to change options.')
end
if strcmp(arg,'dlg_freq')
set(XIDopt(2,1),'callback','iduihelp(''idfreq.hlp'',''Frequency Values'');')
set(XIDopt(4,1),'string','Enter row vector with frequency values (rad/s)',...
'UserData',number);
set(XIDopt(3,1),'string',deblank(usd(optno,:)),'UserData',optno)
set(XIDopt(1,1),'name','Set Frequency Range')
elseif strcmp(arg,'dlg_nos')
set(XIDopt(1,1),'name', 'Set Number of Samples');
set(XIDopt(2,1),'callback','iduihelp(''idnos.hlp'',''Number of Samples'');')
set(XIDopt(4,1),'string','Number of samples for transient response',...
'UserData',5);
set(XIDopt(3,1),'string',deblank(usd(optno,:)),'UserData',optno)
elseif strcmp(arg,'apply')
no_of_opt=number(2);
for boxno=1:no_of_opt
obj=XIDopt(boxno*2+1,no_of_opt);
optno=get(obj,'UserData');
if strcmp(get(obj,'Style'),'popupmenu')
sl1=int2str(get(obj,'value'));
else
sl1=get(obj,'string');
test = eval(['[',sl1,']'],'-1');
if ~isempty(test),if isstr(test)|test(1)<0 % & what?
errordlg(str2mat('Only positive numbers are acceptable',...
'for this option.'));
set(obj,'string','[]'),return
end,end
end
if isempty(sl1),sl1='[]';end
if isempty(eval(sl1)),sl1='[]';end
[rsl1,csl1]=size(sl1);
[rusd,cusd]=size(usd);
if csl1>cusd
usd=[usd,zeros(rusd,csl1-cusd)];
end
if csl1<cusd
sl1=[sl1,zeros(1,cusd-csl1)];
end
usd(optno,:)=sl1;
end
set(handno,'UserData',usd)
figno=get(XIDopt(4,no_of_opt),'UserData');
type=get(XIDopt(1,no_of_opt),'name');
if ~isempty(figno),if figno>1
if ~strcmp(type,'Set Prediction Horizon'),iduiclpw(figno),end
end,end
if strcmp(type,'Set Prediction Horizon')
men=findobj(XIDplotw(3,1),'tag','predict');
onoff=get(men,'checked');
if isempty(test),kstep=int2str(5);else kstep=deblank(sl1);end
[label,acc]=menulabel([kstep,' step ahead &predicted output ^p']);
set(men,'label',label,'checked',onoff);
if strcmp(onoff,'on'),iduiclpw(3);end
% xax=get(XIDplotw(3,1),'UserData');
end
elseif strcmp(arg,'dlg_ioopt')
set(XIDopt(2,4),'callback','iduihelp(''idioopt.hlp'',''Iteration Options'');');
for kk=1:4
set(XIDopt(2*kk+1,4),'string',deblank(usd(kk,:)),'UserData',kk);
end
set(XIDopt(10,4),'string',...
'Indices of estimated parameters (Default all)','UserData',4)
set(XIDopt(8,4),'string',...
'Maximum number of iterations (Default 10)','UserData',3)
set(XIDopt(6,4),'string',...
'Termination tolerance (Default 0.01)','UserData',2)
set(XIDopt(4,4),'string','Robustification limit (Default 1.6)',...
'UserData',1)
set(XIDopt(1,4),'name',str2mat(...
'Options for Criterion Minimization'))
elseif strcmp(arg,'dlg_lgs')
set(XIDopt(2,1),'callback','iduihelp(''idlgs.hlp'',''Number of Lags'');');
set(XIDopt(1,1),'name','Set Number of Lags')
set(XIDopt(4,1),'string','Number of correlation lags','UserData',6);
set(XIDopt(3,1),'string',deblank(usd(optno,:)),'UserData',optno)
elseif strcmp(arg,'dlg_ph')
set(XIDopt(2,1),'callback','iduihelp(''idpredh.hlp'',''Prediction Horizon'');')
set(XIDopt(1,1),'name','Set Prediction Horizon')
set(XIDopt(4,1),'string','Prediction horizon (in samples)',...
'UserData',3);
set(XIDopt(3,1),'string',deblank(usd(optno,:)),'UserData',optno)%%
elseif strcmp(arg,'dlg_sampff')
set(XIDopt(2,1),'callback','iduihelp(''idsampff.hlp'',''Sample Numbers for Fit'');')
set(XIDopt(1,1),'name','Set Time Span')
set(XIDopt(4,1),'string','MSE fit to be computed over this time span.',...
'UserData',3);
set(XIDopt(3,1),'string',deblank(usd(optno,:)),'UserData',optno)
end