- 积分
- 9
- 注册时间
- 2011-7-23
- 仿真币
-
- 最后登录
- 1970-1-1
|
本帖最后由 yuyongfei 于 2016-2-5 13:53 编辑
本帖最后由 yuyongfei 于 2016-2-5 11:52 编辑
物性计算、单位换算、流量换算等科研微信公众号,欢迎大家微信扫描使用 |
我是准备用fluent 动网格做一个小球在水的浮力之下浮出水面的过程,但暂时不会,所以就首先做了一个给定小球初速的简单例子UDF如下:
#include "udf.h"
DEFINE_CG_MOTION(shui, dt, vel, omega, time, dtime)
{
if(time<=2.5)
vel[1]=2;
else
vel[1]=0;
}
不知那位高手做过小球在水的浮力作用之下浮出水面的例子。我查了一下,好像可以用CG_MOTION或者6DOF做出来,我用CG_MOTION做过没做出来,不知哪里错了,UDF如下:
# include "udf.h"
/* ******************************************* */
static real G = 9.8; /* gravity ,0 when neglected*/
static real mov_M =100; /* mass of moving object*/
static real mov_S_X = 0.0; /* X replacement of moving object*/
static real mov_S_Y = 0.0; /* Y replacement of moving object*/
static real mov_U = 0.0; /* X velocity of moving object */
static real mov_V = 0.0; /* Y velocity of moving object */
static real mov_F_X = 0.0; /* fluid force of X component */
static real mov_F_Y = 0.0; /* fluid force of Y component */
/* ******************************************* */
DEFINE_CG_MOTION(mov, dt, vel, omega, time, dtime)
{
#if !RP_HOST
Thread *t;
Domain *d;
real du,dv, CG[ND_ND], force[3], moment[3];
/* Reset velocities */
NV_S (vel, =, 0.0);
NV_S (omega, =, 0.0);
/* Calculate force*/
d = THREAD_DOMAIN (DT_THREAD ((Dynamic_Thread *)dt));
t = DT_THREAD(dt);
NV_S (CG, =, 0.0);
Compute_Force_And_Moment (d, t, CG, force, moment, FALSE);
/* Compute change in velocity */
du = dtime * force[0] / mov_M;
dv = dtime * (force[1] - G * mov_M) / mov_M;
mov_U += du;
mov_V += dv;
mov_S_X+= mov_U* dtime;
mov_S_Y+= mov_V* dtime;
/* Set x-component and y-component of velocity */
vel[0] = mov_U;
vel[1] = mov_V;
mov_F_X= force[0];
mov_F_Y= force[1];
Message0("\ntime=%.5e F(x)=%.4e F(y)=%.4e S(x)=%.6e S(y)=%.6e V(x)=%.6e V(y)=%.6e", time,mov_F_X,mov_F_Y,mov_S_X,mov_S_Y,mov_U,mov_V);
#endif
node_to_host_real_2(mov_S_X,mov_S_Y);
node_to_host_real_2(mov_U,mov_V);
node_to_host_real_2(mov_F_X,mov_F_Y);
node_to_host_real(vel, ND_ND);
node_to_host_real(omega, ND_ND);
} |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
评分
-
1
查看全部评分
-
|