+sys del $(Projekt).cdb

$ prog
#define L=(30)
#define R=(65)
#define f=($(R)-SQR($(R)*$(R)-$(l)*$(l)/4))
#define alpha=(2*ASIN($(L)/(2*$(R))))
#define lbog=(ARC($(alpha))*$(R))

#define B=(3.25)
#define sb=(0.25)
#define sh=(0.55)
#define pb1=(0.40)
#define pb2=(0.45)
#define pb3=(0.40)

#define rb=(0.2)
#define bfl=(3.0)
#define bfb=(1.3)

!#!Kapitel Querschnitte

+prog aqua urs:1 $ Querschnitte
kopf Querschnitte
echo voll voll
echo mat  ja
$steu  bewq 0
$ Norm
norm EN 1992-2004 Cat C
$norm EN 1993-2005
$norm DIN 18800
$ Material
BETO  nr 1  art C FCN 100 BEZ "UHPFRC"
STAH  nr 2  art Y fy 1520 ft 1770 GAM 0 BEZ 'Spannstahl'
STAH  nr 3  art Y fy 1300 ft 1570 ES 160000  BEZ 'Zugband'

$ Querschnitte
unit type 3
SEIL NR 2 D 140 TYP PV-910 MNR 3
QNR  NR 1 BEZ 'UHPC-Querschnitt' MNR 1 MBW - MBWL -
$ba 10
QPOL U
QP   NR         Y                                      Z
     11        -$(B)/2-$(sb)/2                        -0.2
     12        -$(B)/2+$(sb)/2                        -0.2
     13        -$(B)/2+$(sb)/2                         0.0
     14        +$(B)/2-$(sb)/2                         0.0
     15        +$(B)/2-$(sb)/2                        -0.2
     16        +$(B)/2+$(sb)/2                        -0.2
     17        +$(B)/2+$(sb)/2                         0.35
     18        +$(B)/2-$(sb)/2                         0.35
     19        +$(B)/2-$(sb)/2                         0.1
     20        +$(B)/2-$(sb)/2-$(pb1)                  0.06
     21        +$(B)/2-$(sb)/2-$(pb1)-$(pb2)           0.06
     22        +$(B)/2-$(sb)/2-$(pb1)-$(pb2)-$(pb3)    0.1
     23        0.175                                   0.25
     23       -0.175                                   0.25
     24        -$(B)/2+$(sb)/2+$(pb1)+$(pb2)+$(pb3)    0.1
     25        -$(B)/2+$(sb)/2+$(pb1)+$(pb2)           0.06
     26        -$(B)/2+$(sb)/2+$(pb1)                  0.06
     27        -$(B)/2+$(sb)/2                         0.1
     28        -$(B)/2+$(sb)/2                         0.35
     29        -$(B)/2-$(sb)/2                         0.35


$STEU hmin 10.0 ;

ende


+PROG SOFIMSHA urs:2
SYST RAUM  GDIR POSZ  GDIV 1000

let#l $(L)
let#R $(R)

KNOT  NR    X          Z                                                     FIX    Y=0
      101   #l*0/12    SQR(#R*#R-#l*6/6*#l*6/6/4)-SQR(#R*#R-#l*6/6*#l*6/6/4) ppmx
      102   #l*1/12    SQR(#R*#R-#l*6/6*#l*6/6/4)-SQR(#R*#R-#l*5/6*#l*5/6/4) -
      103   #l*2/12    SQR(#R*#R-#l*6/6*#l*6/6/4)-SQR(#R*#R-#l*4/6*#l*4/6/4) -
      104   #l*3/12    SQR(#R*#R-#l*6/6*#l*6/6/4)-SQR(#R*#R-#l*3/6*#l*3/6/4) -
      105   #l*4/12    SQR(#R*#R-#l*6/6*#l*6/6/4)-SQR(#R*#R-#l*2/6*#l*2/6/4) -
      106   #l*5/12    SQR(#R*#R-#l*6/6*#l*6/6/4)-SQR(#R*#R-#l*1/6*#l*1/6/4) -
      107   #l*6/12    SQR(#R*#R-#l*6/6*#l*6/6/4)-SQR(#R*#R-#l*0/6*#l*0/6/4) -
      108   #l*7/12    SQR(#R*#R-#l*6/6*#l*6/6/4)-SQR(#R*#R-#l*1/6*#l*1/6/4) -
      109   #l*8/12    SQR(#R*#R-#l*6/6*#l*6/6/4)-SQR(#R*#R-#l*2/6*#l*2/6/4) -
      110   #l*9/12    SQR(#R*#R-#l*6/6*#l*6/6/4)-SQR(#R*#R-#l*3/6*#l*3/6/4) -
      111   #l*10/12   SQR(#R*#R-#l*6/6*#l*6/6/4)-SQR(#R*#R-#l*4/6*#l*4/6/4) -
      112   #l*11/12   SQR(#R*#R-#l*6/6*#l*6/6/4)-SQR(#R*#R-#l*5/6*#l*5/6/4) -
      113   #l*12/12   SQR(#R*#R-#l*6/6*#l*6/6/4)-SQR(#R*#R-#l*6/6*#l*6/6/4) ppmx


