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

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

交通与汽车工程学院 实 验 报 告

课 程 名 称: 汽车理论 课 程 代 码: 学院(直属系): 年级/专业/班: 学 生 姓 名: 学 号: 实验总成绩: 任 课 教 师: 开 课 学 院: 实验中心名称:

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

西华大学实验报告

开课实验室：汽车与交通学院计算机机房5D-215 实验时间： 年 月 日

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、实验总结

4.1实验结果分析及问题讨论 4.2实验总结心得体会

注解：实验总结的内容根据不同学科和类型实验要求不一样，一般理工科类的实验需要对实验结果进行分析，并且对实验过程中问题进行讨论；在计算机上进行的编程、仿真性或模拟性实验需要对上机实践结果进行分析，上机的心得体会及改进意见。其它实验应总结实验过程写出心得体会及改进意见。

说明：各门实验课程实验报告的格式及内容要求，请按照实验指导书的要求手工书写。

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

实验一

1.实验目的

2.实验设备、仪器及材料

3.实验内容

3.1窗体界面

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

3.2程序核心代码

① Private Sub Command1_Click() '汽车驱动力与行驶阻力平衡' Picture1.Cls

Dim i, j, n As Integer

Dim Ft, Ff, Fw, Umax, Ua As Single

Dim ig(1 To 5) As Double '变速器传动比赋值' ig(1) = 5.56: ig(2) = 2.769 ig(3) = 1.644: ig(4) = 1# ig(5) = 0.793

Picture1.Scale (-10, 16000)-(140, -1000)

Picture1.Line (0, 0)-(130, 0): Picture1.Line (0, 15000)-(0, 0) Picture1.Line (127, -150)-(130, 0) Picture1.Line (127, 150)-(130, 0) Picture1.Line (-0.5, 14300)-(0, 15000) Picture1.Line (0.5, 14300)-(0, 15000)

For i = 1 To 12

Picture1.Line (10 * i, 0)-(10 * i, 200) Picture1.CurrentX = 10 * i - 4 Picture1.CurrentY = -50 Picture1.Print 10 * i Next i

For i = 1 To 14

Picture1.Line (0, 1000 * i)-(2, 1000 * i)

Picture1.CurrentX = -5: Picture1.CurrentY = 1000 * i: Picture1.Print 1 * i Next i

Picture1.CurrentX = -5: Picture1.CurrentY = -50: Picture1.Print 0

Picture1.CurrentX = 125: Picture1.CurrentY = -200: Picture1.Print "Ua(km/h)" Picture1.CurrentX = 3: Picture1.CurrentY = 15000: Picture1.Print "F(kN)" Picture1.CurrentX = 110: Picture1.CurrentY = 3000: Picture1.Print "Fw+Ff" Picture1.CurrentX = 120: Picture1.CurrentY = 1000: Picture1.Print "Ff" r = Val(Text6.Text): f = Val(Text8.Text)

i0 = Val(Text10.Text): m = Val(Text5.Text): ηt = Val(Text7.Text) For n = 600 To 4000 'n是转速

Tq = -19.313 + 295.27 * (n / 1000) - 165.44 * (n / 1000) ^ 2 + 40.874 * (n / 1000) ^ 3 - 3.8445 * (n / 1000) ^ 4

For j = 1 To 5

Ft = Tq * i0 * ig(j) * ηt / r '驱动力' Ff = f * 9.8 * m '滚动阻力'

Ua = 0.377 * r * n / (i0 * ig(j)) '汽车行驶速度' Fw = 2.77 * Ua ^ 2 / 21.15 '空气阻力' Picture1.PSet (Ua, Ft), vbMagenta Picture1.PSet (Ua, Ff), vbBlue

Picture1.PSet (Ua, (Ff + Fw)), vbRed

If Abs(Ff + Fw - Ft) < 1 Then Text1.Text = Ua '求最高车速Uamax

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

Next n End Sub

运行结果：

② Private Sub Command2_Click() '加速度曲线'

Picture1.Cls

Dim i, j, n As Integer

Dim Ff, Ft, Fw, a, δ, Ua As Single

Dim ig(1 To 5) As Double '变速器传动比赋值'

ig(1) = 5.56: ig(2) = 2.769 ig(3) = 1.644: ig(4) = 1#

ig(5) = 0.793

Picture1.Scale (-10, 3.2)-(140, -0.3)

Picture1.Line (0, 0)-(120, 0): Picture1.Line (0, 0)-(0, 3) Picture1.Line (116, -0.03)-(120, 0) Picture1.Line (116, 0.03)-(120, 0) Picture1.Line (-0.5, 2.8)-(0, 3) Picture1.Line (0.5, 2.8)-(0, 3)

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 5

Picture1.Line (0, 0.5 * i)-(2, 0.5 * i)

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

Next i

Picture1.CurrentX = -3: Picture1.CurrentY = -0.03: Picture1.Print 0

Picture1.CurrentX = 118: Picture1.CurrentY = -0.05: Picture1.Print "Ua(km/h)" Picture1.CurrentX = 3: Picture1.CurrentY = 3: Picture1.Print "a(m/s^2)" r = Val(Text6.Text): f = Val(Text8.Text) i0 = Val(Text10.Text): m = Val(Text5.Text): ηt = Val(Text7.Text)

Iw = Val(Text13.Text) + Val(Text12.Te …… 此处隐藏：10336字，全部文档内容请下载后查看。喜欢就下载吧 ……