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

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

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