da_front.&&&

王小平《遗传算法——理论、应用与软件实现》随书光盘

		'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');
	f441=uimenu(f44,'Label','&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_genls;',...
			'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;']);
	f442=uimenu(f44,'Label','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_genld;',...
			'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;']);
	f443=uimenu(f44,'Label','Non-Linear &Static','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_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;']);

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: [phone] Ext 7241                     '
    'e-mail  [e-mail]                    '];

%
% 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                                  '];