Datos

Ps ≔ 3878000 = 3878000 N αs ≔ Columnas en esquina

Pu ≔ Ps ⋅ 1.3 = 5041400 N f'c ≔ 21 Mpa

Ms ≔ 188000000 = 188000000 N ⋅ mm fy ≔ 500 Mpa

Mu ≔ 1.3 ⋅ Ms = 244400000 N ⋅ mm ϕv ≔ 0.75

N
qadm ≔ 0.25 ――
mm 2

N
f'c ≔ 21 ―― bc ≔ 600 mm
mm 2

N
fy ≔ 500 ―― lc ≔ 600 mm
mm 2
3878 kN = 3878000 N

“Paso 1 calculo de exentricidad” 188 kN ⋅ m = 188000000 N ⋅ mm

Ms
e ≔ ―― = 48.479 mm
Ps

“Paso 2 calculo de B y L”

‾‾‾‾‾‾‾‾
Ps
Bmin ≔ ||e|| + ―― + e 2 = 3987.305 mm
qadm
B ≔ 4000 mm

L ＝ “se usa de 1.5-2 veces B”

L ≔ 1.5 ⋅ B = 6000 mm

L ≔ 6000 mm

“Paso 3 comprobamos la excentricidad”

“comprobacion de la excentrididad”
⎛ L ⎞
if ⎜e ≤ ―, “Caso 1” , “no cumple”⎟ = “Caso 1”
⎝ 6 ⎠

⎛ L ⎞
if ⎜e > ―, “Caso 2” , “no cumple”⎟ = “no cumple”
⎝ 6 ⎠
 ⎛ L ⎞
if ⎜e > ―, “Caso 2” , “no cumple”⎟ = “no cumple”
⎝ 6 ⎠

“Paso 4 calculo qumax y qumin”

Pu ⎛ 6 e⎞
qumax ≔ ――⋅ ⎜1 + ―― ⎟ = 0.22 Mpa
B⋅L ⎝ L ⎠

Pu ⎛ 6 e⎞
qumin ≔ ――⋅ ⎜1 - ―― ⎟ = 0.2 Mpa
B⋅L ⎝ L ⎠

“PASO 5 ADOPTAMOS VALORES DE h Y d”

h ＝ ((0.15 - 0.13)) L

rv ≔ 40 mm ϕb ≔ 20 mm h ≔ 890 mm
ϕb
d' ≔ rv + ―= 50 mm
2
ϕb
d ≔ h - rv - ―= 840 mm
2

“Paso 6 comprobacion el cortante bidireccional o punzonamiento”

“paso a”

qumax + qumin
Vubd ≔ Pu - ――――― ⋅ ⎛⎝⎛⎝lc + d⎞⎠ ⋅ ⎛⎝bc + d⎞⎠⎞⎠ = 4605823.04 N
2

“paso b”

αs ≔ Columnas interiores αs = 40

λ ≔ Hormigon: Peso normal

lc
αs = 40 λ=1 β ≔ ―= 1
bc

λ ⋅ ‾‾
f'c
Vc1 ≔ ――― = 1.528 Mpa
3

⎛ λ ⋅ ‾‾
f'c ⎞ ⎛ 2⎞
Vc2 ≔ ⎜――― ⎟⋅ 1+―
⎜ ⎟ = 2.291 Mpa
⎜⎝ 6 ⎟⎠ ⎝ β⎠

bo ≔ 2 ⋅ ⎛⎝lc + bc + 2 ⋅ d⎞⎠ = 5760 mm

 ⎛ λ ⋅ ‾‾
f'c ⎞ ⎛ αs ⋅ d ⎞ explicit , ALL ‾‾
⎜ ⎟ ⋅ ⎜2 + ―― 21 ⎛ 40 ⋅ 840 ⎞
Vc3 ≔ ――― ⎟ ――――→ ――⋅ ⎜2 + ――― ⎟ = 2.991 Mpa
⎜⎝ 12 ⎟⎠ ⎝ bo ⎠ 12 ⎝ 5760 ⎠

if ⎛⎝Vubd ≤ ϕv ⋅ Vc1 ⋅ bo ⋅ d , “cumple” , “no comple”⎞⎠ = “cumple”

