1 files changed, 18 insertions, 0 deletions
diff --git a/3863/CH4/EX4.9/Ex4_9.sce b/3863/CH4/EX4.9/Ex4_9.sce
new file mode 100644
index 000000000..0e07d3505
--- /dev/null
+++ b/3863/CH4/EX4.9/Ex4_9.sce
@@ -0,0 +1,18 @@
+clear
+//
+
+//Given
+//Variable declaration
+P=10*10**3             //Falling weight in N
+h=30                   //Falling height in mm
+L=4*10**3              //Length of bar in mm
+A=1000                 //Area of bar in sq.m
+E=2.1e5                //Youngs modulus in N/sq.mm
+
+//Calculation
+sigma=((P/A)*(1+(sqrt(1+((2*E*A*h)/(P*L))))))
+delL=(sigma*L/E)
+
+
+//Result
+printf("\n Instantaneous elongation due to falling weight = %0.3f  mm",delL)