+PROG AQUA urs:1
kopf ETK-1_Querschnitts-Grunddefinition

!*! Allgemeine Parameter
 Norm dc EN 199X-200X                    $ Definition der Norm
 seit nrst 1                             $ Definition der Seitennummerierung
 echo opt voll wert extr                 $ Ausgabeumfang


!*! Definitionen der Materialien und der Arbeitslinien
 $ Betongüte
 beto nr 1  art C scm 1.00[-]  typr line
  $ Definition der Arbeitslinie für den Beton
  $ Gebrauchszustand
    arbl eps gebr sig 1.0
    arbl eps     0 sig     0 typ spl        $ Arbeitslinie aufgestellt nach EC2 Abs. 3.1.7
    arbl eps -0.50 sig -19.6 typ spl
    arbl eps -1.00 sig -33.7 typ spl
    arbl eps -1.50 sig -42.1 typ spl
    arbl eps -2.00 sig -44.9 typ spl
    arbl eps -3.50 sig -44.9 typ spl
  $ Bruchzustand
    arbl eps bruc  sig 1.0
    arbl eps     0 sig     0 typ spl        $ Arbeitslinie aufgestellt nach EC2 Abs. 3.1.7
    arbl eps -0.50 sig -19.6 typ spl
    arbl eps -1.00 sig -33.7 typ spl
    arbl eps -1.50 sig -42.1 typ spl
    arbl eps -2.00 sig -44.9 typ spl
    arbl eps -3.50 sig -44.9 typ spl
  $ Rechnerische Mittelwerte
    arbl eps rech  sig 1.0
    arbl eps     0 sig     0 typ spl        $ Arbeitslinie aufgestellt nach EC2 Abs. 3.1.7
    arbl eps -0.50 sig -19.6 typ spl
    arbl eps -1.00 sig -33.7 typ spl
    arbl eps -1.50 sig -42.1 typ spl
    arbl eps -2.00 sig -44.9 typ spl
    arbl eps -3.50 sig -44.9 typ spl

$ Betonstahl Durchmesser 8
 stah nr 10  art B scm0 1.00[-] scm1 1.00[-] scm2 1.00[-]
  $ Definition der Arbeitslinie für den Betonstahl
  $ Gebrauchszustand
    arbl eps gebr sig 1.0
    arbl eps -100 sig -586 typ pol
    arbl eps  -25 sig -586 typ pol
    arbl eps -2.0 sig -517 typ pol
    arbl eps    0 sig    0 typ pol
    arbl eps  2.0 sig  517 typ pol
    arbl eps   25 sig  586 typ pol
    arbl eps  100 sig  586 typ pol
  $ Bruchzustand
    arbl eps bruc sig 1.0
    arbl eps -100 sig -586 typ pol
    arbl eps  -25 sig -586 typ pol
    arbl eps -2.0 sig -517 typ pol
    arbl eps    0 sig    0 typ pol
    arbl eps  2.0 sig  517 typ pol
    arbl eps   25 sig  586 typ pol
    arbl eps  100 sig  586 typ pol
  $ Rechnerische Mittelwerte
    arbl eps rech sig 1.0
    arbl eps -100 sig -586 typ pol
    arbl eps  -25 sig -586 typ pol
    arbl eps -2.0 sig -517 typ pol
    arbl eps    0 sig    0 typ pol
    arbl eps  2.0 sig  517 typ pol
    arbl eps   25 sig  586 typ pol
    arbl eps  100 sig  586 typ pol

