# Example 7.1
1 rpm; rad/s


# Example 7.2
om = 1800 rpm; deg/s; rad/s
r = 4cm
v = om * r

# Example 7.3
tor = 149 ft lbf
om = 3600 rpm
p = tor * om; hp

# Example 7.4
MKS(N, N m, rpm, kW)
p = 1 kW
om1 = 250 rpm
n1 = 80
n2 = 30
n3 = 50
om3 = om1 * n1 / n3; rpm; rad/s
tor = p / om3

# Example 7.5
n1 = 10
n2 = 23
n3 = 16 # worm gear
om2_over_om1 = n1 / n2
om3_over_om2 = 1 / n3
VR = om3_over_om2 * om2_over_om1

# Example 7.6
IPS(rpm)
om1 = 180 rpm
n1 = 20
n2 = 80
n3 = 30
n4 = 20 / in
om2 = om1 * n1 / n2
x = n3 / n4 / (2 * pi())
v = x * om2; in/ min; in / s


# Example 7.7
IPS(rpm)
d1 = 1 in
d2 = 2.9 in
d3 = 1.75 in
v1 = (1/7) mile/min; in/s
om1 = v1 / (d3/2); rpm
om2 = om1 * (d2 / d1); rpm


# Example 7.8
MKS(rpm)
nr = 100
ns = 20
oms = -2400 rpm
n = nr / ns

# CLOCKWISE CARRIER
BEGIN
  omc = 3600 rpm
  omr = 1 rpm
  eq = oms + n * omr - (1 + n) * omc
END
solve(eq, omr)

# COUNTER-cLOCKWISE CARRIER
BEGIN
  omc = -3600 rpm
  omr = -10 rpm; rpm
  eq = oms + n * omr - (1 + n) * omc
END
solve(eq, omr)


# STATIONARY RING
BEGIN
  omc = -3600 rpm; rpm
  omr = 0 rpm; rpm
  eq = oms + n * omr - (1 + n) * omc
END
solve(eq, omc)


# Example 7.9
FPS(rpm)
omr = 4800 rpm; rad/s
pr = 7 hp
tor = pr / omr


# Homework Problems:

TBD