/prep7
et,1,plane55
rect,,0.02,,0.05
esize,0.0005
amesh,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

SFA,all,,CONV,4,293
tunif,293
r=6200
/SOLU
ANTYPE,TRANS
TIME,1E-6
SOLVE

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

time,0.01
schritte=20
*DO,I,1,schritte
TIME,(0.01+(I*0.01))
fdele,all,heat
F,NODE(0.0045,(0.04-((I-1)*0.0005)),0),heat,r
autots,on
solve
*enddo

time,0.21
schritten=20
*DO,J,1,schritten
Time,(0.21+(J*0.01))
fdele,all,heat
F,node(0.0055,(0.03+((J-1)*0.0005)),0),heat,r
autots,on
solve
*enddo

time,0.41
schritte=20
*DO,k,1,schritte
TIME,(0.41+(k*0.01))
fdele,all,heat
F,NODE(0.0065,(0.04-((k-1)*0.0005)),0),heat,r
autots,on
solve
*enddo

time,0.61
schritten=20
*DO,l,1,schritten
Time,(0.61+(l*0.01))
fdele,all,heat
F,node(0.0075,(0.03+((l-1)*0.0005)),0),heat,r
autots,on
solve
*enddo

time,0.81
schritte=20
*DO,m,1,schritte
TIME,(0.81+(m*0.01))
fdele,all,heat
F,NODE(0.0085,(0.04-((m-1)*0.0005)),0),heat,r
autots,on
solve
*enddo


time,1.01
schritten=20
*DO,n,1,schritten
Time,(1.01+(n*0.01))
fdele,all,heat
F,node(0.0095,(0.03+((n-1)*0.0005)),0),heat,r
autots,on
solve
*enddo

time,1.21
schritte=20
*DO,o,1,schritte
TIME,(1.21+(o*0.01))
fdele,all,heat
F,NODE(0.0105,(0.04-((o-1)*0.0005)),0),heat,r
autots,on
solve
*enddo

time,1.41
schritten=20
*DO,J,1,schritten
Time,(1.41+(J*0.01))
fdele,all,heat
F,node(0.0115,(0.03+((J-1)*0.0005)),0),heat,r
autots,on
solve
*enddo

time,1.61
schritten=20
*DO,J,1,schritten
Time,(1.61+(J*0.01))
fdele,all,heat
F,node(0.0125,(0.04-((J-1)*0.0005)),0),heat,r
autots,on
solve
*enddo

time,1.81
schritte=20
*DO,I,1,schritte
TIME,(1.81+(I*0.01))
fdele,all,heat
F,NODE(0.0135,(0.03+((I-1)*0.0005)),0),heat,r
autots,on
solve
*enddo

time,2.01
schritten=20
*DO,J,1,schritten
Time,(2.01+(J*0.01))
fdele,all,heat
F,node(0.0145,(0.04-((j-1)*0.0005)),0),heat,r
autots,on
solve
*enddo

time,2.21
schritte=20
*DO,I,1,schritte
TIME,(2.21+(I*0.01))
fdele,all,heat
F,NODE(0.0155,(0.03+((I-1)*0.0005)),0),heat,r
autots,on
solve
*enddo

time,2.41
schritte=20
*DO,I,1,schritte
TIME,(2.41+(I*0.01))
fdele,all,heat
F,NODE((0.0155-((I-1)*0.00055)),0.04,0),heat,r
autots,on
solve
*enddo

time,2.61
schritten=20
*DO,J,1,schritten
Time,(2.61+(J*0.01))
fdele,all,heat
F,node((0.0045+((J-1)*0.00055)),0.039,0),heat,r
autots,on
solve
*enddo

time,2.81
schritte=20
*DO,k,1,schritte
TIME,(2.81+(k*0.01))
fdele,all,heat
F,NODE((0.0155-((k-1)*0.00055)),0.038,0),heat,r
autots,on
solve
*enddo

time,3.01
schritten=20
*DO,l,1,schritten
Time,(3.01+(l*0.01))
fdele,all,heat
F,node((0.0045+((l-1)*0.00055)),0.037,0),heat,r
autots,on
solve
*enddo

time,3,21
schritte=20
*DO,m,1,schritte
TIME,(3.21+(m*0.01))
fdele,all,heat
F,NODE((0.0155-((m-1)*0.00055)),0.036,0),heat,r
autots,on
solve
*enddo


time,3.41
schritten=20
*DO,n,1,schritten
Time,(3.41+(n*0.01))
fdele,all,heat
F,node((0.0045+((n-1)*0.00055)),0.035,0),heat,r
autots,on
solve
*enddo

time,3.61
schritte=20
*DO,o,1,schritte
TIME,(3.61+(o*0.01))
fdele,all,heat
F,NODE((0.0155-((o-1)*0.00055)),0.034,0),heat,r
autots,on
solve
*enddo

time,3.81
schritten=20
*DO,J,1,schritten
Time,(3.81+(J*0.01))
fdele,all,heat
F,node((0.0055+((J-1)*0.00055)),0.033,0),heat,r
autots,on
solve
*enddo

time,4.01
schritte=20
*DO,I,1,schritte
TIME,(4.01+(I*0.01))
fdele,all,heat
F,NODE((0.0155-((I-1)*0.00055)),0.032,0),heat,r
autots,on
solve
*enddo


time,4.21
schritten=20
*DO,J,1,schritten
Time,(4.21+(J*0.01))
fdele,all,heat
F,node((0.0045+((J-1)*0.00055)),0.031,0),heat,r
autots,on
solve
*enddo