计算坐标

pooc

x1 ＝ 140
y1 ＝ 135
x2 ＝ 138
y2 ＝ 110

已经知道 X1 Y1 坐标和X2 Y2坐标，能计算出X2 Y2的点在X1 Y1的哪个方向吗

TEX

https://bbs.125.la/forum.php?mod ... 8%E7%94%BB%E6%9D%BF

.版本 2

.子程序 _计算直线角度, 双精度小数型, ,
.参数 起点横坐标, 双精度小数型, ,
.参数 起点纵坐标, 双精度小数型, ,
.参数 终点横坐标, 双精度小数型, ,
.参数 终点纵坐标, 双精度小数型, ,
.参数 反转角度方向, 逻辑型, 可空 ,
.参数 小数精度, 整数型, 可空 , 四舍五入时小数点右边保留的位数，如果本参数被省略默认为 5

内存画板可以计算角度

阿仁同学

x2-x1 小于0等于左 大于0等于右   y2-y1小于0等于上  大于0等于下   然后计算等于 左上方

awq130

.版本 2

.子程序 方向, 整数型, 公开
.参数 所在坐标, 类型_点位
.参数 目的地, 类型_点位
.参数 剩余角度, 小数型, 参考 可空
.局部变量 i, 整数型
.局部变量 临时角度, 整数型
.局部变量 j, 整数型

.如果真 (所在坐标.横向 ＝ 目的地.横向 且 所在坐标.纵向 ＝ 目的地.纵向)
    返回 (0)
.如果真结束
.如果真 (目的地.横向 ≤ 所在坐标.横向 且 目的地.纵向 ≤ 所在坐标.纵向)  ' 左上
    临时角度 ＝ 270 ＋ 求角度 (所在坐标.纵向 － 目的地.纵向, 所在坐标.横向 － 目的地.横向) ÷ 2
.如果真结束
.如果真 (目的地.横向 ≥ 所在坐标.横向 且 目的地.纵向 ≤ 所在坐标.纵向)  ' 右上
    临时角度 ＝ 90 － 求角度 (所在坐标.纵向 － 目的地.纵向, 目的地.横向 － 所在坐标.横向) ÷ 2
.如果真结束
.如果真 (目的地.横向 ≤ 所在坐标.横向 且 目的地.纵向 ≥ 所在坐标.纵向)  ' 左下
    临时角度 ＝ 270 － 求角度 (目的地.纵向 － 所在坐标.纵向, 所在坐标.横向 － 目的地.横向) ÷ 2
.如果真结束
.如果真 (目的地.横向 ≥ 所在坐标.横向 且 目的地.纵向 ≥ 所在坐标.纵向)  ' 右下
    临时角度 ＝ 90 ＋ 求角度 (目的地.纵向 － 所在坐标.纵向, 目的地.横向 － 所在坐标.横向) ÷ 2
.如果真结束
.计次循环首 (8, i)
    .如果 (i ＝ 1)
        .如果真 (临时角度 ≥ 338 且 临时角度 ≤ 360 或 临时角度 ≥ 0 且 临时角度 ≤ 23)
            j ＝ i
        .如果真结束

    .否则
        .如果真 (临时角度 ≥ i × 45 － 45 － 22 且 临时角度 ≤ i × 45 － 45 ＋ 23)
            j ＝ i
        .如果真结束

    .如果结束

.计次循环尾 ()
剩余角度 ＝ 临时角度 － (j － 1) × 45
返回 (j)

.子程序 求角度, 小数型, 公开
.参数 对边, 小数型
.参数 邻边, 小数型

返回 (求反正切 (对边 ÷ 邻边) ÷ 3.1415926535 × 360)

之前收藏的，希望对你有用

pooc

阿仁同学 发表于 2023-7-19 16:54
x2-x1 小于0等于左 大于0等于右   y2-y1小于0等于上  大于0等于下   然后计算等于 左上方 ...

谢谢，帮忙，他们字多我先研究下他们的，

l7518597

分成4个象限  通过x1和x2、y1和y2来确定象限

pooc

l7518597 发表于 2023-7-19 17:44
分成4个象限  通过x1和x2、y1和y2来确定象限

着实没看懂···

pooc

awq130 发表于 2023-7-19 17:26
.版本 2

.子程序 方向, 整数型, 公开

.版本 2
.支持库 spec

x1 ＝ 140
y1 ＝ 135
x2 ＝ 138
y2 ＝ 110

A1.横向 ＝ 140
A1.纵向 ＝ 135
A2.横向 ＝ 138
A2.纵向 ＝ 110

调试输出 (方向 (A1, A2, ))

调试结果是1