pleaseopen 发表于 2006-10-17 10:55

请问谁能提供求解TSP的程序

问题：
1、能量函数是否唯一？
2、求解TSP目前较好的方法有哪些？
3、谁有matlab解TSP的程序呢？
                                                               
                           谢谢。

gghhjj 发表于 2006-10-22 04:30

蚁群算法 遗传算法 模拟退火算法等等很多
论坛也有部分相关程序，自己搜索一下吧

pleaseopen 发表于 2006-10-28 10:39

神经网络的方法是否可以呢？

gghhjj 发表于 2006-10-31 08:01

用神经网络方法解决tsp问题

%d=;
%t0=10;
% tf=0.7;
% =trp(d,t0,tf)
function=trp(d,t0,tf)
=size(d);
L=100*n;
t=t0;
pi0=1:n;
min_f=0;
for k=1:(n-1)
    min_f=min_f+d(pi0(k),pi0(k+1));
end
min_f=min_f+d(pi0(n),pi0(1));
p_min=pi0;
while t>tf
    for k=1:L
      kk=rand;
      =exchange_2(pi0,d);
      r_r=rand;
      if d_f<0
            pi0=pi_1;
      elseif exp(d_f/t)>r_r
            pi0=pi_1;
      else pi0=pi0;
      end
    end
    f_temp=0;
    for k=1:(n-1)
      f_temp=f_temp+d(pi0(k),pi0(k+1));
    end
    f_temp=f_temp+d(pi0(n),pi0(1));
    if min_f>f_temp
      min_f=f_temp;
      p_min=pi0;
    end
    t=0.87*t;
end
f=min_f;
T=p_min;
function =exchange_2(pi0,d)
=size(d);
clear m;
u=rand;
u=u*(n-2);
u=round(u);
if u<2
    u=2;
end
if u>n-2
    u=n-2;
end
v=rand;
v=v*(n-u+1);
v=round(v);
if v<1
    v=1;
end
v=u+v;
if v>n
    v=n;
end
pi_1(u)=pi0(v);
pi_1(v)=pi0(u);
if u>1
    for k=1:(u-1)
      pi_1(k)=pi0(k);
    end
end
if v>(u+1)
    for k=1:(v-u-1)
      pi_1(u+k)=pi0(v-k);
    end
end
if v<n
    for k=(v+1):n
      pi_1(k)=pi0(k);
    end
end
d_f=0;
if v<n
    d_f=d(pi0(u-1),pi0(v))+d(pi0(u),pi0(v+1));
    for k=(u+1):n
      d_f=d_f+d(pi0(k),pi0(k-1));
    end
    d_f=d_f-d(pi0(u-1),pi0(u))-d(pi0(v),pi0(v+1));
    for k=(u+1):n
      d_f=d_f-d(pi0(k-1),pi0(k-1));
    end
else
    d_f=d(pi0(u-1),pi0(v))+d(pi0(u),pi0(1))-d(pi0(u-1),pi0(u))-d(pi0(v),pi0(1));
    for k=(u+1):n
      d_f=d_f+d(pi0(k),pi0(k-1));
    end
    for k=(u+1):n
      d_f=d_f-d(pi0(k-1),pi0(k));
    end
end
pi_r=pi_1;

gghhjj 发表于 2006-10-31 08:03

hopfield解决TSP问题
http://forum.vibunion.com/forum/thread-30110-1-1.html

pleaseopen 发表于 2006-11-2 15:09

谢谢，正在看
:@D
页: [1]
查看完整版本: 请问谁能提供求解TSP的程序