$ english file name: steel_fibre_concrete.dat !#!KAPITEL Material and System generation $-PROG AQUA URS:1 $KOPF Materiel $ECHO MAT VOLL $NORM 'DIN' 'en199X-200X' $BETO 1 C 25 FCTD 1.564 FEQR 0.650 FEQT 0.466 $ Werte sind neu einzustellen ! $ values must be input new ! $STAH 2 S 500 $ENDE +PROG Template urs:25.1 KOPF Einlesen der Parameter aus der Exceldatei STO#XLS.NAME "Testobjekt.xlsx" $Name Exceldatei LET#XLS.SHEET "Eingabeparameter" $NameBlattes für die globalen Parameter STO#Last_Anfang XLS.READ(2,3) $Import aus Excel, (Zeile,Spalte) STO#Last_Ende XLS.READ(3,3) $ STO#Schrittweite XLS.READ(8,3) $ Schrittweite je Iterationsschritt STO#ANZ_Schritte XLS.Read(9,3) $ Für Iterationen der Last STO#Last_aktuell #Last_Anfang $ [kN] STO#Index 1 $Zählvariable für das Zeilenweise Schreiben in die Exceldatei zurück STO#ANZ_ITERmax XLS.READ(11,3) $max Anzahl Iterationen für Non-Linear Berechnung STO#ANZ_ITER XLS.READ(12,3) $Anfangswert Iteration STO#DB_AnfangM XLS.READ(21,3) $Durchbiegung Anfang [m] $geändert: [mm] in Excel STO#DB_EndeM XLS.READ(22,3) $Durchbiegung Ende [m] STO#DB_Anfang #DB_AnfangM*1 STO#DB_Ende #DB_EndeM*1 STO#DB_SchrittweiteM XLS.READ(23,3) STO#DB_Schrittweite #DB_SchrittweiteM*1 STO#DB_Schrittweite XLS.READ(23,3) STO#DB_ANZ_Schritte XLS.READ(24,3) STO#DB_aktuell #DB_Anfang $STO#ASE_ITER $ speichert nach einer Traglastiteration ab: $ ASE_ITER(0) = erste Lastfallnummer $ ASE_ITER(1) = letzte erreichte Lastfallnummer $ ASE_ITER(2) = letzter Lastfaktor Ende PROG AQUA urs:8 KOPF Material ECHO MAT VOLL NORM DIN EN199X-200X $ C35/45 SC = 5 Linie a BETO 1 C 35 $FEQR 0.653 FEQT 0.408 $vermutlich Eingabe nicht nötig da Werte aus Arbeitslinie? ARBL BRUC 1.0 $ Erster ARBL Satz definiert Typ der Arbeitslinie $ Sicherheit 1.0 - Alle Sicherheiten in folgender Tabelle enthalten! $ Der Wert nach Typ der Arbeitslinie setzt den zugehörigen Sicherheitsbeiwert ARBL EPS SIG TYP 20.00 0.063 POL $ tensile zone/Zugzone 4.00 0.935 POL 0.19 1.143 POL 0.09 3.210 POL 0 0 $------------- -2.25 -35.0 SPL $ compressive zone/Druckzone -3.5 -35.0 ENDE PROG SOFIMSHA urs:25.3 kopf Stahlfaserbeton kombiniert mit schlaffer Bewehrung UNIT 5 ; SYST RAUM GDIV 10000 POSZ XREF 0 0 0 T11 1 0 0 T12 0 -1 0 KNOT 1 X 0.0 Y 0.0000000 Z 0.0 KNOT 2 X 0.0500000 Y 0.0000000 Z 0.0 KNOT 3 X 0.2725000 Y 0.0000000 Z 0.0 KNOT 5 X 0.2775000 Y 0.0000000 Z 0.0 KNOT 6 X 0.5000000 Y 0.0000000 Z 0.0 KNOT 7 X 0.5500000 Y 0.0000000 Z 0.0 KNOT 101 X 0.0 Y 0.0000000 Z -0.025 KNOT 102 X 0.0500000 Y 0.0000000 Z -0.025 KNOT 103 X 0.2725000 Y 0.0000000 Z -0.025 KNOT 104 X 0.2750000 Y 0.0000000 Z -0.025 KNOT 105 X 0.2775000 Y 0.0000000 Z -0.025 KNOT 106 X 0.5000000 Y 0.0000000 Z -0.025 KNOT 107 X 0.5500000 Y 0.0000000 Z -0.025 KNOT 201 X 0.0 Y 0.0000000 Z -0.15 KNOT 202 X 0.0500000 Y 0.0000000 Z -0.15 KNOT 203 X 0.2725000 Y 0.0000000 Z -0.15 KNOT 204 X 0.2750000 Y 0.0000000 Z -0.15 KNOT 205 X 0.2775000 Y 0.0000000 Z -0.15 KNOT 206 X 0.5000000 Y 0.0000000 Z -0.15 KNOT 207 X 0.5500000 Y 0.0000000 Z -0.15 $Kerbe: 0.005m breit, 0.025m hoch GRUP 1 QUAD prop T 0.15[m] MNR 1 $MBW 2 QUAD 1 1 2 102 101 M 5 N 5 QUAD 2 2 3 103 102 M 25 N 5 QUAD 5 5 6 106 105 M 25 N 5 QUAD 6 6 7 107 106 M 5 N 5 GRUP 2 QUAD prop T 0.15[m] MNR 1 $MBW 2 QUAD 11 101 102 202 201 M 5 N 15 QUAD 12 102 103 203 202 M 25 N 15 QUAD 15 105 106 206 205 M 25 N 15 QUAD 16 106 107 207 206 M 5 N 15 GRUP 3 QUAD prop T 0.15[m] MNR 1 $MBW 2 QUAD 13 103 104 204 203 M 2 N 15 QUAD 14 104 105 205 204 M 2 N 15 KNOT 2 FIX PP $X+Y+Z KNOT 2 FIX MX KNOT 6 FIX XP $Y+Z KNOT 6 FIX MX ENDE !#!KAPITEL Loading and Settings +PROG SOFILOAD iter 80 urs:25.5 KOPF Eigengewicht UNIT 5 LF 901 TYP NONE let#CDB_IER 0 let#COUNT 0 @KEY NODE loop loop let#NR @NR let#X @(XYZ) let#SL 0.275 prt#NR prt#X let#ISTX #SL-#X let#ISTX ABS(#ISTX) if (#ISTX<0.001) KNOT #NR typ WZZ P1 #DB_aktuell [mm] LET#COUNT #COUNT+1 endif endloop #CDB_IER<2 endloop #CDB_IER<2 prt#COUNT ENDE !#!KAPITEL Analysis +PROG ASE iter 80 URS:25.7 KOPF Steu warn 42 LF 101 BEZ GZT_linear LC 901 ENDE +PROG ASE iter 80 URS:25.8 KOPF Steu warn 42 Steu warn 353 $ Damit Berechnung auch noch bei Überschreiten der Grenzdehnungen durchläuft. $Steu warn 356 $ Damit Berechnung auch noch bei Überschreiten der Streckgrenze der Spannstränge durchläuft. Steu solv 4 $ Direkter Paralleler Sparse Solver (PARDISO) Steu iter 0 $ Quasi Newton-Verfahren mit Beschleunigung nach Crisfield SYST PROB NONL ITER #ANZ_ITERmax NMAT JA tol -1 tol4 -3 tol8 -5 LF 102 BEZ GZT_NONL LC 901 DEHN KSV ULD ENDE +PROG Template iter 80 urs:25.9 kopf Übergabe der Ergebnisse an Exceldatei let#Lastfall 102 let#supportnode 2 @key N_DISP #Lastfall sel1 #supportnode let#Auflagerkraft @PZ*(-1) $Auflagerkraft aus aktuellen Inkrement, positives VZ @key N_DISP #Lastfall sel1 3 let#X1 @UX*1000 $Koordinate X1, linke Seite der Kerbe, Umrechnung auf mm @key N_DISP #Lastfall sel1 5 let#X2 @UX*1000 $Koordinate X2, rechte Seite der Kerbe, Umrechnung auf mm let#quad 30032 @key QUAD_RNO #Lastfall sel1 #quad let#spann @(SXU) let#spannung #spann*0.001 $ kN/m² zu N/mm² LET#XLS.Sheet "Ergebnisse_Scheibe_Durchbiegung" LET#RET XLS.WRITE(5+#ANZ_ITER,3,#ANZ_ITER) $Aktuelle Iteration LET#RET XLS.WRITE(5+#ANZ_ITER,4,#DB_aktuell) $Durchbiegung in Balkenmitte bei diesem Schritt $LET#RET XLS.WRITE(5+#Index,5,#Aaktuell) $Last in kN LET#RET XLS.WRITE(5+#ANZ_ITER,6,#Auflagerkraft) $summierte Auflagerkraft von einen Auflager für Berechnung der Spannung LET#RET XLS.WRITE(5+#ANZ_ITER,7,#spannung) LET#RET XLS.WRITE(5+#ANZ_ITER,8,#X1) LET#RET XLS.WRITE(5+#ANZ_ITER,9,#X2) STO#DB_aktuell #DB_aktuell+0.05 $#DB_Schrittweite STO#ANZ_ITER #ANZ_ITER+1 $endloop ende $Abbruchbedingung für Iteration +Prog Template iter 80 urs:6 kopf Iteration beenden if #ANZ_ITER>#DB_ANZ_Schritte EXIT_ITERATION ENDIF if #DB_aktuell>#DB_Ende EXIT_ITERATION ENDIF ende $Ende Ausgabe