ga_linear_fit_scale.m

其中提到遺傳學的程式碼與應用提供給次淚相向的研究者參考下載

% Linear fitness scaling
% Given cm, fitness, we find sfitness
function sfitness=GA_linear_fit_scale(fitness,cm)

if cm>=1.5 & cm<=3    % cm=1.5 to 3 is reasonable.
   fave=mean(fitness);
   fmax =max(fitness);
   if abs(fmax-fave)>0.1
      a=(cm-1)*fave/(fmax-fave);     %formulae only
      b=(1-a)*fave;
      sfitness=a*fitness+b;
   else
      sfitness=fitness;
   end;   
else
   sfitness=fitness; 
end;

% if negative fitness, change it to zero.
I=find(sfitness<=0);
if ~isempty(I)
   sfitness(I)=0*ones(size(I));
end;