?? 端面齒頂圓齒厚.bas
字號:
Attribute VB_Name = "端面齒頂圓齒厚"
Option Explicit
Dim s, x As Single
Dim Z As Integer
Public Function Sa(ByVal x, ByVal Z) As Single
s = m / Cos(b) * (pi / 2 + 2 * x * Cos(b) * Tan(rt))
Sa = s * ra(x, Z) / (m * Z / (2 * Cos(b))) - 2 * ra(x, Z) * (inv(Atn(tgRA(x, Z))) - inv(rt))
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -