finish
/clear
*abbr,aboullel2,/input,aboullel2,txt

/PREP7  

!Punkte

K,1,0,0,0, 
k,2,0,100,0
k,3,200,100,0
k,4,200,0,0
k,5,180,0,0
k,6,160,11.548,0
k,7,160,-11.548,0
k,8,20,0,0
k,9,40,11.548,0
k,10,40,-11.548,0

k,11,50,11.548,0
k,12,50,-11.548,0
k,13,70,0,0
k,14,80,0,0
k,15,80,-100,0

k,16,120,-100,0
k,17,120,0,0
k,18,130,0,0
k,19,150,11.548,0
k,20,150,-11.548,0

k,21,45,0,0
K,30,100,100,0

!linien

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

L,11,13
L,13,12
L,13,14
L,14,15
L,15,16
L,16,17
L,17,18
L,18,19
L,18,20 


!Punkt auf Linie
KL,8,0.8
KL,      9,  0.2
KL,      10,  0.2
KL,      11,  0.8

KL,      5,  0.8
KL,      17,  0.8
KL,      18,  0.8
KL,      6,  0.8


L,19,6
L,20,7
L,9,11
L,10,12



ET,1,BEAM3

abm=4      !Abmessung
abmh3=abm**3
r,1,(abm**2)/2,abm*(abmh3/24),abm
mp,ex,1,210e3
mp,nuxy,1,0.3

lmesh,all
!----------------------
/solu
nsel,s,loc,y,-100
d,all,ux,0
d,all,uy,0

nsel,s,loc,y,100
nsel,r,loc,x,100
f,all,fy,-500

allsel
SOLVE  
!--------------------------
/post1
pldi,2