f=pBragg(x)

% Author: Housam Binous

% Pressure-volume isotherms for a Bragg-Williams lattice gas

% National Institute of Applied Sciences and Technology, Tunis, TUNISIA

% Email: [e-mail]

% Reference: T. L. Hill, An Introduction to Statistical Thermodynamics,
% Dover, New York, 1986.

function f=pBragg(x)

global P1

kTovercw=-0.2;
f=kTovercw*log(1 - 1./x) - 1./(2*x.^2)-P1;

end