delrepeat.m

来自「求解TSP问题的遗传算法matlab程序」· M 代码 · 共 21 行

function [Road1,Dist1]=delrepeat(Road,Dist)
%删掉重复数据
%Dist升序
[Dist,loc]=sort(Dist);
sizeR=size(Road);
Dist1(1)=Dist(1);
Road1(1,:)=Road(loc(1),:);
k=2;
for i=2:sizeR(1) 
    if Dist(i)~=Dist(i-1)%路长不同
        Road1(k,:)=Road(loc(i),:); Dist1(k)=Dist(i); k=k+1;
    elseif sum(Road(loc(i),:)==Road(loc(i-1),:))~=sizeR(2)%路不同
        Road1(k,:)=Road(loc(i),:); Dist1(k)=Dist(i); k=k+1;
    end
end