西华大学实验报告西华大学实验报告开课学院及实验室：实验时间：2012年4月7日学生姓名学号实验成绩课程名称发动机工作过程的计算课程代码8200250实验项目名称发动机工作过程计算上机实验项目代码指导教师项目学分实验课考勤实验工作表现实验报告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.实验目的第页1第2组西华大学实验报告2.实验仪器，设备及材料3.实验内容MsgBox"西华大学2009级交通与汽车工程学院热能与动力工程（汽车发动机）3班唐俊EndSub运行结果依次如下：进入界面时：PrivateSubCommand1_Click()Form1.ShowForm2.HideEndSub运行出的图像如下：第页2西华大学实验报告第页3西华大学实验报告PrivateSubCommand2_Click()MsgBox"西华大学2009级交通与汽车工程学院热能与动力工程（汽车发动机）3班唐俊EndSub当进入主界面之后可对发动机类型，是否需要增压，经验参数以及发动机参数进行选择和修改。选择界面如下：第页4西华大学实验报告主程序的详细代码如下：DimεAsSingle,SAsSingle,nAsInteger,nhAsInteger,αAsSingle,vc,vh,pa,n1,λ,pz,vz,n2,jx,zyPrivateSubCommand1_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"Fori=0To0.9Step0.1Picture1.Line(i,9.9)-(i,10)Picture1.Print"0"&iNextiPicture1.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"Fori=9To1Step-1Picture1.Line(0.01,i)-(0,i)Picture1.Print10-iNextiPicture1.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)第页5西华大学实验报告d=Text4.TextS=Text3.Textr=S/2vh=3.14*d^2*S/4*10^-6Text16.Text=vhvc=vh/(ε-1)Picture1.CurrentX=vc+0.01:Picture1.CurrentY=1:Picture1.Print"Vc"Picture1.Line(vc,10)-(vc,0)Va=vc+vhl=Text15.TextPicture1.ForeColor=vbGreenForφx=3.14To0Step-0.0001vcx=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+vcpcx=pa*(Va/vcx)^n1Picture1.PSet(vcx,10-pcx)Nextφx'燃烧过程曲线Picture1.Line(vcx,10-pcx)-(vcx,10-pcx*λ)'膨胀过程曲线Forφx=0To3.14Step0.0001vbx=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^-6pbx=pz*(vc/vbx)^n2Picture1.PSet(vbx,10-pbx)NextφxPicture1.Line(vbx,10-pbx)-(vbx,10-pa)Picture1.ForeColor=vbBlackEndSubPrivateSubCommand2_Click()Picture1.Clsε=Val(Text2.Text)d=Text4.TextS=Text3....
