FINISH
/CLEAR
/UNITS,MKS
/PREP7
ET,1,SOLID70
SMRT,OFF
MP,DENS,1,7850
MPTEMP,,293,300,325,350,375,400,425
MPDATA,C,1,,371,380,401,453,470,490,523
MPDATA,KXX,1,,41,41,39.9,38.1,36.4,35.6,35.6
MP,EX,1,20E10
MP,ALPX,1,12E-6
MP,PRXY,0.3
MPDATA,HF,1,,6.3,7.45,7.97,8.31,8.56,8.76,8.95
ET,2,SURF152,,,,1,0
KEYOPT,2,8,4
SAVE
K,1,0,0
CYL4,0,0,0,,0.019,360
L,1,2
L,1,3
L,1,4
L,1,5
CSYS,1
LSEL,S,LOC,Y,0
LSEL,A,LOC,Y,90
LSEL,A,LOC,Y,180
LSEL,A,LOC,Y,270
ASBL,1,ALL
CSYS,0
VEXT,ALL,,,0,0,1.5
CSYS,1
LSEL,S,LOC,Z,0
LESIZE,ALL,,,10
LSEL,S,LOC,Z,1.5
LESIZE,ALL,,,10
LSEL,S,LOC,Z,0+0.00001,1.5+0.00001
LESIZE,ALL,,,500
MSHAPE,0,3D
MSHKEY,1
ALLSEL
VMESH,ALL
CSYS,1
NSEL,S,LOC,X,0.019
TYPE,2
ESURF
ESEL,S,TYPE,,2
SF,ALL,CONV,-1,293
/SOLU
CSYS,1
ANTYPE,TRANS
KBC,1
OUTRES,NSOL,LAST
TOFFST,273
TUNIF,293
TIMINT,ON,THER
AUTOTS
*DO,K,1,150,1
TIME,K*1
NSEL,S,LOC,X,0.019
NSEL,R,LOC,Z,1.2-(K-1)*0.006,1.2-(K-1)*0.006-0.003
D,ALL,TEMP,308.006
ALLSEL
SOLVE
NSEL,S,LOC,X,0.019
NSEL,R,LOC,Z,1.2-(K-1)*0.006,1.2-(K-1)*0.006-0.003
DDELE,ALL,ALL
*ENDDO
/POST1
SET,FIRST
PLNSOL,TEMP
SET,50
PLNSOL,TEMP
SET,100
PLNSOL,TEMP
SET,150
PLNSOL,TEMP
/POST26
/AXLAB,X,TIME
/AXLAB,Y,TEMPERATURE
/GTHK,AXIS,3
/GTHK,CURVE,3
/COLOR,CURVE,8
WPCSYS,-1
/REPOLT
NSEL,S,LOC,X,0.019
NSEL,R,LOC,Z,0.3
NSEL,R,LOC,Y,0
*GET,NODE1,NODE,,NUM,MAX
NSOL,2,NODE1,TEMP
PLVAR,2
NSEL,S,LOC,X,0.019
NSEL,R,LOC,Z,0.6
NSEL,R,LOC,Y,0
*GET,NODE2,NODE,,NUM,MAX
NSOL,3,NODE2,TEMP
PLVAR,3
NSEL,S,LOC,X,0.019
NSEL,R,LOC,Z,0.9
NSEL,R,LOC,Y,0
*GET,NODE3,NODE,,NUM,MAX
NSOL,4,NODE3,TEMP
PLVAR,4
NSEL,S,LOC,X,0.019
NSEL,R,LOC,Z,1.2
NSEL,R,LOC,Y,0
*GET,NODE4,NODE,,NUM,MAX
NSOL,5,NODE4,TEMP
PLVAR,5
FINISH
/PREP7
ETCHG,TTS
keyopt,3,1,1
/SOLU
NSEL,S,LOC,Z,0
D,ALL,UZ
ALLSEL
LDREAD,TEMP,,,,,,rth
SOLVE
FINISH
/POST1
SET,LAST
PLNSOL,U,Z
/CLEAR
/UNITS,MKS
/PREP7
ET,1,SOLID70
SMRT,OFF
MP,DENS,1,7850
MPTEMP,,293,300,325,350,375,400,425
MPDATA,C,1,,371,380,401,453,470,490,523
MPDATA,KXX,1,,41,41,39.9,38.1,36.4,35.6,35.6
MP,EX,1,20E10
MP,ALPX,1,12E-6
MP,PRXY,0.3
MPDATA,HF,1,,6.3,7.45,7.97,8.31,8.56,8.76,8.95
ET,2,SURF152,,,,1,0
KEYOPT,2,8,4
SAVE
K,1,0,0
CYL4,0,0,0,,0.019,360
L,1,2
L,1,3
L,1,4
L,1,5
CSYS,1
LSEL,S,LOC,Y,0
LSEL,A,LOC,Y,90
LSEL,A,LOC,Y,180
LSEL,A,LOC,Y,270
ASBL,1,ALL
CSYS,0
VEXT,ALL,,,0,0,1.5
CSYS,1
LSEL,S,LOC,Z,0
LESIZE,ALL,,,10
LSEL,S,LOC,Z,1.5
LESIZE,ALL,,,10
LSEL,S,LOC,Z,0+0.00001,1.5+0.00001
LESIZE,ALL,,,500
MSHAPE,0,3D
MSHKEY,1
ALLSEL
VMESH,ALL
CSYS,1
NSEL,S,LOC,X,0.019
TYPE,2
ESURF
ESEL,S,TYPE,,2
SF,ALL,CONV,-1,293
/SOLU
CSYS,1
ANTYPE,TRANS
KBC,1
OUTRES,NSOL,LAST
TOFFST,273
TUNIF,293
TIMINT,ON,THER
AUTOTS
*DO,K,1,150,1
TIME,K*1
NSEL,S,LOC,X,0.019
NSEL,R,LOC,Z,1.2-(K-1)*0.006,1.2-(K-1)*0.006-0.003
D,ALL,TEMP,308.006
ALLSEL
SOLVE
NSEL,S,LOC,X,0.019
NSEL,R,LOC,Z,1.2-(K-1)*0.006,1.2-(K-1)*0.006-0.003
DDELE,ALL,ALL
*ENDDO
/POST1
SET,FIRST
PLNSOL,TEMP
SET,50
PLNSOL,TEMP
SET,100
PLNSOL,TEMP
SET,150
PLNSOL,TEMP
/POST26
/AXLAB,X,TIME
/AXLAB,Y,TEMPERATURE
/GTHK,AXIS,3
/GTHK,CURVE,3
/COLOR,CURVE,8
WPCSYS,-1
/REPOLT
NSEL,S,LOC,X,0.019
NSEL,R,LOC,Z,0.3
NSEL,R,LOC,Y,0
*GET,NODE1,NODE,,NUM,MAX
NSOL,2,NODE1,TEMP
PLVAR,2
NSEL,S,LOC,X,0.019
NSEL,R,LOC,Z,0.6
NSEL,R,LOC,Y,0
*GET,NODE2,NODE,,NUM,MAX
NSOL,3,NODE2,TEMP
PLVAR,3
NSEL,S,LOC,X,0.019
NSEL,R,LOC,Z,0.9
NSEL,R,LOC,Y,0
*GET,NODE3,NODE,,NUM,MAX
NSOL,4,NODE3,TEMP
PLVAR,4
NSEL,S,LOC,X,0.019
NSEL,R,LOC,Z,1.2
NSEL,R,LOC,Y,0
*GET,NODE4,NODE,,NUM,MAX
NSOL,5,NODE4,TEMP
PLVAR,5
FINISH
/PREP7
ETCHG,TTS
keyopt,3,1,1
/SOLU
NSEL,S,LOC,Z,0
D,ALL,UZ
ALLSEL
LDREAD,TEMP,,,,,,rth
SOLVE
FINISH
/POST1
SET,LAST
PLNSOL,U,Z
