24小时热门版块排行榜

>论坛更新日志 (3638)
>虫友互识 (244)
>休闲灌水 (218)
>文献求助 (200)
>导师招生 (148)
>考博 (109)
>硕博家园 (97)
>基金申请 (78)
>论文投稿 (69)
>考研 (54)
>博后之家 (50)
>公派出国 (37)
>招聘信息布告栏 (31)
>教师之家 (24)
>论文道贺祈福 (23)
>找工作 (22)

返回列表

黄涛神

捐助贵宾 (小有名气)

应助: 2 (幼儿园)
金币: 182.1
红花: 1
帖子: 141
在线: 289小时
虫号: 4743146
注册: 2016-06-01
专业: 金属材料的凝固与结晶学

[求助] 能量源项加载不上，求助！！！！！！！

这是一个体热源模型，求大家看看代码有没有问题。
#include"udf.h"
#define pi 3.1415926
DEFINE_SOURCE(my_source,c,t,dS,eqn)
{
real x[ND_ND];
real a,b,d,p,m,source,flow_time;
C_CENTROID(x,c,t);
flow_time=CURRENT_TIME;
a=3.0e-3;
b=3.0e-3;
d=5.0e-5;
p=15000.0;
m=3.0*pow(x[0]-(5.0e-3)-(1.5e-2)*flow_time,2)/a/a+3.0*pow(x[1],2)/b/b+3.0*pow(x[2],2)/d/d;
if (x[2]<=0&&m<=3)
source=3.0*p*exp((-1.0)*m)/(pi*a*b*d);
else if (m>3)
source=0.0;
dS[eqn]=0;
return source;
}

回复此楼

» 猜你喜欢

1楼 2016-12-12 10:39:03

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

相关版块跳转我要订阅楼主黄涛神的主题更新

返回列表