function Psat = AntoineEq(Temperature,P)
A = P(3); B = P(4); C = P(5); % Antoine parameters
Psat =(10^5)*10^(A - B/(C+Temperature)); % Computing saturation pressure
end

