(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Wolfram 14.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       154,          7]
NotebookDataLength[    446589,       9428]
NotebookOptionsPosition[    431988,       9188]
NotebookOutlinePosition[    432469,       9206]
CellTagsIndexPosition[    432426,       9203]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["ThermoFAST examples", "Title",
 CellChangeTimes->{{3.906800219000862*^9, 
  3.9068002278327584`*^9}},ExpressionUUID->"ec6431b2-5b27-488e-bfd3-\
a9ee21f86d25"],

Cell["\<\
The ThermoFAST package provides a Mathematica interface to the subroutines of \
the ThermoFAST DLL, as well as some extra functionality.\
\>", "Text",
 CellChangeTimes->{{3.910347154676216*^9, 
  3.9103472784438114`*^9}},ExpressionUUID->"f4e47350-dafb-4d81-a6ba-\
a535d3492ae1"],

Cell[CellGroupData[{

Cell["Installing the paclet", "Section",
 CellChangeTimes->{{3.9067995178487177`*^9, 3.906799518417053*^9}, {
  3.910347146700697*^9, 3.910347151454607*^9}, {3.957904362071226*^9, 
  3.957904364838869*^9}},ExpressionUUID->"2459a278-7dbd-4a76-b64c-\
77294504a26e"],

Cell[TextData[{
 "The ThermoFAST package is distributed in the form of a ",
 StyleBox[ButtonBox["paclet",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://reference.wolfram.com/language/tutorial/Paclets.html"], None},
  ButtonNote->"https://reference.wolfram.com/language/tutorial/Paclets.html"],
  FontSlant->"Italic"],
 " (extension \[OpenCurlyDoubleQuote].paclet\[CloseCurlyDoubleQuote]), which \
is essentially a zip file containing all the necessary files. To begin using \
a paclet, it must first be installed. This can be done by running the \
following (after modifying the file path to the location of your copy of the \
\[OpenCurlyDoubleQuote]ThermoFAST.paclet\[CloseCurlyDoubleQuote] \[LongDash] ",
 StyleBox["Insert > File Path",
  FontSlant->"Italic"],
 "\[Ellipsis] is useful here):"
}], "Text",
 CellChangeTimes->{{3.957904367127146*^9, 3.9579043859822483`*^9}, {
  3.957904514568035*^9, 3.9579045571427784`*^9}, {3.9579046164463634`*^9, 
  3.9579046574388447`*^9}, {3.9579046990071373`*^9, 3.9579047669144*^9}, {
  3.975032279756336*^9, 
  3.975032366951088*^9}},ExpressionUUID->"d6672497-2695-7744-97d0-\
9ad8d50f655b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PacletInstall", "[", 
  RowBox[{"\"\<C:\\\\Users\\\\pfall\\\\MyRepos\\\\fsr-uwa\\\\ThermoFAST\\\\\
Releases\\\\ThermoFAST-Mathematica-v2.3.0-beta.5\\\\ThermoFAST-2.3.0-beta.5.\
paclet\>\"", ",", 
   RowBox[{"ForceVersionInstall", "->", "True"}]}], "]"}]], "Input",
 CellLabel->"In[10]:=",ExpressionUUID->"14f2c7cb-ae52-fd45-9f8f-6a7f460c161d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["PacletObject",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{
              Thickness[0.0416667], {
               FaceForm[{
                 RGBColor[0.961, 0.961, 0.961], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12.5454, 
                22.5972}, {7.5464, 20.5002}, {2.5454, 18.4022}, {2.5454, 
                12.5982}, {2.5454, 12.5972}, {2.5454, 6.7952}, {7.5454, 
                4.6962}, {7.546, 4.6972}, {12.5454, 2.5992}, {17.5454, 
                4.6972}, {17.5454, 4.6962}, {22.5454, 6.7952}, {22.5454, 
                12.5972}, {22.5454, 12.5982}, {22.5454, 18.4022}}}]}, {
               FaceForm[{
                 RGBColor[0.898, 0.898, 0.898], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{17.125, 8.3359}, {17.125, 
                14.0569}, {16.875, 14.0569}, {16.875, 8.3359}, {17., 
                8.1169}, {21.952, 6.0399}, {22.049, 6.2709}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{7.125, 8.3359}, {7.125, 14.0569}, {
                6.875, 14.0569}, {6.875, 8.3359}, {1.952, 6.2709}, {2.048, 
                6.0399}, {7., 8.1169}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{11.8745, 6.2383}, {6.9515, 4.1733}, {7.0475, 
                3.9423}, {11.9995, 6.0193}, {16.9515, 3.9423}, {17.0475, 
                4.1733}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{17.125, 14.1392}, {17.125, 
                19.8602}, {16.875, 19.8602}, {16.875, 14.1392}, {17., 
                13.9202}, {21.952, 11.8432}, {22.049, 12.0742}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{7.125, 14.1392}, {7.125, 19.8602}, {
                6.875, 19.8602}, {6.875, 14.1392}, {1.952, 12.0742}, {2.048, 
                11.8432}, {7., 13.9202}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{11.8746, 21.3633}, {11.8746, 18.3563}, {
                11.9996, 18.3033}, {12.1246, 18.3563}, {12.1246, 21.3633}, {
                11.9996, 21.4153}}}]}, {
               FaceForm[{
                 RGBColor[0.749, 0.749, 0.749], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                 3}}}, {{{8.292, 19.8594}, {12., 21.4154}, {15.707, 
                 19.8594}, {12., 18.3034}}, {{17.5, 19.5274}, {17.5, 
                 20.1924}, {12., 22.5004}, {6.5, 20.1924}, {6.5, 19.5284}, {
                 12., 17.2194}, {12., 17.2194}, {15.7, 18.7724}, {17.5, 
                 19.5274}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{11.5, 8.5156}, {11.5, 6.4876}, {11.5, 
                5.4026}, {12.5, 5.8226}, {12.5, 8.5156}, {12., 8.3056}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}}}, {{{21.5, 6.4873}, {17.5, 4.8083}, {17.5, 
                 9.5283}, {21.5, 11.2073}}, {{21.5, 12.7113}, {21.5, 
                 12.2913}, {17., 10.4033}, {16.5, 10.6133}, {16.5, 10.1943}, {
                 15.707, 9.8613}, {16.5, 9.5283}, {16.5, 4.8083}, {16.5, 
                 4.8093}, {16.5, 4.3903}, {15.707, 4.0573}, {17., 3.5143}, {
                 22.5, 5.8223}, {22.5, 12.2913}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}}}, {{{6.5, 4.8086}, {2.5, 6.4876}, {2.5, 
                 11.2066}, {6.5, 9.5286}}, {{7.5, 9.1096}, {7.5, 9.1096}, {
                 7.5, 9.5286}, {8.292, 9.8616}, {7.5, 10.1936}, {7.5, 
                 10.6136}, {7., 10.4036}, {2.5, 12.2906}, {2.5, 12.7106}, {
                 1.5, 12.2916}, {1.5, 5.8226}, {7., 3.5146}, {8.293, 
                 4.0576}, {7.5, 4.3906}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{3.2925, 17.7622}, {7.0005, 
                 19.3182}, {10.7075, 17.7622}, {7.0005, 16.2062}}, {{6.5005, 
                 10.6122}, {2.5005, 12.2912}, {2.5005, 17.0102}, {6.5005, 
                 15.3322}}, {{7.5005, 10.1932}, {7.5005, 10.6122}, {7.5005, 
                 15.3322}, {12.0005, 17.2202}, {12.5005, 17.0102}, {12.5005, 
                 18.0952}, {7.0005, 20.4032}, {1.5005, 18.0952}, {1.5005, 
                 11.6262}, {7.0005, 9.3182}, {8.2935, 9.8612}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{21.5, 12.291}, {17.5, 10.612}, {
                 17.5, 15.332}, {21.5, 17.01}}, {{13.293, 17.762}, {17., 
                 19.318}, {20.708, 17.762}, {17., 16.207}}, {{17., 20.403}, {
                 11.5, 18.095}, {11.5, 17.01}, {12., 17.22}, {16.5, 15.332}, {
                 16.5, 10.612}, {16.5, 10.194}, {15.706, 9.861}, {17., 
                 9.318}, {22.5, 11.626}, {22.5, 18.095}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{16.4995, 4.3906}, {12.4995, 
                 2.7116}, {12.4995, 7.4316}, {16.4995, 9.1096}}, {{11.4995, 
                 2.7116}, {7.4995, 4.3906}, {7.4995, 9.1096}, {11.4995, 
                 7.4316}}, {{16.4995, 10.6136}, {16.4995, 10.1946}, {11.9995, 
                 8.3056}, {8.2915, 9.8616}, {7.4995, 10.1936}, {7.4995, 
                 10.6146}, {6.4995, 10.1946}, {6.4995, 3.7256}, {11.9995, 
                 1.4176}, {17.4995, 3.7256}, {17.4995, 10.1946}}}]}, {
               FaceForm[{
                 RGBColor[0.965, 0.765, 0.749], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{12., 17.6616}, {16.945, 15.5856}, {16.945, 
                9.9376}, {12., 7.8636}, {7.055, 9.9376}, {7.055, 
                15.5856}}}]}, {
               FaceForm[{
                 RGBColor[0.91, 0.655, 0.635], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12.125, 
                17.7627}, {11.875, 17.7627}, {11.875, 12.0407}, {6.952, 
                9.9757}, {7.048, 9.7447}, {12., 11.8227}, {16.952, 9.7447}, {
                17.048, 9.9757}, {12.125, 12.0407}}}]}, {
               FaceForm[{
                 RGBColor[0.867, 0.067, 0.], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}}}, {{{12.5, 8.5146}, {12.5, 13.2336}, {16.5, 14.9116}, {
                 16.5, 10.1926}}, {{7.5, 14.9116}, {11.5, 13.2336}, {11.5, 
                 8.5146}, {7.5, 10.1926}}, {{15.708, 15.6636}, {12., 
                 14.1086}, {8.292, 15.6636}, {12., 17.2206}}, {{12., 
                 18.3046}, {6.5, 15.9956}, {6.5, 9.5286}, {12., 7.2206}, {
                 17.5, 9.5286}, {17.5, 15.9956}}}]}}, AspectRatio -> 
             Automatic, ImageSize -> {24., 24.}, 
             PlotRange -> {{0., 24.}, {0., 24.}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"ThermoFAST\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"2.3.0\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{
              Thickness[0.0416667], {
               FaceForm[{
                 RGBColor[0.961, 0.961, 0.961], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12.5454, 
                22.5972}, {7.5464, 20.5002}, {2.5454, 18.4022}, {2.5454, 
                12.5982}, {2.5454, 12.5972}, {2.5454, 6.7952}, {7.5454, 
                4.6962}, {7.546, 4.6972}, {12.5454, 2.5992}, {17.5454, 
                4.6972}, {17.5454, 4.6962}, {22.5454, 6.7952}, {22.5454, 
                12.5972}, {22.5454, 12.5982}, {22.5454, 18.4022}}}]}, {
               FaceForm[{
                 RGBColor[0.898, 0.898, 0.898], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{17.125, 8.3359}, {17.125, 
                14.0569}, {16.875, 14.0569}, {16.875, 8.3359}, {17., 
                8.1169}, {21.952, 6.0399}, {22.049, 6.2709}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{7.125, 8.3359}, {7.125, 14.0569}, {
                6.875, 14.0569}, {6.875, 8.3359}, {1.952, 6.2709}, {2.048, 
                6.0399}, {7., 8.1169}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{11.8745, 6.2383}, {6.9515, 4.1733}, {7.0475, 
                3.9423}, {11.9995, 6.0193}, {16.9515, 3.9423}, {17.0475, 
                4.1733}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{17.125, 14.1392}, {17.125, 
                19.8602}, {16.875, 19.8602}, {16.875, 14.1392}, {17., 
                13.9202}, {21.952, 11.8432}, {22.049, 12.0742}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{7.125, 14.1392}, {7.125, 19.8602}, {
                6.875, 19.8602}, {6.875, 14.1392}, {1.952, 12.0742}, {2.048, 
                11.8432}, {7., 13.9202}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{11.8746, 21.3633}, {11.8746, 18.3563}, {
                11.9996, 18.3033}, {12.1246, 18.3563}, {12.1246, 21.3633}, {
                11.9996, 21.4153}}}]}, {
               FaceForm[{
                 RGBColor[0.749, 0.749, 0.749], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                 3}}}, {{{8.292, 19.8594}, {12., 21.4154}, {15.707, 
                 19.8594}, {12., 18.3034}}, {{17.5, 19.5274}, {17.5, 
                 20.1924}, {12., 22.5004}, {6.5, 20.1924}, {6.5, 19.5284}, {
                 12., 17.2194}, {12., 17.2194}, {15.7, 18.7724}, {17.5, 
                 19.5274}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{11.5, 8.5156}, {11.5, 6.4876}, {11.5, 
                5.4026}, {12.5, 5.8226}, {12.5, 8.5156}, {12., 8.3056}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}}}, {{{21.5, 6.4873}, {17.5, 4.8083}, {17.5, 
                 9.5283}, {21.5, 11.2073}}, {{21.5, 12.7113}, {21.5, 
                 12.2913}, {17., 10.4033}, {16.5, 10.6133}, {16.5, 10.1943}, {
                 15.707, 9.8613}, {16.5, 9.5283}, {16.5, 4.8083}, {16.5, 
                 4.8093}, {16.5, 4.3903}, {15.707, 4.0573}, {17., 3.5143}, {
                 22.5, 5.8223}, {22.5, 12.2913}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}}}, {{{6.5, 4.8086}, {2.5, 6.4876}, {2.5, 
                 11.2066}, {6.5, 9.5286}}, {{7.5, 9.1096}, {7.5, 9.1096}, {
                 7.5, 9.5286}, {8.292, 9.8616}, {7.5, 10.1936}, {7.5, 
                 10.6136}, {7., 10.4036}, {2.5, 12.2906}, {2.5, 12.7106}, {
                 1.5, 12.2916}, {1.5, 5.8226}, {7., 3.5146}, {8.293, 
                 4.0576}, {7.5, 4.3906}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{3.2925, 17.7622}, {7.0005, 
                 19.3182}, {10.7075, 17.7622}, {7.0005, 16.2062}}, {{6.5005, 
                 10.6122}, {2.5005, 12.2912}, {2.5005, 17.0102}, {6.5005, 
                 15.3322}}, {{7.5005, 10.1932}, {7.5005, 10.6122}, {7.5005, 
                 15.3322}, {12.0005, 17.2202}, {12.5005, 17.0102}, {12.5005, 
                 18.0952}, {7.0005, 20.4032}, {1.5005, 18.0952}, {1.5005, 
                 11.6262}, {7.0005, 9.3182}, {8.2935, 9.8612}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{21.5, 12.291}, {17.5, 10.612}, {
                 17.5, 15.332}, {21.5, 17.01}}, {{13.293, 17.762}, {17., 
                 19.318}, {20.708, 17.762}, {17., 16.207}}, {{17., 20.403}, {
                 11.5, 18.095}, {11.5, 17.01}, {12., 17.22}, {16.5, 15.332}, {
                 16.5, 10.612}, {16.5, 10.194}, {15.706, 9.861}, {17., 
                 9.318}, {22.5, 11.626}, {22.5, 18.095}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{16.4995, 4.3906}, {12.4995, 
                 2.7116}, {12.4995, 7.4316}, {16.4995, 9.1096}}, {{11.4995, 
                 2.7116}, {7.4995, 4.3906}, {7.4995, 9.1096}, {11.4995, 
                 7.4316}}, {{16.4995, 10.6136}, {16.4995, 10.1946}, {11.9995, 
                 8.3056}, {8.2915, 9.8616}, {7.4995, 10.1936}, {7.4995, 
                 10.6146}, {6.4995, 10.1946}, {6.4995, 3.7256}, {11.9995, 
                 1.4176}, {17.4995, 3.7256}, {17.4995, 10.1946}}}]}, {
               FaceForm[{
                 RGBColor[0.965, 0.765, 0.749], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{12., 17.6616}, {16.945, 15.5856}, {16.945, 
                9.9376}, {12., 7.8636}, {7.055, 9.9376}, {7.055, 
                15.5856}}}]}, {
               FaceForm[{
                 RGBColor[0.91, 0.655, 0.635], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12.125, 
                17.7627}, {11.875, 17.7627}, {11.875, 12.0407}, {6.952, 
                9.9757}, {7.048, 9.7447}, {12., 11.8227}, {16.952, 9.7447}, {
                17.048, 9.9757}, {12.125, 12.0407}}}]}, {
               FaceForm[{
                 RGBColor[0.867, 0.067, 0.], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}}}, {{{12.5, 8.5146}, {12.5, 13.2336}, {16.5, 14.9116}, {
                 16.5, 10.1926}}, {{7.5, 14.9116}, {11.5, 13.2336}, {11.5, 
                 8.5146}, {7.5, 10.1926}}, {{15.708, 15.6636}, {12., 
                 14.1086}, {8.292, 15.6636}, {12., 17.2206}}, {{12., 
                 18.3046}, {6.5, 15.9956}, {6.5, 9.5286}, {12., 7.2206}, {
                 17.5, 9.5286}, {17.5, 15.9956}}}]}}, AspectRatio -> 
             Automatic, ImageSize -> {24., 24.}, 
             PlotRange -> {{0., 24.}, {0., 24.}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"ThermoFAST\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"2.3.0\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Location: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                 "\"C:\\\\Users\\\\pfall\\\\AppData\\\\Roaming\\\\Wolfram\\\\\
Paclets\\\\Repository\\\\ThermoFAST-2.3.0\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TagBox[
                  "\"A Wolfram Language interface for ThermoFAST, a \
thermodynamic property calculator.\"", Short], "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  PacletObject[<|
   "Name" -> "ThermoFAST", "Version" -> "2.3.0", 
    "SystemID" -> {"Windows-x86-64"}, "WolframVersion" -> "13+", "Creator" -> 
    "peter.falloon@uwa.edu.au", "Description" -> 
    "A Wolfram Language interface for ThermoFAST, a thermodynamic property \
calculator.", 
    "Extensions" -> {{
      "Kernel", "Root" -> "Kernel", "Context" -> "ThermoFAST`"}, {
      "Asset", "Root" -> "Windows", "SystemID" -> "Windows-x86-64", 
       "Assets" -> {{"tf64_dll", "ThermoFAST64.dll"}}}}, "Location" -> 
    "C:\\Users\\pfall\\AppData\\Roaming\\Wolfram\\Paclets\\Repository\\\
ThermoFAST-2.3.0"|>],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.978148871634634*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"b6576a42-626f-904b-8bfd-bbd2361f43ef"]
}, Open  ]],

Cell[TextData[{
 "(Note the ",
 StyleBox["ForceVersionInstall", "Code"],
 " option here, which is only needed if overwriting an existing installation \
of the same version number \[LongDash] as happens when working with beta \
releases.)"
}], "Text",
 CellChangeTimes->{{3.9781488033850613`*^9, 
  3.9781488646747856`*^9}},ExpressionUUID->"01a3b9ee-d026-6441-9f51-\
7c1922b5a3f2"],

