% case study
% water-gas shift equilibrium
% at 1200 degC
x = 150:175;
plot(x,fwg(x),'k')
grid
