near.m

来自「人工鱼群算法解决旅行商问题,这是在当前互联网上唯一的一个,这个是我自己编的,保证」· M 代码 · 共 9 行

function Neibor=near(X,FishNum,i,Visual)%本程序返回第i条人工鱼视野范围内的伙伴的标号
Neibor=[];
p=0;
for j=1:FishNum
    if(j~=i&dist(X(i,:),X(j,:))<=Visual)
        p=p+1;
        Neibor(p)=j;
    end
end