反渐开线函数代码及Excel使用小技巧

DoctorWHO

已知渐开线函数值反求压力角，齿轮计算中常见的问题。工作中常利用编程方法计算。Excel里用VBA自定义函数是比较方便的方法，过程是：1、在Excel里打开VBA编辑器
2、在插入菜单里选择模块
3、在代码窗口编写代码
已知渐开线函数值反求压力角的代码如下：

Function AINVR(alpha As Double) As Double                                             '定义函数名及输入数据类型'
    Dim temp As Double                                                                                '定义循环初始值数据类型'
        temp = 3.1415926 / 2                                                                           '赋值循环初始值'                                 Do Until Abs(Tan(temp) - temp - alpha) < 0.0000000001                        '设置循环结束条件，数据精度'
        temp = temp - (Tan(temp) - temp - alpha) / (Tan(temp) ^ 2)               '牛顿法循环求解'
    Loop
    If alpha <= 0 Then
        AINVR = 0
    Else
        AINVR = temp
    End If
End Function

4、保存完毕后就可以在Excel函数里直接调用AINVR，函数输入输出结果均为弧度值。


根据个人习惯，可以在代码循环前后增加角度弧度转换公式。


这种方法的优点是，在同一个Excel文件，不同表之间都可以使用这个自定义函数，十分方便。