|
![](static/image/common/ico_lz.png)
楼主 |
发表于 2007-1-19 15:59:16
|
显示全部楼层
udf求粘度!
[这个贴子最后由denhan在 2007/01/19 04:01pm 第 1 次编辑]
#include "udf.h"
#define Q 145
#define R 8.314
#define RFA 0.045
#define N 3.55
#define AA 8.8632e+006
real effective_strain(real array[9])
{
int i,j;
real strain[9];
real ee;
for(i=0;i<9;i++)
ee=ee+strain*strain;
ee=sqrt(2/3*ee);
return ee;
}
define_property(cell_viscosity,c,t)
{
real TT=C_T(c,t);
real a=C_U_G(c,t)[0];
real b=C_U_G(c,t)[1];
real cc=C_U_G(c,t)[2];
real d=C_V_G(c,t)[0];
real e=C_V_G(c,t)[1];
real f=C_V_G(c,t)[2];
real g=C_W_G(c,t)[0];
real h=C_W_G(c,t)[1];
real i=C_W_G(c,t)[2];
real a11=a;
real a22=e;
real a33=i;
real a12=0.5*(b+d);
real a13=0.5*(cc+g);
real a23=0.5*(f+h);
real strain[9]={a11,a12,a13,a12,a22,a23,a13,a23,a33};
real e_s=effective_strain(real strain[9]);
real z_h=e_s*exp(Q/(R*TT));
real stress=log(pow(z_h/AA,1/N)+sqrt(pow(z_h/AA,2/N)+1))/RFA;
real viscosity=stress/(3*e_s);
return viscosity;
}
|
|