DESARROLLO DE HERRAMIENTAS - FI-UAEMex
DESARROLLO DE HERRAMIENTAS - FI-UAEMex DESARROLLO DE HERRAMIENTAS - FI-UAEMex
168 HERRAMIENTAS DE CÓMPUTO NEXT j NEXT i PRINT #2, "Máxima fuerza en y = ", mfy PRINT #2, " " REM máxima fuerza axial LET mfa = 0 FOR i = 1 TO nb STEP 1 FOR j = 1 TO nb STEP 1 IF i j THEN IF ABS(fa(i)) > ABS(fa(j)) THEN IF mfa < ABS(fa(i)) THEN mfa = ABS(fa(i)) ELSE END IF ELSE END IF ELSE END IF NEXT j NEXT i PRINT #2, "Maxima fuerza axial = ", mfa PRINT #2, " " REM máximo desplazamiento en x LET mdx = 0 FOR i = 1 TO nna STEP 1 FOR j = 1 TO nna STEP 1 IF i j THEN IF ABS(dx(i)) > ABS(dx(j)) THEN IF mdx < ABS(dx(i)) THEN mdx = ABS(dx(i)) ELSE END IF ELSE END IF ELSE END IF NEXT j NEXT i PRINT #2, "Máximo desplazamiento en x = ", mdx PRINT #2, " " REM máxima fuerza en y LET mdy = 0 FOR i = 1 TO nna STEP 1 FOR j = 1 TO nna STEP 1 IF i j THEN IF ABS(dy(i)) > ABS(dy(j)) THEN IF mdy < ABS(dy(i)) THEN mdy = ABS(dy(i)) ELSE END IF ELSE END IF ELSE END IF NEXT j NEXT i PRINT #2, "Máximo desplazamiento en y = ", mdy PRINT #2, " " REM dibujo de las barras REM cálculo del factor de escala IF mfx 0 THEN DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL PARA SU USO DESDE LA INTERNET
LET esfx = 45 / mfx ELSE esfx = 1 END IF IF mfy 0 THEN LET esfy = 30 / mfy ELSE esfy = 1 END IF IF mfa 0 THEN LET esfa = 10 / mfa ELSE esfa = 1 END IF IF esfx < esfy THEN esf = esfx ELSE esf = esfy END IF REM factor de escala para desplazamientos IF mdx 0 THEN LET esdx = 45 / mdx ELSE esdx = 1 END IF IF mdy 0 THEN LET esdy = 30 / mdy ELSE esdy = 1 END IF IF esdx < esdy THEN esd = esdx ELSE esd = esdy END IF REM multiplica por el factor de escala FOR i = 1 TO nna STEP 1 x(i) = es * x(i) y(i) = es * y(i) fx(i) = esf * fx(i) fy(i) = esf * fy(i) NEXT i REM desplazamientos a escala FOR i = 1 TO nna STEP 1 dx(i) = esd * dx(i) dy(i) = esd * dy(i) NEXT i REM esfuerzos a escala FOR i = 1 TO nb STEP 1 fa(i) = esfa * fa(i) NEXT i REM limites de la ventana de interfaz WINDOW (-140, -70)-(500, 280) REM marco de la interfaz gráfica LINE (-50, -55)-(490, 265), 10, B HERRAMIENTAS DE CÓMPUTO 169 DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL PARA SU USO DESDE LA INTERNET
- Page 130 and 131: 118 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 132 and 133: 120 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 134 and 135: 122 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 136 and 137: 124 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 138 and 139: 126 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 140 and 141: 128 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 142 and 143: ANÁLISIS MATRICIAL DE ESTRUCTURAS
- Page 144 and 145: ANÁLISIS MATRICIAL DE ESTRUCTURAS
- Page 146 and 147: 134 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 148 and 149: 136 HERRAMIENTAS DE CÓMPUTO c 10 F
- Page 150 and 151: 138 HERRAMIENTAS DE CÓMPUTO c * *
- Page 152 and 153: 140 HERRAMIENTAS DE CÓMPUTO WRITE(
- Page 154 and 155: 142 HERRAMIENTAS DE CÓMPUTO R(1)=2
- Page 156 and 157: 144 HERRAMIENTAS DE CÓMPUTO WRITE(
- Page 158 and 159: 146 HERRAMIENTAS DE CÓMPUTO WRITE(
- Page 160 and 161: 148 HERRAMIENTAS DE CÓMPUTO 132 CO
- Page 162 and 163: 150 HERRAMIENTAS DE CÓMPUTO 54 FOR
- Page 164 and 165: 152 HERRAMIENTAS DE CÓMPUTO C LECT
- Page 166 and 167: 154 HERRAMIENTAS DE CÓMPUTO A(3,10
- Page 168 and 169: 156 HERRAMIENTAS DE CÓMPUTO do 334
- Page 170 and 171: 158 HERRAMIENTAS DE CÓMPUTO A(7,9)
- Page 172 and 173: 160 HERRAMIENTAS DE CÓMPUTO c c Va
- Page 174 and 175: 162 HERRAMIENTAS DE CÓMPUTO c c Im
- Page 176 and 177: 164 HERRAMIENTAS DE CÓMPUTO DEF(I)
- Page 178 and 179: 166 HERRAMIENTAS DE CÓMPUTO LINE I
- Page 182 and 183: 170 HERRAMIENTAS DE CÓMPUTO REM Le
- Page 184 and 185: 172 HERRAMIENTAS DE CÓMPUTO DESARR
- Page 186 and 187: 174 PROGRAMACIÓN CON JAVA SCRIPT I
- Page 188 and 189: 176 PROGRAMACIÓN CON JAVA SCRIPT D
- Page 190 and 191: 178 INTERFASE EN LA INTERNET PARA L
- Page 192 and 193: 180 INTERFASE EN LA INTERNET PARA L
- Page 194 and 195: 182 INTERFASE EN LA INTERNET PARA L
- Page 196 and 197: 184 INTERFASE EN LA INTERNET PARA L
- Page 198 and 199: 186 INTERFASE EN LA INTERNET PARA L
- Page 200 and 201: 188 INTERFASE EN LA INTERNET PARA L
- Page 202 and 203: 190 INTERFASE EN LA INTERNET PARA L
- Page 204 and 205: 192 INTERFASE EN LA INTERNET PARA L
- Page 206 and 207: 194 INTERFASE EN LA INTERNET PARA L
- Page 208 and 209: 196 APLICACIONES Y MANUALES DE USUA
- Page 210 and 211: 198 APLICACIONES Y MANUALES DE USUA
- Page 212 and 213: 200 APLICACIONES Y MANUALES DE USUA
- Page 214: 202 APLICACIONES Y MANUALES DE USUA
- Page 217 and 218: 203 APLICACIONES Y MANUALES DE USUA
- Page 219 and 220: Desplazamientos de los nudos: RESUL
- Page 221 and 222: Estructura deformada: Esfuerzos en
- Page 223 and 224: Desplazamientos de los nudos: RESUL
- Page 225 and 226: 214 APLICACIONES Y MANUALES DE USUA
- Page 227 and 228: 212 APLICACIONES Y MANUALES DE USUA
- Page 229 and 230: Ejemplo 4. APLICACIONES Y MANUALES
168 <strong>HERRAMIENTAS</strong> <strong>DE</strong> CÓMPUTO<br />
NEXT j<br />
NEXT i<br />
PRINT #2, "Máxima fuerza en y = ", mfy<br />
PRINT #2, " "<br />
REM máxima fuerza axial<br />
LET mfa = 0<br />
FOR i = 1 TO nb STEP 1<br />
FOR j = 1 TO nb STEP 1<br />
IF i j THEN<br />
IF ABS(fa(i)) > ABS(fa(j)) THEN<br />
IF mfa < ABS(fa(i)) THEN<br />
mfa = ABS(fa(i))<br />
ELSE<br />
END IF<br />
ELSE<br />
END IF<br />
ELSE<br />
END IF<br />
NEXT j<br />
NEXT i<br />
PRINT #2, "Maxima fuerza axial = ", mfa<br />
PRINT #2, " "<br />
REM máximo desplazamiento en x<br />
LET mdx = 0<br />
FOR i = 1 TO nna STEP 1<br />
FOR j = 1 TO nna STEP 1<br />
IF i j THEN<br />
IF ABS(dx(i)) > ABS(dx(j)) THEN<br />
IF mdx < ABS(dx(i)) THEN<br />
mdx = ABS(dx(i))<br />
ELSE<br />
END IF<br />
ELSE<br />
END IF<br />
ELSE<br />
END IF<br />
NEXT j<br />
NEXT i<br />
PRINT #2, "Máximo desplazamiento en x = ", mdx<br />
PRINT #2, " "<br />
REM máxima fuerza en y<br />
LET mdy = 0<br />
FOR i = 1 TO nna STEP 1<br />
FOR j = 1 TO nna STEP 1<br />
IF i j THEN<br />
IF ABS(dy(i)) > ABS(dy(j)) THEN<br />
IF mdy < ABS(dy(i)) THEN<br />
mdy = ABS(dy(i))<br />
ELSE<br />
END IF<br />
ELSE<br />
END IF<br />
ELSE<br />
END IF<br />
NEXT j<br />
NEXT i<br />
PRINT #2, "Máximo desplazamiento en y = ", mdy<br />
PRINT #2, " "<br />
REM dibujo de las barras<br />
REM cálculo del factor de escala<br />
IF mfx 0 THEN<br />
<strong><strong>DE</strong>SARROLLO</strong> <strong>DE</strong> <strong>HERRAMIENTAS</strong> <strong>DE</strong> ANÁLISIS ESTRUCTURAL<br />
PARA SU USO <strong>DE</strong>S<strong>DE</strong> LA INTERNET
Change language