# Example 8.1
Nr1 = 54
Ns1 = 24
n1 = Nr1 / Ns1
Nr2 = 69
Ns2 = 45
n2 = Nr2 / Ns2
oms1 = 0 rpm

BEGIN
omengine = 1 rpm; rpm # arbitrary
omr1 = omengine
oms2 = 1 rpm; rpm # initial guess
omc1 = oms2
omr2 = 0 rpm
omdriveshaft = 1 rpm; rpm # initial guess
omc2 = omdriveshaft
eq1 = oms1 + n1 * omr1 - (1 + n1) * omc1
eq2 = oms2 + n2 * omr2 - (1 + n2) * omc2
VR = omdriveshaft / omengine
END
solve(eq1, eq2, omengine, omdriveshaft)


# Homework Problems:

TBD