基圆半径模块.bas

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

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