24小时热门版块排行榜    

查看: 1942  |  回复: 9

如果——有

新虫 (初入文坛)

[交流] 谁有二维高斯分布热源udf程序?

谁有二维高斯分布热源udf程序?可以加载在面区域上的。
回复此楼

» 猜你喜欢

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

匿名

用户注销 (小有名气)


小木虫: 金币+0.5, 给个红包,谢谢回帖
本帖仅楼主可见
2楼2016-06-13 09:00:53
已阅   申请仿真EPI   回复此楼   编辑   查看我的主页
祝福
3楼2016-06-13 12:35:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

如果——有

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by xpxp1991 at 2016-06-13 09:00:53
热源程序你可以自己通过UDF编写呢,采用Fluent自带的define宏区定义,然后保存为.c文件,define-user defined-functions-interpreted解释下就可以了呢。

自己编写的老有错误,你要编好的udf程序吗?
4楼2016-06-13 23:54:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

匿名

用户注销 (文坛精英)


小木虫: 金币+0.5, 给个红包,谢谢回帖
本帖仅楼主可见
5楼2016-06-14 00:27:12
已阅   申请仿真EPI   回复此楼   编辑   查看我的主页

如果——有

新虫 (初入文坛)

引用回帖:
5楼: Originally posted by 硫酸亚铜 at 2016-06-14 00:27:12
把你的代码铁上来

#include "udf.h"
DEFINE_SOURCE(heat,c,t,dS,eqn)
{
real source,r0,Q,a,v,time,m,n,p,H,r;
real x[ND_ND];
r0=0.00075;
H=0.0025;
Q=1350;
a=0.8;
v=0;
time=CURRENT_TIME;
begin_c_loop(c,t)
{
C_CENTROID(x,c,t);
m=x[0];
n=x[1];
r=sqrt(m*m+(0-v*time)*(0-v*time));

if(sqrt(x[1]*x[1])<=0.003)
   source=9*a*Q/(M_PI*r0*r0*H*(1-exp(-3)))*exp(9*r*r/(r0*r0*log((fabs(n)/H))));
else
   source=0;}
end_c_loop(f,t)
}
dS[eqn]=0;
return source;
}
6楼2016-06-14 19:39:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

如果——有

新虫 (初入文坛)

引用回帖:
6楼: Originally posted by 如果——有 at 2016-06-14 19:39:06
#include "udf.h"
DEFINE_SOURCE(heat,c,t,dS,eqn)
{
real source,r0,Q,a,v,time,m,n,p,H,r;
real x;
r0=0.00075;
H=0.0025;
Q=1350;
a=0.8;
v=0;
time=CURRENT_TIME;
begin_c_loop(c,t)
{
...

加载相当于没加一样。
7楼2016-06-14 19:40:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
祝福
8楼2016-06-14 19:58:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
祝福
9楼2016-06-15 12:55:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小七工作室1

新虫 (著名写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
这个做的比较多,可以交流下
10楼2016-06-15 14:22:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 如果——有 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见