%計算適應度函數

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';