1 files changed, 22 insertions, 0 deletions
diff --git a/1898/CH10/EX10.13/Ex10_13.sce b/1898/CH10/EX10.13/Ex10_13.sce
new file mode 100755
index 000000000..2d4119a06
--- /dev/null
+++ b/1898/CH10/EX10.13/Ex10_13.sce
@@ -0,0 +1,22 @@
+clear all; clc;
+
+disp("Scilab Code Ex 10.13 : ")
+
+//Given:
+T = 400; //Nm
+sigma_ult = 150*10^6; //N/m^2
+
+//Calculations:
+
+x = T/(%pi/2);
+r_3 = [x/sigma_ult];
+r = nthroot(r_3, 3);
+r= r*1000; //in mm
+
+//Display:
+
+printf('\n\nThe smallest radius of the solid cast iron shaft     = %1.2fmm ',r);
+
+//--------------------------------------------------------------------------END--------------------------------------------------------------------------------------
+
+