! FEM fuer Praktiker Band 3: Temperaturfelder
! zwei überlappende Bleche werden mit einer linken (von unten) und rechten (von oben)
! Schweissnaht verschweisst. Die Geometrie der Schweissnaht wird modelliert, die 
! zugehörigen Elemente mit EKILL / EALIVE de-/aktiviert

! Schweissnaht links in von t=0 bis 2 s Schweissen, bis t=10 s Pause

! bis t=12 s Schweissnaht rechts, bis t=20 s Pause

! Transiente Analyse, Temperaturverteilung berechnen
finish  
/clear
/prep7
immed,1 

et,1,plane55
k,1,0,5.3   
k,2,35,5.3  
k,3,0,.3
k,4,35,.3   
k,5,36,-.3  
k,6,41,-.3  
a,1,2,4,3   
a,2,6,5,4   
local,11,1,30   
agen,2,all,,,,180   
aglue,all   
/pnum,line,1
lplot   

lsel,s,,,2  
lsel,a,,,9  
lsel,a,,,7  
lsel,a,,,14 
lesize,all,,,5  
mshkey,1
mshape,0,2d 
amesh,2,4,2 
mshkey,2
esize,1.6   
amesh,all   

mp,kxx,1,16.5   
mp,c,1,500e6
mp,dens,1,7.85e-9   
asel,s,,,2  
esla
cm,nahtr,elem   
asel,s,,,4  
esla
cm,nahtl,elem   
allsel  

! MODIFIZIERTES SCRIPT - BZGL Settings Loesung, Last ab hier:

/solu
antype,trans
nropt,full  
nsubst,11,22,5
outres,all,all 
kbc,1

time,2
nsel,s,ext  
sf,all,conv,10e-3,20
allsel  
tunif,20

! estif,1e-6 Standardwert, Voreinstellung
estif,1e-20

cmsel,s,nahtr 
ekill,all  
allsel

BFA,4,HGEN,3333  ! Area 4 linke Naht
solve
   
time,10 
BFA,4,HGEN,0 
solve

! .......etc evtl rest of time load marching 

FINISH
  
/POST1  
set,last 
plns,temp