数学问题，求解坐标

笨来无一悟

解答
数学问题，求解坐标
https://bbs.125.la/forum.php?mod=viewthread&tid=14786043
(出处: 精易论坛)

(√(a²+b²))×sin[Atan{(A.y-B.y)÷(A.x-B.x)}±Atan{b÷a}]

(√(a²+b²))×cos[Atan{(A.y-B.y)÷(A.x-B.x)}±Atan{b÷a}]

  

子程序名	返回值类型	公开	备 注
找C点
参数名	类 型	参考	可空	数组	备 注
A点X	小数型				基准点
A点Y	小数型				基准点
B点X	小数型				辅助点
B点Y	小数型				辅助点
AD长	小数型				线段a
CD长	小数型				线段b
方向	逻辑型				顺时针=真 逆时针=假

变量名	类 型	静态	数组	备 注
横差	小数型
纵差	小数型
匹配	小数型
角度	小数型			Atan(b÷a)
长度	小数型			AD CD 斜边

横差 ＝ A点X － B点X
纵差 ＝ A点Y － B点Y
匹配 ＝ 求反正切 (纵差 ÷ 横差) × 180 ÷ #pi
匹配 ＝ 匹配 ＋ 选择 (横差 ≥ 0, 180, 选择 (纵差 ≥ 0, 360, 0))  ' 转换成 360度
角度 ＝ 求反正切 (CD长 ÷ AD长) × 180 ÷ #pi
长度 ＝ 求平方根 (AD长 × AD长 ＋ CD长 × CD长)
判断 (方向)  ' b 线段  顺时针 逆时针 方向
匹配 ＝ 匹配 ＋ 角度
匹配 ＝ 匹配 － 角度
如果真 (匹配 ＞ 360)
匹配 ＝ 匹配 － 360
如果真 (匹配 ＜ 0)
匹配 ＝ 匹配 ＋ 360
' 360角 复原为 -90 90角
判断 (匹配 ≥ 270)
匹配 ＝ 匹配 － 360
判断 (匹配 ≥ 180)
匹配 ＝ 匹配 － 180
判断 (匹配 ≥ 90)
匹配 ＝ 匹配 － 180
' 保持原样 不做转换
调试输出 (长度, 匹配)
调试输出 (长度 × 求余弦 (匹配 × #pi ÷ 180), “C点横坐标与A点横坐标关系”)
调试输出 (长度 × 求正弦 (匹配 × #pi ÷ 180), “C点纵坐标与A点纵坐标关系”)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 找C点<br /> .参数 A点X, 小数型, , 基准点<br /> .参数 A点Y, 小数型, , 基准点<br /> .参数 B点X, 小数型, , 辅助点<br /> .参数 B点Y, 小数型, , 辅助点<br /> .参数 AD长, 小数型, , 线段a<br /> .参数 CD长, 小数型, , 线段b<br /> .参数 方向, 逻辑型, , 顺时针=真 逆时针=假<br /> .局部变量 横差, 小数型<br /> .局部变量 纵差, 小数型<br /> .局部变量 匹配, 小数型<br /> .局部变量 角度, 小数型, , , Atan(b÷a)<br /> .局部变量 长度, 小数型, , , AD CD 斜边<br /> <br /> 横差 ＝ A点X － B点X<br /> 纵差 ＝ A点Y － B点Y<br /> 匹配 ＝ 求反正切 (纵差 ÷ 横差) × 180 ÷ #pi<br /> 匹配 ＝ 匹配 ＋ 选择 (横差 ≥ 0, 180, 选择 (纵差 ≥ 0, 360, 0))  ' 转换成 360度<br /> 角度 ＝ 求反正切 (CD长 ÷ AD长) × 180 ÷ #pi<br /> 长度 ＝ 求平方根 (AD长 × AD长 ＋ CD长 × CD长)<br /> .判断开始 (方向)  ' b 线段  顺时针 逆时针 方向<br />     匹配 ＝ 匹配 ＋ 角度<br /> .默认<br />     匹配 ＝ 匹配 － 角度<br /> .判断结束<br /> .如果真 (匹配 ＞ 360)<br />     匹配 ＝ 匹配 － 360<br /> .如果真结束<br /> .如果真 (匹配 ＜ 0)<br />     匹配 ＝ 匹配 ＋ 360<br /> .如果真结束<br /> ' 360角 复原为 -90 90角<br /> .判断开始 (匹配 ≥ 270)<br />     匹配 ＝ 匹配 － 360<br /> .判断 (匹配 ≥ 180)<br />     匹配 ＝ 匹配 － 180<br /> .判断 (匹配 ≥ 90)<br />     匹配 ＝ 匹配 － 180<br /> .默认<br />     ' 保持原样 不做转换<br /> .判断结束<br /> 调试输出 (长度, 匹配)<br /> 调试输出 (长度 × 求余弦 (匹配 × #pi ÷ 180), “C点横坐标与A点横坐标关系”)<br /> 调试输出 (长度 × 求正弦 (匹配 × #pi ÷ 180), “C点纵坐标与A点纵坐标关系”)

放开那只骚鸭

这是干啥用的,可以预测股市么

mingpei2022

6666666666666666666666666

renjianhong48we

感谢分享

pipicool

学习一下

一指温柔

感谢分享

396384183

支持一下

awq130

文西哥 发表于 2023-6-16 16:40
每个G点的位置都有点不一样，这个需要有一定经验才知道怎么找

你最好说的是正经的G

文西哥

h59460 发表于 2023-6-16 16:19
我还以为 是 找G点

每个G点的位置都有点不一样，这个需要有一定经验才知道怎么找

笨来无一悟

h59460 发表于 2023-6-16 16:19
我还以为 是 找G点

这个可以有

h59460

我还以为 是 找G点