输气管道设计与管理（李玉星）程序二.docxVIP

下载本文档

7
0
约3.97千字
约 5页
2019-03-07 发布于广东
举报
版权申诉

输气管道设计与管理（李玉星）程序二.docx

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

请气气气气气气气气气.288793026 （按回车链完成每次轴入）磬書管井的距离3（技回车键完成每次输入） 38100.8 3 8 10 0.8 1.5 1 0.9 1.1 0.3 0.5 1.4 0.8 分气点顺时针的济量Q为 0.669009 X10^5标准立方米/天 ?3》管径D为 R.21W596 米 1 8 H 6 5 H 9 4 w 7 ?8 H 9 7 5 ? ? ? 4 4 4-4 4^ ^\7rx7r\^rx7r\^TX7r\^\^rxnJ 力力力力力力力力召千一丄七士王十_上十一丄」? 占节节节节节节节节节±74H1 在号号号号号号00号時 1234567891 ffB mrgr ■hu.g.l?BI?grmr -Idrgn iMlislA 1234S67891 gF mrgr lnx iMlislA 1234S67891 gF mrgr lnx?4nJ?ffF mf? mr”gr? 琴貨胄第写详譯害聲胃 1.130991 痙莒为0.669009 匾星为2.469009 ^^4.169009 H量为6?069009 匹膏为269009 述量为U.73H991 流童为8.530991 h5.930991 7)3.330991 Press any key to continue #incLudestdio.h #incLudemath.h #define Z 10 //define C 7 int main() { int n=0,m=0,k=0,h=0/t=0/d=0,g=0,i=0,j=0; int node=0; 〃分气点 doubLe ZZZ=0.9; doubLe TTT=293.0; doubLe DDD=0.0; // 管径 doubLe EEE=O.O; doubLe BS=0.0; doubLe Lmd=0.01; doubLe Lmd2=0.0; doubLe pressure=0.0; doubLe pressure2[Z+l]={0.0}; 〃所在节点压力 doubLe Q =A=A1=B=B1=G=G1=A2=B2=G2=O.O; doubLe QQQQQ[Z+2]={0.0}; 〃各管段的流量 doubLe QQL=0.0; doubLe deta=0.6; doubLe pq=5.0; doubLe pz=4.5; doubLe ttt=O.O; doubLe QQLl=0.0; doubLe QQ[10][10]={0.0}; doubLe pn=0.0, 〃分气点顺吋针压力 ps=0.0; 〃分气点逆时针压力 doubLe q[ll]={0.0}; 〃各气井气量 doubLe qq[10]={0.0}; doubLe L[ll]={0.0}; 〃各气井的距离 doubLe LL[10]={0.0}; doubLe LLL[Z]={0.0}; doubLe qqq[Z+l]={0.0}; doubLe QQQ[Z]={0.0}; { printf(n请输入各个气井的气量(qX10A-5)(按回车键确定每次输入八nJ; for(i=l;i=Z;i++) {printf(”气井(％小?J); scanf(”％L 化q[i]); } printf(n\n); printf(“请输入各个气井的距离(km)(按回车键确定每次输入)\『)； for(i=l;i=Z;i++) {printf(“气井(％小J); scanf(%Lfn,L[i]); } printfCV); printfCV); } for(i=0;i=Z-l;i++) qq[i]=q[(i/C*Z+C-i)]; for(i=0;i=Z-l;i++) LL[i]=L[(i/(C-l)*Z+C-l-i)]; for(n=l;n=Z-l;n++) { for(m=n;m =Z- l;m++) for(k=n;k=m;k++) QQ[n][m]+=qq[k]; for(t=n-l;t=l;t-) for(h=n-l;h=t;h-) QQ[n][t]+=qq[h]; for(d=n;d=乙 l;d++) pn+=QQ[n][d]*QQ[n][d]*LL[d]; for(沪 n-l;g=l;g-) ps+=QQ[n][g]*QQ[n][g]* LL[g-l]; if(pspn)break; pn=0.0;ps=0.0; } if(n-l=C-l) n ode=C-(n-l); 讦(n-l6) n ode=Z+C-(n-l); if(node=lnodeC) { for(i=l;i=C-node;i++) LLL[i]=LL[C-node-i]; for(j=C- no de+l;j=Z;j++) LLL[j