crover.m

收集的GA的一些源程序

function [out1,out2]=crover(in1,in2,pcross)
%
% [out1,out2]=crover(in1,in2,pcross);
%
% Crosses two input members with a probability
% of crossover of pcross (<1.0)
%

if rand(1)<pcross
	[D L]=size(in1);
	cloc=fix(rand(1)*L);
	out1=[in1(1,1:cloc) in2(1,cloc+1:L)];
	out2=[in2(1,1:cloc) in1(1,cloc+1:L)];
else
	out1=in1;
	out2=in2;
end