如何用Mathematica寻找哈密顿回路

1、首先，我们需要定义两个列表。一个是边，一个是边的权重（比如距离）定义边中间的链接符号是UndirectedEdge的简记。输入方式是[ESC] ue [ESC]

2、然后，我们可以根据这两个列表的数据画图。EdgeLabels选项"E蟠校盯昂dgeWeight"稆糨孝汶;可以在图上显示边的权重。VertexLabels选项"Name"可以显示顶点名称。由于前面用1,2,3...编号代表定点，因此顶点名称这里就是1,2,3...

3、使用FindShortestTour函数来寻找最短哈密顿行迹。该函数返回结果是{15, {1, 4, 5, 6, 3, 2, 1}}，即{总长度，{点序列}}

4、Print函数显示该哈密顿序列的长度。

5、使用HighlightGraph突出显示图。该函数第一个参数是前面画好的图，第二个参数是要突出显莲镘拎扇示的部分，这里用PathGraph路径图作为第二个参数。使用Manipulate函数创建交互。