10 CLS:KEY OFF 11 PRINT"CALCULO TEMPERATURA PERFIL ACERO MACIZADO SIN PROTECCION EN COMPROBACION 12 PRINT"RESISTENCIA AL FUEGO PARA EI DE EDIFICIO (Referencia: HEB240, 4 caras, EI=60, 13 'PRINT"uf=0.5) 21 PRINT"Titulo del calculo (Perfil acero y caras).. T = ? HEB240 (4 caras+macizado)" 22 PRINT"Canto del perfil de acero (m) ............. h = ? 0.24 (indicativo)" 23 PRINT"Ancho del perfil de acero (m) ............. b = ? 0.24 (indicativo)" 24 PRINT"Area expuesta del perfil (m2/m) ........... Am = ? 0.96 (obligatorio)" 31 PRINT"Volumen de acero del perfil (m3/m) ........ V = ? 0.0576" 32 PRINT"Factor de seccion (m-1) ................... Sm = 16.66" 35 PRINT"Coeficiente grado de utilizacion (Ef/Rf) . uf = ? 0.5" 36 PRINT"Temperatura critica perfil acero. (低).... Ofc = 585" 37 PRINT"Estabilidad estructural del edificio (min). EI = ? 60" 38 PRINT"Temperatura fija inicial por EI (低) Oot = 680" 39 PRINT"Coef. empirico de temperatura por Sm (m.低) kt = 9.55" 42 PRINT"Coeficiente por calculo con metodo avanzado ka = ? 0.74 (0.44\0.74\0,85\0.92)" 46 PRINT"Temperatura final gas incendio (低)....... Ogt = 945" 47 PRINT"Temp. final perfil acero metodo simp. (低) Oft = 839" 48 PRINT"Temp. final perfil acero metodo avan. (低) Omt = 620" 49 LOCATE 3,1 50 INPUT"Titulo del calculo (Perfil acero y caras).. T = ";T$:IF T$="" THEN T$="HEB240 (4 caras)" 51 IF T$="1" THEN GOSUB 200:GOTO 69 52 INPUT"Canto del perfil de acero (m) ............. h = ";H:IF H=0 THEN H=0.24 53 LOCATE CSRLIN-1,51:PRINT H " ":INPUT"Ancho del perfil de acero (m) ............. b = ";B:IF B=0 THEN B=0.24 54 LOCATE CSRLIN-1,51:PRINT B " ":INPUT"Area expuesta del perfil (m2) ............. Am = ";AM:IF AM=0 THEN AM=0.96:AB=0.96:KSH=0.62:V=0.0576:SM=16.66:EI=60:UF=.5:OFC=585:OGT=945:OFT=839:OMT=620:LOCATE 18,1:GOTO 150 55 LOCATE CSRLIN-1,52:PRINT AM " ":INPUT"Volumen de acero del perfil (m3/m)......... V = ";V:IF V=0 THEN V=0.0576 56 LOCATE CSRLIN-1,51:PRINT V " ":SM=AM/V:PRINT"Factor de seccion (m-1) ................... Sm = " FIX(10*SM)/10 " " 57 INPUT"Coeficiente grado de utilizacion (Ef/Rf) .. uf = ";UF:IF UF=0 THEN UF=0.5 58 LOCATE CSRLIN-1,51:PRINT UF " ":OFC=39.19*LOG((1/(0.9674*UF^3.833))-1)+483:PRINT"Temperatura critica perfil acero. (低).... Ofc = " FIX(OFC) 59 INPUT"Estabilidad estructural del edificio (min) EI = ";EI:IF EI=0 THEN EI=60 61 IF EI=30 THEN OOT=550:KT=9.66 62 IF EI=60 THEN OOT=680:KT=9.55 63 IF EI=90 THEN OOT=805:KT=6.15 64 IF EI=120 THEN OOT=900:KT=4.65 65 LOCATE CSRLIN-1,51:PRINT EI " ":PRINT"Temperatura fija inicial por EI (低) Oot = " OOT 66 LOCATE CSRLIN-1,51:PRINT OOT " ":PRINT"Coef. empirico de temperatura por Sm (m.低) kt = " KT 67 INPUT"Coeficiente por calculo con metodo avanzado ka = ";KA:IF KA=0 THEN KA=0.74 68 LOCATE CSRLIN-1,51:PRINT KA " ":OGT=20+345*LOG(8*(EI)+1)/LOG(10):PRINT"Temperatura final gas incendio (低)....... Ogt = " FIX(OGT) 69 'LOCATE 16,1 70 OPEN "TEMP.TXT" FOR OUTPUT AS 1 71 PRINT #1,"CALCULO TEMPERATURA PERFIL ACERO MACIZADO SIN PROTECCION EN COMPROBACION RESISTENCIA AL FUEGO PARA EI DE EDIFICIO (EN 1994-1-2)" 72 PRINT #1, D$ 73 PRINT #1,"Titulo del calculo (Perfil acero y caras).. T = " T$ 74 PRINT #1,"Canto del perfil de acero (m) ............ h = " H 75 PRINT #1,"Ancho del perfil de acero (m) ............ b = " B 76 PRINT #1,"Area expuesta del perfil (m2/m) ......... Am = " AM 81 PRINT #1,"Volumen de acero del perfil (m3/m) ........ V = " V 82 PRINT #1,"Factor de seccion (m-1) ................... Sm = " FIX(10*AM/V)/10 86 PRINT #1,"Coeficiente grado de utilizacion (Ef/Rf) .. uf = " UF 87 PRINT #1,"Temperatura critica perfil acero. (慢).... Ofc = " FIX(OFC) 88 PRINT #1,"Estabilidad estructural del edificio (min). EI = " EI 89 PRINT #1,"Temperatura fija inicial por EI (慢) Oot = " OOT 92 PRINT #1,"Coef. empirico de temperatura por Sm (m.慢) kt = " KT 93 PRINT #1,"Coeficiente por calculo con metodo avanzado ka = " KA 96 PRINT #1,"Temperatura final gas incendio (慢)....... Ogt = " FIX(OGT) 115 OFT=OOT+KT*(AM/V) 116 OMT=KA*OFT 137 PRINT"Temp. final perfil acero metodo simp. (低) Oft = " FIX(OFT) 138 PRINT"Temp. final perfil acero metodo avan. (低) Omt = " FIX(OMT) 147 PRINT #1,"Temp. final perfil acero metodo simp. (慢) Oft = " FIX(OFT) 148 PRINT #1,"Temp. final perfil acero metodo avan. (慢) Omt = " FIX(OMT) 150 INPUT;"Pulsar tecla para terminar ";Z 160 SYSTEM 200 OPEN "DATOS.TXT" FOR INPUT AS 1:LINE INPUT #1, D$:CLOSE 201 OPEN "DATOS.TXT" FOR INPUT AS 1 210 INPUT #1, T$,H,B,AM,V,UF,EI,KA 215 CLOSE 230 SM=AM/V 240 O1=20 260 OFC=39.19*LOG((1/(0.9674*UF^3.833))-1)+483 270 LOCATE CSRLIN-1,1 271 PRINT"Titulo del calculo (Perfil acero y caras).. T = " T$ " " 272 PRINT"Canto del perfil de acero (m) ............ h = " H " " 273 PRINT"Ancho del perfil de acero (m) ............ b = " B " " 274 PRINT"Area expuesta total del perfil (m2/m) ..... Am = " AM " " 281 PRINT"Volumen de acero del perfil (m3/m) ........ V = " V " " 282 PRINT"Factor de seccion (m-1) ................... Sm = " FIX(10*AM/V)/10 " " 284 PRINT"Coeficiente grado de utilizacion (Ef/Rf) .. uf = " UF " " 285 OFC=39.19*LOG((1/(0.9674*UF^3.833))-1)+483 286 PRINT"Temperatura critica perfil acero. (低).... Ofc = " FIX(OFC) " " 287 PRINT"Estabilidad estructural del edificio (min). EI = " EI " " 291 IF EI=30 THEN OOT=550:KT=9.66 292 IF EI=60 THEN OOT=680:KT=9.55 293 IF EI=90 THEN OOT=805:KT=6.15 294 IF EI=120 THEN OOT=900:KT=4.65 295 PRINT"Temperatura fija inicial por EI (低) Oot = " OOT " " 296 PRINT"Coef. empirico de temperatura por Sm (m.低) kt = " KT " " 297 PRINT"Coeficiente por calculo con metodo avanzado ka = " KA " " 298 OGT=20+345*LOG(8*(EI)+1)/LOG(10) 299 PRINT"Temperatura final gas incendio (低)....... Ogt = " FIX(OGT) " " 300 RETURN