加速遗传算法

自己写的一个加速遗传算法的MATLAB的程序

function [y2eval2]=crossing（yeval_ypc）
y2tmp=zeros（1length（y））;  %选取的杂交父代
y2tmp1=zeros（1length（y））; %未选取的杂交父代
evaltmp=zeros（1length（y））;
evaltmp1=zeros（1length（y））;
eval2=zeros（1length（y））;
y2=zeros（1length（y））;
index=0;    
index1=0;
for k=1:N
    r=rand（11）;
    if r        index=index+1;
        y2tmp（index）=y（k）;
        evaltmp（index）=eval_y（k）;
    else index1=index1+1;
        y2tmp1（index1）=y（k）;
        evaltmp1（index1）=eval_y（k）;
    end
end
if mod（index2）~=0          %父辈是奇数则舍去最后一个
    index1=index1+1;
    y2tmp1（index1）=y2tmp（index）;
    evaltmp1（index1）=evaltmp（index）;
    index=index-1;
end
for k=1:2:index
    c=rand（11）;
    y2（k）=c.*y2tmp（k）+（1-c）.*y2tmp（k+1）;
    eval2（k）=evaltmp（k）;
    y2（k+1）=（1-c）.*y2tmp（k）+c.*y2tmp（k+1）;
    eval2（k+1）=evaltmp（k+1）;
end
y2（index+1:end）=y2tmp1（1:index1）;
eval2（index+1:end）=evaltmp1（1:index1）;
end
        

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        757  2012-03-26 09:33  myaga\crossing.asv

     文件        949  2012-03-26 09:36  myaga\crossing.m

     文件        124  2012-03-26 09:17  myaga\evl.m

     文件        705  2012-03-26 09:13  myaga\gamble.asv

     文件        730  2012-03-26 09:15  myaga\gamble.m

     文件         41  2012-03-26 09:42  myaga\muting.m

     文件        555  2012-03-26 09:13  myaga\myaga.asv

     文件        714  2012-03-26 09:40  myaga\myaga.m

     文件        334  2012-03-25 23:27  myaga\paixu.m

     目录          0  2012-03-26 09:42  myaga

----------- ---------  ---------- -----  ----

                 4909                    10