$ Betonstahl Durchmesser 12
 stah nr 11  art B scm0 1.00[-] scm1 1.00[-] scm2 1.00[-]
  $ Definition der Arbeitslinie für den Betonstahl
  $ Gebrauchszustand
    arbl eps gebr sig 1.0
    arbl eps -100 sig -612 typ pol
    arbl eps  -25 sig -612 typ pol
    arbl eps -2.0 sig -557 typ pol
    arbl eps    0 sig    0 typ pol
    arbl eps  2.0 sig  557 typ pol
    arbl eps   25 sig  612 typ pol
    arbl eps  100 sig  612 typ pol
  $ Bruchzustand
    arbl eps bruc sig 1.0
    arbl eps -100 sig -612 typ pol
    arbl eps  -25 sig -612 typ pol
    arbl eps -2.0 sig -557 typ pol
    arbl eps    0 sig    0 typ pol
    arbl eps  2.0 sig  557 typ pol
    arbl eps   25 sig  612 typ pol
    arbl eps  100 sig  612 typ pol
  $ Rechnerische Mittelwerte
    arbl eps rech sig 1.0
    arbl eps -100 sig -612 typ pol
    arbl eps  -25 sig -612 typ pol
    arbl eps -2.0 sig -557 typ pol
    arbl eps    0 sig    0 typ pol
    arbl eps  2.0 sig  557 typ pol
    arbl eps   25 sig  612 typ pol
    arbl eps  100 sig  612 typ pol

$ Betonstahl Durchmesser 16
 stah nr 12  art B scm0 1.00[-] scm1 1.00[-] scm2 1.00[-]
  $ Definition der Arbeitslinie für den Betonstahl
  $ Gebrauchszustand
    arbl eps gebr sig 1.0
    arbl eps -100 sig -613 typ pol
    arbl eps  -25 sig -613 typ pol
    arbl eps -2.0 sig -545 typ pol
    arbl eps    0 sig    0 typ pol
    arbl eps  2.0 sig  545 typ pol
    arbl eps   25 sig  613 typ pol
    arbl eps  100 sig  613 typ pol
  $ Bruchzustand
    arbl eps bruc sig 1.0
    arbl eps -100 sig -613 typ pol
    arbl eps  -25 sig -613 typ pol
    arbl eps -2.0 sig -545 typ pol
    arbl eps    0 sig    0 typ pol
    arbl eps  2.0 sig  545 typ pol
    arbl eps   25 sig  613 typ pol
    arbl eps  100 sig  613 typ pol
  $ Rechnerische Mittelwerte
    arbl eps rech sig 1.0
    arbl eps -100 sig -613 typ pol
    arbl eps  -25 sig -613 typ pol
    arbl eps -2.0 sig -545 typ pol
    arbl eps    0 sig    0 typ pol
    arbl eps  2.0 sig  545 typ pol
    arbl eps   25 sig  613 typ pol
    arbl eps  100 sig  613 typ pol

$ Betonstahl Durchmesser 20
 stah nr 13 art B  scm 1.00[-] scm0 1.00[-] scm1 1.00[-] scm2 1.00[-]
  $ Definition der Arbeitslinie für den Betonstahl
  $ Gebrauchszustand
    arbl eps gebr sig 1.0
    arbl eps -100 sig -613 typ pol
    arbl eps  -25 sig -613 typ pol
    arbl eps -2.0 sig -514 typ pol
    arbl eps    0 sig    0 typ pol
    arbl eps  2.0 sig  514 typ pol
    arbl eps   25 sig  613 typ pol
    arbl eps  100 sig  613 typ pol
  $ Bruchzustand
    arbl eps bruc sig 1.0
    arbl eps -100 sig -613 typ pol
    arbl eps  -25 sig -613 typ pol
    arbl eps -2.0 sig -514 typ pol
    arbl eps    0 sig    0 typ pol
    arbl eps  2.0 sig  514 typ pol
    arbl eps   25 sig  613 typ pol
    arbl eps  100 sig  613 typ pol
  $ Rechnerische Mittelwerte
    arbl eps rech sig 1.0
    arbl eps -100 sig -613 typ pol
    arbl eps  -25 sig -613 typ pol
    arbl eps -2.0 sig -514 typ pol
    arbl eps    0 sig    0 typ pol
    arbl eps  2.0 sig  514 typ pol
    arbl eps   25 sig  613 typ pol
    arbl eps  100 sig  613 typ pol

