PROG AQUA urs:1
KOPF Plattenbruecke als Ersatzstab
NORM DIN EN199x-200x UNIT 0
BETO 1 C 30
STAH 2 B 500A
ENDE

PROG SOFIMSHA URS:2
KOPF Plattenbruecke als Ersatzstab
SYST ROST GDIV 10000 GDIR POSZ
KNOT NR    X  Y
    101    0  0
    109    0  7
   1101   12  0
   1109   12  7
   2101   24  0
   2109   24  7
QUAD - 101 109 2109 2101 M 8 N 20 T 0.50 MNR 1 MBW 2
RAND 101  109 FITL PZ
    1101 1109 FITL PZ
    2101 2109 FITL PZ
ENDE

PROG SOFILOAD URS:3
KOPF Lasten
ECHO VOLL NEIN
LF 1 EGZ 1.00
ENDE

PROG ASE URS:4
KOPF Berechnung
ECHO VOLL NEIN
LF 1
ENDE

PROG WING URS:5
KOPF
SIZE LP 0
BEOB STAN  0 0 -1 POSY
STRU
LF 1
BEOB STAN -2 6 -3 POSZ
LAST
BEOB STAN  0 0 -1 POSY
QUAD HM DARS DVEK
MOVE X -10 Y  1 Z 0 ; DRAW X +40 Y 1 Z 0 F 2000 DTYP STAN
MOVE X -10 Y  4 Z 0 ; DRAW X +40 Y 4 Z 0 F 2000 DTYP STAN
MOVE X   8 Y -1 Z 0 ; DRAW X   8 Y 8 Z 0 F 2000 DTYP STAN
BEOB STAN -2 6 -3 POSZ
SCHN TYP  MX UNIT  100.0000 STYP KNOT DTYP POSZ
BEOB STAN  0 0 -1 POSY
MOVE
MOVE X   8 Y -1 Z 0 ; DRAW X   8 Y 8 Z 0 F 2000 DTYP STAN
STRU 1 0 ; UND
SCHN TYP  MX UNIT  100.0000 STYP KNOT DTYP PPLA
ENDE

PROG SIR URS:6
KOPF
SIZE -LP 0 TEIL 3x1
ECHO SCHN VOLL
ECHO PLOT NEIN ; ECHO MX,MY,VZ
STEU AQUA 2
LF 1
SCHN NR XS      XM        YM   NX NY QNR=1
      1  - (0.0 24.0 4.0) 3.5  1  0
ENDE

$ die im Programm SIR generierte AQUA- und AQB-Eingabe wird berechnet
+apply "$(NAME).sir"



+prog aqua urs:11 $ Bestandsbewehrung
kopf Bestandsbewehrung

STEU REST 3
unit 5
ECHO QUER extr
ECHO PICT voll

QNR 1
INTE ADD NS0 1 NS1 CLON $ Aufrufen des Querschnitts
QSP NR 'O1' Y 0 Z -0.25[m] MNR 1
lbew nr 1 ya 3.45[m] za 0.2[m] ye -3.45[m] ze 0.2[m] AS 100[cm2] rang M1 mbw 2 D 20 A 15[cm]
lbew nr 2 ya 3.45[m] za -0.2[m] ye -3.45[m] ze -0.2[m] AS 100[cm2] rang M2 mbw 2 D 20 A 15[cm]
ende


$ Spannungsberechnung Ersatzstab
PROG AQB URS:7
KOPF
STAB TYP ABSC
LF 1
komb extr solo lf1 1 lfsp 100
dehn gebr
ENDE