function bp_y = BUBL_P(A,B,C,T,x)
% [P y] = BUBL_P(A,B,C,T,x)
% Bubble Pressure and Composition of Vapor
% Input: Antoine Constants (A,B,C), Temperature of liquid, x
% Output: Bubble Pressure & Composition of vapor

% Done on 09-Sep-2001, M.Subramanian
% msubbu@svce.ac.in

p_sat = sat_pr_antoine(A,B,C,T);
P =sum(x.*p_sat);
y = x.*p_sat/P;
bp_y = [P y];
%end