$ Spannstahl 1570/1770
 stah nr 20 art Y  scm 1.00[-] scm0 1.00[-] scm1 1.00[-] scm2 1.00[-]
  $ Definition der Arbeitslinie für den Spannstahl
  $ Gebrauchszustand
    arbl eps gebr sig 1.0
    arbl eps  -35.0 sig -2026 typ pol
    arbl eps  -15.0 sig -2026 typ pol
    arbl eps   -2.0 sig -1802 typ pol
    arbl eps   -1.0 sig -1779 typ pol
    arbl eps      0 sig     0 typ pol
    arbl eps    1.0 sig  1779 typ pol
    arbl eps    2.0 sig  1802 typ pol
    arbl eps   15.0 sig  2026 typ pol
    arbl eps   35.0 sig  2026 typ pol

  $ Bruchzustand
    arbl eps bruc  sig 1.0
    arbl eps  -35.0 sig -2026 typ pol
    arbl eps  -15.0 sig -2026 typ pol
    arbl eps   -2.0 sig -1802 typ pol
    arbl eps   -1.0 sig -1779 typ pol
    arbl eps      0 sig     0 typ pol
    arbl eps    1.0 sig  1779 typ pol
    arbl eps    2.0 sig  1802 typ pol
    arbl eps   15.0 sig  2026 typ pol
    arbl eps   35.0 sig  2026 typ pol

  $ Rechnerische Mittelwerte
    arbl eps rech  sig 1.0
    arbl eps  -35.0 sig -2026 typ pol
    arbl eps  -15.0 sig -2026 typ pol
    arbl eps   -2.0 sig -1802 typ pol
    arbl eps   -1.0 sig -1779 typ pol
    arbl eps      0 sig     0 typ pol
    arbl eps    1.0 sig  1779 typ pol
    arbl eps    2.0 sig  1802 typ pol
    arbl eps   15.0 sig  2026 typ pol
    arbl eps   35.0 sig  2026 typ pol

!*! Rand-Querschnitt          ------------------------------------------------------------------------------------------------------------------------------
 qnr nr 1 mnr 1 mbwl 11 zsym ja btyp beam bez 'Rand-QS'
 #define Grundwerte
   qpol art u mnr 1
   $ QS-Abmessungen
   qp nr 1 y    0[mm] z   0[mm]   $ Polygenpunkte in absoluten Punkte
   qp nr 2 y  400[mm] z   0[mm]   $ Platte oben links
   qp nr 3 y  400[mm] z 150[mm]   $ Platte unten links
   qp nr 4 y  300[mm] z 150[mm]   $ Steg oben links
   qp nr 5 y  300[mm] z 800[mm]   $ Steg unten links
   qp nr 6 y -300[mm] z 800[mm]   $ Steg unten rechts
   qp nr 7 y -300[mm] z 150[mm]   $ Steg oben rechts
   qp nr 8 y -400[mm] z 150[mm]   $ Platte unten rechts
   qp nr 9 y -400[mm] z   0[mm]   $ Platte oben rechts

   $ Bewehrung
   rang nr 1 tid 'oben Platte'  typ min mbw 12  $ Obere Bewehrungslage der Platte
   rang nr 2 tid 'unten Platte' typ min mbw 12  $ Untere Bewehrungslage der Platte
   rang nr 3 tid 'unten Steg'   typ min mbw 12  $ Bewehrung Steg
 #enddef  Grundwerte
 #include Grundwerte
   $ Obere Bewehrungslage der Platte - Rang 1
   lbew nr 1 ya 354[mm] za  46[mm] ye -354[mm] ze  46[mm] as 16.1[cm2] rang 1 mbw 12 tors pass d 16[mm] a 8[-] dist full   $ Achse der Längsbewehrung
   $ Untere Behwerungslage der Platte - Rang 2
   lbew nr 2 ya 354[mm] za 104[mm] ye -354[mm] ze 104[mm] as 16.1[cm2] rang 2 mbw 12 tors pass d 16[mm] a 8[-] dist full   $ Achse der Längsbewehrung
   $ Bewehrung Steg - Rang 3
   lbew nr 3 ya 175[mm] za 750[mm] ye -175[mm] ze 750[mm] as 6.03[cm2] rang 3 mbw 12 tors pass d 16[mm] a 3[-] dist full   $ Achse der Längsbewehrung

