24小时热门版块排行榜    

CyRhmU.jpeg
查看: 695  |  回复: 5

meercy

新虫 (小有名气)

[求助] 换热系数与边界上压力的耦合

#include "udf.h"
DEFINE_PROFILE(heat_transfer,t,i)
{
  face_t f;
  cell_t c0;
  Thread *t0;
  c0=F_C0(f,t);
  t0=THREAD_T0(t);
begin_f_loop(f,t)
{  
  real pre=C_P(c0,t0);  
  F_PROFILE(f,t,i)=245*pow(pre,0.84)+6070;
}
end_f_loop(f,t)
}
我想达到的目的是提取贴近边界层那一层网格的压力值,然后按公式计算界面的换热系数,但是结果出错,急请高手指点迷津,多谢多谢!

未命名w.jpg
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

meercy

新虫 (小有名气)

自己顶一下
2楼2013-01-16 12:44:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gearboy78

禁虫 (小有名气)

感谢参与,应助指数 +1
本帖内容被屏蔽

3楼2013-01-16 15:30:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

meercy

新虫 (小有名气)

引用回帖:
3楼: Originally posted by gearboy78 at 2013-01-16 15:30:04
DEFINE_PROFILE(heat_transfer,t,i)
{
  face_t f;
  cell_t c0;
  Thread *t0;
  real pre;
  begin_f_loop(f,t)
{  
  c0=F_C0(f,t);
  t0=THREAD_T0(t);
  pre=C_P(c0,t0);  
  F_PROFILE(f,t,i)=24 ...

谢谢,我试试先
4楼2013-01-16 15:47:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

meercy

新虫 (小有名气)

引用回帖:
3楼: Originally posted by gearboy78 at 2013-01-16 15:30:04
DEFINE_PROFILE(heat_transfer,t,i)
{
  face_t f;
  cell_t c0;
  Thread *t0;
  real pre;
  begin_f_loop(f,t)
{  
  c0=F_C0(f,t);
  t0=THREAD_T0(t);
  pre=C_P(c0,t0);  
  F_PROFILE(f,t,i)=24 ...

好像没有什么改善,只迭代了20步就出现问题divergence detected in AMG solver:temperature.我的步长设置的很小1e-7
5楼2013-01-16 15:59:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gearboy78

禁虫 (小有名气)

本帖内容被屏蔽

6楼2013-01-17 08:37:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 meercy 的主题更新
信息提示
请填处理意见