Cell["\<\
If installation was successful, running the following should give similar \
output:\
\>", "Text",
 CellChangeTimes->{{3.9579048374242096`*^9, 
  3.9579048893377705`*^9}},ExpressionUUID->"b3c662b4-462c-6a44-be73-\
4dd4d50a38bb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p", "=", 
  RowBox[{"PacletObject", "[", "\"\<ThermoFAST\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.957904852125866*^9, 3.9579048570553436`*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"7ba3917c-0812-b044-bd86-d73c25e76d03"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["PacletObject",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{
              Thickness[0.0416667], {
               FaceForm[{
                 RGBColor[0.961, 0.961, 0.961], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12.5454, 
                22.5972}, {7.5464, 20.5002}, {2.5454, 18.4022}, {2.5454, 
                12.5982}, {2.5454, 12.5972}, {2.5454, 6.7952}, {7.5454, 
                4.6962}, {7.546, 4.6972}, {12.5454, 2.5992}, {17.5454, 
                4.6972}, {17.5454, 4.6962}, {22.5454, 6.7952}, {22.5454, 
                12.5972}, {22.5454, 12.5982}, {22.5454, 18.4022}}}]}, {
               FaceForm[{
                 RGBColor[0.898, 0.898, 0.898], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{17.125, 8.3359}, {17.125, 
                14.0569}, {16.875, 14.0569}, {16.875, 8.3359}, {17., 
                8.1169}, {21.952, 6.0399}, {22.049, 6.2709}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{7.125, 8.3359}, {7.125, 14.0569}, {
                6.875, 14.0569}, {6.875, 8.3359}, {1.952, 6.2709}, {2.048, 
                6.0399}, {7., 8.1169}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{11.8745, 6.2383}, {6.9515, 4.1733}, {7.0475, 
                3.9423}, {11.9995, 6.0193}, {16.9515, 3.9423}, {17.0475, 
                4.1733}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{17.125, 14.1392}, {17.125, 
                19.8602}, {16.875, 19.8602}, {16.875, 14.1392}, {17., 
                13.9202}, {21.952, 11.8432}, {22.049, 12.0742}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{7.125, 14.1392}, {7.125, 19.8602}, {
                6.875, 19.8602}, {6.875, 14.1392}, {1.952, 12.0742}, {2.048, 
                11.8432}, {7., 13.9202}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{11.8746, 21.3633}, {11.8746, 18.3563}, {
                11.9996, 18.3033}, {12.1246, 18.3563}, {12.1246, 21.3633}, {
                11.9996, 21.4153}}}]}, {
               FaceForm[{
                 RGBColor[0.749, 0.749, 0.749], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                 3}}}, {{{8.292, 19.8594}, {12., 21.4154}, {15.707, 
                 19.8594}, {12., 18.3034}}, {{17.5, 19.5274}, {17.5, 
                 20.1924}, {12., 22.5004}, {6.5, 20.1924}, {6.5, 19.5284}, {
                 12., 17.2194}, {12., 17.2194}, {15.7, 18.7724}, {17.5, 
                 19.5274}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{11.5, 8.5156}, {11.5, 6.4876}, {11.5, 
                5.4026}, {12.5, 5.8226}, {12.5, 8.5156}, {12., 8.3056}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}}}, {{{21.5, 6.4873}, {17.5, 4.8083}, {17.5, 
                 9.5283}, {21.5, 11.2073}}, {{21.5, 12.7113}, {21.5, 
                 12.2913}, {17., 10.4033}, {16.5, 10.6133}, {16.5, 10.1943}, {
                 15.707, 9.8613}, {16.5, 9.5283}, {16.5, 4.8083}, {16.5, 
                 4.8093}, {16.5, 4.3903}, {15.707, 4.0573}, {17., 3.5143}, {
                 22.5, 5.8223}, {22.5, 12.2913}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}}}, {{{6.5, 4.8086}, {2.5, 6.4876}, {2.5, 
                 11.2066}, {6.5, 9.5286}}, {{7.5, 9.1096}, {7.5, 9.1096}, {
                 7.5, 9.5286}, {8.292, 9.8616}, {7.5, 10.1936}, {7.5, 
                 10.6136}, {7., 10.4036}, {2.5, 12.2906}, {2.5, 12.7106}, {
                 1.5, 12.2916}, {1.5, 5.8226}, {7., 3.5146}, {8.293, 
                 4.0576}, {7.5, 4.3906}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{3.2925, 17.7622}, {7.0005, 
                 19.3182}, {10.7075, 17.7622}, {7.0005, 16.2062}}, {{6.5005, 
                 10.6122}, {2.5005, 12.2912}, {2.5005, 17.0102}, {6.5005, 
                 15.3322}}, {{7.5005, 10.1932}, {7.5005, 10.6122}, {7.5005, 
                 15.3322}, {12.0005, 17.2202}, {12.5005, 17.0102}, {12.5005, 
                 18.0952}, {7.0005, 20.4032}, {1.5005, 18.0952}, {1.5005, 
                 11.6262}, {7.0005, 9.3182}, {8.2935, 9.8612}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{21.5, 12.291}, {17.5, 10.612}, {
                 17.5, 15.332}, {21.5, 17.01}}, {{13.293, 17.762}, {17., 
                 19.318}, {20.708, 17.762}, {17., 16.207}}, {{17., 20.403}, {
                 11.5, 18.095}, {11.5, 17.01}, {12., 17.22}, {16.5, 15.332}, {
                 16.5, 10.612}, {16.5, 10.194}, {15.706, 9.861}, {17., 
                 9.318}, {22.5, 11.626}, {22.5, 18.095}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{16.4995, 4.3906}, {12.4995, 
                 2.7116}, {12.4995, 7.4316}, {16.4995, 9.1096}}, {{11.4995, 
                 2.7116}, {7.4995, 4.3906}, {7.4995, 9.1096}, {11.4995, 
                 7.4316}}, {{16.4995, 10.6136}, {16.4995, 10.1946}, {11.9995, 
                 8.3056}, {8.2915, 9.8616}, {7.4995, 10.1936}, {7.4995, 
                 10.6146}, {6.4995, 10.1946}, {6.4995, 3.7256}, {11.9995, 
                 1.4176}, {17.4995, 3.7256}, {17.4995, 10.1946}}}]}, {
               FaceForm[{
                 RGBColor[0.965, 0.765, 0.749], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{12., 17.6616}, {16.945, 15.5856}, {16.945, 
                9.9376}, {12., 7.8636}, {7.055, 9.9376}, {7.055, 
                15.5856}}}]}, {
               FaceForm[{
                 RGBColor[0.91, 0.655, 0.635], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12.125, 
                17.7627}, {11.875, 17.7627}, {11.875, 12.0407}, {6.952, 
                9.9757}, {7.048, 9.7447}, {12., 11.8227}, {16.952, 9.7447}, {
                17.048, 9.9757}, {12.125, 12.0407}}}]}, {
               FaceForm[{
                 RGBColor[0.867, 0.067, 0.], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}}}, {{{12.5, 8.5146}, {12.5, 13.2336}, {16.5, 14.9116}, {
                 16.5, 10.1926}}, {{7.5, 14.9116}, {11.5, 13.2336}, {11.5, 
                 8.5146}, {7.5, 10.1926}}, {{15.708, 15.6636}, {12., 
                 14.1086}, {8.292, 15.6636}, {12., 17.2206}}, {{12., 
                 18.3046}, {6.5, 15.9956}, {6.5, 9.5286}, {12., 7.2206}, {
                 17.5, 9.5286}, {17.5, 15.9956}}}]}}, AspectRatio -> 
             Automatic, ImageSize -> {24., 24.}, 
             PlotRange -> {{0., 24.}, {0., 24.}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"ThermoFAST\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"2.3.0\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[{
              Thickness[0.0416667], {
               FaceForm[{
                 RGBColor[0.961, 0.961, 0.961], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12.5454, 
                22.5972}, {7.5464, 20.5002}, {2.5454, 18.4022}, {2.5454, 
                12.5982}, {2.5454, 12.5972}, {2.5454, 6.7952}, {7.5454, 
                4.6962}, {7.546, 4.6972}, {12.5454, 2.5992}, {17.5454, 
                4.6972}, {17.5454, 4.6962}, {22.5454, 6.7952}, {22.5454, 
                12.5972}, {22.5454, 12.5982}, {22.5454, 18.4022}}}]}, {
               FaceForm[{
                 RGBColor[0.898, 0.898, 0.898], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{17.125, 8.3359}, {17.125, 
                14.0569}, {16.875, 14.0569}, {16.875, 8.3359}, {17., 
                8.1169}, {21.952, 6.0399}, {22.049, 6.2709}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{7.125, 8.3359}, {7.125, 14.0569}, {
                6.875, 14.0569}, {6.875, 8.3359}, {1.952, 6.2709}, {2.048, 
                6.0399}, {7., 8.1169}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{11.8745, 6.2383}, {6.9515, 4.1733}, {7.0475, 
                3.9423}, {11.9995, 6.0193}, {16.9515, 3.9423}, {17.0475, 
                4.1733}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{17.125, 14.1392}, {17.125, 
                19.8602}, {16.875, 19.8602}, {16.875, 14.1392}, {17., 
                13.9202}, {21.952, 11.8432}, {22.049, 12.0742}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{7.125, 14.1392}, {7.125, 19.8602}, {
                6.875, 19.8602}, {6.875, 14.1392}, {1.952, 12.0742}, {2.048, 
                11.8432}, {7., 13.9202}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{11.8746, 21.3633}, {11.8746, 18.3563}, {
                11.9996, 18.3033}, {12.1246, 18.3563}, {12.1246, 21.3633}, {
                11.9996, 21.4153}}}]}, {
               FaceForm[{
                 RGBColor[0.749, 0.749, 0.749], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                 3}}}, {{{8.292, 19.8594}, {12., 21.4154}, {15.707, 
                 19.8594}, {12., 18.3034}}, {{17.5, 19.5274}, {17.5, 
                 20.1924}, {12., 22.5004}, {6.5, 20.1924}, {6.5, 19.5284}, {
                 12., 17.2194}, {12., 17.2194}, {15.7, 18.7724}, {17.5, 
                 19.5274}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{11.5, 8.5156}, {11.5, 6.4876}, {11.5, 
                5.4026}, {12.5, 5.8226}, {12.5, 8.5156}, {12., 8.3056}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}}}, {{{21.5, 6.4873}, {17.5, 4.8083}, {17.5, 
                 9.5283}, {21.5, 11.2073}}, {{21.5, 12.7113}, {21.5, 
                 12.2913}, {17., 10.4033}, {16.5, 10.6133}, {16.5, 10.1943}, {
                 15.707, 9.8613}, {16.5, 9.5283}, {16.5, 4.8083}, {16.5, 
                 4.8093}, {16.5, 4.3903}, {15.707, 4.0573}, {17., 3.5143}, {
                 22.5, 5.8223}, {22.5, 12.2913}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}}}, {{{6.5, 4.8086}, {2.5, 6.4876}, {2.5, 
                 11.2066}, {6.5, 9.5286}}, {{7.5, 9.1096}, {7.5, 9.1096}, {
                 7.5, 9.5286}, {8.292, 9.8616}, {7.5, 10.1936}, {7.5, 
                 10.6136}, {7., 10.4036}, {2.5, 12.2906}, {2.5, 12.7106}, {
                 1.5, 12.2916}, {1.5, 5.8226}, {7., 3.5146}, {8.293, 
                 4.0576}, {7.5, 4.3906}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{3.2925, 17.7622}, {7.0005, 
                 19.3182}, {10.7075, 17.7622}, {7.0005, 16.2062}}, {{6.5005, 
                 10.6122}, {2.5005, 12.2912}, {2.5005, 17.0102}, {6.5005, 
                 15.3322}}, {{7.5005, 10.1932}, {7.5005, 10.6122}, {7.5005, 
                 15.3322}, {12.0005, 17.2202}, {12.5005, 17.0102}, {12.5005, 
                 18.0952}, {7.0005, 20.4032}, {1.5005, 18.0952}, {1.5005, 
                 11.6262}, {7.0005, 9.3182}, {8.2935, 9.8612}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{21.5, 12.291}, {17.5, 10.612}, {
                 17.5, 15.332}, {21.5, 17.01}}, {{13.293, 17.762}, {17., 
                 19.318}, {20.708, 17.762}, {17., 16.207}}, {{17., 20.403}, {
                 11.5, 18.095}, {11.5, 17.01}, {12., 17.22}, {16.5, 15.332}, {
                 16.5, 10.612}, {16.5, 10.194}, {15.706, 9.861}, {17., 
                 9.318}, {22.5, 11.626}, {22.5, 18.095}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                 0, 1, 0}, {0, 1, 0}}}, {{{16.4995, 4.3906}, {12.4995, 
                 2.7116}, {12.4995, 7.4316}, {16.4995, 9.1096}}, {{11.4995, 
                 2.7116}, {7.4995, 4.3906}, {7.4995, 9.1096}, {11.4995, 
                 7.4316}}, {{16.4995, 10.6136}, {16.4995, 10.1946}, {11.9995, 
                 8.3056}, {8.2915, 9.8616}, {7.4995, 10.1936}, {7.4995, 
                 10.6146}, {6.4995, 10.1946}, {6.4995, 3.7256}, {11.9995, 
                 1.4176}, {17.4995, 3.7256}, {17.4995, 10.1946}}}]}, {
               FaceForm[{
                 RGBColor[0.965, 0.765, 0.749], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}}}, {{{12., 17.6616}, {16.945, 15.5856}, {16.945, 
                9.9376}, {12., 7.8636}, {7.055, 9.9376}, {7.055, 
                15.5856}}}]}, {
               FaceForm[{
                 RGBColor[0.91, 0.655, 0.635], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12.125, 
                17.7627}, {11.875, 17.7627}, {11.875, 12.0407}, {6.952, 
                9.9757}, {7.048, 9.7447}, {12., 11.8227}, {16.952, 9.7447}, {
                17.048, 9.9757}, {12.125, 12.0407}}}]}, {
               FaceForm[{
                 RGBColor[0.867, 0.067, 0.], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                 0}}}, {{{12.5, 8.5146}, {12.5, 13.2336}, {16.5, 14.9116}, {
                 16.5, 10.1926}}, {{7.5, 14.9116}, {11.5, 13.2336}, {11.5, 
                 8.5146}, {7.5, 10.1926}}, {{15.708, 15.6636}, {12., 
                 14.1086}, {8.292, 15.6636}, {12., 17.2206}}, {{12., 
                 18.3046}, {6.5, 15.9956}, {6.5, 9.5286}, {12., 7.2206}, {
                 17.5, 9.5286}, {17.5, 15.9956}}}]}}, AspectRatio -> 
             Automatic, ImageSize -> {24., 24.}, 
             PlotRange -> {{0., 24.}, {0., 24.}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"ThermoFAST\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"2.3.0\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Location: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                 "\"C:\\\\Users\\\\pfall\\\\AppData\\\\Roaming\\\\Wolfram\\\\\
Paclets\\\\Repository\\\\ThermoFAST-2.3.0\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TagBox[
                  "\"A Wolfram Language interface for ThermoFAST, a \
thermodynamic property calculator.\"", Short], "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  PacletObject[<|
   "Name" -> "ThermoFAST", "Version" -> "2.3.0", 
    "SystemID" -> {"Windows-x86-64"}, "WolframVersion" -> "13+", "Creator" -> 
    "peter.falloon@uwa.edu.au", "Description" -> 
    "A Wolfram Language interface for ThermoFAST, a thermodynamic property \
calculator.", 
    "Extensions" -> {{
      "Kernel", "Root" -> "Kernel", "Context" -> "ThermoFAST`"}, {
      "Asset", "Root" -> "Windows", "SystemID" -> "Windows-x86-64", 
       "Assets" -> {{"tf64_dll", "ThermoFAST64.dll"}}}}, "Location" -> 
    "C:\\Users\\pfall\\AppData\\Roaming\\Wolfram\\Paclets\\Repository\\\
ThermoFAST-2.3.0"|>],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.957904864034231*^9, 3.9781488744636345`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"c00ab2b6-e571-9e43-b0ca-9846be429335"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Information", "[", "p", "]"}]], "Input",
 CellChangeTimes->{{3.9579048597816105`*^9, 3.957904862433069*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"a6db737c-2166-c94a-b7b6-321be12c773a"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    TagBox[GridBox[{
       {
        ItemBox[
         PaneBox[
          StyleBox[
           TagBox[
            TooltipBox[
             StyleBox["\<\" Paclet\"\>", "InformationRowLabel",
              StripOnInput->False],
             "\"Paclet\"",
             TooltipStyle->"TextStyling"],
            Annotation[#, "Paclet", "Tooltip"]& ], "InformationTitleText",
           StripOnInput->False],
          FrameMargins->{{4, 0}, {-1, 1}}],
         BaseStyle->"InformationTitleBackground",
         StripOnInput->False]},
       {
        PaneBox[GridBox[{
           {
            
            DynamicModuleBox[{System`InformationDump`open$$ = {
             False, False, False, False, False, False, False, False, False, 
              False, False, False, False, False}}, 
             StyleBox[GridBox[{
                {
                 TagBox[
                  TooltipBox[
                   StyleBox["\<\" Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                   "\"Name\"",
                   TooltipStyle->"TextStyling"],
                  Annotation[#, "Name", "Tooltip"]& ], "\<\"ThermoFAST\"\>"},
                {
                 TagBox[
                  TooltipBox[
                   StyleBox["\<\" Version\"\>", "InformationRowLabel",
                    StripOnInput->False],
                   "\"Version\"",
                   TooltipStyle->"TextStyling"],
                  Annotation[#, "Version", "Tooltip"]& ], "\<\"2.3.0\"\>"},
                {
                 TagBox[
                  TooltipBox[
                   StyleBox["\<\" Wolfram Version\"\>", "InformationRowLabel",
                    StripOnInput->False],
                   "\"WolframVersion\"",
                   TooltipStyle->"TextStyling"],
                  
                  Annotation[#, "WolframVersion", 
                   "Tooltip"]& ], "\<\"13+\"\>"},
                {
                 TagBox[
                  TooltipBox[
                   StyleBox["\<\" Qualifier\"\>", "InformationRowLabel",
                    StripOnInput->False],
                   "\"Qualifier\"",
                   TooltipStyle->"TextStyling"],
                  Annotation[#, "Qualifier", "Tooltip"]& ], "\<\"\"\>"},
                {
                 TagBox[
                  TooltipBox[
                   StyleBox["\<\" System ID\"\>", "InformationRowLabel",
                    StripOnInput->False],
                   "\"SystemID\"",
                   TooltipStyle->"TextStyling"],
                  Annotation[#, "SystemID", "Tooltip"]& ], 
                 RowBox[{"{", "\<\"Windows-x86-64\"\>", "}"}]},
                {
                 TagBox[
                  TooltipBox[
                   StyleBox["\<\" Description\"\>", "InformationRowLabel",
                    StripOnInput->False],
                   "\"Description\"",
                   TooltipStyle->"TextStyling"],
                  
                  Annotation[#, "Description", 
                   "Tooltip"]& ], "\<\"A Wolfram Language interface for \
ThermoFAST, a thermodynamic property calculator.\"\>"},
                {
                 TagBox[
                  TooltipBox[
                   StyleBox["\<\" Creator\"\>", "InformationRowLabel",
                    StripOnInput->False],
                   "\"Creator\"",
                   TooltipStyle->"TextStyling"],
                  
                  Annotation[#, "Creator", 
                   "Tooltip"]& ], "\<\"peter.falloon@uwa.edu.au\"\>"},
                {
                 TagBox[
                  TooltipBox[
                   StyleBox["\<\" Context\"\>", "InformationRowLabel",
                    StripOnInput->False],
                   "\"Context\"",
                   TooltipStyle->"TextStyling"],
                  Annotation[#, "Context", "Tooltip"]& ], 
                 RowBox[{"{", "\<\"ThermoFAST`\"\>", "}"}]},
                {
                 TagBox[
                  TooltipBox[
                   StyleBox["\<\" Loading\"\>", "InformationRowLabel",
                    StripOnInput->False],
                   "\"Loading\"",
                   TooltipStyle->"TextStyling"],
                  Annotation[#, "Loading", "Tooltip"]& ], "Manual"},
                {
                 TagBox[
                  TooltipBox[
                   StyleBox["\<\" Auto Updating\"\>", "InformationRowLabel",
                    StripOnInput->False],
                   "\"AutoUpdating\"",
                   TooltipStyle->"TextStyling"],
                  Annotation[#, "AutoUpdating", "Tooltip"]& ], "False"},
                {
                 TagBox[
                  TooltipBox[
                   
                   StyleBox["\<\" Is Prerelease Version\"\>", 
                    "InformationRowLabel",
                    StripOnInput->False],
                   "\"IsPrereleaseVersion\"",
                   TooltipStyle->"TextStyling"],
                  Annotation[#, "IsPrereleaseVersion", "Tooltip"]& ], "False"},
                {
                 TagBox[
                  TooltipBox[
                   StyleBox["\<\" Enabled\"\>", "InformationRowLabel",
                    StripOnInput->False],
                   "\"Enabled\"",
                   TooltipStyle->"TextStyling"],
                  Annotation[#, "Enabled", "Tooltip"]& ], "True"},
                {
                 TagBox[
                  TooltipBox[
                   StyleBox["\<\" Location\"\>", "InformationRowLabel",
                    StripOnInput->False],
                   "\"Location\"",
                   TooltipStyle->"TextStyling"],
                  
                  Annotation[#, "Location", 
                   "Tooltip"]& ], \
"\<\"C:\\\\Users\\\\pfall\\\\AppData\\\\Roaming\\\\Wolfram\\\\Paclets\\\\\
Repository\\\\ThermoFAST-2.3.0\"\>"}
               },
               AutoDelete->False,
               GridBoxAlignment->{"Columns" -> {Right, Left}},
               GridBoxDividers->None,
               GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                   Offset[0.27999999999999997`]}, "Rows" -> {
                   Offset[0.2], {
                    Offset[0.8]}, 
                   Offset[0.2]}}], "DialogStyle",
              StripOnInput->False],
             DynamicModuleValues:>{}]}
          },
          DefaultBaseStyle->"Column",
          GridBoxAlignment->{"Columns" -> {{Left}}},
          GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[3.6]}, 
              Offset[0.2]}}],
         FrameMargins->6,
         ScrollPosition->{0., 0.}]}
      },
      DefaultBaseStyle->"Column",
      FrameStyle->Directive[
        LightDarkSwitched[
         GrayLevel[0.8]], 
        Thickness[Tiny]],
      GridBoxAlignment->{"Columns" -> {{Left}}},
      GridBoxDividers->{
       "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
     "Column"],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Paclet", "Name" -> "ThermoFAST", "Version" -> "2.3.0", 
    "WolframVersion" -> "13+", "Qualifier" -> "", 
    "SystemID" -> {"Windows-x86-64"}, "Description" -> 
    "A Wolfram Language interface for ThermoFAST, a thermodynamic property \
calculator.", "Creator" -> "peter.falloon@uwa.edu.au", 
    "Context" -> {"ThermoFAST`"}, "Loading" -> Manual, "AutoUpdating" -> 
    False, "IsPrereleaseVersion" -> False, "Enabled" -> True, "Location" -> 
    "C:\\Users\\pfall\\AppData\\Roaming\\Wolfram\\Paclets\\Repository\\\
ThermoFAST-2.3.0"|>, True]]], "Output",
 CellChangeTimes->{3.9579048670134926`*^9, 3.978148878566551*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"07c3fbe9-090c-9c4a-a60f-ff62456e9712"]
}, Open  ]],

Cell["\<\
A given version of the paclet only needs to be installed once, after which \
the package will be available as discussed in the following section.\
\>", "Text",
 CellChangeTimes->{{3.957904777119137*^9, 
  3.957904833373434*^9}},ExpressionUUID->"30bdf1fc-869c-8f4f-bf20-\
d5e0cfc9fb7c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Loading the package", "Section",
 CellChangeTimes->{{3.957904353951292*^9, 
  3.9579043576781883`*^9}},ExpressionUUID->"6f63d373-9aaf-c14d-b3b3-\
c3ae2fd3fa26"],

Cell["\<\
After installing the paclet, the package needs to be loaded into the current \
session:\
\>", "Text",
 CellChangeTimes->{{3.9103472815259542`*^9, 3.910347297708175*^9}, {
  3.9579049167915783`*^9, 
  3.957904936639778*^9}},ExpressionUUID->"a0660293-d92e-4513-846b-\
327d32e5c524"],

Cell[BoxData[
 RowBox[{"<<", "ThermoFAST`"}]], "Input",
 CellLabel->"In[13]:=",ExpressionUUID->"ebdf8e48-434b-4370-83b0-2bd4ab414914"],

Cell[TextData[{
 "Note that because the package is now coming from an installed paclet, there \
is no longer any need to modify ",
 StyleBox["$Path",
  FontWeight->"Bold"],
 " as was done in earlier releases."
}], "Text",
 CellChangeTimes->{{3.9103474458310394`*^9, 3.9103474772100797`*^9}, {
  3.957904944159092*^9, 
  3.957904987560951*^9}},ExpressionUUID->"638cbcd0-1208-4259-8fc6-\
b116352f962b"],

Cell["\<\
The remainder of this notebook gives an overview of the package functionality.\
\>", "Text",
 CellChangeTimes->{{3.957904995191799*^9, 
  3.9579050083606377`*^9}},ExpressionUUID->"6a6892a1-0ceb-cd4a-a5ee-\
93b3758bf840"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Pressure-Temperature Flash calculation", "Section",
 CellChangeTimes->{{3.9103475124742107`*^9, 3.9103475202382536`*^9}, {
  3.9106513151854196`*^9, 3.910651325775079*^9}, {3.9106518885543966`*^9, 
  3.9106518940780053`*^9}},ExpressionUUID->"9e1589e7-c594-4e81-aed2-\
0bd98580094d"],

Cell["\<\
Most of the functions in ThermoFAST are based on the pT-flash calculation, so \
it is a natural starting point for exploring the package.\
\>", "Text",
 CellChangeTimes->{{3.910347522152736*^9, 3.910347572648122*^9}, {
  3.978148935031107*^9, 
  3.97814894983659*^9}},ExpressionUUID->"5dc7931e-8d96-4fe5-b233-\
497f0b8ccfec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "FlashPTSolve"}]], "Input",
 CellChangeTimes->{{3.91034758336992*^9, 3.9103475877605815`*^9}, {
  3.957905022257677*^9, 3.9579050311696606`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"b959c7c5-bd4d-49dc-b28c-b5e8c60c4b1a"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"FlashPTSolve[feed, p, T] performs a pT-flash \
calculation at the given pressure and temperature. Default units of pressure \
and temperature are MPa and K.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"FlashPTSolve", "[", 
                    
                    RowBox[{
                    "ThermoFAST`Private`feed_", ",", "ThermoFAST`Private`p_", 
                    ",", "ThermoFAST`Private`T_"}], "]"}], ":=", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`arg1", "=", 
                    
                    RowBox[{"ThermoFAST`Private`quantityMagnitudeWithDefault",
                     "[", 
                    RowBox[{"ThermoFAST`Private`p", ",", "\"Megapascals\""}], 
                    "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`arg2", "=", 
                    
                    RowBox[{"ThermoFAST`Private`quantityMagnitudeWithDefault",
                     "[", 
                    RowBox[{"ThermoFAST`Private`T", ",", "\"Kelvins\""}], 
                    "]"}]}]}], "}"}], ",", 
                    RowBox[{"ThermoFAST`Private`flashSolve", "[", 
                    
                    RowBox[{"TFFlashTypPt", ",", "ThermoFAST`Private`feed", 
                    ",", "ThermoFAST`Private`arg1", ",", 
                    "ThermoFAST`Private`arg2"}], "]"}]}], "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"ThermoFAST`FlashPTSolve\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"FlashPTSolve[feed, p, T] performs a pT-flash \
calculation at the given pressure and temperature. Default units of pressure \
and temperature are MPa and K.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "FlashPTSolve[feed, p, T] performs a pT-flash calculation at the given \
pressure and temperature. Default units of pressure and temperature are MPa \
and K.", "Documentation" -> None, "OwnValues" -> None, "UpValues" -> None, 
    "DownValues" -> 
    Information`InformationValueForm[
     DownValues, ThermoFAST`FlashPTSolve, {ThermoFAST`FlashPTSolve[
         Pattern[ThermoFAST`Private`feed, 
          Blank[]], 
         Pattern[ThermoFAST`Private`p, 
          Blank[]], 
         Pattern[ThermoFAST`Private`T, 
          Blank[]]] :> 
       Module[{ThermoFAST`Private`arg1 = 
          ThermoFAST`Private`quantityMagnitudeWithDefault[
           ThermoFAST`Private`p, "Megapascals"], ThermoFAST`Private`arg2 = 
          ThermoFAST`Private`quantityMagnitudeWithDefault[
           ThermoFAST`Private`T, "Kelvins"]}, 
         ThermoFAST`Private`flashSolve[
         ThermoFAST`TFFlashTypPt, ThermoFAST`Private`feed, 
          ThermoFAST`Private`arg1, ThermoFAST`Private`arg2]]}], "SubValues" -> 
    None, "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> None, "Attributes" -> {}, "FullName" -> 
    "ThermoFAST`FlashPTSolve"|>, False]]], "Output",
 CellChangeTimes->{3.9579050322517166`*^9, 3.9579068197531834`*^9, 
  3.9781489531097546`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"e5a3b3fd-3628-3644-ba34-4b548e8227c9"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Defining the feed", "Subsection",
 CellChangeTimes->{{3.910347781014181*^9, 3.9103477862228065`*^9}, {
  3.957905131480219*^9, 
  3.9579051339519176`*^9}},ExpressionUUID->"0397c2fe-66b4-4d18-a8c4-\
43bf79306cbd"],

Cell[TextData[{
 "The first step is to specify the mixture and model settings in the form of \
a ",
 StyleBox["FeedModel",
  FontWeight->"Bold"],
 ":"
}], "Text",
 CellChangeTimes->{{3.9103475751555004`*^9, 3.910347598830938*^9}, {
  3.957905119416231*^9, 
  3.957905145729414*^9}},ExpressionUUID->"253831e5-5cca-431e-a055-\
42aa600a926b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "FeedModel"}]], "Input",
 CellChangeTimes->{{3.9579051499327736`*^9, 3.9579051525379543`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"34e4dd17-7b8d-9a48-b0d5-24353a45fc2f"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"FeedModel[mixture, opts] returns an object \
containing feed composition and model parameters. The mixture argument is a \
list of rules of the form \\\"<<compName>>\\\" -> <<molarFraction>> or \
\\\"<<compName>>\\\" -> {<<molarFraction>>,<<canFormSolid>>}.\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  
                  StyleBox["\<\" SubValue Definitions\"\>", 
                   "InformationRowLabel",
                   StripOnInput->False],
                  "\"SubValues\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "SubValues", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{
                    "FeedModel", "[", "ThermoFAST`Private`assoc_Association", 
                    "]"}], "[", "\"Properties\"", "]"}], ":=", 
                    RowBox[{"Join", "[", 
                    RowBox[{
                    RowBox[{"Keys", "[", "ThermoFAST`Private`assoc", "]"}], 
                    ",", 
                    RowBox[{"Keys", "[", "\"Components\"", "]"}], ",", 
                    RowBox[{"Keys", "[", "\"Models\"", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\"ComponentNames\"", ",", "\"Count\""}], "}"}]}],
                     "]"}]}]}, {" "}, {
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{
                    "FeedModel", "[", "ThermoFAST`Private`assoc_Association", 
                    "]"}], "[", "ThermoFAST`Private`key_String", "]"}], "/;", 
                    RowBox[{"KeyExistsQ", "[", 
                    
                    RowBox[{
                    "ThermoFAST`Private`assoc", ",", 
                    "ThermoFAST`Private`key"}], "]"}]}], ":=", 
                    
                    RowBox[{
                    "ThermoFAST`Private`assoc", "[", "ThermoFAST`Private`key",
                     "]"}]}]}, {" "}, {
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{
                    "FeedModel", "[", "ThermoFAST`Private`assoc_Association", 
                    "]"}], "[", "ThermoFAST`Private`key_String", "]"}], "/;", 
                    RowBox[{"KeyExistsQ", "[", 
                    RowBox[{
                    
                    RowBox[{"ThermoFAST`Private`assoc", "[", "\"Components\"",
                     "]"}], ",", "ThermoFAST`Private`key"}], "]"}]}], ":=", 
                    RowBox[{
                    
                    RowBox[{
                    "ThermoFAST`Private`assoc", "[", "\"Components\"", "]"}], 
                    "[", "ThermoFAST`Private`key", "]"}]}]}, {" "}, {
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{
                    "FeedModel", "[", "ThermoFAST`Private`assoc_Association", 
                    "]"}], "[", "ThermoFAST`Private`key_", "]"}], "/;", 
                    RowBox[{"KeyExistsQ", "[", 
                    RowBox[{
                    
                    RowBox[{"ThermoFAST`Private`assoc", "[", "\"Models\"", 
                    "]"}], ",", "ThermoFAST`Private`key"}], "]"}]}], ":=", 
                    RowBox[{
                    
                    RowBox[{
                    "ThermoFAST`Private`assoc", "[", "\"Models\"", "]"}], "[",
                     "ThermoFAST`Private`key", "]"}]}]}, {" "}, {
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{
                    "FeedModel", "[", "ThermoFAST`Private`assoc_Association", 
                    "]"}], "[", "\"ComponentNames\"", "]"}], ":=", 
                    RowBox[{"Keys", "[", 
                    
                    RowBox[{
                    "ThermoFAST`Private`assoc", "[", "\"Components\"", "]"}], 
                    "]"}]}]}, {" "}, {
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{
                    "FeedModel", "[", "ThermoFAST`Private`assoc_Association", 
                    "]"}], "[", "\"Count\"", "]"}], ":=", 
                    RowBox[{"Length", "[", 
                    
                    RowBox[{
                    "ThermoFAST`Private`assoc", "[", "\"Components\"", "]"}], 
                    "]"}]}]}, {" "}, {
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{
                    "FeedModel", "[", "ThermoFAST`Private`assoc_Association", 
                    "]"}], "[", 
                    RowBox[{
                    RowBox[{"All", "|", "\"Components\""}], ",", 
                    "ThermoFAST`Private`key_"}], "]"}], ":=", 
                    RowBox[{
                    
                    RowBox[{
                    "ThermoFAST`Private`assoc", "[", "\"Components\"", "]"}], 
                    "\[LeftDoubleBracket]", 
                    RowBox[{"All", ",", "ThermoFAST`Private`key"}], 
                    "\[RightDoubleBracket]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]},
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  
                  StyleBox["\<\" DownValue Definitions\"\>", 
                   "InformationRowLabel",
                   StripOnInput->False],
                  "\"DownValues\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "DownValues", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"FeedModel", "[", 
                    RowBox[{"ThermoFAST`Private`mixture_List", ",", 
                    RowBox[{"ThermoFAST`Private`opts", ":", 
                    RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`nComps", "=", 
                    
                    RowBox[{"Length", "[", "ThermoFAST`Private`mixture", 
                    "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`compSyns", "=", 
                    
                    RowBox[{"ThermoFAST`Private`mixture", 
                    "\[LeftDoubleBracket]", 
                    RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]}], 
                    ",", 
                    RowBox[{"ThermoFAST`Private`compIds", "=", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"TFGetBuiltinCompId", "[", "#1", "]"}], "[", 
                    "\"id\"", "]"}], "&"}], ")"}], "/@", 
                    
                    RowBox[{"ThermoFAST`Private`mixture", 
                    "\[LeftDoubleBracket]", 
                    RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]}]}], 
                    ",", 
                    RowBox[{"ThermoFAST`Private`weights", "=", 
                    RowBox[{"Replace", "[", 
                    RowBox[{
                    RowBox[{"Replace", "[", 
                    RowBox[{
                    
                    RowBox[{"ThermoFAST`Private`mixture", 
                    "\[LeftDoubleBracket]", 
                    RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"ThermoFAST`Private`w1_", ",", "_"}], "}"}], 
                    "\[RuleDelayed]", "ThermoFAST`Private`w1"}], ",", 
                    RowBox[{"{", "1", "}"}]}], "]"}], ",", 
                    
                    RowBox[{"ThermoFAST`Private`w2_Quantity", 
                    "\[RuleDelayed]", 
                    RowBox[{"QuantityMagnitude", "[", 
                    RowBox[{"ThermoFAST`Private`w2", ",", 
                    FractionBox["\"Moles\"", "\"Moles\""]}], "]"}]}], ",", 
                    RowBox[{"{", "1", "}"}]}], "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`canFormSolidQ", "=", 
                    RowBox[{"Replace", "[", 
                    RowBox[{
                    
                    RowBox[{"ThermoFAST`Private`mixture", 
                    "\[LeftDoubleBracket]", 
                    RowBox[{"All", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"_", ",", "ThermoFAST`Private`q_"}], "}"}], 
                    "\[RuleDelayed]", "ThermoFAST`Private`q"}], ",", 
                    RowBox[{"_", "\[Rule]", "True"}]}], "}"}], ",", 
                    RowBox[{"{", "1", "}"}]}], "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`fluidModel", "=", 
                    RowBox[{"ThermoFAST`Private`getModelName", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "FluidModel", "]"}], ",", 
                    "ThermoFAST`Private`$FluidModelNameLU"}], "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`solidModel", "=", 
                    RowBox[{"ThermoFAST`Private`getModelName", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "SolidModel", "]"}], ",", 
                    "ThermoFAST`Private`$SolidModelNameLU"}], "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`hydrateModel", "=", 
                    RowBox[{"ThermoFAST`Private`getModelName", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "HydrateModel", "]"}], ",", 
                    "ThermoFAST`Private`$HydrateModelNameLU"}], "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`hydrateType", "=", 
                    RowBox[{"ThermoFAST`Private`getModelName", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "HydrateFormationType", "]"}],
                     ",", "ThermoFAST`Private`$HydrateFormationTypeNameLU"}], 
                    "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`transportModel", "=", 
                    RowBox[{"ThermoFAST`Private`getModelName", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "TransportModel", "]"}], ",", 
                    "ThermoFAST`Private`$TransportModelNameLU"}], "]"}]}], 
                    ",", 
                    RowBox[{"ThermoFAST`Private`bipOpt", "=", 
                    RowBox[{"ThermoFAST`Private`getModelName", "[", 
                    RowBox[{
                    
                    RowBox[{"OptionValue", "[", "BinaryInteractionParameters",
                     "]"}], ",", "ThermoFAST`Private`$BIPTypeNameLU"}], 
                    "]"}]}], ",", "ThermoFAST`Private`fluidModelId", ",", 
                    "ThermoFAST`Private`solidModelId", ",", 
                    "ThermoFAST`Private`hydrateModelId", ",", 
                    "ThermoFAST`Private`hydrateTypeId", ",", 
                    "ThermoFAST`Private`transportModelId", ",", 
                    "ThermoFAST`Private`bipTypeId", ",", 
                    "ThermoFAST`Private`bips", ",", "ThermoFAST`Private`res", 
                    ",", "ThermoFAST`Private`modelValues", ",", 
                    "ThermoFAST`Private`feed"}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"FreeQ", "[", 
                    RowBox[{"ThermoFAST`Private`compIds", ",", "$Failed"}], 
                    "]"}]}], ",", 
                    RowBox[{
                    RowBox[{"Do", "[", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"FreeQ", "[", 
                    RowBox[{
                    
                    RowBox[{"ThermoFAST`Private`compIds", 
                    "\[LeftDoubleBracket]", "ThermoFAST`Private`k", 
                    "\[RightDoubleBracket]"}], ",", "$Failed"}], "]"}]}], ",", 
                    RowBox[{"Message", "[", 
                    RowBox[{
                    StyleBox[
                    RowBox[{"ThermoFAST", "::", "nocmp"}], "MessageName"], 
                    ",", 
                    
                    RowBox[{"ThermoFAST`Private`compSyns", 
                    "\[LeftDoubleBracket]", "ThermoFAST`Private`k", 
                    "\[RightDoubleBracket]"}]}], "]"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"ThermoFAST`Private`k", ",", 
                    "ThermoFAST`Private`nComps"}], "}"}]}], "]"}], ";", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";", 
                    RowBox[{"ThermoFAST`Private`fluidModelId", "=", 
                    RowBox[{"ThermoFAST`Private`getModelId", "[", 
                    
                    RowBox[{"ThermoFAST`Private`fluidModel", ",", 
                    "ThermoFAST`Private`$FluidModelCodeLU"}], "]"}]}], ";", 
                    RowBox[{"ThermoFAST`Private`solidModelId", "=", 
                    RowBox[{"ThermoFAST`Private`getModelId", "[", 
                    
                    RowBox[{"ThermoFAST`Private`solidModel", ",", 
                    "ThermoFAST`Private`$SolidModelCodeLU"}], "]"}]}], ";", 
                    RowBox[{"ThermoFAST`Private`hydrateModelId", "=", 
                    RowBox[{"ThermoFAST`Private`getModelId", "[", 
                    
                    RowBox[{"ThermoFAST`Private`hydrateModel", ",", 
                    "ThermoFAST`Private`$HydrateModelCodeLU"}], "]"}]}], ";", 
                    RowBox[{"ThermoFAST`Private`hydrateTypeId", "=", 
                    RowBox[{"ThermoFAST`Private`getModelId", "[", 
                    
                    RowBox[{"ThermoFAST`Private`hydrateType", ",", 
                    "ThermoFAST`Private`$HydrateFormationTypeCodeLU"}], 
                    "]"}]}], ";", 
                    RowBox[{"ThermoFAST`Private`transportModelId", "=", 
                    RowBox[{"ThermoFAST`Private`getModelId", "[", 
                    
                    RowBox[{"ThermoFAST`Private`transportModel", ",", 
                    "ThermoFAST`Private`$TransportModelCodeLU"}], "]"}]}], 
                    ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"FreeQ", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    
                    RowBox[{"ThermoFAST`Private`fluidModelId", ",", 
                    "ThermoFAST`Private`solidModelId", ",", 
                    "ThermoFAST`Private`hydrateModelId", ",", 
                    "ThermoFAST`Private`hydrateTypeId", ",", 
                    "ThermoFAST`Private`transportModelId"}], "}"}], ",", 
                    "_Missing"}], "]"}]}], ",", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}], "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`bipOpt", "=!=", "Automatic"}],
                     ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    
                    RowBox[{"ThermoFAST`Private`bipTypeId", ",", 
                    "ThermoFAST`Private`bips"}], "}"}], "=", 
                    RowBox[{"ThermoFAST`Private`getBipArgs", "[", 
                    
                    RowBox[{"ThermoFAST`Private`nComps", ",", 
                    "ThermoFAST`Private`bipOpt"}], "]"}]}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    
                    RowBox[{"ThermoFAST`Private`bipTypeId", "===", 
                    "$Failed"}], ",", 
                    RowBox[{
                    RowBox[{"Message", "[", 
                    RowBox[{
                    StyleBox[
                    RowBox[{"ThermoFAST", "::", "invbip"}], "MessageName"], 
                    ",", 
                    
                    RowBox[{"OptionValue", "[", "BinaryInteractionParameters",
                     "]"}]}], "]"}], ";", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}]}]}], 
                    "]"}], ";", 
                    RowBox[{"ThermoFAST`Private`feed", "=", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Components\"", "\[Rule]", 
                    RowBox[{"Association", "@@", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"TFGetBuiltinCompName", "[", 
                    
                    RowBox[{"ThermoFAST`Private`compIds", 
                    "\[LeftDoubleBracket]", "ThermoFAST`Private`i", 
                    "\[RightDoubleBracket]"}], "]"}], "[", "\"name\"", "]"}], 
                    "\[Rule]", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"\"Id\"", "\[Rule]", 
                    
                    RowBox[{"ThermoFAST`Private`compIds", 
                    "\[LeftDoubleBracket]", "ThermoFAST`Private`i", 
                    "\[RightDoubleBracket]"}]}], ",", 
                    RowBox[{"\"Molar Fraction\"", "\[Rule]", 
                    RowBox[{"Quantity", "[", 
                    RowBox[{
                    
                    RowBox[{"ThermoFAST`Private`weights", 
                    "\[LeftDoubleBracket]", "ThermoFAST`Private`i", 
                    "\[RightDoubleBracket]"}], ",", 
                    FractionBox["\"Moles\"", "\"Moles\""]}], "]"}]}], ",", 
                    RowBox[{"\"Can Form Solid\"", "\[Rule]", 
                    
                    RowBox[{"ThermoFAST`Private`canFormSolidQ", 
                    "\[LeftDoubleBracket]", "ThermoFAST`Private`i", 
                    "\[RightDoubleBracket]"}]}]}], "]"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"ThermoFAST`Private`i", ",", 
                    
                    RowBox[{"Length", "[", "ThermoFAST`Private`mixture", 
                    "]"}]}], "}"}]}], "]"}]}]}], ",", 
                    RowBox[{"\"ModelOverrides\"", "\[Rule]", 
                    RowBox[{"Association", "@@", 
                    RowBox[{"DeleteCases", "[", 
                    RowBox[{
                    RowBox[{"Thread", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    
                    RowBox[{"FluidModel", ",", "SolidModel", ",", 
                    "HydrateModel", ",", "HydrateFormationType", ",", 
                    "TransportModel", ",", "BinaryInteractionParameters"}], 
                    "}"}], "\[Rule]", 
                    RowBox[{"{", 
                    
                    RowBox[{"ThermoFAST`Private`fluidModel", ",", 
                    "ThermoFAST`Private`solidModel", ",", 
                    "ThermoFAST`Private`hydrateModel", ",", 
                    "ThermoFAST`Private`hydrateType", ",", 
                    "ThermoFAST`Private`transportModel", ",", 
                    "ThermoFAST`Private`bipOpt"}], "}"}]}], "]"}], ",", 
                    RowBox[{"_", "\[Rule]", "Automatic"}]}], "]"}]}]}], ",", 
                    RowBox[{"\"dllArgs\"", "\[Rule]", 
                    RowBox[{"Join", "[", 
                    RowBox[{
                    RowBox[{"Association", "[", 
                    RowBox[{
                    
                    RowBox[{"\"n_comps\"", "\[Rule]", 
                    "ThermoFAST`Private`nComps"}], ",", 
                    
                    RowBox[{"\"comp_ids\"", "\[Rule]", 
                    "ThermoFAST`Private`compIds"}], ",", 
                    
                    RowBox[{"\"weights\"", "\[Rule]", 
                    "ThermoFAST`Private`weights"}], ",", 
                    
                    RowBox[{"\"can_form_solid\"", "\[Rule]", 
                    "ThermoFAST`Private`canFormSolidQ"}], ",", 
                    
                    RowBox[{"\"fluid_model\"", "\[Rule]", 
                    "ThermoFAST`Private`fluidModelId"}], ",", 
                    RowBox[{"\"solid_model\"", "\[Rule]", 
                    "ThermoFAST`Private`solidModelId"}], ",", 
                    
                    RowBox[{"\"transport_model\"", "\[Rule]", 
                    "ThermoFAST`Private`transportModelId"}], ",", 
                    
                    RowBox[{"\"hydrate_model\"", "\[Rule]", 
                    "ThermoFAST`Private`hydrateModelId"}], ",", 
                    
                    RowBox[{"\"hydrate_type\"", "\[Rule]", 
                    "ThermoFAST`Private`hydrateTypeId"}]}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`bipOpt", "=!=", "Automatic"}],
                     ",", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    
                    RowBox[{"\"bip_type\"", "\[Rule]", 
                    "ThermoFAST`Private`bipTypeId"}], ",", 
                    
                    RowBox[{"\"bips\"", "\[Rule]", 
                    "ThermoFAST`Private`bips"}]}], "]"}], ",", 
                    RowBox[{"Association", "[", "]"}]}], "]"}]}], "]"}]}]}], 
                    "]"}]}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`setDllUserFeed", "[", 
                    
                    RowBox[{"FeedModel", "[", "ThermoFAST`Private`feed", 
                    "]"}], "]"}], "===", "$Failed"}], ",", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}], "]"}], ";", 
                    RowBox[{"ThermoFAST`Private`modelValues", "=", 
                    RowBox[{"TFGetFeedModels", "[", "]"}]}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    
                    RowBox[{"ThermoFAST`Private`modelValues", "===", 
                    "$Failed"}], ",", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}], "]"}], ";", 
                    RowBox[{
                    
                    RowBox[{"ThermoFAST`Private`feed", "[", "\"Models\"", 
                    "]"}], "=", 
                    RowBox[{"Association", "[", 
                    RowBox[{
                    RowBox[{"FluidModel", "\[Rule]", 
                    RowBox[{"ThermoFAST`Private`$FluidModelNameLU", "[", 
                    
                    RowBox[{"ThermoFAST`Private`modelValues", "[", 
                    "\"fluid_model\"", "]"}], "]"}]}], ",", 
                    RowBox[{"SolidModel", "\[Rule]", 
                    RowBox[{"ThermoFAST`Private`$SolidModelNameLU", "[", 
                    
                    RowBox[{"ThermoFAST`Private`modelValues", "[", 
                    "\"solid_model\"", "]"}], "]"}]}], ",", 
                    RowBox[{"TransportModel", "\[Rule]", 
                    RowBox[{"ThermoFAST`Private`$TransportModelNameLU", "[", 
                    
                    RowBox[{"ThermoFAST`Private`modelValues", "[", 
                    "\"transport_model\"", "]"}], "]"}]}], ",", 
                    RowBox[{"HydrateModel", "\[Rule]", 
                    RowBox[{"ThermoFAST`Private`$HydrateModelNameLU", "[", 
                    
                    RowBox[{"ThermoFAST`Private`modelValues", "[", 
                    "\"hydrate_model\"", "]"}], "]"}]}], ",", 
                    RowBox[{"HydrateFormationType", "\[Rule]", 
                    
                    RowBox[{"ThermoFAST`Private`$HydrateFormationTypeNameLU", 
                    "[", 
                    
                    RowBox[{"ThermoFAST`Private`modelValues", "[", 
                    "\"hydrate_type\"", "]"}], "]"}]}]}], "]"}]}], ";", 
                    
                    RowBox[{"FeedModel", "[", "ThermoFAST`Private`feed", 
                    "]"}]}]}], "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   PaneSelectorBox[{True->
                    ButtonBox[
                    PaneSelectorBox[{False->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "DownPointerOpener"]]},
                    "RowWithSeparators"], True->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "DownPointerOpenerHot"]]},
                    "RowWithSeparators"]}, Dynamic[
                    CurrentValue["MouseOver"]],
                    FrameMargins->0,
                    ImageSize->Automatic],
                    Appearance->None,
                    BaseStyle->None,
                    
                    ButtonFunction:>(Part[System`InformationDump`open$$, 3] = 
                    False),
                    Evaluator->Automatic,
                    FrameMargins->0,
                    ImageMargins->0,
                    Method->"Preemptive"], False->
                    ButtonBox[
                    PaneSelectorBox[{False->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "RightPointerOpener"]]},
                    "RowWithSeparators"], True->
                    TemplateBox[{"\[ThickSpace]", "\"\[ThickSpace]\"", 
                    StyleBox[
                    "\"Options\"", "InformationRowLabel", StripOnInput -> 
                    False], 
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "RightPointerOpenerHot"]]},
                    "RowWithSeparators"]}, Dynamic[
                    CurrentValue["MouseOver"]],
                    FrameMargins->0,
                    ImageSize->Automatic],
                    Appearance->None,
                    BaseStyle->None,
                    
                    ButtonFunction:>(Part[System`InformationDump`open$$, 3] = 
                    True),
                    Evaluator->Automatic,
                    FrameMargins->0,
                    ImageMargins->0,
                    Method->"Preemptive"]}, Dynamic[
                    FEPrivate`Part[System`InformationDump`open$$, 3]]], 
                   PaneSelectorBox[{True->GridBox[{
                    {
                    RowBox[{"FluidModel", "\[Rule]", "Automatic"}]},
                    {
                    RowBox[{"SolidModel", "\[Rule]", "Automatic"}]},
                    {
                    RowBox[{"HydrateModel", "\[Rule]", "Automatic"}]},
                    {
                    RowBox[{"HydrateFormationType", "\[Rule]", "Automatic"}]},
                    {
                    RowBox[{"TransportModel", "\[Rule]", "Automatic"}]},
                    {
                    RowBox[{
                    "BinaryInteractionParameters", "\[Rule]", "Automatic"}]},
                    {
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[InvisibleSpace]\"", "6", "\" total)\""},
                    "RowDefault"], "InformationRowOpener",
                    StripOnInput->False]}
                    },
                    BaselinePosition->{Baseline, {1, 1}},
                    DefaultBaseStyle->"Column",
                    GridBoxAlignment->{"Columns" -> {{Left}}},
                    
                    GridBoxItemSize->{
                    "Columns" -> {{Automatic}}, "Rows" -> {{1.}}}], False->
                    RowBox[{
                    RowBox[{"FluidModel", "\[Rule]", "Automatic"}], "\[ThinSpace]", 
                    StyleBox["\<\"\[Ellipsis]\"\>", "InformationRowOpener",
                    StripOnInput->False], "\[ThinSpace]", 
                    StyleBox[
                    
                    TemplateBox[{
                    "\"(\"", "\"\[InvisibleSpace]\"", "6", "\" total)\""},
                    "RowDefault"], "InformationRowOpener",
                    StripOnInput->False]}]}, Dynamic[
                    FEPrivate`Part[System`InformationDump`open$$, 3]],
                    BaselinePosition->Baseline,
                    ImageSize->Automatic]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"ThermoFAST`FeedModel\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"FeedModel[mixture, opts] returns an object \
