发动机工作过程计算

第 2 组

西华大学实验报告

西华大学实验报告

开课学院及实验室：实验时间：2012 年 4 月 7 日学生姓名学号实验成绩

课程名称发动机工作过程的计算课程代码8200250 实验项目名称发动机工作过程计算上机实验项目代码

指导教师项目学分

实验课考勤实验工作表现实验报告

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.实验内容

MsgBox " 西华大学2009级交通与汽车工程学院热能与动力工程（汽车发动机）3班唐俊End Sub

运行结果依次如下：

进入界面时：

Private Sub Command1_Click()

Form1.Show

Form2.Hide

End Sub

运行出的图像如下：

Private Sub Command2_Click()

MsgBox " 西华大学2009级交通与汽车工程学院热能与动力工程（汽车发动机）3班唐俊End Sub

当进入主界面之后可对发动机类型，是否需要增压，经验参数以及发动机参数进行选择和修改。

选择界面如下：

主程序的详细代码如下：

Dim ε As Single, S As Single, n As Integer, nh As Integer, α As Single, vc, vh, pa, n1, λ, pz, vz, n2, jx, zy Private Sub Command1_Click()

Picture1.Scale (-0.05, -0.5)-(1.05, 11)

Picture1.Line (0, 10)-(1, 10) '画X轴

Picture1.Line (0.98, 9.9)-(1, 10)

Picture1.Line (0.98, 10.1)-(1, 10)

Picture1.CurrentX = 0.98: Picture1.CurrentY = 10.2: Picture1.Print "V/L"

For i = 0 To 0.9 Step 0.1

Picture1.Line (i, 9.9)-(i, 10)

Picture1.Print "0" & i

Next i

Picture1.Line (0, 10)-(0, 0) '画Y轴

Picture1.Line (0, 0)-(-0.01, 0.3)

Picture1.Line (0.01, 0.3)-(0, 0)

Picture1.CurrentX = -0.04: Picture1.CurrentY = -0.4: Picture1.Print "P/Mpa"

For i = 9 To 1 Step -1

Picture1.Line (0.01, i)-(0, i)

Picture1.Print 10 - i

Next i

Picture1.ForeColor = vbRed '画P0线

Picture1.Line (0, 9.9)-(1, 9.9)

Picture1.CurrentX = 1: Picture1.CurrentY = 9.4: Picture1.Print "P0"

Picture1.ForeColor = vbBlue '画Vc线'压缩曲线

ε = Val(Text2.Text)

d = Text4.Text

S = Text3.Text

r = S / 2

vh = 3.14 * d ^ 2 * S / 4 * 10 ^ -6

Text16.Text = vh

vc = vh / (ε - 1)

Picture1.CurrentX = vc + 0.01: Picture1.CurrentY = 1: Picture1.Print "Vc"

Picture1.Line (vc, 10)-(vc, 0)

V a = vc + vh

l = Text15.Text

Picture1.ForeColor = vbGreen

For φx = 3.14 To 0 Step -0.0001

vcx = vh / 2 * ((1 - Cos(φx)) + (1 - Cos(2 * φx)) * Rl / 4) + vc

'vcx = (3.14 * d ^ 2 * r * ((1 - Cos(φx) + r * (1 - Cos(2 * φx) / 4 / l))) / 4) * 10 ^ -8 + vc pcx = pa * (Va / vcx) ^ n1

Picture1.PSet (vcx, 10 - pcx)

Next φx '燃烧过程曲线

Picture1.Line (vcx, 10 - pcx)-(vcx, 10 - pcx * λ) '膨胀过程曲线

For φx = 0 To 3.14 Step 0.0001

vbx = vh / 2 * ((1 - Cos(φx)) + (1 - Cos(2 * φx)) * Rl / 4) + vc

'vcx = (3.14 * d ^ 2 * r * ((1 - Cos(φx) + r * (1 - Cos(2 * φx) / 4 / l))) / 4 + vc) * 10 ^ -6 pbx = pz * (vc / vbx) ^ n2

Picture1.PSet (vbx, 10 - pbx)

Next φx

Picture1.Line (vbx, 10 - pbx)-(vbx, 10 - pa)

Picture1.ForeColor = vbBlack

End Sub

Private Sub Command2_Click()

Picture1.Cls

ε = Val(Text2.Text)

d = Text4.Text

S = Text3.Text

r = S / 2

l = Text15.Text

vh = 3.14 * d ^ 2 * S / 4 * 10 ^ -6

Text16.Text = vh '排气过程

n = Val(Text5.Text)

nh = V al(Text6.Text)

If zy = 1 Then

pr = 0.1 + 0.03 * n / nh

ElseIf zy = 2 Then

pk = Text45.Text

Δpr = 2 * 10 ^ -8 * n ^ 2