!---Parameter-----------
rad=500            !Radius 
hoch=1000          !Höhe
wDicke=10          !Wanddicke

/prep7
et,1,shell63
r,1,wDicke
mp,ex,1,2.1e5
mp,prxy,1,0.3

k,1,0,0,0
k,2,0,0,hoch
k,3,rad,0,0
k,4,rad,0,hoch
bspline,3,4
arot,1,0,,,,,1,2,360
!------Vernetzung-----------
mshk,0,0
esize,0,100
amesh,all
csys,1
nrot,all
fini
!-------------------------
/solu
pstres,on
nsel,s,loc,z,0
d,all,ux,,,,,uy,uz
alls
nsel,s,loc,z,hoch
sf,all,pres,1
d,all,ux,,,,,uy,,
alls
solve
fini
!-------Beulanalyse-----------
/solu
antype,buckle
pstres,on
bucopt,lanb,3
outpr,nsol,all
solve
fini
!------------------------------
/post1
set,1,1
pldi