www.pudn.com > Closid30.rar > CLGETSES.M, change:1998-09-17,size:1010b


function clgetses 
 
% Matlab function to load a CLOSID identification session. 
 
% Functions called: clobjins 
 
% 01-11-1996 
% (c) Edwin van Donkelaar, Paul Van den Hof 
% Mechanical Engineering Systems and Control Group 
% Delft University of Technology 
% Last update: 05-06-1997. 
 
[filestr,pathstr]=uigetfile('*.cls'); 
 
if filestr~=0 
 
eval(['load ',pathstr,filestr,' -mat']) 
 
 
% Load models 
info=' '; 
for i=1:totmod 
 eval(['clobjins(mod',num2str(i),',''P'',mtext',num2str(i),','' '',mparam',num2str(i),')']) 
end 
 
% Load data 
for i=1:totdat 
% eval(['clobjins(data',num2str(i),',''data'',dtext',num2str(i),')' ]) 
 eval(['clobjins(data',num2str(i),',''data'',dtext',num2str(i),',dinfo',num2str(i),',datp',num2str(i),')' ]) 
end 
 
%Load controllers 
for i=1:totcon 
 eval(['clobjins(con',num2str(i),',''C'',ctext',num2str(i),')' ]) 
end 
 
%Load working and validation data set numbers; %%Added 17-09-1998 
eval(['clobjins(wdatnum,''datw'')']) 
eval(['clobjins(vdatnum,''datv'')']) 
 
end