fini
/clear
/prep7

! Definition der Parameter, Maße in mm
l1 = 1000
l2 = 1000
kante = 30
dicke = 1
dichte = 7850        !kg/m^3
elementgroesse = 10
gravitation = 9.81   !m/s^2

! Keypoints, Linien und Fläche erstellen
k,
k,, l1/2
k,, l1/2, l2/2
k,,, l2/2
k,,,, kante

l, 1, 2
l, 2, 3
l, 3, 4
l, 4, 1
al, all
l, 1, 5
adrag, 2, 3,,,,, 5
! Materialeigenschaften
mp, ex, 1, 210000
mp, nuxy, 1, 0.3
mp, dens, 1, dichte*1e-12

! Elementtyp festlegen und vernetzen
et, 1, shell281
r, 1, dicke
esize, elementgroesse
amesh, all

! Belastung
! asel, s,,, 1
! esla, s
! sfe, all,, pres, 0, -dicke*dichte*1e-12*gravitation*1000
acel, 0, 0, gravitation*1000

! Randbedingungen: "simply supported"
lsel, s,,, 3
nsll, s, 1
d, all, ux
! d, all, uy
d, all, uz
! d, all, rotx
! Symmetrie
allsel
lsel, s,,, 1, 4, 3
lsel, a,,, 7, 10, 3
dl, all,,symm
sbctran
allsel
/solu
antype, static
nlgeom, on
nsubst, 1, 1, 1
solve

/post1
/dscale,, 20
plnsol, u, z