! Vier-Punkt-Biegeversuch
! Einwirkung: Zwangverschiebung
! Berücksichtigung von Kriechen und Schwinden

! to do:

! Lineare Berechnung mit gestreckter sigma-eps-Linie des Betons - siehe VÖ Empelmann 2019 Ec,eff = Ecm / (1+xi+phi)

! Ergebnisausgabe --> Zugriff auf die Database (siehe Platte advanced)

!+!Kapitel Eingabeparameter
+PROG TEMPLATE urs:1
KOPF Eingabeparameter

! Geometrie
STO#L 1.0           ! Länge[m]
STO#H 300           ! Höhe [mm]
STO#B #H            ! Breite [mm]
STO#Ac #H*#B*10^-6  ! Querschnittsfläche [m²]

$! Bewehrung
$STO#d1 50   ! Achsabstand untere Bewehrung von UK Schalung
$STO#d2 #d1  ! Achsabstand obere Bewehrung von OK Schalung

$STO#du 20   ! Durchmesser der Längsbew. unten
$STO#do 20   ! Durchmesser der Längsbew. oben

$STO#Nu 2     ! Anzahl der Stäbe unten
$STO#No 2     ! Anzahl der Stäbe oben

$LET#Asu =PI*(#du/10)^2/4*#Nu ; prt#Asu  ! Bewehrungsmenge unten [cm²]
$LET#Aso =PI*(#do/10)^2/4*#No ; prt#Aso  ! Bewehrungsmenge oben [cm²]

$STO#asuquad  #Asu/(#B/1000) ; prt#asuquad ! Bewehrungsmenge unten [cm²/m] --> für Schalen
$STO#asoquad  #Aso/(#B/1000) ; prt#asoquad ! Bewehrungsmenge oben [cm²/m] --> für Schalen

! Material
STO#fck 40              ! Char. Zylinderdruckfestigkeit
STO#fcd 0.85*#fck/1.5   ! Bemessungswert der Betondruckfestigkeit
STO#red 1.00            ! Reduktionsbeiwert Betonzugfestigkeit

! Einwirkung
STO#WZZ 1.0                   ! Zwangverschiebung [mm]                                        Standard = 20 mm
STO#PZZ 40                  ! Lasteinwirkung [kN]                                           Standard = 40 kN

STO#ved 0.00                ! Höhe der Normalkraftausnutzung ved                            Standard = 0.30
STO#PXX  =#ved*#Ac*#fcd*10^3  ! Normalkraftbeanspruchung [kN]
prt#PXX

ENDE

!+!Kapitel Materialien, Querschnitt (Balken)
+PROG AQUA urs:5
KOPF Materialien und Querschnitte
ECHO VOLL

!*!Label Norm
NORM DC DIN NDC EN1992-2004

!*!Label Materialeigenschaften
BETO NR 1 ART C FCN #fck FCTK #red*0.3*#fck^(2/3)
!STAH NR 2 ART B GUET 500B

$! Definition des Querschnitts für den Balken
$ QB NR 1 H #H B #B SO #d2 SU #d1 MNR 1 MBW 2 BTYP ECKE DASO #do DASU #du ASB 2.5

ENDE

!+!Kapitel Querschnitt, System
+PROG SOFIMSHA urs:3
KOPF System
UNIT 5 ; SYST 3D GDIR POSZ GDIV 1000
KNOT NR                 X             Y                    Z
     1,2               0,0    #B/2000,-#B/2000             0,0
    11,12              0,0    #B/2000,-#B/2000           -#L,-#L
KNOT NR FIX ;  1 f ; 2 f

GRUP 1
QUAD -  1 2 12 11 M 1 5 T #H MNR 1 MBW 0
ENDE

+PROG BEMESS urs:7
KOPF Bewehrungsparameter
GEOM - HO #d2 DHO 10 HU #d1 DHU 10
RICH  0 0
PARA NRG - DO #do #do DU #du #du ASO 0 0 ASU 0 0
ENDE

!+!Kapitel Einwirkungen
+PROG SOFILOAD urs:6
KOPF Einwirkungen

ACT G_1 BEZ 'Eigengewicht'
ACT G_2 BEZ 'Zwangsverformung'
ACT C   BEZ 'Kriechen + Schwinden'

LF 2 TYP 'none' BEZ 'Zwangsverformung'
! Normalkraft
$  KNOT 4  TYP PXX -#PXX/2
$  KNOT 14 TYP PXX -#PXX/2

! Zwang
  KNOT 11 TYP WZZ #WZZ
  KNOT 12 TYP WZZ #WZZ


! Last
$  KNOT 2  TYP PZZ #PZZ/2
$  KNOT 12 TYP PZZ #PZZ/2
$  KNOT 3  TYP PZZ #PZZ/2
$  KNOT 13 TYP PZZ #PZZ/2
ENDE

+PROG CSM urs:16
KOPF Bauablauf LF4010+
STEU KRIE RKRI
STEU EIGE EN10
STEU PROB NONL       ! Kriechen nach Eurocode
STEU NMAT JA
STEU EG NEIN         ! Eigenlast wird ausgeschaltet

!BA 10 TYP G_1       ! Eigengewicht ausschalten, um rein die Effekte aus Zwang und nicht zusätzlich auch aus Last anzuzeigen
BA 20 TYP G_2 BEZ 'Zwang'
BA 30 TYP C T 365*100 NKRI 10

GRUP NR - IBA1 10 T0 28 BEZ 'Aktivierung aller Elemente'

LF NR 2 IBA1 20 WBIS -
ENDE

$ Dann die Datei $(NAME)_csm.dat  laufen lassen
$ Wird hier automatisch über +apply erledigt
+apply "$(NAME)_csm.dat"