calc_T_from_comp_eq.nb

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

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

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      2945,        105]
NotebookOptionsPosition[      2558,         87]
NotebookOutlinePosition[      2901,        102]
CellTagsIndexPosition[      2858,         99]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"a2", "=", "8.130346*^-07"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"a1", "=", 
   RowBox[{"-", "1.642576*^-03"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"a0", "=", "8.253158*^-01"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"b2", "=", 
   RowBox[{"-", "1.914544*^-06"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"b1", "=", "1.792344*^-03"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"b0", "=", 
   RowBox[{"-", "6.086896*^-03"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xa", "=", "0.019862472879877200"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"xb", "=", "0.1544897158058190"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.669833867997874*^9, 3.669833869430732*^9}, {
  3.6698339106065197`*^9, 3.6698339700786405`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a2", "*", "T"}], "+", "a1"}], ")"}], "*", "T"}], "+", "a0"}],
     "\[Equal]", "xa"}], ",", "T"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b2", "*", "T"}], "+", "b1"}], ")"}], "*", "T"}], "+", "b0"}],
     "\[Equal]", "xb"}], ",", "T"}], "]"}]}], "Input",
 CellChangeTimes->{{3.6698339922201815`*^9, 3.669834054411823*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"T", "\[Rule]", "837.7262518936079`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", "\[Rule]", "1182.5764510909883`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.669834033315383*^9, 3.6698340551116858`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"T", "\[Rule]", "100.34615370117545`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"T", "\[Rule]", "835.8266373132906`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.669834033315383*^9, 3.6698340551116858`*^9}}]
}, Open  ]]
},
WindowSize->{759, 733},
WindowMargins->{{169, Automatic}, {-7, Automatic}},
FrontEndVersion->"10.2 for Microsoft Windows (64-bit) (July 29, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 798, 23, 212, "Input"],
Cell[CellGroupData[{
Cell[1381, 47, 583, 19, 52, "Input"],
Cell[1967, 68, 286, 7, 31, "Output"],
Cell[2256, 77, 286, 7, 31, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)