求助，一个公式用易代码写出。

我爱爱爱

。。

我爱爱爱

我X,写减号之前的吧

镇坛道德标杆

我爱爱爱

镇坛道德标杆 发表于 2017-10-23 20:25

Z:\QQ拼音截图未命名.jpg

cherles

结果 ＝ x0 ＋ b × 求余弦 (1 ÷ (求正切 (y1 － y0) ÷ (x1 － x0))) － 1 ÷ 求余弦 ((求次方 (b, 2) ＋ 求次方 (c, 2) － 求次方 (a, 2)) ÷ 2 × b × c)

补充内容 (2017-10-23 20:33):
把你算的过程写下来就行了嘛

我爱爱爱

の伪の 发表于 2017-10-23 20:32
结果 ＝ x0 ＋ b × 求余弦 (1 ÷ (求正切 (y1 － y0) ÷ (x1 － x0))) － 1 ÷ 求余弦 ((求次方 (b, 2) ＋ ...

  

子程序名	返回值类型	公开	备 注
坐标_求直角三角坐标			https://wenku.baidu.com/view/e0606e28854769eae009581b6bd97f192279bf89.html
参数名	类 型	参考	可空	数组	备 注
x0	小数型
y0	小数型
x1	小数型
y1	小数型
角	小数型				非90度！！
c	小数型				边长,非斜边！！
x2	小数型				保存
y2	小数型				保存

变量名	类 型	静态	数组	备 注
b	小数型			斜边
a	小数型			边
dX	小数型
dY	小数型
aAB	小数型
aAC	小数型

b ＝ c ÷ 求正弦 ( (90 － 角) × 0.01745329251944)
a ＝ 求平方根 (b × b － c × c)
' dX ＝ x1 － x0
' dY ＝ y1 － y0
' aAB ＝ #pi × (1 － sgn2 (dY) ÷ 2) － 求反正切 (dX ÷ dY) × 57.29578
' ' 万能方位角计算公式 https://wenku.baidu.com/view/3bdd72c0e518964bcf847cc9.html' 调试输出 (180 ÷ #pi)'57.295780
' aAC ＝ aAB － 角
' x2 ＝ x0 ＋ b × 求余弦 (aAC)
' y2 ＝ y0 ＋ b × 求正弦 (aAC)
x2 ＝ x0 ＋ b × 求余弦 (1 ÷ (求正切 (y1 － y0) ÷ (x1 － x0))) － 1 ÷ 求余弦 ( (求次方 (b, 2) ＋ 求次方 (c, 2) － 求次方 (a, 2)) ÷ 2 × b × c)
y2 ＝ y0 ＋ b × 求正弦 (1 ÷ (求正切 (y1 － y0) ÷ (x1 － x0))) － 1 ÷ 求余弦 ( (求次方 (b, 2) ＋ 求次方 (c, 2) － 求次方 (a, 2)) ÷ 2 × b × c)

.版本 2<br /> <br /> .子程序 坐标_求直角三角坐标, , , https://wenku.baidu.com/view/e0606e28854769eae009581b6bd97f192279bf89.html<br /> .参数 x0, 小数型<br /> .参数 y0, 小数型<br /> .参数 x1, 小数型<br /> .参数 y1, 小数型<br /> .参数 角, 小数型, , 非90度！！<br /> .参数 c, 小数型, , 边长,非斜边！！<br /> .参数 x2, 小数型, 参考, 保存<br /> .参数 y2, 小数型, 参考, 保存<br /> .局部变量 b, 小数型, , , 斜边 <br /> .局部变量 a, 小数型, , , 边<br /> .局部变量 dX, 小数型<br /> .局部变量 dY, 小数型<br /> .局部变量 aAB, 小数型<br /> .局部变量 aAC, 小数型<br /> <br /> b ＝ c ÷ 求正弦 ((90 － 角) × 0.01745329251944)<br /> a ＝ 求平方根 (b × b － c × c)<br /> ' dX ＝ x1 － x0<br /> ' dY ＝ y1 － y0<br /> ' aAB ＝ #pi × (1 － sgn2 (dY) ÷ 2) － 求反正切 (dX ÷ dY) × 57.29578<br /> ' ' 万能方位角计算公式 https://wenku.baidu.com/view/3bdd72c0e518964bcf847cc9.html' 调试输出 (180 ÷ #pi)'57.295780<br /> ' aAC ＝ aAB － 角<br /> ' x2 ＝ x0 ＋ b × 求余弦 (aAC)<br /> ' y2 ＝ y0 ＋ b × 求正弦 (aAC)<br /> x2 ＝ x0 ＋ b × 求余弦 (1 ÷ (求正切 (y1 － y0) ÷ (x1 － x0))) － 1 ÷ 求余弦 ((求次方 (b, 2) ＋ 求次方 (c, 2) － 求次方 (a, 2)) ÷ 2 × b × c)<br /> y2 ＝ y0 ＋ b × 求正弦 (1 ÷ (求正切 (y1 － y0) ÷ (x1 － x0))) － 1 ÷ 求余弦 ((求次方 (b, 2) ＋ 求次方 (c, 2) － 求次方 (a, 2)) ÷ 2 × b × c)

hk530944

我看见这种数学题头就大

cherles

我爱爱爱 发表于 2017-10-23 20:44
[e=2].版本 2

.子程序 坐标_求直角三角坐标, , , https://wenku.baidu.com/view/e0606e28854769eae009 ...

你想告诉我什么

我爱爱爱

の伪の 发表于 2017-10-23 22:26
你想告诉我什么

这个函数没验证，有兴趣的可拿走继续。。

麻辣鸡丝

1. .版本 2
   
2. 
   
3. .子程序 求反正弦, 双精度小数型, 公开, 返回弧度值
   
4. .参数 正弦值, 双精度小数型, , -1到1，否则返回0
   
5. 
   
6. .如果真 (正弦值 ＜ -1 或 正弦值 ＞ 1)
   
7.     返回 (0)
   
8. .如果真结束
   
9. 返回 (求反正切 (正弦值 ÷ 求平方根 (1 － 正弦值 × 正弦值)))
   
10. 
    
11. .子程序 求反余弦, 双精度小数型, 公开, 返回弧度值
    
12. .参数 余弦值, 双精度小数型, , -1到1，否则返回0
    
13. 
    
14. .如果真 (余弦值 ＞ 1 或 余弦值 ＜ -1)
    
15.     返回 (0)
    
16. .如果真结束
    
17. 返回 (#pi ÷ 2 － 求反正弦 (余弦值))
    

复制代码

余弦、反正切易语言自带，我把反余弦、反正弦实现代码给你