10 CLS:PRINT"PROGRAMA DE CALCULO JACENA\VIGA ACERO SIMPLEMENTE APOYADAS (CAVIACE.BAS)
20 PRINT"Imprimir solucion de pantalla procesando con Qbasic (50 lineas)
30 DIM PN(30),WN(30),IN(30)
40 PRINT"        OPCIONES DEL PROGRAMA
50 PRINT"        =====================
60 PRINT"  1. - CARGA UNIFORMEMENTE REPARTIDA (a=1)
70 PRINT"  2. -                     LATERAL (a=0.5, b=0.5)
80 PRINT"  3. -                     CENTRAL (a1=0.25, b=0,5, a2=0.25)
90 PRINT"  4. - CARGA PUNTUAL UNICA CENTRAL (s=1/2)
100 PRINT"  5. -               DOBLE CENTRAL (s=1/3)
110 PRINT"  6. -               DOBLE LATERAL (s=1/4)
120 PRINT"  7. - OTROS                               
130 INPUT" INTRODUCIR ELECCIN (<1> a <7>) <ENTER> : ",Z%
140 IF Z%<1 OR Z%>7 THEN LOCATE CSRLIN-1,40:PRINT SPC(10):LOCATE,1:GOTO 130
150 ON Z% GOSUB 160,2000,3000,4000,5100,5110,5120
159 'Caso de carga uniformemente repartida
160 KEY OFF
170 CLS
180 PRINT"PROGRAMA DE CALCULO VIGAS METALICAS CON APOYO ESPECIFICO Y CARGA UNIFORMENTE
181 PRINT"REPARTIDA PARA SEGURIDAD Y FLECHA DETERMINADAS
182 PRINT"METODO ELASTICO (Acero A42b, åe=2600 kp/cmý, s=My/Mk)
183 PRINT"Carga lineal sobre viga o j cena (kg/m) ....... Q =   1000
184 PRINT"Longitud de viga o j cena (m) ................. l =   5
185 PRINT"Coeficiente seguridad <1.35> .................. s =   1.35"
186 PRINT"Flecta admisible (1/?=1/<400>)............... l/f =   400"
190 PRINT"Condici apoyo izq. (<A>poyo, <S>emi, <E>mpot.)  Iz=   A
191 PRINT"Condici apoyo der. (<A>poyo, <S>emi, <E>mpot.)  De=   A
199 LOCATE 4,1
200 INPUT;"Carga lineal sobre viga o j cena (kg/m) ....... Q = ";Q
201 IF Q=0 THEN Q=1000:PRINT ELSE LOCATE,54:PRINT"      ";:LOCATE,54:PRINT Q
210 INPUT;"Longitud de viga o j cena (m) ................. l = ";L
211 IF L=0 THEN L=5 ELSE LOCATE,54:PRINT"     ";:LOCATE,54:PRINT L;
221 'PRINT;"Flecta admisible (1/?=1/<400>)............... l/f =   400";
222 'LOCATE,53:INPUT;"";LF
223 'IF LF=0 THEN LF=400 ELSE LOCATE,54:PRINT"     ";:LOCATE,54:PRINT LF;
224 'M=Q*L^2/8
230 M=Q*L^2/8:T=Q*L/2
231 LOCATE CSRLIN-1,63:PRINT"(M=" FIX(M) "mkp)"
232 LOCATE ,63:PRINT"(T=" FIX(T) "kp/m)"
240 INPUT;"Coeficiente seguridad <1.35> .................. s = ";S
241 'LOCATE,53:INPUT;"";S
242 IF S=0 THEN S=1.35:PRINT ELSE LOCATE,54:PRINT"     ";:LOCATE,54:PRINT S
243 INPUT;"Flecta admisible (1/?=1/<400>................ l/f = ";F0
244 IF F0=0 THEN F0=400 ELSE LOCATE,54:PRINT"    ";:LOCATE,54:PRINT F0;
245 LF=L/F0
246 LOCATE CSRLIN-1,63:PRINT"(f<";:PRINT USING"##.##";LF*100;:PRINT" cm)"
247 IM=FIX(M*L*F0/2016):'IM=M*L*F0/(48*2.1*10^6/(5*100*100))
248 LOCATE,63:PRINT "(Iadm=" FIX(IM) "cm4)"

