DESARROLLO DE HERRAMIENTAS - FI-UAEMex
DESARROLLO DE HERRAMIENTAS - FI-UAEMex DESARROLLO DE HERRAMIENTAS - FI-UAEMex
158 HERRAMIENTAS DE CÓMPUTO 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 DO 1652 I=7,12 DAB(I)=K(6*IFI-12+I,OP+1) 1652 CONTINUE ENDIF WRITE(2,*) C C CALCULO DE DEFORMACIONES(DF) C DO 1000 I=1,8 DO 950 J=1,12 DF(I)=DF(I)+A(I,J)*DAB(J) 950 CONTINUE 1000 CONTINUE C C CALCULO DE FUERZAS INTERNAS(P) C DO 1050 I=1,8 P(I)=R(I)*DF(I) 1050 CONTINUE WRITE(2,*)'DEFORMACIONES {e} Y FUERZAS INTERNAS {P}' WRITE(2,*) WRITE(2,*)DF(1),P(1) WRITE(2,*)DF(2),P(2) WRITE(2,*)DF(3),P(3) WRITE(2,*)DF(4),P(4) WRITE(2,*)DF(5),P(5) WRITE(2,*)DF(6),P(6) WRITE(2,*)DF(7),P(7) WRITE(2,*)DF(8),P(8) C Mi(1)=P(1)+P(2) Mi(2)=P(2)+P(3) Mi(3)=(p(1)+2*P(2)+p(3))/L Mi(4)=P(4)+P(5) Mi(5)=P(5)+P(6) Mi(6)=(P(4)+2*P(5)+P(6))/L Mi(7)=P(7) Mi(8)=P(8) C VECTOR FINAL DE FUERZAS INTERNAS WRITE(2,1180) 1180 FORMAT(/'ELEMENTOS MECANICOS MyA,MyB,Vy,MzA,MzB,Vz,N,MT') WRITE(2,*) WRITE(2,*)'MyA',Mi(1) WRITE(2,*)'MyB',Mi(2) WRITE(2,*)'Vy ',Mi(3) WRITE(2,*)'MzA',Mi(4) WRITE(2,*)'MzB',Mi(5) WRITE(2,*)'Vz ',Mi(6) WRITE(2,*)'N ',Mi(7) WRITE(2,*)'MT ',Mi(8) C LIMPIEZA DE DEFORMACIONES Y DESPLAZAMIENTOS DO 2345 J=1,8 DF(J)=0.0 2345 CONTINUE DO 1345 J=1,12 DAB(J)=0.0 1345 CONTINUE DO 2346 J=1,8 P(J)=0.0 2346 CONTINUE 503 continue END DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL PARA SU USO DESDE LA INTERNET
III.6 PROGRAMA RET2D HERRAMIENTAS DE CÓMPUTO 159 c ****************************************************************** C * * c * PROGRAMA DE COMPUTADORA PARA EL ANALISIS DE RETICULAS PLANAS * 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,JJ,K,E,IY,G,MA,MB,MT CHARACTER*20 INPUT,OUTPUT c c ****************************************************************** c IMPRESION EN PANTALLA c WRITE(*,*)'******************************************************' WRITE(*,*)'* *' WRITE(*,*)'* *' WRITE(*,*)'* ANALISIS DE RETICULAS PLANAS *' WRITE(*,*)'* *' WRITE(*,*)'* ( R E T 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., octubre de 1998 *' WRITE(*,*)'* *' WRITE(*,*)'* *' WRITE(*,*)'******************************************************' c c ****************************************************************** c APERTURA DE ARCHIVOS c WRITE(*,10) 10 FORMAT(/,1X,'ARCHIVO DE DATOS: ') READ(*,42)INPUT 42 FORMAT(A20) WRITE(*,11) 11 FORMAT(/,1X,'ARCHIVO DE SALIDA: ') READ(*,42)OUTPUT WRITE(*,*) OPEN(1,FILE=INPUT,STATUS='OLD') OPEN(2,FILE=OUTPUT,STATUS='unknown') c c ****************************************************************** c IMPRESION DE ENCABEZADO EN EL ARCHIVO DE SALIDA. c WRITE(2,*)'******************************************************' WRITE(2,*)'* *' WRITE(2,*)'* *' WRITE(2,*)'* ANALISIS DE RETICULAS PLANAS *' WRITE(2,*)'* *' WRITE(2,*)'* ( R E T 2 D ) *' WRITE(2,*)'* *' WRITE(2,*)'* *' WRITE(2,*)'******************************************************' c c ****************************************************************** c LECTURA DE DATOS GENERALES DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL PARA SU USO DESDE LA INTERNET
- Page 120 and 121: 108 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 122 and 123: 110 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 124 and 125: 112 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 126 and 127: 114 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 128 and 129: 116 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 130 and 131: 118 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 132 and 133: 120 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 134 and 135: 122 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 136 and 137: 124 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 138 and 139: 126 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 140 and 141: 128 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 142 and 143: ANÁLISIS MATRICIAL DE ESTRUCTURAS
- Page 144 and 145: ANÁLISIS MATRICIAL DE ESTRUCTURAS
- Page 146 and 147: 134 ANÁLISIS MATRICIAL DE ESTRUCTU
- Page 148 and 149: 136 HERRAMIENTAS DE CÓMPUTO c 10 F
- Page 150 and 151: 138 HERRAMIENTAS DE CÓMPUTO c * *
- Page 152 and 153: 140 HERRAMIENTAS DE CÓMPUTO WRITE(
- Page 154 and 155: 142 HERRAMIENTAS DE CÓMPUTO R(1)=2
- Page 156 and 157: 144 HERRAMIENTAS DE CÓMPUTO WRITE(
- Page 158 and 159: 146 HERRAMIENTAS DE CÓMPUTO WRITE(
- Page 160 and 161: 148 HERRAMIENTAS DE CÓMPUTO 132 CO
- Page 162 and 163: 150 HERRAMIENTAS DE CÓMPUTO 54 FOR
- Page 164 and 165: 152 HERRAMIENTAS DE CÓMPUTO C LECT
- Page 166 and 167: 154 HERRAMIENTAS DE CÓMPUTO A(3,10
- Page 168 and 169: 156 HERRAMIENTAS DE CÓMPUTO do 334
- Page 172 and 173: 160 HERRAMIENTAS DE CÓMPUTO c c Va
- Page 174 and 175: 162 HERRAMIENTAS DE CÓMPUTO c c Im
- Page 176 and 177: 164 HERRAMIENTAS DE CÓMPUTO DEF(I)
- Page 178 and 179: 166 HERRAMIENTAS DE CÓMPUTO LINE I
- Page 180 and 181: 168 HERRAMIENTAS DE CÓMPUTO NEXT j
- Page 182 and 183: 170 HERRAMIENTAS DE CÓMPUTO REM Le
- Page 184 and 185: 172 HERRAMIENTAS DE CÓMPUTO DESARR
- Page 186 and 187: 174 PROGRAMACIÓN CON JAVA SCRIPT I
- Page 188 and 189: 176 PROGRAMACIÓN CON JAVA SCRIPT D
- Page 190 and 191: 178 INTERFASE EN LA INTERNET PARA L
- Page 192 and 193: 180 INTERFASE EN LA INTERNET PARA L
- Page 194 and 195: 182 INTERFASE EN LA INTERNET PARA L
- Page 196 and 197: 184 INTERFASE EN LA INTERNET PARA L
- Page 198 and 199: 186 INTERFASE EN LA INTERNET PARA L
- Page 200 and 201: 188 INTERFASE EN LA INTERNET PARA L
- Page 202 and 203: 190 INTERFASE EN LA INTERNET PARA L
- Page 204 and 205: 192 INTERFASE EN LA INTERNET PARA L
- Page 206 and 207: 194 INTERFASE EN LA INTERNET PARA L
- Page 208 and 209: 196 APLICACIONES Y MANUALES DE USUA
- Page 210 and 211: 198 APLICACIONES Y MANUALES DE USUA
- Page 212 and 213: 200 APLICACIONES Y MANUALES DE USUA
- Page 214: 202 APLICACIONES Y MANUALES DE USUA
- Page 217 and 218: 203 APLICACIONES Y MANUALES DE USUA
- Page 219 and 220: Desplazamientos de los nudos: RESUL
III.6 PROGRAMA RET2D<br />
<strong>HERRAMIENTAS</strong> <strong>DE</strong> CÓMPUTO 159<br />
c ******************************************************************<br />
C * *<br />
c * PROGRAMA <strong>DE</strong> COMPUTADORA PARA EL ANALISIS <strong>DE</strong> RETICULAS PLANAS *<br />
c * BASADO EN EL METODO <strong>DE</strong> LA MATRIZ <strong>DE</strong> CONTINUIDAD. *<br />
c * *<br />
c ******************************************************************<br />
c<br />
c ******************************************************************<br />
c DIMENSIONAMIENTO Y <strong>DE</strong>CLARACION <strong>DE</strong> VARIABLES<br />
c<br />
DIMENSION X(100),Y(100),R(4),A(4,6),K(300,300)<br />
dimension <strong>DE</strong>F(4),P(4),DAB(6)<br />
INTEGER Q,QQ,ZZ<br />
REAL L,JJ,K,E,IY,G,MA,MB,MT<br />
CHARACTER*20 INPUT,OUTPUT<br />
c<br />
c ******************************************************************<br />
c IMPRESION EN PANTALLA<br />
c<br />
WRITE(*,*)'******************************************************'<br />
WRITE(*,*)'* *'<br />
WRITE(*,*)'* *'<br />
WRITE(*,*)'* ANALISIS <strong>DE</strong> RETICULAS PLANAS *'<br />
WRITE(*,*)'* *'<br />
WRITE(*,*)'* ( R E T 2 D ) *'<br />
WRITE(*,*)'* *'<br />
WRITE(*,*)'* Elaborado por: *'<br />
WRITE(*,*)'* *'<br />
WRITE(*,*)'* Octavio García Domínguez *'<br />
WRITE(*,*)'* David Delgado Hernández *'<br />
WRITE(*,*)'* Alfonso Islas Hernández *'<br />
WRITE(*,*)'* Gonzalo Paz Mendoza *'<br />
WRITE(*,*)'* *'<br />
WRITE(*,*)'* *'<br />
WRITE(*,*)'* Estructuras, <strong>DE</strong>P<strong>FI</strong>, UNAM *'<br />
WRITE(*,*)'* *'<br />
WRITE(*,*)'* México D.F., octubre de 1998 *'<br />
WRITE(*,*)'* *'<br />
WRITE(*,*)'* *'<br />
WRITE(*,*)'******************************************************'<br />
c<br />
c ******************************************************************<br />
c APERTURA <strong>DE</strong> ARCHIVOS<br />
c<br />
WRITE(*,10)<br />
10 FORMAT(/,1X,'ARCHIVO <strong>DE</strong> DATOS: ')<br />
READ(*,42)INPUT<br />
42 FORMAT(A20)<br />
WRITE(*,11)<br />
11 FORMAT(/,1X,'ARCHIVO <strong>DE</strong> SALIDA: ')<br />
READ(*,42)OUTPUT<br />
WRITE(*,*)<br />
OPEN(1,<strong>FI</strong>LE=INPUT,STATUS='OLD')<br />
OPEN(2,<strong>FI</strong>LE=OUTPUT,STATUS='unknown')<br />
c<br />
c ******************************************************************<br />
c IMPRESION <strong>DE</strong> ENCABEZADO EN EL ARCHIVO <strong>DE</strong> SALIDA.<br />
c<br />
WRITE(2,*)'******************************************************'<br />
WRITE(2,*)'* *'<br />
WRITE(2,*)'* *'<br />
WRITE(2,*)'* ANALISIS <strong>DE</strong> RETICULAS PLANAS *'<br />
WRITE(2,*)'* *'<br />
WRITE(2,*)'* ( R E T 2 D ) *'<br />
WRITE(2,*)'* *'<br />
WRITE(2,*)'* *'<br />
WRITE(2,*)'******************************************************'<br />
c<br />
c ******************************************************************<br />
c LECTURA <strong>DE</strong> DATOS GENERALES<br />
<strong><strong>DE</strong>SARROLLO</strong> <strong>DE</strong> <strong>HERRAMIENTAS</strong> <strong>DE</strong> ANÁLISIS ESTRUCTURAL<br />
PARA SU USO <strong>DE</strong>S<strong>DE</strong> LA INTERNET