西华大学汽车理论实验报告

1、 西华大学实验报告交通与汽车工程学院实 验 报 告课 程 名 称: 汽车理论A 课 程 代 码: 8244880 年级/专业/班: 2009级车辆工程汽电4班 学 生 姓 名: 龙 强 学 号: 312009080306530 实验总成绩: 任 课 教 师: 吴 涛 开 课 学 院: 交通与汽车工程学院 实验中心名称: 汽车交通实验中心 第 组西华大学实验报告开课学院及实验室： 实验时间： 年 月 日学 生 姓 名龙强学 号312009080306530实 验 成 绩课 程 名 称课 程 代 码实验项目名称项 目 代 码指 导 教 师项 目 学 分1、实验目的2、实验设备、仪器及材料3、实验内

2、容3.1 一般实验（非上机实验）：3.1.1实验方案设计与选择（设计性、创新性实验需写该项内容）3.1.2实验原理及实验步骤（实验工作原理或实验的主要操作过程）3.1.3实验记录（核心代码及调试过程）3.2 上机实验：3.2.1上机实验的内容及要求3.2.2算法设计思想与算法实现步骤3.2.3程序核心代码，程序调试过程中出现的问题及解决方法3.2.4 程序运行的结果注解：理工科实验需记录实验过程中的数据、图表、计算、现象观察等，实验过程中出现的问题；其它如在计算机上进行的编程、仿真性或模拟性实验需记录程序核心代码以及程序在调式过程中出现的问题及解决方法；记录程序执行的结果。4、实验总结4.1实

3、验结果分析及问题讨论4.2实验总结心得体会注解：实验总结的内容根据不同学科和类型实验要求不一样，一般理工科类的实验需要对实验结果进行分析，并且对实验过程中问题进行讨论；在计算机上进行的编程、仿真性或模拟性实验需要对上机实践结果进行分析，上机的心得体会及改进意见。其它实验应总结实验过程写出心得体会及改进意见。说明：各门实验课程实验报告的格式及内容要求，请按照实验指导书的要求手工书写。1. 实验目的2. 实验设备、仪器及材料3. 实验内容3.1程序核心代码，程序调试过程中出现的问题及调试方法Option ExplicitDim n, x, cDim Tq, ig, Dim f, GDim m, i

4、, CdA, rDim i0, Ua, Iw, if0Dim t, aDim Ft, Ff, FiDim Fx, Fw, FjPrivate Sub Command1_Click() '驱动力与阻力平衡图 Picture1.Cls Picture1.Scale (-10, 15000)-(130, -700) Picture1.Line (-8, 0)-(150, 0): Picture1.Line (0, 15000)-(0, -500) '画坐标轴 Picture1.Line (126, -200)-(130, 0) '画横轴箭头 Picture1.Line (12

5、6, 200)-(130, 0) Picture1.Line (-2, 14700)-(0, 15000) '画纵轴箭头 Picture1.Line (2, 14700)-(0, 15000) For i = 1 To 12 '画横坐标刻度线和刻度 Picture1.Line (10 * i, 0)-(10 * i, 200) Picture1.CurrentX = 10 * i - 2: Picture1.CurrentY = -50: Picture1.Print 10 * i Next i For i = 1 To 14 '画纵坐标刻度线和刻度 Picture1.

6、Line (0, 1000 * i)-(2, 1000 * i) Picture1.CurrentX = -8: Picture1.CurrentY = 1000 * i + 400: Picture1.Print 1 * i Next i Picture1.CurrentX = -5: Picture1.CurrentY = -50: Picture1.Print 0 Picture1.CurrentX = 115: Picture1.CurrentY = 700: Picture1.Print "Ua(km/h)" Picture1.CurrentX = 5: Pict

7、ure1.CurrentY = 14600: Picture1.Print "F(kN)" Picture1.CurrentX = 5: Picture1.CurrentY = 1000: Picture1.Print "Ff" Picture1.CurrentX = 120: Picture1.CurrentY = 3000: Picture1.Print "Ff+Fw" Dim ig(4) As Single ig(0) = Val(Text18) ig(1) = Val(Text19) ig(2) = Val(Text20) i

8、g(3) = Val(Text21) ig(4) = Val(Text22) f = Val(Text6) m = Val(Text2) G = Val(Text3) * 9.8 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) +

