求更正命令流

imust

/PREP7  
ET,1,PLANE55
KEYOPT,1,1,0
KEYOPT,1,3,1
KEYOPT,1,4,0
KEYOPT,1,8,0
KEYOPT,1,9,0
/REPLOT,RESIZE  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPTEMP,2,200
MPTEMP,3,400
MPTEMP,4,600
MPTEMP,5,800
MPTEMP,6,1000   
MPTEMP,7,1200   
MPTEMP,8,1500   
MPDATA,DENS,1,,7860
MPDATA,DENS,1,,7800
MPDATA,DENS,1,,7750
MPDATA,DENS,1,,7700
MPDATA,DENS,1,,7650
MPDATA,DENS,1,,7600
MPDATA,DENS,1,,7550
MPDATA,DENS,1,,7040
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPTEMP,2,200
MPTEMP,3,400
MPTEMP,4,600
MPTEMP,5,800
MPTEMP,6,1000   
MPTEMP,7,1200   
MPTEMP,8,1500   
MPDATA,KXX,1,,53.1  
MPDATA,KXX,1,,47.5  
MPDATA,KXX,1,,41.9  
MPDATA,KXX,1,,35.9  
MPDATA,KXX,1,,26.2  
MPDATA,KXX,1,,27.5  
MPDATA,KXX,1,,29.5  
MPDATA,KXX,1,,31.4  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPTEMP,2,200
MPTEMP,3,400
MPTEMP,4,600
MPTEMP,5,800
MPTEMP,6,1000   
MPTEMP,7,1200   
MPTEMP,8,1500   
MPDATA,C,1,,474
MPDATA,C,1,,510
MPDATA,C,1,,600
MPDATA,C,1,,747
MPDATA,C,1,,920
MPDATA,C,1,,644
MPDATA,C,1,,655
MPDATA,C,1,,718
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPTEMP,2,200
MPTEMP,3,400
MPTEMP,4,600
MPTEMP,5,800
MPTEMP,6,1000   
MPTEMP,7,1200   
MPTEMP,8,1500   
MPDATA,ENTH,1,,1.041E+009   
MPDATA,ENTH,1,,1.793E+009   
MPDATA,ENTH,1,,2.621E+009   
MPDATA,ENTH,1,,3.624E+009   
MPDATA,ENTH,1,,5.212E+009   
MPDATA,ENTH,1,,5.524E+009   
MPDATA,ENTH,1,,6.19E+009
MPDATA,ENTH,1,,6.634E+009   
K,1,0,0,0,  
K,2,0.1,0,0,
K,3,0.1,0.7,0,  
K,4,0,0.7,0,
LSTR,       1,       2  
LSTR,       2,       3  
LSTR,       3,       4  
LSTR,       4,       1  
FLST,2,4,4  
FITEM,2,1   
FITEM,2,2   
FITEM,2,3   
FITEM,2,4   
AL,P51X
ESIZE,0.005,0,  
CM,_Y,AREA  
ASEL, , , ,       1
CM,_Y1,AREA
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
MSHKEY,2
AMESH,_Y1   
MSHKEY,0
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
FINISH

/SOL
antype,tran
timint,off  
lsel,s,,,2
lsel,a,,,2
nsll,s  
sf,all,conv,2000,25
trnopt,full
lumpm,0
nropt,full ,,on
alls
asel,S, , ,       1
esla,S  
ekill,all   
alls

*do,ii,0,140
*SET,dtop,0
*SET,tim,0
*SET,delt,0.005
*SET,dtop,dtop+delt
*SET,tim,tim+0.001   
time,tim
timint,on
nsel,s,loc,y,0,dtop
esln,s,1
ealive,all  

d,all,temp,1400

time,dtop
allsel  
nsubst,2
allsel  
solve
nsel,s,loc,y,0,dtop
esln,s,1
esln,s  
ddele,all,temp
time,tim+0.001
nsubst,2
allsel  
solve   

*enddo  
save
finish