1 files changed, 12 insertions, 0 deletions
diff --git a/3204/CH18/EX18.11/Ex18_11.sce b/3204/CH18/EX18.11/Ex18_11.sce
new file mode 100644
index 000000000..b67388180
--- /dev/null
+++ b/3204/CH18/EX18.11/Ex18_11.sce
@@ -0,0 +1,12 @@
+// Initilization of variables
+M=750 // kg // mass of hammer
+m=200 // kg // mass of the pile
+h=1.2 // m // height of fall of the hammer
+delta=0.1 // m // distance upto which the pile is driven into the ground
+g=9.81 // m/s^2 // acc due to gravity
+// Caculations
+// The resistance to penetration to the pile is given by eq'n,
+R=(((M+m)*g)+((M^2*g*h)/((M+m)*delta)))*(10^-3) // kN 
+// Results
+clc
+printf('The resistance to penetration to the pile is %f kN \n',R)