第三步 从节点(1)出发的哈密顿链且行且增长
做一些初始化:
jiedianshu = 60: Sheet1.Cells(20, 1) = 1: step = 1: Sheet1.Cells(16, 1) = 1: Sheet1.Cells(15, 1) = 10000
jiedianshu = 60,是一个常量,是连通图的节点个数;
Sheet1.Cells(20, 1) = 1,把节点(1)放入哈密顿链,准备在EXCEL的第20行显示哈密顿链;
step = 1,step 是一个变量,是进入哈密顿链的节点数;
Sheet1.Cells(16, 1) = 1,在EXCEL的第16行显示某个节点的进链标志,Cells(16, 1) = 1,括号里面的1是节点的编号,如果节点15已经进入哈密顿链,那么Cells(16, 15) = 1,;如果节点25还没有进入哈密顿链,那么Cells(16, 25) = 0;
Sheet1.Cells(15, 1) = 10000,是给哈密顿圈预设的路径和,如果以后出现的某个哈密顿圈路径和比10000小,就把这个哈密顿圈显示出来,以后路径和较小的哈密顿圈代替路径和较大的哈密顿圈;刚才这个10000是一个大约数;
哈密顿链且行且变长
a = Sheet1.Cells(20, step),把哈密顿链的前端节点赋予a;
For i = 2 To Sheet1.Cells(1, a) + 1
f = Sheet2.Cells(i, a)
Sheet1.Cells(2, f) = Sheet1.Cells(2, f) - 1
Sheet1.Cells(3, f) = Sheet1.Cells(3, f) + 1
Next
'前面这个循环第一句是把哈密顿链的前端节点周围各点的活动路口数减去1,比如对于节点(1)来说,它周围37,、17、2、18、31的第2行就减少1,表明它们各自周围的活动路口又少了1个;
第二句是把被堵路口数加上1,它周围37,、17、2、18、31的第3行增加1,表明它们各自被堵住的路口又增加了1;
所以我把第2行的值赋予一个叫做shengyulukoushu = Sheet1.Cells(2, a);
huitoushengyulukoushu = 0
For i = 2 To Sheet1.Cells(1, a) + 1
f = Sheet2.Cells(i, a)
If Sheet1.Cells(16, f) = 0 Then
huitoushengyulukoushu = huitoushengyulukoushu + 1
Sheet1.Cells(21 + huitoushengyulukoushu, step) = Sheet2.Cells(i, a)
Sheet1.Cells(18, step) = Sheet1.Cells(18, step) + 1
Else
End If
Next
以后还要进行第二个节点进入哈密顿链的运行