求高手帮忙。在EXCEL中怎么求反渐开线函数，
答案:5 悬赏:80 手机版
解决时间 2021-03-26 17:25
- 提问者网友：聂風
- 2021-03-26 02:30
求高手帮忙。在EXCEL中怎么求反渐开线函数，
最佳答案
- 五星知识达人网友：未来江山和你
- 2021-03-26 03:34
INV渐开线函数反求需要使用到宏（VBA）。
解法是使用探求法（黄金分割法优化）
具体做法是：
打开EXCEL 菜单—工具—宏—宏—创建—然后在右侧新建一个"模块Module 1"—在模块下输入如下内容
Public Function inv(x As Double)
Dim IP1, OP2, R1, R2, Mate, PN, i As Double
Dim inv01, inv02 As Double
IP1 = x
R1 = 0
R2 = 90
Mate = (R2 - R1) * 0.6180339887498 + R1
For i = 1 To 1000
OP2 = Tan(Mate * 3.1415926535898 / 180) - Mate * 3.1415926535898 / 180
PN = OP2 - IP1
If PN > 0 Then
R2 = Mate
Mate = (R2 - R1) * 0.3819660112502 + R1
Else
R1 = Mate
Mate = (R2 - R1) * 0.6180339887498 + R1
End If
Next
inv = Mate
End Function
保存后关闭
这样你在EXCEL里面就有一个公式INV（）了，用法和COS,AVERAGE等公式相同。
比如A1=8.93423000116951E-02 你想知道这个值对应的角度，那么就可以用INV(A1)知道值。
反求INV是没有公式的，一般是依靠查表，但是由于计算机的计算速度快，因此一般使用黄金分割法或者牛顿迭代法来优化求解。
解法是使用探求法（黄金分割法优化）
具体做法是：
打开EXCEL 菜单—工具—宏—宏—创建—然后在右侧新建一个"模块Module 1"—在模块下输入如下内容
Public Function inv(x As Double)
Dim IP1, OP2, R1, R2, Mate, PN, i As Double
Dim inv01, inv02 As Double
IP1 = x
R1 = 0
R2 = 90
Mate = (R2 - R1) * 0.6180339887498 + R1
For i = 1 To 1000
OP2 = Tan(Mate * 3.1415926535898 / 180) - Mate * 3.1415926535898 / 180
PN = OP2 - IP1
If PN > 0 Then
R2 = Mate
Mate = (R2 - R1) * 0.3819660112502 + R1
Else
R1 = Mate
Mate = (R2 - R1) * 0.6180339887498 + R1
End If
Next
inv = Mate
End Function
保存后关闭
这样你在EXCEL里面就有一个公式INV（）了，用法和COS,AVERAGE等公式相同。
比如A1=8.93423000116951E-02 你想知道这个值对应的角度，那么就可以用INV(A1)知道值。
反求INV是没有公式的，一般是依靠查表，但是由于计算机的计算速度快，因此一般使用黄金分割法或者牛顿迭代法来优化求解。
全部回答
- 1楼网友：白昼之月
- 2021-03-26 07:47
同问！
- 2楼网友：七十二街
- 2021-03-26 06:55
不清楚
- 3楼网友：污到你湿
- 2021-03-26 05:47
A=invB=tanB-B
B=82.6351*A^0.333-22.92493*A+6.2875*A^1.67-1.1253*A^2.25
这个我实验了，误差在1~2′追问角度大了后误差很大哦，你可以试试86以后的追答86以后是什么意思？
你有好的公式算吗？
B=82.6351*A^0.333-22.92493*A+6.2875*A^1.67-1.1253*A^2.25
这个我实验了，误差在1~2′追问角度大了后误差很大哦，你可以试试86以后的追答86以后是什么意思？
你有好的公式算吗？
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