DESARROLLO DE HERRAMIENTAS - FI-UAEMex

CAPITULO III.
HERRAMIENTAS DE CÓMPUTO 135
DESARROLLO DE HERRAMIENTAS DE CÓMPUTO PARA EL ANÁLISIS DE
ESTRUCTURAS ESQUELETALES.
A continuación se presentan los códigos fuente realizados en FORTRAN que permiten
resolver distintos tipos de estructuras esqueletales, el orden en que se presentan es el
siguiente:
• Programa ARMA2D.- Armaduras planas.
• Programa ARMA3D.- Armaduras tridimensionales.
• Programa MAR2DC.- Marcos planos (Por el método de la matriz de continuidad).
• Programa MAR2DR.- Marcos planos (Por el método de la matriz de rigidez).
• Programa MAR3D.- Marcos tridimensionales.
• Programa RET2D.- Retícula plana.
• Programa ARMA2DGR.- Interfase gráfica para Armaduras planas.
III.1 PROGRAMA ARMA2D.
C
c ******************************************************************
C * *
c * PROGRAMA DE COMPUTADORA PARA EL ANALISIS DE ARMADURAS *
C * EN DOS DIMENSIONES *
c * BASADO EN EL METODO DE LA MATRIZ DE CONTINUIDAD. *
c * *
c ******************************************************************
c
DIMENSION k(300,300),X(100),Y(100),E(200),P(200),L(100),EAL(200)
DIMENSION iin(100),ifI(100),a(200,200),DE(100),AR(200)
INTEGER Q,QQ,Z
REAL L,K,X,Y,E,P,EAL,AR
CHARACTER*20 INPUT,OUTPUT
c
WRITE(*,*)'******************************************************'
WRITE(*,*)'* *'
WRITE(*,*)'* *'
WRITE(*,*)'* ANALISIS DE ARMADURAS EN 2 DIMENSIONES *'
WRITE(*,*)'* *'
WRITE(*,*)'* ( A R M A 2 D ) *'
WRITE(*,*)'* *'
WRITE(*,*)'* Elaborado por: *'
WRITE(*,*)'* *'
WRITE(*,*)'* Octavio García Domínguez *'
WRITE(*,*)'* David Delgado Hernández *'
WRITE(*,*)'* Alfonso Islas Hernández *'
WRITE(*,*)'* Gonzalo Paz Mendoza *'
WRITE(*,*)'* *'
WRITE(*,*)'* *'
WRITE(*,*)'* Estructuras, DEPFI, UNAM *'
WRITE(*,*)'* *'
WRITE(*,*)'* México D.F., Febrero de 1998 *'
WRITE(*,*)'* *'
WRITE(*,*)'* *'
WRITE(*,*)'******************************************************'
c
c Apertura de archivos
WRITE(*,10)
DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL
PARA SU USO DESDE LA INTERNET