天然气管道流量压强编程计算方法.docx_第1页
天然气管道流量压强编程计算方法.docx_第2页
天然气管道流量压强编程计算方法.docx_第3页
天然气管道流量压强编程计算方法.docx_第4页
免费预览已结束,剩余1页可下载查看

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

. 天然气管道流量压强编程计算方法#include #include void result(double q11,double l11,double Q12,double Q102)double a=0,b=0,c=0,d11=0,out=-23.2 ,x1,x2,y1,y2;int m,i,j;for(i=1;i=10;i+)if(qi=out)m=i;for(i=2;i=9;i+)if(im) for(j=2;j=i;j+) di=di+qj;else for(j=i+1;j=10;j+) di=di+qj; for(i=1;i=10;i+) if(im) a=a+li; else a=a-li; for(i=2;i=10;i+)if(im)b=b+2*li*di;else if(i=9)b=b+2*(q1+di)*li;elseb=b+2*q1*l10;for(i=2;i=10;i+)if(im)c=c+di*di*li;else if(i=0)x1=(-b+sqrt(b*b-4*a*c)/(2*a);x2=(-b-sqrt(b*b-4*a*c)/(2*a);y1=q1-x1;y2=q1-x2;if(x10&y10) Q11=x1;Q101=y1; if(x20&y20) Q11=x2; Q101=y2; int main()double q11=0,l11=0,Q12=0,Q102=0,c11=0,f11=0,D,flow10=0,sum=0,P11;int i,j,t=0,m;for(i=1;i0&Q1010) printf(%f %fn,Q11,Q101); else for(t=2;t=10;t+) for(i=1;i=10;i+) ci=qi; fi=li; q10=c1; l10=f1; for(i=1;i0&Q1010) printf(分气点位置是%d号井n,t); printf(分气点顺时针方向流量是%fX105立方米/天n,Q11,Q101); m=7-t+1; break; flow1=Q11; flow10=Q101; for(i=2;i=9;i+) if(im) flowi=Q11; for(j=2;j=i;j+) flowi=flowi+qj;else flowi=Q101;for(j=i+1;j=10;j+)flowi=flowi+qj; for(i=1;im;i+)sum=sum+2.249560*(1e-10)*pow(flowi*100000.0/24.0/3600.0,2.0)*li*1000.0;D=pow(sum,0.2);printf(管径是%fmmn,D*1000);P1=5;P6=4.5;for(i=2;i6;i-) if(i=10) P10=sqrt(P1*(1e+6)*P1*(1e+6)-2.587*(1e+7)*(flow10*(1e+5)/24/3600)*(flow10*(1e+5)/24/3600)*l10*1000)/(1e+6);elsePi=sqrt(Pi+1*(1e+6)*Pi+1*(1e+6)-2.587*(1e+7)*(flowi*(1e+5)/24/3600)*(flowi*(1e+5)/24/3600)*li*1000)/(1e+6);for(i=1;

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论