Programateca básica del diseñador estructural
Autor: Cano Gómez, Hernán Darío
Asesor: Amaris Peña, Oscar Ernesto (Thesis advisor)
Fecha: 1997
Programa: Bogotá - Medicina - Especialidad en Anestesiología y Reanimación
Facultad: Facultad de Medicina

Resumen: En los últimos años, con el desarrollo de las computadoras personales, han salido al mercado muchos programas de análisis y diseño estructural, que facilitan estas labores al ingeniero pero de igual modo, requieren muchos datos de entrada para un problema particular y entregan demasiada información innecesaria en muchos casos, lo que hace que se incrementen los errores en la entrada de datos y la interpretación de la salida.   Lo que se pretende con los programas aquí descritos, es llamar la atención de los diseñadores sobre los métodos elementales en el análisis de los dos tipos de estructuras mas simples que día a día diseña como son el teorema de los tres momentos, aplicable a vigas continuas, y el “ método de Kani” con desplazamientos aplicable a pórticos planos.   Es importante explicar que el modelo de pórticos planos sigue teniendo vigencia, a pesar de los programas para modelo tridimensional, porque no hay gran diferencia en los resultados, sobre todo si la estructura es geométricamente regular.   Se presentan también otros programas útiles para el diseño como el programa “CIMENTOS” en el cual permite diseñar zapatos aislados y ligadas.  Adicionalmente los programas para diseñar secciones a flexión, cortante directo y cortante por torsión y columnas con flexión blaxial.   Por ultimo se incluye el programa OPTIMA que no es para diseño, pero es útil a la hora de costear el proyecto, pues permite el calculo rápido de la cantidad de acero de refuerzo y tabula la forma de cortarlo para disminuir el despunte.

