+PROG AQUA urs:1
KOPF Material und Querschnitt
NORM DC DIN NDC EN1992-2004 COUN 49 CAT D

!Material
BETO NR 1 ART C 45 EC 28000 FCR 54 FCT 3.2 ! FCTK 1/20*54
STAH 2 ART S GUET 500B FY 550 FT 600       ! Spannungs-Dehnungslinie angenähert mit TS
ARBL GEBR 1.00 TS I MUET 2*78.54/(200*72.5) MNRB 1 FCTF 0.62   ! Anzahl der Eisen in der Zugzone n * As /(Breite * Höhe der Zugzone?) Zugzonenhöhe = H/2 - d1 ?

!Querschnitt
QB 1 H 200 B 200 MNR 1 SO 29 SU 29 BTYP ECKE DASO 10 DASU 10 MBW 2 ASB #pi*0.3^2/0.15
ENDE

+PROG SOFIMSHA urs:5
KOPF System
SYST 2D GDIV 1000

KNOT NR   X     Y
     1   0.0   0.0  FIX PP
     2   1.5   0.0
     3   3.0   0.0  FIX PP

GRUP 1
STAB 1 KA 1 KE 2 QNR 1 TEIL 15
STAB 2 KA 2 KE 3 QNR 1 TEIL 15

ENDE

+PROG SOFILOAD urs:6
KOPF Einwirkungen

LF 1
        KNOT 2 TYP PYY 1.0              ! Punktlast in Feldmitte
LF 2
        STAB GRP 1 TYP PYY 1.0          ! Eigengewicht
ENDE

+PROG ASE urs:2
KOPF Lineare Berechnung
LF ALLE
ENDE

+PROG STAR2 urs:7
KOPF Nichtlineare Analyse

STO#lf0 100
LOOP#i  102

        STEU II 60                      ! Th. 2, max. 60 Iterationen
        DEHN S1 KSV SL
        LF #lf0+#i;
                LC 1 FAKT 0.2*(#i+1)    ! Einzellast wird mit jedem Lastschritt um 0.2 kN gesteigert
                LC 2 FAKT 1.0
        ENDE
ENDLOOP
ENDE