汽车理论子程序.docVIP

程序窗体设计1.动力性能计算参数 本窗体功能：参数赋值和修改，发动机外特性计算赋值 2.经济性能计算—发动机负荷特性拟合公式和参数 本窗体功能：—发动机负荷特性拟合公式和参数 3.计算程序主窗体：设置命令按钮或下拉菜单方式，绘制动力性及经济性各种图，光标读数 4.创建模块：相关变量声明和程序中主要计算子程序 Public uap(1 To 8), bb(1 To 8) 定义通用数组uap和bb Public i0, i1, i2, i3, i4, i5, CdA, w, f, xl, r, Ifl, Iw1, Iw2, nmin, nmax, m, a00, a11, a22, a33, a44, umin1, umax1, umaxi 声明全局变量i0主减速器传动比；i1, i2, i3, i4, i5变速器传动比；重量w = m * 9.8；传动效率xl；发动机转速nmin, nmax, 发动机外特性拟合系数a00, a11, a22, a33, a44, 1档最低车速umin1 = (2 * 3.14 * 3.6 * nmin / 60) * r / (i0 * i1) ；1档最高车速= (2 * 3.14 * 3.6 * nmax / 60) * r / (i0 * i1)；最高档最高车速umaxi Sub js(ig, a0, a1, a2, a3, a4, umin, umax) 求各档发动机扭矩拟合公式系数，最小最大车速ig变量可以赋各档传动比值 k = (ig * i0) / (0.377 * 1000 * r) k1 = ig * i0 * xl / r 车轮1km/h车速的发动机转速（考虑传动效率） a0 = a00 * k1 a1 = a11 * k * k1 a2 = a22 * k ^ 2 * k1 a3 = a33 * k ^ 3 * k1 a4 = a44 * k ^ 4 * k1 umin = (2 * 3.14 * 3.6 * nmin / 60) * r / (ig * i0) umax = (2 * 3.14 * 3.6 * nmax / 60) * r / (ig * i0) End Sub Function zl(X, CdA, w, f) 空气阻力和滚动阻力 zl = ((CdA / 21.15) * X ^ 2 + w * f) / 1000 End Function Function Ft(X, a0, a1, a2, a3, a4) 求驱动力，变量X为车速单位km/h Ft = (a0 + a1 * X + a2 * X ^ 2 + a3 * X ^ 3 + a4 * X ^ 4) / 1000 End Function Function jsd(X, a0, a1, a2, a3, a4, CdA, w, f, dert, m) 求加速度阻力 ft1 = Ft(X, a0, a1, a2, a3, a4) zl1 = zl(X, CdA, w, f) jsd = (ft1 - zl1) * 1000 / (dert * m) End Function Function dert(ig) 求旋转质量换算系数子程序 dert = 1 + (Iw1 + Iw2) / (m * r ^ 2) + Ifl * (i0 * ig) ^ 2 * xl / (m * r ^ 2) End Function Function jsdd(X, a0, a1, a2, a3, a4, CdA, w, f, dert, m) 求加速度倒数子程序 ft1 = Ft(X, a0, a1, a2, a3, a4) zl1 = zl(X, CdA, w, f) j = (ft1 - zl1) * 1000 / (dert * m) jsdd = 1 / j End Function Function pod(X, a0, a1, a2, a3, a4, CdA, w, f, dert, m, sinx) 求坡度子程序 ft1 = Ft(X, a0, a1, a2, a3, a4) * 1000 驱动力单位KN zl1 = zl(X, CdA, w, f) * 1000 空气阻力和滚动阻力单位KN sinx = (ft1 - zl1) / (m * 9.8) pod = Sqr((1 / (1 - sinx ^ 2)) - 1) * 100 计算坡度i=tanα End Function Function Ttq(X, ig) 求发动机扭矩子程序 nn = ig * i0 * X / (r * 377) Ttq = a00 + a11 * nn + a22 * nn ^ 2