da_ssex.m

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

%
% da_ssex.m
%
% Exctracts steady states from a 
% dynamic data set.
%
% Variables used to form clusters
% are defined as input variables
%
% Variables that are clustered
% alongside these are defined
% as output variables
%
% Variables that are to be ignored
% are excluded in the seclect I/Os
% option
%

%
% Sort the screen out
%
da_front;
set(w1,'NumberTitle','off','Name','Steady State Exraction Algoritm');

%
% Define the inputs and outputs
%
y=data(:,output_var);
x=pcincl(data,include_var,output_var);

%
% Ask how many clusters the user would like
%

text1=da_text(w1,50,300,300,15,'How many clusters would you like to use:',[1 1 1],[0 0 1]);
text2=uicontrol(w1,...
	'style','edit',...
	'position',[360 300 50 15],...
	'string','20',...
	'backgroundcolor',[1 0 0],...
	'foregroundcolor',[1 1 1],...
	'callback',[
		'a=get(text2,''string'');',...
		'a=str2num(a);',...
		'if a ~= [];',...
			'set(text2,''string'',num2str(a));',...
		'else;',...
			'set(text2,''string'',''20'');',...
		'end']);

%
% bloody great big 'START' button
%
but1=uicontrol(w1,...
	'style','push',...
	'position',[250 200 100 40],...
	'string','START !',...
	'callback','da_ssgo;');