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.15/Ex4_15.sce | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 3863/CH4/EX4.15/Ex4_15.sce

(limited to '3863/CH4/EX4.15/Ex4_15.sce')

diff --git a/3863/CH4/EX4.15/Ex4_15.sce b/3863/CH4/EX4.15/Ex4_15.sce
new file mode 100644
index 000000000..28208b0b9
--- /dev/null
+++ b/3863/CH4/EX4.15/Ex4_15.sce
@@ -0,0 +1,30 @@
+clear
+//
+
+//Given
+//Variable declaration
+L=1.82*1000      //Length of rod in mm
+h1=30            //Height through which load falls in mm
+h2=47.5          //Fallen height in mm
+sigma=157        //Maximum stress induced in N/sq.mm
+E=2.1e5          //Youngs modulus in N/sq.mm
+
+//Calculation
+U=sigma**2/(2*E)      //Strain energy stored in the rod in N-m
+delL=sigma*L/E        //Extension of the rod in mm
+Tot_dist=h1+delL      //Total distance in mm
+
+//case(i):Stress induced in the rod if the load is applied gradually
+sigma1=((U/Tot_dist)*L)
+
+
+//case(ii):Maximum stress if the load had fallen from a height of 47.5 mm
+sigma2=((sigma1)*(1+(sqrt(1+((2*E*h2)/(sigma1*L))))))
+
+
+//Result
+printf("\n Stress induced in the rod = %.1f N/mm^2",sigma1)
+
+printf("\n NOTE:The given answer for stress(2nd case) in the book is wrong.The correct answer is,")
+printf("\n Maximum stress if the load has fallen = %.2f N/mm^2",sigma2)
+
-- 
cgit