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

---
 3864/CH7/EX7.12/Ex7_12.sce | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 3864/CH7/EX7.12/Ex7_12.sce

(limited to '3864/CH7/EX7.12')

diff --git a/3864/CH7/EX7.12/Ex7_12.sce b/3864/CH7/EX7.12/Ex7_12.sce
new file mode 100644
index 000000000..40bfce331
--- /dev/null
+++ b/3864/CH7/EX7.12/Ex7_12.sce
@@ -0,0 +1,30 @@
+clear
+//
+//
+
+//Initilization of Variables
+
+//Direct stresses
+p_x=120 //N/mm**2 //Tensile stress
+p_y=-100 //N/mm**2 //Compressive stress
+p1=160 //N/mm**2 //Major principal stress
+
+//Calculations
+
+//Let q be the shearing stress
+
+//p1=(p_x+p_y)*2**-1+((((p_x+p_y)*2**-1)**2)+q**2)**0.5
+//After further simplifying we get
+q=(p1-((p_x+p_y)*2**-1))**2-((p_x-p_y)*2**-1)**2 //N/mm**2
+q2=(q)**0.5 //N/mm**2
+
+//Minimum Principal stress
+p2=(p_x+p_y)*2**-1-(((p_x-p_y)*2**-1)**2+q2**2)**0.5 //N/mm**2
+
+//Max shearing stress
+q_max=(((p_x-p_y)*2**-1)**2+q2**2)**0.5 //N/mm**2
+
+//Result
+printf("\n Shearing stress of material %0.2f  N/mm**2",q)
+printf("\n Min Principal stress %0.2f  N/mm**2",p2)
+printf("\n Max shearing stress %0.2f  N/mm**2",q_max)
-- 
cgit