253 INPUT;"Condici apoyo izq. (<A>poyo, <S>emi, <E>mpot.)  Iz= ";IZ$
254 IF IZ$="" THEN IZ$="A":LOCATE ,55:PRINT IZ$;
255 IF IZ$="s" THEN IZ$="S":LOCATE,55:PRINT IZ$;
256 IF IZ$="e" THEN IZ$="E":LOCATE,55:PRINT IZ$;
257 IF IZ$<>"S" AND IZ$<>"E" THEN IZ$="A":LOCATE,55:PRINT IZ$;
258 PRINT:INPUT;"Condici apoyo der. (<A>poyo, <S>emi, <E>mpot.)  De= ";DE$
259 IF DE$="" THEN DE$="A":LOCATE ,55:PRINT DE$;
260 IF DE$="s" THEN DE$="S":LOCATE,55:PRINT DE$;
261 IF DE$="e" THEN DE$="E":LOCATE,55:PRINT DE$;
262 IF DE$<>"S" AND DE$<>"E" THEN DE$="A":LOCATE,55:PRINT DE$;
265 MM=1.2*M
266 F=1:'Poner los EI correspondientes a I
268 IF IZ$="A" AND DE$="A" THEN MAI=(1/6)*M:MV=M:        MAD=MAI:    IM=M*L*F0/2016:CF=1:GOTO 300
269 IF IZ$="A" AND DE$="S" THEN MAI=(1/6)*M:MV=(9/12)*MM:MAD=(1/3)*M:IM=MV*L*F0*4/(2016*5):CF=.8:GOTO 300
270 IF IZ$="S" AND DE$="A" THEN MAI=(1/3)*M:MV=(9/12)*MM:MAD=(1/6)*M:IM=MV*L*F0*4/(2016*5):CF=.8:GOTO 300
271 IF IZ$="S" AND DE$="S" THEN MAI=(1/3)*M:MV=(2/3)*MM: MAD=MAI:    IM=MV*L*F0*3/(2016*5):CF=.6:GOTO 300
272 IF IZ$="E" AND DE$="A" THEN MAI=(2/3)*MM:MV=(7/12)*MM:MAD=(1/6)*M:IM=MV*L*F0*3/(2016*5):CF=.6:GOTO 300
273 IF IZ$="A" AND DE$="E" THEN MAI=(1/6)*M:MV=(7/12)*MM:MAD=(2/3)*MM:IM=MV*L*F0*3/(2016*5):CF=.6:GOTO 300
274 IF IZ$="S" AND DE$="E" THEN MAI=(1/3)*M:MV=(3/6)*MM: MAD=(2/3)*MM:IM=MV*L*F0*2/(2016*5):CF=.4:GOTO 300
275 IF IZ$="E" AND DE$="S" THEN MAI=(2/3)*MM:MV=(3/6)*MM:MAD=(1/3)*M:IM=MV*L*F0*2/(2016*5):CF=.4:GOTO 300
276 IF IZ$="E" AND DE$="E" THEN MAI=(2/3)*MM:MV=(1/3)*MM:MAD=MAI:    IM=MV*L*F0/(20.16*5):CF=.2
300 PRINT"Momento central (mt) ......................... Mvk= " FIX(MV/10)/100 TAB(63) "Mvd=" USING"###.##";MV*S/1000+.01;:PRINT" mt"
302 PRINT"Momento apoyo izquierdo (mt) ................. Mik= " FIX(MAI/10)/100 TAB(63) "Mid=" USING"###.##";-MAI*S/1000+.01;:PRINT" mt"
303 PRINT"Momento apoyo derecho (mt) ................... Mdk= " FIX(MAD/10)/100 TAB(63) "Mdd=" USING"###.##";-MAD*S/1000+.01;:PRINT" mt"
304 IF MAI>MAD THEN MA=MAI ELSE MA=MAD
305 IF MV>MA THEN M=MV ELSE M=MA
306 GOSUB 320
307 CLS:CLEAR:GOTO 40