if ⎛⎝Vubd ≤ ϕv ⋅ Vc2 ⋅ bo ⋅ d , “cumple” , “no comple”⎞⎠ = “cumple”

if ⎛⎝Vubd ≤ ϕv ⋅ Vc3 ⋅ bo ⋅ d , “cumple” , “no comple”⎞⎠ = “cumple”

Vubd = 4605823.04 N

ϕv ⋅ Vc1 ⋅ bo ⋅ d = 5543083.561 N

ϕv ⋅ Vc2 ⋅ bo ⋅ d = 8314625.341 N

ϕv ⋅ Vc3 ⋅ bo ⋅ d = 10855205.306 N

“PASO 7 COMPROVACION DEL CORTANTE UNIDIRECCIONAL SENTIDO LONGITUDINA

“calculo de cortante unidireccional”

qumax + qumin ⎛ B - bc ⎞
Vuud ≔ ――――― ⋅ ⎜―― - d⎟ ⋅ L = 1083901 N
2 ⎝ 2 ⎠
“calculo de la tension nominal a cortante en 2 direcciones”

bw ≔ B = 4000

λ ⋅ ‾‾
f'c
Vc ≔ ――― ⋅ bw ⋅ d = 2566242.389 N
6
ϕv ⋅ Vc = 1924681.792 N

if ⎛⎝Vuud ≤ ϕv ⋅ Vc , “cumple” , “no comple”⎞⎠ = “cumple”

“PASO 8 COMPROBAR EL CORTANTE UNIDIRECCIONAL EN EL SENTIDO TRANSVER

qumax - qumin ⎛ L - lc ⎞ explicit , ALL 0.2202416666666

qud ≔ qumax - ――――― ⋅ ⎜――- d⎟ ――――→ 0.22024166666666667 - ――――――
L ⎝ 2 ⎠

qumax + qud ⎛ L - lc ⎞
Vuud ≔ ―――― ⋅ ⎜――- d⎟ ⋅ B = 1615111.16 N
2 ⎝ 2 ⎠
 qumax + qud ⎛ L - lc ⎞
Vuud ≔ ―――― ⋅ ⎜――- d⎟ ⋅ B = 1615111.16 N
2 ⎝ 2 ⎠

λ ⋅ ‾‾
f'c
Vc ≔ ――― ⋅ bw ⋅ d = 2566242.389 N
6
ϕv ⋅ Vc = 1924681.792 N

if ⎛⎝Vuud ≤ ϕv ⋅ Vc , “cumple” , “no comple”⎞⎠ = “cumple”

“PASO 9 REVISION AL APLASTAMIENTO”

A1 ≔ bc ⋅ lc = 360000 mm 2

A2 ≔ ⎛⎝bc + 4 h⎞⎠ ⋅ ⎛⎝lc + 4 ⋅ h⎞⎠ = 17305600 mm 2

Pu = 5041400 N
‾‾‾
A2
Bn1 ≔ 0.85 ⋅ f'c ⋅ A1 ⋅ ― = 44553600 N
A1
Bn2 ≔ 2 ⋅ 0.85 ⋅ f'c ⋅ A1 = 12852000 N

if ⎛⎝Pu ≤ ϕv ⋅ Bn1 , “cumple” , “no comple”⎞⎠ = “cumple”

if ⎛⎝Pu ≤ ϕv ⋅ Bn2 , “cumple” , “no comple”⎞⎠ = “cumple”

“PASO 10 CONSLUCION DE LAS VERIFICACIONES REALIZADAS”

a) cortante bidireccional o Punzonamiento (carga última) (cumple)

b) cortante unidireccional (carga última) en el sentido Longitudinal (cumple)
c) cortante unidireccional (carga última) en el sentido Transversal (cumple)
d) aplastamiento (carga última) (cumple)
Dado que cumple las 3 condiciones decimos que el valor adoptado de "h" es correcto

“PASO 11 DISEÑO ACERO DE REFUERZO”

“ (a) calculo del momento ultimo en el sentido longitudinal”

“CALCULO DE LA CARGA MAYORADA”

