!---Parameter-----------
rad=500            !innen-Radius d. Zyl.
hoch=1000          !Höhe
wDicke=10          !Zyl.Wanddicke

/prep7
et,1,solid45
mp,ex,1,2.1e5
mp,prxy,1,0.3

k,1,0,0,0
k,2,0,0,hoch
k,3,rad+wDicke,0,0
k,4,rad,0,0
k,5,rad+wDicke,0,hoch
k,6,rad,0,hoch
l,3,4
l,4,6
l,6,5
l,5,3
al,1,2,3,4
vrot,all,,,,,,1,2,360
!------Vernetzung-----------
mshk,2
lesize,1,,,2
lesize,2,,,100
lesize,4,,,100
lesize,9,,,50
lesize,10,,,50
lesize,17,,,50
lesize,18,,,50
lesize,25,,,50
lesize,26,,,50
lesize,29,,,50
lesize,30,,,50
vmesh,all
csys,1
nrot,all
fini
!-----------------------------
/solu
pstres,on
csys,1
nsel,s,loc,z,0
nsel,r,loc,x,504,506    !selektieren Mitte der Zyl.Wand unten
d,all,ux,,,,,uy,uz
alls
nsel,s,loc,z,hoch
sf,all,pres,1
alls
nsel,s,loc,z,hoch
nsel,r,loc,x,504,506    !selektieren Mitte der Zyl.Wand oben
d,all,ux,,,,,uy,,
alls
solve
fini
!-------Beulanalyse-----------
/solu
antype,buckle
pstres,on
bucopt,lanb,5
outpr,nsol,all
solve
fini
!-----------------------------
/post1
set,1,1
pldi