//page 385
clc
primary_alpha=((0.77-.5)/(0.77-0.0218))*100
pearlite=((0.5-0.0218)/(0.77-0.0218))*100
disp(primary_alpha,"primary alpha in percentage =")
disp(pearlite,"pearlite in percentage =")
//Answer difference is due to roundoff