containing feed composition and model parameters. The mixture argument is a \
list of rules of the form \\\"<<compName>>\\\" -> <<molarFraction>> or \
\\\"<<compName>>\\\" -> {<<molarFraction>>,<<canFormSolid>>}.\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "FeedModel[mixture, opts] returns an object containing feed composition \
and model parameters. The mixture argument is a list of rules of the form \
\"<<compName>>\" -> <<molarFraction>> or \"<<compName>>\" -> \
{<<molarFraction>>,<<canFormSolid>>}.", "Documentation" -> None, "OwnValues" -> 
    None, "UpValues" -> None, "DownValues" -> 
    Information`InformationValueForm[
     DownValues, ThermoFAST`FeedModel, {ThermoFAST`FeedModel[
         Pattern[ThermoFAST`Private`mixture, 
          Blank[List]], 
         Pattern[ThermoFAST`Private`opts, 
          OptionsPattern[]]] :> 
       Module[{ThermoFAST`Private`nComps = Length[ThermoFAST`Private`mixture],
           ThermoFAST`Private`compSyns = 
          Part[ThermoFAST`Private`mixture, All, 1], 
          ThermoFAST`Private`compIds = 
          Map[ThermoFAST`TFGetBuiltinCompId[#]["id"]& , 
            Part[ThermoFAST`Private`mixture, All, 1]], 
          ThermoFAST`Private`weights = Replace[
            Replace[
             Part[ThermoFAST`Private`mixture, All, 2], {
               Pattern[ThermoFAST`Private`w1, 
                Blank[]], 
               Blank[]} :> ThermoFAST`Private`w1, {1}], 
            Pattern[ThermoFAST`Private`w2, 
              Blank[Quantity]] :> 
            QuantityMagnitude[ThermoFAST`Private`w2, "Moles"/"Moles"], {1}], 
          ThermoFAST`Private`canFormSolidQ = Replace[
            Part[ThermoFAST`Private`mixture, All, 2], {{
               Blank[], 
               Pattern[ThermoFAST`Private`q, 
                Blank[]]} :> ThermoFAST`Private`q, Blank[] -> True}, {1}], 
          ThermoFAST`Private`fluidModel = ThermoFAST`Private`getModelName[
            OptionValue[ThermoFAST`FluidModel], 
            ThermoFAST`Private`$FluidModelNameLU], 
          ThermoFAST`Private`solidModel = ThermoFAST`Private`getModelName[
            OptionValue[ThermoFAST`SolidModel], 
            ThermoFAST`Private`$SolidModelNameLU], 
          ThermoFAST`Private`hydrateModel = ThermoFAST`Private`getModelName[
            OptionValue[ThermoFAST`HydrateModel], 
            ThermoFAST`Private`$HydrateModelNameLU], 
          ThermoFAST`Private`hydrateType = ThermoFAST`Private`getModelName[
            OptionValue[ThermoFAST`HydrateFormationType], 
            ThermoFAST`Private`$HydrateFormationTypeNameLU], 
          ThermoFAST`Private`transportModel = ThermoFAST`Private`getModelName[
            OptionValue[ThermoFAST`TransportModel], 
            ThermoFAST`Private`$TransportModelNameLU], 
          ThermoFAST`Private`bipOpt = ThermoFAST`Private`getModelName[
            OptionValue[ThermoFAST`BinaryInteractionParameters], 
            ThermoFAST`Private`$BIPTypeNameLU], 
          ThermoFAST`Private`fluidModelId, ThermoFAST`Private`solidModelId, 
          ThermoFAST`Private`hydrateModelId, ThermoFAST`Private`hydrateTypeId,
           ThermoFAST`Private`transportModelId, ThermoFAST`Private`bipTypeId, 
          ThermoFAST`Private`bips, ThermoFAST`Private`res, 
          ThermoFAST`Private`modelValues, ThermoFAST`Private`feed}, If[
           Not[
            FreeQ[ThermoFAST`Private`compIds, $Failed]], Do[
             If[
              Not[
               FreeQ[
                Part[
                ThermoFAST`Private`compIds, ThermoFAST`Private`k], $Failed]], 
              Message[
               MessageName[ThermoFAST`ThermoFAST, "nocmp"], 
               Part[ThermoFAST`Private`compSyns, ThermoFAST`Private`k]]], {
             ThermoFAST`Private`k, ThermoFAST`Private`nComps}]; 
           Return[$Failed]]; 
         ThermoFAST`Private`fluidModelId = 
          ThermoFAST`Private`getModelId[
           ThermoFAST`Private`fluidModel, 
            ThermoFAST`Private`$FluidModelCodeLU]; 
         ThermoFAST`Private`solidModelId = 
          ThermoFAST`Private`getModelId[
           ThermoFAST`Private`solidModel, 
            ThermoFAST`Private`$SolidModelCodeLU]; 
         ThermoFAST`Private`hydrateModelId = 
          ThermoFAST`Private`getModelId[
           ThermoFAST`Private`hydrateModel, 
            ThermoFAST`Private`$HydrateModelCodeLU]; 
         ThermoFAST`Private`hydrateTypeId = 
          ThermoFAST`Private`getModelId[
           ThermoFAST`Private`hydrateType, 
            ThermoFAST`Private`$HydrateFormationTypeCodeLU]; 
         ThermoFAST`Private`transportModelId = 
          ThermoFAST`Private`getModelId[
           ThermoFAST`Private`transportModel, 
            ThermoFAST`Private`$TransportModelCodeLU]; If[
           Not[
            
            FreeQ[{ThermoFAST`Private`fluidModelId, 
              ThermoFAST`Private`solidModelId, 
              ThermoFAST`Private`hydrateModelId, 
              ThermoFAST`Private`hydrateTypeId, 
              ThermoFAST`Private`transportModelId}, 
             Blank[Missing]]], 
           Return[$Failed]]; 
         If[ThermoFAST`Private`bipOpt =!= 
           Automatic, {ThermoFAST`Private`bipTypeId, ThermoFAST`Private`bips} = 
            ThermoFAST`Private`getBipArgs[
             ThermoFAST`Private`nComps, ThermoFAST`Private`bipOpt]; 
           If[ThermoFAST`Private`bipTypeId === $Failed, Message[
               MessageName[ThermoFAST`ThermoFAST, "invbip"], 
               OptionValue[ThermoFAST`BinaryInteractionParameters]]; 
             Return[$Failed]]]; 
         ThermoFAST`Private`feed = <|"Components" -> Apply[Association, 
              Table[ThermoFAST`TFGetBuiltinCompName[
                 Part[ThermoFAST`Private`compIds, ThermoFAST`Private`i]][
                "name"] -> <|
                "Id" -> Part[
                  ThermoFAST`Private`compIds, ThermoFAST`Private`i], 
                 "Molar Fraction" -> Quantity[
                   Part[ThermoFAST`Private`weights, ThermoFAST`Private`i], 
                   "Moles"/"Moles"], "Can Form Solid" -> 
                 Part[ThermoFAST`Private`canFormSolidQ, 
                   ThermoFAST`Private`i]|>, {ThermoFAST`Private`i, 
                Length[ThermoFAST`Private`mixture]}]], "ModelOverrides" -> 
            Apply[Association, 
              DeleteCases[
               
               Thread[{
                 ThermoFAST`FluidModel, ThermoFAST`SolidModel, 
                  ThermoFAST`HydrateModel, ThermoFAST`HydrateFormationType, 
                  ThermoFAST`TransportModel, 
                  ThermoFAST`BinaryInteractionParameters} -> {
                 ThermoFAST`Private`fluidModel, ThermoFAST`Private`solidModel,
                   ThermoFAST`Private`hydrateModel, 
                  ThermoFAST`Private`hydrateType, 
                  ThermoFAST`Private`transportModel, 
                  ThermoFAST`Private`bipOpt}], Blank[] -> Automatic]], 
            "dllArgs" -> 
            Join[<|"n_comps" -> ThermoFAST`Private`nComps, "comp_ids" -> 
               ThermoFAST`Private`compIds, "weights" -> 
               ThermoFAST`Private`weights, "can_form_solid" -> 
               ThermoFAST`Private`canFormSolidQ, "fluid_model" -> 
               ThermoFAST`Private`fluidModelId, "solid_model" -> 
               ThermoFAST`Private`solidModelId, "transport_model" -> 
               ThermoFAST`Private`transportModelId, "hydrate_model" -> 
               ThermoFAST`Private`hydrateModelId, "hydrate_type" -> 
               ThermoFAST`Private`hydrateTypeId|>, 
              If[
              ThermoFAST`Private`bipOpt =!= Automatic, <|
               "bip_type" -> ThermoFAST`Private`bipTypeId, "bips" -> 
                ThermoFAST`Private`bips|>, <||>]]|>; 
         If[ThermoFAST`Private`setDllUserFeed[
             ThermoFAST`FeedModel[ThermoFAST`Private`feed]] === $Failed, 
           Return[$Failed]]; 
         ThermoFAST`Private`modelValues = ThermoFAST`TFGetFeedModels[]; 
         If[ThermoFAST`Private`modelValues === $Failed, 
           Return[$Failed]]; 
         ThermoFAST`Private`feed["Models"] = <|
           ThermoFAST`FluidModel -> ThermoFAST`Private`$FluidModelNameLU[
              ThermoFAST`Private`modelValues["fluid_model"]], 
            ThermoFAST`SolidModel -> ThermoFAST`Private`$SolidModelNameLU[
              ThermoFAST`Private`modelValues["solid_model"]], 
            ThermoFAST`TransportModel -> 
            ThermoFAST`Private`$TransportModelNameLU[
              ThermoFAST`Private`modelValues["transport_model"]], 
            ThermoFAST`HydrateModel -> ThermoFAST`Private`$HydrateModelNameLU[
              ThermoFAST`Private`modelValues["hydrate_model"]], 
            ThermoFAST`HydrateFormationType -> 
            ThermoFAST`Private`$HydrateFormationTypeNameLU[
              ThermoFAST`Private`modelValues["hydrate_type"]]|>; 
         ThermoFAST`FeedModel[ThermoFAST`Private`feed]]}], "SubValues" -> 
    Information`InformationValueForm[
     SubValues, ThermoFAST`FeedModel, {ThermoFAST`FeedModel[
         Pattern[ThermoFAST`Private`assoc, 
          Blank[Association]]]["Properties"] :> Join[
         Keys[ThermoFAST`Private`assoc], 
         Keys["Components"], 
         Keys["Models"], {"ComponentNames", "Count"}], Condition[
         ThermoFAST`FeedModel[
          Pattern[ThermoFAST`Private`assoc, 
           Blank[Association]]][
          Pattern[ThermoFAST`Private`key, 
           Blank[String]]], 
         KeyExistsQ[ThermoFAST`Private`assoc, ThermoFAST`Private`key]] :> 
       ThermoFAST`Private`assoc[ThermoFAST`Private`key], Condition[
         ThermoFAST`FeedModel[
          Pattern[ThermoFAST`Private`assoc, 
           Blank[Association]]][
          Pattern[ThermoFAST`Private`key, 
           Blank[String]]], 
         KeyExistsQ[
          ThermoFAST`Private`assoc["Components"], ThermoFAST`Private`key]] :> 
       ThermoFAST`Private`assoc["Components"][ThermoFAST`Private`key], 
       Condition[
         ThermoFAST`FeedModel[
          Pattern[ThermoFAST`Private`assoc, 
           Blank[Association]]][
          Pattern[ThermoFAST`Private`key, 
           Blank[]]], 
         KeyExistsQ[
          ThermoFAST`Private`assoc["Models"], ThermoFAST`Private`key]] :> 
       ThermoFAST`Private`assoc["Models"][ThermoFAST`Private`key], 
       ThermoFAST`FeedModel[
         Pattern[ThermoFAST`Private`assoc, 
          Blank[Association]]]["ComponentNames"] :> Keys[
         ThermoFAST`Private`assoc["Components"]], ThermoFAST`FeedModel[
         Pattern[ThermoFAST`Private`assoc, 
          Blank[Association]]]["Count"] :> Length[
         ThermoFAST`Private`assoc["Components"]], ThermoFAST`FeedModel[
         Pattern[ThermoFAST`Private`assoc, 
          Blank[Association]]][
         Alternatives[All, "Components"], 
         Pattern[ThermoFAST`Private`key, 
          Blank[]]] :> Part[
         ThermoFAST`Private`assoc["Components"], All, 
         ThermoFAST`Private`key]}], "DefaultValues" -> None, "NValues" -> 
    None, "FormatValues" -> None, 
    "Options" -> {
     ThermoFAST`FluidModel -> Automatic, ThermoFAST`SolidModel -> Automatic, 
      ThermoFAST`HydrateModel -> Automatic, ThermoFAST`HydrateFormationType -> 
      Automatic, ThermoFAST`TransportModel -> Automatic, 
      ThermoFAST`BinaryInteractionParameters -> Automatic}, 
    "Attributes" -> {}, "FullName" -> "ThermoFAST`FeedModel"|>, 
   False]]], "Output",
 CellChangeTimes->{3.9579051528092785`*^9, 3.9579068213422203`*^9, 
  3.9781489573115063`*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"2b97dd7f-09ab-4c4f-b009-82188aa6c7ac"]
}, Open  ]],

Cell["\<\
In the simplest case, a feed can be specified by giving the components and \
their molar weights:\
\>", "Text",
 CellChangeTimes->{{3.9579051556650486`*^9, 
  3.957905180564045*^9}},ExpressionUUID->"77a72fa5-0c92-544e-bf87-\
614de2b10e4a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"feed", "=", 
  RowBox[{"FeedModel", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<Methane\>\"", "->", "0.7"}], ",", 
     RowBox[{"\"\<Benzene\>\"", "->", "0.3"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.910347599462344*^9, 3.910347614594279*^9}, 
   3.9106893762444277`*^9, {3.957905106737316*^9, 3.957905115224983*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"9c1813c3-bc65-4882-8f2e-d51a2e76d6d1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["FeedModel",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             TagBox[
              RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
               "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> RGBColor, 
               ImageResolution -> {96, 96}], 
              BoxForm`ImageTag[
              "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> 
              False], DefaultBaseStyle -> "ImageGraphics", 
             ImageSizeRaw -> {48., 48.}, PlotRange -> {{0, 48.}, {0, 48.}}, 
             ImageSize -> {30., Automatic}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Components: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Model overrides: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["0", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             TagBox[
              RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
               "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> RGBColor, 
               ImageResolution -> {96, 96}], 
              BoxForm`ImageTag[
              "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> 
              False], DefaultBaseStyle -> "ImageGraphics", 
             ImageSizeRaw -> {48., 48.}, PlotRange -> {{0, 48.}, {0, 48.}}, 
             ImageSize -> {30., Automatic}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Components: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Model overrides: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["0", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Methane: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TemplateBox[{"0.7`", 
                    
                    RowBox[{
                    "\"mol\"", "\[InvisibleSpace]", "\"/\"", 
                    "\[InvisibleSpace]", "\"mol\""}], "moles per mole", 
                    FractionBox["\"Moles\"", "\"Moles\""]}, "Quantity", 
                   SyntaxForm -> Mod], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Benzene: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TemplateBox[{"0.3`", 
                    
                    RowBox[{
                    "\"mol\"", "\[InvisibleSpace]", "\"/\"", 
                    "\[InvisibleSpace]", "\"mol\""}], "moles per mole", 
                    FractionBox["\"Moles\"", "\"Moles\""]}, "Quantity", 
                   SyntaxForm -> Mod], "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  ThermoFAST`FeedModel[<|
   "Components" -> <|
     "Methane" -> <|
       "Id" -> 1, "Molar Fraction" -> Quantity[0.7, "Moles"/"Moles"], 
        "Can Form Solid" -> True|>, 
      "Benzene" -> <|
       "Id" -> 38, "Molar Fraction" -> Quantity[0.3, "Moles"/"Moles"], 
        "Can Form Solid" -> True|>|>, "ModelOverrides" -> <||>, 
    "dllArgs" -> <|
     "n_comps" -> 2, "comp_ids" -> {1, 38}, "weights" -> {0.7, 0.3}, 
      "can_form_solid" -> {True, True}, "fluid_model" -> 0, "solid_model" -> 
      0, "transport_model" -> 0, "hydrate_model" -> 0, "hydrate_type" -> 0|>, 
    "Models" -> <|
     ThermoFAST`FluidModel -> "Peng-Robinson (1978)", ThermoFAST`SolidModel -> 
      "Classical", ThermoFAST`TransportModel -> "Residual Entropy Scaling", 
      ThermoFAST`HydrateModel -> "Zhu", ThermoFAST`HydrateFormationType -> 
      "both"|>|>],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.9579051831042156`*^9, 3.957906822539646*^9, 
  3.978148961896946*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"146903b2-3332-954c-87dd-801d7561a8b0"]
}, Open  ]],

