| 查看: 339 | 回复: 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; } 希望大家多多帮忙！  |
回复此楼» 猜你喜欢
312求调剂
已经有4人回复
-
一志愿0817化学工程与技术，求调剂
已经有4人回复
-
材料调剂
已经有7人回复
-
302求调剂一志愿华中师范大学
已经有7人回复
-
071000生物学调剂
已经有7人回复
-
一志愿安徽大学0817化学工程与技术，求调剂
已经有4人回复
-
326求调剂
已经有5人回复
-
材料专硕322分
已经有10人回复
-
309求调剂
已经有10人回复
-
考研调剂
已经有5人回复
找到一些相关的精华帖子，希望有用哦~
求高手帮我编一个一元三次方程求解的小程序！重谢哦！
已经有5人回复
- 如何编写一个应用程序
已经有6人回复
- 求助计算机高人，编写个Fortran程序
已经有13人回复
- 如何用fortran编写高斯白噪声程序
已经有6人回复
- 【整理】今天整理硬盘上的资料，偶然发现的好玩的小东西就直接发上来吧
已经有105人回复
- 【求助】visual foxpro编写一个对任意数据库进行操作的程序
已经有4人回复
- 【求助】请问怎么用MATALAB编写一个空间几何体的受力变形程序？？
已经有3人回复
- 【sobereva个人文集】电子定域性的图形分析
已经有56人回复
- 【neweroica个人文集】GaussView对VASP的接口程序—— vout2gout (v0.0)
已经有129人回复
点击这里搜索更多相关资源科研从小木虫开始，人人为我，我为人人
