//Example 5.6
F_by_A=5.00*10^7;//Force per unit area at 5km depth (N/m^2)
B=2.2*10^9;//Bulk modulus (N/m^2), See Table 5.3
v=(F_by_A)/B;//Fractional decrease in volume
printf('Fractional decrease in volume (in percentage) = %0.1f%%',v*100)
//Openstax - College Physics
//Download for free at http://cnx.org/content/col11406/latest