!*! Feld-Querschnitt          ------------------------------------------------------------------------------------------------------------------------------
 qnr nr 2 mnr 1 mbwl 10 zsym ja btyp beam  bez 'Feld-QS'
 #define Grundwerte
   qpol art u mnr 1
   $ QS-Abmessungen
   qp nr 1 y    0[mm] z   0[mm]   $ Polygenpunkte in absoluten Punkte
   qp nr 2 y  400[mm] z   0[mm]   $ Platte oben links
   qp nr 3 y  400[mm] z 150[mm]   $ Platte unten links
   qp nr 4 y  175[mm] z 150[mm]   $ Steg oben links
   qp nr 5 y  175[mm] z 800[mm]   $ Steg unten links
   qp nr 6 y -175[mm] z 800[mm]   $ Steg unten rechts
   qp nr 7 y -175[mm] z 150[mm]   $ Steg oben rechts
   qp nr 8 y -400[mm] z 150[mm]   $ Platte unten rechts
   qp nr 9 y -400[mm] z   0[mm]   $ Platte oben rechts

   $ Bewehrung
   rang nr 1 tid 'oben Platte'  typ min mbw 12   $ Obere Bewehrungslage der Platte
   rang nr 2 tid 'unten Platte' typ min mbw 12   $ Untere Bewehrungslage der Platte
   rang nr 3 tid 'unten Steg'   typ min mbw 12   $ Bewehrung Steg
 #enddef Grundwerte
 #include Grundwerte

   $ Obere Bewehrungslage der Platte - Rang 1
   lbew nr 1 ya 354[mm] za  46[mm] ye -354[mm] ze  46[mm] as 16.1[cm2] rang m1 mbw 12 tors pass d 16[mm] a 8[-] dist full   $ Achse der Längsbewehrung
   $ Untere Behwerungslage der Platte - Rang 2
   lbew nr 2 ya 354[mm] za 104[mm] ye -354[mm] ze 104[mm] as 16.1[cm2] rang m2 mbw 12 tors pass d 16[mm] a 8[-] dist full   $ Achse der Längsbewehrung
   $ Bewehrung Steg - Rang 3
   lbew nr 3 ya 129[mm] za 754[mm] ye -129[mm] ze 754[mm] as 6.03[cm2] rang m3 mbw 12 tors pass d 16[mm] a 3[-] dist full   $ Achse der Längsbewehrung

!*! Träger Stütz-Querschnitt ------------------------------------------------------------------------------------------------------------------------------
 qnr nr 3 mnr 1 mbwl 11 zsym ja btyp beam  bez 'Stütz-QS'
 #define Grundwerte
   qpol art u mnr 1
   $ QS-Abmessungen
   qp nr 1 y    0[mm] z   0[mm]   $ Polygenpunkte in absoluten Punkte
   qp nr 2 y  400[mm] z   0[mm]   $ Platte oben links
   qp nr 3 y  400[mm] z 150[mm]   $ Platte unten links
   qp nr 4 y  175[mm] z 150[mm]   $ Steg oben links
   qp nr 5 y  175[mm] z 800[mm]   $ Steg unten links
   qp nr 6 y -175[mm] z 800[mm]   $ Steg unten rechts
   qp nr 7 y -175[mm] z 150[mm]   $ Steg oben rechts
   qp nr 8 y -400[mm] z 150[mm]   $ Platte unten rechts
   qp nr 9 y -400[mm] z   0[mm]   $ Platte oben rechts

   $ Bewehrung
   rang nr 1 tid 'oben Platte'  typ min mbw 12    $ Obere Bewehrungslage der Platte
   rang nr 2 tid 'unten Platte' typ min mbw 12    $ Untere Bewehrungslage der Platte
   rang nr 3 tid 'unten Steg'   typ min mbw 12    $ Bewehrung Steg
   rang nr 4 tid 'Zulagen'      typ min mbw 13    $ Zulagen im Stützbereich
 #enddef Grundwerte
 #include Grundwerte

   $ Obere Bewehrungslage der Platte
   lbew nr 1 ya  354[mm] za  46[mm] ye -354[mm] ze  46[mm] as 16.1[cm2] rang m1 mbw 12 tors pass d 16[mm] a 8[-] dist full
   $ Untere Behwerungslage der Platte
   lbew nr 2 ya  354[mm] za 104[mm] ye -354[mm] ze 104[mm] as 16.1[cm2] rang m2 mbw 12 tors pass d 16[mm] a 8[-] dist full
   $ Bewehrung Steg
   lbew nr 3 ya  125[mm] za 750[mm] ye -125[mm] ze 750[mm] as 6.03[cm2] rang m3 mbw 12 tors pass d 16[mm] a 3[-] dist full
   $ Zulagen im Stützbereich
   bew nr 1 y  70[mm] z 748[mm] as 3.14[cm2] asma 3.14[cm2] rang m4 mbw 13 tors pass d 20[mm]
   bew nr 2 y -70[mm] z 748[mm] as 3.14[cm2] asma 3.14[cm2] rang m4 mbw 13 tors pass d 20[mm]

