1 files changed, 25 insertions, 0 deletions
diff --git a/2921/CH15/EX15.2/Ex15_2.sce b/2921/CH15/EX15.2/Ex15_2.sce
new file mode 100755
index 000000000..bf2070c96
--- /dev/null
+++ b/2921/CH15/EX15.2/Ex15_2.sce
@@ -0,0 +1,25 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-15.2 Page No.335\n');
+
+//Torque capacity
+Ss=30500;
+D=1;
+L=2;
+T1=Ss*%pi*D^2*L/16;
+
+SF=2;
+
+T=T1/SF;
+
+mprintf('\n Torque capacity 1 = %f in-lb.',T);
+n=6;
+d=0.81;
+A=(D-d)*L*n/2;
+
+S=1000;
+rm=(1+0.810)/4;
+
+T2=S*A*rm;
+
+mprintf('\n Torque capacity 2 = %f in-lb.',T2);