1 files changed, 31 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);