From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3683/CH3/EX3.10/Ex3_10.sce | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 3683/CH3/EX3.10/Ex3_10.sce

(limited to '3683/CH3/EX3.10')

diff --git a/3683/CH3/EX3.10/Ex3_10.sce b/3683/CH3/EX3.10/Ex3_10.sce
new file mode 100644
index 000000000..52802c086
--- /dev/null
+++ b/3683/CH3/EX3.10/Ex3_10.sce
@@ -0,0 +1,22 @@
+Bf=1300//width of flange, in mm
+Df=100//thickness of flange, in mm
+d=500//effective depth, in mm
+sigma_cbc=5//in MPa
+sigma_st=275//in MPa
+m=18.66//modular ratio
+Ast=1570//in sq mm
+Asc=1256//in sq mm
+top_cover=30//in mm
+//to find critical depth of neutral axis
+Xc=d/(1+sigma_st/(m*sigma_cbc))//in mm
+//assume x>Df; equating moments of area on compression and tension sides about N.A.
+x=(m*Ast*d+Bf*Df^2/2+(1.5*m-1)*Asc*top_cover)/(m*Ast+Bf*Df+(1.5*m-1)*Asc)//in mm
+//as x<Xc, beam is under-reinforced
+sigma_cbc=sigma_st/m*x/(d-x)//in MPa
+sigma_cbc_dash=sigma_cbc*(x-top_cover)/x//stress in concrete at level of compression steel, in MPa
+sigma_cbc_double_dash=sigma_cbc*(x-Df)/x//stress in concrete at the underside of the slab, in MPa
+//to find lever arm
+z=round(d-(sigma_cbc+2*sigma_cbc_double_dash)/(sigma_cbc+sigma_cbc_double_dash)*Df/3)//in mm
+//taking moments about tensile steel
+Mr=Bf*Df*(sigma_cbc+sigma_cbc_double_dash)*z/2+(1.5*m-1)*Asc*sigma_cbc_dash*(d-top_cover)//in N-mm
+mprintf("Moment of resistance of the beam=%f kN-m", Mr/10^6)
-- 
cgit