select2.m

基于GAACA的协同多目标攻击空战决策算法

function selectpop=select2(fit,pop)

   mpop=length(fit); %种群规模
   
   [orderfit,indexfit]=sort(fit);     
   fit_sum=sum(fit);
   fit_size=(orderfit/fit_sum)*mpop;
   fit_s=round(fit_size);
   
   %%%%%%%% 当四舍五入产生了总遗传数误差时 %%%%%%%%
   num=cumsum(fit_s);
   if num(mpop)<mpop
       fit_s(mpop)=fit_s(mpop)+(mpop-num(mpop));  %遗传总数小于种群规模数时，把复制概率最大的串多复制
   end
  n=0;
   if num(mpop)>mpop
       for kk=1:(mpop/2)                          %遗传总数大于种群规模数时，从复制概率最小的串开始每个串少复制一个
          if n<(num(mpop)-mpop)& fit_s(kk)>=1
                fit_s(kk)=fit_s(kk)-1;
                n=n+1;     
          end
       end
   end

   %%%%%%%% 重新复制生成新种群 %%%%%%%%
   k=1;
   for i=1:mpop
       if fit_s(i)>=1
          for j=1:fit_s(i)
              selectpop(k,:)=pop(indexfit(i),:); 
              k=k+1;
          end
       end
   end