ga_scale.m

其中提到遺傳學的程式碼與應用提供給次淚相向的研究者參考下載

% GA_scale.m file
% Find scaling factors Se, Sde and Su for a FLC.

% PenChen Chou, 5-9-2002

clear all
ans=1;
who
fprintf('>>>Start this program [GA_scale.m] now. Please wait!\n');
pause(1)
global MIN_offset MUL_factor
%**********************************************************/
%       User can modify the following in blocks
%**********************************************************/
global MDL Se Sde Su FT IN_main Emin f0408
MIN_offset=12500; MUL_factor=1; IN_main=0; FT=1;
MDL='MD04081B'; Emin=MIN_offset; eval(MDL)
f0408=readfis('f0408');
obj_fcn = 'GA_fscale';	% Objective function
range = [0.01 0.001 20
           10  10   220];	% Range of the input variables
IC=[]; elite=1; 
gen_no=25;
popuSize=35;
bit_n=50;
xover_rate=0.8;
mutate_rate=0.05;

%************************************************************
% call GA_genetic
tic
[popu, popu_real, fcn_value, upper, average,...
    lower, BEST_popu, popuSize, gen_no, para, best_pi,...
    bit_n, xover_rate, mutate_rate]=...
  GA_genetic(obj_fcn, range, IC, elite, gen_no, popuSize,...
    bit_n, xover_rate, mutate_rate);
t=toc/60;
fprintf('==>  Computation time is (%.2f) minutes.\n\n',t);            
            
% Plot the final plot and data
%Se=0.5;Sde=0.1;Su=100;para=[Se Sde Su];
%Se=0.312;Sde=0.0343;Su=38.24;para=[Se Sde Su];
IN_main=1; GA_fscale(para);