9、 (1 * if0 * ig(x) * ig(x) * i0 * i0 * t) / (m * r * r) Ua = 0.377 * (r * n) / (ig(x) * i0) Fw = (CdA * Ua * Ua) / 21.15 Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) 2 + 40.874 * (n / 1000) 3 - 3.8445 * (n / 1000) 4 Ft = (Tq * ig(x) * i0 * t) / r Fj = * m * a Picture1.PSet (Ua, Ft), vbBlu

10、e Picture1.PSet (Ua, Ff + Fw), vbRed Picture1.PSet (Ua, Ff), vbGreen If Abs(Ff + Fw - Ft) < 1 Then Text26.Text = Ua '求最高车速Uamax Next x Next nEnd SubPrivate Sub Command2_Click() '加速度曲线 Picture1.Cls Picture1.Scale (-10, 5)-(130, -0.3) Picture1.Line (0, 0)-(180, 0): Picture1.Line (0, 0)-(0,

11、5) Picture1.Line (126, -0.03)-(130, 0) '画横轴箭头 Picture1.Line (126, 0.03)-(130, 0) Picture1.Line (-1, 4.8)-(0, 5) '画纵轴箭头 Picture1.Line (1, 4.8)-(0, 5) For i = 1 To 11 Picture1.Line (10 * i, 0)-(10 * i, 0.05) Picture1.CurrentX = 10 * i - 3: Picture1.CurrentY = -0.05: Picture1.Print 10 * i Next

12、i For i = 1 To 9 Picture1.Line (0, 0.5 * i)-(2, 0.5 * i) Picture1.CurrentX = -8: Picture1.CurrentY = 0.5 * i + 0.05: Picture1.Print 0.5 * i Next i Picture1.CurrentX = -3: Picture1.CurrentY = -0.03: Picture1.Print 0 Picture1.CurrentX = 110: Picture1.CurrentY = 0.2: Picture1.Print "Ua(km/h)"

13、 Picture1.CurrentX = 3: Picture1.CurrentY = 4.8: Picture1.Print "a(m/s2)" 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) * 9.8 i = 0 CdA = Val(Text7) r = Val(Text4) i0 = Va

14、l(Text8) Iw = Val(Text10) + Val(Text11) if0 = Val(Text9) t = Val(Text5) Ff = G * f Fi = G * i Fj = * m * a 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 = 0.377 * (r * n) / (ig(x) * i0) Fw = (CdA * Ua * Ua) / 21.15 Tq = -19

15、.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) 2 + 40.874 * (n / 1000) 3 - 3.8445 * (n / 1000) 4 Ft = (Tq * ig(x) * i0 * t) / r a = (Ft - Ff - Fw) / ( * m) If a < 0 Then GoTo Label1 '不画加速度小于0的部分 Picture1.PSet (Ua, a), vbBlueLabel1: Next x Next nEnd SubPrivate Sub Command3_Click() '加速度倒数

16、曲线 Picture1.Cls Picture1.Scale (-8, 5)-(130, -0.3) Picture1.Line (0, 0)-(130, 0) Picture1.Line (0, 0)-(0, 5) Picture1.Line (126, -0.03)-(130, 0) '画横轴箭头 Picture1.Line (126, 0.03)-(130, 0) Picture1.Line (-1, 4.8)-(0, 5) '画纵轴箭头 Picture1.Line (1, 4.8)-(0, 5) For i = 1 To 11 Picture1.Line (10 * i

17、, 0)-(10 * i, 0.05) Picture1.CurrentX = 10 * i - 3: Picture1.CurrentY = -0.05: Picture1.Print 10 * i Next i For i = 1 To 9 Picture1.Line (0, 0.5 * i)-(2, 0.5 * i) Picture1.CurrentX = -8: Picture1.CurrentY = 0.5 * i + 0.05: Picture1.Print 0.5 * i Next i Picture1.CurrentX = -4: Picture1.CurrentY = 0:

18、Picture1.Print 0 Picture1.CurrentX = 110: Picture1.CurrentY = 0.2: Picture1.Print "Ua(km/h)" Picture1.CurrentX = 4: Picture1.CurrentY = 4.7: Picture1.Print "1/a" 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

