24小时热门版块排行榜    

查看: 2765  |  回复: 17
【悬赏金币】回答本帖问题,作者buwangchuxin将赠送您 3 个金币
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

buwangchuxin

新虫 (小有名气)

[求助] 好心人帮帮忙吧,为什么这个UDF导入fluent以后,在边界条件处没有显示~~~已有1人参与

这是一个关于膜渗透的过程,利用UDF进行质量源项的添加。具体的程序贴出来了,问题是导入fluent以后,DEFINE_ADJUST定义的宏表现出来了,可是DEFINE_SOURCE 定义的函数在边界条件那里没有,我在fluent中设定了memory是2个,其他的就没有再改,是不是漏掉什么了?大家帮我看看吧~~

#include"udf.h"
#include"mem.h"
#define MW_N2 28.0
#define MW_C2H4 28
#define Q_N2 0
#define Q_C2H4 0.0000002435
#define P_outer  2160000
#define P_inner  120000
#define feed_domain 17
#define perment_domain 18

real molefrac( real frac, real molarone, real molartwo)
{
        real a = frac / molarone ;
        real b = (1-frac)/molartwo ;
        return a/(a+b) ;
}
DEFINE_ADJUST(filter_adjust, domain)
{
        cell_t c1, c0;
        Thread*  wall_thread;
        Thread*  wall_shadow_thread ;
        Thread*  t0;
        Thread*t1;
        face_t wall = 27;
        face_t wall_shadow = 2;
        real A[ND_ND] ;
        real x_C2H4_outer, x_N2_outer, x_C2H4_inner, x_N2_inner, At, flux_C2H4,  flux_N2, tot_flux ;
        int  memb_id = 17 ;
        wall_thread= Lookup_Thread(domain,wall);
         tot_flux = 0 ;
        begin_f_loop (wall, wall_thread)
        {
                c0  = F_C0(wall,wall_thread);
                wall_shadow_thread = THREAD_SHADOW(wall_thread);
                wall_shadow = F_SHADOW(wall,wall_thread);
                c1 = F_C0(wall_shadow,wall_shadow_thread);
                t0 = F_C0_THREAD(wall,wall_thread);
                t1 =THREAD_T0(wall_shadow_thread);
                x_C2H4_outer = molefrac(C_YI(c0, t0, 0), MW_C2H4, MW_N2);
                x_N2_outer = 1.0 - x_C2H4_outer;
                 x_C2H4_inner = molefrac(C_YI(c1, t1, 0), MW_C2H4, MW_N2);
                 x_N2_inner = 1.0 - x_C2H4_inner;
                F_AREA(A,wall, wall_thread);
                 At = NV_MAG(A);
                 flux_C2H4 = Q_C2H4 * ( x_C2H4_outer * P_outer - x_C2H4_inner * P_inner);
                 flux_N2 = Q_N2 * ( x_N2_outer * P_outer - x_N2_inner * P_inner);
                  tot_flux = tot_flux + MW_C2H4*flux_C2H4*At + MW_N2*flux_N2*At;
                C_UDMI(c0, t0, 0) = -(MW_C2H4*flux_C2H4)*At/C_VOLUME(c0,t0);
                C_UDMI(c1, t1, 1) =  (MW_C2H4*flux_C2H4)*At/C_VOLUME(c1,t1);
                C_UDMI(c0, t0, 2) = -(MW_N2*flux_N2)*At/C_VOLUME(c0,t0);
                C_UDMI(c1, t1, 3) =  (MW_N2*flux_N2)*At/C_VOLUME(c1,t1);
        }
        end_f_loop (wall,wall_thread)
}
DEFINE_SOURCE(gas1, c, t, dS, eqn)
{  
        Thread*  tf;
        int n ;
        real source=0.0;
        Domain *domain = Get_Domain(feed_domain);
        face_t wall = 27;
        Thread* wall_thread=Lookup_Thread(domain,wall);
        Thread* wall_shadow_thread = THREAD_SHADOW(wall_thread);
        c_face_loop( c, t, n)  
        {tf = C_FACE_THREAD(c,t,n);
                if(tf==wall_thread)
                        return source=C_UDMI(c, t, 0);       
        }
        return source;
}
DEFINE_SOURCE(gas2, c, t, dS, eqn)
{  
        Thread*  tf;
        int n ;
        real source=0.0;
        Domain *domain = Get_Domain(perment_domain);
        face_t wall = 27;
        Thread* wall_thread=Lookup_Thread(domain,wall);
        Thread* wall_shadow_thread = THREAD_SHADOW(wall_thread);
        c_face_loop( c, t, n)  
        {tf = C_FACE_THREAD(c,t,n);
                if(tf==wall_shadow_thread)
                        return source=C_UDMI(c,t,1);
        }
        return source;
}
有点长,可是很简单。求求大家帮我看看吧
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

