/prep7
et,1,solid70
block,,0.02,,0.05,,-0.005
esize,0.001
vmesh,all


mptemp,1,0,500,1000,1450,1550,2000,3000
mpdata,enth,1,1,0,0.25e10,0.5e10,0.7e10,0.9e10,1.1e10,1.5e10
MP,KXX,1,54
MP,DENS,1,7850
MP,C,1,461
tunif,293
r=400


/SOLU
ANTYPE,TRANS
TIME,1E-6
SOLVE

TIME,0.01
F,NODE(0.005,0.04,0),heat,r
!NSUB,3
OUTRES,ALL,ALL
SOLVE

time,0.01
schritte=10
*DO,I,1,schritte
TIME,(0.01+(I*0.02))
fdele,all,heat
F,NODE(0.005,(0.04-((I-1)*0.001)),0),heat,r
autots,on
solve
*enddo

time,0.21
*DO,J,1,schritte
Time,(0.21+(J*0.02))
fdele,all,heat
F,node(0.006,(0.03+((J-1)*0.001)),0),heat,r
autots,on
solve
*enddo

time,0.41
*DO,k,1,schritte
TIME,(0.41+(k*0.02))
fdele,all,heat
F,NODE(0.007,(0.04-((k-1)*0.001)),0),heat,r
autots,on
solve
*enddo

time,0.61
*DO,l,1,schritte
Time,(0.61+(l*0.02))
fdele,all,heat
F,node(0.008,(0.03+((l-1)*0.001)),0),heat,r
autots,on
solve
*enddo

time,0.81
*DO,m,1,schritte
TIME,(0.81+(m*0.02))
fdele,all,heat
F,NODE(0.009,(0.04-((m-1)*0.001)),0),heat,r
autots,on
solve
*enddo

time,1.01
*DO,n,1,schritte
Time,(1.01+(n*0.02))
fdele,all,heat
F,node(0.01,(0.03+((n-1)*0.001)),0),heat,r
autots,on
solve
*enddo

time,1.21
*DO,o,1,schritte
TIME,(1.21+(o*0.02))
fdele,all,heat
F,NODE(0.011,(0.04-((o-1)*0.001)),0),heat,r
autots,on
solve
*enddo

time,1.41
*DO,J,1,schritte
Time,(1.41+(J*0.02))
fdele,all,heat
F,node(0.012,(0.03+((J-1)*0.001)),0),heat,r
autots,on
solve
*enddo

time,1.61
*DO,J,1,schritte
Time,(1.61+(J*0.02))
fdele,all,heat
F,node(0.013,(0.04-((J-1)*0.001)),0),heat,r
autots,on
solve
*enddo

time,1.81
*DO,I,1,schritte
TIME,(1.81+(I*0.02))
fdele,all,heat
F,NODE(0.014,(0.03+((I-1)*0.001)),0),heat,r
autots,on
solve
*enddo

time,2.01
*DO,J,1,schritte
Time,(2.01+(J*0.02))
fdele,all,heat
F,node(0.015,(0.04-((j-1)*0.001)),0),heat,r
autots,on
solve
*enddo

time,2.21
*DO,I,1,schritte
TIME,(2.21+(I*0.02))
fdele,all,heat
F,NODE(0.016,(0.03+((I-1)*0.001)),0),heat,r
autots,on
solve
*enddo

time,2.41
schritten=11
*DO,I,1,schritten
TIME,(2.41+(I*0.02))
fdele,all,heat
F,NODE((0.016-((I-1)*0.001)),0.04,0),heat,r
autots,on
solve
*enddo

time,2.62
*DO,J,1,schritten
Time,(2.62+(J*0.02))
fdele,all,heat
F,node((0.005+((J-1)*0.001)),0.039,0),heat,r
autots,on
solve
*enddo

time,2.83
*DO,k,1,schritten
TIME,(2.83+(k*0.02))
fdele,all,heat
F,NODE((0.016-((k-1)*0.001)),0.038,0),heat,r
autots,on
solve
*enddo

time,3.04
*DO,l,1,schritten
Time,(3.04+(l*0.02))
fdele,all,heat
F,node((0.005+((l-1)*0.001)),0.037,0),heat,r
autots,on
solve
*enddo

time,3,25
*DO,m,1,schritten
TIME,(3.25+(m*0.02))
fdele,all,heat
F,NODE((0.016-((m-1)*0.001)),0.036,0),heat,r
autots,on
solve
*enddo

time,3.46
*DO,n,1,schritten
Time,(3.46+(n*0.02))
fdele,all,heat
F,node((0.005+((n-1)*0.001)),0.035,0),heat,r
autots,on
solve
*enddo

time,3.67
*DO,o,1,schritten
TIME,(3.67+(o*0.02))
fdele,all,heat
F,NODE((0.016-((o-1)*0.001)),0.034,0),heat,r
autots,on
solve
*enddo

time,3.88
*DO,J,1,schritten
Time,(3.88+(J*0.02))
fdele,all,heat
F,node((0.005+((J-1)*0.001)),0.033,0),heat,r
autots,on
solve
*enddo

time,4.09
*DO,I,1,schritten
TIME,(4.09+(I*0.02))
fdele,all,heat
F,NODE((0.016-((I-1)*0.001)),0.032,0),heat,r
autots,on
solve
*enddo

time,4.30
*DO,J,1,schritten
Time,(4.30+(J*0.02))
fdele,all,heat
F,node((0.005+((J-1)*0.001)),0.031,0),heat,r
autots,on
solve
*enddo