!#!Info  Example:       Stress verification at prestressed concrete cross-section
!#!Info  Keyword:       Prestress Concrete, Stress, Construction stages
!#!Info  Program:       AQB

!#!Chapter Material and Cross-section

+PROG AQUA URS:1
HEAD Material and Cross-section definition
ECHO SECT,MAT YES
CTRL RFCS 2
NORM 'DIN' NDC 'EN199x-200x'
CONC 1   C 35
STEE 11  Y 1770
SECT  1  MNO 1
POLY  RECT MNO 1  DY 1[m] DZ 1[m]
END

!#!Chapter System definition

+PROG SOFIMSHA urs:6
HEAD Simply Supported Beam
ECHO FULL NO
SYST SPAC GDIV 1000 GDIR ZZ
NODE NO X  Y  Z
     1  0  0  0  FIX PPMX
     2  10 0  0
     3  20 0  0  FIX XPMX
GRP 10
BEAM FIT 1 2  NCS 1 DIV 10
BEAM FIT 2 3  NCS 1 DIV 10
END

!#!Chapter Tendon

+PROG TENDON urs:9
HEAD Prestressing
ECHO FULL NO
ECHO SYSP,TGEO,LOAD YES
UNIT 5                                 $ units: sections in mm, geometry+loads in m
SYSP NOPS 19 MAT 11 ZV 3899 AZ 2850 LITZ 19 MINR 8.60 BETA 0.30 MUE 0.21 ECC 9.9 SP 3 DO 97 $19 wires:  A_p = 19*150mm^2 = 2850 mm^2
AXES NOH 1  VAL1  0.00 0.00 0.00  TYPE POLY  KIND BEAM
         1  VAL1 20.00 0.00 0.00  TITL "tendon_axis"
TOPP NOH 1 KIND REFX S 0,20 SP 1,2
TGEO NOG 1 NOH 1 NOPS 19               $ Tendon geometry
PTUV S U   V DVS TYPE=SPAN             $ definition points of geometry: TYPE = SPAN station via high points
     1 0 0.0   -
  1.50 - 0.4   0
     2 0 0.0   -
CS ICS1 11 ICS2 12 ICS3 -              $ construction stages
PSIG 'LE' ANWS 'TS' KAPA 1.5           $ prestress-procedure
TEND NOT 1 NOG 1  LC 2
$ tendon plots:
ECHO plot full
SIZE W 30
SCHH H1 0.50 H3 0.20
PLOT GEOE NO 0 FACH  5 TYPG DUTE PCS 1 $ plot tendon geometry
PLOT FACT NO 1 FACH 50                 $ plot stresses and forces
END


!#!Chapter Analysis

+PROG SOFILOAD URS:13
HEAD Loading
PAGE UNII 5
ECHO FULL NO
ACT G_1,P
LC  1 DLZ 1.0 TYPE 'G_1' TITL 'G'
LC  2         TYPE 'P'   TITL 'P'
END

+PROG ASE URS:4
HEAD Analysis
ECHO full no
LC 1 TYPE 'G_1'
LC 2 TYPE 'P'
END

!#!Chapter  P CS0

+PROG AQB urs:2
HEAD P CS0
ECHO FULL NO
ECHO COMB,TABS
CTRL
BEAM 10010 X 1.0 CS0 11 CS1 12
LC 2 TYPE p   CST  CS0
COMB SUM LC1 p  LCST 100
STRE K
END

!#!Chapter  G+P CS0

+PROG AQB urs:3
HEAD  G+P CS0
ECHO FULL NO
ECHO COMB,TABS
BEAM 10010 X 1.0 CS0 11 CS1 12
LC 1 TYPE G_1 CST  CS0
LC 2 TYPE P   CST  CS0
COMB SUM LC1 G LC2 P LCST 101
STRE E
END

!#!Chapter  P CS1

+PROG AQB urs:7
HEAD P CS1
ECHO FULL NO
ECHO COMB,TABS
BEAM 10010 X 1.0 CS0 11 CS1 12
LC 2 TYPE p   CST  CS1
COMB SUM LC1 P  LCST 102
STRE E
END

!#!Chapter  G+P CS1

+PROG AQB urs:8
HEAD  G+P CS1
ECHO FULL NO
ECHO COMB,TABS
BEAM 10010 X 1.0 CS0 11 CS1 12
LC 1 TYPE G_1 CST  CS1
LC 2 TYPE P   CST  CS1
COMB SUM LC1 g  LC2 p  LCST 103
STRE E
END

!#!Chapter  Stress in CSM

+PROG CSM urs:3
HEAD
CTRL DL AUTO
CTRL WARN 319
CS  NO  TYPE
    10  G
    11  P
    12  B
GRP 10  ICS1 10

END
+apply "$(NAME)_csm.dat"