19、) f = Val(Text6) m = Val(Text2) G = Val(Text3) * 9.8 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 Fj = * m * a For n = 600 To 4000 For x = 0 To 4 = 1 + (1 * Iw) / (m * r * r) + (1 * if0 * ig(x) * ig(x) * i0

20、 * i0 * t) / (m * r * r) Ua = 0.377 * (r * n) / (ig(x) * i0) Fw = (CdA * Ua * Ua) / 21.15 Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) 2 + 40.874 * (n / 1000) 3 - 3.8445 * (n / 1000) 4 Ft = (Tq * ig(x) * i0 * t) / r a = (Ft - Ff - Fw) / ( * m) If 1 / a > 4.8 Then GoTo Label1 '不画1

21、/ a > 4.8的部分 Picture1.PSet (Ua, 1 / a), vbRedLabel1: Next x Next nEnd SubPrivate Sub Command4_Click() '动力特性图 Picture1.Cls Picture1.Scale (-10, 1)-(130, -0.1) Picture1.Line (0, 0)-(130, 0) Picture1.Line (0, 0)-(0, 1) Picture1.Line (126, -0.005)-(130, 0) '画横轴箭头 Picture1.Line (126, 0.005)-(1

22、30, 0) Picture1.Line (-1, 0.95)-(0, 1) '画纵轴箭头 Picture1.Line (1, 0.95)-(0, 1) For i = 1 To 11 Picture1.Line (10 * i, 0)-(10 * i, 0.005) Picture1.CurrentX = 10 * i - 3: Picture1.CurrentY = -0.005: Picture1.Print 10 * i Next i For i = 1 To 9 Picture1.Line (0, 0.1 * i)-(2, 0.1 * i) Picture1.CurrentX

23、 = -8: Picture1.CurrentY = 0.1 * i + 0.05: Picture1.Print "0" 0.1 * i Next i Picture1.CurrentX = -3: Picture1.CurrentY = -0.02: Picture1.Print 0 Picture1.CurrentX = 115: Picture1.CurrentY = 0.05: Picture1.Print "Ua(km/h)" Picture1.CurrentX = 4: Picture1.CurrentY = 0.95: Picture1.

24、Print "D" Picture1.CurrentX = 10: Picture1.CurrentY = 0.05: Picture1.Print "f" Dim ig(4) As Single Dim D '引入动力因数 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) * 9.8 i = 0 CdA =

25、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 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 = 0.377 * (r * n) / (ig(x) * i0) Fw = (CdA * Ua *

26、Ua) / 21.15 Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) 2 + 40.874 * (n / 1000) 3 - 3.8445 * (n / 1000) 4 Ft = (Tq * ig(x) * i0 * t) / r a = (Ft - Ff - Fw) / ( * m) Fj = * m * a D = (Ff + Fi) / G + ( * a) / 9.8 If D < 0 Then GoTo Label1 '不画D小于0的部分 Picture1.PSet (Ua, D), vbBlue Pi

27、cture1.PSet (Ua, f), vbRedLabel1: Next x Next nEnd SubPrivate Sub Command5_Click() ' 爬坡度图 Picture1.Cls Picture1.Scale (-10, 0.5)-(120, -0.1) Picture1.Line (0, 0)-(120, 0) Picture1.Line (0, 0)-(0, 0.5) Picture1.Line (116, -0.003)-(120, 0) '画横轴箭头 Picture1.Line (116, 0.003)-(120, 0) Picture1.Li

28、ne (-1, 0.48)-(0, 0.5) '画纵轴箭头 Picture1.Line (1, 0.48)-(0, 0.5) For i = 1 To 11 Picture1.Line (10 * i, 0)-(10 * i, 0.008) Picture1.CurrentX = 10 * i - 3: Picture1.CurrentY = -0.003: Picture1.Print 10 * i Next i For i = 1 To 4 Picture1.Line (0, 0.1 * i)-(2, 0.1 * i) Picture1.CurrentX = -10: Pictur

29、e1.CurrentY = 0.1 * i + 0.005: Picture1.Print 10 * i Next i Picture1.CurrentX = -4: Picture1.CurrentY = -0.003: Picture1.Print 0 Picture1.CurrentX = 110: Picture1.CurrentY = 0.04: Picture1.Print "Ua(km/h)" Picture1.CurrentX = -8: Picture1.CurrentY = 0.47: Picture1.Print "i(%)" Di

