数学问题，求解坐标

笨来无一悟

慎言 发表于 2023-6-16 11:05
这个值是C点坐标的话不对呀，C(9,12)

按我说的过程解题保证没问题 类似的问题我几年前就搞过了 还要加一个限定条件 b线段在AB线段的哪一侧

笨来无一悟

慎言 发表于 2023-6-16 11:05
这个值是C点坐标的话不对呀，C(9,12)

演算过了 准确无误 你给的图是逆时针的 给的这组数据是顺时针的 我算的时候就按图示的逆时针计算了

补充内容 (2023-6-16 12:14):
.版本 2
.支持库 spec

.子程序 找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
.默认
    ' 保持原样 不做转换
.判断结束
调试输出 (长度, 匹配)
调试输出 (长度 × 求余弦 (匹配 × 180 ÷ #pi), “C点横坐标与A点横坐标关系”)
调试输出 (长度 × 求正弦 (匹配 × 180 ÷ #pi), “C点纵坐标与A点纵坐标关系”)


补充内容 (2023-6-16 12:53):
.版本 2
.支持库 spec

调试输出 (长度 × 求余弦 (匹配 × #pi ÷ 180), “C点横坐标与A点横坐标关系”)
调试输出 (长度 × 求正弦 (匹配 × #pi ÷ 180), “C点纵坐标与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
' 保持原样 不做转换
调试输出 (长度, 匹配)
调试输出 (长度 × 求余弦 (匹配 × 180 ÷ #pi ), “C点横坐标与A点横坐标关系”)
调试输出 (长度 × 求正弦 (匹配 × 180 ÷ #pi ), “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 /> 调试输出 (长度 × 求余弦 (匹配 × 180 ÷ #pi), “C点横坐标与A点横坐标关系”)<br /> 调试输出 (长度 × 求正弦 (匹配 × 180 ÷ #pi), “C点纵坐标与A点纵坐标关系”)

补充内容 (2023-6-16 13:10):
各位看官请无视此楼 最后两句 180 和 圆周率 搞反了

笨来无一悟

注意参数方向的真假

  

子程序名	返回值类型	公开	备 注
找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
' 保持原样 不做转换
调试输出 (长度, 匹配)
调试输出 (长度 × 求余弦 (匹配 × 180 ÷ #pi ), “C点横坐标与A点横坐标关系”)
调试输出 (长度 × 求正弦 (匹配 × 180 ÷ #pi ), “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 /> 调试输出 (长度 × 求余弦 (匹配 × 180 ÷ #pi), “C点横坐标与A点横坐标关系”)<br /> 调试输出 (长度 × 求正弦 (匹配 × 180 ÷ #pi), “C点纵坐标与A点纵坐标关系”)

补充内容 (2023-6-16 13:11):
调试输出 (长度 × 求余弦 (匹配 × #pi ÷ 180), “C点横坐标与A点横坐标关系”)
调试输出 (长度 × 求正弦 (匹配 × #pi ÷ 180), “C点纵坐标与A点纵坐标关系”)

笨来无一悟

atan(1.8÷6.2)=16.18920625702694
atan(-0.7)=-34.99202019855866
atan(-0.7)+atan(1.8÷6.2)=-18.80281394153171
√(1.8×1.8+6.2×6.2)×sin(-18.80281394153171)=-2.08084907811836
√(1.8×1.8+6.2×6.2)×cos(-18.80281394153171)=6.11147012707204

2和6是C点和A点的关系 A点可视作X0 Y0

补充内容 (2023-6-16 12:37):
顺时针 逆时针是有区别的 你多给几个数据 就知道到底对不对了

补充内容 (2023-6-16 12:47):
叫你多给几个坐标 因为易语言的还要乘除什么180 圆周率 我给的公式用计算器算出来是OK了的

笨来无一悟

修改完毕 更正如下↓

  

子程序名	返回值类型	公开	备 注
找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点纵坐标关系”)

笨来无一悟

https://bbs.125.la/thread-14786361-1-1.html最终版本