| 3 | 1/1 | 返回列表 |
| 查看: 2164 | 回復(fù): 2 | |||
wangyuxuan05銀蟲 (初入文壇)
|
[求助]
液膜表面蒸發(fā)fluent求助!
|
|
我的課題是用FLUENT做分子蒸餾器的液膜流體傳質(zhì)傳熱過程模擬,模擬物系是DHA、油酸(oa)、花生四烯酸(ara),所選的幾何區(qū)域是高200mm,寬1mm的豎直液膜,操作壓力為1pa,上端進(jìn)口為mass-flow-inlet,左側(cè)為蒸發(fā)壁面,下端為壓力出口。目前遇到的問題是: 1、右側(cè)液膜表面的邊界條件不知道要如何選取 2、液膜表面涉及到多組分的蒸發(fā),所以我想在這個(gè)邊界上加入一個(gè)udf 1)我只做縱向上的一維研究,把組分的蒸發(fā)速率編成udf,但是在導(dǎo)入fluent時(shí)總是有錯(cuò)誤,您能把我看一下程序嗎?謝謝! #include "udf.h" DEFINE_SOURCE(evapor, cell, thread,j) { real nc=80000; real zl=3; real p; real m_e; real M[3]={328.49,282.46,302.45}; real T; real T0=573; real fm; real p0[3]={3200,2800,3000}; real x0[3]={0.2158,0.6268,0.1574}; real interval; real x; if (interval==1) { for (j=0;j<3;j++) { x=x0[j]; } T[cell]=T0; } else { for (i=1;i<=zl;i++) { fm=0; fm=fm+C_YI(cell,thread,i)/M[i-1]; } for (j=1;j<=zl;j++) { x[cell,j]=C_YI(cell,thread,j)/M[j-1]/fm; } T[cell]=C_T(cell,thread); } p[cell,j]=p0[j-1]; m_e(cell,thread,j)=0.9*15.8*x[cell,j]*P[cell,j]*M[j]/T[cell]; return m_e(cell,thread,i,j); } 2)我也嘗試著將論壇里水蒸發(fā)的udf修改成多組分的蒸發(fā),但是成功導(dǎo)入U(xiǎn)DF后,fluent不能運(yùn)行,您能幫我把這個(gè)udf也看看嗎?謝謝! #include "udf.h" #include "sg_mphase.h" #define T_SAT_dha 593 #define T_SAT_ara 533 #define T_SAT_oa 523 #define LAT_HT_dha 237425.8 #define LAT_HT_ara 285632.3 #define LAT_HT_oa 280781.3 DEFINE_SOURCE(liq_src_dha, cell, pri_th, dS, eqn) { Thread *mix_th, *sec_th; real m_dot_l_dha; mix_th = THREAD_SUPER_THREAD(pri_th); sec_th = THREAD_SUB_THREAD(mix_th, 1); if(C_T(cell, mix_th)>=T_SAT_dha) { m_dot_l_dha = -0.1*C_VOF(cell, pri_th)*C_R(cell, pri_th)* fabs(C_T(cell, mix_th) - T_SAT_dha)/T_SAT_dha; dS[eqn] = -0.1*C_R(cell, pri_th)*fabs(C_T(cell, mix_th) - T_SAT_dha)/T_SAT_dha; } else {m_dot_l_dha= 0.1*C_VOF(cell, sec_th)*C_R(cell, sec_th)*fabs(T_SAT_dha-C_T(cell,mix_th))/T_SAT_dha; dS[eqn] = 0.; } return m_dot_l_dha; } DEFINE_SOURCE(vap_src_dha, cell, sec_th, dS, eqn) { Thread * mix_th, *pri_th; real m_dot_v_dha; mix_th = THREAD_SUPER_THREAD(sec_th); pri_th = THREAD_SUB_THREAD(mix_th, 0); if(C_T(cell, mix_th)>=T_SAT_dha) {m_dot_v_dha = 0.1*C_VOF(cell, pri_th)*C_R(cell, pri_th)*fabs(C_T(cell, mix_th) - T_SAT_dha)/T_SAT_dha; dS[eqn] = 0.; } else {m_dot_v_dha= -0.1*C_VOF(cell, sec_th)*C_R(cell, sec_th)* fabs(T_SAT_dha-C_T(cell,mix_th))/T_SAT_dha; dS[eqn] = -0.1*C_R(cell, sec_th)* fabs(C_T(cell, mix_th) - T_SAT_dha)/T_SAT_dha; } return m_dot_v_dha; } DEFINE_SOURCE(liq_src_ara, cell, pri_th, dS, eqn) { Thread *mix_th, *sec_th; real m_dot_l_ara; mix_th = THREAD_SUPER_THREAD(pri_th); sec_th = THREAD_SUB_THREAD(mix_th, 1); if(C_T(cell, mix_th)>=T_SAT_ara) { m_dot_l_ara = -0.1*C_VOF(cell, pri_th)*C_R(cell, pri_th)* fabs(C_T(cell, mix_th) - T_SAT_ara)/T_SAT_ara; dS[eqn] = -0.1*C_R(cell, pri_th)*fabs(C_T(cell, mix_th) - T_SAT_ara)/T_SAT_ara; } else {m_dot_l_ara = 0.1*C_VOF(cell, sec_th)*C_R(cell, sec_th)*fabs(T_SAT_ara-C_T(cell,mix_th))/T_SAT_ara; dS[eqn] = 0.; } return m_dot_l_ara; } DEFINE_SOURCE(vap_src_ara, cell, sec_th, dS, eqn) { Thread * mix_th, *pri_th; real m_dot_v_ara; mix_th = THREAD_SUPER_THREAD(sec_th); pri_th = THREAD_SUB_THREAD(mix_th, 0); if(C_T(cell, mix_th)>=T_SAT_ara) {m_dot_v_ara = 0.1*C_VOF(cell, pri_th)*C_R(cell, pri_th)*fabs(C_T(cell, mix_th) - T_SAT_ara)/T_SAT_ara; dS[eqn] = 0.; } else {m_dot_v_ara = -0.1*C_VOF(cell, sec_th)*C_R(cell, sec_th)* fabs(T_SAT_ara-C_T(cell,mix_th))/T_SAT_ara; dS[eqn] = -0.1*C_R(cell, sec_th)* fabs(C_T(cell, mix_th) - T_SAT_ara)/T_SAT_ara;} return m_dot_v_ara; } DEFINE_SOURCE(liq_src_oa, cell, pri_th, dS, eqn) { Thread *mix_th, *sec_th; real m_dot_l_oa; mix_th = THREAD_SUPER_THREAD(pri_th); sec_th = THREAD_SUB_THREAD(mix_th, 1); if(C_T(cell, mix_th)>=T_SAT_oa) { m_dot_l_oa= -0.1*C_VOF(cell, pri_th)*C_R(cell, pri_th)* fabs(C_T(cell, mix_th) - T_SAT_oa)/T_SAT_oa; dS[eqn] = -0.1*C_R(cell, pri_th)*fabs(C_T(cell, mix_th) - T_SAT_oa)/T_SAT_oa; } else {m_dot_l_oa = 0.1*C_VOF(cell, sec_th)*C_R(cell, sec_th)*fabs(T_SAT_oa-C_T(cell,mix_th))/T_SAT_oa; dS[eqn] = 0.; } return m_dot_l_oa ; } DEFINE_SOURCE(vap_src_oa, cell, sec_th, dS, eqn) { Thread * mix_th, *pri_th; real m_dot_v_oa; mix_th = THREAD_SUPER_THREAD(sec_th); pri_th = THREAD_SUB_THREAD(mix_th, 0); if(C_T(cell, mix_th)>=T_SAT_oa) {m_dot_v_oa = 0.1*C_VOF(cell, pri_th)*C_R(cell, pri_th)*fabs(C_T(cell, mix_th) - T_SAT_oa)/T_SAT_oa; dS[eqn] = 0.; } else {m_dot_v_oa = -0.1*C_VOF(cell, sec_th)*C_R(cell, sec_th)* fabs(T_SAT_oa-C_T(cell,mix_th))/T_SAT_oa; dS[eqn] = -0.1*C_R(cell, sec_th)* fabs(C_T(cell, mix_th) - T_SAT_oa)/T_SAT_oa; } return m_dot_v_oa; |
博士科研新路歷程 |
新蟲 (小有名氣)
|
本帖內(nèi)容被屏蔽 |
| 3 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 生物學(xué)學(xué)碩,一志愿湖南大學(xué),初試成績(jī)338 +5 | YYYYYNNNNN 2026-03-26 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 283求調(diào)劑 +3 | A child 2026-03-28 | 3/150 |
|
|
[考研] 304求調(diào)劑 +6 | 曼殊2266 2026-03-27 | 6/300 |
|
|
[考研] 0703化學(xué)求調(diào)劑 +9 | 奶油草莓. 2026-03-22 | 10/500 |
|
|
[考研] 275求調(diào)劑 +10 | jjjjjjjjjjl 2026-03-27 | 10/500 |
|
|
[考研] 一志愿211院校 344分 東北農(nóng)業(yè)大學(xué)生物學(xué)學(xué)碩,求調(diào)劑 +5 | 丶風(fēng)雪夜歸人丶 2026-03-26 | 8/400 |
|
|
[考研] 一志愿上海理工能源動(dòng)力(085800)310分求調(diào)劑 +3 | zhangmingc 2026-03-27 | 4/200 |
|
|
[考研] 化學(xué)308分求調(diào)劑 +8 | 你好明天你好 2026-03-23 | 9/450 |
|
|
[考研] 286求調(diào)劑 +4 | lim0922 2026-03-26 | 4/200 |
|
|
[考研] 求調(diào)劑323材料與化工 +7 | 1124361 2026-03-24 | 7/350 |
|
|
[考研] 求調(diào)劑 +6 | 林之夕 2026-03-24 | 6/300 |
|
|
[考研] 324求調(diào)劑 +8 | hanamiko 2026-03-26 | 10/500 |
|
|
[考研] 329求調(diào)劑 +7 | 鈕恩雪 2026-03-25 | 7/350 |
|
|
[考研] 321求調(diào)劑 +6 | wasdssaa 2026-03-26 | 6/300 |
|
|
[考研] 機(jī)械學(xué)碩310分,數(shù)一英一,一志愿211本科雙非找調(diào)劑信息 +3 | @357 2026-03-25 | 3/150 |
|
|
[考研] 0854電子信息求調(diào)劑 +7 | α____ 2026-03-22 | 9/450 |
|
|
[考研] 一志愿吉林大學(xué)材料與化工303分求調(diào)劑 +4 | 為學(xué)666 2026-03-24 | 4/200 |
|
|
[考研] 080500求調(diào)劑 +3 | zzzzfan 2026-03-24 | 3/150 |
|
|
[考研] 293求調(diào)劑 +3 | 濤濤Wjt 2026-03-22 | 5/250 |
|
|
[考研] 285求調(diào)劑 +6 | ytter 2026-03-22 | 6/300 |
|