totaldistanceinrouts.m

来自「一个用于自然数编码遗传算法的工具包indexGA」· M 代码 · 共 25 行

clc

r=[4 7 6 0 0 0 0 0;1 3 5 8 2 0 0 0 ];

load thedist.txt
c=thedist;
     
rts=size(r,1);
sum=0;
for k=1:rts
    tmp=r(k,find(r(k,:)));
    tmp=tmp+1;
    tmp=[1 tmp];       
    n=size(tmp,2);
    for x=1:n-1           
        sum=sum+c(tmp(x),tmp(x+1));
    end
    sum=sum+c(tmp(n),1);
end
sum
val=1/sum;