2 files changed, 56 insertions, 0 deletions
diff --git a/2921/CH15/EX15.1/Ex15_1.sce b/2921/CH15/EX15.1/Ex15_1.sce
new file mode 100755
index 000000000..13a06ceb0
--- /dev/null
+++ b/2921/CH15/EX15.1/Ex15_1.sce
@@ -0,0 +1,31 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-15.1 Page No.332\n');
+
+//Torque
+P=5;
+n=1750;
+T=63000*P/n;
+
+mprintf('\n Torque = %f in-lb.',T);
+
+//Length of key for shear
+Su=61000;
+Ss=0.5*Su;
+b=0.125;
+D=0.5;
+Ls1=2*T/(Ss*b*D);
+SF=2.5;
+
+Ls=SF*Ls1;
+
+mprintf('\n Length of key for shear = %f in.',Ls);
+
+//Length of key for compression
+Sc=51000;
+t=0.125;
+Lc1=4*T/(Sc*t*D);
+
+Lc=SF*Lc1;
+
+mprintf('\n Length of key for compression = %f in.',Lc);
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);