onepointcrox.m

simple GASVM for LS-SVM

function [newVa,newVb]=onePointCrox(Va,Vb)
%--------------------------------------------------------------------------------
%Step1. ∕﹚crossover point
startXorPoint=mod(ceil(rand(1)*10),length(Va) );
if startXorPoint==0
   startXorPoint=startXorPoint+1;
end   
xorLength=mod(floor(rand(1)*10),length(Va));
endXorPoint=startXorPoint+xorLength;
while(endXorPoint>length(Va))
   xorLength=mod(floor(rand(1)*10),length(Va));
   endXorPoint=startXorPoint+xorLength;
end
%--------------------------------------------------------------------------
%Step 2. 秈︽crossover
firstParent=Va;
secondParent=Vb;
%---
subString1=Va(startXorPoint:endXorPoint);
%---
subString2=Vb(startXorPoint:endXorPoint);
%---
firstParent(startXorPoint:endXorPoint)=subString2;
%---
secondParent(startXorPoint:endXorPoint)=subString1;
%--------------------------------------------------------------------------
newVa=firstParent;
newVb=secondParent;