【文章內(nèi)容簡介】 (0, 0)(0, 70) (195, 2)(200, 0) 39。畫橫軸箭頭 (195, 2)(200, 0) (3, 67)(0, 70) 39。畫縱軸箭頭 (3, 67)(0, 70) For i = 1 To 3 (50 * i, 0)(50 * i, 2) = 50 * i 5: = : 50 * i Next i For i = 1 To 13 (0, 5 * i)(3, 5 * i) = 10: = 5 * i + 1: 5 * i Next i = 10: = 2: 0 = 170: = 4: Ua(km/h) = 5: = 70: Pe/kW = 110: = 70: (Pf+Pw)/ηt Dim Pe As Double, Pz As Double Dim ig(4) As Single ig(0) = Val(Text18) ig(1) = Val(Text19) ig(2) = Val(Text20) ig(3) = Val(Text21) ig(4) = Val(Text22) f = Val(Text6) m = Val(Text2) G = Val(Text3) * i = 0 CdA = Val(Text7) r = Val(Text4) i0 = Val(Text8) Iw = Val(Text10) + Val(Text11) ηt = Val(Text5) Ff = G * f Fi = G * i if0 = Val(Text9) For n = 600 To 4000 For x = 0 To 4 δ = 1 + (1 * Iw) / (m * r * r) + (1 * if0 * ig(x) * ig(x) * i0 * i0 * ηt) / (m * r * r) Ua = * (r * n) / (ig(x) * i0) Fw = (CdA * Ua * Ua) / Tq = + * (n / 1000) * (n / 1000) ^ 2 + * (n / 1000) ^ 3 * (n / 1000) ^ 4 Ft = (Tq * ig(x) * i0 * ηt) / r a = (Ft Ff Fw) / (δ * m) Fj = δ * m * a Pe = (G * f * Ua + G * i * Ua + CdA * Ua * Ua * Ua / + δ * m * a * Ua) / (3600 * ηt) Pz = (G * f * Ua / 3600 + CdA * Ua * Ua * Ua / 76140) / ηt If Pz 70 Then GoTo Label1 39。不畫加速度小于0的部分 (Ua, Pe), vbBlue (Ua, Pz), vbRedLabel1: Next x Next nEnd SubPrivate Sub Command9_Click() EndEnd Sub 圖11界面設(shè)計 12驅(qū)動力與行駛阻力平衡圖 13加速度曲線14加速度倒數(shù)曲線15動力特性圖16爬坡度圖17直接擋加速時間 18發(fā)動機(jī)外特性曲線19功率平衡圖4. 思考題5. 實(shí)驗(yàn)總結(jié)第 組西華大學(xué)實(shí)驗(yàn)報告開課學(xué)院及實(shí)驗(yàn)室： 實(shí)驗(yàn)時間： 年 月 日學(xué) 生 姓 名龍強(qiáng)學(xué) 號312009080306530實(shí) 驗(yàn) 成 績課 程 名 稱課 程 代 碼實(shí)驗(yàn)項(xiàng)目名稱項(xiàng) 目 代 碼指 導(dǎo) 教 師項(xiàng) 目 學(xué) 分實(shí)驗(yàn)?zāi)康膶?shí)驗(yàn)設(shè)備、儀器及材料實(shí)驗(yàn)內(nèi)容 一般實(shí)驗(yàn)（非上機(jī)實(shí)驗(yàn)）：（設(shè)計性、創(chuàng)新性實(shí)驗(yàn)需寫該項(xiàng)內(nèi)容）（實(shí)驗(yàn)工作原理或?qū)嶒?yàn)的主要操作過程）（核心代碼及調(diào)試過程） 上機(jī)實(shí)驗(yàn)：，程序調(diào)試過程中出現(xiàn)的問題及解決方法 程序運(yùn)行的結(jié)果注解：理工科實(shí)驗(yàn)需記錄實(shí)驗(yàn)過程中的數(shù)據(jù)、圖表、計算、現(xiàn)象觀察等，實(shí)驗(yàn)過程中出現(xiàn)的問題；其它如在計算機(jī)上進(jìn)行的編程、仿真性或模擬性實(shí)驗(yàn)需記錄程序核心代碼以及程序在調(diào)式過程中出現(xiàn)的問題及解決方法；記錄程序執(zhí)行的結(jié)果。實(shí)驗(yàn)總結(jié)注解：實(shí)驗(yàn)總結(jié)的內(nèi)容根據(jù)不同學(xué)科和類型實(shí)驗(yàn)要求不一樣，一般理工科類的實(shí)驗(yàn)需要對實(shí)驗(yàn)結(jié)果進(jìn)行分析，并且對實(shí)驗(yàn)過程中問題進(jìn)行討論；在計算機(jī)上進(jìn)行的編程、仿真性或模擬性實(shí)驗(yàn)需要對上機(jī)實(shí)踐結(jié)果進(jìn)行分析，上機(jī)的心得體會及改進(jìn)意見。其它實(shí)驗(yàn)應(yīng)總結(jié)實(shí)驗(yàn)過程寫出心得體會及改進(jìn)意見。說明：各門實(shí)驗(yàn)課程實(shí)驗(yàn)報告的格式及內(nèi)容要求，請按照實(shí)驗(yàn)指導(dǎo)書的要求手工書寫。1. 實(shí)驗(yàn)?zāi)康?. 實(shí)驗(yàn)設(shè)備、儀器及材料3. 實(shí)驗(yàn)內(nèi)容，程序調(diào)試過程中出現(xiàn)的問題及調(diào)試方法Private Sub Command1_Click() 39。最高擋百公里耗油量 Dim n(1 To 8), B0(1 To 8), B1(1 To 8), B2(1 To 8), B3(1 To 8), B4(1 To 8) (20, 35)(150, 5) (0, 0)(140, 0) (0, 0)(0, 32) (135, 1)(140, 0) 39。畫橫軸箭頭 (135, 1)(140, 0) (2, 31)(0, 32) 39。畫縱軸箭頭 (2, 31)(0, 32) For i = 1 To 6 39。畫橫坐標(biāo)刻度線和刻度 (20 * i, 0)(20 * i, 1) = 20 * i 2: = 2: 20 * i Next i For i = 1 To 10 39。畫縱坐標(biāo)刻度線和刻度 (0, 3 * i)(3, 3 * i) = 10: = 3 * i + : 3 * i Next i = 0: = 1: 0 = 120: = 3: Ua/(km/h) = 4: = 32: Qs/[L/(100km)] n(1) = 815: n(2) = 1207: n(3) = 1614: n(4) = 2012: n(5) = 2603: n(6) = 3006: n(7) = 3403: n(8) = 3804 B0(1) = : B0(2) = : B0(3) = : B0(4) = : B0(5) = 1141: B0(6) = : B0(7) = : B0(8) = B1(1) = : B1(2) = : B1(3) = : B1(4) = : B1(5) = : B1(6) = : B1(7) = : B1(8) = B2(1) = : B2(2) = : B2(3) = : B2(4) = : B2(5) = : B2(6) = : B2(7) = : B2(8) = B3(1) = : B3(2) = : B3(3) = : B3(4) = : B3(5) = : B3(6) = : B3(7) = : B3(8) = B4(1) = : B4(2) = : B4(3) = : B4(4) = : B4(5) = : B4(6) = : B4(7) = : B4(8) = g = 3880 * f = CdA = ηt = i0 = r = Uamin = * r * n(1) / ( * i0) Qmin = 100 For ua = Uamin To 100 Step Pe = (g * f * ua / 3600 + CdA * ua ^ 3 / 76140) / ηt nn = * i0 * ua / ( * r) For i = 1 To 7 If nn = n(i) And nn = n(i + 1) Then B_0 = B0(i) + (B0(i + 1) B0(i)) * (nn n(i)) / (n(i + 1) n(i)) B_1 = B1(i) + (B1(i + 1) B1(i)) * (nn n(i)) / (n(i + 1) n(i)) B_2 = B2(i) + (B2(i + 1) B2(i)) * (nn n(i)) / (n(i + 1) n(i)) B_3 = B3(i) + (B3(i + 1) B3(i)) * (nn n(i)) / (n(i + 1) n(i)) B_4 = B4(i) + (B4(i + 1) B4(i)) * (nn n(i)) / (n(i + 1) n(i)) End If Next i Be = B_0 + B_1 * Pe + B_2 * Pe ^ 2 + B_3 * Pe ^ 3 + B_4 * Pe ^ 4 Qs = Pe * Be / ( * 7 * ua) (ua, Qs), vbBlue If Qs Qmin Then Qmin = Qs Uj = ua End If Next ua = Format(Uj, .) = Format(Qmin, .)End SubPrivate Sub Command2_Click() 39。六工況燃油經(jīng)濟(jì)性Dim n(1 To 8), B0(1 To 8), B1(1 To 8), B2(1 To 8), B3(1 To 8), B4(1 To 8) (5, 5)(60, 1) (0, 0)(60, 0) (0, 0)(0, ) 39。 (135, 1)(140, 0) 39。畫橫軸箭頭 39。 (135, 1)(140, 0) 39。 (2, 31)(0, 32) 39。畫縱軸箭頭 39。 (2, 31)(0, 32) For i = 1 To 11 39。畫橫坐標(biāo)刻度線和刻度 (5 * i, 0)(5 * i, ) = 5 * i : = : 5 * i Next i For i = 1 To 8 39。畫縱坐標(biāo)刻度線和刻度 (0, * i)(1, * i) = 5: = * i + : * i Next i n(1) = 815: B0(1) = : B1(1) = : B2(1) = : B3(1) = : B4