perl语言编写模拟退火算法 求解TSP问题

      使用启发式算法就求解旅行商（TSP）问题是一种现在较常使用的算法，但大多启发式算法程序都是用C或JAVA编写的，还很少有看到用perl编写的源码，所以有些使用Perl的朋友常常为找不到模板而发愁。我是一名在校学生，正好趁最近在学习模拟退火算法，并且喜欢用Perl语言编写，我把写好的程序张贴出来晒晒，希望谢谢大家多多指教！

 

此外，我从TSPLIB（http://comopt.ifi.uni-heidelberg.de/software/TSPLIB95/）下载了一个eil51问题作为测试。

 

源码及其相关问题下载：http://download.csdn.net/source/2208441

 

#!/user/bin/perl
# Author:  WYF
# E-mail:  jiuyizhizhu86@126.com
# Date:    2010-03-31
# ===========================================================================
# Simulated Annealing Algorithm for TSP problem
# ===========================================================================

use strict;
use warnings;

my $project_name;#问题的命名
my $temperature;#初始温度
my $outcycle;#外循环次数
my $innercycle;#内循环次数


print "/n=========================================================&#