//Example 14.4//

a0=1.0;//m^3 // composite
d=a0-a
mprintf("d= %f m^3",d)
pA=2.70;//Mg/m^3 //density of aluminium (at 20degree C)
a1=3.97;//Mg/m^3 //density of Al2O3
a=0.1;//m^3 //meter //For 1m^3 we shall have 0.1m^3 of Al2O3
ma=a1*a
mprintf("\nma = %f Mg",ma)
b=0.9;//m^3 //cubic meter
ma1=pA*b
mprintf("\nma1 = %f Mg",ma1)
pc=(ma+ma1)
mprintf("\npc = %f Mg/m^3",pc)