深度优先生成迷宫VBA版

LONGER286 · 发表于 2012-8-30 17:59

本帖最后由 LONGER286 于 2012-8-30 23:08 编辑

最近在学习，分享一下成果，呵呵

该贴已经同步到 LONGER286的微博

gaozengxun · 发表于 2012-8-30 18:19

我想请问，你的作品能够做什么

LONGER286 · 发表于 2012-8-30 19:50

能生成迷宫啊,玩玩而已啊,编程算法的实现啊

liucqa · 发表于 2012-8-30 20:33

怎么看着走不了呢

LONGER286 · 发表于 2012-8-30 21:24

呵呵,之前没注意单元格的格式清空,搞得文件这么大,修改了一下,

香川群子 · 发表于 2012-8-30 21:39

附件到底有多大啊。

楼主的代码有什么精彩的地方么？

香川群子 · 发表于 2012-8-30 22:25

楼主附件为啥那么大？

我复制了代码，重新上传文件，实际上不大的。楼主把1楼的6个附件全部删了吧。

Moneky · 发表于 2012-8-30 22:34

楼主是学C语言的吗，下面两句在VB/VBA中与期望的不一样。第一句，应该是想声明p，p1两个皆为 jiedan，但实际上只有p1被声明成了jiedian，p是Variant类型，同样的第二句也只有zhodianx被声明成了Integer类型，前面的那些变量也是Variant
Dim p, p1 As jiedian '访问的点
Dim i, z, cou, lux, luy, lux1, luy1, zhodianx As Integer

生成的迷宫表现形式看起来很漂亮，赞！

楼主可以简单介绍一下算法吗？通过开代码研究了一下，被两个集合弄晕了{:soso_e127:}

LONGER286 · 发表于 2012-8-30 23:06

不好意思,因为刚学,试验过程中,很多变量,没删掉,呵呵,算法是这样的,一个单元格有四个墙,用数组MAP(X,Y,4)来表示一个单元格,从入口开始搜索与之相联的单元格,并把他们的相邻的墙打开,然后将他们随机装入PX1,(PX1就是堆笺),(PX是用来装随机生的的单元格的,PX1是用来进行后进先出的笺),一直搜索,直到所有的点都被搜索过就结束,.因为入口点,到出口点肯定是相通的,这样就生成了迷宫

Moneky · 发表于 2012-8-30 23:39

本帖最后由 Moneky 于 2012-8-30 23:42 编辑

LONGER286 发表于 2012-8-30 23:06
不好意思,因为刚学,试验过程中,很多变量,没删掉,呵呵,算法是这样的,一个单元格有四个墙,用数组MAP(X,Y,4)来 ...

多谢，看了N久代码，也明白了个大概。有个小发现，楼主看看我的理解对不对，我觉得你原来代码中的

If lux = lux1 And luy = luy1 Then '判断是否死点(四向皆走过)
px1.Remove (px1.Count) '移除死点，原路返回（从改点路径上的上一点出发搜索）
End If

复制代码

是否应该为：（将lux，luy设定为路径中的上一个节点）

If lux = lux1 And luy = luy1 Then '判断是否死点(四向皆走过)
px1.Remove (px1.Count) '移除死点，原路返回（从改点路径上的上一点出发搜索）？
If px1.Count > 0 Then
lux = px1.Item(px1.Count).x
luy = px1.Item(px1.Count).y
End If
End If

复制代码

		自动登录	找回密码
密码			免费注册

[分享] 深度优先生成迷宫VBA版