HVEDMfresh.nb

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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    248231,       6206]
NotebookOptionsPosition[    241507,       6085]
NotebookOutlinePosition[    241866,       6101]
CellTagsIndexPosition[    241823,       6098]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.769937994829294*^9, 
  3.769937995232973*^9}},ExpressionUUID->"6e306932-ec10-48f7-9de9-\
6086f6afb394"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.769134655325509*^9, 
  3.769134660215521*^9}},ExpressionUUID->"50647e15-a839-4d1a-ac3f-\
bfcbbcab46c6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"u_", ",", "uh_", ",", "z_", ",", "\[Theta]_", ",", "\[Mu]_"}], 
   "]"}], ":=", 
  RowBox[{"1", "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"u", "/", "uh"}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"2", "+", "z", "-", "\[Theta]"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"\[Mu]", "^", "2"}], 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"z", "-", "\[Theta]"}], ")"}], "/", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "-", "\[Theta]"}], ")"}]}], 
    RowBox[{
     RowBox[{"u", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "z"}], "-", 
        RowBox[{"2", "\[Theta]"}], "+", "2"}], ")"}]}], "/", 
     RowBox[{"uh", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "z"}], "-", 
        RowBox[{"2", "\[Theta]"}]}], ")"}]}]}], 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"u", "/", "uh"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"\[Theta]", "-", "z"}], ")"}]}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.769139917753787*^9, 3.7691399189185038`*^9}, {
  3.769141859574744*^9, 
  3.769141861459819*^9}},ExpressionUUID->"df27ab55-1784-4457-9f2c-\
fd77eaa19791"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EulerEquations", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"q", " ", "\[Mu]", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u", "[", "t", "]"}], "/", "uh"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"z", "-", "\[Theta]"}], ")"}]}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{
      RowBox[{"u", "[", "t", "]"}], "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Theta]", "/", "2"}], "-", "1"}], ")"}]}], 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"u", "[", "t", "]"}], "^", 
         RowBox[{"(", 
          RowBox[{"2", "-", 
           RowBox[{"2", "z"}]}], ")"}]}], 
        RowBox[{"f", "[", 
         RowBox[{
          RowBox[{"u", "[", "t", "]"}], ",", "uh", ",", "z", ",", "\[Theta]", 
          ",", "\[Mu]"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"u", "'"}], "[", "t", "]"}], "^", "2"}], "/", 
        RowBox[{"f", "[", 
         RowBox[{
          RowBox[{"u", "[", "t", "]"}], ",", "uh", ",", "z", ",", "\[Theta]", 
          ",", "\[Mu]"}], "]"}]}]}], "]"}]}]}], ",", 
   RowBox[{"u", "[", "t", "]"}], ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.7691346462868223`*^9, 3.7691348381273108`*^9}, {
  3.769134887933599*^9, 3.7691349504878473`*^9}, {3.769139915683326*^9, 
  3.769139916743504*^9}},ExpressionUUID->"97cbeea4-62d5-49ba-992a-\
904a8d057885"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"q", " ", 
      RowBox[{"(", 
       RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", "\[Mu]", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
       RowBox[{"z", "-", "\[Theta]"}]]}], 
     RowBox[{"u", "[", "t", "]"}]]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"u", "[", "t", "]"}], 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        FractionBox["\[Theta]", "2"]}]], " ", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["u", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
         RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["uh", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "z"}], "+", 
            RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
          SuperscriptBox["\[Mu]", "2"], " ", 
          SuperscriptBox[
           RowBox[{"u", "[", "t", "]"}], 
           RowBox[{"2", "+", 
            RowBox[{"2", " ", "z"}], "-", 
            RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
             RowBox[{
              RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], " ", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"u", "[", "t", "]"}], 
           RowBox[{"2", "-", 
            RowBox[{"2", " ", "z"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
             RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["uh", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "z"}], "+", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
              SuperscriptBox["\[Mu]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"u", "[", "t", "]"}], 
               RowBox[{"2", "+", 
                RowBox[{"2", " ", "z"}], "-", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                 RowBox[{
                  RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["u", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"], 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
            RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["uh", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "z"}], "+", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
             SuperscriptBox["\[Mu]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"u", "[", "t", "]"}], 
              RowBox[{"2", "+", 
               RowBox[{"2", " ", "z"}], "-", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                RowBox[{
                 RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}]}]}], 
     ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"u", "[", "t", "]"}], 
       RowBox[{"\[Theta]", "/", "2"}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], "-", "z", "+", "\[Theta]"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
          RowBox[{"z", "-", "\[Theta]"}]]}], "+", 
        RowBox[{
         SuperscriptBox["uh", 
          RowBox[{"2", "-", 
           RowBox[{"2", " ", "z"}], "+", 
           RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"z", "-", "\[Theta]"}], ")"}], "2"], " ", 
         SuperscriptBox["\[Mu]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"u", "[", "t", "]"}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"z", "-", "\[Theta]"}], ")"}]}]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
          RowBox[{
           RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["uh", 
          RowBox[{"2", "-", 
           RowBox[{"2", " ", "z"}], "+", 
           RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "z", "-", "\[Theta]"}], ")"}], " ", 
         SuperscriptBox["\[Mu]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"u", "[", "t", "]"}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"z", "-", "\[Theta]"}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
            RowBox[{
             RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}]}], ")"}], " ", 
      
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["u", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"2", " ", 
      SuperscriptBox["uh", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"2", "-", "\[Theta]"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
          RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["uh", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "z"}], "+", 
             RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
           RowBox[{"(", 
            RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[Mu]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"u", "[", "t", "]"}], 
            RowBox[{"2", "+", 
             RowBox[{"2", " ", "z"}], "-", 
             RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
              RowBox[{
               RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], "2"], " ", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"u", "[", "t", "]"}], 
           RowBox[{"2", "-", 
            RowBox[{"2", " ", "z"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
             RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["uh", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "z"}], "+", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
              SuperscriptBox["\[Mu]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"u", "[", "t", "]"}], 
               RowBox[{"2", "+", 
                RowBox[{"2", " ", "z"}], "-", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                 RowBox[{
                  RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["u", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"], 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
            RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["uh", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "z"}], "+", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
             SuperscriptBox["\[Mu]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"u", "[", "t", "]"}], 
              RowBox[{"2", "+", 
               RowBox[{"2", " ", "z"}], "-", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                RowBox[{
                 RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}]}]}], 
     ")"}]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"u", "[", "t", "]"}], 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      FractionBox["\[Theta]", "2"]}]], " ", 
    RowBox[{"\[Sqrt]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"u", "[", "t", "]"}], 
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "z"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
           RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["uh", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "z"}], "+", 
              RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
            SuperscriptBox["\[Mu]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"u", "[", "t", "]"}], 
             RowBox[{"2", "+", 
              RowBox[{"2", " ", "z"}], "-", 
              RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
               RowBox[{
                RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["u", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], 
        RowBox[{"1", "-", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
          RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["uh", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "z"}], "+", 
             RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
           RowBox[{"(", 
            RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox["\[Mu]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"u", "[", "t", "]"}], 
            RowBox[{"2", "+", 
             RowBox[{"2", " ", "z"}], "-", 
             RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
              RowBox[{
               RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}]}]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"u", "[", "t", "]"}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        FractionBox["\[Theta]", "2"]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "-", 
           RowBox[{"2", " ", "z"}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"u", "[", "t", "]"}], 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "z"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
            RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["uh", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "z"}], "+", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
             SuperscriptBox["\[Mu]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"u", "[", "t", "]"}], 
              RowBox[{"2", "+", 
               RowBox[{"2", " ", "z"}], "-", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                RowBox[{
                 RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "+", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox["uh", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"2", "-", "\[Theta]"}], ")"}]}]], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"u", "[", "t", "]"}], "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "-", "z", "+", "\[Theta]"}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"u", "[", "t", "]"}], 
              RowBox[{
               RowBox[{"-", "2"}], " ", "z"}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
              RowBox[{"z", "-", "\[Theta]"}]]}], "+", 
            RowBox[{
             SuperscriptBox["uh", 
              RowBox[{"2", "-", 
               RowBox[{"2", " ", "z"}], "+", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"z", "-", "\[Theta]"}], ")"}], "2"], " ", 
             SuperscriptBox["\[Mu]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"u", "[", "t", "]"}], 
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[Theta]"}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
              RowBox[{
               RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["uh", 
              RowBox[{"2", "-", 
               RowBox[{"2", " ", "z"}], "+", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "z", "-", "\[Theta]"}], ")"}], " ", 
             SuperscriptBox["\[Mu]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"u", "[", "t", "]"}], 
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[Theta]"}]], " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                RowBox[{
                 RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}]}], 
           ")"}]}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"u", "[", "t", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2"}], "-", "z", "+", "\[Theta]"}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
               RowBox[{"z", "-", "\[Theta]"}]]}], "+", 
             RowBox[{
              SuperscriptBox["uh", 
               RowBox[{"2", "-", 
                RowBox[{"2", " ", "z"}], "+", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"z", "-", "\[Theta]"}], ")"}], "2"], " ", 
              SuperscriptBox["\[Mu]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"u", "[", "t", "]"}], 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{"z", "-", "\[Theta]"}], ")"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
               RowBox[{
                RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], "+", 
             RowBox[{"2", " ", 
              SuperscriptBox["uh", 
               RowBox[{"2", "-", 
                RowBox[{"2", " ", "z"}], "+", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "z", "-", "\[Theta]"}], ")"}], " ", 
              SuperscriptBox["\[Mu]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"u", "[", "t", "]"}], 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{"z", "-", "\[Theta]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                 RowBox[{
                  RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}]}], ")"}], 
           " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["u", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           SuperscriptBox["uh", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"2", "-", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
               RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["uh", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "z"}], "+", 
                  RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                SuperscriptBox["\[Mu]", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"u", "[", "t", "]"}], 
                 RowBox[{"2", "+", 
                  RowBox[{"2", " ", "z"}], "-", 
                  RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                   RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], "2"]}], 
          ")"}]}]}], ")"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"2", " ", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"u", "[", "t", "]"}], 
           RowBox[{"2", "-", 
            RowBox[{"2", " ", "z"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
             RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["uh", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "z"}], "+", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
              SuperscriptBox["\[Mu]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"u", "[", "t", "]"}], 
               RowBox[{"2", "+", 
                RowBox[{"2", " ", "z"}], "-", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                 RowBox[{
                  RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["u", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"], 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
            RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["uh", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "z"}], "+", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
             SuperscriptBox["\[Mu]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"u", "[", "t", "]"}], 
              RowBox[{"2", "+", 
               RowBox[{"2", " ", "z"}], "-", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                RowBox[{
                 RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}]}]}], 
     ")"}]}], "-", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"u", "[", "t", "]"}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        FractionBox["\[Theta]", "2"]}]], " ", 
      RowBox[{
       SuperscriptBox["u", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
         RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["uh", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "z"}], "+", 
            RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
          SuperscriptBox["\[Mu]", "2"], " ", 
          SuperscriptBox[
           RowBox[{"u", "[", "t", "]"}], 
           RowBox[{"2", "+", 
            RowBox[{"2", " ", "z"}], "-", 
            RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
             RowBox[{
              RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], " ", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"u", "[", "t", "]"}], 
           RowBox[{"2", "-", 
            RowBox[{"2", " ", "z"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
             RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["uh", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "z"}], "+", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
              SuperscriptBox["\[Mu]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"u", "[", "t", "]"}], 
               RowBox[{"2", "+", 
                RowBox[{"2", " ", "z"}], "-", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                 RowBox[{
                  RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["u", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"], 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
            RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["uh", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "z"}], "+", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
             SuperscriptBox["\[Mu]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"u", "[", "t", "]"}], 
              RowBox[{"2", "+", 
               RowBox[{"2", " ", "z"}], "-", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                RowBox[{
                 RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}]}]}], 
     ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"u", "[", "t", "]"}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        FractionBox["\[Theta]", "2"]}]], " ", 
      RowBox[{
       SuperscriptBox["u", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "-", 
           RowBox[{"2", " ", "z"}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"u", "[", "t", "]"}], 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "z"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
            RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["uh", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "z"}], "+", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
             SuperscriptBox["\[Mu]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"u", "[", "t", "]"}], 
              RowBox[{"2", "+", 
               RowBox[{"2", " ", "z"}], "-", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                RowBox[{
                 RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["u", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], "+", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox["uh", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"2", "-", "\[Theta]"}], ")"}]}]], 
         RowBox[{
          SuperscriptBox[
           RowBox[{"u", "[", "t", "]"}], "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "-", "z", "+", "\[Theta]"}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"u", "[", "t", "]"}], 
              RowBox[{
               RowBox[{"-", "2"}], " ", "z"}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
              RowBox[{"z", "-", "\[Theta]"}]]}], "+", 
            RowBox[{
             SuperscriptBox["uh", 
              RowBox[{"2", "-", 
               RowBox[{"2", " ", "z"}], "+", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"z", "-", "\[Theta]"}], ")"}], "2"], " ", 
             SuperscriptBox["\[Mu]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"u", "[", "t", "]"}], 
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[Theta]"}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
              RowBox[{
               RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["uh", 
              RowBox[{"2", "-", 
               RowBox[{"2", " ", "z"}], "+", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "z", "-", "\[Theta]"}], ")"}], " ", 
             SuperscriptBox["\[Mu]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"u", "[", "t", "]"}], 
              RowBox[{
               RowBox[{"-", "2"}], " ", "\[Theta]"}]], " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                RowBox[{
                 RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}]}], ")"}], 
          " ", 
          RowBox[{
           SuperscriptBox["u", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"u", "[", "t", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2"}], "-", "z", "+", "\[Theta]"}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
               RowBox[{"z", "-", "\[Theta]"}]]}], "+", 
             RowBox[{
              SuperscriptBox["uh", 
               RowBox[{"2", "-", 
                RowBox[{"2", " ", "z"}], "+", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"z", "-", "\[Theta]"}], ")"}], "2"], " ", 
              SuperscriptBox["\[Mu]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"u", "[", "t", "]"}], 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{"z", "-", "\[Theta]"}], ")"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
               RowBox[{
                RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], "+", 
             RowBox[{"2", " ", 
              SuperscriptBox["uh", 
               RowBox[{"2", "-", 
                RowBox[{"2", " ", "z"}], "+", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "z", "-", "\[Theta]"}], ")"}], " ", 
              SuperscriptBox["\[Mu]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"u", "[", "t", "]"}], 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{"z", "-", "\[Theta]"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                 RowBox[{
                  RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}]}], ")"}], 
           " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["u", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "3"]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           SuperscriptBox["uh", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"2", "-", "\[Theta]"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
               RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["uh", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "z"}], "+", 
                  RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                SuperscriptBox["\[Mu]", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"u", "[", "t", "]"}], 
                 RowBox[{"2", "+", 
                  RowBox[{"2", " ", "z"}], "-", 
                  RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                   RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], "2"]}], 
          ")"}]}], "-", 
        FractionBox[
         RowBox[{"2", " ", 
          RowBox[{
           SuperscriptBox["u", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["u", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}], 
         RowBox[{"1", "-", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
           RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["uh", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", "z"}], "+", 
              RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
            SuperscriptBox["\[Mu]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"u", "[", "t", "]"}], 
             RowBox[{"2", "+", 
              RowBox[{"2", " ", "z"}], "-", 
              RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
               RowBox[{
                RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}]}], ")"}], 
    "/", 
    RowBox[{"(", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
         RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["uh", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "z"}], "+", 
            RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
          SuperscriptBox["\[Mu]", "2"], " ", 
          SuperscriptBox[
           RowBox[{"u", "[", "t", "]"}], 
           RowBox[{"2", "+", 
            RowBox[{"2", " ", "z"}], "-", 
            RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
             RowBox[{
              RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"u", "[", "t", "]"}], 
           RowBox[{"2", "-", 
            RowBox[{"2", " ", "z"}]}]], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
             RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["uh", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "z"}], "+", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
              SuperscriptBox["\[Mu]", "2"], " ", 
              SuperscriptBox[
               RowBox[{"u", "[", "t", "]"}], 
               RowBox[{"2", "+", 
                RowBox[{"2", " ", "z"}], "-", 
                RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                 RowBox[{
                  RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["u", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"], 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
            RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
           FractionBox[
            RowBox[{
             SuperscriptBox["uh", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "z"}], "+", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
             SuperscriptBox["\[Mu]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"u", "[", "t", "]"}], 
              RowBox[{"2", "+", 
               RowBox[{"2", " ", "z"}], "-", 
               RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                RowBox[{
                 RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}], 
       RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.769135163657024*^9},ExpressionUUID->"a375304d-f277-4b92-a52c-\
a114e2dcd097"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"0", "\[LessEqual]", "\[Theta]", "\[LessEqual]", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{"z", "-", "1"}], ")"}]}]}], "&&", 
      RowBox[{"1", "\[LessEqual]", "z", "<", "2"}]}], ")"}], "||", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"0", "\[LessEqual]", "\[Theta]", "<", "2"}], "&&", 
      RowBox[{"z", "\[GreaterEqual]", "2"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "z"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.769135478766447*^9, 
  3.7691355443510437`*^9}},ExpressionUUID->"3420bf35-3147-40d9-a80c-\
b97150aec8db"],

Cell[BoxData[
 RowBox[{
  RowBox[{"0", "\[LessEqual]", "\[Theta]", "<", "2"}], "&&", 
  RowBox[{"z", "\[GreaterEqual]", 
   FractionBox[
    RowBox[{"2", "+", "\[Theta]"}], "2"]}]}]], "Output",
 CellChangeTimes->{
  3.769135545085877*^9},ExpressionUUID->"e10acecb-c92c-4073-bd68-\
2490c7aa1570"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"0", "\[LessEqual]", "\[Theta]", "\[LessEqual]", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{"z", "-", "1"}], ")"}]}]}], "&&", 
      RowBox[{"1", "\[LessEqual]", "z", "<", "2"}]}], ")"}], "||", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"0", "\[LessEqual]", "\[Theta]", "<", "2"}], "&&", 
      RowBox[{"z", "\[GreaterEqual]", "2"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"z", ",", "\[Theta]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.769135556431652*^9, 
  3.7691355589881077`*^9}},ExpressionUUID->"f7ed15f2-efb4-4071-b645-\
f15888727a42"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"z", "\[Equal]", "1"}], "&&", 
    RowBox[{"\[Theta]", "\[Equal]", "0"}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"1", "<", "z", "<", "2"}], "&&", 
    RowBox[{"0", "\[LessEqual]", "\[Theta]", "\[LessEqual]", 
     RowBox[{
      RowBox[{"-", "2"}], "+", 
      RowBox[{"2", " ", "z"}]}]}]}], ")"}], "||", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"z", "\[GreaterEqual]", "2"}], "&&", 
    RowBox[{"0", "\[LessEqual]", "\[Theta]", "<", "2"}]}], ")"}]}]], "Output",\

 CellChangeTimes->{
  3.769135559915574*^9},ExpressionUUID->"a7125d63-fcf5-407d-802f-\
bb4d5fbff357"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"qcrit", "[", 
    RowBox[{"us_", ",", "uh_", ",", "z_", ",", "\[Theta]_", ",", "\[Mu]_"}], 
    "]"}], ":=", 
   RowBox[{
    RowBox[{"us", "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Theta]", "/", "2"}], "-", "z"}], ")"}]}], 
    RowBox[{
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"f", "[", 
        RowBox[{"us", ",", "uh", ",", "z", ",", "\[Theta]", ",", "\[Mu]"}], 
        "]"}], "]"}], "/", "\[Mu]"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"us", "/", "uh"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"z", "-", "\[Theta]"}], ")"}]}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Mu]ext", "[", 
    RowBox[{"uh_", ",", "z_", ",", "\[Theta]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"2", 
       RowBox[{"(", 
        RowBox[{"2", "-", "\[Theta]"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"2", "+", "z", "-", "\[Theta]"}], ")"}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"z", "-", "\[Theta]"}], ")"}]}], "/", "uh"}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.769135303108637*^9, 3.769135443404031*^9}, {
  3.769140397809441*^9, 
  3.769140401373547*^9}},ExpressionUUID->"f85ea4f3-8f01-42c6-8b8b-\
9345950e4ed5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Mu]ext", "[", 
    RowBox[{"0.1", ",", "z", ",", "1"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"z", ",", "1.5", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<\[Mu]ext vs z\>\""}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"z", ",", "\[Mu]ex"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.769135444644292*^9, 3.76913544907198*^9}, {
  3.769135569348872*^9, 3.7691355929280024`*^9}, {3.769136412892486*^9, 
  3.76913651269556*^9}},ExpressionUUID->"c1a4ed2b-27f6-41e3-8587-\
871fb9102002"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVkHk4lIsCh8cYDbLmm7EOM/NZy5AZY2tufiFbOCUlOudU6pQrYVKWSake
Uim0kSVNJa7TKiWpR7fFQVTUKZQlmYicFluDjNv9433eP9/neTkRscF/UCkU
SvJP/u952h7KdScV7p3q5+Pjd7uhtqJIbDWkcA+3c2tOn3JFzPqbRyfGFO4r
PPK33B1yhal2c3ndrMI9n3tqG/2tK/ZET/duZMy6Lw3Un+y964rFVuHBUsy6
d1jPDBbuccX9In2BYd6se3Ok9N403RXvPP0kKlwKeuoPUH1tXEAvypCtsKJA
OJtf42riAruxuqBiWwpSkyQMkbYLdpV4kM7OFDg99hJsH3cGU0XUHBlAQdDT
kGLpQ2cE/GVn2pxAwc4XIdc+rXPGbV/i4fEmCl5Esgp3XnRCtzTYtqeFgtlc
TX3PAifQJnNyF7ymQDO+rpaV7YTgcs2tj99RUM49IphKcsKwGp2YGKfAcl6h
bWCgE7hNk3+EsZXwi+nRLh+5EFmBPWrsnUpQFJxJUawW4tGMZGuPRAmaD9eJ
dwYIIb/CfFq8Vwk2i070yJcIEaEVlMM6ooS+TUefmfOEcH5+j2l8QQmOFqIs
LZoQ75YXkMxWJRA/ZuTMm44QhKz6lwaPiqy2V4lxJo6IpH0rbuJTUZv2T3OQ
niOKbx6hZLpQEb0m1sZZ3RGqjMeP1LyouDoovWUhF6DzFd+fvpaKOkpUYNLf
AhwI1QmlHqIisLkz/UOWAO3hTXFyGRX31Q+GJaoLIGLTzq0aomJCOZmmpCyA
9IOo9cYXKvIsOa3HpvmIjLvqsG2KirDzsxcbhvmQpx8b6dVWhluEm9nh53wY
VITuaHJTxvEFn/JX5vKxhi5LLM5Rhp5e9pNaaz7aKn/s8RLRwN5WTmWtc4B/
6/FSwoOGvCDGP/9Z44B7n62fyXxoGLhw7rFbsAOkNqtY6Stp2LqjyTBuqQOi
zl65WxdFQ5w8P4Ft6wDF4d/l3vk0LN4eN5MztRDmEf8V+03QIBIz/VIKF0Ks
k7Yp6LoKaJecxT/a7HHjakCkcpUKOgVj4Y1P7TEWwIiuvquCNYnd8cWP7JFw
qDSeW68Cq4Y+9Q3X7CGhNu6f6FLBRER/lXeGPfaPaZ4rnjsHv5hvTc90scfJ
9ryuz5vnIGX0N4MaqR2qpZdWZ7PoKNud3NCazoN1iK7Ney4dccIRu/HdPJym
J047WtMxGqUjYyXwkBTjIX3Dp+O+kpV56mYeXEQdgxa+dKiufBax14eH221z
dt/bToeFHn9BsjoPVVoRFwbr6eDmXf5kdtIWlSkGXz23q2K4KErD5dYC+P/6
dn1Vnxp6F5y1jFedj9yMvqQi0VwojFlrK65ZI6s/88ydLA2MeNcF78qwAtfv
cP7JGU3wJt8PeURbIur7U1HfSm1kH5lqPL/PAmV/V75N3KiDJiUvhUuxOWLr
l5/NN9RFONblf3xFQnd9jtPOR7rwvX5/WZotiX1TkjvXds3DbA5HwkrnoslN
VafESg++B6YrbSY46EtB8PdePfDKOxx7tnDQ2t5g1H+aQPKOpmVhA2wUvBmt
yvJkgKYr73RPYmNhd+Pi3B8MLOHO9ASqsnEuw6MgtJyJWojL2gLN8NF/bsrN
YH3YqWtZDxSYYkY71S9O3QCWWd5/9slYGJacGvpwywA0h9DzK5ayUD6wOrEm
1hABJVot6edNIIqJPDzf0gjay35PpGuYoLzARBzSYoSSljuVSzKMIWvY5dl1
0BifSiqudyiMMFW0e9BMaIIHXpnztQ4Yof/wc4aiywTLxa2NvgwjSCXNvEWn
WEii3bn4QGoIR51oQz5MITmlPWrsaojcsqqvGZOmeF6u2Nbz1AAvZBcK80rN
4PuX8WZhjAFGzsRt5lizwWLmuAcTBoh4ItthmcbGo5JX3A9V+rjvN3+b6hs2
OqW6G7036kPZf+lbQ2cOImNPPAjQ0Ac/9KBG8nEOPDf7PFlbw0TQ7SKrWwMc
rLU7YfY8jokVpw9Us724MAv97TTNnAmP5iWCfxdwET7FXfytmwFTTQvx7Gcu
3rcnHTl0hoHeZ13mdf4kUq9fPqUSxsCxvi0Pt0hJGDknengYM1A67U32nyNh
IOZpC4wYqNGzTNt0gUTmoQhlc0MGZJ6ypRtKSTT2kRFz9BlwKVnfGH6ZRPST
me/N8xjo3hTWElhNwvbucMoGdQZs+/27BS0ktGp8LpVNEliisHG/0UpiJPvL
qjNyAquZatKFL0kMxny1PPGdwF7v+g281yTWrexYlDpO4GWp5wfLThKSsoCF
Yd8ISLaIhg0/koiRDC0iBglkpxoHnh782eON+Gh8JFCSN3WF+YmE/qbHybQB
As/qq2P1PpMw4VwMGpcR4FgLRzXGSHxp2HCv/R0BJxAhmeMkLCT14609BPzX
jN5U+06Cv6cipKmbwI6DFQlzpn7+Kvyyv7aTwCFpTlvaNAkNf35w9VsCxdWx
LsozJDQTXnvfeEOgsiUof5+CBFv8cv3lDgINH3lTs7MkSrLZ0tJ2Av8DBXQz
sw==
       "]]},
     Annotation[#, "Charting`Private`Tag$3203#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["z", HoldForm], TraditionalForm], 
    FormBox["\[Mu]ex", TraditionalForm]},
  AxesOrigin->{1.5, 5.21157312582719},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox["\"\[Mu]ext vs z\"", TraditionalForm],
  PlotRange->{{1.5, 10}, {5.21157312582719, 26.490042903004777`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7691364611034737`*^9, 
  3.769136515565627*^9},ExpressionUUID->"581843ce-f3c6-496f-8ce6-\
a15e0f03ab5a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Mu]ext", "[", 
    RowBox[{"0.1", ",", "1.5", ",", "\[Theta]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<\[Mu]ext vs \[Theta]: 1<=z<2\>\""}], 
   ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "\[Mu]ex"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.769136472015119*^9, 3.769136473144403*^9}, {
  3.769136524197041*^9, 
  3.769136587693928*^9}},ExpressionUUID->"6d3ab6a4-5288-48f0-83b3-\
2519dfce4ad2"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVx3k4lAkcwHFXT5QwKu0kFY2ULiureb3G7+eYl3XkMRF2XUmFLumQLpFR
NBO7K9tul6KWPDXKaNuMkmZTNuRaQjMakwbDS4V1xNYf3+fzfM0j9/K2aWlo
aPh86aue21T1FT0BTo/sWo2eDrFRx3VhnJxpB2FzmsK9P7Bx/dULl0qYbnAj
vlzS/OW9alruXWb6gzhxS67qIxsDo0bLf2ZGQXSxtaHhCBvfrDvtKmQegAd9
+YKwcTbmzvdNy2Cmwj1BjImuNoHJuiVW6cxsaHYiOvnzCAwKviYaHMqH4qih
+SRJ4Ozp5BD3xSLYdfRjVXgEgZZ+A6qnZ8VwaHGBlZRPYEItARc+/QUpx4jX
CSICF4gZMk3NxxBq5jF5soXA+wrXl3WOlRDkkSNbqeOAlbGXTYPVUqj8MFH3
w7cOOLycY3h7dxUo14WvloY4oNZYkZGpZTXwfoouooQOaD8dcX/TnZfA9jsR
MFbmgC9T7WqfWddBVxSRsqzPAZdk9Y0VDryC+BiZ7+ASEvtG5bJmmwZ4u2NG
UC2PxPzesmqDc40gb1P7VJ0l0cDsD1qpbIIF1gNBhX+TKIgp3Z7L+hfebS1P
OvKZxBEsUkYntUDcHvGRpY6OeMBWKjZ52gpTt75Riw47ovyO9Gy9eRvEtOc9
KpU44kRs08WVR9rhvEDXyEiLg6ucZ05tL+uAtICThTZcDrpfN99xd4EMNtUG
bXyWxcEEs3CLtyFykCyqyLZo4+BqdcDsFp9OUDAyVI0sJ5xrOKgrHe+Eyfmb
/awSnVDn8UXRsktvIaL9nr7FP064067stZ6XAuLC3W7XWAEWfR+Z+2hEAdM3
xPtUaYDDfQuNunO6YG1vgKewC7B0k7t2tpsSItPcZvkuR0zy4F8VdytB++oW
fkEwovkbz9Y8/js4SCwX+J1DdNiQms207QadqII/sRoxZHHdmGZjN/TW21V8
1nHG4WqhIi75Pej5vs+ddHfGCzphB3gsFQyGzPPqTXfGubLS61pSFRyt3iL6
r8YZZxxP9if29cCaW30WH0xdUKMwTKQw7gUny3HxcLQLxv8uEhpX9sK0fOfz
hCcuWL7qjC5jTx+c2is/OGLmigzP+NUpBmrYk1sUWJ7oih1rXjUmStSw2VRK
tHe5YvEVYCnD+mFHPFMo9XHDUJE9w2yqH+7n9GTelbjhSf615I5bA1CxTVNP
xuHibZXZRQNvGlYpJoTXH3PxzGV+hGwjDekLJQ0TT7gYxeu3vONHQ0noaVmA
lIuLJJJin0Aaeo7Veeu/4GJG5o/PBJE0XFu/IjOlgYvR9r8NzUqkgeWv1j7/
josWqfM8Zt6k4YTjL6f89SmcYh+b01JAw4q2qrgqAwpf93c13CyigWQZ2ZIM
CrMCS0KpuzQcepBpa2lC4bQ1bz9fQoOnjfsG7aUUdtRnXtFupEFJ7i9+v57C
B2mjWxubaWBO5hhH21OYTYavzGulIaK1wreHTaHXjbViFxkND00HQgY4FD48
XPMiuYeGtALbOi0PCnPWfJfpp6bBfUrXJMOTwn2KS/7mNA2Gw0dJYx8KV3jv
kld8osFcQ49lyaNQR7MpP2uUBrPj+iqRP4WdpWRsxDgNJruTBGQghZLYvHU2
n2mw9GthPA+m8Ncls4enp2monkw/HBBC4f9FUki6
       "]]},
     Annotation[#, "Charting`Private`Tag$3257#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["\[Theta]", HoldForm], TraditionalForm], 
    FormBox["\[Mu]ex", TraditionalForm]},
  AxesOrigin->{0, 24.94438271788089},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox["\"\[Mu]ext vs \[Theta]: 1<=z<2\"", TraditionalForm],
  PlotRange->{{0, 1}, {24.94438271788089, 44.72135836351079}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.769136588518154*^9},ExpressionUUID->"f293c27a-7db2-49a7-b8a4-\
42cac1e46049"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"\[Mu]ext", "[", 
    RowBox[{"0.1", ",", "4.5", ",", "\[Theta]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<\[Mu]ext vs \[Theta]: z>2\>\""}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "\[Mu]ex"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.769136599181768*^9, 
  3.769136607853806*^9}},ExpressionUUID->"87cd292a-77b7-4fa1-be66-\
468cbe359a1e"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVkHs81Pkexscl4zrDoHbIfYysiqwsp/T5WCqhzrqtLqJcNskmVNJmI5cT
uTdHlpRLRCUrtz2R0NRsbYWIstMovKz7JXea33edP57X83q/nj+e5/Xo+Ya4
BkjSaLTwVf3fHQOG2puGA3aMGZSzUsq4KG2ncaqXbQ/NxrN3Nq3yNzezr1ex
3aHVxMHqdSkXnV51P8hj+4N4iGnOXGVP/4VHmezTYJE+WpBewsUPpv+xS2HH
QUvC9tCMIi7mq/87IYnNg5jsiOakPC7GyFYZJbJvQXJlWtOhDC7uP1BQMTVd
DX+Vb5NxO8tFBRLjtVv7MYybPfF19OKiocvE0JMrfEivz2ZQtlyMeG0N2bPP
4cHPEl2pHC6uq1YRSUi0QjGk/GAuy8XaPruXrdvfgG5d0rehQ4bYEpSneWCs
ExYC/4w2/cMQ57g2zPKfuoHxVf9G9TJDlFy6q6xp2APm4q4bWxIM0ZIcqXW7
L4Q46v1KpL8hvoyzeP3s616oDQkTOn5niDrpo0tlEx9BgmExKdI0xNGFXtFb
sz5IXj5oWj3PwVsj9S8Yqf3wSjU3dvAlBxlatycHBgYgObjgvE0hB5OP1/yY
zxmEvRs37xs7x8F5vDsQePFv0FC3UPB05OBpc3712idDkG5hdJqtxcHe+/wr
7XojkF/0qVBuxABXgjpzjc+PgnTLN3Y1NQZoYkunfqwfA6UTmWovLxng7kK9
Y5XrJuDgvF+N8R4DjNDy0f/kNQm0xZCAIWUD3DjmodC9dwo8w0O+39etj6rM
KVn+8hTckd9Z1ftffZR+nFthcH0a3r5Yf/Gdhz6esKh/L+f0Ga6a7K+bU9TH
u3t88xvnP8ORTNZnXrMezo1qKA9mzYAga79lZoQe1rjtluLZz0JA/rWoYX09
vOgQf7N6cBaSre76HG3VRb0Pju+K4uegZeTU773ndPFf38bx2ObzcKAzNsJF
XRe9tFuXJDrmIWnlZT0rQAfnXqT0nYpZgDO64ya8aG3MlvY+7cpZBL6JbbfR
dS1UFdUUSvIXYfaBl3jPvfW4JirG3Tp0CQ5/tb2n46om0sq8K/pYy7BOstnA
9JwGhuVUpLBalsGt8ebwxw1sfGRyWVbl5ArovnhtI924DlUcwzZeYnyBzMSc
zIlda1G4qa0jsuELRG64Ktz0ixr+dgM4A95iMLOxryzJYuHM+Rn60aNisKou
8b2ZykJLz9ujH/zEwNSJ2XE1gYX1TGZVd6AYvI6xDgWfZeGzaJHtn2FieLg/
MKjfg4V/+Ub5PEgQg8cpmxaRKgtljOpzou+L4Y2XRNXbKyp4uMJSRYsSg7FR
dOH748pYe3CR0UajYF1Z3tsUH2VkyDxUjJWiQIGfm2/toYxNXjayw7IUWC5r
NUSgMurL25NqVQroI3qbk9cq46C/y7izMQXWM0nNipeYeFIj+PkFdwoCY7Ye
CdJi4LOnmwSmnhSUDo9ZhcgwUCd0kt93gAK3zi3rvSeVsE0Q1uTgQ8EERG9Z
alJC8zORdWpBFIzEFlRq+ynhQmtC8b2LFFzKCO6dLVTE6PiCGOEdCgoz6o3W
MBVQKYLueLScAkal2h+8eXnMCfyJNVixus9ivEdOJI9VTtZFk9UUMN0iNhfd
k8dBlXa+5GMK3DkCdpKDPDrdoMkad1BApQu+/3heDtfW+aSeWVn9Q1VpB11A
x6LSpz8siyng17iH8+7Q0SzHROcijUC/g7bVcgod90QtVFxeQ2CAZ8Pd607H
C3Zp7blMAhE84SMiksG+1ka1FgMCwvCdflJja7B8SCuX4UzA8olMuEAkhZfz
4o+I9hHYKnloWlgnhf6u44b3XQjkNTRuzEuXwvUNDb/t9VzNY6nb6rZSmJR2
6FmyL4Hm7QLv0jxJDLT8dVo+ksCl4hFNWTsJtB+l1fX8TGBc7tfy6+oSqJMf
eOHOLwQO8FyXyv+mYZecFd0xjgBvoSVjaxINd37oWp+YRqCxNfTsrXQC+nFq
DvQSAmv2q+sM7PoClNUFpe5SAlHSKQMOXSvwfrz/TcldAis54ckCvxVI96w6
vKuSgCMePlVxbhnI167h8Q0EzNUC6RMJi9DT+z8rj8cEwqIEY5NSi1DL06M4
LQTazEp2fYlagJPU1GW+gEBfY9lz78B5ELan3ZDqIJCzY7a+jTELvycs+HW8
JXDDZfFVY/AM8Lb5GBe9I6Dc8qhd9elncCreXP2daLWvJ/FEgO80cA9mRbI+
EUgIUux+WjwFkkxqR18/AXut1sSopkl4eO7V85hhArZ9Jq7Wx8cga9PWNJcx
Al+OpfZ28EYgtO+6u94kAekNpUbOeUPgfE1aY3qaQHBtW0hQ5CBscA7ubZol
oN5o90JOcwCkJTpvpS8Q8G9K5ngFfYKPNduCjiwTUHuqZTUTKoSGoCJTMzEB
RoZ1maV2J1zTUZgjhMCrmPv5dkI/+AeAVnGD
       "]]},
     Annotation[#, "Charting`Private`Tag$3304#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["\[Theta]", HoldForm], TraditionalForm], 
    FormBox["\[Mu]ex", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox["\"\[Mu]ext vs \[Theta]: z>2\"", TraditionalForm],
  PlotRange->{{0, 2}, {0., 11.331154426226895`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.769136608221182*^9},ExpressionUUID->"0efd1251-8891-4c9c-b45d-\
fdc4a9b91a88"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"qcrit", "[", 
    RowBox[{"0.1", ",", "1", ",", "z", ",", "1", ",", 
     RowBox[{"0.75", 
      RowBox[{"\[Mu]ext", "[", 
       RowBox[{"0.1", ",", "z", ",", "1"}], "]"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"z", ",", "1.5", ",", "4"}], "}"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<qc vs z\>\""}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"z", ",", "qc"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.769136739171462*^9, 
  3.7691367937082157`*^9}},ExpressionUUID->"18e7523e-1f01-4143-8a7f-\
de7a520eb006"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAAgxiyDQAA+D9rDCfw32XRPxqE6Qok
A/g/mxy+J+B30T+y7yAISAb4P76pA8DnidE/4MaPApAM+D8pkmc6Da7RPz51
bfcfGfg/2NW1arL20T/40SjhPzL4PzBPujduidI/bIuftH9k+D+I1k+L7bTT
P1X+jFv/yPg/r4oejgMm1j/7mrjN5qL5P2pBudSt+ts/7Sc6k11u+j+LL5UH
QxrhP648ZZzWNfs/zXE33b+W5D9DCOHJNw78PwK+IA5j8Og/JMSySijY/D/+
n7hWH57tP9k21e8As/0/j8AqDze88T9dMaHY24n+P2HRK6ndEPU/LRzDFEZS
/z+ySWY74KT4P+nemjrMFQBAuao2qq8d/T/hJ38UPXsAQLuEBfbP9gBAwDQ4
EK/eAEDc4iJzQ6oDQAmdGR6VSgFALWvl4sAIB0B4/aXVQq8BQDlsChH8pQpA
Urlan2QcAkChgD6SlScPQBM55IqHhwJA1ETdtnAhEkD6sBggcusCQH7m2fVk
3BRAS4R1x9BXA0ANdwpADUIYQMJPfRj3vANAbvVhEUnlG0Cjdq17kSoEQLfr
XWvDNSBAbGGyAC2WBEC1fU3wt8QiQFtEYi+Q+gRAMNo9HvV/JUC0gjpwZ2cF
QKyxP/0K5ChAM7m9WgbNBUBOWR9VOoQsQJmzFWemMAZACr1mwOZHMEBpCZaF
upwGQB+sx3iqyTJAX1fBTZYBB0AX+AxRBXY1QL8AFSjmbgdAOrEgwxvGOEAH
bj0kN9oHQK1Z13+KgTxAddMQyk8+CECa7i1L4TxAQE2UDILcqghAoHlJ06Wx
QkBLTbPjMBAJQHVL0QOST0VAMMouZ4ZzCUDZHZxIojhIQH+i0vxP3wlAVSvp
y3DRS0D0ciE84UMKQH36myE3pE9A056YjeawCkCB0Aet8C5SQNjCuoizFgtA
DcRE4gGzVEDFqrGlgXoLQJbyzLjYfldAHO7Q1MPmC0D8soM2jPJaQJkpm63N
SwxAf5WrioKdXkCAwI2YS7kMQNjiQG5ikmFAThtVpcokDUD4AJmTER1kQEJu
x1sRiQ1AR93IpvfOZkCgHGIkzPUNQCTpgmvbIWpAJcOnlk5bDkC6m2F8wqlt
QNnpWdoRvQ5A2kHh1EzBcEADn4I9
       "]]},
     Annotation[#, "Charting`Private`Tag$3739#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["z", HoldForm], TraditionalForm], 
    FormBox["qc", TraditionalForm]},
  AxesOrigin->{1.5, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox["\"qc vs z\"", TraditionalForm],
  PlotRange->{{1.5, 4}, {0., 268.08125770560366`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7691367838449306`*^9, 
  3.769136794042495*^9}},ExpressionUUID->"3aa5c494-f9b6-4ce4-81a3-\
74041b6d1450"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"qcrit", "[", 
    RowBox[{"0.1", ",", "1", ",", "1.5", ",", "\[Theta]", ",", 
     RowBox[{"0.75", 
      RowBox[{"\[Mu]ext", "[", 
       RowBox[{"0.1", ",", "1.5", ",", "\[Theta]"}], "]"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<qc vs \[Theta]:1<=z<2\>\""}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "qc"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.769136809609832*^9, 3.769136811684771*^9}, {
  3.769136921086994*^9, 
  3.769136954007379*^9}},ExpressionUUID->"bd10ac1e-e0a7-4430-9052-\
10b48ea9aa4b"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVxXk01AkAB3BESM5Eo4SSHJHt0Fq1X0UXSaSnVmRFiXVkJ1FKIyMVq8MT
645aJSZX5ejCq1cUv9+QwTTDmMY1/FBjllnZ3T8+72MSEOEZpCAnJ+f2n/93
CRoiXg0f+jlOvcR9r48Mik4GkXzaJjTd9plyPizDxvzMnCqaM7ZwDvAdD8ng
+qGrMpfmBWOHgTv27jJ4B0qf36IFomCoO8HGSYbP6684pdLoMB4rtjezkqFg
qXvSNVoiahsSpPtks2CoVK29SkvHp7UTK6JzZnH4SCFrYrIYSwNduivJGajN
M47uXslC+gaL1/8YzGCNx/hQ0/VqhGvOrzQP/RtnP9oj81stHttdkOhVSKFf
rc2Tl3+JV3Xp12uUpXgicGpt29qIHD2HljKvaTSG5C4/Im7GyL382/4PJJCY
bdMsC3sLZZnH6hh1CRRmSrWWr3mP47uKYq4Ef4PdvP+Tg+WtuDlv0H6A/IrW
xE0f31i2wUiXmXVxx1cY3RideTDejrzKjLYfHk5hVMrnddqSiIjUWZVgNIXi
kfr3Gn+w8dyco/sxZRIahn9RQmEH+ittNX6Rm0TKqZoTBaaf8K7u9ckzlyYw
7VgqDI7vgloDK2vxFAX6huZqvSYOkh45122WjYNf3nydMOnB9MN4Ve3pMchC
OrItzvUibZAJgUwMq+3K30/Uc5Fm7mrM1Rdj912TkxX6PDxTMnd0NxvFWcNj
q/qP8kGmUI8m945gnfiQWpdbHy6bRJzLiB7GEs0JlebZPrDHowt8M4ag+DKb
tTqnH9pe6o1P3w0idFN9t6qrAOuyXQteTIhQujeg4MW0ACUB5yvCjUWQjBpo
iTIGsGfbXLllwBfUHNy9IN1ZiLcLFJIWZwoRv4eZXy0SIo9JV7LkD8Dkswun
iPkF5y+VJbtbD+CnLYnptA0i3PTnbqQiBDi6sm1Gni2CaFdrH72xH5L3qYJI
xiCUwnrKKlT7kanoR/c0HUK7vJmytn8flvBq7io0D4HOSF5yO4YPpQsML/vT
w+DutJo+Y8CD3AM/lkBnBEH1OZXLOVxE/clK1WkcgW1V+ZxKfC+eWyWraIeP
Yk6ztmd8fQ+0XaLWJWiIkdq+31dxlgOudTs7tkGMKJuFMHvUhcd5MBX6jeHc
2knnmjOf4Muy0zb8PoaIYS3Typ2duMQsZHAfjiMu/G3HMhkbZUOG2Rr7KJSP
9M7mNpNIzmX68/ZTCBX6qlq/JBHoObam3IOCxH4zu76WxIqGhsdu3hR8KtIy
OOUkrqX5vEkJoACzyy0aWSSC7bImF8VSUNZpCQ4LI7EqUXeP8n0KkYMXTKil
JL7/GKfeVUIhwaIwjK5FontsgLxfSmHAxu7XmUUkbnhX+e6qoJDZqLpVQY7E
vKXn78wGCjxZbJnmCAEukZa3gE3Bz2KhaNkLAs+SpMfZnRRst1z1znxGIN3h
mEURh0KnEj1Iv4qA6z2b6h08CpzRwoO6JQTqYj68YwxTYLnpBaneIpBhvTnN
Q0xhujT9HjOFwGlBjpcJReEi436c/BUC5vt+47/6RqGp5eqo9DwBRfmO4htS
Cpr5vYyoaAJ9NQ4h/rMUThW9LhVHEmgIKVpvO0chvjE2+EQogTtGapL5eQpn
Zx2f8oMI/AvJjHia
       "]]},
     Annotation[#, "Charting`Private`Tag$3786#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["\[Theta]", HoldForm], TraditionalForm], 
    FormBox["qc", TraditionalForm]},
  AxesOrigin->{0, 0.27184288879281077`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox["\"qc vs \[Theta]:1<=z<2\"", TraditionalForm],
  PlotRange->{{0, 1}, {0.27184288879281077`, 1.7097867118435195`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7691369550848722`*^9},ExpressionUUID->"3123570e-8245-410b-b61e-\
40d8d8f165dd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"qcrit", "[", 
    RowBox[{"0.1", ",", "1", ",", "4.5", ",", "\[Theta]", ",", 
     RowBox[{"0.75", 
      RowBox[{"\[Mu]ext", "[", 
       RowBox[{"0.1", ",", "4.5", ",", "\[Theta]"}], "]"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<qc vs \[Theta]:z>2\>\""}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "qc"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7691369670630836`*^9, 
  3.769136974888281*^9}},ExpressionUUID->"5117bba3-d7b2-4f60-9628-\
ac244d7d7c51"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVxXk01AkcAHC3KZtrtO00TeXadZTSDt19v8VDjpSovJBclbKV1Uu1NTu7
JhLxevo1McMcGIYxlWEro9OrR4pQQyNXYpw/eiQdZnf/+LyPddTxoFg9HR2d
gP/8v2+s5tXDoZAthkZxU+ssZWjgsfhEN40JHX9LL702k+GvBVxeJc0TEhe6
hCQukKHfC9VtPi0YXFO7r5RTZLg3Zqb2Ki0GnL0OZdhqy/HdqlSPTFoSpAk1
ZfTRchQsDLyYTksB1w7lfubTcmRTKn+5RMsBKiU62ehcOe4LFconJgth2KQ6
Qv22DE207DDvpXLI0FYH3/cpQ/td45onlxWQ7yFML1ZK8fTL9cCdugv0nQcZ
tg5SXKSw6NLVfQDL2fUShaAUq/s8Gps2PQbneknYTotSfBzPp4eO1sE1jRfZ
k1qC0z9vNpMlPIPdltlfufNLUG+2zJxu3wBVatdBNUeC7trI6t0VjSBust3U
+IMEG1OYL586NcHwLdNJJbcYl2WPzJaON4NtrcvLCkYxjsx0d71e3QIuLax4
lqwIC4drGkyvtIJTv1pH4V6EpgwJ2d/fBvPOe6V21hVixpGqOIHdG3CbrhIt
DS/ET1jWf5ilgk0Np5a4kmJMWlOn+PFJOyR/cx2cSRdjd0Xd5VfWbyHhzFZ9
zXIxfo1vy3M8q4aZyYSw7TUidN5qPBdX0wmn+M8/yyJE6C2yPnRrURcc/ehY
wv8mxNOMAza9Yd0Q0Ztb6SYW4orREBNVQA903rmtSQsQItVsglL3pQcmSk4l
P/ooQIMHeXJbXi8YzXvjRBEI8CizpmOeXx+Eb5XeZfkIsGx7lOD+pz6QH9vn
uGeoAKdHFpsPEO8hNCmrSLSzAKt2e+vnePYD79m5zZ8r8pHlwylQDPRDw5aV
8nJ6Plq/820Xcz7AkAMrIfcKHzesTcmhrRmA7xem1CtmeRi2tGlWt3UA6BRj
f8ZJHk43ZPadYA9C5fMNt5m9ecg1iEgKstNAs8ov2CYiD6ldVSK9Og0YGOht
Lu/JRcPz7OD1J4fgQWqM2dj+XNQpjZD3WQ7DwUgf/pL3NzAxV55p+XgYNN71
mnPRN7DWOY1i8dsIGG5hFiYNcdHCN3HFX6ajEGiU3nLhLBc7Vza3nlGOQsZN
KmebIRdv5oNdf8QYjL097CDJvY7hcncLxtwYyByoPU+Y1/FPjpDdKR2HZuNj
UYx6AmUaRp6pPwldJo+K9hwiMI3PiezaQcJxuvSdJJbAmKAx+4pdJPArgnxm
owlcolTeDNhLgpXVmypeJIHpWfufZkSR0Ps5cPJDKIGH3W9Mzj9DQshw9CDb
n0CbFCsf42ISxj+q7nW7Eji37o8FqhISsqgvPNeuJrBj7H1LcRkJVB1r3SwX
ArP3VoZ73SJhXWSHOTgTqHUK+p2jJMEtbn2G0I7AzldZ+fqtJJjdsZk4vojA
Oxdnoltfk9CeLcpvWEhgzsYDjuJ2EjIdg1j2VgT6FbkotnWRcOQTU6U2J/Be
8ot69hAJrMp/enznE0isdMvaNUqC54aY5RIKgSf7eMHWJAkNgY5X9Y0JdPA/
1v1wigRpwaRJrT6BBrpthdkzJMT+RFIX6xHYU7UxPvILCTW82YDTOgQq48Wr
Vn8nwX6H6b22uWt4fZnJtFZLgnaH074136/hv5buYK0=
       "]]},
     Annotation[#, "Charting`Private`Tag$3833#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     TagBox["\[Theta]", HoldForm], TraditionalForm], 
    FormBox["qc", TraditionalForm]},
  AxesOrigin->{0, 1407.2991644488063`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox["\"qc vs \[Theta]:z>2\"", TraditionalForm],
  PlotRange->{{0, 1}, {1407.2991644488063`, 3721.1112396128033`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7691369752806797`*^9},ExpressionUUID->"d53984f5-c024-45bb-be86-\
2133a5e81c76"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ut", "[", 
    RowBox[{
    "us_", ",", "uh_", ",", "z_", ",", "\[Theta]_", ",", "\[Mu]_", ",", 
     "q_"}], "]"}], ":=", 
   RowBox[{"NDSolveValue", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"q", " ", 
            RowBox[{"(", 
             RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", "\[Mu]", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
             RowBox[{"z", "-", "\[Theta]"}]]}], 
           RowBox[{"u", "[", "t", "]"}]]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"u", "[", "t", "]"}], 
             RowBox[{
              RowBox[{"-", "2"}], "+", 
              FractionBox["\[Theta]", "2"]}]], " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["u", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "/", 
          
          RowBox[{"(", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
               RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["uh", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "z"}], "+", 
                  RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                SuperscriptBox["\[Mu]", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"u", "[", "t", "]"}], 
                 RowBox[{"2", "+", 
                  RowBox[{"2", " ", "z"}], "-", 
                  RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                   RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], " ", 
            RowBox[{"\[Sqrt]", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"u", "[", "t", "]"}], 
                 RowBox[{"2", "-", 
                  RowBox[{"2", " ", "z"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                   RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "-", 
               
               FractionBox[
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["u", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"], 
                RowBox[{"1", "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                  RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}]}]}], 
           ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"u", "[", "t", "]"}], 
             RowBox[{"\[Theta]", "/", "2"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "2"}], "-", "z", "+", "\[Theta]"}], ")"}], " ", 
               
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                RowBox[{"z", "-", "\[Theta]"}]]}], "+", 
              RowBox[{
               SuperscriptBox["uh", 
                RowBox[{"2", "-", 
                 RowBox[{"2", " ", "z"}], "+", 
                 RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"z", "-", "\[Theta]"}], ")"}], "2"], " ", 
               SuperscriptBox["\[Mu]", "2"], " ", 
               SuperscriptBox[
                RowBox[{"u", "[", "t", "]"}], 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{"z", "-", "\[Theta]"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                RowBox[{
                 RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["uh", 
                RowBox[{"2", "-", 
                 RowBox[{"2", " ", "z"}], "+", 
                 RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "z", "-", "\[Theta]"}], ")"}], " ", 
               SuperscriptBox["\[Mu]", "2"], " ", 
               SuperscriptBox[
                RowBox[{"u", "[", "t", "]"}], 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{"z", "-", "\[Theta]"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                  RowBox[{
                   RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}]}], ")"}],
             " ", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["u", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], "/", 
          
          RowBox[{"(", 
           RowBox[{"2", " ", 
            SuperscriptBox["uh", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"2", "-", "\[Theta]"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["uh", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                   RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"u", "[", "t", "]"}], 
                  RowBox[{"2", "+", 
                   RowBox[{"2", " ", "z"}], "-", 
                   RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "-", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], "2"], 
            " ", 
            RowBox[{"\[Sqrt]", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"u", "[", "t", "]"}], 
                 RowBox[{"2", "-", 
                  RowBox[{"2", " ", "z"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                   RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "-", 
               
               FractionBox[
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["u", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"], 
                RowBox[{"1", "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                  RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}]}]}], 
           ")"}]}], "-", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"u", "[", "t", "]"}], 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            FractionBox["\[Theta]", "2"]}]], " ", 
          RowBox[{"\[Sqrt]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"u", "[", "t", "]"}], 
               RowBox[{"2", "-", 
                RowBox[{"2", " ", "z"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                 RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["uh", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                  RowBox[{"(", 
                   RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"u", "[", "t", "]"}], 
                   RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                 RowBox[{"2", " ", 
                  RowBox[{"(", 
                   RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "-", 
             FractionBox[
              SuperscriptBox[
               RowBox[{
                SuperscriptBox["u", "\[Prime]",
                 MultilineFunction->None], "[", "t", "]"}], "2"], 
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["uh", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                   RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"u", "[", "t", "]"}], 
                  RowBox[{"2", "+", 
                   RowBox[{"2", " ", "z"}], "-", 
                   RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "-", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}]}]}], 
         "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"u", "[", "t", "]"}], 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              FractionBox["\[Theta]", "2"]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"2", "-", 
                 RowBox[{"2", " ", "z"}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"u", "[", "t", "]"}], 
                RowBox[{"1", "-", 
                 RowBox[{"2", " ", "z"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                  RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "+", 
              
              RowBox[{
               FractionBox["1", 
                RowBox[{"2", " ", 
                 SuperscriptBox["uh", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "-", "\[Theta]"}], ")"}]}]], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"u", "[", "t", "]"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "-", "z", "+", "\[Theta]"}], ")"}], 
                   " ", 
                   SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{"z", "-", "\[Theta]"}]]}], "+", 
                  RowBox[{
                   SuperscriptBox["uh", 
                    RowBox[{"2", "-", 
                    RowBox[{"2", " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], "2"], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Theta]"}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["uh", 
                    RowBox[{"2", "-", 
                    RowBox[{"2", " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", "z", "-", "\[Theta]"}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Theta]"}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}]}], 
                 ")"}]}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", "[", "t", "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "-", "z", "+", "\[Theta]"}], ")"}], 
                    " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{"z", "-", "\[Theta]"}]]}], "+", 
                   RowBox[{
                    SuperscriptBox["uh", 
                    RowBox[{"2", "-", 
                    RowBox[{"2", " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["uh", 
                    RowBox[{"2", "-", 
                    RowBox[{"2", " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", "z", "-", "\[Theta]"}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}]}], 
                  ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["u", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
               "/", 
               RowBox[{"(", 
                RowBox[{"2", " ", 
                 SuperscriptBox["uh", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "-", "\[Theta]"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], "2"]}],
                 ")"}]}]}], ")"}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"2", " ", 
            RowBox[{"\[Sqrt]", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"u", "[", "t", "]"}], 
                 RowBox[{"2", "-", 
                  RowBox[{"2", " ", "z"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                   RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "-", 
               
               FractionBox[
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["u", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"], 
                RowBox[{"1", "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                  RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}]}]}], 
           ")"}]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"u", "[", "t", "]"}], 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              FractionBox["\[Theta]", "2"]}]], " ", 
            RowBox[{
             SuperscriptBox["u", "\[Prime]\[Prime]",
              MultilineFunction->None], "[", "t", "]"}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
               RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["uh", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "z"}], "+", 
                  RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                SuperscriptBox["\[Mu]", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"u", "[", "t", "]"}], 
                 RowBox[{"2", "+", 
                  RowBox[{"2", " ", "z"}], "-", 
                  RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                   RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], " ", 
            RowBox[{"\[Sqrt]", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"u", "[", "t", "]"}], 
                 RowBox[{"2", "-", 
                  RowBox[{"2", " ", "z"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                   RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "-", 
               
               FractionBox[
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["u", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"], 
                RowBox[{"1", "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                  RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}]}]}], 
           ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"u", "[", "t", "]"}], 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              FractionBox["\[Theta]", "2"]}]], " ", 
            RowBox[{
             SuperscriptBox["u", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"2", "-", 
                 RowBox[{"2", " ", "z"}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"u", "[", "t", "]"}], 
                RowBox[{"1", "-", 
                 RowBox[{"2", " ", "z"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                  RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], " ", 
               RowBox[{
                SuperscriptBox["u", "\[Prime]",
                 MultilineFunction->None], "[", "t", "]"}]}], "+", 
              RowBox[{
               FractionBox["1", 
                RowBox[{"2", " ", 
                 SuperscriptBox["uh", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "-", "\[Theta]"}], ")"}]}]], 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"u", "[", "t", "]"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "-", "z", "+", "\[Theta]"}], ")"}], 
                   " ", 
                   SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{"z", "-", "\[Theta]"}]]}], "+", 
                  RowBox[{
                   SuperscriptBox["uh", 
                    RowBox[{"2", "-", 
                    RowBox[{"2", " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], "2"], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Theta]"}]], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["uh", 
                    RowBox[{"2", "-", 
                    RowBox[{"2", " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", "z", "-", "\[Theta]"}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Theta]"}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}]}], 
                 ")"}], " ", 
                RowBox[{
                 SuperscriptBox["u", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}]}]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"u", "[", "t", "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "-", "z", "+", "\[Theta]"}], ")"}], 
                    " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{"z", "-", "\[Theta]"}]]}], "+", 
                   RowBox[{
                    SuperscriptBox["uh", 
                    RowBox[{"2", "-", 
                    RowBox[{"2", " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["uh", 
                    RowBox[{"2", "-", 
                    RowBox[{"2", " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", "z", "-", "\[Theta]"}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}]}], 
                  ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["u", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "3"]}], ")"}], 
               "/", 
               RowBox[{"(", 
                RowBox[{"2", " ", 
                 SuperscriptBox["uh", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "-", "\[Theta]"}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], "2"]}],
                 ")"}]}], "-", 
              FractionBox[
               RowBox[{"2", " ", 
                RowBox[{
                 SuperscriptBox["u", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], " ", 
                RowBox[{
                 SuperscriptBox["u", "\[Prime]\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}]}], 
               RowBox[{"1", "-", 
                SuperscriptBox[
                 RowBox[{"(", 
                  FractionBox[
                   RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                 RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["uh", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                  RowBox[{"(", 
                   RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"u", "[", "t", "]"}], 
                   RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                 RowBox[{"2", " ", 
                  RowBox[{"(", 
                   RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}]}], 
           ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
               RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["uh", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "z"}], "+", 
                  RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                SuperscriptBox["\[Mu]", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"u", "[", "t", "]"}], 
                 RowBox[{"2", "+", 
                  RowBox[{"2", " ", "z"}], "-", 
                  RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                   RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"u", "[", "t", "]"}], 
                 RowBox[{"2", "-", 
                  RowBox[{"2", " ", "z"}]}]], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                   RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}], ")"}]}], "-", 
               
               FractionBox[
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["u", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"], 
                RowBox[{"1", "-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                  RowBox[{"2", "+", "z", "-", "\[Theta]"}]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"2", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{"2", "-", "\[Theta]"}], ")"}]}]]}]]}], ")"}], 
             RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{"u", "[", "0", "]"}], "\[Equal]", "us"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"u", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",",
      "u", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0.01", ",", "5"}], "}"}], ",", 
     RowBox[{"Method", "\[Rule]", "\"\<BDF\>\""}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ut1", "[", 
    RowBox[{
    "t1_", ",", "us_", ",", "uh_", ",", "z_", ",", "\[Theta]_", ",", "\[Mu]_",
      ",", "q_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"ut", "[", 
     RowBox[{
     "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", "\[Mu]", ",", "q"}], 
     "]"}], "[", "t1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ut", "[", 
   RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
    RowBox[{"0.75", 
     RowBox[{"\[Mu]ext", "[", 
      RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
    RowBox[{"qcrit", "[", 
     RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
      RowBox[{"0.75", 
       RowBox[{"\[Mu]ext", "[", 
        RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}], "]"}], "[",
   "0.5", "]"}], "\[IndentingNewLine]", 
 RowBox[{"ut1", "[", 
  RowBox[{"0.5", ",", "0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
   RowBox[{"0.75", 
    RowBox[{"\[Mu]ext", "[", 
     RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
   RowBox[{"qcrit", "[", 
    RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
     RowBox[{"0.75", 
      RowBox[{"\[Mu]ext", "[", 
       RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.769137066052609*^9, 3.76913710281866*^9}, {
   3.7691373863252296`*^9, 3.769137421035941*^9}, {3.769137511494421*^9, 
   3.769137546696751*^9}, {3.769137589346313*^9, 3.769137631668643*^9}, {
   3.769137755097863*^9, 3.7691377782626123`*^9}, {3.769137934310264*^9, 
   3.7691379526919603`*^9}, {3.769138002571519*^9, 3.769138099321083*^9}, {
   3.7691388100399*^9, 3.769138873631187*^9}, {3.7691398181353617`*^9, 
   3.7691398986740427`*^9}, {3.769139942281763*^9, 3.769139980466035*^9}, {
   3.769140015198127*^9, 3.7691402206160507`*^9}, {3.76914041741748*^9, 
   3.7691405331341867`*^9}, {3.769140584315551*^9, 3.769140599840137*^9}, {
   3.769140644691087*^9, 3.769140656514798*^9}, {3.769140711412395*^9, 
   3.769140736590396*^9}, {3.769140775472595*^9, 3.769140804133029*^9}, 
   3.76914084699023*^9, {3.769140881898416*^9, 3.769140894062463*^9}, {
   3.769140960559198*^9, 3.769141041133689*^9}, {3.769141086694757*^9, 
   3.7691410955989017`*^9}, {3.7691411527558613`*^9, 3.769141152910776*^9}, {
   3.769141196679318*^9, 3.7691411986767883`*^9}, {3.7691412445158367`*^9, 
   3.7691412447351513`*^9}, {3.769141339632983*^9, 
   3.76914135015189*^9}},ExpressionUUID->"1810ec42-742f-4121-8cf3-\
d8f6df13418c"],

Cell[BoxData["0.6858068011852883`"], "Output",
 CellChangeTimes->{
  3.769139987601894*^9, {3.769140018739706*^9, 3.769140221177012*^9}, 
   3.7691404326151123`*^9, {3.769140508912445*^9, 3.7691405338282833`*^9}, 
   3.769140600683318*^9, 3.7691406570048933`*^9, {3.76914071211884*^9, 
   3.769140737558599*^9}, {3.769140795129758*^9, 3.769140804742042*^9}, 
   3.769140847911113*^9, 3.769140894817521*^9, 3.76914097179163*^9, 
   3.769141042245116*^9, 3.769141096058585*^9, 3.769141153444078*^9, 
   3.76914119938382*^9, 3.769141245374407*^9, 3.7691413508034477`*^9, 
   3.769147509802597*^9, 
   3.769148303971488*^9},ExpressionUUID->"e0da555c-110c-4d3b-affa-\
e165464e3b56"],

Cell[BoxData["0.6858068011852883`"], "Output",
 CellChangeTimes->{
  3.769139987601894*^9, {3.769140018739706*^9, 3.769140221177012*^9}, 
   3.7691404326151123`*^9, {3.769140508912445*^9, 3.7691405338282833`*^9}, 
   3.769140600683318*^9, 3.7691406570048933`*^9, {3.76914071211884*^9, 
   3.769140737558599*^9}, {3.769140795129758*^9, 3.769140804742042*^9}, 
   3.769140847911113*^9, 3.769140894817521*^9, 3.76914097179163*^9, 
   3.769141042245116*^9, 3.769141096058585*^9, 3.769141153444078*^9, 
   3.76914119938382*^9, 3.769141245374407*^9, 3.7691413508034477`*^9, 
   3.769147509802597*^9, 
   3.7691483040808887`*^9},ExpressionUUID->"d25d90b4-96c4-49b3-b7d9-\
2e264f70bdc5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{"ut1", "[", 
           RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
            RowBox[{"0.75", 
             RowBox[{"\[Mu]ext", "[", 
              RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
            RowBox[{"0.5", 
             RowBox[{"qcrit", "[", 
              RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]ext", "[", 
                 RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}]}], 
           "]"}], "//", "Abs"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{"ut1", "[", 
           RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
            RowBox[{"0.75", 
             RowBox[{"\[Mu]ext", "[", 
              RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
            RowBox[{"1.02", 
             RowBox[{"qcrit", "[", 
              RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]ext", "[", 
                 RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}]}], 
           "]"}], "//", "Abs"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{"ut1", "[", 
           RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
            RowBox[{"0.75", 
             RowBox[{"\[Mu]ext", "[", 
              RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
            RowBox[{"1.5", 
             RowBox[{"qcrit", "[", 
              RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]ext", "[", 
                 RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}]}], 
           "]"}], "//", "Abs"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{"ut1", "[", 
           RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
            RowBox[{"0.75", 
             RowBox[{"\[Mu]ext", "[", 
              RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
            RowBox[{"2.0", 
             RowBox[{"qcrit", "[", 
              RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]ext", "[", 
                 RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}]}], 
           "]"}], "//", "Abs"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "u"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.769141352447398*^9, 
  3.769141353894709*^9}},ExpressionUUID->"0b2d3924-127b-4b31-9df3-\
11427ee8db08"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0, 0, 1], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11H8w23cYwPH4USUiSLBbTrnuUN2ttTk6XavPs/QHHe1ac+WKzY/OambD
3ZzS0qalddkPPWuKs7Wj66kNXXeuMZ26cGyjnVpxLbL6TSL5EkKi6Uyy7/PH
5z73eX/uef35bE7+LOpDaw6Hk7B+zPfmwut9pqpBSMjh+u4TjcMe7mBNZuhT
SFs5MTXjMwFZoeYwAu11cFK0bxKi5F5F6qPP4K4qILhZPAVzR81hFGJvTnS7
+U5DsdocxkG5ZdfBIe00eBeZwyQUzHhLA2tmoNk8Lp+C4QPxUz37ZllvBrhZ
HVdX+2dZbxaM//SVyWNVrKeGtT+Oe/z2UMV6GrjCP3JYslPNelpI/0ia/G6l
GrbGf63Q+89DZOSYK+rUsOxvDvMgHVR5RYjnoF1vDgtwKju7JUw6B6UKc9DB
7nhfke7BHCSYx+MXQfKoNpzhalhvCTqrLmb2ijWstwTu+2Xl7jka1tND/U25
MeAHDestg0ycYjjfq2G9FRDYdD3+2ECeAZ7yEjyDNmlZzwDBQptRP9CynhH+
Lm76XfK+lvVWIeSwk/5svpb1noPkjKA7WqZlPRNkv8p8+1ojeSZQvB52ILCT
vBdwxtRYLR0i71+Q2osc4hjy1uDH64du3bdiwK0hbDTPjYMXZWlj/QIG8i2B
g74jyV/dfYWB9c/1wEFximT/6TcYCLMEK8x4mFG+ExiwjDdY4cx8wV6bSPKs
sS4hP14dQ541loiD861TyLPGrQquMiaDgXBLsEEtf6jEmEOeDR47WJS6VEie
LSbKL8VGXyLPFo8necf6lJJni8aAJ0WfXiVvA/7COxG6+zvyNuDSKa6f7AZ5
dhii9BZfqCPPDhPhgsnpNnl2WDGiCHqribyNGDOe8o7zr+RtxFRdyJayVvLs
URtUGt6tIM8eE271dt3rJM8eFWpd8id/kueA/bk955QPyHPATRHxoS89Io+L
vLVdqaLH5HFR+uYXJeoB8rjY2VGl//IJeY7odaiw1XaYPEe8Fm1qj1KSx8Nk
j9o7ec/I46GqPsChcIw8HpbkBnomT5DnhC0D33j4TZHnhGnHzq31TJPHR/th
fkvsLHl8bEtt4HWryONj9eW+St858pzxStzLTJqGPGecr+bmVWgZsKwfrgvW
mBLLmhgGLOsn1AW3dZw9fX+eYfeRC6b/NJkkX2DgRqY5uOCdPQNx3+sYsIwP
uuBIgXdW/iJ5rphu9YEsbIk8V7zWWPiznZ48V2zzCyhv1pPnip/vLRcmLZPn
iv69QcoXy+QJcLtPa23pCnkClMi63EUG8gT4l2FbW6WBPAF6LhTvEBrJE2Ba
a83aeSN5Qlx8e3uFZv39//4V4j3te7lHVskT4o6IDsf6VfKEePL2eLPNc/KE
eHkNx6PX3/8BZPLeew==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11H0wVXkYB3Dvbrju5VZKqIhip5eJzKxRz7Ps7t3StksqWqrdSNm2iJ2w
WBtlorDbTjHVzLbZLbE2tSbFslTLvU0YFPJ66Xq5955zS66Q1nau5/xx5sx8
5/w+83t+8zvf5V8dDYo0MjAwiHj3cO/v5pdKFUkZcOM2KJ+9uQd3nU6qAytK
QejaG3jfWQbuYbl1ulVV0G2a01a7uwWS9d8/gHOe/i93fNYOA0lcIIeM/VGD
Dy50QWHMRov2q81Qe7PQ8fj2Pui4ygWt0JUV65e6VQGW7foAoiqvj3VXDcAm
Cy54Bu6PZ8qHDJ9DLLc8pgfGjrUXpy1XQlAFt6F+OPW02L5o2RBoArlAAU1r
w2auGA/DKTUXDIJPwYmrosZhWMpt30kJVQUzCnH6CM0zBDL7gtkg11HyRmC1
SUOh851R8kbBIzHdN8lHRZ4aApdV+FiXqchjYMVvz3J2OajJY+HzsJtJl1LU
dD4vYG+2zHbyiRomVnHBC7jbcvCnfW4auK/jgpegc/K8XXJUA3l1XDAGTMbs
mvxbGgjnloe9gnMO687UazXkjUN/b2Hwo5UMeePwvXFxg/MXDHk6WOEgXbkp
iyFvAnxHwy6llTPkvYaIqYG+D3oY8iZBI+jMaTJkyZuErwMzth1xYcmbgohE
yzu7/VjypuFsgLFEvocl7w14e+eMqhJY8mag5s91XyrzeG8GGs09Y7t+5723
sKqksnvkHu/9B61l6185P+a9Waj74ZYgv4cF/XWab4BFfqfLtmlYmLuPBriy
avaPD6dYUOjvlwHG2MkDjphoQaoPDDF5uCG6XKgF/fJSQ6z6+PDA9HwteUZ4
7kyKvb29ljwjdPdWhr9w0JJnhAeLC0IOOGrhE31gjOfHW14dX8J7xjg9tb1+
gx3vmeDticotNWLeM0F30a7I9wW8Z4LCO2nTD9+y5JnimssLn6S+ZMkzxfGQ
4cq4QX5eM8ww3Z9wo5Wf1wwbXieULa3j5zXDjsT4sfpS3jPH5KmtmXkFvGeO
QcLkJftO8J4Afw71WWR3iPcEWFvXdi/3U94TYMX6H3WX1/LePAyZ6XUTiXhv
HtZL4/OL1Ax5FvhtkaztvYcMeRYoClc1BlxkyLNAj8M328u/YcizRLlr+U5L
X4Y8S0xoyt6sMOU9K1xxre9YtVxDnhW6bonxXpylIc8KP/JzsdvhryFPiKtD
2eIanZo8IXqZ1tqf/UVNnjXq4v07Wv3U5FmjbCD0WmaXijxrlEb9XRJ3SEWe
CJuvXDrk+e4/n/NEKAv8K9pj7yjo68dCjFKj68lJ90dAXz8bxejcfNllcsEI
9ZEYE+VSsWPwMPWbGOWG1b6TSUMwV2di9MVIryWZSvJsMK7rYnV6/HPybHCL
w5Bj2qZB8mzwvOUFYVafgjwbXO22K1T0rufmPBucUNX6uy7sIc8WFzNpT5Vm
neTZ4oKUDWI2pI08W+zX1WdvePSYPFs8XWG86Nc9teTZom9rZl9VZzV5EvT4
pyxDIntE/SvBf+MOBHultJInweiS1J0hmzvIk2Doot5Ox9hu8iSYa5Xq0Sjo
h/8BhEgGiw==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HtMU3cUB/DyLJSH9KHOQXlMZTDGTDYQJqnngGSA2xjgiKIYnUFxDAQy
IK7gIyqIgoyAOiMTBRFmRFiIIgg6HlbXLQ6pYIel0NveCgwloIBMULZbD3/c
3OSbez753V9Ovh47UmN2mvN4vIT/H+6dLakLY+RHYItq+JTr05vQ7Jo7Gt1U
Bz/41T+Sd/8O3vE/dkx5tcJAX5XMKFVBjun7O+DsuzOyyVwNejkX/AGBvyTY
NwdpoCpNJlBffADXhW3rRowD8PdFLngIm27HrdgnYMBObQqg0S0zvTJJD2sF
XPAY5pPzfdUnDZDOjadpoS2lpLjjAAsxTdyBdPAoas3WbAsjPI3mAgbuPTi4
3U/LQt4oFxjAz7cw/MlKFty447saYXZLtYtOaqD/eQKFscu/rO5nyBsG4cCr
7TU7deSNwGTiq3uyJC15o7A1IWD3r3l95D2Dgrb591Nse8kbg/zO+ZcHKrro
fsZBF9S/qL60E6a9uGAcArcdizvh3wKdU1wwAYrvhsXZi5VQ3MEFz8GzuevM
R0Eq2MqNx7+AM30DdXpnNXmTsGzFSuZItIa8SahpzA94PDNA3hQoI2Qh10QM
edMQ2ui5uT5dT95LSO/hjdaeNZA3A3dVF+fGD7PkzUDW+SOuZy2N5P0LLuJl
yXses+S9gm889mQ/dGfJmwVZU0F50tIFbw7mP21ebtnLkDcHLV/77u+O15H3
GlriHM4PxWrJewNVE496Q1P7yJuHXkX7ocixHjCtk4SH29NWNnjv6IK3+8jD
6v2dc9LITmBM+8XDks15I5dzWyDMFJhhTUGjwhCnBNN4nRlGDiUVlW9SkWeO
Daf2F6zyV5NnjiHXPENSEzXkmWOFoFpptBuEcFNggZ6D569Mv8uQZ4E2Ls/9
FXv15Fnig/VXJo5eMJBniXnuJbtc8lnyLPGkrr+3yspInhUqK4s1xWqWPCs8
dGFXUa0zS5413pWszdY5LXjWeNy96J3P7zPkWePlGf4lZoOOPD6uCpOMxAZr
yePjRu3hgJMb+8izQXv/jFsDqh7ybNDqRvy3kve6yLNB/nimha9NJ3m2eJ0/
Ob26v4U8W5y9lORdX64kT4A3ZZ/5fJKlIk+AuqvrZOci1eQJ8Oc6h3tZ+zTk
2eHwV613BG6D5Nnhm4Srg+uWM+TZo2O79IThgJ48e9x2+k57YrWBPHssMhNJ
QgtZ8hxwzEtacdbaSJ4DGstyk8t6Fu7PEd29rkelL2HJc8SMvc9yggULniMe
tM15IVcw5C3CyptmP6nX68hbhDcUpYvzP9SCqX4ETti7I+Kfc9AHpvqROWF3
2/Csy40e6iMnfONd57aW+Yv6zQnDNyjuD7V3wNs6c0JIiFk9GdhKnhBtv9+X
rzEoyRNiTE+W39NSFXlC/C0z+IzPbjV5QswozwsrK9WQJ8SGpSmCiI8HyROh
l3lKR5kPQ54IpfIlQYKjevJE2L9xjfSLWgN5IpQ4v85ILGbJE2HhYY9jcr6R
PDGG5nrmnOhmqX/FODlVa+0hZMkT4+nb438WWix4YlRGDTaX3GLIE+MHac7+
DcE6+A8/l/uf
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HtMU3cUB/BS5GEpUlqcEAc+ZhwqczLcnBtwTpxIdUqGjuiGwhiMGDHI
QFHrNoWAOp+g22BVfCCjA12jQ94IBaFreSijQJteuIX5mLx8FRQU57jl9I+b
m3xzzye/87snZ87XO9Z/w+fxeDETD/fe56YM7pWlgXKxIErOVEC5V/pAaJkS
DmZnz569UwMLNp+sG/GuAociaYhf69/wneX7evDRpA7syeyEf2Rc0Ajy4i8v
hJ0yQl5CgEB/qRWube04+eZf3WC4xAU6EPvMDWkvNIGT3hJARmfAyWxnEwQK
uGCizk0YsyyxC77lyhO6QZXgcbWEMcD6Mu5APXCurLO3PL0dBkO5oBeezo8K
U7fcgoMDXHAHXPZHNGwYr4NZ3PG97sFR/463Hh2qpH7uQ2Jyc7y3i5a8B7Bt
qXv2bXEbeX2Qqjhb8UDbSd4AaOVLdr9XayRvCDwO9cw19HWT9xCKZx46Hnjd
RPfzGOAddkH1MAvPvLngMVTdvbahQNoFN0e44AkwF/kHRxUGyKjjgqfgv6c+
4jNpO2zhyjebQditWrUs4BZ5w8Avy8259lUdecOgfOJlHxFaRd4InFnbqIko
0JL3DLKaGwx9n7eR9xzquzwO3LPRkzcKN6Vs0U+PjOSNwlhM3ma1E0veGAz1
vDjcUmki7wUsGvaQ5RtZ8l7CXXd10g9eXeSNQxa79UBpkoG8ceiqm4VfCNrJ
ewXXA4rubLvcQt5/oPD4fn6nupa816CW/3g63+8GWMbJjYfFa8z8P1c0wuQ8
8jDndvCi1F/aoNcyXzwMuuKpj1+uh2BLYIPL9vl6yDwZsJQrbTAldkd+tw9L
Hh95siO/JdeayONjzJWYTyNrWPL4GFpT+Ee5mQGpJbDFyBkp+82BBvJscdPO
jnBdk468KRhfmzgY5d5C3hTU3st5O/ndWvKm4Gi18UHNwmry7FD8YaZsOtNI
nh36zpiz+ld9G3n2uKR3Y3Nagp48e+zPbVH0rGHIs0fDOsWYZB1LngP6vz4W
7dtgIs8BNbYrw0dyrf06ovl8mtMWDUOeI75R8vTny1MN5DliVEZgXtUxHXlT
UV4ePjYzrZm8qShx6AiPO6MiT4D2J7SpPL8a8gR4VfpBx4HEJvIEeLG6sGKJ
u9VzwqBzMz29FXrynHCvY8dD9W6GPCF+oty7MnI7S54QK40a2ajaRJ4QtWH+
rbvSrf06Y8PQqrNxZ63/1xnjfB2W9uj05E3Dyqz5BW7rdORNw0s2rxJzHlrP
Nw1XzU3KVDmpyHNBY+lq+el5KvJcsO+4qKjfsRks60cgwl1HlbnSTTqwrJ8A
EYakiD/e1K2nfSTC5xfTZy3MY2i/iXCwU1RadISFyXUmQnPG9WjNRD+Tnive
aLSTDcay5Lmis2LeqX93MOS5ouf9K8LMHD15rthTeeJ9o1BHniu+7N++sX9j
E3liXFQsWBxrW0OeGG0L4uv8ilXkidEc/lHr2nPN5ImRzZeX9GZZPTEGjEfa
T5cYyJPgHHNhvkMrQ/tXgo3K5S52v7PkSfBuUGbYhXoTeRJMi94SEhNs7VeC
52NXl7atYOB/pBoEfA==
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["u", TraditionalForm]},
  AxesOrigin->{0, 0},
  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->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 5}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.769141385806262*^9},ExpressionUUID->"5b9c9443-210e-4fb5-a427-\
fa12130449b2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{"ut1", "[", 
           RowBox[{"i", ",", "0.1", ",", "1", ",", "1.0", ",", "0.0", ",", 
            RowBox[{"0.75", 
             RowBox[{"\[Mu]ext", "[", 
              RowBox[{"1", ",", "1.0", ",", "0.0"}], "]"}]}], ",", 
            RowBox[{"0.5", 
             RowBox[{"qcrit", "[", 
              RowBox[{"0.1", ",", "1", ",", "1.0", ",", "0.0", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]ext", "[", 
                 RowBox[{"1", ",", "1.0", ",", "0.0"}], "]"}]}]}], "]"}]}]}], 
           "]"}], "//", "Abs"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{"ut1", "[", 
           RowBox[{"i", ",", "0.1", ",", "1", ",", "1.0", ",", "0.0", ",", 
            RowBox[{"0.75", 
             RowBox[{"\[Mu]ext", "[", 
              RowBox[{"1", ",", "1.0", ",", "0.0"}], "]"}]}], ",", 
            RowBox[{"1.02", 
             RowBox[{"qcrit", "[", 
              RowBox[{"0.1", ",", "1", ",", "1.0", ",", "0.0", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]ext", "[", 
                 RowBox[{"1", ",", "1.0", ",", "0.0"}], "]"}]}]}], "]"}]}]}], 
           "]"}], "//", "Abs"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{"ut1", "[", 
           RowBox[{"i", ",", "0.1", ",", "1", ",", "1.0", ",", "0.0", ",", 
            RowBox[{"0.75", 
             RowBox[{"\[Mu]ext", "[", 
              RowBox[{"1", ",", "1.0", ",", "0.0"}], "]"}]}], ",", 
            RowBox[{"1.5", 
             RowBox[{"qcrit", "[", 
              RowBox[{"0.1", ",", "1", ",", "1.0", ",", "0.0", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]ext", "[", 
                 RowBox[{"1", ",", "1.0", ",", "0.0"}], "]"}]}]}], "]"}]}]}], 
           "]"}], "//", "Abs"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{"ut1", "[", 
           RowBox[{"i", ",", "0.1", ",", "1", ",", "1.0", ",", "0.0", ",", 
            RowBox[{"0.75", 
             RowBox[{"\[Mu]ext", "[", 
              RowBox[{"1", ",", "1.0", ",", "0.0"}], "]"}]}], ",", 
            RowBox[{"2.0", 
             RowBox[{"qcrit", "[", 
              RowBox[{"0.1", ",", "1", ",", "1.0", ",", "0.0", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]ext", "[", 
                 RowBox[{"1", ",", "1.0", ",", "0.0"}], "]"}]}]}], "]"}]}]}], 
           "]"}], "//", "Abs"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "u"}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.769141287021874*^9, 
  3.76914136277677*^9}},ExpressionUUID->"63a97973-ece9-4ffd-81f6-\
cfce366c6b1f"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0, 0, 1], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HtQVGUYBvDlDstlWUCQgaTCJjAlyC0bFN83x+IWYyJGjCAO9zGBNdFq
hYSRTKIUGoSsgAiIYAxRYAKWSwO6EA4OCANxCVhuC+zlcNsFuWie5fv+OHPm
PHPe33znzDvPKxGJgdG6HA4n6sXF3i/bVHpLRelwazOjRVhXD/W7vpYfr6sE
2a07jo1FTeAaerNV7dIIxdHZKU6NrZCsff8BFKYknTX+vR0mRGzQCX8794ol
Bl1QIvTiDhR3w+O3s3fH+PfAv8Vs0AtCy8gn4fZ9YDqgDeBVO9ulpPF+OMxl
gyFYuPfzwOO8QTjPjgv/g5y4wMH2d0cgsI490DikO/JswppHQXGcDaRQ1fRB
1sUfxuGanA0moQSWGnRqpeDEHn/XNPx5rfeks2SCfM8MHLmhKSt4OEm8WVj0
zb+SVz1FvDm4eyBxIDlrmnhyaMjZqlGHzhBPCaN++xy77WXEU4HX2pGfltpl
5P8sAFOYe/WjuFnQuLDBAkz4tHeNb8xCm5oNFoHJGD6Zd3UOslrZYAnSxV3r
4Zx5CGPHQ5dB9qEs1uHCPPFWYG6K91L+yDzxVmAk1yO2wktOPDXwJGnm67ly
4mngG16DSDAnJ94q3HkoPrgiUBBvDapEmzUSkYJ4a2D03VPNXrGCeE9hrde5
6BeNgnjrkNSV3ZG6T0m8DbD/+KshzzNK4m3CWGlZkvNNJfE24du+Tz0yG5TE
24Lp8Klo8YSSeM9AomPTozFSEe85TKfePijaowLtOtlwMMAl0TjFTwXb+8hB
X0+R2CNOBVLtfnGw37BHKLmqAm9toIN+h5K8o/NVoB2v1MGwCJ9WQS31dHF0
aNHpk0fU08XsU+JyZox6unhuxG1957IKfLSBHoY/P3+I0WeIp4cFGyHRmTsY
4uljQfxwjP5rDPH0cTDixOnE/Qzx9LHj4p7mMWSIZ4CS0uALsQHUM8B3Kt4z
sguhniFyFfubtyKpZ4h/Me7VrgnUM8QvpNMLZZ9TzwgFOfHX01OpZ4TSJ92l
ndepZ4x1gqzf0rOoZ4wGvr/aNuZRzxg3O6tkXxZQzwRHf1wIlpRQzwQLHUb5
5RXU46KOe5PAtYp6XNxyzgkPqKUeF48uqesdGqhnivdrXbduN1PPFNMi/knu
aqWeGUbydruJJdQzw4Qm96rYTuqZoSY0/9hAF/XM8ZK02sKih3rmyJ+vreD1
Uc8Co9ZnCsb6qWeBLe16b6QNUs8C/dNigleHqcdDt7q21aOj1OPh5c1jd8+N
M6CtH64lep2Sq4UTDGjrx8sSgzJ97YKmGNJHlmhrlOu5c4Yh/WaJpdbKMy0y
BrbrzBJfD3z5rP8c9fhYHm9i1zxPPT4+eqvNxF5BPT7qR2V1himpx8cbb/ZJ
vldRj48OUX8EVTDUs0KTAzY1NQvUs0LfE9O8ykXqWWHC5MaVvCXqWWH3bJ3J
Z8vUs0InQUfR4RXqWeP79QN7n7143u5fa5zJnk+9p6aeNV46vSMmREM9axTa
38/TaKhnjQEF4gcZqwz8D6MhIKU=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11H1MU1cYBvBCC4VWSykw0KEOxxiIKGFzgyG+L4YhyL5gW5ShQRBcJxI7
p4ah4kS3AANFg7qEqcxqBRSm4AcIwqxsKsOk2oFagdEWSkvv7QABAZ1ut57z
x81Nntzzyzn3vHn80jcnZTryeLyM/x/uvcOzdoU+dx88vT3bWHq5ERrnfm9N
bKiFKnlra/WX1yBozQH1eGAzPOgeLdqvUMNO+/dtkJaXnCINvgmGXC5oh9+y
1FdFqR1wShEluq/UgMC1RfxevwYeKLlAC+uVsUGbKrQgvm8PwJwte3FpVRcs
E3GBDlZ+kfztMoeH8DW3XNEDEl9Ty9ojjyCpgdtQHyyJM3zkIusFJpEL9CCO
+ccvJrwPfrBygRHyC37xrlqlh3nc9ucOQGfksyzFBgM5jwk6dqR/FpdhJJ4Z
+oSLupcm9hPPAjq3laZTIQPEs0Lbu1v9pdMDxGOBr5Z3vnPFRDwb7JSev2XN
HCT/ZxjGVe3dUqEZJgK5YBhusY6DJeVmuDHOBSOwoSa2Pd7fAqVqLhiFt/We
37xx0gJrueVrHsPUpoy0Sa8h4o1BgOHs5v3fDRFvDIwOp0tUhiHijcOc0fLQ
0aVW4k3AXXlLrFeplXhPYPOv4ftU3VbiTYJruI5Z/DpDvEnwa6rdsziDId4U
OIW08XwqGOJNQ0V28LnE+wzxnsLzrSWSSBFLvGewKGLJlaAIlnjPgB/ea9mY
wRLvX3jSgxhTzBLvORw+Hx85dp4l3gvYXZSlrrvHgn2cPHkYMJZaemGEhZfz
yMPGAfVhX4kN9Pb54qHIsz52dqANVtgDByyJLNf9CTawL691QPHBmpwPP7cR
zxG1G3fLL8ttxHPEsL0eUbNyqeeI686E8PcV2iDOHvBxrHvNbt5R6vHR11xQ
UHaSegLMaYorXn6OegJs2uocI7pIPQGe0BQcsTRSzwnfH951ouca9ZxQM19Z
b2ylnjMeWuy2ZLqVes6YnhDk7tdCPWf8KyDlj+Sr1BPi6KWEYdVF6gnxRrE0
R1xDPReMSNIcKlRSzwWLf17d5PcT9VzwsVHZfreIeq4Yz7wJZTuo54qpex/W
p26kngh3+qTkB6yinghbgzPyu6KpJ8Lr60N0qxdQT4z8sNvag1LqifFCjVP9
ujF6vzNwovrV/BOd9H5noL6j4978iyzxZuDeFtWWxgMs8Wbij3PyJAvlLPFm
Ips9r21pFPUkuGe7SamSUE+CLrlVfnO6GeJJUFhRty3hNEM8N/RSaEe0XzHE
c8Pm6rSoj4MYsNePSIqdPUxZgtEK9vqJkmL8goeCD45aSR9J8XdNYuXNGCvp
NylOrddMBlqH4GWdSfEtPsCdwiHiuaP1lS3LBa8NEc8d00274qU1FuK54/Zo
p/KAUAvx3DGwObhOUWkmnjvWRX+yVuJlJp4M7zzJ9J61bZB4MuwKu/B35U0T
8WT46Lj3uE5sIp4My9onG3Q4QDwZGrOPTTGZ/cTzwIXpRXW7co2kfz2w3fu6
T2iegXgeONffv2xYoSeeBx6bPntc+Gkf8Tww/9SVM8kre+E/XH7/fQ==
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HtMU3cUB/BSaykFkbbiDGE+IkhFsuHGkAhyjikTgYmKxcfUzRFwA3EI
Cy5BHEpQmdGJATOWyGOCbkalDikTQR6lsAE+WClvCm2vMhnqRCniEN297eGP
5qbf/H6fe36/e3KWxCRFxfF5PF4s++Oeh+aVhZrSsuB07pbfOiuqoGrhsdHN
N8vgmqrmG8+Vt2H5rjMai7wG9v0QKijw0kC6db0WeuBm07nrzWBO44JW0HZV
vbP4RhuUHlgj7i5ph07tKt+i1HboKeGCDhgU7rnft6ADHLutATSA/Pzuyk4I
FnNBH5iSxjxUIT2QzG0/YIBtx8ouRtb0QdRNriAjLDoe7TUx3wCPN3OBCVL+
Fm5z3TgEx0e5gIE3efFbClXsOq78hQ9hw7UGRUGxic4zDK3eK30iDprJewQf
GLdqppYz5I2Acjw7qek6Q94otCz4+lvZFEPeE8g6dVXlxP63eU9BcfhgSTm7
3nY/z2Bdyu+DQ6w3IeeCZyDvLTkmZ9/XaOGCMVjhHh2ZytaTo+GC51A2Yv8y
ma13N7d91wuYzj47Xx05RN44eDsHxpxhz2vzxmGLUbTZXN1HngXKC5vDg9n7
snkT4BbmnzKi7iTvJfjNe6uLZe/b5k2ChFm3cTn7PWzeJCjTw8Sry9vIewWP
7kUqa1XN5P0HQb5jix4s05A3BQ4vPLN9fGf64TVcmsyVXWb7xea9hlcGXWrx
2mrypkGh2Bp8ObeevDegt5NnONzVkvcWpBnhPRcvt4C1nebxEPiJOz7U3QNb
P/KwoXRZeJijDkzW/uJhdOI+v91X9RBqDeyw5ZdUfc3abrBuL7ND3xP7NwU2
9pLHRx8x33OZ9wB5fJyKX+9WcWCQPD5+tZb/pHa9EdZbg1kobfP++AuFibxZ
KMy/Isr3MJMnwKOJwWrzsJk8AZaq8xLgKEOeAH+sU2RXPWTIm41G5V6XPYIH
5M1Gk6B9VW4XQ54QTyfGGwbjGPKE2NaRtzdNYyZPiD8bEuZ/+spEnj0mtmaZ
Lkhn6rPHQMPw6e0yI3kizIyd7NZPG8gT4dKduUzE9X7yROgVFa7LUvSS54D9
6e6V+293keeA5yOdN0566MkToz/P9ak68y/yxFilmz3S23iXPDFCXFjOPxf/
JM8Ri4prkuJNjeQ54rmDFUHpN+rIc0KviLr7Td/fIs8Jcyx2gjLhLfKccEn1
plVfxtWSNwcjY4pDqvkz3hyU5ZZGWa78QZ4zKntzgjJu3yHPGf81f5Zwcrqd
PGfM3BkiyyruIG8uhuxwjb4UOHPeubg4tODsi6YesI4fsQuuy8/L9A/oB+v4
WeOCnxc+dt9+ykDzyAVL/GO8BmqGaL65YLLhwvRisxFs48wFVysrjgjumciT
oNNwtOq7AjN5EvRbU9/8XhhDngTLk8pblzYx5Enw1xU6t0/sHpAnwRMfYWXl
GEOeFLX1/Yf1PzHkSdF5VruXXjTjSbHP8d3yUxvM5EnxeaNP9EiyiTwpiiR3
Qi2HjOTJcIfW0hkwNEjzV4Z2h7WgKhogT4a8+uZAdXAfeTJ8PBUWYGnoJk+G
OUf8s0fe74T/AX5q+OI=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HtMk1cYBvByKRXKra3g0MzChI0iczImkG3yvqupriBD1IxgcBecU+cc
oAwFHAyQm0HROEmUIAqFTXR1DOO4VIUCCgyQS6W0tCI4DEu9gbQq1+2rL398
+ZIn5/3lnJOTxyMmdvNOSxaL9c3/H/NPWSzfMJx8BAZG6jo51bVQuzzLEFEj
h6N1kqhDLxQgii5QGr0V0BhYlho70AiHzeubwcLJNrHgnVswkswE7VBasrVz
xNAOsri1duqybhj3axyvGroDA2VM0Ad/1Q6Znu3tBa7aHEDEGZezH2hVEGzH
BFrIdZO5G1eqIZ4Zj9PDuvtS74RNGthcw2zoPhyc3bNFsnoQHkUwwTD0ySLz
XCt0kG1gggewleP1fWmSHoTM9pePgvWff/QH/ain8zyE9II16WvO6sgbgymZ
hB0lXPD+hYACtjjkYw15BsgKubK70kVN3mNYFnwyI0upIu8JiCQSlwNbeul+
nsH1mEfVwfI7YPJmgmcQHpvw8/b6dmgyMsE4nDs2kWs71QInlEwwAdLsTyLT
qhphOzMe/RxEL87tkDUt3PckKLNUEZ6VteRNgq9pR9GV0HryjCDiH39w5HAD
eSb4pfpa+rHsZvJewHm9JLLGp428l5BhM3omVNBF3ku4cD7NYyq7h7xXICuM
Nz6e7iNvCtpDk3l1Uf3kTcPIP4ckHScGyJuBtpmghp58LXkzcDXx5tKEVTry
ZqFie5rBuE5P3hwcEOZ3ik/qyZuH3/mnqtzndWB+TotZmCi2H1ZcG4TX75GF
b063yZdPamDY/L5Y6Havo+HaiBo2mAML3PClKzur+C6Yx+UW2B/AkfUE9JFn
idv8peEnr3eTZ4nN8RlWxvQO8ixR6vqFcN9vt+FTc2CFgSHrWWtFTeRZoSQv
Y+kl9Q3yrBEEg+UhkjryrPF63NtTm0R15FnjxerVkR0FN8hjo0VqzpTVKyV5
bHzQlH/63f23ybPBXZOn93lIO8izwYSmPaqH57vJs8H6uJJW2dI+8jjYuinV
76eMhfNyUJJ284ejbWryFiF3f5F7k15D3iKUqQ/WVcsGyVuExb5znK7nOvJs
8XO3QsXXBXrybDF5lvOdx0Y9eXboNbOy9atgHXl2eEFY2d1zQUueHV6OKXcS
XBwgj4tj3HuZPgn95HFxrsuhpHGJijx7VL3xWVFuWQ959rikI/V4ysYu8uyx
ckIS8l5MG3kO6D6+rTSptpk8B3R8KlqpLW8gzxEV6w1x2qR68hwxyqf4blBp
LXmOyL3k5C/OU5DnhP4m7Z6uI43kOaFKyb6R1NIC5vqxc0Y/fZjp/cx2MNfP
Wmcc9vFvNiTcoT5yRk7Jt0JOYC/1mzO2nBjwsPxVBa/rzBnFrkJ7xXQ/eTzM
mH9rZ6unhjwehoX5inK4g+TxsKL1apt7vo48HmauKP5IHqsnj4fhXrErIlL1
5PFx1HU0LK9aRx4fxXMpWZfXLXh8nF1m2i3fpSGPjzKvHGWVRE0eH33Tle6F
RhV5Aly/94mfNLeX+leAPUMrPky17yZPgB5Pz51a5fk3eQLMrvdOyoy+RZ4A
y63GeHNsJfwHM8r4hQ==
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["u", TraditionalForm]},
  AxesOrigin->{0, 0},
  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->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 5}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.769141343836905*^9, 
  3.769141412184317*^9},ExpressionUUID->"d2eb9f3e-92e7-4ac2-a3b8-\
3638fa52d963"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"u", "/", "uh"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"2", "+", "z", "-", "\[Theta]"}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"\[Mu]", "^", "2"}], 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"z", "-", "\[Theta]"}], ")"}], "/", "2"}], "/", 
        RowBox[{"(", 
         RowBox[{"2", "-", "\[Theta]"}], ")"}]}], 
       RowBox[{
        RowBox[{"u", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "z"}], "-", 
           RowBox[{"2", "\[Theta]"}], "+", "2"}], ")"}]}], "/", 
        RowBox[{"uh", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "z"}], "-", 
           RowBox[{"2", "\[Theta]"}]}], ")"}]}]}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"u", "/", "uh"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"\[Theta]", "-", "z"}], ")"}]}]}], ")"}]}]}], ",", "u"}], 
    "]"}], "//", "FullSimplify"}], "//", "InputForm"}]], "Input",
 CellChangeTimes->{{3.769141872383136*^9, 3.769141891905161*^9}, {
  3.769142027555552*^9, 
  3.769142028903652*^9}},ExpressionUUID->"62f255bb-2e0e-46f9-aeb8-\
a8d1def10ee9"],

Cell["\<\
(u*(u/uh)^(z - \[Theta])*(-2 - z + \[Theta]))/uh^2 + (u^(1 + 2*z - \
2*\[Theta])*uh^(-2*z + 2*\[Theta])*(-z + \[Theta])*(2*(u/uh)^z*(1 + z - \
\[Theta]) + (u/uh)^\[Theta]*(-2 - z + \[Theta]))*\[Mu]^2)/
  (2*(u/uh)^z*(-2 + \[Theta]))\
\>", "Output",
 CellChangeTimes->{{3.7691418766119347`*^9, 3.769141895001443*^9}, 
   3.7691420293292503`*^9},ExpressionUUID->"44a81c47-31c3-4097-b4ae-\
8b6f30e1f822"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dfu", "[", 
    RowBox[{
    "t1_", ",", "us_", ",", "uh_", ",", "z_", ",", "\[Theta]_", ",", "\[Mu]_",
      ",", "q_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ut", "[", 
        RowBox[{
        "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", "\[Mu]", ",", "q"}], 
        "]"}], "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"t", "\[Rule]", "t1"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pu", "[", 
    RowBox[{
    "t1_", ",", "us_", ",", "uh_", ",", "z_", ",", "\[Theta]_", ",", "\[Mu]_",
      ",", "q_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"ut1", "[", 
      RowBox[{
      "t1", ",", "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", "\[Mu]", 
       ",", "q"}], "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Theta]", "/", "2"}], "-", "1"}], ")"}]}], 
    RowBox[{
     RowBox[{"dfu", "[", 
      RowBox[{
      "t1", ",", "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", "\[Mu]", 
       ",", "q"}], "]"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"ut1", "[", 
          RowBox[{
          "t1", ",", "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", "\[Mu]",
            ",", "q"}], "]"}], "^", 
         RowBox[{"(", 
          RowBox[{"2", "-", 
           RowBox[{"2", "z"}]}], ")"}]}], 
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{
           RowBox[{"ut1", "[", 
            RowBox[{
            "t1", ",", "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", 
             "\[Mu]", ",", "q"}], "]"}], ",", "uh", ",", "z", ",", "\[Theta]",
            ",", "\[Mu]"}], "]"}], "^", "3"}]}], "-", 
       RowBox[{
        RowBox[{
         RowBox[{"dfu", "[", 
          RowBox[{
          "t1", ",", "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", "\[Mu]",
            ",", "q"}], "]"}], "^", "2"}], 
        RowBox[{"f", "[", 
         RowBox[{
          RowBox[{"ut1", "[", 
           RowBox[{
           "t1", ",", "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", 
            "\[Mu]", ",", "q"}], "]"}], ",", "uh", ",", "z", ",", "\[Theta]", 
          ",", "\[Mu]"}], "]"}]}]}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Beta]pu", "[", 
    RowBox[{
    "t1_", ",", "us_", ",", "uh_", ",", "z_", ",", "\[Theta]_", ",", "\[Mu]_",
      ",", "q_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"pu", "[", 
     RowBox[{
     "t1", ",", "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", "\[Mu]", ",",
       "q"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ut1", "[", 
          RowBox[{
          "t1", ",", "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", "\[Mu]",
            ",", "q"}], "]"}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"ut1", "[", 
             RowBox[{
             "t1", ",", "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", 
              "\[Mu]", ",", "q"}], "]"}], "/", "uh"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"z", "-", "\[Theta]"}], ")"}]}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], "-", "z", "+", "\[Theta]"}], ")"}]}], ")"}], 
       "/", 
       RowBox[{"uh", "^", "2"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"ut1", "[", 
           RowBox[{
           "t1", ",", "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", 
            "\[Mu]", ",", "q"}], "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"2", "*", "z"}], "-", 
            RowBox[{"2", "*", "\[Theta]"}]}], ")"}]}], "*", 
         RowBox[{"uh", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], "*", "z"}], "+", 
            RowBox[{"2", "*", "\[Theta]"}]}], ")"}]}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "z"}], "+", "\[Theta]"}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"ut1", "[", 
                RowBox[{
                "t1", ",", "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", 
                 "\[Mu]", ",", "q"}], "]"}], "/", "uh"}], ")"}], "^", "z"}], 
            "*", 
            RowBox[{"(", 
             RowBox[{"1", "+", "z", "-", "\[Theta]"}], ")"}]}], "+", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"ut1", "[", 
                RowBox[{
                "t1", ",", "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", 
                 "\[Mu]", ",", "q"}], "]"}], "/", "uh"}], ")"}], "^", 
             "\[Theta]"}], "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "-", "z", "+", "\[Theta]"}], ")"}]}]}], 
          ")"}], "*", 
         RowBox[{"\[Mu]", "^", "2"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"2", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"ut1", "[", 
             RowBox[{
             "t1", ",", "us", ",", "uh", ",", "z", ",", "\[Theta]", ",", 
              "\[Mu]", ",", "q"}], "]"}], "/", "uh"}], ")"}], "^", "z"}], "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}]}], ")"}]}]}], 
     ")"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.769141491791149*^9, 3.769141736347286*^9}, {
  3.7691419107664137`*^9, 3.7691420716345*^9}, {3.769142602525436*^9, 
  3.7691426064793587`*^9}},ExpressionUUID->"90f0e888-1712-42da-9cd0-\
48449f58340e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{"pu", "[", 
      RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
       RowBox[{"0.75", 
        RowBox[{"\[Mu]ext", "[", 
         RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
       RowBox[{"0.5", 
        RowBox[{"qcrit", "[", 
         RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
          RowBox[{"0.75", 
           RowBox[{"\[Mu]ext", "[", 
            RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}]}], 
      "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0.01", ",", "5", ",", "0.05"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7691423849048233`*^9, 3.769142385729841*^9}, {
  3.7691424285869837`*^9, 3.769142429496544*^9}, {3.7691425334651403`*^9, 
  3.769142535982973*^9}, {3.769142619362986*^9, 
  3.7691426202473288`*^9}},ExpressionUUID->"bad92497-3950-4a18-b75b-\
c47cb1bd52d2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.01`", ",", "2.028787126563922`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.060000000000000005`", ",", "6.830149867813759`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.11`", ",", "8.659197318920567`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.16000000000000003`", ",", "9.975824088554118`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.21000000000000002`", ",", "11.180137356793702`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.26`", ",", "12.40115311870797`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.31000000000000005`", ",", "13.696740724151878`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.36000000000000004`", ",", "15.098604753129077`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.41000000000000003`", ",", "16.627016631202522`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.46`", ",", "18.296876504510156`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.51`", ",", "20.1206478273247`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.56`", ",", "22.109677995320975`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6100000000000001`", ",", "24.274119994096676`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.66`", ",", "26.626276664105863`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7100000000000001`", ",", "29.176372765774378`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.76`", ",", "31.93734933407848`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.81`", ",", "34.91905437848759`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8600000000000001`", ",", "38.13599733295977`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.91`", ",", "41.60336821565623`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9600000000000001`", ",", "45.33547502573532`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.01`", ",", "49.35303650640735`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.06`", ",", "53.66850376638479`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.11`", ",", "58.30326676362453`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1600000000000001`", ",", "63.276599751201005`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2100000000000002`", ",", "68.60474007505958`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.26`", ",", "74.33161547558764`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.31`", ",", "80.46612700910883`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.36`", ",", "87.00388200039468`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4100000000000001`", ",", "94.01189795765097`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4600000000000002`", ",", "101.55714006243011`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.51`", ",", "109.55220923744061`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.56`", ",", "118.22563639143723`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.61`", ",", "127.29833304301046`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6600000000000001`", ",", "137.24478251816504`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.7100000000000002`", ",", "147.70980644303955`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.76`", ",", "158.94498365317196`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.81`", ",", "171.078284378536`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.86`", ",", "183.69053288013404`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9100000000000001`", ",", "197.31365319024675`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9600000000000002`", ",", "212.23042784120747`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.01`", ",", "227.98946796463946`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.06`", ",", "244.41981144053372`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.11`", ",", "261.8956910808768`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.1599999999999997`", ",", "280.8203306404242`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.21`", ",", "301.2620314914009`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.26`", ",", "323.2244791053123`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.31`", ",", "346.05927175256045`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.36`", ",", "370.2865263677379`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.41`", ",", "396.6262396485465`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.46`", ",", "425.1089586343425`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.51`", ",", "455.35369486509734`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.56`", ",", "487.30237760792653`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.61`", ",", "518.9326542883152`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.66`", ",", "554.892214855376`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.71`", ",", "598.4641988502087`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.76`", ",", "644.9239843217238`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.81`", ",", "688.3518838328514`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.86`", ",", "731.1825268663009`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.91`", ",", "777.1488537400357`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.96`", ",", "824.0428854265027`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.01`", ",", "900.1668500105607`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.06`", ",", "956.6488324805994`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.11`", ",", "992.7906557303758`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.16`", ",", "1078.675418321768`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.21`", ",", "1187.4237497189818`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.26`", ",", "1243.217711754501`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.31`", ",", "1298.2506573605815`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.36`", ",", "1405.1802218843138`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.41`", ",", "1508.4110681503503`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.46`", ",", "1468.1182659368985`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.51`", ",", "1761.2145858865545`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.56`", ",", "1719.0713213900094`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.61`", ",", "1831.0962141962202`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.66`", ",", "2192.4602251901324`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.71`", ",", "2062.1084995183737`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.76`", ",", "2328.497152005602`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.81`", ",", "2577.285361568882`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.86`", ",", "2267.564493856797`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.91`", ",", "3055.5223839283767`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.96`", ",", "2329.127851124382`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.01`", ",", "3568.4868286489022`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.06`", ",", "2594.3944206683714`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.11`", ",", "3928.568666936361`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.16`", ",", "3081.0749257544203`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.21`", ",", "4158.854429433518`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.26`", ",", "3660.5787262948324`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.31`", ",", "4228.46604723148`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.36`", ",", "4302.698197800362`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.41`", ",", "3839.5467887158043`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.46`", ",", "3674.988462168651`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.51`", ",", "4612.577239385552`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.56`", ",", "3132.380694990294`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.61`", ",", "7086.480594163575`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.66`", ",", "3177.107134636448`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.71`", ",", "10328.47541655602`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.76`", ",", "3717.4104155202067`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.8100000000000005`", ",", "8131.05065769574`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.86`", ",", "5672.37226313836`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.91`", ",", "14394.74783344779`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.96`", ",", "9261.670671697997`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.769142365304364*^9, 3.76914241954533*^9, 
  3.7691424711518784`*^9, 3.7691425420191603`*^9, 3.769142615837503*^9, 
  3.769142659907049*^9},ExpressionUUID->"e6ee6792-db45-44c7-8e83-\
2035591caf12"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"pu", "[", 
            RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
             RowBox[{"0.70", 
              RowBox[{"qcrit", "[", 
               RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]ext", "[", 
                  RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}]}],
             "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"pu", "[", 
            RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
             RowBox[{"0.85", 
              RowBox[{"qcrit", "[", 
               RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]ext", "[", 
                  RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}]}],
             "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"pu", "[", 
            RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
             RowBox[{"1.00", 
              RowBox[{"qcrit", "[", 
               RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]ext", "[", 
                  RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}]}],
             "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "pu"}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.769141352447398*^9, 3.769141353894709*^9}, {
  3.769142120170089*^9, 3.769142183612557*^9}, {3.7691428721330357`*^9, 
  3.7691428761918373`*^9}, {3.7691429414583387`*^9, 3.769142953445212*^9}, {
  3.7691430069129972`*^9, 3.769143007292945*^9}, {3.769143356868906*^9, 
  3.769143363006138*^9}},ExpressionUUID->"815e6cfe-e1ec-42ee-b3ab-\
7449c752ede9"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0, 0, 1], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQXS2yzv1hVYv9j1n5d49zPrPfKdf6OnDHOvsZDB87
0iz+2WvG9B/6qrHHPu/qtZkcVxgcasDqj9gbz3ZNdT/G6PCoCiRwyj7swoeS
kgYmhyUFtlzXF1+w/81w+nmWGrPDjcUggcv2Cwyavz87wuzAfR0sYP85+8nK
TwksDnZcIIFb9k8aza9O+8PiUAjSXnDX/uuz7q29M1gdgnaAHPTAfpW3zIPv
JmwObwJBAg/tn9+Wqjpwkc2h7TVI4LG9h1Qh9/o8dgd5kPPlntofrM+Q6uDm
cID455l94L9kUfUVHFDzXthb1i5t9XbhhJr30t4079rKL/c5oea9tp8bJvL4
RxUX1Ly39kcMpzn6inJDzXtn78/4ge/aOm4HSPh8sH+R57e4zZ3H4ZsGSOCD
vQ1j5IvE+zwOh7+CBD7au/itu51Uxusw4RBI4JP9pVe7XXt4+BxiQdpjPtt3
Xlp85eVCPqh5X+yTzs3XCDDjh5r3xT7wU9z85FP8UPO+2l+MDGC6pCcANe+b
/cN0gayz5QJQ877bZxSeN7l4QABq3g/71yx78xw4BaHm/bBnMNd3bQoUhJr3
036folRw1kxBqHm/7KdsyLml+1AQat5v+6nCOv0+GkJQ8/7Yi32Yu+NOvhDU
vD/2fAL55zy2CUHN+2sf0X0ocvkfIah5/+xvlBf+3OgsDDXvv73YnEn6Vl3C
DgAgUTac
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQXS2yzv1hVYt9xe/1B7ZOeWq/U671deCOdfbZL9OL
zC/9tdeM6T/0VWOPffP9yhXPqxkcasDqj9h/Lna4r+XG6PCoCiRwyt48+ty8
p9cYHZYU2HJdX3zB/h7j5smlQUwONxaDBC7bz+q58/3uUSYH7utgAfveJXeX
lJkxO9hxgQRu2Yf2Sqq1LWN2KARpL7hr/+rVxFBWcRaHoB0gBz2w93y3htuj
g8XhTSBI4KE9z6+E9am/WBzaXoMEHtsHJyXsDsxldZAHOV/uqX3kxlMl3x+w
OkD888z+yL42N69QNqh5L+z3CR70MDnFBjXvpf0j/bfM0+3Zoea9tp9SZv+u
bis71Ly39n2XXm+6pc0BNe+dvbGNgdbyRRwOkPD5YL+vlPfoY0lOh28aIIEP
9lUnNPV6J3I6HP4KEvhoLzGPr30pJ5fDhEMggU/2hw9aLVNr4nKIBWmP+Wyv
19mzQv03F9S8L/ZhlhmGc0u4oeZ9sc9S/2yd9o4bat5X+/kpfppLMnig5n2z
j34ZW5/6mAdq3nf7db43UhbF8ULN+2Hvr8bmoniLF2reD/sj1+dkZ4XxQc37
aX/J6HzMykt8UPN+2QteNc+76M8PNe+3/ZSUCe5iZ/mh5v2x39hyXyBTVQBq
3h/7KWc3m81JEYCa99c+gW2PyK7FAlDz/tmbi/8zlXksADXvv33fVv3U90qC
DgCx+zTM
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQHRe1nOvLhVX28xPq2IS6ftnvlGt9Hbhjnf0Bm14Z
3ay/9pox/Ye+auyxP7qBe3aXAoNDjcg694dVR+xrqx7VTtjH4PCoCiRwyj7j
EYdnsTyjw5ICW67riy/YX/3RkHw2ndHhxmKQwGX7rGze+TuXMDpwXwcL2L8y
qs1ccJvRwY4LJHDLfo3Cl2e3+ZgcCkHaC+7a7/muIldiz+QQtAPkoAf2kZYP
ll7OZXJ4EwgSeGgvzizZoDSLyaHtNUjgsf2Olp+vM44wOciDnC/31D66kGPB
wjdMDhD/PLOv0t6z9JoQM9S8F/b9NbdtvpsxQ817aZ/c4uQkFMkMNe+1/Rej
U4+1K5mh5r21v72FWc1vOjPUvHf2clvYCto2MztAwueDvWeN6Y+HZ5kdvmmA
BD7Y/95+xD7nGbPD4a8ggY/2548p29v+ZXaYcAgk8Ml+z32jq0lCLA6xIO0x
n+1PXbLd8kaVBWreF3v+v3m7X5mzQM37Yl+0Nrchy4MFat5X++Iz8wMqw1mg
5n2z70h41aufCjPvu/3unTaP+gth5v2wn9H6y2tpDcy8H/ZaPcmZ7W0w837a
X5zkGKPfDzPvl33mjtTGzdNg5v22f34kw1F4Lsy8P/Ypuq/aQxfBzPtjbzS7
7UjHMph5f+23aL07tmglzLx/9iXOVRzrVsPM+2//5uLcxZvWsDgAAA9lNp0=

       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["pu", TraditionalForm]},
  AxesOrigin->{0, 0},
  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->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1.9600000000000002`}, {0, 4.884987586329791}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7691423013711357`*^9, 3.769142794964629*^9, 
  3.769142927197916*^9, 3.769142999717136*^9, 3.7691430481805143`*^9, 
  3.769143411942429*^9},ExpressionUUID->"a62b1638-b47e-480f-8722-\
ab569b3542b3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{"\[Beta]pu", "[", 
      RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
       RowBox[{"0.75", 
        RowBox[{"\[Mu]ext", "[", 
         RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
       RowBox[{"0.5", 
        RowBox[{"qcrit", "[", 
         RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
          RowBox[{"0.75", 
           RowBox[{"\[Mu]ext", "[", 
            RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}]}], 
      "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0.01", ",", "5", ",", "0.05"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7691423849048233`*^9, 3.769142385729841*^9}, {
  3.7691424285869837`*^9, 3.769142429496544*^9}, {3.7691425334651403`*^9, 
  3.769142535982973*^9}, {3.769142619362986*^9, 3.7691426202473288`*^9}, {
  3.769143432428149*^9, 
  3.769143432798579*^9}},ExpressionUUID->"53a762a2-1d5d-4157-8334-\
e8bfda5a7df9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.01`", ",", 
     RowBox[{"-", "24.72533204248468`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.060000000000000005`", ",", 
     RowBox[{"-", "25.71287551759414`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.11`", ",", 
     RowBox[{"-", "16.852720999219994`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.16000000000000003`", ",", 
     RowBox[{"-", "13.203488440092563`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.21000000000000002`", ",", 
     RowBox[{"-", "11.517692746501018`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.26`", ",", 
     RowBox[{"-", "10.75682143068836`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.31000000000000005`", ",", 
     RowBox[{"-", "10.52191536375215`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.36000000000000004`", ",", 
     RowBox[{"-", "10.633673628600217`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.41000000000000003`", ",", 
     RowBox[{"-", "11.002970117701116`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.46`", ",", 
     RowBox[{"-", "11.583024490899698`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.51`", ",", 
     RowBox[{"-", "12.349145482597782`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.56`", ",", 
     RowBox[{"-", "13.28905792666859`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6100000000000001`", ",", 
     RowBox[{"-", "14.397483410403769`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.66`", ",", 
     RowBox[{"-", "15.675182226854036`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7100000000000001`", ",", 
     RowBox[{"-", "17.124730454358904`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.76`", ",", 
     RowBox[{"-", "18.75233713811481`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.81`", ",", 
     RowBox[{"-", "20.563781750969664`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8600000000000001`", ",", 
     RowBox[{"-", "22.568552472127376`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.91`", ",", 
     RowBox[{"-", "24.77725442495098`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9600000000000001`", ",", 
     RowBox[{"-", "27.200502051452197`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.01`", ",", 
     RowBox[{"-", "29.853172327399083`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.06`", ",", 
     RowBox[{"-", "32.74550735816403`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.11`", ",", 
     RowBox[{"-", "35.893409225697376`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1600000000000001`", ",", 
     RowBox[{"-", "39.3117470960105`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2100000000000002`", ",", 
     RowBox[{"-", "43.01366698194329`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.26`", ",", 
     RowBox[{"-", "47.02989698559473`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.31`", ",", 
     RowBox[{"-", "51.369455274515104`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.36`", ",", 
     RowBox[{"-", "56.032608240243846`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4100000000000001`", ",", 
     RowBox[{"-", "61.06549411118086`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4600000000000002`", ",", 
     RowBox[{"-", "66.51524768144293`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.51`", ",", 
     RowBox[{"-", "72.32803319876814`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.56`", ",", 
     RowBox[{"-", "78.657902409547`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.61`", ",", 
     RowBox[{"-", "85.32276048365362`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6600000000000001`", ",", 
     RowBox[{"-", "92.64323508215715`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.7100000000000002`", ",", 
     RowBox[{"-", "100.38449369541165`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.76`", ",", 
     RowBox[{"-", "108.71967611139486`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.81`", ",", 
     RowBox[{"-", "117.7407180788428`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.86`", ",", 
     RowBox[{"-", "127.16223545795049`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9100000000000001`", ",", 
     RowBox[{"-", "137.35374485088394`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9600000000000002`", ",", 
     RowBox[{"-", "148.51802187997066`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.01`", ",", 
     RowBox[{"-", "160.3447242987585`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.06`", ",", 
     RowBox[{"-", "172.7146799626975`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.11`", ",", 
     RowBox[{"-", "185.8930776747581`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.1599999999999997`", ",", 
     RowBox[{"-", "200.17003291889975`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.21`", ",", 
     RowBox[{"-", "215.60002150777422`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.26`", ",", 
     RowBox[{"-", "232.19098456661817`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.31`", ",", 
     RowBox[{"-", "249.47996220763596`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.36`", ",", 
     RowBox[{"-", "267.8421868406559`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.41`", ",", 
     RowBox[{"-", "287.80251645812945`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.46`", ",", 
     RowBox[{"-", "309.3897292282281`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.51`", ",", 
     RowBox[{"-", "332.3315068578915`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.56`", ",", 
     RowBox[{"-", "356.5879729926714`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.61`", ",", 
     RowBox[{"-", "380.6773001798559`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.66`", ",", 
     RowBox[{"-", "408.0077479990184`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.71`", ",", 
     RowBox[{"-", "441.01284977683093`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.76`", ",", 
     RowBox[{"-", "476.2310836937657`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.81`", ",", 
     RowBox[{"-", "509.28620956946895`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.86`", ",", 
     RowBox[{"-", "541.9616202213846`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.91`", ",", 
     RowBox[{"-", "577.0192196897982`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.96`", ",", 
     RowBox[{"-", "612.8215234931056`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.01`", ",", 
     RowBox[{"-", "670.444372089846`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.06`", ",", 
     RowBox[{"-", "713.5225717234126`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.11`", ",", 
     RowBox[{"-", "741.4648099315976`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.16`", ",", 
     RowBox[{"-", "806.6141286649839`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.21`", ",", 
     RowBox[{"-", "888.9750040796742`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.26`", ",", 
     RowBox[{"-", "931.769249186964`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.31`", ",", 
     RowBox[{"-", "974.0193293767043`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.36`", ",", 
     RowBox[{"-", "1055.2640493370748`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.41`", ",", 
     RowBox[{"-", "1133.8166775041266`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.46`", ",", 
     RowBox[{"-", "1104.469423095287`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.51`", ",", 
     RowBox[{"-", "1326.024200818887`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.56`", ",", 
     RowBox[{"-", "1295.2631019224643`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.61`", ",", 
     RowBox[{"-", "1380.6382747355765`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.66`", ",", 
     RowBox[{"-", "1654.1926153907018`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.71`", ",", 
     RowBox[{"-", "1556.8028322203274`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.76`", ",", 
     RowBox[{"-", "1758.9309658407242`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.81`", ",", 
     RowBox[{"-", "1947.9187763020682`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.86`", ",", 
     RowBox[{"-", "1714.7013204301695`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.91`", ",", 
     RowBox[{"-", "2311.6440336703454`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.96`", ",", 
     RowBox[{"-", "1762.8789410786094`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.01`", ",", 
     RowBox[{"-", "2702.058551042193`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.06`", ",", 
     RowBox[{"-", "1965.2451691247843`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.11`", ",", 
     RowBox[{"-", "2976.969990170264`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.16`", ",", 
     RowBox[{"-", "2335.563619529849`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.21`", ",", 
     RowBox[{"-", "3153.5744259974344`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.26`", ",", 
     RowBox[{"-", "2776.5801711669264`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.31`", ",", 
     RowBox[{"-", "3208.2348012078137`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.36`", ",", 
     RowBox[{"-", "3265.421598925571`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.41`", ",", 
     RowBox[{"-", "2914.6482798714655`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.46`", ",", 
     RowBox[{"-", "2790.3788581637787`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.51`", ",", 
     RowBox[{"-", "3503.0429889450593`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.56`", ",", 
     RowBox[{"-", "2379.3865042757293`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.61`", ",", 
     RowBox[{"-", "5383.988140727713`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.66`", ",", 
     RowBox[{"-", "2414.254986241524`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.71`", ",", 
     RowBox[{"-", "7849.831993193215`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.76`", ",", 
     RowBox[{"-", "2825.74460637806`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.8100000000000005`", ",", 
     RowBox[{"-", "6181.629850883506`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.86`", ",", 
     RowBox[{"-", "4313.014734461068`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.91`", ",", 
     RowBox[{"-", "10946.527528553335`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.96`", ",", 
     RowBox[{"-", "7043.91634040918`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.769143506825119*^9},ExpressionUUID->"14600558-e59f-4493-b6ef-\
a79d8302da86"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Beta]pu", "[", 
            RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
             RowBox[{"0.70", 
              RowBox[{"qcrit", "[", 
               RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]ext", "[", 
                  RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}]}],
             "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Beta]pu", "[", 
            RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
             RowBox[{"0.85", 
              RowBox[{"qcrit", "[", 
               RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]ext", "[", 
                  RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}]}],
             "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Beta]pu", "[", 
            RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}], ",", 
             RowBox[{"1.00", 
              RowBox[{"qcrit", "[", 
               RowBox[{"0.1", ",", "1", ",", "1.5", ",", "0.5", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]ext", "[", 
                  RowBox[{"1", ",", "1.5", ",", "0.5"}], "]"}]}]}], "]"}]}]}],
             "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"t", ",", "\[Beta]pu"}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.769141352447398*^9, 3.769141353894709*^9}, {
  3.769142120170089*^9, 3.769142183612557*^9}, {3.7691428721330357`*^9, 
  3.7691428761918373`*^9}, {3.7691429414583387`*^9, 3.769142953445212*^9}, {
  3.7691430069129972`*^9, 3.769143007292945*^9}, {3.769143356868906*^9, 
  3.769143363006138*^9}, {3.76914353384336*^9, 3.7691435396481113`*^9}, {
  3.7691436529750357`*^9, 
  3.769143653257785*^9}},ExpressionUUID->"f1a91fd2-1539-4096-b24d-\
7d1e6552e387"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0, 0, 1], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQXS2yzv1hVYv99K3ilU/bOB12yrW+Dtyxzt5+DdNP
xhOcDpox/Ye+auyx3xCef8zAjM2hBqz+iD1j676l3AIsDo+qQAKn7DdduFR6
9hiTw5ICW67riy/Yy2flca7jYnK4sRgkcNn+bOPOqa/WMTpwXwcL2C9PsOs8
PJ3RwY4LJHDL/p77if3HNjE6FIK0F9y1vxP67bPAZ0aHoB0gBz2wP/ckvt/X
n8nhTSBI4KG9yb0tGfMPMDm0vQYJPLa/90zj6SVHZgd5kPPlntoHnGl98ukc
M9Q/z+wd2IzT2VNZoOa9sLfuc/m6hJEVat5L+3LFR5qyi1mh5r22f/TuVfZ3
dzaoeW/tF7et1FB6zwY17529Uk7tw03T2aHh88GeebfLip8OHA7fNEACH+y1
5r53q3jF4XD4K0jgo73KnHPTD0/mdJhwCCTwyf7WqdMbe224HGJB2mM+24t4
i25a9IQLat4X+0dC/ClLu7mh5n2xT7rDFydsxAM176u9Tk1ev991Hqh53+x3
fntw5mQVL9S87/ZcpqULzsnyQc37YR956jmn+H4+qHk/7NmWXpfNjOeHmvfT
3vBCycO0f/xQ837Zv/SYLGTjJwA177f9BKM7Z33nCEDN+2M/Y7J0dP0rAah5
f+zP3PFwsTEXhJr31179x9dFc5oFoeb9sw9+psURc0EQat5/+7KOq4Z+MkIO
AO1QNa8=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQXS2yzv1hVYv96Rc7LyXkcDrslGt9Hbhjnf0Je7sO
4UWcDpox/Ye+auyxf90RfnTWS1aHGrD6I/Y71O/Fdc5kdnhUBRI4ZZ+8gUXR
VJXJYUmBLdf1xRfsNxaE7/WzZXS4sRgkcNk+WHZfsPdWBgfu62AB+/Pxx1LW
FTI42HGBBG7Z75s4UdQmgcGhEKS94K79htUVWV4lDA5BO0AOemD/ofEX15Yl
DA5vAkECD+0nlCo9PfKKwaHtNUjgsX2DTereIkdGB3mQ8+We2kcl+3G/XcII
9c8z++XPF3wLFGKCmvfCvlCOkyG+nQlq3kv7qd2NK9yYmKHmvbZPMW42ONrI
DDXvrT3DlXltB1lYoOa9s7dXdt6b0cUCDZ8P9lcCD0mKCbE6fNMACXyw92Cb
GOYym9Xh8FeQwEf7UpfOzX2qbA4TDoEEPtnvcXi2fO4GNodYkPaYz/YdXFUK
HjbsUPO+2O/f3xAVcIIdat4Xe4HTX1jyQjig5n21X9P2VWvJAw6oed/s61Wa
bF4B4w9i3nd7od+zNNV/wuLvh/2ZpEsvRFq5oOb9sE9+0KtvLMgNNe+nvcof
CZYVc7ih5v2yv7P+/9FkDR6oeb/tGU4Z6MzczAM174998TVJmcV2vFDz/tiv
W3T497aTvFDz/tr7z+Q7yBTCBzXvn/3MfhtH23t8UPP+22usjs08ksHvAABh
Zyvp
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQB2IQ3aQf3Dwzdbd90vOtyzZcZXXQjOk/9FVjj/1b+x6F
qlmsDjUi69wfVh2xt7qz3iRRhtnhURVI4JT9Pouzt1aVMTosKbDlur74gn3m
ZZ8jtlEMDjcWgwQu20cqHpQyNP1vz30dLGD/SXfzt06Lf/Z2XCCBW/ac59aG
q8/6a18I0l5w1z7/7IWGkw5/7YN2yLW+Dnxgf/rBn5PeUn/t3wSCBB7a+8oa
zE2U/Gvf9hok8Nj+3XPpldImf+3lW0ECT+0PNx7w/ZL0134nSPuOZ/aPxCpj
ghbAzHth/yS+4NeO5zDzXtpXxnwTf2b6D2rea/tpVwtcHTr+Qc17a799Xe+v
U3f+Qc17Zy+oETmbwei/PSR8PtgffiLes6ntv/03DZDAB/uJGkGJn2/+tz/8
FSTw0X6l+7TsSaIMDhMOgQQ+2a+ULzlx34bBIRakPeaz/amOLuWNSQzQ8P5i
v/7a3KuP2xgcIOZ9sV/HuI87biWDA8S8r/ZaBQ5L+E7BzPtmv+99/+VvL2Dm
fbc3W6jxjZ2NEWreD3ujFa/qHBQZoeb9sI+0/hK33ooRat5P+3/PhJQ9ghih
5v2yVzI/JCmXwQg177d9bNixhfo1MPP+2M9Lr7Ns6YOZ98c++7Glts58mHl/
7b+t8VRSWAczDxhuJ1Za5e2Gmfff/s36qpNKxxkdAA9dOfQ=
       
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\[Beta]pu", TraditionalForm]},
  AxesOrigin->{0, 0},
  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->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1.9600000000000002`}, {0, 4.527642038972877}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.769143628729721*^9, 
  3.769143748102281*^9},ExpressionUUID->"5010446a-5829-4924-87fc-\
c7d652a4d7ff"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "t_", ",", "q_", ",", "us_", ",", "uh_", ",", "\[Mu]_", ",", "z_", ",", 
   "\[Theta]_"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7691488246356564`*^9, 
  3.769148830867901*^9}},ExpressionUUID->"40ecad30-47b9-4315-b8df-\
520df210490a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Beta]pu", "[", 
        RowBox[{"i", ",", "10", ",", "0.1", ",", "1", ",", 
         RowBox[{"0.75", 
          RowBox[{"\[Mu]ext", "[", 
           RowBox[{"1", ",", "1.5389", ",", "1.0"}], "]"}]}], ",", "1.5389", 
         ",", "1.0"}], "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0.1", ",", "5", ",", "0.05"}], "}"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.7691487368531637`*^9, 
  3.769148766906048*^9}},ExpressionUUID->"57ea5316-1111-4b4c-8b25-\
d0d8b0799285"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{
  3.769148773854618*^9},ExpressionUUID->"484f117f-f25f-4908-809e-\
579db3dd15f9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Beta]pu", "[", 
        RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5389", ",", "1.0", ",", 
         RowBox[{"0.75", 
          RowBox[{"\[Mu]ext", "[", 
           RowBox[{"1", ",", "1.5389", ",", "1.0"}], "]"}]}], ",", "10"}], 
        "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.769148852603888*^9, 3.7691489059056883`*^9}, {
  3.7691489762186003`*^9, 
  3.769149010074729*^9}},ExpressionUUID->"e2137978-d6a9-4966-8693-\
d839acfde609"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.01`", ",", "1.1045557432684303`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.060000000000000005`", ",", "1.5601711639317173`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.11`", ",", "0.9791877103355628`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.16000000000000003`", ",", "0.2170237416254878`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.21000000000000002`", ",", 
     RowBox[{"-", "1.914289786994531`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.26`", ",", 
     RowBox[{"-", "0.09460947956439872`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.31000000000000005`", ",", "0.7893590414500213`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.36000000000000004`", ",", "1.4075473367949327`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.41000000000000003`", ",", "1.6695365329496654`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.46`", ",", "1.6867083092178325`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.51`", ",", "1.391986000325589`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.56`", ",", "0.7701844474544537`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6100000000000001`", ",", 
     RowBox[{"-", "0.12938962859788117`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.66`", ",", 
     RowBox[{"-", "1.7369711245674546`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7100000000000001`", ",", "0.24358351750712182`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.76`", ",", "0.9968780622858086`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.81`", ",", "1.573840304236461`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.8600000000000001`", ",", "0.9757856390215118`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.91`", ",", "1.7089149006866604`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.9600000000000001`", ",", "1.209359897549607`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.01`", ",", "0.5393030259821191`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.06`", ",", 
     RowBox[{"-", "0.6224958103489909`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.11`", ",", 
     RowBox[{"-", "0.6853151384413857`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1600000000000001`", ",", "0.5150444798576308`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.2100000000000002`", ",", "1.190911403792698`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.26`", ",", "1.7008118084894523`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.31`", ",", "0.7985236570279355`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.36`", ",", "1.5887000458550857`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4100000000000001`", ",", "1.0164056365630258`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.4600000000000002`", ",", "0.2724972438483937`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.51`", ",", 
     RowBox[{"-", "1.5708925035337016`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.56`", ",", 
     RowBox[{"-", "0.16925436723791545`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.61`", ",", "0.7486942381984864`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.6600000000000001`", ",", "1.3745826722902423`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.7100000000000002`", ",", "1.7016635138461402`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.76`", ",", "1.645762553012498`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.81`", ",", "1.4246995255285124`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.86`", ",", "0.810463755032388`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9100000000000001`", ",", 
     RowBox[{"-", "0.057138866435197784`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.9600000000000002`", ",", 
     RowBox[{"-", "2.156598048323419`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7691489733468933`*^9, 3.769149002139988*^9}, 
   3.7691490641107807`*^9},ExpressionUUID->"1864d0da-e009-4f98-a7df-\
ab2304cbcc40"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "t1_", ",", "us_", ",", "uh_", ",", "z_", ",", "\[Theta]_", ",", "\[Mu]_", 
   ",", "q_"}], "*)"}]], "Input",
 CellChangeTimes->{{3.7691487985582237`*^9, 
  3.769148803483324*^9}},ExpressionUUID->"1ed52274-3515-4a7d-bfa5-\
f1b46d8c5707"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"FindRoot", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"10", "\[Equal]", 
     RowBox[{"qcrit", "[", 
      RowBox[{"0.1", ",", "1", ",", "z", ",", "1", ",", 
       RowBox[{"0.75", 
        RowBox[{"\[Mu]ext", "[", 
         RowBox[{"1", ",", "z", ",", "1"}], "]"}]}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"z", ",", "1.5389"}], "}"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.769150269831728*^9, 
  3.769150273685807*^9}},ExpressionUUID->"c72bbe4e-da3b-4eec-9783-\
724292aed466"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"z", "\[Rule]", "1.778172640950558`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7691502751279287`*^9},ExpressionUUID->"f3f86041-d5c4-45d3-86ee-\
27a1050dfbb3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"pu", "[", 
           RowBox[{
           "i", ",", "0.1", ",", "1", ",", "1.7782", ",", "1.0", ",", 
            RowBox[{"0.75", 
             RowBox[{"\[Mu]ext", "[", 
              RowBox[{"1", ",", "1.7782", ",", "1.0"}], "]"}]}], ",", "10"}], 
           "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"pu", "[", 
            RowBox[{"i", ",", "0.1", ",", "1", ",", "1.8000", ",", "1.0", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.8000", ",", "1.0"}], "]"}]}], ",", "10"}],
             "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"pu", "[", 
            RowBox[{"i", ",", "0.1", ",", "1", ",", "1.8500", ",", "1.0", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.8500", ",", "1.0"}], "]"}]}], ",", "10"}],
             "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.01", ",", "2"}], "}"}], ",", "All"}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.769141352447398*^9, 3.769141353894709*^9}, {
   3.769142120170089*^9, 3.769142183612557*^9}, {3.7691428721330357`*^9, 
   3.7691428761918373`*^9}, {3.7691429414583387`*^9, 3.769142953445212*^9}, {
   3.7691430069129972`*^9, 3.769143007292945*^9}, {3.769143356868906*^9, 
   3.769143363006138*^9}, {3.769147551943966*^9, 3.7691476458700323`*^9}, {
   3.76914838398487*^9, 3.769148396368784*^9}, {3.7691487039644537`*^9, 
   3.76914871629924*^9}, {3.7691491040425386`*^9, 3.769149157448361*^9}, {
   3.769149201114087*^9, 3.769149226293148*^9}, {3.7691494146374397`*^9, 
   3.769149442436625*^9}, {3.7691497306159277`*^9, 3.7691497578904457`*^9}, {
   3.769149848591164*^9, 3.769149870889502*^9}, 3.769150160266161*^9, {
   3.7691505909631577`*^9, 
   3.769150592789132*^9}},ExpressionUUID->"5c2fd002-8346-4104-9594-\
9de05d4fd42b"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJxTTMoPSmViYGDQAGIQ/fmf0tOf/KvthXd53ex+991+p1zr68Ad6+zP9cyd
+Mv8l71mTP+hrxp77KfVLLvKHvHXvkZknfvDqiP2O4U0bGLY/9s/qgIJnLL3
Pqxx5rskg8OSAluu64sv2Dt42bza3s/gcGMxSOCy/cLeSdtefmRw4L4OFrDX
vCb67qAbo4MdF0jglr2P6sSf6ycyOhSCtBfctedUUgs6coXRIWgHyEEP7Kec
1dGLE2RyeBMIEnhoL1oy61WZB5ND22uQwGP7LRqPph2tYnKQBzlf7qm9RoVV
/uUVTA4Q/zyzXzR7+xrpy0xQ817YW++M7v3+E2beS/uGgjsrt8oyQ817bS/X
v7Z6jh0z1Ly39l3nhYVexzBDzXtn/8huc9XpCmYHSPh8sNcodlcunMTs8E0D
JPDB3na12hGOVcwOh7+CBD7a/z3+pGLdfmaHCYdAAp/sq+Qerm65zOwQC9Ie
89neJ+bPr+VPYeZ9sU9j8BEy+gYz74t9v9P+v6asLFDzvtrH3Z/LeUmIBWre
N/vn7Fs+iMizQM37bm/O+siJTYsFat4P+/mc+5z3G7NAzfthbyHGnuBuAzPv
pz3bOgPbNc4w837Zd+SfSPzsCTPvt/0FTmsFPX+YeX/s//KU5YQFw8z7Y89q
FetUEwYz76/9EhatM4sjYOb9s+eJE9x9MhJm3n/7Yzbudp+BfACtNy7Y
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.019444444444444445`], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwt0E1IE2Acx/G9uPc52MiLTZ3icKNGJw9B+XsilkIUuKiITYPBihJpIVSu
0EPbMGhlEEGYdpiBmSxKLLXYway2XVZ5WJhTN3Ms5mrptmbaqkefw8MDX57/
h+d5qq0XTDYeh8PR/V90v7rD1xhzOOELX1HMP0lgotKVah734aVFpQgf3YDe
cnsqp3sNmaPdHxor4trW+WnwtOae/AkOiTtoCCH9XBVLKrlk0L5fGvF+wFuN
0bo0wiWfvTTMoKnPWqir5xFZZCvA1t2pNzzjkQYpDbNojQeV7lo+uUjH7VHc
z7xvaLvDJ6ZxeqFFBL5MNlnW+WSlmYYYIn3Re6dbSog7RcMSen8ERom/hFTR
61cuQ//qpG9QLSDb70kgfJjfI+0UMC+Jh5eGIgszAuZ9Q0dZLt5tEDIvha7A
+K69biHz0nDNmUaN80LmfYfZerMmWy8i2/+TgXLVW2X2iEheR0MGLn+AG/oq
Im9yNPzEA+0Rg2WfmPRO0bCKmtmxnbq7YtJCxy1rGNr96PipFTHzsuhK39oj
NkqYl8XjclvZgQEJ83Joc6oXSEHCvDzqLImRjEnKvF847zlDjvmkzCugv/9G
9YRUxrwCtMHppx/Pypi3jqCn/ZzgnYx5vxFSCyvWauXM24CjOFAucsmZt4nF
Q5NRUULOvE147RWaZGMp8/4g4tRcXx4uZV4RWj4OzikUzPuLy8OfVC86FOQf
IIAyVA==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQXS2yzv1hVYt9J/uhmZotr+13yrW+Dtyxzl6T9fr8
i1v/2mvG9B/6qrHHfkWZ6JkHVxkcasDqj9ifmn/CPFicyeFRFUjglL3gy8hl
f0SYHZYU2HJdX3zBniNHzP3gB2aHG4tBApftrwS7f4zfweLAfR0sYD+vL4hv
RRGrgx0XSOCWvWvUnI8xymwOhSDtBXftQ6dxp1w6w+YQtAPkoAf2v6tf2HUW
sDu8CQQJPLR3dza7No+fw6HtNUjgsf3Fm13ZD1dxOMiDnC/31L6na2faVydO
B4h/ntk/+LHaX+cGJ9S8F/YvHgp38WdzQc17aW8TPD/v3m8uqHmv7UWK+89/
7uKGmvfWPnupqZObBA/UvHf2mi1q04uX8DhAwueD/UyP/27a+rwO3zRAAh/s
SyvVVp/cwetw+CtI4KP9hp/2rxY58jlMOAQS+GT/666d6LyTfA6xIO0xn+2l
37yaPSWAH2reF3tHDukrP67xQ837Yp+gfdg5U08Aat5Xe/vbP6dIFwpAzftm
37VLKbxpswDUvO/263/scpn8VQBq3g/78ICbu9aaC0LN+2Hf+FRBVaFSEGre
T/vQ4/aTVHcLQs37ZS/+zaIz8I8g1Lzf9gbxIdPe2ApBzftjP6vX89O/OiGo
eX/sry3d+X/XfiGoeX/tm4uNG78xCEPN+2c/cZWlg5OTMNS8//Zn2ApljzcJ
OwAAdJI23w==
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  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->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 2}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.769150636149556*^9},ExpressionUUID->"b84102cf-e401-41c9-b6cf-\
4ac07fe792b5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Beta]pu", "[", 
           RowBox[{
           "i", ",", "0.1", ",", "1", ",", "1.7782", ",", "1.0", ",", 
            RowBox[{"0.75", 
             RowBox[{"\[Mu]ext", "[", 
              RowBox[{"1", ",", "1.7782", ",", "1.0"}], "]"}]}], ",", "10"}], 
           "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Beta]pu", "[", 
            RowBox[{"i", ",", "0.1", ",", "1", ",", "1.8000", ",", "1.0", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.8000", ",", "1.0"}], "]"}]}], ",", "10"}],
             "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Beta]pu", "[", 
            RowBox[{"i", ",", "0.1", ",", "1", ",", "1.8500", ",", "1.0", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.8500", ",", "1.0"}], "]"}]}], ",", "10"}],
             "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.01", ",", "2"}], "}"}], ",", "All"}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.769141352447398*^9, 3.769141353894709*^9}, {
   3.769142120170089*^9, 3.769142183612557*^9}, {3.7691428721330357`*^9, 
   3.7691428761918373`*^9}, {3.7691429414583387`*^9, 3.769142953445212*^9}, {
   3.7691430069129972`*^9, 3.769143007292945*^9}, {3.769143356868906*^9, 
   3.769143363006138*^9}, {3.769147551943966*^9, 3.7691476458700323`*^9}, {
   3.76914838398487*^9, 3.769148396368784*^9}, {3.7691487039644537`*^9, 
   3.76914871629924*^9}, {3.7691491040425386`*^9, 3.769149157448361*^9}, {
   3.769149201114087*^9, 3.769149226293148*^9}, {3.7691494146374397`*^9, 
   3.769149442436625*^9}, {3.7691497306159277`*^9, 3.7691497578904457`*^9}, {
   3.769149848591164*^9, 3.769149870889502*^9}, 
   3.769150160266161*^9},ExpressionUUID->"6c45791f-c662-43d0-ad9a-\
183ccb797ad9"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJw10XtIU1EAx/G7YX80CZbYX+F6OHBZ+IDUkdjvQoNBYbQhmbIQpGJo4CKC
MDMQZw9HM4n1IqVm/qFhUUkuVtQcOFvYVMqwRq2Wa8xs071qd7t17Nw/Dge+
nPPhPLY0tmiPihmGUfwbZD6TO6L2tXaiOFHdkJBmsTaZMaQZG4FJP29kQiJ2
m87siCnsyHfvUWGYR9vqeif0Qw2uBUsaX1tJeI13b+U5L40cBgxVkjmrB00t
n0sH13D4YCVhFiXnwjvavSlkz60GPN83WhtfTGG3hIR5+D/dX3dkM4cTZLvB
i2cVb6Y3NHPQjpEDfcHKRc+hm04OixoSfODqZE1FBWl0hUj4hiv9lQcnL6ex
iRxf9h0nt1deu5BM4/99FnB76M7+040Z6v1AvMNuyXNnqBfEE7nHZyjlqRdC
wDL968VVnno/8Up5arwnylNvCdeV5blQMPR9wmh7WtZdVMOwcQUJYZQ4bFPZ
7Qw7HiMhgqmZHK3rHsP2OEhYRq85IjnmZtjDZLtuBcO9/sLgkuBFkazx762T
iqgXRaem+7i9WES9GB4lTDMF1SLqxXFL9VA3oBdRLwGPsktd3iH8XxKqnXeN
sRuClwSr3jUZfCB4v1Gx9lLVVqfg/UG/wRUYfC94KUx8LKs3BQSPw3rt43pP
XPA4zC6fzT+fJaZeGv6IrNkmFVMvg9rCPqt+o5h6PMwHRr19cjH7F/GDRes=

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.019444444444444445`], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQXS2yzv1hVYt9yr1Vm88eZHHYKdf6OnDHOvujm67P
9A5gctCM6T/0VWOP/dxlils/JTI41IDVH7HPuB8cFcrw3/5RFUjglP3U/8Fu
uvb/7JcU2HJdX3zBvqJpxjpx/n/2NxaDBC7bP3r3rviw+T977utgAfspu96H
TJj5z96OCyRwy97MbreBreJ/+0KQ9oK79mE5PauaDv23D9oBctAD+454eetF
VgwObwJBAg/tvQ4d3f9lJoND22uQwGP7K8am9f5/GRzkQc6Xe2q/TvSKf1Iy
I9Q/z+x70+8kWZ9mdICY98LeP7bK0tSECWreS/u1LqV7b89lgpr32p7dnO/B
fXZmqHlv7e9sdrVkLmKGmvfO3iLkubTFHWZo+Hywf1qW6unnxuLwTQMk8MHe
I1dqT9wGFofDX0ECH+0zcquDo6VYHSYcAgl8sn/5+RmfdQurQyxIe8xne8ac
SY8E37FCzftirxLkc+pZOBvUvC/2ivICJ3ceZIOa99X+Tsczi/3a7FDzvtnf
m1Jx49ZUdqh53+1z+o7X8zBwQM37Ya9+pfvg4iwOqHk/7PdyBU0OuMoBNe+n
vWFcrX2tAyfUvF/2IiujA0+v5oSa99t+X6ZF/ypxLqh5f+yPRFuXP23mgpr3
x/7Zshk6xR+4oOb9tdd+Np15Wiw31Lx/9gsnTZLRP80NNe+/vdEOJW1dSx4H
AP+zM7A=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQXS2yzv1hVYu9dd6OxmJjNoedcq2vA3ess++2lyw8
acjsoBnTf+irxh77O6eWH8iZzOhQA1Z/xD6zacOL9v8MDo+qQAKn7B87c7xe
+YLBYUmBLdf1xRfspylPuawrzuhwYzFI4LL9Dr6D51fnMzpwXwcL2Dtenv3w
7iNGBzsukMAt+zmaaR/L05kcCkHaC+7aawh2S/R+Z3II2gFy0AP7vWlnP6j2
Mzu8CQQJPLQ/X+r9e642i0Pba5DAY/uFfxTSZE6zOMiDnC/31H7aBZZ90Tms
UP88s18t5aPhxscGNe+F/RyN+JuRG9ig5r20n6CYV8MbxA4177X9y/wEVpXP
7FDz3tqvbuttVZjMATXvnf3GLd2bPYw4oeHzwf5lzJXLHBc4Hb5pgAQ+2H99
qiTXlcPlcPgrSOCjPe/E6zy/2LkdJhwCCXyyXyH1drfSIm6HWJD2mM/2yyqK
nU9Y8UDN+2LfZ/R6vu8lHqh5X+zrexb9Xp/BCzXvq31RUcWzv395oeZ9s0/M
dEwSnMQHNe+7/eOILrcrKvxQ837Ym+u6NbNu54ea98Pe5VDLyYXKAlDzftof
Pq+3kjlHAGreL/vNIhs3224WgJr3295gKt/kWb8EoOb9sV/w8O5NFUdBqHl/
7JdfUskXbBeEmvfXfsOt5G0WZwWh5v2zV2l4r6UnLAQ17799x7HrabIRQg4A
bAYyxw==
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  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->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 2}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7691493152042303`*^9, 3.76914957633121*^9, 
  3.769149837422924*^9, 3.7691499658352213`*^9, 
  3.769150260538118*^9},ExpressionUUID->"c1e2de67-7fe9-4ded-8299-\
761f46486ba8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"FindRoot", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"10", "\[Equal]", 
     RowBox[{"qcrit", "[", 
      RowBox[{"0.1", ",", "1", ",", "1.5", ",", "\[Theta]", ",", 
       RowBox[{"0.75", 
        RowBox[{"\[Mu]ext", "[", 
         RowBox[{"1", ",", "1.5", ",", "\[Theta]"}], "]"}]}]}], "]"}]}], ",", 
    
    RowBox[{"{", 
     RowBox[{"\[Theta]", ",", "0.5"}], "}"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.769150269831728*^9, 
  3.7691503667326107`*^9}},ExpressionUUID->"73c47146-246d-4f76-8b53-\
3436aa0468e0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\[Theta]", "\[Rule]", "0.4059532628325895`"}], "}"}]], "Output",
 CellChangeTimes->{{3.7691503236010523`*^9, 
  3.7691503673252563`*^9}},ExpressionUUID->"d70527e8-5f65-43c7-b098-\
27e1282be2f2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"pu", "[", 
           RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.101", ",", 
            RowBox[{"0.75", 
             RowBox[{"\[Mu]ext", "[", 
              RowBox[{"1", ",", "1.5", ",", "0.101"}], "]"}]}], ",", "10"}], 
           "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"pu", "[", 
            RowBox[{
            "i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.202", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.5", ",", "0.202"}], "]"}]}], ",", "10"}], 
            "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"pu", "[", 
            RowBox[{
            "i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.405", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.5", ",", "0.405"}], "]"}]}], ",", "10"}], 
            "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.01", ",", "2"}], "}"}], ",", "All"}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.769141352447398*^9, 3.769141353894709*^9}, {
   3.769142120170089*^9, 3.769142183612557*^9}, {3.7691428721330357`*^9, 
   3.7691428761918373`*^9}, {3.7691429414583387`*^9, 3.769142953445212*^9}, {
   3.7691430069129972`*^9, 3.769143007292945*^9}, {3.769143356868906*^9, 
   3.769143363006138*^9}, {3.769147551943966*^9, 3.7691476458700323`*^9}, {
   3.76914838398487*^9, 3.769148396368784*^9}, {3.7691487039644537`*^9, 
   3.76914871629924*^9}, {3.7691491040425386`*^9, 3.769149157448361*^9}, {
   3.769149201114087*^9, 3.769149226293148*^9}, {3.7691494146374397`*^9, 
   3.769149442436625*^9}, {3.7691497306159277`*^9, 3.7691497578904457`*^9}, {
   3.769149848591164*^9, 3.769149870889502*^9}, 3.769150160266161*^9, {
   3.769150391258256*^9, 3.7691504409501534`*^9}, {3.7691506749441547`*^9, 
   3.769150687666288*^9}, {3.769150847056468*^9, 
   3.76915084935832*^9}},ExpressionUUID->"464af3bf-0900-4e00-9578-\
c939a29c8768"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJxTTMoPSmViYGDQAGIQXS2yzv1hVYv9eqWvB14LfLXfKdf6OnDHOvtg59WJ
p2uYHTRj+g991dhjf6SdYet9WVaHGrD6I/bGU9pX7uJkc3hUBRI4ZX9ldvG0
xQfYHJYU2HJdX3zBfta+E8fWpbI73FgMErhs7zzbPOwvK4cD93WwgH1ytq/l
7WUcDnZcIIFb9l/2Cgu4eXE6FIK0F9y1j+TdYLXlA6dD0A6Qgx7YX7t79sbD
mVwObwJBAg/tH8zxyQty5XZoew0SeGx/v+fw6txP3A7yIOfLPbVXsLk0e/kC
HgeIf57Zq049urDInxdq3gt7gT6hybn/eKHmvbTf3b/2jcNaPqh5r+1PrhA/
tC2aH2reW/vjdhcr97AIQM17Z69dnJqzJloAGj4f7GetXvppwUYBh28aIIEP
9tza4hOE2AUdDn8FCXy0P3jUcsGBGEGHCYdAAp/srwT0ftHcJOgQC9Ie89k+
s8SuwYVNCGreF/sw2YsrXkQKQc37Yl/34KX5ubVCUPO+2p/xL9xQxCgMNe+b
vc7iNUtPBwtDzftu/0eEM23PUmGoeT/s+S7uuan+Qxhq3g/72p8/Qy94iEDN
+2l/4Sav6axZIlDzftlLTVzavea1CNS83/Z+WtOX7bQWhZr3x16bqaFqdZco
1Lw/9hovl4RW3xWFmvfX/qNJV72UthjUvH/25d2OydsrxaDm/bfvVOX6c/G0
mAMACYo4NQ==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.019444444444444445`], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQXS2yzv1hVYu9rlEBT037J/udcq2vA3essz96fKrd
nlAmB82Y/kNfNfbYRzhULV/+itmhBqz+iL2uQKvbryMsDo+qQAKn7D8/+mK1
NYPVYUmBLdf1xRfsy12WNAb8ZHW4sRgkcNne1EFt499mNgfu62AB+1XBa/gU
+dgd7LhAArfsVcvs1V7MZHcoBGkvuGuv18i2kkmDwyFoB8hBD+w7d4SUl+zg
cHgTCBJ4aG/5/pHgTy9Oh7bXIIHH9vM3K6ga3+d0kAc5X+6p/fr9D5fvKeFy
gPjnmf2iX/rH9Lm5oea9sJ8RYi2XtYgbat5L+7Tahm1hVjxQ817b9+euEwu6
xAM17619z4cNtXZZvFDz3tnrm/2aMYGJDxo+H+w7Tv4usZ7N5/BNAyTwwf7x
4swpJcb8Doe/ggQ+2ses8rojeZrfYcIhkMAn+2nvbqytMhRwiAVpj/ls33k+
07W3VgBq3hd7z9b/dVknBaDmfbHfXrqn576IINS8r/Z8k1a8ikkQhJr3zd5M
pzOYcY0g1Lzv9kuZ/k7t+C4INe+H/Q/5lTM0nYSg5v2wX65Qtv57rxDUvJ/2
P2qnnlhyQwhq3i/7+FdLDJ4rC0PN+21fGZK79FOuMNS8P/afL8ufZtslDDXv
jz03d66pJosI1Ly/9rnyeX84/EWg5v2zP9Vl75s3SwRq3n97KfZJFeZPRBwA
lZ8xSw==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQ7Rq/LWZz1kp7ncIzPfrnftvvlGt9Hbhjnb3+w49L
mpb+t9eM6T/0VWOPve7xdcVPrBgdakTWuT+sOmI/LUso+/RNRodHVSCBU/Zz
ft2qZ7ZhclhSYMt1ffEFe9FPd/KvtjI53FgMErhsvztnweHsI0wO3NfBAvYl
kV0Pbf8yOdhxgQRu2cenm4UtMWJ2KARpL7hr/3/XweqFqcwOQTtADnpgP1Xn
gP+UacwObwJBAg/tq5d5/JhzlNmh7TVI4LF95rQ7f7Z8YnaQBzlf7qm9xRVh
tquyLA4Q/zyzF9rww/6bGwvUvBf262/eNeDLY4Ga99J+ZvPys+qTWaDmvbZX
TIg94rSNBWreW/tf4Z6Zuddh5r2z7znfFrjlG4sDJHw+2P9L+bhGXYTV4ZsG
SOCD/RahdYK39FkdDn8FCXy0/yUkHXLPk9VhwiGQwCd7m1sesz2SWB1iQdpj
PttfMbglplvJCjXviz1vxT7rBX0w877YX1//u2TdIph5X+2PWot6VG+FmffN
PnsO00bR4zDzvtun1lwQqb8OM++HfcSqCWcePoOZ98Pe7e07T9uvMPN+2mta
HT+4mIkNat4ve4ZdT7Q1+Nmg5v22X7mHpemuFBvUvD/2t/WDHu5XZYOa98c+
ZrFW/Ed9Nqh5f+3P/r/Yk20JM++ffbcBR62dE8y8//ZBbUZtDV5sDgC1yjaX

       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  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->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 2}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7691508965074263`*^9},ExpressionUUID->"1f5fcc93-f912-4dc3-8b9b-\
291574a64428"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Beta]pu", "[", 
           RowBox[{"i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.101", ",", 
            RowBox[{"0.75", 
             RowBox[{"\[Mu]ext", "[", 
              RowBox[{"1", ",", "1.5", ",", "0.101"}], "]"}]}], ",", "10"}], 
           "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Beta]pu", "[", 
            RowBox[{
            "i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.202", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.5", ",", "0.202"}], "]"}]}], ",", "10"}], 
            "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Beta]pu", "[", 
            RowBox[{
            "i", ",", "0.1", ",", "1", ",", "1.5", ",", "0.405", ",", 
             RowBox[{"0.75", 
              RowBox[{"\[Mu]ext", "[", 
               RowBox[{"1", ",", "1.5", ",", "0.405"}], "]"}]}], ",", "10"}], 
            "]"}], "//", "Abs"}], "//", "Log"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "2", ",", "0.05"}], "}"}]}], "]"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.01", ",", "2"}], "}"}], ",", "All"}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.769141352447398*^9, 3.769141353894709*^9}, {
   3.769142120170089*^9, 3.769142183612557*^9}, {3.7691428721330357`*^9, 
   3.7691428761918373`*^9}, {3.7691429414583387`*^9, 3.769142953445212*^9}, {
   3.7691430069129972`*^9, 3.769143007292945*^9}, {3.769143356868906*^9, 
   3.769143363006138*^9}, {3.769147551943966*^9, 3.7691476458700323`*^9}, {
   3.76914838398487*^9, 3.769148396368784*^9}, {3.7691487039644537`*^9, 
   3.76914871629924*^9}, {3.7691491040425386`*^9, 3.769149157448361*^9}, {
   3.769149201114087*^9, 3.769149226293148*^9}, {3.7691494146374397`*^9, 
   3.769149442436625*^9}, {3.7691497306159277`*^9, 3.7691497578904457`*^9}, {
   3.769149848591164*^9, 3.769149870889502*^9}, 3.769150160266161*^9, {
   3.769150391258256*^9, 3.7691504409501534`*^9}, {3.7691506749441547`*^9, 
   3.769150687666288*^9}},ExpressionUUID->"30f91e23-196e-4f86-8ecd-\
3985aee2cb1c"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJxTTMoPSmViYGDQAGIQXS2yzv1hVYv9p19zM6t6hRx2yrW+Dtyxzv7TNStl
+08CDpox/Ye+auyx7+ZcFzrrKY9DDVj9EfvgkkNrrt3mdHhUBRI4Zb9EUWJ1
xnt2hyUFtlzXF1+wVzqTJ6q3i83hxmKQwGX7qdNLV61gYXPgvg4WsN/FXRsW
vobVwY4LJHDL3j1UI+DETFaHQpD2grv2V96kP5HZw+oQtAPkoAf2MlskXPey
sTm8CQQJPLRX/FRoo1bA5tD2GiTw2D50gk8o40c2B3mQ8+We2q+dNmn2smZ2
qH+e2XdUHb43T5kDat4Le183+XfNZzmg5r20P79Fl3NZHSfUvNf2Hf4NnL9N
uKDmvbU3k5wUtO8dF9S8d/amNut2LlzNDQ2fD/aWvNqP12XwOHzTAAl8sM9P
+1ytqsbrcPgrSOCjPc9OP7mfT3gdJhwCCXyyl9GbPnfXYj6HWJD2mM/21Z4u
GowJ/FDzvtiX9/cyz+MVgJr3xX6inHJQSLYA1Lyv9lpKTkJ9JwSg5n2zv5Sa
cdFIRRBq3nf7T9bnjkvXC0LN+2F/0uHzG5VbglDzftiHfmbR4DEWgpr30z5p
wZyUzT1CUPN+2c+c537H4akQ1Lzf9gtMAu3SbYSh5v2x5ytIuyE4SRhq3h/7
fNVj/DavhaHm/bVPM8i/eNNOBGreP/sdqx9Nk5ksAjXvvz1ffsaW9lciDgCc
tCtU
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.019444444444444445`], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQXS2yzv1hVYt9TUST2HJxQYedcq2vA3ess3f//cGH
/yy/g2ZM/6GvGnvs1d5wSnwQ5XaoAas/Ys/zaPftckMOh0dVIIFT9n7VUwK+
RLI5LCmw5bq++IK9vX6j21Y9Vocbi0ECl+217IT2Pa5iceC+DhawPxnoLbNX
lsXBjgskcMteaOasVANGFodCkPaCu/Yz7yUebRJlcQjaAXLQA3vf+b8rZf1Z
HN4EggQe2jfcML3isZTFoe01SOCx/XInmcNxgqwO8iDnyz21j7jsEmTVxwr1
zzP753M1uq6Ks0HNe2GvLnN3vdNqNqh5L+39NnQudXRjh5r32v55dNG12mfs
UPPe2r+Z8sSurYsDat47ey3V3bxHDTmh4fPBfr3cmwXRtzkdvmmABD7YX9ZL
yL3VyuVw+CtI4KN9LNe79rkG3A4TDoEEPtnfO12uzHmH2yEWpD3ms/1PM0+5
h+08UPO+2H/d+sDK2JgXat4X+8A1kp5Zd3mh5n217+Q+J+Hczgc175u9e12z
8gMDfqh53+2tf07KWHoTFn8/7PnmNjX8tBeAmvfD/tv5fX6fJwtAzftp3z35
fWn+MwGoeb/sLdkO6yhbCkLN+23vWOLq7dQlCDXvj/2rMrl63ruCUPP+2Jso
pMr16ApBzftrn/B52oT8OiGoef/sI11u7G46LwQ177/961aDb8vkhB0ASKws
Qw==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQB2IQ7fqwRDyGa7e91Kn3CgZz2R00Y/oPfdXYY/9l/VqO
vXbsDjUi69wfVh2xzyydb3elh8XhURVI4JS9Ruex8F+HmByWFNhyXV98wf7v
p/g4qx5GhxuLQQKX7XVXrIvy3sngwH0dLGB/hb3sG6Mug4MdF0jglj2ndrzX
y+X/7QtB2gvu2v/xNjxl6PjfPmiHXOvrwAf2+66xrXcX+m//JhAk8NC+QOqj
+lGe//Ztr0ECj+2rf3Y8PK/6316+FSTw1D7svI2pXeh/+50g7Tue2a/gZW24
MQVm3gv79xdq2M7eh5n30l49vfe+kySDA8S81/Yaf06FCbkyOEDMe2vf6Gmy
3rmIwQFi3jv702qJcowLGKDh88F+y0Q9zRVnGRy+aYAEPtjfaLpruO8Xg8Ph
ryCBj/Z/hTxKnqkxOkw4BBL4ZO+n9ZrlbiCjQyxIe8xne/v68uMF1YxQ877Y
X611+1C/mBFq3hf771tmHnxzkhFq3ld7zTDG8F3vYOZ9sw9Lz5O/L8gENe+7
vRWTl6+XMRPUvB/2VX82a0oGM0HN+2Fvn7DCyqmQCWreT/vWNxMULvUyQc37
ZR/mcfDNjRUw837bn4/YfCPjEMy8P/YXtbW+1t2CmffHPqq8ZrH9R5h5f+0/
a/86s5yNGWreP/t7jGarTksxQ837b/+jNjnomC6zAwA7VC8B
       
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  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->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 2}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.769150781138632*^9},ExpressionUUID->"af89bfb0-e73d-4b1f-916a-\
2ad4af1ba2ca"]
}, Open  ]]
},
WindowSize->{Full, Full},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 152, 3, 30, "Input",ExpressionUUID->"6e306932-ec10-48f7-9de9-6086f6afb394"],
Cell[713, 25, 210, 4, 30, "Input",ExpressionUUID->"50647e15-a839-4d1a-ac3f-bfcbbcab46c6"],
Cell[926, 31, 1246, 40, 30, "Input",ExpressionUUID->"df27ab55-1784-4457-9f2c-fd77eaa19791"],
Cell[CellGroupData[{
Cell[2197, 75, 1491, 43, 52, "Input",ExpressionUUID->"97cbeea4-62d5-49ba-992a-904a8d057885"],
Cell[3691, 120, 46048, 1249, 1381, "Output",ExpressionUUID->"a375304d-f277-4b92-a52c-a114e2dcd097"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49776, 1374, 687, 19, 30, "Input",ExpressionUUID->"3420bf35-3147-40d9-a80c-b97150aec8db"],
Cell[50466, 1395, 295, 8, 50, "Output",ExpressionUUID->"e10acecb-c92c-4073-bd68-2490c7aa1570"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50798, 1408, 687, 19, 30, "Input",ExpressionUUID->"f7ed15f2-efb4-4071-b645-f15888727a42"],
Cell[51488, 1429, 647, 20, 34, "Output",ExpressionUUID->"a7125d63-fcf5-407d-802f-bb4d5fbff357"]
}, Open  ]],
Cell[52150, 1452, 1366, 43, 52, "Input",ExpressionUUID->"f85ea4f3-8f01-42c6-8b8b-9345950e4ed5"],
Cell[CellGroupData[{
Cell[53541, 1499, 609, 14, 30, "Input",ExpressionUUID->"c1a4ed2b-27f6-41e3-8587-871fb9102002"],
Cell[54153, 1515, 4266, 90, 268, "Output",ExpressionUUID->"581843ce-f3c6-496f-8ce6-a15e0f03ab5a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[58456, 1610, 602, 15, 30, "Input",ExpressionUUID->"6d3ab6a4-5288-48f0-83b3-2519dfce4ad2"],
Cell[59061, 1627, 3380, 75, 267, "Output",ExpressionUUID->"f293c27a-7db2-49a7-b8a4-42cac1e46049"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62478, 1707, 546, 13, 30, "Input",ExpressionUUID->"87cd292a-77b7-4fa1-be66-468cbe359a1e"],
Cell[63027, 1722, 4137, 88, 267, "Output",ExpressionUUID->"0efd1251-8891-4c9c-b45d-fdc4a9b91a88"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67201, 1815, 624, 16, 30, "Input",ExpressionUUID->"18e7523e-1f01-4143-8a7f-de7a520eb006"],
Cell[67828, 1833, 2848, 67, 264, "Output",ExpressionUUID->"3aa5c494-f9b6-4ce4-81a3-74041b6d1450"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70713, 1905, 715, 17, 30, "Input",ExpressionUUID->"bd10ac1e-e0a7-4430-9052-10b48ea9aa4b"],
Cell[71431, 1924, 3354, 75, 266, "Output",ExpressionUUID->"3123570e-8245-410b-b61e-40d8d8f165dd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74822, 2004, 665, 16, 30, "Input",ExpressionUUID->"5117bba3-d7b2-4f60-9628-ac244d7d7c51"],
Cell[75490, 2022, 3377, 75, 261, "Output",ExpressionUUID->"d53984f5-c024-45bb-be86-2133a5e81c76"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78904, 2102, 56032, 1335, 1770, "Input",ExpressionUUID->"1810ec42-742f-4121-8cf3-d8f6df13418c"],
Cell[134939, 3439, 677, 11, 34, "Output",ExpressionUUID->"e0da555c-110c-4d3b-affa-e165464e3b56"],
Cell[135619, 3452, 679, 11, 34, "Output",ExpressionUUID->"d25d90b4-96c4-49b3-b7d9-2e264f70bdc5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136335, 3468, 4335, 114, 220, "Input",ExpressionUUID->"0b2d3924-127b-4b31-9df3-11427ee8db08"],
Cell[140673, 3584, 7981, 152, 251, "Output",ExpressionUUID->"5b9c9443-210e-4fb5-a427-fa12130449b2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[148691, 3741, 4334, 114, 220, "Input",ExpressionUUID->"63a97973-ece9-4ffd-81f6-cfce366c6b1f"],
Cell[153028, 3857, 8132, 154, 258, "Output",ExpressionUUID->"d2eb9f3e-92e7-4ac2-a3b8-3638fa52d963"]
}, Open  ]],
Cell[CellGroupData[{
Cell[161197, 4016, 1339, 41, 30, "Input",ExpressionUUID->"62f255bb-2e0e-46f9-aeb8-a8d1def10ee9"],
Cell[162539, 4059, 411, 8, 52, "Output",ExpressionUUID->"44a81c47-31c3-4097-b4ae-8b6f30e1f822"]
}, Open  ]],
Cell[162965, 4070, 5823, 169, 262, "Input",ExpressionUUID->"90f0e888-1712-42da-9cd0-48449f58340e"],
Cell[CellGroupData[{
Cell[168813, 4243, 968, 24, 30, "Input",ExpressionUUID->"bad92497-3950-4a18-b75b-c47cb1bd52d2"],
Cell[169784, 4269, 8614, 211, 266, "Output",ExpressionUUID->"e6ee6792-db45-44c7-8e83-2035591caf12"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178435, 4485, 3607, 90, 199, "Input",ExpressionUUID->"815e6cfe-e1ec-42ee-b3ab-7449c752ede9"],
Cell[182045, 4577, 3962, 84, 263, "Output",ExpressionUUID->"a62b1638-b47e-480f-8722-ab569b3542b3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[186044, 4666, 1024, 25, 30, "Input",ExpressionUUID->"53a762a2-1d5d-4157-8334-e8bfda5a7df9"],
Cell[187071, 4693, 10584, 305, 287, "Output",ExpressionUUID->"14600558-e59f-4493-b6ef-a79d8302da86"]
}, Open  ]],
Cell[CellGroupData[{
Cell[197692, 5003, 3736, 92, 199, "Input",ExpressionUUID->"f1a91fd2-1539-4096-b24d-7d1e6552e387"],
Cell[201431, 5097, 3865, 83, 263, "Output",ExpressionUUID->"5010446a-5829-4924-87fc-c7d652a4d7ff"]
}, Open  ]],
Cell[205311, 5183, 279, 7, 30, "Input",ExpressionUUID->"40ecad30-47b9-4315-b8df-520df210490a"],
Cell[CellGroupData[{
Cell[205615, 5194, 653, 18, 30, "Input",ExpressionUUID->"57ea5316-1111-4b4c-8b25-d0d8b0799285"],
Cell[206271, 5214, 137, 3, 34, "Output",ExpressionUUID->"484f117f-f25f-4908-809e-579db3dd15f9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206445, 5222, 705, 19, 30, "Input",ExpressionUUID->"e2137978-d6a9-4966-8693-d839acfde609"],
Cell[207153, 5243, 3933, 100, 119, "Output",ExpressionUUID->"1864d0da-e009-4f98-a7df-ab2304cbcc40"]
}, Open  ]],
Cell[211101, 5346, 280, 7, 30, "Input",ExpressionUUID->"1ed52274-3515-4a7d-bfa5-f1b46d8c5707"],
Cell[CellGroupData[{
Cell[211406, 5357, 569, 15, 73, "Input",ExpressionUUID->"c72bbe4e-da3b-4eec-9783-724292aed466"],
Cell[211978, 5374, 200, 5, 34, "Output",ExpressionUUID->"f3f86041-d5c4-45d3-86ee-27a1050dfbb3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212215, 5384, 3235, 79, 136, "Input",ExpressionUUID->"5c2fd002-8346-4104-9594-9de05d4fd42b"],
Cell[215453, 5465, 3781, 82, 243, "Output",ExpressionUUID->"b84102cf-e401-41c9-b6cf-4ac07fe792b5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219271, 5552, 3204, 78, 136, "Input",ExpressionUUID->"6c45791f-c662-43d0-ad9a-183ccb797ad9"],
Cell[222478, 5632, 3868, 83, 243, "Output",ExpressionUUID->"c1e2de67-7fe9-4ded-8299-761f46486ba8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[226383, 5720, 598, 16, 73, "Input",ExpressionUUID->"73c47146-246d-4f76-8b53-3436aa0468e0"],
Cell[226984, 5738, 234, 5, 34, "Output",ExpressionUUID->"d70527e8-5f65-43c7-b098-27e1282be2f2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[227255, 5748, 3340, 81, 136, "Input",ExpressionUUID->"464af3bf-0900-4e00-9578-c939a29c8768"],
Cell[230598, 5831, 3780, 82, 255, "Output",ExpressionUUID->"1f5fcc93-f912-4dc3-8b9b-291574a64428"]
}, Open  ]],
Cell[CellGroupData[{
Cell[234415, 5918, 3312, 80, 136, "Input",ExpressionUUID->"30f91e23-196e-4f86-8ecd-3985aee2cb1c"],
Cell[237730, 6000, 3761, 82, 243, "Output",ExpressionUUID->"af89bfb0-e73d-4b1f-916a-2ad4af1ba2ca"]
}, Open  ]]
}
]
*)