PROG AQUA urs:1
KOPF ZWEIFELDRIGER DURCHLAUFTRAEGER MIT KRAGARM NACH EUROCODE
$ BEISPIEL EINES STAHLBETONTRAEGERS AUS EINEM INDUSTRIEBAU
SEIT UNIE 1
NORM DIN EN1992-2004




BETO 1 C  20  $ DIN 1045 7.4.5.3 25/1.18 = 21.19
STAH 2 S 450B FY 400 $ OLDER STEEL GRADE BST 420


sto#menge 9

loop#i #menge
let#grpn 1+#i
QB #grpn*10+1  100   35 15 210 70[mm] 70[mm] MBW 2 DASO 20 DASU 25
QB #grpn*10+2  150   35 15 210  ==
QB #grpn*10+3  150   35 15 284  ==

endloop

ENDE

+PROG SOFIMSHA urs:2
KOPF ZWEIFELDRIGER DURCHLAUFTRAEGER MIT KRAGARM
$ System
SYST RAHM GDIR POSY  gdiv 10


loop#i #menge
let#grpn 1+#i

KNOT #grpn*100+1  0.00   5*#grpn
     #grpn*100+2  4.00   5*#grpn    FIX PP
     #grpn*100+3 12.00   5*#grpn    FIX PP
     #grpn*100+4 20.00   5*#grpn    FIX PP

STAB #grpn*100+1 #grpn*100+1 #grpn*100+2 #grpn*10+1 TEIL 4
     #grpn*100+2 #grpn*100+2 #grpn*100+3 #grpn*10+2   TEIL 8
     #grpn*100+3 #grpn*100+3 #grpn*100+4 #grpn*10+3   TEIL 8

endloop


$SCHN NR   X    TYPH  SPEZ
$     101 0.94  SCHU  E
$     101 0.20  ANSC  E
$SCHN NR   X   QNR  TYPH  SPEZ
$     102 0.20   2  ANSC  A
$     102 0.95   2  SCHU  A
$     102 0.95   2  SCHU  E
$     102 0.20   2  ANSC  E
$SCHN NR   X   QNR  TYPH  SPEZ
$     103 0.20   3  ANSC  A
$     103 0.95   3  SCHU  A
$     103 0.25   3  AIND  E
ENDE

PROG AQUA urs:3
KOPF INTERPOLATION
INTE 0
ENDE

PROG SOFILOAD urs:4
KOPF EINWIRKUNGEN UND LASTEN
ACT G
ACT Q



LF 1 G ; STEL (101 100*#menge+1 100)  TYP PYY 214.00        A  0.2
         STAB (101 100*#menge+1 100)  TYP PYY  11.00 90.00
         STEL (102 100*#menge+2 100)  TYP PYY 416.00        A  4.0
         STAB (103 100*#menge+3 100)  TYP PYY  90.00


LF 2 Q ; STAB (101 100*#menge+1 100)     TYP PYY  40.00
LF 3 Q ; STAB (102 100*#menge+2 100)     TYP PYY  40.00
         STEL (102 100*#menge+2 100)     TYP PYY 284.00        A  4.0
LF 4 Q ; STAB (103 100*#menge+3 100)     TYP PYY  30.00


ENDE

PROG STAR2 urs:5
KOPF ZWEIFELDRIGER DURCHLAUFTRAEGER MIT KRAGARM
$ BEISPIEL EINES STAHLBETONTRAEGERS AUS EINEM INDUSTRIEBAU
STEU I ; LF 1,2,3,4
ENDE
ENDE


PROG MAXIMA urs:6
KOPF EXTREMWERTE BEMESSUNG
KOMB 1 DESI
ACT G
  LF 1
ACT Q
  LF 2,3,4
SUPP 1 EXTR MAMI ETYP STAB ZUST MY LF 111
SUPP 1 EXTR MAMI ETYP STAB ZUST VZ LF 113
ENDE

PROG AQB urs:7
KOPF ZWEIFELDRIGER DURCHLAUFTRAEGER MIT KRAGARM
$ BEISPIEL EINES STAHLBETONTRAEGERS AUS EINEM INDUSTRIEBAU
STEU VM 'STD'
LF 111,112,113,114
BEME BRUC
ENDE
ENDE

PROG MAXIMA urs:8
KOPF EXTREMWERTE VERKEHRSLAST
KOMB 1 STAN
LF 2,3,4 Q
SUPP 1 EXTR MAMI ETYP STAB ZUST MY LF 105
ENDE

PROG AQB urs:9
KOPF BEMESSUNG MIT EC2 UND BEMESSUNGSKOMBINATIONEN
LF 1   G
   105 L
   106 L
$
KOMB MAMI MY LF1 G 1.35 L 1.50
BEME BRUC
$
KOMB MAMI MY LF1 G 1.00 L 1.00
DEHN S0 KSV SL RW 0.3
ENDE
ENDE





+prog template urs:10   $ from Forum
kopf


<TEXT,FILE='Ausgaben0'.txt>
Text
</TEXT>


let#stab 103
let#CDB_IER 0
@key beam_sct 0 #stab
let#qnr_i @(nq) $ Querschinittsnummer

prt#stab
prt#qnr_i

  <TEXT,FILE=+'Ausgaben0'.txt>
  '#(#stab,1.0)';'#(#qnr_i,7.0)';
  </TEXT>

ende



+prog template urs:12  $ expanding Forum answer
kopf


<TEXT,FILE='Ausgaben1'.txt>
Text
</TEXT>

loop#i #menge
 loop#j 3

  let#stab 1+(1+#i)*100+#j
  let#CDB_IER 0
  @key beam_sct 0 #stab
  let#qnr_i @(nq) $ Querschinittsnummer


  <TEXT,FILE=+'Ausgaben1'.txt>
  '#(#stab,1.0)';'#(#qnr_i,7.0)';
  </TEXT>

$prt#stab
$prt#qnr_i
 endloop
endloop

ende


+prog template urs:11  $ closer to objective, with beam_foc
kopf


<TEXT,FILE='Ausgaben2'.txt>
Text
</TEXT>

loop#i #menge
 loop#j 10

  let#stab 1+(1+#i)*100+#j

   $ ob Stäb geht
   let#CDB_IER 0
   @key beam 0 #stab
   let#sNni @(nr)
   let#sL   @(dl)


  let#CDB_IER 0
  @key beam_sct 0 #stab
  let#iii @(id) $ ID
  let#qnr_i @(nq) $ Querschinittsnummer

   let#CDB_IER 0
   let#lf 2
   @key beam_foc #lf #stab
   let#sVy @(Vy)   $ [kN] Querkraft
   let#sVz @(Vz)   $ [kN] Querkraft
   let#sMt @(mt)   $ [kNm] Torsionsmoment
   let#sMy @(my)   $ [kNm] Biegemoment My


$   if (#sL>0)&(#qnr_i==#qnri) $ if-A
  if #sL>0 $ if-A

  <TEXT,FILE=+'Ausgaben2'.txt>
  '#(#stab,1.0)';'#(#sL,7.0)';'#(#qnr_i,7.0)'; '#(#iii,7.0)'; '#(#sVz,7.3)'; '#(#sMy,7.3)';
  </TEXT>

  endif $ if-A

$prt#stab
$prt#qnr_i
 endloop
endloop

ende