Cell[TextData[{
 "The first argument to ",
 StyleBox["FeedModel",
  FontWeight->"Bold"],
 " specifies the fractions of each component, and assumes that both \
components are \[OpenCurlyDoubleQuote]solid-formers\[CloseCurlyDoubleQuote], \
i.e. they assumed to form a solid phase at suitably low temperatures."
}], "Text",
 CellChangeTimes->{{3.910347623204422*^9, 3.9103476760867777`*^9}, {
  3.9579053561486263`*^9, 
  3.957905361648815*^9}},ExpressionUUID->"427bd7aa-95c9-431b-8d2f-\
2e55e7940991"],

Cell["\<\
Solid formation can be prevented on a component-by-component basis by adding \
False to the right-hand side. For example, this would prevent benzene from \
being able to form a solid phase:\
\>", "Text",
 CellChangeTimes->{{3.910347680129175*^9, 3.9103477506919565`*^9}, {
  3.910347846922963*^9, 
  3.9103478593303146`*^9}},ExpressionUUID->"78a3677a-c58a-4c2f-b9ca-\
c720d8dc321d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeedModel", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\"\<Methane\>\"", "->", "0.7"}], ",", 
    RowBox[{"\"\<Benzene\>\"", "->", 
     RowBox[{"{", 
      RowBox[{"0.3", ",", "False"}], "}"}]}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{3.957905391868004*^9},
 CellLabel->"In[17]:=",ExpressionUUID->"b14b2de4-813f-0d43-a59e-1dc0b587d731"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["FeedModel",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             TagBox[
              RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
               "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> RGBColor, 
               ImageResolution -> {96, 96}], 
              BoxForm`ImageTag[
              "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> 
              False], DefaultBaseStyle -> "ImageGraphics", 
             ImageSizeRaw -> {48., 48.}, PlotRange -> {{0, 48.}, {0, 48.}}, 
             ImageSize -> {30., Automatic}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Components: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Model overrides: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["0", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             TagBox[
              RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
               "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> RGBColor, 
               ImageResolution -> {96, 96}], 
              BoxForm`ImageTag[
              "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> 
              False], DefaultBaseStyle -> "ImageGraphics", 
             ImageSizeRaw -> {48., 48.}, PlotRange -> {{0, 48.}, {0, 48.}}, 
             ImageSize -> {30., Automatic}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Components: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Model overrides: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["0", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Methane: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TemplateBox[{"0.7`", 
                    
                    RowBox[{
                    "\"mol\"", "\[InvisibleSpace]", "\"/\"", 
                    "\[InvisibleSpace]", "\"mol\""}], "moles per mole", 
                    FractionBox["\"Moles\"", "\"Moles\""]}, "Quantity", 
                   SyntaxForm -> Mod], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Benzene: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TemplateBox[{"0.3`", 
                    
                    RowBox[{
                    "\"mol\"", "\[InvisibleSpace]", "\"/\"", 
                    "\[InvisibleSpace]", "\"mol\""}], "moles per mole", 
                    FractionBox["\"Moles\"", "\"Moles\""]}, "Quantity", 
                   SyntaxForm -> Mod], "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  ThermoFAST`FeedModel[<|
   "Components" -> <|
     "Methane" -> <|
       "Id" -> 1, "Molar Fraction" -> Quantity[0.7, "Moles"/"Moles"], 
        "Can Form Solid" -> True|>, 
      "Benzene" -> <|
       "Id" -> 38, "Molar Fraction" -> Quantity[0.3, "Moles"/"Moles"], 
        "Can Form Solid" -> False|>|>, "ModelOverrides" -> <||>, 
    "dllArgs" -> <|
     "n_comps" -> 2, "comp_ids" -> {1, 38}, "weights" -> {0.7, 0.3}, 
      "can_form_solid" -> {True, False}, "fluid_model" -> 0, "solid_model" -> 
      0, "transport_model" -> 0, "hydrate_model" -> 0, "hydrate_type" -> 0|>, 
    "Models" -> <|
     ThermoFAST`FluidModel -> "Peng-Robinson (1978)", ThermoFAST`SolidModel -> 
      "Classical", ThermoFAST`TransportModel -> "Residual Entropy Scaling", 
      ThermoFAST`HydrateModel -> "Zhu", ThermoFAST`HydrateFormationType -> 
      "both"|>|>],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.957905395678955*^9, 3.9579068245399723`*^9, 
  3.9781489671558056`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"d3248897-c6e2-2948-ac2e-3362d6a26999"]
}, Open  ]],

Cell["\<\
In the above examples, suitable default values for all models and parameters \
are chosen automatically. For advanced users, it is possible to choose model \
values manually:\
\>", "Text",
 CellChangeTimes->{{3.9579051857684116`*^9, 3.95790522225716*^9}, {
  3.95790540985133*^9, 
  3.9579054217297688`*^9}},ExpressionUUID->"3167f633-d594-7f4d-a5c5-\
3cf5a9688b10"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "FeedModel", "]"}]], "Input",
 CellChangeTimes->{{3.9579052602076015`*^9, 3.957905262297386*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"69df1fb4-062b-0c4e-b0db-b80d68b34b89"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"FluidModel", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"SolidModel", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"HydrateModel", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"HydrateFormationType", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"TransportModel", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"BinaryInteractionParameters", "\[Rule]", "Automatic"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.9579052625306797`*^9, 3.9579068262328587`*^9, 
  3.978148972508274*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"e308a91e-c153-0f4c-9b02-0325022df4d5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["$FluidModels"], "Input",
 CellChangeTimes->{{3.9579053300303745`*^9, 3.9579053328260384`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"8f53f07d-54cf-674d-b983-93cc581ebc9d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Pure Fluid Reference\"\>", ",", "\<\"GERG-2008\"\>", 
   ",", "\<\"EOS-LNG\"\>", ",", "\<\"H2 (GERG)\"\>", 
   ",", "\<\"H2 (Pure Reference)\"\>", ",", "\<\"EOS-CG\"\>", 
   ",", "\<\"GERG (fast)\"\>", ",", "\<\"Peng-Robinson (1978)\"\>", 
   ",", "\<\"Soave-Redlich-Kwong\"\>", 
   ",", "\<\"Quantum-Corrected Peng-Robinson\"\>", 
   ",", "\<\"van der Waals\"\>", ",", "\<\"Peng-Robinson (1976)\"\>", 
   ",", "\<\"Cubic-Plus-Assocation with Peng-Robinson\"\>", 
   ",", "\<\"Cubic-Plus-Assocation with Soave-Redlich-Kwong\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.95790533309622*^9, 3.957906829036545*^9, 
  3.978148973984951*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"d5d79475-8653-6d47-a1c0-3e78e719f1fb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeedModel", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<Methane\>\"", "->", "0.7"}], ",", 
     RowBox[{"\"\<Benzene\>\"", "->", "0.3"}]}], "}"}], ",", 
   RowBox[{"FluidModel", "->", "\"\<Peng-Robinson (1978)\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.9579052739604244`*^9, 3.957905299146145*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"f719ace2-bedb-ee42-a50f-6c0c9e03c444"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["FeedModel",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"], 
               ImageSizeCache -> {
                11.966367964725942`, {0., 11.966367964725942`}}], Appearance -> 
              None, BaseStyle -> {}, 
              ButtonFunction :> (Typeset`open$$ = True), Evaluator -> 
              Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             TagBox[
              RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
               "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> RGBColor, 
               ImageResolution -> {96, 96}], 
              BoxForm`ImageTag[
              "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> 
              False], DefaultBaseStyle -> "ImageGraphics", 
             ImageSize -> {30., Automatic}, ImageSizeRaw -> {48., 48.}, 
             PlotRange -> {{0, 48.}, {0, 48.}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Components: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Model overrides: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["1", "SummaryItem"]}]}}, AutoDelete -> False, 
             BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> 
          False, BaselinePosition -> {1, 1}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True -> 
        GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"], 
               ImageSizeCache -> {
                11.966367964725942`, {0., 11.966367964725942`}}], Appearance -> 
              None, BaseStyle -> {}, 
              ButtonFunction :> (Typeset`open$$ = False), Evaluator -> 
              Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             TagBox[
              RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
               "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> RGBColor, 
               ImageResolution -> {96, 96}], 
              BoxForm`ImageTag[
              "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> 
              False], DefaultBaseStyle -> "ImageGraphics", 
             ImageSize -> {30., Automatic}, ImageSizeRaw -> {48., 48.}, 
             PlotRange -> {{0, 48.}, {0, 48.}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Components: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Model overrides: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["1", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Methane: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TemplateBox[{"0.7`", 
                    
                    RowBox[{
                    "\"mol\"", "\[InvisibleSpace]", "\"/\"", 
                    "\[InvisibleSpace]", "\"mol\""}], "moles per mole", 
                    FractionBox["\"Moles\"", "\"Moles\""]}, "Quantity"], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Benzene: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TemplateBox[{"0.3`", 
                    
                    RowBox[{
                    "\"mol\"", "\[InvisibleSpace]", "\"/\"", 
                    "\[InvisibleSpace]", "\"mol\""}], "moles per mole", 
                    FractionBox["\"Moles\"", "\"Moles\""]}, "Quantity"], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"FluidModel: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"Peng-Robinson (1978)\"", "SummaryItem"]}]}}, 
             AutoDelete -> False, 
             BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> 
          False, BaselinePosition -> {1, 1}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  ThermoFAST`FeedModel[<|
   "Components" -> <|
     "Methane" -> <|
       "Id" -> 1, "Molar Fraction" -> Quantity[0.7, "Moles"/"Moles"], 
        "Can Form Solid" -> True|>, 
      "Benzene" -> <|
       "Id" -> 38, "Molar Fraction" -> Quantity[0.3, "Moles"/"Moles"], 
        "Can Form Solid" -> True|>|>, 
    "ModelOverrides" -> <|ThermoFAST`FluidModel -> "Peng-Robinson (1978)"|>, 
    "dllArgs" -> <|
     "n_comps" -> 2, "comp_ids" -> {1, 38}, "weights" -> {0.7, 0.3}, 
      "can_form_solid" -> {True, True}, "fluid_model" -> 20, "solid_model" -> 
      0, "transport_model" -> 0, "hydrate_model" -> 0, "hydrate_type" -> 0|>, 
    "Models" -> <|
     ThermoFAST`FluidModel -> "Peng-Robinson (1978)", ThermoFAST`SolidModel -> 
      "Classical", ThermoFAST`TransportModel -> "Residual Entropy Scaling", 
      ThermoFAST`HydrateModel -> "Zhu", ThermoFAST`HydrateFormationType -> 
      "both"|>|>],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.957905295096182*^9, 3.9579052994895897`*^9}, 
   3.9579068300766697`*^9, 3.97814898034478*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"f1168f93-858d-0945-af57-1cbb06b22dff"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Specifying pressure and temperature", "Subsection",
 CellChangeTimes->{{3.910347817123345*^9, 3.9103478247591157`*^9}, {
  3.910347884504756*^9, 
  3.9103478888438044`*^9}},ExpressionUUID->"d83fa5ae-130a-42af-8c67-\
80b8bba2cfc6"],

Cell["\<\
We next define the pressure and temperature. In ThermoFAST, values may be \
specified as numbers, in which case they will be interpreted in units of \
Megapascals (pressure) or Kelvins (temperature).\
\>", "Text",
 CellChangeTimes->{{3.910347879370243*^9, 
  3.910348001345523*^9}},ExpressionUUID->"314ca5a6-6345-4d2d-a6b1-\
0ed3929244ea"],

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "=", "2."}], ";", 
  RowBox[{"T", "=", "200."}], ";"}]], "Input",
 CellChangeTimes->{{3.910348004318005*^9, 3.91034801139513*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"4f6bcd59-d327-4a75-9bba-ddbabaa5e81a"],

Cell["\<\
 A nice feature of Mathematica is its built-in support for physical \
quantities, which makes it possible to specify values from other unit \
systems. Thus, e.g., the following definitions are equivalent to the above:\
\>", "Text",
 CellChangeTimes->{{3.910347879370243*^9, 3.910347936375146*^9}, {
  3.9103480174404316`*^9, 3.9103480381687746`*^9}, {3.910348108440028*^9, 
  3.910348124296893*^9}},ExpressionUUID->"22ff7035-67e1-4e58-9afe-\
33f3307c0c6a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "=", 
   RowBox[{"Quantity", "[", 
    RowBox[{"2000", ",", "\"\<Kilopascals\>\""}], "]"}]}], ";", 
  RowBox[{"T", "=", 
   RowBox[{"Quantity", "[", 
    RowBox[{
     RowBox[{"-", "73.15"}], ",", "\"\<DegreesCelsius\>\""}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.910348039449247*^9, 3.910348100777133*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"4ae10730-f411-452c-8207-7df5cd99f0ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Running a flash calculation", "Subsection",
 CellChangeTimes->{{3.9103481305871553`*^9, 3.91034813523081*^9}, 
   3.9106509984808607`*^9},ExpressionUUID->"40664b30-9930-4265-813e-\
2fc437004a98"],

Cell["We can now call the function:", "Text",
 CellChangeTimes->{{3.910348138154544*^9, 
  3.9103481507660666`*^9}},ExpressionUUID->"0e24217f-c0e3-46d9-bfe3-\
4cc46865bd5d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"res", "=", 
  RowBox[{"FlashPTSolve", "[", 
   RowBox[{"feed", ",", "p", ",", "T"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.9103481531588354`*^9, 3.9103481729732437`*^9}, {
  3.957905455108465*^9, 3.9579054656583595`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"41759d48-1293-4cfa-8089-0de00dc12e09"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["MultiphaseEquilibriumData",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"], 
               ImageSizeCache -> {
                11.966367964725942`, {0., 11.966367964725942`}}], Appearance -> 
              None, BaseStyle -> {}, 
              ButtonFunction :> (Typeset`open$$ = True), Evaluator -> 
              Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             TagBox[
              RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
               "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> RGBColor, 
               ImageResolution -> {96, 96}], 
              BoxForm`ImageTag[
              "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> 
              False], DefaultBaseStyle -> "ImageGraphics", 
             ImageSize -> {30., Automatic}, ImageSizeRaw -> {48., 48.}, 
             PlotRange -> {{0, 48.}, {0, 48.}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"Equilibrium (SV)\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Phases: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Components: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}}, AutoDelete -> False, 
             BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> 
          False, BaselinePosition -> {1, 1}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True -> 
        GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"], 
               ImageSizeCache -> {
                11.966367964725942`, {0., 11.966367964725942`}}], Appearance -> 
              None, BaseStyle -> {}, 
              ButtonFunction :> (Typeset`open$$ = False), Evaluator -> 
              Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             TagBox[
              RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
               "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> RGBColor, 
               ImageResolution -> {96, 96}], 
              BoxForm`ImageTag[
              "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> 
              False], DefaultBaseStyle -> "ImageGraphics", 
             ImageSize -> {30., Automatic}, ImageSizeRaw -> {48., 48.}, 
             PlotRange -> {{0, 48.}, {0, 48.}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"Equilibrium (SV)\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Phases: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Components: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Vapour: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  
                  TemplateBox[{
                   "0.7000029739588336`", "\"mol\"", "moles", "\"Moles\""}, 
                   "Quantity"], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Solid Benzene: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  
                  TemplateBox[{
                   "0.29999702604116646`", "\"mol\"", "moles", "\"Moles\""}, 
                   "Quantity"], "SummaryItem"]}]}}, AutoDelete -> False, 
             BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> 
          False, BaselinePosition -> {1, 1}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  ThermoFAST`MultiphaseEquilibriumData[<|
   "Description" -> "Equilibrium (SV)", "Code" -> "SVE", 
    "Components" -> <|
     "Methane" -> <|
       "Id" -> 1, "Molar Fraction" -> Quantity[0.7, "Moles"/"Moles"], 
        "Can Form Solid" -> True|>, 
      "Benzene" -> <|
       "Id" -> 38, "Molar Fraction" -> Quantity[0.3, "Moles"/"Moles"], 
        "Can Form Solid" -> True|>|>, 
    "Phases" -> <|
     "Vapour" -> ThermoFAST`PhaseData[<|
        "Components" -> {"Methane", "Benzene"}, "Molar Amount" -> 
         Quantity[0.7000029739588336, "Moles"], "Mass Amount" -> 
         Quantity[0.32397269517578103`, "Kilograms"], "Molar Mass" -> 
         Quantity[16.04272370142387, "Kilograms"/"Moles"], "Molar Density" -> 
         Quantity[1423.9778894915755`, "Meters"^(-3) "Moles"], "Mass Density" -> 
         Quantity[22844.48383805004, "Kilograms" "Meters"^(-3)], "Pressure" -> 
         Quantity[2., "Megapascals"], "Temperature" -> 
         Quantity[199.99999999999997`, "Kelvins"], "Volume" -> 
         Quantity[0.0007022580950024759, "Meters"^3/"Moles"], "Entropy" -> 
         Quantity[-37.385857694718716`, "Joules" "Kelvins"^(-1)/"Moles"], 
         "Internal Energy" -> 
         Quantity[-3828.1758102225504`, "Joules"/"Moles"], "Helmholtz Energy" -> 
         Quantity[3648.9957287211923`, "Joules"/"Moles"], "Enthalpy" -> 
         Quantity[-2423.659620217599, "Joules"/"Moles"], "Gibbs Energy" -> 
         Quantity[5053.511918726144, "Joules"/"Moles"], 
         "Compressibility Factor" -> 0.8446223493376623, "Heat Capacity Cv" -> 
         Quantity[25.173251484765974`, "Joules" "Kelvins"^(-1)/"Moles"], 
         "Heat Capacity Cp" -> 
         Quantity[39.94532129808413, "Joules" "Kelvins"^(-1)/"Moles"], 
         "Speed Of Sound" -> Quantity[340.3191493590555, "Meters"/"Seconds"], 
         "Joule-Thomson Coefficient" -> 
         Quantity[10.345235213731533`, "Kelvins"/"Megapascals"], 
         "Isothermal Throttling Coefficient" -> 
         Quantity[-0.00041324374451675997`, "Meters"^3/"Moles"], 
         "Isothermal Expansion Coefficient" -> 0.8336764315473265, 
         "Isentropic Expansion Coefficient" -> 1.3228912020741996`, 
         "Volume Expansivity" -> 
         Quantity[0.00794224977581286, "Kelvins"^(-1)], 
         "Isothermal Compressibility" -> 
         Quantity[0.5997530709510238, "Megapascals"^(-1)], 
         "Isentropic Compressibility" -> 
         Quantity[0.37796003119231236`, "Megapascals"^(-1)], 
         "Grueneisen Parameter" -> 0.3694268869151293, "Lower Heating Value" -> 
         Quantity[802.6299133522589, "Kilojoules"/"Moles"], 
         "Higher Heating Value" -> 
         Quantity[890.6050015527042, "Kilojoules"/"Moles"], "Wobbe Index" -> 
         Quantity[1566.3625571454363`, "Megajoules" "Meters"^(-3)], 
         "Viscosity" -> Quantity[7.051876263435154*^-6, "Pascals" "Seconds"], 
         "Thermal Conductivity" -> 
         Quantity[
          0.013357152546537977`, "Kelvins"^(-1) "Meters"^(-1) "Watts"], 
         "Phase Identification Parameter" -> 0.5376071741924606, 
         "Binary Thermodynamic Factor" -> 0.9999829315878224, 
         "Equilibrium Ortho-Para Hydrogen Ratio" -> 2.849780326444025, 
         "Equilibrium Orthohydrogen Fraction" -> 0.740244919137066, 
         "Equilibrium Parahydrogen Fraction" -> 0.259755080862934, "Name" -> 
         "Vapour", "Phase Type" -> "Vapour", "State Of Aggregation" -> 
         "Vapour", "Hydrate Type" -> "s", 
         "Molar Fraction" -> {0.9999957515054304, 4.2484945696247895`*^-6}, 
         "Mass Fraction" -> {0.9999793141280595, 0.00002068587194043281}, 
         "Fugacity" -> {
           Quantity[1.7218702140688358`, "Megapascals"], 
           Quantity[2.988389936331232*^-6, "Megapascals"]}, 
         "Fugacity Coefficient" -> {0.8609387647280846, 
          0.35169986537080067`}|>], "Solid Benzene" -> 
      ThermoFAST`PhaseData[<|
        "Components" -> {"Methane", "Benzene"}, "Molar Amount" -> 
         Quantity[0.29999702604116646`, "Moles"], "Mass Amount" -> 
         Quantity[0.676027304824219, "Kilograms"], "Molar Mass" -> 
         Quantity[78.11184, "Kilograms"/"Moles"], "Molar Density" -> 
         Quantity[12989.572, "Meters"^(-3) "Moles"], "Mass Density" -> 
         Quantity[1.01463936973248*^6, "Kilograms" "Meters"^(-3)], "Pressure" -> 
         Quantity[2., "Megapascals"], "Temperature" -> 
         Quantity[199.99999999999997`, "Kelvins"], "Volume" -> 
         Quantity[0.00007698483060103905, "Meters"^3/"Moles"], "Enthalpy" -> 
         Quantity[-50764.51996887483, "Joules"/"Moles"], "Heat Capacity Cp" -> 
         Quantity[83.412, "Joules" "Kelvins"^(-1)/"Moles"], 
         "Thermal Conductivity" -> 
         Quantity[0.36804000000000003`, "Kelvins"^(-1) "Meters"^(-1) "Watts"],
          "Saturation Pressure" -> Quantity[0., "Megapascals"], 
         "Saturation Fluid Phi" -> 1., "Subcooled Liquid Phi" -> 
         8.057414715115098*^-6, "Equilibrium Ortho-Para Hydrogen Ratio" -> 
         2.849780326444025, "Equilibrium Orthohydrogen Fraction" -> 
         0.740244919137066, "Equilibrium Parahydrogen Fraction" -> 
         0.259755080862934, "Name" -> "Solid Benzene", "Phase Type" -> 
         "Solid", "State Of Aggregation" -> "Solid", "Hydrate Type" -> "s", 
         "Solid Type" -> "Pure Solid", "Key Component" -> "Benzene", 
         "Molar Fraction" -> {0., 1.}, "Mass Fraction" -> {0., 1.}, 
         "Fugacity" -> {
           Quantity[Indeterminate, "Megapascals"], 
           Quantity[2.9883899329424393`*^-6, "Megapascals"]}, 
         "Fugacity Coefficient" -> {
          Indeterminate, 1.4941949664712197`*^-6}|>]|>|>],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.957905470567875*^9, 3.957906834697773*^9, 
  3.9781490268301067`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"6b1b891c-987d-1a40-98be-44dfcbefee14"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Output objects", "Subsection",
 CellChangeTimes->{{3.9106511653902287`*^9, 3.9106511783734474`*^9}, {
  3.957906307890867*^9, 3.9579063096124973`*^9}, {3.9579068620959682`*^9, 
  3.9579068642680225`*^9}},ExpressionUUID->"fdb39cb2-ef35-4324-956a-\
8f5a4516d5d8"],

