|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?注册
x
看到的高人,请一定指点啊。最近想写一个关于粘性阻力系数关于压力变化的程序,想在二维的流场中都使用。程序可以通过编译,初始化的时候提示出错FATAL ERROR,但是可以点初始化,之后还可以正常计算,不知道是什么问题。我的程序这样写的。我担心的是怕这样出错继续使用这个程序就没有加载,或者我的程序本身没有在面上循环。所以想请各位指点下。万分感谢。
DEFINE_PROFILE(vis_res,t,i)
{
face_t f;
real vr;
real vc;
real ln;
real mix;
real vo;
real p_sum_3;
p_sum_3=C_P(f,t);
begin_c_loop(f,t)
{
vo=22.4;
mix=1+(p_sum_3+P_OPR)/P_LAN_CH;
ln=log(mix);
vc=2.0*V_LAN_CH4*ROU_S*0.001*0.00002296*8.314*3.0*ln/9.0*vo;
vr=K_O*(1-vc/PORO_S);
F_PROFILE(f,t,i)=1/vr;
}
end_c_loop(c,t)
} |
|