Approximate Bubble Temperature Distribution for Benzene, Toluene, p-Xylene Ternary Mixture

ManipulateDynamicModule[{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,BackgroundWhite],Style[Text[ToString[NumberForm[T/.FindRoot[p[[1]]PS1+p[[2]]PS2+(1-p[[1]]-p[[2]])PS3P,{T,80,140}],{5,2}]],{p[[1]]+0.05,p[[2]]-0.05},{-1,0}],Red,Bold,14,BackgroundWhite],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}},PlotRangeClippingFalse]],{{0.,0.},{1,1}}]],{{p,{0.2,0.2}},{0.1,0.1},{0.5,0.5},None},AutorunSequencing{{1,6}},SynchronousInitializationFalse,InitializationP=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/.T80.1)(PS1/PS3/.T138.3)];

=Sqrt[(PS2/PS3/.T110.6)(PS2/PS3/.T138.3)];f[x1_,x2_]:=

-B3

Log[10,P/(x1

+x2

+(1-x2-x1))]-A3

-C3;plt=DensityPlot[f[x1,x2],{x1,0,1},{x2,0,1},ColorFunction(Hue[#]&),PlotPoints100,RegionFunctionFunction[{xs,ys},0≤xs+ys<1],Mesh15,MeshFunctions(f[#1,#2]&)]

CAPTION


log



sat

-

, where

sat

and

P=760

mmHg.

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.

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Approximate Bubble Temperature Distribution for Benzene, Toluene, p-Xylene Ternary Mixture" from the Wolfram Demonstrations Project http://demonstrations.wolfram.com/ApproximateBubbleTemperatureDistributionForBenzeneToluenePXy/

◼

Contributed by: Housam Binous and Ahmed Bellagi

A full-function Wolfram Mathematica system (Version 6 or higher) is required to edit this notebook.GET WOLFRAM MATHEMATICA »

Approximate Bubble Temperature Distribution for Benzene, Toluene, p-Xylene Ternary Mixture

CAPTION

CAPTION
