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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » FLUENT & CFX » 【求助】冷凝的UDF程序
161/2返回列表12下一页
查看: 3235  |  回复: 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下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 07化学280分求调剂 +3 722865 2026-03-23 3/150 2026-03-23 18:48 by macy2011
[考研] 工科0856求调剂 +5 沐析汀汀 2026-03-21 5/250 2026-03-23 17:56 by 海瑟薇-
[考研] 350求调剂 +6 weudhdk 2026-03-19 6/300 2026-03-23 15:47 by tangyuan0840221
[考研] 0854电子信息求调剂 324 +3 Promise-jyl 2026-03-23 3/150 2026-03-23 13:43 by wangkm
[考研] 求调剂材料学硕080500，总分289分 5+3 @taotao 2026-03-19 21/1050 2026-03-23 10:17 by 冠c哥
[考研] 0703 调剂 +3 我可以上岸的对� 2026-03-16 6/300 2026-03-23 08:52 by 醉在风里
[考研] 293求调剂 +3 涛涛Wjt 2026-03-22 5/250 2026-03-22 22:21 by jiangpengfei
[考研] 287求调剂 +8 晨昏线与星海 2026-03-19 9/450 2026-03-22 17:01 by i_cooler
[考研] 求调剂 +7 Auroracx 2026-03-22 7/350 2026-03-22 12:38 by 素颜倾城1988
[考研] 广西大学材料导师推荐 +3 夏夏夏小正 2026-03-17 5/250 2026-03-21 22:20 by 金昊ML
[考研] 336求调剂 +5 rmc8866 2026-03-21 5/250 2026-03-21 17:24 by 学员8dgXkO
[考研] 299求调剂 +5 shxchem 2026-03-20 7/350 2026-03-21 17:09 by ColorlessPI
[考研] 299求调剂 +6 △小透明* 2026-03-17 6/300 2026-03-21 02:42 by JourneyLucky
[考研] 288求调剂 +16 于海海海海 2026-03-19 16/800 2026-03-20 22:28 by JourneyLucky
[考研] 一志愿 西北大学 ，070300化学学硕，总分287，双非一本，求调剂。 +4 晨昏线与星海 2026-03-19 4/200 2026-03-20 22:15 by JourneyLucky
[考研] 中南大学化学学硕337求调剂 +3 niko- 2026-03-19 6/300 2026-03-20 21:58 by luoyongfeng
[考研] 295材料求调剂，一志愿武汉理工085601专硕 +5 Charlieyq 2026-03-19 5/250 2026-03-20 20:35 by JourneyLucky
[考研] 353求调剂 +3 拉钩不许变 2026-03-20 3/150 2026-03-20 19:56 by JourneyLucky
[考研] 085600材料与化工求调剂 +6 绪幸与子 2026-03-17 6/300 2026-03-19 13:27 by houyaoxu
[考研] [导师推荐]西南科技大学国防/材料导师推荐 +3 尖角小荷 2026-03-16 6/300 2026-03-16 23:21 by 尖角小荷
信息提示
关闭
请填处理意见
关闭