自适应遗传算法 求解函数最小值（Matlab程序）

% The select oprator function % function new_pop=select(pop,ada) ada_sum=0; ada_temp=0; r=0; i=0;j=0; for i=1:40 ada_sum=ada_sum+adapt(i); end for i=1:39 %选择39次，最后一个个体留给历代最优解 r=rand*ada_sum; %随机产生一个数 ada_temp=0; %初始化累加值为0 j=0; while(ada_temp<r) j=j+1; ada_temp=ada_temp+adapt(j); end %退出循环时的j值即为被选择的个体序号 % if j>40 % j=40; % end for k=1:10 new_pop(i,k)=pop(j,k); end end % 最优解复制 for i=1:10 new_pop(40,i)=best_individual(i); end %将选择产生的新群体复制给pop种群 for i=1:40 for j=1:10 pop(i,j)=new_pop(i,j); end end clear i; clear j; clear k; clear r; clear ada_temp;