# Example 14.1      
 n  =   1800.0 rpm 
 Fr   =   1.200 kN 
 Ft   =   1.500 kN 
 Fe_radial = Fr * (1 + 1.115 * (Ft / Fr - 0.35)) ; kN 
 Fe_angular = Fr * (1 + 0.870 * (Ft / Fr - 0.68)) ; kN 
 Ka   =   1.500  # Table 14.3
 T1  =   30000 hr # Table 14.4
 L1 = n * T1  ; rev 
 Kr   =   1.000  
 Lr   =   9.00E+07 rev
 Creq_radial = Fe_radial * Ka * (L1 / Kr / Lr)^0.3  ; kN 
 Creq_angular = Fe_angular * Ka * (L1 / Kr / Lr)^0.3  ; kN 

# Example 14.2     
 Fr   =   1.200 kN
 Ft   =   1.500 kN
 Fe = Fr * (1 + 1.115 * (Ft / Fr - 0.35)) ; kN 
 C1  =   12.0 kN
 T1  =   30000 hr
 Rel  =   0.9
 Ka   =   1.5 
 Kr   =   1.0 
 n  =   1800.0 rpm
 Lr   =   9.00E+07 rev
 L1 = Kr * Lr * (C1 / Fe / Ka)^3.33  ; rev 
 Tp = L1 / n ; hr
 Lp  =   3.24E+09 rev
 Kr = Lp / (Lr * (C1 / Fe / Ka)^3.33)   

# Example 14.3     
BEGIN     
 Fr   =   1.200 kN
 Ft   =   1.500 kN
 Fe = Fr * (1 + 1.115 * (Ft / Fr - 0.35)) ; kN 
 C1  =   8.5 kN
 Kr   =   1.0 
 Lr   =   9.00E+07 rev
 Ka   =   1.0 
 Fr1   =   3.000 kN
 L1 = Kr * Lr *  (C1 / Fr1 / Ka)^3.33  ; rev 
 Fr2   =   5.000 kN
 L2 = Kr * Lr * (C1 / Fr2 / Ka)^3.33  ; rev 
 Fr3   =   7.000 kN 
 L3 = Kr * Lr * (C1 / Fr3 / Ka)^3.33  ; rev 
 w1  =   1000.0 rpm 
 X  =   5.24E+05 hr ; hr
 n1 = 0.5 * w1 * X  ; rev 
 n2 = 0.3 * w1 * X  ; rev  
 n3 = 0.2 * w1 * X  ; rev 
 error = 1 - (n1 / L1 + n2 / L2 + n3 / L3)  
END      
solve(error, X)

# Homework Problems:

TBD