⎛ qumax - qumin ⎞ ⎛ L - lc ⎞
quf ≔ qumax - ⎜――――― ⎟ ⋅ ⎜――⎟ = 0.211 Mpa
⎝ L ⎠ ⎝ 2 ⎠
“CALCULO DE LA TENCION V”
L - lc
V ≔ ――= 2700 mm
2
 L - lc
V ≔ ――= 2700 mm
2

“CALCULO DEL MOMENTO ULTIMO”

⎛⎛ q ⎞ ⎛ 2 ⋅ V 2 ⎞ ⎛ quf ⋅ V 2 ⎞⎞
umax - quf
⎜
Mu ≔ ⎜―――― ⎟ ⋅ ⎜――⎟ + ⎜――― ⎟⎟ ⋅ B = 3166581600 N ⋅ mm
⎝⎝ 2 ⎠ ⎝ 3 ⎠ ⎝ 2 ⎠⎠
“(b) calculo de Rn” ϕ ≔ 0.9
Mu
Rn ≔ ――― = 1.247 Mpa
ϕ ⋅ B ⋅ d2
“(c) calculo de cuantia”
0.85 ⋅ f'c ⎛ 2 ⋅ Rn ⎞
‾‾‾‾‾‾‾‾‾‾
ρ ≔ ―――⋅ ⎜1 - 1 - ――― ⎟ = 0.0026
fy ⎜⎝ 0.85 ⋅ f'c ⎟⎠

0.85 ⋅ f'c ⎛ 2 ⋅ Rn ⎞
‾‾‾‾‾‾‾‾‾‾
⎜
ρestimada ＝ ―――⋅ 1 - 1 - ――― ⎟
fy ⎜⎝ 0.85 ⋅ f'c ⎟⎠
⎛ ‾‾‾‾‾‾‾‾‾‾‾‾
Mu ⎞
⎜ 2 ⋅ ――― ⎟ ρestimada ≔ 0.0026
0.85 ⋅ f'c ⎜ ϕ ⋅ B ⋅ d2 ⎟
ρestimada ＝ ―――⋅ ⎜1 - 1 - ――――⎟
fy ⎝ 0.85 ⋅ f'c ⎠
⎛ ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
Mu ⎞
⎜ 2 ⋅ ――――――― ⎟
⎜ ⎛ ϕb ⎞2 ⎟
ϕ ⋅ B ⋅ ⎜h1 - ―- rv⎟ ⎟ solve , h
0.85 ⋅ f'c ⎜ ⎝ 2 ⎠ ⎟ 1 ⎡ -787.96774511938412454
ρestimada ＝ ―――⋅ ⎜1 - 1 - ―――――――― ――― →⎢
fy ⎜⎝ 0.85 ⋅ f'c ⎟⎠ ⎣ 887.96774511938412454

1.3038404810405297429 ⋅ ⎛⎝-1.0 ⋅ Mu ⋅ f'c ⋅ fy ⋅ ρestimada ⋅ ϕ ⋅ B ⋅ ⎛⎝fy ⋅ ρestimada - 1.7 ⋅ f'c⎞⎠⎞⎠

0.5
h1 ≔ ――――――――――――――――――――――――――+ rv +
fy ⋅ ρestimada ⋅ ϕ ⋅ B ⋅ ⎛⎝fy ⋅ ρestimada - 1.7 ⋅ f'c⎞⎠

1.3038404810405297429 ⋅ ⎛⎝-1.0 ⋅ Mu ⋅ f'c ⋅ fy ⋅ ρestimada ⋅ ϕ ⋅ B ⋅ ⎛⎝fy ⋅ ρestimada - 1.7 ⋅ f'c⎞⎠⎞⎠ 0.5

-1.0 ⋅ ――――――――――――――――――――――――――+ rv +
fy ⋅ ρestimada ⋅ ϕ ⋅ B ⋅ ⎛⎝fy ⋅ ρestimada - 1.7 ⋅ f'c⎞⎠

“(d) calculo del As”

Ag ≔ B ⋅ h = 3560000 mm 2 de las dos opciones se escoge la mayor

As ≔ ρ ⋅ B ⋅ d = 8692.131 mm 2
⎛ 420 ⎞
Asmin ≔ ⎜0.0018 ⋅ ―― ⋅ Ag⎟ = 5382.72 mm 2
⎝ fy ⎠
Asmin ≔ ⎛⎝0.0014 ⋅ Ag⎞⎠ = 4984 mm 2

