task1b_attempt1.nb

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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     35147,        942]
NotebookOptionsPosition[     34265,        908]
NotebookOutlinePosition[     34620,        924]
CellTagsIndexPosition[     34577,        921]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{
  "q", ",", "\[Rho]m0", ",", " ", "Tm0", " ", ",", "\[Alpha]0", " ", ",", "g",
    ",", " ", "g1", ",", " ", "g2", ",", " ", "g3"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q", " ", "=", " ", "1.894816"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Rho]m0", " ", "=", " ", "999.9720"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Tm0", " ", "=", " ", "4.029325"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Alpha]0", " ", "=", " ", 
     RowBox[{"9.297173", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "6"}]]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"g1", " ", "=", " ", 
     RowBox[{"8.046157", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "4"}]]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"g2", " ", "=", " ", 
     RowBox[{
      RowBox[{"-", "2.839092"}], "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "3"}]]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"g3", " ", "=", " ", 
     RowBox[{
      RowBox[{"-", "5.265509"}], "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "2"}]]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"g", "=", " ", "9.81"}], ";"}], "\[IndentingNewLine]", 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.544464203377228*^9, 3.544464216750965*^9}, {
  3.5444651827888803`*^9, 3.544465187264647*^9}, {3.544467324468482*^9, 
  3.544467328391354*^9}, {3.544467367889613*^9, 3.544467382562842*^9}, {
  3.544467423907639*^9, 3.544467436324856*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Rho]m", "[", "s_", "]"}], ":=", " ", 
  RowBox[{"\[Rho]m0", "*", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"g1", "*", "s"}]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]", "[", "s_", "]"}], ":=", " ", 
  RowBox[{"\[Alpha]0", "*", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"g2", "*", "s"}]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Tm", "[", "s_", "]"}], ":=", " ", 
   RowBox[{"Tm0", "*", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"g3", "*", "s"}]}], ")"}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]", "[", 
   RowBox[{"T_", ",", "s_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"\[Rho]m", "[", "s", "]"}], "*", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{
      RowBox[{"\[Alpha]", "[", "s", "]"}], "*", 
      SuperscriptBox[
       RowBox[{"Abs", "[", 
        RowBox[{"T", "-", 
         RowBox[{"Tm", "[", "s", "]"}]}], "]"}], "q"]}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"\[Rho]", "[", 
  RowBox[{"T", ",", "s"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5444637121953363`*^9, 3.544463716930735*^9}, {
  3.544463771751794*^9, 3.5444637885291023`*^9}, {3.544463935031397*^9, 
  3.544463964253196*^9}, {3.544464257606474*^9, 3.544464258959173*^9}, {
  3.544466573708391*^9, 3.5444665841236753`*^9}, {3.544466640158101*^9, 
  3.544466642337089*^9}, {3.544467571932406*^9, 3.5444675763612623`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"\[Rho]m0", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"g1", " ", "s"}], "+", "1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"\[Alpha]0", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"g2", " ", "s"}], "+", "1"}], ")"}], " ", 
      SuperscriptBox[
       TemplateBox[{RowBox[{"T", "-", 
           RowBox[{
             RowBox[{"(", 
               RowBox[{
                 RowBox[{"g3", " ", "s"}], "+", "1"}], ")"}], " ", "Tm0"}]}]},
        
        "Abs"], "q"]}]}], ")"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.5444639414077044`*^9, 3.544463965102974*^9}, 
   3.544464221113531*^9, 3.544465116127832*^9, 3.544465165534155*^9, 
   3.5444658278143167`*^9, {3.544466579199505*^9, 3.544466585364174*^9}, 
   3.544466643035561*^9, 3.544467047968583*^9, {3.5444673341165123`*^9, 
   3.544467336607738*^9}, 3.5444674414456053`*^9, 3.544467722533403*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"\[Rho]l", ":=", 
  RowBox[{"\[Rho]m", "[", "s\[Infinity]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"\[Phi]", ":=", 
  FractionBox[
   RowBox[{"T", "-", "T\[Infinity]"}], 
   RowBox[{"T0", "-", "T\[Infinity]"}]]}], "\n", 
 RowBox[{"S", ":=", 
  FractionBox[
   RowBox[{"s", "-", "s\[Infinity]"}], 
   RowBox[{"s0", "-", "s\[Infinity]"}]]}], "\n", 
 RowBox[{"R", ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"Tm", "[", "s\[Infinity]", "]"}], "-", "T\[Infinity]"}], 
   RowBox[{"T0", "-", "T\[Infinity]"}]]}], "\n", 
 RowBox[{"A", ":=", 
  FractionBox[
   RowBox[{"g1", "*", "\[Rho]m0", "*", 
    RowBox[{"(", 
     RowBox[{"s0", "-", "s\[Infinity]"}], ")"}]}], 
   RowBox[{"\[Rho]m", "[", "s\[Infinity]", "]"}]]}], "\n", 
 RowBox[{"B", ":=", 
  FractionBox[
   RowBox[{"g2", "*", "\[Alpha]0", "*", 
    RowBox[{"(", 
     RowBox[{"s0", "-", "s\[Infinity]"}], ")"}]}], 
   RowBox[{"\[Alpha]", "[", "s\[Infinity]", "]"}]]}], "\n", 
 RowBox[{"Q", ":=", 
  FractionBox[
   RowBox[{"g3", "*", "Tm0", "*", 
    RowBox[{"(", 
     RowBox[{"s0", "-", "s\[Infinity]"}], ")"}]}], 
   RowBox[{"T0", "-", "T\[Infinity]"}]]}], "\n", 
 RowBox[{"P", ":=", 
  FractionBox[
   RowBox[{"g1", "*", "\[Rho]m0", 
    RowBox[{"(", 
     RowBox[{"s0", "-", "s\[Infinity]"}], ")"}]}], 
   RowBox[{
    RowBox[{"\[Rho]m", "[", "s\[Infinity]", "]"}], "*", 
    RowBox[{"\[Alpha]m", "[", "s\[Infinity]", "]"}], "*", 
    SuperscriptBox[
     RowBox[{"Abs", "[", 
      RowBox[{"T0", "-", "T\[Infinity]"}], "]"}], "q"]}]]}], "\n"}], "Input",
 CellChangeTimes->{{3.5444639792644978`*^9, 3.5444641962963667`*^9}, {
   3.544464230985199*^9, 3.544464322818919*^9}, {3.544464465406311*^9, 
   3.544464668457912*^9}, {3.544464723744403*^9, 3.5444648201943407`*^9}, {
   3.544464860889447*^9, 3.544465136657033*^9}, {3.5444652292583714`*^9, 
   3.5444654679042387`*^9}, {3.544465510648819*^9, 3.5444655319600077`*^9}, {
   3.544465570639881*^9, 3.544465594026119*^9}, {3.544465778274664*^9, 
   3.544465796427733*^9}, {3.544465833593368*^9, 3.5444658672881327`*^9}, 
   3.544465948682905*^9, {3.5444660044947453`*^9, 3.5444660074263687`*^9}, {
   3.544466252711932*^9, 3.544466261694745*^9}, {3.5444663351359797`*^9, 
   3.544466339914206*^9}, 3.544467036970696*^9, {3.544467486429862*^9, 
   3.544467505621413*^9}, {3.544467582171995*^9, 3.544467715025342*^9}, {
   3.5444700980165*^9, 3.5444701102843723`*^9}, {3.544546747091749*^9, 
   3.5445467540855713`*^9}, {3.544547650820661*^9, 3.544547673712151*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"\[Rho]m", "[", "s\[Infinity]", "]"}], "*", 
   RowBox[{"\[Alpha]", "[", "s\[Infinity]", "]"}], "*", 
   SuperscriptBox[
    RowBox[{"Abs", "[", 
     RowBox[{"T0", "-", "T\[Infinity]"}], "]"}], "q"], "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"A", "*", "S"}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"B", "*", "S"}]}], ")"}], "*", 
      SuperscriptBox[
       RowBox[{"Abs", "[", 
        RowBox[{"\[Phi]", "-", "R", "-", 
         RowBox[{"Q", "*", "S"}]}], "]"}], "q"]}], "-", 
     SuperscriptBox[
      RowBox[{"Abs", "[", "R", "]"}], "q"], "-", 
     RowBox[{"P", "*", "S"}]}], ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.544467067718696*^9, 3.54446720529806*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"\[Alpha]0", " ", "\[Rho]m0", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"g2", " ", "s\[Infinity]"}], "+", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"g1", " ", 
          RowBox[{"(", 
           RowBox[{"s\[Infinity]", "-", "s"}], ")"}]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"g1", " ", "s\[Infinity]"}], "+", "1"}], ")"}], " ", 
          RowBox[{"\[Alpha]m", "(", "s\[Infinity]", ")"}], " ", 
          SuperscriptBox[
           TemplateBox[{RowBox[{
               RowBox[{"g3", " ", "s\[Infinity]", " ", "Tm0"}], "+", "Tm0", 
               "-", "T\[Infinity]"}]},
            "Abs"], "q"]}]}], ")"}]}], 
      RowBox[{"\[Alpha]m", "(", "s\[Infinity]", ")"}]], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"g1", " ", "s"}], "+", "1"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"g2", " ", "s"}], "+", "1"}], ")"}], " ", 
      SuperscriptBox[
       TemplateBox[{RowBox[{
           RowBox[{"-", "T"}], "+", 
           RowBox[{"g3", " ", "s", " ", "Tm0"}], "+", "Tm0"}]},
        "Abs"], "q"]}]}], ")"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.544467192771185*^9, 3.5444672087685537`*^9}, 
   3.544467463761484*^9, 3.5444675102574663`*^9, 3.5444677261240873`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Gr", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    FractionBox["\[Rho]m0", 
     RowBox[{"\[Rho]m", "[", "s\[Infinity]", "]"}]], ")"}], "*", 
   FractionBox[
    RowBox[{"g", "*", "g1", "*", 
     SuperscriptBox["x", "3"], "*", 
     RowBox[{"(", 
      RowBox[{"s\[Infinity]", "-", "s0"}], ")"}]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Mu]", "/", "\[Rho]l"}], ")"}], "2"]]}]}], "\n", 
 RowBox[{
  RowBox[{"\[Eta]", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{
   FractionBox["y", 
    RowBox[{
     SqrtBox["2"], "x"}]], 
   SuperscriptBox[
    RowBox[{"Gr", "[", "x", "]"}], 
    RowBox[{"1", "/", "4"}]]}]}], "\n", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     FractionBox["4", 
      SqrtBox["2"]], 
     RowBox[{"(", 
      FractionBox["\[Mu]", "\[Rho]l"], ")"}], 
     SuperscriptBox[
      RowBox[{"Gr", "[", "x", "]"}], 
      RowBox[{"1", "/", "4"}]], 
     RowBox[{"f", "[", "\[Eta]", "]"}]}], ",", "x"}], "]"}], "]"}]}], "Input",\

 CellChangeTimes->{{3.544470119351297*^9, 3.5444701849731817`*^9}, {
  3.5444702225242033`*^9, 3.5444702700323067`*^9}}],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{"3", " ", "\[Mu]", " ", 
    RowBox[{"f", "(", "\[Eta]", ")"}], " ", 
    RadicalBox[
     FractionBox[
      RowBox[{"g", " ", "g1", " ", 
       SuperscriptBox["\[Rho]l", "2"], " ", "\[Rho]m0", " ", 
       SuperscriptBox["x", "3"], " ", 
       RowBox[{"(", 
        RowBox[{"s\[Infinity]", "-", "s0"}], ")"}]}], 
      RowBox[{
       SuperscriptBox["\[Mu]", "2"], " ", 
       RowBox[{"\[Rho]m", "(", "s\[Infinity]", ")"}]}]], "4"]}], 
   RowBox[{
    SqrtBox["2"], " ", "\[Rho]l", " ", "x"}]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.544470174186268*^9, 3.544470186087797*^9}, {
  3.544470224744687*^9, 3.544470271514409*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", 
  RowBox[{
  "\[Phi]", ",", "S", ",", "s", ",", "\[Eta]", ",", "\[Psi]", ",", " ", "u", 
   ",", "v", ",", "T", ",", " ", "CGr"}], "]"}], "\n", 
 RowBox[{"T", ":=", " ", 
  RowBox[{"T\[Infinity]", "+", 
   RowBox[{"\[Phi]", "*", 
    RowBox[{"(", 
     RowBox[{"T0", "-", "T\[Infinity]"}], ")"}]}]}]}], "\[IndentingNewLine]", 

 RowBox[{
  RowBox[{"s", ":=", 
   RowBox[{"s\[Infinity]", "+", 
    RowBox[{"S", "*", 
     RowBox[{"(", 
      RowBox[{"s0", "-", "s\[Infinity]"}], ")"}]}]}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"CGr", " ", ":=", 
    RowBox[{
     RowBox[{"(", 
      FractionBox["\[Rho]m0", 
       RowBox[{"\[Rho]m", "[", "s\[Infinity]", "]"}]], ")"}], "*", 
     FractionBox[
      RowBox[{"g", "*", "g1", "*", 
       RowBox[{"(", 
        RowBox[{"s\[Infinity]", "-", "s0"}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Mu]", "/", "\[Rho]l"}], ")"}], "2"]]}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Gr", "[", "x_", "]"}], ":=", 
  RowBox[{"CGr", "*", 
   SuperscriptBox["x", "3"]}]}], "\n", 
 RowBox[{
  RowBox[{"\[Eta]", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{
   FractionBox["y", 
    RowBox[{
     SqrtBox["2"], "x"}]], 
   SuperscriptBox[
    RowBox[{"Gr", "[", "x", "]"}], 
    RowBox[{"1", "/", "4"}]]}]}], "\n", 
 RowBox[{
  RowBox[{"\[Psi]", "[", 
   RowBox[{"x_", ",", "\[Eta]_"}], "]"}], ":=", 
  RowBox[{
   FractionBox["4", 
    SqrtBox["2"]], 
   RowBox[{"(", 
    FractionBox["\[Mu]", "\[Rho]l"], ")"}], 
   SuperscriptBox[
    RowBox[{"Gr", "[", "x", "]"}], 
    RowBox[{"1", "/", "4"}]], 
   RowBox[{"f", "[", "\[Eta]", "]"}]}]}], "\n", 
 RowBox[{
  RowBox[{"u", "=", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Eta]"], 
     RowBox[{"\[Psi]", "[", 
      RowBox[{"x", ",", "\[Eta]"}], "]"}]}], "*", 
    RowBox[{
     SubscriptBox["\[PartialD]", "y"], 
     RowBox[{"\[Eta]", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"v", "=", 
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "x"], 
       RowBox[{"\[Psi]", "[", 
        RowBox[{"x", ",", "\[Eta]"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[PartialD]", "\[Eta]"], 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"x", ",", "\[Eta]"}], "]"}]}], "*", 
       RowBox[{
        SubscriptBox["\[PartialD]", "x"], 
        RowBox[{"\[Eta]", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}]}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dudy", "=", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", 
      RowBox[{"\[Eta]", ",", "\[Eta]"}]], 
     RowBox[{"\[Psi]", "[", 
      RowBox[{"x", ",", "\[Eta]"}], "]"}]}], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["\[PartialD]", "y"], 
       RowBox[{"\[Eta]", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], ")"}], "2"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dudx", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Eta]"], 
      RowBox[{"\[Psi]", "[", 
       RowBox[{"x", ",", "\[Eta]"}], "]"}]}], "*", 
     RowBox[{
      SubscriptBox["\[PartialD]", 
       RowBox[{"x", ",", "y"}]], 
      RowBox[{"\[Eta]", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}], "+", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[PartialD]", 
       RowBox[{"x", ",", "\[Eta]"}]], 
      RowBox[{"\[Psi]", "[", 
       RowBox[{"x", ",", "\[Eta]"}], "]"}]}], "*", 
     RowBox[{
      SubscriptBox["\[PartialD]", "y"], 
      RowBox[{"\[Eta]", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}], "+", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[PartialD]", 
       RowBox[{"\[Eta]", ",", "\[Eta]"}]], 
      RowBox[{"\[Psi]", "[", 
       RowBox[{"x", ",", "\[Eta]"}], "]"}]}], "*", 
     RowBox[{
      SubscriptBox["\[PartialD]", "x"], 
      RowBox[{"\[Eta]", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "*", 
     RowBox[{
      SubscriptBox["\[PartialD]", "y"], 
      RowBox[{"\[Eta]", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}]}]}], ";", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"the", " ", "only", " ", "way", " ", "to", " ", "get", " ", 
      RowBox[{"f", "[", "\[Eta]", "]"}], " ", 
      RowBox[{
       SubscriptBox["\[PartialD]", 
        RowBox[{"\[Eta]", ",", "\[Eta]"}]], 
       RowBox[{"\[Psi]", "[", 
        RowBox[{"x", ",", "\[Eta]"}], "]"}]}], "*", 
      RowBox[{
       SubscriptBox["\[PartialD]", "x"], 
       RowBox[{"\[Eta]", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "*", 
      RowBox[{
       SubscriptBox["\[PartialD]", "y"], 
       RowBox[{"\[Eta]", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], "+", 
     RowBox[{
      SubscriptBox["\[PartialD]", 
       RowBox[{"x", ",", "y"}]], 
      RowBox[{"\[Eta]", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"dudy2", "=", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", 
      RowBox[{"\[Eta]", ",", "\[Eta]", ",", "\[Eta]"}]], 
     RowBox[{"\[Psi]", "[", 
      RowBox[{"x", ",", "\[Eta]"}], "]"}]}], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["\[PartialD]", "y"], 
       RowBox[{"\[Eta]", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], ")"}], "3"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtdx", "=", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Phi]"], "T"}], " ", "*", " ", 
    RowBox[{"\[Phi]", "'"}], "*", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"\[Eta]", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtdy", "=", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Phi]"], "T"}], " ", "*", " ", 
    RowBox[{"\[Phi]", "'"}], "*", 
    RowBox[{
     SubscriptBox["\[PartialD]", "y"], 
     RowBox[{"\[Eta]", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtdy2", "=", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "\[Phi]"], "T"}], "*", " ", 
    RowBox[{"\[Phi]", "''"}], "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["\[PartialD]", "y"], 
       RowBox[{"\[Eta]", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], ")"}], "2"]}]}], ";", " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["\[PartialD]", "\[Phi]"], "T"}], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[PartialD]", "y"], 
           RowBox[{"\[Eta]", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], ")"}], "2"], "*", "3", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Phi]", "'"}], ")"}], "2"], "*", 
        RowBox[{"\[Phi]", "''"}]}], "+", 
       RowBox[{
        RowBox[{"\[Phi]", "''"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox["\[PartialD]", "y"], 
           RowBox[{"\[Eta]", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], ")"}], "2"]}]}], ")"}]}], ";"}],
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{"dsdx", "=", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "S"], "s"}], " ", "*", " ", 
    RowBox[{"S", "'"}], "*", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"\[Eta]", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dsdy", "=", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "S"], "s"}], " ", "*", " ", 
    RowBox[{"S", "'"}], "*", 
    RowBox[{
     SubscriptBox["\[PartialD]", "y"], 
     RowBox[{"\[Eta]", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dsdy2", "=", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[PartialD]", "S"], "s"}], "*", " ", 
     RowBox[{"S", "''"}], "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["\[PartialD]", "y"], 
        RowBox[{"\[Eta]", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], ")"}], "2"]}]}], " ", ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.544546759940197*^9, 3.5445468225436687`*^9}, {
   3.54454687927779*^9, 3.5445471725418797`*^9}, {3.5445473129376173`*^9, 
   3.5445473340621157`*^9}, {3.544547455358193*^9, 3.5445474865247087`*^9}, {
   3.54454755852391*^9, 3.544547622098777*^9}, {3.544547678625906*^9, 
   3.544547682390841*^9}, {3.5445477248893433`*^9, 3.544547746123302*^9}, {
   3.544547848221115*^9, 3.5445478966200647`*^9}, {3.544548756437327*^9, 
   3.544548764918913*^9}, {3.5445488199061623`*^9, 3.544548978673842*^9}, {
   3.5445490216358557`*^9, 3.54454919236982*^9}, {3.544549222933182*^9, 
   3.544549537785121*^9}, {3.544549606890788*^9, 3.544549632442664*^9}, {
   3.544549778465921*^9, 3.544549800322048*^9}, {3.5445498685516787`*^9, 
   3.5445499080766373`*^9}, {3.544550931557149*^9, 3.544551074056139*^9}, {
   3.544551523485433*^9, 3.544551770733284*^9}, {3.544551805544044*^9, 
   3.5445519417944527`*^9}, {3.544551975350452*^9, 3.544552043874894*^9}, {
   3.544552806054109*^9, 3.544552823215678*^9}, {3.5445557570830812`*^9, 
   3.544555779776083*^9}, {3.544556649323147*^9, 3.544556649679673*^9}, {
   3.544556685365983*^9, 3.5445566999879932`*^9}, {3.544557013179377*^9, 
   3.544557027021509*^9}, 3.54455732323452*^9, {3.544557359112418*^9, 
   3.544557362061667*^9}, {3.544557453044257*^9, 3.544557491653697*^9}, {
   3.544557708741156*^9, 3.544557717567683*^9}, {3.544558333529994*^9, 
   3.544558357241333*^9}, {3.544558441313713*^9, 3.5445584859618387`*^9}, {
   3.544559367623918*^9, 3.544559384026898*^9}, {3.544560160214699*^9, 
   3.544560315700623*^9}, {3.544560371122781*^9, 3.544560386102152*^9}, {
   3.54456042827344*^9, 3.544560456071761*^9}, {3.5447932468675547`*^9, 
   3.544793254534374*^9}, 3.544988784065926*^9, {3.544988856110392*^9, 
   3.544988860304123*^9}, {3.5449889055546007`*^9, 3.544988920617093*^9}, {
   3.54498896011543*^9, 3.5449889675919933`*^9}, {3.544989096437469*^9, 
   3.544989164870751*^9}, {3.544990499764905*^9, 3.5449906800235567`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"putting", " ", "it", " ", "all", " ", "together"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"momx", " ", "=", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"u", "*", "dudx"}], "+", 
       RowBox[{"v", "*", "dudy"}], "-", 
       FractionBox[
        RowBox[{"g", 
         RowBox[{"(", 
          RowBox[{"\[Rho]\[Infinity]", "-", "\[Rho]"}], ")"}]}], "\[Rho]l"], 
       "-", 
       RowBox[{
        RowBox[{"(", 
         FractionBox["\[Mu]", "\[Rho]l"], ")"}], "dudy2"}]}], "/.", 
      RowBox[{
       RowBox[{"CGr", "*", 
        SuperscriptBox["x", "3"]}], "\[Rule]", " ", "Gr"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"momx", "/", 
     RowBox[{"(", 
      FractionBox[
       RowBox[{"CGr", " ", 
        SuperscriptBox["x", "3"], 
        SuperscriptBox["\[Mu]", "2"]}], 
       RowBox[{" ", 
        RowBox[{
         SuperscriptBox["\[Rho]l", "2"], " ", 
         SuperscriptBox["x", "3"]}]}]], ")"}]}], "//", "Expand"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tem", " ", "=", " ", 
     RowBox[{
      RowBox[{"u", "*", "dtdx"}], "+", 
      RowBox[{"v", "*", "dtdy"}], "-", 
      RowBox[{
       FractionBox["k", 
        RowBox[{"\[Rho]l", "*", "cp"}]], "*", "dtdy2"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"tem", "/", 
      RowBox[{"(", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"k", " ", 
          SqrtBox[
           RowBox[{"CGr", " ", 
            SuperscriptBox["x", "3"]}]], " ", 
          RowBox[{"(", 
           RowBox[{"T0", "-", "T\[Infinity]"}], ")"}]}], 
         RowBox[{"2", " ", "cp", " ", "\[Rho]l", " ", 
          SuperscriptBox["x", "2"]}]]}], ")"}]}], "//", "FullSimplify"}], "//",
     "Expand"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"spec", "=", "  ", 
     RowBox[{
      RowBox[{"u", "*", "dsdx"}], "+", 
      RowBox[{"v", "*", "dsdy"}], "-", 
      RowBox[{"D", "*", "dsdy2"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"spec", "/", 
      FractionBox[
       RowBox[{"D", 
        RowBox[{"(", 
         RowBox[{"s0", "-", "s\[Infinity]"}], ")"}], 
        SqrtBox[
         RowBox[{"CGr", " ", 
          SuperscriptBox["x", "3"]}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["x", "2"]}]]}], "//", "Simplify"}], "//", "Expand"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Replace", "[", 
      RowBox[{"momx", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            FractionBox["\[Rho]m0", 
             RowBox[{"\[Rho]m", "[", "s\[Infinity]", "]"}]], ")"}], "*", 
           FractionBox[
            RowBox[{"g", "*", "g1", "*", 
             RowBox[{"(", 
              RowBox[{"s\[Infinity]", "-", "s0"}], ")"}]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Mu]", "/", "\[Rho]l"}], ")"}], "2"]]}], "->", 
          "CGr"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            FractionBox["\[Rho]m0", 
             RowBox[{"\[Rho]m", "[", "s\[Infinity]", "]"}]], ")"}], "*", 
           FractionBox[
            RowBox[{"g", "*", "g1", "*", 
             SuperscriptBox["x_", "3"], "*", 
             RowBox[{"(", 
              RowBox[{"s\[Infinity]", "-", "s0"}], ")"}]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Mu]", "/", "\[Rho]l"}], ")"}], "2"]]}], "\[Rule]", 
          RowBox[{"Gr", "[", "x", "]"}]}]}], "}"}]}], "]"}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{"momx", "//", 
       RowBox[{"FullSimplify", "\[IndentingNewLine]", "tem"}]}], " ", "=", 
      " ", 
      RowBox[{
       RowBox[{"u", "*", "dtdx"}], "+", 
       RowBox[{"v", "*", "dtdy"}], "-", 
       RowBox[{
        FractionBox["k", 
         RowBox[{"\[Rho]l", "*", "cp"}]], "*", "dtdy2"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"tem", "//", "FullSimplify"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"spec", "//", "FullSimplify"}], ";"}], "*)"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.544552055690898*^9, 3.544552100233123*^9}, {
   3.5445521519080544`*^9, 3.544552246244215*^9}, {3.544552313806314*^9, 
   3.544552317043612*^9}, {3.5445524262661858`*^9, 3.544552479455111*^9}, {
   3.544552549261327*^9, 3.544552754726687*^9}, {3.5445527915661087`*^9, 
   3.544552792003915*^9}, {3.54455282822342*^9, 3.54455282885217*^9}, {
   3.5445528732538757`*^9, 3.5445528739178047`*^9}, {3.544552949234498*^9, 
   3.544553028754868*^9}, {3.5445554950501823`*^9, 3.544555527921723*^9}, {
   3.544555573586278*^9, 3.544555574710897*^9}, {3.5445556566351767`*^9, 
   3.544555661886532*^9}, {3.544556015279622*^9, 3.54455607865709*^9}, {
   3.54455624854576*^9, 3.544556278927539*^9}, {3.544556711602427*^9, 
   3.5445567602463284`*^9}, {3.5445568140412273`*^9, 3.544556903467621*^9}, {
   3.544557038895494*^9, 3.544557039897753*^9}, {3.544557182641932*^9, 
   3.544557191438846*^9}, {3.5445582076011057`*^9, 3.544558219309721*^9}, {
   3.54455830313507*^9, 3.544558318063239*^9}, {3.5445586185255404`*^9, 
   3.544558658994623*^9}, {3.544558693562614*^9, 3.544558709358142*^9}, {
   3.5445588550269547`*^9, 3.544558885503813*^9}, {3.5445590386537857`*^9, 
   3.544559043071439*^9}, {3.5445590980689707`*^9, 3.544559130814019*^9}, 
   3.544560485720348*^9, {3.544560566557064*^9, 3.544560574137356*^9}, {
   3.5445607655196323`*^9, 3.544560819834783*^9}, {3.5445608628114367`*^9, 
   3.5445608974070187`*^9}, 3.544560951505225*^9, {3.5445611492334433`*^9, 
   3.5445611579312153`*^9}, {3.544561201746799*^9, 3.544561209102833*^9}, {
   3.544989215539006*^9, 3.544989215846457*^9}, {3.544989485978957*^9, 
   3.544989561044085*^9}, {3.544989741750457*^9, 3.544989783009124*^9}, {
   3.544989824988368*^9, 3.544989837759473*^9}, {3.544989962514612*^9, 
   3.544989970990697*^9}, {3.544990010256247*^9, 3.5449900181681757`*^9}, {
   3.544990284698786*^9, 3.544990323906106*^9}, {3.544990432206551*^9, 
   3.544990456384848*^9}, {3.5449906917130623`*^9, 3.5449907003117733`*^9}, {
   3.5449908327523203`*^9, 3.544990867725787*^9}, 3.544990911907029*^9, {
   3.5449909554542837`*^9, 3.544990973419477*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"4", " ", "Gr", " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["f", "\[Prime]",
         MultilineFunction->None], "(", "\[Eta]", ")"}], "2"]}], 
     RowBox[{"CGr", " ", 
      SuperscriptBox["x", "3"]}]]}], "+", 
   FractionBox[
    RowBox[{"g", " ", "\[Rho]", " ", "\[Rho]l"}], 
    RowBox[{"CGr", " ", 
     SuperscriptBox["\[Mu]", "2"]}]], "-", 
   FractionBox[
    RowBox[{"g", " ", "\[Rho]l", " ", "\[Rho]\[Infinity]"}], 
    RowBox[{"CGr", " ", 
     SuperscriptBox["\[Mu]", "2"]}]], "-", 
   RowBox[{
    SuperscriptBox["f", 
     TagBox[
      RowBox[{"(", "3", ")"}],
      Derivative],
     MultilineFunction->None], "(", "\[Eta]", ")"}], "-", 
   RowBox[{"3", " ", 
    RowBox[{"f", "(", "\[Eta]", ")"}], " ", 
    RowBox[{
     SuperscriptBox["f", "\[Prime]\[Prime]",
      MultilineFunction->None], "(", "\[Eta]", ")"}]}], "+", 
   RowBox[{"6", " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["f", "\[Prime]",
       MultilineFunction->None], "(", "\[Eta]", ")"}], "2"]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.544556056033815*^9, 3.544556274226091*^9, 3.544556712776848*^9, {
   3.544556743992208*^9, 3.544556761260944*^9}, {3.544556827965925*^9, 
   3.544556904272128*^9}, 3.5445570417904882`*^9, 3.5445571928448143`*^9, 
   3.5445575070556917`*^9, 3.544557723491082*^9, 3.544558220588073*^9, 
   3.544558306006302*^9, 3.5445583684474287`*^9, 3.5445584912726593`*^9, 
   3.544558632138763*^9, {3.544558687025079*^9, 3.544558710358539*^9}, {
   3.544558866974927*^9, 3.544558886151146*^9}, 3.544559045508257*^9, {
   3.544559117496436*^9, 3.544559131427287*^9}, 3.5445603239816103`*^9, 
   3.544560391218314*^9, {3.5445604383039*^9, 3.544560446268757*^9}, 
   3.5445604867113447`*^9, {3.5445605457784233`*^9, 3.544560586153809*^9}, {
   3.544560767066581*^9, 3.544560829058923*^9}, 3.5445608990609083`*^9, 
   3.5445609523680058`*^9, 3.544561158985467*^9, 3.544561210473851*^9, 
   3.544793280433988*^9, 3.544989179979805*^9, 3.5449892169790363`*^9, {
   3.54498951386797*^9, 3.544989561681896*^9}, {3.5449897659376907`*^9, 
   3.5449897836757107`*^9}, 3.544989838773835*^9, {3.544989963549613*^9, 
   3.544989971674347*^9}, 3.544990019569425*^9, {3.54499028605266*^9, 
   3.544990293012726*^9}, 3.544990324577705*^9, 3.544990433614489*^9, {
   3.544990685655117*^9, 3.544990701228982*^9}, {3.544990856294265*^9, 
   3.544990869586007*^9}, {3.5449909135783653`*^9, 3.5449909237733088`*^9}, {
   3.544990956320166*^9, 3.544990973999168*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"3", " ", "cp", " ", "\[Mu]", " ", 
     RowBox[{"f", "(", "\[Eta]", ")"}], " ", 
     SuperscriptBox["\[Phi]", "\[Prime]",
      MultilineFunction->None]}], "k"], "+", 
   SuperscriptBox["\[Phi]", "\[Prime]\[Prime]",
    MultilineFunction->None]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.544556056033815*^9, 3.544556274226091*^9, 3.544556712776848*^9, {
   3.544556743992208*^9, 3.544556761260944*^9}, {3.544556827965925*^9, 
   3.544556904272128*^9}, 3.5445570417904882`*^9, 3.5445571928448143`*^9, 
   3.5445575070556917`*^9, 3.544557723491082*^9, 3.544558220588073*^9, 
   3.544558306006302*^9, 3.5445583684474287`*^9, 3.5445584912726593`*^9, 
   3.544558632138763*^9, {3.544558687025079*^9, 3.544558710358539*^9}, {
   3.544558866974927*^9, 3.544558886151146*^9}, 3.544559045508257*^9, {
   3.544559117496436*^9, 3.544559131427287*^9}, 3.5445603239816103`*^9, 
   3.544560391218314*^9, {3.5445604383039*^9, 3.544560446268757*^9}, 
   3.5445604867113447`*^9, {3.5445605457784233`*^9, 3.544560586153809*^9}, {
   3.544560767066581*^9, 3.544560829058923*^9}, 3.5445608990609083`*^9, 
   3.5445609523680058`*^9, 3.544561158985467*^9, 3.544561210473851*^9, 
   3.544793280433988*^9, 3.544989179979805*^9, 3.5449892169790363`*^9, {
   3.54498951386797*^9, 3.544989561681896*^9}, {3.5449897659376907`*^9, 
   3.5449897836757107`*^9}, 3.544989838773835*^9, {3.544989963549613*^9, 
   3.544989971674347*^9}, 3.544990019569425*^9, {3.54499028605266*^9, 
   3.544990293012726*^9}, 3.544990324577705*^9, 3.544990433614489*^9, {
   3.544990685655117*^9, 3.544990701228982*^9}, {3.544990856294265*^9, 
   3.544990869586007*^9}, {3.5449909135783653`*^9, 3.5449909237733088`*^9}, {
   3.544990956320166*^9, 3.544990974001976*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", "\[Mu]", " ", 
      RowBox[{"f", "(", "\[Eta]", ")"}], " ", 
      SuperscriptBox["S", "\[Prime]",
       MultilineFunction->None]}], 
     RowBox[{"D", " ", "\[Rho]l"}]]}], "-", 
   SuperscriptBox["S", "\[Prime]\[Prime]",
    MultilineFunction->None]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.544556056033815*^9, 3.544556274226091*^9, 3.544556712776848*^9, {
   3.544556743992208*^9, 3.544556761260944*^9}, {3.544556827965925*^9, 
   3.544556904272128*^9}, 3.5445570417904882`*^9, 3.5445571928448143`*^9, 
   3.5445575070556917`*^9, 3.544557723491082*^9, 3.544558220588073*^9, 
   3.544558306006302*^9, 3.5445583684474287`*^9, 3.5445584912726593`*^9, 
   3.544558632138763*^9, {3.544558687025079*^9, 3.544558710358539*^9}, {
   3.544558866974927*^9, 3.544558886151146*^9}, 3.544559045508257*^9, {
   3.544559117496436*^9, 3.544559131427287*^9}, 3.5445603239816103`*^9, 
   3.544560391218314*^9, {3.5445604383039*^9, 3.544560446268757*^9}, 
   3.5445604867113447`*^9, {3.5445605457784233`*^9, 3.544560586153809*^9}, {
   3.544560767066581*^9, 3.544560829058923*^9}, 3.5445608990609083`*^9, 
   3.5445609523680058`*^9, 3.544561158985467*^9, 3.544561210473851*^9, 
   3.544793280433988*^9, 3.544989179979805*^9, 3.5449892169790363`*^9, {
   3.54498951386797*^9, 3.544989561681896*^9}, {3.5449897659376907`*^9, 
   3.5449897836757107`*^9}, 3.544989838773835*^9, {3.544989963549613*^9, 
   3.544989971674347*^9}, 3.544990019569425*^9, {3.54499028605266*^9, 
   3.544990293012726*^9}, 3.544990324577705*^9, 3.544990433614489*^9, {
   3.544990685655117*^9, 3.544990701228982*^9}, {3.544990856294265*^9, 
   3.544990869586007*^9}, {3.5449909135783653`*^9, 3.5449909237733088`*^9}, {
   3.544990956320166*^9, 3.544990974003715*^9}}]
}, Open  ]]
},
WindowSize->{622, 814},
WindowMargins->{{100, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 5, \
2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1537, 36, 191, "Input"],
Cell[CellGroupData[{
Cell[2119, 60, 1493, 41, 108, "Input"],
Cell[3615, 103, 946, 24, 27, "Output"]
}, Open  ]],
Cell[4576, 130, 2501, 57, 304, "Input"],
Cell[CellGroupData[{
Cell[7102, 191, 848, 24, 53, "Input"],
Cell[7953, 217, 1434, 39, 85, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9424, 261, 1183, 39, 137, "Input"],
Cell[10610, 302, 693, 18, 76, "Output"]
}, Open  ]],
Cell[11318, 323, 10282, 295, 480, "Input"],
Cell[CellGroupData[{
Cell[21625, 622, 6397, 158, 441, "Input"],
Cell[28025, 782, 2591, 57, 54, "Output"],
Cell[30619, 841, 1796, 30, 49, "Output"],
Cell[32418, 873, 1831, 32, 52, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)