| 查看: 1966 | 回复: 9 | |||
[交流]
谁有二维高斯分布热源udf程序？
|
| 谁有二维高斯分布热源udf程序？可以加载在面区域上的。 |
回复此楼» 猜你喜欢
生物学308分求调剂（一志愿华东师大）
已经有12人回复
-
调剂求助（生物与医药）
已经有3人回复
-
一志愿吉大化学327求调剂
已经有7人回复
-
一志愿生物与医药，296分，求调剂
已经有13人回复
-
327求调剂
已经有5人回复
-
初试301，代码085701环境工程，本硕一致，四六级已过，有二区一作，共发表5篇论文
已经有8人回复
-
327考研调剂推荐
已经有6人回复
-
328求调剂
已经有3人回复
-
304求调剂
已经有9人回复
-
化工求调剂！
已经有16人回复
匿名
用户注销 (小有名气)
- 应助: 31 (小学生)
- 金币: 1248.2
- 散金: 68
- 红花: 7
- 帖子: 220
- 在线: 78.3小时
- 虫号: 0
- 注册: 2015-01-18
- 专业: 工程热物理与能源利用
2楼2016-06-13 09:00:53
| 祝福 |
3楼2016-06-13 12:35:15
4楼2016-06-13 23:54:27
匿名
用户注销 (文坛精英)
- 应助: 164 (高中生)
- 金币: 9550.6
- 散金: 34344
- 红花: 361
- 沙发: 31
- 帖子: 20580
- 在线: 3633.3小时
- 虫号: 0
- 注册: 2011-12-15
- 专业: 建筑环境与结构工程
5楼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
7楼2016-06-14 19:40:29
| 祝福 |
8楼2016-06-14 19:58:41
| 祝福 |
9楼2016-06-15 12:55:36
10楼2016-06-15 14:22:11
