一个绕轴转动,控制体的轴与转轴夹角sita由离心力和重力的正切值得到,把重力变成源项加入动量方程的UDF
DEFINE_SOURCE(xmom_source,c,t,dS,eqn)
{
real sita,con,source,time;
time=CURRENT_TIME;
if(time<0.005)
{
sita=M_PI;
}
else
{
sita=atan(//速度表达式f(t)^2*r/9.8);
}
con=//密度C_R(c,t)*9.8*cos(sita);
source=con;
dS[eqn]=0;
return source
}