24小时热门版块排行榜    

查看: 378  |  回复: 0

沉默的海

金虫 (正式写手)

[求助] 求高手编写一个gauss分布的程序

我想编写这样一个程序,在x-z面内有一个圆,圆心坐标为(0,-0.11),半径为0.11,具体见图1.我想在此圆面内定义一个以圆心处y轴为对称轴的gauss分布的值heatflux,示意图如图2(红色越深的代表heatflux值越大) 。简单说就是在圆面内根据x、z的坐标不同定义不同的值heatflux。

图1


图2


下面我自己编了个程序,高手们给看看,因为实在有限元软件中调用此函数,所以基本格式已经定下来了,你可以在* ------------- Program your function below this line  ------------- */   下面编写程序。

#include

#include



#define real double



#ifdef WIN32

#define EXPORT _declspec(dllexport)

EXPORT real func_heatflux(char*, int, real, real, real, real, real, real, int);

#else

real func_heatflux(char*, int, real, real, real, real, real, real, int);

#endif



extern real usertemp1(int);

extern real userfs1(int);

extern real uservx1(int);

extern real uservy1(int);

extern real uservz1(int);

extern int nodNum (real,real,real,int,real*,real*,real* );



/*

*    heat flux coefficient (applied on external surfaces)

*/



real func_heatflux(

  char  prefix[],     /* case name  */

  int   dimension,    /* 2 = 2D ; 3 = 3D */

  real  temp,         /* current temperature */

  real  fs,           /* current fraction of solid */

  real  time,         /* current time */

  real  x_coor,       /* local coordinates: x */

  real  y_coor,       /* local coordinates: y */

  real  z_coor,       /* local coordinates: z */

  int   numBC)        /* boundary condition ID number */

{

/* ------------- Do not change anything above this line ------------- *

* ------------- Program your function below this line  ------------- */

real heatflux;
real power;
real b;
real c;

heatflux=0;
power=1e6;
b=2;
c=-((x_coor)*(x_coor)+(z_coor+0.11)*(z_coor+0.11))/(2*b*b);     



heatflux=(power/(b*2.5))*pow(2.71828183,c);




  return heatflux;

}

希望大家多多帮忙!
回复此楼
零下一度
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

相关版块跳转 我要订阅楼主 沉默的海 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 s3fFTmArrBt6 2026-09-14 4/200 2026-09-14 17:49 by Aj1rhIDL5ixY
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 s3fFTmArrBt6 2026-09-14 4/200 2026-09-14 17:48 by Aj1rhIDL5ixY
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 LwdutQ8HoqWP 2026-09-13 5/250 2026-09-14 16:25 by Aj1rhIDL5ixY
[教师之家] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 LwdutQ8HoqWP 2026-09-13 4/200 2026-09-14 16:13 by Aj1rhIDL5ixY
[考研] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +4 LwdutQ8HoqWP 2026-09-13 4/200 2026-09-14 16:12 by Aj1rhIDL5ixY
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 3n8v2C8RimXI 2026-09-13 4/200 2026-09-14 15:48 by Aj1rhIDL5ixY
[考研] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 3n8v2C8RimXI 2026-09-13 4/200 2026-09-14 15:45 by Aj1rhIDL5ixY
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +4 3n8v2C8RimXI 2026-09-13 4/200 2026-09-14 15:37 by Aj1rhIDL5ixY
[找工作] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +5 QUjhNVAcOSff 2026-09-13 6/300 2026-09-14 15:21 by Aj1rhIDL5ixY
[考博] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +4 QUjhNVAcOSff 2026-09-13 4/200 2026-09-14 15:13 by Aj1rhIDL5ixY
[硕博家园] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 QUjhNVAcOSff 2026-09-13 3/150 2026-09-14 15:09 by Aj1rhIDL5ixY
[博后之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 QUjhNVAcOSff 2026-09-13 4/200 2026-09-14 15:01 by Aj1rhIDL5ixY
[公派出国] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 QUjhNVAcOSff 2026-09-13 6/300 2026-09-14 15:00 by Aj1rhIDL5ixY
[考研] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 QUjhNVAcOSff 2026-09-13 3/150 2026-09-14 14:57 by Aj1rhIDL5ixY
[基金申请] 求教各位大神:2026教育部人文社科青年基金项目何时公示呀? +5 云宴山人 2026-09-10 7/350 2026-09-14 12:11 by ecnu2013
[博后之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 QUjhNVAcOSff 2026-09-13 3/150 2026-09-14 10:11 by 23jxep3nCNZb
[考博] 西北工业大学材料学院电化学传感与催化课题组招收2027年推免研究生、博士生、博士后 +3 马方园 2026-09-10 4/200 2026-09-14 09:29 by Chem张zz
[教师之家] 浙江师范大学是怎么坑我的 +10 recruit123 2026-09-09 15/750 2026-09-13 10:45 by seaskyy
[基金申请] 面上有专家说实验设备不是我们单位的 +6 zj_muchong 2026-09-08 8/400 2026-09-11 06:56 by suifengdao
[有机交流] 科研求助 10+4 我吃一只鱼 2026-09-07 4/200 2026-09-10 08:32 by 0940628
信息提示
请填处理意见