grup 1
STAB  NR    KA    KE   QNR TEIL=4
      1001   101   102  1
      1002   102   103  1
      1003   103   104  1
      1004   104   105  1
      1005   105   106  1
      1006   106   107  1
      1007   107   108  1
      1008   108   109  1
      1009   109   110  1
      1010   110   111  1
      1011   111   112  1
      1012   112   113  1



grup 2
SEIL  NR    KA    KE   QNR
      2013  101   113  2

grup 3
FEDE  NR    KA    DX   CP
      3013  113   1    4E4
ende

+prog sofimshc urs:4
kopf Definition einer Achse
GAX ID A001 TYP TEND
GAXB R $(R) x1 0 y1 0 z1 0 x2 $(L) y2 0 z2 0 x3 $(L)/2 y3 0 z3 -$(f)
GAXP ID A001 IDS 0  S $(lbog)/10*1  TYP='J' SPT 101 GRP 1
GAXP ID A001 IDS 0  S $(lbog)/10*2  TYP='J' SPT 102 GRP 1
GAXP ID A001 IDS 0  S $(lbog)/10*3  TYP='J' SPT 103 GRP 1
GAXP ID A001 IDS 0  S $(lbog)/10*4  TYP='J' SPT 104 GRP 1
GAXP ID A001 IDS 0  S $(lbog)/10*5  TYP='J' SPT 105 GRP 1
GAXP ID A001 IDS 0  S $(lbog)/10*6  TYP='J' SPT 106 GRP 1
GAXP ID A001 IDS 0  S $(lbog)/10*7  TYP='J' SPT 107 GRP 1
GAXP ID A001 IDS 0  S $(lbog)/10*8  TYP='J' SPT 108 GRP 1
GAXP ID A001 IDS 0  S $(lbog)/10*9  TYP='J' SPT 109 GRP 1

ende

!#!Kapitel Vorspannung Alternativ
+prog tendon urs:19
kopf


SYSP NRSV FIRM ZULG NR MAT   ZV       AZ    LITZ MINR   BETA  MUE EXZ  SS     DA

      1 SUSP  ETA  0  3 3848[kN] 2850[mm2] 19 6.50[m] 0.3 0.21 4[mm] 3[mm] 97[mm] $ csm31_beam 19 wires


$ Spannglieder mitte (100%)
$ Bezugsspur
axes nrh 1 typ refx val1 A001 art stab

$ Splinegeometrie
sgeo nrg 1 nrh 1 nrsv 1

$ Zwangspunkte für Splinegeometrie
zpuv s       u        v     typ=refx
     0       0.0     0.072
     $(lbog) 0.0     0.072

$$ Splinegeometrie
$sgeo nrg 2 nrh 1 nrsv 1

$$ Zwangspunkte für Splinegeometrie
$zpuv s       u         v     typ=refx
$     0       -0.075    0.1
$     $(lbog) -0.075    0.1

$ Angaben zum Bauablauf
cs iba1 11 iba2 12   $ Spannglied im BA 11 bis 12
vsig art li anws as $ k1 0.8 k2 0.9 k3 0.75 k4 0.85  $ Aufbringung der Vorspannkraft
tend nrs 1 nrg 1 nsp 1 svon 0.0 sbis 0.0 lf 2
$tend nrs 2 nrg 2 nsp 1 svon 0.0 sbis 0.0 lf 2
$--------------------------------------------------
$ Spannglieder links (100%)
$ Bezugsspur
axes nrh 2 typ refx val1 A001 art stab

$ Splinegeometrie
sgeo nrg 2 nrh 2 nrsv 2

$ Zwangspunkte für Splinegeometrie
zpuv s       u          v   typ=refx
     0       -$(B)/2    0.072
     $(lbog) -$(B)/2    0.072

$$ Splinegeometrie
$sgeo nrg 4 nrh 2 nrsv 1

