/confin,nres,50000

/prep7

acel,0,0,9.81

et,1,beam4

mp,ex,1,70000
mp,nuxy,1,0.23
mp,dens,1,2.5e-9

r,1,100,833,833,10,10,0		!Realkonstanten
rmore,,3000

k,1,-400,0,0			!Geometrie
k,2,400,0,0
l,1,2

mshkey,2			!Vernetzen
esize,50
lmesh,all

d,all,uy			!Randbedingungen
d,all,rotx
d,all,rotz

nsel,s,loc,x,-400
nsel,r,loc,x,400
d,all,uz
allsel

nsel,s,loc,x,0
dsym,symm,x
allsel

/view,1,-1,1,1

save


/solution			!Lösung und Belastung
antype,trans			

nlgeom,on

outres,all,all

time,0.001
kbc,1
esel,s,real,,1
nsle
sfbeam,all,1,pres,0.1,0.1
allsel
nsubs,1000
solve

kbc,0

time,0.01
esel,s,real,,1
nsle
sfbeam,all,1,pres,0,0
allsel
nsubs,9000
solve

fini