summaryrefslogtreecommitdiff
path: root/3772/CH14/EX14.10/Ex14_10.sce
diff options
context:
space:
mode:
Diffstat (limited to '3772/CH14/EX14.10/Ex14_10.sce')
-rw-r--r--3772/CH14/EX14.10/Ex14_10.sce48
1 files changed, 48 insertions, 0 deletions
diff --git a/3772/CH14/EX14.10/Ex14_10.sce b/3772/CH14/EX14.10/Ex14_10.sce
new file mode 100644
index 000000000..4bdf26731
--- /dev/null
+++ b/3772/CH14/EX14.10/Ex14_10.sce
@@ -0,0 +1,48 @@
+// Problem no 14.10,Page No.337
+
+clc;clear;
+close;
+H=6 //m //height of dam
+a=1 //m //top width
+b=3 //m //Bottom width
+rho_mason=22 //KN/m**3 //weight of mason
+rho_earth=16 //KN/m**3 //density of water
+phi=30 //Degree //angle of repose
+mu=0.5 //Coeffecient of friction
+
+//Calculations
+
+//Let Length of dam ,L=1 m
+L=1 //m
+
+//weight of dam
+W=(a+b)*2**-1*L*H*rho_mason
+
+//Lateral thrust
+P=rho_earth*H**2*L*2**-1*((1-sin(30*%pi*180**-1))*(1+sin(phi*%pi*180**-1))**-1)
+
+//Distance of Line of action from vertical base
+x_bar=(b**2+b*a+a**2)*(3*(b+a))**-1
+
+//distance of pt where resultant cuts the base
+x=P*W**-1*H*3**-1
+
+//Eccentricity
+e=x_bar+x-b*2**-1
+e_max=b*6**-1
+
+//stress at toe
+sigma2=W*10**3*b**-1*(1+6*e*b**-1)*10**-3
+
+//Safe agaainst bearing
+
+//Frictional Resistance
+F=mu*W
+
+if F>P then
+ //it is safe against sliding
+
+//Result
+printf("Safe against bearing as well as sliding")
+
+end