blob: 52ce63d4dfa4364c846dcd34b68f1a1b73f4a232 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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
|