!*! Definition der Teilsicherheitsbeiwerte
 tvar name gam-ce val 1.0 scop desi
 tvar name gam-c  val 1.0 scop desi
 tvar name gam-y  val 1.0 scop desi
 tvar name gam-b  val 1.0 scop desi
 tvar name alf-ce val 1.0 scop desi
 tvar name alf-ce val 1.0 scop desi
ende

+Prog sofimshc urs:2
kopf ETK-1_Strukturgenerierung des Systems
syst art 3d gdiv 1000 gdir posz                 $ Elementnummern von 0 bis 999, Eigengewicht in positiver z-Achse
echo voll wert voll

$Vernetzung
 steu mesh 1                                    $ activate meshing of structrual system into beam elements
 steu hmin wert 0.25[m]                         $ mesh size: maximum length of beam elements - Elementlänge 0.25[m]

!*! Definition der Strukturpunkte
 spt nr 1  x 0.000 y 0.0 z 0.0                    $ Kragarm Beginn--Rand-QS-Beginn
 spt nr 2  x 0.500 y 0.0 z 0.0                    $ Einzellast im Bereich des Kragarms--Beginn des Variablen-QS
 spt nr 3  x 1.000 y 0.0 z 0.0                    $ Beginn des Stütz-QS
 spt nr 4  x 2.500 y 0.0 z 0.0 fix XPMXMZ         $ Auflager 1
 spt nr 5  x 4.000 y 0.0 z 0.0                    $ Ende des Stütz QS--Feld-QS-Beginn
 spt nr 6  x 10.00 y 0.0 z 0.0                    $ Beginn des Variablen-QS
 spt nr 7  x 10.50 y 0.0 z 0.0                    $ Beginn des Rand-QS
 spt nr 8  x 10.75 y 0.0 z 0.0 fix PXPZ           $ Auflager 2


!*! Definition der Strukturlinien
 sln nr 1  npa 1  npe 2  qnr 2   grp 1              $ Rand-QS
 sln nr 2  npa 2  npe 3  qnr 2   grp 1              $ Variabler-QS
 sln nr 3  npa 3  npe 4  qnr 3   grp 1              $ Stütz-QS
 sln nr 4  npa 4  npe 5  qnr 3   grp 1              $ Stütz-QS
 sln nr 5  npa 5  npe 6  qnr 2   grp 1              $ Feld-QS
 sln nr 6  npa 6  npe 7  qnr 2   grp 1              $ Variabler-QS
 sln nr 7  npa 7  npe 8  qnr 2   grp 1              $ Rand-QS

$ Gruppenbezeichunung
 grup nr 1 bez 'Gruppe 1'
 sln nr 1-7

