24小时热门版块排行榜    

查看: 2150  |  回复: 9
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

super雪儿

新虫 (正式写手)

[求助] 尴尬做一次伸手党谁有高斯热源模型的UDF编程的程序啊,跪求

如题,一点C++基础都没有,我现在在学,但是希望能先有个高斯热源模型能加载上,哪位大神有的话可不可以让我用一下,谢谢了啊

发自小木虫Android客户端
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

malasong9471

木虫 (正式写手)

1新建一个/从别人那拷贝一个.c的文件,用txt打开编辑2将楼上的udf内容复制粘贴进去3加载udf

发自小木虫Android客户端
4楼2016-11-14 22:51:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答

super雪儿

新虫 (正式写手)

引用回帖:
1楼: Originally posted by super雪儿 at 2016-11-14 14:01:02
如题,一点C++基础都没有,我现在在学,但是希望能先有个高斯热源模型能加载上,哪位大神有的话可不可以让我用一下,谢谢了啊

或者谁能推荐我UDF学习经验啊?

发自小木虫Android客户端
2楼2016-11-14 18:21:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gyctju

金虫 (著名写手)

1,
# include"udf.h"
DEFINE_PROFILE(heat_flux,t,i)
{
        real xx[ND_ND];
        real a, pi, r, ef,p, heat, x,y;
        face_t f;
        ef= 0.8;
                pi = 3.141596;
                r = 0.003;
                p=1400;
                heat = 3 *ef*p / (pi*r*r);
                        begin_f_loop(f,t)
                {
                                x = xx[0];
                                y = xx[1];
                                if (sqrt(x*x + y*y) <= 0.003)
                                        F_PROFILE(f, t, i) = heat*exp(-3 * (x*x + y*y) / (r*r));
                                else F_PROFILE(f,t,i) = 0;
                        }
                end_f_loop(f,t)
}

2,
# include "udf.h"
# define v 10
# define delt .05
# define delx .5
# define I0 2*10000000
# define n 39
DEFINE_PROFILE(g_profile,t,i)
{
int x[ND_ND];
int j,k;
double xreg;
double xl[39],I[39],y[39];
face_t f;
/*xl= (v*delt)+(delx/2);*/
begin_f_loop(f,t)
{
F_CENTROID(x,f,t);
y[0]=x[1];
for(j=1;j<=n;j++)
{
y[j]=(j-1)*delt;
/*k=j;*/
xl[j]=(j-1)*v*delt;
printf("%f\n",&xl[j]);
/*xreg=(y[j]-xl[j]);*/
/*double fabs(double (y[j]-xl[j]));*/
{
if ((y[j]-xl[j]) < 0)
xreg = -1*(y[j]-xl[j]);
else
xreg = (y[j]-xl[j]);
}
if(xreg<delx)
{
I[j]=I0*exp((-2*((xreg)*(xreg)))/(delx*delx));
}
else
{
I[j]=0;
}
printf( "%f\n", &I[j]);
}
}
end_f_loop(f,t)
}
3楼2016-11-14 21:01:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

super雪儿

新虫 (正式写手)

引用回帖:
3楼: Originally posted by gyctju at 2016-11-14 21:01:41
1,
# include"udf.h"
DEFINE_PROFILE(heat_flux,t,i)
{
        real xx;
        real a, pi, r, ef,p, heat, x,y;
        face_t f;
        ef= 0.8;
                pi = 3.141596;
     ...

大神,太感谢你了,为什么是两个啊?都是高斯热源吗?

发自小木虫Android客户端
5楼2016-11-15 06:58:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 5sJFDKp2kwuI 2026-11-06 5/250 2026-11-07 16:17 by Xc2FxHsHkBNc
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +4 5sJFDKp2kwuI 2026-11-06 6/300 2026-11-07 15:44 by Xc2FxHsHkBNc
[公派出国] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +8 ncTVBM6AOJHF 2026-11-04 23/1150 2026-11-07 06:49 by Equinoxhua
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 ELBZ6WwEaRj6 2026-11-05 7/350 2026-11-06 16:43 by 5sJFDKp2kwuI
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +6 ELBZ6WwEaRj6 2026-11-04 14/700 2026-11-06 16:32 by 5sJFDKp2kwuI
[考研] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +5 ELBZ6WwEaRj6 2026-11-04 10/500 2026-11-06 16:23 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 16:12 by 5sJFDKp2kwuI
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 ttH3f1oA6ace 2026-11-04 11/550 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +6 ncTVBM6AOJHF 2026-11-04 15/750 2026-11-06 13:49 by BkA9Bi5cMhkD
[考博] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +7 ncTVBM6AOJHF 2026-11-04 17/850 2026-11-06 13:47 by BkA9Bi5cMhkD
[考研] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +8 ncTVBM6AOJHF 2026-11-04 18/900 2026-11-06 13:36 by BkA9Bi5cMhkD
[考研] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +5 ELBZ6WwEaRj6 2026-11-05 10/500 2026-11-06 12:32 by BkA9Bi5cMhkD
[考研] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 ELBZ6WwEaRj6 2026-11-04 10/500 2026-11-06 05:32 by qL1cU46YIdK0
[硕博家园] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 ELBZ6WwEaRj6 2026-11-04 12/600 2026-11-06 05:32 by qL1cU46YIdK0
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 14/700 2026-11-06 05:10 by qL1cU46YIdK0
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +6 kvewwGtKktqB 2026-11-04 16/800 2026-11-06 05:00 by qL1cU46YIdK0
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 02:04 by qL1cU46YIdK0
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 ttH3f1oA6ace 2026-11-04 9/450 2026-11-06 02:02 by qL1cU46YIdK0
[考研] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +5 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-06 01:42 by qL1cU46YIdK0
[教师之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-05 11:10 by PYZmcHr5kSaq
信息提示
请填处理意见