应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » FLUENT & CFX » FLuent 空化 UDF能量源项
北京石油化工学院2026年研究生招生接收调剂公告
71/1返回列表
查看: 2501  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

lihongyang0

金虫 (初入文坛)

[交流] FLuent 空化 UDF能量源项

我写一个能量方程的源项，但是计算结果显示，我的源项加没加计算结果都一样，证明说这里面有地方写错了。但是我实在看不出来哪里弄错了。
我加载代码的方式应该是正确的吧（先iinterpreted，然后Cell zone， source前打勾，最后把能量UDF源选进去）
#include "udf.h"
#include "sg_mphase.h"

DEFINE_SOURCE(energy_source,c,m_t,dS,eqn)
{
        Thread *l_t, *v_t;       
        real m_dot, hc, source, fv, dT,m_dot2,source2;
        real cigma_m, cigma_m2,flag;
        real D_l, D_v,p_loc;
        real p_sat,p_sat2, T_loc, p_vapor,dp, dp2, T_loc2, p_vapor2;
        real p1, p2, p3, p4,m_dot_Re,m_dot_Re2,m_dot_Rc,m_dot_Rc2;
        real F_vap, F_cond, temp1, hc2;
        p_loc=C_P(c,m_t)*1000000;
        F_vap=0.02;
        F_cond=0.01;
        l_t=THREAD_SUB_THREAD(m_t,0);
        v_t=THREAD_SUB_THREAD(m_t,1);
        fv=C_VOF(c,v_t)*C_R(c,v_t)/(C_VOF(c,v_t)*C_R(c,v_t)+C_VOF(c,l_t)*C_R(c,l_t));

        T_loc=C_T(c,m_t);
        p1=10.86;
        p2=-1980;
        p3=1.233*100000;
        p4=-2.617*1000000;
        p_sat=p1*T_loc*T_loc*T_loc+p2*T_loc*T_loc+p3*T_loc+p4;
        dT=0.01;
        T_loc2=T_loc+dT;
        p_sat2=p1*T_loc2*T_loc2*T_loc2+p2*T_loc2*T_loc2+p3*T_loc2+p4;
        p_vapor=p_sat+0.5*0.39*C_R(c,m_t)*C_K(c,m_t);
        p_vapor2=p_sat2+0.5*0.39*C_R(c,m_t)*C_K(c,m_t);
        p1=3.424e-09;
        p2=-1.867e-07;
        p3= -0.0002614;
        p4=0.02863;
        cigma_m=p1*T_loc*T_loc*T_loc+p2*T_loc*T_loc+p3*T_loc+p4;
        cigma_m2=p1*T_loc2*T_loc2*T_loc2+p2*T_loc2*T_loc2+p3*T_loc2+p4;
        p1=-0.0002051;
        p2=0.03527;
        p3=-3.064;
        p4=320.1;
        hc=p1*T_loc*T_loc*T_loc+p2*T_loc*T_loc+p3*T_loc+p4;

        hc2=p1*T_loc2*T_loc2*T_loc2+p2*T_loc2*T_loc2+p3*T_loc2+p4;

        dp=p_vapor-p_loc;
        dp2=p_vapor2-p_loc;
        temp1=sqrt(C_K(c,m_t));
        D_l=C_R(c,l_t);
        D_v=C_R(c,v_t);
        m_dot_Re=0.0;
        m_dot_Rc=0.0;
        source=0.0;
        source2=0.0;
        flag=1000.0;
        if(p_loc<=p_vapor)           
        {

                m_dot_Re=F_vap*temp1/cigma_m*D_l*D_v*sqrt(2/3*dp/D_l)*(1-fv);

        }
        if(p_loc>p_vapor)                              
        {
                m_dot_Rc=F_cond*temp1/cigma_m*D_l*D_l*sqrt(2/3*(-dp)/D_l)*fv;
       
        }

        source=(m_dot_Re-m_dot_Rc)*hc*flag;
       
        dS[eqn]=0.0;
       
        return source;
}
回复此楼

» 收录本帖的淘帖专辑推荐

软件及其学习资料 fluent软件学习

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2014-06-03 20:30:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qqww2320

铜虫 (小有名气)
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
小木虫: 金币+0.5, 给个红包，谢谢回帖
lihongyang0: 金币+10 2014-06-04 13:43:47
程序编写的没用问题，我也分别用VOF.MIXTURE和euler的方式测试过了，没用问题，温度都有明显提升，你自己在试试吧，哪操作有错误吧。我用的编译的方式，不是用的解释法。
赞一下(1人) 回复此楼
2楼2014-06-04 11:10:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tjushang

