!Schweißen mit Nahtfüllung
!aus dem Forum von climbon
!Schätzing, 3.6.2018

finish  $/clear
*abbr,climbon2,/inp,climbon2,txt

/prep7
k,1,0,0,0
k,2,0,5,0
k,3,0,0,5
k,4,100,0,0
k,5,100,5,0
k,6,100,0,5

l,4,6
l,5,6
l,5,4
l,6,3
l,4,1
l,5,2
l,1,3
l,1,2
l,2,3
v,1,2,3,4,5,6


MP,KXX,1,40
MP,DENS,1,7800
MP,C,1,500
TUNIF,20

!et,1,solid90   solid90 hat Seitenmittenknoten
et,1,solid5,8
esize,10
vmesh,all


/solu
antyp,trans 
outres,all,all
time,1e-12
solve

!/eof

!---------SCHLEIFE---------
Last=7e9
ebreite=10
schritte=100/ebreite

*do,ii,1,schritte
bfdele,all,all
allsel
nsel,s,loc,x,(-0.5+ebreite)*(ii-1),(0.5+ebreite)*ii
ESLN,s,1
bfe,all,hgen,,last
time,ii
allsel
solve
*enddo
!---------SCHLEIFE---------
/post1
plns,temp