DESARROLLO DE HERRAMIENTAS - FI-UAEMex

166 HERRAMIENTAS DE CÓMPUTO
LINE INPUT #1, lineIn$
LINE INPUT #1, lineIn$
FOR j = 1 TO nn STEP 1
INPUT #1, a1, a2
INPUT #1, a3, a4
LET dx(j) = (a2)
LET dy(j) = (a4)
PRINT #2, " "
PRINT #2, "Nudo ", j
PRINT #2, "dx ", j, "=", dx(j)
PRINT #2, "dy ", j, "=", dy(j)
NEXT j
ELSE
END IF
REM Busca fuerzas en barras
IF lineIn$ = "RESULTADOS FINALES :" THEN
LINE INPUT #1, lineIn$
LINE INPUT #1, lineIn$
LINE INPUT #1, lineIn$
LINE INPUT #1, lineIn$
LINE INPUT #1, lineIn$
FOR j = 1 TO nb STEP 1
INPUT #1, b1, b2, b3
LET fa(j) = (b3)
PRINT #2, " "
PRINT #2, "Fuerza axial en barra ", j, "=", fa(j)
PRINT #2, " "
NEXT j
ELSE
END IF
REM PRINT #2, lineIn$
LOOP
REM declaración del tipo de gráfico
SCREEN 9
REM máxima coordenada en x
LET mx = 0
FOR i = 1 TO nna STEP 1
FOR j = 1 TO nna STEP 1
IF i j THEN
IF x(i) > x(j) THEN
IF mx < x(i) THEN
mx = x(i)
ELSE
END IF
ELSE
END IF
ELSE
END IF
NEXT j
NEXT i
PRINT #2, "Máxima x = ", mx
PRINT #2, " "
REM máxima coordenada en y
LET my = 0
FOR i = 1 TO nna STEP 1
FOR j = 1 TO nna STEP 1
DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL
PARA SU USO DESDE LA INTERNET