$ Spannglied 1
 gax id 'AX1' typ axis bez 'Achse1'
 gaxa s 0 x 0 y  0.10[m] sx 1 sy 0 l 10.75[m]
$ Spannglied 2
 gax id 'AX2' typ axis bez 'Achse2'
 gaxa s 0 x 0 y -0.10[m] sx 1 sy 0 l 10.75[m]
ende

+Prog tendon urs:3
kopf  ETK-1_Spanngliedführung

!*! Allgemeine Parameter
 echo opt voll  wert voll
$ tendon plots:
 schr h2 0.18
 echo plot voll
 plot geoa nr 0 fakh 10 typg dute anz 1         $ 0 = all tendons
 plot fakt nr 0 fakh 10

$ Systemwerte der beiden Spannglieder
 sysp nrsv 1 mat 20 zv 800[kN] az 700[mm2] litz 5 minr 4.8[m] beta 0.00 mue 0.0 exz 0.0 ss 0[mm] da 62[mm] di 55[mm] vf 0 vk 0 vs 0

!*! Spannglied 1
 axes nrh 1 typ refx val1 'AX1'
 sgeo nrg 1 nrh 1 nrsv 1

 $ Geometrie des ersten Spanngliedes
 zpuv s x v u typ=knot
s 1    v 0.390  u 0
s 1000 v 0.350  u 0
s 2    v 0.315  u 0
s 1001 v 0.285  u 0
s 3    v 0.250  u 0
s 1002 v 0.225  u 0
s 1003 v 0.200  u 0
s 1004 v 0.190  u 0
s 1005 v 0.180  u 0
s 1006 v 0.178  u 0
s 4    v 0.180  u 0
s 1007 v 0.187  u 0
s 1008 v 0.207  u 0
s 1009 v 0.225  u 0
s 1010 v 0.242  u 0
s 1011 v 0.272  u 0
s 5    v 0.300  u 0
s 1012 v 0.330  u 0
s 1013 v 0.360  u 0
s 1014 v 0.400  u 0
s 1015 v 0.430  u 0
s 1016 v 0.460  u 0
s 1017 v 0.490  u 0
s 1018 v 0.533  u 0
s 1019 v 0.562  u 0
s 1020 v 0.590  u 0
s 1021 v 0.614  u 0
s 1022 v 0.636  u 0
s 1023 v 0.656  u 0
s 1024 v 0.673  u 0
s 1025 v 0.686  u 0
s 1026 v 0.689  u 0
s 1027 v 0.689  u 0
s 1028 v 0.682  u 0
s 1029 v 0.671  u 0
s 1030 v 0.659  u 0
s 1031 v 0.646  u 0
s 1032 v 0.630  u 0
s 1033 v 0.612  u 0
s 1034 v 0.591  u 0
s 6    v 0.567  u 0
s 1035 v 0.539  u 0
s 7    v 0.510  u 0
s 8    v 0.480  u 0



$ Vorspannen des ersten Spanngliedes
 cs iba1 10 iba2 11
 vsig art re k3 905[kN] k4 905[kN]

tend nrs 1 nrg 1 nsp 1 svon 0.00[m] sbis 10.75[m] LF=2 LF0=0 typ knot

!*! Spannglied 2
axes nrh 2 typ refx val1 'AX2'
sgeo nrg 2 nrh 2 nrsv 1

$ Geometrie des zweiten Spanngliedes
 zpuv s x v u typ=knot
