function p=Antoine(T,A,B,C)
% Compute vapor pressure for single component
p =10^(A-(B/(T+C)));
