| 查看: 3719 | 回复: 17 | |||
| 【悬赏金币】回答本帖问题，作者mopsite将赠送您 100 个金币 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
mopsite木虫 (著名写手)
|
[求助]
用uds求解如下的问题为什么不收敛啊。谢谢！已有1人参与
|
||
|
用uds求解如下的问题为什么不收敛啊。谢谢！ 比较简单的问题，2个方程，求解两个uds，两外2个uds储存数据和得出梯度。算例见附件。 当不加uds1的源项时，可以运算，但是一加uds1的源项，就发散。不知道问题出在哪，怀疑是在用uds求解梯度时不太对，查看可以发现梯度局部边界的值较大。  3.jpg#include "udf.h" #define B_ION 1.5e-4 /* Ion mobility - positive ion estimate */ #define EPS_0 8.85418717e-12 DEFINE_ADJUST(Calc_E_xy,d) { Thread *t; cell_t c; face_t f; Thread *t0; cell_t c0; real dr0[ND_ND],dr1[ND_ND], xf[ND_ND], dy; /* Do nothing if gradient isn't allocated yet. */ if (!Data_Valid_P()) return; thread_loop_c(t,d) { if (NULL != THREAD_STORAGE(t,SV_UDS_I(0)) && NULL != T_STORAGE_R_NV(t,SV_UDSI_G(0))) { begin_c_loop(c,t) { C_UDSI(c,t,2) = -1.*C_UDSI_G(c,t,0)[0]; C_UDSI(c,t,3) = -1.*C_UDSI_G(c,t,0)[1]; } end_c_loop(c,t) } } thread_loop_f(t,d) { if (NULL != THREAD_STORAGE(t,SV_UDS_I(3)) && NULL != T_STORAGE_R_NV(t->t0,SV_UDSI_G(3))) { if (BOUNDARY_FACE_THREAD_P(t)) { begin_f_loop(f,t) { c0 = F_C0(f,t); t0 = THREAD_T0(t); F_CENTROID(xf,f,t); C_CENTROID(dr0,c0,t0); NV_VV(dr1,=,xf,-,dr0); F_UDSI(f,t,2) = C_UDSI(c0,t0,2) + (C_UDSI_G(c0,t0,2)[0]*dr1[0]); F_UDSI(f,t,3) = C_UDSI(c0,t0,3) + (C_UDSI_G(c0,t0,3)[1]*dr1[1]); } end_f_loop(f,t) } } } } /*******************************************************************/ /* UDF_source_phi_rho_11.c for specifying the phi and rho source terms for uds-0 */ /*******************************************************************/ DEFINE_SOURCE(phi_source_temp,c,t,dS,eqn) { real phi_source; dS[eqn] = 0.0; phi_source = C_UDSI(c,t,1)/EPS_0; return phi_source; } DEFINE_SOURCE(rho_source_temp,c,t,dS,eqn) { real rho_source; real xc[ND_ND]; real dens; dS[eqn] = 0; C_CENTROID(xc,c,t); dens=C_R(c,t); rho_source = C_UDSI(c,t,1)*B_ION*(C_UDSI_G(c,t,2)[0] + C_UDSI_G(c,t,3)[1]); rho_source = -rho_source; return rho_source; } DEFINE_UDS_FLUX(rho_ion_flux,f,t,i) { cell_t c0, c1 = -1; Thread *t0, *t1 = NULL; real NV_VEC(psi_vec), NV_VEC(A), flux = 0.0; c0 = F_C0(f,t); t0 = F_C0_THREAD(f,t); F_AREA(A, f, t); if (BOUNDARY_FACE_THREAD_P(t)) { NV_DS(psi_vec, =, F_U(f,t), F_V(f,t), F_W(f,t), *, 1); flux = NV_DOT(psi_vec, A); /* flux through Face */ } else { c1 = F_C1(f,t); /* Get cell on other side of face */ t1 = F_C1_THREAD(f,t); NV_DS(psi_vec, =, C_U(c0,t0),C_V(c0,t0),C_W(c0,t0),*,1.0); NV_DS(psi_vec, +=, C_U(c1,t1),C_V(c1,t1),C_W(c1,t1),*,1.0); flux = NV_DOT(psi_vec, A)/2.0; /* Average flux through face */ } return flux; } [ Last edited by mopsite on 2013-12-17 at 18:38 ] |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：libolin3@tal.com - 附件 1 : new.zip
2013-12-17 17:47:22, 227.24 K
» 收录本帖的淘贴专辑推荐
 传热传质 |
» 猜你喜欢
我标书代码变了
已经有72人回复
-
2024国社科通讯评审
已经有30人回复
-
试用期辞职
已经有5人回复
-
F口401需要啥文章水平
已经有7人回复
-
去英国的小伙伴儿都在哪儿租的房子呀？
已经有9人回复
-
跑板能跑开，过柱过不纯怎么办
已经有6人回复
-
科研求助
已经有7人回复
-
寻找聚酯反应釜
已经有6人回复
-
江南大学到瑞士招聘，称取消非升即走，改预聘+长聘
已经有15人回复
-
ACS Nano投稿后分配到副编辑手里12天了，能确定送审了吗？
已经有12人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- fluent 仿真温度出现负值
已经有9人回复
- 求高手帮忙看一段英文，涉及到数据分析问题，如能给出说得通的全文翻译另有50BB相赠
已经有5人回复
- PCG求解器迭代不收敛
已经有4人回复
- ANSYS添加化学反应交流
已经有5人回复
- 用fluent模拟时，选择非稳态求解器，收敛以后还继续算会不会对结果有影响？
已经有7人回复
- fluent求解UDS过程中，出现少数不合理的值..
已经有14人回复
- fluent 6.3 13.0版本中多相流的比较
已经有20人回复
- UDF中DEFINE_ADJUST宏中使用C_UDSI_G
已经有36人回复
- 关于ANSYS求解结果收敛的问题
已经有11人回复
|
本帖内容被屏蔽 |
3楼2013-12-19 08:01:17
10