Cell[TextData[{
 "The output of the above flash calculation is a ",
 StyleBox["MultiphaseEquilibriumData",
  FontWeight->"Bold"],
 " object containing information about the stable phase(s) for the given \
inputs. It contains one or more ",
 StyleBox["PhaseData",
  FontWeight->"Bold"],
 " objects describing each phase:"
}], "Text",
 CellChangeTimes->{{3.910348188651806*^9, 3.910348218883811*^9}, {
  3.9103483389368553`*^9, 3.9103484098844347`*^9}, {3.9103484745751333`*^9, 
  3.910348509550218*^9}, {3.91034859730313*^9, 3.9103487051348934`*^9}, {
  3.9106509859253626`*^9, 3.9106510112333937`*^9}, {3.910651156632906*^9, 
  3.9106511604838676`*^9}, {3.957905513472765*^9, 
  3.9579055578413086`*^9}},ExpressionUUID->"2e650393-f060-48da-b818-\
a3ca746ba2b1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"phases", "=", 
  RowBox[{"res", "[", "\"\<Phases\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.957905543119274*^9, 3.9579055452821712`*^9}, {
  3.9579055778431053`*^9, 3.957905578482094*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"2db789bc-6a3b-9343-ac81-a848074e290d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    RowBox[{
     TagBox["PhaseData",
      "SummaryHead"], "[", 
     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
      "Ready"}, 
      TemplateBox[{
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
                 ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                None, BaseStyle -> {}, Evaluator -> Automatic, Method -> 
                "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[
               TagBox[
                RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
                 "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> 
                 RGBColor, ImageResolution -> {96, 96}], 
                BoxForm`ImageTag[
                "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
               ImageSizeRaw -> {48., 48.}, PlotRange -> {{0, 48.}, {0, 48.}}, 
               ImageSize -> {30., Automatic}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Phase: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Vapour\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"2\[Hyphen]Component Fluid\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Amount: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    
                    TemplateBox[{
                    "0.7000029739588336`", "\"mol\"", "moles", "\"Moles\""}, 
                    "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
                 ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, BaseStyle -> {}, Evaluator -> Automatic, Method -> 
                "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[
               TagBox[
                RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
                 "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> 
                 RGBColor, ImageResolution -> {96, 96}], 
                BoxForm`ImageTag[
                "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
               ImageSizeRaw -> {48., 48.}, PlotRange -> {{0, 48.}, {0, 48.}}, 
               ImageSize -> {30., Automatic}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Phase: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Vapour\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"2\[Hyphen]Component Fluid\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Amount: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    
                    TemplateBox[{
                    "0.7000029739588336`", "\"mol\"", "moles", "\"Moles\""}, 
                    "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Methane: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    TemplateBox[{"0.9999957515054304`", 
                    
                    RowBox[{
                    "\"mol\"", "\[InvisibleSpace]", "\"/\"", 
                    "\[InvisibleSpace]", "\"mol\""}], "moles per mole", 
                    FractionBox["\"Moles\"", "\"Moles\""]}, "Quantity", 
                    SyntaxForm -> Mod], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Benzene: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    TemplateBox[{"4.2484945696247895`*^-6", 
                    
                    RowBox[{
                    "\"mol\"", "\[InvisibleSpace]", "\"/\"", 
                    "\[InvisibleSpace]", "\"mol\""}], "moles per mole", 
                    FractionBox["\"Moles\"", "\"Moles\""]}, "Quantity", 
                    SyntaxForm -> Mod], "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
       "SummaryPanel"],
      DynamicModuleValues:>{}], "]"}],
    ThermoFAST`PhaseData[<|
     "Components" -> {"Methane", "Benzene"}, "Molar Amount" -> 
      Quantity[0.7000029739588336, "Moles"], "Mass Amount" -> 
      Quantity[0.32397269517578103`, "Kilograms"], "Molar Mass" -> 
      Quantity[16.04272370142387, "Kilograms"/"Moles"], "Molar Density" -> 
      Quantity[1423.9778894915755`, "Meters"^(-3) "Moles"], "Mass Density" -> 
      Quantity[22844.48383805004, "Kilograms" "Meters"^(-3)], "Pressure" -> 
      Quantity[2., "Megapascals"], "Temperature" -> 
      Quantity[199.99999999999997`, "Kelvins"], "Volume" -> 
      Quantity[0.0007022580950024759, "Meters"^3/"Moles"], "Entropy" -> 
      Quantity[-37.385857694718716`, "Joules" "Kelvins"^(-1)/"Moles"], 
      "Internal Energy" -> Quantity[-3828.1758102225504`, "Joules"/"Moles"], 
      "Helmholtz Energy" -> Quantity[3648.9957287211923`, "Joules"/"Moles"], 
      "Enthalpy" -> Quantity[-2423.659620217599, "Joules"/"Moles"], 
      "Gibbs Energy" -> Quantity[5053.511918726144, "Joules"/"Moles"], 
      "Compressibility Factor" -> 0.8446223493376623, "Heat Capacity Cv" -> 
      Quantity[25.173251484765974`, "Joules" "Kelvins"^(-1)/"Moles"], 
      "Heat Capacity Cp" -> 
      Quantity[39.94532129808413, "Joules" "Kelvins"^(-1)/"Moles"], 
      "Speed Of Sound" -> Quantity[340.3191493590555, "Meters"/"Seconds"], 
      "Joule-Thomson Coefficient" -> 
      Quantity[10.345235213731533`, "Kelvins"/"Megapascals"], 
      "Isothermal Throttling Coefficient" -> 
      Quantity[-0.00041324374451675997`, "Meters"^3/"Moles"], 
      "Isothermal Expansion Coefficient" -> 0.8336764315473265, 
      "Isentropic Expansion Coefficient" -> 1.3228912020741996`, 
      "Volume Expansivity" -> Quantity[0.00794224977581286, "Kelvins"^(-1)], 
      "Isothermal Compressibility" -> 
      Quantity[0.5997530709510238, "Megapascals"^(-1)], 
      "Isentropic Compressibility" -> 
      Quantity[0.37796003119231236`, "Megapascals"^(-1)], 
      "Grueneisen Parameter" -> 0.3694268869151293, "Lower Heating Value" -> 
      Quantity[802.6299133522589, "Kilojoules"/"Moles"], 
      "Higher Heating Value" -> 
      Quantity[890.6050015527042, "Kilojoules"/"Moles"], "Wobbe Index" -> 
      Quantity[1566.3625571454363`, "Megajoules" "Meters"^(-3)], "Viscosity" -> 
      Quantity[7.051876263435154*^-6, "Pascals" "Seconds"], 
      "Thermal Conductivity" -> 
      Quantity[0.013357152546537977`, "Kelvins"^(-1) "Meters"^(-1) "Watts"], 
      "Phase Identification Parameter" -> 0.5376071741924606, 
      "Binary Thermodynamic Factor" -> 0.9999829315878224, 
      "Equilibrium Ortho-Para Hydrogen Ratio" -> 2.849780326444025, 
      "Equilibrium Orthohydrogen Fraction" -> 0.740244919137066, 
      "Equilibrium Parahydrogen Fraction" -> 0.259755080862934, "Name" -> 
      "Vapour", "Phase Type" -> "Vapour", "State Of Aggregation" -> "Vapour", 
      "Hydrate Type" -> "s", 
      "Molar Fraction" -> {0.9999957515054304, 4.2484945696247895`*^-6}, 
      "Mass Fraction" -> {0.9999793141280595, 0.00002068587194043281}, 
      "Fugacity" -> {
        Quantity[1.7218702140688358`, "Megapascals"], 
        Quantity[2.988389936331232*^-6, "Megapascals"]}, 
      "Fugacity Coefficient" -> {0.8609387647280846, 0.35169986537080067`}|>],
    Editable->False,
    SelectWithContents->True,
    Selectable->False], ",", 
   InterpretationBox[
    RowBox[{
     TagBox["PhaseData",
      "SummaryHead"], "[", 
     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
      "Ready"}, 
      TemplateBox[{
        PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]],
                 ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                None, BaseStyle -> {}, Evaluator -> Automatic, Method -> 
                "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[
               TagBox[
                RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
                 "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> 
                 RGBColor, ImageResolution -> {96, 96}], 
                BoxForm`ImageTag[
                "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
               ImageSizeRaw -> {48., 48.}, PlotRange -> {{0, 48.}, {0, 48.}}, 
               ImageSize -> {30., Automatic}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Phase: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Solid Benzene\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Pure Solid\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Amount: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    
                    TemplateBox[{
                    "0.29999702604116646`", "\"mol\"", "moles", "\"Moles\""}, 
                    "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]],
                 ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, BaseStyle -> {}, Evaluator -> Automatic, Method -> 
                "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[
               TagBox[
                RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
                 "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> 
                 RGBColor, ImageResolution -> {96, 96}], 
                BoxForm`ImageTag[
                "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
               ImageSizeRaw -> {48., 48.}, PlotRange -> {{0, 48.}, {0, 48.}}, 
               ImageSize -> {30., Automatic}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Phase: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Solid Benzene\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Pure Solid\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Amount: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    
                    TemplateBox[{
                    "0.29999702604116646`", "\"mol\"", "moles", "\"Moles\""}, 
                    "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Benzene: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    TemplateBox[{"1.`", 
                    
                    RowBox[{
                    "\"mol\"", "\[InvisibleSpace]", "\"/\"", 
                    "\[InvisibleSpace]", "\"mol\""}], "moles per mole", 
                    FractionBox["\"Moles\"", "\"Moles\""]}, "Quantity", 
                    SyntaxForm -> Mod], "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
       "SummaryPanel"],
      DynamicModuleValues:>{}], "]"}],
    ThermoFAST`PhaseData[<|
     "Components" -> {"Methane", "Benzene"}, "Molar Amount" -> 
      Quantity[0.29999702604116646`, "Moles"], "Mass Amount" -> 
      Quantity[0.676027304824219, "Kilograms"], "Molar Mass" -> 
      Quantity[78.11184, "Kilograms"/"Moles"], "Molar Density" -> 
      Quantity[12989.572, "Meters"^(-3) "Moles"], "Mass Density" -> 
      Quantity[1.01463936973248*^6, "Kilograms" "Meters"^(-3)], "Pressure" -> 
      Quantity[2., "Megapascals"], "Temperature" -> 
      Quantity[199.99999999999997`, "Kelvins"], "Volume" -> 
      Quantity[0.00007698483060103905, "Meters"^3/"Moles"], "Enthalpy" -> 
      Quantity[-50764.51996887483, "Joules"/"Moles"], "Heat Capacity Cp" -> 
      Quantity[83.412, "Joules" "Kelvins"^(-1)/"Moles"], 
      "Thermal Conductivity" -> 
      Quantity[0.36804000000000003`, "Kelvins"^(-1) "Meters"^(-1) "Watts"], 
      "Saturation Pressure" -> Quantity[0., "Megapascals"], 
      "Saturation Fluid Phi" -> 1., "Subcooled Liquid Phi" -> 
      8.057414715115098*^-6, "Equilibrium Ortho-Para Hydrogen Ratio" -> 
      2.849780326444025, "Equilibrium Orthohydrogen Fraction" -> 
      0.740244919137066, "Equilibrium Parahydrogen Fraction" -> 
      0.259755080862934, "Name" -> "Solid Benzene", "Phase Type" -> "Solid", 
      "State Of Aggregation" -> "Solid", "Hydrate Type" -> "s", "Solid Type" -> 
      "Pure Solid", "Key Component" -> "Benzene", 
      "Molar Fraction" -> {0., 1.}, "Mass Fraction" -> {0., 1.}, "Fugacity" -> {
        Quantity[Indeterminate, "Megapascals"], 
        Quantity[2.9883899329424393`*^-6, "Megapascals"]}, 
      "Fugacity Coefficient" -> {Indeterminate, 1.4941949664712197`*^-6}|>],
    Editable->False,
    SelectWithContents->True,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{3.957905545666418*^9, 3.9579055788784313`*^9, 
  3.957906837184492*^9, 3.9781490351397953`*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"84c54237-d156-d149-86ea-eb08d6c33164"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"solid", "=", 
  RowBox[{"phases", "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.9579055879189835`*^9, 3.9579055960434513`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"d8071429-6967-024a-b55e-b4770d471507"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["PhaseData",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             TagBox[
              RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
               "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> RGBColor, 
               ImageResolution -> {96, 96}], 
              BoxForm`ImageTag[
              "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> 
              False], DefaultBaseStyle -> "ImageGraphics", 
             ImageSizeRaw -> {48., 48.}, PlotRange -> {{0, 48.}, {0, 48.}}, 
             ImageSize -> {30., Automatic}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Phase: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"Solid Benzene\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"Pure Solid\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Amount: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  
                  TemplateBox[{
                   "0.29999702604116646`", "\"mol\"", "moles", "\"Moles\""}, 
                   "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              BaseStyle -> {}, Evaluator -> Automatic, Method -> 
              "Preemptive"], Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], 
            GraphicsBox[
             TagBox[
              RasterBox[CompressedData["
1:eJztWmtsVGd6pk2rNEKIrqII0TQkeM45Y8fBXIw9nptZlljAIjYlXpemgbKG
UJcSQIGwxKKIpiybRTRNvcTrEiAscYw9njkzY7wEWS6yWNZx2axLWERcLsYe
z5kZD4OXImQhy7JOn+c7c8gwNokJZr276Y8PxjPn8l6f93nf75u+etOLf//H
EyZM2PJn+OfF0m3zN28uLS/+c/xRsnHLurKNa19ZvPH1tWVrNxesfgRffjO5
/gRL1/U/+v81Pmt6XU/edE/PjPGWYzxWzgexiXIgVi37Y+/k7v/Vn463PL/t
Zanrmi8HeuOyGr1s/ZrFQM4Hn06UfJEjsi88JPm0Qckb3vV1igHZ071EUmMJ
uT6ky/U9OmNArrs6c7zl+m0syRN9QlKjzbI3rMve0JCwAePAq+2XPrr06HjL
9zDXhHr9EdmnbZXVyG3qDBs0yF6tDZ912CRh8YZeGG8ZH+aCvjbZFwnLXiPm
4fPZstqzDHWgT3zni7TJnp4nx1vOh7Gm1YS+IfsjJ6DnkOKP3la82vq/9PQ8
Zg12TILelbKqIQfCxMK3/9CwkHFv8WnbqR/in/nuyTyiPS55etYo3vDiDF9Y
Rgy0C0xQIzf/0PJArg25wXNumFgP/bLl2q4s1P8O6N0keS49gTq4VOE13hCw
QOuw1F5+arzlHotF3WR/tJ35Df36FY+2fArqP/x8SGAgsBBx8RqxX/JGduFv
XcSIGq35fa8HUsWlRy2+cBVyW+gk+cJ7qRPifC3068f3N2GD24iNUIav25np
1x5HPJwwrtUG5fpwGXNnvPX4KotyS/U9L8P3rHX0Zwtrf0Zdt5P64u+bFk/3
SskX3Y08GIBtTmeq3VPZD+GekJErkZiCHmm8dfkqi3oo5HXUwx+NSUe7Zmf5
rj4N3ntGCfTeRo7vIP7TJsB/L64ZhE0OWQ+iHnh6XlL8vf3EQ8kfbZ5+tHPK
eOtzP4u1DnLXMo6R87cZ76xz8HGtHOwdYL3jNeb1xH/JHztFfAAWbBN28WkV
Zk20oD/4fcEC1m7F27P+DsfzRQ6x1wXX2aEErvXDzzX0efp9ggsFetslcCHJ
F1pKn+PzaZMbsk7+LmJBQUHBYyUlJXfkUtSePNHPMOf9sfZnPmTMa0uBazeR
D4334neCI3g0uxKIXxB1EfWRf0P3iLCBTzv9DPLHvJ7vlKRFw2JiwoSSh2Ij
h8NhdTqdq2w2ZxE+W/Ly8h53u91T+f9IcS/7ogn2eRk1V2Q5GO+A31tS5b+X
DcCJ5inBRCfip3EGn4fayFoh+mSftjs1D/hum802xeVyPUH57Hb3woIC5yrI
mT2WuvM9eP4G6stlsxVmFRQUzsDnp+iHEsht4L1WKvm1W5IaGYDMbwnOq8aq
lWC83VrdYR3Nuwyu2LNQabwewnO2JXmzV/SIiAXF273AvI7vpgzU3fQJ7WG3
O9en+uVBFt9hszmWw++LR/qd/rDUak8JDuvT2pHvIlYtAe0p1P6V1sa+c5K3
a7bdbn86J6do4mjfCzwokRviF9kz8X7k0uVkXDVMq+6eyrzK3a+P2CcwRu12
10upefmAse+22exbcnNzh71PPhq2WY6GsqHzTtS2Qca9VBdayliX/PFmyRMp
4nWMSTxn/mjfKXplNbYBvVJNRn3nZPSJG0QeqIgv9A20yUizU8pYUOB47X7e
9WVr0aJFj+KZW5FbS1O/p45y3dUyznEF5qFewf9VoobXd29g3TOvZY4iLt+G
fJNHHQMGV9xDe5IbokYeN/hxpI02t9R1b+D3ab56oaDAvZUyj5X+RkwxrxxH
gPdPmv6Rart3iN5G1faIWh2IXRT8DRgv14XK0ms2ZDuEUPrC3o71BNdNoh8F
xrM38nStE/zBEyqSOTcDp7Swxh7tXgIOud68Nz/fPR02Pkxbj6XuZlzh2W+a
OIAaPg/YvI9zO8kfIV4PKuB0tAtrdyq/MZfdZit1Fn6rSa76eJkCuaW67p2S
p3sbeqOXoFPWokUbEGcuJ+KsHO86znghjrEXZL8seJGq7Rcx4I+0PeO5as2o
D1VbPZrVsJ1zKe8dq7xP97/D4fTCtt+gHMAjr6WuZ6FcHypHXA5AnvNSbchy
z1jGb8/+24lD9vkLB7L3BAeM+Re4MZbk7RkUvZAaaclQe5ZJFR89yjxxOl0H
nE737lTcEXiIOoA6e4t2Y48heUMH0mQcE/8zDvFMGVi6AL7YAwx4i99n+KOL
ycsNjOs9BXkGye9G4mdGPQuvhH3CSt2VodwVG/UZOw7rEvsCMf9NWcIeYfaF
NYwhvHObw+GqYU6YzxOzc3/0AOKF/ZEHcTRdDsZa2V+IGIOcuGcvuUCyLk66
X70ZP8Dr9dC7DfnaCL0P4blbmPuC3wZ6G4H1m2RvyA3f9yEWwsTjYTmDa8Fl
NxGz7+hYc0mXazuH6566fNpQ5nv/1epyuDogQ2l6PGeAC6OPuIHndk33XJnB
PSQp0LuPv82Z454KWTdB5v2UHTHUCntsH4kr3msZfMcdwFqel7fgcWKpKQNx
Vz6W6GJfirjdAa46SM5HfEr3u5htqtEbX6hr2mJcWA+26/l/tVLPL/7exZmv
vT2MLzM24PtWcOV+xr+wR0PiYmb1Z1NN/1Fm6gE/LoUeJ2iX0epv1GpXCznV
sFhWIxtkcJq/8H/2uBKIqSL2PaF16c8QtTFgzH1Gp7ehe9a/N+v5S/9Gz315
o6588NkAfFyanlcirtTILrx/yOINVRJbIFMX6+QwzAXvQgy1kK+OVn+7vTDP
5ZrXDuwpJ6bc/d5oADIFWOOQB+3gtnFi0vC4R374I0PgAV+iezfxT5erO/Sc
77+r25aU6PC5rnz4P7ro/32RM6yB6TLKnq5lMmcEqtZEfqQ0/qYN1+5NtVXS
/1tcLvdZm81lG63+xFvcVwT9T7hchU3AkiWMJ9Y06/H/PYv8fMeK2sO8x/sv
ZIKPpt4v5lg+rUXMc7/I35wJAg+yd3v13L9dr8/53ut6VsVJHX3T59cB5zPf
/flL8IPou8w8lOvCM5WGa2H6YBriHpyoATHRTNtTfnJWyN+A/D9J+e8n/81F
3+MZO1BPLvMZxFrrRzdDyIE3WfeZ27D5yfRa/wx+U4K94eG+7xYxTt2VI+f1
53bV6nNWbdHnrHlDf3bvz4CLV8Rvd92jin5ip+35b2ex/jCeDf+DY/l7LwAH
L0q1lyywdQ3scZb1weEohO6uDtaBuXPnPtAcOVmHmxAPm9iTW3/2m7joQ1Fv
OKtnPjD+eC3rFGsv+17wtH4zp8X/8KmCGM+q+E895/UKffYr2/H/Pj2z8uc6
bJmGA/jsSS7OTtVItfXgLyZRf5N/iRjzhtvl4LXLGTVhGe/xWBuud9AX8Nkq
4v5Y9IDUH5ziBMJpK/VXGvviqPUHWHdQ+xMWNaaS7yd5q50xAz5SItd1DVoP
/bee+e4pPftHQVHzc7ZV6c/9c7Wh89HLaXGR1Bu2yMLv1vc/NWuh6PlsJa/k
EsfN3p76K9AfPr/AuEQuNXPOQP1ZM53OwgfWP6nTcjyrkzWV72FfbqnvaSbm
KsHEZfIg4532PGBMLu+z1IZewLW3rYfPCT2U6s+g1/CaL6XiwJELsM2HIi6y
3/J/jgHop5X3z7XYXfOaEM+7zL6Gs2LU3vPIgVb5pxefVILXzkKWc5y1Qf+V
iIEu2Ks4lTvdzzK4k6sGuvfhWW+T92ai5iHezoNrdLDnx+eTkO+8sssznTMC
k3eyHkCe+IhYb+pMvx69oj/7r8eR/+V6/uIX9Vn/+AOdNpNFzrAuhPXMqlZw
gRVDToezllzElI97SPQFrvWIvaRgImapD50i/lFWyL7PkN11OL2Of7nfXfNg
u07o/Qm5r4m5oq55w4iz2C3O8UX/c+x6JPPgGTvsXMbZEK8z9vi1T+7yNfc0
VHDWmovAukZ99trtesGCxVjf1me9ulu3HvilcRYihQvM2H5Qt3+zaAiyHEqP
ZRFjjddvAAe3ir2zYC/Pkhww65/Rr7mXQIezwMNO6jF6/Z3L3O55nfn5Dnfq
98aMK7xXaUgwL7dkeHqWKY2JG+hB17K+sl/j3GXugkV5mVUfV1h/+ms98yen
kf9+UdPn/vVaveD5JcLXc0q36tk/8IDjXLg7F2AnYkZe8Wpx7cx/OtiR9e7J
p+/CJPhBZg0KJhL0A/qLSspk8Xw+b/g8jgvt1IWzy9Hrz9nevIuIoXXpMx9i
uxKIct+uVeBhQ+Is8tCTsf9Xk5OzuJfZg9jnLfDkrni1b07p9/XZ/7ATWP9j
PfuHPj3zPz4WdQD4eBfnJQZk/uQX+pzVb+i2hd8xYuLI+SHJG9mWvh8u+K8/
1or3Nhn7qLGLYj+pPpSbel2yj1lF/U1sGs0y+kh3G2InARu0w6cqsQfPmil7
gDWBWKeYRYFvIg62wwYhi6fLbr6TNstZsWIiONx6hfsAKbrepTP3R8DziHe5
f7cZPi/VZ25+R89875eC+3FmPNLej+QLFyPvYrJXW8U9QvJM8kTWftYH2H8H
sYs6gL/Fmcfm3GY0izqAA8/GM17D4szmNHAEtnA35xQVTZS5p8kY8EUayQPI
OyQ1tp/Yy3v5LpvtW1PEGb9g7x4pEB+QjD1NUd9YF5kTs179oc5+eHbZTsSG
qivIF4H7vA7YPtK5OFH3g/FGPLNZzF6AM8D9QdQk9qePQc7j0LcPnLfNwG93
OevyV5mJmHsMxFP24njWLc4VxQzCH+2DnOy/SqVAZI3ScL3TPLfAOS/uySX+
5C9aVvLcjsPNOf9Sc2vmG1X6rA0/0mdt3KPPKH8P2P8R6uPZu/mPLzwI3U+S
36bLY/SU0TK+i7HHvTKJcyd/tJO1mXrC3zeh9870vvVBF3IiC88OMx44n8F7
D4t5J/i/ONfj761ED3qafYFpO84eyD85Q5mx5ceLM98/22Ctu5pAHRwy98TN
Bb0H0Pf2K0d+vete+52cNbP+Ii+2S2qoCP+HOXMmP55QUo+Yde2DjDHEwZie
pzTywbXAwANHDb8jx5cC0U7jDGNEFTPgYwmPcux67bS0fshc1mBiEve0gFcb
kBeV4I+1WIflQPxN5cPzy/MXFzcUOAuH9bBc3F9AnjXj3iriHPfLaUPJH/nE
3FMzZp+FfeBiC8dyBsieg3yanIoYaMRi/SM8wwQcuGWc64lU0QZKQ7xWOZY4
/EXnuBjH3LsQZz6wzJpNuTm/HGY3j2ZFn90I31cSb0T/LfZWeWYucmeezLpl
cFV3G2fBY6E7cxl6V0B/5v5d9XUK8U2NVSX35ohxB2TR+13bKwWvqbIannk/
e7bMF/Q4L0uSJDiu4FucM4Njo96VExPQewSEvY29kB3ptRH2W2PglLPyq8z+
Rsp7w+/uT0wOluyvJ3GJfWqv4Q/OcVGvj3MWKPmixexbYJN1I83C77WItQXf
/e5jgt+jtgJXvMCaIu6LirOS3h7uAw5g7WPfZcphxrvBfd2nkQcRM1YfZLGm
IPer8Lx+9oD0D2xbkZwrtrDvYf/BMxzizI6YZ4e7qLfYF0SNtvi0CoUzYOQE
/XWvObHIB86y1HAZzz+wzos5mi9cDoyNi1maP8qzI/vYc/PdkOMU9YUN9pK3
Qmf6/yZk9oyF/5NxaUnOEwbxbK4hLPKKAeN7h13sffuiFTzbIvoXnmX0aWc4
nxQ12x/NEjzdqy3IApZxD+FOHjV9OlH8Dj9D9yWSP2RhDzHdF1on6ou5V0CO
54uUk+cY/MR9wZDBzR5tCD4awHeUqet+5n1fthhbiKt5sC9zai2fbcwFBD+6
RTm4J07/KT5tucK9Wu7RiN6W2BgOQe5Kqa67OCNNd8P39Y9wfmw5ejmbZ39E
bfVpMaF3cgbEsyG0HeOE9ZS8FDqLmGTMJ/uPLfibvO+Fh7EHlP7MJDY2kGNy
30pcwxkx975V7S3UqpjYp0jubRAjkSc3JE8oBKw4yxqGfqoVf59DTeMs8aaw
V72xL8R7lUC8k2emU8/MUFe8N8Z5SPqe+kh71A9rsd/lbBVynEvn1wK7Ecci
dwPxNp4HUmgL8p07ez8ps3ER35pu7Otot3hejjhADEnHC87y+U72tvfD68d6
0Q/kG0avYWCNcRbFtR3y7ecM2fGd1ZOY/5b6aC65K/y+Hzh+Qm641oq+qV0J
JjjDawVOHCfmZfijq8j7iW85RSsmchaBer6HfZz5DgPzBbfvu5+59lgv4EEZ
ZLjN+kCZiMecFSYxaQgy3oDsLZB9sZHnBu9hX0SbTON5R9RPfuZ3qbXB2L9z
nTSxDZjWT52Nszecy5GTuG9ThnHUfynrLDEQn5uAP53JmnCcuJTkjMTkttQ5
nBG/rrVGPeV17jWpe7a0JeeXyWedYe+d7MfxLOc57vHStuTjsH3JeOlvzJjs
C436K2pjnL0X5wfESnJQ6HEBNgqZc3vDd85KQxfXYHLd5szEnG3yPoO/cP/T
/rT5LM70qHfyXcSdYpMrjufi3AfyIBcKi1LPnSS5UxO+7zfzFPosgfz0W8iY
qbh3Q8+wwSec4qxQEt8HcM3x1LhJxn0xbLOd89nx1jt1jVRvDZ4sfK2DN+6i
Xvj7VNLfm/g75wvJ2QL1bTEwxLELOurJ80LD6tnDqO0PyybMc3JG6MJ1K4ll
Tan7qqyjnC3h2iFeY+YF5/jjrcODruTsaD1y4DBzNsmX56dfZ8zcnReMul5Y
DX67ifeOt/xjtcRMNCdnYm7u85NHit/k3HSyefZrvOX9uqz/A4bW64Q=
               "], {{0, 48.}, {48., 0}}, {0, 255}, ColorFunction -> RGBColor, 
               ImageResolution -> {96, 96}], 
              BoxForm`ImageTag[
              "Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable -> 
              False], DefaultBaseStyle -> "ImageGraphics", 
             ImageSizeRaw -> {48., 48.}, PlotRange -> {{0, 48.}, {0, 48.}}, 
             ImageSize -> {30., Automatic}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Phase: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"Solid Benzene\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"Pure Solid\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Amount: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  
                  TemplateBox[{
                   "0.29999702604116646`", "\"mol\"", "moles", "\"Moles\""}, 
                   "Quantity", SyntaxForm -> Mod], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Benzene: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TemplateBox[{"1.`", 
                    
                    RowBox[{
                    "\"mol\"", "\[InvisibleSpace]", "\"/\"", 
                    "\[InvisibleSpace]", "\"mol\""}], "moles per mole", 
                    FractionBox["\"Moles\"", "\"Moles\""]}, "Quantity", 
                   SyntaxForm -> Mod], "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  ThermoFAST`PhaseData[<|
   "Components" -> {"Methane", "Benzene"}, "Molar Amount" -> 
    Quantity[0.29999702604116646`, "Moles"], "Mass Amount" -> 
    Quantity[0.676027304824219, "Kilograms"], "Molar Mass" -> 
    Quantity[78.11184, "Kilograms"/"Moles"], "Molar Density" -> 
    Quantity[12989.572, "Meters"^(-3) "Moles"], "Mass Density" -> 
    Quantity[1.01463936973248*^6, "Kilograms" "Meters"^(-3)], "Pressure" -> 
    Quantity[2., "Megapascals"], "Temperature" -> 
    Quantity[199.99999999999997`, "Kelvins"], "Volume" -> 
    Quantity[0.00007698483060103905, "Meters"^3/"Moles"], "Enthalpy" -> 
    Quantity[-50764.51996887483, "Joules"/"Moles"], "Heat Capacity Cp" -> 
    Quantity[83.412, "Joules" "Kelvins"^(-1)/"Moles"], "Thermal Conductivity" -> 
    Quantity[0.36804000000000003`, "Kelvins"^(-1) "Meters"^(-1) "Watts"], 
    "Saturation Pressure" -> Quantity[0., "Megapascals"], 
    "Saturation Fluid Phi" -> 1., "Subcooled Liquid Phi" -> 
    8.057414715115098*^-6, "Equilibrium Ortho-Para Hydrogen Ratio" -> 
    2.849780326444025, "Equilibrium Orthohydrogen Fraction" -> 
    0.740244919137066, "Equilibrium Parahydrogen Fraction" -> 
    0.259755080862934, "Name" -> "Solid Benzene", "Phase Type" -> "Solid", 
    "State Of Aggregation" -> "Solid", "Hydrate Type" -> "s", "Solid Type" -> 
    "Pure Solid", "Key Component" -> "Benzene", "Molar Fraction" -> {0., 1.}, 
    "Mass Fraction" -> {0., 1.}, "Fugacity" -> {
      Quantity[Indeterminate, "Megapascals"], 
      Quantity[2.9883899329424393`*^-6, "Megapascals"]}, 
    "Fugacity Coefficient" -> {Indeterminate, 1.4941949664712197`*^-6}|>],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.957905596621603*^9, 3.95790684072847*^9, 
  3.978149036474924*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"e4f82efd-9dba-0745-8b1b-49e55df438e8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Accessing information about phases", "Subsection",
 CellChangeTimes->{{3.9579068680372047`*^9, 
  3.957906884203333*^9}},ExpressionUUID->"3d8f2bf1-6133-9348-8893-\
ecf6851e78c2"],

