| 查看: 1433 | 回复: 9 | ||||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||||
[交流]
------------------------------------------- 已有4人参与
|
||||
|
----------------------------- [ Last edited by lovewb on 2010-7-2 at 21:14 ] |
回复此楼» 收录本帖的淘帖专辑推荐
 fluent仿真问题。 |
» 猜你喜欢
0703化学调剂
已经有12人回复
-
0703化学 305求调剂
已经有4人回复
-
0703化学调剂，求各位老师收留
已经有10人回复
-
271材料工程求调剂
已经有5人回复
-
281求调剂（0805）
已经有16人回复
-
304求调剂
已经有6人回复
-
材料工程专硕调剂
已经有6人回复
-
一志愿天大材料与化工（085600）总分338
已经有4人回复
-
085700资源与环境308求调剂
已经有3人回复
-
求材料调剂
已经有8人回复
5楼2010-05-08 22:15:27
sosososo1114
木虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 2387.2
- 散金: 96
- 红花: 4
- 帖子: 490
- 在线: 57.2小时
- 虫号: 939993
- 注册: 2010-01-10
- 专业: 红外物理与技术
2楼2010-05-08 15:43:42
sosososo1114
木虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 2387.2
- 散金: 96
- 红花: 4
- 帖子: 490
- 在线: 57.2小时
- 虫号: 939993
- 注册: 2010-01-10
- 专业: 红外物理与技术
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
kuhailangyu(金币+1):这个UDF本站也有哦，呵呵 2010-05-08 22:10:33
小木虫(金币+0.5):给个红包，谢谢回帖交流
kuhailangyu(金币+1):这个UDF本站也有哦，呵呵 2010-05-08 22:10:33
|
人品再爆发一下咯，本人前段时间也在做蒸发冷凝，所以从网上搜了点资料，这是煮开水的UDF，特此声明：作者不是我，这个UDF是转载的，但是绝对能用！ #include "udf.h" #include "sg_mphase.h" #define T_SAT 373 #define LAT_HT 3.e3 real a; DEFINE_SOURCE(liq_src, cell, pri_th, dS, eqn) { Thread *mix_th, *sec_th; real m_dot_l; mix_th = THREAD_SUPER_THREAD(pri_th); sec_th = THREAD_SUB_THREAD(mix_th, 1); a=C_T(cell, mix_th); if(C_T(cell, mix_th)>=T_SAT){ m_dot_l = -0.1*C_VOF(cell, pri_th)*C_R(cell, pri_th)* fabs(C_T(cell, pri_th) - T_SAT)/T_SAT; dS[eqn] = -0.1*C_R(cell, pri_th)* fabs(C_T(cell, pri_th) - T_SAT)/T_SAT; } else { m_dot_l = 0.1*C_VOF(cell, sec_th)*C_R(cell, sec_th)* fabs(T_SAT-C_T(cell,mix_th))/T_SAT; dS[eqn] = 0.; } return m_dot_l; } DEFINE_SOURCE(vap_src, cell, sec_th, dS, eqn) { Thread * mix_th, *pri_th; real m_dot_v; mix_th = THREAD_SUPER_THREAD(sec_th); pri_th = THREAD_SUB_THREAD(mix_th, 0); if(C_T(cell, mix_th)>=T_SAT){ m_dot_v = 0.1*C_VOF(cell, pri_th)*C_R(cell, pri_th)* fabs(C_T(cell, mix_th) - T_SAT)/T_SAT; dS[eqn] = 0.; } else { m_dot_v = -0.1*C_VOF(cell, sec_th)*C_R(cell, sec_th)* fabs(T_SAT-C_T(cell,mix_th))/T_SAT; dS[eqn] = -0.1*C_R(cell, sec_th)* fabs(C_T(cell, sec_th) - T_SAT)/T_SAT; } return m_dot_v; } DEFINE_SOURCE(enrg_src, cell, mix_th, dS, eqn) { Thread *pri_th, *sec_th; real m_dot; pri_th = THREAD_SUB_THREAD(mix_th, 0); sec_th = THREAD_SUB_THREAD(mix_th, 1); if(C_T(cell, mix_th)>=T_SAT){ m_dot = -0.1*C_VOF(cell, pri_th)*C_R(cell, pri_th)* fabs(C_T(cell, pri_th) - T_SAT)/T_SAT; dS[eqn] = -0.1*C_VOF(cell, pri_th)*C_R(cell, pri_th)/T_SAT; } else { m_dot = 0.1*C_VOF(cell, sec_th)*C_R(cell, sec_th)* fabs(T_SAT-C_T(cell,mix_th))/T_SAT; dS[eqn] = -0.1*C_VOF(cell, sec_th)*C_R(cell, sec_th)/T_SAT;} return LAT_HT*m_dot; } |
3楼2010-05-08 15:56:46
wuming524
专家顾问 (著名写手)
石化蛀虫
-
专家经验: +136 - 应助: 147 (高中生)
- 贵宾: 0.016
- 金币: 37278.9
- 红花: 42
- 沙发: 1
- 帖子: 1316
- 在线: 802.6小时
- 虫号: 556258
- 注册: 2008-05-10
- 性别: GG
- 专业: 能源化工
- 管辖: 仿真模拟
4楼2010-05-08 19:17:28
