2个坐标间 8方向和角度判断源码

独倚斜阳

正右边为0度，顺时针旋转增加角度

  

子程序名	返回值类型	公开	备 注
计算方位角	小数型
参数名	类 型	参考	可空	数组	备 注
人物X	小数型
人物Y	小数型
目标X	小数型
目标Y	小数型

变量名	类 型	静态	数组	备 注
dx	小数型
dy	小数型
弧度	小数型
角度	小数型

dx ＝ 目标X － 人物X
dy ＝ 目标Y － 人物Y
如果真 (dx ＝ 0 且 dy ＝ 0)
返回 (0)  ' 目标与人物重合

如果真 (dx ＝ 0)  ' 处理垂直方向
如果 (dy ＞ 0)
角度 ＝ 90
角度 ＝ 270
返回 (角度)

' 计算 dy/dx 的反正切（单参数）
弧度 ＝ 求反正切 (dy ÷ dx)
角度 ＝ 弧度 × 180 ÷ #pi
' 手动调整四象限
如果 (dx ＜ 0)
角度 ＝ 角度 ＋ 180  ' 第二、第三象限补正
如果 (dy ＜ 0)
角度 ＝ 角度 ＋ 360  ' 第四象限补正




' 限制在0-360度范围
角度 ＝ 角度 ％ 360
返回 (四舍五入 (角度, 3))

.版本 2<br /> <br /> .子程序 计算方位角, 小数型, 公开<br /> .参数 人物X, 小数型<br /> .参数 人物Y, 小数型<br /> .参数 目标X, 小数型<br /> .参数 目标Y, 小数型<br /> .局部变量 dx, 小数型<br /> .局部变量 dy, 小数型<br /> .局部变量 弧度, 小数型<br /> .局部变量 角度, 小数型<br /> <br /> dx ＝ 目标X － 人物X<br /> dy ＝ 目标Y － 人物Y<br /> <br /> .如果真 (dx ＝ 0 且 dy ＝ 0)<br />     返回 (0)  ' 目标与人物重合<br /> .如果真结束<br /> <br /> .如果真 (dx ＝ 0)  ' 处理垂直方向<br />     .如果 (dy ＞ 0)<br />         角度 ＝ 90<br />     .否则<br />         角度 ＝ 270<br />     .如果结束<br />     返回 (角度)<br /> .如果真结束<br /> <br /> ' 计算 dy/dx 的反正切（单参数）<br /> 弧度 ＝ 求反正切 (dy ÷ dx)<br /> 角度 ＝ 弧度 × 180 ÷ #pi<br /> <br /> ' 手动调整四象限<br /> .如果 (dx ＜ 0)<br />     角度 ＝ 角度 ＋ 180  ' 第二、第三象限补正<br /> .否则<br />     .如果 (dy ＜ 0)<br />         角度 ＝ 角度 ＋ 360  ' 第四象限补正<br />     .否则<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> ' 限制在0-360度范围<br /> 角度 ＝ 角度 ％ 360<br /> 返回 (四舍五入 (角度, 3))

正右边为0度 逆时针旋转增加角度

  

子程序名	返回值类型	公开	备 注
计算方位角	小数型
参数名	类 型	参考	可空	数组	备 注
人物X	小数型
人物Y	小数型
目标X	小数型
目标Y	小数型

变量名	类 型	静态	数组	备 注
dx	小数型
dy	小数型
弧度	小数型
角度	小数型

dx ＝ 目标X － 人物X
dy ＝ 人物Y － 目标Y  ' 反转Y轴方向（适配逆时针）
如果真 (dx ＝ 0 且 dy ＝ 0)
返回 (0.000)  ' 目标与人物重合

如果真 (dx ＝ 0)  ' 处理垂直方向
如果 (dy ＞ 0)
返回 (90.000)  ' 正上方（逆时针90°）
返回 (270.000) ' 正下方（逆时针270°）

弧度 ＝ 求反正切 (dy ÷ dx)  ' 计算反正切（单参数）
角度 ＝ 弧度 × 180 ÷ #pi   ' 转换为角度
' 四象限修正逻辑
如果 (dx ＜ 0)
角度 ＝ 角度 ＋ 180      ' 第二、第三象限补正
如果 (角度 ＜ 0)      ' 第四象限补正
角度 ＝ 角度 ＋ 360


' 确保角度在0-360范围内
角度 ＝ 角度 ％ 360
返回 (四舍五入 (角度, 3))   ' 保留三位小数

.版本 2<br /> <br /> .子程序 计算方位角, 小数型, 公开<br /> .参数 人物X, 小数型<br /> .参数 人物Y, 小数型<br /> .参数 目标X, 小数型<br /> .参数 目标Y, 小数型<br /> <br /> .局部变量 dx, 小数型<br /> .局部变量 dy, 小数型<br /> .局部变量 弧度, 小数型<br /> .局部变量 角度, 小数型<br /> <br /> dx ＝ 目标X － 人物X<br /> dy ＝ 人物Y － 目标Y  ' 反转Y轴方向（适配逆时针）<br /> <br /> .如果真 (dx ＝ 0 且 dy ＝ 0)<br />     返回 (0.000)  ' 目标与人物重合<br /> .如果真结束<br /> <br /> .如果真 (dx ＝ 0)  ' 处理垂直方向<br />     .如果 (dy ＞ 0)<br />         返回 (90.000)  ' 正上方（逆时针90°）<br />     .否则<br />         返回 (270.000) ' 正下方（逆时针270°）<br />     .如果结束<br /> .如果真结束<br /> <br /> 弧度 ＝ 求反正切(dy ÷ dx)  ' 计算反正切（单参数）<br /> 角度 ＝ 弧度 × 180 ÷ #pi   ' 转换为角度<br /> <br /> ' 四象限修正逻辑<br /> .如果 (dx ＜ 0)<br />     角度 ＝ 角度 ＋ 180      ' 第二、第三象限补正<br /> .否则<br />     .如果 (角度 ＜ 0)      ' 第四象限补正<br />         角度 ＝ 角度 ＋ 360<br />     .如果结束<br /> .如果结束<br /> <br /> ' 确保角度在0-360范围内<br /> 角度 ＝ 角度 ％ 360<br /> 返回 (四舍五入(角度, 3))   ' 保留三位小数

宁静清澈

66666666666666666666666

神一样的人猫腻

感谢分享

zk474l

3333333333666666666666666666

1184798949

感谢分享

happyweeks365

66666666666666666666666

一C

支持大佬

沐白

支持开源~！感谢分享

hezeyu

谢谢分析哦

独倚斜阳

笨来无一悟 发表于 2025-4-13 02:17
功德无量

很傻叉的

我都内存坐标 内存控制人物视角朝向了 不去调用寻路call走路 跑去模拟按方向走路……