//Example 14.11//

a=4100;//strength (psi)
b=3100;//strength (psi)
i1=((a-b)/b)*100
mprintf("i1 = %f percent",i1)