www.pudn.com > geneticbs2rv.rar > RECLIN.M

% RECLIN.M       (RECombination extended LINe) 
% 
% This function performs extended line recombination between 
% pairs of individuals and returns the new individuals after mating. 
% 
% Syntax:  NewChrom = reclin(OldChrom, XOVR) 
% 
% Input parameters: 
%    OldChrom  - Matrix containing the chromosomes of the old 
%                population. Each line corresponds to one 
%                individual 
%    XOVR      - Probability of crossover occurring between pairs 
%                of individuals. (not used, only for compatibility) 
% 
% Output parameter: 
%    NewChrom - Matrix containing the chromosomes of the population 
%               after mating, ready to be mutated and/or evaluated, 
%               in the same format as OldChrom. 
 
%  Author:    Hartmut Pohlheim 
%  History:   26.11.93     file created 
%             06.12.93     change of name of function 
%             25.02.94     clean up 
%             19.03.94     multipopulation support removed 
 
function NewChrom = reclin(OldChrom, XOVR); 
 
% Identify the population size (Nind) and the number of variables (Nvar) 
   [Nind,Nvar] = size(OldChrom); 
 
% Identify the number of matings 
   Xops = floor(Nind/2); 
 
% Performs recombination 
   odd = 1:2:Nind-1; 
   even= 2:2:Nind; 
 
   % position of value of offspring compared to parents 
   Alpha = -0.25 + 1.5 * rand(Xops,1); 
   Alpha = Alpha(1:Xops,ones(Nvar,1)); 
 
   % recombination 
   NewChrom(odd,:)  = OldChrom(odd,:) + Alpha .* (OldChrom(even,:) - OldChrom(odd,:)); 
 
   % the same ones more for second half of offspring 
   Alpha = -0.25 + 1.5 * rand(Xops,1); 
   Alpha = Alpha(1:Xops,ones(Nvar,1)); 
   NewChrom(even,:) = OldChrom(odd,:) + Alpha .* (OldChrom(even,:) - OldChrom(odd,:)); 
 
% If the number of individuals is odd, the last individual cannot be mated 
% but must be included in the new population 
   if rem(Nind,2),  NewChrom(Nind,:)=OldChrom(Nind,:); end 
 
 
% End of function