$$ Zwangspunkte für Splinegeometrie
$zpuv s       u            v   typ=refx
$     0       -$(B)/2      0
$     $(lbog) -$(B)/2      0

$ Angaben zum Bauablauf
cs iba1 11 iba2 12   $ Spannglied im BA 11 bis 12
vsig art li anws as  $ Aufbringung der Vorspannkraft
tend nrs 2 nrg 2 nsp 1 svon 0.0 sbis 0.0 lf 2
$tend nrs 4 nrg 4 nsp 1 svon 0.0 sbis 0.0 lf 2

$--------------------------------------------------
$ Spannglieder rechts (100%)
$ Bezugsspur
axes nrh 3 typ refx val1 A001 art stab

$ Splinegeometrie
sgeo nrg 3 nrh 3 nrsv 2

$ Zwangspunkte für Splinegeometrie
zpuv s       u         v   typ=refx
     0       $(B)/2    0.072
     $(lbog) $(B)/2    0.072


$$ Splinegeometrie
$sgeo nrg 6 nrh 3 nrsv 1

$$ Zwangspunkte für Splinegeometrie
$zpuv s       u           v   typ=refx
$     0       $(B)/2      0
$     $(lbog) $(B)/2      0


$ Angaben zum Bauablauf
cs iba1 11 iba2 12   $ Spannglied im BA 11 bis 12
vsig art li anws as  $ Aufbringung der Vorspannkraft
tend nrs 3 nrg 3 nsp 1 svon 0.0 sbis 0.0 lf 2
$tend nrs 6 nrg 6 nsp 1 svon 0.0 sbis 0.0 lf 2

$ PRINT
SEIT NRST -1 SPRA 0 UNIA 0
SIZE DINA 2  M 0     FORM stan    rand nein $ w 29.7 h 21
ECHO VOLL
STEU WARN 191
FARB F9  6010 $ 2301
     F6  2004 $ 4004
     f11 5235 $ 0

SCHR H1 0.8 $ H6 0.3

PLOT GEOA NR 1,2,3,4,5,6   FAKH 3  TYPG DUCT ANZ 2
PLOT GEOG NR 1,2,3,4,5,6   TYPG DUCT ANZ 2
PLOT FAKT NR 1,2,3,4,5,6   FAKH 50   ANZ 4


ende
!#!Kapitel Vorspannung
+prog tendon urs:10

$ -------------------------------------------------------------------------------------------------
$ Spannverfahren (aus SSD Task Spannverfahren kopieren)
SYSP NRSV 1 FIRM SUSP ZULG ETA NR 9  MAT 3
$Sysp Nrsv 2 FIRM SUSP ZULG ETA NR 12 MAT 3
$ -------------------------------------------------------------------------------------------------

$ Spannglieder mitte (100%)
$ Bezugsspur
axes nrh 1 typ refx val1 A001 art stab

$ Splinegeometrie
sgeo nrg 1 nrh 1 nrsv 1

$ Zwangspunkte für Splinegeometrie
zpuv s       u        v     typ=refx
     0       0.0     0.072
     $(lbog) 0.0     0.072

$$ Splinegeometrie
$sgeo nrg 2 nrh 1 nrsv 1

$$ Zwangspunkte für Splinegeometrie
$zpuv s       u         v     typ=refx
$     0       -0.075    0.1
$     $(lbog) -0.075    0.1

$ Angaben zum Bauablauf
cs iba1 11 iba2 12   $ Spannglied im BA 11 bis 12
vsig art li anws as $ k1 0.8 k2 0.9 k3 0.75 k4 0.85  $ Aufbringung der Vorspannkraft
tend nrs 1 nrg 1 nsp 1 svon 0.0 sbis 0.0 lf 2
$tend nrs 2 nrg 2 nsp 1 svon 0.0 sbis 0.0 lf 2
$--------------------------------------------------
$ Spannglieder links (100%)
$ Bezugsspur
axes nrh 2 typ refx val1 A001 art stab

$ Splinegeometrie
sgeo nrg 2 nrh 2 nrsv 2

$ Zwangspunkte für Splinegeometrie
zpuv s       u          v   typ=refx
     0       -$(B)/2    0.072
     $(lbog) -$(B)/2    0.072

$$ Splinegeometrie
$sgeo nrg 4 nrh 2 nrsv 1

$$ Zwangspunkte für Splinegeometrie
$zpuv s       u            v   typ=refx
$     0       -$(B)/2      0
$     $(lbog) -$(B)/2      0

