!+!Kapitel Material und Querschnitte
$ ==================================
$ Norm, Material und Querschnitt
+prog aqua urs:1
kopf Norm, Material und Querschnitt
NORM EN 199X-200X
!*!Label Material und Querschnitt
echo quer extr
BETO NR 1 ART C FCN 52
stah NR 2 ART B 500

!*!Label Querschnitte
$QB NR 1 H 15[cm] B 15[cm] HO 10[cm] BO 4[cm] MNR 1

steu bewq 2 $ 0 oder 2
QNR  1 MNR 1 MBW 2
let#br 150 $ Breite
let#he 150 $ Höhe
let#c 20 $ Abstand Betonaußenkante zur Bewehungsachse
QPOL ART    U MNR 1
 QP  NR     Y      Z
      1  -#br/2  -#he/2
      2   #br/2  -#he/2
      3   #br/2   #he/2
      4  -#br/2   #he/2

  LBEW NR       YA        YE        ZA         ZE      RANG  AS   D    TORS DIST=EVEN
       1   -#br/2+#c  #br/2-#c   #he/2-#c   #he/2-#c     M1   2    16    pass
       2   -#br/2+#c  #br/2-#c  -#he/2+#c  -#he/2+#c     M2   2    16    pass

  BEW  NR        Y        Z       RANG  TORS
       1   -#br/2+#c  -#he/2+#c    Z3   AKTI
       2    #br/2-#c  -#he/2+#c    Z3   AKTI
       3    #br/2-#c   #he/2-#c    Z3   AKTI
       4   -#br/2+#c   #he/2-#c    Z3   AKTI


!*!Label globale Variablen
STO#L 1.65[m]
ende

!+!Kapitel SOFIMSHA: System und Geometrie
$ ========================================
+prog sofimsha urs:2
kopf System und Geometrie
!*!Label SYST Koordinatensystem
SYST ART 3D GDIV 1000

$Knoten - Absolutkoordinaten
$Knoten unten
KNOT NR 1 X 0 Y 0 FIX ppmx
KNOT NR 2 X #L Y 0 FIX pypzmx

GRUP NR 1
STAB KA 1 KE 2 QNR 1 TEIL 100 KM 0
ende

!+!Kapitel Belastung
$===================
+prog sofiload urs:3
kopf Belastungen mit Vorspannkraft
LF 1 TYP NONE BEZ ‘PX’
STAB VON GRP BIS 1 TYP PXX PA 47 PE -47
ende

!#!KAPITEL Analysis
+PROG ASE URS:8
KOPF Zustandslastfall für Beuleigenwertermittlung
LF 1000 BEZ Beuleigenwert_PLF
LC 1 $ PX


LF 1001 BEZ Beuleigenwert_PLF
LC 1 fakt 10 $ PX

ENDE

!#!KAPITEL Buckling eigenvalues
+PROG ASE urs:4

KOPF Beuleigenwerte für Spannungen aus LF 100
SYST PLF 1000 FAKV 1.0
EIGE 5 LF 2001

ENDE

SYST PLF 1001 FAKV 1.0
EIGE 5 LF 2101

ENDE


!+!Kapitel Schnittgrößen - linear - Vergleichswerte
$ ===============================
-prog ase urs:9
kopf Schnittgrößen linear ohne Berücksichtigung von Imperfektionen
SYST PROB line
LF 100 EGZ 1.35 $Eigengewicht wird nun von Sofistik berechnet, mit 1.35facher berücksichtigung sonst 0

ende

!#!Kapitel Eigenformen - linear
-prog dyna urs:5
kopf Die ersten 5 Eigenformen
SYST ART REST QNR 1 PROB LINE STAT SERV
EIGE NEIG 5

ende