objf.m

来自「遗传算法实现50维函数优化」· M 代码 · 共 23 行

%计算适应度函数

function [f,p]=objf(s);

inn=size(s,1);   %有inn个个体
bn=size(s,2);    %个体长度为bn

for i=1:inn
   x=s(i,:);  
   f(i)=ft(x);  %计算函数值，即适应度
end
f=f';

%计算选择概率
fsum=sum(f.*f);
ps=f.*f/fsum;

%计算累积概率
p(1)=ps(1);
for i=2:inn
   p(i)=p(i-1)+ps(i);
end
p=p';