| 查看: 935 | 回复: 5 | |||
[求助]
求大神看看内热源的程序有什么问题,算出来的温度场偏小50%左右？
|
|
我是做电热耦合的，物料通电产生内热源，内热源强度q=电场强度的平方/电阻率/2000，后面的2000是物料的比热容，不知道需不需要加？还有我感觉if语句没有用上呢？谢谢您了、我用ANSYS电热耦合模块做对比，发现温度场偏小50%左右。 #include "stdio.h" #include "udf.h" DEFINE_SOURCE(v_source, c, t, dS, eqn) { real row_cal; real source; real r; real tt; tt=C_T(c,t); row_cal=C_R(c,t); if(tt<1073.0) { r=0.03; } if(tt>=1073.0&&tt<1473.0) { r=0.03-(tt-1073.0)/400.0*(0.03-0.024129); } if(tt>=1473.0&&tt<1773.0) { r=0.024129-(tt-1473.0)/300.0*(0.024129-0.019726); } if(tt>=1773.0&&tt<2073.0) { r=0.019726-(tt-1773.0)/300.0*(0.019726-0.015322); } if(tt>=2073.0&&tt<2473.0) { r=0.015322-(tt-2073.0)/400.0*(0.015322-0.009451); } if(tt>=2473.0) { r=0.009451; } source=row_cal*NV_MAG2(C_UDSI_G(c,t,0))/r/2000; dS[eqn]=0.0; return source; }@wuming524 |
回复此楼
xingfuww
专家顾问 (正式写手)
-
专家经验: +78 - 仿真EPI: 2
- 应助: 46 (小学生)
- 金币: 6630.4
- 散金: 52
- 红花: 29
- 帖子: 542
- 在线: 283.8小时
- 虫号: 1776059
- 注册: 2012-04-24
- 性别: GG
- 专业: 化学工程及工业化学
- 管辖: 仿真模拟
2楼2016-08-08 09:29:05
3楼2016-08-08 19:48:19
4楼2016-08-09 09:56:52
xingfuww
专家顾问 (正式写手)
-
专家经验: +78 - 仿真EPI: 2
- 应助: 46 (小学生)
- 金币: 6630.4
- 散金: 52
- 红花: 29
- 帖子: 542
- 在线: 283.8小时
- 虫号: 1776059
- 注册: 2012-04-24
- 性别: GG
- 专业: 化学工程及工业化学
- 管辖: 仿真模拟
5楼2016-08-09 13:34:58
6楼2016-08-11 11:09:30
