FLUENT UDF中source的学习

一个绕轴转动，控制体的轴与转轴夹角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

}