(最全面-和网上流传的都不一样)fluent空气蒸汽冷凝UDF.docxVIP

#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; i