# Example 6.1    
 Su   =   78 ksi
 Sy   =   70 ksi
 KIc    =   60 ksi in^(1/2)
 t  =   0.06 in
 c  =   0.50 in
 w  =   3 in
 sg = KIc / (1.8 * sqrt(c))  ; ksi 
 P = sg * (2 * w * t)  ; lbf 

# Example 6.2 
IPS()    
BEGIN     
 Sy   =   120.0 ksi
 KIc    =   65.0 ksi in^(/2)
 t  =   1.0 in 
 w  =   3.00 in 
 a  =   0.1992 in 
 a_over_2c   =   0.25  
 sg = 0.73 * Sy  ; ksi 
 C0   =   0.39  
 C1   =   0.053  
 err = KIc - sg * sqrt(a) / (C0 - C1 * (sg / Sy)^2)^(1/2)  ; ksi in^(1/2) 
END      
solve(err, a)

# Example 6.3      
 Sy   =   100 ksi 
 s1   =   35 ksi 
 s2   =   -25 ksi 
 s3   =   0 ksi 
 se = sqrt((s2 - s1)^2 + (s3 - s1)^2 + (s3 - s2)^2) / sqrt(2)  ; ksi 
 FOS = Sy / se   

# Example 6.4     
 sx   =   1 N m
 sy   =   1.5 N m
 sz = sqrt(sx^2 + sy^2)  ; N m 
 f  =   0.002 
 z = Normsinv(f)  
 mz = abs(z) * sz  ; N m 
 mx   =   20 N m
 my = mx - mz  ; N m

# Homework Problems:

TBD