% The select oprator function
% function new_pop=select(pop,ada)

ada_sum=0
ada_temp=0;
r=0;
i=0;j=0;
for i=1:40
    ada_sum=ada_sum+adapt(i);
end

for i=1:39      %選擇39次，最后一個個體留給歷代最優解
    r=rand*ada_sum;  %隨機產生一個數
    ada_temp=0;      %初始化累加值為0
    j=1;
    while(ada_temp<r)
        ada_temp=ada_temp+adapt(j);
        j=j+1;
    end
    %退出循環時的j值即為被選擇的個體序號
    if j>40
        j=40;
    end
        
    for k=1:10
        new_pop(i,k)=pop(j,k);
    end

end

jb wd

%將選擇產生的新群體復制給pop種群
for i=1:40
    for j=1:10
        pop(i,j)=new_pop(i,j);
    end
end

clear i;
clear j;
clear k;
clear r;
clear ada_temp;