发动机工作过程计算

学习文档仅供参考学习文档仅供参考第2组西华大学实验报告开课学院及实验室： 实验时间：2012年4月7日学生姓名学号实验成绩课程名称发动机工作过程的计算课程代码8200250实验项目名称发动机工作过程计算上机实验项目代码指导教师项目学分实验课考勤实验工作表现实验报告1、实验目的2、实验设备、仪器及材料3、实验内容一般实验〔非上机实验〕：实验方案设计与选择〔设计性、创新性实验需写该项内容〕实验原理及实验步骤〔实验工作原理或实验的主要操作过程〕实验记录〔核心代码及调试过程〕上机实验：上机实验的内容及要求算法设计思想与算法实现步骤程序核心代码，程序调试过程中出现的问题及解决方法程序运行的结果注解：理工科实验需记录实验过程中的数据、图表、计算、现象观察等，实验过程中出现的问题；其它如在电脑上进行的编程、仿真性或模拟性实验需记录程序核心代码以及程序在调式过程中出现的问题及解决方法；记录程序执行的结果。4、实验总结实验结果分析及问题讨论心得体会注解：实验总结的内容根据不同学科和类型实验要求不一样，一般理工科类的实验需要对实验结果进行分析，并且对实验过程中问题进行讨论；在电脑上进行的编程、仿真性或模拟性实验需要对上机实践结果进行分析，上机的心得体会及改良意见。其它实验应总结实验过程写出心得体会及改良意见。说明：各门实验课程实验报告的格式及内容要求，请按照实验指导书的要求手工书写。实验目的实验仪器，设备及材料实验内容MsgBox"西华大学2009级交通与汽车工程学院热能与动力工程〔汽车发动机〕3班唐俊EndSub运行结果依次如下：进入界面时：PrivateSubCommand1_Click()EndSub运行出的图像如下：电发测工指■算蝌 电发测工指■算蝌 F匚一叫学习文档仅供参考学习文档仅供参考欢迎使用发动机工作过程计算程.学学学学学习文档仅供参考学习文档仅供参考PrivateSubCommand2_Click()MsgBox"西华大学2009级交通与汽车工程学院热能与动力工程〔汽车发动机〕3班唐俊EndSub当进入主界面之后可对发动机类型，是否需要增压，经验参数以及发动机参数进行选择和修改。选择界面如下：发动机类型:后汽油机「柴油机是否增压：「增压G非噌压燃油成分二|0.SE5|O.155经监参数：、鲍利用系数）C宛生空气系数）0.G发动机类型:后汽油机「柴油机是否增压：「增压G非噌压燃油成分二|0.SE5|O.155经监参数：、鲍利用系数）C宛生空气系数）0.G0.Gnl（平均多变压缩指数〕1平均多变膨胀指数）小i冰功图丰满系数〕0.96进气过程:力循气然点温度）Pa0气终点压力〕V•余废气系数）"亮气效率〕压缩过程:Tv匹缩修点温度）Fc庇能蟀点压力〕E低缩比）8.84叫式单缸工作容积）£布程）86D圻I笛L解杆长度）135n酷速，4000dH前定转速〕4500发动机参数：主程序的详细代码如下：Dim£AsSingle,SAsSingle,nAsInteger,nhAsInteger,aAsSingle,vc,vh,pa,n1,入,pz,vz,n2,jx,zyPrivateSubCommand1_Click()Picturel.Scale(-0.05,-0.5)-(1.05,11)Picturel.Line(0,10)-(1,10) '画X轴Picturel.Line(0.98,9.9)-(1,10)Picturel.Line(0.98,10.1)-(1,10)PictureLCurrentX=0.98:PictureLCurrentY=10.2:PictureLPrint"V/L"PictureLLine(i,9.9)-(i,10)PictureLPrint"0"&iNextiPictureLLine(0,10)-(0,0) '画Y轴PictureLLine(0,0)-(-0.01,0.3)PictureLLine(0.01,0.3)-(0,0)PictureLCurrentX=-0.04:PictureLCurrentY=-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)学习文档仅供参考学习文档仅供参考r=S/2vh=3.14*dA2*S/4*10A-6Text16.Text=vhvc=vh/(£-1)Picture1.CurrentX=vc+0.01:Picture1.CurrentY=1:Picture1.Print"Vc"Picture1.Line(vc,10)-(vc,0)Va=vc+vhPicture1.ForeColor=vbGreenvcx=vh/2*((1-Cos(px))+(1-Cos(2*px))*Rl/4)+vc'vcx=(3.14*da2*r*((1-Cos(px)+r*(1-Cos(2*px)/4/l)))/4)*10A-8+vcpcx=pa*(Va/vcx)An1Picture1.PSet(vcx,10-pcx)Nextex '燃烧过程曲线PictureLLine(vcx,10-pcx)-(vcx,10-pcx*入) '膨胀过程曲线vbx=vh/2*((1-Cos(px))+(1-Cos(2*px))*Rl/4)+vc'vcx=(3.14*dA2*r*((1-Cos(px)+r*(1-Cos(2*px)/4/l)))/4+vc)*10A-6pbx=pz*(vc/vbx)An2Picture1.PSet(vbx,10-pbx)NextpxPicture1.Line(vbx,10-pbx)-(vbx,10-pa)Picture1.ForeColor=vbBlackEndSubPrivateSubCommand2_Click()£=Val(Text2.Text)r=S/2vh=3.14*dA2*S/4*10A-6Text16.Text=vh '排气过程n=Val(Text5.Text)nh=Val(Text6.Text)Ifzy=1Thenpr=0.1+0.03*n/nhElseIfzy=2ThenApr=2*10a-8*na2pr=pk+AprEndIfText18.Text=pra=Val(Textl.Text)£=Val(Text2.Text)If£=1ThenMsgBox("压缩比不能为“1”，请重新输入！")Text2.Text=""EndIfTr=350/(1.2/Log10(n)+0.005*(e-3)+0.01*(a-1)) '调用自定义函数就以10为底的对数Text17.Text=Tr '进气过程AT=10*(110-0.0125*n)/(110-0.0125*nh) ’10为ATn,选取k=1.35 'a=vh/fp0=Text7.Text'Pa=P0*(1-nA2/2*9.8*k*p0/pA2*((£-b)/(£-1))A2)Ak/(k-1)pa=Int(10a4*(p0*(1-((10*na2/520/10、6)/10.6a2/0.75'2)*(£-5)a2/(£-1)a2)a(k/(k-1))))/10A4Text20.Text=paY=Int(10a4*(t0+AT)*pr/Tr/(e*pa-pr))/10a4 '残余废气系数Text21.Text=yta=(t0+AT+y*p*Tr*(pa/pr)a((n-1)/n))/(1+y*p)Text19.Text=tanv=e*pa*t0/(e-1)/p0/ta/(1+y) '充气效率Text22.Text=nv '压缩过程n1=1.46-0.05*nh/nText25.Text=n1pc=pa*£An1Text29.Text=pctc=ta*£A(n1-1)Text28.Text=tc'燃烧过程：gc=Val(Text9.Text)gh=Val(Text10.Text)go=Val(Text11.Text)gs=Val(Text12.Text)l0=1/0.21*(gc/12+gh/4-go/32) '理论空气量Ifjx=1Thenml=a*10+1/mt'汽油机新鲜充量'm2'm2燃烧产物总量'理论分子变更系数'实际分子变更系数'化学损失'加热工质的热量ElseIfjx=2Thenml=a*10EndIfIfa>1Thenm2=a*l0+gh/4+go/32ElseIfa<1Thenm2=0.79*a*l0+gc/12+gh/2EndIfu0=m2/mlu=(u0+Y)/(1+Y)Text34.Text=gIfa<1ThenAhu=58000*(1-a)EndIf'Tz的计算Ifjx=1Thenhu=44100ElseIfjx=2Thenhu=42500EndIfq1=Z*(hu-Ahu)cv1=4.815+0.415*10A-3*(tc+t0)/2SelectCaseaCase0.8To1Ifjx=1Thenaa=(3.7+3.3*a)*10A-4*gbb=(4.4+0.62*a)*gcc=-(q1/ml/(1+y)+cv1*tc)Text31.Text=tz入=g*tz/tcText33.Text=入pz=入*pcText32.Text=pzElseIfjx=2Thenaa=g*(3.7+3.3*a)*10A-4bb=(6.385+0.62*a)*gcc=-(Z*hu/ml/(1+y)+(cv1+1.98*入)*tc)Text31.Text=tzpz=入*pcText32.Text=pzp=g*tz/入/tcText30.Text=pEndIfCase1To2Ifjx=1Thenaa=(3.7+3.3/a)*10A-4*gbb=(4.8+0.22/a)*gcc=-(q1/ml/(1+y)+cv1*tc)Text31.Text=tz入=g*tz/tcText33.Text=入pz=入*pcText32.Text=pzElseIfjx=2Thenaa=(3.7+3.3/a)*10A-4*gbb=(6.785+0.22/a)*gcc=-(Z*hu/ml/(1+y)+(cv1+1.98*入)*tc)Text31.Text=tzpz=入*pcText32.Text=pzp=g*tz/入/tcText30.Text=pEndIfEndSelect'膨胀过程：n2=1.2+0.039*nh/nText26.Text=n2%=£/p'Text37.Text=8pb=pz/£An2Text36.Text=pbtb=tz/£A(n2-1)Text35.Text=tb'发动机性能分析p=1Text30.Text=p5=0Text37.Text=5Pii=pc*(入*(1-1/£A(n2-1))/(n2-1)-(1-1/£A(n1-1))/(n1-1))/(b-1)'Pii=pa*£ani*(入*(p-1)+入*p/(n2-1)*(1-1/5人(n2-1))-(1-1/£人(n1-1)/(n1-1)))/(£-1)pi=pi*PiiText39.Text=pini=8.314*m1*t0*pi/hu/p0/nvText38.Text=nigi=3.6*10A6/hu/niText40.Text=gipm=0.04*(1+n/1000)nm=1-pm/piText27.Text=nmne=ni*nmText42.Text=nepe=pi*nmText41.Text=pege=3.6*10A6/hu/neText43.Text=gene=10*i*vh*pe*n/1200Text44.Text=neEndSubPrivateSubCommand3_Click()MsgBox("确定退出？")EndEndSubPrivateSubCommand4_Click()EndSubStaticFunctionLog10(X)Log10=Log(X)/Log(10#) '求以10为底的对数用的函数EndFunctionPrivateSubForm_Load()Option1.Value=TrueOption4.Value=TrueEndSubPrivateSubOption1_Click()jx=1学习文档仅供参考学习文档仅供参考EndSubPrivateSubOption2_Click()jx=2EndSubPrivateSubOption3_Click()zy=2Label45.Visible=TrueText45.Visible=TrueEndSubPrivateSubOption4_Click()zy=1Label45.Visible=FalseText45.Visible=FalseEndSub运行例如如下：1、当选择是汽油机且非增压时，如图:发动机类型：是否增压:金非峭压:⑻0.SE5.30.IESg(o)QQMt：115耀油成分二经髓手数：口国量空气系数）0.9。的利用手|og数） 1nl（平均荽变压缩指数）平均多变膨「胀指数） 1小i东功图丰满系数）0.96发动机参数：进气过程:门储气修点温度）Fa的气终点压力〕节越余废气系黝n事而气效率〕压缩过程:Tc低缩修点,温度）Fc任缩签点庆五）5缩比〕S.8L闹数）451行程）SE0施I径〕91n筋速）4000nH倒淀转速）4500Vh津缸工作容树l喳杆长度）135运算结果如下:进气过程二Ta妞气貉点i温■度〕316.396^Fa阳气整点压力〕.Q97S¥雌余墩气系数〕.0532"比一L效率）.9536219EijraaiTraa-Tc庇能修点温度〕761.31^1Fc狂缩终点压力〕2.070887C*融生不引■坦-N_RJk.人」口,■T工艇烧员高温度J2777.&52EF工锻烧终点压力JB.1£899499P雨）期膨胀比）K压力升高比）13.944BS3C口（实际分子变更系数）1.00113053Fh偏胀终点压力〕T1儡胀然点温度〕s后期膨胀比〕1634.用伊.546198162排气过程：Tr解气隆点温度Fr制气终点压力〕9E1L45或.L266666E发前机性能指标；ni潴不热效率）pi1.平均指示应如1.328010-.3B3030184gfT?a^T^^油消耗率）224.洗4型产苏均有效1.12S01037口e市效热效率】,3优35T3£群市效期油霜耗率〕2C4.733S94Ne初率校核〕64,08193^:m出L械效窣,6493^8766天气状况：FQo.i TO288此时的示功图如下:2、当选择是柴油机且非增压时，如图:发动机类型：「汽油机■柴油机是否增压：「增压G非噌压燃油出4■短骆T-a6寸最空气1.5。的利用耒|og数） 1g⑹0.S550.1E5系数）g(o)g：(s)nl（平均多变压缩指数）Q.12Qm21平均多变膨r胀指勖 1由】日功图丰满系数）M-t：1150.96进气过程:真储气修点温度）V甜余废气票数〕压缩过程：TcCE缩缪点温度）%做气修点压力〕口？充气

效率）Fc压缩终点底方）€（E缩比）12L丽数）4Vh津缸工作容枳〕口闹径）L喳杆长度〕S1行程）8691135n精速）4000nM〔颤定转速）4500发动机参数:运算结果如下:Ta储气缪点温度）310.87O9EFwdfi气终点压力）,0979Y谯余废气系数）,0395效率）.951B293E压罪过程：Fc低缩终Tc低缩终点温度）047.812013.203932E地烧过程：蹉嘤烧线点定力）Th徽烧最高温度）2261.0-47116,0196627P制期膨胀比）1P-1实际妁子变更系数）1.053S7205M（E才升高比）5膨胀过程：FE福联鳏点压力）TE福服终点温度）1233.45S1,72S260571S於期膨胀比）o-—排气过程：T/雄气鲜点温度913.4HTT5Pr供气终点压力I,1266666Egl曲示度福消耗率）ne市效热效率）丈气状况：POEF进气过程；发动机参数：Vh1单缸工作1倒数〕4,559050：12口倒径〕容积〕E