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

---
 1793/CH9/EX9.1/9q1.sce | 24 ++++++++++++++++++++++++
 1793/CH9/EX9.2/9q2.sce | 10 ++++++++++
 1793/CH9/EX9.3/9q3.sce | 26 ++++++++++++++++++++++++++
 1793/CH9/EX9.4/9q4.sce | 13 +++++++++++++
 4 files changed, 73 insertions(+)
 create mode 100755 1793/CH9/EX9.1/9q1.sce
 create mode 100755 1793/CH9/EX9.2/9q2.sce
 create mode 100755 1793/CH9/EX9.3/9q3.sce
 create mode 100755 1793/CH9/EX9.4/9q4.sce

(limited to '1793/CH9')

diff --git a/1793/CH9/EX9.1/9q1.sce b/1793/CH9/EX9.1/9q1.sce
new file mode 100755
index 000000000..5778eada2
--- /dev/null
+++ b/1793/CH9/EX9.1/9q1.sce
@@ -0,0 +1,24 @@
+clc
+//initialisation of variables
+Ds= 16.5 //kN/m^3
+S= 19.25 //kN/m^3
+g= 9.8 //kN/m^3
+h1= 6 //m
+h2= 13 //m
+//at point A
+Sa= 0
+Ua= 0
+Sa1= 0
+//at point B
+Sb= h1*Ds
+Ub= 0 
+Sb1= Sb-Ub
+//at point C
+Sc= h1*Ds+h2*S
+Uc= h2*g
+Sc1= Sc-Uc
+//results
+printf ('total pressure at C= % 2f kN/m^3 ',Sc)
+printf ('pore water pressure at C = % 2f kN/m^3 ',Uc)
+printf ('effective stress at point C= % 2f kN/m^3 ',Sc1)
+
diff --git a/1793/CH9/EX9.2/9q2.sce b/1793/CH9/EX9.2/9q2.sce
new file mode 100755
index 000000000..e602f34d1
--- /dev/null
+++ b/1793/CH9/EX9.2/9q2.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+h= 20 //ft
+g= 120 //kg/ft^3
+h1= 12 //ft
+w= 62.4 //kg/ft^3
+//calculations
+H= h-(h1*w/g)
+//results
+printf ('maximu depth that can be made in clay = % 2f ft ',H)
diff --git a/1793/CH9/EX9.3/9q3.sce b/1793/CH9/EX9.3/9q3.sce
new file mode 100755
index 000000000..71679a426
--- /dev/null
+++ b/1793/CH9/EX9.3/9q3.sce
@@ -0,0 +1,26 @@
+clc
+//initialisation of variables
+G= 2.68
+e= 0.52
+g= 9.81 //kN/m^3
+h1= 0.7 //m
+h2= 1 //m
+h3= 1.5 //m
+h4= 2 //m
+//calculations
+//for soil A
+sa= (G+e)*g/(1+e)
+//point a
+Sa= h1*g+h2*sa
+u= (h2+h1+h3/2)*g
+Es= Sa-u
+//point b
+sb= h1*g+h4*sa
+ub= (h4+h1+h3)*g
+Eb= sb-ub
+i= h3/2
+s= i*g
+//results
+printf ('effective stress at point a= % 2f kN/m^2 ',Es)
+printf ('effective stress at point b= % 2f kN/m^2 ',Eb)
+printf ('seepage force per unit voume = % 2f kN/m^3 ',s)
diff --git a/1793/CH9/EX9.4/9q4.sce b/1793/CH9/EX9.4/9q4.sce
new file mode 100755
index 000000000..dce662989
--- /dev/null
+++ b/1793/CH9/EX9.4/9q4.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+C0= 0.357
+H1= 30.5 //ft
+H2= 5 //ft
+w= 62.4 // lb/ft^3
+D= 20
+g= 112 // lb/ft^3
+//calculations
+G= g-w
+FS= D*G/(C0*w*(H1-H2))
+//results
+printf ('safety factor = % 2f ',FS)
-- 
cgit