! SOFiSTiK Structural Desktop, Group:+1 [System] ! SOFiSTiK Structural Desktop, Task:+1 [Querschnitte+System+Grundlasten] +PROG AQUA urs:1 $ (QB-)Kalt- und Testquerschnitte und (QB-Typ braucht (zum. bei STAR2 ?) kein BEWQ 2 für ideelle Querschnittswerte) UNIT 5 NORM 'DIN' 'en1992-2004' COUN 49 CAT 'AN' WIND '2' SNOW '1' WCAT 'B' UNIT 5 steu bewq 2 $ testweise für Abgleich mit "echtem" verbundquerschnitt (Achtung, "2" wirkt nicht auf QB-Querschnitte !, da diese wohl intern anders behandelt werden) STEU STYP FEMX $ für HYDRA/Heßbemessung: für nicht typisierte Querschnitte auch ein FE-Netz erzeugen BETO 1 C '25' TYPR B BEZ "=C 25/30 (EN 1992)" ARBL EPS GEBR SIG 1.500000[-] TYP LIM $ aus irgendwelchen Gründen Sonderarbeitslinien !! EPS BRUC SIG 1.500000[-] EPS RECH SIG -1.300000[-] HMAT 1 TYP FOUR NSP 0.030000 A 1 $ für Heißbem. erf. STAH 2 B '500B' TMAX 32 BEZ "=B 500 B (EN 1992)" ARBL EPS GEBR SIG 1.150000[-] EPS BRUC SIG -1.150000[-] TYP EXT EPS RECH SIG -1.300000[-] TYP EXT $ HMAT 2 TYP FOUR NSP 0 A 1 $ für Heißbem. erf. sto#s_innen (51-10) $ Längsbew. innen [mm] sto#s_aussn (51+05) $ außen [mm] QB 1 H 250 B 1250 SO #s_aussn SU #s_innen SS 51 MNR 1 MBW 2 BTYP 'SYM' ASO 98.17/2*8/10 DASO 25 DASU 25 DASS 25 AMIN 111 AMAX 999 ASB 0 INCL 90 REF C IT 100[o/o] AY 100[o/o] AZ 100[o/o] BCYZ '0' SPT 0 BEZ "1250/250 nom_c=35/20" QB 2 H = B 1000 SO = SU = SS = MNR = MBW 2 BTYP 'SYM' ASO = DASO 25 DASU 25 DASS 25 AMIN 90 AMAX = ASB 0 INCL 90 REF C IT 100[o/o] AY 100[o/o] AZ 100[o/o] BCYZ '0' SPT 0 BEZ "1000/250 nom_c=35/20" QB 3 H 750 B 750 SO 51 SU 51 SS 51 MNR = MBW 2 BTYP 'SYM' ASO 10 DASO 25 DASU 25 DASS 25 AMIN 200 AMAX = ASB 0 INCL 90 REF C IT 100[o/o] AY 100[o/o] AZ 100[o/o] BCYZ '0' SPT 0 BEZ "Konsol B_750/750" QC 4 D 300 SA 40 MNR 1 MBW 2 BTYP DRUC DAS 12 A 8[-] ASB 0 IT 100[o/o] AY 100[o/o] AZ 100[o/o] BEZ "Ø 300 mm" $ hier nur als BEWQ-TEST: Nicht-QB-Querschnitt mit LBEW (BEWQ=2 erzeugt hier ideelle Querschnittswerte !) qnr 21 mnr 1 bez '1 BEWQ-Test Nicht-QB' btyp 'druc' qpol rect dy 1250[mm] dz 250[mm] let#B_Zahl 10-2 loop#1 #B_Zahl; bew - d 25 Y 0.574-(0.574*2)/(#B_Zahl-1)*#1[m] Z +0.074[m]; endloop loop#1 #B_Zahl; bew - d 25 Y 0.574-(0.574*2)/(#B_Zahl-1)*#1[m] Z -0.074[m]; endloop $ hier nur als BEWQ-TEST: Nicht-QB-Querschnitt mit LBEW (BEWQ=2 erzeugt hier ideelle Querschnittswerte !) qnr 22 mnr 1 bez '2 BEWQ-Test Nicht-QB' btyp 'druc' qpol rect dy 1000[mm] dz 250[mm] let#B_Zahl 10 loop#1 #B_Zahl; bew - d 25 Y 0.449-(0.449*2)/(#B_Zahl-1)*#1[m] Z +0.074[m]; endloop loop#1 #B_Zahl; bew - d 25 Y 0.449-(0.449*2)/(#B_Zahl-1)*#1[m] Z -0.074[m]; endloop ende; ende $ -------------------------------- +PROG SOFIMSHC urs:13 rcl#s_innen $ Längsbew. innen [mm] rcl#s_aussn $ außen [mm] KOPF Test Stütze D1/12 {i #s_innen/a #s_aussn} sto#Sys_Zust 'KALT' $ für RESULTS: derzeit sind die KALT-Querschnitte scharf/aktiviert SEIT UNIE 0 ECHO VOLL nein SYST raum STEU MESH 1 SPT 1 X 0.4 Y 0 Z -7.4 FIX ZP SPT 2 X 0.4 Y 0 Z -4.1; SPTS TYP kf REF 3 SLN 1 NPA 1 NPE 2 SDIV -20 STYP ny QNR 4 DRX 1 0 0 MATT AX1 'D1' AX2 '12' SPT 3 X 0.25 Y 0 Z -4.1 FIX ZP SPT 4 X 0.25 Y 0 Z -3.2; SPTS TYP kf REF 5 SLN 2 NPA 3 NPE 4 SDIV -3 STYP ny QNR 3 DRX 1 0 0 MATT AX1 'D1' AX2 '12' SPT 5 X 0 Y 0 Z -3.2 SPT 6 X 0 Y 0 Z -2.8 let#za1 (20*1+2); TXA Za1: #za1 let#za2 20*1+2 ; TXA Za2: #za2 SLN 3 NPA 5 NPE 6 SDIV -6 STYP ny QNR (20*0+2) DRX 1 0 0 $ ungeklammerte QNR-Berechnung liefert falsche Werte ! QNR <> 1 bzw. 2 passt dann (derzeit) bei Heißbemessung nicht mehr ! MATT AX1 'D1' AX2 '12' $ SPT 7 X 0 Y 0 Z 0.2 FIX f $ PZMZZPZM SPT 7 X 0 Y 0 Z 0.2 FIX ppym; spts nr - typ cyy cm 33*1000 $ (weiche) Fußeinspannung SLN 4 NPA 6 NPE 7 SDIV -15 STYP ny QNR (20*0+1) DRX 1 0 0 $ ungeklammerte QNR-Berechnung liefert falsche Werte ! MATT AX1 'D1' AX2 '12' ende; ende $ --------------------- +PROG SOFILOAD urs:2 $ Grundlasten KOPF Lasten SEIT UNIE 0 ECHO VOLL nein LF 1 EGZ 1.0 TYP G BEZ 'Gesamt-Eigengewicht' STEL 1 TYP PZZ P 525 A 0 EZ 0 EY 0 LF 2 TYP Q BEZ 'Gesamt-Veränderliche' STEL 1 TYP PZZ P 105 A 0 EZ 0 EY 0 LF 3 TYP W BEZ 'Wind+' STAB 2 4 TYP PXX PA 1.5 1.5 A 0 L 4 LF 4 TYP W BEZ 'Wind' STAB 2 4 TYP PXX PA -1.5 -1.5 A 0 L 4 ende; ende $ --------------------- +PROG STAR2 urs:7.103 $ (Grund-LF) Th.1.O. (für Vorverformungen; bei QB-Querschnitten: noch ohne Bew.-Steifigkeiten) KOPF Theorie I. Ordnung echo quer extr $ mal die angesetzten Querschnittswerte prüfen (QB-Querschnitte mit / ohne Bew. ?) SEIT UNIE 0 STEU I STO#COLU_LFS 3 LF 1,2,3,4 ende; ende $ --------------------- ! SOFiSTiK Structural Desktop, Task:+8 [Stütze Kaltberechnung] +PROG SOFILOAD urs:3 $ (LF 9xxx) kriecherzeug. LF SEIT UNIE 0 LF 9002 TYP c BEZ 'G(1)+0.3Q(2)+I(X-)' COPY 1 1 2 0.3 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 LF 9003 TYP c BEZ 'G(1)+0.3Q(2)+I(X-)' COPY 1 1 COPY 2 0.3 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 LF 9004 TYP c BEZ 'G(1)+I(X-)' COPY 1 1 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 LF 9005 TYP c BEZ 'G(1)+I(X-)' COPY 1 1 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 LF 9006 TYP c BEZ 'G(1)+0.3Q(2)+I(X-)' COPY 1 1 COPY 2 0.3 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 LF 9007 TYP c BEZ 'G(1)+0.3Q(2)+I(X-)' COPY 1 1 COPY 2 0.3 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 LF 9008 TYP c BEZ 'G(1)+0.3Q(2)+I(X-)' COPY 1 1 COPY 2 0.3 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4 A 0.5 MESS ss $ Imp(X+), L = 4.3 LF 9009 TYP c BEZ 'G(1)+I(X-)' COPY 1 1 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 LF 9010 TYP c BEZ 'G(1)+0.3Q(2)+I(X-)' COPY 1 1 COPY 2 0.3 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 LF 9011 TYP c BEZ 'G(1)+0.3Q(2)+I(X-)' COPY 1 1 2 0.3 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 ende; ende $ --------------- +PROG STAR2 urs:14 $ (LF 9xxx) lin.el. Verform. aus imperfekt. quasi-st.GG-Lasten (immer noch ohne Bew. bei den QB-Querschnitten; noch ohne Kriechen !) SEIT UNIE 0 echo quer extr $ mal die angesetzten Querschnittswerte prüfen (QB-Querschnitte mit / ohne Bew. ?) #define Vorblock $ steu qwf 1 $ Faktor der Bewehrungsquerschnitte (nur bei QB-Querschnitten wirksam; und dann nur bei DEHN-Berechnugen) STEU II 20 GRUP FAKS 1/1.5 $ Ansatz: rechnerisch abgeminderte Steifigekeiten #enddef Vorblock #include Vorblock LF 9002 BEZ 'G(1)+0.3Q(2)+I(X-)' $ BEW stab einz LFB - $ BEME gebr SMOD ja AMAX 20 $ DEHN - ENDE #include Vorblock LF 9003 BEZ 'G(1)+0.3Q(2)+I(X-)' ENDE #include Vorblock LF 9004 BEZ 'G(1)+I(X-)' ENDE #include Vorblock LF 9005 BEZ 'G(1)+I(X-)' ENDE #include Vorblock LF 9006 BEZ 'G(1)+0.3Q(2)+I(X-)' ENDE #include Vorblock LF 9007 BEZ 'G(1)+0.3Q(2)+I(X-)' ENDE #include Vorblock LF 9008 BEZ 'G(1)+0.3Q(2)+I(X-)' ENDE #include Vorblock LF 9009 BEZ 'G(1)+I(X-)' ENDE #include Vorblock LF 9010 BEZ 'G(1)+0.3Q(2)+I(X-)' ENDE #include Vorblock LF 9011 BEZ 'G(1)+0.3Q(2)+I(X-)' ende; ende $ ---------------------------- +PROG STAR2 urs:15 $ TEST KSR mit STAR2 STEU II 20 LF 9102 BEZ ' KSR zu 9002'; lc 9002 beme gebr; bew bmod accu lfb -; dehn SN $ Dehnungsermittlung für die angesetzte Bewehrung (erfolgt hier mit den Gebrauchsarbeitslinien; für reine Kriechverformung nicht viel zu unsicher) $bew lfb - $ als neuen LFB abspeichern (dürfte aber eigentlich nie mehr Bew. werden) $beme ZUS bruc S1 2.0 2.0 $ Bemessung erübrigt sich bei der angesetzten Grundbew. ende STEU II 20 LF 9103 BEZ ' KSR zu 9003'; lc 9003 beme gebr; bew bmod accu lfb -; dehn SN $ Dehnungsermittlung für die angesetzte Bewehrung (erfolgt hier mit den Gebrauchsarbeitslinien; für reine Kriechverformung nicht viel zu unsicher) ende STEU II 20 LF 9104 BEZ ' KSR zu 9004'; lc 9004 beme gebr; bew bmod accu lfb -; dehn SN $ Dehnungsermittlung für die angesetzte Bewehrung (erfolgt hier mit den Gebrauchsarbeitslinien; für reine Kriechverformung nicht viel zu unsicher) ende; ende $ ---------- +PROG SOFILOAD urs:5 $ (1xxx) GT-Komb-LF (u.a. mit kriechvergrößerten Vorverformungen) KOPF Kombinationen SEIT UNIE 0 LF 1001 TYP del LF 1002 TYP (D) BEZ '1.35G(1)+1.5Q(2)+C+I(X-)' COPY 1 1.35 2 1.5 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 STEL 1 4 TYP prim P 2.5 OPT 9002 $ Kriechen (als x-fache lin.-elast. Verformungen; diese bei QB_Querschnitten noch ohne Bew.-Steifigkeit !) $ LF 1003 TYP (D) BEZ '1.35G(1)+1.5Q(2)+0.9W(4)+C+I(X-)' COPY 1 1.35 COPY 2 1.5 COPY 4 0.9 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 STEL 1 4 TYP prim P 2.5 OPT 9003 $ Kriechen $ LF 1004 TYP (D) BEZ 'G(1)+1.5W(3)+C+I(X-)' COPY 1 1 COPY 3 1.5 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 STEL 1 4 TYP prim P 2.5 OPT 9004 $ Kriechen $ LF 1005 TYP (D) BEZ 'G(1)+1.5W(4)+C+I(X-)' COPY 1 1 COPY 4 1.5 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 STEL 1 4 TYP prim P 2.5 OPT 9005 $ Kriechen $ LF 1006 TYP (D) BEZ '1.35G(1)+1.5Q(2)+0.9W(3)+C+I(X-)' COPY 1 1.35 COPY 2 1.5 COPY 3 0.9 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 STEL 1 4 TYP prim P 2.5 OPT 9006 $ Kriechen $ LF 1007 TYP (D) BEZ '1.35G(1)+1.5W(3)+1.05Q(2)+C+I(X-)' COPY 1 1.35 COPY 3 1.5 COPY 2 1.05 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 STEL 1 4 TYP prim P 2.5 OPT 9007 $ Kriechen $ LF 1008 TYP (D) BEZ '1.35G(1)+1.5W(4)+1.05Q(2)+C+I(X-)' COPY 1 1.35 COPY 4 1.5 COPY 2 1.05 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 STEL 1 4 TYP prim P 2.5 OPT 9008 $ Kriechen $ LF 1009 TYP (D) BEZ '1.35G(1)+1.5W(3)+C+I(X-)' COPY 1 1.35 COPY 3 1.5 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 STEL 1 4 TYP prim P 2.5 OPT 9009 $ Kriechen $ LF 1010 TYP (D) BEZ 'G(1)+1.5W(4)+1.05Q(2)+C+I(X-)' COPY 1 1 COPY 4 1.5 COPY 2 1.05 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 STEL 1 4 TYP prim P 2.5 OPT 9010 $ Kriechen $ LF 1011 TYP (D) BEZ 'G(1)+1.5Q(2)+C+I(X-)' COPY 1 1 COPY 2 1.5 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 STEL 1 4 TYP prim P 2.5 OPT 9011 $ Kriechen LF 1012 TYP del ENDE +PROG STAR2 urs:6 $ (LF 1xxx) GZT Th.2.O KOPF Theorie II. Ordnung #define Kalt-LF-Block SEIT UNIE 0; ECHO voll nein STEU II 100; $STEU QWF 1 $ QWF 1: Bew.querschnitt mit Faktor 1 ansetzen LF #LF_akt; BEW stab einz LFB #LF_akt; BEME bruc SMOD ja AMAX 20; DEHN bk1 FMAX 2.0 #enddef Kalt-LF-Block let#LF_akt 1002 #include Kalt-LF-Block ENDE let#LF_akt 1003 #include Kalt-LF-Block ENDE let#LF_akt 1004 #include Kalt-LF-Block ENDE let#LF_akt 1005 #include Kalt-LF-Block ENDE let#LF_akt 1006 #include Kalt-LF-Block ENDE let#LF_akt 1007 #include Kalt-LF-Block ENDE let#LF_akt 1008 #include Kalt-LF-Block ENDE let#LF_akt 1009 #include Kalt-LF-Block ENDE let#LF_akt 1010 #include Kalt-LF-Block ENDE let#LF_akt 1011 #include Kalt-LF-Block ende; ende $ ---------------------------- +prog WING urs:287 $ graf. Kontrolle Vorverformungsrichtungen schr h1 - h10 0.20 prue extr schr h1 - h10 0.18 prue 25 pmin 0.1 maxn 0 0 $ apru maxz sch2 offs stan $ Lage Ordinatenbeschriftung bei WINGRAF sch3 hauf 0.1 hkpa 0.15 hkpk 0.15 hfdd 0.1 hfdk 0.1 $ Größe Koppelfeder und Auflagerfeder bei WINGRAF farb f13 4001 2001 $ farb f10 -1 $ keine Kopplungen steu mess 2d move $ Löschen eventueller Texte size -4 form stan hleg 1.0 tleg 1.6 teil 3x2 m 135*0e10; beob stan 0 1 0 posz del#LFs; let#LFs 1002,1003,1003,1004,1005,1006,1007,1008,1009,1010,1011 loop#1 LFs $ Schleife über die Lastfälle let#tempp #(LFs+#1) Lf #tempp beme #tempp; vers nein $ Festlegung LF @key LC_CTRL #tempp; let#rtex LIT(@rtex) move 0.5 .8 unit cm schr 0.25 a 0; text Kontr. Imperf.richtg. move 0.5 .5 unit cm schr 0.25 a 0; text LF #tempp [#rtex] farb f12 3001 $ f12: Stab last typ u unit -1.0 schr 0.18 nd 1 etyp stab gtyp eing dars dlin $ aktive Vorverformungen und farb f12 1002 $ f12: Stab vers voll fak stan $ LF-Verformung aktivieren stru nume 0 numk - unit -1.2 schr 0 dars dstr endloop ende; ende $ ---------------------------- +PROG COLUMN urs:7 $ Column hier: gestraffte Ergebnisse erzeugen (STEU BEME) SEIT UNIE 0 ECHO MAT ja; ECHO QUER ja; ECHO SYST ja; ECHO EINW ja; ECHO LAST extr ECHO AUFL ja; ECHO SCHN ja; ECHO VERF ja; ECHO KOMB voll ECHO BEW ja; ECHO BILD ja STEU BEME STEU NETT ja POS LAGE 'D1/12' KOMB 1002 (D) '1.35G(1)+1.5Q(2)+C+I(X-)' KOMB 1003 (D) '1.35G(1)+1.5Q(2)+0.9W(4)+C+I(X-)' KOMB 1004 (D) 'G(1)+1.5W(3)+C+I(X-)' KOMB 1005 (D) 'G(1)+1.5W(4)+C+I(X-)' KOMB 1006 (D) '1.35G(1)+1.5Q(2)+0.9W(3)+C+I(X-)' KOMB 1007 (D) '1.35G(1)+1.5W(3)+1.05Q(2)+C+I(X-)' KOMB 1008 (D) '1.35G(1)+1.5W(4)+1.05Q(2)+C+I(X-)' KOMB 1009 (D) '1.35G(1)+1.5W(3)+C+I(X-)' KOMB 1010 (D) 'G(1)+1.5W(4)+1.05Q(2)+C+I(X-)' KOMB 1011 (D) 'G(1)+1.5Q(2)+C+I(X-)' KRIE PHI 2.5 ENDE !#!Kapitel RESULT-Abschnitte ################################################################################################################################################### +prog results -r -e urs:18 $ KALT: AQB-Querschnittsbew. / -spannungen let#M_stab 2 $ Maßstab der Grafiken (0 für automatisch) let#erg_art 'NONL' $ Auswahl: lineare Spannungen / nichtlin. Bem.-Spannungen LINE oder NONL del#LF_Nr; let#LF_Nr 1002,1003,1004 $ alle gewünschten Lastfälle (AQB-LFSP von KOMB) $ del#LFB_Nr;let#LFB_Nr 'STAN' $ DIE gewünschte Bew.res. (AQB-LFB von BEW; es geht sinnvollerweise nur eine !) del#S_NRs; let#S_nrs 3,4 $ alle gewünschten Stabnummern (für x=0) txa ----- AQB-Querschnittsbew. LFB-Nr. #LFB_Nr und inneres GGW der AQB-Bem-Ergebnisse LF #LF_Nr ff. (Typ [#erg_art]) -------------------------- txa ----- ACHTUNG! Dass / ob diese LFB-Bewehrung zu den AQB-GGW-Bemessungswerten zugehörig ist, -------------------------- txa ----- muss selbst geprüft werden ! -------------------------- rcl#Sys_Zust $ Auslesen, welche Querschnitte im System sind (wenn nicht 'KALT', dann sind schon die Heißquerschnitte da !! if #Sys_Zust<>'KALT' TXA Derzeit schon kein KALT-Systemzustand mehr ! Damit werden keine zur Kaltbemessung passenden Querschnittsspannungen angegeben. TXA Deswegen: Fehlerabbruch. quer Murks endif $ Einheitenfestlegung für gew. Ausgabetyp loop#LF_ LF_NR $ LF-Schleife size teil 3x2 m - $ TEIL scheint auf NICHT-Repo-Browser-Ebene nicht mehr zu funktionieren (nur die Teilbildgröße passt (Schriftgröße erst mal nicht), es werden aber keine Teilbilder mehr zusammengefasst); auch Hoch-/Querformat scheint von den Projektopitonen des Repo-Browsers abzuhängen dbo name "lc_ctrl._enr" brei 5 $ Tab.spaltenbreite LF-Nummer dbo name "lc_ctrl._ertex" brei 24 $ Tab.spaltenbreite LF-Bezeichner $ lf nr #LF_Nr(#LF_) beme #LFB_Nr(#LF_) $ Einstellen LFSP- (und LFB-)Nummer für die folgende Schleife lf nr #LF_Nr(#LF_) beme - $ Einstellen LFSP- (und LFB-)Nummer für die folgende Schleife stru typ name etyp lf dars dlst $ Textzeile für akt. Lastfall erzeugen $ stab typ loop#1 S_NRs $ Text- und Grafikschleife dbo name "beam_for.nr" brei 7 $ SORT NEIN $ mit SORT NEIN werden die Stäbe nicht lastfallweise, sondern stabnummernweise ausgegeben dbo name "beam_for.my" unit "[kNm]" nd 0 brei 6; dbo name "beam_for.mz" unit = nd = brei =; dbo name "beam_for.mt" unit = nd = brei = dbo name "beam_for.n" unit "[kN]" nd 0 brei 7; dbo name "beam_for.vy" unit = nd = brei =; dbo name "beam_for.vz" unit = nd = brei = filt "beam_for.nr,beam_for.x" typ einz opti ja val1 #S_nrs(#1) val2 0.000 $ typ BT: Bereich (gruppenweise Auswahl); eq: einzelner Wert; einz für Liste stab typ n,my,mz,mt,vy,vz styp stab dars dlst $ beob blic x 0.666107 y 0.595719 z 0.448799 achs posz dbo name "beam_sse.epsa" unit - nd 2; name "beam_sse.epsay" unit - nd =; name "beam_sse.epsaz" unit - nd = $ eps..: Dehnungen Einheitenfestlegung für gew. Ausgabetyp dbo name "beam_ssr.sigr" unit - nd 0; name "beam_ssr.sigry" unit - nd =; name "beam_ssr.sigrz" unit - nd = $ sigr.: Betonstahlspannungen Einheitenfestlegung für gew. Ausgabetyp dbo name "beam_sss.sign" unit - nd 1; name "beam_sss.signy" unit - nd =; name "beam_sss.signz" unit - nd = $ sign.: BetonspannungenEinheitenfestlegung für gew. Ausgabetyp dbo name "beam__re.rein" unit - nd 1; name "beam__re.reiny" unit - nd =; name "beam__re.reinz" unit - nd = $ rein.: Bewehrung Einheitenfestlegung für gew. Ausgabetyp bild m #M_stab; $ innere Schnittgrößen /Spannungen / Dehnungen aus AQB-LFSP ---- lf enr #S_nrs(#1) x 0 ba 9999 $ noch Resteinstellen aktuelle Stabnummer, Stabschnitt, BA etc. $ stru typ enr,nrql,mat,mbw etyp quer dars dlst $ (zur Auswahl zugeh.) Querschnittsbezeichnung, -Grundmaterial, -Bew.material und -nummer txtp show rele ovlp aus $ quer typ eps etyp stab rtyp #erg_art dars dlin fill - schr 0.22 unit -3.0 $ rtyp nonl EPS: Dehnungen $ und quer typ bwss etyp stab rtyp #erg_art dars dlin fill - schr 0.25 unit -1.0 $ rtyp nonl BWSS: Betonstahl- UND Betonspannungen $ Bewehrungen aus AQB-LFB ---- $ und $ bei Neuaufruf des LF-Satzes wird ein Bildvorschub erzeugt und die Bew. gesondert dargestellt quer typ bew etyp stab rtyp - dars dlin fill - schr 0.25 unit -1.5 $ TEXT-Ausgabe Bewehrungen aus AQB-LFB ---- filt name "beam_rfc.nr" typ eq opti ja val1 #S_nrs(#1); filt name "beam_rfc.x" typ eq opti ja val1 0 $ für Textausgabe erneute/gesonderte Einstellung Stabnummer und x-Stelle erforderlich stab typ as,AS0,AS1,AS2,AS3,AS4,AS5,AS6,AS7,AS8,AS9 STYP STAB DARS DLST $ ggf. muss die Anzahl/Nummer der Ränge angepasst werden ! endloop endloop ENDE ! SOFiSTiK Structural Desktop, Task:+9 [Stütze Heißbem., ETK od. NATUR? xx Minuten; Brandseite .. ] $ Automatisch generiert von sof_code 2020-1.0 20.11.2019 14:43 #define MINU = 90 $ Beflammungsdauer in Minuten #define T_FU = ETK $ ETK oder nicht ? !#!Kapitel Naturbrand ist erst mal unzulässig !! !#!Kapitel Bei Naturbrand muss der maßgebl, ungünstigste Temp.zeitpunkt rausgefischt werden !! +PROG HYDRA urs:9.101 $ (SECT 1)-Querschnitt beflammen (Bew. wird nicht berücksichtigt !) KOPF Querschnitt beflammen SEIT UNIE 0 ECHO VOLL nein; ECHO MAT extr ECHO RAND ja ; ECHO FUNK ja STEU HDIV 0.005[m] 1.05 SYST SECT 1 DIMT min DIMQ w STEP N $(MINU) T 1.0 HOPT 25 PLF HP 20.0 STEU KITE 0 STEU MITE 50 LF 1 RAND TYP spez 9 EDGE 'Y-' VP 20 TYP spez 25 EDGE 'Z+' VP 1.0 EPS 0.7 F 1 TYP spez 9 EDGE 'Y+' VP 20 TYP spez 9 EDGE 'Z-' VP 20 #define HeissFall_1 if $(T_FU)=='ETK' $ Einheits-Temperaturkurve TXA Beflammung: Es wird die ETK angesetzt. FUNK T $(MINU) F etk NR 1 BEZ 'ETK R $(MINU)' else $ Naturbrandkurvenverlauf TXA Beflammung: Es wird NICHT die ETK angesetzt, sondern eigendefiniert gemäß f.: TXA (für Nw-Zeitpunkt bei irgendwann wieder abfallender Brandkurve: maßgebend ist der heißeste Zustand im gesamten Nw-Zeitraum !! ) FUNK T 0 F 20 NR 1 BEZ 'Naturbrandkurve' T 0.8 F 24.8 T 1.6 F 39.2 T 2.4 F 63.2 T 3.2 F 96.8 T 4 F 140 T 4.8 F 192.8 T 5.6 F 255.2 T 6.4 F 327.2 T 7.2 F 408.8 T 8 F 500 T 9.2 F 531.623 T 10.4 F 544.721 T 11.6 F 554.772 T 12.8 F 563.246 T 14 F 570.711 T 15.2 F 577.46 T 16.4 F 583.666 T 17.6 F 589.443 T 18.8 F 594.868 T 20 F 600 T 23 F 473.509 T 26 F 421.115 T 29 F 380.911 T 32 F 347.018 T 35 F 317.157 T 38 F 290.161 T 41 F 265.336 T 44 F 242.229 T 47 F 220.527 T 50 F 200 T 57 F 155.778 T 64 F 115.576 T 71 F 78.4638 T 78 F 43.8226 T 85 F 11.2159 T 90 F 0 endif #enddef HeissFall_1 #include HeissFall_1 ENDE +PROG HYDRA urs:9.102 $ (SECT 2)-Querschn. beflammen (Bew.-Wärmeverhalten wird nicht berücksichtigt !) KOPF Querschnitt beflammen SEIT UNIE 0 ECHO VOLL nein; echo elem ja $ mal die FE-Elemente mit ausgeben lassen (alles Mat. Nr. 1 !!) ECHO MAT extr; ECHO RAND ja; ECHO FUNK ja STEU HDIV 0.005[m] 1.05 SYST SECT 2 DIMT min DIMQ w STEP N $(MINU) T 1.0 HOPT 25 PLF HP 20.0 STEU KITE 0 STEU MITE 50 LF 1 RAND TYP spez 9 EDGE 'Y-' VP 20 TYP spez 25 EDGE 'Z+' VP 1.0 EPS 0.7 F 1 TYP spez 9 EDGE 'Y+' VP 20 TYP spez 9 EDGE 'Z-' VP 20 #include HeissFall_1 ENDE -PROG HYDRA urs:11 $ (SECT 11)-TEST-Querschn. beflammen (Bew.-Wärmeverhalten wird nicht berücksichtigt !) KOPF Querschnitt beflammen SEIT UNIE 0 ECHO VOLL nein; echo elem ja $ mal die FE-Elemente mit ausgeben lassen (alles Mat. Nr. 1 !!) ECHO MAT extr; ECHO RAND ja; ECHO FUNK ja $STEU HDIV 0.005[m] 1.05 SYST SECT 11 DIMT min DIMQ w STEP N $(MINU) T 1.0 HOPT 25 PLF HP 20.0 STEU KITE 0 STEU MITE 50 LF 1 rand TYP spez val 25 von 3 5 fit VP 1.0 EPS 0.7 F 1 #include HeissFall_1 ENDE -PROG HYDRA urs:17 $ (SECT 22)-TEST-Querschn. beflammen (Bew.-Wärmeverhalten wird nicht berücksichtigt !) $ KOPF Querschnitt beflammen $ SEIT UNIE 0 $ ECHO VOLL nein; echo elem ja $ mal die FE-Elemente mit ausgeben lassen (alles Mat. Nr. 1 !!) $ ECHO MAT extr; ECHO RAND ja; ECHO FUNK ja $ STEU HDIV 0.005[m] 1.05 $ SYST SECT 22 DIMT min DIMQ w $ STEP N $(MINU) T 1.0 HOPT 25 $ PLF HP 20.0 $ STEU KITE 0 $ STEU MITE 50 $ LF 1 $ rand TYP spez val 25 von 3 5 fit VP 1.0 EPS 0.7 F 1 $ #include HeissFall_1 ENDE $+PROG HYDRA urs:11 $ (SECT 11)-Querschn. beflammen (Bew. wird nicht berücksichtigt !) $KOPF Querschnitt beflammen $SEIT UNIE 0 $ECHO VOLL nein; echo elem ja $ mal die FE-Elemente mit ausgeben lassen (alles Mat. Nr. 1 !!) $ECHO MAT extr $ECHO RAND ja $ECHO FUNK ja $STEU HDIV 0.005[m] 1.05 $SYST SECT 11 DIMT min DIMQ w $STEP N $(MINU) T 1.0 HOPT 25 $PLF HP 20.0 $STEU KITE 0 $STEU MITE 50 $LF 1 $RAND TYP spez 9 EDGE 'Y-' VP 20 $RAND TYP spez 25 EDGE 'Z+' VP 1.0 EPS 0.7 F 1 $RAND TYP spez 9 EDGE 'Y+' VP 20 $RAND TYP spez 9 EDGE 'Z-' VP 20 $$ Naturbrandkurvenverlauf $FUNK T 0 F 20 NR 1 BEZ 'Naturbrandkurve' $FUNK T 0.8 F 24.8 $FUNK T 1.6 F 39.2 $FUNK T 2.4 F 63.2 $FUNK T 3.2 F 96.8 $FUNK T 4 F 140 $FUNK T 4.8 F 192.8 $FUNK T 5.6 F 255.2 $FUNK T 6.4 F 327.2 $FUNK T 7.2 F 408.8 $FUNK T 8 F 500 $FUNK T 9.2 F 531.623 $FUNK T 10.4 F 544.721 $FUNK T 11.6 F 554.772 $FUNK T 12.8 F 563.246 $FUNK T 14 F 570.711 $FUNK T 15.2 F 577.46 $FUNK T 16.4 F 583.666 $FUNK T 17.6 F 589.443 $FUNK T 18.8 F 594.868 $FUNK T 20 F 600 $FUNK T 23 F 473.509 $FUNK T 26 F 421.115 $FUNK T 29 F 380.911 $FUNK T 32 F 347.018 $FUNK T 35 F 317.157 $FUNK T 38 F 290.161 $FUNK T 41 F 265.336 $FUNK T 44 F 242.229 $FUNK T 47 F 220.527 $FUNK T 50 F 200 $FUNK T 57 F 155.778 $FUNK T 64 F 115.576 $FUNK T 71 F 78.4638 $FUNK T 78 F 43.8226 $FUNK T 85 F 11.2159 $FUNK T 90 F 0 $ENDE; ende $ ------------------ +PROG WING -e urs:9.103 $ FE-Querschnitt 1+2 (mit "per Hand" eingezeichneter Bew.) KOPF Querschnitt 1+2 SIZ2 TEIL BILD SIZE -urs TEIL 2x1 FARB F5 17001 FAR2 F7 10001 SEIT UNIE 0 $ -- Querschnitts-CDB 1 ------------------------------------------------------------ DB BEZ 'SECT:1' BEOB TYP STAN X 1 Y 0 Z 0 ACHS POSZ MOVE Y 0.574 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 1 MOVE Y 0.524 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 2 MOVE Y 0.574 Z 0.024; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 3 MOVE Y 0.574 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 4 MOVE Y 0.524 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 5 MOVE Y 0.574 Z -0.024; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 6 MOVE Y -0.574 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 7 MOVE Y -0.524 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 8 MOVE Y -0.574 Z -0.024; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 9 MOVE Y -0.574 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 10 MOVE Y -0.524 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 11 MOVE Y -0.574 Z 0.024; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 12 MOVE Y 0.407556 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 13 MOVE Y 0.407556 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 14 MOVE Y 0.291111 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 15 MOVE Y 0.291111 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 16 MOVE Y 0.174667 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 17 MOVE Y 0.174667 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 18 MOVE Y 0.0582222 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 19 MOVE Y 0.0582222 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 20 MOVE Y -0.0582222 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 21 MOVE Y -0.0582222 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 22 MOVE Y -0.174667 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 23 MOVE Y -0.174667 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 24 MOVE Y -0.291111 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 25 MOVE Y -0.291111 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 26 MOVE Y -0.407556 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 27 MOVE Y -0.407556 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 28 STRU NUME 0 NUMK 0 HOEH TEMP 0 1200 100; UND; STRU KONT HOEH TEMP 0 1100 100 FILL JA; UND; STRU KONT $ -- Querschnitts-CDB 2 ------------------------------------------------------------ DB BEZ 'SECT:2' BEOB TYP STAN X 1 Y 0 Z 0 ACHS POSZ MOVE Y 0.449 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 1 MOVE Y 0.449 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 2 MOVE Y -0.449 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 3 MOVE Y -0.449 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 4 MOVE Y 0.349222 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 5 MOVE Y 0.349222 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 6 MOVE Y 0.249444 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 7 MOVE Y 0.249444 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 8 MOVE Y 0.149667 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 9 MOVE Y 0.149667 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 10 MOVE Y 0.0498889 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 11 MOVE Y 0.0498889 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 12 MOVE Y -0.0498889 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 13 MOVE Y -0.0498889 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 14 MOVE Y -0.149667 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 15 MOVE Y -0.149667 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 16 MOVE Y -0.249444 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 17 MOVE Y -0.249444 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 18 MOVE Y -0.349222 Z 0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 19 MOVE Y -0.349222 Z -0.074; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 20 MOVE Y 0.449 Z 0; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 21 MOVE Y -0.449 Z 0; POST; DRAW X 0.15 Y 0.15 UNIT rcm; TEXT 22 STRU NUME 0 NUMK 0 HOEH TEMP 0 1200 10; UND; STRU KONT HOEH TEMP 0 1100 10 FILL JA; UND; STRU KONT ende; ende $ --------------------- -PROG WING -e urs:12 $ Sonder-QNR. 11 und 22 $ SIZ2 TEIL BILD $ SIZE -urs TEIL 2x1 $ FARB F5 17001 $ FAR2 F7 10001 $ $ -- Querschnitts-CDB 11 ----------- $ DB BEZ 'SECT:11' $ Wechsel auf die Querschnitts-CDB $ BEOB TYP STAN X 1 Y 0 Z 0 ACHS POSZ $ STRU NUME 0 NUMK 0 $ HOEH TEMP 0 1200 50; UND; STRU KONT $ HOEH TEMP 0 1100 50 FILL JA; UND; STRU KONT $ $ -- Querschnitts-CDB 22 ----------- $ DB BEZ 'SECT:22' $ Wechsel auf die Querschnitts-CDB $ BEOB TYP STAN X 1 Y 0 Z 0 ACHS POSZ $ STRU NUME 0 NUMK 0 $ HOEH TEMP 0 1200 50; UND; STRU KONT $ HOEH TEMP 0 1100 50 FILL JA; UND; STRU KONT ende; ende $ ------------------ +PROG AQUA urs:16 $ !neu/erneut! bew. heiße Querschn. (Auslesen HYDRA-Temperaturprofil und Anpassen Bew.-Temperatur/-Steifigk ..) KOPF !Neu-! Bewehrung der heißen Querschnitte rcl#s_innen $ Längsbew. innen [mm] rcl#s_aussn $ außen [mm] let#s_end_i +250/2-#s_innen let#s_end_a -250/2+#s_aussn SEIT UNIE 0 ECHO VOLL nein ECHO MAT ja ECHO QUER voll; ECHO QUER prf 3 ECHO PICT ja 1 STEU REST 2 QNR 302 MNR 1 BEZ '$(MINU) min Fire' FEM 'SECT:2' LTEM 1 T $(MINU)[min] BEW 1 Y 0.449 Z #s_end_i[mm] D 25[mm] BEW 2 Y 0.449 Z #s_end_a[mm] D 25[mm] BEW 3 Y -0.449 Z #s_end_a[mm] D 25[mm] BEW 4 Y -0.449 Z #s_end_i[mm] D 25[mm] BEW 5 Y 0.349222 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 6 Y 0.349222 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 7 Y 0.249444 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 8 Y 0.249444 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 9 Y 0.149667 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 10 Y 0.149667 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 $ BEW 11 Y 0.0498889 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 $ BEW 12 Y 0.0498889 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 $ BEW 13 Y -0.0498889 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 $ BEW 14 Y -0.0498889 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 15 Y -0.149667 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 16 Y -0.149667 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 17 Y -0.249444 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 18 Y -0.249444 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 19 Y -0.349222 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 20 Y -0.349222 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 $ BEW 21 Y 0.449 Z 0 D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 $ BEW 22 Y -0.449 Z 0 D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 QNR 401 MNR 1 BEZ '$(MINU) min Fire' FEM 'SECT:1' LTEM 1 T $(MINU)[min] $ BEW 1 Y 0.574 Z #s_end_i[mm] D 25[mm] BEW 2 Y 0.524 Z #s_end_i[mm] D 25[mm] $ BEW 3 Y 0.574 Z 0.024 D 25[mm] $ BEW 4 Y 0.574 Z #s_end_a[mm] D 25[mm] BEW 5 Y 0.524 Z #s_end_a[mm] D 25[mm] $ BEW 6 Y 0.574 Z -0.024 D 25[mm] $ BEW 7 Y -0.574 Z #s_end_a[mm] D 25[mm] BEW 8 Y -0.524 Z #s_end_a[mm] D 25[mm] $ BEW 9 Y -0.574 Z -0.024 D 25[mm] $ BEW 10 Y -0.574 Z #s_end_i[mm] D 25[mm] BEW 11 Y -0.524 Z #s_end_i[mm] D 25[mm] $ BEW 12 Y -0.574 Z 0.024 D 25[mm] BEW 13 Y 0.407556 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 14 Y 0.407556 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 15 Y 0.291111 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 16 Y 0.291111 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 17 Y 0.174667 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 18 Y 0.174667 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 $ BEW 19 Y 0.0582222 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 $ BEW 20 Y 0.0582222 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 $ BEW 21 Y -0.0582222 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 $ BEW 22 Y -0.0582222 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 23 Y -0.174667 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 24 Y -0.174667 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 25 Y -0.291111 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 26 Y -0.291111 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 27 Y -0.407556 Z #s_end_i[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 BEW 28 Y -0.407556 Z #s_end_a[mm] D 25[mm] AS 4.90874[cm2] ASMA 4.90874[cm2] RANG m3 ENDE +PROG SOFIMSHA urs:8 $ RESTART: Heiß-Querschnitte UND ggf. geänderte Lagerung ! KOPF Stat. System (Heiß-Querschnitte und Lagerung) für die Heißbemessung sto#Sys_Zust 'HEISS' $ für RESULTS: derzeit sind die Heiß-Querschnitte scharf SEIT UNIE 0 syst rest; steu rest 2 $ stab prop QNR 4; MOD STAB 1 $ stab prop QNR 3; MOD STAB 2 stab prop QNR 302; MOD STAB 3 stab prop QNR 401; MOD STAB 4 KNOT 1 FIX frei; KNOT 1 FIX ZP $ ggf. biegesteifere Lagerungen im Heißfall (aber Kopfeinspannung bei Dachdecken / ohne anschließende Stütze nicht sinnvoll) 2 FIX frei 3 FIX frei; KNOT 3 FIX ZP 4 FIX frei 5 FIX frei 6 FIX frei KNOT 7 FIX frei; KNOT 7 FIX PZMZZP ENDE +PROG SOFILOAD urs:9 $ Kombinationen für die Heißbemessung KOPF Kombinationen für die Heißbemessung SEIT UNIE 0 LF 3001 TYP del $ LF 3002 TYP (A) BEZ 'G(1)+0.3Q(2)+I(X-)' COPY 1 1 COPY 2 0.3 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 $ LF 3003 TYP (A) BEZ 'G(1)+0.3Q(2)+0.2W(4)+I(X-)' COPY 1 1 COPY 2 0.3 COPY 4 0.2 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 $ LF 3004 TYP (A) BEZ 'G(1)+0.2W(3)+I(X-)' COPY 1 1 COPY 3 0.2 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 $ LF 3005 TYP (A) BEZ 'G(1)+0.2W(4)+I(X-)' COPY 1 1 COPY 4 0.2 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 $ LF 3006 TYP (A) BEZ 'G(1)+0.3Q(2)+0.2W(3)+I(X-)' COPY 1 1 COPY 2 0.3 COPY 3 0.2 STEL 1 1 TYP uz -8.3*-1 A 0.5 MESS ss $ Imp(X-), L = 3.3 STEL 2 4 TYP uz 10.4*-1 A 0.5 MESS ss $ Imp(X+), L = 4.3 $ LF 3102 TYP (A) BEZ '3002 + Kriechverformung' copy 3002 STEL 1 4 TYP prim P 2.5 OPT 9002 $ Kriechen $ LF 3103 TYP (A) BEZ '3003 + Kriechverformung' copy 3003 STEL 1 4 TYP prim P 2.5 OPT 9003 $ Kriechen ENDE +PROG STAR2 urs:10 $ (LF 3xxx) GZA-Heiß (Th.2.O) KOPF Heißbemessung SEIT UNIE 0 ECHO SCHU nein ECHO DEHN ECHO SVER extr #define Heiß-LF-Block STEU INTE 4; STEU II 100 $STEU QWF 1 $ QWF 1: Bew.querschnitt mit Faktor 1 ansetzen STEU FEM 2 $ AQB-Steuerung zu Querschnittsvernetzung (0: NICHT-FEM [nicht mehr verwenden!], 1: FEM verwenden, aber keine Querschnittsergebnisse in der Querschnitts-FE-Datenbank abspeichern; 2: wie 1, aber mit abspeichern) LF #LF_akt; BEW stab einz LFB #LF_akt; BEME acci KSV ul KSB ul SC1 1.0 SCL 1 AMAX 30; DEHN ak1 FMAX 2.0 #enddef Heiß-LF-Block let#LF_akt 3002 #include Heiß-LF-Block ENDE let#LF_akt 3003 #include Heiß-LF-Block ENDE let#LF_akt 3004 #include Heiß-LF-Block ENDE let#LF_akt 3005 #include Heiß-LF-Block ENDE let#LF_akt 3006 #include Heiß-LF-Block ENDE let#LF_akt 3102 #include Heiß-LF-Block ENDE let#LF_akt 3103 #include Heiß-LF-Block ende; ende $ -------------------------- +PROG COLUMN urs:9.109 $ Ergebnisse der Heißbemessung KOPF Ergebnisse der Heißbemessung SEIT UNIE 0 ECHO MAT ja; ECHO QUER ja; ECHO SYST ja; ECHO EINW ja; ECHO LAST extr ECHO AUFL ja; ECHO SCHN ja; ECHO VERF ja; ECHO KOMB voll ECHO BEW ja; ECHO BILD ja STEU NETT ja $ POS LAGE 'D1/12' let#Dauertext ($(MINU)) $ für TXA-Ausgabe #Variable erforderlich. if $(T_FU)=='ETK' $ Einheits-Temperaturkurve TXA Beflammg (Befl.-Seiten s.HYDRA!): Es wird die ETK angesetzt (nach (R #Dauertext) Minuten). else TXA Beflammg (Befl.-Seiten s.HYDRA!): Es wird NICHT die ETK angesetzt, sondern (Zeitpunkt! #Dauertext Minuten; Maßgeblichkt prüfen, ggf. auch mal vorverlegen !) eigendefiniert gemäß f. ... TXA (für Nw-Zeitpunkt bei irgendwann wieder abfallender Brandkurve: maßgebend ist der heißeste Zustand im gesamten Nw-Zeitraum !! ) endif $ FIRE R $(MINU) FACE 'Z+' EPS 0.7 ALPC 25 ALPL 9 KURV $(T_FU) FIRE R $(MINU) FACE 'Z+' EPS - ALPC - ALPL - KURV $(T_FU) $ ob die Randangabe (immer noch) stimmt, sollte mit WING kontrolliert werden KOMB 3002 (A) 'G(1)+0.3Q(2)+I(X-)' KOMB 3003 (A) 'G(1)+0.3Q(2)+0.2W(4)+I(X-)' KOMB 3004 (A) 'G(1)+0.2W(3)+I(X-)' KOMB 3005 (A) 'G(1)+0.2W(4)+I(X-)' KOMB 3006 (A) 'G(1)+0.3Q(2)+0.2W(3)+I(X-)' KOMB 3102 (A) '3002 + Kriechverformg ' KOMB 3103 (A) '3003 + Kriechverformg ' ENDE -APPLY "$(name).wng" $ (COLUMN-Auto-)WING HYDRA-Querschnittstemperaturen PROG WING urs:9.199 KOPF Spannungen im heißen Querschnitt DB BEZ 'sect:2' SIZE -urs M 1 TEIL 2x2 SIZ2 TEIL bild BEOB TYP stan X 1 Y 0 Z 0 ACHS posz DREH 0 LF NR 3103 BEME 3103 ENR 3 X 0.000; QUAD TYP qsx UNIT stan SCHR 0.15 STYP e2k FILL flae DARS dhoh MITT nein LF NR 3103 BEME 3103 ENR 3 X 0.067; QUAD TYP qsx UNIT stan SCHR 0.15 STYP e2k FILL flae DARS dhoh MITT nein LF NR 3103 BEME 3103 ENR 3 X 0.133; QUAD TYP qsx UNIT stan SCHR 0.15 STYP e2k FILL flae DARS dhoh MITT nein LF NR 3103 BEME 3103 ENR 3 X 0.200; QUAD TYP qsx UNIT stan SCHR 0.15 STYP e2k FILL flae DARS dhoh MITT nein LF NR 3103 BEME 3103 ENR 3 X 0.267; QUAD TYP qsx UNIT stan SCHR 0.15 STYP e2k FILL flae DARS dhoh MITT nein LF NR 3103 BEME 3103 ENR 3 X 0.333; QUAD TYP qsx UNIT stan SCHR 0.15 STYP e2k FILL flae DARS dhoh MITT nein LF NR 3103 BEME 3103 ENR 3 X 0.400; QUAD TYP qsx UNIT stan SCHR 0.15 STYP e2k FILL flae DARS dhoh MITT nein ENDE ! SOFiSTiK Structural Desktop, Task:-9 [Stütze Heißbemessung]