320 PRINT;"Tipo perfil (<I><E><H> o <Z> ..................   =   I";
330 LOCATE,53:INPUT;"";T$
340 IF T$="" THEN T$="I" ELSE LOCATE,54:PRINT"     ";:LOCATE,55:PRINT T$
350 DATA 80,5.95,19.5,77.8,100,8.32,34.2,171,120,11.1,54.7,328,140,14.4,81.9,573,160,17.9,117,935,180,21.9,161,1450,200,26.3,214,2140,220,31.1,278,3060,240,36.2,354,4250,280,41.9,442,5740,280,48,542,7590,300,54.2,653,9800
360 DATA 320,61.1,782,12510,340,68.1,923,15700,360,76.2,1090,19610,380,84,1260,24010,400,92.6,1460,29210,425,104,1740,36970,450,115,2040,45850,475,128,2380,56480,500,141,2750,68740,550,167,3610,99180,600,199,4630,139000
370 IF T$="I" THEN P$="IPN":GOTO 630
380 READ Z$:IF Z$<>"139000" THEN 380
390 DATA 80,6.0,20.0,80.1,100,8.1,34.2,171,120,10.4,53,318,140,12.9,77.3,541,160,15.8,109,869,180,18.8,146,1320,200,22.4,194,1940,220,26.2,252,2770,240,30.7,324,3890,270,36.1,429,5790,300,42.2,557,8360
400 DATA 330,49.1,713,11770,360,57.1,904,16270,400,66.3,1160,23130,450,77.6,1500,33740,500,90.7,1930,48200,550,106,2440,67120,600,122,3070,92080
410 IF T$="e" OR T$="E" THEN P$="IPE":GOTO 630
420 READ Z$:IF Z$<>"92080" THEN 420
430 DATA 100,20.4,90,450,120,26.7,144,864,140,33.7,216,1509,160,42.6,311,2492,180,51.2,426,3831,200,61.3,570,5696,220,71.5,736,8091,240,83.2,938,11259,260,93,1150,14919,280,103,1380,19270,300,117,934,25166
440 DATA 320,127,1930,30893,340,134,2160,36656,360,142,2400,43190,400,155,2880,57680
450 IF T$="h" OR T$="H" THEN P$="HEB":GOTO 630
460 PRINT;"Grueso perfil (mm)  <2.0> ..................... e =   2.0";
461 LOCATE,53:INPUT;"";E
462 IF E=0 THEN E=2 ELSE LOCATE,54:PRINT"     ";:LOCATE,54:PRINT E
470 READ Z:IF Z<>57680! THEN 470
480 IF E=2 THEN 520
490 IF E=2.5 THEN 540
500 IF E=3 THEN 1790
510 IF E=4 THEN 1820
520 DATA 100.2,3.7,14.7,76.4,120.2,4.02,18.8,117,140.2,4.33,23.1,167,160.2,4.65,27.7,229,175.2,4.79,31,273,180.2,4.96,32.6,302,200.2,6.01,45.8,473
530 GOTO 620
540 READ Z$:IF Z$<>"473" THEN 540
550 DATA 100.2.5,4.58,18,93.5,120.2.5,6.34,23,143,140.2.5,5.37,28.4,205,160.2.5,5.76,34,281,175.2.5,5.94,43,336,180.2.5,6.15,40.1,371,200.2.5,7.47,56.5,583,300.2.5,9.43,99,1524
560 GOTO 620
570 READ Z$:IF Z$<>"1524" THEN 570
580 DATA 100.3,5.42,21,109,120.3,5.89,26.9,167,140.3,6.36,33.2,240,160.3,6.84,40,330,175.3,7.1,44,397,180.3,7.31,47.1,436,200.3,8.88,66.6,688,300.3,11.2,117,1804
590 GOTO 620
600 READ Z$:IF Z$<>"1804" THEN 600
610 DATA 300.4,14.7,150,2306
620 IF T$="z" OR T$="Z" THEN P$=" ZF":GOTO 630
630 READ H$,P,W,I:'PRINT H$,P,W,I
640 T=M*100/W
650 IF T>2600 THEN 630
660 PRINT"Perfil m¡nimo en limite elastico (cm) ....... " P$ " =   " H$ TAB(63) "(I =" FIX(I) "cm4)"
670 PRINT"Peso perfil (kg) .............................. P =  " FIX(P*L+.5) TAB(63) "(p =" P "kg/m)"
680 F=FIX(CF*M*L^2/(2.016*I))/10
690 PRINT"Flecha (cm) ................................... f =  " F TAB(63) "(l/f=1/" FIX(100*L/F)
700 PRINT"Tensi¢n m xima (kp/cm2) ....................... å =  " FIX(T) TAB(63) "(W =" FIX(W) "cm3)"
710 PRINT"Coeficiente seguridad  ........................ s =  " FIX(260000!/T)/100
720 IF T<2600/S THEN 760
730 READ H$,P,W,I:'PRINT H$,P,W,I
740 T=M*100/W
750 IF T>2600/S THEN 730
760 PRINT"Perfil admisible en momento flector (cm)..... " P$ " =   " H$ TAB(63) "(I =" FIX(I) "cm4)"
770 PRINT"Peso perfil (kg) .............................. P =  " FIX(P*L+.5) TAB(63) "(p =" P "kg/m)"
780 F=FIX(CF*M*L^2/(2.016*I))/10
790 PRINT"Flecha (cm) ................................... f =  " F TAB(63) "(l/f=1/" FIX(100*L/F)
800 PRINT"Tensi¢n admisible (kp/cm2) .................... å =  " FIX(T) TAB(63) "(W =" FIX(W) "cm3)"
810 PRINT"Coeficiente seguridad  ........................ s =  " FIX(260000!/T)/100
820 IF I>IM THEN 860
830 READ H$,P,W,I:'PRINT H$,P,W,I
840 IF I<IM THEN 830
850 T=M*100/W
860 PRINT"Perfil recomendable en flecta (cm)........... " P$ " =   " H$ TAB(63) "(I =" FIX(I) "cm4)"
870 PRINT"Peso perfil (kg) .............................. P =  " FIX(P*L+.5) TAB(63) "(p =" P "kg/m)"
880 F=FIX(CF*M*L^2/(2.016*I))/10
890 PRINT"Flecha (cm) ................................... f =  " F TAB(63) "(l/f=1/" FIX(100*L/F)
900 T=100*M/W
910 PRINT"Tensi¢n de trabajo (kg/cm2) ................... å =  " FIX(T) TAB(63) "(W =" FIX(W) "cm3)"
911 PRINT"Coeficiente seguridad  ........................ s =  " FIX(260000!/T)/100
921 INPUT"Desea reiniciar otro calculo (<S>i/<>no) ......   : ";RC$
922 IF RC$<>"S" AND RC$<>"s" THEN SYSTEM
925 RETURN

