齿顶圆压力角正切值模块.bas

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

Attribute VB_Name = "齿顶圆压力角正切值模块"
Option Explicit
Dim x As Single
Dim Z As Integer
Dim yux As Double
Public Function tgRA(ByVal x, ByVal Z) As Double
    yux = rb(Z) / ra(x, Z)
    tgRA = Sqr(1 - (yux) ^ 2) / yux
End Function