finish
/clear,start

/Title,Einzelentladungskrater bei der Mikrofunkenerosion

/prep7

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Parameter

we=60e-6 	![J]
d=20e-6		![m]
te=10
te1=0.4e-6	![s]
te2=100


Qq=0.12*we/(3.1416*(d/2)*(d/2)*te1)	!Wärmestromdichte [W/m²]

Tu=20					!Umgebungstemperatur
n=50

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Definition des Elemtetyps

ET,1,PLANE13

keyopt,1,1,4   !bezieht therm. und mech.Freiheitsgrade mit ein

MPTEMP,1,20
mp,kxx,1,21.9
mp,c,1,523
mp,alpx,1,8.9e-6
mp,dens,1,4500
mp,ex,1,120.2e+9
mp,prxy,1,0.361

tb,BKIN,1,1,,1

TBTEMP,20
TBDATA,1,185e+6,10e+9

TBLIST,BKIN,1
/XRANGE,0,0.02
TBPLOT,BKIN,1

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Geometrie

rectng,-2*d,6*d,0,4*d
rectng,,4*d,0,d
AOVLAP,1,2

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Meshing Parameter

LESIZE,5,,,4*n
LESIZE,8,,,n

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Meshing

MSHAPE,0,2D 
MSHKEY,1
AMESH,2

MSHAPE,1,2D 
MSHKEY,0
AMESH,3

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Lastschritte...

finish

/SOLU

ANTYPE,TRANS,NEW	!Berechnung wird transient durchgeführt
TINTP,,,,1		!Zeit-Integrationsparameter (Methode nach Euler Rückwärtseinsetzen)
outpr,all,all
OUTRES,all,all
nlgeom,on
NROPT,full
lumpm,0
lnsrch,on
autots,on

lsel,s,,,9
lsel,a,,,4
lsel,a,,,3
lsel,a,,,2
lsel,a,,,10
nsll,s,1
d,all,temp,TU
alls

lsel,s,,,3
nsll,s,1
d,all,uy
d,all,ux
alls

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Lastschritt 1 (Zimmertemp)
! 1.Lastschritt-Raumtemperatur

TIMINT,OFF		!Ausstellen der transienten Efffekte

time,te		!Zeit am Ende dieses Lastfalls		
D,ALL,TEMP,TU		!Zimmertemp
alls

solve

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Lastschritte: bewegte Wärmequelle
!2.Lastschritt-Aufwärmen

TIMINT,on
TIME,te+te1

ddel,all,temp
NSEL,S,LOC,Y,0  
NSEL,r,LOC,X,d+d/2,2*d+d/2
SF,all,hflux,Qq

neqit,20
deltim,te1/10,te1/20,te1/5
kbc,1
alls

Solve
   
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!Elemententfernung (Schmelze)

/post1

set,last
etable,molten,temp,
esel,s,etab,molten,1660
finish

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

/solu

antype,,rest
ekill,all
finish

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

/post1
set,last
esel,s,live
plnsol,temp    
finish

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!3.Lastschritt-Abkühlen

/solu


time,te+te1+te2

esel,all      
NSEL,S,LOC,Y,0  
NSEL,r,LOC,X,d+d/2,2*d+d/2
SFDEL,all,HFLUX
alls

ESEL,s,elem,,74
ESEL,a,elem,,274
ESEL,a,elem,,475
ESEL,a,elem,,676
ESEL,a,elem,,877
ESEL,a,elem,,878
ESEL,a,elem,,1079
ESEL,a,elem,,1080
ESEL,a,elem,,1081
ESEL,a,elem,,1082
ESEL,a,elem,,1083
ESEL,a,elem,,1084
ESEL,a,elem,,1085
ESEL,a,elem,,1086
ESEL,a,elem,,1087
ESEL,a,elem,,1088
ESEL,a,elem,,1289
ESEL,a,elem,,1290
ESEL,a,elem,,1291
ESEL,a,elem,,1292
ESEL,a,elem,,1293
ESEL,a,elem,,1294
ESEL,a,elem,,1295
ESEL,a,elem,,1296
ESEL,a,elem,,1297
ESEL,a,elem,,1298
ESEL,a,elem,,1299
ESEL,a,elem,,1300
ESEL,a,elem,,1302
ESEL,a,elem,,1303
ESEL,a,elem,,1304
ESEL,a,elem,,1305
ESEL,a,elem,,1306
ESEL,a,elem,,1307
ESEL,a,elem,,1308
ESEL,a,elem,,1309
ESEL,a,elem,,1310
ESEL,a,elem,,1311
ESEL,a,elem,,1312
ESEL,a,elem,,1313
ESEL,a,elem,,1113
ESEL,a,elem,,1114
ESEL,a,elem,,1115
ESEL,a,elem,,1116
ESEL,a,elem,,1117
ESEL,a,elem,,1118
ESEL,a,elem,,1119
ESEL,a,elem,,1120
ESEL,a,elem,,1121
ESEL,a,elem,,1122
ESEL,a,elem,,1123
ESEL,a,elem,,923
ESEL,a,elem,,924
ESEL,a,elem,,725
ESEL,a,elem,,526
ESEL,a,elem,,327
ESEL,a,elem,,127
ESEL,a,elem,,128
ESEL,a,elem,,129
ESEL,a,elem,,73
ESEL,a,elem,,72

nsle,s,all
SF,all,conv,1500,20
alls

neqit,200
deltime,te2/10,/te2/15,te2/5
kbc,1
alls
solve

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

finish