DESARROLLO DE HERRAMIENTAS - FI-UAEMex

164 HERRAMIENTAS DE CÓMPUTO
DEF(I)=DEF(I)+A(I,J)*DAB(J)
8001 CONTINUE
8000 CONTINUE
C
c Producto {p}= [k]{e} ( Elementos mecánicos )
C
DO 8002 I=1,4
P(I)=R(I)*DEF(I)
8002 CONTINUE
C
MA=P(1)+P(2)
MB=P(2)+P(3)
MT=P(4)
C
write(2,32)
32 format('DEFORMACIONES : '/)
WRITE(2,126)(DEF(j),j=1,4)
126 FORMAT(/4F10.4/)
C
write(2,33)MA,MB,MT
33 format(' ELEMENTOS MECANICOS '//,'MA: ',F10.3/,'MB: ',F10.3/,
*'MT: ',F10.3/)
C LIMPIA DEFORMACIONES Y DESPLAZAMIENTOS
DO 2345 J=1,4
DEF(j)=0.0
2345 CONTINUE
DO 1345 J=1,6
DAB(j)=0.0
1345 CONTINUE
C
1250 CONTINUE
End
III.7 PROGRAMA ARMA2DGR.
Fue diseñado para mostrar gráficamenete la interpretación de resultados del programa de
armaduras planas “ARMA2D”.
REM limpia la pantalla
CLS
REM Entrada de archivo
INPUT "Archivo de datos (estructura):", InFile$
REM INPUT "Archivo de salida:", OutFile$
REM archivo de salida
OPEN InFile$ FOR INPUT AS #3
REM OPEN OutFile$ FOR OUTPUT AS #2
OPEN "salida" FOR OUTPUT AS #2
REM abre archivo origen
INPUT "Archivo de salida del arma2d:"; n$
OPEN n$ FOR INPUT AS #1
REM entrada de datos
INPUT #3, nb, nn, na
LET nna = nn + na
DIM x(100)
DIM y(100)
DIM fx(100)
DIM fy(100)
DIM mz(100)
DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL
PARA SU USO DESDE LA INTERNET