公用变量定义.bas

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

Attribute VB_Name = "公用变量定义"
Public z1, z2 As Integer   '齿数
Public i, x1, x2, xpoint1, xpoint2 As Single '传动比，法面变位系数
Public ap, m, b, r, h, c, n1max, n2max As Double
 '实际中心距，法面模数，螺旋角，法面压力角，法面顶高系数，法面顶隙系数，Z1和Z2的最大滑动系数
Public x0, x1min, x1max, x2min, x2max As Single
'法面变位系数和，Z1和Z2的最小及最大法面变位系数，计算时已考虑到根切限制
Public ab, rr, rt, yn As Double
'Z1和Z2的齿顶圆端面压力角,理论中心距，实际啮合角,端面压力角，齿高降低量
Public Const pi = 3.14159265358979 '定义常量π的数值
Public Const six = 0.000001 '搜索步长