/prep7
et,1,plane55
et,2,solid70
k,1,0,0,0
k,2,0.02,0,0
k,3,0,0.02,0
k,4,0.02,0.02,0
k,5,0.005,0.005,0
k,6,0.005,0.015,0
k,7,0.015,0.005,0
k,8,0.015,0.015,0
a,1,3,6,5
a,1,2,7,5
a,3,6,8,4
a,2,4,8,7
a,5,7,8,6
aglue,all
lesize,3,,,50
lesize,7,,,50
lesize,12,,,50
lesize,5,,,50
lesize,11,,,50
lesize,10,,,50
lesize,1,,,50
lesize,8,,,50
lesize,2,,,10,0.2
lesize,9,,,10,5
lesize,6,,,10,0.2
lesize,4,,,10,5
amesh,all

!Netz um 0.005 in die Tiefe extrudieren mit 5 Elemeneten
und space ration 3

MP,KXX,1,54
MP,DENS,1,7850
MP,C,1,461
tunif,293

MP,KXX,2,54
MP,DENS,2,7850
MP,C,2,461
tunif,293

r=400000


tunif,293
/SOLU
ANTYPE,TRANS
TIME,1e-12
NSUB,1
OUTRES,ALL,ALL
SOLVE

time,0.01
schritt=0
*do,n,0,schritt


time,(0.01+(n*2))
schritte=50
*do,i,1,schritte
Time,((0.01+(n*2))+(i*0.02))
sfedele,all,all,all
sfe,(22246-(500*n)+(5*i)),,hflux,,r
nsub,1
allsel
outres,all,all
solve
*enddo


time,(1.01+(n*2))
*do,i,1,schritte
Time,((1.01+(n*2))+(i*0.02))
sfedele,all,all,all
sfe,(22251-(500*n)-(5*i)),,hflux,,r
nsub,1
allsel
outres,all,all
solve
*enddo
*enddo