/ 发动机工作过程计算VB源代码（包括汽油机和柴油机）
发动机工作过程计算VB源代码（包括汽油机和柴油机）
发动机工作过程计算VB源代码（包括汽油机和柴油机）
自己编写的VB程序，请大家多指教！（赚一点积分嘿嘿……）部分代码如下：PrivateSubCommand1_Click()k=1.4D=Val(Text1.Text)S=Val(Text2.Text)Ne=Val(Text3.Text)nh=Val(Text4.Text)ε=Val(Text5.Text)L=Val(Text6.Text)R=Val(Text7.Text)ge=Val(Text8.Text)P0=Val(Text13.Text)T0=Val(Text12.Text)gc=Val(Text9.Text)gh=Val(Text10.Text)go=Val(Text11.Text)mt=Val(Text14.Text)i=Val(Text15.Text)ι=Val(Text16.Text)α=Val(Text38.Text)ξz=Val(Text40.Text)φi=Val(Text41.Text)ηm=Val(Text42.Text)n=Val(Text45.Text)Vh=(S*0.01)*3.14*(D*0.01)^2/4'排气过程Pr=1+0.3*n/nhTr=850+350*n/nhText17.Text=Val(Pr)Text18.Text=Val(Tr)'进气过程δ=0.5ΔT=ΔTh*(110-0.0125*n)/(110-0.0125*nh)Pa=Int(10^3*(P0*(1-((10*n^2/520/10^6)/10.6^2/0.75^2)*(ε-δ)^2/(ε-1)^2)^(k/(k-1))))/10^3γ=Int(10^3*(T0+ΔT)*Pr/Tr/(ε*Pa-Pr))/10^3Text44.Text=γText19.Text=PaTa=(T0+ΔT+γ*Tr)/(1+γ)ηv=ε*Pa*T0/(ε-1)/P0/Ta/(1+γ)Text20.Text=Val(Int(1000*Ta)/1000)Text21.Text=Val(Int(1000*ηv)/1000)'压缩过程n1=1.46-0.05*Nn/nPc=Pa*ε^n1Tc=Ta*ε^(n1-1)Text22.Text=Val(Int(1000*Pc)/1000)Text23.Text=Val(Int(1000*Tc)/1000)'燃烧过程L0=(gc/12+gh/4-go/32)/0.21M1=α*L0+1/mtCv1=(4.815+0.415*10^(-3)*Tc)*4.1868M2=0.79*α*L0+gh/2+gc/12A=(3.7+3.3*α)*10^(-4)*4.1868B=(4.4+0.62*α)*4.1868μ0=M2/M1μ=(μ0+γ) 本软件ID:2236702
自己编写的VB程序，请大家多指教！（赚一点积分嘿嘿……）部分代码如下：PrivateSubCommand1_Click()k=1.4D=Val(Text1.Text)S=Val(Text2.Text)Ne=Val(Text3.Text)nh=Val(Text4.Text)ε=Val(Text5.Text)L=Val(Text6.Text)R=Val(Text7.Text)ge=Val(Text8.Text)P0=Val(Text13.Text)T0=Val(Text12.Text)gc=Val(Text9.Text)gh=Val(Text10.Text)go=Val(Text11.Text)mt=Val(Text14.Text)i=Val(Text15.Text)ι=Val(Text16.Text)α=Val(Text38.Text)ξz=Val(Text40.Text)φi=Val(Text41.Text)ηm=Val(Text42.Text)n=Val(Text45.Text)Vh=(S*0.01)*3.14*(D*0.01)^2/4'排气过程Pr=1+0.3*n/nhTr=850+350*n/nhText17.Text=Val(Pr)Text18.Text=Val(Tr)'进气过程δ=0.5ΔT=ΔTh*(110-0.0125*n)/(110-0.0125*nh)Pa=Int(10^3*(P0*(1-((10*n^2/520/10^6)/10.6^2/0.75^2)*(ε-δ)^2/(ε-1)^2)^(k/(k-1))))/10^3γ=Int(10^3*(T0+ΔT)*Pr/Tr/(ε*Pa-Pr))/10^3Text44.Text=γText19.Text=PaTa=(T0+ΔT+γ*Tr)/(1+γ)ηv=ε*Pa*T0/(ε-1)/P0/Ta/(1+γ)Text20.Text=Val(Int(1000*Ta)/1000)Text21.Text=Val(Int(1000*ηv)/1000)'压缩过程n1=1.46-0.05*Nn/nPc=Pa*ε^n1Tc=Ta*ε^(n1-1)Text22.Text=Val(Int(1000*Pc)/1000)Text23.Text=Val(Int(1000*Tc)/1000)'燃烧过程L0=(gc/12+gh/4-go/32)/0.21M1=α*L0+1/mtCv1=(4.815+0.415*10^(-3)*Tc)*4.1868M2=0.79*α*L0+gh/2+gc/12A=(3.7+3.3*α)*10^(-4)*4.1868B=(4.4+0.62*α)*4.1868μ0=M2/M1μ=(μ0+γ) 本软件ID:2236702
文件下载
资源详情
[{"title":"（6个子文件9KB）发动机工作过程计算VB源代码（包括汽油机和柴油机）","children":[{"title":"Form1.frm <span style='color:#111;'>4.10KB</span>","children":null,"spread":false},{"title":"工程1.vbp <span style='color:#111;'>709B</span>","children":null,"spread":false},{"title":"MSSCCPRJ.SCC <span style='color:#111;'>190B</span>","children":null,"spread":false},{"title":"Form2.frm <span style='color:#111;'>29.32KB</span>","children":null,"spread":false},{"title":"工程1.vbw <span style='color:#111;'>156B</span>","children":null,"spread":false},{"title":"Form3.frm <span style='color:#111;'>29.29KB</span>","children":null,"spread":false}],"spread":true}]
评论信息
-
-
-
l457815424:很好，对于学内燃机的同学来说2012-11-24 -
L457815424:很好，对于学内燃机的同学来说2012-11-24
其他资源
- 等值线生成算法代码和示例
- 《应用离散数学》方景龙版课后习题答案.pdf
- CAD安防监控图标大全
- spy4win8,经测试完满支持win8系统
- C语言编写班费管理系统
- opencvforqt5.8
- c/c++控制台游戏
- 非常不错的PPT模版~~~
- JSP大试验瓜果购物车瓜果商城残缺版
- 最优估计参数下的LLE实现.rar
- DEA的Matlab程序，绝对可运转！！
- 基于MATLAB的光流估计法
- matlab神经网络30个案例分析
- C#仿迅雷下载程序
- NeuralNetworksandLearningMachines(3rdEdition).pdf
- R树示例程序
- DevExpressRichEditControl多线程插入表格及数据
- N76E003夏普GP2Y1010（电路、程序工程、数据手册）
- QSV视频转换工具V3.1
- 基于Androidd校园闲置物品买卖
免责申明
【好快吧下载】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【好快吧下载】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【好快吧下载】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，8686821#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，8686821#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明