z2的最大滑动系数函数模块.bas

一个设计齿轮变位系数的程序

Attribute VB_Name = "Z2的最大滑动系数函数模块"
Option Explicit
Dim x As Single
Public Function n2m(ByVal x) As Single
     n2m = Abs((1 + i) * (Tan(rr) - tgRA(x, Z1)) / ((1 + i) * Tan(rr) - tgRA(x, Z1)))
End Function