齿顶圆半径模块.bas

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

Attribute VB_Name = "齿顶圆半径模块"
Option Explicit
Dim x As Single
Dim Z As Integer
Public Function ra(ByVal x, ByVal Z) As Double
    ra = m / Cos(b) * (Z / 2 + h * Cos(b) + x * Cos(b) - (x0 * Cos(b) - (ap - ab) / (m / Cos(b))))
End Function