+PROG AQUA urs:1
kopf Material und Querschnitt
norm din en199x-200x
stah art s guet 235
prof nr 1 typ hea 500 mnr 1
prof nr 2 typ hea 400 mnr 1
ende

+prog sofimshc urs:2
kopf Struktur
echo voll
syst 3d  gdiv 10000 gdir posy
steu mesh  2
steu hmin  0.15

let#h 10 $Höhe der Stütze/Height of the Column

spt nr 1 x 0 y 0        z 0 fix ppmy
spt nr 2 x 0 y -#h/3    z 0 fix -
spt nr 3 x 0 y -#h*2/3  z 0 fix -
spt nr 4 x 0 y -#h      z 0 fix pxpzmy

sln nr 1 npa 1 npe 2 qnr 2
sln nr 2 npa 2 npe 3 qnr 2
sln nr 3 npa 3 npe 4 qnr 1

ende

+prog sofiload urs:4
kopf Lasten für Beuleigenwertermittlung

lf nr 1
knot nr 4 typ pyy p1 1

ende

+prog ase urs:11
kopf LF 1000: Zustandlastfall für Beuleigenwertermittlung
lf 1000 bez 'Beuleigenwert Basislastfall/Primärlastfall'
lc 1

ende

+prog ase urs:12
kopf LF 200i: Beuleigenwerte für LF 1000
STEU WARN 609
syst PLF 1000 fakv 0.0
EIGE NEIG 5 ETYP BEUL LMIN AUTO LF 2000
ende

+prog sofiload urs:3
kopf Lasten für Stabilitätsnachweis

lf nr 20
knot nr 4 typ pyy p1 600

ende

+prog ase urs:5
lf nr 20
ende

+PROG BDK urs:14
KOPF Stabilitätsnachweis
echo voll extr
LF 20
CVA CB 0 CY fix CZ fix DX fix DY 0 DZ 0    $GABELLAGERUNG
CVE CB 0 CY fix CZ fix DX fix DY 0 DZ 0    $GABELLAGERUNG
STEU OPT EN LCST 100 mthd 1

memb sln von 1 bis 3 typ bdk
ENDE