Au3的A*星寻路算法与示例
因有这需求,今天由时间整理并百度翻译了一下说明。
源文来源于Au3的英文站。
修复了一个小小错误,并分离成GUI与UDF。可单独调用。
下来下个小小示例:
```
#include<JY_A_Star.au3>
Global $heuristic = 0; 1曼哈顿算法 0 欧几里得算法
Global $allow_diagonals_Boolean = 1 ; 1 允许对角线移动
Global $estimate = 1.001 ; 1.001 = 用于高估搜索最少路径 1 = 平常
Dim $data[5][5] = [ ["x", "x", "x", "x", "x"], _ ;S 起点
["x", "s", "0", "x", "x"], _ ;0 能走的地方
["x", "x", "0", "0", "x"], _ ; G 终点
["x", "x", "0", "g", "x"], _ ; X 就是不能走的地方
["x", "x", "x", "x", "x"]] ; 注: 边需要 X 组成
_CreateMap($data, 5, 5) ;将数组转节点地图
Dim $path = _FindPath($data, $data[1][1], $data[3][3]) ;从左下角 0 起点 开始 x,y 失败返回0
_ArrayDisplay($path)
```
其它就免费分享与大家,如果觉得我这付出对你们有帮助,那也可以点右边的打赏杯奶茶咖啡吧!!
发表评论
木有头像就木JJ啦!还木有头像吗?点这里申请属于你的个性Gravatar头像吧!