$ Angaben zum Bauablauf
cs iba1 11 iba2 12   $ Spannglied im BA 11 bis 12
vsig art li anws as  $ Aufbringung der Vorspannkraft
tend nrs 2 nrg 2 nsp 1 svon 0.0 sbis 0.0 lf 2
$tend nrs 4 nrg 4 nsp 1 svon 0.0 sbis 0.0 lf 2

$--------------------------------------------------
$ Spannglieder rechts (100%)
$ Bezugsspur
axes nrh 3 typ refx val1 A001 art stab

$ Splinegeometrie
sgeo nrg 3 nrh 3 nrsv 2

$ Zwangspunkte für Splinegeometrie
zpuv s       u         v   typ=refx
     0       $(B)/2    0.072
     $(lbog) $(B)/2    0.072


$$ Splinegeometrie
$sgeo nrg 6 nrh 3 nrsv 1

$$ Zwangspunkte für Splinegeometrie
$zpuv s       u           v   typ=refx
$     0       $(B)/2      0
$     $(lbog) $(B)/2      0


$ Angaben zum Bauablauf
cs iba1 11 iba2 12   $ Spannglied im BA 11 bis 12
vsig art li anws as  $ Aufbringung der Vorspannkraft
tend nrs 3 nrg 3 nsp 1 svon 0.0 sbis 0.0 lf 2
$tend nrs 6 nrg 6 nsp 1 svon 0.0 sbis 0.0 lf 2

$ PRINT
SEIT NRST -1 SPRA 0 UNIA 0
SIZE DINA 2  M 0     FORM stan    rand nein $ w 29.7 h 21
ECHO VOLL
STEU WARN 191
FARB F9  6010 $ 2301
     F6  2004 $ 4004
     f11 5235 $ 0

SCHR H1 0.8 $ H6 0.3

PLOT GEOA NR 1,2,3,4,5,6   FAKH 3  TYPG DUCT ANZ 2
PLOT GEOG NR 1,2,3,4,5,6   TYPG DUCT ANZ 2
PLOT FAKT NR 1,2,3,4,5,6   FAKH 50   ANZ 4


ende
$--------------------------------------------------
$-PROG CSM URS:14
$KOPF
$STEU EG AUTO     $ Eigengewicht aus gamma automatisch ansetzen
$$ ECHO KRIP 90   $ Voreinstellung ECHO KRIP 245 ! dient zur übersichtlichen Ansicht
$                 $ der Kriechparameter in der .erg. in einer breiten Tabelle

$BA 10 TYP G_1 BEZ 'G_1'
$BA 11 TYP P   BEZ 'Vorspannung'
$BA 21 TYP P   BEZ 'Vorspannung 2'
$BA 22 TYP SL  BEZ 'UDL'

$$ Berechnungsbeginn mit Betonalter festlegen
$GRUP NR IBA1 WBIS GFIX ORTG T0 BEZ
$     1   10   -    -    -    7 'Alle Elemente'
$     2   10   -    -    -
$     3   10  22    -    -
$     4   22   -    -    -

$ENDE
$$ Dann die datei $(NAME)_csm.dat laufen lassen
$$ Wird hier automatisch über +apply erledigt (on the fly eingelesen)
$-apply $(NAME)_csm.dat


!#!Kapitel Belastung + Berechnung
+prog sofiload urs:9 $ LF ACT
kopf
echo voll voll
echo last extr
$ Definitionen-------------------------------------------------------------------------------------
ACT G_1                                                              BEZ 'Ständige Lasten'
ACT P   GAMU 1.00 GAMF 1.00  PSI0 1.00 PSI1 1.00 PSI2 1.00           BEZ 'Vorspannung'
ACT C                                                                BEZ 'Kriechen+Schwinden'
ACT L_T GAMU   -  0 SUP EXCL PSI0 0.75 PSI1 0.75 PSI2 0.20 PS1S    - BEZ 'TS Tandemsystem'
ACT L_U GAMU   -  0 SUP COND PSI0 0.40 PSI1 0.40 PSI2 0.20 PS1S    - BEZ 'UDL Gleichlast'
ACT SF  GAMU 1.00 0 SUP EXCL PSI0 1 1 1                              BEZ 'mögl.Setzung ULS'
ACT ZF  GAMU 1.00 0 SUP EXCL PSI0 1 1 1                              BEZ 'wahrscheinliche Setzung SLS'
ende


+PROG SOFILOAD urs:8
KOPF 1,2,3
echo voll voll
echo last extr
$ACT G
LF  1 EGZ 1.0 BEZ 'G1' TYP G_1

