試試看...
程式如下
/PREP7
/units,si
/title,steady state slab problem
ET,1,PLANE55
UIMP,1,KXX, , ,20,
RECTNG,0,0.05,0,0.05
RECTNG,0.05,0.15,0,0.05
PCIRC,0.01,,0,360
AGEN,,3,,,0.025,0.025,,,,1
/replot
/pnum,area,1
/replot
asba,1,3
aglue,all
smrtsize,4
amesh,all
asel,s,,,1
esla,s
mpchg,1,all,
allsel,all
/replot
asel,s,,,2
esla,s
allsel,all
/pnum,mat,1
/replot
/solu
d,1,temp,200
d,2,temp,200
d,11,temp,200
d,12,temp,200
d,13,temp,200
d,14,temp,200
d,15,temp,200
d,16,temp,200
d,17,temp,200
d,18,temp,200
d,19,temp,200
d,4,temp,50
d,39,temp,50
d,40,temp,50
d,41,temp,50
d,42,temp,50
d,43,temp,50
d,44,temp,50
d,45,temp,50
d,46,temp,50
d,47,temp,50
d,5,temp,50
sfl,14,conv,150,25
sfl,7,conv,150,25
sbctran
/psf,conv,hcoe,2,0
sfl,9,hflux,100,
sfl,10,hflux,100,
sfl,11,hflux,100,
sfl,12,hflux,100,
/psf,hflu,,2,0
solve |