



免费预览已结束,剩余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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 药店日常活动方案
- 构造艺术考试题及答案
- 高中水平考试题及答案
- 幼儿园教学教案设计:病菌快走开卫生习惯情景模拟课
- 妇幼健康考试题及答案
- 物流运输计划模板含成本分析与时间规划
- 企业安全培训计划实施与记录表单安全生产标准规范版
- (正式版)DB15∕T 3666-2024 《灌木发酵饲料生产技术规程》
- (正式版)DB15∕T 3400-2024 《沿黄灌区盐碱地种植耐盐碱植物技术规程》
- (正式版)DB15∕T 3360-2024 《饲草大麦裹包青贮技术规程》
- 产品质量监督管理制度
- DB43-T 2724-2023 农村公路养护工程预算编制办法及定额
- CJ/T 480-2015高密度聚乙烯外护管聚氨酯发泡预制直埋保温复合塑料管
- 肥胖症诊疗指南(2024年版)解读
- 入股瑜伽店协议书
- 旅游团队境外医疗援助补充协议
- 联通智慧矿山协议合同
- 混凝土考试试题及答案
- 《小学交通安全教育》课件
- 四川省成都市2025届高三上学期第一次诊断性考试化学检测试卷(附答案)
- 2025报关单填制规范
评论
0/150
提交评论