为什么你的程序我运行不了?
我运行之后,可以得出结果,看上去似乎可信
第3载荷步的最后一子步,等温图是有梯度的
改得比较乱,
/PREP7
/units,si
ET,1,PLANE55
ET,2,SURF151
KEYOPT,2,4,1
KEYOPT,2,5,1
KEYOPT,2,8,1
KEYOPT,2,9,1
MP,KXX,1,0.5
MP,DENS,1,50
mp,c,1,4.2
MP,EMIS,1,0.85
!MP,EMIS,2,0.86
!MP,DENS,2,10
R,2,1,5.67E-8
RECTNG,0,0.5,0,0.15
ESIZE,0.01
AMESH,ALL
N,10000,0.25,0.3
TYPE,2
Real,2
NSEL,S,LOC,Y,0.15
ESURF,10000
ALLSEL
FINISH
SAVE,MESHED,DB
/SOLU
ANTYPE,4
TRNOPT,FULL
LUMPM,0
TOFFST,273,
TUNIF,20,
ALLSEL,ALL
D,10000,TEMP,20
OUTRES,ALL,ALL,
/PSF,HFLU, ,2,0,1
TIME,50
AUTOTS,1
DELTIM,5, , ,1
ALLSEL
KBC,0
LSEL,S,LOC,Y,0.15
SFL,ALL,HFLUX,50000
LSWRITE,1,
TIME,100
AUTOTS,1
DELTIM,5, , ,1
KBC,1
ALLSEL
LSEL,S,LOC,Y,0.15
SFL,ALL,HFLUX,50000
LSWRITE,2,
TIME,150
AUTOTS,1
DELTIM,5, , ,1
KBC,0
ALLSEL
LSEL,S,LOC,Y,0.15
SFL,ALL,HFLUX,0
LSWRITE,3,
ALLSEL,ALL
LSSOLVE,1,3,1,
/post1
set,3,last
plnsol,temp
/wait,1
/post26
nsol,2,93,temp !top
nsol,3,28,temp !middle
nsol,4,502,temp !bottom
plvar,2,3,4
/wait,2 |