|
|
#include "udf.h"
DEFINE_SOURCE(heat,c,t,dS,eqn)
{
real source,r0,Q,a,v,time,m,n,p,H,r;
real x[ND_ND];
r0=3e-4;
H=1.5e-3;
Q=1100;
a=0.56;
v=8e-3;
time=CURRENT_TIME;
C_CENTROID(x,c,t);
m=x[0];
n=x[1];
p=x[2];
r=sqrt(m*m+(p-v*time)*(p-v*time));
source=9*a*Q/(M_PI*r0*r0*H*(1-exp(-3)))*exp(9*r*r/(r0*r0*log((fabs(n)/H))));
dS[eqn]=0;
return source;
}
¸ß˹ÈÈÔ´ |
» ±¾Ìû¸½¼þ×ÊÔ´Áбí
-
»¶Ó¼à¶½ºÍ·´À¡£ºÐ¡Ä¾³æ½öÌṩ½»Á÷ƽ̨£¬²»¶Ô¸ÃÄÚÈݸºÔð¡£
±¾ÄÚÈÝÓÉÓû§×ÔÖ÷·¢²¼£¬Èç¹ûÆäÄÚÈÝÉæ¼°µ½ÖªÊ¶²úȨÎÊÌ⣬ÆäÔðÈÎÔÚÓÚÓû§±¾ÈË£¬Èç¶Ô°æÈ¨ÓÐÒìÒ飬ÇëÁªÏµÓÊÏ䣺xiaomuchong@tal.com
- ¸½¼þ 1 : SUS14.cas
2013-09-13 17:22:43, 9.04 M
- ¸½¼þ 2 : SUS14.msh
2013-09-13 17:22:54, 18.63 M
|