From 7bc77cb1ed33745c720952c92b3b2747c5cbf2df Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Sat, 3 Feb 2018 11:01:52 +0530
Subject: Added new code

---
 3863/CH4/EX4.13/Ex4_13.sce | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 3863/CH4/EX4.13/Ex4_13.sce

(limited to '3863/CH4/EX4.13/Ex4_13.sce')

diff --git a/3863/CH4/EX4.13/Ex4_13.sce b/3863/CH4/EX4.13/Ex4_13.sce
new file mode 100644
index 000000000..c4540ae77
--- /dev/null
+++ b/3863/CH4/EX4.13/Ex4_13.sce
@@ -0,0 +1,22 @@
+clear
+//
+//Given
+//Variable declaration
+d=12        //Diameter of bar in mm
+delL=3      //Increase in length in mm
+W=8000      //Steady load in N
+P=800       //Falling weight in N
+h=8*10      //Vertical distance in mm
+E=2e5       //Youngs modulus in N/sq.mm
+
+//Calculation
+A=((%pi/4)*d**2)           //Area of bar in sq.mm
+
+L=(E*A*delL/W)                 //Length of the bar in mm
+
+sigma=((P/A)*(1+(sqrt(1+((2*E*A*h)/(P*L))))))
+
+sigma=(sigma)           //Stress produced by the falling weight in N/sq.mm
+
+//Result
+printf("\n Stress produced by the falling weight = %0.3f  N/mm^2",sigma)
-- 
cgit