Approximate Bubble Temperature Distribution for Benzene, Toluene, p-Xylene Ternary Mixture
Approximate Bubble Temperature Distribution for Benzene, Toluene, p-Xylene Ternary Mixture
ManipulateDynamicModule[{sol},LocatorPane[Dynamic[p,(p={#[[1]],Min[1-#[[1]],#[[2]]]})&],Dynamic[Show[plt,Graphics[{Style[Text[ToString[NumberForm[f[p[[1]],p[[2]]],{5,2}]],{p[[1]]+0.05,p[[2]]+0.05},{-1,0}],Blue,Bold,14,BackgroundWhite],Style[Text[ToString[NumberForm[T/.FindRoot[p[[1]]PS1+p[[2]]PS2+(1-p[[1]]-p[[2]])PS3P,{T,80,140}],{5,2}]],{p[[1]]+0.05,p[[2]]-0.05},{-1,0}],Red,Bold,14,BackgroundWhite],Style[Text[Row[{Style["p",Italic],"-Xylene"}],{-0.1,-0.085},{-1,0}],RGBColor[.25,.43,.82],14],Style[Text["Toluene",{-0.1,1.05},{-1,0}],RGBColor[.25,.43,.82],14],Style[Text["Benzene",{1.05,-0.065},{-1,0}],RGBColor[.25,.43,.82],14]}],ImageSize{450,450},ImagePadding{{80,80},{25,35}},PlotRangeClippingFalse]],{{0.,0.},{1,1}}]],{{p,{0.2,0.2}},{0.1,0.1},{0.5,0.5},None},AutorunSequencing{{1,6}},SynchronousInitializationFalse,InitializationP=760;A1=6.87987;B1=1196.76;C1=219.161;A2=6.95087;B2=1342.31;C2=219.187;A3=6.99053;B3=1453.43;C3=215.310;PS1=10^(A1-B1/(C1+T));PS2=10^(A2-B2/(C2+T));PS3=10^(A3-B3/(C3+T));=Sqrt[(PS1/PS3/.T80.1)(PS1/PS3/.T138.3)];=Sqrt[(PS2/PS3/.T110.6)(PS2/PS3/.T138.3)];f[x1_,x2_]:=-C3;plt=DensityPlot[f[x1,x2],{x1,0,1},{x2,0,1},ColorFunction(Hue[#]&),PlotPoints100,RegionFunctionFunction[{xs,ys},0≤xs+ys<1],Mesh15,MeshFunctions(f[#1,#2]&)]
α
13
α
23
-B3
Log[10,P/(x1+x2+(1-x2-x1))]-A3
α
13
α
23
CAPTION
CAPTION
T=--
-
B
3
log
10
sat
P
3
A
3
C
3
sat
P
3
P
α
13
x
1
α
23
x
2
α
33
x
3
P=760
This Demonstration (a) lets you compare the exact and approximate values of the bubble temperature, and (b) plots the temperature distribution and iso-temperature lines. It is clear that the higher-boiling compositions are the regions in magenta and red, rich in -xylene, while lower-boiling compositions are the regions in orange and yellow, rich in benzene. Finally, toluene-rich mixtures, the cyan and green regions, have intermediate boiling temperatures.
p
THIS NOTEBOOK IS THE SOURCE CODE FROM
◼
A full-function Wolfram Mathematica system (Version 6 or higher) is required to edit this notebook.GET WOLFRAM MATHEMATICA »