24小时热门版块排行榜    

查看: 1139  |  回复: 2
【悬赏金币】回答本帖问题,作者无敌小张!将赠送您 5 个金币

无敌小张!

新虫 (初入文坛)

[求助] fluent的udf

大神们,有段fluent的udf,但是看不懂,有没有大神能给解答一下是什么意思
研一萌新没啥金币,直接分享,大家有需要就拿去用
#include "udf.h"
#define U 18
#define I 200
#define PI 3.1415928
#define R 0.003
#define n 0.8
#define v 0.003
#define L 0.005
#define u0 1.26e-6

DEFINE_SOURCE(S_X,cell,thread,dS,eqn)
{
         real xc[ND_ND];   
         real t;
         real source;
         real x,y,z;
     real r;

         C_CENTROID(xc,cell,thread);
         x=xc[0];   
         y=xc[1];
         z=xc[2];

         t=RP_Get_Real("flow-time";
         r=sqrt((x-v*t)*(x-v*t)+y*y);
         if(r<R)
         {
                 source=-1*u0*I*I/(4*PI*PI*R*R*r)*exp(-1*r*r/(2*R*R))
                         *(1-exp(-1*r*r/(2*R*R)))*(1-z/L)*(1-z/L)*x/L;
                 dS[eqn]=0;
         
         }
         else
                 source=dS[eqn]=0;
             return source;

}
DEFINE_SOURCE(S_Y,cell,thread,dS,eqn)
{
         real xc[ND_ND];
         real t;
         real source;
         real x,y,z;
     real r;

         C_CENTROID(xc,cell,thread);  
         x=xc[0];
         y=xc[1];
         z=xc[2];

         t=RP_Get_Real("flow-time";
         r=sqrt((x-v*t)*(x-v*t)+y*y);
         if(r<R)
         {
                 source=-1*u0*I*I/(4*PI*PI*R*R*r)*exp(-1*r*r/(2*R*R))
                         *(1-exp(-1*r*r/(2*R*R)))*(1-z/L)*(1-z/L)*y/L;
                 dS[eqn]=0;
         
         }
         else
                 source=dS[eqn]=0;
             return source;

}
  DEFINE_SOURCE(S_Z,cell,thread,dS,eqn)
{
         real xc[ND_ND];
         real t;
         real source;
         real x,y,z;
     real r;

         C_CENTROID(xc,cell,thread);
         x=xc[0];
         y=xc[1];
         z=xc[2];

         t=RP_Get_Real("flow-time";
         r=sqrt((x-v*t)*(x-v*t)+y*y);
         if(r<R)
         {
                 source=-1*u0*I*I/(4*PI*PI*L*r*r)
                         *(1-exp(-1*r*r/(2*R*R)))*(1-z/L)*(1-z/L);
                 dS[eqn]=0;
         
         }
         else
                 source=dS[eqn]=0;
             return source;


  }
DEFINE_PROFILE(heat_flux,thread,index)
{

         real xc[ND_ND];
         face_t f;
         real t;
         real heat,T0=300;
         real x,y,z;
     real r;
         real hc = 80, sigmab = 5.67e-8, epsilon = 0.06;
     t=RP_Get_Real("flow-time";
         begin_f_loop(f,thread)
         {
           F_CENTROID(xc,f,thread);
             x=xc[0];
             y=xc[1];
             z=xc[2];
         r=sqrt((x-v*t)*(x-v*t)+y*y);
                 if(r<sqrt(6)*R)
           heat=n*I*U/(2*PI*R*R)*exp(-1*r*r/(2*R*R));
                 else
                   heat=0;
                 
                 F_PROFILE(f, thread, index) = heat - hc*(F_T(f,thread), - T0) - sigmab*epsilon*(pow(F_T(f,thread), 4.) - pow(T0, 4.));

         }
     end_f_loop(f,thread)
     
  }
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

heartbute

新虫 (初入文坛)

2楼2021-09-12 00:03:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

朴勋医生

新虫 (小有名气)

最后一个面热源,前面都是体热源,你也做激光加工吗

发自小木虫Android客户端
3楼2021-10-25 09:00:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 无敌小张! 的主题更新
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 民办高校入职后稳定吗? +3 905452934 2024-05-16 6/300 2024-05-16 23:40 by 905452934
[硕博家园] 领养小孩 +14 Yyds55 2024-05-14 14/700 2024-05-16 22:06 by 鱼翔浅底1
[基金申请] 河北省基金 +3 3101251516 2024-05-16 4/200 2024-05-16 21:49 by lucky_my2010
[硕博家园] 中国科学院大学李海艳老师课题组诚招硕/博研究生和博士后,诚聘客座本/硕/博学生 +4 ucaszmh 2024-05-14 5/250 2024-05-16 19:51 by 我是小班
[基金申请] 网传南京林业大学加拿大博士首聘期不合格,自杀 +26 babu2015 2024-05-12 35/1750 2024-05-16 19:28 by danisha
[基金申请] 系统导出申报书中参与人那一页的格式,跨入两页,要通过调整行间距调整到一页吗? +3 danisha 2024-05-15 5/250 2024-05-16 18:21 by danisha
[基金申请] 连续3年国社科青年本子都没中,今年最后一次青年了,写本子完全浪费时间 +10 ddkk3000 2024-05-15 14/700 2024-05-16 18:01 by 南海猪
[基金申请] 12个本子最多让给1a2b +16 地球e村长 2024-05-13 19/950 2024-05-16 17:48 by sars518
[教师之家] 为何一方面国内大学教师无效内卷过劳逝世,而另一方面国家却在硬核科技上被卡脖子深重 +10 zju2000 2024-05-15 13/650 2024-05-16 17:26 by 清晨和风一起
[论文投稿] 中文投稿 +6 liujinyu80 2024-05-13 6/300 2024-05-16 15:57 by 晓目崇
[基金申请] 粗大,科研之友提示有一篇10多年前的文章被阅读 +9 babu2015 2024-05-16 11/550 2024-05-16 14:53 by TsolmonZ
[硕博家园] 求助,请问我是否该转专业 +8 ygcbl 2024-05-12 10/500 2024-05-16 09:18 by 清晨和风一起
[基金申请] 青年拔尖出炉 +5 babu2015 2024-05-14 6/300 2024-05-15 21:27 by msjy
[论文投稿] 当前scientific reports还值得投稿么? +4 lizhengke06 2024-05-14 5/250 2024-05-15 20:16 by vmuch520
[硕博家园] 导师这样说到底有没有机会啊……… +7 理科生yes 2024-05-14 14/700 2024-05-15 18:45 by 理科生yes
[教师之家] 相比过去,现在高校导师水平越来越高(可见招聘条件),研究生越来越差 +14 苏东坡二世 2024-05-11 18/900 2024-05-15 11:04 by 清晨和风一起
[考研] 求考研导师(24年底我才考,材料类,提前联系) +5 笑笑宝公主 2024-05-12 6/300 2024-05-15 10:53 by 13096145
[有机交流] 无水硫酸钠除水 80+3 桃桃PXS 2024-05-13 4/200 2024-05-14 16:49 by binzy
[论文投稿] 请问这审稿意见准确地说是啥意思 +4 枯禅 2024-05-11 5/250 2024-05-12 14:54 by ca0yan9
[基金申请] 是这样的? +17 xiangsu121 2024-05-10 19/950 2024-05-11 11:43 by zqwcr
信息提示
请填处理意见