📄 da_front.m
字号:
%
% Set up the screen
%
clg;
drawnow;
if data_loaded==1
set(w1,'NumberTitle','off','Name',['SORG Modelling and Analysis Toolbox Current data file = ' dfile_name]);
else
set(w1,'NumberTitle','off','Name','SORG Modelling and Analysis Toolbox - Version 4.0+');
end
%
% Top Level Menu
%
f1=uimenu(w1,'Label','&Management');
f11=uimenu(f1,'Label','&Load Data','Callback',[
'da_front;',...
'[data tags data_loaded dfile_name]=da_load;',...
'if data_loaded == 1;',...
'[D L]=size(data);',...
'include_var=ones(1,L);',...
'output_var=zeros(1,L);',...
'input_var=ones(1,L);',...
'da_front;',...
'text1=da_text(w1,250,300,100,15,''Data loaded OK'',[1 1 1],[0 0 1]);',...
'end;']);
% f12=uimenu(f1,'Label','&Save Data','Callback',[
% 'if data_loaded == 1;',...
% 'savedata;',...
% 'end;']);
f13=uimenu(f1,'Label','&View Data','separator','on','Callback',[
'if data_loaded ==1;',...
'da_view;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f14=uimenu(f1,'Label','&Data and I/O Selection','Callback',[
'if data_loaded == 1;',...
'[D L]=size(data);',...
'if L < 25;',...
'da_sel10;',...
'else;',...
'da_selec;',...
'end;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f15=uimenu(f1,'label','V&iew I/O tags','callback',[
'if data_loaded==1;',...
'da_shtgs;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f16=uimenu(f1,'Label','&Quit','separator','on','callback','da_quit');
f2=uimenu(w1,'Label','&Transform');
% f21=uimenu(f2,'Label','&Filters');
f21=uimenu(f2,'Label','&Data Cut','callback',[
'if data_loaded ==1;',...
'da_cut;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f22=uimenu(f2,'Label','&Filters');
f221=uimenu(f22,'Label','&First Order Filter','Callback',[
'if data_loaded ==1;',...
'func_typ=1;da_filt;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f222=uimenu(f22,'Label','&Browns Linear Smoothing','Callback',[
'if data_loaded ==1;',...
'func_typ=2;da_filt;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f223=uimenu(f22,'Label','Bi-&Directional Exponential Filter','Callback',[
'if data_loaded ==1;',...
'func_typ=3;da_filt;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f224=uimenu(f22,'Label','B&i-Directional Browns Smoother','Callback',[
'if data_loaded ==1;',...
'func_typ=4;da_filt;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
% f225=uimenu(f22,'Label','&Spike Removal Algorithm','Callback',[
% 'if data_loaded ==1;',...
% 'da_spike;',...
% 'else;',...
% 'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
% 'end;']);
f226=uimenu(f22,'Label','Data &Validation Algorithm','Callback',[
'if data_loaded ==1;',...
'func_typ=5;da_filt;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f23=uimenu(f2,'Label','&Mathematical transforms','Callback',[
'if data_loaded == 1;',...
'da_trans;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f24=uimenu(f2,'Label','&Timeshift data','callback',[
'if data_loaded == 1;',...
'da_tshft;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f3=uimenu(w1,'Label','&Analysis');
f31=uimenu(f3,'Label','&2-D Scatter Plot','callback',[
'if data_loaded == 1;',...
'da_2dsc;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
% f312=uimenu(f31,'Label','&LOWESS Scatter Plot');
f32=uimenu(f3,'Label','&Histogram','callback',[
'if data_loaded == 1;',...
'da_hist;',...
'end;']);
f34=uimenu(f3,'Label','&Correlation');
f341=uimenu(f34,'Label','&Cross/Auto Correlation','callback',[
'if data_loaded == 1;',...
'da_xcor;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f343=uimenu(f34,'Label','&Partial Correlation','callback',[
'if data_loaded == 1;',...
'[D L]=size(data);',...
'if L > 2;',...
'da_pcor;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e5);',...
'end;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f35=uimenu(f3,'Label','P&CA','Callback',[
'if data_loaded==1;',...
'da_pca;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f4=uimenu(w1,'Label','&Models');
f41=uimenu(f4,'Label','&Multiple Linear Regression','Callback',[
'if data_loaded == 1;',...
's=std(pcincl(data,include_var,output_var));',...
'if sum(output_var) >0 & data_loaded ==1 & min(s) ~=0;',...
'da_lsqs;',...
'elseif min(s) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e1);',...
'elseif sum(output_var) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e3);',...
'end;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f42=uimenu(f4,'Label','&Partial Least Squares','Callback',[
'if data_loaded == 1;',...
's=std(pcincl(data,include_var,output_var));',...
'if sum(output_var) >0 & data_loaded ==1 & min(s) ~=0 & pls_present ==1;',...
'da_pls;',...
'elseif min(s) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e1);',...
'elseif sum(output_var) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e3);',...
'elseif pls_present == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e7);',...
'end;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f43=uimenu(f4,'Label','P&rincipal components regression','Callback',[
'if data_loaded == 1;',...
's=std(pcincl(data,include_var,output_var));',...
'if sum(output_var) >0 & data_loaded ==1 & min(s) ~=0;',...
'da_pcr;',...
'elseif min(s) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e1);',...
'elseif sum(output_var) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e3);',...
'end;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f44=uimenu(f4,'Label','&Evolutionary models');
f443=uimenu(f44,'Label','Non-Linear &Static','Callback',[
'if data_loaded == 1;',...
's=std(pcincl(data,include_var,output_var));',...
'if sum(output_var) >0 & data_loaded ==1 & min(s) ~=0;',...
'da_genns;',...
'elseif min(s) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e1);',...
'elseif sum(output_var) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e3);',...
'end;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f444=uimenu(f44,'Label','&Non-Linear Dynamic','callback',[
'if data_loaded == 1;',...
's=std(pcincl(data,include_var,output_var));',...
'if sum(output_var) >0 & data_loaded ==1 & min(s) ~=0;',...
'da_gennd;',...
'elseif min(s) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e1);',...
'elseif sum(output_var) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e3);',...
'end;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f445=uimenu(f44,'Label','Dynamic 1st order Linear &PCR','separator','on','callback',[
'if data_loaded == 1;',...
's=std(pcincl(data,include_var,output_var));',...
'if sum(output_var) >0 & data_loaded ==1 & min(s) ~=0;',...
'da_glpc1;',...
'elseif min(s) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e1);',...
'elseif sum(output_var) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e3);',...
'end;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f446=uimenu(f44,'label','Dynamic Ne&ural Net','separator','on','callback',[
'if data_loaded == 1;',...
's=std(pcincl(data,include_var,output_var));',...
'if sum(output_var) >0 & data_loaded ==1 & min(s) ~=0;',...
'da_gan;',...
'elseif min(s) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e1);',...
'elseif sum(output_var) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e3);',...
'end;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f447=uimenu(f44,'label','&Back out dynamics','separator','on','callback',[
'if data_loaded == 1;',...
's=std(pcincl(data,include_var,output_var));',...
'if sum(output_var) >0 & data_loaded ==1 & min(s) ~=0;',...
'ga_remd;',...
'elseif min(s) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e1);',...
'elseif sum(output_var) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e3);',...
'end;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f447=uimenu(f44,'label','Static G&P','separator','on','callback',[
'if data_loaded == 1;',...
's=std(pcincl(data,include_var,output_var));',...
'if sum(output_var) >0 & data_loaded ==1 & min(s) ~=0;',...
'da_gp1;',...
'elseif min(s) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e1);',...
'elseif sum(output_var) == 0;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e3);',...
'end;',...
'else;',...
'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
'end;']);
f45=uimenu(f4,'Label','&Neural networks');
f6=uimenu(w1,'Label','A&bout');
f61=uimenu(f6,'Label','&Info','CallBack','dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Information'',''Textstring'',e6);');
%
% Set up error strings
%
%
% Variable stays constant
%
e1=[' One or more of your variables'
' has a standard deviation of'
' zero. Use the "View data"'
' option in the Data Management'
' menu to determine which one '
' of your variables is causing '
' this problem. This variable '
' must be excluded from the '
' model building process using'
' the "Select I/Os" option in '
' the Data Management menu. '];
%
% No data loaded
%
e2=[' You have not loaded any data'
' into the programme yet. This'
' means that analysing it is'
' going to be tricky .... '];
%
% No output is defined
%
e3=[' You have not defined an output'
' variable. It is essential that'
' you define at least one output'
' variable in order to use any'
' of the Model Fitting options. '];
%
% No output is defined for the clustering
%
e4=[' You have not defined an output'
' variable. It is essential that'
' you define at least one output'
' variable in order to use the'
' steady state extraction option'];
%
% Not enough data for the partial correltion option
%
e5=[' There are not enough columns of'
' data for the partial correlation'
' algorithm to function. '
' Load in a new data file with at'
' least 3 columns of data '];
%
% About option
%
e6=[' DATA ANALYSIS TOOLBOX V3.00 '
' '
'(c) 1994-1996 H.G.Hiden A.Mitchell M.Willis '
'Dept. Chemical & Process Engineering '
'Newcastle University '
'Tel: 091 222 6000 Ext 7241 '
'e-mail H.G.Hiden@ncl.ac.uk '];
%
% PLS not present
%
e7=['The PLS toolbox does not appear to be present'
'This toolbox is essential for the PLS model '
'building option. '
'If the PLS toolbox is installed on this '
'computer ensure that it appears on the MATLAB'
'search path '];
if strt==1
gp_title;
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -