blob: 465ddf592aba1999c34878ede0d8bc12ef1d1c84 (
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
29
30
31
32
33
34
35
36
37
38
39
|
clc;
clear;
mprintf('MACHINE DESIGN \n Timothy H. Wentzell, P.E. \n EXAMPLE-14.2 Page No.310\n');
//Length of belt
C=19;
D1=4;
D2=6;
L1=2*C+1.57*(D1+D2)+(D2-D1)^2/(4*C);
//Assuming a 54-inch belt is available
L=54;
mprintf('\n Length of belt = %f in.',L);
//Centerline distance
B=4*L-6.28*(D2+D1);
C=(B+sqrt(B^2-32*(D2-D1)^2))/16;
mprintf('\n Centerline distance = %f in.',C);
//Ratio
Mw=D2/D1;
mprintf('\n Ratio = %f.',Mw);
//Surface speed
n=1800;
Vm=%pi*D1*n/12;
mprintf('\n Surface speed = %f ft/min.',Vm);
//Angle of contact
theta=180-2*(180/%pi)*asin((D2-D1)/(2*C));
mprintf('\n Angle of contact = %f deg.',theta);
|