“Paso 12 verificacion de la armadura”

 ⎛ 420 ⎞ |
Asmin ≔ if ⎜0.0018 ⋅ ―― ⋅ Ag⎟ > ⎛⎝0.0014 ⋅ Ag⎞⎠| = 5382.72 mm 2
⎝ fy ⎠ |
‖⎛ 420 ⎞ |
‖ ⎜0.0018 ⋅ ―― ⋅ Ag⎟ |
‖‖ ⎝ fy ⎠ |
else |
‖ ⎛0.0014 ⋅ A ⎞ |
‖ ⎝ g⎠ ||

As ≔ if ⎛⎝Asmin⎞⎠ > ((As))| = 8692.131 mm 2

‖ ⎛As ⎞ |
‖ ⎝ min⎠ |
else |
‖ As |
‖ ||

if ⎛⎝As ≥ Asmin , “cumple” , “no cumple”!⎞⎠ = “cumple”

“Paso 13 calculo de la cantidad de barras”

“numero de barras”

Asϕb ≔ fi de: 16 = 201 mm 2

“redondear al mayor”
As
Nϕ16 ≔ ――= 43.244 mm 2 44 barras
Asϕb
Nϕ16 ≔ 44

Asϕb ≔ fi de: 20 = 314 mm 2 “redondear al mayor”

As
Nϕ20 ≔ ――= 27.682 mm 2 “28 barras”
Asϕb
Nbarras ≔ 28

“separacion de barras”
B - 2 rv
S ≔ ―――― = 145.185 mm
Nbarras - 1 “buscar el mas menor”
 B - 2 rv
S ≔ ―――― = 145.185 mm
Nbarras - 1 “buscar el mas menor”
“calculo de la separacion minima entre barras”

Smax ≔ 2 ⋅ h = 1780 mm

Smax ≔ 300 mm

B = 4000

excel ≔B excel ≔ rv excel ≔d

“Hoja1!B1” “Hoja1!B2” “Hoja1!B3”

excel ≔ As excel ≔ lc excel ≔ bc

“Hoja1!D1” “Hoja1!D2” “Hoja1!D3”
Entradas

excel ≔L excel ≔h excel ≔ fy

“Hoja1!F1” “Hoja1!F2” “Hoja1!H3”

excel ≔ f'c excel ≔ Pu

“Hoja1!J2” “Hoja1!J3”
Salidas

“PASO 14 VERIFICACION SI MI ARMADURA NECESITA GANCHO”

L - lc
Lv ≔ ――- rv = 2660 mm
2

ψe ≔ sin recubrimiento ψs ≔ barras mayor a fi de 20mm

ψe = 1 ψs = 1
 ψe ≔ sin recubrimiento ψs ≔ barras mayor a fi de 20mm

ψe = 1 ψs = 1

ψt ≔ otra
db ≔ 20 mm
ψt = 1
⎛ 12 ⋅ fy ⋅ ψt ⋅ ψe ⎞
Ld ≔ ⎜――――― ⋅ db⎟ = 1047.446 mm
⎜⎝ 25 ⋅ λ ⋅ ‾‾ f'c ⎟⎠

if ⎛⎝Ld ≤ Lv , “No se necesita gancho” , “Se necesita gancho”⎞⎠ = “No se necesita gancho”

“PASO 15 DISEÑO DE ACERO DE REFUERZO EN EL SENTIDO TRANSVERSAL”