2000 END
3000 END
3999 'Caso de carga puntual centrada
4000 KEY OFF
4170 CLS
4180 PRINT"PROGRAMA DE CALCULO VIGAS METALICAS CON APOYO ESPECIFICO Y CARGA PUNTUAL
4181 PRINT"PARA SEGURIDAD Y FLECHA DETERMINADAS
4182 PRINT"METODO ELASTICO (Acero A42b, åe=2600 kp/cmý, s=My/Mk)
4183 PRINT"Carga puntual centrada en viga o j cena (kg)... P =   1000
4184 PRINT"Longitud de viga o j cena (m) ................. l =   5
4185 PRINT"Coeficiente seguridad <1.35> .................. s =   1.35"
4186 PRINT"Flecta admisible (1/?=1/<400>)............... l/f =   400"
4190 PRINT"Condici apoyo izq. (<A>poyo, <S>emi, <E>mpot.)  Iz=   A
4191 PRINT"Condici apoyo der. (<A>poyo, <S>emi, <E>mpot.)  De=   A
4199 LOCATE 4,1
4200 INPUT;"Carga puntual centrada en viga o j cena (kg)... P = ";Q
4201 IF Q=0 THEN Q=1000:PRINT ELSE LOCATE,54:PRINT"      ";:LOCATE,54:PRINT Q
4210 INPUT;"Longitud de viga o j cena (m) ................. l = ";L
4211 IF L=0 THEN L=5 ELSE LOCATE,54:PRINT"     ";:LOCATE,54:PRINT L;
4230 M=Q*L/4:T=Q/2
4231 LOCATE CSRLIN-1,63:PRINT"(M=" FIX(M) "mkp)"
4232 LOCATE ,63:PRINT"(T=" FIX(T) "kp)"
4240 INPUT;"Coeficiente seguridad <1.35> .................. s = ";S
4242 IF S=0 THEN S=1.35:PRINT ELSE LOCATE,54:PRINT"     ";:LOCATE,54:PRINT S
4243 INPUT;"Flecta admisible (1/?=1/<400>................ l/f = ";F0
4244 IF F0=0 THEN F0=400 ELSE LOCATE,54:PRINT"    ";:LOCATE,54:PRINT F0;
4245 LF=L/F0
4246 LOCATE CSRLIN-1,63:PRINT"(f<";:PRINT USING"##.##";LF*100;:PRINT" cm)"
4247 IM=FIX(M*L*F0/2520):'(12*2.1*100)
4248 LOCATE,63:PRINT "(Iadm=" FIX(IM) "cm4)"
4253 INPUT;"Condici apoyo izq. (<A>poyo, <S>emi, <E>mpot.)  Iz= ";IZ$
4254 IF IZ$="" THEN IZ$="A":LOCATE ,55:PRINT IZ$;
4255 IF IZ$="s" THEN IZ$="S":LOCATE,55:PRINT IZ$;
4256 IF IZ$="e" THEN IZ$="E":LOCATE,55:PRINT IZ$;
4257 IF IZ$<>"S" AND IZ$<>"E" THEN IZ$="A":LOCATE,55:PRINT IZ$;
4258 PRINT:INPUT;"Condici apoyo der. (<A>poyo, <S>emi, <E>mpot.)  De= ";DE$
4259 IF DE$="" THEN DE$="A":LOCATE ,55:PRINT DE$;
4260 IF DE$="s" THEN DE$="S":LOCATE,55:PRINT DE$;
4261 IF DE$="e" THEN DE$="E":LOCATE,55:PRINT DE$;
4262 IF DE$<>"S" AND DE$<>"E" THEN DE$="A":LOCATE,55:PRINT DE$;
4265 MM=1.2*M
4266 F=1:'Poner los EI correspondientes a I
4268 IF IZ$="A" AND DE$="A" THEN MAI=(1/6)*M:MV=(5/6)*MM: MAD=MAI:    CF=1:GOTO 4300
4269 IF IZ$="A" AND DE$="S" THEN MAI=(1/6)*M:MV=(9/12)*MM:MAD=(2/6)*M:CF=.7:GOTO 4300
4270 IF IZ$="S" AND DE$="A" THEN MAI=(2/6)*M:MV=(9/12)*MM:MAD=(1/6)*M:CF=.7:GOTO 4300
4271 IF IZ$="S" AND DE$="S" THEN MAI=(2/6)*M:MV=(4/6)*MM: MAD=MAI:    CF=.45:GOTO 4300
4272 IF IZ$="E" AND DE$="A" THEN MAI=(4/6)*M:MV=(7/12)*MM:MAD=(1/6)*M:CF=.45:GOTO 4300
4273 IF IZ$="A" AND DE$="E" THEN MAI=(1/6)*M:MV=(7/12)*MM:MAD=(4/6)*M:CF=.45:GOTO 4300
4274 IF IZ$="S" AND DE$="E" THEN MAI=(2/6)*M:MV=(3/6)*MM: MAD=(4/6)*M:CF=.35:GOTO 4300
4275 IF IZ$="E" AND DE$="S" THEN MAI=(4/6)*M:MV=(3/6)*MM: MAD=(2/6)*M:CF=.35:GOTO 4300
4276 IF IZ$="E" AND DE$="E" THEN MAI=(4/6)*M:MV=(2/6)*MM: MAD=MAI:    CF=.25 
4300 IM=CF*M*L*F0/2520:'L/F0=M*L^2/(12*210*IM):CF=CF*2016/2520:IM=CF*M*L*F0/2016
4301 PRINT"Momento central (mt) ......................... Mvk= " FIX(MV/10)/100 TAB(63) "Mvd=" USING"###.##";MV*S/1000+.01;:PRINT" mt"
4302 PRINT"Momento apoyo izquierdo (mt) ................. Mik= " FIX(MAI/10)/100 TAB(63) "Mid=" USING"###.##";-MAI*S/1000+.01;:PRINT" mt"
4303 PRINT"Momento apoyo derecho (mt) ................... Mdk= " FIX(MAD/10)/100 TAB(63) "Mdd=" USING"###.##";-MAD*S/1000+.01;:PRINT" mt"
4304 IF MAI>MAD THEN MA=MAI ELSE MA=MAD
4305 IF MV>MA THEN M=MV ELSE M=MA
4306 GOSUB 320
4307 CLS:CLEAR:GOTO 40


