点到面热辐射。我的麻烦是:温度为什么不向内部传递,已定义了导热系数???
命令流如下。
finish
/clear
/PREP7
ET,1,PLANE55
ET,2,SURF151
KEYOPT,2,4,1
KEYOPT,2,5,1
KEYOPT,2,9,1
R,1,.6,5.67e-8, , ,
RMORE, , , , , ,
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,KXX,1,,50
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,C,1,,500
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,1500
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EMIS,1,,0.85
k,1,-0.75,0.15,0
k,2,-0.25,0.25,0
k,3,0.3,0.1,0
k,4,0.8,0.25,0
k,5,1.45,0.2,0
k,6,-0.75,-0.55,0
k,7,1.45,-0.55,0
k,8,0.5,0.5,0
bsplin,1,2,3,4,5
a,1,5,7,6
lsel,s,,,1
lesi,all,,,25
lsel,s,,,2
lesi,all,,,8
TYPE, 1
MAT, 1
REAL, 1
MSHAPE,0,2D
MSHKEY,1
AMESH,all
NKPT,0, 8
*get,nmax,node,,num,max
lsel,s,,,1
nsll,s,1
nsel,a,,,nmax
TYPE, 2
MAT, 1
REAL, 1
TSHAP,LINE
ESURF,nmax
ALLSEL,ALL
D,nmax,TEMP,500
lsel,s,,,3
nsll,s,1
d,all,temp,300
alls
FINISH
/SOLU
ANTYPE,0
tunif,300
NROPT,FULL, ,
OUTRES,ALL,ALL,
TIME,1
AUTOTS,1
NSUBST,10,1000,5,1
kbc,1
alls
SOLVE
FINISH
/post1plnsol,temp
|