| 查看: 1942 | 回复: 9 | |||
[交流]
谁有二维高斯分布热源udf程序?
|
| 谁有二维高斯分布热源udf程序?可以加载在面区域上的。 |
» 猜你喜欢
基金申报
已经有5人回复
基金委咋了?2026年的指南还没有出来?
已经有7人回复
国自然申请面上模板最新2026版出了吗?
已经有17人回复
纳米粒子粒径的测量
已经有8人回复
疑惑?
已经有5人回复
计算机、0854电子信息(085401-058412)调剂
已经有5人回复
Materials Today Chemistry审稿周期
已经有5人回复
溴的反应液脱色
已经有7人回复
推荐一本书
已经有12人回复
常年博士招收(双一流,工科)
已经有4人回复
匿名
用户注销 (小有名气)
- 应助: 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











回复此楼