【文章內(nèi)容簡(jiǎn)介】 (0, 0)(0, 70) (195, 2)(200, 0) 39。畫(huà)橫軸箭頭 (195, 2)(200, 0) (3, 67)(0, 70) 39。畫(huà)縱軸箭頭 (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。不畫(huà)加速度小于0的部分 (Ua, Pe), vbBlue (Ua, Pz), vbRedLabel1: Next x Next nEnd SubPrivate Sub Command9_Click() EndEnd Sub 圖11界面設(shè)計(jì) 12驅(qū)動(dòng)力與行駛阻力平衡圖 13加速度曲線14加速度倒數(shù)曲線15動(dòng)力特性圖16爬坡度圖17直接擋加速時(shí)間 18發(fā)動(dòng)機(jī)外特性曲線19功率平衡圖4. 思考題5. 實(shí)驗(yàn)總結(jié)第 組西華大學(xué)實(shí)驗(yàn)報(bào)告開(kāi)課學(xué)院及實(shí)驗(yàn)室： 實(shí)驗(yàn)時(shí)間： 年 月 日學(xué) 生 姓 名龍強(qiáng)學(xué) 號(hào)312009080306530實(shí) 驗(yàn) 成 績(jī)課 程 名 稱課 程 代 碼實(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è)計(jì)性、創(chuàng)新性實(shí)驗(yàn)需寫(xiě)該項(xiàng)內(nèi)容）（實(shí)驗(yàn)工作原理或?qū)嶒?yàn)的主要操作過(guò)程）（核心代碼及調(diào)試過(guò)程） 上機(jī)實(shí)驗(yàn)：，程序調(diào)試過(guò)程中出現(xiàn)的問(wèn)題及解決方法 程序運(yùn)行的結(jié)果注解：理工科實(shí)驗(yàn)需記錄實(shí)驗(yàn)過(guò)程中的數(shù)據(jù)、圖表、計(jì)算、現(xiàn)象觀察等，實(shí)驗(yàn)過(guò)程中出現(xiàn)的問(wèn)題；其它如在計(jì)算機(jī)上進(jìn)行的編程、仿真性或模擬性實(shí)驗(yàn)需記錄程序核心代碼以及程序在調(diào)式過(guò)程中出現(xiàn)的問(wèn)題及解決方法；記錄程序執(zhí)行的結(jié)果。實(shí)驗(yàn)總結(jié)注解：實(shí)驗(yàn)總結(jié)的內(nèi)容根據(jù)不同學(xué)科和類型實(shí)驗(yàn)要求不一樣，一般理工科類的實(shí)驗(yàn)需要對(duì)實(shí)驗(yàn)結(jié)果進(jìn)行分析，并且對(duì)實(shí)驗(yàn)過(guò)程中問(wèn)題進(jìn)行討論；在計(jì)算機(jī)上進(jìn)行的編程、仿真性或模擬性實(shí)驗(yàn)需要對(duì)上機(jī)實(shí)踐結(jié)果進(jìn)行分析，上機(jī)的心得體會(huì)及改進(jìn)意見(jiàn)。其它實(shí)驗(yàn)應(yīng)總結(jié)實(shí)驗(yàn)過(guò)程寫(xiě)出心得體會(huì)及改進(jìn)意見(jiàn)。說(shuō)明：各門實(shí)驗(yàn)課程實(shí)驗(yàn)報(bào)告的格式及內(nèi)容要求，請(qǐng)按照實(shí)驗(yàn)指導(dǎo)書(shū)的要求手工書(shū)寫(xiě)。1. 實(shí)驗(yàn)?zāi)康?. 實(shí)驗(yàn)設(shè)備、儀器及材料3. 實(shí)驗(yàn)內(nèi)容，程序調(diào)試過(guò)程中出現(xiàn)的問(wè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。畫(huà)橫軸箭頭 (135, 1)(140, 0) (2, 31)(0, 32) 39。畫(huà)縱軸箭頭 (2, 31)(0, 32) For i = 1 To 6 39。畫(huà)橫坐標(biāo)刻度線和刻度 (20 * i, 0)(20 * i, 1) = 20 * i 2: = 2: 20 * i Next i For i = 1 To 10 39。畫(huà)縱坐標(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。畫(huà)橫軸箭頭 39。 (135, 1)(140, 0) 39。 (2, 31)(0, 32) 39。畫(huà)縱軸箭頭 39。 (2, 31)(0, 32) For i = 1 To 11 39。畫(huà)橫坐標(biāo)刻度線和刻度 (5 * i, 0)(5 * i, ) = 5 * i : = : 5 * i Next i For i = 1 To 8 39。畫(huà)縱坐標(biāo)刻度線和刻度 (0, * i)(1, * i) = 5: = * i + : * i Next i n(1) = 815: B0(1) = : B1(1) = : B2(1) = : B3(1) = : B4