汽车理论实验报告Word格式.docx

1、 实验时间： 年 月 日学 生 姓 名学 号实 验 成 绩课 程 名 称课 程 代 码实验项目名称项 目 代 码指 导 教 师项 目 学 分1、实验目的2、实验环境与工具3、实验内容3.1实验方案设计与选择（设计性、创新性实验需写该项内容）3.2实验原理及实验步骤（实验工作原理或实验的主要操作过程）3.3实验记录（核心代码及调试过程）注解：理工科实验需记录实验过程中的数据、图表、计算、现象观察等，实验过程中出现的问题；其它如在计算机上进行的编程、仿真性或模拟性实验需记录程序核心代码以及程序在调式过程中出现的问题及解决方法；记录程序执行的结果。4、实验总结4.1实验结果分析及问题讨论4.2实验总

2、结心得体会4.3附录实验总结的内容根据不同学科和类型实验要求不一样，一般理工科类的实验需要对实验结果进行分析，并且对实验过程中问题进行讨论；在计算机上进行的编程、仿真性或模拟性实验需要对上机实践结果进行分析，上机的心得体会及改进意见。其它实验应总结实验过程写出心得体会及改进意见。3.1程序核心代码，程序调试过程中出现的问题及调试方法Option ExplicitDim n, x, cDim Tq, ig, Dim f, GDim m, i, CdA, rDim i0, Ua, Iw, if0Dim t, aDim Ft, Ff, FiDim Fx, Fw, FjPrivate Sub Comm

3、and1_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） Picture1.Line （-2, 14700）-（0, 15000） 画纵轴箭头 Picture1.Line （2, 14700）-（0, 15000

4、） 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） Picture1.CurrentX = -8: Picture1.CurrentY = 1000 * i + 400: Picture1.Print 1

5、 * i Picture1.CurrentX = -5: Picture1.Print 0 Picture1.CurrentX = 115: Picture1.CurrentY = 700: Picture1.Print Ua（km/h） Picture1.CurrentX = 5: Picture1.CurrentY = 14600:F（kN） Picture1.CurrentY = 1000:Ff Picture1.CurrentX = 120: Picture1.CurrentY = 3000:Ff+Fw Dim ig（4） As Single ig（0） = Val（Text18） i

6、g（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） if0 = Val（Text9） t = Val（Text5） Ff = G * f Fi = G * i a = 0 For n = 600 To 4000 For x

7、 = 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） 4 Ft = （Tq * ig（x） * i0 * t） / r Fj

8、 = * m * a Picture1.PSet （Ua, Ft）, vbBlue 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.Scale （-10, 5）-（130, -0.3） Picture1.Line （0, 0）-（180, 0）: Picture1.Line

9、 （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, 0）-（10 * i, 0.05） Picture1.CurrentX = 10 * i - 3: Picture1.CurrentY = -0.05: For i = 1 To 9 Picture1.Line （0, 0.5

10、* i）-（2, 0.5 * i） Picture1.CurrentY = 0.5 * i + 0.05: Picture1.Print 0.5 * i Picture1.CurrentX = -3: Picture1.CurrentY = -0.03: Picture1.CurrentX = 110: Picture1.CurrentY = 0.2:Ua（km/h） Picture1.CurrentX = 3: Picture1.CurrentY = 4.8:a（m/s2） a = （Ft - Ff - Fw） / （ * m） If a 4.8 Then GoTo Label1 不画1 /

11、 a 4.8的部分 Picture1.PSet （Ua, 1 / a）, vbRedPrivate Sub Command4_Click（） 动力特性图 Picture1.Scale （-10, 1）-（130, -0.1） Picture1.Line （0, 0）-（0, 1） Picture1.Line （126, -0.005）-（130, 0） Picture1.Line （126, 0.005）-（130, 0） Picture1.Line （-1, 0.95）-（0, 1） Picture1.Line （1, 0.95）-（0, 1） Picture1.Line （10 * i,

12、0）-（10 * i, 0.005） Picture1.CurrentY = -0.005: Picture1.Line （0, 0.1 * i）-（2, 0.1 * i） Picture1.CurrentY = 0.1 * i + 0.05:0; 0.1 * i Picture1.CurrentY = -0.02: Picture1.CurrentY = 0.05: Picture1.CurrentY = 0.95:D Picture1.CurrentX = 10:f Dim D 引入动力因数 D = （Ff + Fi） / G + （ * a） / 9.8 If D 不画D小于0的部分 P

13、icture1.PSet （Ua, D）, vbBlue Picture1.PSet （Ua, f）, vbRedPrivate Sub Command5_Click（） 爬坡度图 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） Pict

14、ure1.Line （1, 0.48）-（0, 0.5） Picture1.Line （10 * i, 0）-（10 * i, 0.008） Picture1.CurrentY = -0.003: For i = 1 To 4 Picture1.CurrentX = -10: Picture1.CurrentY = 0.1 * i + 0.005: Picture1.CurrentY = 0.04: Picture1.CurrentY = 0.47:i（%） Fi = Ft - （Ff + Fw） i = Fi / Sqr（G 2 - Fi 2） If i Picture1.PSet （Ua, i）Private Sub Command6_Click（） 直接挡加速时间曲线 Dim t 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, 2