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.18/Ex7_18.sce | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 3864/CH7/EX7.18/Ex7_18.sce

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

diff --git a/3864/CH7/EX7.18/Ex7_18.sce b/3864/CH7/EX7.18/Ex7_18.sce
new file mode 100644
index 000000000..d2cefbbfc
--- /dev/null
+++ b/3864/CH7/EX7.18/Ex7_18.sce
@@ -0,0 +1,26 @@
+clear
+//
+//
+
+//Initilization of Variables
+
+d=100 //mm //Diameter of shaft
+M=3*10**6 //N-mm //B.M
+T=6*10**6 //N-mm //Twisting Moment
+mu=0.3
+
+//Calculations
+
+//Max principal Stress
+
+P1=16*(%pi*d**3)**-1*(M+(M**2+T**2)**0.5) //N/mm**2 
+P2=16*(%pi*d**3)**-1*(M-(M**2+T**2)**0.5) //N/mm**2 
+
+//Direct stress
+P=(P1)-mu*(P2) //N/mm**2 
+
+
+//Result
+printf("\n Principal stresses are: %0.2f  N/mm**2",P1)
+printf("\n                       : %0.2f  N/mm**2",P2)
+printf("\n Stress Producing the same strain is %0.2f  N/mm**2",P)
-- 
cgit