捐助贵宾 (正式写手)
★ ★ ★ ★ ★ ★ ★ ★ ★
小木虫: 金币+0.5, 给个红包，谢谢回帖
lihongyang0: 金币+8 2014-06-05 09:34:42
温度没变化只说明一个问题，你的源项返回值太小了，在很短的时间内体现不出温度变化。试试把源项大小提高几个数量级看看。
赞一下(1人) 回复此楼
王城的姓氏都改写 我还在这里守着夜 等什么从灰烬里面 破茧成蝶
3楼2014-06-05 09:17:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lihongyang0

金虫 (初入文坛)
引用回帖:
3楼: Originally posted by tjushang at 2014-06-05 09:17:45
温度没变化只说明一个问题，你的源项返回值太小了，在很短的时间内体现不出温度变化。试试把源项大小提高几个数量级看看。

提高了，是有效果的，但已经不是原物理问题了
赞一下 回复此楼
4楼2014-06-05 09:34:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lutos-wj
5楼2014-06-06 20:32:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

独恋sophia

木虫 (初入文坛)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
请问楼主这个Udf是实现空化中什么功能呢，我刚开始学习Udf，还不是很明白，望楼主不吝赐教哈

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
好好学习，天天向上
6楼2014-11-26 11:01:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bittonny

铁虫 (初入文坛)
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
你好，楼主，最后问题解决了吗
赞一下 回复此楼
fortran、matlab、fluent、numeca
7楼2015-11-05 10:54:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lihongyang0 的主题更新
71/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 081700，311，求调剂 +14 冬十三 2026-04-04 15/750 2026-04-06 01:57 by BruceLiu320
[考研] 302分求调剂 一志愿安徽大学085601 +8 zyx上岸！ 2026-04-04 8/400 2026-04-05 23:08 by lbsjt
[考研] 一志愿211生物学280分 求调剂 +4 李rien 2026-04-05 4/200 2026-04-05 18:01 by kk112233
[考研] 26考研调剂0710 0860 +9 补补不补 2026-04-03 14/700 2026-04-04 23:32 by 果冻大王
[考研] 材料调剂 +18 一样YWY 2026-04-02 19/950 2026-04-04 22:14 by hemengdong
[考研] 301求调剂 +18 骆驼男人 2026-04-02 18/900 2026-04-04 20:33 by 蓝云思雨
[考研] 调剂 +9 19945159693 2026-04-03 10/500 2026-04-04 20:16 by dongzh2009
[考研] 一志愿安徽某211 0703化学总分339求调剂 +6 晚风不晚 2026-04-04 6/300 2026-04-04 20:11 by dongzh2009
[考研] 348分环境工程·调剂 +10 吴彦祖24k 2026-04-03 11/550 2026-04-04 14:19 by 无际的草原
[考研] 一志愿重庆大学085404，总分314分，求调剂 +4 zf83hn 2026-04-03 4/200 2026-04-03 21:25 by 啵啵啵0119
[考研] 334求调剂 +9 Trying] 2026-03-31 9/450 2026-04-03 15:18 by 琢珥丶
[考研] 机械专硕297 +3 Afksy 2026-04-03 3/150 2026-04-03 14:24 by 1753564080
[考研] 求调剂 +3 usbdndj 2026-04-03 3/150 2026-04-03 14:10 by dxiaoxin
[考研] 085600 295分求调剂 +19 W55j 2026-03-30 23/1150 2026-04-03 09:53 by 千千运气
[考研] 0703化学 +7 goldtt 2026-04-02 9/450 2026-04-03 09:36 by 蓝云思雨
[论文投稿] chinese chemical letters英文版投稿求助 120+4 Yishengeryi 2026-03-30 6/300 2026-04-02 17:19 by Yishengeryi
[考研] 求调剂 +4 DADA怪 2026-03-31 4/200 2026-04-01 14:30 by ZXlzxl0425
[考研] 江苏苏北高校诚邀调剂同学 +3 zzll406 2026-03-31 3/150 2026-03-31 16:54 by 及时行乐fan
[考研] 英一数一总分334求调剂 +4 陈阳坤 2026-03-31 4/200 2026-03-31 14:22 by 记事本2026
[考研] 370求调剂 +3 080700调剂 2026-03-30 3/150 2026-03-31 01:09 by A_Zhe
信息提示
关闭
请填处理意见
关闭