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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » FLUENT & CFX » FLuent 空化 UDF能量源项
71/1返回列表
查看: 2485  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 311求调剂 +4 26研0 2026-03-15 4/200 2026-03-16 14:46 by 可淡不可忘
[考研] 材料专硕306英一数二 +4 z1z2z3879 2026-03-16 4/200 2026-03-16 13:53 by laoshidan
[考研] 0703 物理化学调剂 +3 我可以上岸的对� 2026-03-13 5/250 2026-03-16 10:50 by 我可以上岸的对�
[考研] 化学工程321分求调剂 +7 大米饭！ 2026-03-15 7/350 2026-03-16 10:25 by 了了了了。。
[考研] 308求调剂 +3 是Lupa啊 2026-03-16 3/150 2026-03-16 10:07 by 求调剂zz
[基金申请] 面上和青基一样限30页不合理 +5 wowsunflower 2026-03-10 7/350 2026-03-14 17:21 by kingkocxr
[考研] 328求调剂 +3 5201314Lsy！ 2026-03-13 6/300 2026-03-14 15:31 by hyswxzs
[考研] 267一志愿南京工业大学0817化工求调剂 +5 SUICHILD 2026-03-12 5/250 2026-03-14 14:53 by jean5056
[考研] 【0703化学调剂】-一志愿华中师范大学-六级475 +5 Becho359 2026-03-11 5/250 2026-03-14 11:35 by 哦哦123
[考研] 330求调剂 +3 ?酱给调剂跪了 2026-03-13 3/150 2026-03-14 10:13 by JourneyLucky
[考研] 308求调剂 +4 是Lupa啊 2026-03-09 4/200 2026-03-14 02:06 by tranquil_ya
[考研] 085600求调剂 +3 a邵星池 2026-03-09 3/150 2026-03-14 01:32 by JourneyLucky
[考研] 307求调剂 +7 超级伊昂大王 2026-03-10 7/350 2026-03-14 00:49 by JourneyLucky
[考研] 341求调剂 +3 番茄头--- 2026-03-10 3/150 2026-03-13 23:07 by JourneyLucky
[考研] 285 求调剂 资源与环境 一志愿北京化工大学 +3 未名考生 2026-03-10 3/150 2026-03-13 23:04 by JourneyLucky
[考研] 求材料调剂 +5 隔壁陈先生 2026-03-12 5/250 2026-03-13 22:03 by 星空星月
[考研] 0856材料与化工301求调剂 +5 奕束光 2026-03-13 5/250 2026-03-13 22:00 by 星空星月
[考研] 求调剂 资源与环境 285 +3 未名考生 2026-03-10 3/150 2026-03-13 10:31 by houyaoxu
[考研] 化工学硕306求调剂 +9 42838695 2026-03-12 9/450 2026-03-13 10:16 by houyaoxu
[考研] 279求调剂 +3 莫xiao 2026-03-10 4/200 2026-03-11 08:06 by 斩魂滴兔子！
信息提示
关闭
请填处理意见
关闭