near.m

人工鱼群算法解决旅行商问题,这是在当前互联网上唯一的一个,这个是我自己编的,保证通过

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