5100 END
5110 END
5120 end:'FOR H=8 TO 40 STEP 2
5130 'IF T$="I" THEN W=2.089294-.5225792*H+.1883709*H^2+1.843315E-02*H^3
5140 'NEXT H
5150 'FOR H=42.5 TO 47.5 STEP 2.5
5160 'W=2.089294-.5225792*H+.1883709*H^2+1.843315E-02*H^3
5170 'NEXT H
5180 'FOR H=50 TO 60 STEP 5
5190 'W=2.089294-.5225792*H+.1883709*H^2+1.843315E-02*H^3
5200 'NEXT H
5210 'FOR H=H0 TO 40 STEP 2
5220 'I=227.9238-39.63843*H+1.997475*H^2+4.642427E-02*H^3+9.558513E-03*H^4
5230 'IF I>IM THEN 800
5240 'NEXT H
5250 'FOR H=42.5 TO 47.5 STEP 2.5
5260 'I=227.9238-39.63843*H+1.997475*H^2+4.642427E-02*H^3+9.558513E-03*H^4
5270 'IF I>IM THEN 800
5280 'NEXT H
5290 'FOR H=50 TO 60 STEP 5
5300 'I=227.9238-39.63843*H+1.997475*H^2+4.642427E-02*H^3+9.558513E-03*H^4
5310 'NEXT H
5320 'P=FIX(10*(.2540245+.3029258*H+5.004246E-02*H^2+.05))/10


