好像命令流没上传成功,我直接贴上吧
!sample01
/prep7
!!!!!! MKS !!!!!!
D=0.1
RECTNG,0,d,-d,d !发热体建模
RECTNG,0,2*d,-2*d,2*d !气体间隙
RECTNG,0,3*d,-3*d,3*d !保温层
RECTNG,0,4*d,-4*d,4*d !外侧空气
ALLSEL !处理面连接
AOVLAP,ALL
AGLUE,ALL
NUMCMP,ALL
ET,1,141,,,1 !定义网格类型
ET,2,141,,,1
MP,KXX,1,0.05 !定义材料属性 !air
MP,KXX,2,80 !发热体
MP,KXX,3,2 !保温层
MPTEMP,,,,,,,, !air
MPTEMP,1,300
MPTEMP,2,3000
MPDE,DENS,1
MPDATA,DENS,1,,0.05
MPDATA,DENS,1,,0.005
MP,dens,2,1750 !发热体
MP,dens,3,150 !保温层
MP,c,1,520 !air
MP,c,2,1800 !发热体
MP,c,3,1000 !保温层
MP,visc,1,3 !air
MP,hf,1,25 !air
allsel !定义材料
asel,s,,,2
asel,a,,,4
AATT,1,,1
asel,s,,,1
AATT,2,,2
asel,s,,,3
AATT,3,,2
ALLSEL !划分网格
ASEL,all
LSLA,S
LESIZE,ALL,0.01
MSHAPE,0,2D
MSHKEY,2
AMESH,all
allsel !辐射边界条件
lsel,s,,,1,3 !发热体
NSLL,S,1
sfl,all,rdsf,.8,,1,
allsel
lsel,s,,,5,10 !保温层
NSLL,S,1
sfl,all,rdsf,.6,,1,
allsel !问题边界条件
lsel,s,,,11,13 !壁常温
NSLL,S,1
dl,all,,temp,100
ALLSEL !定义热-流体求解
FLDATA1,SOLU,TEMP,1 !打开热分析开关
FLDATA1,SOLU,FLOW,1
FLDATA2,ITER,EXEC,200 !定义flotran求解控制
FLDATA2,ITER,OVER,50
FLDATA13,VarY,DENS,1 !定义流体属性
FLDATA7,PROT,DENS,AIR-SI
FLDATA7,PROT,VISC,AIR-SI
FLDATA7,PROT,COND,AIR-SI
FLDATA8,NOMI,COND,-1
FLDATA7,PROT,SPHT,AIR-SI
ACEL,0,9.81,0 !施加重力
FLDATA18,METH,PRES,1 !定义cfd求解控制
FLDATA19,TDMA,PRES,100
FLDATA18,METH,TEMP,6
ALLSEL !定义辐射求解
STEF,5.67e-8 !设定Stefan-Boltzmann常数
TOFFST,273.0 ! 设定绝对零度
RADOPT,,.0001,1,1000,.1,.1 !设定radiosity 求解器选项
!HEMIOPT,100
SPCTEMP,1,30 !设定空间温度
V2DOPT,1,0,0,
FINISH
/solu !求解
ALLSEL
asel,s,,,1
esel,all
bfe,all,hgen,1,100000
ANTYPE,STATIC
TIME,1
SOLVE
FINISH |