DO 3870 M=l OO,K,5
IF(N(IM).EQ.O) GOTO 3870
DO 3860 MZ=l00M,5
IF (N(IJv\Z/.EQ.O/ GO TO 3860
IF (J+K+M+Ml-600/3680.3860,3690
3680 L=l
LP=6CX)-J-K-M-M Z
GO T03730
3690 IF (J+K+M+Ml-900)3700.3860.371O
3700 L=2
LP=900-J-K-M-MZ
GOT03730
3710 IF (J+K+M+MZ-1200/3720.3860.3890
3720 L=3
LP=l 200-J-K-M-MZ
3730 IF (J.EQ.K.AND.J.EQM.AND.J.EQlV\l/GO TO 3740
If (J.EQ.K.AND.J.EQM) GO TO 3750
IF (J .EQ.K.AND.J.EQ.MZ) GO TO 3760
IF (J.EQM.AND.J.EQMZ) GO TO 3770
IF (K.EQMAND.K.EQlV\lj GO TO 3780
IF (J.EQ.K.ANDM.EQlV\l) GO TO 3782
IF (J.EQMAND.K.EQ.MZ) GO TO 3782
IF (J.EQ.MZAND.K.EQM/ GO TO 3784
IF (J.EQ.K) GO TO 3790
IF (J.EQM) GOT03800
IF (J.EQMZ) GO TO 3810
IF (K.EQM) GO TO 3820
IF (K.EQMZ) GO TO 3830
IF (M.EQMZ) GO TO 3840
NVL=MIN(N (I,Jj,N(I,K) /
NVL=MtN(N(IM),NVL)
NVL=MIN(N (IJv\Z),NVL)
GOT03850
3740 NVL=N(I,J)/4
GOT03850
3750 NVL=N(I,J)/3
NVL=MIN(N(I,MZ),NVL)
GO T03850
3760 NVL=N(I.J)/3
NVL=MIN(N (IM),NVL)
GOT03850
3770 NVL=N(I,J//3
NVL=MIN(N(I.K/.NVL)
GOT03850
3780 NVL=N(LK)13
NVL=M IN(N(I,J),NVL)
GO T0 3850
3782 NVL1 = N(t,J)/2
NVL2=N(I)v1.1)/2
NVl=MIN( NV L1 .NV12)
G OT0 3850
993784 NVLl =N(U)!2
NVL2=N(I,K)12
NVL=MIN(NVLl,NVL2)
G OT0 3850
3790 NVL=N(I.J)12
NVL=MIN(N(IM ),NVL)
NVL=MIN(N(IMl),NVL)
GOT03850
3800 NVL=N(I,J)12
NVL=M IN(N(I,K),NVL)
NVL=MIN(N(IMZ),NVL)
GOT0 3850
3810 NV L=N(I,J)!2
NVL= MIN( N (I, K), NVL)
NVL=MIN(N (IM),NV L)
GO T0 3850
3820 NVL=N(I,K)!2
NVL=MIN(N (I,J),NVL)
NVL=MIN(N(I,MI), NVL)
GOT03850
3830 NVL=N(I,K)!2
NVL=MIN(N(I,J),NVL)
NVL=MIN(N (IM),NVL)
GO TO 3850
3840 NVL=N(IM)12
NVL=MIN(N(I,J),NVL)
NVL=MIN(N (I,K),NVL)
3850 IF (NVL.EQ.O) GO TO 3860
KON(LL)=KON(I,LI+NVL
N(I,J) =N(I,J)-NVL
N(I,K) =N(I,K)-NVL
N( IM)=N (IM)-NVL
N( I, MI1= N (I,MII-NVL
NPU(I,LP)=NPU(I,LP)+NVL
VLl =(J+K+M+fV\Z+LP)/l00.
Vl2=J/100.
VL.3=K/100.
VL4=M/lOO.
V15=MZ/1 00.
VL6=lP/lOO.
WRITE (8,2100jl,NVL,VLl ,VL2,VL3,vL4,vL5,VL6
3860 C O NTINUE
3870 CONTINUE
3880 CONTINU E
3890 CONTINU E
C·
C" VA RlllAS CORTADAS EN TRES Y DESPUNTE
C­
OO 472 J=ll00, 100,-5
IF (N(I,J).EQ.O) GO TO 472
DO 471 K=J,l00.-5
100IF (N(I.K).EQ.O) GOT0471
00470 M=K, 100,-5
IF (N(I,M).EQ.O)GO TO 470
LU =J+ K+M
IF (LU.LT.600) GO TO 330
G OT0340
330 L=l . i.
LP=600-LU
GO T0380
340 IF (LU.LT.900) GO TO 350
GOT036O
350 L=2
LP=900-LU
GOT0 380
360 IF (LU.LT.l200) GOT0370
GOT0470
370 L=3
LP= l200-LU
380 NVL=MIN (N(I.J),N (I,K))
NVL=MIN (N(IM ),NVLj
IF (J-K)400.390AOO
390 NVL=N(i,J)/2
NVL=MIN(NVLN(IM))
GOT0440
400 IF (J-M)42O,.410,.42O
410 NVL=N(I,J)/2
NVL=MIN(NVLN(I.K))
GOT0460
420 IF(K-M}46OA30A6O
430 NVl=N(I,KJ12
NVL=MIN(NV LN(I.J))
GOT0460
440 IF (K-M)46OA50A60
450 NVL=N(I,J)13
460 IF (NVLEQ.O)GO TO 470
KON(I.L)=KON(I,L)+NVL
N(I,J)=N(J,J)-NVL
N(I,K)=N(I,K)-NVL
N(IMJ=N(IM)-NVL
N PU(I.LP)=NPU( I,LP) +NVL
VL 1= (J+K+M+LP)11 00.
VL2=J/100.
VL3=K/1OO.
VL4=M/1OO.
VL.5=lP1 100.
WRITE (8,2101) 1,NVL,VLl ,VL2,vL3,vL4,VL5
470 CONTINUE
47 1 CONTINU E
472 CONTINUE
C·
C· VARlllAS CORTADAS EN DOS Y DESPUNTE
101C"
DO 551 J=11 00,100,-5
IF(N(I,J).EQ.O) GO TO 551
DO 550 K=j ,100,-5
IF(N(I,K).EQ.O) GO TO S50
LU=J+K
IF (LU.LT .6(0) GO TO 480
G OT0490
480 L=1
LP=6(X}..W
GOT0530
490 IF (LU.LT.900) GOTO 50CJ
G O T0510
5CX) L=2
LP=900-LU
G O T0530
510 IF (LU.LT.l200) GO TO 520
GOTOSSO
520 L=3
LP=l200-LU
530 NVL=MIN (N(U),N(I,K))
IF (K.LT.J)GO TO 540
NVL=N(I,J)12
540 IF (NV L EQ.O)GO TO 550
KON(I,LI=KON(I, LI+NVL
N(I,J)== N(I,J)-NVL
N(I,K)=N(I,K)-NVL
N PU(I,LP)=N PU(I ,LP)+NVL
VLl =(J+ K+LP)/100.
VL2=J/l00.
VL3=K/l00.
VL4= LP1 100.
WRITE (8,2102)1,NVL VLl ,V L2,VL3,VL4
550 CONTINU E
551 CONTINUE
C·
C· VARIUAS CON UN CORTE Y DESPUNTE
C
00590 J==l00,l 200's
IF (N(I,J) .EQ.O)GO TO 590
IF (J.GT.6OO) G O TO 560
L=1
LP=600-J
G OT0580
560 IF (J .GT .900) GO TO 570
L=2
LP=900-J
GOT0580
570 L=3
LP=l200-J
580 NVL=N(U )
102KON(I,L)=KON (I. L)+NVL
N{I.j)=O
NPU(I,LP) =NPU(I,LP)+NVL
Vll =( J+LPl/l 00.
Vl2=J/100.
V1.3=LP/l OO.
WRITE(8,2103)I,NVLVLl ,Vl2,VL3
590 CONTINU E
WRITE (8,2500)
600 CONTINUE
WRITE (8,2225)
D0605 K=1,3
PSD( K)=P( K)
605 C ONTINU E
DO 660 K=4,1O
PSD( K)=O
DO 650 J=1,3
IF (J.EQ.11 GO TO 610
IF (J.EQ2) GO TO 620
IF (J.EQ.3) GO TO 630
610 ALONG=6.
G OT0640
620 ALONG=9.
GO T0640
630 ALONG=12.
640 IF (KON(K,J) .EQ.O) GO TO 650
Pl =W( KrALONG-KON( K. J)
WRIT E(8,2230)K.ALONG,KON(K,J).PL
PSO( K)=PSO( K)+PL
650 CONTINU E
W RITE (8,2500)
660 C ONTINUE
WRITE (8,2228)
PTR=O
00670 K=1,10
IF (PSD(K).EQ.O)GO TO 670
WRITE (8,2229)K,PSD(K)
PTR=PTR+PSD(K)
670 CONTINUE
DESP:::(PTR-PTj/PT 100.
WRITE (8,2300)PTR,DESP
C­
C· IMPRIMIR LAS BARRAS QUESOBRAN (PUNTAS)
C·
WRIT E (8,2043)
00950 1=4,1 0
DO 950 J=S.600.5
IF (NPU (I,Jj.EQ.O)GO TO 950
RlP=J/100.
WRITE (8.2044)1,RLP.NPU(U)
98.) CONTINUE
l03l COJ FORMAT (1 7A.4)
1010 FO RMAT (15,17 A4)
1020 FORMAT (110,110,110. 12A4)
1990 FORMAT (j/,20X;HERNAN DARia CANO WMEL//.)
2000 FORMAT (3X,'DESPIECE Ef-ECTUADO EN ',17A4,!)
2010 FORMAT (3X,'PARA LA OBRA ',17 A4./)
20 15 FORMAT (3X,'DESPI ECE YO PTIM IZACION D ',17A 4.//,
l' ELEMENTO CANT. Nro. Long. Cant. FIGURA
2',/,' ELEM. barra m. barra.'.!!)
2020 FO RMAT (1 7 A4,13,!)
2030 FO RMAT (29X,15,FlO.2,17,6X, 12A4)
2040 FORMAT (I/,3X,'ORDENAMIENTO POR NUMERO DE BARRA Y LONGITUD·.!/,
13X,'Barra Long. cant: .!,
23X,'Nro. m. barrCE',!)
2043 FORMAT (//,3X,'PUNTAS SOBRANTES POR NUMERO DE BARRA Y LONG rTUD',//,
13X;Sarra Long . Cant:,/,
23)(,'Nro. m. barrcs'./!)
2044 FORMAT (16,F9.2,18)
2045 FORMAT (/,3X,13)
2OSO FORMAT (11X.F6.2,18J
2060 FORMAT (//,3X,'LONGITUD Y PESO TOTAL SEGUN DIAMETRO'.//
13X,'NRO. LONG. PESO',/
23)(,VAR. tot. kgf.//J
2070 FORMAT (3X,13,Fll .2,Fll .0)
2080 FORMAT (I,' PESO TOTAL ',Fll .0)
2090 FORMAT (I/,3X.'CORTE DE VARILLAS'.//,
13X,VAR. CANT . LONG CORTE CORTE CORTE CORTE DE
2SPUNTE',f,
33X,'N RO. VAR. m. 1 2 3 4',/1)
2100 FORMAT (3X,14,17,6F9.2)
2101 FORMAT (3X,14,17AF9.2,9X,F9.2)
210 2 FORMAT (3X,14,17. 3F9 2,18X,F9.2)
2103 FORMAT (3X,14,17,2F92.2lX,F92)
2225 FORMAT (I//,3X,'VARIUAS DE CADA DIAMETRO Y LONGITUD COMERCIAL'.//,
13X,' BARRA LONG. CANT. PESO',f,
2' nro. m. kgf.'./!)
2228 FORMAT (3X.!/,'PESO TOTALSEGUN DIAMETRO',/ /,
14X,' BARRA PESO',!
2,' nro. kgf:,/}
2229 FORMAT (llX,13,F13.0)
2230 FORMAT (3X,15, F9 2,18, F9 .0)
2300 FORMAT (I,2X,'PESO TOTAL DE ACERO ',FlO.o,!,
12X,'EL DESPUNTE ES DE ',FS,l,' 'X,')
2500 FO RMA T(/}
3(XX) FORMAT (' ULTIMA UNEA LEiDA ';15,1)
END
104