1 files changed, 17 insertions, 0 deletions
diff --git a/1793/CH15/EX15.4/15Q4.sce b/1793/CH15/EX15.4/15Q4.sce
new file mode 100755
index 000000000..98b8f00a1
--- /dev/null
+++ b/1793/CH15/EX15.4/15Q4.sce
@@ -0,0 +1,17 @@
+clc
+Gs=17.29
+d=9.15
+d1=6.1
+D=d/d1
+a=40
+m=0.175
+b=40
+H=6.1
+Cu=H*Gs*m
+printf('a)The undrained cohesion of the clay Cu = %f kN/m^2\n',Cu)
+printf(' b)The nature of the critical circle is midpointcircle\n')
+d=1.5
+b=40
+n=0.9
+D1=n*H
+printf(' c)Distance = %f m',D1)