muppet.m

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

%
% File to update the screen when a different input variable is
% selected.
%

% Redraw the input graph
axes(pic_ax1);
cla;
axis([0 time_data(D,1) min(input_data(:,input_fit))-0.25*(max(input_data(:,input_fit))-min(input_data(:,input_fit))) max(input_data(:,input_fit))+0.25*(max(input_data(:,input_fit))-min(input_data(:,input_fit)))]);
plot(time_data,input_data(:,input_fit),'g-');

% Keep data in check
for i=1:1:ID
	modified_u(i,:) = input_data(i,:) - uss;
end
modified_y = output_data - yss;

% Reassign slider values

sl1_value=curr_vector(1,input_fit);
max1=max_vector(1,input_fit);
min1=min_vector(1,input_fit);
set(sl1,'Value',sl1_value);
set(sl1,'Min',min1);
set(sl1,'Max',max1);
set(sl1_min,'String',num2str(min1));
set(sl1_max,'String',num2str(max1));

sl2_value=curr_vector(2,input_fit);
max2=max_vector(2,input_fit);
min2=min_vector(2,input_fit);
set(sl2,'Value',sl2_value);
set(sl2,'Min',min2);
set(sl2,'Max',max2);
set(sl2_min,'String',num2str(min2));
set(sl2_max,'String',num2str(max2));

sl3_value=curr_vector(3,input_fit);
max3=max_vector(3,input_fit);
min3=min_vector(3,input_fit);
set(sl3,'Value',sl3_value);
set(sl3,'Min',min3);
set(sl3,'Max',max3);
set(sl3_min,'String',num2str(min3));
set(sl3_max,'String',num2str(max3));

sl5_value=uss(1,input_fit);
max5=max(input_data(:,input_fit));
min5=min(input_data(:,input_fit));
set(sl5,'Value',sl5_value);
set(sl5,'Min',min5);
set(sl5,'Max',max5);
set(sl5_min,'String',num2str(min5));
set(sl5_max,'String',num2str(max5));

% Change the associated text displayed on the screen
set(in_disp,'String',input_name(input_fit,:));

set(text7,'String',num2str(sl1_value));
set(text11,'String',num2str(sl2_value));
set(text15,'String',num2str(sl3_value));
set(text23,'String',num2str(sl5_value));

drawnow;