水沸腾算例UDF的详细解析_第1页
水沸腾算例UDF的详细解析_第2页
水沸腾算例UDF的详细解析_第3页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、【强烈推荐】水沸腾算例UDF勺详细解析强烈推荐】水沸腾算例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

2、= 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)*pri_th) - T_SAT)/T_SAT;*/* 如果液相单fabs(C_T(cell,元的温度高于蒸发温度,液相向气相的质量转移定义源项对质量转移偏导 */dSeqn = -0.1*C_R(cell, pri_th)*f

3、abs(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;dSeqn= 0.; /* 于是气相向液相转移,所以液相的质量源项对质量转移的偏导为零*/return m_dot_l;DEFINE_SOURCE(vap_src, cell, sec_th, dS, eqn) /*定义气相源项 */Thread * mix_th, *pri_th;/* 混合相、第一相 */real m_dot_v;mi

4、x_th = THREAD_SUPER_THREAD(sec_th); /* 指向混合区的第二相即气相的指针 */ pri_th = THREAD_SUB_THREAD(mix_th0, );/* 指向单相控制区的液相的指针,液相为主相 */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; /* 如果混合区单 元的温度高于蒸发温度,液相向气相的质量质量转移 */dSeqn = 0.;/* 由于是液相向气相转移,

5、所以气相的质量源项对来自液相的质量转移的偏导为零 */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;dSeqn = -0.1*C_R(cell, sec_th)*fabs(C_T(cell, sec_th) - T_SAT)/T_SAT; /* 由于是气相向液相转移,所以 气相的质量源项对自身的质量转移的偏导不为零 */return m_dot_v;/* 混合模型能量源项 */* 指向混合区的液相的指针 */* 指向混合区的气相的指针 */DEFINE_S

6、OURCE(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;/* 如果混合区dSeqn = -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;dSeqn = -0.1*C_VOF(c

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论