Cell[TextData[{
 "The ",
 StyleBox["MultiphaseEquilibriumData",
  FontWeight->"Bold"],
 " and ",
 StyleBox["PhaseData",
  FontWeight->"Bold"],
 " objects encapsulate the data relevant to the thermodynamic state. To see \
what attributes are available, you can use ",
 StyleBox["Keys",
  FontWeight->"Bold"],
 ":"
}], "Text",
 CellChangeTimes->{{3.95790685000453*^9, 3.9579068550763683`*^9}, {
  3.957906886734516*^9, 3.9579069157668324`*^9}, {3.957906952492529*^9, 
  3.957907003422739*^9}},ExpressionUUID->"fd8866f0-8894-6d40-a2a1-\
1bfc9f5bf720"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", "[", "res", "]"}]], "Input",
 CellChangeTimes->{{3.9579070072520103`*^9, 3.9579070095698605`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"96c91cb5-e5a7-3942-ac87-cbddde411f13"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Description\"\>", ",", "\<\"Code\"\>", 
   ",", "\<\"Components\"\>", ",", "\<\"Phases\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.957907009884535*^9, 3.978149041490162*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"048cc8f9-2627-a043-8217-499b767478d1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", "[", "solid", "]"}]], "Input",
 CellChangeTimes->{{3.9579070124342422`*^9, 3.9579070151254215`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"bbc3420e-03a0-9a4a-92c0-f3528af3e35a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Components\"\>", ",", "\<\"Molar Amount\"\>", 
   ",", "\<\"Mass Amount\"\>", ",", "\<\"Molar Mass\"\>", 
   ",", "\<\"Molar Density\"\>", ",", "\<\"Mass Density\"\>", 
   ",", "\<\"Pressure\"\>", ",", "\<\"Temperature\"\>", ",", "\<\"Volume\"\>",
    ",", "\<\"Enthalpy\"\>", ",", "\<\"Heat Capacity Cp\"\>", 
   ",", "\<\"Thermal Conductivity\"\>", ",", "\<\"Saturation Pressure\"\>", 
   ",", "\<\"Saturation Fluid Phi\"\>", ",", "\<\"Subcooled Liquid Phi\"\>", 
   ",", "\<\"Equilibrium Ortho-Para Hydrogen Ratio\"\>", 
   ",", "\<\"Equilibrium Orthohydrogen Fraction\"\>", 
   ",", "\<\"Equilibrium Parahydrogen Fraction\"\>", ",", "\<\"Name\"\>", 
   ",", "\<\"Phase Type\"\>", ",", "\<\"State Of Aggregation\"\>", 
   ",", "\<\"Hydrate Type\"\>", ",", "\<\"Solid Type\"\>", 
   ",", "\<\"Key Component\"\>", ",", "\<\"Molar Fraction\"\>", 
   ",", "\<\"Mass Fraction\"\>", ",", "\<\"Fugacity\"\>", 
   ",", "\<\"Fugacity Coefficient\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.957907015550913*^9, 3.9781490432494698`*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"dc356b1b-7563-dc4c-9ce4-6a4880659806"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"solid", "[", "\"\<Fugacity Coefficient\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.9579056006571026`*^9, 3.9579056145783157`*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"5c448787-08c3-ad41-9fa1-a8373ca41b9f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Indeterminate", ",", "1.4941949664712197`*^-6"}], "}"}]], "Output",
 CellChangeTimes->{{3.957905603373762*^9, 3.9579056154639854`*^9}, 
   3.9781490445105457`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"cb68036f-e1c5-4648-b10a-ae1f2b1cee86"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"solid", "[", "\"\<Enthalpy\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.957907177186125*^9, 3.957907179893547*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"1ac9cf1c-1c2a-574b-bc68-988bdb39b718"],

Cell[BoxData[
 TemplateBox[{
   RowBox[{"-", "50764.51996887483`"}], 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"mol\""}], 
   "joules per mole", 
   FractionBox["\"Joules\"", "\"Moles\""]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.9579071803009033`*^9, 3.9781490505116444`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"3ecd4d19-d5f8-6149-afd4-fa73b721d212"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Other flash calculations", "Section",
 CellChangeTimes->{{3.910651902530423*^9, 
  3.9106519055573645`*^9}},ExpressionUUID->"05d89d60-669e-4521-b591-\
51c3eedd958c"],

Cell["\<\
While the pT-flash is the main workhorse, several other flash calculations \
are also supported:\
\>", "Text",
 CellChangeTimes->{{3.91065190731046*^9, 3.910651950353509*^9}, {
  3.957907222646803*^9, 
  3.957907223598095*^9}},ExpressionUUID->"0089b417-7d77-4fd1-bf5b-\
0debf05c5d77"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "FlashTDSolve"}]], "Input",
 CellChangeTimes->{{3.957907208692606*^9, 3.9579072163642406`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"22d362d1-414b-8440-960b-9fe320ac1697"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"FlashTDSolve[feed, T, d] performs a Td-flash \
calculation at the given temperature and molar density. Default units of \
temperature and molar density are MPa and mol/m^3.\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"FlashTDSolve", "[", 
                    
                    RowBox[{
                    "ThermoFAST`Private`feed_", ",", "ThermoFAST`Private`T_", 
                    ",", "ThermoFAST`Private`d_"}], "]"}], ":=", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`arg1", "=", 
                    
                    RowBox[{"ThermoFAST`Private`quantityMagnitudeWithDefault",
                     "[", 
                    RowBox[{"ThermoFAST`Private`T", ",", "\"Kelvins\""}], 
                    "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`arg2", "=", 
                    
                    RowBox[{"ThermoFAST`Private`quantityMagnitudeWithDefault",
                     "[", 
                    RowBox[{"ThermoFAST`Private`d", ",", 
                    FractionBox["\"Moles\"", 
                    SuperscriptBox["\"Meters\"", "3"]]}], "]"}]}]}], "}"}], 
                    ",", 
                    RowBox[{"ThermoFAST`Private`flashSolve", "[", 
                    
                    RowBox[{"TFFlashTypTd", ",", "ThermoFAST`Private`feed", 
                    ",", "ThermoFAST`Private`arg1", ",", 
                    "ThermoFAST`Private`arg2"}], "]"}]}], "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"ThermoFAST`FlashTDSolve\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"FlashTDSolve[feed, T, d] performs a Td-flash \
calculation at the given temperature and molar density. Default units of \
temperature and molar density are MPa and mol/m^3.\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "FlashTDSolve[feed, T, d] performs a Td-flash calculation at the given \
temperature and molar density. Default units of temperature and molar density \
are MPa and mol/m^3.", "Documentation" -> None, "OwnValues" -> None, 
    "UpValues" -> None, "DownValues" -> 
    Information`InformationValueForm[
     DownValues, ThermoFAST`FlashTDSolve, {ThermoFAST`FlashTDSolve[
         Pattern[ThermoFAST`Private`feed, 
          Blank[]], 
         Pattern[ThermoFAST`Private`T, 
          Blank[]], 
         Pattern[ThermoFAST`Private`d, 
          Blank[]]] :> 
       Module[{ThermoFAST`Private`arg1 = 
          ThermoFAST`Private`quantityMagnitudeWithDefault[
           ThermoFAST`Private`T, "Kelvins"], ThermoFAST`Private`arg2 = 
          ThermoFAST`Private`quantityMagnitudeWithDefault[
           ThermoFAST`Private`d, "Moles"/"Meters"^3]}, 
         ThermoFAST`Private`flashSolve[
         ThermoFAST`TFFlashTypTd, ThermoFAST`Private`feed, 
          ThermoFAST`Private`arg1, ThermoFAST`Private`arg2]]}], "SubValues" -> 
    None, "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> None, "Attributes" -> {}, "FullName" -> 
    "ThermoFAST`FlashTDSolve"|>, False]]], "Output",
 CellChangeTimes->{3.9579072258900833`*^9, 3.978149058082388*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"dcfed185-df98-3945-b974-2591e8987167"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "FlashPHSolve"}]], "Input",
 CellChangeTimes->{{3.957907226643038*^9, 3.957907229755417*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"5a5849b3-66e3-bc45-a5de-f6bbea7a4f6c"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"FlashPHSolve[feed, p, h] performs a ph-flash \
calculation at the given pressure and molar enthalpy. Default units of \
pressure and molar enthalpy are MPa and J/mol.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"FlashPHSolve", "[", 
                    
                    RowBox[{
                    "ThermoFAST`Private`feed_", ",", "ThermoFAST`Private`p_", 
                    ",", "ThermoFAST`Private`h_"}], "]"}], ":=", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`arg1", "=", 
                    
                    RowBox[{"ThermoFAST`Private`quantityMagnitudeWithDefault",
                     "[", 
                    RowBox[{"ThermoFAST`Private`p", ",", "\"Megapascals\""}], 
                    "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`arg2", "=", 
                    
                    RowBox[{"ThermoFAST`Private`quantityMagnitudeWithDefault",
                     "[", 
                    RowBox[{"ThermoFAST`Private`h", ",", 
                    FractionBox["\"Joules\"", "\"Moles\""]}], "]"}]}]}], 
                    "}"}], ",", 
                    RowBox[{"ThermoFAST`Private`flashSolve", "[", 
                    
                    RowBox[{"TFFlashTypPh", ",", "ThermoFAST`Private`feed", 
                    ",", "ThermoFAST`Private`arg1", ",", 
                    "ThermoFAST`Private`arg2"}], "]"}]}], "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"ThermoFAST`FlashPHSolve\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"FlashPHSolve[feed, p, h] performs a ph-flash \
calculation at the given pressure and molar enthalpy. Default units of \
pressure and molar enthalpy are MPa and J/mol.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "FlashPHSolve[feed, p, h] performs a ph-flash calculation at the given \
pressure and molar enthalpy. Default units of pressure and molar enthalpy are \
MPa and J/mol.", "Documentation" -> None, "OwnValues" -> None, "UpValues" -> 
    None, "DownValues" -> 
    Information`InformationValueForm[
     DownValues, ThermoFAST`FlashPHSolve, {ThermoFAST`FlashPHSolve[
         Pattern[ThermoFAST`Private`feed, 
          Blank[]], 
         Pattern[ThermoFAST`Private`p, 
          Blank[]], 
         Pattern[ThermoFAST`Private`h, 
          Blank[]]] :> 
       Module[{ThermoFAST`Private`arg1 = 
          ThermoFAST`Private`quantityMagnitudeWithDefault[
           ThermoFAST`Private`p, "Megapascals"], ThermoFAST`Private`arg2 = 
          ThermoFAST`Private`quantityMagnitudeWithDefault[
           ThermoFAST`Private`h, "Joules"/"Moles"]}, 
         ThermoFAST`Private`flashSolve[
         ThermoFAST`TFFlashTypPh, ThermoFAST`Private`feed, 
          ThermoFAST`Private`arg1, ThermoFAST`Private`arg2]]}], "SubValues" -> 
    None, "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> None, "Attributes" -> {}, "FullName" -> 
    "ThermoFAST`FlashPHSolve"|>, False]]], "Output",
 CellChangeTimes->{3.9579072302812557`*^9, 3.978149059320076*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"692964bb-28c0-bd41-b106-663f910b544b"]
}, Open  ]],

Cell["Dew and bubble point functions are also available:", "Text",
 CellChangeTimes->{{3.957907233862236*^9, 
  3.957907247182207*^9}},ExpressionUUID->"963d8b28-1a2b-c545-89ba-\
1987cb38b160"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "DewPSolve"}]], "Input",
 CellChangeTimes->{{3.9579072484673977`*^9, 3.9579072766388073`*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"6f2f8de7-f045-0d42-9806-5afdc33c0781"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"DewPSolve[feed, T] determines the dew point \
pressure of the given feed at temperature T. Default units of temperature are \
K.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"DewPSolve", "[", 
                    
                    RowBox[{
                    "ThermoFAST`Private`feed_", ",", 
                    "ThermoFAST`Private`T_"}], "]"}], ":=", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`arg1", "=", 
                    
                    RowBox[{"ThermoFAST`Private`quantityMagnitudeWithDefault",
                     "[", 
                    RowBox[{"ThermoFAST`Private`T", ",", "\"Kelvins\""}], 
                    "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`arg2", "=", "0"}]}], "}"}], 
                    ",", 
                    RowBox[{"ThermoFAST`Private`flashSolve", "[", 
                    
                    RowBox[{"TFFlashTypDewP", ",", "ThermoFAST`Private`feed", 
                    ",", "ThermoFAST`Private`arg1", ",", 
                    "ThermoFAST`Private`arg2"}], "]"}]}], "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"ThermoFAST`DewPSolve\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"DewPSolve[feed, T] determines the dew point \
pressure of the given feed at temperature T. Default units of temperature are \
K.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "DewPSolve[feed, T] determines the dew point pressure of the given feed \
at temperature T. Default units of temperature are K.", "Documentation" -> 
    None, "OwnValues" -> None, "UpValues" -> None, "DownValues" -> 
    Information`InformationValueForm[
     DownValues, ThermoFAST`DewPSolve, {ThermoFAST`DewPSolve[
         Pattern[ThermoFAST`Private`feed, 
          Blank[]], 
         Pattern[ThermoFAST`Private`T, 
          Blank[]]] :> 
       Module[{ThermoFAST`Private`arg1 = 
          ThermoFAST`Private`quantityMagnitudeWithDefault[
           ThermoFAST`Private`T, "Kelvins"], ThermoFAST`Private`arg2 = 0}, 
         ThermoFAST`Private`flashSolve[
         ThermoFAST`TFFlashTypDewP, ThermoFAST`Private`feed, 
          ThermoFAST`Private`arg1, ThermoFAST`Private`arg2]]}], "SubValues" -> 
    None, "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> None, "Attributes" -> {}, "FullName" -> 
    "ThermoFAST`DewPSolve"|>, False]]], "Output",
 CellChangeTimes->{{3.957907254876343*^9, 3.957907276988842*^9}, 
   3.9781490618449*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"1c8e5350-11e1-fb40-868a-d54c4a8a1f98"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "BubbleTSolve"}]], "Input",
 CellChangeTimes->{{3.9579072635189037`*^9, 3.9579072799614296`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"36e4a80a-57b9-2a44-bc07-6a1b60c367b4"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"BubbleTSolve[feed, p] determines the bubble point \
temperature of the given feed at pressure p. Default units of pressure are \
MPa.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"BubbleTSolve", "[", 
                    
                    RowBox[{
                    "ThermoFAST`Private`feed_", ",", 
                    "ThermoFAST`Private`p_"}], "]"}], ":=", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`arg1", "=", 
                    
                    RowBox[{"ThermoFAST`Private`quantityMagnitudeWithDefault",
                     "[", 
                    RowBox[{"ThermoFAST`Private`p", ",", "\"Megapascals\""}], 
                    "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`arg2", "=", "0"}]}], "}"}], 
                    ",", 
                    RowBox[{"ThermoFAST`Private`flashSolve", "[", 
                    
                    RowBox[{"TFFlashTypBblT", ",", "ThermoFAST`Private`feed", 
                    ",", "ThermoFAST`Private`arg1", ",", 
                    "ThermoFAST`Private`arg2"}], "]"}]}], "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"ThermoFAST`BubbleTSolve\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"BubbleTSolve[feed, p] determines the bubble point \
temperature of the given feed at pressure p. Default units of pressure are \
MPa.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "BubbleTSolve[feed, p] determines the bubble point temperature of the \
given feed at pressure p. Default units of pressure are MPa.", 
    "Documentation" -> None, "OwnValues" -> None, "UpValues" -> None, 
    "DownValues" -> 
    Information`InformationValueForm[
     DownValues, ThermoFAST`BubbleTSolve, {ThermoFAST`BubbleTSolve[
         Pattern[ThermoFAST`Private`feed, 
          Blank[]], 
         Pattern[ThermoFAST`Private`p, 
          Blank[]]] :> 
       Module[{ThermoFAST`Private`arg1 = 
          ThermoFAST`Private`quantityMagnitudeWithDefault[
           ThermoFAST`Private`p, "Megapascals"], ThermoFAST`Private`arg2 = 0}, 
         ThermoFAST`Private`flashSolve[
         ThermoFAST`TFFlashTypBblT, ThermoFAST`Private`feed, 
          ThermoFAST`Private`arg1, ThermoFAST`Private`arg2]]}], "SubValues" -> 
    None, "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> None, "Attributes" -> {}, "FullName" -> 
    "ThermoFAST`BubbleTSolve"|>, False]]], "Output",
 CellChangeTimes->{{3.957907270832243*^9, 3.9579072805207443`*^9}, 
   3.978149062631262*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"b265ae53-c674-3841-abab-aa5417e3d26e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Single-phase calculations", "Section",
 CellChangeTimes->{{3.957907387485628*^9, 
  3.957907393351675*^9}},ExpressionUUID->"2d4054ff-0641-4448-bd71-\
6ed4f8a17a5e"],

Cell[TextData[{
 "Functions like ",
 StyleBox["FlashPTSolve",
  FontWeight->"Bold"],
 " attempt to compute a thermodynamically stable multiphase equilibrium, \
which is intended to represent a physically plausible state of the given \
mixture. However, it is sometimes desirable to calculate states which are ",
 StyleBox["not",
  FontSlant->"Italic"],
 " thermodynamically stable. In flash calculations this is already somewhat \
available in the way one can \[OpenCurlyDoubleQuote]turn off\
\[CloseCurlyDoubleQuote] solid formation for specific components of the \
mixture. The functions below take this further allow the calculation of \
single fluid and pure solid phases."
}], "Text",
 CellChangeTimes->{{3.957907396157564*^9, 3.95790757919121*^9}, 
   3.957907616344883*^9},ExpressionUUID->"d5001289-4f75-5b4e-abf6-\
0c424c8558f5"],

Cell[TextData[{
 "The function ",
 StyleBox["FluidPhase",
  FontWeight->"Bold"],
 " calculates a hypothetical single fluid phase state for a feed at a given \
pressure and temperature:"
}], "Text",
 CellChangeTimes->{{3.957907581254608*^9, 
  3.9579077028479004`*^9}},ExpressionUUID->"8cc9448b-a3ad-7448-8861-\
75cdcf6e80a0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "FluidPhase"}]], "Input",
 CellChangeTimes->{{3.9579075956110725`*^9, 3.9579075986298103`*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"b32e5e12-97d7-2347-bd1a-7660be174971"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"FluidPhase[feed, p, T, opts] returns a single fluid \
phase at the given pressure and temperature. Default units of pressure and \
temperature are Megapascals and Kelvins.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"FluidPhase", "[", 
                    
                    RowBox[{
                    "ThermoFAST`Private`feed_FeedModel", ",", 
                    "ThermoFAST`Private`p_", ",", "ThermoFAST`Private`T_", 
                    ",", 
                    RowBox[{"ThermoFAST`Private`opts", ":", 
                    RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`pMPa", "=", 
                    
                    RowBox[{"ThermoFAST`Private`quantityMagnitudeWithDefault",
                     "[", 
                    RowBox[{"ThermoFAST`Private`p", ",", "\"Megapascals\""}], 
                    "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`TK", "=", 
                    
                    RowBox[{"ThermoFAST`Private`quantityMagnitudeWithDefault",
                     "[", 
                    RowBox[{"ThermoFAST`Private`T", ",", "\"Kelvins\""}], 
                    "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`phaseHint", "=", 
                    RowBox[{"Replace", "[", 
                    RowBox[{
                    RowBox[{"OptionValue", "[", "PhaseHint", "]"}], ",", 
                    RowBox[{"Automatic", "\[Rule]", "\"Automatic\""}]}], 
                    "]"}]}]}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"KeyExistsQ", "[", 
                    
                    RowBox[{"ThermoFAST`Private`$PhaseHintCodeLU", ",", 
                    "ThermoFAST`Private`phaseHint"}], "]"}]}], ",", 
                    RowBox[{
                    RowBox[{"Message", "[", 
                    RowBox[{
                    StyleBox[
                    RowBox[{"PhaseHint", "::", "opterr"}], "MessageName"], 
                    ",", "ThermoFAST`Private`phaseHint"}], "]"}], ";", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}]}], "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{"ThermoFAST`Private`setDllUserFeed", "[", 
                    "ThermoFAST`Private`feed", "]"}], "===", "$Failed"}], ",", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}], "]"}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"TFSetFluidPhase", "[", 
                    
                    RowBox[{"ThermoFAST`Private`pMPa", ",", 
                    "ThermoFAST`Private`TK", ",", 
                    
                    RowBox[{"PhaseHintCode", "[", 
                    "ThermoFAST`Private`phaseHint", "]"}]}], "]"}], "===", 
                    "$Failed"}], ",", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}], "]"}], ";", 
                    RowBox[{"ThermoFAST`Private`getPhaseData", "[", 
                    RowBox[{"ThermoFAST`Private`feed", ",", "1"}], "]"}]}]}], 
                    "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Options\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Options\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Options", "Tooltip"]& ], 
                   RowBox[{"PhaseHint", "\[Rule]", "Automatic"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"ThermoFAST`FluidPhase\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"FluidPhase[feed, p, T, opts] returns a single fluid \
phase at the given pressure and temperature. Default units of pressure and \
temperature are Megapascals and Kelvins.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "FluidPhase[feed, p, T, opts] returns a single fluid phase at the given \
pressure and temperature. Default units of pressure and temperature are \
Megapascals and Kelvins.", "Documentation" -> None, "OwnValues" -> None, 
    "UpValues" -> None, "DownValues" -> 
    Information`InformationValueForm[
     DownValues, ThermoFAST`FluidPhase, {ThermoFAST`FluidPhase[
         Pattern[ThermoFAST`Private`feed, 
          Blank[ThermoFAST`FeedModel]], 
         Pattern[ThermoFAST`Private`p, 
          Blank[]], 
         Pattern[ThermoFAST`Private`T, 
          Blank[]], 
         Pattern[ThermoFAST`Private`opts, 
          OptionsPattern[]]] :> 
       Module[{ThermoFAST`Private`pMPa = 
          ThermoFAST`Private`quantityMagnitudeWithDefault[
           ThermoFAST`Private`p, "Megapascals"], ThermoFAST`Private`TK = 
          ThermoFAST`Private`quantityMagnitudeWithDefault[
           ThermoFAST`Private`T, "Kelvins"], ThermoFAST`Private`phaseHint = 
          Replace[
            OptionValue[ThermoFAST`PhaseHint], Automatic -> "Automatic"]}, If[
           Not[
            KeyExistsQ[
            ThermoFAST`Private`$PhaseHintCodeLU, 
             ThermoFAST`Private`phaseHint]], Message[
             MessageName[ThermoFAST`PhaseHint, "opterr"], 
             ThermoFAST`Private`phaseHint]; Return[$Failed]]; 
         If[ThermoFAST`Private`setDllUserFeed[
            ThermoFAST`Private`feed] === $Failed, 
           Return[$Failed]]; 
         If[ThermoFAST`TFSetFluidPhase[
            ThermoFAST`Private`pMPa, ThermoFAST`Private`TK, 
             ThermoFAST`PhaseHintCode[
             ThermoFAST`Private`phaseHint]] === $Failed, 
           Return[$Failed]]; 
         ThermoFAST`Private`getPhaseData[ThermoFAST`Private`feed, 1]]}], 
    "SubValues" -> None, "DefaultValues" -> None, "NValues" -> None, 
    "FormatValues" -> None, "Options" -> {ThermoFAST`PhaseHint -> Automatic}, 
    "Attributes" -> {}, "FullName" -> "ThermoFAST`FluidPhase"|>, 
   False]]], "Output",
 CellChangeTimes->{3.957907598994503*^9, 3.9781490703186874`*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"e34c3a1c-4182-5243-875b-e3d35bd695b8"]
}, Open  ]],

Cell["\<\
The PhaseHint option allows the desired type of fluid (liquid or vapour) to \
be specified:\
\>", "Text",
 CellChangeTimes->{{3.957907581254608*^9, 
  3.9579077017024097`*^9}},ExpressionUUID->"7b0c9c08-0d3a-8747-8284-\
701c3d92a075"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "FluidPhase", "]"}]], "Input",
 CellChangeTimes->{{3.9579076576438313`*^9, 3.957907661071308*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"e9087d95-bebe-2c40-8bfd-db82fadd820d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"PhaseHint", "\[Rule]", "Automatic"}], "}"}]], "Output",
 CellChangeTimes->{3.957907661310356*^9, 3.978149072672653*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"7e860905-4660-bf4d-b2d6-f5a06ffe73d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["$PhaseHints"], "Input",
 CellChangeTimes->{{3.9579076738926296`*^9, 3.9579076760395756`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"acb2640b-13bb-3e4c-875a-1973d5f83ee2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Automatic\"\>", ",", "\<\"Vapour\"\>", ",", "\<\"Liquid\"\>", 
   ",", "\<\"Vapour Or Nearest Maximum\"\>", 
   ",", "\<\"Liquid Or Nearest Minimum\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.957907676461689*^9, 3.978149073569708*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"aea4c1ec-4ac9-5147-99bd-1732e000f6f8"]
}, Open  ]],

Cell["\<\
Similarly, PureSolidPhases will return a list of pure solid phases for all \
the components in the mixture:\
\>", "Text",
 CellChangeTimes->{{3.957907729182722*^9, 
  3.957907828806385*^9}},ExpressionUUID->"ef7af5c4-02b3-9b42-8cc0-\
78b2c27ae13a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "PureSolidPhases"}]], "Input",
 CellChangeTimes->{{3.9579077327167873`*^9, 3.957907743422102*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"fd955a42-62a4-524b-863a-ed7643ecc8c4"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"PureSolidPhases[feed, p, T] returns a list pure \
solid phases for the feed components at the given pressure and temperature. \
Default units of pressure and temperature are Megapascals and Kelvins.\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"PureSolidPhases", "[", 
                    
                    RowBox[{
                    "ThermoFAST`Private`feed_FeedModel", ",", 
                    "ThermoFAST`Private`p_", ",", "ThermoFAST`Private`T_"}], 
                    "]"}], ":=", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`pMPa", "=", 
                    
                    RowBox[{"ThermoFAST`Private`quantityMagnitudeWithDefault",
                     "[", 
                    RowBox[{"ThermoFAST`Private`p", ",", "\"Megapascals\""}], 
                    "]"}]}], ",", 
                    RowBox[{"ThermoFAST`Private`TK", "=", 
                    
                    RowBox[{"ThermoFAST`Private`quantityMagnitudeWithDefault",
                     "[", 
                    RowBox[{"ThermoFAST`Private`T", ",", "\"Kelvins\""}], 
                    "]"}]}], ",", "ThermoFAST`Private`res", ",", 
                    "ThermoFAST`Private`nPhases"}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{"ThermoFAST`Private`setDllUserFeed", "[", 
                    "ThermoFAST`Private`feed", "]"}], "===", "$Failed"}], ",", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}], "]"}], ";", 
                    RowBox[{"ThermoFAST`Private`res", "=", 
                    RowBox[{"TFSetSolidPhases", "[", 
                    
                    RowBox[{"ThermoFAST`Private`pMPa", ",", 
                    "ThermoFAST`Private`TK"}], "]"}]}], ";", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`res", "===", "$Failed"}], ",", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}], "]"}], ";", 
                    RowBox[{"ThermoFAST`Private`nPhases", "=", 
                    
                    RowBox[{"ThermoFAST`Private`res", "[", "\"n_phases\"", 
                    "]"}]}], ";", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`getPhaseData", "[", 
                    
                    RowBox[{"ThermoFAST`Private`feed", ",", 
                    "ThermoFAST`Private`k"}], "]"}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{"ThermoFAST`Private`k", ",", 
                    "ThermoFAST`Private`nPhases"}], "}"}]}], "]"}]}]}], 
                    "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"ThermoFAST`PureSolidPhases\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"PureSolidPhases[feed, p, T] returns a list pure \
solid phases for the feed components at the given pressure and temperature. \
Default units of pressure and temperature are Megapascals and Kelvins.\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "PureSolidPhases[feed, p, T] returns a list pure solid phases for the \
feed components at the given pressure and temperature. Default units of \
pressure and temperature are Megapascals and Kelvins.", "Documentation" -> 
    None, "OwnValues" -> None, "UpValues" -> None, "DownValues" -> 
    Information`InformationValueForm[
     DownValues, ThermoFAST`PureSolidPhases, {ThermoFAST`PureSolidPhases[
         Pattern[ThermoFAST`Private`feed, 
          Blank[ThermoFAST`FeedModel]], 
         Pattern[ThermoFAST`Private`p, 
          Blank[]], 
         Pattern[ThermoFAST`Private`T, 
          Blank[]]] :> 
       Module[{ThermoFAST`Private`pMPa = 
          ThermoFAST`Private`quantityMagnitudeWithDefault[
           ThermoFAST`Private`p, "Megapascals"], ThermoFAST`Private`TK = 
          ThermoFAST`Private`quantityMagnitudeWithDefault[
           ThermoFAST`Private`T, "Kelvins"], ThermoFAST`Private`res, 
          ThermoFAST`Private`nPhases}, 
         If[ThermoFAST`Private`setDllUserFeed[
            ThermoFAST`Private`feed] === $Failed, 
           Return[$Failed]]; 
         ThermoFAST`Private`res = 
          ThermoFAST`TFSetSolidPhases[
           ThermoFAST`Private`pMPa, ThermoFAST`Private`TK]; 
         If[ThermoFAST`Private`res === $Failed, 
           Return[$Failed]]; 
         ThermoFAST`Private`nPhases = ThermoFAST`Private`res["n_phases"]; 
         Table[
           ThermoFAST`Private`getPhaseData[
           ThermoFAST`Private`feed, ThermoFAST`Private`k], {
           ThermoFAST`Private`k, ThermoFAST`Private`nPhases}]]}], "SubValues" -> 
    None, "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> None, "Attributes" -> {}, "FullName" -> 
    "ThermoFAST`PureSolidPhases"|>, False]]], "Output",
 CellChangeTimes->{{3.9579077355377083`*^9, 3.957907743722994*^9}, 
   3.957907920731844*^9, 3.978149075853853*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"e9169153-767b-e649-9431-0374c69a6a52"]
}, Open  ]],

Cell[TextData[{
 "As a convenience there are also functions to evaluate the fugacity \
coefficients ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "i"], TraditionalForm]],ExpressionUUID->
  "a3d35c14-b4ff-8b43-94e5-6addc0845b73"],
 " corresponding the above phases:"
}], "Text",
 CellChangeTimes->{{3.9579079370871296`*^9, 3.957907950327368*^9}, {
  3.9579079881871624`*^9, 
  3.957908007263899*^9}},ExpressionUUID->"c72beb73-daa9-1e48-92e8-\
16937e39e996"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "FluidLogPhi"}]], "Input",
 CellChangeTimes->{{3.957907953621828*^9, 3.9579079569361267`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"2e058772-cc88-5c47-bb3b-ef1d1e46bd57"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"FluidLogPhi[feed, p, T, opts] returns log fugacity \
coefficients assuming a single fluid phase at the given pressure and \
temperature. Default units of pressure and temperature are Megapascals and \
Kelvins.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"FluidLogPhi", "[", 
                    
                    RowBox[{
                    "ThermoFAST`Private`feed_FeedModel", ",", 
                    "ThermoFAST`Private`p_", ",", "ThermoFAST`Private`T_", 
                    ",", 
                    RowBox[{"ThermoFAST`Private`opts", ":", 
                    RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"ThermoFAST`Private`fluid", "=", 
                    RowBox[{"FluidPhase", "[", 
                    
                    RowBox[{"ThermoFAST`Private`feed", ",", 
                    "ThermoFAST`Private`p", ",", "ThermoFAST`Private`T", ",", 
                    "ThermoFAST`Private`opts"}], "]"}]}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`fluid", "===", "$Failed"}], 
                    ",", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}], "]"}], ";", 
                    RowBox[{"Log", "[", 
                    
                    RowBox[{"ThermoFAST`Private`fluid", "[", 
                    "\"Fugacity Coefficient\"", "]"}], "]"}]}]}], "]"}]}]}, {
                   " "}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Options\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Options\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Options", "Tooltip"]& ], 
                   RowBox[{"PhaseHint", "\[Rule]", "Automatic"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"ThermoFAST`FluidLogPhi\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"FluidLogPhi[feed, p, T, opts] returns log fugacity \
coefficients assuming a single fluid phase at the given pressure and \
temperature. Default units of pressure and temperature are Megapascals and \
Kelvins.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "FluidLogPhi[feed, p, T, opts] returns log fugacity coefficients assuming \
a single fluid phase at the given pressure and temperature. Default units of \
pressure and temperature are Megapascals and Kelvins.", "Documentation" -> 
    None, "OwnValues" -> None, "UpValues" -> None, "DownValues" -> 
    Information`InformationValueForm[
     DownValues, ThermoFAST`FluidLogPhi, {ThermoFAST`FluidLogPhi[
         Pattern[ThermoFAST`Private`feed, 
          Blank[ThermoFAST`FeedModel]], 
         Pattern[ThermoFAST`Private`p, 
          Blank[]], 
         Pattern[ThermoFAST`Private`T, 
          Blank[]], 
         Pattern[ThermoFAST`Private`opts, 
          OptionsPattern[]]] :> 
       Module[{ThermoFAST`Private`fluid = 
          ThermoFAST`FluidPhase[
           ThermoFAST`Private`feed, ThermoFAST`Private`p, 
            ThermoFAST`Private`T, ThermoFAST`Private`opts]}, 
         If[ThermoFAST`Private`fluid === $Failed, 
           Return[$Failed]]; Log[
           ThermoFAST`Private`fluid["Fugacity Coefficient"]]]}], "SubValues" -> 
    None, "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> {ThermoFAST`PhaseHint -> Automatic}, "Attributes" -> {}, 
    "FullName" -> "ThermoFAST`FluidLogPhi"|>, False]]], "Output",
 CellChangeTimes->{3.9579079578974495`*^9, 3.97814907819672*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"41a35bff-85b1-bf41-b746-077d7bf876b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "SolidLogPhi"}]], "Input",
 CellChangeTimes->{{3.957907961033043*^9, 3.957907964062607*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"2b890227-2e6b-1d45-a920-657ca2bf3e78"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"SolidLogPhi[feed, p, T] returns log fugacity \
coefficients for the pure solid phases of feed components at the given \
pressure and temperature. Default units of pressure and temperature are \
Megapascals and Kelvins.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[
           TagBox[GridBox[{
              {
               StyleBox[
                TagBox[
                 TooltipBox[
                  StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
                   StripOnInput->False],
                  "\"Definitions\"",
                  TooltipStyle->"TextStyling"],
                 Annotation[#, "Definitions", "Tooltip"]& ], "DialogStyle",
                StripOnInput->False]},
              {
               TemplateBox[{"\"\[ThinSpace]\"", 
                 GridBox[{{
                    RowBox[{
                    RowBox[{"SolidLogPhi", "[", 
                    
                    RowBox[{
                    "ThermoFAST`Private`feed_FeedModel", ",", 
                    "ThermoFAST`Private`p_", ",", "ThermoFAST`Private`T_"}], 
                    "]"}], ":=", 
                    RowBox[{"Module", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`solids", "=", 
                    RowBox[{"PureSolidPhases", "[", 
                    
                    RowBox[{"ThermoFAST`Private`feed", ",", 
                    "ThermoFAST`Private`p", ",", "ThermoFAST`Private`T"}], 
                    "]"}]}], ",", "ThermoFAST`Private`lu"}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"ThermoFAST`Private`solids", "===", "$Failed"}], 
                    "||", 
                    RowBox[{
                    RowBox[{"Length", "[", "ThermoFAST`Private`solids", "]"}],
                     "\[NotEqual]", 
                    
                    RowBox[{"ThermoFAST`Private`feed", "[", "\"Count\"", 
                    "]"}]}]}], ",", 
                    RowBox[{"Return", "[", "$Failed", "]"}]}], "]"}], ";", 
                    RowBox[{"ThermoFAST`Private`lu", "=", 
                    RowBox[{"Association", "@@", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{"ThermoFAST`Private`solids", 
                    "\[LeftDoubleBracket]", "ThermoFAST`Private`k", 
                    "\[RightDoubleBracket]"}], "[", "\"Key Component\"", 
                    "]"}], "\[Rule]", 
                    RowBox[{"Log", "[", 
                    RowBox[{"SelectFirst", "[", 
                    RowBox[{
                    RowBox[{
                    
                    RowBox[{"ThermoFAST`Private`solids", 
                    "\[LeftDoubleBracket]", "ThermoFAST`Private`k", 
                    "\[RightDoubleBracket]"}], "[", 
                    "\"Fugacity Coefficient\"", "]"}], ",", "NumericQ"}], 
                    "]"}], "]"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"ThermoFAST`Private`k", ",", 
                    
                    RowBox[{"Length", "[", "ThermoFAST`Private`solids", 
                    "]"}]}], "}"}]}], "]"}]}]}], ";", 
                    RowBox[{"ThermoFAST`Private`lu", "/@", 
                    RowBox[{"Keys", "[", 
                    
                    RowBox[{"ThermoFAST`Private`feed", "[", "\"Components\"", 
                    "]"}], "]"}]}]}]}], "]"}]}]}, {" "}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, 
                  DefaultBaseStyle -> "Column", 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
                "RowDefault"]}
             },
             DefaultBaseStyle->"Column",
             GridBoxAlignment->{"Columns" -> {{Left}}},
             
             GridBoxItemSize->{
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
            "Column"],
           FrameMargins->{{6, 0}, {3, 6}}], "\<\"\"\>"},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"ThermoFAST`SolidLogPhi\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox[
             TagBox[
              TooltipBox[
               StyleBox["\<\" Symbol\"\>", "InformationRowLabel",
                StripOnInput->False],
               "\"Symbol\"",
               TooltipStyle->"TextStyling"],
              Annotation[#, "Symbol", "Tooltip"]& ], "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"SolidLogPhi[feed, p, T] returns log fugacity \
coefficients for the pure solid phases of feed components at the given \
pressure and temperature. Default units of pressure and temperature are \
Megapascals and Kelvins.\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               
               ImageSizeCache->{
                11., {2.9428223641589284`, 8.057177635841072}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          LightDarkSwitched[
           GrayLevel[0.8]], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "SolidLogPhi[feed, p, T] returns log fugacity coefficients for the pure \
solid phases of feed components at the given pressure and temperature. \
Default units of pressure and temperature are Megapascals and Kelvins.", 
    "Documentation" -> None, "OwnValues" -> None, "UpValues" -> None, 
    "DownValues" -> 
    Information`InformationValueForm[
     DownValues, ThermoFAST`SolidLogPhi, {ThermoFAST`SolidLogPhi[
         Pattern[ThermoFAST`Private`feed, 
          Blank[ThermoFAST`FeedModel]], 
         Pattern[ThermoFAST`Private`p, 
          Blank[]], 
         Pattern[ThermoFAST`Private`T, 
          Blank[]]] :> 
       Module[{ThermoFAST`Private`solids = 
          ThermoFAST`PureSolidPhases[
           ThermoFAST`Private`feed, ThermoFAST`Private`p, 
            ThermoFAST`Private`T], ThermoFAST`Private`lu}, If[
           Or[
           ThermoFAST`Private`solids === $Failed, 
            Length[ThermoFAST`Private`solids] != 
            ThermoFAST`Private`feed["Count"]], 
           Return[$Failed]]; ThermoFAST`Private`lu = Apply[Association, 
            Table[
            Part[ThermoFAST`Private`solids, ThermoFAST`Private`k][
              "Key Component"] -> Log[
               SelectFirst[
                Part[ThermoFAST`Private`solids, ThermoFAST`Private`k][
                "Fugacity Coefficient"], NumericQ]], {ThermoFAST`Private`k, 
              Length[ThermoFAST`Private`solids]}]]; Map[ThermoFAST`Private`lu, 
           Keys[
            ThermoFAST`Private`feed["Components"]]]]}], "SubValues" -> None, 
    "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, 
    "Options" -> None, "Attributes" -> {}, "FullName" -> 
    "ThermoFAST`SolidLogPhi"|>, False]]], "Output",
 CellChangeTimes->{3.9579079644019337`*^9, 3.978149079938574*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"21c4d1e6-67cd-2b42-a4d7-92c571cc938a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"phi", "[", 
   RowBox[{"p_", ",", "T_"}], "]"}], ":=", 
  RowBox[{"SolidLogPhi", "[", 
   RowBox[{
    RowBox[{"FeedModel", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<Benzene\>\"", "->", "1"}], "}"}], ",", 
      RowBox[{"FluidModel", "->", "\"\<Pure Fluid Reference\>\""}], ",", 
      RowBox[{"SolidModel", "->", "\"\<Helmholtz\>\""}]}], "]"}], ",", "p", ",",
     "T"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.9579080111979866`*^9, 3.957908092512951*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"d2245785-f56c-ce40-9446-c112c603a663"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"phi", "[", 
    RowBox[{"2.", ",", "T"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "100", ",", "300"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9579080938171425`*^9, 3.957908105657152*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"f5f4f37f-4e12-324f-91a2-b4e9803fc4a5"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], 
         LineBox[CompressedData["
1:eJwVj3k4lAkcgJVC5cg3rpnkmnKEcpbU5KesoZhKhSly39c3H7W5IttjK+sp
2ibCzFDtoliKp5ly/LQqKvFYYkjHhigSXUhs+8f7vH+8f736gXEeIYtlZGQO
/+B/XxHoqMrIcMHp4knNs9oc1B+6rDQuy4WR0j73IoKDAlOT5X3yXBjmXiOq
FDiYJ7aWrVHhwtHwMtbrT+6Y3enyOUyXC3N1451pbe54VC5e2r6NC4FKeU/O
prkjO/ZBsTCVC+tF6+Znht3wLYu0cvjGBekvPUPxd3ehpMnwhGjFIXi9dMo4
O9UV31QrTH9a5gNPb6m4T+SzsTfr+A43WV9YvOat//TET+ixk1t3T/UwrNcw
0F6/1wlNj/j5Win7gU11ubrm5+3I3j504aWKP+TX2HA2FDtiX0NwmAnfHxoT
1TbVJgAWTs48jqIFQE3Oyn6z8W14me/o6lAQAIfTZM2Tp7di36SAq8gIhJkN
Eo7i7i045ejcdZAfCN9XVe2c6tiMnCWiEPvVQaA9ujvP5oAd9qWoZNEKgmDq
fsu7JSs3YXmY5YNUZjBUp5GqLY9s0YddFBNRFgzOZ7ey3v9hg6wBnVKOYQgI
vyQYqJdbY9CQx0xzRQhM5TJYF69Zofhy4XMbs1BY9JIXce2JJXp05fXZ1oYC
b1S2PGnCAttmnoN4SxjEPCt7Jc+0wGPd9ltsJGHw62RcgP7L9RjGdHVzdAyH
Htbgaf14c8w0iplkYziU5oS6DFuaYaZev0zH1gh4Frh8IFveFB9lfTMc/TsC
brN6C8RdJuhQYfnqm2MkaLMN5uqbjXEaGDeEDyMhOD6pesN1I8xtdRtv3hMF
n/X/jR+4aog+ChfqXrdFwWZRivrwnbUYKTlbcv5ANKyi+6kOtqzBUj2RNqsr
GloXhMr7J5j4IGVWJnxPDOiP6VYyDJhoukt+jtkTAzlTyQOPdxlgQ7tJlnR/
LOydZDlYZekj//68hd5ALMgblhYNNulhUfxopL9PHJTq5Zw6raiHmeo6KgbS
OMi+H+Np0aSD0t8Xh9hbkLDIdGu4wHs1ys+m/+YfR8KCUHDanqaNXnneDu03
SRh6lO9v18DA22em5/prSEg2YpaoSRiok5p3e6SWhOt25/iTNxk4GNBru1hM
wtT16osVZQwkTb3NbOtISG/znTa/wMBTDV70gmYSljXq6uyJZqB40PNjaDcJ
sk2a3vRVDFzV86Uq/ikJuXMaLSs0GHi8lR+b3kOCZhh9ZH4lA50qn47mS0no
Vuve9EaOgR0/e758PEDCw8ZxGk7RcWS5Z5vVMAm8u74VuQ/pqGV54M/5LySo
nEoWc0/86JzV3jNfSUg89+V+fSodb0UPKXyaJsG6ROBlkERHz9IjkaOzP/6X
KS2MUXQ8r8s375onod+uKehUMB2VlXtulsnxYHNsZWwPm45L3nnjfg0eVC1N
fN6tTMfJKz7SclsevMF7PRyBFo7trecLE3mQuCn5RUqhJi5IjXVUJTw4xHxT
35WhgRk+koM7vvJAIVdEc0xSRyOtywYN9hREO+8MaAlWw8HKizW1iRQEK67r
1Y2k4RnLmoEnSRRodbRqdIbQ0KKmQ24kmYKGtNqxkwE0TJYs4zKOU+CboXB4
zJuGRHPy9+MZFLx/17rvLpuGjlI/Z5csCq6oUUfOrKWhQNa4t6+QggQP0esz
rwh0ynRa9KmIAuUDCv27Bwh8qxCwTklIwaXhq6HqUgJtlS+lOBRTUH6PaV/S
QeBjLUX9K1cpsNIobL/bSOCs+YeImEoKXrywF+kKCBRVKZ7P/IuC2Y2aHeP5
BDpbm9QJqyhQrL6VW3eBwBy7QOXOGxQsSXjbfiibQOMdXTc23qLAP11oVJxC
4JN7H/p3iyk4ObzmXfwxAhNclJZGSCjQ878N7AQC0d3Zq+AOBSv31RVPRBEY
2hGYXlNHQaHL3PXmMAIV96WVtdVTwHf96HopiMAb3QWdww0UPDPLOkb6Eejl
Lf620EiB3D8VduxDBP4HXCHRvg==
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              RGBColor[0.24, 0.6, 0.8], 
              AbsoluteThickness[2]], 
             Line[CompressedData["
1:eJwVj3k4lAkcgJVC5cg3rpnkmnKEcpbU5KesoZhKhSly39c3H7W5IttjK+sp
2ibCzFDtoliKp5ly/LQqKvFYYkjHhigSXUhs+8f7vH+8f736gXEeIYtlZGQO
/+B/XxHoqMrIcMHp4knNs9oc1B+6rDQuy4WR0j73IoKDAlOT5X3yXBjmXiOq
FDiYJ7aWrVHhwtHwMtbrT+6Y3enyOUyXC3N1451pbe54VC5e2r6NC4FKeU/O
prkjO/ZBsTCVC+tF6+Znht3wLYu0cvjGBekvPUPxd3ehpMnwhGjFIXi9dMo4
O9UV31QrTH9a5gNPb6m4T+SzsTfr+A43WV9YvOat//TET+ixk1t3T/UwrNcw
0F6/1wlNj/j5Win7gU11ubrm5+3I3j504aWKP+TX2HA2FDtiX0NwmAnfHxoT
1TbVJgAWTs48jqIFQE3Oyn6z8W14me/o6lAQAIfTZM2Tp7di36SAq8gIhJkN
Eo7i7i045ejcdZAfCN9XVe2c6tiMnCWiEPvVQaA9ujvP5oAd9qWoZNEKgmDq
fsu7JSs3YXmY5YNUZjBUp5GqLY9s0YddFBNRFgzOZ7ey3v9hg6wBnVKOYQgI
vyQYqJdbY9CQx0xzRQhM5TJYF69Zofhy4XMbs1BY9JIXce2JJXp05fXZ1oYC
b1S2PGnCAttmnoN4SxjEPCt7Jc+0wGPd9ltsJGHw62RcgP7L9RjGdHVzdAyH
Htbgaf14c8w0iplkYziU5oS6DFuaYaZev0zH1gh4Frh8IFveFB9lfTMc/TsC
brN6C8RdJuhQYfnqm2MkaLMN5uqbjXEaGDeEDyMhOD6pesN1I8xtdRtv3hMF
n/X/jR+4aog+ChfqXrdFwWZRivrwnbUYKTlbcv5ANKyi+6kOtqzBUj2RNqsr
GloXhMr7J5j4IGVWJnxPDOiP6VYyDJhoukt+jtkTAzlTyQOPdxlgQ7tJlnR/
LOydZDlYZekj//68hd5ALMgblhYNNulhUfxopL9PHJTq5Zw6raiHmeo6KgbS
OMi+H+Np0aSD0t8Xh9hbkLDIdGu4wHs1ys+m/+YfR8KCUHDanqaNXnneDu03
SRh6lO9v18DA22em5/prSEg2YpaoSRiok5p3e6SWhOt25/iTNxk4GNBru1hM
wtT16osVZQwkTb3NbOtISG/znTa/wMBTDV70gmYSljXq6uyJZqB40PNjaDcJ
sk2a3vRVDFzV86Uq/ikJuXMaLSs0GHi8lR+b3kOCZhh9ZH4lA50qn47mS0no
Vuve9EaOgR0/e758PEDCw8ZxGk7RcWS5Z5vVMAm8u74VuQ/pqGV54M/5LySo
nEoWc0/86JzV3jNfSUg89+V+fSodb0UPKXyaJsG6ROBlkERHz9IjkaOzP/6X
KS2MUXQ8r8s375onod+uKehUMB2VlXtulsnxYHNsZWwPm45L3nnjfg0eVC1N
fN6tTMfJKz7SclsevMF7PRyBFo7trecLE3mQuCn5RUqhJi5IjXVUJTw4xHxT
35WhgRk+koM7vvJAIVdEc0xSRyOtywYN9hREO+8MaAlWw8HKizW1iRQEK67r
1Y2k4RnLmoEnSRRodbRqdIbQ0KKmQ24kmYKGtNqxkwE0TJYs4zKOU+CboXB4
zJuGRHPy9+MZFLx/17rvLpuGjlI/Z5csCq6oUUfOrKWhQNa4t6+QggQP0esz
rwh0ynRa9KmIAuUDCv27Bwh8qxCwTklIwaXhq6HqUgJtlS+lOBRTUH6PaV/S
QeBjLUX9K1cpsNIobL/bSOCs+YeImEoKXrywF+kKCBRVKZ7P/IuC2Y2aHeP5
BDpbm9QJqyhQrL6VW3eBwBy7QOXOGxQsSXjbfiibQOMdXTc23qLAP11oVJxC
4JN7H/p3iyk4ObzmXfwxAhNclJZGSCjQ878N7AQC0d3Zq+AOBSv31RVPRBEY
2hGYXlNHQaHL3PXmMAIV96WVtdVTwHf96HopiMAb3QWdww0UPDPLOkb6Eejl
Lf620EiB3D8VduxDBP4HXCHRvg==
              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{100, 300}, {-60.223116817227975`, 0.}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {100.00000000000023`, 0}, 
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
           "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.24, 0.6, 0.8], 
              AbsoluteThickness[2]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{100, 300}, {-60.223116817227975`, 0.}}, 
          "Frame" -> {{False, False}, {False, False}}, 
          "AxesOrigin" -> {100.00000000000023`, 0}, 
          "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.24, 0.6, 0.8], 
             AbsoluteThickness[2]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.24, 0.6, 0.8], 
          AbsoluteThickness[2]], 
         Line[CompressedData["
1:eJwVj3k4lAkcgJVC5cg3rpnkmnKEcpbU5KesoZhKhSly39c3H7W5IttjK+sp
2ibCzFDtoliKp5ly/LQqKvFYYkjHhigSXUhs+8f7vH+8f736gXEeIYtlZGQO
/+B/XxHoqMrIcMHp4knNs9oc1B+6rDQuy4WR0j73IoKDAlOT5X3yXBjmXiOq
FDiYJ7aWrVHhwtHwMtbrT+6Y3enyOUyXC3N1451pbe54VC5e2r6NC4FKeU/O
prkjO/ZBsTCVC+tF6+Znht3wLYu0cvjGBekvPUPxd3ehpMnwhGjFIXi9dMo4
O9UV31QrTH9a5gNPb6m4T+SzsTfr+A43WV9YvOat//TET+ixk1t3T/UwrNcw
0F6/1wlNj/j5Win7gU11ubrm5+3I3j504aWKP+TX2HA2FDtiX0NwmAnfHxoT
1TbVJgAWTs48jqIFQE3Oyn6z8W14me/o6lAQAIfTZM2Tp7di36SAq8gIhJkN
Eo7i7i045ejcdZAfCN9XVe2c6tiMnCWiEPvVQaA9ujvP5oAd9qWoZNEKgmDq
fsu7JSs3YXmY5YNUZjBUp5GqLY9s0YddFBNRFgzOZ7ey3v9hg6wBnVKOYQgI
vyQYqJdbY9CQx0xzRQhM5TJYF69Zofhy4XMbs1BY9JIXce2JJXp05fXZ1oYC
b1S2PGnCAttmnoN4SxjEPCt7Jc+0wGPd9ltsJGHw62RcgP7L9RjGdHVzdAyH
Htbgaf14c8w0iplkYziU5oS6DFuaYaZev0zH1gh4Frh8IFveFB9lfTMc/TsC
brN6C8RdJuhQYfnqm2MkaLMN5uqbjXEaGDeEDyMhOD6pesN1I8xtdRtv3hMF
n/X/jR+4aog+ChfqXrdFwWZRivrwnbUYKTlbcv5ANKyi+6kOtqzBUj2RNqsr
GloXhMr7J5j4IGVWJnxPDOiP6VYyDJhoukt+jtkTAzlTyQOPdxlgQ7tJlnR/
LOydZDlYZekj//68hd5ALMgblhYNNulhUfxopL9PHJTq5Zw6raiHmeo6KgbS
OMi+H+Np0aSD0t8Xh9hbkLDIdGu4wHs1ys+m/+YfR8KCUHDanqaNXnneDu03
SRh6lO9v18DA22em5/prSEg2YpaoSRiok5p3e6SWhOt25/iTNxk4GNBru1hM
wtT16osVZQwkTb3NbOtISG/znTa/wMBTDV70gmYSljXq6uyJZqB40PNjaDcJ
sk2a3vRVDFzV86Uq/ikJuXMaLSs0GHi8lR+b3kOCZhh9ZH4lA50qn47mS0no
Vuve9EaOgR0/e758PEDCw8ZxGk7RcWS5Z5vVMAm8u74VuQ/pqGV54M/5LySo
nEoWc0/86JzV3jNfSUg89+V+fSodb0UPKXyaJsG6ROBlkERHz9IjkaOzP/6X
KS2MUXQ8r8s375onod+uKehUMB2VlXtulsnxYHNsZWwPm45L3nnjfg0eVC1N
fN6tTMfJKz7SclsevMF7PRyBFo7trecLE3mQuCn5RUqhJi5IjXVUJTw4xHxT
35WhgRk+koM7vvJAIVdEc0xSRyOtywYN9hREO+8MaAlWw8HKizW1iRQEK67r
1Y2k4RnLmoEnSRRodbRqdIbQ0KKmQ24kmYKGtNqxkwE0TJYs4zKOU+CboXB4
zJuGRHPy9+MZFLx/17rvLpuGjlI/Z5csCq6oUUfOrKWhQNa4t6+QggQP0esz
rwh0ynRa9KmIAuUDCv27Bwh8qxCwTklIwaXhq6HqUgJtlS+lOBRTUH6PaV/S
QeBjLUX9K1cpsNIobL/bSOCs+YeImEoKXrywF+kKCBRVKZ7P/IuC2Y2aHeP5
BDpbm9QJqyhQrL6VW3eBwBy7QOXOGxQsSXjbfiibQOMdXTc23qLAP11oVJxC
4JN7H/p3iyk4ObzmXfwxAhNclJZGSCjQ878N7AQC0d3Zq+AOBSv31RVPRBEY
2hGYXlNHQaHL3PXmMAIV96WVtdVTwHf96HopiMAb3QWdww0UPDPLOkb6Eejl
Lf620EiB3D8VduxDBP4HXCHRvg==
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{100, 300}, {-60.223116817227975`, 0.}}, 
       "Frame" -> {{False, False}, {False, False}}, 
       "AxesOrigin" -> {100.00000000000023`, 0}, 
       "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
       "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          RGBColor[0.24, 0.6, 0.8], 
          AbsoluteThickness[2]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{100.00000000000023`, 0},
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotRange->{{100, 300}, {-60.223116817227975`, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.9579081133195724`*^9, 3.978149092397629*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"3ba72b3d-4422-674d-acd7-59573dcc7c78"]
}, Open  ]]
}, Open  ]],

