select.m

自适应小生境递阶遗传算法求解函数优化问题 想对其他函数求解就修改function函数

function [popconm1,popparm1]=select(popcon1,poppar1,parpopsize,n1)
%
%
%
%
%
%
%
%
%

f=poppar1(:,n1+1)./poppar1(:,n1+2); %sharing of fitness
totalfit=sum(f);
if totalfit==0
    prob(1:parpopsize,1)=1/parpopsize;
else
    prob=f/totalfit;
end
prob=cumsum(prob);
rs=sort(rand(parpopsize,1));
fitin=1;
newin=1;
while newin<=parpopsize
    if(rs(newin)<prob(fitin))
        popparm1(newin,:)=poppar1(fitin,:);
        popconm1(newin,:)=popcon1(fitin,:);
        newin=newin+1;
    else
        fitin=fitin+1;
    end
end