B - bc
V ≔ ――
2
“(a) momento de acero de refuerzo ultimo lado transversal”
⎛⎛ qumax + qumin ⎞ V 2 ⎞
Mu ≔ ⎜⎜――――― ⎟ ⋅ ――⎟ ⋅ L = 1821205750
⎝⎝ 2 ⎠ 2 ⎠
“(b) calculo de Rn”
Mu
Rn ≔ ――― = 0.478 Mpa
ϕ ⋅ L ⋅ d2
“(c) calculo de cuantia”
0.85 ⋅ f'c ⎛ 2 ⋅ Rn ⎞
‾‾‾‾‾‾‾‾‾‾ clear ⎛⎝ρestimada , h1⎞⎠
ρ ≔ ―――⋅ ⎜1 - 1 - ――― ⎟ = 0.00097
fy ⎜⎝ 0.85 ⋅ f'c ⎟⎠
“(d) calculo del As”
0.85 ⋅ f'c ⎛ 2 ⋅ Rn ⎞
‾‾‾‾‾‾‾‾‾‾
ρestimada ＝ ―――⋅ ⎜1 - 1 - ――― ⎟
fy ⎜⎝ 0.85 ⋅ f'c ⎟⎠
⎛ ‾‾‾‾‾‾‾‾‾‾‾‾
Mu ⎞
⎜ 2 ⋅ ――― ⎟
0.85 ⋅ f'c ⎜ ϕ ⋅ L ⋅ d2 ⎟ 420
ρestimada ＝ ―――⋅ ⎜1 - 1 - ――――⎟ ρestimada ≔ 0.0018 ⋅ ―― = 0.0015
fy ⎝ 0.85 ⋅ f'c ⎠ fy
⎛ ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾
Mu ⎞ ρestimada ≔ 0.0014 = 0.0014
⎜ 2 ⋅ ――――――― ⎟
⎜ ⎛ ϕb ⎞ ⎟
2

⎜ ϕ ⋅ L ⋅ ⎜h1 - ―- rv⎟ ⎟ solve , h

0.85 ⋅ f'c ⎝ 2 ⎠ ⎟ 1 ⎡ -651.02530070049698758 ⎤ ⎡ -6
ρestimada ＝ ―――⋅ ⎜1 - 1 - ―――――――― ――― →⎢ =
fy ⎜⎝ 0.85 ⋅ f'c ⎟⎠ ⎣ 751.02530070049698758 ⎥⎦ ⎢⎣ 7

As ≔ ρ ⋅ L ⋅ d = 4884.299 mm 2

“PASO 16 VERIFICAMOS LA ARMADURA”

As ≔ ρ ⋅ L ⋅ d = 4884.299 mm 2
As ≔ ρ ⋅ L ⋅ d = 4884.299 mm 2

Ag ≔ L ⋅ h = 5340000 mm 2

420
Asmin ≔ 0.0018 ⋅ ―― ⋅ Ag = 8074.08 mm 2
fy

Asmin ≔ 0.0014 ⋅ Ag = 7476 mm 2

⎛ 420 ⎞ |
Asmin ≔ if ⎜0.0018 ⋅ ―― ⋅ Ag⎟ > ⎛⎝0.0014 ⋅ Ag⎞⎠| = 8074.08 mm 2
⎝ fy ⎠ |
‖⎛ 420 ⎞ |
‖ ⎜0.0018 ⋅ ―― ⋅ Ag⎟ |
‖‖ ⎝ fy ⎠ |
else |
‖ ⎛0.0014 ⋅ A ⎞ |
‖⎝ g⎠ ||

As ≔ if ⎛⎝Asmin⎞⎠ > ((As))| = 8074.08 mm 2

‖ ⎛As ⎞ |
‖ ⎝ min⎠ |
else |
‖ As |
‖ ||

“PASO 17 CALCULO DE LA CANTIDAD DE BARRAS ”

“(a) numero de barras”

Asϕb ≔ fi de: 16 = 201 mm 2

“redondear al mayor”
As 2
Nϕ16 ≔ ――= 40.17 mm 25 barras
Asϕb
Nbarras ≔ 41

Asϕb ≔ fi de: 20 = 314 mm 2 “redondear al mayor”

As
Nϕ20 ≔ ――= 25.714 mm 2 “16 barras”
Asϕb
Nbarras ≔ 26

“(b) separacion de barras”

L
β ≔ ―= 1.5
B
 L
β ≔ ―= 1.5
B

2
γ ≔ ――= 0.8
β+1

“banda central” As ⋅ γ = 6459.264

[Link] ≔ Ceil ⎛⎝Nbarras ⋅ γ , 1⎞⎠ = 21

B - 2 rv
S ≔ ―――――― = 196 mm
[Link] - 1

excel ≔B excel ≔ rv excel ≔d

“Hoja1!B1” “Hoja1!B2” “Hoja1!B3”

