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

《西华大学汽车理论实验报告.doc》由会员分享，可在线阅读，更多相关《西华大学汽车理论实验报告.doc（48页珍藏版）》请在三一办公上搜索。

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

2、（非上机实验）：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, CdA, rD

4、im 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 (126, 200)-(130, 0) Picture

5、1.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.Line (0, 1000 * i)-(2, 1000 * i) Pictur

6、e1.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: Picture1.CurrentY = 14600: Picture1.Print F(kN) Picture

7、1.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) ig(3) = Val(Text21) ig(4) = Val(Text22) f = Val(Text6) m = Val(Text2) G = Val(Text3) * 9

8、.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) + (1 * if0 * ig(x) * ig(x) * i0 * i0 * t) / (m * r * r) Ua = 0.377 * (r * n) / (ig(x) *

9、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), vbBlue Picture1.PSet (Ua, Ff + Fw), vbRed Picture1.PSet (Ua, Ff), vbGreen If Abs(Ff + Fw - F

10、t) 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, 5) Picture1.Line (126, -0.03)-(130, 0) 画横轴箭头 Picture1.Line (126, 0.03)-(130, 0) Picture1.Line (-1, 4.8

11、)-(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 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

12、.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) Picture1.CurrentX = 3: Picture1.CurrentY = 4.8: Picture1.Print a(m/s2) Dim ig(4) As Single ig(0) = Val(Text18) ig(1) = Val(

13、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) if0 = Val(Text9) t = Val(Text5) Ff = G * f Fi = G * i Fj = * m * a For n = 600 To 4000 For x = 0

14、 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) 4 Ft = (Tq * ig(x) * i0 * t) / r a = (F

15、t - Ff - Fw) / ( * m) If a 4.8 Then GoTo Label1 不画1 / 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

16、) 画横轴箭头 Picture1.Line (126, 0.005)-(130, 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

17、)-(2, 0.1 * i) Picture1.CurrentX = -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:

18、Picture1.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 = Val(Text7) r = Val(T

19、ext4) 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 * Ua) / 21.15 Tq = -19

20、.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 Picture1.PSet (Ua, f), vbRedLabe

21、l1: 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.Line (-1, 0.48)-(0, 0.5) 画纵轴箭头 Picture1.Lin

22、e (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: Picture1.CurrentY = 0.1 * i + 0.005: Picture1.Print

23、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(%) Dim ig(4) As Single ig(0) = Val(Text18) ig(1) = Val(Text19) ig(2) = Val(

24、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 * a a = 0 For n = 600 To 4000 For x = 0 To 4 = 1 + (1 * Iw) / (m * r *

25、 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) 4 Ft = (Tq * ig(x) * i0 * t) / r Fi = Ft - (Ff + Fw) i = Fi / Sqr(G 2

26、- 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) Picture1.Line (0, 0)-(50, 0) Picture1.Line (48, -2)-(50, 0) 画横轴箭头 Picture1.Line (48,

27、 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.Print 10 * i Next i For i = 1 To 9 Picture1.Line (0, 10 * i)-(1, 10 * i) Picture1.CurrentX = -3:

28、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 Picture1.CurrentX = 2: Picture1.CurrentY = 98: Picture1.Print Ua(km/h) Picture1.CurrentX = 30: Picture1.Cur

29、rentY = 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 = 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

30、 * 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 + 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 /

31、 (i0 * a) 微分法求面积 Picture1.PSet (t, Ua), vbRed Next nEnd SubPrivate Sub Command7_Click() 外特性曲线 Dim Pe Picture1.Cls Picture1.Scale (-500, 250)-(4500, -30) Picture1.Line (0, 0)-(4500, 0): Picture1.Line (0, 0)-(0, 240) Picture1.Line (4400, -3)-(4500, 0) 画横轴箭头 Picture1.Line (4400, 3)-(4500, 0) Picture1.L

32、ine (-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 - 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.Cur

33、rentY = 20 * i + 5: Picture1.Print 20 * i Next i Picture1.CurrentX = -150: Picture1.CurrentY = -2: Picture1.Print 0 Picture1.CurrentX = 3900: Picture1.CurrentY = 20: Picture1.Print n(r/min) Picture1.CurrentX = 100: Picture1.CurrentY = 235: Picture1.Print Tq(N.m) Picture1.CurrentX = -400: Picture1.Cu

34、rrentY = 235: Picture1.Print Pe/kW Picture1.CurrentX = 1600: Picture1.CurrentY = 185: Picture1.Print Tq曲线 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 nEnd S