!Volumen 1-5 erstellen
/prep7
et,1,mesh200,6
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.004,0.004,0
k,6,0.004,0.016,0
k,7,0.016,0.004,0
k,8,0.016,0.016,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,,,120
lesize,7,,,120
lesize,12,,,120
lesize,8,,,120
lesize,5,,,120
lesize,11,,,120
lesize,10,,,120
lesize,1,,,120
lesize,2,,,10,0.2
lesize,9,,,10,5
lesize,6,,,10,0.2
lesize,4,,,10,5
amesh,all

!->Fläche 0,0001 m extrudieren un dabei in 4 Teile teilen (Volumen 1-5 reichen dannn von z=0 bis z=0,0001)

!Volumen 6 erstellen
block,,0.02,,0.02,0,-0.005
esize,0,0005    
vmesh,all



!Verbinden von Volumen 1-5 mit 6
vsel,s,,,1
nslv,s,1
nsel,r,loc,z,0
vsel,s,,,6
eslv
ceintf,0.25
allsel

vsel,s,,,2
nslv,s,1
nsel,r,loc,z,0
vsel,s,,,6
eslv
ceintf,0.25
allsel

vsel,s,,,3
nslv,s,1
nsel,r,loc,z,0
vsel,s,,,6
eslv
ceintf,0.25
allsel

vsel,s,,,4
nslv,s,1
nsel,r,loc,z,0
vsel,s,,,6
eslv
ceintf,0.25
allsel

vsel,s,,,5
nslv,s,1
nsel,r,loc,z,0
vsel,s,,,6
eslv
ceintf,0.25
allsel


!Materialdaten 
Temperatur  Enthalpie
0		0
500		0.25e10
1000		0.5e10
1450		0.7e10
1550		0.9e10
2000		1.1e10
3000		1.5e10

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

!Programm für Laserbearbeitung

finish
/config,nres,20000

/SOLU
ANTYPE,TRANS			
kbc,1
tunif,293
TIME,1e-12
autots,on

!Festlegung der Wärmesenke

!nsel,s,loc,z,-0.005
!d,all,temp,293

OUTRES,ALL,NONE
OUTRES,NSOL,all
SOLVE

time,0.0001
kbc,2
schritt=33
*do,n,0,schritt

Time,(0.0005+(n*2.56))
schritte=127
*do,i,0,schritte

time,(0.0005+(i*0.01)+(n*2.56))
local,11,1,(0.005+(i*0.000075)),(0.015-(2*n*0.00015)),0.0001,0,0,0
nsel,s,loc,x,0,0.000213
nsel,r,loc,z,0
sf,all,hflux,(7016021649*0.12)
nsel,s,loc,z,-0.005
d,all,temp,293
allsel
nsel,s,loc,z,-0.005
d,all,temp,293
autots,on
allsel

OUTRES,ALL,NONE
OUTRES,NSOL,all
rescontrol,norestart
solve

time,(0.001+(i*0.01)+(n*2.56))
sfdele,all,hflux
allsel
nsel,s,loc,z,-0.005
d,all,temp,293
allsel
nsel,s,loc,z,-0.005
d,all,temp,293
autots,on
allsel

OUTRES,ALL,NONE
OUTRES,NSOL,all
rescontrol,norestart
solve
*enddo

time,(1.2805+(n*2.56))
*do,i,0,schritte
time,(1.2805+(n*2.56)+(i*0.01))
local,11,1,(0.0146-(i*0.000075)),(0.01485-(2*n*0.00015)),0.0001,0,0,0
nsel,s,loc,x,0,0.000213
nsel,r,loc,z,0
sf,all,hflux,(7016021649*0.12)
nsel,s,loc,z,-0.005
d,all,temp,293
allsel
nsel,s,loc,z,-0.005
d,all,temp,293
autots,on
allsel

OUTRES,ALL,NONE
OUTRES,NSOL,all
rescontrol,norestart
solve

time,(1.2810+(i*0.01)+(n*2.56))
sfdele,all,hflux
nsel,s,loc,z,-0.005
d,all,temp,293
allsel
nsel,s,loc,z,-0.005
d,all,temp,293
autots,on
allsel

OUTRES,ALL,NONE
OUTRES,NSOL,all
rescontrol,norestart
solve
*enddo
*enddo

OUTRES,ALL,NONE
OUTRES,NSOL,ALL
!/cont,,9,293,,850
!,,,,endstep
outres,all,all