miden_ch.m

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

%
%	setting up screen
%

% Retain compatability with costback
main=w1;

	clf;
	figure(main);
	set(main,'Name','1st order plant identification');

	pic_ax = axes('Position',[0.37 0.45 0.55 0.3]);
	pic_ax1 = axes('Position',[0.37 0.05 0.55 0.3]);

	input_data=data(:,input_var);
	num_inputs=size(input_data,2);
	output_data=data(:,output_var);
	time_data=data(:,time_var);

	input_name='';
	output_name='';
	time_name='';

	input_fit=1;

% Set up push buttons to decide which variable to identify on

if num_inputs>=1;
	input_ch(1,1)=uicontrol(main,...
		'Style','Push',...
		'Position',[50 420 60 25],...
		'String',input_name(1,:),...
		'Visible','Off',...
		'Enable','Off',...
		'Callback',[...
			'input_fit=1;',...
			'muppet;']);
end;
if num_inputs>=2;
	input_ch(2,1)=uicontrol(main,...
		'Style','Push',...
		'Position',[110 420 60 25],...
		'String',input_name(2,:),...
		'Visible','Off',...
		'Enable','Off',...
		'Callback',[...
			'input_fit=2;',...
			'muppet;']);
end;
if num_inputs>=3;
	input_ch(3,1)=uicontrol(main,...
		'Style','Push',...
		'Position',[170 420 60 25],...
		'String',input_name(3,:),...
		'Visible','Off',...
		'Enable','Off',...
		'Callback',[...
			'input_fit=3;',...
			'muppet;']);
end;
if num_inputs>=4;
	input_ch(4,1)=uicontrol(main,...
		'Style','Push',...
		'Position',[230 420 60 25],...
		'String',input_name(4,:),...
		'Visible','Off',...
		'Enable','Off',...
		'Callback',[...
			'input_fit=4;',...
			'muppet;']);
end;
if num_inputs>=5;
	input_ch(5,1)=uicontrol(main,...
		'Style','Push',...
		'Position',[290 420 60 25],...
		'String',input_name(5,:),...
		'Visible','Off',...
		'Enable','Off',...
		'Callback',[...
			'input_fit=5;',...
			'muppet;']);
end;
if num_inputs>=6;
	input_ch(6,1)=uicontrol(main,...
		'Style','Push',...
		'Position',[350 420 60 25],...
		'String',input_name(6,:),...
		'Visible','Off',...
		'Enable','Off',...
		'Callback',[...
			'input_fit=6;',...
			'muppet;']);
end;
if num_inputs>=7;
	input_ch(7,1)=uicontrol(main,...
		'Style','Push',...
		'Position',[410 420 60 25],...
		'String',input_name(7,:),...
		'Visible','Off',...
		'Enable','Off',...
		'Callback',[...
			'input_fit=7;',...
			'muppet;']);
end;
if num_inputs>=8;
	input_ch(8,1)=uicontrol(main,...
		'Style','Push',...
		'Position',[470 420 60 25],...
		'String',input_name(8,:),...
		'Visible','Off',...
		'Enable','Off',...
		'Callback',[...
			'input_fit=8;',...
			'muppet;']);
end;
if num_inputs>=9;
	input_ch(9,1)=uicontrol(main,...
		'Style','Push',...
		'Position',[530 420 60 25],...
		'String',input_name(9,:),...
		'Visible','Off',...
		'Enable','Off',...
		'Callback',[...
			'input_fit=9;',...
			'muppet;']);
end;
for i=1:1:num_inputs
	set(input_ch(i,1),'Enable','On');
	set(input_ch(i,1),'Visible','On');
end

% Initialise data for next bit

uss = input_data(1,:);
yss = output_data(1,1);

% Set initial slider values

min_vector=zeros(3,num_inputs);
max_vector=zeros(3,num_inputs);
curr_vector=zeros(3,num_inputs);
for i=1:1:num_inputs;
	max_vector(1,i)=2*max(output_data)/max(input_data(:,i));
	max_vector(2,i)=50;
	max_vector(3,i)=50;
end

miden;