excel ≔ As ⋅ γ excel ≔ lc excel ≔ bc

“Hoja1!D1” “Hoja1!D2” “Hoja1!D3”
Entradas

excel ≔L excel ≔h excel ≔ fy

“Hoja1!F1” “Hoja1!F2” “Hoja1!H3”

excel ≔ f'c excel ≔ Pu

“Hoja1!J2” “Hoja1!J3”
Salidas

⎛1-γ⎞
[Link] ≔ As ⋅ ⎜―― ⎟ = 807.408 mm 2
⎝ 2 ⎠
Asϕb ≔ fi de: 12 = 113 mm 2
 ⎛1-γ⎞
[Link] ≔ As ⋅ ⎜―― ⎟ = 807.408
⎝ 2 ⎠
Asϕb ≔ fi de: 12 = 113 mm 2
[Link] “redondear al mayor”
2
Nϕ12 ≔ ―――― = 7.145 mm 7 barras
Asϕb
[Link] ≔ 8
⎛L-B⎞
⎜――⎟ - 2 rv
⎝ 2 ⎠
S ≔ ―――――― = 131.429 mm
[Link] - 1

Smax ≔ 2 ⋅ h = 1780 mm

Smax ≔ 300 mm

L-B
excel ≔ ―― excel ≔ rv excel ≔d
“Hoja1!B1” 2 “Hoja1!B2” “Hoja1!B3”
((1 - γ))
excel ≔ As ⋅ ――― excel ≔ lc excel ≔ bc
“Hoja1!D1” 2 “Hoja1!D2” “Hoja1!D3”
Entradas

excel ≔L excel ≔h excel ≔ fy

“Hoja1!F1” “Hoja1!F2” “Hoja1!H3”

excel ≔ f'c excel ≔ Pu

“Hoja1!J2” “Hoja1!J3”
Salidas

“PASO 18 VERIFICAMOS SI MI ARMADURA NECESITA GANCHO BANDA CENTRAL ”

 “PASO 18 VERIFICAMOS SI MI ARMADURA NECESITA GANCHO BANDA CENTRAL ”

B - bc
Lv ≔ ―― - rv = 1660 mm
2

ψe ≔ sin recubrimiento ψs ≔ barras mayor a fi de 20mm

ψe = 1 ψs = 1

ψt ≔ otra
db ≔ 20 mm
ψt = 1
⎛ 12 ⋅ fy ⋅ ψt ⋅ ψe ⎞
Ld ≔ ⎜――――― ⋅ db⎟ = 1047.446 mm
⎜⎝ 25 ⋅ λ ⋅ ‾‾ f'c ⎟⎠

if ⎛⎝Ld ≤ Lv , “No se necesita gancho” , “Se necesita gancho”⎞⎠ = “No se necesita gancho”

“PASO 18 VERIFICAMOS SI MI ARMADURA NECESITA GANCHO BANDA LATERAL ”

L-B
――- bc
2
Lv ≔ ―――― - rv = 160 mm
2

ψe ≔ sin recubrimiento ψs ≔ barras mayor a fi de 20mm

ψe = 1 ψs = 1

ψt ≔ otra
db ≔ 12 mm
ψt = 1
⎛ 12 ⋅ fy ⋅ ψt ⋅ ψe ⎞
Ld ≔ ⎜――――― ⋅ db⎟ = 628.468 mm
⎜⎝ 25 ⋅ λ ⋅ ‾‾ f'c ⎟⎠

if ⎛⎝Ld ≤ Lv , “No se necesita gancho” , “Se necesita gancho”⎞⎠ = “Se necesita gancho”

5 ϕ16mm@23cm 21 ϕ20mm@19cm 5 ϕ16mm@23cm

 28 ϕ20mm@14cm

bc = 600 mm

28 ϕ20mm@14cm

d = 840 mm
h = 890 mm
cota ≔ 1500 mm

[Link] ≔ 50 mm
B = 4000 mmm

lc = 600 mm

5 ϕ16mm@23cm 5 ϕ16mm@23cm

d = 840 mm
h = 890 mm 21 ϕ20mm@19cm
cota ≔ 1500 mm

[Link] ≔ 50 mm

L = 6000 mmm
L = 6000 mmm