930 'Caso de carga puntual centrada
940 INPUT"Carga puntual sobre viga o j cena (kg) ........ Q = ";Q
950 INPUT"Longitud de viga o j cena (m) ................. l = ";L
960 INPUT"Coeficiente seguridad (1.35) .................. s = ";S
970 IF S=0 THEN S=1.35
980 INPUT"Flecta admisible (1/?) ...................... l/f = ";LF
990 M=Q*L^2/4
1000 GOTO 300
1010 INPUT"UTILIZA PERFIL NORMAL (S/N) :", SN$
1020 IF SN$="N" THEN 1270
1030 INPUT"LUZ ENTRE APOYOS (m) ........ l = ";L
1040 INPUT;"CARGA (t/m) ................. q = ";Q
1050 M=Q*L^2/8
1060 W=10^5*M/2600
1070 PRINT"  (M =" FIX(10*M)/10 "mt)   (W >" FIX(10*W)/10 "cm3)
1080 DATA 8,19.5,77.8,10,34.2,171,12,54.7,328,14,81.9,573,16,117,935,18,161,1450,20,214,2140,22,278,3060,24,354,4250,26,442,5740,28,542,7590,30,653,9800,32,782,12510,34,923,15700,36,1090,19610,38,1260,24010,40,1460,29210,42.5,1740,36970,45,2040,45850
1090 DATA 47.5,2380,56480,50,2750,68740,55,3610,99180,60,4630,139000
1100 FOR I=1 TO 23
1110 READ PN(I),WN(I),IN(I)
1120 NEXT I
1130 PRINT" IPN                TENSIONES                     FLECTA
1140 PRINT" (cm)          (kp/cm2)     Seguridad       (cm)         1/(L/f)
1150 FOR I=23 TO 1 STEP -1
1160 IF WN(I)<W THEN 1180
1170 NEXT I
1180 FOR II=I TO 23
1190 T=10^5*M/WN(II)
1200 S=2600/T
1210 F=6.2*Q*L^4/IN(II)
1220 D=100*L/F
1230 PRINT PN(II),T,S,F,D
1240 IF S>2 AND D>600 THEN 1260
1250 NEXT II
1260 END
1270 INPUT"LUZ ENTRE APOYOS (m) ........ l = ";L
1280 INPUT;"CARGA (t/m) ................. q = ";Q
1290 M=Q*L^2/8
1300 W=10^5*M/2600
1310 PRINT"  (M =" FIX(10*M)/10 "mt)   (W >" FIX(10*W)/10 "cm3)
1320 INPUT"DATOS PERFIL <H,W,I> : ",H,W,I
1330 PRINT" PERFIL             TENSIONES                     FLECTA
1340 PRINT" (cm)          (kp/cm2)     Seguridad       (cm)         1/(L/f)
1350 T=10^5*M/W
1360 S=2600/T
1370 F=6.2*Q*L^4/I
1380 D=100*L/F
1390 PRINT H,T,S,F,D
1400 IF S>2 AND D>600 THEN 1420
1410 'NEXT
1420 END
1430 'READ Z:IF Z<>139000! THEN 1280
1440 'DATA 100,20.4,90,450,120,26.7,144,864,140,33.7,216,1509,160,42.6,311,2492,180,51.2,426,3831,200,61.3,570,5696,220,71.5,736,8091,240,83.2,938,11259,260,93,1150,14919,280,103,1380,19270,300,117,934,25166,320,127,1930,30893,340,134,2160,36656
1450 'READ P$,P,W,I:'PRINT P$,P,W,I
1460 'T=10^2*M/W
1470 'S0=2600/T:IF S0<S THEN 1410
1480 'PRINT"Perfil HEB m¡nimo (cm) ........................HEB= " P$ TAB(63) "(I =" FIX(I) "cm4)"
1490 'PRINT"Peso perfil (kg) .............................. P =  " FIX(P*L+.5) TAB(63) "(p =" P "kg/m)"
1500 'F=FIX(M*L^2/(2.016*I))/10
1510 'PRINT"Flecha (cm) ................................... f =  " F TAB(63) "(l/f=1/" FIX(100*L/F)
1520 'PRINT"Tensi¢n de trabajo (kg/cm2) ................... å =  " FIX(T) TAB(63) "(W =" FIX(W) "cm3)"
1530 'PRINT"Coeficiente seguridad  ........................ s =  " FIX(260000!/T)/100
1540 'IF FIX(100*L/F)<LF THEN 1420
1550 END
1560 IF I<>2306 THEN 1450
1570 READ P$,P,W,I:'PRINT P$,P,W,I
1580 F=FIX(M*L^2/(2.016*I))/10
1590 IF FIX(100*L/F)<LF THEN 1670
1600 T=10^2*M/W
1610 PRINT"Perfil HEB recomendado (cm) ...................HEB= " P$ TAB(63) "(I =" FIX(I) "cm4)"
1620 PRINT"Peso perfil (kg) .............................. P =  " FIX(P*L+.5) TAB(63) "(p =" P "kg/m)"
1630 PRINT"Flecha (cm) ................................... f =  " F TAB(63) "(l/f=1/" FIX(100*L/F)
1640 PRINT"Tensi¢n de trabajo (kg/cm2) ................... å =  " FIX(T) TAB(63) "(W =" FIX(W) "cm3)"
1650 PRINT"Coeficiente seguridad  ........................ s =  " FIX(260000!/T)/100
1660 GOTO 1680
1670 IF I<>36656! THEN 1570
1680 END
1690 'PRINT:INPUT"Grueso perfil (mm)  ..........................  e = ";E
1700 'READ Z:IF Z<>36656! THEN 1550
1710 'IF E=2 THEN 1690
1720 'IF E=2.5 THEN 1610
1730 'IF E=3 THEN 1640
1740 'IF E=4 THEN 1670
1750 'DATA 100.2,3.7,14.7,76.4,160.2,4.65,27.7,229,175.2,4.79,31,273,180.2,4.96,32.6,302,200.2,6.01,45.8,473
1760 'READ Z$:IF Z$<>"473" THEN 1610
1770 'DATA 100.2.5,4.58,18,93.5,160.2.5,5.76,34,281,175.2.5,5.94,43,336,180.2.5,6.15,40.1,371,200.2.5,7.47,56.5,583,300.2.5,9.43,99,1524
1780 'GOTO 1690
1790 'READ Z$:IF Z$<>"1524" THEN 1640
1800 'DATA 100.3,5.42,21,109,160.3,6.84,40,330,175.3,7.1,44,397,180.3,7.31,47.1,436,200.3,8.88,66.6,688,300.3,11.2,117,1804
1810 'GOTO 1690
1820 'READ Z$:IF Z$<>"1804" THEN 1670
1830 'DATA 300.4,14.7,150,2306
1840 'READ P$,P,W,I:'PRINT P$,P,W,I
1850 'T=10^2*M/W
1860 'S0=2600/T:IF S0<S THEN 1800
1870 'PRINT"Perfil ZF m¡nimo (cm) ......................... ZF= " P$ TAB(63) "(I =" FIX(I) "cm4)"
1880 'PRINT"Peso perfil (kg) .............................. P =  " FIX(P*L+.5) TAB(63) "(p =" P "kg/m)"
1890 'F=FIX(M*L^2/(2.016*I))/10
1900 'PRINT"Flecha (cm) ................................... f =  " F TAB(63) "(l/f=1/" FIX(100*L/F)
1910 'PRINT"Tensi¢n de trabajo (kg/cm2) ................... å =  " FIX(T) TAB(63) "(W =" FIX(W) "cm3)"
1920 'PRINT"Coeficiente seguridad  ........................ s =  " FIX(260000!/T)/100
1930 'IF FIX(100*L/F)<LF THEN 1810
1940 'END
1950 'IF I<>2306 THEN 1840
1960 'READ P$,P,W,I:'PRINT P$,P,W,I
1970 'F=FIX(M*L^2/(2.016*I))/10
1980 'IF FIX(100*L/F)<LF THEN 2060
1990 'T=10^2*M/W
2001 'PRINT"Perfil ZF recomendado (cm) .................... ZF= " P$ TAB(63) "(I =" FIX(I) "cm4)"
2010 'PRINT"Peso perfil (kg) .............................. P =  " FIX(P*L+.5) TAB(63) "(p =" P "kg/m)"
2020 'PRINT"Flecha (cm) ................................... f =  " F TAB(63) "(l/f=1/" FIX(100*L/F)
2030 'PRINT"Tensi¢n de trabajo (kg/cm2) ................... å =  " FIX(T) TAB(63) "(W =" FIX(W) "cm3)"
2040 'PRINT"Coeficiente seguridad  ........................ s =  " FIX(260000!/T)/100
2050 'GOTO 2070
2060 'IF I<>2306 THEN 1960