30、m 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) * 9.8 CdA = Val(Text7) r = Val(Text4) i0 = Val(Text8) Iw = Val(Text10) + Val(Text11) if0 = Val(Text9) t = Val(Text5) Ff = G * f Fj = * m

31、* a 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 = 0.377 * (r * n) / (ig(x) * i0) Fw = (CdA * Ua * Ua) / 21.15 Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) 2 + 40.874 * (n / 1000) 3 - 3.8445 * (n / 1000)

32、4 Ft = (Tq * ig(x) * i0 * t) / r Fi = Ft - (Ff + Fw) i = Fi / Sqr(G 2 - Fi 2) If i < 0 Then GoTo Label1 '不画加速度小于0的部分 Picture1.PSet (Ua, i)Label1: Next x Next nEnd SubPrivate Sub Command6_Click() '直接挡加速时间曲线 Dim t Picture1.Cls Picture1.Scale (-5, 100)-(50, -10) Picture1.Line (0, 0)-(0, 100)

33、 Picture1.Line (0, 0)-(50, 0) Picture1.Line (48, -2)-(50, 0) '画横轴箭头 Picture1.Line (48, 2)-(50, 0) Picture1.Line (-1, 97)-(0, 100) '画纵轴箭头 Picture1.Line (1, 97)-(0, 100) For i = 1 To 4 Picture1.Line (10 * i, 0)-(10 * i, 3) Picture1.CurrentX = 10 * i - 1.5: Picture1.CurrentY = -0.1: Picture1.Pr

34、int 10 * i Next i For i = 1 To 9 Picture1.Line (0, 10 * i)-(1, 10 * i) Picture1.CurrentX = -3: Picture1.CurrentY = 10 * i + 2: Picture1.Print 10 * i Next i Picture1.CurrentX = -1: Picture1.CurrentY = -2: Picture1.Print 0 Picture1.CurrentX = 46: Picture1.CurrentY = -5: Picture1.Print "t/s"

35、Picture1.CurrentX = 2: Picture1.CurrentY = 98: Picture1.Print "Ua(km/h)" Picture1.CurrentX = 30: Picture1.CurrentY = 40: Picture1.Print "直接挡加速时间曲线" ig = 1 m = Val(Text2) G = Val(Text3) * 9.8 i = 0 CdA = Val(Text7) r = Val(Text4) i0 = Val(Text8) Iw = Val(Text10) + Val(Text11) if0

36、= Val(Text9) t = Val(Text5) Ff = G * f Fi = G * i Fj = * m * a t = 0 For n = 600 To 4000 Step 0.1 = 1 + (1 * Iw) / (m * r * r) + (1 * if0 * ig * ig * i0 * i0 * t) / (m * r * r) Ua = 0.377 * (r * n) / (ig * i0) Fw = (CdA * Ua * Ua) / 21.15 Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) 2 +

37、40.874 * (n / 1000) 3 - 3.8445 * (n / 1000) 4 Ft = (Tq * ig * i0 * t) / r a = (Ft - Ff - Fw) / ( * m) t = t + 1 * 0.377 * r * 0.1 / (i0 * a) '微分法求面积 Picture1.PSet (t, Ua), vbRed Next nEnd SubPrivate Sub Command7_Click() '外特性曲线 Dim Pe Picture1.Cls Picture1.Scale (-500, 250)-(4500, -30) Pictur

38、e1.Line (0, 0)-(4500, 0): Picture1.Line (0, 0)-(0, 240) Picture1.Line (4400, -3)-(4500, 0) '画横轴箭头 Picture1.Line (4400, 3)-(4500, 0) Picture1.Line (-50, 235)-(0, 240) '画纵轴箭头 Picture1.Line (50, 235)-(0, 240) For i = 1 To 10 Picture1.Line (400 * i, 0)-(400 * i, 5) Picture1.CurrentX = 400 * i -

39、100: Picture1.CurrentY = 0: Picture1.Print 400 * i Next i For i = 1 To 11 Picture1.Line (0, 20 * i)-(50, 20 * i) Picture1.CurrentX = -300: Picture1.CurrentY = 20 * i + 5: Picture1.Print 20 * i Next i Picture1.CurrentX = -150: Picture1.CurrentY = -2: Picture1.Print 0 Picture1.CurrentX = 3900: Picture

