DESARROLLO DE HERRAMIENTAS - FI-UAEMex

154 HERRAMIENTAS DE CÓMPUTO
A(3,10)=UYX
A(3,11)=UYY
A(3,12)=UYZ
A(4,7)=-UYX/L
A(4,8)=-UYY/L
A(4,9)=-UYZ/L
A(4,10)=0
A(4,11)=0
A(4,12)=0
A(5,7)=-2*UYX/L
A(5,8)=-2*UYY/L
A(5,9)=-2*UYZ/L
A(5,10)=UZX
A(5,11)=UZY
A(5,12)=UZZ
A(6,7)=-UYX/L
A(6,8)=-UYY/L
A(6,9)=-UYZ/L
A(6,10)=UZX
A(6,11)=UZY A(6,12)=UZZ
A(7,7)=UXX
A(7,8)=UXY
A(7,9)=UXZ
A(7,10)=0
A(7,11)=0
A(7,12)=0
A(8,7)=0
A(8,8)=0
A(8,9)=0
A(8,10)=UXX
A(8,11)=UXY
A(8,12)=UXZ
C
C producto [AT] [K] [A]
c
DO 555 I=7,12
DO 655 J=7,12
DO 755 M=1,8
K(6*IFI-12+i,6*IFI-12+j)=K(6*IFI-12+i,6*IFI-12+j)
* +a(M,i)*a(M,j)*R(m)
755 CONTINUE
655 CONTINUE
555 CONTINUE
ENDIF
C
C A Y B son nudos
C producto [AT] [K] [A]
c
IF((INI.LE.N).and.(IFI.LE.N))THEN
DO 515 I=1,6
DO 615 J=7,12
DO 715 M=1,8
K(6*INI-6+i,6*IFI-12+j)=K(6*INI-6+i,6*IFI-12+j)
* +a(M,i)*a(M,j)*R(m)
715 CONTINUE
615 CONTINUE
515 CONTINUE
c
DO 2515 I=1,6
DO 2615 J=7,12
DO 2715 M=1,8
K(6*IFI-12+j,6*INI-6+i)=K(6*IFI-12+j,6*INI-6+i)
* +a(M,i)*a(M,j)*R(m)
2715 CONTINUE
2615 CONTINUE
2515 CONTINUE
c
ENDIF
C IMPRIME [A]
C
WRITE(2,22)
22 FORMAT(/'MATRIZ DE CONTINUIDAD [A]'/)
WRITE(2,26)((A(I,J),J=1,12),I=1,8)
26 FORMAT(12F6.3)
C
DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL
PARA SU USO DESDE LA INTERNET