+PROG AQUA urs:2 $ Querschnitt
KOPF Querschnitt
SEIT UNIE 0
STEU OPT REFD WERT 0
ECHO voll NEIN; ECHO quer extr; ECHO mat VOLL
NORM 'DIN' '1045-1' COUN 49 CAT 'E' WIND '2' SNOW '1a' WCAT 'B'

BETO 1 CDIN '30'
STAH 2  BST '500SA'

let#width 1               $ Höhe Querschnitt
let#height 1              $ Breite Querschnitt
let#lay0 -#height/2+0.05  $ vertikale Lage Rang 0
let#lay1 #height/2-0.10   $ vertikale Lage Rang 1
let#lay2 #height/2-0.05   $ vertikale Lage Rang 2

qnr 1 mnr 1 2
 qpol u
  qp 1  #width/2  #height/2
  qp 2 -#width/2  #height/2
  qp 3 -#width/2 -#height/2
  qp 4  #width/2 -#height/2

 lbew LB1   #width/2-0.05   #lay2 -(#width/2-0.05)  #lay2 AS 3*1.13[cm2] ASMA - rang M1 tors pass d 12 A 3[-] DIST FULL
 bew  PW1   #width/2/2      #lay2                         AS 1*1.13[cm2] ASMA - rang M1 tors pass d 12

ende


+prog aqb urs:4 $ Definition der Stabschnitte und Lastfälle
kopf Definition der Stabschnitte und Lastfälle
echo voll extr

stab 1 x 0 nq 1 typ absc

LF 1
S    NR  X  MY
     1   0  250

ende


+prog aqb urs:5 $ BEME BRUC
kopf Bemessung
echo voll extr

bew bmod EINZ LFB 1  $ abspeichern der Bewehrung unter dieser Nummer

stab 1 typ absc

LF 1

komb sum LF1 1 lfsp 101

beme bruc tana 1 tanb 1

ende


+prog aqb urs:1 $ DEHN GEBR
kopf Bemessung
echo voll extr

bew bmod accu LFB  1 $ aufsetzten auf diese Bewehrung
bew bmod EINZ LFB 11 $ abspeichern der Bewehrung unter dieser Nummer

stab 1 typ absc

LF 1

komb sum LF1 1 0.5 lfsp 201

DEHN GEBR

ende