?(I)H(J) 650/!bQ2H(J)H(J1)/WlW2W1(I)(W2(I)W1(I))(H(J)Q1(I))(Q2(I)Q1(I))/cv 2000/Q1(I)H(J):W1(I)W2: 580/Q2Q2(I)H(J1):W2W2(I): 2000:JN: 580/ I1 F: J2 N/ N1(I)H(1) 710/ N1(I)H(N) 7200 N1(I)H(J) 7250' N1(I)H(J) 73008 J,I: 7800MM(1)N(I): 7700cM(N)N(I): 7700xZ(J)N(I): 6900AN1(I)H(J1):LL(J1):MN(I)0R(J1)R(J1)M(2LL6AL3AA)(6LI(J1))0R(J)R(J)M(LL3AA)(6LI(J1))1!R1(J1)R1(J1)ML:R1(J)R1(J)ML10JN: 7001K X(U1)M(U1):Y(U1)01gL(0)1:L(N)1: I1 N1 R(I)R(I)E(H1(I1)L(I1)H1(I)L(I)): I1*L(0)0:L(N)014 IU V1>A2(L(I1)I(I1)L(I)I(I))Y(I1)L(I1)I(I1)2HX(I)(6R(I)X(I1)L(I1)I(I1))A2.RY(I)L(I)(I(I)A)26\ I2cf IV U 1:M(I)X(I)Y(I)M(I1): I2pR2(I)R1(I)(M(2)M(1))L(1)2z I2 N12R2(I)R1(I)(M(I1)M(I))L(I1)(M(I1)M(I))L(I)2 I2R2(N)R1(N)(M(N1)M(N))L(N1)3 C$"S" 30003Q: "MOMENTOS EN LOS APOYOS:";13);"REACCIONES:":: I1 N3r "M(##)=####.###";I,M(I);3 Z(1)0 9603 " Y = ####.##";M(I)Z(I)3 42);: "R(##)=#####.###";I,R2(I)3ʋ I3υ "" 975M(N))L(N1)3&: 80:3: 3,0: 3,2 :**** LA PAZ, BCS FEB 2017 ****&: * JESUS NAVARRO RODRIGUEZ *&: ******************************&(:&2:&< 860' F " EL METODO DE BAIRSTOW"'P " SOLUCION DE RAICES DE POLINOMIOS POR FACTORIZACION CUADRATICA":: " DE LA FORMA: P(X) = A(n)*X^(n) + A(n-1)*X^(n-1) + . . + A(1)*X + A(0)"'Z 3,5: "ORDEN DEL POLINOMIO: ";N:NPN1: N0 90(d A(N),A1(NP),C(NP),D(2),Q(NP):(on 3,7: "ENTRAR LOS COEFICIENTES DEL POLINOMIO, COMENZANDO POR EL DE MAYOR ORDEN"(x I1 NP: 62,5:: 55,5: "A(";NPI;")=";: A1(I): I( 660: 0,5:: ((80(PX$))2),5: PX$;) I1 N:A(I)A1(I1)A1(1): I:D10.005:D2.005:EP.000001) 3,7: (65,32): 9,7: " Delta1, Delta2 = .005 ; Epsilon=0.000001, Aceptar ";:C$: C$"S" C$"N" C$"n" C$"s" 150) C$;: C$"S" C$"s" 180*/ 3,7: (65,32): 3,7: "TECLEE: d(1),d(2) y Epsilon Vgr .005,.005,.00001>>";: D1,D2,EP*N 3,9: "LAS RAICES SON:"* 21,10: "PARTE REAL: PARTE IMAG.: ITER:": 21,11: (34,"=")*ȅ N1 240*PRA(1):IM0:I1+܇ " #######.##### ########.##### ###";PR,IM,I+恥 650+! N2 370+=D(1)A(1):D(2)A(2):I1+\PRD(1)2:RD(1)24D(2)+l R0 320+RR:IM(R)2+" " #######.##### #######.##### ###";PR,IM,I+,NN1:IMIM,*6 " #######.##### #######.##### ###";PR,IM,I: 350,9@IM(R)2,J " #######.##### #######.##### ###";PRIM,0,I:NN1,T " #######.##### #######.##### ###";PRIM,0,I,^NN1: N0 650-h K1 N:A(K)Q(K): K: 200-#rD(1)D1:D(2)D2-*|:-U: ** LIMITE DE ITERACIONES = 200 **-\:- I1 200:Q(1)A(1)D(1):Q(2)A(2)Q(1)D(1)D(2)- K3 N:Q(K)A(K)Q(K1)D(1)Q(K2)D(2): K-C(1)Q(1)D(1):C(2)Q(2)C(1)D(1)D(2).* K3 N1:C(K)Q(K)C(K1)D(1)C(K2)D(2): K.:… N3 500._DTC(N1)C(N2)2: DT0 480.և:"EL DENOMINADOR ES CERO!": 650.F1(Q(N)Q(N1)C(N2))DT.F2(C(N1)Q(N1)C(N2)Q(N))DT: 530.DTC(N1)C(N3)C(N2)2: DT0 470/$F1(Q(N)C(N3)Q(N1)C(N2))DT/JF2(C(N1)Q(N1)C(N2)Q(N))DT/xD(1)D(1)F1:D(2)D(2)F2:S(F1)(F2)/ SEP 260/& I1 S0S: 620/0 I50 SS0 590/::"EL PROCESO NO CONVERGE!!!"0*D"d(1)=";D(1);" d(2)=";D(2);" Delta d(1)=";F1;" Delta d(2)=";F2: 6500=N I100 6200dX "EL PROCESO CONVERGE MUY LENTO!"0b"d(1)=";D(1);" d(2)=";D(2);" Delta d(1)=";F1;" Delta d(2)=";F20l I0v:"Excedio el limite de Iteraciones..."1#"d(1)=";D(1);" d(2)=";D(2);" Delta d(1)=";F1;" Delta d(2)=";F21)1i ** FORMAR CADENA DEL POLINOMIO EN BASE A LOS COEFICIENTES1 ** CADENA CONTENEDORA: PX$, LA LONGITUD NO EXCEDERA DE 79 CARACTERES1 ** PARA PODER DESPLEGARLA EN UN SOLO RENGLON.25 ** N ES EL GRADO DEL POLINOMIO, NP ES EL NUMERO DE COEFICIENTES (N+1)2~ ** A1(NP) ES EL ARRAY CONTENEDOR DE LOS COEFICIENTES DEL POLINOMIO2ƀ I1 NP:CF$(A1(I)): A1(I)0 8302Ѕ A1(I)1 A1(I)0 CF$"-0."(CF$,(CF$)2): 7603څ A1(I)1 7603? A1(I)0 A1(I)1 CF$"+0."(CF$,(CF$)2): 7603i A1(I)1 CF$"+"(CF$,(CF$)1)3uPWNPI3 A1(I)1 PWN CF$""3 PW0 TR$CF$: 8203 PW1 PW$"": 8103 PW$(PW):PW$(PW$,(PW$)1):PW$"^"PW$4*TR$CF$"X"PW$464 (PX$)80 PX$PX$TR$ : INP4>> I4`H (PX$)80 PX$(PX$,80)4fR4~\ ** ERROR TRAPPING4f ** PROBAR CON OTROS VALORES DE DeltaD1 y DeltaD24p ** CORRER DE NUEVO EL PROGRAMA4z ** FINALIZAR5 22,20: "ERROR NO. ";;" EN LA LINEA: ";5c 12,22: "1) DAR NUEVOS VALORES A DeltaD1 y DeltaD2 y Epsilon"5 12,23: "2) CORRER NUEVAMENTE EL PROGRAMA";5C$: C$"" 9305 C$"1" 22,20:: 12,22: (50,32);: 12,23: (50,32);: 1706 C$"2" 6 570NEA: ";5c 12,22: "1) DAR NUEVOS VALORES A DeltaD1 y DeltaD2 y Epsilon"5 12,23: "2) CORRER NUEVAMENTE EL PROGRAMA";5C$: C$"" 9305 C$"1" 22,20:: 12,22: (50,32);: 12,23: (50,32);: 1706 C./R(J1)R(J1)PA(LA)(2LA)(6LI(J1)).ZR(J)R(J)PA(LA)(LA)(6LI(J1)).xR1(J1)R1(J1)P(LA)L.R1(J)R1(J)PAL.&JN: 490.0 I1 T: J2 N.: Q1(I)H(J) 590.D J,I: 660/NQ1Q1(I)H(J1):W1W1(I): Q2$:NA$(NF)A$:2005/Q 3,4: 0,20: (38,32): 0,22:3,4,U: (39,32);: 21,2/i 3,2: 1000: 50/:ppppppppppppppppppppp/ 2,6: 1,21:" EJECUTO EL PROGRAMA ";NA$(NF);"? S/N";/W$: W$"" 222/ W$"S" 1020: 1300- (NA$(NF),3)"BAS" : 0,0:32:""NA$(NF)0i (NA$(NF),3)"BIN" 32:M""NA$(NF): : 0,0::0 1,21:" ARCHIVO INCORRECTO...OPRIME 'ENTER' ";:"E;C"0W$: W$"" 2340 3,2: 1020: 1300:bbbbbbbbbbbbbbbbbbb112,5:0,21:" BORRO DEL DISCO ARCH ";NA$(NF);"? S/N";:"E;C"1IW$: W$"" 2421] W$"S" 2501y NA$(NF): 1000: 501 3,2: 1020: 1301:vvvvvvvvvvvvvvvvvvvvv1 2,5: 0,21:" VER EN PANTALLA ARCH ";NA$(NF);"? S/N";:0,21:"E;C"2W$: W$"" 2622O W$"S" 3,4,U: 0,22: (39,32);:21,2: 1020: 1302[ 3,2:2p "I",#1,NA$(NF)2FA(1):CT0: 0,02 P1 182 (1) CT : 2,6: 1,21:" OPRIME 'ENTER' ";:"E;C":3,2 : 2763W$: W$"" 275 : 3+ #1,A$: 2,P: A$33 P3z 2,6: 1,21:" CONTINUO LISTANDO ? S/N ";:"E": 3,23W$: W$"" 2823" W$"S" CT1: 2743$ 3,2: 2723+:iiiiiiiiiiiiiiiiiiiii44, 2,5: 0,20: (119,32);: 0,20:" TECLEA NOMBRE DEL DIRECTORIO Y 'ENTER'";:"E;C"4`- 7,22: 2,5,U: (27,32);: 3,6:7,214z. A$: A$"" 3184/ (A$)35 3,2:"G;G;G"::50 3,4,U:0,22: (39,32);: 3,4: 0,20: (39,32): 2,6: 0,21:" PREPARA IMPRESOR Y OPRIME 'ENTER' ";:"E;C"5;2W$: W$"" W$(13) 3065r4 0,21:" ESTOY IMPRIMIENDO EL DIRECTORIO ";56 #2,A$5: P0 QQ: #2,NA$(P): P5? 3,2: 1020: 1305^:ffffffffffffffffffff6j_ 3,4:0,20:(40,32);:3,4,U: 0,22: (39,32);: 0,21: 2,6: 1,21: " FIN DEL PROGRAMA........S/N ";:"O5;T55;L3;C;D;E;F;G;A;B;O1;C"6aW$: W$"" 3536cW$"S" :0,0:32:6e 3,2: 1020: 1307h::la paz b c s mexico, minis y micros de la paz, proeda, franco7:LEER DIRECTORIO7JL5:OL5:NF0:QQ0:PA0: P0 67:NA$(P)"": P7YTRACK 177i S 3 117{F,17,S,A$,B$7A$A$(B$,127)7 P 1 255 327NAME$ (A$,P,8)7EXT$(A$,P8,3)8 EXT$" " EXT$"/"EXT$:NAME$NAME$EXT$8% (NAME$,1)(255) 10148D (NAME$,1)(0) 10128\NA$(QQ)NA$:QQQQ18cP8jS8 2005::ALFABETIZ8QQQQ1:GR(0) :#FILES8NS(QQ121) :#SCREENS8PC((QQ1)12):AU(((QQ1)12)PC)12:8:CURSOR93,6:21,OL:" ";: 37,OL:" ";9L 3,6,B:21,L:">>";: 37,L:"<<";:0,209p 3,4: 1,21: (38,32);:0,219 1,21:" Archivo ";NF1;" de ";QQ1;:0,219 25,21: NA$(NF);" ";: 0,21:3,2::Ѐ ADDR&H0E02 &H0E68: A$: ADDR,("&H"A$):CKCK("&H"A$):;цBE,0E,00,34,10,EE,E4,AE,5E,30,1F,4F,34,12,A6,C4,27,2A,A6,C4,E6,45,A0,45,24,02,E6,C4,34,01,AE,42,10,AE,47,6D,45,26,04,32,61,20,29,A6,80,A0,A0,27,04,32,61,20,05,5A,26,F3,35,01,23,18,AE,42,10,AE,47,AF,47,10,AF,42,A6,C4,E6,45,E7,C4,A7,45,EA,45;Q҆EA,E4,E7,E4,33,45,AE,61,30,1F,AF,61,26,B0,A6,E4,32,63,26,A1,32,62,39;WӐ;o:EJECUTA ALFABETIZ;|A0:NN0;ֹ0&H0E02;NN(NA$(0)); &H0E00,(NN256); &H0E01,NN(NN256)256;A0(0);;:PANTALLA<  40:3:3,2,U 33 ME$" YA EXISTE UN ARCHIVO CON ESE NOMBRE EN ESTE DISCO, COPIA A OTRO": 5050> 20 ME$" NO HAY DISCO EN LA UNIDAD O NO TIENE FORMATO ADECUADO, REEMPLAZALO": 5050> 30 ME$" EL DISCO ESTA PROTEGIDO CONTRA ESCRITURA, REMUEVE LA PROTECCION":5050?K 28 ME$" EL DISCO DESTINO ESTA LLENO REEMPLAZALO": 5050?ME$" PARECE HABER PROBLEMAS CON TU ARCHIVO NO PUEDO MANEJARLO"? 5,1: 0,20: (119,32);: 5,1,B:2,20:"E R R O R ! CORRIGE Y OPRIME 'ENTER'": 150,10@5,1: 0,21: ME$;@Q:ATTR5,1,B:LOCATE 0,22:PRINT" CORRIGE Y OPRIME 'ENTER'";@jW$: W$"" 5060@Ʌ W$ (13) 5060@EEEE1: EE3 3,2:32: : : 3,2:32);: 5,1,B:2,20:"E R R O R ! CORRIGE Y OPRIME 'ENTER'": 150,10@7:"=========================="A'^RN0A5h I1 NAArRNRN1AT| RN12 1700Ag "" 1670A KI8 18: 3,KI:(30,32):ARN1A 18,RN7:I;: 30,RN7:"#####.##";(VD(I))AAB 50,20:"Presiona cualquier tecla para"B* 50,21:"Seguir dando resultados .."BoOC$: OC$"" 1750 : 50,20:(28,32): 50,21:(28,32);B~ KI8 20B 3,KI:(42,32);BBRN8BN7:"#####.##";(VD(I))AAB 50,20:"Presiona cualquier tecla para&  2000&, 351:EE0: 5000&r 2,53: 6,48: 11,0: 4,57: 5,60: 15,36: 10,11: 1,48: 13,11& NA$(68),O$(15)&CD$(8)(9)(10)(94)"LCRPBVIF":OL5:L5:NF0& (&HE02)170 10& 2000::CARGAR ALFABTIZ' 1001:LEE DIR'- O$(1)" O P C I O N E S"'L O$(3)" L =Lee Directorio"'jO$(4)" C =Copia Archivo"'O$(5)" R =Renombra Arch."'O$(6)" P =Corre Programa"'O$(7)" B =Borra archivo"'O$(8)" V =Ver archivo"'O$(9)" I =Imprime DIR"(O$(10)" F =FIN (a BASIC)"(=O$(12)" FLECHAS P/ESCOGER"(]O$(13)" Arr/Aba: Archivo"(O$(14)" Der/Izq: Pagina "(O$(2)" ":O$(11)" "( (&H7D372)65 32( 3000( M$" MANEJADOR DE ARCHIVOS ")! 2050::PANTALLA),2 3,6:R10: NPA12 (PA12)11)83R1R11)g5 21,R14: (17,32);: 24,R14: NA$(N);)o6 N)7 22,3:" Pagina";PA1;" de"NS;)8 21,18: GR;"Granulos libre";: 21,2)9 1020::ACTUALIZA CURSOR)W$: W$"" 130*: (1,CD$,W$) 140,150,160,170,180,190,200,220,240,260,300,351*E 130*`:FLECHA IZQ PAG MENOS*~OLL:PAPA1:NFPA12:L5* PA0 PANS1:NFPA12: 50* 50*:FLECHA DER PAG MAS*OLL:PAPA1:NFPA12:L5+ PANS PA0:NFPA12: 50+ 50+":FLECHA ABAJO+9OLL:NFNF1:LL1+e L16 PA12(L5)QQ NFNF1:LL1+x 1020: 130+:FLECHA ARRIBA+OLL:NFNF1:LL1+ L5 NFNF1:LL1+ 1020: 130+:llllllllllllllllllll,M 2,5:0,21:(38,32);:0,21:" INSERTA DISCO P/LEER Y TECLEA 'ENTER' ";: 0,21::"E;C":3,6,eW$: W$"" 181,v 1000:50,:cccccccccccccccccccc,2,5:0,20: (119,32);: 1,21: " ESTOY COPIANDO ARCHIVO ";NA$(NF):"E;C"-0 1,21: NA$(NF): 0,21:"INSERTA DISCO ORIGINAL Y OPRIME 'ENTER'";:"E;C"-TW$:W$"" W$(13) 193- 3,4: 0,20: (39,32): 3,4,U:0,22: (39,32);: 21,2:1020:130-:rrrrrrrrrrrrrrrrrrrrrr. 2,5:0,20: (119,32);:2,20:" TECLEA NUEVO NOMBRE/EXT Y 'ENTER' ";.D2,5,U: 15,22:" / ";: 7,6: 15,21:"E;C".b 3,6: A$: A$"" 212.˅ (A$)12 :: 3,2:.PS(A$,"."): PS0 PS(A$,"/").΅ PS0 200.A$((A$,1,PS1)" ",8)(A$,PS)/ NA$(NF) A23: 550/c FI0.2 FI0.45 TI$"II (Baja Rigidez)":C0.2:A00.08:T10.5:T22:R23: 550/ FI0.45 TI$"III (Blando)":C0.24:A00.08:T10.8:T23.3:R1/& T0T1 AA0(CA0)T0T1/0 T0T1 T0T2 AC/: T0T2 AC(T2T0)R0D 34,9:"Suelo tipo: ";TI$0YN 34,10:"c = ";: F1$;C: 48,10:"Ao = ";: F1$;A00X 34,11:"T1 = ";: F1$;T1: 48,11:"T2 = ";: F1$;T20b 34,12:" r = ";: F1$;R: 48,12:" a = ";: F1$;A1l 44,22:"Presiona Cualquier tecla..": I1 400:1>q "" 44,22:(28,32): I1 400:: 6201Ev:1{:**** INICIAMOS CON EL ANALISIS MODAL.. ****1:1: 14,0:"* * * A N A L I S I S M O D A L * * *"26 14,1:"ANALISIS COMBINADO CON LOS METODOS DE NEWMARK Y HOLZER": 1,2:(79,"=");: 1,22:(79,"=");2{ 3,9:"Numero de pisos : ";: N$: (N$)1 670 : N(N$)2 N25 6702 H(N),M(N),K(N),F(N),U(N),V(N),VD(N),W(N),T(N),C(N),A(N)3 I6 12: 23,I:"!":: 24,6:(40,"-"): 24,12:(40,"-")3A 5,16:"U N I D A D E S :": 5,17:(21,"-")3 5,18:"Altura, en Metros": 5,19:"Masa, en Tn/M3/s2": 5,20:"Rigidez, en Tn/M"3 5,21:(21,"-")3 25,4:"Alturas, Masas y Rigideces de Entrepiso"4) I1 N: 37,5:"Entrepiso ";I: 33,14:"Introduzca Datos .."4k 36,7:" Altura = ";: H$: (H$)0 760 : H(I)(H$)4 36,9:" Masa = ";: H$: (H$)0 770 : M(I)(H$)4 36,11:"Rigidez = ";: H$: (H$)0 780 : K(I)(H$)5 33,14: "Datos Correctos? (S/N) ";5l OC$: OC$"S" OC$"N" OC$"s" OC$"n" 800 : 33,14:(22,32)5* OC$"N" OC$"n" 46,7:(20,32): 46,9:(20,32): 46,11:(20,32): 76054SMSMM(I)6> 46,7:(20,32): 46,9:(20,32): 46,11:(20,32)6#H:WTSM9.8100016KM 51,19:"C A L C U L A N D O . .";6]RDS0:CM1:O16\ I1 N:DSDSH(I):U(I)DSH(I):6fS10:S206p JN 1 1:T(J)M(J)U(J):S1S1T(J):V(J)S1:T(J)S1K(J):7 z J1 N:S2S2T(J):T(J)S2:W(J)U(J)T(J):7CV07@ I2 N: (W(1)W(I))0.002 CVCV17H I7p CV(N1) SM0:S10:S20: 9507 I1 N:U(I)T(I)T(1):7 8707QV(1)7 I1 N:V(I)V(I)100Q:SMSMM(I):S1S1M(I)U(I):S2S2M(I)U(I)2:8"C(CM)S12(SMS2):T(CM)23.1416(W(CM))8Cԅ T(CM)T1 T(CM)T2 CSC8kޅ T(CM)T1 CST(CM)(CA0)T1A08 T(CM)T2 CSC(T2T(CM))R8VBWTC(CM)CS: 12808CMCM1:V(1)1000:LC1:ST100(CM1)8W(CM)W(CM1)ST8 I1 N9"A(I)V(I)K(I): I1 U(I)A(I): 107097$U(I)U(I1)A(I)9P.F(I)M(I)W(CM)U(I)9a8 IN 11009vBV(I1)V(I)F(I)9|L9V LC1 FS(V(N)F(N)):LC09` (V(N)F(N))0.1 1150:j (V(N)F(N))FS W(CM)W(CM)ST:W(CM1)W(CM):STST4: 1030:tW(CM1)W(CM): 1030:2~QV(1):U1U(1):_ I1 N:V(I)V(I)100Q:U(I)U(I)U1::mS10:S20: I1 N:S1S1M(I)U(I):S2S2M(I)U(I)2::C(CM)S12(SMS2):T(CM)23.1416(W(CM)): T(CM)T1 T(CM)T2 CSC; T(CM)T1 CST(CM)(CA0)T1A0;;ą T(CM)T2 CSC(T2T(CM))R;VVBWTC(CM)CS: 1280;u؅ T(CM)0.40 CM3 1270; (CM3) (CMN) 1020; (T(CM)0.40) (CMN) 1020; 1490; I3 22: 1,I:(79,32);:: 1,22:(79,"=");<0 21,3:"R E S U L T A D O S D E L M O D O ";CM' 45,15:"Frecuencia al Cuadrado:";:"####.##";W(CM)>U 51,19:"R]esultados .. C]alcular .. ";>OC$:OC$"R" OC$"C" OC$"r" OC$"c" 1430> 51,19:(28,32);> (OC$"R" OC$"r") N13 1430> (OC$"R" OC$"r") N13 1320?# 51,19:"C A L C U L A N D O . .";?)Ȑ?e: **** PRESENTACION DE RESUMEN DE RESULTADOS ****?܀ KI3 21: 2,KI:(76,32);:? 19,3:"R E S U M E N D E R E S U L T A D O S"? 19,4:(41,"-")@ 7,6:"Modo: Periodo: Coef. Part:"@ 7,7:(32,"-")@, I1 CM@d 8,7I:I: 16,7I:F1$;T(I);: 28,7I:F1$;C(I)@j"@, 40,20:"Presione Cualquier tecla .."@6 "" 1590@@ I6 7CM: 6,I:(32,32):@J 15,6:"Nivel: Cort. Dise/o:"AT 15,227,"UN PISO INTERMEDIO"\2@263,"EL ULTIMO PISO"\X@385,"SELECC. barra espaciadora"\{@420," Y MARCAR CON enter..."\@484,"<^> PARA VOLVER AL MENU";\ @PS,SE$\TC$: TC$"" 4030 : 3860 : AZ(TC$)\ TC$"^" ]( AZ32 AZ13 3860]I2 AZ32 PS279 @PS,"":PSPS32:BNBN1: 3850]|< AZ32 PS279 @PS,"":PS215:BN1: 3850]F@385,"":@420,""]P BN2 @357,"SEGUNDO PISO? " : 3970]ZTC$: TC$"" 4030: 3930^d TC$"S" TC$"N" TC$"^" 3930^(n TC$"^" ^Ex TC$"S" B21 : B20^d@357,"ESTA SEGURO? "^TC$: TC$"" 4030: 3980^ TC$"^" ^ TC$"S" TC$"N" 3980^ TC$"N" 3750^^@39,(LO,45)_!ȇ@7,OP$(C): K1 50::@7,RM$(C): K1 50:: ^Ex TC$"S" B21 : B20^d@357,"ESTA SEGURO? "^TC$: TC$"" 4030: 3980^ TC$"^" ^ TC$"S" TC$"N" 3980^ TC$"N" 3750^^@39,(LO,45)_!ȇ@7,OP$(C): K& :ANALISIS SISMICO&6:SEGUN EL REGLAMENTO DEL&P:ESTADO DE MICHOACAN&W(:&m2: ELABORADO POR:&t<:&F:JESUS NAVARRO RODRIGUEZ&P:&Z:ESCUELA DE INGENIERIA CIVIL&d: MORELIA, MICHOACAN&n:&x: A 12 DE JULIO DE 1987'y 80:3: 3,0: 3,2'Az 20,09:"ANALISIS SISMICO MODAL, SEGUN EL"'q{ 20,10:"REGLAMENTO DE CONSTRUCCIONES DEL"'| 20,11:" ESTADO DE MICHOACAN"'} "" 125':F1$"###.##"':ESPECTRO DE SEUDO/ACELERACIONES(:DE DISE/O PARA USARSE(%:EN EL ANALISIS SISMICO-MODAL(S 24,0:"ESPECTRO DE SEUDO-ACELERACIONES"(j 24,1:(31,"-")( 12,9:"No. de Estratos: ";: N$: (N$)0 N(N$) : 200(Ҁ I6 12: 32,I:"!": I( 33,13:(31,"-")) 33,4:"Datos de la Mecanica de Suelos:"). 33,5:(31,"-"))a 8,16:"U N I D A D E S :": 8,17:(17,"-")){ 8,18:"E, en Tn/M2") 8,19:"Gamma, en Tn/M3") 8,20:"Relacion de Poisson, adimensional") 8,21:"Espesor del Estrato, en Mts."*"T00:FI0*, I1 N*46 38,6:"Datos del Estrato :";I*m@ 53,8:"E = ";: E$: (E$)0 320 : E(E$)*J 49,9: "Gamma = ";GA$: (GA$)0 330 : GA(GA$)*T 35,10: "Relacion de Poisson = ";PO$: (PO$)0 340 : PO(PO$)+H^ 35,11: "Espesor del Estrato = ";HE$: (HE$)0 350 : HE(HE$)+|h 33,14:"Datos del Estrato Correctos? (S/N) ";+rOC$: OC$"S" OC$"s" OC$"N" OC$"n" 370+| 33,14:(36,32): OC$"N" OC$"n" 320,2GE(2(1PO)):FIFIHE(GAG):V(G(GA9.810001)):T0T04HEV, 57,8:(12,32): 57,9:(12,32): 57,10:(12,32): 57,11:(12,32), I, 33,4:(31,32): 35,3:"PARAMETROS DE CLASIFICACION", 33,5:(31,32): 39,4:"DEL SUELO (To, Fi)"-E 52,8:(15,32): 49,9:(15,32): 35,10:(30,32): 35,11:(30,32)-n 33,5:(29,"-"): 38,6:(24,32)- 34,6:"Periodo del Suelo : ";:"#.### seg.";T0- 34,7:"Coeficiente Fi = ";:"#.##";FI- 35,15:"Hay estratos de arcilla".( 35,16:"Altamente compresiva? (S/N) ";.nD1$: D1$"S" D1$"N" D1$"n" D1$"s" 500 : D1$. D1$"S" D1$"s" TI$"III (Blando)":C0.24:A00.08:T10.8:T23.3:R1: 550/  FI0.2 TI$"I (Firme)":C0.16:A00.08:T10.3:T22:R,"KY=";: KI(1,2): KI(1,2)0 2450Jd @165,"KX=";:"#.##";KI(1,1):@177,"KX=";:"#.##";KI(1,2)J @450,"A>DELANTE R>EGRESAR"J C$: C$"A" C$"R" 2480J C$"R" 2440J ć@229,"PERMANENTE + SISMO X:"J ·@261,(21,34)KE ؇@293,"RX=";:"#.###";R(2,1);:@305,"KY=";: KI(2,1): KI(2,1)0 2520K @293,"RY=";:"#.###";R(2,2);:@305,"KY=";: KI(2,2): KI(2,2)0 2530K @293,"KX=";:"#.##";KI(2,1):@305,"KY=";:"#.##";KI(2,2)K @450,"A>DELANTE R>EGRESAR"L' C$: C$"A" C$"R" 2560 : @450,""L; C$"R" 2520L] @357,"PERMANENTE + SISMO Y:"Lq @389,(21,34)L (@421,"RX=";:"#.##";R(3,1);:@433,"KX=";: KI(3,1): KI(3,1)0 2600M 2@421,"RY=";:"#.##";R(3,2);:@433,"KY=";: KI(3,2): KI(3,2)0 2610MK <@421,"KX=";:"#.##";KI(3,1):@433,"KY=";:"#.##";KI(3,2)Mn F@450,"A>DELANTE R>EGRESAR"M PC$: C$"A" C$"R" 2640M Z C$"R" 2600M dKU(1)1KI(1,1)1KI(1,2).625:KU(1)1KU(1)N nKU(2)1KI(2,1)1KI(2,2).625:KU(2)1KU(2)N: xKU(3)1KI(3,1)1KI(3,2).625:KU(3)1KU(3)NZ C1.85FC10000AC(1)AC(2)N PU(1)C1KU(1):PU(2)KU(2)PU(1)1.5N PU(3)KU(3)PU(1)1.5N :@39,"CARGAS ULTIMAS:"N @71,(16,61)N @450,"UNIDADES: TONELADAS"OG @162," PER: PU=";:"####.##";PU(1)1000;:@181,"P/N=";:"##.#";PU(1)(1000NC(1))O ȇ@194,"P+SX: PU=";:"####.##";PU(2)1000;:@213,"P/N=";:"##.#";PU(2)(1000NC(2))O ҇@226,"P+SY: PU=";:"####.##";PU(3)1000;:@245,"P/N=";:"##.#";PU(3)(1000NC(3))P ܇@321,"R>UN"P @330,"V>AR"P, @339,"D>IM"P= @347,"F>IN"PV P$: P$"" 2820P  P$"V" :@39,"ENTRADA DE DATOS.":@450,"UNIDADES: ADIMENSIONAL": 2060P  P$"D" :BC1: 580P " P$"R" 100P , P$"F" P 6 2820Q4 @ cOlUmNa dEl cEnTrO,CoLuMnA DeL CeNtRo,COLUMNA DEL CENTROQm J cOlUmNa dE BoRdE,CoLuMnA De bOrDe,COLUMNA DE BORDEQ T cOlUmNa dE EsQuInA,CoLuMnA De eSqUiNa,COLUMNA DE ESQUINAQ ^ aBaNdOnAr cAlCuLo,AbAnDoNaR CaLcUlO,ABANDONAR CALCULOR h:SUBRUTINA INERCIAR r:NORMALIZA UNIDADESRO |BXBX100:BYBY100:ELEL100:PXPX100:PYPY100Rs AC(1)AC(1)100:AC(2)AC(2)100R :INERCIA DE LAS COLUMNASR IC(1)AC(1)AC(2)AC(2)AC(2)12R IC(2)AC(2)AC(1)AC(1)AC(1)12R :INERCIA DE LAS TRABESS C2 IT(1)0S' … C3 IT(1)0:IT(4)0SE :ANCHO EFECTIVO DE PATINSW օ C2 3130Se K2 4Sv K3 3070S C18ELBX:C2LT(K)12BX:C3LT(K)2: 3080S C116ELBY:C2LT(K)6BY:C3LT(K)S  C1C2 C1C3 PE(K)C1T  C2C1 C2C3 PE(K)C2T+  C2C1 C3C2 PE(K)C3T: & C2 TJ 0 K: 3260T\ : C3 3190Tj D K2 3T N K2 C18ELBX:C2LT(K)12BX:C3LT(K)2T X K2 C18ELBY:C2LT(K)12BY:C3LT(K)T b 3080T l K: 3260T v:CASO #1U K1 4U8 K1 K3 C116ELBY:C2LT(K)6BY:C3LT(K)Um K2 K4 C116ELBX:C2LT(K)6BX:C3LT(K)Uy 3080U KU :DEFINIR CENTROIDE YU YC(H)(H(BH2PEEL)PEELEL2)(PEELBH)U :DEFINIR MOMENTO DE INERCIAVW й IX(H)PEEL(ELEL12(HYC(H)EL2)(HYC(H)EL2))BH(HH12(YC(H)H2)(YC(H)H2))Vo :VECTOR DE INERCIAV :PARA EL CASO 1V C1 3390V K1 4V PEPE(K)V K2 K4 BBX:HPXELV  K1 K3 BBY:HPYELW IT(K)IX(H)W * K:W 4:PARA EL CASO 2W1 > C2 3470W? H K2 4WL RPEPE(K)Wk \ K2 K4 BBX:HPXELW f K3 BBY:HPYELW pIT(K)IX(H)W z K:W :PARA EL CASO 3W C3 W K2 3W PEPE(K)W K2 BBX:HPXELX K3 BBY:HPYELX! IT(K)IX(H)X+ ʋ K:XO Ԇ 4,.000127,5,.000199,6,.000287Xt ކ 10,.000387,8,.000507,9,.000642X 10,.000794,12,.00114X :SBR COMB. DE ELEMENTOSX :CARGA PERMANENTEXNC(1)2.14NX:MP(1)(MXNXAC(2)20)2.14FP(1)YMP(2)(MYNXAC(1)20)2.14FP(2)Y8:PERMANENTE + SISMO XYU$NC(2)1.61NX2N1.6N2Y.MC(1,1)(MS(1,1)NXAC(2)20)1.61FP(1)(.3MS(2,1)(N1.3N2)20AC(2))2FA(2)Z8MC(1,2)(MS(2,2)NXAC(1)20)1.61FP(2)(MS(1,2)MS(1,1)(N1.3N2)20AC(1))2FA(1)Z!B:PERMANENTE + SISMO YZ@LNC(3)NX1.61(N2.3N1)2ZVMC(2,1)(MXNXAC(2)20)1.61FP(1)(MS(2,1).3MS(2,2)(N2.3N1)20AC(2))2FA(2)Z`MC(2,2)(MYNXAC(1)20)1.61FP(2)(MS(2,2).3MS(1,2)(N2.3N1)20AC(1))2FA(1)Zj[t@S,OP$(C):@165,M2$:@325,M1$[,~ I1 35:[O@S,RM$(C):@165,M1$:@325,M2$[` I1 35:[f[:@66,"ELIJA EL NIVEL DE LA COLUMNA:"[@7,RM$(C)[@133,"MI COLUMNA ESTA EN..."[BN1:PS215:SE$"<<=="[·@199,"EL PRIMER PISO"\؇@YI)20:C2.85120XM81 C1C2 KPC1 : KPC28C KP1 KP18Z:CARGA ACCIDENTAL8YT(YXYI)2: YT2 KA(1YT)(20YT)208 YT2 KA.9(1YT)8:SENTIDO Y8:CARGA PERMANENTE8YT(YYY1)28؅ YYY1 YMY1 : YMYY98C1.7(YYY1)20:C2.85YM20: C1C2 K1C2 : K1C19J K11 K119a:CARGA ACCIDENTAL9 YT2 K2(1YT)(20YT)209 YT2 K2.9(1YT)9:RELACIONES DE ESBELTEZ9:PANDEO ALREDEDOR DE X9(:SENTIDO Y:2:CARGA PERMANENTE:FL1LC(1)PX2:L2LC(1)PY2:ZPXLKAL1R2:YLK2L2R1:vZLXKPL1R2:LYK1L2R1:d FP(PU).4(1PU(.7PC)):n FA(PU)1(1PU(.7PC)):x BC1 1460:: ** ENTRAN CARGAS **;:@39,"ENTRADA DE DATOS.";(@97,"NORMAL POR CARGA PERMANENTE";H@450,"UNIDADES: TONELADAS";j@195,"FUERZA NORMAL: ";: NX; LX22 PC9.8696EIC(1)(4.25(KPL1)2):PUNX1.5:FP(1)FP(PU) :FP(1)1< LY22 PC9.8696EIC(2)(4.25(K1L2)2):PUNX1.5:FP(2)FP(PU) :FP(2)1"@196,"":@227,"":@193,"SISMO X-> MOMENTO EN X:";: MS(1,1):MS(1,1)MS(1,1)4>H,@225,"SISMO X-> MOMENTO EN Y:";: MS(1,2):MS(1,2)MS(1,2)4>n6@97," MOMENTOS POR SISMO EN Y">@@225,"":@193,"SISMO Y-> MOMENTO EN X:";: MS(2,1):MS(2,1)MS(2,1)4>J@225,"SISMO Y-> MOMENTO EN Y:";: MS(2,2):MS(2,2)MS(2,2)4?T Q1 2?^ FP(Q)1 FP(Q)1?7h FA(Q)1 FA(Q)1?=r?\|:COMBINACION DE ELEMENTOS? BA1 FP(1)1:FP(2)1:FA(1)1:FA(2)1? BC1 1750?:@39,"ENTRADA DE DATOS."?@97,"NORMALES POR CARGA ACCIDENTAL"@@450,"UNIDADES: TONELADAS"@)@197,"SENTIDO X: ";: N1:N1N14@O‡@229,"SENTIDO Y: ";: N2:N2N24@h:COMB. DE ELEMENTOS@tց 3550@:@37,"MOMENTOS Y NORMALES:"@@101,"POR CARGA PERMANENTE:"@@354,"UNIDADES:@@395,"NORMAL EN TONS."A@427,"MOMENTOS EN TON-MT"A/@170,"NORMAL: ";:"###.##";NC(1)A\@196,"MOMENTO EN X: ";:"###.##";MP(1)A&@228,"MOMENTO EN Y: ";:"###.##";MP(2)A0 "" 1840A:@99,"POR PERMANENTE + SISMO X"AD@170,"NORMAL: ";:"###.##";NC(2)BN@196,"MOMENTO EN X: ";:"###.##";MC(1,1)BEX@228,"MOMENTO EN Y: ";:"###.##";MC(1,2)BXb "" 1890B|l@99,"POR PERMANENTE + SISMO X"Bv@170,"NORMAL: ";:"###.##";NC(3)B@196,"MOMENTO EN X: ";:"###.##";MC(2,1)C@228,"MOMENTO EN Y: ";:"###.##";MC(2,2)C "" 1940C/:REVISION POR BRESLERCB:ENTRAN DATOSCb:@39,"ENTRADA DE DATOS.."C BC1 @450,"UNIDADES: ADIMENSIONAL": 2060CƇ@450,"UNIDADES: KG/CM2"CЇ@136,"F'C= ";: P$: (P$)0 2000 : FC(P$)D#ڇ@167," FY= ";: P$: (P$)0 2010 : FY(P$)DF@450,"UNIDADES: ADIMENSIONAL"DT I1 8Df NV(I),VA(I)DlD @229,"CUANTAS VARILLAS ";: NBD@229,"NUMERO DE VARILLA ";: NU:A0D I1 8D* NUNV(I) AVA(I):I8D4E*> A0 @323,"NO HAY TAL NUMERO DE VAR.":@197,"":@229,""ECH "" A0 2120EhR "" A0 @223,"": 2060E\AAANB:ROAA(AC(1)AC(2))EfMROFY(.85FC)EpR1(AC(2).05)AC(2):R2(AC(1).05)AC(1)EzR3(R1R2)2FC185FCAC(1)(100AC(2))2:C285FC(100AC(1))2AC(2)FFR(1,1)MP(1)1E5C1:R(1,2)MP(2)1E5C2FvR(2,1)MC(1,1)1E5C1:R(2,2)MC(1,2)1E5C2FR(3,1)MC(2,1)1E5C1:R(3,2)MC(2,2)1E5C2F R(X)(X1000.5)1000F:@35,"PARAMETROS PARA ELEGIR LA"G@67,"GRAFICA DE INTERACCION.."G:ʇ@165,"RELACION B/T=";:"#.####";R3Gcԇ@229,"PARAMETRO Q=";:"#.####";MGއ@293,"PORCENTAJE RO=";:"#.####";ROG "" 2280G:@33,"PARAMETROS PARA ENTRAR EN LAS"G@65,"GRAFICAS DE INTERCCION (MELI)"H @135,"CARGA PERMANENTE:"H& @167,(17,34)HU @196,"RX=";R(R(1,1))," RY=";R(R(1,2))Hw $@261,"PERMANENTE + SISMO X:"H .@293,(21,34)H 8@324,"RX=";R(R(2,1))," RY=";R(R(2,2))H B@389,"PERMANENTE +SISMO X:"H L@421,(21,34)I V@452,"RX=";R(R(3,1))," RY=";R(R(3,2))I1 ` "" 2400IQ j:@39,"ENTRADA DE DATOS.."Is t@101,"POR CARGA PERMANENTE:"I ~@133,(21,34)I @165,"RX=";:"#.###";R(1,1);:@177,"KX=";: KI(1,1): KI(1,1)0 2440J$ @165,"RY=";:"#.####";R(1,2);:@1779"& : DISE/O DE COLUMNAS POR&@: COMBINACION DE ELEMENTOS&U: POR:&t(: JESUS NAVARRO RODRIGUEZ&2:ESCUELA DE INGENIERIA CIVIL&<: UNIVERSIDAD MICHOACANA.&F: A 23 DE JULIO DE 1987&P: MORELIA, MICHOACAN.'d::M1$(21,166):M2$(21,169):BC0'ln OP$(4),RM$(4),OB$(4),R(3,2),KI(3,2),KU(3),PU(3),FP(2),FA(2),VA(8),NV(8)'x LC(3),LT(4),AC(2),IC(2),IT(4),PE(4),RX(3),RY(3),RT(4),MS(2,2),MP(2),MC(2,2),NC(3)' I1 4: OP$(I),RM$(I),OB$(I):( :@39,"DISE/O DE COLUMNAS"(@71,(18,34)(6@165,M1$:@325,M2$(Z@101,"LAS OPCIONES SON ESTAS:"(p@197,"1> "RM$(1)(@229,"2> COLUMNA DE BORDE"(ȇ@261,"3> COLUMNA DE ESQUINA"(҇@293,"4> ABANDONAR CALCULO"(C1:S200) @417,"USAR flechas PARA SELECCIONAR")5@449,"Y PARA MARCAR OPCION: ")zA$: A$"" 3700: 250 : AZ(A$): AZ3 AZ12 250) AZ94 AZ10 AZ13 250) AZ13 330) AZ10 S296 @S,OB$(C):CC1:SS32: 320*" AZ94 S200 @S,OB$(C):CC1:SS32: 320*M, AZ94 S200 @S,OB$(C):C4:S296: 320*x6 AZ10 S296 @S,OB$(C):C1:S200*@@S,RM$(C): 250*J:@102,"SU OPCION DESTACADA:":S231:LO(RM$(C))*T@S,RM$(C)*^@263,(LO,61)+ h@420,"E> EJECUTAR LA OPCION"+/r@452,"M> VOLVER AL MENU PRINC."+^|P$: P$"E" P$"M" 3700: 380+ P$"E" C4 3750: TC$"^" 140 : 420+ P$"E" 420+ P$"M" : 140+ C4 "D.BAS", RG(L)EI(1L12(LLL)(L2A)(L2A)),%:@39,"ENTRADA DE DATOS.",B‡@450,"UNIDADES: METROS",k̇@97,"CLAROS DE LAS TRABES: (C.A.C)",օ C2 C3 LT(1)0: 490,@197,"TRABE IZQUIERDA: L=";: P$: (P$)0 480 : LT(1)(P$)-@229,"TRABE DE FONDO: L=";: P$: (P$)0 490 : LT(2)(P$)-a@261,"TRABE DERECHA: L=";: P$: (P$)0 500 : LT(3)(P$)-| C3 LT(4)0: 530-@293,"TRABE FRONTAL:";: P$: (P$)0 520 : LT(4)(P$)-@97," ALTURAS DE COLUMNAS (C.A.C.)". @197,"":@229,"":@293,"".[&@261,"":@228,"COL. EN CUESTION: H=";: P$: (P$)0 550 : LC(2)(P$).0 BN2 BN3 @260,"COLUMNA INFERIOR: H=";: P$: (P$)0 560 : LC(1)(P$)/ : BN2 BN1 @292,"COLUMNA SUPERIOR: H=";: P$: (P$)0 570 : LC(3)(P$)//D@450,"UNIDADES: CENTIMETROS"/EN@292,"":@260,""/jX@97," DIMENSIONES EN COLUMNAS"/b@228,"":@228,"SENTIDO B=";: P$: (P$)0 610 : AC(1)(P$)/l@260,"SENTIDO H=";: P$: (P$)0 620 : AC(2)(P$)07v BC1 AC(1)AC(1)100:AC(2)AC(2)100: 2960: 8900]@97," DIMENSIONES EN LAS TRABES"0@128," SON UNIFORMES EN X E Y? "0Q$: Q$"" 6600 Q$"S" Q$"N" 6600 Q$"N" 7101%@260,"":@227,"":@229," PERALTE= ";: P$: (P$)0 690 : PX(P$):PYPX1p@260," ANCHO B= ";: P$: (P$)0 700 : BX(P$):BYBX: 7501Ƈ@260,"":@227,"PERALTE, SENTIDO X ";: P$: (P$)0 710 : PX(P$)2Ї@259,"PERALTE, SENTIDO Y ";: P$: (P$)0 720 : PY(P$)2Fڇ@293,"ANCHO, SENTIDO X ";: P$: (P$)0 730 : BX(P$)2@325,"ANCHO, SENTIDO Y ";: P$: (P$)0 740 : BY(P$)2@357,"ESPESOR DE LOSA: ";: P$: (P$)0 750 : EL(P$)2: CALCULA INERCIA3  2920:@450,"UNIDADES: TON/MT^2"3P @385,"MOD. DE ELASTICIDAD: ";: P$: (P$)0 780 : E(P$)3o:CALCULO DE LAS RIGIDECES3} K1 43* C2 K1 RT(K)0: 87034 C3 K1 RT(K)0: 8703> C3 K4 RT(K)0: 8704H K1 K3 IIT(K):LLT(K)(AC(1)):AAC(1)24FR K2 K4 LLT(K)AC(2):IIT(K):AAC(2)24W\RT(K)RG(L)4]f4zp: RIGIDECES EN COLUMNAS4zIIC(1):APX2 :SENTIDO X, COL INFERIOR4 (BN2 BN3) B21 LLC(1)PX:RX(1)RG(L)5 (BN2 BN3) B21 LLC(1)PX:RX(1)RG(L)5*:COL. EN CUESTION5O BN1 LLC(2)A : LLC(2)PX5`RX(2)RG(L)5t:COL. SUPERIOR5 BN2 BN1 LLC(3)PX:RX(3)RG(L) : RX(3)05IIC(2):APY2 :SENTIDO Y, COL. INFERIOR6ԅ (BN2 BN3) B21 LLC(1)PY:RY(1)RG(L)6(: COL. EN CUESTION6M BN1 LLC(2)A : LLC(2)PY6^RY(2)RG(L)6r:COL. SUPERIOR6 BN3 LLC(3)PY:RY(3)RG(L) : RY(3)06:FACTORES DE SUJESION6:SUPERIOR EN X E Y6$TXRT(1)RT(3):TYRT(2)RT(4)7.CXRX(2)RX(3):CYRY(2)RY(3)708YXCXTY:YYCYTX7HB:INFERIOR EN X E Y7gL BN1 Y11:YI1: 11407VCXRX(1)RX(2):CYRY(1)RY(2)7`YICXTY:Y1CYTX7j:FACTOR DE AMPLIFICACION X7t YXYI XMYI : XMYX: CARGA PERMANENTE8~C1.7(YX L&: 80:3: 3,0: 3,2 :**** LA PAZ, BCS DIC 2016 ****&u 25,0: "RIGIDECES Y TRANSPORTES CON EFECTO DE APOYO"& 12,1: "BT"&( 1,2: "+";: 10,2: "+----+&2 I3 7: 1,I: (252);: 10,I: (252)" ";(252);: '< 1,8: (252);: 6,8:"+---+ +---+"'ZF 1,9: (252);: 6,9: (252);: 19,9: (252);: " HL"'P 1,10: "+";: 6,10: "+------------+"'Z 12,11: "BL"'d 3,6: "HT ";(252);" ";(252);: 1,15: " ";'nHT1:HL0.15:BL0.80:BT0.20(xH1HTHL(> YC(HT)(HL(BTH12BLHL)BLHL22)(BLHLBTHT)( IX(HT)BLHL(HL212(H1YC(HT)HL2)2)BTH1(H1212(YC(HT)H12)2)( 32,4: (252);" "(252)" "(252)" "(252)) 29,5:"---+ +------------------+ +---")B 29,7:"---+ +------------------+ +---") 32,8: (252);" "(252)" "(252)" "(252)) 35,2: (252)"-";(252);"A/2 "(252)"-"(252)"B/2"* 34,10: "-+----------------------+-"* 47,9: "L"*5 1,13: "+ +----------+"*E I14 18*y 1,I: (252)" "(252)" "(252)* I* 1,19: "+ +----------+"* 3,16: "H "(252)" "(252)*" 12,20: "B"+ 3,23: "C>olumna o T>rabe ";:C$: C$;+. C$"C" C$"T" 400+A O$"O" 420+: 28,22: "MODULO DE ELAST (E, T/M3)";E: 28,22: (40,32);: 28,23: "MODULO DE ELAST (E, T/M3)";E;+ C$"C" 600+ 65,23: "UNIDADES: M";, 40,12: "PERALTE TOTAL (HT):";HT,, 38,13: "ESPESOR DE LOSA (HL):";HL,T 39,14: "ANCHO DE PATIN (BL):";BL,| 39,15: "ANCHO DE TRABE (BT):";BT,INIX(HT), 630,X 65,23: "UNIDADES: M";: 56,12: " H:";H,b 56,13: " B:";B,lINBH312-v SEMIESPESORES A1=A/2 y B1=B/2-6 40,17: "SEMIESPESOR A1=A/2:";A1-] 40,18: "SEMIESPESOR B1=B/2:";B1- 40,19: "LONG. DE CLARO L:";LC-LLCA1B1-RA(EINL12EIN(L3)(L2A1)2)-TA(12EINL3(L2A1)(L2B1)EINL)RA.RB(EINL12EIN(L3)(L2B1)2).GTB(12EINL3(L2A1)(L2B1)EINL)RB.z 5,21: " ra=######.## rb=######.##";RA,RB. 40,21: "ta=###.### tb=###.###";TA,TB. 4,7: 66,21: "O)tro F)in..";: 3,2:O$: O$"O" O$"F" 740/ O$"F" /@ 5,21: (72,32);: I12 20: 38,I: (40,32);: I/K 4005,21: " ra=######.## rb=######.##";RA,RB. 40,21: "ta=###.### tb=###.###";TA,TB. 4,7: 66,21: "O)tro F)in..";: 3,2:O$: O$"O" O$"F" 740/ O$"F J,I: 6000!M(1)N(I): 59007M(N)N(I): 5900LZ(J)N(I): 5000o&AN1(I)H(J1):LL(J1):MN(I)00R(J1)R(J1)M(2LL6AL3AA)(6LI(J1))0:R(J)R(J)M(LL3AA)(6LI(J1))0DR1(J1)R1(J1)ML:R1(J)R1(J)ML1NJN: 5101XX(U1)M(U1):Y(U1)01;bL(0)1:L(N)1: I1 N1klR(I)R(I)E(H1(I1)L(I1)H1(I)L(I)): I1}vL(0)0:L(N)01 IU V1A2(L(I1)I(I1)L(I)I(I))Y(I1)L(I1)I(I1)1X(I)(6R(I)X(I1)L(I1)I(I1))A2Y(I)L(I)(I(I)A)2  I28 IV U 1:M(I)X(I)Y(I)M(I1): I2YR2(I)R1(I)(M(2)M(1))L(1)2iƀ I2 N12R2(I)R1(I)(M(I1)M(I))L(I1)(M(I1)M(I))L(I)2ڋ I2R2(N)R1(N)(M(N1)M(N))L(N1)2 C$"S" 15003Y:"MOMENTOS EN APOYOS:"24)"REACCIONES:":"------------------- -------------": I1 N3y "M(##)=####.##";I,M(I);330);:"R(##)=####.##";I,R2(I)3 I3 "" 7903 :"*****************************"4!"* 1) PARA ANALIZAR OTRA VIGA.. *4/""* 2) TERMINA.. *4X# "********************************"4s*:: "CUAL (1/2) ";RE44 RE1 70 : 4>WW1:AQ1:BQ2:LL(J1): 9004HR(J1)R(J1)R8:R(J)R(J)R74RR1(J1)R1(J1)R5:R1(J)R1(J)R65\WW2:ALQ2:BLQ1: 90053fR(J1)R(J1)R7:R(J)R(J)R85YpR1(J1)R1(J1)R6:R1(J)R1(J)R55_z5R5W(BA)(3L2AB)(6L)5R6W(BA)(2AB)(6L)5R9R5BBB3R6(L2B)(LB)(LB)66R7(R9W(11BBBB29ABBB21AABBBAAA4AAAA)120)L6KR8R5BB2R6(LB)(LB)2W(BA)(BA)(BA)8R76iR7R7I(J1):R8R8I(J1)6o6xSU06 I1 K6SUSUP(I)6 I6:CARGAS DISTRIBUIDAS..6 I1 T6SUSU((W1(I)W2(I))(Q2(I)Q1(I))2)6" I7, I2 N76SUSUR2(I)7@ I7,JR2(1)SU72T(BA)(BA)(BA)8R76iR7R7I(J1):R8R8I(J1)6o6xSU06 I1 K6SUSUP(I)6 I6:CARGAS DISTRIBUIDAS..6 I1 T6SUSU((W1(I)W2(I))(Q2(I)Q1(I))2)6" I7,!#$&'),.01RIGTRAN BAS OPOLIGON BAS"COLUMNASBAS%SD1 BAS%3ALCANT BAS(SISMICA BASNUMLETRABAS+REPECOL BAS*~BAIRSTOWBAS-PD BASWINKLER BAS/vAISTOW BASAIRSTOEBAS2PIGACONRBAS2:&& :1000:@39,"POLIGONAL CERRADA"&H@74,"VERTICES";:N:(N3)20&t A(N),L(N),R(N),D$(N),X(N),Y(N),CR$(N)&(FC1.7453293E2:SA0:SL0:L$"###":L1$"#####.##"&2@128,"ANGS-> GGG MM SS DIST.-> MTS." ' <@417,"C.VERT=0":@428,"ent/spc":@438,"CORRECTO"'>F@196,"DATOS DEL LADO:":P$" ":RM$(8,126)'KPI1 N'hZ (IN) @210,I;"-"I1'd (IN) @210,N;"- 1"'n@262,"C.HOR("I")=";: AN$: 1980'x BA1 110' BB2 A(I)G: 150'A(I)GM60S3600(@294,"D.MED("I")=";:L(I): L(I)0 150(+@449,RM$(CQ$: Q$"" 170(iAS(Q$): AS13 AS32 170( AS13 CV0:@449,"":240(ȅ AS32 @326,"C.VER("I")=";:AN$: 1980(҅ BA1 200(܅ BB2 CVG(CVGM60S3600:@449,"") @470,RM$ )%Q$: Q$"" 250)KAS(Q$): AS13 AS32 250)h AS32 90 : @465,"")L(I)L(I)(FCCV):SASAA(I):SLSLL(I))"@326,"":),EA180(N2)SA)6((EA)(N)60)1300)@I1 N:A(I)A(I)EAN:*J@196,"DEME RUMBO DE PARTIDA:"*`T@291,"":@259,"":@259,"DEL VERT:";: A1$:@275,"AL VERT:";: A2$*^ (A1$)0 (A2$)0 340*hA1(A1$):A2(A2$)*r A11 A1N 340*| A21 A2N 340* A1A2 A1N A21 B0N: 420+$ A1A2 A2(A11) B0A1:420 : 340+6 A1A2 340+h@259,"":@262,"RUMBO ( <90 )";: AN$: 1980+y BA1 420+ BB2 R(B0)G: 460+R(B0)GM60S3600: R(B0)90 420+̇@288," DIR: ";:D$(B0),,օ(D$(B0)"NE")(D$(B0)"NW")(D$(B0)"SE")(D$(B0)"SW")460,S(D$(B0)"NE") AZR(B0)180:520,z(D$(B0)"SE") AZ360R(B0):520,(D$(B0)"NW") AZ180R(B0):520,(D$(B0)"SW") AZR(B0), B0N A1:BN1, B0N AB01:BN:AP1- IA B-&AZAZA(I)-30(AZ360)AZAZ(AZ360)360-Z:(AZ90)R(I)AZ:D$(I)"NE":610-D(AZ180)(AZ90)R(I)180AZ:D$(I)"SE":610-N(AZ270)(AZ180)R(I)AZ180:D$(I)"SW":610-XR(I)360AZ:D$(I)"NW".b(AZ180)AZAZ180 : AZAZ180. l.6v B0A1 AP1 A1:BA11:AP0: 540.U S(X)(X1000.5)1000.c I1 N.GR(R(I)):MR((R(I)(R(I)))60).SR((MR(MR))60.5). GR10 GR$((GR),2) : GR$"0"((GR),1)/ MR10 MR$((MR),2) : MR$"0"((MR),1)/R SR10 SR$((SR),2) : SR$"0"((SR),1)/qCR$(I)GR$" "MR$" "SR$/wЋ/څ Q$"/" :4)"LADO:";15)"RUMBO:";24)"DIR:"/ I1 N/ (I14)I140 770/ "" @32,"";0 IN 2);:L$;I;:" -";:L$;I1;0C IN 2);:L$;N;:" -";:L$;1;0]14)CR$(I);24)D$(I)0c 0w* Q$"/" 83004 "" 820 : Q$"/" 10100>EX0:EY0:S10:S200HI1 N1 R(D$(I)"NE")(D$(I)"NW") Y(I)L(I)(R(I)FC):S2S2Y(I):EYEYY(I)1^\(D$(I)"SE")(D$(I)"SW") Y(I)L(I)(R(I)FC):S2S2(Y(I)):EYEYY(I)1f(D$(I)"NE")(D$(I)"SE")X(I)L(I)(R(I)FC):S1S1X(I):EXEXX(I)1p(D$(I)"NW")(D$(I)"SW")X(I)L(I)(R(I)FC):S1S1(X(I)):EXEXX(I)1z2: TOLERANCIA LINEAL2cKYEYS2:KXEXS1:EL(EX2EY2):ET(SL(18E8SL.0002)).0005SL2w(ETEL) 15902 I1 N:X(I)X(I)(KXX(I)):Y(I)Y(I)(KYY(I)):I2SX0:SY02 I2 N:X(I)X(I)X(I1):Y(I)Y(I)Y(I1):3SP0:SN0:: CALCULO DE SUP.3'ʀ I2 (N1)3QSPSPY(I1)X(I):SNSNX(I1)Y(I):3fAR((SPSN)2)3z Q$"/" 10203:@36,"SUPERFICIE="AR"M2."3XM0:YM03 I1 N3 X(I)XM XMX(I)3 Y(I)YM YMY(I)3$ I3. I1 N4 8X(I)X(I)XM4BY(I)Y(I)YM4&L I4aV@129,"R>UN":@136,"D>IB":@144,"C>OORD":@154,"Q>UIT"4x`@202," RUMBOS"4j@292,"SELECCIONE "4tQ$: Q$"" 11404~ Q$"R" Q$"D" Q$"C" Q$"Q" Q$"/" 11405 Q$"R" 105 Q$"Q" 5( Q$"C" 12105; Q$"/" 7305Y Q$"D" 1640:10105:3)"VER";11)"XCOORD";22)"YCOORD"5ĀI1 N:MOI145΅(MO(MO))0 12905؅ IN 3);:L$;I1; : 3);:L$;1;6 ⇤9);:L1$;X(I);:20);:L1$;Y(I)6I6$ "" 127060 10106W K$: K$""1290 : @30,"": 6::" FUERA DE TOLERANCIA ANGULAR.":6" ERROR ANG.="EA60" MIN.":6( " R>UN V>ERIF F>IN ";Q$: Q$"R" Q$"F" Q$"V" 130072 Q$"R" 107< Q$"F" 77F@261,"VERIFICAR ANGULOS POR"7_P@290,"PAQUETES DE 5-14 ELEMENTOS:"7Z@357,"TAMA/O DEL PAQUETE: ";: MO: MO5 MO14 13707d:4)"LADO:";16)"C.HOR:"7n I1 N7x IN 3)I"-"I1; : 3)N"-"1;7G(A(I))8M(A(I)(A(I)))608+S(M(M))608H S59.5 M(M1):S08fM$((M)):S$((S))8 M10 M$(M$,2)8 S10 S$(S$,2)8ȅ M10 M$"0"(M$,1)8҅ S10 S$"0"(S$,1)9܅ A(I)10 16)(A(I));17)M$" "S$: 15209O A(I)100 14)(A(I));17)M$" "S$ : 15)(A(I));17)M$" "S$9l (IMO)IMO0 15709A$: A$"B" A$"M" 15309S1$"<==":RP589 A$"B" @33,"";: 15709 A$"M" @RP,S1$:CI: 21309"9,:6::" FUERA DE TOLERANCIA LINEAL.":7@" ERROR LINEAL="EL:QJ"ERROR TOLERABLE="ET:kT" DIFERENCIA="ELET:v^1320:h:RUTINA DE DIBUJAR:r:==================:|:FACTORES DE ESCALA:::XG -> MAYOR X::XC -> MENOR X::YG -> MAYOR Y;:YC -> MENOR Y;):SX -> FACTOR EN X;A:SY -> FACTOR EN Y;Z:==================;̞: N50 @226,"NO ES POSIBLE DIBUJAR";օ "" N50 1750 ; "" N50 ;:OBTEN SX Y SY...; I1 N; X(I)XG XGX(I)< X(I)XC XCX(I)<' Y(I)YC YCY(I)ƅ AN$"" BA1:>1Ѕ P0 (AN$)4 BA1: >Zڅ P0 (AN$)4 BB2:G(AN$):>pG((AN$,P1))>AN$(AN$,P1):LC(AN$): LC5 BA1:>P(AN$,P$): P0 (AN$)3 BA1:> P0 (AN$)3 M(AN$):? P3 B1:?M((AN$,P1))?5 S((AN$,(AN$)P))?;*?O4 LC3 BA1:?>M((AN$,2)): LC3 S((AN$,2)) : S0?H?R:SUBRUTINA DE CORRECCION?\:DE ANGULOS?f"AQUI ESTOY...!!"?p "" 2160 ?zN$):? P3 B0&, :************************************&W:* COMPUTER AIDED STRUCTURAL DESIGN *&:* *&(:* PROGRAMA SD1 (CAPITULO 4) *&2:* PARA RESOLVER MARCOS SUJETOS A *'<:* CARGAS VERTICAL Y HORIZONTAL *'.F:* METODO DE PENDIENTE-DEFORMACION. *'YP:* TECLEADO POR JESUS NAVARRO R. *'Z:* ACTUALIZADO CON FECHA: Ene-18-90 *'_:* FUNCIONANDO EL DIA: Feb-6-1990 *'d:***********************************'nF1$"###.####":F2$"##.#####"(x E(35,35),P(35)(5"INPUT FRAME REFERENCE NUMBER";(= F(C("ANALYSIS OF FRAME NUMBER ";F;"BY SLOPE DEFLECTION METHOD"(("NUMBER OF BAYS AND STOREYS";( B,S(ȇ(҇"INPUT COLUMN CENTRES - (M)"(܀ J1 B( W(J)( J))("INPUT STOREYS HEIGHTS - (M)")6 I1 S)A X(I))I" I)O,)s6"INPUT BEAM I-VALUES - (MM^4)")@ I1 S)J J1 B)T L(I,J))^ J)h I)r)|"INPUT COLUMN I-VALUES - (MM^4)") I1 S) J1 B1* M(I,J)*  J* I**A‡"INPUT YOUNG'S MUDULUS - (N/MM^2)"*Ỉ E*Oև*p"INPUT BEAM UDL'S - (KN/M)"*~ I1 S* J1 B* U(I,J)* J* I**&"INPUT WIND LOADS - (KN)"*0 I1 S*: V(I)*D I+!N 60,22: 3,2,B:"R U N N I N G . . .";: 3,2+'X+;b I1 S(B2)+Ol J1 S(B2)+\vE(I,J)0+d J+l I+ I1 S(B2)+P(I)0+ I+ I1 S1+ J1 B1+O(I,J)0+S(I,J)0+R(I,J)0+T(I,J)0+ J+ I, I1 S, J1 B,3Y(I,J)EL(I,J)(W(J)1E09),; J,C* I,Q4 I1 S,a> J1 B1,HZ(I,J)EM(I,J)(X(I)1E9),R J,\ I,f I1 S,p J1 B,zT(I,J1)U(I,J)W(J)212,R(I,J)T(I,J1), J, I, I1 S-  J1 B1-!O(I1)(B1)J-;P(O)(T(I,J)R(I,J))-Cʋ J-Kԋ I-Yހ I1 S-oP(S(B1)I)V(I)-w I- I1 S- J1 B1-O(I1)(B1)J-PO1-$RO1-.Q(I2)(B1)J-8TI(B1)J-B I1 1120.LE(O,O)E(O,O)4Z(I1,J).%VE(O,Q)2Z(I1,J).@`E(O,O)E(O,O)4Z(I,J).Qj IS 1150.etE(O,T)2Z(I,J).x~ JB1 1190.E(O,O)E(O,O)4Y(I,J).E(O,P)2Y(I,J). J1 1210.E(O,O)E(O,O)4Y(I,J1).E(O,R)2Y(I,J1). J.ċ I/ ΀ I1 S/؀ J1 B1/-O(I1)(B1)J/?P(B1)SI1/IQP1/SRQ1/d I1 1320/~E(O,Q)6Z(I,J)X(I)/ 1350/(E(O,Q)6Z(I1,J)X(I1)6Z(I,J)X(I)/2E(O,P)6Z(I1,J)X(I1)/< IS 1360/FE(O,R)6Z(I,J)X(I)0P J0 Z I0d I1 S0+n J1 B10;xOS(B1)I0OP(I1)(B1)J0[QPB10gRPB10E(O,P)6Z(I,J)X(I)0 I1 14900E(O,P)E(O,P)6Z(I1,J)X(I1)0E(O,R)6Z(I1,J)X(I1)0ȅ IS 15000E(O,Q)6Z(I,J)X(I)1܋ J1 I1 I1 S1,OS(B1)I1= I1 16001M J1 B11E(O,O)E(O,O)12Z(I,J)X(I)212Z(I1,J)X(I1)21"E(O,O1)E(O,O1)12Z(I1,J)X(I1)21, J16 16301@ J1 B11JE(O,O)E(O,O)12Z(I,J)X(I)21T J2^ IS 16702 h J1 B12GrE(O,O1)E(O,O1)12Z(I,J)X(I)22O| J2W I2eHS(B2)2s N1 H2{K02 IN H2 (E(I,N))K 17502K(E(I,N))2LI2֋ I2 JN H2GE(L,J)2E(L,J)E(N,J)2E(N,J)G3 J3XP(L)3P(L)P(N)3*&P(N)X380 IN H3N: E(I,N)0 19103[DZE(I,N)3iN JN H3}XE(I,J)E(I,J)Z3b J3lP(I)P(I)Z3v I3 NH 20103 IN1 H3 E(I,N)0 19903 JN H3E(I,J)E(I,J)E(N,J)4 J4P(I)P(I)P(N)4Ƌ I4&Ћ N44ڀ A2 H4@IHA14P JI1 H4jP(I)P(I)E(I,J)P(J)4r J4z A4 I1 S4 J1 B4*R(I,J)R(I,J)4Y(I,J)P((I1)(B1)J)44R(I,J)R(I,J)2Y(I,J)P((I1)(B1)J1)5 >T(I,J1)T(I,J1)2Y(I,J)P((I1)(B1)J)5RHT(I,J1)T(I,J1)4Y(I,J)P((I1)(B1)J1)5ZR J5b\ I5pf I1 S5p J1 B15z IS 22305Q(I1,J)4Z(I,J)P(I(B1)J)5Q(I1,J)Q(I1,J)2Z(I,J)P((I1)(B1)J)6Q(I1,J)Q(I1,J)6Z(I,J)(P(S(B1)1))X(I)6JQ(I1,J)Q(I1,J)6Z(I,J)P(S(B1)I1)X(I)6V 22606}Q(I1,J)2Z(I,J)P((I1)(B1)J)6Q(I1,J)Q(I1,J)6Z(I,J)P(S(B1)I)X(I)6ʁ 22906S(I,J)2Z(I,J)P(I(B1)J)4Z(I,J)P((I1)(B1)J)73S(I,J)S(I,J)6Z(I,J)(P(S(B1)I)P(S(B1)I1))X(I)7?聥 23007S(I,J)4Z(I,J)P((I1)(B1)J)6Z(I,J)P(S(B1)I)X(I)7 J7  I7 7  "MEMBER END MOMENTS (KNM)"7 $ "(MEMBERS INTERSECT AT JOINTS DEFINED"8 . "BY THEIR I,J LOCATIONS.)"8 88X B " I J NM SM EM WM"8h L(70,"=")8x V I1 S18 ` J1 B18 j "JOINT";I;J;:2);:F1$;Q(I,J);8 t8);:F1$;S(I,J);8 ~8);:F1$;R(I,J);8 8);:F1$;T(I,J)8 J9 I9 (70,"=")9 9# 98 ć"DISPLACEMENTS"9> ·9` ؇ "JOINT ROTATIONS (RADIANS)"9u " I J"9 I1 S19 J1 B19 IS1 25909 "JOINT";I;J,P((I1)(B1)J)9  26009 "JOINT";I;J," 0"9 ( J: 2 I: <: F:- P "HORIZONTAL DISPLACEMENTS":3 Z:i d " DISPLACEMENT":y n I1 S1: x IS1 2740: I1 2720: " ROOF LEVEL",P(S(B1)I)1000;" MM": 2750; " FLOOR";SI1;"LEVEL",P(S(B1)I)1000;" MM";" 2750;V " FOUNDATION LEVEL 0 MM";^ I;d ȇ;j ҇; ܇"IF FURTHER LOAD CASES FOR THIS FRAME TYPE 1 ELSE 0";; C; C1 470; I1 10; ;  I< "IF FURTHER FRAMES TO BE ANALYSED TYPE 1 ELSE 0";< " D<) , D1 130… T(I)R A2(2T(I)RT(I)2):AC(A(2(T(I)R))):PPIDR2AC:AHPIR2R22(2AC(2AC)),n̅ T(I)R AD:AC2PI:PPID2:AHPIR22,օ T(I)R A2(2T(I)RT(I)2):AC(A(2(RT(I)))):PR2AC:AHR22(2AC(2AC)),RHAHP,V(I)(S1)RH(23)N-FAHV(I)Q(I)- --.:@9,"* RESULTADOS *"-P@76,"VELOC:":@87,"TIRANTE:"-i!@96,"";:(31,"=")-&@129,"CON Q MIN:":@138,"";:R$;V(2):@149,"";:R$;T(2)100-0@161,"CON Q MED:":@170,"";:R$;V(3):@181,"";:R$;T(3)100.2:@193,"Q MAX INS:":@202,"";:R$;V(4):@213,"";:R$;T(4)100.uD@225,"Q MAX EXT:":@234,"";:R$;V(1):@245,"";:R$;T(1)100.N@257,"Q T.LLENO":@266,"";:R$;VD;:@277,"";:R$;D100.S@288,"";:(31,"=")/X@321,"Q LLENO=";:R$;QD1000:@341,"S0="S11000/*b@386," Q EN LTS, S0 EN MILESIMAS"/Rl@418,"VEL (M/SEG) * TIRANTE (CMS)"/vv@482,"O>TRO Q>UIT";/A$: A$"" 640/ A$"O" : 120/ A$"Q" @446,"":/ 640/::" NO PUEDES CONDUCIR TAL GASTO"0:" PROPON UN DIAMETRO MAYOR"0:@450,"UNIDADES: CENTIMETROS"0mƇ@300,"DIAMETRO=";: D: D0 710 : DD1000xЁ 3500:A TUBO LLENO0APID24:PPID:RH(AP)(23)0VDRH(S1)N:QDAVD0" NO PUEDES CONDUCIR TAL GASTO"0:" {&( ::@68,"PROP GEOM DE LA SECCION"&Q@97,"RESIST. POR PENETRACION (COL)"&n@198,"COLUMNA INTERIOR"&(@230,"DE BORDE L CORTO"&2@262,"DE BORDE L LARGO"&<@295,"COL EN ESQUINA"&F@325,"ABANDONAR CALCULO"' P@450,"SELECCIONE CON LA BARRA ESP."' ZS$"<-":S217:C1'+d@S,S$'PnA$: A$"" 110 : A1(A$)'lx A132 A113 110' A132 S345 CC1:@S,"":SS32: 100' A132 S345 C1:S217:@345,"": 100' C5 240'@450,"TECLEE A B D EN CMS."( @384,""(@385,"A=";: A(3@397,"B=";: B(Gȇ@408,"D=";: D(_P$: P$"" 210(}܅ P$"S" P$"N" 210( P$"N" 180( C 470,520,590,650,450(AL11(12(A1B1)3)(BE11(12(B1A1)3)(@384,"")@450,"TECLEE N MX MY EN TON"),"@384,"N=";: N)B,@395,"MX=";: MX)X6@406,"MY=";: MY)p@P$: P$"" 320)J P$"S" P$"N" 320)T P$"N" 290)^NN1000:MXMX100000:MYMY100000)hVNARALMXSXBEMYSY)r@384,""*|@384," F'C(K/C^2)=";: FC*+PA0.5(FC)1.33*U@384," V="(V10000.5)1000"K/C^2"*x@404,"PAR="(PA1000.5)100*P$: P$"" 420*@S,"":C5:S345* 100*Š*:COL INTERIOR*A1AD:B1BD:AR2(A1B1)D+ SX(DA12D33DA1B1)3+*SY(DB12D33DA1B1)3+0+D:BORDE L CORTO+gA1AD2:B1BD:ARD(2A1B1)+SX(A12B122A13B1)(4A12B1)+SXSX(2D2A1A12B1)6+&SXSXD(A1B1)+0SY(DB12D36DA1B1)6+:+D:BORDE L LARGO, NA1AD:B1BD2:ARD(A12B1),@XSX(DA12D36DA1B1)6,~bSY(A12B122A1B13)(2A14B1)(2D2B1A1B12)6,lSYSYD(A1B1),v,:COL DE ESQUINA,A1AD2:B1BD2,ARD(A1B1)- SX((A1B1)(D2A1A13)6A14B1(2(A1B1)))-$SXSXD(A122A1B1)-YSY((A1B1)(D2B1B13)6B14A1(2(A1B1)))-tSYSYD(B122A1B1)-zƐ6,lSYSYD(A1B1),v,:COL DE ESQUINA,A1AD2:B1BD2,ARD(A1B1)- SX((A1B1)(D2A1A13)6A14B1(2 & 3:80: 3,0: 3,2&6 "DELETREO LA CANTIDAD"& "DESDE 0.00 HASTA 999999999.99 *novecientos noventa y nueve millones*&( "CANTIDAD =";CA$&2L(CA$)&< L1 L15 40&FPN(1,CA$,".") :PUNTO DECIMAL&P PN0 L9 40'!Z PN0 FR$"00":IN$CA$: 130'6dFR$(CA$,LPN)'KnIN$(CA$,PN1)'x (FR$)2 FR$(FR$,2) :SI FRACCION ES >2, TRUNCA'}:':COMPROBANDO VALIDEZ DE CARACTERES'EN$IN$FR$:L(EN$) : UNIENDO CADENAS' I1 L(C$(EN$,I,1)() (C$)48 (C$)57 NV1(1 I(` NV1 NV0: "DATOS NO VALIDOS..": 40({CB$IN$: 500: NB$:(:TERCIA BASE DE DIGITOS <###> SERIE DE 1 A 3 CARACTERES(:CONTENIDA EN LA CADENA BASE CB$) LC(CB$) :LONGITUD DE LA CADENA BASE)' LC3 C$"0": 650)@:ANALIZANDO CIENTOS)a&C$(CB$,1,1):CB$(CB$,2))0 C$"9" NB$"NOVECIENTOS"): C$"8" NB$"OCHOCIENTOS")D C$"7" NB$"SETECIENTOS")N C$"6" NB$"SEISCIENTOS"*X C$"5" NB$"QUINIENTOS"*(b C$"4" NB$"CUATROCIENTOS"*Il C$"3" NB$"TRESCIENTOS"*iv C$"2" NB$"DOSCIENTOS"* C$"1" NB$"CIENTO"*: ANALIZANDO DECENAS* LC1 D$"0": 780*D$(CB$,1,1):CB$(CB$,1)* D$"9" NB$NB$" NOVENTA"+ D$"8" NB$NB$" OCHENTA"+A D$"7" NB$NB$" SETENTA"+cƅ D$"6" NB$NB$" SESENTA"+Ѕ D$"5" NB$NB$" CINCUENTA"+څ D$"4" NB$NB$" CUARENTA"+ D$"3" NB$NB$" TREINTA"+ D$"2" NB$NB$" VEINTI",  D$"1" NB$NB$" DIECI",( : ANALIZANDO UNIDADES,3U$CB$,f U$"9" (D$"2" D$"1") NB$NB$"NUEVE",* U$"9" D$"2" D$"1" NB$NB$" Y NUEVE",4 U$"8" (D$"2" D$"1") NB$NB$"OCHO"-> U$"8" D$"2" D$"1" NB$NB$" Y OCHO"-6H U$"7" (D$"2" D$"1") NB$NB$"SIETE"-lR U$"7" D$"2" D$"1" NB$NB$" Y SIETE"-\ U$"6" (D$"2" D$"1") NB$NB$"SEIS"-f U$"6" D$"2" D$"1" NB$NB$" Y SEIS".p U$"5" D$"1" LX(NB$):NB$(NB$,LX5):NB$NB$"QUINCE": 910.Nz U$"5" D$"2" NB$NB$"CINCO": 910.p U$"5" NB$NB$" Y CINCO". U$"4" D$"1" LX(NB$):NB$(NB$,LX5):NB$NB$"CATORCE": 940. U$"4" D$"2" NB$NB$"CUATRO": 940/ U$"4" NB$NB$" Y CUATRO"/[ U$"3" D$"1" LX(NB$):NB$(NB$,LX5):NB$NB$"TRECE": 970/ U$"3" D$"2" NB$NB$"TRES": 970/ U$"3" NB$NB$" Y TRES"/ʅ U$"2" D$"1" LX(NB$):NB$(NB$,LX5):NB$NB$"DOCE": 10000#ԅ U$"2" D$"2" NB$NB$"DOS": 10000Cޅ U$"2" NB$NB$" Y DOS"0 U$"1" D$"1" LX(NB$):NB$(NB$,LX5):NB$NB$"ONCE": 10300 U$"1" D$"0" D$"2" NB$NB$" Y UN": 10300 U$"1" D$"2" NB$NB$"UN": 10301 U$"1" NB$NB$" UN"1Y U$"0" D$"0" C$"1" LX(NB$):NB$(NB$,LX2): 10601 U$"0" D$"1" LX(NB$):NB$(NB$,LX2):NB$NB$"Z": 10601 U$"0" D$"2" LX(NB$):NB$(NB$,LX1):NB$NB$"E"1$"UN": 10301 U$M&: 80:4: 3,0: 1,3 :**** LA PAZ, BCS FEB 2017 ****&: * JESUS NAVARRO RODRIGUEZ *&: ******************************&(:&2:&< 880' F " EL METODO DE BAIRSTOW"'P " SOLUCION DE RAICES DE POLINOMIOS POR FACTORIZACION CUADRATICA":: " DE LA FORMA: P(X) = A(n)*X^(n) + A(n-1)*X^(n-1) + . . + A(1)*X + A(0)"'Z 3,5: "ORDEN DEL POLINOMIO: ";N:NPN1: N0 90(d A(N),A1(NP),C(NP),D(2),Q(NP):(on 3,7: "ENTRAR LOS COEFICIENTES DEL POLINOMIO, COMENZANDO POR EL DE MAYOR ORDEN"(x I1 NP: 62,5:: 55,5: "A(";NPI;")=";: A1(I): I( 660: 0,5:: ((80(PX$))2),5: PX$;) I1 N:A(I)A1(I1)A1(1): I:D10.005:D2.005:EP.000001) 3,7: (65,32): 9,7: " Delta1, Delta2 = .005 ; Epsilon=0.000001, Aceptar ";:C$: C$"S" C$"N" C$"n" C$"s" 150) C$;: C$"S" C$"s" 180*/ 3,7: (65,32): 3,7: "TECLEE: d(1),d(2) y Epsilon Vgr .005,.005,.00001>>";: D1,D2,EP*N 3,9: "LAS RAICES SON:"* 21,10: "PARTE REAL: PARTE IMAG.: ITER:": 21,11: (34,"=")*ȅ N1 240*PRA(1):IM0:I1+܇ " #######.##### ########.##### ###";PR,IM,I+恥 650+! N2 370+=D(1)A(1):D(2)A(2):I1+\PRD(1)2:RD(1)24D(2)+l R0 320+RR:IM(R)2+" " #######.##### #######.##### ###";PR,IM,I+,NN1:IMIM,*6 " #######.##### #######.##### ###";PR,IM,I: 350,9@IM(R)2,J " #######.##### #######.##### ###";PRIM,0,I:NN1,T " #######.##### #######.##### ###";PRIM,0,I,^NN1: N0 650-h K1 N:A(K)Q(K): K: 200-#rD(1)D1:D(2)D2-*|:-U: ** LIMITE DE ITERACIONES = 200 **-\:- I1 200:Q(1)A(1)D(1):Q(2)A(2)Q(1)D(1)D(2)- K3 N:Q(K)A(K)Q(K1)D(1)Q(K2)D(2): K-C(1)Q(1)D(1):C(2)Q(2)C(1)D(1)D(2).* K3 N1:C(K)Q(K)C(K1)D(1)C(K2)D(2): K.:… N3 500._DTC(N1)C(N2)2: DT0 480.և:"EL DENOMINADOR ES CERO!": 650.F1(Q(N)Q(N1)C(N2))DT.F2(C(N1)Q(N1)C(N2)Q(N))DT: 530.DTC(N1)C(N3)C(N2)2: DT0 470/$F1(Q(N)C(N3)Q(N1)C(N2))DT/JF2(C(N1)Q(N1)C(N2)Q(N))DT/xD(1)D(1)F1:D(2)D(2)F2:S(F1)(F2)/ SEP 260/& I1 S0S: 620/0 I50 SS0 590/::"EL PROCESO NO CONVERGE!!!"0*D"d(1)=";D(1);" d(2)=";D(2);" Delta d(1)=";F1;" Delta d(2)=";F2: 6500=N I100 6200dX "EL PROCESO CONVERGE MUY LENTO!"0b"d(1)=";D(1);" d(2)=";D(2);" Delta d(1)=";F1;" Delta d(2)=";F20l I0v:"Excedio el limite de Iteraciones..."1#"d(1)=";D(1);" d(2)=";D(2);" Delta d(1)=";F1;" Delta d(2)=";F21)1i ** FORMAR CADENA DEL POLINOMIO EN BASE A LOS COEFICIENTES1 ** CADENA CONTENEDORA: PX$, LA LONGITUD NO EXCEDERA DE 79 CARACTERES1 ** PARA PODER DESPLEGARLA EN UN SOLO RENGLON.25 ** N ES EL GRADO DEL POLINOMIO, NP ES EL NUMERO DE COEFICIENTES (N+1)2~ ** A1(NP) ES EL ARRAY CONTENEDOR DE LOS COEFICIENTES DEL POLINOMIO2ƀ I1 NP:CF$(A1(I)): A1(I)0 8502Ѕ A1(I)1 A1(I)0 CF$"-0."(CF$,(CF$)2): 7603څ A1(I)1 7603? A1(I)0 A1(I)1 CF$"+0."(CF$,(CF$)2): 7603i A1(I)1 CF$"+"(CF$,(CF$)1)3uPWNPI3 A1(I)1 PWN CF$""3 A1(I)1 CF$"-"3 A1(I)1 PWN CF$"+"3 PW0 TR$CF$: 8404* PW1 PW$"": 830444PW$(PW):PW$(PW$,(PW$)1):PW$"^"PW$4H>TR$CF$"X"PW$4oH (PX$)80 PX$PX$TR$ : INP4wR I4\ (PX$)80 PX$(PX$,80)4f4p ** ERROR TRAPPING4z ** PROBAR CON OTROS VALORES DE DeltaD1 y DeltaD25 ** CORRER DE NUEVO EL PROGRAMA5& ** FINALIZAR5X 22,20: "ERROR NO. ";;" EN LA LINEA: ";5 12,22: "1) DAR NUEVOS VALORES A DeltaD1 y DeltaD2 y Epsilon"5 12,23: "2) CORRER NUEVAMENTE EL PROGRAMA";5C$: C$"" 95060 C$"1" 22,20:: 12,22: (50,32);: 12,23: (50,32);: 1706Aʅ C$"2" 6Lԁ 570NEA: ";5 12,22: "1) DAR NUEVOS VALORES A DeltaD1 y DeltaD2 y Epsilon"5 12,23: "2) CORRER NUEVAMENTE EL PROGRAMA";5C$: C$"" 95060 C$"1" 22,20:s& :MODELO DE WINKLER&>:CALCULO DE ELEMENTOS MECANICOS&d:VIGA SOBRE CIMENTACION ELASTICA&{(:ENTRADA DE DATOS&2:SECCION TRANSVERSAL&3 SH(X)((X)(X))2&4 CH(X)((X)(X))2'< 80:3: 3,0: 3,2: 45,0: "VIGA SOBRE CIMENTACION ELASTICA"'9F 49,1: "ING. JESUS NAVARRO R."'lP 45,23: "San Jose del Valle, Nay. Abril/99";'ZSP$" ":LI$" "'d 5,6: "SECCION: (cms)"'n 22,4: "Peralte TOTAL=";HS:HSHS100(&x 25,5: "de la losa=";HL:HLHL100(R 21,6: "ANCHO losa (B)=";BS:BSBS100( 21,7: " De Trabe (b)=";BR:BRBR100: 870( FG1 FG0: 460( 45,4: " Longitud (mts):";L( 45,5: "H desplante (mts):";DF) 45,6: " f'c,fy (Kg/cm2):";FC,FY)3 45,7: "Modulo E.(tn/mt2):";E)X 45,8: "Mod. Cim.(tn/mt3):";K0)} 45,9: " Suelo o :";C$) C$"G" C$"C" C$"g" C$"c" 220) C$"G" C$"g" SU$"GRANULAR" : SU$"COHESIVO"*+ 6,9: "CORRIJO MODULO DE CIMENTACION ?";:C$: C$"" 250*] C$"S" C$"N" C$"s" C$"n" 250* C$"S" C$"s" 920 : KDK0* C$;: 10,11: "Puntos a Analizar ";N*" 8,12: " Numero de Cargas ";NP*, X(N),P(NP),A(NP),Y(N),M(N),V(N)+6CC1+3J 30,14: "DISTANCIAS Y CARGAS (M y Tn)"+AT I1 N+[h 10,16: "PUNTO: ";I+r CCNP 45,16: "CARGA:";CC : 45,16: SP$+| 10,18: "** X =";X(I)+ CCNP 441+ 10,23: "APLICO LA CARGA :";:C$: C$"" 400,( C$"S" C$"N" C$"s" C$"n" 400,V C$"N" C$"n" 10,23: SP$;: 441, 10,23: SP$;: 44,18: "P(";CC;")=";: P(CC),A(CC)X(I):CCCC1, 10,18: SP$: 44,18: SP$,‹ I, 30,21: "C A L C U L A N D O .";,ց 1020-$:*** PRESENTACION DE RESULTADOS ***-e:CC0:CP1:F1$"###":F2$"##.##":F3$"###.##":F4$"####.##"- 14,0: "VIGA SOBRE CIMENTACION ELASTICA..** RESULTADOS **"- 14,1: "================================================="., 12,3: " n X(Mt) P(Tn) M(T/M) Y(mm) Vi(Tn) Vd(Tn)".r 12,4: "======================================================". 12,20: "======================================================". I1 N.CCCC1. 12,CC4: F1$;I;/ 17,CC4: F2$;X(I);/$& 30,CC4: F4$;M(I);/@0 40,CC4: F3$;Y(I);/\: 48,CC4: F4$;V(I);/nD CPNP 610/N X(I)A(CP) 610/S 23,CC4: F3$;P(CP);/X 58,CC4: F4$;V(I)P(CP);:CPCP101b CC15 30,23: "Presiona una tecla..";:C$: C$"" 610 : 30,23: SP$;:CC0: 142009l I0Vv:**** OPCIONES ****0z 15,21: "1)- Nuevas Cargas.."0 15,22: "2)- Seccion Transversal.."0 45,21: "3)- Resultados.."0 45,22: "4)- Terminar.."1 19,23: "Teclee: 1,2,3 o 4, por favor...";1-C$: C$"" 7301q߅ C$"1" C$"2" C$"3" C$"4" 725 : 30,23: SP$;1 C$"4" 1 C$"2" FG1: I1 N:M(I)0:V(I)0:Y(I)0: I:: 601 C$"3" 1420: 4902: 25,7: "VIGA SOBRE CIMENTACION ELASTICA.."26 30,8: "Por: Jesus Navarro.."2k 24,11: "ENTRADA DE NUEVO SISTEMA DE CARGAS.."2 I1 N:M(I)0:Y(I)0:V(I)0: I2 I1 NP2* 25,13: "Distancia:";A(I);24 45,13: "CARGA (Tn):";P(I)29 45,13: SP$3H I: 4603 R30\ ***** SUBPROGRAMA INERCIA *****3XfHRHSHL:ALHLBS:ATBRHR:ARALAT3}pQXALHL2AT(HSHR2):YCQXAR3zIXBSHL312AL(YCHL2)2BRHR312AT(HLHR2YC)233 *** CALCULA MODULO DE CIMENTACION ***4 SU$"COHESIVO" 9604(KBK0((BS0.305)(2BS))24CKL23KB(1BS(2L))4`KDKL(12DFBS): 9804KBK0BS:KL23KB(1BS(2L))4KDKL4ԅ KD2K0 KD2K04ސ4 *** SUBRUTINA WINKLER ***4:4LM(KD(4EIX))0.254LLLML5/ LL45 TM1((SH(LL))2((LL))2) : TM05E K1 NP: ".";5`$AA(K):BLA:SG1:A1A5n. J1 N58 A1X(J) 12405B X(J)A1 XX(J)5L X(J)A1 XLX(J):SG15VLXLMX:LALMA:LBLMB6`T1CH(LX)(LX)(SH(LL)(LA)SH(LB)(LL)CH(LA)(LB))6?jT2CH(LX)(LX)SH(LX)(LX)6ntT3SH(LL)((LA)CH(LB)(LA)SH(LB))6~T4(LL)(SH(LA)(LB)CH(LA)(LB))6T5SH(LX)(LX)(SH(LL)(LA)CH(LB)(LL)CH(LA)(LB))7T6CH(LX)(LX)SH(LX)(LX)75T7SH(LL)((LA)CH(LB)(LA)SH(LB))7iT8SH(LL)(LA)CH(LB)(LL)CH(LA)(LB)7H1(P(K)LMTMKD)(2T1T2(T3T4))10007M1P(K)TM2LM(2T5T6(T7T4))7V1P(K)TM(T2T8SH(LX)(LX)(T7T4))SG7΁ 13508LALMA:LBLMB8NT1((CH(LA))2((LA))2)(SH(LB)CH(LB)(LB)(LB))8T2((CH(LB))2((LB))2)(SH(LA)CH(LA)(LA)(LA))8T3((CH(LA))2((LA))2)(SH(2LB)(2LB))8T4((CH(LB))2((LB))2)(SH(2LA)(2LA))90 T54(SH(LL)SH(LA)CH(LB)(LL)(LA)(LB))9^T6SH(2LA)(2LB)(2LA)SH(2LB)9H1(P(K)LMTMKD)(T1T2)10009(M1P(K)TM4LM(T3T4)92V1P(K)TM4(T5T6)9 ";:C$: C$"S" C$"N" C$"n" C$"s" 150) C$;: C$"S" C$"s" 180*/ 3,7: (65,32): 3,7: "TECLEE: d(1),d(2) y Epsilon Vgr .005,.005,.00001>>";: D1,D2,EP*N 3,9: "LAS RAICES SON:"* 21,10: "PARTE REAL: PARTE IMAG.: ITER:": 21,11: (34,"=")*ȅ N1 240*PRA(1):IM0:I1+܇ " #######.##### ########.##### ###";PR,IM,I+恥 650+! N2 370+=D(1)A(1):D(2)A(2):I1+\PRD(1)2:RD(1)24D(2)+l R0 320+RR:IM(R)2+" " #######.##### #######.##### ###";PR,IM,I+,NN1:IMIM,*6 " #######.##### #######.##### ###";PR,IM,I: 350,9@IM(R)2,J " #######.##### #######.##### ###";PRIM,0,I:NN1,T " #######.##### #######.##### ###";PRIM,0,I,^NN1: N0 650-h K1 N:A(K)Q(K): K: 200-#rD(1)D1:D(2)D2-*|:-U: ** LIMITE DE ITERACIONES = 200 **-\:- I1 200:Q(1)A(1)D(1):Q(2)A(2)Q(1)D(1)D(2)- K3 N:Q(K)A(K)Q(K1)D(1)Q(K2)D(2): K-C(1)Q(1)D(1):C(2)Q(2)C(1)D(1)D(2).* K3 N1:C(K)Q(K)C(K1)D(1)C(K2)D(2): K.:… N3 500._DTC(N1)C(N2)2: DT0 480.և:"EL DENOMINADOR ES CERO!": 650.F1(Q(N)Q(N1)C(N2))DT.F2(C(N1)Q(N1)C(N2)Q(N))DT: 530.DTC(N1)C(N3)C(N2)2: DT0 470/$F1(Q(N)C(N3)Q(N1)C(N2))DT/JF2(C(N1)Q(N1)C(N2)Q(N))DT/xD(1)D(1)F1:D(2)D(2)F2:S(F1)(F2)/ SEP 260/& I1 S0S: 620/0 I50 SS0 590/::"EL PROCESO NO CONVERGE!!!"0*D"d(1)=";D(1);" d(2)=";D(2);" Delta d(1)=";F1;" Delta d(2)=";F2: 6500=N I100 6200dX "EL PROCESO CONVERGE MUY LENTO!"0b"d(1)=";D(1);" d(2)=";D(2);" Delta d(1)=";F1;" Delta d(2)=";F20l I0v:"Excedio el limite de Iteraciones..."1#"d(1)=";D(1);" d(2)=";D(2);" Delta d(1)=";F1;" Delta d(2)=";F21)1i ** FORMAR CADENA DEL POLINOMIO EN BASE A LOS COEFICIENTES1 ** CADENA CONTENEDORA: PX$, LA LONGITUD NO EXCEDERA DE 79 CARACTERES1 ** PARA PODER DESPLEGARLA EN UN SOLO RENGLON.25 ** N ES EL GRADO DEL POLINOMIO, NP ES EL NUMERO DE COEFICIENTES (N+1)2~ ** A1(NP) ES EL ARRAY CONTENEDOR DE LOS COEFICIENTES DEL POLINOMIO2ƀ I1 NP:CF$(A1(I)): A1(I)0 8502Ѕ A1(I)1 A1(I)0 CF$"-0."(CF$,(CF$)2): 7603څ A1(I)1 7603? A1(I)0 A1(I)1 CF$"+0."(CF$,(CF$)2): 7603i A1(I)1 CF$"+"(CF$,(CF$)1)3uPWNPI3 A1(I)1 PWN CF$""3 A1(I)1 CF$"-"3 A1(I)1 PWN CF$"+"3 PW0 TR$CF$: 8404* PW1 PW$"": 830444PW$(PW):PW$(PW$,(PW$)1):PW$"^"PW$4H>TR$CF$"X"PW$4oH (PX$)80 PX$PX$TR$ : INP4wR I4\ (PX$)80 PX$(PX$,80)4f4p ** ERROR TRAPPING4z ** PROBAR CON OTROS VALORES DE DeltaD1 y DeltaD25 ** CORRER DE NUEVO EL PROGRAMA5& ** FINALIZAR5X 22,20: "ERROR NO. ";;" EN LA LINEA: ";5 12,22: "1) DAR NUEVOS VALORES A DeltaD1 y DeltaD2 y Epsilon"5 12,23: "2) CORRER NUEVAMENTE EL PROGRAMA";5C$: C$"" 95060 C$"1" 22,20:: 12,22: (50,32);: 12,23: (50,32);: 1706Aʅ C$"2" 6Lԁ 570NEA: ";5 12,22: "1) DAR NUEVOS VALORES A DeltaD1 y DeltaD2 y Epsilon"5 12,23: "2) CORRER NUEVAMENTE EL PROGRAMA";5C$: C$"" 95060 C$"1" 22,20:ppp00000003<<<<