Cell["Fugacity coefficients", "Section",
 CellChangeTimes->{{3.9579079316880455`*^9, 
  3.957907935600281*^9}},ExpressionUUID->"3ceadb1d-e5c7-8e4b-abde-\
eebde4c46fa1"],

Cell[CellGroupData[{

Cell["Solid and hydrate formation **COMING SOON**", "Section",
 CellChangeTimes->{{3.9103490307256994`*^9, 3.9103490310789027`*^9}, {
  3.910651328484681*^9, 3.910651334039884*^9}, {3.9106589182700806`*^9, 
  3.9106589205344505`*^9}, {3.910658956089484*^9, 3.910658960382531*^9}, {
  3.9579073523892746`*^9, 
  3.957907355077875*^9}},ExpressionUUID->"e68ce966-3db6-4228-bd23-\
67dfc31b977b"],

Cell["** COMING SOON **", "Text",
 CellChangeTimes->{{3.910658924238894*^9, 3.9106589828948507`*^9}, {
  3.95790730534354*^9, 
  3.9579073100306664`*^9}},ExpressionUUID->"c8a34382-6da6-476a-a902-\
3b2bb31afb35"],

Cell[CellGroupData[{

Cell["Solid formation", "Subsection",
 CellChangeTimes->{{3.9106589859766846`*^9, 3.9106589882267437`*^9}, 
   3.9106692884375095`*^9},ExpressionUUID->"e2e69101-16a2-491f-b8ff-\
642d0d98b450"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mixture", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<Methane\>\"", "->", "0.7"}], ",", 
     RowBox[{"\"\<Benzene\>\"", "->", "0.3"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p", "=", 
   RowBox[{"Quantity", "[", 
    RowBox[{"2", ",", "\"\<Megapascals\>\""}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.910651727984163*^9, 3.910651751798936*^9}},
 CellLabel->
  "In[327]:=",ExpressionUUID->"660a7c03-a223-4563-aef4-79fcdc9c7edf"],

Cell[BoxData[
 RowBox[{"SolidTransitionTemperatures", "[", 
  RowBox[{"mixture", ",", "p"}], "]"}]], "Input",
 CellChangeTimes->{{3.9106517535026493`*^9, 3.9106517626387796`*^9}},
 CellLabel->
  "In[329]:=",ExpressionUUID->"c5dba510-e24b-411f-94e6-367562d22634"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hydrate formation", "Subsection",
 CellChangeTimes->{{3.9106590006535597`*^9, 3.910659002361733*^9}, 
   3.9106692909593477`*^9},ExpressionUUID->"5d0e8541-968a-4d9d-a9d6-\
85f967cf6926"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mixture", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<Methane\>\"", "->", "0.7"}], ",", 
     RowBox[{"\"\<Water\>\"", "->", "0.3"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p", "=", 
   RowBox[{"Quantity", "[", 
    RowBox[{"2", ",", "\"\<Megapascals\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"Quantity", "[", 
    RowBox[{"200", ",", "\"\<Kelvins\>\""}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.910651727984163*^9, 3.910651751798936*^9}, {
  3.910659009390829*^9, 3.910659034470928*^9}},
 CellLabel->
  "In[332]:=",ExpressionUUID->"3a21c881-8f4a-4039-b465-41362cb9f2ed"],

Cell[BoxData[
 RowBox[{"HydrateFormationTemperature", "[", 
  RowBox[{"mixture", ",", "p"}], "]"}]], "Input",
 CellChangeTimes->{{3.9106517535026493`*^9, 3.9106517626387796`*^9}, {
  3.9106590162418394`*^9, 3.9106590241647096`*^9}},
 CellLabel->
  "In[335]:=",ExpressionUUID->"ebaa8150-2161-4695-91f4-dfe894733fb9"],

Cell[BoxData[
 RowBox[{"HydrateFormationPressure", "[", 
  RowBox[{"mixture", ",", "T"}], "]"}]], "Input",
 CellChangeTimes->{{3.9106591126981325`*^9, 3.9106591181499777`*^9}},
 CellLabel->
  "In[337]:=",ExpressionUUID->"b6d811f7-ffe3-4883-ad23-631bad606b6a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["General phase transitions", "Subsection",
 CellChangeTimes->{{3.9106692834331665`*^9, 
  3.9106692971938963`*^9}},ExpressionUUID->"cc1d1fe7-f123-4b5e-b993-\
b069633903b7"],

Cell["\<\
The following functions find all phase transitions occurring within a given \
range of temperatures or pressures:\
\>", "Text",
 CellChangeTimes->{{3.9106692986051397`*^9, 
  3.9106693392051744`*^9}},ExpressionUUID->"69c4571a-5827-4581-bbff-\
cf24f4d6b021"],

Cell[BoxData[
 RowBox[{
  RowBox[{"mixture", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<Methane\>\"", "->", "0.9"}], ",", 
     RowBox[{"\"\<Benzene\>\"", "->", "0.1"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.910651727984163*^9, 3.910651751798936*^9}, {
  3.910659009390829*^9, 3.910659034470928*^9}, {3.910669366456729*^9, 
  3.910669375486745*^9}},
 CellLabel->
  "In[352]:=",ExpressionUUID->"5057f011-f682-473a-935d-9b0d60d08d81"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"p", "=", 
   RowBox[{"Quantity", "[", 
    RowBox[{"2", ",", "\"\<Megapascals\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Tmin", ",", "Tmax"}], "}"}], "=", 
   RowBox[{"Quantity", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"30", ",", "300"}], "}"}], ",", "\"\<Kelvins\>\""}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.910651727984163*^9, 3.910651751798936*^9}, {
  3.910659009390829*^9, 3.910659034470928*^9}, {3.910669366456729*^9, 
  3.910669424383354*^9}, {3.910669472342225*^9, 3.9106694970406475`*^9}},
 CellLabel->
  "In[354]:=",ExpressionUUID->"7a3046c2-d760-4b8a-b5d2-75dfde301ba5"],

Cell[BoxData[
 RowBox[{"IsobaricPhaseTransitions", "[", 
  RowBox[{"mixture", ",", "p", ",", 
   RowBox[{"{", 
    RowBox[{"Tmin", ",", "Tmax"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9106694026033325`*^9, 3.9106694089950314`*^9}},
 CellLabel->
  "In[356]:=",ExpressionUUID->"fa085314-025c-4c2c-bc5a-8eea6b6c679d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"pmin", ",", "pmax"}], "}"}], "=", 
   RowBox[{"Quantity", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.01", ",", "10"}], "}"}], ",", "\"\<Megapascals\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"Quantity", "[", 
    RowBox[{"200", ",", "\"\<Kelvins\>\""}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.910651727984163*^9, 3.910651751798936*^9}, {
  3.910659009390829*^9, 3.910659034470928*^9}, {3.910669366456729*^9, 
  3.910669424383354*^9}, {3.910669472342225*^9, 3.910669536118922*^9}},
 CellLabel->
  "In[357]:=",ExpressionUUID->"e51fc385-8bfa-4cf5-b1d9-f14f030c88cc"],

Cell[BoxData[
 RowBox[{"IsothermalPhaseTransitions", "[", 
  RowBox[{"mixture", ",", 
   RowBox[{"{", 
    RowBox[{"pmin", ",", "pmax"}], "}"}], ",", "T"}], "]"}]], "Input",
 CellChangeTimes->{{3.9106694026033325`*^9, 3.9106694089950314`*^9}, {
  3.9106695398951473`*^9, 3.9106695618261647`*^9}},
 CellLabel->
  "In[361]:=",ExpressionUUID->"797961f4-5719-4662-8167-922c7e59ac94"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Phase diagrams **COMING SOON**", "Section",
 CellChangeTimes->{{3.9106591378501453`*^9, 3.9106591435910935`*^9}, {
  3.957907343989565*^9, 
  3.9579073483667126`*^9}},ExpressionUUID->"8f0c0420-f3d8-442c-827b-\
009f74296389"],

Cell["\<\
Although still a work in progress, the ThermoFAST package has several \
functions for generating phase diagrams that can be useful.\
\>", "Text",
 CellChangeTimes->{{3.9106692151351404`*^9, 
  3.9106692529562426`*^9}},ExpressionUUID->"e02d62db-4a1c-4cb6-a6d8-\
5c36aba5d4cb"],

Cell[CellGroupData[{

Cell["PlotPhaseBoundaries", "Subsection",
 CellChangeTimes->{{3.9106692629544125`*^9, 3.9106692700146704`*^9}, {
  3.910669591470747*^9, 
  3.910669609654907*^9}},ExpressionUUID->"41d9031f-40ab-4c8a-bb7d-\
4c98d47fb356"],

Cell["\<\
This function identifies transitions within the given pressure and \
temperature ranges, linearly sampling points according to the value of the \
PlotPoints option (default value is 20). It is useful for obtaining a \
\[OpenCurlyDoubleQuote]quick and dirty\[CloseCurlyDoubleQuote] visualization \
of the phase behaviour for a mixture.\
\>", "Text",
 CellChangeTimes->{{3.910669859652827*^9, 3.9106699393379035`*^9}, {
  3.91067030195297*^9, 
  3.9106703253281007`*^9}},ExpressionUUID->"bfcd67ff-706e-4fee-9c5d-\
c80c53aca56c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"mixture", "=", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", "=", "0.001"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\"\<Normal Hydrogen\>\"", "->", 
        RowBox[{"1", "-", "x"}]}], ",", 
       RowBox[{"\"\<Nitrogen\>\"", "->", "x"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.9106696153852673`*^9, 3.910669630141859*^9}, {
  3.910669747466611*^9, 3.910669771257145*^9}},
 CellLabel->
  "In[364]:=",ExpressionUUID->"b53448cc-3c33-44d2-b6fc-3f2ce9cb7493"],

Cell[BoxData[
 RowBox[{"PlotPhaseBoundaries", "[", 
  RowBox[{"mixture", ",", 
   RowBox[{"{", 
    RowBox[{"0.1", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"30", ",", "55"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.910669610758406*^9, 3.9106696827077665`*^9}, {
  3.9106698021335115`*^9, 3.910669816788578*^9}},
 CellLabel->
  "In[365]:=",ExpressionUUID->"432696f7-da8a-46bd-82ff-cf4eccb03854"]
}, Open  ]],

Cell[CellGroupData[{

Cell["ListPlotPhaseBoundaries", "Subsection",
 CellChangeTimes->{{3.910669944882484*^9, 
  3.910669948605765*^9}},ExpressionUUID->"310041c5-8bbb-4711-a630-\
94bddb4a83a2"],

Cell[TextData[{
 "This function is similar to PlotPhaseBoundaries but instead of pressure and \
temperature ",
 StyleBox["ranges",
  FontSlant->"Italic"],
 ", it takes explicit lists of values. This allows the resolution to be more \
carefully attuned to the structure of the phase diagram, avoiding unnecessary \
computation and making it more useful for generating high resolution phase \
diagram visualizations."
}], "Text",
 CellChangeTimes->{{3.9106699584475*^9, 3.910670036956117*^9}, {
  3.910670332947356*^9, 
  3.910670349971486*^9}},ExpressionUUID->"f79cb736-db98-4330-bf2d-\
830594996f8a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"mixture", "=", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", "=", "0.001"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\"\<Normal Hydrogen\>\"", "->", 
        RowBox[{"1", "-", "x"}]}], ",", 
       RowBox[{"\"\<Nitrogen\>\"", "->", "x"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.9106696153852673`*^9, 3.910669630141859*^9}, {
  3.910669747466611*^9, 3.910669771257145*^9}},
 CellLabel->
  "In[450]:=",ExpressionUUID->"d249ab8b-c86f-44c2-978d-830dd8c5e34b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pValues", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"0.1", ",", "2", ",", "0.1"}], "]"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"2.5", ",", "8", ",", "0.5"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TValues", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"30", ",", "43", ",", "1"}], "]"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"43.1", ",", "45", ",", "0.1"}], "]"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"45", ",", "55", ",", "1"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.9106700403733773`*^9, 3.9106701293241916`*^9}},
 CellLabel->
  "In[451]:=",ExpressionUUID->"a089254a-ce12-4fcf-bcc8-ca9996bbe8a2"],

Cell[BoxData[
 RowBox[{"ListPlotPhaseBoundaries", "[", 
  RowBox[{"mixture", ",", "pValues", ",", "TValues", ",", 
   RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.910669610758406*^9, 3.9106696827077665`*^9}, {
  3.9106698021335115`*^9, 3.910669816788578*^9}, {3.9106701334073095`*^9, 
  3.910670144112606*^9}},
 CellLabel->
  "In[453]:=",ExpressionUUID->"79929a27-bb09-4799-8af0-122cf51cbf6d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["PhaseBoundaryPoints", "Subsection",
 CellChangeTimes->{{3.9428865664097376`*^9, 
  3.9428865692985153`*^9}},ExpressionUUID->"5acce3c6-8c9a-4e5f-aa66-\
525f384c2598"],

Cell["\<\
It is sometimes useful to be able to generate the phase boundary points \
rather than a plot. E.g. this is helpful when there are many different phase \
boundaries and you want to consider only a subset of them. In this case the \
function PhaseBoundaryPoints may useful:\
\>", "Text",
 CellChangeTimes->{{3.942886571482606*^9, 
  3.942886678618409*^9}},ExpressionUUID->"f35a2c5c-01a6-4b63-837b-\
1521b29c1685"],

Cell[BoxData[
 RowBox[{
  RowBox[{"mixture", "=", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", "=", "0.001"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\"\<Normal Hydrogen\>\"", "->", 
        RowBox[{"1", "-", "x"}]}], ",", 
       RowBox[{"\"\<Nitrogen\>\"", "->", "x"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.9106696153852673`*^9, 3.910669630141859*^9}, {
  3.910669747466611*^9, 3.910669771257145*^9}},
 CellLabel->
  "In[450]:=",ExpressionUUID->"b529aa07-695b-41c9-bb77-b399dcb21a77"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pValues", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"0.1", ",", "2", ",", "0.1"}], "]"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"2.5", ",", "8", ",", "0.5"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TValues", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Range", "[", 
      RowBox[{"30", ",", "43", ",", "1"}], "]"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"43.1", ",", "45", ",", "0.1"}], "]"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"45", ",", "55", ",", "1"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.9106700403733773`*^9, 3.9106701293241916`*^9}},
 CellLabel->
  "In[451]:=",ExpressionUUID->"d278fae9-b37a-49c9-a8dd-b2bf3b953ce4"],

Cell[BoxData[
 RowBox[{"PhaseBoundaryPoints", "[", 
  RowBox[{"mixture", ",", "pValues", ",", "TValues"}], "]"}]], "Input",
 CellChangeTimes->{{3.910669610758406*^9, 3.9106696827077665`*^9}, {
  3.9106698021335115`*^9, 3.910669816788578*^9}, {3.9106701334073095`*^9, 
  3.910670144112606*^9}, {3.9428866898274484`*^9, 
  3.9428866992188025`*^9}},ExpressionUUID->"990f862b-3cde-4cb9-a0d1-\
90d746774cc6"]
}, Open  ]]
}, Closed]],

Cell["Low-Level subroutine wrappers **DESCRIPTION TO BE ADDED**", "Section",
 CellChangeTimes->{{3.9579101147893047`*^9, 
  3.957910129191292*^9}},ExpressionUUID->"1bb1f458-18f2-e943-8343-\
434e64d5f3c7"]
}, Open  ]]
},
WindowSize->{1440, 742},
WindowMargins->{{1553.5, Automatic}, {Automatic, 186.5}},
TaggingRules-><|"TryRealOnly" -> False|>,
Magnification:>1.1 Inherited,
FrontEndVersion->"14.3 for Microsoft Windows (64-bit) (October 31, 2025)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"752e6512-15a2-467b-95ee-247e46914944"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[576, 22, 164, 3, 106, "Title",ExpressionUUID->"ec6431b2-5b27-488e-bfd3-a9ee21f86d25"],
Cell[743, 27, 288, 6, 37, "Text",ExpressionUUID->"f4e47350-dafb-4d81-a6ba-a535d3492ae1"],
Cell[CellGroupData[{
Cell[1056, 37, 263, 4, 72, "Section",ExpressionUUID->"2459a278-7dbd-4a76-b64c-77294504a26e"],
Cell[1322, 43, 1146, 22, 61, "Text",ExpressionUUID->"d6672497-2695-7744-97d0-9ad8d50f655b"],
Cell[CellGroupData[{
Cell[2493, 69, 367, 6, 51, "Input",ExpressionUUID->"14f2c7cb-ae52-fd45-9f8f-6a7f460c161d"],
Cell[2863, 77, 22634, 398, 64, "Output",ExpressionUUID->"b6576a42-626f-904b-8bfd-bbd2361f43ef"]
}, Open  ]],
Cell[25512, 478, 380, 9, 37, "Text",ExpressionUUID->"01a3b9ee-d026-6441-9f51-7c1922b5a3f2"],
Cell[25895, 489, 237, 6, 37, "Text",ExpressionUUID->"b3c662b4-462c-6a44-be73-4dd4d50a38bb"],
Cell[CellGroupData[{
Cell[26157, 499, 252, 4, 31, "Input",ExpressionUUID->"7ba3917c-0812-b044-bd86-d73c25e76d03"],
Cell[26412, 505, 22658, 398, 64, "Output",ExpressionUUID->"c00ab2b6-e571-9e43-b0ca-9846be429335"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49107, 908, 211, 3, 31, "Input",ExpressionUUID->"a6db737c-2166-c94a-b7b6-321be12c773a"],
Cell[49321, 913, 8400, 202, 300, "Output",ExpressionUUID->"07c3fbe9-090c-9c4a-a60f-ff62456e9712"]
}, Open  ]],
Cell[57736, 1118, 295, 6, 37, "Text",ExpressionUUID->"30bdf1fc-869c-8f4f-bf20-d5e0cfc9fb7c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58068, 1129, 166, 3, 72, "Section",ExpressionUUID->"6f63d373-9aaf-c14d-b3b3-c3ae2fd3fa26"],
Cell[58237, 1134, 290, 7, 37, "Text",ExpressionUUID->"a0660293-d92e-4513-846b-327d32e5c524"],
Cell[58530, 1143, 134, 2, 31, "Input",ExpressionUUID->"ebdf8e48-434b-4370-83b0-2bd4ab414914"],
Cell[58667, 1147, 400, 10, 37, "Text",ExpressionUUID->"638cbcd0-1208-4259-8fc6-b116352f962b"],
Cell[59070, 1159, 230, 5, 37, "Text",ExpressionUUID->"6a6892a1-0ceb-cd4a-a5ee-93b3758bf840"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59337, 1169, 288, 4, 72, "Section",ExpressionUUID->"9e1589e7-c594-4e81-aed2-0bd98580094d"],
Cell[59628, 1175, 335, 7, 37, "Text",ExpressionUUID->"5dc7931e-8d96-4fe5-b233-497f0b8ccfec"],
Cell[CellGroupData[{
Cell[59988, 1186, 252, 4, 31, "Input",ExpressionUUID->"b959c7c5-bd4d-49dc-b28c-b5e8c60c4b1a"],
Cell[60243, 1192, 12509, 306, 97, "Output",ExpressionUUID->"e5a3b3fd-3628-3644-ba34-4b548e8227c9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72789, 1503, 218, 4, 58, "Subsection",ExpressionUUID->"0397c2fe-66b4-4d18-a8c4-43bf79306cbd"],
Cell[73010, 1509, 339, 10, 37, "Text",ExpressionUUID->"253831e5-5cca-431e-a055-42aa600a926b"],
Cell[CellGroupData[{
Cell[73374, 1523, 201, 3, 31, "Input",ExpressionUUID->"34e4dd17-7b8d-9a48-b0d5-24353a45fc2f"],
Cell[73578, 1528, 50354, 1075, 125, "Output",ExpressionUUID->"2b97dd7f-09ab-4c4f-b009-82188aa6c7ac"]
}, Open  ]],
Cell[123947, 2606, 249, 6, 37, "Text",ExpressionUUID->"77a72fa5-0c92-544e-bf87-614de2b10e4a"],
Cell[CellGroupData[{
Cell[124221, 2616, 442, 9, 31, "Input",ExpressionUUID->"9c1813c3-bc65-4882-8f2e-d51a2e76d6d1"],
Cell[124666, 2627, 20448, 365, 69, "Output",ExpressionUUID->"146903b2-3332-954c-87dd-801d7561a8b0"]
}, Open  ]],
Cell[145129, 2995, 499, 11, 61, "Text",ExpressionUUID->"427bd7aa-95c9-431b-8d2f-2e55e7940991"],
Cell[145631, 3008, 392, 8, 37, "Text",ExpressionUUID->"78a3677a-c58a-4c2f-b9ca-c720d8dc321d"],
Cell[CellGroupData[{
Cell[146048, 3020, 371, 9, 31, "Input",ExpressionUUID->"b14b2de4-813f-0d43-a59e-1dc0b587d731"],
Cell[146422, 3031, 20452, 365, 69, "Output",ExpressionUUID->"d3248897-c6e2-2948-ac2e-3362d6a26999"]
}, Open  ]],
Cell[166889, 3399, 375, 8, 37, "Text",ExpressionUUID->"3167f633-d594-7f4d-a5c5-3cf5a9688b10"],
Cell[CellGroupData[{
Cell[167289, 3411, 215, 3, 31, "Input",ExpressionUUID->"69df1fb4-062b-0c4e-b0db-b80d68b34b89"],
Cell[167507, 3416, 603, 12, 56, "Output",ExpressionUUID->"e308a91e-c153-0f4c-9b02-0325022df4d5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[168147, 3433, 187, 2, 31, "Input",ExpressionUUID->"8f53f07d-54cf-674d-b983-93cc581ebc9d"],
Cell[168337, 3437, 763, 14, 56, "Output",ExpressionUUID->"d5d79475-8653-6d47-a1c0-3e78e719f1fb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[169137, 3456, 431, 10, 31, "Input",ExpressionUUID->"f719ace2-bedb-ee42-a50f-6c0c9e03c444"],
Cell[169571, 3468, 20955, 378, 69, "Output",ExpressionUUID->"f1168f93-858d-0945-af57-1cbb06b22dff"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[190575, 3852, 236, 4, 58, "Subsection",ExpressionUUID->"d83fa5ae-130a-42af-8c67-80b8bba2cfc6"],
Cell[190814, 3858, 349, 7, 61, "Text",ExpressionUUID->"314ca5a6-6345-4d2d-a6b1-0ed3929244ea"],
Cell[191166, 3867, 248, 5, 31, "Input",ExpressionUUID->"4f6bcd59-d327-4a75-9bba-ddbabaa5e81a"],
Cell[191417, 3874, 466, 8, 61, "Text",ExpressionUUID->"22ff7035-67e1-4e58-9afe-33f3307c0c6a"],
Cell[191886, 3884, 437, 11, 31, "Input",ExpressionUUID->"4ae10730-f411-452c-8207-7df5cd99f0ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192360, 3900, 201, 3, 58, "Subsection",ExpressionUUID->"40664b30-9930-4265-813e-2fc437004a98"],
Cell[192564, 3905, 173, 3, 37, "Text",ExpressionUUID->"0e24217f-c0e3-46d9-bfe3-4cc46865bd5d"],
Cell[CellGroupData[{
Cell[192762, 3912, 327, 6, 31, "Input",ExpressionUUID->"41759d48-1293-4cfa-8089-0de00dc12e09"],
Cell[193092, 3920, 25541, 451, 78, "Output",ExpressionUUID->"6b1b891c-987d-1a40-98be-44dfcbefee14"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[218682, 4377, 267, 4, 58, "Subsection",ExpressionUUID->"fdb39cb2-ef35-4324-956a-8f5a4516d5d8"],
Cell[218952, 4383, 761, 16, 61, "Text",ExpressionUUID->"2e650393-f060-48da-b818-a3ca746ba2b1"],
Cell[CellGroupData[{
Cell[219738, 4403, 295, 5, 31, "Input",ExpressionUUID->"2db789bc-6a3b-9343-ac81-a848074e290d"],
Cell[220036, 4410, 45556, 800, 82, "Output",ExpressionUUID->"84c54237-d156-d149-86ea-eb08d6c33164"]
}, Open  ]],
Cell[CellGroupData[{
Cell[265629, 5215, 259, 5, 31, "Input",ExpressionUUID->"d8071429-6967-024a-b55e-b4770d471507"],
Cell[265891, 5222, 21433, 378, 82, "Output",ExpressionUUID->"e4f82efd-9dba-0745-8b1b-49e55df438e8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[287373, 5606, 184, 3, 58, "Subsection",ExpressionUUID->"3d8f2bf1-6133-9348-8893-ecf6851e78c2"],
Cell[287560, 5611, 548, 16, 37, "Text",ExpressionUUID->"fd8866f0-8894-6d40-a2a1-1bfc9f5bf720"],
Cell[CellGroupData[{
Cell[288133, 5631, 208, 3, 31, "Input",ExpressionUUID->"96c91cb5-e5a7-3942-ac87-cbddde411f13"],
Cell[288344, 5636, 299, 5, 35, "Output",ExpressionUUID->"048cc8f9-2627-a043-8217-499b767478d1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[288680, 5646, 210, 3, 31, "Input",ExpressionUUID->"bbc3420e-03a0-9a4a-92c0-f3528af3e35a"],
Cell[288893, 5651, 1154, 18, 98, "Output",ExpressionUUID->"dc356b1b-7563-dc4c-9ce4-6a4880659806"]
}, Open  ]],
Cell[CellGroupData[{
Cell[290084, 5674, 234, 3, 31, "Input",ExpressionUUID->"5c448787-08c3-ad41-9fa1-a8373ca41b9f"],
Cell[290321, 5679, 282, 5, 37, "Output",ExpressionUUID->"cb68036f-e1c5-4648-b10a-ae1f2b1cee86"]
}, Open  ]],
Cell[CellGroupData[{
Cell[290640, 5689, 218, 3, 31, "Input",ExpressionUUID->"1ac9cf1c-1c2a-574b-bc68-988bdb39b718"],
Cell[290861, 5694, 399, 9, 36, "Output",ExpressionUUID->"3ecd4d19-d5f8-6149-afd4-fa73b721d212"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[291321, 5710, 171, 3, 72, "Section",ExpressionUUID->"05d89d60-669e-4521-b591-51c3eedd958c"],
Cell[291495, 5715, 294, 7, 37, "Text",ExpressionUUID->"0089b417-7d77-4fd1-bf5b-0debf05c5d77"],
Cell[CellGroupData[{
Cell[291814, 5726, 202, 3, 31, "Input",ExpressionUUID->"22d362d1-414b-8440-960b-9fe320ac1697"],
Cell[292019, 5731, 12645, 309, 97, "Output",ExpressionUUID->"dcfed185-df98-3945-b974-2591e8987167"]
}, Open  ]],
Cell[CellGroupData[{
Cell[304701, 6045, 200, 3, 31, "Input",ExpressionUUID->"5a5849b3-66e3-bc45-a5de-f6bbea7a4f6c"],
Cell[304904, 6050, 12563, 306, 97, "Output",ExpressionUUID->"692964bb-28c0-bd41-b106-663f910b544b"]
}, Open  ]],
Cell[317482, 6359, 192, 3, 37, "Text",ExpressionUUID->"963d8b28-1a2b-c545-89ba-1987cb38b160"],
Cell[CellGroupData[{
Cell[317699, 6366, 201, 3, 31, "Input",ExpressionUUID->"6f2f8de7-f045-0d42-9806-5afdc33c0781"],
Cell[317903, 6371, 12002, 297, 97, "Output",ExpressionUUID->"1c8e5350-11e1-fb40-868a-d54c4a8a1f98"]
}, Open  ]],
Cell[CellGroupData[{
Cell[329942, 6673, 204, 3, 31, "Input",ExpressionUUID->"36e4a80a-57b9-2a44-bc07-6a1b60c367b4"],
Cell[330149, 6678, 12049, 298, 97, "Output",ExpressionUUID->"b265ae53-c674-3841-abab-aa5417e3d26e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[342247, 6982, 170, 3, 72, "Section",ExpressionUUID->"2d4054ff-0641-4448-bd71-6ed4f8a17a5e"],
Cell[342420, 6987, 837, 17, 85, "Text",ExpressionUUID->"d5001289-4f75-5b4e-abf6-0c424c8558f5"],
Cell[343260, 7006, 325, 9, 37, "Text",ExpressionUUID->"8cc9448b-a3ad-7448-8861-75cdcf6e80a0"],
Cell[CellGroupData[{
Cell[343610, 7019, 202, 3, 31, "Input",ExpressionUUID->"b32e5e12-97d7-2347-bd1a-7660be174971"],
Cell[343815, 7024, 15666, 372, 97, "Output",ExpressionUUID->"e34c3a1c-4182-5243-875b-e3d35bd695b8"]
}, Open  ]],
Cell[359496, 7399, 243, 6, 37, "Text",ExpressionUUID->"7b0c9c08-0d3a-8747-8284-701c3d92a075"],
Cell[CellGroupData[{
Cell[359764, 7409, 216, 3, 31, "Input",ExpressionUUID->"e9087d95-bebe-2c40-8bfd-db82fadd820d"],
Cell[359983, 7414, 238, 4, 35, "Output",ExpressionUUID->"7e860905-4660-bf4d-b2d6-f5a06ffe73d4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[360258, 7423, 186, 2, 31, "Input",ExpressionUUID->"acb2640b-13bb-3e4c-875a-1973d5f83ee2"],
Cell[360447, 7427, 360, 6, 35, "Output",ExpressionUUID->"aea4c1ec-4ac9-5147-99bd-1732e000f6f8"]
}, Open  ]],
Cell[360822, 7436, 257, 6, 37, "Text",ExpressionUUID->"ef7af5c4-02b3-9b42-8cc0-78b2c27ae13a"],
Cell[CellGroupData[{
Cell[361104, 7446, 205, 3, 31, "Input",ExpressionUUID->"fd955a42-62a4-524b-863a-ed7643ecc8c4"],
Cell[361312, 7451, 14596, 348, 97, "Output",ExpressionUUID->"e9169153-767b-e649-9431-0374c69a6a52"]
}, Open  ]],
Cell[375923, 7802, 465, 12, 37, "Text",ExpressionUUID->"c72beb73-daa9-1e48-92e8-16937e39e996"],
Cell[CellGroupData[{
Cell[376413, 7818, 201, 3, 31, "Input",ExpressionUUID->"2e058772-cc88-5c47-bb3b-ef1d1e46bd57"],
Cell[376617, 7823, 13109, 318, 97, "Output",ExpressionUUID->"41a35bff-85b1-bf41-b746-077d7bf876b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[389763, 8146, 199, 3, 31, "Input",ExpressionUUID->"2b890227-2e6b-1d45-a920-657ca2bf3e78"],
Cell[389965, 8151, 14654, 352, 97, "Output",ExpressionUUID->"21c4d1e6-67cd-2b42-a4d7-92c571cc938a"]
}, Open  ]],
Cell[404634, 8506, 591, 14, 31, "Input",ExpressionUUID->"d2245785-f56c-ce40-9446-c112c603a663"],
Cell[CellGroupData[{
Cell[405250, 8524, 347, 8, 31, "Input",ExpressionUUID->"f5f4f37f-4e12-324f-91a2-b4e9803fc4a5"],
Cell[405600, 8534, 12387, 251, 254, "Output",ExpressionUUID->"3ba72b3d-4422-674d-acd7-59573dcc7c78"]
}, Open  ]]
}, Open  ]],
Cell[418014, 8789, 168, 3, 72, "Section",ExpressionUUID->"3ceadb1d-e5c7-8e4b-abde-eebde4c46fa1"],
Cell[CellGroupData[{
Cell[418207, 8796, 391, 6, 57, "Section",ExpressionUUID->"e68ce966-3db6-4228-bd23-67dfc31b977b"],
Cell[418601, 8804, 211, 4, 37, "Text",ExpressionUUID->"c8a34382-6da6-476a-a902-3b2bb31afb35"],
Cell[CellGroupData[{
Cell[418837, 8812, 192, 3, 58, "Subsection",ExpressionUUID->"e2e69101-16a2-491f-b8ff-642d0d98b450"],
Cell[419032, 8817, 506, 13, 51, "Input",ExpressionUUID->"660a7c03-a223-4563-aef4-79fcdc9c7edf"],
Cell[419541, 8832, 262, 5, 31, "Input",ExpressionUUID->"c5dba510-e24b-411f-94e6-367562d22634"]
}, Open  ]],
Cell[CellGroupData[{
Cell[419840, 8842, 192, 3, 58, "Subsection",ExpressionUUID->"5d0e8541-968a-4d9d-a9d6-85f967cf6926"],
Cell[420035, 8847, 698, 18, 72, "Input",ExpressionUUID->"3a21c881-8f4a-4039-b465-41362cb9f2ed"],
Cell[420736, 8867, 315, 6, 31, "Input",ExpressionUUID->"ebaa8150-2161-4695-91f4-dfe894733fb9"],
Cell[421054, 8875, 259, 5, 31, "Input",ExpressionUUID->"b6d811f7-ffe3-4883-ad23-631bad606b6a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[421350, 8885, 177, 3, 58, "Subsection",ExpressionUUID->"cc1d1fe7-f123-4b5e-b993-b069633903b7"],
Cell[421530, 8890, 267, 6, 37, "Text",ExpressionUUID->"69c4571a-5827-4581-bbff-cf24f4d6b021"],
Cell[421800, 8898, 455, 11, 31, "Input",ExpressionUUID->"5057f011-f682-473a-935d-9b0d60d08d81"],
Cell[422258, 8911, 700, 18, 51, "Input",ExpressionUUID->"7a3046c2-d760-4b8a-b5d2-75dfde301ba5"],
Cell[422961, 8931, 324, 7, 31, "Input",ExpressionUUID->"fa085314-025c-4c2c-bc5a-8eea6b6c679d"],
Cell[423288, 8940, 703, 18, 51, "Input",ExpressionUUID->"e51fc385-8bfa-4cf5-b1d9-f14f030c88cc"],
Cell[423994, 8960, 379, 8, 31, "Input",ExpressionUUID->"797961f4-5719-4662-8167-922c7e59ac94"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[424422, 8974, 230, 4, 57, "Section",ExpressionUUID->"8f0c0420-f3d8-442c-827b-009f74296389"],
Cell[424655, 8980, 285, 6, 77, "Text",ExpressionUUID->"e02d62db-4a1c-4cb6-a6d8-5c36aba5d4cb"],
Cell[CellGroupData[{
Cell[424965, 8990, 220, 4, 77, "Subsection",ExpressionUUID->"41d9031f-40ab-4c8a-bb7d-4c98d47fb356"],
Cell[425188, 8996, 536, 10, 77, "Text",ExpressionUUID->"bfcd67ff-706e-4fee-9c5d-c80c53aca56c"],
Cell[425727, 9008, 567, 16, 77, "Input",ExpressionUUID->"b53448cc-3c33-44d2-b6fc-3f2ce9cb7493"],
Cell[426297, 9026, 415, 10, 77, "Input",ExpressionUUID->"432696f7-da8a-46bd-82ff-cf4eccb03854"]
}, Open  ]],
Cell[CellGroupData[{
Cell[426749, 9041, 171, 3, 77, "Subsection",ExpressionUUID->"310041c5-8bbb-4711-a630-94bddb4a83a2"],
Cell[426923, 9046, 600, 13, 77, "Text",ExpressionUUID->"f79cb736-db98-4330-bf2d-830594996f8a"],
Cell[427526, 9061, 567, 16, 77, "Input",ExpressionUUID->"d249ab8b-c86f-44c2-978d-830dd8c5e34b"],
Cell[428096, 9079, 804, 21, 77, "Input",ExpressionUUID->"a089254a-ce12-4fcf-bcc8-ca9996bbe8a2"],
Cell[428903, 9102, 423, 8, 77, "Input",ExpressionUUID->"79929a27-bb09-4799-8af0-122cf51cbf6d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[429363, 9115, 171, 3, 77, "Subsection",ExpressionUUID->"5acce3c6-8c9a-4e5f-aa66-525f384c2598"],
Cell[429537, 9120, 421, 8, 77, "Text",ExpressionUUID->"f35a2c5c-01a6-4b63-837b-1521b29c1685"],
Cell[429961, 9130, 567, 16, 77, "Input",ExpressionUUID->"b529aa07-695b-41c9-bb77-b399dcb21a77"],
Cell[430531, 9148, 804, 21, 77, "Input",ExpressionUUID->"d278fae9-b37a-49c9-a8dd-b2bf3b953ce4"],
Cell[431338, 9171, 403, 7, 77, "Input",ExpressionUUID->"990f862b-3cde-4cb9-a0d1-90d746774cc6"]
}, Open  ]]
}, Closed]],
Cell[431768, 9182, 204, 3, 57, "Section",ExpressionUUID->"1bb1f458-18f2-e943-8343-434e64d5f3c7"]
}, Open  ]]
}
]
*)

