DESARROLLO DE HERRAMIENTAS - FI-UAEMex

HERRAMIENTAS DE CÓMPUTO 171
FOR i = 1 TO nb
LINE (x(ni(i)) + dx(ni(i)), y(ni(i)) + dy(ni(i)))-(x(nf(i)) + dx(nf(i)),
y(nf(i)) + dy(nf(i))), 12
NEXT i
REM detiene momentáneamente el programa
SLEEP 0
REM dibujo de los esfuerzos de la estructura
REM PRINT " Esfuerzos"
FOR i = 1 TO nb
IF fa(i) >= 0 THEN
REM LINE (x(ni(i)), y(ni(i)))-(x(nf(i)) + 0! * fa(i), y(nf(i)) + 0! * fa(i)),
11, B
LINE (x(ni(i)), y(ni(i)))-(x(nf(i)), y(nf(i))), 11
ELSE
END IF
NEXT i
9, B
REM PRINT " Esfuerzos"
FOR i = 1 TO nb
IF fa(i) < 0 THEN
REM LINE (x(ni(i)), y(ni(i)))-(x(nf(i)) + 0! * fa(i), y(nf(i)) + 0! * fa(i)),
LINE (x(ni(i)), y(ni(i)))-(x(nf(i)), y(nf(i))), 9
ELSE
END IF
NEXT i
REM detiene momentáneamente el programa
SLEEP 0
REM fin del programa
END
REM cierra archivo de entrada y de salida
CLOSE #1, #2
END
Este programa genera un archivo de texto llamado “SALIDA” en el cual el usuario verifica
que los datos fueron proporcionados de manera adecuada.
DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL
PARA SU USO DESDE LA INTERNET