基圆半径模块.bas

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

Attribute VB_Name = "基圆半径模块"
Option Explicit
Dim Z As Integer
Public Function rb(ByVal Z) As Double
    rb = Z * m / (2 * Cos(b)) * Cos(rt)
End Function