excel 可以计算渐开线反函数,输入如下代码:Function mydeg(myV As Double) As Double
Const pi = 3.14159265358979
Dim i As Double
Dim rd As Double
Dim j As Double
Dim t As Double
i = 0
t = 90#
Do
rd = i / 180# * pi
t = t / 2#
If Tan(rd) - rd > myV Then
i = i - t
Else
i = i + t
End If
j = Abs(Tan(rd) - rd - myV)
Loop While j > 0.000000000001
mydeg = i
End Function
运行函数Mydeg