From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1898/CH6/EX6.23/Ex6_23.sce | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100755 1898/CH6/EX6.23/Ex6_23.sce

(limited to '1898/CH6/EX6.23')

diff --git a/1898/CH6/EX6.23/Ex6_23.sce b/1898/CH6/EX6.23/Ex6_23.sce
new file mode 100755
index 000000000..0045d814c
--- /dev/null
+++ b/1898/CH6/EX6.23/Ex6_23.sce
@@ -0,0 +1,37 @@
+clear all; clc;
+
+disp("Scilab Code Ex 6.23 : ")
+
+//Given:
+M = 60; //kNm
+Est = 200; //GPa
+Econc = 25; //GPa
+d = 25;//mm
+r = d/2;
+w = 300;//mm
+ht =400; //mm
+
+//Section Properties:
+n = Est/Econc;
+Ast = 2*%pi*r^2;
+A = n*Ast;
+
+p = [1 52.37 -20949.33]
+h = roots(p)
+h = h(2);
+
+I = (1/12)*(w*h^3) +w*h*(h/2)^2 + A*(ht - h)^2;
+
+//Normal Stress:
+sigma_conc_max = (M*1000*h*1000)/(I);
+sigma_conc = (M*1000*(ht-h)*1000)/(I);
+sigma_st = n*sigma_conc;
+
+//Display:
+
+    
+ printf("\n\nThe normal stress in each steel reinforcing rod = %1.2f MPa',sigma_st);
+ printf("\nThe maximum normal stress in the concrete = %1.2f MPa',sigma_conc_max);
+ //------------------------------------------------------------------------END---------------------------------------------------------------------------------------
+
+
-- 
cgit