1 files changed, 28 insertions, 0 deletions
diff --git a/2921/CH18/EX18.2/Ex18_2.sce b/2921/CH18/EX18.2/Ex18_2.sce
new file mode 100755
index 000000000..52ce63d4d
--- /dev/null
+++ b/2921/CH18/EX18.2/Ex18_2.sce
@@ -0,0 +1,28 @@
+clc;
+clear;
+mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-18.2 Page No.400\n');
+
+//Lead angle
+L=1/3;
+Dp=1.354;
+LA=atan(L/(%pi*Dp));
+
+mprintf('\n Lead angle = %f deg.',LA*180/%pi);
+
+//Efficiency
+f=0.15;
+e=tan(LA)*(1-f*tan(LA))/(tan(LA)+f);
+
+mprintf('\n Efficiency = %f',e*100);
+
+//Power
+n=175;
+T=454;
+P=T*n/63000;
+Pt=P*2;
+
+mprintf('\n Power = %f hp per lead screw.',P);
+
+if f>tan(LA) then
+    mprintf('\n It is self-locking');
+end