# Example 17.1      
BEGIN    
 MKS(mm, Mpa)  
 P_engine   =   20.0 kW 
 v  =   20.0 m/s 
 FT = P_engine / v ; kN 
 Rs   =   50.0 mm 
 RC   =   125.0 mm 
 FC = FT * RC / Rs  ; kN 
 Su   =   530.0 MPa
 Sy   =   450.0 Mpa
 D_over_d  =   1.25 
 r_over_d  =   0.03 
 Kt_bend   =   2.25 
 q  =   0.70 
 Kf_bend = 1 + (Kt_bend - 1) * q  
 Kt_tors   =   1.80 
 q  =   0.70 
 Kf_tors = 1 + (Kt_tors - 1) * q  
 MX   =   130.00 kN mm
 MY   =   75.00 kN mm
 M = sqrt(MX^2 + MY^2)  ; kN mm 
 d  =   25 mm; mm
 s1 = 32 * M * Kf_bend / pi() / d^3  ; MPa 
 T1  =   125.00 kN mm 
 t = 16 * T1 * Kf_tors / pi() / d^3  ; MPa 
 s_over_t = 2.886  
 FOS  =   2.50  
 S1   =   165.00 MPa 
 Sdesign = S1 / FOS  ; MPa 
 error = Sdesign - s1  ; MPa 
 d  =   40.00 mm 
 D1 = d * (D_over_d) ; mm 
 r = d * (r_over_d) ; mm 
END 
solve(error, d)

# Homework Problems:

TBD