+PROG AQUA urs:1
HEAD
PAGE UNII 0
PAGE LANO 0
NORM 'DIN' 'en1992-2004 'COUN 49 CAT 'B' UNIT 5

CONC 3 C 35
STEE 4 B 500B

!*! Defintion Balken
let#b 1500
let#h 1500

sect no 91 mno 3 mrf 4 btyp cent
poly

vert 1 Y -#b/2 Z -#h/2
vert 2 Y +#b/2 Z -#h/2
vert 3 Y +#b/2 Z +#h/2
vert 4 Y -#b/2 Z +#h/2

let#kb_h #h
let#kb_b #b
let#kn_cnom 100
let#kn_a 100
$let#dkb_b 300

lrf no 100 yb -#kb_b/2+#kn_cnom zb -#kb_h/2+#kn_cnom ye +#kb_b/2-#kn_cnom ze -#kb_h/2+#kn_cnom lay M1 mrf 4 d 16 a 13[-]  dist full  tors ACTI $
lrf no 200 yb -#kb_b/2+#kn_cnom zb +#kb_h/2-#kn_cnom ye +#kb_b/2-#kn_cnom ze +#kb_h/2-#kn_cnom lay M2 mrf 4 d 16 a 13[-]  dist full  tors ACTI
lrf no 300 yb -#kb_b/2+#kn_cnom zb -#kb_h/2+#kn_cnom+#kn_a ye -#kb_b/2+#kn_cnom ze +#kb_h/2-#kn_cnom-#kn_a lay M3 mrf 4 d 16 a 11[-]  dist full  tors ACTI
lrf no 400 yb +#kb_b/2-#kn_cnom zb -#kb_h/2+#kn_cnom+#kn_a ye +#kb_b/2-#kn_cnom ze +#kb_h/2-#kn_cnom-#kn_a lay M4 mrf 4 d 16 a 11[-]  dist full  tors ACTI

END

+PROG AQB urs:3
KOPF GZG häufig
ECHO DEHN ja
echo voll extr

DEHN kmod GEBR RISS JA RW 999   $ksv ULD //S0


S  x  n     vy    vz  my   mz  nq nr
   2 -1015  40.3 -225 1178 162 91 5001
ENDE