开云平台官方入口

找回密码
立即注册

QQ登录

QQ快速登录

一步迅速开始

pdms培训&项目 数字化360网
查看: 4103 | 回复: 4
打印 上一主题 下一主题

[软件分享]C++油气集输程序

[复制链接]
跳转到指定楼层
楼主
发表于 2013-5-3 09:42:48 | 只看该作者 回帖奖励 | 倒序浏览 | 阅读模式
#include
#include
int main()
{
int i,temp=1,flag=0;
double sum=0,sumC=0,Mpj=0;
double z[8],w[8]={0};
double C[8]= {0,25.9,6.6,12.3,12.4,12.4,16.5,913.9};
int M[8]={0,16,30,44,58,72,86,472};
for(i=1;i<=7;i++)
sum+=C[i];sumC=sum;
for(i=1;i<=7;i++)
{
w[i]=C[i]/sum;Mpj+=w[i]/M[i];
}
Mpj=1/Mpj;
for(i=1;i<=7;i++)
{
z[i]=(Mpj*w[i])/M[i];
}
double sumx=0,Mid,sumz=0;
double y[8],sumy=0;
double WL[8]={0},sumWL=0,Wg[8]={0},sumWg=0;
double x[8]={0};
double K1[8]={0,100,17,5.2,2.4,0.8,0.23,0.018};
double K2[8]={0,255,43,13,4.95,1.65,0.6,0.0375};
for(flag=0;flag<2;flag++)
{
double L1=0,V2=1;
sumx=0;
while(fabs(sumx-1)>1e-6)
{
Mid=(L1+V2)/2;sumx=0;
for(i=1;i<=7;i++)
{
x[i]=z[i]/(Mid+(1-Mid)*K1[i]);sumx+=x[i];
}
if(sumx-1>0)
L1=Mid;
else
V2=Mid;

}
printf("在第%d级分离后,组成为: L=%f, V=%f\n\n",flag+1,Mid,1-Mid);

sumy=0;
for(i=1;i<=7;i++)
{
y[i]=K1[i]*x[i];
sumy+=y[i];
}
double Pg;
sum=0;
for(i=1;i<7;i++)
sum+=y[i]*M[i];
sum=sum+y[7]*114;
Pg=sum/22.4;
printf("在第%d级分离后,气相密度为: %f \n\n",flag+1,Pg);
temp--;
sumWL=0;
sumWg=0;
for(i=1;i<=7;i++)
{
WL[i]=(x[i]*Mid*C[i])/z[i];
sumWL+=WL[i];
Wg[i]=C[i]-WL[i];
sumWg+=Wg[i];
}

printf(" Ci Xi Yi Zi WLi Wgi\n");
for(i=1;i<=6;i++)
{
printf("\n");
printf(" C%d %f %f %f %f %f %f\n",i,C[i],x[i],y[i],z[i],WL[i],Wg[i]);
}
printf("\n");
printf(" C7+%f %f %f %f %f %f\n",C[7],x[7],y[7],z[7],WL[7],Wg[7]);
printf("\n");
printf("合计%f %f %f %f %f %f\n\n",sumC,sumx,sumy,sumz,sumWL,sumWg);

if(flag==0)
{
for(i=1;i<=7;i++)
{
K1[i]=K2[i];z[i]=x[i];sumz+=z[i];
}
}
}
sumy=0;
}


油气集输程序.rar

913 Bytes, 下载次数: 20

售价:3 金币[记录]


开云平台官方入口 - 论坛版权1、本主题所有言论和图片纯属会员个人意见,与本论坛立场无关
2、本站所有主题由该帖子作者发表,该帖子作者与 开云平台官方入口享有帖子相关版权
3、其他单位或个人使用、转载或引用本文时必须同时征得该帖子作者和 开云平台官方入口的同意
4、帖子作者须承担一切因本文发表而直接或间接导致的民事或刑事法律责任
5、本帖部分内容转载自其它媒体,但并不代表本站赞同其观点和对其真实性负责
6、如本帖侵犯到任何版权问题,请立即告知本站,本站将及时予与删除并致以最深的歉意
7、 开云平台官方入口管理员和版主有权不事先通知发贴者而删除本文

沙发
发表于 2015-1-8 09:05:54 | 只看该作者
正需要,非常感谢楼主!!
板凳
发表于 2017-4-22 09:21:26 | 只看该作者
谢谢楼主分享!
5#
发表于 2017-6-1 17:21:05 | 只看该作者
谢谢分享,下载学习
您需要登录后才可以回帖 登录| 立即注册

本版积分规则

扫码访问手机版

QQ|关于我们|网站地图|开云平台官方入口(ICP11007657-3)

GMT+8, 2024-2-27 08:36, Processed in 0.032203 second(s), 14 queries , Gzip On, MemCached On.

Powered by Discuz! X3.5

Copyright ? 2001-2023开云注册登录 .

快速回复 返回列表
Baidu
map