47425804

木虫 (正式写手)



xiegangmai: 金币+1, 谢谢参与! 2012-05-18 22:38:35
SOURCE是源项宏,不是用来给边界条件的。
边界条件的宏是DEFINE_PROFILE。
3楼2012-05-18 07:10:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 18 个回答

buwangchuxin

新虫 (小有名气)

10个金币可能太少了,可现在是我基本上全部,大家帮帮那我吧~~~
2楼2012-05-18 01:37:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

47425804

木虫 (正式写手)



xiegangmai: 金币+1, 鼓励讨论交流! 2012-05-18 22:38:45
引用回帖:
3楼: Originally posted by 47425804 at 2012-05-18 07:10:00:
SOURCE是源项宏,不是用来给边界条件的。
边界条件的宏是DEFINE_PROFILE。

上面这条回复请无视,误解你的问题了,呵呵~~
你这儿是在一个膜两侧进行传质,我以前也写过一个类似问题的UDF,发在论坛上了。思路和你的不大一样,你也可以参考一下。
你的UDF,考虑下两个Domain给的是不是有问题,feed_domain和perment_domain,分别是17和18,就我的理解似乎不对。
4楼2012-05-18 07:28:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

kylafree

至尊木虫 (知名作家)

【答案】应助回帖


感谢参与,应助指数 +1
xiegangmai: 金币+1, 谢谢参与! 2012-05-18 22:38:55
DEFINE_SOURCE(gas1, c, t, dS, eqn)宏,你后面不是漏了个 ds[eqn]=***吗
5楼2012-05-18 09:29:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 高校辞职,要求赔偿,这到底合不合理 +20 传动_海神 2024-06-23 28/1400 2024-06-24 19:49 by 传动_海神
[基金申请] 博后面上今天下午会公布吗?大家有无消息? +5 地理学1995 2024-06-24 5/250 2024-06-24 17:00 by hwj110
[教师之家] 复旦夏同学提出高校成年人学生退学不应该让家长审核,大家认同吗? +10 苏东坡二世 2024-06-22 17/850 2024-06-24 16:52 by wanghuawei
[基金申请] 这样的说辞是上会了吗 +9 学员d3zYCz 2024-06-24 12/600 2024-06-24 16:46 by yingxz
[硕博家园] 怎么带研究生? +21 豆豆小小2 2024-06-20 23/1150 2024-06-24 13:39 by bluewindmill
[基金申请] 厅级项目出校却没中 +10 Iwould 2024-06-23 17/850 2024-06-24 12:11 by 进击的荣耀
[催化] 求助原位红外 +3 jfdhj 2024-06-21 7/350 2024-06-24 10:52 by qvhm2609
[有机交流] 三颈瓶加热 5+4 wzjwx888 2024-06-20 4/200 2024-06-24 10:11 by w87437985
[基金申请] 博后面上和特助今天出吗? +41 逗您玩 2024-06-21 77/3850 2024-06-24 09:47 by weichuny
[硕博家园] 联培博士文章第一单位署名问题交流~ +6 橙成成c 2024-06-23 12/600 2024-06-24 08:45 by jurkat.1640
[公派出国] 博士csc联培会看重第一学历学校层次吗 +4 也就这样 2024-06-23 4/200 2024-06-24 08:18 by 晓目崇
[基金申请] 工材口青年基金上会可能性 +10 今晚推荐22 2024-06-19 13/650 2024-06-23 15:11 by Pickfoot
[基金申请] F03青年基金函评结果 +5 暨阳一只柴 2024-06-19 6/300 2024-06-23 14:30 by adsqsj
[公派出国] CSC博士联培对将来就业有用吗 +3 也就这样 2024-06-22 3/150 2024-06-22 22:04 by 326lhpqk
[有机交流] 间氨基苯甲酸甲酯合成 5+3 pengdatao 2024-06-19 6/300 2024-06-22 10:58 by zyp0009928
[考博] 2025年博士申请,可先做科研助理 +5 limit888 2024-06-18 8/400 2024-06-21 12:45 by 半简体
[有机交流] 怎么萃取出锡盐内包裹的化合物 +4 硕六过 2024-06-19 5/250 2024-06-21 09:50 by 光超嘟嘟
[有机交流] 跑板能跑开,过柱过不纯怎么办 +8 小胡在努力 2024-06-18 10/500 2024-06-21 08:22 by hptianyan
[论文投稿] ACS AMI 返回审稿意见,一个大修,两个据稿,编辑给的修改重投 +7 智商已更新 2024-06-19 7/350 2024-06-20 19:54 by kinlin13
[论文投稿] 投稿求助 +4 平凡的日子 2024-06-19 5/250 2024-06-20 16:24 by yueyueyue@
信息提示
请填处理意见