40、1.CurrentY = 20: Picture1.Print "n(r/min)" Picture1.CurrentX = 100: Picture1.CurrentY = 235: Picture1.Print "Tq(N.m)" Picture1.CurrentX = -400: Picture1.CurrentY = 235: Picture1.Print "Pe/kW" Picture1.CurrentX = 1600: Picture1.CurrentY = 185: Picture1.Print "Tq曲线&q

41、uot; Picture1.CurrentX = 1600: Picture1.CurrentY = 45: Picture1.Print "Pe曲线" For n = 600 To 4000 Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) 2 + 40.874 * (n / 1000) 3 - 3.8445 * (n / 1000) 4 Pe = Tq * n / 9550 Picture1.PSet (n, Tq), vbBlue Picture1.PSet (n, Pe), vbRed Next nEn

42、d SubPrivate Sub Command8_Click() '汽车功率平衡图 Picture1.Cls Picture1.Scale (-15, 75)-(200, -10) Picture1.Line (0, 0)-(200, 0) Picture1.Line (0, 0)-(0, 70) Picture1.Line (195, -2)-(200, 0) '画横轴箭头 Picture1.Line (195, 2)-(200, 0) Picture1.Line (-3, 67)-(0, 70) '画纵轴箭头 Picture1.Line (3, 67)-(0, 7

43、0) For i = 1 To 3 Picture1.Line (50 * i, 0)-(50 * i, 2) Picture1.CurrentX = 50 * i - 5: Picture1.CurrentY = -0.05: Picture1.Print 50 * i Next i For i = 1 To 13 Picture1.Line (0, 5 * i)-(3, 5 * i) Picture1.CurrentX = -10: Picture1.CurrentY = 5 * i + 1: Picture1.Print 5 * i Next i Picture1.CurrentX =

44、-10: Picture1.CurrentY = -2: Picture1.Print 0 Picture1.CurrentX = 170: Picture1.CurrentY = 4: Picture1.Print "Ua(km/h)" Picture1.CurrentX = 5: Picture1.CurrentY = 70: Picture1.Print "Pe/kW" Picture1.CurrentX = 110: Picture1.CurrentY = 70: Picture1.Print "(Pf+Pw)/t" Dim

45、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) * 9.8 i = 0 CdA = Val(Text7) r = Val(Text4) i0 = Val(Text8) Iw = Val(Text10) + Val(Text11) t = Val(Text5) Ff

46、 = 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 = 0.377 * (r * n) / (ig(x) * i0) Fw = (CdA * Ua * Ua) / 21.15 Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) 2 + 40.874 * (n / 100

47、0) 3 - 3.8445 * (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 / 21.15 + * m * a * Ua) / (3600 * t) Pz = (G * f * Ua / 3600 + CdA * Ua * Ua * Ua / 76140) / t If Pz > 70 Then GoTo Label1 '不画加速度小于0的部分 Pictu

48、re1.PSet (Ua, Pe), vbBlue Picture1.PSet (Ua, Pz), vbRedLabel1: Next x Next nEnd SubPrivate Sub Command9_Click() EndEnd Sub3.2程序运行结果 图1-1界面设计 1-2驱动力与行驶阻力平衡图 1-3加速度曲线1-4加速度倒数曲线1-5动力特性图1-6爬坡度图1-7直接挡加速时间 1-8发动机外特性曲线1-9功率平衡图4. 思考题5. 实验总结第 组西华大学实验报告开课学院及实验室： 实验时间： 年 月 日学 生 姓 名龙强学 号312009080306530实 验 成 绩课

49、程 名 称课 程 代 码实验项目名称项 目 代 码指 导 教 师项 目 学 分1、实验目的2、实验设备、仪器及材料3、实验内容3.1 一般实验（非上机实验）：3.1.1实验方案设计与选择（设计性、创新性实验需写该项内容）3.1.2实验原理及实验步骤（实验工作原理或实验的主要操作过程）3.1.3实验记录（核心代码及调试过程）3.2 上机实验：3.2.1上机实验的内容及要求3.2.2算法设计思想与算法实现步骤3.2.3程序核心代码，程序调试过程中出现的问题及解决方法3.2.4 程序运行的结果注解：理工科实验需记录实验过程中的数据、图表、计算、现象观察等，实验过程中出现的问题；其它如在计算机上进行的编程、仿真性或模拟性实验需记录程序核心代码以及程序在调式过程中出现的问题及解决方法；记录程序执行的结果。4