高速穷尽列出任意连通图的哈密顿圈第三步
2014-10-31 13:28
225 查看
第三步 从节点(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
运行至此可以得到这样一个结果,
以后还要进行第二个节点进入哈密顿链的运行
做一些初始化:
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
运行至此可以得到这样一个结果,
以后还要进行第二个节点进入哈密顿链的运行
相关文章推荐
- 高速穷尽列出任意连通图的哈密顿圈第一步
- 高速穷尽列出任意连通图的哈密顿圈第二步
- 任意560个点的任意连通图的哈密顿圈
- 任意六十个点连通图的货郎担回路和马步哈密顿圈
- poj Transferring Sylla(怎样高速的推断一个图是否是3—连通图,求割点,割边)
- 560个点的任意联通图哈密顿圈
- 任意连通图的哈密顿回路计算流程
- 7-6 列出连通集
- 06-图1 列出连通集
- bfs----判断无向简单图中任意两点是否连通
- 图论BFS DFS 列出连通集
- 5-6 列出连通集
- 图的基本操作:建立图,DFS,BFS-06-图1 列出连通集
- 06-图1 列出连通集
- 进一步提升高速穷尽哈密顿回路的方法
- 从1..n中间选取任意组合,其和为m,列出所有组合的算法。
- 二次遍历法高速提取连通图,OpenCV接口版本
- 从1..n中间选取任意组合,其和为m,列出所有组合的算法。
- C语言(高速算法)去除二值图中的小面积连通区域
- Java递归实现输入任意目录,列出文件以及文件夹