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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » FLUENT & CFX » 【求助】冷凝的UDF程序
161/2返回列表12下一页
查看: 2523  |  回复: 15
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

lwzhao1990

木虫 (小有名气)

[交流] 【求助】冷凝的UDF程序已有7人参与

哪位仁兄有冷凝的UDF程序？上传一下，谢谢了！
回复此楼

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

多相流UDF

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼2009-10-29 09:13:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

tacaro

至尊木虫 (知名作家)

小木虫大能猫骑士勋章
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+3,VIP+0):今天表现不错！ 10-29 12:01
给你一份网上流传比较多的计算冷凝蒸发的udf


#include "udf.h"
#include "sg_mphase.h"
#define T_SAT 373
#define LAT_HT 1.e3

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);

  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;
}

希望能有点启发
赞一下(13人) 回复此楼
2楼2009-10-29 11:53:19
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nirvanatt

铜虫 (小有名气)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+0,VIP+0):都是版上的老虫子了，活跃一下气氛。常来交流，奖励多多。呵呵 10-29 14:55
呵呵  斑竹先加分后减分  还有奖励打折这么一说啊。。。。
赞一下(13人) 回复此楼
6楼2009-10-29 14:51:22
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lwzhao1990

木虫 (小有名气)
这个我也有，是计算沸腾的UDF，不知道冷凝的有没有？
赞一下(1人) 回复此楼
3楼2009-10-29 13:13:39
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tacaro

至尊木虫 (知名作家)

小木虫大能猫骑士勋章
nono2009(金币+0,VIP+0):你说是，偶也不信。呵呵 10-30 20:07
6楼不是我mj……
赞一下(11人) 回复此楼
8楼2009-10-30 19:02:53
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

tacaro

至尊木虫 (知名作家)

小木虫大能猫骑士勋章
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币-1,VIP+0):滥竽充数，奖励打折！ 10-29 13:35
kuhailangyu(金币+0,VIP+0):多多参与，知道你是周伯通类型的了！哈哈 10-29 13:46
都是相变

原理是相同的

改下udf里几个方程应该就差不多了把
赞一下(21人) 回复此楼
4楼2009-10-29 13:16:03
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

kuhailangyu

荣誉版主 (著名写手)

小木虫蛀虫防疫站站长

优秀版主
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+2,VIP+0):谢谢K版提供加强版！ 10-29 13:47
引用回帖:
Originally posted by tacaro at 2009-10-29 13:16:
都是相变

原理是相同的

改下udf里几个方程应该就差不多了把


我还有个带注解的版本，貌似一样的！应该更能看得懂吧，哈哈

#include "udf.h"  ‘包括常规宏

#include "sg_mphase.h"  ‘包括体积分数宏CVOF(C,T)

#define T_SAT 373    ‘定义蒸发温度100℃

#define LAT_HT 1.e3   ‘定义蒸发潜热J/Kg

DEFINE_SOURCE(liq_src, cell, pri_th, dS, eqn) ‘液相质量源项UDF

{

Thread *mix_th, *sec_th;  ‘定义计算区线指针

  real m_dot_l; ‘定义液相质量转移 kg/(m2.s)

  mix_th = THREAD_SUPER_THREAD(pri_th);  ‘指向混合区的主相即液相的指针

  sec_th = THREAD_SUB_THREAD(mix_th, 1);指向单相控制区的气相的指针，气相为第二相

  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, mix_th) - T_SAT)/T_SAT;

    dS[eqn] = -0.1*C_R(cell, pri_th)*fabs(C_T(cell, mix_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) ‘气相质量源项UDF

{

  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, mix_th) - T_SAT)/T_SAT;

由于是气相向液相转移，所以气相的质量源项对自身的质量转移的偏导不为零



       }

  return m_dot_v;

}

DEFINE_SOURCE(enrg_src, cell, mix_th, dS, eqn) ‘混合模型能量源项UDF

{

  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, mix_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;  气化潜热与质量转移率相乘得能量源项W/m3

}
赞一下(12人) 回复此楼
有能力有脾气的人--怀才不遇；有能力没脾气的人--春风得意；没能力有脾气的人--一事无成；没能力没脾气的人--贵人相助。
5楼2009-10-29 13:45:07
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lwzhao1990

