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

来自「一个设计齿轮变位系数的程序」· BAS 代码 · 共 7 行

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