求助大佬给个例子

tk0056

通过角度和长度计算对应的坐标。
假设 坐标100*100 角度78度。长度 50 计算 对应坐标。

我自己的源码。使用中有问题  求大佬指正。

  

如果真 (0 ＞ 角度)
角度 ＝ 角度 ＋ 360
如果真 (-1 ＞ 角度)
返回 (返回值)


' 调试输出 (角度)
弧度 ＝ 角度 × #pi ÷ 180
' 求余弦 ()
x ＝ 长度 × 求余弦 (弧度)
y ＝ 长度 × 求正弦 (弧度)
返回值.x ＝ x ＋ 中心点.x
返回值.y ＝ y ＋ 中心点.y
调试输出 (“角度”, 角度, x, y, “返回值坐标”, 返回值.x, 返回值.y)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .如果真 (0 ＞ 角度)<br />     角度 ＝ 角度 ＋ 360<br /> <br />     .如果真 (-1 ＞ 角度)<br />         返回 (返回值)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> ' 调试输出 (角度)<br /> 弧度 ＝ 角度 × #pi ÷ 180<br /> ' 求余弦 ()<br /> <br /> <br /> x ＝ 长度 × 求余弦 (弧度)<br /> y ＝ 长度 × 求正弦 (弧度)<br /> <br /> <br /> 返回值.x ＝ x ＋ 中心点.x<br /> <br /> <br /> <br /> 返回值.y ＝ y ＋ 中心点.y<br /> <br /> <br /> <br /> 调试输出 (“角度”, 角度, x, y, “返回值坐标”, 返回值.x, 返回值.y)

原始坐标计算的角度 。

• 原始坐标计算的结果。一个是知道两点的坐标。一个是通过角度计算的坐标。 在去计算下坐标 就发现完全错误。
  • 坐标 (642, 386) 到 (672, 459) 的角度约为 [color=rgb(0, 0, 0) !important]67.4°
  • 坐标 (324, 342) 到 (314, 318) 的角度约为 [color=rgb(0, 0, 0) !important]247.4°
    
  
  

汉族

角度  180 改成  360

1173847128

你是要算啥点A到点B的角度？

tk0056

汉族 发表于 2025-6-1 18:42
角度  180 改成  360

计算弧度的改成360嘛？

走一回

要用双精度小数形，不能用整数型

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
原坐标	整数型		2
弧度	双精度小数型
角度	整数型
xy	双精度小数型		2
返回值	双精度小数型		2

原坐标 ＝ { 100, 100 }
弧度 ＝ 78 × #pi ÷ 180
' 求余弦 ()
xy [1] ＝ 50 × 求余弦 (弧度)
xy [2] ＝ 50 × 求正弦 (弧度)
返回值 [1] ＝ 原坐标 [1] ＋ xy [1]
返回值 [2] ＝ 原坐标 [2] ＋ xy [2]
调试输出 (返回值)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 原坐标, 整数型, , "2"<br /> .局部变量 弧度, 双精度小数型<br /> .局部变量 角度, 整数型<br /> .局部变量 xy, 双精度小数型, , "2"<br /> .局部变量 返回值, 双精度小数型, , "2"<br /> <br /> 原坐标 ＝ { 100, 100 }<br /> 弧度 ＝ 78 × #pi ÷ 180<br /> ' 求余弦 ()<br /> xy [1] ＝ 50 × 求余弦 (弧度)<br /> xy [2] ＝ 50 × 求正弦 (弧度)<br /> 返回值 [1] ＝ 原坐标 [1] ＋ xy [1]<br /> 返回值 [2] ＝ 原坐标 [2] ＋ xy [2]<br /> 调试输出 (返回值)