Fluent 空气蒸汽冷凝UDF.docVIP

下载本文档

887
0
约10千字
约 11页
2018-09-28 发布于河北
举报
版权申诉

Fluent 空气蒸汽冷凝UDF.doc

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

Fluent 空气蒸汽冷凝UDF.doc

Fluent 空气蒸汽冷凝UDF #include udf.h /*head files*/ #include mem.h #include flow.h #define PI 3.141592653 /*constant*/ #define Mv 18.01534 /*molecular weight of vapor(kg/kmol)*/ #define Ma 28.966 /*molecular weight of air(kg/kmol) */ int *a; real *b; real *d; real *q; real *g; real *l; real s1; real s2; real s3; real s0; int counter=0; /*counter*/ int j; /*index of interface wall cell*/ int k; real latent_heat(real T) { real t; real Hlg; t=T-273.15; if(t10.0) Hlg=2477208.8; if((t=10.0)(t20.0)) Hlg=2477208.8+(t-10.0)*(2453549.6-2477208.8)/10.0; if((t=20.0)(t30.0)) Hlg=2453549.6+(t-20.0)*(2429882.8-2453549.6)/10.0; if((t=30.0)(t40.0)) Hlg=2429882.8+(t-30.0)*(2406058.7-2429882.8)/10.0; if((t=40.0)(t50.0)) Hlg=2406058.7+(t-40.0)*(2382038.2-2406058.7)/10.0; if((t=50.0)(t60.0)) Hlg=2382038.2+(t-50.0)*(2357691.0-2382038.2)/10.0; if((t=60.0)(t70.0)) Hlg=2382038.2+(t-60.0)*(2333080.9-2382038.2)/10.0; if((t=70.0)(t80.0)) Hlg=2333080.9+(t-70.0)*(2308065.7-2333080.9)/10.0; if((t=80.0)(t90.0)) Hlg=2308065.7+(t-80.0)*(2282560.3-2308065.7)/10.0; if((t=90.0)(t100.0)) Hlg=2282560.3+(t-90.0)*(2256472.9-2282560.3)/10.0; if((t=100.0)(t110.0)) Hlg=2256472.9+(t-100.0)*(2229704.3-2256472.9)/10.0; if((t=110.0)(t120.0)) Hlg=2229704.3+(t-110.0)*(2202149.7-2229704.3)/10.0; if((t=120.0)(t130.0)) Hlg=2202149.7+(t-120.0)*(2173700.0-2202149.7)/10.0; if((t=130.0)(t140.0)) Hlg=2173700.0+(t-130.0)*(2144243.7-2173700.0)/10.0; if((t=140.0)(t150.0)) Hlg=2144243.7+(t-140.0)*(2113667.6-2144243.7)/10.0; if((t=150.0)(t160.0)) Hlg=2113667.6+(t-150.0)*(2081855.9-2113667.6)/10.0; if((t=160.0)(t170.0)) Hlg=2081855.9+(t-160.0)*(2048687.3-2081855.9)/10.0; if((t=170.0)(t180.0)) Hlg=2048687.3+(t-170.0)*(2014031.4-2048687.3)/10.0; if((t=180.0)(t190.0)) Hlg=2014031.4+(t-180.0)*(1977745.0-2014031.4)/10.0; if((t=190.0)(t200.0)) Hlg=1977745.0+(t-190.0)*(1939668.5-1977745.0)/10.0; if((t=200.0)(t210.0)) Hlg=1939668.0+(t-200.0)*(1899623.0-1939668.0)/10.0; if((t=210.0)(t220.0)) Hlg=1899623.0+(t-210.0)*(1857409.0-1899623.0)/10.0