小齿轮模块程序清单.doc

小齿轮模块程序清单 Option Explicit 定义自定义变量类型 Type gear_data p As Single 输入功率 n1 As Single I轴转数 uu As Single 传动比 st As Single 齿轮布置 gg As Integer 齿轮精度 fd As Single 齿宽系数 np As Single 效率 kt As Single 初选载荷系数 ka As Single 工况系数 ly As Single 寿命 wn As Single 每天班制 ds As Boolean 齿轮表面允许点蚀否？ gm(4) As Integer gm(1):高速级小齿轮材料 gm(2):高速级大齿轮材料 gm(3):低速级小齿轮材料 gm(4):低速级大齿轮材料 mh(4) As Integer mh(1):高速级小齿轮热处理 mh(2):高速级大齿轮热处理 mh(3):低速级小齿轮热处理 mh(4):低速级大齿轮热处理 hb(4) As Integer hb(1):高速级小齿轮硬度 布氏硬度 hb(2):高速级大齿轮硬度 hb(3):低速级小齿轮硬度 hb(4):低速级大齿轮硬度 rc(4) As Integer rc(1):高速级小齿轮硬度 洛氏硬度 rc(2):高速级大齿轮硬度 rc(3):低速级小齿轮硬度 rc(4):低速级大齿轮硬度 End Type 优化的数据和通过优化计算出的基本数据 Type yh_data mn1 As Single 优化数据之1 x1 mn2 As Single 优化数据之3 x3 z1 As Single 优化数据之2 x2 z2 As Single z3 As Single 优化数据之4 x4 z4 As Single u1 As Single 优化数据之5 x5 u2 As Single bt As Single 优化数据之6 x6 n2 As Single End Type Type yfys yf As Single 齿形系数 ys As Single 应力集中系数 End Type Type erkr er As Single 端面重合度 kr As Single 齿间载荷分配系数 End Type 全局变量 Public my_gear_data As gear_data 存放初始参数 Public daa(4) As Single, dff(4) As Single scr文件引用 齿顶圆 齿根圆直径 Public b1 As Single, b2 As Single, b3 As Single, b4 As Single 最终的齿宽 Public d1 As Single, d2 As Single, d3 As Single, d4 As Single 最终的分度圆直径 Public m1 As Single, m2 As Single 圆整后的模数 Public xp(21, 10) As Single 复合型法的顶点数组 Public a(10) As Single, b(10) As Single 边界条件数组 Public m(21