DESARROLLO DE HERRAMIENTAS - FI-UAEMex

140 HERRAMIENTAS DE CÓMPUTO
WRITE(2,*)I,'DZ',K(3*I,N+1)
600 CONTINUE
C
write(2,57)
write(2,58)
57 format(//'RESULTADOS FINALES :'//)
58 format(9x,'Barra',6X,'Deformacion',6X,'Fuerza'//)
C
C DEFORMACIONES EN LAS BARRAS
C
DO 620 i=1,NB
DO 640 j=1,nuu
de(i)=de(i)+a(i,j)*K(j,n+1)
640 CONTINUE
620 CONTINUE
C
C FZAS EN LAS BARRAS
C
DO 342 I=1,NB
P(I)=de(i)*EAL(i)
write(2,*)I,DE(I),P(I)
342 CONTINUE
C
END
III.3 PROGRAMA MAR2DC
C
c ******************************************************************
C * *
c * PROGRAMA DE COMPUTADORA PARA EL ANALISIS DE MARCOS PLANOS *
c * BASADO EN EL METODO DE LA MATRIZ DE CONTINUIDAD. *
c * *
c ******************************************************************
c
c ******************************************************************
c DIMENSIONAMIENTO Y DECLARACION DE VARIABLES
c
DIMENSION X(100),Y(100),R(4),A(4,6),K(300,300)
dimension DEF(4),P(4),DAB(6)
INTEGER Q,QQ,ZZ
REAL L,MA,MB,N,IZ,K
CHARACTER*20 INPUT,OUTPUT
c
c ******************************************************************
c IMPRESION EN PANTALLA
c
WRITE(*,*)'******************************************************'
WRITE(*,*)'* *'
WRITE(*,*)'* *'
WRITE(*,*)'* ANALISIS DE MARCOS PLANOS *'
WRITE(*,*)'* *'
WRITE(*,*)'* ( M A R 2 D c ) *'
WRITE(*,*)'* *'
WRITE(*,*)'* (POR EL MÉTODO DE LA MATRIZ DE CONTINUIDAD) *'
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., octubre de 1998 *'
WRITE(*,*)'* *'
WRITE(*,*)'* *'
WRITE(*,*)'******************************************************'
c
c ******************************************************************
c APERTURA DE ARCHIVOS
DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL
PARA SU USO DESDE LA INTERNET