From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 3289/CH8/EX8.3/Ex8_3.sce | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 3289/CH8/EX8.3/Ex8_3.sce

(limited to '3289/CH8/EX8.3')

diff --git a/3289/CH8/EX8.3/Ex8_3.sce b/3289/CH8/EX8.3/Ex8_3.sce
new file mode 100755
index 000000000..cc50373ac
--- /dev/null
+++ b/3289/CH8/EX8.3/Ex8_3.sce
@@ -0,0 +1,23 @@
+clc
+
+a=0.15 //m
+b=0.2 //m
+c=0.25 //m
+E=200*10^9 //Pa
+delta=0.0001 //m
+140 //MPa
+
+p=((E*delta)/8)*(((b^2-a^2)*(c^2-b^2))/(2*(b^2)*(c^2-a^2)))
+disp(p,"the contact pressure in Pa is= ") // textbook ans is wrong
+
+p=12.3*10^6
+sigmatheta=p*((b^2+c^2)/(c^2-b^2)) // where r=0.2
+disp(sigmatheta,"tangential stresses in the outer cylinder in Pa is= ")
+sigmatheta1=(2*p*b^2)/(c^2-b^2) // where r=0.25
+disp(sigmatheta1,"tangential stresses in the outer cylinder in Pa is= ")
+sigmatheta3=-(2*p*b^2)/(b^2-a^2) // where r=0.15
+disp(sigmatheta3,"tangential stresses in the inner cylinder in Pa is= ")
+sigmatheta4=-p*((b^2+a^2)/(b^2-a^2)) // where r=0.2
+disp(sigmatheta4,"tangential stresses in the inner cylinder in Pa is= ")
+
+
-- 
cgit