select.m

遗传优化算法

function [child,xmax]=select(father,bounds)
[n,m]=size(father);
f=twtoten(father);
bound=[];
d=[];a=[];b=[];e=[];
j=0;
for i=1:n
    if f(i)>=bounds(1)&f(i)<=bounds(2) 
        j=j+1;
        a(j)=f(i);
        b(j)=zlfun(a(j));
     end
end

s=sum(b);
bound=zeros(j,2);
for i=1:j
    fit(i)=b(i)/s;
    bound(i,2)= bound(i,1)+fit(i);
    bound(i+1,1)= bound(i,2);
end 

for i=1:n
    c=rand;
    for k=1:j
        if c>bound(k,1) & c<=bound(k,2)
            d(i)=a(k);
            e(i)=zlfun(a(k));
        end
    end
end

xmax1=max(b);
for i=1:j
    if xmax1==b(i)
    xmax=a(i);
    break;
    end
end
for i=1:n
    if xmax1==e(i)
        break;
    end
    if i==n
        xmin1=min(e);
        for k=1;n
            if xmin1==e(k)
              d(k)=xmax;
              break;
            end
        end
    end
end
child=d;