blob: bb98f952d088f5596300a1b2126a9befbe771843 (
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
|
//Chapter-4, Illustration 1, Page 133
//Title: Gears and Gear Drivers
//=============================================================================
clc
clear
//INPUT DATA
TA=48;//Wheel A teeth
TB=30;//Wheel B teeth
m=5;//Module pitch in mm
phi=20;//Pressure angle in degrees
add=m;//Addendum in mm
//CALCULATIONS
R=(m*TA)/2;//Pitch circle radius of wheel A in mm
RA=R+add;//Radius of addendum circle of wheel A in mm
r=(m*TB)/2;//Pitch circle radius of wheel B in mm
rA=r+add;//Radius of addendum circle of wheel B in mm
lp=(sqrt((RA^2)-((R^2)*(cosd(phi)^2))))+(sqrt((rA^2)-((r^2)*(cosd(phi)^2))))-((R+r)*sind(phi));//Length of path of contact in mm
la=lp/cosd(phi);//Length of arc of contact in mm
//OUTPUT
mprintf('Length of arc of contact is %3.1f mm',la)
//================================END OF PROGRAM=============================================
|