s 1    v 0.390  u 0
s 1000 v 0.350  u 0
s 2    v 0.315  u 0
s 1001 v 0.285  u 0
s 3    v 0.250  u 0
s 1002 v 0.225  u 0
s 1003 v 0.200  u 0
s 1004 v 0.190  u 0
s 1005 v 0.180  u 0
s 1006 v 0.178  u 0
s 4    v 0.180  u 0
s 1007 v 0.187  u 0
s 1008 v 0.207  u 0
s 1009 v 0.225  u 0
s 1010 v 0.242  u 0
s 1011 v 0.272  u 0
s 5    v 0.300  u 0
s 1012 v 0.330  u 0
s 1013 v 0.360  u 0
s 1014 v 0.400  u 0
s 1015 v 0.430  u 0
s 1016 v 0.460  u 0
s 1017 v 0.490  u 0
s 1018 v 0.533  u 0
s 1019 v 0.562  u 0
s 1020 v 0.590  u 0
s 1021 v 0.614  u 0
s 1022 v 0.636  u 0
s 1023 v 0.656  u 0
s 1024 v 0.673  u 0
s 1025 v 0.686  u 0
s 1026 v 0.689  u 0
s 1027 v 0.689  u 0
s 1028 v 0.682  u 0
s 1029 v 0.671  u 0
s 1030 v 0.659  u 0
s 1031 v 0.646  u 0
s 1032 v 0.630  u 0
s 1033 v 0.612  u 0
s 1034 v 0.591  u 0
s 6    v 0.567  u 0
s 1035 v 0.539  u 0
s 7    v 0.510  u 0
s 8    v 0.480  u 0

$ Vorspannen nach Spannung
 cs iba1 10 iba2 11
 vsig art li k3 905[kN] k4 905[kN]

 tend nrs 2 nrg 2 nsp 1 svon 0 sbis 10.75[m] LF=2 LF0=0 typ knot

$ Definition der Teilsicherheitsbeiwert
 tvar name gam-ce val 1.0 scop desi
 tvar name gam-c  val 1.0 scop desi
 tvar name gam-y  val 1.0 scop desi
 tvar name gam-b  val 1.0 scop desi
 tvar name alf-ce val 1.0 scop desi
 tvar name alf-ct val 1.0 scop desi
ende

+Prog sofiload urs:4
kopf ETK-1_Lastendefinition
 act typ G gamu 1.00 gamf 1.00 psi0 1.00 psi1 1.00 psi2 1.00 ps1s 1.00 gama 1.00 part g  bez 'Eigengewicht'     $ Einwirkung Eigengewicht
 act typ P gamu 1.00 gamf 1.00 psi0 1.00 psi1 1.00 psi2 1.00 ps1s 1.00 gama 1.00 part p  bez 'Vorspannung'      $ Einwirkung Vorspannung
 act typ Q gamu 1.00 gamf 0.00 psi0 1.00 psi1 1.00 psi2 1.00 ps1s 1.00 gama 1.00 part q  bez 'Lasten'           $ Einwirkung Belastung

!*! Lastfälle
 lf nr 1 typ G fakt 1.0 fakg 1.0 bez 'Eigengewicht'   $ Lastfall Eigengewicht
 lf nr 3 typ Q fakt 1.0 fakg 0.0 bez 'Lasten'         $ Lastfall Belastung


$ Eingabe der Lastwerte der Einzellasten
 poin ref node nr 2 p 1200
 stab von 1011 bis 1043 pa 204 pe 204 l 8.25 typ pz  eza 0 eze 0
ende

+Prog csm urs:13
kopf ETK-1_Bauablauf
 ba 1  typ g_1  bez 'Betonträger erhärtet'
 ba 10 typ p    bez 'Vorspannung'
 ba 20 typ g_2  bez 'Aufbringung Lasten'
 grup all
 lf    nr  iba1  wbis   $ nur Zusatzlasten ! Vorspannlastfälle werden automatisch eingehängt!  only additional loads !
       3    20    -
ende

!*! Berechung des Eigengewichts ------------------------------------------------------------------------------------------------------------------------------
+Prog ase urs:5
kopf ETK-1_Berechnung des Eigengewichts
 steu opt warp
 lf 1
ende

+Prog sofiload urs:6
kopf ETK-1_Berechnung des Eigengewichts
 echo voll
 lf 1010 typ (P) bez 'G'
 copy nr 1 fakt 1.0
ende

+Prog ase urs:7
kopf ETK-1_Berechnung des Eigengewichts
 steu opt warp 0
 lf 1010
