summaryrefslogtreecommitdiff
path: root/1898/CH6/EX6.23
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1898/CH6/EX6.23
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1898/CH6/EX6.23')
-rwxr-xr-x1898/CH6/EX6.23/Ex6_23.sce37
1 files changed, 37 insertions, 0 deletions
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---------------------------------------------------------------------------------------
+
+