木虫 (小有名气)
nono2009(金币+0,VIP+0):如果不懂UDF的话，还是建议你好好学一学。不然运行出了问题怎么办？总不能让人帮你算吧。从长远讲，对研究也是绝对有用。 10-30 20:11
高手能不能帮忙改一下，UDF方面真的是不懂啊。。。。。。。。。。。。。
赞一下(10人) 回复此楼
7楼2009-10-30 18:51:14
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wangzhuang04

非常感谢大家
回复此楼
9楼2010-04-15 10:11:27
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

千古龙飞地

木虫 (正式写手)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
看来udf要好好学习啊
赞一下(1人) 回复此楼
10楼2010-05-10 20:04:51
 已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lwzhao1990 的主题更新
161/2返回列表12下一页
普通表情 龙 兔 虎 猫 高级回复(可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 特助中标的话看不到评审排名吗 +4 outsider1986 2024-06-30 6/300 2024-06-30 21:59 by wanghch
[考博] 25环境申博-寻找梦导 +4 Soto991128 2024-06-29 6/300 2024-06-30 21:16 by HENRICIS
[药学] 大佬们来讨论下，为什么分子里加入了有毒性的官能团分子反而没毒了 +4 HF111001 2024-06-24 6/300 2024-06-30 16:02 by HF111001
[育儿交流] 暑假孩子一个人在家可以干什么 +12 唠叨的映 2024-06-25 13/650 2024-06-30 14:54 by shl2112501
[考博] 没读上博，好焦虑！ +8 wangzhe_bs 2024-06-24 10/500 2024-06-30 13:46 by 哈哈的夏天
[基金申请] 要持续整治滥发“帽子”、“牌子”之风 +11 babu2015 2024-06-25 12/600 2024-06-30 11:17 by 1501311
[基金申请] 先中青基、再中博后面上的情况也挺多吧？ +10 WKKWKK 2024-06-29 11/550 2024-06-30 10:27 by 931720981
[有机交流] 大佬们，打的核磁氢谱与chemdraw预测的有偏差 +8 来了个 2024-06-26 9/450 2024-06-29 17:58 by if今年的吧
[基金申请] 2020面地青已有会评专家接到电话了 +10 dream200606 2024-06-28 12/600 2024-06-29 08:25 by llhljsy
[基金申请] 2024年度国家资助博士后研究人员计划（B、C 档）也不知道什么时候出 +11 SCU船船船 2024-06-28 15/750 2024-06-29 00:21 by 666中
[基金申请] 出结果了 +25 wuyue526 2024-06-28 31/1550 2024-06-29 00:16 by wjl_135
[基金申请] 恳请大家帮我看看如何提高 +10 drwuwenhan 2024-06-28 13/650 2024-06-28 22:14 by 好人与坏人
[硕博家园] 哭到鼻子不透气，要窒息 +3 pvrw0224 2024-06-28 3/150 2024-06-28 17:01 by 仲夏夜的星星
[基金申请] 青年基金E02口青基去年几个函评专家？ +6 他山攻玉之石 2024-06-25 9/450 2024-06-26 15:09 by 他山攻玉之石
[基金申请] 省基金对国自然申请是有利还是有弊 +6 zycumt04 2024-06-26 7/350 2024-06-26 15:02 by 潇湘之迷
[基金申请] 今天能不能出来名单 +8 地理学1995 2024-06-25 10/500 2024-06-26 09:46 by msjy
[基金申请] 这样的说辞是上会了吗 +12 学员d3zYCz 2024-06-24 15/750 2024-06-25 22:05 by 3115321
[基金申请] 博后面上到底什么时候出结果？？？ +7 爱学lsy 2024-06-24 7/350 2024-06-25 19:24 by 暴走的蒜泥
[有机交流] 对苯乙烯磺酰氯的合成机理 10+3 该死的科研 2024-06-24 5/250 2024-06-25 17:30 by 王学士
[基金申请] 说博后基金7月出的真打电话了吗？ +12 antonysole 2024-06-24 14/700 2024-06-24 13:39 by sizhouyi
信息提示
关闭
请填处理意见
关闭