/out,null
fini
/clear
/out

/prep7
/title,probe
et,1,plane42,,,3

r,1,2
mp,ex,1,3000
mp,nuxy,1,0.34
!mp,dens,1,7.85e-9 

k,1,1,0,0,
k,6,0,0,0,
k,2,1,-10,0
k,3,5,-20.198,0
k,4,5,-45,0
k,5,0,-45,0
k,8,0,-20.198,0
k,9,0,-10,0

k,7,16,-10,0
larc,2,3,7,30

l,1,6
l,1,2
l,3,4
l,4,5
l,5,8
l,8,9
l,9,6
l,3,8
l,9,2

al,4,5,6,9
al,10,3,2,8
al,10,1,9,7

lesize,5,.3
lesize,4,.5
lesize,6,.5
lesize,9,.3
lesize,3,.5
lesize,8,.5
lesize,2,.3
lesize,10,.3
lesize,7,.5
lesize,1,,,30,1

eshape,3

amesh,1,3

arsymm,x,all
arsymm,y,all

nummrg,node

!punkte zur abstandsermittlung
n,5060,0,-13.399,0
n,5061,0,-16.799,0
n,5062,0,-22,0
n,5063,0,13.399,0
n,5064,0,16.799,0
n,5065,0,22,0

fini

/solu

antype,0,new

dl,22,7,ux
dl,22,7,uy
dl,32,10,ux
dl,32,7,uy

sfl,12,press,-5
sfl,5,press,-5

sftram			!transferiert die oberflaechenlasten vom geometriemodell auf das FE-modell

solv

fini

/post1

!/dscale,1,1
pldisp,2
!plnsol,u,y

!zuweisung der verschiebung zu parametern
!*get,uy1,node,5060,u,y
!*get,uy2,node,5061,loc,y
!*get,uy3,node,5062,loc,y
!*get,uy4,node,5063,loc,y
*get,uy5,node,5064,u,y
!*get,uy6,node,5065,loc,y
*status