ACT P
LF  2         BEZ 'Vorspannung100%'  TYP P

$ACT Q
ACT L_U
LF  3      BEZ 'UDL'   TYP Q
STAB GRP 1 TYP PZZ PA 2.5*($(B)-$(sb))
ende

$ACT QA
$LF 4  BEZ 'UDLA'   TYP QA
$STAB GRP 1 TYP MXX PA 2.5*($(B)/2*$(B)/4)
$ende

+prog sofiload urs:11
kopf Betriebsfahrzeug

loop#1 20
 LF 301+#1 BEZ 'Betriebsfahrzeug'   TYP L_T
   STEL VON 1001 BIS 1012 TYP PZZ P 320/4  A #1
   STEL VON 1001 BIS 1012 TYP PZZ P 320/8  A #1+3
endloop


$let#x 0
$let#n 0
$loop

$   let#lf #lf+3
$   ACT Q  BEZ 'Betriebsfahrzeug' TYP L_T

$   lf #lf egz 0
$   STEL VON 1001 BIS 1012 TYP PZZ P 480/4 A +1.20 EY 1
$       let#x #x+.5
$   let#n #n+1
$   endloop (#x+3.2<$(L))

$sto#n
ende

+prog ase urs:35
kopf Eigengewicht
grup 1   fakg 1.0
grup 3


lf 1  bez 'Eigengewicht'   typ G1
ende

$+prog ase urs:13
$kopf Eigengewicht ohne seil
$grup 1   fakg 1.0
$grup 2  nein
$grup 3
$grup 4

$lf 11  bez 'Eigengewicht'   typ G1
$ende

+prog ase urs:5  $ Vorspannung 100%
kopf Vorspannung
syst plf -

grup 1,3,   ba 11 fakg -

lf 2   fakt 1.0   bez 'Vorspannung'   typ P
ende

+prog ase urs:3
kopf Fußgänger

grup 1,3,   ba 11 fakg -
lf 3   fakt 1.0   bez 'Fußgänger'   typ Q

ende


+prog ase urs:12
kopf BF
grup 1,3,
LF  (301 320 1)
ende

$ -------------------------------------------------------------------------------------------------
+prog aqb urs:39
kopf spannungen P
echo voll nein
$steu eige 1
steu qwf 0.0
stab  von grp 1 ba0 11  ba1 21

lf 2   typ   p  qt ba0

komb sum  lf1 2 f1 1.0  bez 'P' qt ba10 lfsp 10

span smod e

ende

+prog aqb urs:13
kopf spannungen G+P SLS
echo voll nein
$steu eige 1
steu qwf 0.0
stab  von grp 1 ba0 11  ba1 21

$lf 1   typ   g1 qt ba0
lf 1   typ   g_1 qt ba0
lf 2   typ   p  qt ba0

komb sum  lf1 1 f1 1.0  lf2 2 f2 1.0  bez 'G+P SLS' qt ba10 lfsp 11

span smod e

ende

+prog aqb urs:6
kopf spannungen G+P+Q SLS
echo voll nein
$steu eige 1
steu qwf 0.0
stab  von grp 1 ba0 11  ba1 21

$lf 1   typ   g1 qt ba0
lf 1   typ   g_1 qt ba0
lf 2   typ   p  qt ba0
lf 3   typ   q  qt ba0
komb sum  lf1 1 f1 1.0  lf2 2 f2 1.0 lf3 3 f3 0.4  bez 'G+P+Q SLS' qt ba10 lfsp 12

span smod e

ende

+prog aqb urs:7
kopf spannungen G+P+BF SLS
echo voll nein
$steu eige 1
steu qwf 0.0
stab  von grp 1 ba0 11  ba1 21

$lf 1   typ   g1 qt ba0
lf 1   typ   g_1 qt ba0
lf 2   typ   p  qt ba0
lf 308   typ   q  qt ba0
komb sum  lf1 1 f1 1.0  lf2 2 f2 1.0 lf3 308 f3 0.75  bez 'G+P+BF SLS' qt ba10 lfsp 13

span smod e

ende

+prog aqb urs:14
kopf spannungen G+P ULS
echo voll nein
$steu eige 1
steu qwf 0.0
stab  von grp 1 ba0 11  ba1 21

$lf 1   typ   g1 qt ba0
lf 1   typ   g_1 qt ba0
lf 2   typ   p  qt ba0

komb sum  lf1 1 f1 1.35  lf2 2 f2 1.0  bez 'G+P ULS' qt ba10 lfsp 14

span smod e

ende

+prog aqb urs:15
kopf spannungen G+P+Q ULS
echo voll nein
$steu eige 1
steu qwf 0.0
stab  von grp 1 ba0 11  ba1 21

$lf 1   typ   g1 qt ba0
lf 1   typ   g_1 qt ba0
lf 2   typ   p  qt ba0
lf 3   typ   q  qt ba0
komb sum  lf1 1 f1 1.35  lf2 2 f2 1.0 lf3 3 f3 1.35  bez 'G+P+Q ULS' qt ba10 lfsp 15

span smod e

ende

+prog aqb urs:16
kopf spannungen G+P+BF ULS
echo voll nein
$steu eige 1
steu qwf 0.0
stab  von grp 1 ba0 11  ba1 21

$lf 1   typ   g1 qt ba0
lf 1   typ   g_1 qt ba0
lf 2   typ   p  qt ba0
lf 308   typ   q  qt ba0
komb sum  lf1 1 f1 1.35 lf2 2 f2 1.0 lf3 308 f3 1.35  bez 'G+P+BF ULS' qt ba10 lfsp 16

span smod e

ende





$$ Berechnung Bauablauf ConstructionStageManager
$-PROG CSM URS:6
$KOPF
$STEU EG AUTO     $ Eigengewicht aus gamma automatisch ansetzen
$$ ECHO KRIP 90   $ Voreinstellung ECHO KRIP 245 ! dient zur übersichtlichen Ansicht
$                 $ der Kriechparameter in der .erg. in einer breiten Tabelle

$BA 10 TYP G_1 BEZ 'G_1'
$BA 11 TYP P   BEZ 'Vorspannung'
$BA 21 TYP P   BEZ 'Vorspannung 2'
$BA 22 TYP SL BEZ 'UDL'

$$ Berechnungsbeginn mit Betonalter festlegen
$GRUP NR IBA1 WBIS GFIX ORTG T0 BEZ
$     1   10   -    -    -    7 'Alle Elemente'
$     2   10   -    -    -
$     3   10  21    -    -
$     4   21   -    -    -

$ENDE
$$ Dann die datei $(NAME)_csm.dat laufen lassen
$$ Wird hier automatisch über +apply erledigt (on the fly eingelesen)
$-apply $(NAME)_csm.dat


!#!Kapitel Überlagerung und Bemessung

$-------------------------------------
+PROG MAXIMA urs:17
KOPF Überlagerung Bruchzustand
ECHO LAST,FAKT
KOMB 101 DESI TYPE DESI
$act G
   LF 1
ACT P
   LF 2
ACT Q
   LF 3
SUPP 1 MAMI ETYP STAB ZUST N,VZ,MY
SUPP 1 MAMI ETYP KNOT ZUST PX,PY
ENDE
$#enddef


$komb 1 extr desi
$  act Q sup cond part Q
$    LF (1 3 1)
$    sto#1 101
$    #include SUPP


$komb 2 extr rare
$  act G    sup perm part G
$    LF 7020 typ AG1
$    LF 7029 typ AG1
$  act Q    sup cond part Q
$    LF (2 3 1)

$    sto#1 201
$    #include SUPP

$komb 3 extr perm
$  act G    sup perm part G
$    LF 7020 typ AG1
$    LF 7029 typ AG1
$  act Q    sup cond part Q
$    LF (2 3 1)

$    sto#1 301
$    #include SUPP

$ende
$---------------------------------------------
$+prog sir urs:201
$kopf SIR 101
$echo schn voll
$echo plot ja

$lf 101

$size dina win m 0 form stan
$schr nd 2

$schn 1 xs 0  xm 15.0 ym 0 zm 0 nx 1.0 ny 0.0 nz 0.0 ymin -0.75 ymax 0.75 zmin -2.0 zmax 1.0 ref 107

$ende





$+prog maxima urs:7
$KOPF Überlagerung
$ECHO LAST,FAKT
$KOMB 1 DESI TYPE DESI
$ ACT G1
$   LF 1
$ ACT P
$   LF 2
$ ACT Q
$   LF 3
$ ACT L_T
$   LF 308
$SUPP 1 MAMI ETYP STAB ZUST N,VZ,MY
$SUPP 1 MAMI ETYP KNOT ZUST PX,PY
$ENDE

+prog results urs:18
kopf Auflagerkräfte darstellen
lf 1,2,3
knot ax dars dlst
ende

ENDE