| 查看: 730 | 回复: 2 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
FLUENT DUF DEFINE_INIT 导入不能初始化
|
|||
|
fluent模拟流化床传热传质，编程设定初始的颗粒湿度，并计算求得空气的相对湿度，但是一导进去一点初始化就出现错误，DEFINE_INIT去掉以后可以初始化，求高手帮忙解决这个问题... #include "udf.h" /* Heat and moisture transfer in bulks of grains */ /* Graham Thorpe */ /* Victoria University, Melbourne, Australia */ /* Chung-Pfost constants */ #define ACP 921.69 #define BCP 18.077 #define CCP 112.35 #define RHOB 639.2 #define PATM 101325 /* Define ambient temperature conditions */ #define TMEAN 288.15 /* Define a global variable that acts as a comparitor in DEFINE_ADJUST */ int last_ts = -1; DEFINE_INIT(moisure_init,d) /* The initial solids moisture content, W, is set */ /* and the corresponding humidity, w, of the intergranular air is calculated */ { cell_t c; Thread *t; real W,Tabs,TC,r,psat,p,w; /* Loop over all of the cell threads in the bulk of grain */ thread_loop_c(t,d) { begin_c_loop(c,t) { C_UDMI(c,t,0) = 0.1364; W = C_UDMI(c,t,0); Tabs = C_T(c,t); TC = Tabs-273.15; /* Calculate relative humidity of intergranular air */ r = exp(-ACP/(TC+CCP)*exp(-BCP*W)); /* Ensure the air does not become supersaturated */ if (r>0.99) {r = 0.99;} psat = 6.0e25/pow(Tabs,5) *exp(-6800/Tabs); p = r*psat; w = 0.622*p/(PATM-p); /* Eqn 12 */ C_UDSI(c,t,0) = w; } end_c_loop(c,t); } }  _ISCN{O85`GZ`[81Y69R~}M.jpg |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有5人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有5人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有6人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有6人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有7人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 使用DEFINE_INIT宏初始化两相体积
已经有13人回复
3楼2013-05-29 14:40:48
