# Example 1.1
MKS(N mm)
f1 = 1 N
s1 = 1.00 mm
W1 = f1 * s1
q1 = 0.10 rad
T1 = W1 / q1

# Example 1.2
w1 = 1000 rpm
q1 = 0.10 rad
t1 = q1 / w1 	
W1 =0.001 N m
P1 = W1 / t1; hp

# Example 1.3
wd = 1200 rpm
wp = 60 rpm
R = wp / wd 
T1 = 10	kN m
Tm = T1 * R
Wm = 2 * pi() * Tm; J
Pm = Tm * wd; kW

# Example 1.4     
 wd  =   1200 rpm
 wp  =   60 rpm
 R = wp / wd   
 T1  =   1 kN m
 Tm = T1 * R ; N m 
 Wm = 2 * pi() * Tm  ; J 
 Pm = Tm * wd  ; kW 

# Example 1.5     
BEGIN     
 qw =  1 rad
 Th =  1 kN m
 Ep = qw * Th  ; J 
 Eall   =   6283 J
 Ef = Eall - Ep  ; J 
 wmin  =   300 rpm
 wmax  =   400 rpm
 I = Ef / (0.5 * (wmax^2 - wmin^2))  ; kg m^2 
 d  =   1.0 m
 di = 0.8 * d ; m 
 L1 = 0.2 * d ; m 
 r  =   7700 kg / m^3  
 Icalc = pi() * (d^4 - di^4) * L1 * r / 32 ; kg m^2 
 e = I - Icalc  
END       
solve(e, d)

# Example 1.6       
 r  =   13 in  
 V1  =   117 mph  
 ww = V1 / r  ; rpm 
 we   =   4000 rpm  
 Ra = we / ww   
 V55   =   55 mph  
 we55 = we * (55/117) ; rpm 
 P55   =   23 hp  
 F1  =   0.630 lbm / hp hr  
 f = P55 * F1 ; lbm/ hr 
 c  =   5.800 lbm/gal  
 m1 = V55 * c / f ; mi / gal 
 wslow   =   1000.000 rpm
 F1000   =   0.480 lbm / hp hr
 m1000 = m1 * F1 / F1000  ; mi / gal

# Homework Problems:

TBD