端面齿顶圆齿厚.bas

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

Attribute VB_Name = "端面齿顶圆齿厚"
Option Explicit
Dim s, x As Single
Dim Z As Integer
Public Function Sa(ByVal x, ByVal Z) As Single
    s = m / Cos(b) * (pi / 2 + 2 * x * Cos(b) * Tan(rt))
    Sa = s * ra(x, Z) / (m * Z / (2 * Cos(b))) - 2 * ra(x, Z) * (inv(Atn(tgRA(x, Z))) - inv(rt))
End Function