From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2921/CH18/EX18.2/Ex18_2.sce | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 2921/CH18/EX18.2/Ex18_2.sce

(limited to '2921/CH18/EX18.2')

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
-- 
cgit