作业帮 > 综合 > 作业

在EXCEL中怎么求反渐开线函数,

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/11 09:06:28
在EXCEL中怎么求反渐开线函数,
渐开线函数INV=TANα-α,其中α为弧度,已知弧度α求INV在EXCEL中很好实现,可是已知INV求弧度,在EXCEL中怎么实现,久思不得其解,请写出公式,
在EXCEL中怎么求反渐开线函数,
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是没有公式的,一般是依靠查表,但是由于计算机的计算速度快,因此一般使用黄金分割法或者牛顿迭代法来优化求解.