da_front.&&&

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

%
% Set up the screen
%
clg;
drawnow;
if data_loaded==1
	set(w1,'NumberTitle','off','Name',['DATA ANALYSIS TOOLBOX - Current data file=' dfile_name]);
else
	set(w1,'NumberTitle','off','Name','DATA ANALYSIS TOOLBOX - Version 4.0+');
end

%
%	Top Level Menu
%

  f1=uimenu(w1,'Label','&Management');

    f11=uimenu(f1,'Label','&Load Data','Callback',[
			'da_front;',...
			'[data 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','&Quit','separator','on','callback','da_quit');




  f2=uimenu(w1,'Label','&Transform');

%   f21=uimenu(f2,'Label','&Filters');

    f22=uimenu(f2,'Label','&Steady State Extraction','callback',[
		'if data_loaded == 1;',...
			'if sum(output_var) > 0;',...		
				'da_ssex;',...
			'else;',...
				'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e4);',...
			'end;',...
		'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','&Plot Data');        
       f311=uimenu(f31,'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;',...