1 files changed, 23 insertions, 0 deletions
diff --git a/1898/CH5/EX5.18/Ex5_18.sce b/1898/CH5/EX5.18/Ex5_18.sce
new file mode 100755
index 000000000..b765bf374
--- /dev/null
+++ b/1898/CH5/EX5.18/Ex5_18.sce
@@ -0,0 +1,23 @@
+clear all; clc;
+
+disp("Scilab Code Ex 5.18 : ")
+
+//Given:
+fillet_r = 6; //mm
+D = 40/1000; //m
+d = 20/1000; //m
+T = 30; //Nm
+D_d = D/d; 
+r_d = fillet_r/d; 
+k = 1.3;
+
+//Maximum Shear Stress:
+c = D/2;
+J = (%pi/2)*(c^4)
+max_shear = (k*T*c)/(J*10^6); // tou = K(Tc/J)
+
+//Display:
+
+printf('\n\nThe maximum shear stress in the shaft due to the applied torques    = %1.2f MPa',max_shear);
+
+//----------------------------------------------------------------END------------------------------------------------------------------------