ga_binary.asv

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

function [bestPI, bestChro]=GA_binary(objFun,Ranges,N_gen,N_chro,N_bit,...
                                      SelectPert,MutateRate);
% GA_binary.m

rand('state',sum(100*clock));
M=N_chro; N=N_bit; last=N_gen;
M2=2*ceil(SelectPert*N/2);
nmuts=MutateRate*N*(M-1);
popu=round(rand(M,N));

for ib=1:last
    chro=GA_bit2num(pop
    cost=feval(objFun,chro);
    [cost,ind]=sort(cost);
    popu=popu(ind(1:M2,:));
    [ib cost(1)]
    
    cross=ceil((N-1)*rand(M2,1));
    
    for ic=1:2:M2
        popu(ceil(M2*rand),1:cross)=popu(ic,1:cross);
        popu(ceil(M2*rand),1:cross)=popu(ic,1:cross);
        popu(ceil(M2*rand),1:cross)=popu(ic,1:cross);
        popu(ceil(M2*rand),1:cross)=popu(ic,1:cross);
    end
    
    for ic=1:nmuts
        ix=ceil(M*rand);
        iy=ceil(N*rand);
        popu(ix,iy)=1-popu(ix,iy);
    end
    
end