DESARROLLO DE HERRAMIENTAS - FI-UAEMex

c
C
N=NUU
DO 146 Z=1,N
DO 144 I=1,N
DO 150 J=N+1,Z,-1
IF (I.EQ.Z) GOTO 144
IF (K(Z,Z).EQ.0) THEN
DO 132 Q=Z+1,N
IF (K(Q,Z).NE.0) THEN
DO 134 QQ=1,N+1
W=K(Q,QQ)
K(Q,QQ)=K(Z,QQ)
K(Z,QQ)=W
134 CONTINUE
GOTO 142
ENDIF
132 CONTINUE
C
WRITE(*,*)'EL SISTEMA ES INDETERMINADO'
STOP
ENDIF
C
142 K(I,J)=K(I,J)+K(Z,J)*(-K(I,Z))/K(Z,Z)
C
150 CONTINUE
144 CONTINUE
146 CONTINUE
C
DO 128 I=1,N
K(I,N+1)=K(I,N+1)/K(I,I)
128 CONTINUE
C
C IMPRIME LOS DESPLAZAMIENTOS DE LOS NUDOS
C
write(2,47)
47 format(//'Desplazamientos de los nudos :'//)
DO 600 I=1,NU
WRITE(2,*)I,'DX',K(2*I-1,N+1)
WRITE(2,*)I,'DY',K(2*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.2 PROGRAMA ARMA3D
HERRAMIENTAS DE CÓMPUTO 137
C
c ******************************************************************
C * *
c * PROGRAMA DE COMPUTADORA PARA EL ANALISIS DE ARMADURAS *
C * TRIDIMENSIONALES *
c * BASADO EN EL METODO DE LA MATRIZ DE CONTINUIDAD. *
DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL
PARA SU USO DESDE LA INTERNET