DESARROLLO DE HERRAMIENTAS - FI-UAEMex

DIM mx(100)
DIM my(100)
DIM mfx(100)
DIM mfy(100)
DIM dx(100)
DIM dy(100)
FOR i = 1 TO nna STEP 1
INPUT #3, x(i), y(i), fx(i), fy(i)
NEXT i
REM declara el tamaño de las matrices de datos
DIM e(100)
DIM a(100)
DIM ni(100)
DIM nf(100)
DIM fa(100)
FOR j = 1 TO nb STEP 1
INPUT #3, e(j), a(j), ni(j), nf(j)
NEXT j
REM éxito en la entrada de archivos
FOR j = 1 TO 4 STEP 1
SOUND 4666, 2
SOUND 2333, 1.5
NEXT j
REM impresión en el archivo de salida
HERRAMIENTAS DE CÓMPUTO 165
PRINT #2, " Programa Arma2dgr "
PRINT #2, " "
PRINT #2, " Interfaz gráfica de Arma2d "
PRINT #2, " "
PRINT #2, " David Delgado, Alfonso Islas, Gonzalo Paz "
PRINT #2, " "
PRINT #2, "Barras = ", nb
PRINT #2, "Nudos = ", nn
PRINT #2, "Apoyos = ", na
PRINT #2, " "
FOR k = 1 TO nna
PRINT #2, "Coordenada x ", k, " =", x(k)
PRINT #2, "Coordenada y ", k, " =", y(k)
PRINT #2, "Fuerza x ", k, " =", fx(k)
PRINT #2, "Fuerza y ", k, " =", fy(k)
PRINT #2, " "
NEXT k
FOR k = 1 TO nb
PRINT #2, "Barra ", k
PRINT #2, "Nudo inicial ", k, " =", ni(k)
PRINT #2, "Nudo final ", k, " =", nf(k)
PRINT #2, " "
NEXT k
PRINT #2, " "
REM busca la palabra desplazamientos
DO WHILE NOT EOF(1)
REM comienza leyendo las líneas del archivo de resultados
LINE INPUT #1, lineIn$
REM elimina los espacios en blanco
lineIn$ = LTRIM$(RTRIM$(lineIn$))
REM Busca desplazamientos
IF lineIn$ = "Desplazamientos de los nudos :" THEN
DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL
PARA SU USO DESDE LA INTERNET