计算方位

kobeha008

已知A点坐标  Ax和Ay  和B点坐标 bx和by
什么写A点在B点什么方位  8方向  上下左右 左上左下右上右下

能写个例子吗？

Nolovenodie丶

比楼上好些。。

by626

上上下下,左左右右,ABAB

Ossian

ax-bx＜0 则a在b左边 反之在右边
y同理

kobeha008

Ossian 发表于 2020-2-11 09:58
ax-bx＜0 则a在b左边 反之在右边
y同理

那左上左下右上右下呢？

Ossian

kobeha008 发表于 2020-2-11 10:36
那左上左下右上右下呢？

脑子转下弯啊 组合起来不就是八方位了

东方古墓

C:\Users\Administrator\Desktop\12.png

东方古墓

.版本 2

.子程序 子程序_方位计算, 文本型
.参数 a, 坐标
.参数 b, 坐标, , 坐标原点
.局部变量 c, 坐标
.局部变量 返回文本, 文本型

c.x ＝ a.x － b.x
c.y ＝ a.y － b.y
.判断开始 (c.x ＞ 0 且 c.y ＞ 0)
    返回文本 ＝ 到文本 (a.名称) ＋ “在” ＋ 到文本 (b.名称) ＋ “的右上方”
.判断 (c.x ＞ 0 且 c.y ＝ 0)
    返回文本 ＝ 到文本 (a.名称) ＋ “在” ＋ 到文本 (b.名称) ＋ “的右方”
.判断 (c.x ＞ 0 且 c.y ＜ 0)
    返回文本 ＝ 到文本 (a.名称) ＋ “在” ＋ 到文本 (b.名称) ＋ “的右下方”
.判断 (c.x ＝ 0 且 c.y ＞ 0)
    返回文本 ＝ 到文本 (a.名称) ＋ “在” ＋ 到文本 (b.名称) ＋ “的上方”
.判断 (c.x ＝ 0 且 c.y ＝ 0)
    返回文本 ＝ 到文本 (a.名称) ＋ “在” ＋ 到文本 (b.名称) ＋ “同一位置”
.判断 (c.x ＝ 0 且 c.y ＜ 0)
    返回文本 ＝ 到文本 (a.名称) ＋ “在” ＋ 到文本 (b.名称) ＋ “的下方”
.判断 (c.x ＜ 0 且 c.y ＞ 0)
    返回文本 ＝ 到文本 (a.名称) ＋ “在” ＋ 到文本 (b.名称) ＋ “的左上方”
.判断 (c.x ＜ 0 且 c.y ＝ 0)
    返回文本 ＝ 到文本 (a.名称) ＋ “在” ＋ 到文本 (b.名称) ＋ “的左方”
.判断 (c.x ＜ 0 且 c.y ＜ 0)
    返回文本 ＝ 到文本 (a.名称) ＋ “在” ＋ 到文本 (b.名称) ＋ “的左下方”
.默认

.判断结束
返回 (返回文本)

0.00000000000000000