+PROG AQUA URS:1 $ Material 1: aus BEMESS-Bsp; Mat. 2 eigenes KOPF Material ECHO MAT VOLL NORM 'DIN' 'en199X-200X' BETO 1 C 35 bez ':SFB eigen' FEQR 0.653 FEQT 0.408 $ Werte sind neu einzustellen ! $-- Eingabe der Arbeitslinie für den Gebrauch: $-- Man muss die Arbeitslinie nicht unbedingt von Hand eingeben, aber dann hat man mehr Kontrolle: $-- Ohne explizite Eingabe der Arbeitslinie springt auch der E-Modul am Nullpunkt = unschön ARBL GEBR 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 25.00 0.624 $ Zugbereich 3.50 0.998 $ Werte siehe unten 0.30 0.998 0.07 3.21 0 0 $------------- -2.25 -43.0 SPL $ Diese Dehnung ist eps1 aus Tabelle 3.1 und kann geändert werden um einen anderen Anfangs-E-Modul (bei eps=0) einzustellen -3.5 -30.0 $ Druckbereich BETO 2 C 35 bez ':SFB Testobjekt' $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 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:4 $ reines Quad-Plattenbiegungsmodell; Mat.-auswahl Mat. 1 oder 2 let#Quad_Mat 2 $ Material 1 oder 2 KOPF Stahlfaserbeton (eine Quadschicht) mit Material #Quad_Mat 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 2 = y 0.15 = KNOT 11 X 0.275-.002 Y 0.0000000 Z 0.0 12 = y 0.15 = KNOT 21 X 0.275-.0 Y 0.0000000 Z 0.0 22 = y 0.15 = KNOT 31 X 0.275+.002 Y 0.0000000 Z 0.0 32 = y 0.15 = KNOT 41 X 0.550 Y 0.0000000 Z 0.0 42 = y 0.15 = $ Lagerungslinien vorbereiten KNOT 101 X 0.050 Y 0.0000000 Z 0.0 $FIX xp 102 = y 0.15 = $fix = KNOT 111 X 0.500 Y 0.0000000 Z 0.0 $FIX = 112 = y 0.15 = $fix = $ ---------------------------------------------------------------- KNOT 211,212,221,222,231,232 z -0.025/2 nr1 011,012,021,022,031,032 fix kf $ ---------------------------------------------------------------- KNOT 151,152,161,162 z +0.150/2 nr1 101,102,111,112 fix xp 101,102,111,112 nr1 151,152,161,162 fix kf GRUP 1 ; quad prop mnr #Quad_Mat t 0.150[m] lage mitt quad - k1 1 k4 2 k3 102 k2 101 m 3 n 1 fit k1 101 k4 102 k3 12 k2 11 m 9 n - $ ---------------------------------------------- fit k1 211 k4 212 k3 232 k2 231 m 2 n - t 0.125[m] $ ---------------------------------------------- fit k1 31 k4 32 k3 112 k2 111 m 9 n - fit k1 111 k4 112 k3 42 k2 41 m 3 n - fede - ka 151,152 dx 1 cp 100 $ Systemfesthaltung ende; ende +PROG ASE urs:7 $ Eigengewicht und Traglast dazu LF 1 egz 1.0 bez 'Eigengewicht'; ende KOPF Traglastiteration steu nsch 30 $ für Versuchsnachrechnung mit Plattenbiegung: besonders feine interne Quad-Höhenschichtung TRAG 12 fak1 125 eg ja dfak - SYST PROB NONL NMAT JA LF 02 egz 1 BEZ 'Traglastiteration'; ende $ ------------------------------------------------ !#!Kapitel Rechnen mit Zwangs-Knotenverformungen -prog sofiload urs:10 lf 101 bez 'Knotenverschiebung 0.02 mm'; knot 221,222 typ wzz 0.02[mm] ende -PROG ASE urs:2 $ LF 101 steu warn 174 $ 174: Knotenverschiebung auf einen gekoppelten Knoten LF 101 ende -PROG ASE urs:8 $ Traglast dazu KOPF Traglastiteration steu nsch 30 $ für Versuchsnachrechnung mit Plattenbiegung: besonders feine interne Quad-Höhenschichtung TRAG 12 fak1 - eg nein dfak - SYST PROB NONL NMAT JA steu warn 174 $ 174: Knotenverschiebung auf einen gekoppelten Knoten LF 102 egz 0 BEZ 'Traglastiteration zu 101'; lc 101 ende $ ------------------------------------------------ -PROG ASE urs:3 KOPF Lastverformungskurve PLOT LF 101 KNR 221 RICH Uz $ UX,UY,UZ oder PHIX,PHIY,PHIZ $ (plot...BIS wird automatisch ermittelt) ENDE -PROG ASE urs:11 $ Traglast für 170*LF 101 SYST PROB NONL NMAT JA steu warn 174 $ 174: Knotenverschiebung auf einen gekoppelten Knoten steu nsch 30 $ für Versuchsnachrechnung mit Plattenbiegung: besonders feine interne Quad-Höhenschichtung let#FakS 170; TRAG 12 fak1 #FakS eg nein dfak - LF 151 egz 0 BEZ 'Traglastiteration zu #FakS-fachen LF 101'; lc 101 ende $ ------------------------------------------------ !#!Kapitel Rechnen mit Vertikal-Ersatzlasten (statt Zwangs-Knotenverformungen) +prog sofiload urs:12 lf 201 bez 'Vertikal 1 kN auf b=0.15 m'; line nref 221 typ pzz p1 1.00/0.15 x1 0 0 x2 dxy 0 0.15 ende +PROG ASE urs:13 $ Traglast dazu KOPF Traglastiteration steu nsch 30 $ für Versuchsnachrechnung mit Plattenbiegung: besonders feine interne Quad-Höhenschichtung TRAG 12 fak1 - eg nein dfak - SYST PROB NONL NMAT JA LF 202 egz 0 BEZ 'Traglastiteration zu 201'; lc 201 ende $ ------------------------------------------------ +PROG ASE urs:14 KOPF Lastverformungskurve PLOT LF 201 KNR 221 RICH Uz $ UX,UY,UZ oder PHIX,PHIY,PHIZ $ (plot...BIS wird automatisch ermittelt) ENDE -PROG ASE urs:5 $ tetsweise Pushover-Analyse (führt hier ohne STEU SOLV 0 zu Programmabsturz!) KOPF Pushover-Analyse steu solv 0 $ testweise mit solv 0: (eigentlich) nur Lastaufbringung steu nsch 30 $ für Versuchsnachrechnung mit Plattenbiegung: besonders feine interne Quad-Höhenschichtung PUSH N 4 FDL 0.2 CONT TRAG $ continue on last TRAG/ULTI step SYST PROB - NMAT JA PLF CONT iter 100 LF CONT FAKG - BEZ 'Push' LC 201 TRAG JA $ nur diese Last wird erhöht ! ENDE sto#lastpush #ASE_ITER(1) ENDE $-PROG ASE urs:5 $KOPF Pushover Analyse $PUSH N 4 FDL 0.2 CONT TRAG $ continue on last TRAG/ULTI step $ECHO MAT NEIN $STEU BETO W3 - W4 0.50 $ W4= FCTK = Zugfestigkeit nackter Beton $STEU ITER 0 $ läuft schneller $SYST PROB TH3 NMAT JA PLF CONT $LF CONT FAKG 1 BEZ 'Push' $ LC 2 TRAG NEIN $ LC 3 TRAG NEIN $ LC 19 TRAG JA $ nur diese Last wird erhöht ! $ENDE $sto#lastpush #ASE_ITER(1) $ENDE $-PROG ASE urs:6 $KOPF Just for fun - unloading external load - only dead load +g_2 remaining $ECHO MAT NEIN $STEU ITER 0 $ läuft schneller $STEU WARN 350,351,352,353 $SYST PROB TH3 ITER 200 TOL -5.0 NMAT JA PLF #lastpush $LF #lastpush+1 FAKT 0.01 FAKG 1 BEZ 'unloading - only dead load +g_2 remaining' $ LC 2 FAKT 1/0.01 $ to stay at real factor 1.00 $ENDE $-PROG ASE urs:9 $KOPF Lastverformungskurve $PLOT LF 101 KNR 7102 RICH UX $ UX,UY,UZ oder PHIX,PHIY,PHIZ $$ (plot...BIS wird automatisch ermittelt) $ENDE