195柴油机工作过程计算

发动机热负荷与热强度实验报告图1，计算结果；发动机热负荷与热强度实验报告图2，P-V图图3，P-Φ图发动机热负荷与热强度实验报告图4，P-φ图图5，h-Φ图发动机热负荷与热强度实验报告图6，活塞温度图发动机热负荷与热强度实验报告程序代码：OptionExplicitDimn,nn,pr,poAsSingleDimtr,pa,s,d,vh,kkkAsSingleDimpab,e,paa,pad,pacAsSingleDimtt,T,yy,fa,X,Y,taAsSingleDimnv,n1,tc,jx,pc,fxAsSingleDiml,vc,Va,gc,gh,g0AsSingleDimvcx,r,lo,A,mt,m1,m2,u0,uAsSingleDimkhu,cv1,cv2,tz,ccc,hu,qq,aaa,bbbAsSingleDiml8,n2,pz,H,tb,pi1,pi,φx,φ,pAsSingleDimfi,pm,nm,ni,gi,ne,pe,ge,nne,i,v,pb,pcx,vbx,pbxAsDoubleDimaa(50),ylsgbAsSinglePrivateSubCommand4_Click()Picture1.ClsPicture1.ForeColor=vbGreenPicture1.DrawWidth=1.5Picture1.Scale(-0.1,99)-(1,-10)Picture1.Line(0,0)-(0,95)'y轴Picture1.Line(0,0)-(0.95,0)'x轴Picture1.Line(0.93,1)-(0.95,0)Picture1.Line(0.93,-1)-(0.95,0)Picture1.Line(0.015,94)-(0,95)Picture1.Line(-0.015,94)-(0,95)Fori=1To9Step1Picture1.Line(0,i*10)-(0.015,i*10)Picture1.Line(0.1*i,0)-(0.1*i,-1)Picture1.CurrentX=-0.1:Picture1.CurrentY=10*i+3:Picture1.Printi*10发动机热负荷与热强度实验报告Picture1.CurrentX=0.1*i-0.04:Picture1.CurrentY=-3:Picture1.Print0&i*0.1NextiPicture1.CurrentX=0:Picture1.CurrentY=95:Picture1.PrintP（atm）Picture1.CurrentX=0.8:Picture1.CurrentY=10:Picture1.PrintV（L）'压缩过程曲线Ifvh=0ThenMsgBox请先输入参数,并计算,0,提示:GoToqEndIfvc=vh/eDimXAsSingle:Dimpcx,vcxAsSinglePicture1.DrawWidth=1.3Picture1.Line(vc,10*po)-(0.9,10*po)Picture1.Line(vc,po)-(vc,88)Picture1.DrawWidth=1.5Picture1.ForeColor=vbYellowForX=vTovcStep-0.0001vcx=Xpcx=pa*(v/vcx)^n1Picture1.PSet(vcx,pcx)NextX'燃烧过程曲线Picture1.Line(vcx,pcx)-(vc,pz)'膨胀过程曲线Dimvbx,pbxAsSinglePicture1.Line(vc,pz)-(vc*p,pz):vc=vc*pForX=vcTovStep0.0001发动机热负荷与热强度实验报告vbx=Xpbx=pz*((vc/vbx)^n2)Picture1.PSet(vbx,pbx)NextX'排气过程曲线Picture1.Line(vbx,pbx)-(v,pa)Picture1.DrawWidth=1Picture1.ForeColor=vbRedPicture1.CurrentX=0.1:Picture1.CurrentY=8:Picture1.PrintpoPicture1.CurrentX=0.02:Picture1.CurrentY=20:Picture1.Printvcq:EndSubPrivateSubCommand1_Click()s=Val(Text2.Text):d=Val(Text4.Text)n=Val(Text1.Text):po=Val(Text15.Text)/10:e=Val(Text5.Text):tt=Val(Text17.Text):fa=Val(Text18.Text):r=Val(Text2.Text)l=Val(Text31.Text)/3.14/((d/2)^2)gc=Val(Text11.Text):gh=Val(Text12.Text):g0=Val(Text8.Text)A=Val(Text19.Text):mt=Val(Text20.Text):fi=Val(Text9.Text):i=Val(Text3.Text)n1=Val(Text14.Text):n2=Val(Text33.Text)'排气过程pr=Int(1000*10.8*po)/1000:tr=350/(1.2/Log(n)*Log(10)+0.005*(e-3)+0.01*(fa-1)):hu=42500'柴油机暂时先赋的值'进气过程发动机热负荷与热强度实验报告paa=n^2/520000000pac=((e-0.5)^2)/((e-1)^2)'残余废气收缩系数暂时取的0.5T=20't进气温升取的20pa=0.9*po*10'进气压力yy=(tt+T)*pr/tr/(e*pa-pr)'残余废气系数yyta=(tt+T+yy*tr)/(1+yy)'进气温度nv=tt*pa*e*(e*pa-pr)/(tt+T)/(10*po)/(e-1)/e/pa'充气系数'压缩过程'平均压缩多变指数pc=Int(100*(pa*e^(n1)))/100'压缩终点压力tc=Int(10*ta*e^(n1-1))/10'压缩终点温度'燃烧过程lo=1/0.21*(gc/12+gh/4-g0/32)m1=A*lo:m2=A*lo+gh/4+g0/32u0=m2/m1u=(u0+yy)/(1+yy)'实际分子变更系数'化学损失khu=0cv1=(4.815+0.000415*tc)*4.1868qq=Val(Text30.Text)'---------------------------qq热量利用系数选取ccc=(qq*(hu-khu)/m1/(1+yy)+cv1*tc)/uaaa=(3.3/A+3.7)*4.1868/10000'柴油机bbb=(4.8+2.2/A)*4.1868发动机热负荷与热强度实验报告tz=Int((-bbb+(bbb^2+4*aaa*ccc)^0.5)/2/aaa)'燃烧终点温度ylsgb=Val(Text29.Text)p=u*tz/ylsgb/tc'----柴油机预期膨胀比----pz=Int(100*(ylsgb*pc))/100'最高燃烧压力pb=Int(100*(pz/(e^n2)))/100'膨胀终点压力tb=Int(tz/(e^(n2-1)))'膨胀终点温度pi1=pc/(e-1)*(ylsgb*p/(n2-1)*(1-1/e^(n2-1))-1/(n1-1)*(1-1/e^(n1-1)))pi=fi*pi1'平均指示压力pm=0.1*(Val(Text32.Text))^0.5*(1+n/1000)'机械损失压力nm=1-pm/pi'机械效率ni=Int(10000*8.314*m1*tt*pi/hu/10/po/nv)/10000'指示热效率gi=3600000/hu/ni'指示燃油消耗率ne=nm*ni'有效热效率pe=pi*nm'平均有效压力ge=3600000/hu/ne'有效燃油消耗率vh=Int(10000*3.14*(d/2)^2*r/10^6)/10000v=Int(10000*(vh/e+vh))/10000nne=i*v*pe*n/1224Text7(1).Text=0&Int(10000*ni)/10000Text7(3).Text=Int(100*gi)/100Text7(4).Text=0&Int(10000*ne)/10000Text7(5).Text=Int(1000*pe)/1000Text7(6).Text=Int(100*ge)/100Text7(7).Text=Int(100*nne)/100发动机热负荷与热强度实验报告Text10.Text=pr:Text13.Text=Int(10*tr)/10:Text21.Text=0&Int(100*pa)/100:Text22.Text=Int(ta*10)/10Text23.Text=pz:Text24.Text=tz:Text25.Text=tb:Text26.Text=pbText27.Text=pc:Text28.Text=tceee:EndSubPrivateSubCommand5_Click()Picture1.ClsPicture1.Scale(-10,120)-(780,-10)Picture1.Line(0,0)-(725,0)Picture1.Line(0,0)-(0,115)vc=vh/(e-1)Picture1.Line(0,po)-(720,po),RGB(0,220,0)Picture1.CurrentX=680:Picture1.CurrentY=8:Picture1.Printφ(°AC)Picture1.CurrentX=10:Picture1.CurrentY=129:Picture1.PrintP(bar)ForY=10To110Step10#Picture1.Line(0,Y)-(7,Y)Picture1.CurrentX=-0.1:Picture1.CurrentY=Y:Picture1.PrintYNextYPicture1.Line(0,115)-(-5,112)Picture1.Line(0,115)-(5,112)ForX=0To720Step60Picture1.Line(X,0)-(X,2)Picture1.CurrentX=X-20:Picture1.CurrentY=-2:Picture1.PrintXNextXPicture1.Line(725,0)-(716,2)Picture1.Line(725,0)-(716,-2)Ifvh=0Then发动机热负荷与热强度实验报告MsgBox请先输入参数,并计算,0,提示:GoToqEndIfVa=vh+vh/(e-1)vc=vh/(e-1)Forφx=3.14To6.28Step0.0001vcx=vh/2*((1-Cos(φx))+(1-Cos(2*φx))*r*l/4)+vc'压缩过程pcx=pa*(Va/vcx)^n1φ=φx*180/3.14Picture1.PSet(φ,pcx),RGB(0,400,200)NextφxVa=vh+vh/(e-1)vc=vh/(e-1)Forφx=9.42To6.28Step-0.0001vbx=vh/2*((1-Cos(φx))+(1-Cos(2*φx))*r*l/4)+vcpbx=pb*(Va/vbx)^n2φ=φx*180/3.14Ifpbx=pzThenPicture1.PSet(φ+20,pbx),RGB(400,0,220)Else:Picture1.Line(360,pz)-(φ,pz),RGB(400,100,0)'做功过程Picture1.Line(360,pc)-(360,pz),RGB(0,0,220)EndIfNextφxPic