【正文】 0 = 115: = 700: Ua(km/h) = 5: = 14600: F(kN) = 5: = 1000: Ff = 120: = 3000: Ff+Fw 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) if0 = Val(Text9) ηt = Val(Text5) Ff = G * f Fi = G * i a = 0 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 Fj = δ * m * a (Ua, Ft), vbBlue (Ua, Ff + Fw), vbRed (Ua, Ff), vbGreen If Abs(Ff + Fw Ft) 1 Then = Ua 39。畫坐標軸 (126, 200)(130, 0) 39。其它實驗應總結(jié)實驗過程寫出心得體會及改進意見。實驗總結(jié)注解：實驗總結(jié)的內(nèi)容根據(jù)不同學科和類型實驗要求不一樣，一般理工科類的實驗需要對實驗結(jié)果進行分析，并且對實驗過程中問題進行討論；在計算機上進行的編程、仿真性或模擬性實驗需要對上機實踐結(jié)果進行分析，上機的心得體會及改進意見。驅(qū)動力與阻力平衡圖 (10, 15000)(130, 700) (8, 0)(150, 0): (0, 15000)(0, 500) 39。畫橫坐標刻度線和刻度 (10 * i, 0)(10 * i, 200) = 10 * i 2: = 50: 10 * i Next i For i = 1 To 14 39。畫橫軸箭頭 (126, )(130, 0) (1, )(0, 5) 39。畫橫軸箭頭 (126, )(130, 0) (1, )(0, 5) 39。畫橫軸箭頭 (126, )(130, 0) (1, )(0, 1) 39。不畫D小于0的部分 (Ua, D), vbBlue (Ua, f), vbRedLabel1: Next x Next nEnd SubPrivate Sub Command5_Click() 39。不畫加速度小于0的部分 (Ua, i)Label1: Next x Next nEnd SubPrivate Sub Command6_Click() 39。微分法求面積 (t, Ua), vbRed Next nEnd SubPrivate Sub Command7_Click() 39。汽車功率平衡圖 (15, 75)(200, 10) (0, 0)(200, 0) (0, 0)(0, 70) (195, 2)(200, 0) 39。實驗總結(jié)注解：實驗總結(jié)的內(nèi)容根據(jù)不同學科和類型實驗要求不一樣，一般理工科類的實驗需要對實驗結(jié)果進行分析，并且對實驗過程中問題進行討論；在計算機上進行的編程、仿真性或模擬性實驗需要對上機實踐結(jié)果進行分析，上機的心得體會及改進意見。最高擋百公里耗油量 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。畫縱坐標刻度線和刻度 (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。 (135, 1)(140, 0) 39。畫橫坐標刻度線和刻度 (5 * i, 0)(5 * i, ) = 5 * i : = : 5 * i Next i For i = 1 To 8 39。39。其它實驗應總結(jié)實驗過程寫出心得體會及改進意見。39。畫橫軸箭頭 (108, )(110, 0) (2, )(0, 17) 39。)s﹣1/(176。39。畫橫坐標刻度線和刻度 (10 * i, 0)(10 * i, ) = 10 * i 2: = : 10 * i Next i For i = 1 To 16 39。39。39。畫橫坐標刻度線和刻度 (i, 0)(i, ) = i : = : i Next i For i = 1 To 8 39。39。39。畫橫軸箭頭 (, )(, 0) (, )(0, ) 39。39。實驗總結(jié)注解：實驗總結(jié)的內(nèi)容根據(jù)不同學科和類型實驗要求不一樣，一般理工科類的實驗需要對實驗結(jié)果進行分析，并且對實驗過程中問題進行討論；在計算機上進行的編程、仿真性或模擬性實驗需要對上機實踐結(jié)果進行分析，上機的心得體會及改進意見。39。39。幅頻特性 (1, 1)(2, 1) For f = To 100 Step λs = f / fs PZ = Sqr((1 + (2 * ζs * λs) ^ 2) / ((1 λs * λs) ^ 2 + (2 * λs * ζs) ^ 2)) (Log(f) / Log(10), Log(PZ) / Log(10)) Next fEnd SubPrivate Sub Command4_Click() EndEnd SubPrivate Sub Form_Load() f0 = Text1 ζ = Text2 γ = Text3 μ = Text4 fs = Text5 ζs = Text6 u = Text7 n0 = Text9End Sub41界面及參數(shù)設(shè)計│z1/q1││z2/z1││p/z2│4. 思考題5. 實驗總結(jié)48 / 4