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

---
 1898/CH10/EX10.14/Ex10_14.sce | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100755 1898/CH10/EX10.14/Ex10_14.sce

(limited to '1898/CH10/EX10.14/Ex10_14.sce')

diff --git a/1898/CH10/EX10.14/Ex10_14.sce b/1898/CH10/EX10.14/Ex10_14.sce
new file mode 100755
index 000000000..37aabac96
--- /dev/null
+++ b/1898/CH10/EX10.14/Ex10_14.sce
@@ -0,0 +1,42 @@
+clear all; clc;
+
+disp("Scilab Code Ex 10.14 : ")
+
+//Given:
+r = 0.5; //cm
+sigma_yield = 360; //MPa
+T = 3.25; //kN/cm
+A= (%pi*r^2);
+P = 15; //kN
+J = (%pi/2)*(r^4);
+sigma_y_sqr = sigma_yield^2;
+
+//Calculations:
+sigma_x = -(P/A)*10;
+sigma_y = 0;
+tou_xy = (T*r*10)/J;
+
+k = (sigma_x + sigma_y)/2;
+R = sqrt(k^2 + (tou_xy^2));
+
+sigma1 = k+R;
+sigma2 = k-R;
+l = sigma1 - sigma2;
+
+//Maximum Shear Stress Theory:
+test1 = abs(l);
+
+if(test1 >= sigma_yield)
+    
+    printf("\n\nFailure occurs by Maximum Shear Stress Theory.');
+end
+
+
+//Maximum Distortion-Energy Theory:
+test2 = (sigma1^2 - (sigma1*sigma2) + sigma2^2);
+
+
+if(test2<sigma_y_sqr)
+ 
+    printf("\n\nFailure will not occur by Maximum Distortion-Energy Theory.');
+end
-- 
cgit