ende

+prog aqb urs:26 $ LF 1010: Eigengewicht
kopf ETK-1_Berechnung des Eigengewichts
 echo dehn comp
 steu opt achs -1
 lf 1010
dehn kmod gebr ksv sl ksb sl

$ Definition der Teilsicherheitsbeiwerte
 tvar name gam-ce val 1.0 scop desi
 tvar name gam-c  val 1.0 scop desi
 tvar name gam-y  val 1.0 scop desi
 tvar name gam-b  val 1.0 scop desi
 tvar name alf-ce val 1.0 scop desi
 tvar name alf-ct val 1.0 scop desi
ende

!*! Berechung der Vorspannung ------------------------------------------------------------------------------------------------------------------------------

 +Prog ase urs:8 $ LF 1011: Vorspannung verpresst (BA 11 gemäß TENDON)
 kopf Versuchsträger ETK 1 - Berechnung der kombinierten Lastfälle
 echo dehn voll
 steu opt warp wert 0
 steu opt achs -1
 syst prob nonl iter 100 nmat -
 grup ba 11  $ Aktivierung Querschnitts-Bauzustand 11 (verpresst)
 lf 1011 bez 'verpresst'    ; lc 2 fakt 1.0
 dehn kmod s1 ksv sl ksb sl

$ Definition der Teilsicherheitsbeiwerte
 tvar name gam-ce val 1.0 scop desi
 tvar name gam-c  val 1.0 scop desi
 tvar name gam-y  val 1.0 scop desi
 tvar name gam-b  val 1.0 scop desi
 tvar name alf-ce val 1.0 scop desi
 tvar name alf-ct val 1.0 scop desi
ende


!*! Berechung der Aufgebrachten Lasten ------------------------------------------------------------------------------------------------------------------------------
+Prog ase urs:12
kopf ETK-1_Berechnung der aufgebrachten Lasten
 steu opt warp
 lf 3
ende

+Prog sofiload urs:9
kopf ETK-1_Berechnung der aufgebrachten Lasten
 echo voll
 lf 1012 typ (P) bez 'Q'
 copy nr 3 fakt 1.0
ende

+Prog ase urs:10
kopf ETK-1_Berechnung der aufgebrachten Lasten
 steu opt warp 0
 lf 1012
ende

+prog aqb urs:11 $ LF 1012: Lasten
kopf ETK-1_Berechnung der aufgebrachten Lasten
 echo dehn comp
 steu opt achs -1
 lf 1012
dehn kmod gebr ksv sl ksb sl

!*! Definition der Teilsicherheitsbeiwerte
 tvar name gam-ce val 1.0 scop desi
 tvar name gam-c  val 1.0 scop desi
 tvar name gam-y  val 1.0 scop desi
 tvar name gam-b  val 1.0 scop desi
 tvar name alf-ce val 1.0 scop desi
 tvar name alf-ct val 1.0 scop desi
ende

!*! Kombination der Lasten ------------------------------------------------------------------------------------------------------------------------------
+Prog sofiload urs:14
kopf ETK-1_Kombination der Lasten
 echo voll
 lf 1015 typ (P) bez 'G+P+Q'
 copy nr 1010 fakt 1.0
 copy nr 1011 fakt 1.0
 copy nr 1012 fakt 1.0
ende

+Prog ase urs:15
kopf ETK-1_Kombination der Lasten
 steu opt warp 0
 steu opt achs -1
 syst prob nonl iter 100 nmat -
 grup ba 20
 lf 1001 bez 'Alle Lasten'   ;    lc 1015 fakt 1.0
 dehn kmod s1 ksv sl ksb sl
ende

$ Definition der Teilsicherheitsbeiwerte
 tvar name gam-ce val 1.0 scop desi
 tvar name gam-c  val 1.0 scop desi
 tvar name gam-y  val 1.0 scop desi
 tvar name gam-b  val 1.0 scop desi
 tvar name alf-ce val 1.0 scop desi
 tvar name alf-ct val 1.0 scop desi
ende