c语言中调用焓熵表(.txt格式).docVIP

下载本文档

3
0
约1.49万字
约 9页
2018-03-20 发布于河南
举报
版权申诉

c语言中调用焓熵表(.txt格式).doc

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

c语言中调用焓熵表(.txt格式)

/*Water and Steam Parameters */#include conio.h#include stdio.h#include math.h#include string.h#include stdlib.h#include graphics.h#include dos.h#include stdarg.h struct ptf1{double v;double h;double s;}ptf2;/*h[kJ/kg],s[kJ/(kg.K)]*/struct ptg1{double v;double h;double s;}ptg2;/*h[kJ/kg]*/struct pt1 {double x;double v;double h;double s;}pt2;/*s[kJ/(kg.K)]*/struct ps1 {double x;double t;double v;double h;}ps2;/*h[kJ/kg]*/struct ph1 {double x;double v;double s;double t;}ph2;struct pe1 {double x;double t;}pe2; double psk(double t)/*Saturated pressure[at] from temperature*/?? {double? psk1;??? double? f[10]={0.0,-7.691234564,-26-168.1706546,64-118.9646225,420.9750676,1.0e9,6.0};??? double zt=(t+273.15)/647.3;??? double ztt=1.0-zt,pk=0.0;??? int i=0;??? for(i=5;i=0;i--) {pk=pk*ztt+f[i];}??? pk=pk/zt/(1+f[6]*ztt+f[7]*pow(ztt,2.0));??? pk=pk-ztt/(f[8]*pow(ztt,2)+f[9]);??? psk1=exp(pk)*221.2;??? return(psk1);/*[at]*/?? } double tsk(double p) /*Saturated temperature from pressure p[at] */?????? {double ta,pb,tsk1;??????? ta=100.0*pow(p,0.25);loop11: pb=psk(ta);??????? if(fabs((p-pb)/p)1.0e-7)??????? {ta=ta+25*(p-pb)/pow(pb,0.75);??????? goto loop11;}??????? else {tsk1=ta;}??????? return(tsk1);?????? } void ptf( double p,double t,struct ptf1*p1)/*Cool water from pressure and temperature*/??????? {double zp,zt,zh,zs,y,z,yp,zv;???????? int i,i1;???????? double a[23]={6.824687741e3,-5.422063673e2,-2.096666205e4,3.941286787e4,-6.733277739e4,??????? 9.902381028e4,-1.093911774e5,8.590841667e4,-4.511168742e4,1.418138926e4,-2.017271113e3,??????? 7.982692717,-2.616571843e-2,1-3,2.284279054e-2,2.421647003e2,1.269716088e-10,???????? 2.074838328e-7,2-8,1.105710498e-9,1.293441934e1,1.308119072e-5,6.047626338e-14};???????? double e[12]={8.438375405e-1,5.362162162e-4,1.720000,7.342278489e-2,4.975858870e-2,6-1,1.15e-6,1.5108e-5,1.4188e-1,7.0027531650,2.995284926e-4,2.04e-1};??????? zp=p/221.2