No Title |POLVER05_1 |2
# Bubble temperature calculation -Raoult's law
#Nonlinear equations
f(Temp) = 1-y1-y2
Temp(0) = 60 # initial guess
f(y2) = x2*P2sat-y2*P
y2(0) = 0.5 # initial guess
f(y1) = x1*P1sat-y1*P
y1(0) = 0.5 # initial guess
f(P2sat) = 14.2-2975/(Temp+209)-ln(P2sat)
P2sat(0) = 50 # initial guess
f(P1sat) = 14.3-2940/(Temp+224)-ln(P1sat)
P1sat(0) = 50 # initial guess
#Explicit equations
x1=0.40
x2=0.60
P=70