ChaosPhaseSpaceDiagram.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[    682802,      15231]
NotebookOptionsPosition[    679436,      15168]
NotebookOutlinePosition[    679798,      15184]
CellTagsIndexPosition[    679755,      15181]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Reissner", "-", 
    RowBox[{"Nordstrom", " ", "AdS", " ", "q"}]}], "\[LessEqual]", 
   RowBox[{"qcrit", " ", "case"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.767399442065527*^9, 
  3.767399456940851*^9}},ExpressionUUID->"3a1e9677-a839-445d-bf17-\
8244283a07f1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm", ",", "zm1", ",", "t", ",", "fz", ",", "pz", ",", "B", 
     ",", "C1", ",", "A"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fz", "[", 
      RowBox[{"zh_", ",", "\[Mu]_", ",", "z_"}], "]"}], ":=", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"zh", "^", "2"}], 
          RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
      RowBox[{
       RowBox[{"zh", "^", "2"}], 
       RowBox[{"\[Mu]", "^", "2"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "4"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{"\[Mu]_", ",", "zh_", ",", "zs_"}], "]"}], ":=", 
     RowBox[{"zh", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{
               RowBox[{"zh", "^", "2"}], " ", 
               RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
           RowBox[{
            RowBox[{"zh", "^", "2"}], 
            RowBox[{"\[Mu]", "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "4"}]}]}], "]"}], "/", 
         "\[Mu]"}], "/", "zs"}], "/", 
       RowBox[{"(", 
        RowBox[{"zh", "-", "zs"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{"q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], "]"}], ":=", 
     
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"q", " ", "\[Mu]"}], "zh"]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["zh", "3"], " ", 
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"3", "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["zh", "2"], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "-", 
                 RowBox[{"4", " ", "zh", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"zh", "-", 
                  RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["zh", "2"], "+", 
                  RowBox[{"zh", " ", 
                   RowBox[{"z", "[", "t", "]"}]}], "+", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                  RowBox[{"zh", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"], " ", 
               
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["z", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "-", 
            FractionBox[
             RowBox[{
              RowBox[{"z", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "3"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "zh", " ", 
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 RowBox[{"z", "[", "t", "]"}]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["zh", "6"], " ", 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]]}], 
               ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["zh", "3"], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            FractionBox[
             SqrtBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "3"]}], 
                SuperscriptBox["zh", "3"]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "4"]}], 
                SuperscriptBox["zh", "2"]], "-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["z", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"], 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}]]}]], 
             SuperscriptBox[
              RowBox[{"z", "[", "t", "]"}], "2"]], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["z", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"z", "[", "t", "]"}], "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "5"]}], 
                 SuperscriptBox["zh", "2"]]}], ")"}], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], 
                   SuperscriptBox["zh", "3"]]}], "+", 
                 FractionBox[
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["zh", "3"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]], 
                 "-", 
                 FractionBox[
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"z", "[", "t", "]"}], "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "5"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]], "-", 
                  FractionBox[
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}], ",", 
            RowBox[{"zh", "\[Rule]", "zh1"}], ",", 
            RowBox[{"q", "\[Rule]", "q1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "8.5"}], "}"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], "[", 
      "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pz", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"zm", "[", 
         RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
         "]"}]}], "/", 
       RowBox[{"fz", "[", 
        RowBox[{"zh1", ",", "\[Mu]1", ",", 
         RowBox[{"zm", "[", 
          RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
          "]"}]}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zm1", "[", 
             RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], 
            "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"fz", "[", 
          RowBox[{"zh1", ",", "\[Mu]1", ",", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "]"}], "-", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", 
             RowBox[{"zm", "[", 
              RowBox[{
              "t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
              "]"}]}], "]"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"zm1", "[", 
                 RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}],
                 "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
             RowBox[{"{", 
              RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "^", "2"}]}]}], 
        "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"zm", "[", 
            RowBox[{"i", ",", 
             RowBox[{"0.99", "*", 
              RowBox[{"qcrit", "[", 
               RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
             ",", "1", ",", "0.1"}], "]"}], ",", 
           RowBox[{
            RowBox[{"pz", "[", 
             RowBox[{"i", ",", 
              RowBox[{"0.99", "*", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}], "//", "Log"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0.5", ",", "8.5", ",", "0.05"}], "}"}]}], "]"}], 
       ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"z", ",", 
          RowBox[{"Log", " ", "Pz"}]}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"zm", "[", 
            RowBox[{"i", ",", 
             RowBox[{"1.00", "*", 
              RowBox[{"qcrit", "[", 
               RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
             ",", "1", ",", "0.1"}], "]"}], ",", 
           RowBox[{
            RowBox[{"pz", "[", 
             RowBox[{"i", ",", 
              RowBox[{"1.00", "*", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}], "//", "Log"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0.5", ",", "8.5", ",", "0.05"}], "}"}]}], "]"}], 
       ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"z", ",", 
          RowBox[{"Log", " ", "Pz"}]}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], "]"}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.767399614296691*^9, 3.767399616191922*^9}, {
  3.767400097193261*^9, 
  3.767400099375228*^9}},ExpressionUUID->"ef807a80-8331-4b5c-b255-\
d214bca3c5bf"],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
     AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwV0Xk0FVobBvAzkCEyHcPpmMpYV4UGRfW+XCoZKpekUihlVkSGm3JLSl8U
lesqIlKEm9RHZShDA8lwwzU00DE729Qkjm9/f+y112+969lr7edd5BHo4Mli
MBgZ9Pz/PjhssbvgZjfYdFZY6mjNwQRjpkSW/RESxKqiYgaEsOxbG1HT/QQD
UTdWtJYKgTnd+yBrbQ+IWO27qZMsBCupo/lg2gsKDzlDvSeF8NvufxyGl36G
rIDD1prBQmj0dKuekOSDh90ek4pAIZgdP+Tf3cEHteyl1nHHhND9pd5+X2of
lHwP2LbnlBBy/rMy2squH4xGF/dKJQrB+mj6ymPj/fCmMGzB7TtCYJvJK7ac
G4Dj8XPH9KqEoHTYRNyGMwgsrWc/Wj8KQdskvb7iyiAY/nm2kc2cg1Ouz8yl
5g9B7pKuo3L0f5KOET/njg+BVIt7fsymOfAo7PrXtWsIpk2Mahi+cyAToHqw
c+0wPO1NSV12aQ6yFLfc0owfBuHHp+p1D+dgxViv/8uuYajLOpR4p5PmZbjE
TWcEiqxC4hoZDNxjeminn9cISG9x3fJGgYELlMPT3W+PgMvMmtIqXQZarwvw
yP8wAlIdAUkF6xj4ujI7u4gzCprpNc8u2jJw0Q693DqrUVgdkxp0YD8DU2xc
CrYGj0Irp95tVRAD+04szo64MQoT364HicUwsCiI9zG9ehQcTZvM+Mk0P7r3
3veBUYCeTFZ7LgMZcUY9ZZICkGO7WQ+XMTBiJOmw1lIB7BsfW/1LEwMHZj1z
dm0WwPHGaPfszwwMjH80c85DAI96WrK9vjNwleOEQlekAPpKngyclmKi344c
i9AkAYQ2WcbOW8RED6Z/a9hdAfwaN2jEXMPENIPve1jlAmguM5aKsWFio1bI
h+VNAtjmfzouy52JF3RydFV6BbBLJ4nvH8bEt65xn95N0nlKzuRUAhMdoxM+
nGATqL0fVm57h4nPbURWassTWNgwGxXzjImp47qunRoE9POeaz/sZOLWuKe+
xQYE2GMlSUNfmSjto6xasZbAkdSU++sVWBiepT8lYUmghHk/vNSQhbbSKfsy
7QkERn1wD9vGwiNORpVXdhHoCilQiw1kYeTl5fEj7gRehhb/NnOJhdovMt2K
fQjMWzC2nf+AhXGXw0W+BhFovDZV7dzOQsV55hceRxDQsio65Sakc5lSF8k/
CKx+pRKmoMtGs4tBq0fPEUgTDWOc2MZGD5Wi7T4JBDZ+FH9ZEMFGwl+y89xV
Alm+D12Lc9jIZzcE2aUS8K3lf7jeysZw45H9FTdp/khWQ5CYCHLXB/v2ZhNg
RUL6r6YiyBc+PFWeS+D+GdlcpUARfJ0UutypkEDDaSvGZLYIGvDqCvMeEHjt
fT6R/14E6zI8x2v+S4A5sKNqjCuK93ZfTc55QiDbjlHDcxbF7UU8EccKAruO
dq31viaKuapduxueE4h963+0s00UDRoUY7m1BMbf+FqH8ObhwlpPWPuKQEfN
E+Yq93l4/TNbclk97SdWtFDl7jxctfkBTjcQ8B/SntWYnIfJhyQ4mU0EzLp0
LDaBGN7veR+v+w8B3Yj8PbEXxXC4dGnK+VYCpr9kF3Z2i6HHwOB0fTsBz5oD
kRsNxVHPunLfRAcBvqCm+PYZcazKN3L82UXgS0eAlVSnOO5EnsPgewJ3Oe3m
Xisl6Pu2JWUfCRSm7R+5c1ECVSz/aArvof0lttx6OSiBP3cnvlP/TMBojev2
8s2SyL7kOZTPJ2D5YwGE50jiXOFZHf1+AjeFAQvGxOej+eGMi/EDBEYetbso
+83H1RsceT2DBE7pKy3vapyPRe89H2sNU3M0E01MpLDa++tWxxEC3/SyPdXS
pZCb3JxxbJSA/T+5AcfEpTGhK+Z8jIDAjPSGZrNgaTTOsquKJQR2ZMpc9/wg
jalGmmK/jxFwEo0tb7NdgIttLoscGCcQs7jy6pUnCzBN5+SBDRMEHKyU6y78
IoPat6eq5k/S/qLNYtOvy6Dfz6/lDdRJeX9t9BeTxcy22b6zUwQKlp7w4ZjL
ou+/L1+s+kLAlve3nUmkLD77Lt7fTr3vRuxU10NZfFBaWB38lYC0du6m6TFZ
dNZ+3SH6jfb76K+pkwZyOOYnnpZAvV07KizESw7jpVlRct8JfN4wpN6SJYdv
Ogz4F6hb+zecSPgkhwfF9NbNUZt71627oy6PPYb8Dt8fBGp6//yktFcej1z9
qNtMbdNnYtydIo+3b24IMZ4mwMvxOTreJo+f73VyL1ILDi/btllJARUX3TrY
Q9032VEicFTAsPm3M4x/EtjtkR7VmaSAIj7K3CjqTueeQ1PNCugXliFTQ/3G
0tJulzwHR9UTasVmCGxye/tauIODfvqPIjdRF7nHp5Zd5uA382rvaOrHKdzh
siYOnvYLfllC7WdWDUx5RXQ1DKkfoTavdcrb5qCI0qP3ctRm6b5DOtqbEhXR
W8PrvA31qUrH6istirjF0SktlHrPROjzvRwlfH7pb9l0atUz5eb7nZSw76m/
eA11WNVEW8Q1JTxpDXkD1LEdO1P+blPCF7sqVCWFBMZMH8vMqigjyyI2agm1
yHpl68DdypikYzu2ibqsYbXf11RlrF8jSPCgvmdR0pncTeeK18N/p/5kxOI5
aqhgacP7F1eo63l8Nw13FTQ2KEnKow58f/ky85YKvl18f6qS2tlh4NHIZxWc
cPnCeEf9vdmyQ1SPix7L9r/pp368Zs6G583F1pMX/X9QH7teV2Obx8U+rclJ
iTkCGUJf12ujXAzaNHSUS+18b9qje8VCFCyv+qZHbVCxX18taCHWDTVfWU2t
eWJ2sU/xQpTqN3S2oN7gb3HJpHchfmtxsLWnNprqm45cwsMLtSTahdr+ps0j
+VAelke2sw5SX51O3tqcxEP9jcUd/tTc3y22eE3wMH38Lec49eyZjbWZK1TR
ofl16UnqG85/+vs4q2L+zKuWWOoYbUNPiVpVrFx3xDeBGrS65eN7VfHD5vXn
rlEf9pZexlukhjWLK4xvUGed3cpdkqiGw0M6Qbeoe9y7KyIXqWOoqbndXepR
0/LhHXfVMc2l9FUBtVmQcOnCXHW0Ys+MPKDmt6414qSpY+XrzWUl1P1qZw+8
ddJA9U57LKMuemxRFy2riaEzeyKeUR/Q8GqVnNTA2b/+CKyhls0jl7xyNXDv
+BHtV9Rse+YXqRYNnJnbdqOe+pmL/zkyrYH2L2a731K7coaC2bqa+O4yb6iZ
2rDBMd/UWRP/B+8c+ow=
      "]]}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["z", TraditionalForm], 
    FormBox[
     RowBox[{"Log", " ", "Pz"}], TraditionalForm]},
  AxesOrigin->{0.4545408453381372, 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.4629321938952471, 0.9999785015502832}, {
    0, 8.170369545557236}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.767399620410881*^9, 
  3.7674001246463137`*^9},ExpressionUUID->"776892f8-7483-4058-8128-\
1f1109454fb3"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], AbsoluteThickness[
     1.6], LineBox[CompressedData["
1:eJwVU3s01HkclUx2rYokPW22h9pewqI87nokhOOM0Gt6yAjpoRalEhkdrGjy
Ks8oes0qY49QqMiWR+22GUqzeeQ5/L5bjDDmOzv7x+fcc++55/M593M+HwPf
Y2yuqoqKiquy/kf/e/kHnmeL4bLuQFSlmgKRRkfsR1U6YD5qurywjsJ4Hqex
fVknYj7yzZlkiiW9K7pszLrA5rTuyvancPl0u/WheTdaUhYm6DlRyHaY19it
+gQ7u+oqfxOKmJlHPX78pgeCDqLGNaTw1hEnSlt74CYZzXjzA0W6mv4sn6u9
cDd4cylyOUWc2bEEfZc+6KCrzmINRVZ3w9u1TB9cmT2Vsp8ornhpbQ2K7Yf+
s6htj+0pztdWhtZoDSC62UhY4knBtStum80fgKTMefdiLoVvS8ZMM/VB8J++
3uIRTtHeln942i+DqCk0VH0WT5ErjMw0bRtEa4r/UkUWhcO2lCGeqQSikvFl
eb9R9HiwNmXGS/DrheR326opjoc9WDm7TYIi13/EVc0UmhcbhSFLh3DcS2Nz
eTuF22KLDvuDQxC079JQ76fQefI1cur6EDQtKpuivij3wTeaUn8/hA2qm2vl
kxQf79ebvJw1DL77ipV7pylgG5htlYlh3PTvLeWxFHAM3rCmOXgYM4sEC33U
FfjX6sELQfowPmu6Mo9nKLBjxjrrc1XDOH+XL8ydrsD+v/wEZzuHcW8QOT1y
CnUj3vNuVQaczkvJEVIKo3VlW3oNGAhZTou2DFJos7nHSm0YQJATvPYDxau3
N0LDdjII8ViZOK9Rmd+LK/Y+waCAeXm7t4yiQuDbciqegfTZaNC5PArK042V
5zII3COsr+BR3DrQ4Tm9lEGj+4WscOV9FJ4OWl30nEHeqfFXyQ4UtulJtxQi
Bu3GF+re6FN8f5K/x7CPwcihDWNzpXKc3+gtNR5jEF38VFX/Dzm+TeL6makR
OO+y+FSeKkfciJeGgzZBdYHO3nyOHE3aZ0XBSwj29eiFZRjI0bhA/9CTVQQe
CfUZzh1TcC+vXe5mQqCZwdoYeG0Kk+cmdi+1JvCu+T0kzXUKNjuMtzs6Evw9
R684eEKGdz7efg3uBNcXJTVH5MmUutaMh94EG5MjrR1tZKjayu7V3UuQup49
ZtsyiSzLbCnxIxAV76tsOTgJz9ffhbodJng0RxHgMTCBPMvi6WYhBBVllveJ
3wRcfaV3H4QR8M/UBopbxmE6Wthfe4bg7SpDA13LcUj08DA0iiB/vm5ARMpX
lHaJrzbyCKycOtdWi8eQXhCQ0xCn7H/x1JGd88dw0Kc5KDyR4OeKRyXRtlJE
aa+xFyUTcKK6T87xGUVq7KCG5AqBav52hHuPIC1Mzb0ijeBOQNYHntUXNNxp
cnC4SvA4p8XFmfUZFS8825IyCTI+uPXE+ChzT/gWZWUT1OakNb9jD+FLEFU7
kkuwol8rykTSj80jLizWdaXvtMz+mvLPE8NPhHHzCRKZTQk34zoQUfW+L7mA
oFx4qfDyURH+5Lnei71BUOJcn7pgWi1YlyWirTeV89jCW+Hpj2qYTJZjq5KH
5cavX20irpkr25dpWkhQNBDI4shITV3TCev9Su7OKYoZdFJ98h+VdX00
      
      "]]}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["z", TraditionalForm], 
    FormBox[
     RowBox[{"Log", " ", "Pz"}], TraditionalForm]},
  AxesOrigin->{0.4544709820642607, 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.46269354376152305`, 
   0.9889374923863206}, {-2.2856035504479797`, 1.9392920534104434`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.767399620410881*^9, 
  3.767400148815674*^9},ExpressionUUID->"7c6e624f-bab8-4256-b6ae-\
9d925f9c506d"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Reissner", "-", 
    RowBox[{"Nordstrom", " ", "AdS", " ", "q"}]}], ">", 
   RowBox[{"qcrit", " ", "case"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.767399464006617*^9, 
  3.767399464703699*^9}},ExpressionUUID->"9d46f125-7500-4264-a552-\
ab4a64ae11cc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm", ",", "zm1", ",", "t", ",", "fz", ",", "pz", ",", "B", 
     ",", "C1", ",", "A"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fz", "[", 
      RowBox[{"zh_", ",", "\[Mu]_", ",", "z_"}], "]"}], ":=", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"zh", "^", "2"}], 
          RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
      RowBox[{
       RowBox[{"zh", "^", "2"}], 
       RowBox[{"\[Mu]", "^", "2"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "4"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{"\[Mu]_", ",", "zh_", ",", "zs_"}], "]"}], ":=", 
     RowBox[{"zh", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{
               RowBox[{"zh", "^", "2"}], " ", 
               RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
           RowBox[{
            RowBox[{"zh", "^", "2"}], 
            RowBox[{"\[Mu]", "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "4"}]}]}], "]"}], "/", 
         "\[Mu]"}], "/", "zs"}], "/", 
       RowBox[{"(", 
        RowBox[{"zh", "-", "zs"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{"q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], "]"}], ":=", 
     
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"q", " ", "\[Mu]"}], "zh"]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["zh", "3"], " ", 
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"3", "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["zh", "2"], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "-", 
                 RowBox[{"4", " ", "zh", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"zh", "-", 
                  RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["zh", "2"], "+", 
                  RowBox[{"zh", " ", 
                   RowBox[{"z", "[", "t", "]"}]}], "+", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                  RowBox[{"zh", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"], " ", 
               
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["z", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "-", 
            FractionBox[
             RowBox[{
              RowBox[{"z", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "3"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "zh", " ", 
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 RowBox[{"z", "[", "t", "]"}]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["zh", "6"], " ", 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]]}], 
               ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["zh", "3"], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            FractionBox[
             SqrtBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "3"]}], 
                SuperscriptBox["zh", "3"]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "4"]}], 
                SuperscriptBox["zh", "2"]], "-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["z", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"], 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}]]}]], 
             SuperscriptBox[
              RowBox[{"z", "[", "t", "]"}], "2"]], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["z", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"z", "[", "t", "]"}], "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "5"]}], 
                 SuperscriptBox["zh", "2"]]}], ")"}], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], 
                   SuperscriptBox["zh", "3"]]}], "+", 
                 FractionBox[
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["zh", "3"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]], 
                 "-", 
                 FractionBox[
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"z", "[", "t", "]"}], "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "5"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]], "-", 
                  FractionBox[
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}], ",", 
            RowBox[{"zh", "\[Rule]", "zh1"}], ",", 
            RowBox[{"q", "\[Rule]", "q1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "8.5"}], "}"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], "[", 
      "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pz", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"zm", "[", 
         RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
         "]"}]}], "/", 
       RowBox[{"fz", "[", 
        RowBox[{"zh1", ",", "\[Mu]1", ",", 
         RowBox[{"zm", "[", 
          RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
          "]"}]}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zm1", "[", 
             RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], 
            "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"fz", "[", 
          RowBox[{"zh1", ",", "\[Mu]1", ",", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "]"}], "-", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", 
             RowBox[{"zm", "[", 
              RowBox[{
              "t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
              "]"}]}], "]"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"zm1", "[", 
                 RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}],
                 "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
             RowBox[{"{", 
              RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "^", "2"}]}]}], 
        "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"zm", "[", 
            RowBox[{"i", ",", 
             RowBox[{"1.8", "*", 
              RowBox[{"qcrit", "[", 
               RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
             ",", "1", ",", "0.1"}], "]"}], ",", 
           RowBox[{"pz", "[", 
            RowBox[{"i", ",", 
             RowBox[{"1.8", "*", 
              RowBox[{"qcrit", "[", 
               RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
             ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0.5", ",", "8.5", ",", "0.01"}], "}"}]}], "]"}], 
       ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"z", ",", "Pz"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"zm", "[", 
            RowBox[{"i", ",", 
             RowBox[{"2.1", "*", 
              RowBox[{"qcrit", "[", 
               RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
             ",", "1", ",", "0.1"}], "]"}], ",", 
           RowBox[{"pz", "[", 
            RowBox[{"i", ",", 
             RowBox[{"2.1", "*", 
              RowBox[{"qcrit", "[", 
               RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
             ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0.5", ",", "8.5", ",", "0.01"}], "}"}]}], "]"}], 
       ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"z", ",", "Pz"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], "]"}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.767399685119409*^9, 3.767399700847023*^9}, {
  3.7673997596604347`*^9, 3.767399763094284*^9}, {3.7673998079181957`*^9, 
  3.767399811021792*^9}},ExpressionUUID->"d2a44fca-b5de-47ef-9bcd-\
17296f09bdc5"],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.008333333333333333], 
     AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwVmnk4VG8bx+37PsbMaCNCRFEhLfejokWlhRaVrElki4qiqLQglLWSRMie
Nes89n3f1xn5kZQl+5K85/1rrnOduWbOeZ77/t6fz7mOtJn9WUs2FhYWaXYW
lv9/Bj3r0fme0Qtvi8m8vC950ORP8akDG/pggmstS9yOG9lWXTHWeNIHj9nG
29hOc6Gwtg2+UaN90PDUyKV9OydiSLEd1T/eD07Rn+n+ghyI0yQyTPBLP9TO
6tXs+smGbCPjyTEcA/BtcReuLmFF99JC97ddGYBilohvhm9Z0A3V+7UXvw6A
QEi3dSnjH8QeKdkwzMoAfz9Pvxnvv5CX2oVlTzFAQF5/7rLiMqhGOmnkBzOg
vrsnWbpmAUy/5m4+3MWAspd+bs7X58Dt0fW1L3xM0Fto8fJZm4bN98dq9skx
4fjnpFNxwVNw295q18cDTBBEvNMyZ39DoNstkbfnmPC99A/fPucf8FY59sW0
BRPcU1j2nXz9Hc5LO7XecWLCSkn2sT1GvaB59hHl730m7HC8G7XwshliFpjH
zTyZIF4yJqf8vQgitBK8Q7yY4HBL6Mn2no/07Oi1R0EPmWAsNK9ys7+SvvMU
23/X7zFhs/NT2xV6O92ExH5H7hYTFPwGDxr5MeiMVy92L15lwtRC/f3AhP/o
rFUmdD49JiQXJ+3tffmTXnmXYvZmFxMUrXo+tF2foAtm7D1YK8mEha0mGwY/
/KFnBjR97l5hwAeOQwHe3LP0wP3q78wLGBA+9Y0mfmueXjXkZBl9lwETJ8r+
nGhcpPcFbHzLqsKAGJJUxaryCn24/cchBmMAhj12dSw/X6VzMZRuBfsNwONL
s9ukmWt05wBuWReNAbg/UX07gcaKX00wmir7+yFSZVkVabNh81seRY2P+mHl
hLNv9XV2HLiFVFAl1Q82qxyP0EsOLJNQUTVa2AeWZdvvf0zkxIY7vApNLvbB
glMF+48aLuze2ThxZaoXNmk6I9FRbiyh6F7K6d0LV/gGJ9az8+KPZeP7HtF6
gY+c+5p7PR8+tG3acSKhBzjf/iuqV+PHz6ov/rXX6oGQ+d+FN48I4NFhVqPN
Vd2wYrDa3HlJEO86X3tQ2qAb6kuutfPfFMK6vednvQe64KQcxXz5rjB2cbR1
sbXqgq0Rsl+qtUWwLN2h+edEJzz8yrlkUiGCrTvKT0q4dIJ7l9bW7GOiWHqi
OJxnuQMGkqiSubWiONnrzHKHewe8U5gmnz8hhmOOHHQKZemAZwNCp1xqxfA+
0sSPa17tMNx4Q2b5KAmz56kd02Vvh/rtmzxKykj4RbdHisnjNrA9qMAWe0Ac
Pz6W5V7O1gZZEyISLtniWHusxM/HsxVo1TubF5TI+P1IiV7NWgsc2u/+7fcH
Mv6hfvN7uHsL/JOLD+QWlsAsQ30WpJVmsLpZuDhxXwK7i+X8O32vGY4k2rvt
HZbAZvdMFOzmmqB+tHn69nEKDj3CP/zMqQmuaHrsF0ik4K6u3QJujEaQqxcI
NOGiYt2vIX+v9DTA7nSF9vTLVHyC0+TuWns91FHiHm5JoOKZrc1qKS118HCX
lnj2FBUvpOdnFTTVAkPrgJymCg1vOM0a6N1UA3d1ObX1TGmYrD+c5dBSDXxy
nfHnn9NwZRDLll8dVSC7/rWGaxQNf3ERrHUaqITG8KGcpwk03FOyUv7mZwWo
9nB9HP9Iw46Grly/F8thysbHPMeThnWj+mVUBMvhvm65jMsxGlbt1x+SlS+D
kLzPI0qzVKyu1NycfaQUhP7UL+m7U7E3nW/rmH0JWOm9bqIzKLj1khIe/VgM
DdRHX2rJFNyUFebF3oehPNDqxzGaBKZkm3RnbsawLXTqS/eQOG56Yc9/cLwI
xpU7S8GehMdr9lyTyygEGTefJdZsUZy2LUvm19sCGG8VfuV2QxifGE23847P
B1n6m0SzZj7say9n+B8jD1KTn/vWE/3g5B/nl3Q4D3xf1wWc5GLBm7bYvVzt
zoX/lin+8zMz9OHVZLLcp1xQW2kxNDjVT7d5liV980MusB4Nduog6syi0zWX
0ZALQYdeyZ1VnoZmStgzW7U8uBGCtrMb/wO17MKo/yryIExqPc/sfxzo12Qa
56EX+WA/Um07toEPVU0c2TnpUgDZH7k5uqqF0NUy9xm2F4Uwulg4p+4oijhr
jr/1LioCUVi7HLGLhNSnbt3Q58Wwsi/jdEa6OLpbtjesHWNwSeU9UzlFRkXf
L1UpPSmGy17jv9nnJFDn8lH/5jMl8Fx0eKaunIIk/Q6qOSiUwsuTccWG1lSE
9ynd7eIqg3uquoVmw1SUOSRwdO1XGSzd+OCqBDRU952rdamjHJ5pjASevk9D
OfsKI5YqKiCif/giI4KGpD9kVB/Nr4TVisiJywk0tHc1MEk3owrkrmqWNUTT
0LLeXJVFSjX4bmIKtfrSULLF0a2ySTVw4fKV/hgrGhLSn5YgJdWCjePCdhV1
GioZe7WlNrkOlpzkncSWqSjfbMF7Mq0ezl3lGv6WSUXFEzc+KmU1wJH5kwaG
VlTUWqjcrprXCOGNdz9NilEReUUC9V9rAo1oRZ2b3yjotQfHy+LvTTDMU/rl
2UUKYj8zkRxr2QwHBZoYEzMSaJXD38Z+tBk+B0UFbPeRQKk1FAkWmxYQCaav
lG2UQC71PoYHxltAJd/0NC2VjIy+KU6L2LeCNw+f6bN9ZDRacvLTtalWaPBV
KrxaKY7uXcVMMcc2kLxtiAf0xdHa0u5S0p82SEt5rH64g4SmXwh06Dm0A5d4
lWaREQm5MvsXYiba4XT1+rg7/WLojFO3Oq9tB9Rom7AFGIuhH4l1yWajHbDR
p3dKfkAUVfkqmrwz74T17Unfzl8RRVPsP8Uj+jvhZnFI3o5uEaR2ylrlzPku
WM4XdK0wEEHThq8efqzvgq9PdTuOfxBG7RbH198+1A1pXeEWaQFCKO337i1p
Od1Qa2X4quGRIFqnsOy7X7EHDr0OXvtqJ4BochIda2974NaamruFET9KN71d
1c3bCzGrvf2/D/GhkLjZ9Ul3eqFbYvv500q86FmD+EbDwV6w4bm657UID/qj
JbUv7VgfNIYG2mTNcKH7m0KCglP7gLZjjaWgjRMVvJK16Rbrh9heE5f4DA40
M7olWO92P+hzWdxyD2BH93ekdGc39UOjoMhDsGFDfGeVjzEVB+BN8AWz2UOs
qH6S29/bcwD6s6c1oiVZ0IvTRfqmbQOgf/ZFV8rAKqybYb6TkmHAaVmPwb1P
VqBO+KK/7S0GUKSyBUXkloB+RASG0xngGqy8x7BsHqJXrdbLzDBAntdO+sC1
WVCUsVrplWBCr9YDTs6FP2B1VsyGqsoEU28VayZlElRzflgJHGXC0vJwS+i+
MVj9r+yex2UmTKbtFmZcGQa21IUQTRsmDEgYDTq6MuFD5RV2/rtMCCvQ/aQu
1wmabXq7Gj2Y0KVpmlqZUAPWfJ+8bhI8c7PtP7xXNAlKMy23NRG805Ezbz2o
m0tH0V0X2NyZ4PLhT5iTbBO9pv/8D1FnJmAXWZuDs9104UopuQ1WTPCar+L5
xhikF1SUvDx5nuAfVwdXxZIRuvkW2/E2bSbMT+7m/vrxF30yTSBsbCsTnDju
fT22f4oezq3yrEqICXfy+ZlBcdP0b6VmSmcHGaBQcctiSmiOfpp67crLSAbo
VmgKkW8v0CcKY9bFXmSAvfdrkabWJbrm8uN2PkEG4F1PlSZ3/KUnPh7ZJlE4
AMqtUVx6L//RJ3SpuRusByCjeyR10J4FnxYT32kvOgARCsOekWGsOL++Yeh0
dj8UtOw2MqSzYbstTXvYLvZDvfDtmZUhdnwsOtaxYL4Pvuveprzi4sQ7pgtR
xus+eP0uiMIjz4WPWqm7k7f1wVcSh5KVDjf+oj6RJ1jaC2YbSaJfTHkwdStH
X8kFol6j4q/V3ufFDiqf3lwc64Fdzp+Ma9/wYb+y6p5Jtx4467KX/PkLP74v
EX4xjrcHUrUt/54tFMDFStZF70K6IcVB0qy+QRDzvlCnjUp3Q/N69xbeASHM
rIuhxSZ2QcVQxvXlMWHclt1xbmJnF5wX3GtW4SaCeU7Lu3bldUJxwWHh9n8i
2LFl3bP7qBOELeIL3nmKYpcfin/Hyzqgbm+ZBTe7GDZTkljWOdoBMlffPeV4
LIZVypOcw2vaIUjxp/RdVhK2/Jih/0+vHbY/HX9+0IOEQzbcfv6yrg20ZEK7
YYmEg1iXzxqcaANOuzg2XSdxfCfc7aBTbSuEKqdEbPopjp3+md5YOdYKt79G
mb+5SsZmTtoPuatagL3NOvJiIxlLN9YKpeq0gNfyl29SByRw4NSLCP7SZrh1
B0m9+CKBOWLf9GugZnDa9HRRTpSCrW3ExvQLm2CtdmnE2ZmCo0J6PR21mqAw
bQy+t1CwH9n7yz37Rnh2Kf1BgRIVP+VnzY652QAUd5tBTQ8qZhVRtE27Xg9y
B6r4blVTcSWL8bFf5nVw6npf8kEBGibV3tuUZFYL9XM6z910aDjnENeFs+Y1
INt7y+zdbRr+xWizPHK9Gq5KCiZMBNHw9I/sUBbbKkg4MeZ9J46GQw8ZkVhd
KsHiiqR7dzwNf3Tl3t/nWQExTOk3piE0HDz4zUPzTTkI6d/LHrKlYeZuZNzy
pQxu2btJZinQ8Fn+GLFHFaWwePjExw/lVNxx9MiB3WMlYMbr3t5+gIrPS1mN
c0mUwJvvSsMLryj4See04Xa9YrDucVTbkCaBjeW1lkV8MJjr2jn9fUfGI1+W
3juk0CFGRG7j7hPieCbpS26WWREINCZoVuWJ4USjrq4Y9ULYlp8/XvtdBHuu
mqhvUSkAUamw/3K8BHFx8Pp2lZP5sK49NOBGMg8OnOi1CgvNg18Saorhp9jx
fqUzIZ0ieWCcElidOL1Mfz6RKp6XnwsZXqKxvtvG6Y0D9lab3+bCwX2yD+z0
C+lf51B4e1Iu8Kdcb/eaHoa3MgceWc7kAufa9bgJtwWQ9JhZ3GebB+Tn0Tk+
qaxoIdWbp1Y8H3Rrvbr91LjR66iOmJKf+RDkH7tks0MALVd5dpr+KIAI2sfO
3FMiaNn9qGEmbxFMij+NeLBXDEUPPRmqPkGH5OUnse+ZJHTrj1CZ3XkMXfoN
gy8PkhFbqoiABqkYknf6lPBbSaBzywomW3qLoWYz/bOTAQWdyJu6XJtUAp1t
J6eoolR0+I+I/5B3KfT+W/7KHU1Fr/gs0k7dIHjmE4dhtTANFckK/BU+XQ7d
K883G16hoTtE7R3bXwF8F7a84fejoZCXB/+pb68EjpaS14WfaWgpTqh925Yq
MNJS8/r2hYbqGyP2v95YDT+u5u1se0dDXjuPpDEka+BhHvW1pwcNuRs2yr+n
1YJpuF155zkaUknSWjWSrIOeV3v0ojbQUFI/v3je+nrQeZgYfL2fikgVu/RM
pBoggUruvBtERePu+xX/yjbChOLYtrlDVMRy8pmJNLkJgqhpWe2/KahH8fql
hdAmqAjw8x/3p6Cg7PR0hmQzvK/wVp5RpqDYSopcQUQz3Iu6grwqJdDz/E4F
B6kWuK00mLv5qgSiGUfGMj+1gN3F0Mu6k2T0JLO1eka2FShPuwLPepBRTXVn
eUBsK7g6aTW85SOju9GjCZHybVBUatdkHSSOnu201eKNbwOzmCNlf9eJI/Ll
78XZ8u3AHUnXfBlFQjpq7bOBse0grWiccGALCT1N6K15IkvwjBnznHacGLL2
fXfZNaoDFELKhNPlxRBfm3fBpQ2dIGk0454UK4qkqJm9wmGdcOiyA1NXVhSJ
xWwweipK+GHQHrGgjyLI1pdqFv2iC3DuM1L0OhGEG+luZ1m64c/xOXMWJWHE
3/b0vJtLN1wx0ua9uV4IXRAXec/6sxu45miyr/kFkUpoR3y9UQ9kvdQWe7LI
jwzeyemV1PQAtXD7waNDfGglWsK5WLMXGuUfFP1Xy4ski0v6E2J6gXpv98jV
dB7kqioff1moDx5c28CfE8KNnsRdGkl26YMLHmMXp+9xodgNwVL3evrgfjz3
H9FLnOgEdi7y3dcPq6ey+akaHOj+KRb/3Hf9IOUsYslDYkce3yqnKxb64dSu
msnR36woVpB05u7pAcieZrtaUMaCVDjTLL0/D4CYrdkZud1rENnVERc/PwAC
p8yCh/r+gq/wTNnLQwx4cskmvvXRMpx7kmjR7MMAydYipfXSi1C5aqxNa2QA
u+e23p+FczDjSf/vPhcT9KXLD9++MAP3uHbv89jMBBOa7Z+F8Sk4wz/58tJe
glf21689ZB8HLbMJr9bTTNi931ZXS24U3lYeaM4wY0JqQMP9lsNDsE9GuKzC
gQnR6YV7qbgPjER1djHdmPDiw3e7W39aoHhir8XAIyacEby9N/NACWyzwfZJ
BN8oGe/OZ/P1putmuI0dIs6zO9QdnRcup7uXTJslE5zUWsYenXCpjf7+7M2s
NTsm6FTYb8+QH6Cby0kcMTZhgszk3OMdi0P0ObKB1/xJJnwSGInn7x6l76gN
mvyrwST4M8QiIWucztdmdCZhIxMsVnuCknX/0NmDtgrtYSP4pnj2YVHqDD2O
P0ahopwBN1Tm+jB5nq5TccsfezKA7cV46517i3T7HU0jNZoMkEvU35jYuUy3
319w4civAfDIPpapunOVznk0TCwgfAB2Zvw8M/JyjR531Ehn4dAAPFNx6zWc
ZMETj3VuVI71Q5VpRs1uChuOsX5AP/SqH2a939vw7WfHsnv/rcWr9EPIFd+b
dSYcePp34IRyXR9sOHRY3c2LE98XHqZwWPVBsfw0U+ATFzZALTYX13qh6PSV
iCd0bjxS1N55LrgXipnGnf09PLhEO6553dZeUD3+eo/ELC9+4BbV2pLXA3tr
uPmV+PnxkyzOurDjPXD8kOZ+ipQAjua1eeTT1Q2o41hqm5og5j765b8Ki26w
m/W9a3RICF+eyrSynOyCwxeN+CLOCOM8VvY9j+51gUbD4y0VKiK4Q/fZk+0s
XaBSJ3bqZYYI7rrUGP/SuxOKZJ0vC2mIYkOlBqt4/k4wtbD8dDBXFHOJS5Ei
/TvAf2uHsLiWGG4tjM98ItYBgrRQI5tcMbxTKXCXfVA7TMzSErZpkHDXj4fu
zuR2cNu4q0g9g4Trb6RFJgS3AUPzm4yZsjgmqbfOyJPb4HrBe5NHn8VxzfjD
A+xBrWAabVVmtI6MF6O42s+JtcLc9oYbX1+RsWtycplqQAso6nFw7lkjY3lf
jdUswRZwfLrx9TtbCezgO+++/LIZ1umn9Dt2SODTPCmvJHmaQfXz/uAj+yhY
Y8/JabWnTcCo4l55HUHB4o6+u83YmmAve2l0+hIFXxecmwpcawDfOEv53/pU
fK/oY4D4Sj1c8wp0so6k4pd5lZJhC3WQ6sT2R/EHFX8d3yZgP1cLI/ZfXvPL
0fCOrzcLZmZrwKHZd0+mEQ2zKzWnvJivBme/t2MBj2k4nGdCNXK5CtJmjiw3
fSDOC20/kMpaBeB2V/lkAg3HF2tGHBKoBOeeI4IvomlY5rbB4wXJCjjOJ24a
8YyGT6jPWLqplIPpcJna1nM07CQeZ/7mSBkEfG5o1mWj4dR1Fu2yVqUQmm6v
6BVAxWGxeso7XpUA+6PMgvpFCr6ld3S5u7AYzpPc/Hx2U/DnTIXrtxYwGG/t
JUcjCazG4Osx3ofhwPkHnlkkMq7OGrkRvp4Op+g7NNziSXhqSKptqb8Q+jaM
GesvieK9j5oXEnEBvEnaa8LLJoI5Yx5ZRVcRPCF1YP6XJz8+fk34R9NSHmyj
T+axOXBhf+e8xZ8X8uBVQtPne70smOrVyLFlJBc+DXscqsqZo4dnuDyYjs0F
+5l8tzy973QXy+Ma9He54Mj6+kOoST3MF986XF+WC82CB4rkLKbAYftYwDbp
PHiT1X3aKvEv6AE+0J6SB34dVjJ+6zhQGds6xf6b+eCX93UswIoXyagUuhWc
KQDr0ZTJXQpCKEX6rXjQtUJ47XKyfFJRFOHtkpE2AUVgK/D+buCiGJKNDHls
yqTDjOUACzwSR2+yexqGP2P4z/UfB6WSjO79zZH6bFUMrDMhxdtbJVBg38/j
oztLgEv7+/PfCRSk4df57SxvKSQp9rr7GlCRN1mxMHWkFJI3RnKPtFORW/Un
w8maMrhpaPxPZxcN+SVoGGzOKgf9/rhQM2casgjxtr8TUwEfJsPeXX1LQwMx
P93VwiqhrHL4dz3BM0PFd1ky/Ksgo9Izs47gHWW7ekGrl9Xg8G6KlyOQhsKS
ILL+WQ08Hk3zLbhFQ5p7ZrRuP6uFyl8G+37tpyHvwL6Zyed14HVu4+Q+dhpa
Ez2VOexTD2TXkF9SdCqadyfV/PNvAHVt+9ZmJ4Jnbu9J+B3UCJ8ywi2vbqKi
IRYZp50nm8DEXW5dYjnBL687NpKbmiAwNOqj53UKekuzml852wxBvlXpPmwU
5Mze5FrT3gw9MZB/+a0EsrgiXGFxsQXW9XLbOqhIoIqukPNpPS1gMMm8uZtO
RgtBOvVvrrQCU/aiD89JMkqLdy+e72+FgAlJsT1d4miY7UFQsXEbuN9wzOM3
FUeGF+SP9g+0gcyS9ETeDxIaCNIy2mncDsxXxRb3bElIaSo6MrmvHaQM85Pt
JsWQ3si8tLpRB/gejDpf7CCGAoPP/c3u6AAWCP78akoUaTUXa0ie7YSck5bR
k3YE3zjsjz1W1wmfJoUVln6JoLPV43kqOl1wf0pgf4GVCLo2/O9aekEXTF++
E+FXJoyYq4WVBWrdcOyvV86RHCG0KD6iuTuuG947n1T/FieI/BOn21gle+DD
h+nTv4MFkLKqygVunx6IOb5kOOHJj65dTalVWO6Bm9FmxuU2fMhBfH7vEate
OP5dZ+jOOV7ULBd5RrulFzKdDW249vCgcz80fk9r9cF//679uLOeG7EEOSfs
iuqD/Tse+9SscqKRt3ctezn6YcsD6nP2fg7ESIgJy7HsB5aEPYayeewo/H12
Z1BpP+TUCPurBrMh3sUnPHs2DsAT7xhZVTtWJPWyssbcZQCG/6zbp6DDglYL
NjfUVw3A9LCj+/Fd/2DPTO0BBSoDBqVj7cx6ViBK1MB4vTkDMi5bvil4sARS
os4Wel8YoOzUweu5bgH+VXyoPzXGgO4YT+XB7FmIL5L71CfGhIM/P5yh6E+D
2bXj23yVmbC+R3+xrmoSBNlIYSuHmfCYWfZ098QYmAmEyvy5yIResf0CJOER
UG6KlVK3ZoJpg3+A1LZBmN+5tSDchQnFf2cE9H274Ehy9uSMOxNon7RHJu/W
Q75O834FgmeMuTXODkZnwDv9dy3yxHHmVrw3LTGDXpcQljpNfF+ginqk8349
faO4d2Io8XvfZ/OttV910Q83ROvuJP6Pmx5OoykP0m9uJciDuJ5XvGpZfCIj
9HEutiMLxPWSO/wZSpNjdJXUhB3PiPt5osftUFI9SU9WusTdSdzvwNR4ZaD+
NF3dzdHhILEeb5jP9S/nzNLPzDjP7SfWy+uJdOTyugW6xBGdaUFiPb0HcyJ2
uy/RhSoXRqnEeiv/eC7e27NCt9wr8bGQ2A+BQwy9kl3/6L827Ws7S+zXjgtU
aUsdFsyrt3BBnthPn0lRM1s7Vjy+Teu+F7Hfsnyy/bbBbPjkyTcRMUQ9bJrr
PGKcx45zPaRaKol6kToxGr2/nwN7fkvxlSLq6WVYrzzHP04c/IJxcoCoN029
VsG09dy45saPPduIeqzOqkiGPTzY4ppluipRr4GPuj1Sz/HiPl+tTjGinj9p
09NXbfjwc03df1Mve0DjW/BeOS9+HC9oveEXrQfOVU/1yYQI4DTqU4WNRL8E
Ob5SmowTxCyH+8w/E/006aJ+wiNHCGtrpyS/JfqNjLhySsuEMX/hZJEE0Y+/
L5yR6LQSwR/HzCxViX5NfJATTfotglvu1GezEv38dWP8D157Uay1UAQfiH7/
oKxuFj8lisdaLqtsIPIg3kGH0usghrf8M3MNIvLCRJY979mkGD7a+Y5TksiT
+/2WToG2JNx8vLu6lMgbJ6eac60/iOPgd1NxRB6JB3PVy5iK43/rKKt9RF5d
SM3MP90ljttXPv52JfIsOD3KdNNJMtZanTAOIfLOw2BE9gSdjPUsthYeJ/Jw
995FnycqEjhip8b1NCIv+yOuuDq8lcDc+ta9g0SejkWXCH1ko+CRBDrrSmMT
jChc4g6+TsGT4SZGNCKPj8dZHi0op+BTGdKvvxF5PZWXds9uExVHl/N31RB5
nj97Mo3pRMVl0tfnvxJ5XwYFT1ToVJxHcnIvIOaBxzkp26PsNBynMSyJiHlR
wcPnOrefhtsevx19S8wTvpMHjMpu0fBmWnTXLmLeuD7f3cYTSMM9/mIWnsQ8
srGy3tXwmYbl1wKCWYl5RQobU6r7QsMG1w8Z6RLzzA2LtF14S8MR/sk7ZzLL
wQ5mv19wpmGesUL9YmIeakzWmqrvouGDVldXvYh5uXiaUtbYTsWsq76O8sQ8
3XQ6pMPOgIqbyfuzi4h5m/+WeaMigYIv6ws8dCfm8edISzGWVgnclC1rjYl5
LeYmp9xXQcZ9MlIt64h5jtqmmQsPxfF6bpNcJWLejxxfv2f/ohhWmg/ONSJ4
YGeZnpefoigOLnx35yXBC21tT+LPyBM8vTncIIPgCYWkK4MB13nxJdODxzIJ
3pBWGrt1W5ID771mLk4meCTk9cFZ7i9/6cNJUw10glfMR++kxJlO0WWfbFhf
QPCMvV503+YT9XQPv6iWJYJ3jM8Nsjef/g7+RVpR6gQPid1wGDqQNwfKH97d
5byYB68T/zyL6mNB/sWkzDmCp+RFHPVJjlyo3LC/tongrRiW55eYXvzokVzQ
tkGCxyJFVoec2URQkaS7sPpAIVjbfzdOWhJFm2j0oV6C5yTjYn9WxZPQrJpa
txfBe3tlHW8skMjoGl2o+Q3Bg3uKK051Iwk0+t9jL7aiYiDftbqZs5uCVGO2
vjIieLLRMd57apGCQsf7mk4TvJnF9rzkfQAVsXXtqsQEjyYYHXtixEZD9sZb
V+MJXg18dkRU/RwNTe9olpZfVwFeSfU+n5/RECr2lHEmePfNcdEMv2ga2vc7
+gWT4OGLOLKa4GH01jBKvpng5cMHPR/Wf6AhVtdItQKCp9n4Lrn5PKahgOq1
bLm5Glh80/w3wYiGIl/Qb3wiePyra206ixwNlf50KKsleP1lvNrQhh9UdHXn
tztHCZ5Pj9nx6lIkFckzHVkqCN6/lZgm2adPRVXRonoPCB84lvOIJ3KJgjQt
KwRPEr6Q6RO48DCCgkS5JJJ2ET7x39iGJ7v2UdCC4pUwcZ9muD6tI3O1QwJp
6goINhE+IhkuxettK4EE8q6X6xG+8vsBlU1mjYxKH1ThW4TP+PicEH/7ioyi
c/eKbCB850vBKYlD68jIcC4/VpvwoVFpN90bn8VRj+227WWEL2nS3z48piyO
Wns2D/sRPjVXy5u3IYOEnj75bv+c8K0fg31mJA0Sejc4UhRB+FhCxb67Z3LF
0N7TWqM5hK/lvHLnX94jhow6N7MXEz636dh1U4VcUXSGrMgVTfieo/6vLzPq
ouhs9u7II4QPyjfxRthniCDyv3sCYYQvjuhd+pugIoKSDfZOPiB88ge39Ivr
Z4RRXJTEugHCN3dO5bjJHBJCL99TTT8RPnpMLU0uQk0QPQhYPp1K+Ko+X/BD
xiYB9OiF6sIo4bMpA6Lm03z8yO1bpJ8q4bufDaSL+2d4UVH6sKw14cPHsn52
RffwoLyJroO3CF/eXB6hqkfnRieE8p2ohE+vb49XbYviQk+xbrk24du8X1Z5
kBcn2nTtg3YB4ePY4afbaxMO5OW7eOM84ethfA9qG/axo6fnxm92Ez4v2OJ8
dVmCDTmG2wTxHB6Aql+JVymTLOjPTE/Ex/ABGDUxe2f3cg06p2VIF34NgE3M
cNM3tVWwiu4o7tZkwD3DE/mqncvAHR5yt8GTASRNpLx6dxFaf2zmay1nQJE6
pUOXPA8Pf61MHWBjwieDg7TDqTPwrWr9u9SNBB/oP09X0/0DEy/1glg1mZD3
S0I1I3McTnVn3Fk+yYSdfQ80SV2jEGk78dDUhAkVgVdn1ReGYP7UXQU2eyac
lgmBoi0DwDr1jTvVlQnnVu4rZl5oA2U93rzDj5iwaV2hFKdAOcw+X7v+/+c1
W3dzPp094Q3/Cta8+onz0Tu2pccdLKFnUTXdB9yYsLhl+LHFTAtddDR+f5kD
E+LYksMES/rof/KKHqeZMcGscmVfnc4Q3STF7F7jaSYEb8t6pSY/Ss+pdWww
2MsE+bN2cJdjnL5kzNV9bzMTmm03id2emKJnhw6NuHAxYWY47N/4hRn6EXqc
nEAjA8I/n503L5qjV00aolIfBhjhp6XB0ov0rdu5E+8fItZvdJ73pOcy3VXt
V0LY/AAsSfKrXen/S39w1CfE5fMAXDJa0fiwe40u931zoeXpAYjikLBeLmPB
rsXXv2Qu9IPqUN8R2XFWXHdnc0Tsu37IrS1WPUxixw/D7qu57uuHoI+kqDMa
HLhw1v+veU8ffP23i//EJU7Mt1V8X7hLHxxTbn+i5MqFqy14HukK9UFTmP3V
qRBurGF0CIJjeuGfwkbe0HQe/OKY2vVEzV7IGW8+uaGOFycPLLcl1vRAYjaH
46MhPlxx2bkp26gHbrf3VOYv8uOAMg+rsdFuMHu2YlnNL4g/m5rWmrl0w9N1
Y7kf1wvho+cVPmixdIPgA/NadSVh7GD0V9PnRRfMXX7NVrROBBcEmf20FSV4
Z9UhN+WjCOa+LKGwENoJxpsaT5jKiuIo9qAatKETThrPvaiIFcVJz6e2m0R1
ADzuGaqVF8Mrm0etbWQ7wCNvItUoTgy3G+wyvxfbDjv8rWsubCHh5/KL7BHy
7VAc2lTyKYqEG+ynDSbj2iDvfb04eb04Dpy99OmpfBs8yOO76BkkjsNuKUXe
iW2FJ8l/N6TzkfEDRt6LbtlWOCWm1nfDg4yl+u+crfjUAspvdM5dmSRjw+G8
ckOpFhDatfJI46oE3pGanBsV0QyOvzsiQyolMGeS9cFyyWY49eKDK5cKBU/L
7v3VF9oEozGss2v+FOyRObLMRW6CBV5R0o/fFPzpPq97pWwjXNA5Lsp5mIoV
axdrlaQaYEJc/IR3EHEc+bn56fp6iBx1PHC7n4pfP6XzyUvWgXW+6XTiBhre
9i075AatFtYcAo4zz9GwiKN/aJJkDXBybTj/zIOGKzRd069trIbDro6One9o
2Hd4fnpZtgpScqWkvxE803BxjMG5vRKe+5Up5hG8Y131k422vwI68Eo3ux8N
r9U4VzL1y6G+WvLvkSs0vNNYNl3qRhkwt56xyRamYR3Xv3+yvUvh5ObErPFP
VPzoTP+Fj0klENSvnzYvQsULcfo7//YUA/8uyRtHDCjYz8RkWZhUDA8WVrQ6
rkvgz+X3aMfPYwjaZzx67CAZr/YWc3qfoIOixNj8KSYJt/fcj7vDWwQH4yft
pfeK4WdCTlJKPwqANfTSTf1TItii0CTtzc98kE6173XdLoDVWD9+iBHPhzBt
S9+Hqtw49otZ2ybbPIhWj801T2HFC6/Pw9mZXDhm6ddw594C/dyxj4l1Sbnw
bKLhpsX4MD2+Y45V9m0u8EbuoZfcI7jDu1mxIj8X+LQOQ6TqOGi/zWWOi+TB
rFvbAercMuib77f+FpoHfyYT/XL12dFsH33kwsl88I5csbNL4UER2zeGn1cp
gG37q7M+PhZE4V2+pf3qhXAvrpHocRHUlR95ec6sCEwvWM9tzBdDt7MjdmWn
0MH5uOUGjxPiSMbgjqW6D4b58LCbe96TkXdLheAFvWKobinbqJ8mgX4OZMbu
kCiBKE3B+k3+FDQ/bJZjMlYCmll5ubMHqIiaECacXFEK/L63J7PKqcjGqTqR
JaEM4gfXTpcr0FChUtK41ZtyiDNSbJ+wpaGM6f0JAl4VwN55OPFGCMEztDkj
NZdK+FR8G/fF05DRTqf3arZVELUkb+ASR0P3rx7nd7teDR8jR0/9CqIhpavH
Hj81r4FovppnQbdpKKd2SyHDrBb6ku2lHXVo6HbF04ObLOrAbOF3mIYADcmy
xqb8d70epLa+t7hWTUXf4KNq980GsBcQVlD0oCIlr18nku0boWHkQmKiEhVJ
Dv9j+Gg1wVNlAdTUQkEHmzfr3yxsAlbzAW1zZwr65h946CxqBpsE7iwxUQra
k1W3uqW0GSi+g+wuXyTQ1h5Vi2odop93ZoryH5BAA1H5pdJVLfD4rzHHoUYy
krr0JpR8vBX4bAvOPbhKRnVWfed9a1uhfuBVO89PcZTjdPWo3Yk2ILG5b1Nx
EkcssW8uxdS1wZk/U2PySySU4de2SDnRDq5dY3+2epCQyO3MqfSaduiVnis2
ZiWhpbkwnWtHO6DesFvrl5cYsnzKJcZd3gFbXz54N8Emhu76/TEPQp0wfZ5d
xMtTFM3cfEf5k9cJ640MXPL/iSDtRME0rl1d0Kt9+nSSmwgyNv6jXJTYBeEv
d24pHxNGtLZS5pp0N4DSc722fiH0iJVrV0ZIN9xhbrwc2iCInjuN3yni7YHQ
tA1J6woF0LcPd99x3e8Bj9aMxVtfCP7mvfLHbqwH1rXlSb95w4dK2gcbuy70
Qp1zveOb+7zol7XJAZnSXljgmxi1N+VBoUavnitu6wODOKajig43us6G6ipf
90Fbc6xFgxwXCkmMd26a74MZTqEiAy5OBK/aE8kX+0G4ucS4ZIgdbQ+4lWue
3Q9aBwXWraOzoRHNIhNP0QG4ahslZRnGir7sZFXbbj0AYtIVLbH2LMh+xOK7
XOEAUE5IJLe9+AfHym2+SQoygH06TOPejr/Q7ikgmXWRAXpqWTcuti7BY2UP
87BIBlgdX55977QAMa/6pa4NMiBGu+Kji9AcqN/a4NAgxISoH08118VNg5Xu
6NDkVibE7u51adw3BZ5/l/27tZkwF9K3lhv5CyZs2u+eOc+ENGlmSgt9BJLP
UQ2krJgwelhkkT4wCId/bj4l7syEWunPg+emu+GPTN8kuzsTOPae2/BocxM8
4/ea+v/7NJV9F4XIkAulFXcd/v++jW9XuHGfVBKdP/bZiQYPJnR8FZpNTamh
2810H+O9y4SIHIV8RYVOuraSvpi6DRMEmLZXbNyYdBXPr6r3LzPh5ofLkZ1X
h+muZbk3eI4yod0xkS9g/xhdV2OoiKTKBI/Np5Q6qZP05Pah5A4JJlxK/yr0
aOEPnWVfgSFlhgGqAiWh367N0m9+vWfelc4A+rU8zsayeTq/zstM41sMCN2u
1vBcbon+21i7Q1SGAf5/AkYynqzQdVjMv55pGwDfwzYicoxV+o8hOYU7ngOg
UR8TPCDJgqUCpbY2Kg7AQ7kUnu2HWXEz6arQ56Z+8ISTXG42bDi3QF1xz+1+
4L0ZHZcTwI6XNDpsKsT6warAT+l7Bgdm/z3N55XaB9ldji5zbZy4t3Rtx/tj
fbDHceOLiRku7GviH44Ge4FF8Bd3rQgPZii8lwu90wtbNytkPlfixfd1tluV
8fbClG/PD9nDfPi83xWRsbc9oL3nGu29ET+2V427Ia/YA0+u7Dj2004Az1v/
Fxee0w1fx20tOD0F8cZApHflUDesGyZ1jgQI4eCtQ9de1HfBRIo5fvRBGGvz
rJTtOd8FY7a3dg4aiOAbX62uP+3vhJbdajv0ukWw4qSi42PzTuBwHxx3uCKK
50wKvI6PdoBWhUqb9oAodscKbVM2HbDxX3HMF2Mx/PhNo6nvRDt83xu46t8v
hgXNB0V2OrRDmrYQ6jQi4b2zPq3LU21gxvcm7UoHCSsZNtUsObTB+tTL7Av6
4nhx/5+bulOtsPZlWMGlUhy/fC3yYcGuFVLiHhh82EfGEk1VP2XHW6Butf7V
9lQyRnl2oSM3W6CrTsKhZ6MEplflMQxHm6H64Dvdwz4S2FuskOZn2Qwo/TEr
+6wEPhZOm4n73gQcFjuH3l6kYMqrHUml1wi+SVR/+uAbBatWVeB/uY3wcGlj
EAuJig+fD09azGwArguvlyysqPjvui+lBWn1MNxX2l2RScW8Oj5RYcl1oOKe
M7xxmYo3JPv8x0ysBUdrQx9NdRqWvhFpNJ1YA+Je7xeTrGg45vqy886Uaugu
enCry5eGJy6tjJIzqqBpyyOL5mgavsl+5Ss1vxKcz5/cdzmBhtP5+U7UVFTA
7TMyB3sjaDiZmmJV21EOpy1kvhy5T8PPbZ/+bP5VBiF/qDYbgOAbrdlTSVxl
8Fhxtu/UMBUfCf7uoKNQCq3afUZa1lSc499pG3+mBK7EnYv7Uk7BV5pkH3M8
KQblvhd5HcT6zHGV3U3DGIovPyUFTJHx+WeT+dt4MbC+Srhtny6O+3Xju3SL
iqBr4WPmiV0kfNju4bPq54Xwq8eYt8tBFN9f7/29wKUA3PdIia9WCWG/stUY
6ot8cLFuqptez4dvz/xklFTkgUJ6nO/gEAdWDNwqaqCWB7+LvnumX/5H33JJ
Tay5IRc2Vrz6xFScpsfhU5GWH3LhJ1I80zzfTq/LnWhS+pQL2SGMi4ZEDv8P
ck6h+A==
      "]]}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["z", TraditionalForm], 
    FormBox["Pz", TraditionalForm]},
  AxesOrigin->{0.09350904149102097, 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.10000815415684915`, 0.5159513647698524}, {-6.416525719896938,
    6.416366318227799}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.767399745380364*^9, 3.76739977670257*^9, 
  3.7673999507185507`*^9},ExpressionUUID->"23b9a487-2722-4382-a0ed-\
c1dd78e6405c"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[1, 0, 0], PointSize[0.008333333333333333], AbsoluteThickness[
     1.6], LineBox[CompressedData["
1:eJwV13c81f8XwHF7z7uNCqmEFMk3q/MpJSUNShJFRUUoEQqlpT1kZJW9UlSy
+bztPa513XtlZBSSLSP87u+v+3g/7n3ce99/fM7rPBXPuZk78HBxcSnycnH9
/zX0AZ/D+SMs0N8VuXV32T8QuOBrFBfFAu/dqrH24ouwi/tx+vkBFrztp389
c/wvrPuZd1ZpIxtqYrODHr2dgYk9cqrm9mw44fGgfhtrEo7bX5I7H8IGt0sS
P85u/wPxsQfVKkvYcPDRS63sT78gJC7jwPQgG3T/RXiQN/VDfG1n6FXuLrCV
75g6qceG5DScxiJ2AU/8vJPp+mZ49dRn/pd8F7j670x02JwFr1usN/lwzg+U
rirkGeTicjaDjs8IXUCYTdPgVqHj+3JIygdX2cC3VKbetKsLZ/4gbPr3gw07
rxSeV0rtx3+1DxUJFbOhZPuVffe3DePbjH45jr5iw7fsP849WX/wFOmatVts
2DCy/QJeIjuFV7TJg60CG7b+3RPd1zmD/4nJfCrazYK9OWUXfIL/4kg+IbMs
hAWjg/sddcwW8YPNHhoiJix4ZlTvVs2zjCM5v/vWs0zgKSIe7s9axddryVpu
fMeE6quZ+DtNbvTj2T7T9j1MOBoVL1v9kAcdn/nuWNHfCfyD69TqmLzoe4Ta
R9OATvjJs/zxgSo/yiI8ncyS6wTdlajpNm8BJLH1cJbxVwZ80HSjhJQLIrOE
e1yYCQPUbvbQYsSFka2cEMZidUAimzZWbyGCthETuA46d8Drh4YOf0JFESNt
IRlfaAfos5Vu6RBD//aOky89bIdOl7aKXUQJ1O/Ko+Mi3Q6BUadNZ0wlURMr
7N5cRBvUu7elWGBSiNCj6bd5fRt82j706k6nFHI60CmpmtYKelT+jUddpZGG
ley87LZWeNqucPkxNwE5kYXl1n5rgYHWvOfDrwlorZM4+7huCzTqHx1Zv46I
vuxmXu4tpMPYy+TLvSlEpH36KPUH0CHh3DXvHA0SinAzibtV2gx4uHa8ViYJ
bfdbeNa0txlOdgperlIno3lLnZ88L5ogY5OmYXs8Gb3OSuq4EtQIHolzCnEk
ChpODW5XDWuADTbbLSz9KUgm9aTfy6h64Mcmc+Z6KOiJEMhOx9VBhVpp9Zmd
VHTJ7m1nVlottG5V79R7SEXjQRQFg6wacC+7O7BaRUVVoS0Ki3g16FMfnuld
oqJDpwYTnRurQF9ZYmv5Ohryyfm0Qa63EqLs35fpa9LQ7fBQlfjZChAJIBt4
bKGhWoIw12fJCjhUMjuiIk1DoT4xDMGt5TATGfk7rJOKjE0M/t07XgbEAwxV
n9tUZHj4rs/agFJoyUlOmOeiou1PooMmvpVA7uScXNFJCrpxyHhcZwaBgGVX
zaofGem2zQ1bGCLo/xTlnO9CQrYayYdiNuDA/uXotqJARK5kx+rM30XAkm77
4hMkjU7znb3n2loIH5m7o6x8JVHw16TVoO8FMGr1uuzLXlG0tmDmLUOiANaY
Y6KkAAHUfOu/3DKnfMj22lDKa8iNTvnteHx1Jg88hHrUrOX+4jB9oN7kUx4E
ChGftRoP4QekYkKbwvPgzx33dlfSF9CvzezwzsmD7oh3OZqFIzDAdUowWiAf
co5qbsdgAXKfe40+eZAPu7btyT9kyIPx9ucJf9UsgGvsPTJEZ0Hs+iDfzn7B
Qhj7NaUTThbDFtn+bx7yFUHIfVsvfxkpbMzP3q53fTHEmRsFVPRKY6Odz67o
n8NByGB1tOscEdvc6yEucAbBGmarEyGBhDlG7CjhoZaAt6OUZF8qGTvfen1T
EKsEit3aH++7ScFqd+//ZZVcCu4dK/YGclRs5Hm2lKJvGcg1r8vzDaJiBnxD
jxgnyyGoNqzdZJCKlY9ZtjzSrYC/bx2qrWk0LJOy95atQiWctt3xu28rDXNg
60eFilbBpn4jRiDn/H6f9ssni1XA83jb8VuyNEzPvXki9nc1uLwwB99pKqYa
qz9/vK8GRObfbh0upGKBHceUNnfWQsSo7Jc6byq2r26fakZzHdwydGrvV6Fi
MFa0P6C2Hio+V9l9aaRg3EJ5qbsrGsCxTbw7wJmCuXwT2xCOGkHkksJNVy4K
hhfTJXQKm0C8irDnygsyxrOeFT14uhlMS+2umVHI2LnRo88Dmc0QIrzlQNVb
EqbRjXl8t6SD9F2LdE8KCXv67edieSsdfHGJge6XRKzwiI+v/NEW+JyxdeIG
PxH7zjyUVVrXArLVHsxYLwJ2OCnDJdS4FawaBkuzh6SxgaZ87RuoFbZM0Amr
5tJY+x1bXky3DXKz164pLJTCWD4No82ZbeCzZs+5DcpSmEXiWZxvUzsk5wdu
aCdIYgVp29O+RbYDeb7y+hWmONbe+LqqQKIDLmUr6llFiWESka8//L7dAdFb
u34wTotiKVmlbNnxDqjo6VujTBPBkqer9Mk2DDAI1JRzoQthAdFTF5MqGXD9
xvexnkBBjIeW+++NRicMrD5bTNAXwMK/0Jqj33TCSaXcU32/+bCWhzUyfrOd
oJ+RtZwbyYutblwO6bdgQmLz+yOHTXgwqVNrU25+YsLFU00pZVNcmGO56psf
fCzId3v0zUtnFRZSz3V/tmRBTMp3q6x7/8BZxUPSM57T3285bYENC/D20Jrh
TyMseGLGqt9F+gsJCQquTDU2vLLrZmy2mgE44v37oiMbelgiB6PCJ0E7SudY
bTgbbOpO9TI+j8FB7YCpaxVs8LXZvKtP/RdkvVAoYvxiw8+6uUrexB+g4tIX
cI+3C7Ridt9l7WBBiTAxjUjugu5Tb6o2GjaCYtUxm71rukAn0EmKSsmEKzGj
YzNyXWDR7tL470ghTorenKAq3QWlu3qSMtVb8Mzpwd1Sy5z+uo8MGBp9x9X8
8q5P9bBBrEizf7PaAP7TbaBWN58NjfFvLA99Gcat7xcdP/+MDV8qB6osdcbx
cyO9o/OWnP1h/FyZ2ekpHN/dtOWJLBsWu6/67JCZxRu83VOSGCzgs1h9+Lzt
L76bb+4m8wULPuycPcj7fBEvLDWzT8JYcKEvUHP/nmX8a5/4QuAYE+Zb+grE
ZlZxCYPGxT8hTDgyL5nOf4wbrfplbtijxwT8AGV5OZEHDRnFxHazOiG+xJhe
P8+LRgevpNK8O0HRbkn06AF+9DxrydqA0AnCl0qDL4QJIHQOC32RyoCfSxWd
Qz8E0T031Gm2iwE+GlHWmWrCaOKACeFrcwfMb5NICrsmgiq9+i9O2XXAxQcn
t7pliaLAQ5OD+uPtsDYK+807I4aWDmkpFt5qh1q27E75bRLIvmS+MkqgHQwK
zu+5cUkSRYwnrOV/1QbdI60W5w9LobyubD9ZWhuI6ansOj0kheJCT37met8K
kgPvCyZuSSPBY4fOsJRbgWfIijEsQUAvwgyta1JbICDU1pf3PQHlw+jqny0t
IPMwhXtCjYi2nTS4c+UzHfTOJLqc+EZEqmR1rfPadAiUpj2q0yOhzvO3+2ey
m0FQ71MAs4CEsoJ3qe/VbYYk23f7pv8jI4dnBi+GbzTBr8WF/Tc+kdFtS5Mf
J281grpfHzVpLQWdc9ubqHinATavv38qOZCC/nMbGQl/UA/H1z+YuPWLgr7q
Zr6ReVYHIZFnhJeAivaTn/hzBdfCYqdac/0zKrJNvvszO7oGrPOWaWcbqChX
L23pU2o1fNX8FtazSkWOproZjrlVYLPta+cWJRqKkZvvuFxbCS0Pb+9p4fRY
XWdr6PHeClgbvYY4rkZDLnub13YslkNnpUvwDnEaQmmHS7/KlkNVOD2PQaei
ghdfj9VjZZBSk//fHU8qEnu6NlHOtRQipzvKD09TUJdW77ri+BIw1Ll1uXsf
BV09Pt44/YPTlzPFXHYXyYgYf+C10hYEU/rPDOuOkVBCWwH3R0Ectr+srdZb
JaDEJ2d7/elFYPvZdes1J2mkbrTJ63hBIcznnjXWWSeJ6q7WrPyqLgCjtZ9u
e7NEEPZt+93p5XyAsO4fbiICiCesbXTaNh9+pBt4+BdwodH3L3jnRvMgwHlB
6YrgHK7REPbwWFoeOGaKuG8QGcCDAqR+XovIg62Z2sldxFKI2B8n/7kwDwT+
6zYJnfkN3+zvkQ5L5cNQbPGbNUcWQUFtWTjgTT7I6DWmCBbyYNrvTSZTjAqg
8BVN3albEHNpo/cHrimE9JXX1zFfMUzx6FmJe2uKQFCHDwdjKUzt4s/oLiiG
J6v8JaKCBCyEZ3Kl7w4O2UoGBYt3iVhauKvpQ1cE9vZtef7FJMxYqPvvE5US
aFWczdqAkzHlJ8udXGMlUB2QaTP+hII9CLeUe5VfynkeBko6NlEx80GGnMCr
MsheYxL9KJKK7VlHaTC/Ug6aOkFNeqNUjHn/uvODwxWw8fnD0gg5GnYoNny0
ekcldPKHhNVto2HrW3Nu2SlWwTu1BR1nDRp2XRfHEqSqIe1allU0lYbFuAzZ
rfDUwLyinhttnIo9fPjj3K+/NeB9WuOzVg4V+7Ng1PvrTy2cmT18+881KpYq
2Hv/9c862BjmkcuvSMXkNQbN/frq4VOJKmu6goLZmNGVjnQ1wJDhROeKPQVj
a/hbZjIaYfFRfceuOTImZ7Mm50hrEzhFdpUl3CNj6X/d9K9ebIYtmSXDqyJk
TEbncLLYYDM44PYjPM9JWMj+Yeapc3Qo7hTx3C9CwnZQb77c0UOHo9uG7M3v
EbEz0ge2+p9ugbAeA+nQeQLmWffFh8BogVwQUPd0ImC1MsX/0Y+1At8PIcl9
TGnM0pMw+rauFZzt1sCRfdLYkoqw7/69nP5eeHCk9ZMUti6noD+voA12LrUY
CFGkMOOFkOY6zXbwk/uPqj8ngZn08xmdTGqHKL2di96F4liljq2CtkwHKN6Y
qpS+LYYd7dXL/+9JBzxL2AZ7d4liSu5x+7UXOqAkPf3K/kVhrH+K58C8AwMe
CB8kHvoqhF3p0Pxr1swA/ZjJn36XBbHS73zOi/91QtqKyE3+NQKYvIjTz8Ko
TsjdlfFesJEP+zq5sGS20gl53U8sU3x5sTe7j6SfsWECVVBAW3QzD8bVFvAy
LJsJDguP6EdaubDjOkTBt2Is+G2/b0Hn7wrMbv+ZOWvL8d4Tx0CFvf/gHM6j
YpDGguCtPq+Sny9AiAHNYmyCBVUqzGCZtjlIbrPwu6vJhrFXlxyqqDMgkRFy
y9WZDV31nvO8pyYhrKJXWfEdG05uVj1xaNsY9Gb92SlWwwZ2dMI5kQ8/odG6
9XPqKBvUe1OMJ5V+cNzJULjH3wX6SiGLtppMaFcNPKdL6YIdE8J1RdvrIf0W
Mfkpp8eHj46KNfCngP2uqx9tOD0+brtl8rkmwk+YguE3Sc7nQ+9jxzVb8Ze9
hRfLFtkgvvnvk3f7u/Gr7mGZHV1seJ7p3q7ycQDnvxjQdSqbDdv3hb8V1h7B
t1nqe9UFskHj1q4j5TnjOG9YuEr2MTbAsyat1sgpnOeHRGUqibNvFGw7evfU
LE6/7/1uB50FdeYqghGkeXzPeILhQCAL5KI+rlbVL+KZPwPCduqyQAS2ChQF
LONPxIwc0weZYKX00jFUhgsdMGbcyHjOBG6T8ccXr3KjYI/A2GTOvee95x9o
VPAg5BWrPUnvhJoUfnY1lQ/9SbCI73HtBKPt8XakS/zovPvEyWKhTliwM1jz
55sA2pxk84b+ngHD42vEtLiFUFY3r8lJbQaI+uW+zjsgjKzDtMcCKzvgpdHx
EeuXIog7+xkWZsnxsWyr5C+6KKrWDJjLGmiH9acDr2yRFkfFc42nxK+1Q1f6
curEIQmkuA5YNUtt4PzTYdP4fUkkb8Z4Jv2gDYJPdRi52kghyob2d8LibaCX
FGK7bUYKzXabFLe/aYXTr42knz6WRjJxFj5vZVph7R7zWCN5ArLk/xF6/V0L
gPdHaUo6AT2h3XV6pNQCand5P3zdSURuNUYb5hPpYDKTq1dSQkTTzfEbBlTo
kI0nrmk3JqFJvismrh+aYVf30+8eVSRU1vbIIG9LM4h8/XCTYERGfRd4culn
m+Cs545twnlklJDJpu270AjHPswPh6tQkHhawTG5yw2QRO4/OvSKgo4Lb55O
dq2HvXO6H35PUJC9/CmPvZ518M2ZIXVnPxV90H1++ZhfLXhsv19v9IaKZsPd
hv4LrAGKW6RETAsV/ai3pjm/qYZx3XV8hbw01PWmRtEprgqevSh/4aZMQ5SI
OP3SrEpw/e+rvZ4WDeX7SatK11VAaVR/h7YqDZUkzvEJDZUDw9FKiF+YhiYZ
1UdcBcrB4EFSZ3MtFSl/eXB2w5Yy6KJOb9NxpqJg+U0DaqdLwY+ivc1kkIL2
VA9cjH1dAvZ7fGNDt1OQcNC9MzV0BAe8vTMPHiWjE4SSLeJrEMhQLyRZ7yCh
wsQjxfPDxWC+qnVqpIuAaGZ3g99kF8Ht/l3hbbulkbiMVu+j+EJQby8hDSIJ
JJB5BkKyCiCfp5hCcxNBN4NvL18ZywexttYDJUH8qDF2A9+jY/lgrrDnzVpd
LhT1+o3uQH8eBGkc+Hp0agZX0XJvqEjKA6drFnsd6/tw3k3ye+9E5sGqb5r/
kFwdvJROf2xRmgcuR6kzamrjoPPyhIqDbD7wfr8s7mm7BE4JWTqM2Hw433JJ
oEyXF7vu1Rbx90QByPaGLYYfFcJe7H5m4re9EGz9X+hm9olhWpGS01U6RaBu
onL2gjvHUz+dqTI2xZBUITGZr07AqOl3uUre4/A5BXd/GkfEwnX7Nqy7jUD5
w/23Tp0kjK6dfU9FrwRarnlOz7WSsTeC+FTAagn87UkV0I6kYI9PqckwGkqh
6W+nMk2bio19ZkbPx5eBl9MJgf0JVKwpaL0f8045TPmKbBqeoGIBy49jn56v
gIcjHa9i1tKwtYrjNgamlWD06YTQPU0alrZR7fe2/6og21ezSGkLDdvOaNYt
21gN5DfiguEkGsa8QZs4I1MD9O4r4m9GqFi2jG+vv0QtyC459J35TMWka7iL
0vjrwEKrP+evE8fnyvfXeq7UAXuobJ+0DBW7dv11o898PUjzfMMViyhY1Dej
QzbTDVD2QM3YyYqCHayMCKj80whKcx701VEyZhfz5OPFkSbYUfFqodGbjK3b
cvbjgnszfBDlfpe0SsIKgn8Zv5pohjO7ptdtDyBhfL7bfdpcOM9rldRmqRUi
RilmEBJG6LBNR9Wh6AYR040yevTdsQX4dTtjPo4SsChumaizP1pAMH+0d7ct
AWtyySIL27YCKVzjcEOdNBawbrNzbkcrdM2RD0T8J409cU5wNz3SBiePkXwH
Y6QwoZDTou8r22DXfNrvIUEpTK/HGX9h0A7yvD6jb5kSGF9j2/mZzHZgy34X
8X8vjsUdvZSYvL4DcgWua1bYi2FrAtze+AVz5uEs10Cqgih22+oZyYSXAQFC
Nw0cuoSx4H+XzdrdGBA8valyfYgQtnFYY+UPkwErDlO6NFNB7IJXee2p3Z2w
xkB5/fkVfsxylWLblsiZz2cPGahn8GETAoR3FEEmvGcVqIRxaL/TvqK++QIT
PE5+4K8U5sEKPn3PSytmQm7NXAvrK8fHHg/69pBYsFbyR850zgrsuGEwv8WB
BbURD8Ke8P0Djgky5jJZQK5O+FVhtgAb1Q8S1/5lQVrb0cfTb+YglJhXKP8f
x4v5I/4XGNMQ3Owo6XCVDU3mqfPOtEmI3ava7hjHhvN6PBtLP/3m3DvaOLie
DSI/O+V1Nv+EuMA3Ny/9YYPUivm/HzF9MGPS1eoq2AXt1D+kMfVOqCBjnw9S
u+A17j54TbUW1m+TP1nM6bHZn26xVvw9MHfdnMmQ7YKKK5K8c3ql+Fp/brqa
RBcQYvt39O1ow29Muxudn2eDZuTW0kHTHlw/efZtCpMN2gaNuMzWQVztbkTe
pS9saL0+9jbn2wg++EAmev09NvwjKO58KT+B36nN/nDhEBuOMwevHOmawkM1
Lg8WSLDB1WN8R0X4LK5i/+xobi0LYsRXJiOPz+NL8z96+u+w4Lb9BucAsSWc
VsJXiDRZcGcPcXxjyTI+bvEnr+o7E7rXi3kocObV8KejBRcfMEG17tJE6Utu
pC5c8oV/MxNE8oZVrQZ4EOG6G2W5uhPoO2XyinT40MGrH9/EOHTCQ74aU/pD
fhT/HevXW2WARt/VX25tAuhMy40UyVAGxPRMq3iuE0LlwcuHbFQZIKP8/Fj+
RWHUnbWDblXYAVPblI+QP4qgM+5Zz3Ye6oADTZFxJ8dFkfuQw3dVVjt8lhsg
mGmIo4jEHRWnHdvhYOK7nPzLEohSed1rZqINiKkeYraxkkghDGfI3WwDzTpx
y+tOUsiGW+L3HHcbyKbHbl/llkb3gLQ39VErXI27GLs2TBopH5GyOiHRCi5t
y+TQzQRk75bbJ/+mBWoQu25dHgF9NhjeokhtgeI165+67iOiV/YxLvci6HA8
PExcqZGIcusZQg5r6PAB/v5rNSeh/DqBkZ/vm2H+QtVvnlYSSnwwy9RQaob9
ATNnlQ+TUeq8ZmyBSROYcntFPi0jo+bHH4q1zRoBryD0+WpRUM61EEWaeQMs
p85XESIoqJYY1J13sh6M4jcs71+goH3NRSIeZ+pg3n7gxu/DVLRySOF3smMt
fLrUFPgunIqiDJc98Ks1kC6ciZcwqEj+qXKHhl81SK1XunZdkIa0F5LO33hW
BYGNtXcDN9KQFqu9VPl9JWTe833hzulxaMB/p5jfKsBhp/DuvSo09D21cMt+
ejlo3Ky9G8JHQyfIBN6dU2Wwx6ijJqCMiup/P8t4KVMGd0lbP4fbUdFOwbNV
R0xKIby8yK6/g4LOuq7njrxdAkL6eosDChQUvTNWLxchuBidt7N4JxlFUPvO
kcQRVImvDDjSSMibW6Ljfn0x3Dj7V14sn4A8zyfvnYgsgsvBunFxNGkUX1eg
KP6sEB7vNKBfsJdAczf91obHFMC9gdXuIB4RlPL2veW+7/nge/rpGlFZfnSn
NUw1YF8+fLEwS21zXsXFrgkQDLrygCltfFmmaxo3Y4voJcXnQdndav4ouR68
aMpzcjEqD/6cH/zVLNXC2fOPSdpV58H6fT8s+zMmIOVw40ifcj5Yehgobnf6
B18KTvY+y8wHIc0UDe9sXixKf73lu0sFMPvkvxPvS4SwMfHp6NIDhXBo9mTG
wD5xTIAe6nz8aBHk+bHERqOlMOnzWSPB3sUwOv7oeMsxAnbI9NhTRjEOG7qt
k1+UELHENRIbm18i0Bn/6NI+ScJcjF8Ms0xL4Aiv1cfjv8jYj/f3RkmEUqiv
dQ4lfKBg9okJR7b0lYLV7EFTLoyKtZ3cwD+fUwYmVz5UZadzzu8pXM4h5fB2
tmzWYo6K3Sl26IjwrgDmcGeOsyINI+dmbc2xq4QSvdgyQS0a5qlHPyJoVgWT
F5czP6nRMJqzaO+QQTVoGs5YuUlzeox4hcu2cnxMmY8bG6RiPK73+6gbauGK
d4+/2wcqlnfj/lZX+ToQvR2rMXyeihkf1PI8Ra6HFO8YcyFpKtbYPQ83JBsg
10l00jCLgt31kP96SaQRSBfuEKsOU7AfP7/vYfM3gfzbHNWsPjJWNdZVX8zV
DECUCh93IWOHveuaAvybwepDqqTRDAmL2HD6MOFfM3iJdZraeJKwfwW7dM18
6LBhRlSEPknE7CvfukvN0cFFmeWp5ETE1ELrvfTcW0C2/fQnvJuAhU9IS6eN
tYDhS9E1wkcJ2PuxuVXDS60gMOx261ixNPbzZlxmW18rHDpQ8LZ3szSGCr8M
mlq3wXPi6X0zQVLYhfMz5+7Q2+ByTAPx/rQkFqfo8NJsfzvo5Bh6TBRKYIyA
rdLPC9rh+cj4it9dcSzn55wtRaMD5gj2ie57xbC2DApW/K4DvInogSivKLb7
7sghS3EGbKFpP/cvFsa6rBtN030YgIUpui7dEMJ6ZdOePu5nQJKvVeFHdUHM
vTR845eDnfBT7czmwh5+jNKwfsfAp06Y2dS689ArPizR9/bfDkkmFE4+9wzY
xYvFMcOmdF2YcMh7p7XfCDf2p76DllXJhE+pamPngrkwDprF+uVYcIx2WjbN
ewUOHA0Ksb7CgsyMM4/+lC+BcenorYQcFhxQcEntFl8A9SGxv9gyCxz9SCer
LeZgZb7hT7IBGxy9VRL+hU5DcvTXs6aebIjb0SvXzJgA/8NOUpFJbEhZ2J6h
ueU3CCxOIuFmNrAYP0m2yUNwKnEqizjJBqJNbyx9bR/IH+nWNBbugp/Br5a8
VRiQRx/atJ/WBd+W75E2K1ZD0bzwEpvTY4XX93hcf72AtuOXzf7IdIHwSPHb
o3vLcX5/t8HnYl2g4ynsdUGvHVdoPWM5PsuGLcyrPZIqvbjtn+SUix1sePrj
8TOez4P4P24yw+ETG6jXFx6d/m8Ul+7fv8PZnw2eqrte/2c7gV+6bc3m3c+5
j8cDUoX8NH7L6P0wLsSGkcddAtysWdymp4ykUc6C3VZ/uEKD53GJ2+czGT4s
8D2iZ6F1aAn/mnGSskuVBRteaf8I5FrBvSazdjDbmRAtY2KYaMWFjPru8VH9
mKB9eIxHJoMbRX52fnVagQm6RrI2vry8SNVJ1IcbdcIeh80T6Sf4EF0JT7a2
6YTdXFqHHiXyo38mMRs+zzJA1kPq3OiUAHqc07e4/xkDnIMu3/1sKISqHrgK
2ygwwMpIQzXrgTCaHjzbpfylA7iTCh9V14qgXuVVx/bdHRDGJCbgYmJIPJHn
S1RTO2hViDZdMBVHg+fKvJJOt8P0xiP7fB9KoHVahplyQ20wuy2rvKRIEhXH
fpRY79YGA98tXK97SyF+RT/3vrlWCLf4llQtKY1uWo6a3fRrhfqubLP0BGm0
JEvhk+JthfZPBPIPHQI6Zh2ClQe2wCh3i7JyJQHlKkcfzBVtgf2yw5GK5kS0
sD7khPhLOuzee6XJl0VEFa9F6QPSdDD1UdCsOUNC38//ybMLboaaBy1jj7pJ
SL5Cazye0gyHYv0UVU+R0d38n9REzSZ4atnky9tIRqbFo0HKOo3gkKfpcNSA
guT2r2WQ9Rvgs+njJvV4Clof4e7RgNXD+d503pfcVFSbsoOWtL8O2vtlHu2x
pCJrE58a7qO1sCUvta7nPRWVzgycMLWuAeNrGvblXVR03d3z71/HarhbGm0g
LEpD1LUteo9vVMFGAW97L05v5yy+bXv5uBJ+fPC/4MvpMeGO7FRaTAV8cJYK
luf0WnSA5vm6sBxszQx3/lzl+Nf6QrZEdxno8WypHCmgImwxSk1YoAyS7t3N
ST1BRXy3Hhx8sKMUHntcUFKopqA1H+8sp7iUgGbSzeBKcQoqlFENLs5A0Mi8
8jRXgYyeC8byuiziMPTM6MfvRSJqP6qqfzijGJoj9FFkKAE5Y/RtQQFFkNIV
ttDxRwo1XyK2dXsUwpfqufgPXBJoz9onL6aeFcD9M7zPeoKFkYKSXcfNhnyw
/6f+am8MH6oRusLVrZsPDvbuK5nnV3B927zH/9ryILinnZ1VPoUfTzBWnorJ
g/uHJT84RrHwh9t/vOt7lwfFNRa89UEdkOzwKaujMQ8cy++776+ZBBqcKi/f
mg/S0xKnrnkuw/MrF1vj8Hx4PZtcr6nFhw3GPD3w7lYBKAx9ir2vKYxdLbxz
8ZRdIZiPHxIZTuH0mKF9VtWpCHZc7BViVUthciL/LpuHFEO8ce9ZqxsEzGOT
lo1KNw6vl27liPQSMU3n+90RMQjqK1pcKkTImHKO9Vi8bQmUpTna7P1Hxmrm
FwsKlEuhfWtU+st8CrZq6zsQPFMKXVlpmUGmVMymzD5MoL4M7tHcvnRlUTHT
S1/zhdPKIdUob9x3iYqtLzQJ/Pa8AvKfykUsr6dhriuNc/o3KmGAf7XlNKfH
LFHRg0PnqqD3Q02lpCoNM1DXHZS2qAbPFy+9FCRomPDDuItbjGtA71Nv26Y+
KqbeSFTN1q+FQLUt9POJVOzG5Dy3zvY6aPMoHyixoWK42aTlbvV6KNPtThwW
omL3zdy9PDc2wNPsGp79nH1iq5e4ipdiI+yaEP9G2EfBZAPwc5PyTWDulXrk
FIOMdQTmrDso1gy0ym2SPOfJmHul9Krwk2YITGj+2fqLhKWkkSjBgnTokLm9
+eZlEuaZZ+pWcZ8OkTdygx4NErFLOk4rt7hbYF9r3CN/WyI2b3LaNNSvBfDh
xz01dI6PsWaF6fkWCLxDcarZQ8D20PUNrl1vhR1sF+GmTGnMrvHq8p/fnPnR
u85XUV4aO9rwlXjQoQ1M/AvDl+9LYWk+6zae7WoDasSByG0MSezy1HYvYfN2
cJcv44EYCUw1/Zu/UmU7/Fp7/ZCngzh2nJ7hHbCzA4zslvJom8Qw1+MPRxZT
OuDykN9Hh0ERzCf/HcWOygDLtFTl1zHCmL2Jzjn/ewzI3tnkX2slhLF5h1LX
jjFAbfaJuKGEILb/3ZP7fMc7QaHuk5hUCT+2iDtcH8vphMhn3auO1/gwMecE
oVc0JhwX9L7muI4XW83MEI70ZMIL0kvebXXcmOGvmyFZjUwwfldxcMiDCyuV
VHH2Wc+CWzV4qJXuCmhuK7rke50Flh8flZg+WIIX3OFXjItZcM7U3nWyYR7C
VG1YlrxsyLid4/OWOAevHxlNKO9hQ/3tYxGvLKfhosulg0o32SA+1iSiGTYB
5uoopziNDQ7mL9dEfRiF/X1/nru0smHMze7+nQ1DgP+VN0ufZsM4e1K0OKoX
ZKu1NEREu2Bj4+5VXuUOiNNyL9nK6a008/2fHmolxNY0BQ9yehyQT9iW1HsQ
Vzg3XULjvN/n8vFStFklfvp1z5MukS64GNfS2b2rA9/gYPTtEuf7k+6RUjal
9eLeqGyOxPn92m9nMwa0hnBrpWOm5pz/941geGIhdxQ/UuxsEe/Dhn2dKhOs
6Am8/2tVbfBuNvgSM6N22E7jdnP2/dk8bNjz4r6djuwczqDcnA8rYoF40M3y
R23zuFZkRy5yZ4GWj8oV9tMlnG7uk/5ZiQUzCit9PbCCZ393Yvc1MCG0YMP9
Dd5cqOLx6pFiDyYkV/faOTVyI7EHm7TTqEwIkEqJjVTiRVxZ1uar2Z3w+PqX
9lAPPrQJ6bRIWHTCbPjzVN1yjo/FlySUfjPAUOD5XztpQVSDX/S6dZcBv/9E
zP08LYTU7+ZdPElhwE7TfpfkeGHU1H357+/kDvjO4i7x+CWCKAJl2a7/dcCA
43mqgqoYOn7trbVoRTtkibj4eFwSR+EHSiz/HOXsl/lyGjviJVCYCO9ljN0G
fkuft69hSaIor81klQttsLE85KnrQylE29tHqh1thdc6h2OfrZFG18vLiw64
t8Lbmd082l+k0aOKwDM1f1tgT7TFy017CciUTA118m2BaK+YKwqtBBS35UnS
Ya4WaBU89aH+DBH5N3hUhN6jg90aEauGISIyXxxzviBAB4F8a6csJxJ61Cmc
wnzUDAkpB07xjJBQE/RekxFtBs9LQvrrL5BR99oosVeyTXCtM83duZOMDmIf
31DWNcL4yu50ojEFbd569gpFuQHMh5tStdMp6Gl/U+rA5nrwYu8RKRGmIllR
SnjXtjqgcZ3vvW1LRTYeK8t2urVgffB3P18SFbWdvPv4u1ENrN7lc07uo6Jk
eZ871UeroeN9IMtHgoY+aK1LT7CrgqN/Tu8zVKWhR8lXg3g9KmFNNNnjBKfH
2hWGK4FPKyD9b0p10XoaUlN60fMruRyObdQ0XVikoreONn4zNWXQkWxxUDiL
iho0Pwy+mSqFGHufBYeDVNR87Mi9RqVSENK+qvovl4KSk1+5Npzm9DhkqVp/
kYxOefx27X6HwLwBCnWFyKjvW9TqCAuHoMXQA2NdRCQTJJpoFVQMknvaZKPc
CUi6eL7T92IRRI7KD3iWSyH9s4sq3GcKYeuNEcGyd+Lo7eesswk+BTDCZ0oT
2SiMhNT5uySL8yFEp3aj3wY+dJJ64FSMRj7wq9jJ/D21jHsQdrdu5PS1Wr/2
yZH0SfxO7IJUGqe/Ojlc3D1yHTj1Tq6idmwe+A7alagS2TAnujE6uz0PTGVq
1gX1TUGcb7mKmH4+kP89LOa+zZlPcuNjlKZ80NrqltyTzodlt6ztmXlRAGGH
RU8acuan1aLt111ehbCw5Bf8VUQCiyxxemF8vwiOR257tmVaCpNMryMe/lIM
EduPbzoYQcBsUpTzM5ZxIPxdOrS8TMRW8mpP+X1GcGJG/fXO9WTsy4fN9wPc
SqDOwel5uSQF8xGV3+vxXyl8t3p5J62Ggh1Vup0kKlQGhQpjzEZLKnZiuomk
1FsGL2s6r2UXUrHFPHGHr8Xl4H1s0diRi4aVKNAuM+MqgGuq+KrVRhq20mh5
pvppJfzxKBH25/S4Rt3kbp13FdxTLWIbq9Cw5w+PDe++XA3xf1OW0kVomOQa
mZRImxqY/nR6z54uKpaYoWB+0rwWgoQYHwzeUzGHBcGa1QN1YNIZn3/3BBV7
VWhoqWpUD3yXJ3Zlc1Gx2X0UAU/DBnhE0yXuiqNgsxsTdz7Y2Qh+FnnHzfQp
2KPmClcB7SY4uXspaqKejPmdqHrTRm2GLY2kGAErMhZSaMb1OqQZiLOhD62/
kzDdjlUHEpEOzcb7KS9tSVgn4h/Qf0UHep691n9MImYovTFgUKwFVBvnUlqP
ErG7/Tebxh+1wCf14u8N5QRscqw8QpevFb54OC7c20HA/noGR8b6t0JjgWja
/nhpTKB0WFlgvhWKp7i7bSWkMe5zsfS9V9uAsetGO4+XFEYX8VPX+9kGFva7
HTryJbGFtp5jJTbtEDRz3jnwngSWVY8/+trcDhZ53rUXTMSxdlTS8nNPB9wN
o5nkCYthy6eUrml97YAvm7uacqtEsMuXAo5cUGRA8+v7be/ucvY7C2vPg88Z
8Gms+kaonhA2Mepv8nGOAS8OR65WjwtgG4r4GEdsOyExQDjzbBw/NmA3KzrO
8VOW826p2+Z8mPq6t7WYIhOCVv++MOHixfz3B5GnOf5S/u+6be8Hbsy/pu6/
Dx1MyMsXy794ggsr3tUnyq/Ggh2le5m8i8vADlq5F3ST4+Hja9OT9i3Bxzyn
cDbHf8VWMfU8L+bhxuXUrjPCbNCP85K82DoLKlevDAdx/PhOSl5rA2Uavl7e
zj3M8aW0CMP2teUExD8AQTrHn8Hrub2FVEfhe4z0VDHHp84jrllJ8YNwKWsx
RHOODQdUr63JlO0FV0vDLfkc3x5kmK1ErmuHW1ulp3llu2DP67VeGRLl8PHc
v1QWp8eX7B0zrim+xqet9/3U4Pj5o7JjXJ1lNf7PYp8DleNra/MQUWMjBu4z
l0NommAD/lzp63b1Pvy52Oa9mU1s0KtQ0sjLGsLFHHSGtnD8LkE3uvdQ7zfe
ulLVVufBhrCTHeOe3RN4YVLBGSrH/8c25m2Ijp7Gy/7bURTzjwWnNbZHnLOe
w/fq7xuZzebsM1Pm/66RFnCvj0sj75xZ4DfM2nizbgmfbWe4y8mxIMwuVH7L
7RV8p21kbF8FE+pyVEViwriQIfYu1PYKE36U+r75NsaNru9VCp+UYEJu5fix
rN28qGXmVczcx07gIxb/9nnDh8LPtRKLDnRCi63I3/4f/CgAPxT3/AcDApLC
tjdtFUTPd25en+bNgEc3Tb9QbgqhXv/ProfFGHC7et2voBJhdF3ymern6A44
NmLzliYgimxkbj7g29IB2lFmwt77xVDpwYi+G/ntcIQ0NHfzgTjC3iKX7cbt
sP12oN0ALoEq9aw+nWtug/0XHIxd5ySRvF3yvOqpNvgW/px8IVgK+Zel92X2
tkLdvo9JB9Wk0aK/WDz1Yit0ft6+7xsujap6ar0CfrfAXk3SpMMxAhKpmJiS
vNYC4UMNE6ReArrkImk+MEOH1xE+Gm7ORHRvIbphnTcdUpXnHUjTRET+9etX
/2IzUE4+kAu5QUI1Lnzl5n7NIKr6mO42S0IR/gt9a1eb4NvwBkFJNzIK4pZ/
58vbBErG+pvLf5CR+4pEj4hQI8wMBLIrjlDQeXtrXlnxBshQnzff/I2CBGsN
E1cJ9XA5o9DluzQVSSYHfKHK1sGJ/976J1zgeLRW/UuFUi2U3iGkiqdTUXzY
Ot0bW2rgFt2m9/IQFUXuSImO0asG7Qx/jQppGhpOVB+uPlgFXvrN3J1qNNS3
dFfh7plKmNTUclrWpKEp78vFV29UgOSq7cQGRRo6eel4rtmbck7Pqf3Vs1Q0
f42cMPytDIZ5S7m6PlDREzkLnW09pZAv3/KudhcVofx9SE2qFO6EN63xSqUg
4pe/SUIHS+BESsI3oyEyEheDDbQXCELMRy5h4yTEpiR7xxfgICAu++piMRG9
bE3pTfAshimbOSR6mIBO3AwkfjYrAuF/4r9uhUuh9QSrBY/9hfBx8ln/B31x
pCi8ySHDsQDeicUakbOF0Je9LUr8GflgpxxSmJvKi+pO8DdXr8+Hw6m1+74e
/of7PdttW1CVB4MbvnTPBk3gZrdu6TZG5YF2f985iwg6TmYY+UzF58H7tV+1
0l/3QPiZd6GrXXnw7hMhI2d+GpoucZflGOfDfS2xKdbDVYgWH8//1Z0Phl0d
BL+N/Nj/AI0tZPA=
      "]]}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["z", TraditionalForm], 
    FormBox["Pz", TraditionalForm]},
  AxesOrigin->{0.09470131892665258, 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.10000321795820456`, 
   0.43932475597753223`}, {-6.049302644950304, 6.049308922226585}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.767399745380364*^9, 3.76739977670257*^9, 
  3.767400089301919*^9},ExpressionUUID->"0ffff332-3fb0-449e-bd73-\
ab01c9b1458a"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Gauss", "-", 
    RowBox[{"Bonnet", " ", "AdS", " ", "q"}]}], "\[LessEqual]", 
   RowBox[{"qcrit", " ", "case"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.767399432517198*^9, 
  3.767399435116481*^9}},ExpressionUUID->"d8e02f23-d1b4-49af-8791-\
c51bc4e37f80"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm1", ",", "fz1", ",", "m", ",", "q", ",", "f", ",", 
     "\[Mu]extreme", ",", "dfz1", ",", "pz"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"rp", "^", "4"}], "+", 
      RowBox[{"8", "Pi", " ", 
       RowBox[{"l", "^", "2"}], 
       RowBox[{"\[Mu]", "^", "2"}], 
       RowBox[{"rp", "^", "2"}], 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "3"}], "/", 
        "\[Lambda]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"q", "[", 
      RowBox[{"rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", "k_"}],
       "]"}], ":=", 
     RowBox[{"k", " ", 
      RowBox[{"rp", "^", "2"}], " ", "l", " ", "\[Mu]", " ", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "3"}], "/", 
        "\[Lambda]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{
      "z_", ",", "rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", 
       "k_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"1", "/", "2"}], "/", "\[Lambda]"}], "/", 
       RowBox[{"l", "^", "2"}]}], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"1", "-", 
          RowBox[{"4", "\[Lambda]", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{
              RowBox[{"m", "[", 
               RowBox[{"rp", ",", "\[Mu]", ",", "l", ",", "\[Lambda]"}], 
               "]"}], " ", 
              RowBox[{"z", "^", "4"}]}], "+", 
             RowBox[{
              RowBox[{
               RowBox[{"q", "[", 
                RowBox[{
                "rp", ",", "\[Mu]", ",", "l", ",", "\[Lambda]", ",", "k"}], 
                "]"}], "^", "2"}], " ", 
              RowBox[{"z", "^", "6"}]}]}], ")"}]}]}], "]"}]}], ")"}]}]}], ";",
     "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{
      "zs_", ",", "zp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", 
       "k_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"f", "[", 
           RowBox[{"zs", ",", 
            RowBox[{"1", "/", "zp"}], ",", "\[Mu]", ",", "l", ",", 
            "\[Lambda]", ",", "k"}], "]"}], "]"}], "/", "zs"}], "/", 
        "\[Mu]"}], "/", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"zs", "/", "zp"}]}], ")"}]}], 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"1", "-", 
            RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "2"}], 
       "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{
      "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", "l1_", ",", 
       "\[Lambda]1_"}], "]"}], ":=", 
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "q2", " ", "\[Mu]", " ", 
               RowBox[{"z", "[", "t", "]"}]}], 
              SuperscriptBox["zp", "2"]]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"2", " ", 
               SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"\[Sqrt]", 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]]}], ")"}]}]}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                  FractionBox[
                   RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              SuperscriptBox[
               RowBox[{"z", "[", "t", "]"}], "2"]], 
             RowBox[{"(", 
              RowBox[{"\[Sqrt]", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{
                   FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                 FractionBox[
                  RowBox[{"6", " ", 
                   SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                  RowBox[{
                   RowBox[{"-", "3"}], "+", 
                   SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"24", " ", 
               SqrtBox["6"], " ", 
               SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"6", " ", "\[Lambda]"}], "-", 
                 RowBox[{"16", " ", 
                  SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                  SuperscriptBox["zp", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["k", "2"], " ", 
                  SuperscriptBox["l", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["zp", "4"], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox["1", 
                   SuperscriptBox["zp", "4"]], 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], ")"}]}], 
               " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "+", 
                  RowBox[{"\[Sqrt]", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                    RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                    ")"}]}]}], ")"}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SqrtBox["6"], " ", 
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"6", " ", "\[Lambda]"}], "-", 
                 RowBox[{"16", " ", 
                  SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                  SuperscriptBox["zp", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["k", "2"], " ", 
                  SuperscriptBox["l", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["k", "2"], " ", 
                  SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                 RowBox[{
                  SuperscriptBox["zp", "4"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "-", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                   ")"}]}]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["l", "2"], " ", 
               SuperscriptBox["zp", "8"], " ", "\[Lambda]", " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox["1", 
                   SuperscriptBox["zp", "4"]], 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], ")"}]}], 
               " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "+", 
                  RowBox[{"\[Sqrt]", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                    RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                    ")"}]}]}], ")"}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", " ", 
               SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
               RowBox[{
                SuperscriptBox["z", "\[Prime]\[Prime]",
                 MultilineFunction->None], "[", "t", "]"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "3"}], "+", 
                 RowBox[{"\[Sqrt]", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                   ")"}]}]}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                  FractionBox[
                   RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"3", " ", 
               SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
               RowBox[{
                SuperscriptBox["z", "\[Prime]",
                 MultilineFunction->None], "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"6", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                   RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"24", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"6", " ", "\[Lambda]"}], "-", 
                    RowBox[{"16", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "3"]}], ")"}], 
                  "/", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]]}], ")"}]}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", 
                 FractionBox[
                  RowBox[{"12", " ", 
                   SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                  RowBox[{
                   RowBox[{"-", "3"}], "+", 
                   SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "3"}], "+", 
                 RowBox[{"\[Sqrt]", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                   ")"}]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                  FractionBox[
                   RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"k", "\[Rule]", 
             RowBox[{"Sqrt", "[", 
              RowBox[{"8", "Pi"}], "]"}]}], ",", 
            RowBox[{"q2", "\[Rule]", "q1"}], ",", 
            RowBox[{"zp", "\[Rule]", "zp1"}], ",", 
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}], ",", 
            RowBox[{"l", "\[Rule]", "l1"}], ",", 
            RowBox[{"\[Lambda]", "\[Rule]", "\[Lambda]1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", " ", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "7"}], "}"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Mu]extreme", "[", 
      RowBox[{"k_", ",", "l_", ",", "zh_", ",", "\[Lambda]_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{"3", "/", "2"}], 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"Sqrt", "[", 
             RowBox[{"1", "-", 
              RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}]}], "]"}], "/", 
        "k"}], "/", "l"}], "/", "zh"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"fz1", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", "l1_",
        ",", "\[Lambda]1_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{
       "q1", ",", "zp1", ",", "zs1", ",", "\[Mu]1", ",", "l1", ",", 
        "\[Lambda]1"}], "]"}], "[", "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dfz1", "[", 
      RowBox[{
      "t_", ",", "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", "l1_", 
       ",", "\[Lambda]1_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fz1", "[", 
         RowBox[{
         "t1", ",", "q1", ",", "zp1", ",", "zs1", ",", "\[Mu]1", ",", "l1", 
          ",", "\[Lambda]1"}], "]"}], ",", "t1"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"t1", "\[Rule]", "t"}], "}"}]}]}], ";", "\[IndentingNewLine]", 
    
    RowBox[{
     RowBox[{"pz", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", "l1_",
        ",", "\[Lambda]1_"}], "]"}], ":=", 
     RowBox[{"Block", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"zd", ",", "z2", ",", "fz", ",", "n1", ",", "\[Beta]"}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"z2", "=", 
         RowBox[{"fz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zp1", ",", "zs1", ",", "\[Mu]1", ",", "l1", 
           ",", "\[Lambda]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"fz", "=", 
         RowBox[{"f", "[", 
          RowBox[{"z2", ",", 
           RowBox[{"1", "/", "zp1"}], ",", "\[Mu]1", ",", "l1", ",", 
           "\[Lambda]1", ",", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"\[Beta]", "=", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"f", "[", 
               RowBox[{"zw", ",", 
                RowBox[{"1", "/", "zp1"}], ",", "\[Mu]1", ",", "l1", ",", 
                "\[Lambda]1", ",", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{"8", "Pi"}], "]"}]}], "]"}], ",", "zw"}], "]"}], "/.", 
            RowBox[{"{", 
             RowBox[{"zw", "\[Rule]", " ", "z2"}], "}"}]}], ")"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"zd", "=", 
         RowBox[{"dfz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zp1", ",", "zs1", ",", "\[Mu]1", ",", "l1", 
           ",", "\[Lambda]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"n1", "=", 
         RowBox[{"Sqrt", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"Sqrt", "[", 
              RowBox[{"1", "-", 
               RowBox[{"4", "\[Lambda]1"}]}], "]"}]}], ")"}], "/", "2"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Beta]", "/", "z2"}], "/", "fz"}], " ", 
          RowBox[{"zd", "/", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"n1", "^", "2"}], "fz"}], "-", 
             RowBox[{
              RowBox[{"zd", "^", "2"}], "/", "fz"}]}], "]"}]}]}], "]"}], 
        ";"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"0.9", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.11"}], "]"}]}], ",", "1", ",", "0.11", ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
               "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.11"}], "]"}]}], ",", "1", ",", "0.11"}], "]"}], "//", 
             "Abs"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"pz", "[", 
               RowBox[{"i", ",", 
                RowBox[{"0.9", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "1", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.11"}], "]"}]}], ",", "1", ",", "0.11", ",", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
                "0.1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                   "0.11"}], "]"}]}], ",", "1", ",", "0.11"}], "]"}], "//", 
              "Abs"}], "//", "Log"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "4", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"0.905", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.11"}], "]"}]}], ",", "1", ",", "0.11", ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
               "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.11"}], "]"}]}], ",", "1", ",", "0.11"}], "]"}], "//", 
             "Abs"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"pz", "[", 
               RowBox[{"i", ",", 
                RowBox[{"0.905", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "1", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.11"}], "]"}]}], ",", "1", ",", "0.11", ",", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
                "0.1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                   "0.11"}], "]"}]}], ",", "1", ",", "0.11"}], "]"}], "//", 
              "Abs"}], "//", "Log"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "4", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"0.9069", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.11"}], "]"}]}], ",", "1", ",", "0.11", ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
               "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.11"}], "]"}]}], ",", "1", ",", "0.11"}], "]"}], "//", 
             "Abs"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"pz", "[", 
               RowBox[{"i", ",", 
                RowBox[{"0.9069", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "1", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.11"}], "]"}]}], ",", "1", ",", "0.11", ",", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
                "0.1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                   "0.11"}], "]"}]}], ",", "1", ",", "0.11"}], "]"}], "//", 
              "Abs"}], "//", "Log"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "4", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.2", ",", "1.2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1.1", ",", "2.5"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.2", ",", "1.1"}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"z", ",", 
         RowBox[{"Log", " ", "Pz"}]}], "}"}]}]}], "\[IndentingNewLine]", 
     "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.767331072946052*^9, 3.767331105370255*^9}, {
   3.767331161497127*^9, 3.767331161680395*^9}, {3.7673312030330067`*^9, 
   3.7673312032205553`*^9}, {3.767331235521768*^9, 3.767331278510816*^9}, 
   3.7673313544037867`*^9, {3.767331401736404*^9, 3.76733140590559*^9}, {
   3.7673314646580153`*^9, 3.7673314680409527`*^9}, {3.7673315261178837`*^9, 
   3.7673315581657047`*^9}, {3.767331976501539*^9, 3.767331985350481*^9}, {
   3.767332021399005*^9, 3.767332098499947*^9}, {3.767359431271863*^9, 
   3.7673594317212753`*^9}, {3.767359527133832*^9, 3.767359544602088*^9}, {
   3.76735961049648*^9, 3.767359614887127*^9}, {3.767359867083969*^9, 
   3.767359872884457*^9}, {3.7673599323454113`*^9, 3.767359933324058*^9}, {
   3.7673599773234997`*^9, 3.767359987913083*^9}, {3.767360070468877*^9, 
   3.7673600737360897`*^9}, {3.767360124639983*^9, 3.767360127063736*^9}, {
   3.767360360080338*^9, 3.767360361487308*^9}, {3.767360496428577*^9, 
   3.7673605171394567`*^9}, {3.767360615432416*^9, 3.767360620407981*^9}, {
   3.7673607122088327`*^9, 
   3.767360714544889*^9}},ExpressionUUID->"ab34d227-75fb-4991-9f76-\
e5f1bc585a83"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwVlGs41Hkcxf+GwbCbckksMoNSo8u2divi+5Oy7VYbUo0nWUM8WySX2tzK
uqTkUkqxhpk1bbLRZZtZl9qxq+gyY7GiHXYm18ZkLj807iZrX5znvDkvPud5
znOooSf9w0kEQfgu6n9/eyq23L2hHnJYnb2MZ8tQzLNqS4uABiiok9NW+i1H
tqNXa9Gtp1A3V+7qVWyOjIxEArzmJVhHFEe5U01RT0Do2MXVbZDmv9SljmWC
aE6CKdHdDqD/3lydl22MRD012fL2LhCyQwwuGRuir1JSE9mjYvg7L96614yM
xrcnHfuZJIGqzAe054UkNEhjip5p30A0tzfLN51AB100cTJlHwzyHRiRN7VA
zdpEGfhyAN421zx2GJsFpt3uDevyBmFg+PorrXgavImyOOPHQ0BSrUne6jMF
Kfr3zO61v4Vm+smC246TUIE4pjatMnDzicoOZE7A8d+ov1L4w2CTbMe1U2jg
G1/+hV8y5LCqd51u90MN1Fq5hqZ6voPypEbiSpUG1oZR32yVvYOLZbQmplAD
Dm7F/MKUEXi54pVsr/4ElFfrcb11FRDn57VAYkxATujBqqFkBWiTX3eV1E8A
sT7JeXpYATUdP1ZGrJoEkV0pId2lBL59AoNXMglXrn3X1MZRAgtnZrLMpkBx
/x5boVKCWbrQ7V3+FEi5C4EurirYX69/WGU0Def/UGti4lUQnh14NSJrGlw9
nkedq1aBg39/byQxA0WilixSnwpCzLX1hxNmIJ+qf+bGEjWUGFMXWlUzoAzO
8G/cooa5Wy86s0JmYcqhyGc2WA3ePOHJmPZZQMzPrt5JU8NIcM35yx5zwBQw
dmwoV8NAX+Uunco5KPRse9ojUIM09VyOxmQedJfrOk3+owanzpaoW6fnYXvD
jf1PsBoIJvtoUPc8CHZKzRPJGGzZOdRj7lpwXGIi32uFIff1wU2OpVqQRM+8
iKZjePinT6lsTgtdTWKx3jYM0Rbfl1kc/gBOaYWjrrsxXDJtEZs8+gDX4h7Y
2wdiiEq1G9titQBZ/kUrh8IxmFHsY2cSFuA2rfQOKxaDo2aewuteAOLB2Z7g
FAzelDhHmS2B+AxZlHcWBj3+JL1rH4F6LOPJRy4v8lSNdLxe3F9kSW6EoAgD
6t3IsKklkNmGkJunOBj4mb7rupQEcjtkvaegAoMin17o4qiDnP1PXLe/i+HY
pfGpgCM6iH6/KWk9D0N/rnJ7XLEOMld6SJvrMIx2s0X3u3TQT4UenFEBhq3T
ycabLEhof66joPYJhk73EzttD5FQdrllmMPzxb5eiaiARUKf7/lIx12EwcZv
n2f1AAmZyQ4EkdswaI4mSy646CIn3784Fzsw0JzPD7sl6qL2VweOC7swhPHC
Qnte6CJ6taGkTYyhhW/KPv2JHhqcGS0v+xfDNgonwSpWDwXZjhFb3izmhX7v
W1/qoer4C73cPgyb+2+6lTqRUWkRt7V/AMOKSjn+IZOMdnzbsWx6CAM5Yb04
XUZGGcacCrkMg+tkikXxbn2U0DT4dY0cw8qYj0vrefoo4NCKjLARDEn5bTP9
dgboCyTkjCswOHeLK+dzDdDAkOWTcBWGRuQl+aA1QI+yB/sa1Hjxf1ie3bGG
SG/MumUBYxivSYg8LTdEq/xbNq4dwyBt5G5+yqSgU7x5FoxjEK6WnKmQUtD7
PMlZr/cY5kPVhUuDjFC6z1KXTzUYrj1m3JZKjNB/e/GGdQ==
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.016666666666666666`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwVkWs01HkAhv8zIg0VRdnmLFkV6hSL2Np4f+06opSGdl067Bh1NrS5rFZb
U1nXkmjJMVuKLSkUFbrK6rJCuhDRoovczX9+ajHDXKz98J7n2/Phec1FEd47
uQzDeE7vf+Jcsn6vRzMixcs68vX0CY8eepJ6pRlfpbknNRzRI2667CzJi1Ys
8dlrEcDTJR6tWjtcRtqR6i83XzpPm6hm6hQ7cDuRwDG5Lcrkkni+zrEN6jeo
3i9iPz/MEKuhPrc86Tuoq6wF/NNqVEoK8rM2dMNVPJCR1TeJrUsXDLWlfYA8
2vV40xMFwpvCK8ru9MB/U0XJHEc5DFUvnDxf9OLvzWfCjA3HUagMFlU87cOa
sHvXRzzGUKOfEJhb3g+vL3Rmhj4fRd3loELHhAFoqY2C/TNH4Rqgzeq4DKK4
dKHoftIoBNaiiru9gziV7Nx34+wodmWanTEQDyEyjhdj2zIKvlfF5tvcYaSY
sO+aTccQtSTtps+BYfA/qT2u7BtDkds35sL+YUgLdZy0u8YgYLJFzu5SHPfh
8/ju4zCYFGgs86TIihT0K2+MI+f8lXlfs1K8P9JqHmIph+XVgqBoexaB2xc1
/Z4jBy9R/9XlaBYWMe4PVusosJFdsbushMVboy29PtEKxIX0d1q+ZTH33KHd
Th0KjLsd8SmbLYNtuLlkB5nAiSDdrkYnGdYd4Bmm/DmBJWH+efJAGZa3O5TF
aCbQkvq6WRInw8VrdydMfCdhW98dNztfhgVtoqLYkkn8UH9R71KVDCeiakoL
lJOQeqxNvPZKBumbmp9qNiihLfZsCZPJwNQXuY1nKDG5q6Nm9gwKcW6L8b4W
JYLqchqeLqR4pLs3/LCxCnGpDSPt1hQ2b12Ebj4q7AkKDPBbS5Ggt9zWMF2F
q7GCgUgPijmNRGFaq0Ii21j5rS9FaXG3U7lShXWSC8myEIraTOknYxs1VhX8
bJUWQRF1KV2YKlQjpdzmscN+CoGFldjvhBo2klpHTQJF+jJ5aV21GkoXMwdV
GkXwVl8Lc6kaCm/2DMmmMPBMelxiosHLvRmFHbkUB38zsrjuqsHC1PVM53kK
/1sOW8SRGlifNJ7hVUxxMnu42jdXgwDGvoVcpeg+Fdp1vE6DEqNj+6sqKaqG
qnTDxzSws+nXarxDMT9vS6mzxRQ29phJ9v1F8TS7Gt7eU4h3upjR8JCiTcj8
oYifwrLy2uT6xxQqw8+eHa6cQvnHf/eIn0z7eJ0ZTkNT6Fe5nR18RsHL1D55
y4Ah9j7RXQuaKdgoP7PqlQz5NWFbzKxWCuujc19u82TIRuK1uraN4n1Te1HB
boasKUpKEfxD8TBxk/BlOkM2rbeLLOukEPJtDuqVM8Q5OfX0hzcU2dWPdKJf
MyTYITbk4zuKeE5AqBWXQwasI9o6uilMV8U2fb+SQ34xlDy40EMRknV9iL+d
QwLuxVwT9FHME0yKJMc45Ibhj/L3/RT3RXfTBqs5pMUup9xvkCLSI//RijEO
WTwe0XpzaPoP98yPsau45DtSupgjpfArMDfrCeOSxc8dv3RkKfhH72UmFHPJ
NmH0IT8ZxUrXOzN3slwyblocFEqn+9lV9eTYa5EJs0+zwkYo1s9fvWjpQS3y
H0zPYSs=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwVUn841HcA1tWWsluZkrSk2xRm9Tw26WZ6SWKiJj/2eNpR6TzNhK5rZqpJ
RCEdV5QQueqhopXlimLlai2XbKgUdrqQu/tQ55z7fo7d/nif93n/eJ/3ed/n
Xbo9YTOfZWZm5m/C/zwxk995/sMXsDobV1ibxfKql++2X2DswYGU93Ne7zfz
OpbwdmW6qg9rgsSnRwuN4IjYLXv9FLDPfOh1TGFAxW+auBs5/biSns5vlekR
Np+R5tx8hbOejt3KlePgPxruW9amxANRhrhslg5bLeoe5LS+BmvLvk6W9xii
jn8iElwbwGLBux0d97SoSRJfmn1oEEnPJb4kQwuenUXTU88hJMz0GgxM0mJF
lswnWzmEZPGVGrNjWrjU7ZO/THkDj+7BjcYmLdzFGcZDrGHMCE3e028+Bult
RrooZRjOS+oqG6PG8Lvw+VqHgWEwlqXhj5rGEFgk3znlp0LeCcv4AEcdOGHG
C69LVejuiJiLAh34H3BtdCoVNu8aH4mc0kEiWydw+kKNv9tc3vXHjqM54q9z
UQI12MO35gj/GcdUtPIUr1qN5fKSWgsPPZanu81+0qOGSDvnnqpED2OuZGEI
W4PGVrsEEdVD3VQlj3XXgNUUnXU6fALZgUf883gatF+TjTypnsABcr/eKVWD
MzxhjDWdQLOheWlhmQbTJ/fIeH4GOLlm9Tg1aGBhr9deyjWAmGv0zp0a+FiF
u857bEDwpdCQbrUGzjc+5l22YMA/uLVaOJ2ALz+QU+jD4L0lib84LyBY8qXV
NP1PDJyWieqdnQi8giv93kkYpNicyijlEqwutiN1bSa/8dqtKn+CzMSKLTHj
DBxFqQmJ4QRPFZtiPrel8CxpiGRHE8y1aY1ZxaWYZRYbfCaeILlXkXc+lOIb
khnvlkwQt5g5LYmj8Im8m6FJI6h45qmMOEihOHHy2+5sgkSbuB5lPkVy0epq
tphAvlRXuqucostCLDtRTKDnDCyyukxxxLU4NK2CIHbRxutjdRQ1J9fU9F00
9StdnbqqgcJYoDA0XDHl+++w196haCiw8eVcJzj32KsmsJnix67bZbZSgrTv
PJKjmijY5VxuTSPBLIl5dEAjheV0a8FgM0HZ7o4VLvUUKUnrR1pbCDwtj1d/
epUi21pQG/MngSa/VxxykeJctXC+9BFBlmVY1vMSUx/HtbqHjwk4LN7OFyIK
nX1SVXk7QXq3M/anU9xZfHb+2g4CQ+72y4q9FBPqoKu1XQShOt5CtxiKAU7P
ydFnBF/1Hr1eGUZx+PDyTPMXBD5JaA5dRzHKrH+rf0ngnvKzcZ8rxbwN+smW
XoIQmduMIHuKMgeX44J/CTzy2j7Ssyn6v/bdMK3fpJ8V+dYzDIbsOCXCVwRd
0rs82RAD8fdvbsuVBJI026FtTxmUzvj1puWAaf/cyICH9xkMajfFY5AgmD5o
965ncKPSVhQxRCD64U4au4oBdefWbXtDMFJYPiksYVD8UrohYphgYpst9498
Bp8RhwveKtN/5rztw1EG/wGIBG5H
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["z", TraditionalForm], 
    FormBox[
     RowBox[{"Log", " ", "Pz"}], TraditionalForm]},
  AxesOrigin->{0.2, 1.1},
  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.2, 1.2}, {1.1, 2.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.767399544761959*^9},ExpressionUUID->"524b2a7e-9ffd-4ce3-8826-\
b73fffd08668"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Gauss", "-", 
    RowBox[{"Bonnet", " ", "AdS", " ", "q"}]}], ">", 
   RowBox[{"qcrit", " ", "case"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7673993198821783`*^9, 3.7673993268547277`*^9}, {
  3.767399372642191*^9, 
  3.767399415016797*^9}},ExpressionUUID->"0bc20beb-f7be-48a4-ac48-\
7e6d457eec4c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm1", ",", "fz1", ",", "m", ",", "q", ",", "f", ",", 
     "\[Mu]extreme", ",", "dfz1", ",", "pz"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"rp", "^", "4"}], "+", 
      RowBox[{"8", "Pi", " ", 
       RowBox[{"l", "^", "2"}], 
       RowBox[{"\[Mu]", "^", "2"}], 
       RowBox[{"rp", "^", "2"}], 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "3"}], "/", 
        "\[Lambda]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"q", "[", 
      RowBox[{"rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", "k_"}],
       "]"}], ":=", 
     RowBox[{"k", " ", 
      RowBox[{"rp", "^", "2"}], " ", "l", " ", "\[Mu]", " ", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "3"}], "/", 
        "\[Lambda]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{
      "z_", ",", "rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", 
       "k_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"1", "/", "2"}], "/", "\[Lambda]"}], "/", 
       RowBox[{"l", "^", "2"}]}], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"1", "-", 
          RowBox[{"4", "\[Lambda]", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{
              RowBox[{"m", "[", 
               RowBox[{"rp", ",", "\[Mu]", ",", "l", ",", "\[Lambda]"}], 
               "]"}], " ", 
              RowBox[{"z", "^", "4"}]}], "+", 
             RowBox[{
              RowBox[{
               RowBox[{"q", "[", 
                RowBox[{
                "rp", ",", "\[Mu]", ",", "l", ",", "\[Lambda]", ",", "k"}], 
                "]"}], "^", "2"}], " ", 
              RowBox[{"z", "^", "6"}]}]}], ")"}]}]}], "]"}]}], ")"}]}]}], ";",
     "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{
      "zs_", ",", "zp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", 
       "k_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"f", "[", 
           RowBox[{"zs", ",", 
            RowBox[{"1", "/", "zp"}], ",", "\[Mu]", ",", "l", ",", 
            "\[Lambda]", ",", "k"}], "]"}], "]"}], "/", "zs"}], "/", 
        "\[Mu]"}], "/", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"zs", "/", "zp"}]}], ")"}]}], 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"1", "-", 
            RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "2"}], 
       "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{
      "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", "l1_", ",", 
       "\[Lambda]1_"}], "]"}], ":=", 
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "q2", " ", "\[Mu]", " ", 
               RowBox[{"z", "[", "t", "]"}]}], 
              SuperscriptBox["zp", "2"]]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"2", " ", 
               SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"\[Sqrt]", 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]]}], ")"}]}]}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                  FractionBox[
                   RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              SuperscriptBox[
               RowBox[{"z", "[", "t", "]"}], "2"]], 
             RowBox[{"(", 
              RowBox[{"\[Sqrt]", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{
                   FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                 FractionBox[
                  RowBox[{"6", " ", 
                   SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                  RowBox[{
                   RowBox[{"-", "3"}], "+", 
                   SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"24", " ", 
               SqrtBox["6"], " ", 
               SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"6", " ", "\[Lambda]"}], "-", 
                 RowBox[{"16", " ", 
                  SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                  SuperscriptBox["zp", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["k", "2"], " ", 
                  SuperscriptBox["l", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["zp", "4"], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox["1", 
                   SuperscriptBox["zp", "4"]], 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], ")"}]}], 
               " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "+", 
                  RowBox[{"\[Sqrt]", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                    RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                    ")"}]}]}], ")"}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SqrtBox["6"], " ", 
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"6", " ", "\[Lambda]"}], "-", 
                 RowBox[{"16", " ", 
                  SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                  SuperscriptBox["zp", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["k", "2"], " ", 
                  SuperscriptBox["l", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["k", "2"], " ", 
                  SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                 RowBox[{
                  SuperscriptBox["zp", "4"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "-", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                   ")"}]}]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["l", "2"], " ", 
               SuperscriptBox["zp", "8"], " ", "\[Lambda]", " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox["1", 
                   SuperscriptBox["zp", "4"]], 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], ")"}]}], 
               " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "+", 
                  RowBox[{"\[Sqrt]", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                    RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                    ")"}]}]}], ")"}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", " ", 
               SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
               RowBox[{
                SuperscriptBox["z", "\[Prime]\[Prime]",
                 MultilineFunction->None], "[", "t", "]"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "3"}], "+", 
                 RowBox[{"\[Sqrt]", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                   ")"}]}]}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                  FractionBox[
                   RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"3", " ", 
               SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
               RowBox[{
                SuperscriptBox["z", "\[Prime]",
                 MultilineFunction->None], "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"6", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                   RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"24", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"6", " ", "\[Lambda]"}], "-", 
                    RowBox[{"16", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "3"]}], ")"}], 
                  "/", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]]}], ")"}]}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", 
                 FractionBox[
                  RowBox[{"12", " ", 
                   SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                  RowBox[{
                   RowBox[{"-", "3"}], "+", 
                   SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "3"}], "+", 
                 RowBox[{"\[Sqrt]", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                   ")"}]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                  FractionBox[
                   RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"k", "\[Rule]", 
             RowBox[{"Sqrt", "[", 
              RowBox[{"8", "Pi"}], "]"}]}], ",", 
            RowBox[{"q2", "\[Rule]", "q1"}], ",", 
            RowBox[{"zp", "\[Rule]", "zp1"}], ",", 
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}], ",", 
            RowBox[{"l", "\[Rule]", "l1"}], ",", 
            RowBox[{"\[Lambda]", "\[Rule]", "\[Lambda]1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", " ", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "9"}], "}"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Mu]extreme", "[", 
      RowBox[{"k_", ",", "l_", ",", "zh_", ",", "\[Lambda]_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{"3", "/", "2"}], 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"Sqrt", "[", 
             RowBox[{"1", "-", 
              RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}]}], "]"}], "/", 
        "k"}], "/", "l"}], "/", "zh"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"fz1", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", "l1_",
        ",", "\[Lambda]1_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{
       "q1", ",", "zp1", ",", "zs1", ",", "\[Mu]1", ",", "l1", ",", 
        "\[Lambda]1"}], "]"}], "[", "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dfz1", "[", 
      RowBox[{
      "t_", ",", "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", "l1_", 
       ",", "\[Lambda]1_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fz1", "[", 
         RowBox[{
         "t1", ",", "q1", ",", "zp1", ",", "zs1", ",", "\[Mu]1", ",", "l1", 
          ",", "\[Lambda]1"}], "]"}], ",", "t1"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"t1", "\[Rule]", "t"}], "}"}]}]}], ";", "\[IndentingNewLine]", 
    
    RowBox[{
     RowBox[{"pz", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", "l1_",
        ",", "\[Lambda]1_"}], "]"}], ":=", 
     RowBox[{"Block", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"zd", ",", "z2", ",", "fz", ",", "n1", ",", "\[Beta]"}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"z2", "=", 
         RowBox[{"fz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zp1", ",", "zs1", ",", "\[Mu]1", ",", "l1", 
           ",", "\[Lambda]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"fz", "=", 
         RowBox[{"f", "[", 
          RowBox[{"z2", ",", 
           RowBox[{"1", "/", "zp1"}], ",", "\[Mu]1", ",", "l1", ",", 
           "\[Lambda]1", ",", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"\[Beta]", "=", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"f", "[", 
               RowBox[{"zw", ",", 
                RowBox[{"1", "/", "zp1"}], ",", "\[Mu]1", ",", "l1", ",", 
                "\[Lambda]1", ",", 
                RowBox[{"Sqrt", "[", 
                 RowBox[{"8", "Pi"}], "]"}]}], "]"}], ",", "zw"}], "]"}], "/.", 
            RowBox[{"{", 
             RowBox[{"zw", "\[Rule]", " ", "z2"}], "}"}]}], ")"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"zd", "=", 
         RowBox[{"dfz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zp1", ",", "zs1", ",", "\[Mu]1", ",", "l1", 
           ",", "\[Lambda]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"n1", "=", 
         RowBox[{"Sqrt", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"Sqrt", "[", 
              RowBox[{"1", "-", 
               RowBox[{"4", "\[Lambda]1"}]}], "]"}]}], ")"}], "/", "2"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Beta]", "/", "z2"}], "/", "fz"}], " ", 
          RowBox[{"zd", "/", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"n1", "^", "2"}], "fz"}], "-", 
             RowBox[{
              RowBox[{"zd", "^", "2"}], "/", "fz"}]}], "]"}]}]}], "]"}], 
        ";"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"2", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.12"}], "]"}]}], ",", "1", ",", "0.12", ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
               "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.12"}], "]"}]}], ",", "1", ",", "0.12"}], "]"}], "]"}], 
            ",", 
            RowBox[{"Re", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"i", ",", 
               RowBox[{"2", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.12"}], "]"}]}], ",", "1", ",", "0.12", ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
               "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.12"}], "]"}]}], ",", "1", ",", "0.12"}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "9", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"2", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.13"}], "]"}]}], ",", "1", ",", "0.13", ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
               "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.13"}], "]"}]}], ",", "1", ",", "0.13"}], "]"}], "]"}], 
            ",", 
            RowBox[{"Re", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"i", ",", 
               RowBox[{"2", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.13"}], "]"}]}], ",", "1", ",", "0.13", ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
               "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.13"}], "]"}]}], ",", "1", ",", "0.13"}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "9", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"2", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.14"}], "]"}]}], ",", "1", ",", "0.14", ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
               "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.14"}], "]"}]}], ",", "1", ",", "0.14"}], "]"}], "]"}], 
            ",", 
            RowBox[{"Re", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"i", ",", 
               RowBox[{"2", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.14"}], "]"}]}], ",", "1", ",", "0.14", ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
               "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.14"}], "]"}]}], ",", "1", ",", "0.14"}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "9", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0.7"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "150"}], ",", "150"}], "}"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"z", ",", "Pz"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]}],
   "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.758538000029398*^9, 3.758538045766563*^9}, {
   3.758538140854106*^9, 3.758538148338945*^9}, {3.758538282467866*^9, 
   3.758538320298864*^9}, {3.75853837267715*^9, 3.758538470030238*^9}, {
   3.758538544447816*^9, 3.758538559070099*^9}, {3.758538615062416*^9, 
   3.758538671483891*^9}, {3.758538705169448*^9, 3.7585388060509872`*^9}, {
   3.7585388776917543`*^9, 3.75853887816372*^9}, 3.7585390792490873`*^9, {
   3.758539546226787*^9, 3.758539547432866*^9}, {3.758539636191441*^9, 
   3.7585397044434347`*^9}, {3.758539791559417*^9, 3.758539915816618*^9}, {
   3.75854038767594*^9, 3.758540432352581*^9}, {3.7585405771371927`*^9, 
   3.758540707684121*^9}, {3.75854073873212*^9, 3.758541006335308*^9}, {
   3.7585453635161953`*^9, 3.758545461260376*^9}, {3.758545529501421*^9, 
   3.758545568684445*^9}, {3.758545634132215*^9, 3.758545871455368*^9}, 
   3.758545966931903*^9, {3.758546005115241*^9, 3.7585460077110157`*^9}, {
   3.758546042262128*^9, 3.7585460527426157`*^9}, {3.758546132809017*^9, 
   3.7585461343929653`*^9}, {3.758546252037428*^9, 3.758546259128384*^9}, {
   3.758546338512642*^9, 3.758546350708971*^9}, {3.758546403680023*^9, 
   3.75854640619344*^9}, {3.758546455598486*^9, 3.758546464989917*^9}, {
   3.7585465491062727`*^9, 3.758546582560766*^9}, {3.7585466260575323`*^9, 
   3.758546693199839*^9}, {3.7585467739651833`*^9, 3.758546889346767*^9}, {
   3.7585471259813757`*^9, 3.75854719567307*^9}, {3.758547227022077*^9, 
   3.7585472663922853`*^9}, {3.758547353485178*^9, 3.75854749146279*^9}, {
   3.7585476020511293`*^9, 3.758547603543219*^9}, {3.758547735350923*^9, 
   3.758547737596816*^9}, 3.7585478089710083`*^9, {3.7585485160885477`*^9, 
   3.758548516713715*^9}, {3.7585486370622787`*^9, 3.758548672265959*^9}, {
   3.75854880612626*^9, 3.758548824200348*^9}, {3.758596760971849*^9, 
   3.758596814521757*^9}, {3.758596944974786*^9, 3.75859710080864*^9}, {
   3.758597160698374*^9, 3.758597213057705*^9}, {3.7585972553956957`*^9, 
   3.758597259174314*^9}, {3.758597333169475*^9, 3.758597362725316*^9}, {
   3.758597401269397*^9, 3.7585974115376787`*^9}, {3.758597442360677*^9, 
   3.758597487908835*^9}, {3.758597527576044*^9, 3.758597535223362*^9}, {
   3.75859778107716*^9, 3.758597864024992*^9}, {3.758597940532975*^9, 
   3.758597940710773*^9}, {3.75859801938067*^9, 3.758598041541828*^9}, {
   3.7585980837516947`*^9, 3.758598135933546*^9}, {3.758598169065208*^9, 
   3.7585981809138803`*^9}, {3.758598216764838*^9, 3.7585982453345547`*^9}, {
   3.758598341993463*^9, 3.7585983440778017`*^9}, {3.7585988306246433`*^9, 
   3.758598830830577*^9}, {3.758599128685021*^9, 3.758599138411364*^9}, {
   3.758599819382842*^9, 3.758599820499593*^9}, {3.758599867873096*^9, 
   3.758599901141396*^9}, {3.758600066009074*^9, 3.758600071231616*^9}, {
   3.758616377920555*^9, 3.758616440669208*^9}, {3.7586164759202433`*^9, 
   3.7586164989925137`*^9}, {3.7586165358425198`*^9, 3.758616543819427*^9}, {
   3.758616656502936*^9, 3.758616689136405*^9}, {3.758616748958891*^9, 
   3.75861675653091*^9}, {3.758616814291253*^9, 3.75861683738706*^9}, {
   3.758616871724538*^9, 3.758616873633115*^9}, {3.758617008655117*^9, 
   3.7586170211416492`*^9}, {3.758617090872438*^9, 3.758617133212291*^9}, {
   3.758617174391375*^9, 3.7586171749787083`*^9}, {3.758617283822666*^9, 
   3.758617301130199*^9}, {3.7586173425848722`*^9, 3.758617486445385*^9}, 
   3.758617549086116*^9, {3.758617603942511*^9, 3.758617614499693*^9}, {
   3.75861766380795*^9, 3.7586176648656683`*^9}, {3.75861770728601*^9, 
   3.758617707984373*^9}, {3.758617825281706*^9, 3.758617849843707*^9}, {
   3.758617888626677*^9, 3.7586178896227903`*^9}, 3.758617937793913*^9, {
   3.758618000690536*^9, 3.758618039307282*^9}, {3.7586180783188763`*^9, 
   3.758618085714858*^9}, {3.758618184309708*^9, 3.75861818562947*^9}, {
   3.758679905660881*^9, 3.758679908946331*^9}, 3.758679997961876*^9, {
   3.758683247434886*^9, 3.758683287280908*^9}, {3.758683412976473*^9, 
   3.758683430913862*^9}, {3.758683463446466*^9, 3.7586834758812103`*^9}, {
   3.758683607811184*^9, 3.75868361102185*^9}, {3.758683770532968*^9, 
   3.758683772942431*^9}, {3.7586841437559853`*^9, 3.758684149664034*^9}, {
   3.758684184553665*^9, 3.758684224278446*^9}, {3.758684368035933*^9, 
   3.758684373998204*^9}, {3.758684614136307*^9, 3.758684628272398*^9}, {
   3.758684852009445*^9, 3.758684878564541*^9}, {3.75868502434906*^9, 
   3.7586850656406307`*^9}, {3.758685250540127*^9, 3.758685277775262*^9}, {
   3.758685458738607*^9, 3.7586854822419024`*^9}, {3.758685699156076*^9, 
   3.758685711343614*^9}, {3.758685966757526*^9, 3.758685969123934*^9}, {
   3.7586860572210007`*^9, 3.7586860580976353`*^9}, {3.7586861712680264`*^9, 
   3.758686214264517*^9}, {3.75869080889561*^9, 3.758690840562085*^9}, {
   3.758690997284669*^9, 3.758691072240926*^9}, {3.758691181154701*^9, 
   3.758691183672777*^9}, 3.758709612024172*^9, {3.7587097691885347`*^9, 
   3.7587097718304043`*^9}, {3.758727408797332*^9, 3.758727425223515*^9}, {
   3.760536783066021*^9, 3.760536785665099*^9}, 3.7636925821428823`*^9, 
   3.7636926324963713`*^9, {3.763692756169479*^9, 3.7636927577269993`*^9}, {
   3.7636928485864077`*^9, 3.7636928931614943`*^9}, {3.7636930719789877`*^9, 
   3.763693083506843*^9}, {3.767358237995792*^9, 3.767358277442711*^9}, {
   3.767358880927092*^9, 3.767358919973076*^9}, 3.7673590250596933`*^9, {
   3.767359186369059*^9, 3.7673591888821783`*^9}, {3.767361271303097*^9, 
   3.767361273649377*^9}, {3.7674052626147623`*^9, 3.7674052816362333`*^9}, {
   3.767405370437171*^9, 
   3.767405394708324*^9}},ExpressionUUID->"72fcfeb7-63f0-4080-863d-\
aae8e26eea37"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[{{0.10055367127262296`, -79.95686620349221}, {
       0.10549032396917193`, -126.9548328662747}}], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAqD3LgBoMxj/uck/7G71fwCWKx3ZL
EMk/oW+CtPFaVcD2eu4JyADPP7Oe8PptQUfAR/IOb2KS0j9vARMZoe46wHsL
GTVeq9U/aSJWgPaLMMACyzE/Dr7YPzGLJ4bhWiXATBopfAm/2z8Y1cE04Zkc
wBEYmLRYo94/jlwwp66YE8D6o/HmyK/gP0Laub3y8wrAfSoWVQHz4T9hc6rj
QQkCwOjiHys5EOM/MPYSXrsM9r8ze3xAgezjP4LQV1UaROS/hAF28pxA5D+1
qRzcd02pP+rZADRR0uM/1aQJVBiY5z9iJEjRceniP+zClWzi8fc/H4f75pLF
4T8rJQOYLTMDQOkZ6crffeA/iwmRV3V/DEAhd30K3zjeP8mIXNDzshRANCHE
x6hP2z8kP42u30ceQJ1xhupjS9g/WGjMRsa2JkAXlN9PCjfVP6mSFVzYtjFA
eP3GCy0e0j9FYl6rYBE9QDAdyjIoHc4/5NpebFpVSUCV5zFnxjjIP0gPN+a2
cVdA5hIhzvOxxj8pdT91vD5dQPk1wE8=
       "]], 
      LineBox[{{0.10600124050620802`, 116.9802525634483}, {
       0.10003929958206202`, 21.69995037817727}, {
       0.10651173664450594`, -126.9548328662747}}], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAp3hYbaD7xT/uck/7G71fwNIDwqBh
nsc/L+InX5oXWcCmXYFnDnnNP2hjjCDk+UrAukDAqCHK0T/B1+fyq74+wCAB
t4264tQ/dWmvPKOfMsDd/vr1IPjXP8JqmDCnwyfAVSxvvaH+2j9UJ2FxuJEf
wJrFxWE+690/4hYzSMyJFcDNoBUoYlngP/XpYIjoqQ3A+C2BzjKk4T+zqQBE
2REEwH4P8E6azOI/4rGLiutY+b9C2kKvwL3jP3LhoQ3WCOq/O0ehHbo95D8K
2h/Yuf2+v4ywH5qz/eM/WUe9Ng7i4T9/j8pYfSvjPy0ZwkmHtPQ/GB8TAGkT
4j/mdhUJ+TcBQPiKMFuS0+A/lv2z2sngCUBE/avW6u/eP76nQFMD1hJAHzeb
Y08P3D8WHeY7q3MbQBsK6j7bENk/cWRhVaNuJEA/xCZwhv/VPxLUwEchhS9A
w6+vpKHm0j+BeCcsLYE5QGUym3hLps8/SEi/FXbgRUCOmljU6K3JP3PnmUkO
+FNAp77/RHbGxj8pdT91vD5dQNF7zPo=
       "]], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAWf+4G8G6xT/uck/7G71fwN4R+FVY
NcY/kx8CkhOCXcDetfroTvXLP0+KGvxyak/AOVTpoY4C0T8rWNC2Pp5BwHqc
pQbhGdQ/GHCe0PQHNcDZAVLXPzHXP4PKrvOGgyrAZKqbtZI82j+aTSRc8nMh
wLtkHHPGMN0/s9wpQAiwF8Des8zaZQHgPyHmk2+GThDA2rDu0TtT4T+jLLsX
sD0GwKR61N2cheI/H/1DGY/M/L8xG+YpGYjjP9HBqVIT9u+/O2jhynEt5D9B
7x6wr7bSv8fv+8zKH+Q/Ea8LOf+S2D80u619UGnjP47Am/vClvE/UqLjg8Re
4j9a08DxHLP+P6gp7jaBJ+E/RWObc2h0B0DMQI45UKTfP0uARwGXJBFAx0r+
nArN3D8QUbUm8+sYQIBoDioa1dk/KtusiAVsIkCUh75SgsfWPy84ahkWISxA
wooIJmev0z+loNUrbHY2QKnZGRMkmdA/y3f3vT34QkAZY25YtSnLP83rcRwG
DlFAt9VMDdyRxj8pdT91vD5dQMe6x+g=
       "]], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA4N+WObnYxT/uck/7G71fwOj5k+V5
dso/y/qGAylcUsBBy8Zo8DvQPzJymoMhRkTA74NFxQZR0z8pkPVNS9U3wMqV
fBSaadY/HCzaFuipLcB2YG9fCnnZP60XCZPgVSPAHwSy1SB03D/Ykj56gRMa
wBADxxjhT98/4SVqbDrrEcCa8+fsSQDhP1qxWh8dkgjA0+6jwq074j9WoQaL
CzcAwLFkLC7VTOM/yyOtHggK87+qRnw0DBHkP4Ql5gMIz92/3LXxLLM25D+u
9fYUABnLP+gLgigUouM/77xAEown7T9En1IOXKfiP3vH/w4GKPs/2RzO1oh5
4T8MlWBUxzMFQC50sFruKuA/qodPbAkyD0C8AtdLrYjdP+wM331fphZAK8Jc
EvSX2j/BSMMC7aQgQNkZqbfOjtc/s0kVBAQtKUCr3/X1RHjUP1IehofX2jNA
RMDI0Ttg0T+EIMpKNYRAQD2c+9X0qsw/ojM6dzU7TUDWt8LTxd3GP8hsSHYW
WFtAlCNnH+luxj8pdT91vD5dQP+RwEE=
       "]], 
      LineBox[{{0.10559678690822968`, 116.9802525634483}, {
       0.10048632940306458`, -75.11155571748377}, {
       0.10568340331566396`, -126.9548328662747}}], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA5dh23c8Mxj/uck/7G71fwEPOTSCq
/cg/npdWt9KGVcBAj1FVKu3OP/0qv0oPbUfA6rTTvmKI0j+1QlMbphs7wPbN
Cq1eodU/l9vJ/q2kMMAn5n6yNbTYP6wm+OzEdyXA4or6mHu12z+mMLnuub0c
wANakRc5mt4/bxvEMk+wE8CAK6Kzg6vgPwWkndEzFQvAnGTH0iDv4T8Rh7QB
byICwNJ1HOrvDOM/UBOI3vA19r8fe02KW+rjP7uhxcHRjOS/NnMc/clA5D8S
aO8Kx/SkP1Fg4/Wp1OM/p0acT3ZO5z8huZw/0eziP9KZlGHBx/c/yfZJyH/J
4T/9gcchLRkDQGMnNfosguA/0d9lzsRcDEDhXcnNCELePxq/QMkVmhRA0Ex4
1ztZ2z/DEJVa1yEeQDmwQeE8Vdg/h9RO1OKXJkDPb/tiBUHVP5VCv/4znDFA
rnDbtSIo0j8Rx79kb+A8QBepuVWiMM4/Bj1Jj5ElSUDYA59HKEvIPwmph560
QVdA8/B6RV60xj8pdT91vD5dQA/szb0=
       "]], 
      LineBox[{{0.10594972702351611`, 116.9802525634483}, {
       0.10006024741242872`, 26.816444597648662`}, {
       0.10646946571180915`, -126.9548328662747}}], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAREhZy1D5xT/uck/7G71fwPaJWcgz
jMc/pmOPvYtLWcC8rYzNq2XNP3qXUtPDLUvARnO2+S/A0T+BtUm8dvM+wODm
GRO+2NQ/0n9g4Si8MsAN0X8LQu7XPy5CC7t55CfA57SSZQT12j+1thFX17kf
wE5+OecF4t0/jWNzp9WjFcATlDIXC1XgPz+CTjHszQ3ATlvNYDig4T/5z/25
lywEwCPrvHwlyeI/z289J9iD+b/P8OqqO7vjP+hknDkyU+q/kepw6zg95D8D
lG58ypTAv2d7Awag/+M/CK50NkKa4T9uefheqS7jP2HrNggyjPQ/dnv7lDUX
4j/qGy4lkB8BQKjyjmDH1+A/m2ahk9nACUBreXSz7vjeP2Y/1tiDvxJAAW0h
eMUY3D88VtlMzFEbQLV6I+2fGtk/fCSX/IlTJEC5PmVZdgnWPxyJ1HwZVy9A
kzScxpbw0j+BjHGMk1c5QEp5BGniuc8/JkFs2Gu4RUA0PFyWnMDJP7CHNq3R
z1NAvb5Cor3Fxj8pdT91vD5dQLzoy10=
       "]], 
      LineBox[{{0.16964090827461065`, -126.9548328662747}, {
       0.17296434583670134`, -118.98386564900738`}, {
       0.21784020251678013`, -63.31457322756536}, {
       0.265178006600289, -35.479175830128575`}, {
       0.31347109756396896`, -21.16019769794632}, {
       0.36177726027969126`, -13.330019027325301`}, {
       0.4093568690646015, -8.77048263697468}, {
       0.45553363042535655`, -5.950036818212875}, {
       0.4996328026301791, -4.095818460514702}}], 
      LineBox[{{0.10132347731637811`, 116.9802525634483}, {
       0.10504556151644764`, -126.9548328662747}}], 
      LineBox[{{0.10391117704726223`, 116.9802525634483}, {
       0.10281565003322278`, -126.9548328662747}}], 
      LineBox[{{0.10149077523932706`, 116.9802525634483}, {
       0.1049508261193791, -126.9548328662747}}]}}, {}, {}, {}, {}}, {{}, \
{{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[{{0.10056289834005969`, -76.79374442514987}, {
       0.10490313173970411`, -115.3504714559488}}], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAorRJ+Dl8xj/TXtQfbtZcwPzYctaQ
N8k/II7PghUEVMB90ftv2TbPP8kQqJ12vEXAl9/jfE600j9vHEgY3SQ5wONA
RYJx09U//Vum+szlLsDoBJ9RRuvYP1E50vf/9CPAtcnAuhfw2z8ADq6NC8Ua
wBEHKhqm1t4/tJ4dJMdeEsAZTGh6oMngPzNddrADSAnAhyQsDuQL4j8kgMBn
guAAwBGxgvNZJuM/fF7/7clo9L99s8t7l/vjP4yBihyF4uG/+yAMtNE/5D+t
ZSHVVfO6PyD4UU1MwuM/hOGwsmj06D/ixOkwb9HiPyrkQYGNavg/FN0cO1Wo
4T8ALMePNFQDQFpzajgpXOA/CqXcbV+IDEAprHFc7+zdP6GSbI6jsRRAtg+p
YHb72j+SgkZdaFIeQDsb/FBU79c/+vMUhJvYJkAl11Ia1tPUP+Z3aZ+c8jFA
tgKmKhK10T8i81jSj8A9QCnGAKGIQ80/hi1AfBNCSkAFqZ5LXmDHPzbK6lQs
lVhAeXQ1NpGtxj8St2IiB11bQDfQxz8=
       "]], 
      LineBox[{{0.10590877315483656`, 109.45356044426106`}, {
       0.10020337620899773`, -46.78759867701379}, {
       0.10597534411372161`, -115.3504714559488}}], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAlFfdgax5xj/TXtQfbtZcwCPBNTPD
wMg//CY5100QVcDYTLI3tLnOPz4c3QqbxUbAEkAASId00j8uyLiS+jQ6wIt3
RkC0k9U/rp5ZHakHMMCxtLvYj6zYPyiqQMhUoiTAAzutJVCz2z/OMYxNx5sb
wITfOx60nN4/Wj82eFzsEsDzKwXtj67gP5Q2uILdDwrAbs9+KGXz4T/B+nzk
rHgBwGf+8ea6EeM/IHCimuRj9b+WF0+5he7jP8YPYj56oeO/XgKJxONB5D/4
cZMkzfyqP9Vdwa3F0eM/Y/dEyb0r5z8VO4AaLufiP7OeUgl7Zfc/+uEvF4bB
4T+Ad7Bn7LICQC6lDj+7d+A/p3fCcIWwC0B9/rbToyfeP+5albgWFhRAOfg9
Q8g42z/CUp+h12IdQMVZ7AdeLtg/9755omAUJkAIhETPrBPVP8UH1xunRzFA
JdDWDq/00T/6ERUm7YI8QCYSasKXv80/GjeVYmsISUChTb9ztdTHP/B7yM8v
WVdA48riLqjFxj8St2IiB11bQPs5yVA=
       "]], 
      LineBox[{{0.1060896219146057, 109.45356044426106`}, {
       0.10002291496476667`, -15.782384735849021`}, {
       0.10637759463691121`, -115.3504714559488}}], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA6WCVDcRwxj/TXtQfbtZcwBOBCXS8
Ssg/YC1Y/rcrVsDQ+01I5zzOP28rhxTj3UfAycFmOs000j8US3OUT1M7wFPO
yv/tU9U/8zUyNGKjMMBsNIs/vW3YPwlTuzrgViXAReABFVp22z8crtPUW3oc
wO2TQcuAYt4/sFm0fV1+E8DbkbW4U5PgP2FqR03H3ArAnr3In6na4T+sg0ep
uBMCwFEr6Yi3/OI/wnZM0xpi9r9txaVEmeDjPzZfhtJgY+W/MDqtbJVC5D//
t+BaLH8oPxZkbid/4OM/MxS9+Zdm5T9A2FvgkPziP2gaksntY/Y/UxLBT3za
4T9xtRsa1RQCQPjsD+khk+A/aAoTZEDeCkDuWbN4FmLeP9b8FbVqfxNA+x6J
0ep12z8GYw1093scQJSz+61Kbdg/w0n1AC9YJUCQy+/LeVPVP5nX4RuDpDBA
1fU5PVk00j+fyCgqZFU7QGFRcn8EPM4/5MNtrOzfR0AOMW2Y5knIP4+zoc7G
LVZARFmaW3LZxj8St2IiB11bQMcsx6c=
       "]], 
      LineBox[{{0.10600328600653888`, 109.45356044426106`}, {
       0.10002238196204612`, 15.559671906829598`}, {
       0.10637644445262126`, -115.3504714559488}}], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA6NU2GkBixj/TXtQfbtZcwM6IZJSK
1cc/HZsDzPtWV8D+RmdgesDNP7u6TTo7BknA+iJ+EiP10T+eGzD1t4A8wPyg
+x0hFNU/M6r9aXVGMcD1VRzG0C7YP82qucgAEybAzmlDxzc52z+4s3cyKWEd
wN2tEnQOKN4/Pn5p+/0UFMBt18s97XfgP6KrqJ36rgvAOpWworPB4T/+Mvzj
w7ECwCQVjSRV5+I/q411qJhj979eAlez4NHjPzpQ1G5vKOe/RZqdOOVB5D/6
py4drcqqv6YFH2Fr7uM/v+g3Bb6k4z9y0L/pkhHjPy8EANi7ZfU/zWBODTbz
4T/bqSoezXkBQNrBjQ1cruA/EtS3wlgRCkCXVS1HRZzeP5EZYXFq7RJADz/e
Dtyy2z9WmYmIYp0bQJmN4jcYrNg/aeTmF6KjJEBiz+jQOpPVP+ZeyQ/ICDBA
+K3+8Q100j9AZD+2CDc6QE2eEZjGuM4/eqC1DJ3HRkA+bUFX4r/IP6m7PhpV
ElVA4QaENSfoxj8St2IiB11bQNz2xrM=
       "]], 
      LineBox[{{0.1054852553043576, 109.45356044426106`}, {
       0.10020156709754778`, 46.5593349511569}, {
       0.10612685552092643`, -115.3504714559488}}], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAh++6fO1Oxj/TXtQfbtZcwAIsOuY7
Ycc/pOu2ULuSWMAnvKJBdUTNP4/j4A+oP0rASgNDjou10T8O7+vVHb49wKLy
yfFP1NQ/IQ3veEzxMcAB8sGkzO/XPzLtnTca1ybA9EGwcOv72j8XlSTZklAe
wBAcPm1f7d0/3vhQhXKwFMAQsfDXXVzgP5T7ukK3hgzAhNGdTIWo4T+sVgc7
91IDwHeXD6yY0eI/OBdzZYto+L+9UvDeacLjP+S3XFvn8Oi/9qdKqtU/5D8I
O4vK9ti6v9QGVFZ9++M/jM81I+7l4T/yC6N+MCbjPwbkdjW0avQ/mUBlyrIL
4j823R+Zq+EAQF6g4xBqyeA/0OnjColJCUCB8YeiMdbeP9eadOfaXxJAhEe+
lp3v2z8qOZerrcYaQHz1bk/I6tg/nD7GK1H2I0AQf2Zz8dLVPwvkbH4P6C5A
0YpIYs6z0j9wOzim7CY5QDcSTx7eNc8/Hwy8zXa+RUDE0CM4ojbJP8POBd4Z
BlRAJbtUdArxxj8St2IiB11bQOCqzzw=
       "]], 
      LineBox[{{0.10425339185862771`, 109.45356044426106`}, {
       0.10055965312983986`, 76.56259093524613}, {
       0.10572228203937745`, -115.3504714559488}}], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAATvvdsaY3xj/TXtQfbtZcwALgodfZ
7cY/lTjw0pLfWcBy5BUu2cjMP9SmOPU4i0vApVArsAV20T912v6biAw/wOfy
0uN4lNQ/Sc6M5V2kMsBW1ZEQr7DXPyvCrD2doyfAHYbtP3O+2j9W4eJXCkkf
wJ1+9v9xst0//wZODfhQFcDM8UvkpEDgP4ElFWQ9ZA3AP4ZErx6P4T8899Rj
d/cDwHS0zb6Eu+I/lGl2HCBx+b/Y5A3JP7LjP63qzqwAveq/h8I18Wk85D+D
q7lvZyjEv/SfGmekB+Q/EFBOEvIp4D935khQYjrjP71NMOSycvM/zwzNje4j
4j/oP7rkUkwAQBwidsJI5OA/nDvnOaGGCED3AdBw1Q/fP8zkfAKR1hFAKKFq
Riks3D/b9Fv7hvcZQCFKLLlUKdk/wn6G0upPI0BB6BxTlxLWP64gb2vXyy1A
lMs5xZPz0j9hChsRTyQ4QIXmg3c7s88/LfRPnafDRED6qnIREa7JP9V0vl56
CFNAPkXTqGnzxj8St2IiB11bQAJyzUQ=
       "]], 
      LineBox[{{0.10178731359402816`, 109.45356044426106`}, {
       0.1010945000564526, 104.95394208074063`}, {
       0.1052180470153061, -115.3504714559488}}], 
      LineBox[{{0.17277198734258473`, -115.3504714559488}, {
       0.17564346693551366`, -108.9674977920021}, {
       0.22112163313693692`, -57.827816999363364`}, {
       0.26895726483272814`, -32.425538962773885`}, {
       0.31766572583813374`, -19.375373548485356`}, {
       0.3663021473129326, -12.236200844159805`}, {
       0.4141134397758178, -8.073191463207458}, {
       0.46040643569988265`, -5.490973141843781}, {
       0.5044887721689035, -3.7850470825764293`}, {
       0.545594939053807, -2.5778273128473295`}}]}}, {}, {}, {}, {}}, {{}, \
{{}, {}, 
     {RGBColor[0.5, 0, 0.5], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], 
      LineBox[{{0.10057285185653352`, -73.49740486706294}, {
       0.10602452686736655`, -118.44231169912737`}}], LineBox[CompressedData["

1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAqKw8PPq/xT/6mLrVTpxdwCbJsZil
Yck/aaEZ2o+qUsBf0mQrtXDPP0n/Br10NkTAEXhTWo3Y0j/GDQBFjFs3wL9q
L+ot/tU/6OqEnQK2LMApLtZBXhvZP7fn4722kSLAo873bRYk3D+/TqJJGPUY
wNgTTfTKDN8/empxXB8pEcDb3yv6weTgP/KufzEFowfAninIMNYl4j+xU5p2
HXr/vzO3+SEgPeM/0P0qfjjM8r9/Wz/JWQrkPwemmo82FN+/+t/cylw95D9o
Y/7WFojEP8+gdlXEsOM/PMHuvAhH6j/c6fPWD7jiPxf4f9bs2fg/NSsXgqqJ
4T9rIHflgG0DQBbFu8jfOOA/0yEq5H+FDECEjTUJep3dPxwzWnzwpxRASBH/
fFWj2j9vlV3qF1IeQISMj0bvjtc/EKgbisn0JkDeBmVG9WvUP5/lyvOSLTJA
DNEfihlH0T9PeYcCHng+QG3Ii3F0YMw/JeJYyW1BS0AV/0o4YIDGP0OgwB69
zVlAkvp2fNRMxj+2dy0WHaJaQBxuyVE=
       "]], 
      LineBox[{{0.10510487452705727`, 106.53302530708501`}, {
       0.10128085491655575`, -107.02430673115487`}, {
       0.10335898382593794`, -118.44231169912737`}}], LineBox[CompressedData["

1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAAWchb0CeoxT/6mLrVTpxdwAoQ3NhW
+Mk/zwea/e6DUcB6niL6UQfQPzqmBq3IFEPASGB5vcko0z9PeosbtTE2wJ8X
GEcmTtY/01vi2ilvK8DMCW8D02nZP8KLaAJo0iHAYnP3ON9v3D/ON+MynQYY
wBvm21TAVN8/ZTfcWHeKEMD8HZDjLwbhPxdv7KYrwAbAzhkXM9FD4j8tAkE6
xBr+v8VzRqm+VeM/DpXi57+k8b/vdPRCDhjkPxpUF8v35Nq/axEW3fw25D+d
dGJu7r7MP5foGkd8m+M/282CbWB67D8Gtr+J4ZviP922CRqPHvo/GcHMZHlp
4T8VSjJCPjgEQCk1zzDTFeA/2uZRu2CYDUCNLnZhEVPdP5G1Ff/bcBVASUjf
ZstV2j9IGNpLUIwfQAJ66HhpP9c//xAvsob6J0DQlq56phvUPxNywKzqFTNA
ITrPwmP30D/eUPLiUBhAQCuJNnITxss/R4nT3Q/8TECeEEHLcVjGP7Z3LRYd
olpAL+q6/w==
       "]], LineBox[CompressedData["
1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAA556PWhCCxT/6mLrVTpxdwEZJRkEW
kMo/yflqJ2NxUMDhz9zpg1bQPySuv2tbBkLA8P41iBN50z9wl1Gw7hk1wCRO
NikKntY/c3sQIR06KsDuhVgiFbjZP9bTipVgHCHAFQ0dHVi73D+35WEMRCIX
wFBxO1dHnN8/ndbY5wfjD8ACZQAPVCfhP5Hua/DO4wXAGcw/yWJh4j/NgdcS
osL8vxLAtaOhbeM/LelkzQqB8L92AzwRHSTkP6qP4gTXu9a/VN1yuaAu5D8R
Bupyln7SPxamYIFFheM/7kKp7u6z7j8XcjRoN3/iP5vSeSpGafs/r/VlsPRI
4T9em5tNfwgFQHbUDlcP5d8/TfHBxfa0DkC4A4cfSgjdP60S6NBXQhZAKRz8
1/8H2j+KEdb7A2sgQJQZj7+/79Y/RUttKOUOKUDwr7MCVMvTP5qw3n7VDDRA
g4Th0NKn0D84Xo+U6gNBQLvF8at7LMs/L5he6XXXTkBQa9jNv4bGP7Z3LRYd
olpA3ry86Q==
       "]], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA74Up2S9WxT/6mLrVTpxdwCT9eMjM
YcU/OzpfKWtoXcAWD1YYyijLP0+TjENb407Ar34dJeil0D9wJYe6zAlBwDWN
AC9kydM/HgzsJvoSNMBuBYCY0+3WP1IpYXG/FSnAHPDl2h4G2j+RwAYvF28g
wEm9dmV7Bt0/nC6S04BHFsAEIHsTWuPfP45wyqDyuw7AtNEv8CpI4T/CftCT
lQ0FwKnAufOEfuI/qq1T+1Bx+78nVRWDuYTjP4NOIyq7we6/5WO44GYu5D/b
SX6vDZjSv/uaU7ZhJOQ/BMEEakGi1j9rYFw9Mm7jP3a8mZ8PevA/2pqSfxdi
4j/XXyvrbrr8PzTZ8TEfKOE/m1prjJPeBUA2uf5n/p3fP2kR0uzM2w9AjOWX
4Ce93D/En5AD4xwXQH6jU3H2udk/349+gRoYIUCnyZrq9Z/WP/gm1rLhMipA
5mXSLgJ70z9rwTMUaBM1QHAj0GpsWNA/cxZtrREAQkB3nBlIwJPKP47el+QC
a1BA/N59ahKmxj+2dy0WHaJaQAUexMs=
       "]], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAO7PEa4V1xT/6mLrVTpxdwNd/jrV5
7sU/IcHG4HeSW8DpAmonX8LLP9tIOO0ZB03AXszgS3n10D+gQWi3yx1AwCWU
s8+3GdQ/MRnSIq0bM8Cij9o1fz3XP3M12f39ACjAPVya9OxT2j/KxjKqDJQf
wF2n49BFUd0/P2L5kcl1FcD7PE12+hTgP32N8noXnw3A7mOs9rFo4T+Gxddr
Kz0EwAAF+Dgym+I/1AAM62gm+r/w+6PT9ZrjPxpVFvzxh+y/BQlhfs425D8m
JdFPYfHMv3r2skZcGOQ/KGpi5GTL2j8tqphgUlbjP3dwBMG4nfE/enEWt4ZE
4j9oUv7lcxL+P0PlpeL6BuE/K0Gj+dO6BkDPKMf5dVbfP0KlI5G+hhBAhLt0
p6xx3D+wlV8lCgEYQAMRFSyxa9k/+WbCZvPNIUBWXrobDlDWP94492eTZytA
GnQBrbMq0z/Qxdl20io2QCG+HdQ0CdA/qsxVDRoOQ0Bp0ceI8vvJPyw0flck
fVFA3T0Tl6+3xj+2dy0WHaJaQBE6yJ4=
       "]], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAA+lvfkyuTxT/6mLrVTpxdwLuyAyf2
fMY/0WsyT/DXWcBEjFqCxFzMP+is04SZS0vA2tty0zJF0T+J5lJuQoI+wLJz
pE0LatQ/saXl3PAyMsCSe6ZhCo3XP9AxXQbY+ibAfIU58Xyh2j/SCQvNYVke
wEvmwNO0m90/ybs6JpysFMBJ7wNzCjjgP5iLDwbniwzAi2q8wuaI4T+PW9Fa
PHIDwPg85OJkt+I/qkguvYbh+L8tlcaHRLDjPzu/gjRCVOq/Ym5QKDo95D+0
algSornEv0PlQAevCuQ/FXKMbd363j/CSpeutD3jPzjpy/U1xfI/8JzRJ4om
4j/FtDFIwXH/P0vVdVeK5eA/ALpZ1pudB0DzxznseQ7fP3nMqqZTJRFA+cpC
DNwl3D/hGS33X+8YQJKin6MzHdk/J1uwgB2NIkA7ULIfDADWPwYPnFQirixA
DyiJ42za0j9Jn4jEWVQ3QPHCL1JkdM8/fA9xeW8vRECnrVkLKGXJPzuTJQpq
o1JAtzWJPuS8xj+2dy0WHaJaQCixx2I=
       "]], 
      LineBox[{{0.10452981878018434`, 106.53302530708501`}, {
       0.10058648513398798`, 74.31102970771616}, {
       0.10604985649200648`, -118.44231169912737`}}], 
      LineBox[{{0.16932774467335332`, -118.44231169912737`}, {
       0.18008780977999872`, -96.88137984137157}, {
       0.22631562484989456`, -51.36377634314896}, {
       0.27472296993801026`, -28.895946547894976`}, {
       0.32387418907516197`, -17.342858598842227`}, {
       0.372829833736443, -11.004644425753034`}, {
       0.420824879570313, -7.2942081619200705`}, {
       0.4671490220608065, -4.97997355003913}, {
       0.5110907739849151, -3.4384059843344215`}, {
       0.5518524021878053, -2.3342178688380106`}, {
       0.5882673934405805, -1.477120550678616}}], 
      LineBox[{{0.1043747322923886, 106.53302530708501`}, {
       0.10242533402771685`, -118.44231169912737`}}], 
      LineBox[{{0.10353914357937985`, 106.53302530708501`}, {
       0.10351621342854853`, -118.44231169912737`}}], 
      LineBox[{{0.10255479585400858`, 106.53302530708501`}, {
       0.10445669736285704`, -118.44231169912737`}}], 
      LineBox[{{0.10132339140146215`, 106.53302530708501`}, {
       0.10529926723819852`, -118.44231169912737`}}]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["z", TraditionalForm], 
    FormBox["Pz", 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,
  ImageSize->{677.328125, Automatic},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 0.7}, {-150, 150}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.76739947053659*^9, 3.767405361499683*^9, 
  3.767405504912839*^9},ExpressionUUID->"d7895171-18a8-48ed-b709-\
5f6a94896f91"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Born", "-", 
    RowBox[{"Infeld", " ", "AdS", " ", "q"}]}], "\[LessEqual]", 
   RowBox[{"qcrit", " ", "case", " ", "part", " ", "1"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.767400794421823*^9, 3.7674007973066387`*^9}, {
  3.7674013166172523`*^9, 3.7674013187918377`*^9}, {3.7674025872437477`*^9, 
  3.767402588930828*^9}},ExpressionUUID->"a39bf5d2-4f52-4fc5-be28-\
c89f370aa045"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm1", ",", "fz1", ",", "m", ",", "q", ",", "f", ",", 
     "\[Mu]extreme", ",", "dfz1", ",", "pz", ",", "\[Beta]pz"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"\[Beta]_", ",", "\[Gamma]_", ",", "\[Mu]_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"\[Beta]", "^", "2"}]}], "/", "2"}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"1", "+", 
            RowBox[{"\[Gamma]", " ", 
             RowBox[{"\[Mu]", "^", "2"}]}]}], "]"}]}], ")"}], "/", "6"}], "/",
        "\[Gamma]"}], "+", "1", "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Mu]", "^", "2"}], "/", "3"}], 
       RowBox[{"Hypergeometric2F1", "[", 
        RowBox[{
         RowBox[{"1", "/", "4"}], ",", 
         RowBox[{"1", "/", "2"}], ",", 
         RowBox[{"5", "/", "4"}], ",", 
         RowBox[{
          RowBox[{"-", "\[Gamma]"}], " ", 
          RowBox[{"\[Mu]", "^", "2"}]}]}], "]"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"z_", ",", "\[Beta]_", ",", "\[Gamma]_", ",", "\[Mu]_"}], "]"}],
      ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Mu]", "^", "2"}], " ", 
       RowBox[{
        RowBox[{"z", "^", "4"}], "/", "3"}], " ", 
       RowBox[{"Hypergeometric2F1", "[", 
        RowBox[{
         RowBox[{"1", "/", "4"}], ",", 
         RowBox[{"1", "/", "2"}], ",", 
         RowBox[{"5", "/", "4"}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"z", "^", "4"}]}], " ", "\[Gamma]", " ", 
          RowBox[{"\[Mu]", "^", "2"}]}]}], "]"}]}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"1", "+", 
            RowBox[{"\[Gamma]", " ", 
             RowBox[{"\[Mu]", "^", "2"}], " ", 
             RowBox[{"z", "^", "4"}]}]}], "]"}]}], ")"}], "/", "6"}], "/", 
       "\[Gamma]"}], "-", " ", 
      RowBox[{
       RowBox[{"m", " ", "[", 
        RowBox[{"\[Beta]", ",", "\[Gamma]", ",", "\[Mu]"}], "]"}], 
       RowBox[{"z", "^", "3"}]}], "+", "1", "-", 
      RowBox[{
       RowBox[{"\[Beta]", "^", "2"}], " ", 
       RowBox[{
        RowBox[{"z", "^", "2"}], "/", "2"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{"zs_", ",", "\[Beta]_", ",", "\[Gamma]_", ",", "\[Mu]_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"f", "[", 
         RowBox[{"zs", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Mu]"}], "]"}],
         "]"}], "/", "zs"}], "/", 
      RowBox[{"(", 
       RowBox[{"\[Mu]", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Hypergeometric2F1", "[", 
           RowBox[{
            RowBox[{"1", "/", "4"}], ",", 
            RowBox[{"1", "/", "2"}], ",", 
            RowBox[{"5", "/", "4"}], ",", 
            RowBox[{
             RowBox[{"-", "\[Gamma]"}], " ", 
             RowBox[{"\[Mu]", "^", "2"}]}]}], "]"}], "-", 
          RowBox[{"zs", " ", 
           RowBox[{"Hypergeometric2F1", "[", 
            RowBox[{
             RowBox[{"1", "/", "4"}], ",", 
             RowBox[{"1", "/", "2"}], ",", 
             RowBox[{"5", "/", "4"}], ",", 
             RowBox[{
              RowBox[{"-", "\[Gamma]"}], " ", 
              RowBox[{"\[Mu]", "^", "2"}], " ", 
              RowBox[{"zs", "^", "4"}]}]}], "]"}]}]}], ")"}]}], ")"}]}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{
      "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", ",", 
       "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"q", " ", "\[Mu]"}], 
              SqrtBox[
               RowBox[{"1", "+", 
                RowBox[{"\[Gamma]", " ", 
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "4"]}]}]]]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"18", " ", 
               SqrtBox["6"], " ", "\[Gamma]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                  RowBox[{"z", "[", "t", "]"}]}], "+", 
                 RowBox[{"2", " ", "\[Gamma]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  RowBox[{"6", " ", "\[Gamma]"}], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                  RowBox[{"2", " ", "\[Gamma]", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                  SqrtBox[
                   RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], "2"], 
               " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", " ", 
               SqrtBox["6"], " ", "\[Gamma]", " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"6", " ", "\[Gamma]"}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                 RowBox[{"2", " ", "\[Gamma]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                 SqrtBox[
                  RowBox[{"1", "+", 
                   RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{
               SqrtBox["6"], " ", 
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"]}]], 
             RowBox[{"(", 
              RowBox[{"\[Sqrt]", 
               RowBox[{"(", 
                RowBox[{"6", "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                 FractionBox[
                  RowBox[{"1", "-", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                 "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                  "/", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                ")"}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "3"}], " ", 
                SuperscriptBox["\[Beta]", "2"], " ", 
                RowBox[{"z", "[", "t", "]"}]}], "+", 
               FractionBox[
                RowBox[{"3", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                   RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "2"]}], 
                RowBox[{"2", " ", "\[Gamma]"}]], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Mu]", "2"], " ", 
                RowBox[{"Hypergeometric2F1", "[", 
                 RowBox[{
                  FractionBox["1", "4"], ",", 
                  FractionBox["1", "2"], ",", 
                  FractionBox["5", "4"], ",", 
                  RowBox[{
                   RowBox[{"-", "\[Gamma]"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                SuperscriptBox[
                 RowBox[{"z", "[", "t", "]"}], "3"]}], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "3"]}], 
                SqrtBox[
                 RowBox[{"1", "+", 
                  RowBox[{"\[Gamma]", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]], "+", 
               RowBox[{
                SuperscriptBox["\[Mu]", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}]}], "+", 
                  FractionBox["1", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]]}], ")"}]}], "+", 
               
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"54", " ", "\[Gamma]", " ", 
                  RowBox[{"z", "[", "t", "]"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                "/", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "-", 
                   RowBox[{"6", " ", "\[Gamma]"}], "+", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "-", 
                   RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], 
                 "2"]}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               SqrtBox["6"], " ", 
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", " ", 
               SqrtBox["6"], " ", "\[Gamma]", " ", 
               RowBox[{
                SuperscriptBox["z", "\[Prime]\[Prime]",
                 MultilineFunction->None], "[", "t", "]"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"6", " ", "\[Gamma]"}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                 RowBox[{"2", " ", "\[Gamma]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                 SqrtBox[
                  RowBox[{"1", "+", 
                   RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", " ", 
               SqrtBox["6"], " ", "\[Gamma]", " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "3"}], " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", 
                  RowBox[{"z", "[", "t", "]"}]}], "+", 
                 FractionBox[
                  RowBox[{"3", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], 
                  RowBox[{"2", " ", "\[Gamma]"}]], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SqrtBox[
                   RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]], "+", 
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}]}], "+", 
                    FractionBox["1", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]]}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"54", " ", "\[Gamma]", " ", 
                    RowBox[{"z", "[", "t", "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                  "/", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"6", " ", "\[Gamma]"}], "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], "2"]}], 
                 "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"36", " ", "\[Gamma]", " ", 
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], ")"}], "/", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"6", " ", "\[Gamma]"}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                 RowBox[{"2", " ", "\[Gamma]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                 SqrtBox[
                  RowBox[{"1", "+", 
                   RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"q", "\[Rule]", "q1"}], ",", 
            RowBox[{"\[Beta]", "\[Rule]", "\[Beta]1"}], ",", 
            RowBox[{"\[Gamma]", "\[Rule]", "\[Gamma]1"}], ",", 
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", " ", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "4"}], "}"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Mu]extreme", "[", 
      RowBox[{"\[Beta]_", ",", "\[Gamma]_"}], "]"}], ":=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{"1", "/", "\[Gamma]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", "-", 
               RowBox[{"\[Beta]", "^", "2"}]}], ")"}], "\[Gamma]"}]}], ")"}], 
          "^", "2"}], "-", "1"}], ")"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"fz1", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", 
       ",", "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{
       "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",", "\[Mu]1"}], 
       "]"}], "[", "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dfz1", "[", 
      RowBox[{
      "t_", ",", "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", ",",
        "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fz1", "[", 
         RowBox[{
         "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",", 
          "\[Mu]1"}], "]"}], ",", "t1"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"t1", "\[Rule]", "t"}], "}"}]}]}], ";", "\[IndentingNewLine]", 
    
    RowBox[{
     RowBox[{"pz", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", 
       ",", "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{"Block", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"zd", ",", "z2", ",", "fz"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"z2", "=", 
         RowBox[{"fz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",",
            "\[Mu]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"fz", "=", 
         RowBox[{"f", "[", 
          RowBox[{"z2", ",", "\[Beta]1", ",", "\[Gamma]1", ",", "\[Mu]1"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"zd", "=", 
         RowBox[{"dfz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",",
            "\[Mu]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "/", "z2"}], "/", "fz"}], " ", 
          RowBox[{"zd", "/", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"fz", "-", 
             RowBox[{
              RowBox[{"zd", "^", "2"}], "/", "fz"}]}], "]"}]}]}], "]"}], 
        ";"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Beta]pz", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", 
       ",", "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{"Block", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "zd", ",", "z2", ",", "fz", ",", "\[Beta]", ",", "n1", ",", "zw"}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"z2", "=", 
         RowBox[{"fz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",",
            "\[Mu]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"fz", "=", 
         RowBox[{"f", "[", 
          RowBox[{"z2", ",", "\[Beta]1", ",", "\[Gamma]1", ",", "\[Mu]1"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"zd", "=", 
         RowBox[{"dfz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",",
            "\[Mu]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"\[Beta]", "=", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"f", "[", 
               RowBox[{
               "zw", ",", "\[Beta]1", ",", "\[Gamma]1", ",", "\[Mu]1"}], 
               "]"}], ",", "zw"}], "]"}], "/.", 
            RowBox[{"{", 
             RowBox[{"zw", "\[Rule]", " ", "z2"}], "}"}]}], ")"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Beta]", "/", "z2"}], "/", "fz"}], " ", 
          RowBox[{"zd", "/", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"fz", "-", 
             RowBox[{
              RowBox[{"zd", "^", "2"}], "/", "fz"}]}], "]"}]}]}], "]"}], 
        ";"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"0.8", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "0.001", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], " ", "]"}]}], ",", 
                "0.1", ",", "0", ",", "0.001", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], " ", "]"}], "]"}], ",", 
             
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{"\[Beta]pz", "[", 
                RowBox[{"i", ",", 
                 RowBox[{"0.8", 
                  RowBox[{"qcrit", "[", 
                   RowBox[{"0.1", ",", "0", ",", "0.001", ",", 
                    RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], " ", "]"}]}], ",", 
                 "0.1", ",", "0", ",", "0.001", ",", 
                 RowBox[{"2", "/", 
                  RowBox[{"Sqrt", "[", "3", "]"}]}]}], " ", "]"}], "]"}], "//",
               "Log"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"0.8", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "0.01", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], " ", "]"}]}], ",", 
                "0.1", ",", "0", ",", "0.01", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], " ", "]"}], "]"}], ",", 
             
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{"\[Beta]pz", "[", 
                RowBox[{"i", ",", 
                 RowBox[{"0.8", 
                  RowBox[{"qcrit", "[", 
                   RowBox[{"0.1", ",", "0", ",", "0.01", ",", 
                    RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], " ", "]"}]}], ",", 
                 "0.1", ",", "0", ",", "0.01", ",", 
                 RowBox[{"2", "/", 
                  RowBox[{"Sqrt", "[", "3", "]"}]}]}], " ", "]"}], "]"}], "//",
               "Log"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"0.8", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "0.1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], " ", "]"}]}], ",", 
                "0.1", ",", "0", ",", "0.1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], " ", "]"}], "]"}], ",", 
             
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{"\[Beta]pz", "[", 
                RowBox[{"i", ",", 
                 RowBox[{"0.8", 
                  RowBox[{"qcrit", "[", 
                   RowBox[{"0.1", ",", "0", ",", "0.1", ",", 
                    RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], " ", "]"}]}], ",", 
                 "0.1", ",", "0", ",", "0.1", ",", 
                 RowBox[{"2", "/", 
                  RowBox[{"Sqrt", "[", "3", "]"}]}]}], " ", "]"}], "]"}], "//",
               "Log"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"0.8", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{"\[Beta]pz", "[", 
                RowBox[{"i", ",", 
                 RowBox[{"0.8", 
                  RowBox[{"qcrit", "[", 
                   RowBox[{"0.1", ",", "0", ",", "1", ",", 
                    RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                 ",", "0", ",", "1", ",", 
                 RowBox[{"2", "/", 
                  RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], "//", 
              "Log"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.4", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1.1", ",", "3.1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.4", ",", "1.1"}], "}"}]}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"z", ",", 
          RowBox[{"Log", "[", "\[Beta]pz", "]"}]}], "}"}]}]}], 
      "\[IndentingNewLine]", "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.758538000029398*^9, 3.758538045766563*^9}, {
   3.758538140854106*^9, 3.758538148338945*^9}, {3.758538282467866*^9, 
   3.758538320298864*^9}, {3.75853837267715*^9, 3.758538470030238*^9}, {
   3.758538544447816*^9, 3.758538559070099*^9}, {3.758538615062416*^9, 
   3.758538671483891*^9}, {3.758538705169448*^9, 3.7585388060509872`*^9}, {
   3.7585388776917543`*^9, 3.75853887816372*^9}, 3.7585390792490873`*^9, {
   3.758539546226787*^9, 3.758539547432866*^9}, {3.758539636191441*^9, 
   3.7585397044434347`*^9}, {3.758539791559417*^9, 3.758539915816618*^9}, {
   3.75854038767594*^9, 3.758540432352581*^9}, {3.7585405771371927`*^9, 
   3.758540707684121*^9}, {3.75854073873212*^9, 3.758541006335308*^9}, {
   3.7585453635161953`*^9, 3.758545461260376*^9}, {3.758545529501421*^9, 
   3.758545568684445*^9}, {3.758545634132215*^9, 3.758545871455368*^9}, 
   3.758545966931903*^9, {3.758546005115241*^9, 3.7585460077110157`*^9}, {
   3.758546042262128*^9, 3.7585460527426157`*^9}, {3.758546132809017*^9, 
   3.7585461343929653`*^9}, {3.758546252037428*^9, 3.758546259128384*^9}, {
   3.758546338512642*^9, 3.758546350708971*^9}, {3.758546403680023*^9, 
   3.75854640619344*^9}, {3.758546455598486*^9, 3.758546464989917*^9}, {
   3.7585465491062727`*^9, 3.758546582560766*^9}, {3.7585466260575323`*^9, 
   3.758546693199839*^9}, {3.7585467739651833`*^9, 3.758546889346767*^9}, {
   3.7585471259813757`*^9, 3.75854719567307*^9}, {3.758547227022077*^9, 
   3.7585472663922853`*^9}, {3.758547353485178*^9, 3.75854749146279*^9}, {
   3.7585476020511293`*^9, 3.758547603543219*^9}, {3.758547735350923*^9, 
   3.758547737596816*^9}, 3.7585478089710083`*^9, {3.7585485160885477`*^9, 
   3.758548516713715*^9}, {3.7585486370622787`*^9, 3.758548672265959*^9}, {
   3.75854880612626*^9, 3.758548824200348*^9}, {3.758596760971849*^9, 
   3.758596814521757*^9}, {3.758596944974786*^9, 3.75859710080864*^9}, {
   3.758597160698374*^9, 3.758597213057705*^9}, {3.7585972553956957`*^9, 
   3.758597259174314*^9}, {3.758597333169475*^9, 3.758597362725316*^9}, {
   3.758597401269397*^9, 3.7585974115376787`*^9}, {3.758597442360677*^9, 
   3.758597487908835*^9}, {3.758597527576044*^9, 3.758597535223362*^9}, {
   3.75859778107716*^9, 3.758597864024992*^9}, {3.758597940532975*^9, 
   3.758597940710773*^9}, {3.75859801938067*^9, 3.758598041541828*^9}, {
   3.7585980837516947`*^9, 3.758598135933546*^9}, {3.758598169065208*^9, 
   3.7585981809138803`*^9}, {3.758598216764838*^9, 3.7585982453345547`*^9}, {
   3.758598341993463*^9, 3.7585983440778017`*^9}, {3.7585988306246433`*^9, 
   3.758598830830577*^9}, {3.758599128685021*^9, 3.758599138411364*^9}, {
   3.758599819382842*^9, 3.758599820499593*^9}, {3.758599867873096*^9, 
   3.758599901141396*^9}, {3.758600066009074*^9, 3.758600071231616*^9}, {
   3.758616377920555*^9, 3.758616440669208*^9}, {3.7586164759202433`*^9, 
   3.7586164989925137`*^9}, {3.7586165358425198`*^9, 3.758616543819427*^9}, {
   3.758616656502936*^9, 3.758616689136405*^9}, {3.758616748958891*^9, 
   3.75861675653091*^9}, {3.758616814291253*^9, 3.75861683738706*^9}, {
   3.758616871724538*^9, 3.758616873633115*^9}, {3.758617008655117*^9, 
   3.7586170211416492`*^9}, {3.758617090872438*^9, 3.758617133212291*^9}, {
   3.758617174391375*^9, 3.7586171749787083`*^9}, {3.758617283822666*^9, 
   3.758617301130199*^9}, {3.7586173425848722`*^9, 3.758617486445385*^9}, 
   3.758617549086116*^9, {3.758617603942511*^9, 3.758617614499693*^9}, {
   3.75861766380795*^9, 3.7586176648656683`*^9}, {3.75861770728601*^9, 
   3.758617707984373*^9}, {3.758617825281706*^9, 3.758617849843707*^9}, {
   3.758617888626677*^9, 3.7586178896227903`*^9}, 3.758617937793913*^9, {
   3.758618000690536*^9, 3.758618039307282*^9}, {3.7586180783188763`*^9, 
   3.758618085714858*^9}, {3.758618184309708*^9, 3.75861818562947*^9}, {
   3.758679905660881*^9, 3.758679908946331*^9}, 3.75980825157318*^9, {
   3.759821638233654*^9, 3.759821677136899*^9}, {3.759821746382406*^9, 
   3.7598217571623163`*^9}, {3.759821972534501*^9, 3.759822011295196*^9}, {
   3.759822060771031*^9, 3.759822097894677*^9}, {3.759822892367897*^9, 
   3.759822938680234*^9}, {3.75982298889275*^9, 3.759823030461417*^9}, {
   3.759823115926036*^9, 3.759823269194672*^9}, {3.759823431418742*^9, 
   3.75982345779944*^9}, {3.759823498009285*^9, 3.759823548583639*^9}, {
   3.759823636527495*^9, 3.75982369236626*^9}, {3.759823731670232*^9, 
   3.759823804587942*^9}, {3.759824004621005*^9, 3.759824006181662*^9}, {
   3.7598241728799677`*^9, 3.7598241749269667`*^9}, {3.759824346859222*^9, 
   3.759824347938819*^9}, {3.759824533135112*^9, 3.759824537633219*^9}, {
   3.7598249873291483`*^9, 3.759825006496797*^9}, {3.759825132396927*^9, 
   3.759825343179367*^9}, {3.759825856624722*^9, 3.759825975169014*^9}, {
   3.759826764286235*^9, 3.75982682564659*^9}, {3.7598364682113457`*^9, 
   3.759836495882495*^9}, {3.759836533714952*^9, 3.759836546032048*^9}, {
   3.759837340300784*^9, 3.759837353400568*^9}, {3.759843878035446*^9, 
   3.759843992479772*^9}, 3.759844027182931*^9, {3.759844253863854*^9, 
   3.7598442628309298`*^9}, {3.7598443735656977`*^9, 3.759844401665676*^9}, {
   3.7598445717731237`*^9, 3.7598445769234953`*^9}, 3.759844629547164*^9, {
   3.7598447173714333`*^9, 3.759844786969858*^9}, {3.759845035610373*^9, 
   3.7598450775271807`*^9}, {3.75984539184356*^9, 3.759845399283866*^9}, {
   3.7598454997224703`*^9, 3.759845591173621*^9}, {3.759845690033955*^9, 
   3.759845717216815*^9}, {3.759845786198544*^9, 3.759845786586112*^9}, {
   3.759846225338708*^9, 3.759846262891819*^9}, {3.7598463578991213`*^9, 
   3.759846473714466*^9}, {3.759884776203396*^9, 3.759884811259758*^9}, {
   3.759884977752447*^9, 3.759885053749447*^9}, {3.759885111614628*^9, 
   3.759885246864278*^9}, {3.759885682688591*^9, 3.759885722463661*^9}, {
   3.759885782705978*^9, 3.759885804756921*^9}, {3.7598861799266157`*^9, 
   3.759886240264069*^9}, 3.759886290053087*^9, {3.7598864598850813`*^9, 
   3.759886568665514*^9}, 3.759892268870021*^9, 3.759892320326295*^9, {
   3.759892386616026*^9, 3.759892429065673*^9}, {3.759892821860734*^9, 
   3.759892910669476*^9}, {3.7598930012395144`*^9, 3.75989303946455*^9}, {
   3.759893075384836*^9, 3.759893239718343*^9}, {3.759893567143162*^9, 
   3.759893601235416*^9}, {3.7598936388524733`*^9, 3.7598937702552834`*^9}, {
   3.7598938282091627`*^9, 3.7598938401181097`*^9}, {3.7598938732080383`*^9, 
   3.759893957862599*^9}, {3.759894001517295*^9, 3.7598940816223783`*^9}, {
   3.759894168384268*^9, 3.759894184612075*^9}, {3.759894316582765*^9, 
   3.759894329396204*^9}, {3.759899398003936*^9, 3.759899404135974*^9}, {
   3.75989949800956*^9, 3.759899503626495*^9}, {3.7599018316209507`*^9, 
   3.759901842695794*^9}, {3.759901954077668*^9, 3.759901954325601*^9}, {
   3.759914829910955*^9, 3.759914855632615*^9}, {3.759915167987526*^9, 
   3.759915182070291*^9}, {3.7599155890139103`*^9, 3.759915602421894*^9}, {
   3.759915663742887*^9, 3.759915712015811*^9}, {3.759915747755122*^9, 
   3.759915799549712*^9}, {3.759916049569772*^9, 3.7599160592778673`*^9}, {
   3.7599162162085857`*^9, 3.7599162648990192`*^9}, {3.7599171356512537`*^9, 
   3.7599171656787558`*^9}, {3.7599172245633307`*^9, 3.759917371249357*^9}, {
   3.759917606390757*^9, 3.7599176943289337`*^9}, {3.759925492403933*^9, 
   3.759925504618651*^9}, {3.759934261847958*^9, 3.759934296062623*^9}, {
   3.7599362290460987`*^9, 3.7599363023459597`*^9}, {3.759936510429447*^9, 
   3.759936522013946*^9}, {3.75993678181703*^9, 3.75993678862087*^9}, {
   3.759937684850672*^9, 3.7599376922147408`*^9}, {3.759938028744144*^9, 
   3.759938032572872*^9}, {3.7599980823004227`*^9, 3.759998096330743*^9}, {
   3.7674007389576883`*^9, 3.7674007661345053`*^9}, {3.767400817501232*^9, 
   3.767400920925089*^9}, {3.767401097444003*^9, 3.767401102500009*^9}, {
   3.7674011661033688`*^9, 3.76740118604357*^9}, {3.767401268402897*^9, 
   3.7674012732792463`*^9}, {3.767401364946526*^9, 3.767401365961171*^9}, {
   3.767401562155984*^9, 3.767401581502571*^9}, {3.7674016906294518`*^9, 
   3.767401693065343*^9}},ExpressionUUID->"f1a180a1-0f2c-4df1-91e7-\
ec9ef1bfac18"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAPxJpzF+3uT+9g83u9C0JQA6xK6El
gb0/7QQ70j0XEkCapi8mLpPCPxvWpVgmthFAcez47a1nxz/UwzBtwWEQQAKp
XE1uusw/hXpt+k3kDUA58Gw6ESXRP10Ca5wZNwtALcLydaj50z8ZbPGR59AI
QGw0D6naz9Y/5+j7jACxBkDZ5SUSqJ/ZP2jhnBWc0QRAH/ePpbpi3D8O3XV0
eiwDQNqU8FXFE98/T2+Auw+8AUAT83SFIdfgP2t/1mWtewBAz1m5RDAX4j/N
ZLvkzM7+P9TpxCJ8SOM/PIXn8sz3/D9UQFi5yWnkP2wXdPGabPs/ooCm6TR6
5T9IWvpfJyj6P+Mb6qIueeY/7K9Wc+gl+T8R5OATeGbnPzTbyz28Yfg/8sbB
dhtC6D9oG6I109f3Pxi0zAdjDOk/BYEgLKCE9z9IZHPYzsXpPwI6Vr/MZPc/
sPeAOApv6j+PQtI5MHX3Pwaoi1ThCOs/ZXRgrcay9z8I6KuGN5TrPwmC3F2u
Gvg/Dn2jrf4R7D87CgLBIKr4P5heZbkvg+w/OHtTsXFe+T/5ssR8xOjsP6FE
nC0MNfo/Omffu7JD7T8hkvCucSv7P+nnal/olO0/QdIV+jw//D9qru2pSN3t
P1ncjKMebv0/wZc9TKod7j/16Xs23LX+P3d5CTHWVu4/+CXeXSgKAEDNSQDe
honuP/dlUgjJwwBApVudSGi27j8irDjc0oYBQFgGIwUY3u4/X5rUwmdSAkAq
96K2JQHvP5Te93S0JQNAD6SlsxMg7z+XmIrX9P8DQGbdAcBXO+8/vVD1FW/g
BEBJNs3iW1PvP6rtHmaBxgVAntVfRH9o7z+AKk3KjbEGQIV5FQsXe+8/kyGx
Ww2hB0A2KiA4b4vvP1UGrNGHlAhA10Ure8uZ7z8tC0yLfYsJQOpwKfxnpu8/
m/hXoIeFCkAGeGsZerHvP3jaAEBLggtA8M8vGDG77z+coiwzhIEMQDYK8ce2
w+8/pRvImf+CDUD0Df8XMMvvPx5na/twhg5AjrnQn73R7z9VDkyuY4sPQCmo
Khp81+8/VApMnstIEECwrDfVhNzvP7o+32btzBBAL0J5Fe7g7z/wMGpiWFER
QDtHZnHL5O8/k9GN5U/WEUBRBPsdLujvP5Auzw6oWxJAaODtPCXr7z9bf8IT
b+ESQKFCPRW+7e8/9OuyUJJnE0AEw6ROBPDvP02urCfu7RNAGwlGIwLy7z9T
JqDjkXQUQD+sI4vA8+8/cUh/uwbzFED2Q7FkR/XvP+c+Uwl7ihVA0z/Q2A==

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.016666666666666666`], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAArOgq0V63uT9/nw7UAi4JQAfIeywH
gb0/xcgcOU0XEkAGjt1kBpPCP+lquUQ7thFAx42dAG1nxz+t43TD0mEQQCFX
1e0Vusw/Me6n11vkDUA/QnxY2iTRPzG331kJNwtAokSS8Wf50z8rm2QtstAI
QLy7z6aRz9Y/6wwQL6CwBkB6nx/aV5/ZP3csc6ML0QRAZDVYrGRi3D9VTyFz
tSsDQKEhcz5rE98/V4AWZBK7AUBXMrFQ89bgP5RXk8x0egBADdUm3AEX4j/3
RTly4cv+P8Z2uIJOSOM/PXAP9WX0/D+OErLbnWnkP/QKouO5aPs/MHaauwt6
5T9JKyqo0CP6P0eSIvsIeeY/GjwEXiMh+T+ofN+pVmbnP6NP6t+SXPg/5aoz
3P5B6D/SbfcLUtL3PykdRaRLDOk/wgTUt9V+9z9iy7bnvMXpP86eBe3IXvc/
ZrRJy/1u6j+lDZrXA2/3P2uWfFPaCOs/SnlR0YKs9z90ePq2NZTrPw+WRrxj
FPg/XVH6tgES7D9k3vVP36P4PyYJcyw3g+w/hr/5NUhY+T8LqPrZz+jsPyzr
We0HL/o/4hnzecFD7T9Wo0BPniX7P6OvPvH5lO0/QxFDB6Q5/D+JN7+DXN3t
P8xb7k7JaP0/Hs/Q578d7j+g1jRwzrD+P9dq4RDtVu4/IZ2OuMkHAEC8iu6P
nonuP6YMRASTwQBAimltZoC27j/cgaZeyIQBQF1Q0TUw3u4/UCHdnoVQAkAC
IHyvPQHvP7P3Pzj8IwNAQLyoNCsg7z+qcPlCYv4DQNL7s5VuO+8/wE6Mwffe
BEADrrTlcVPvPxshFSZHxQVAT3eDVpRo7z/kmk9sg7AGQEIBBBcre+8/YedF
dyKgB0BeovgvgovvP290LwjEkwhA+QY8V92Z7z8yKFaz4YoJQPwPMbp4pu8/
KoVn3BmFCkB8uG67ibHvP/R1sdkMggtAAQnGoz+77z99Xp98hYEMQCCVbUXE
w+8/hkpP3QmDDUDpIa+RPMvvPxXiLwyihg5AivJPIcnR7z9O6KBiwosPQEMY
Q7CG1+8/2IXU6FFJEECnT9eMjtzvP0qnmUOyzRBA/gD9+/bg7z+C1cDZU1IR
QIV3YZTT5O8/wwQZjKTbEUAjeNyLNejvP1Seo7p0VBJAswJZ/yvr7z+qpr95
b+ESQPY81TrE7e8/gkXX4ORnE0DcJdnjCfDvP4PhsHiH7RNA7/2VMwfy7z+D
lqjz03EUQCwn4yHF8+8/g+CUqf74FEA8QcmLS/XvP8Yh9PfugBVAv4fZtw==

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0.5, 0, 0.5], PointSize[0.016666666666666666`], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAj1JKX1W3uT9p0Ecyiy4JQDOilQbi
f70/pYER0OIXEkC9Wqygh5HCPwrwHhoGtxFAJV4Vq/tkxz+rtvkde2IQQE9D
XXTCtsw/b+x1aeTkDUBVi3VYySLRP5PSv+VvNgtAvNXJ0Pn20z9/7sPwss4I
QLD5+07RzNY/HAmGBwOtBkAeav2PUZzZP/L8QpCfywRARI/XYiZf3D9pTMm7
TyQDQO3zuqsEEN8/KJX/QY+xAUDqW0GHNNXgP7l6rC65bgBAVeH8ykAV4j/y
fvHI16/+P6izvKmURuM/LTiENMHT/D+mV5yl9GfkP7/EWIOMQ/s/AZbqGnx4
5T8W6yKUSfr5Px/CPQqbd+Y/IfuSZozz+D9nsLBWEWXnPxfjb0FRK/g/twcf
qOdA6D+8WnKx4Z33P6M+1nlmC+k/IM6It8RH9z9IMgIKDMXpP4E5bdaxJfc/
Itkk3YFu6j8FU0NshjT3P23b/HOSCOs/cCIOGEJx9z9b9GqvH5TrP1HYQlP+
2Pc/hSsINBoS7D9Cui9M7Gj4P9Il6v15g+w/FImqe1Ae+T9GtC80OOnsP0Ca
x5GH9vk/Jty/NEpE7T+FFKg8/+76P7rxDMGdle0/Lraa8z4F/D/69IgrFt7t
P2NyYZHjNv0/JV9NYYoe7j+9yMgzpYH+P3NdqKvDV+4/vTzrnFfj/z9+cjkG
fYruP4BnMu30rABAQwVI62K37j+LDNymtnEBQFT+m3oT3+4/D4zebwg/AkCf
DyLkHgLvPyprOQ0SFANAFBNXAwgh7z8e3zY3DfADQNIZZRtFPO8/ygaiAD/S
BEDiXP2nQFTvP0R0M5X/uQVAEA2wOFpp7z8qatvDtKYGQOZdR0/ne+8/EC5x
fdOXB0DSwGU7NIzvP5IG3sfYjAhAe+0Y74Sa7z9kreBdV4UJQGnEsMkVp+8/
GK62cuGACkAOeYpWHLLvP1B/PsUgfwtALLj+/se77z+A8l+h1n8MQEN7tK5C
xO8/acAFmqqCDUBFDwJqscvvP/WL4/aZhw5AiBGx1zTS7z+nutVR9o0PQO1v
gbzp1+8/WDRGRdtKEEA72XNs6dzvP8tKA6iLzxBAnkl8L0rh7z8JBqr+YVYR
QC01upwf5e8/eF1lOLzZEUB9z5rkeujvP/Ti/PtyXhJAFU2WKGvr7z+eh4N7
JeQSQIdI86n97e8/rtjuvBNrE0BfsqUKPvDvP21a5Xdz8RNABLxkfjby7z99
LXgKOXoUQORFDffv8+8/8TzZlPECFUDkV1dLcvXvPwoyasJehBVAHK3VWQ==

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.016666666666666666`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAkidSuQ23uT+lE86FyjIJQE2s7cku
d70/9baX3W0cEkAcNBdXJIbCPxtmLokrvRFA61pAElRSxz9LtdpIoWcQQHoQ
h05Jncw/FYen9kTpDUA4A0dU6RLRP5tg0eAyMgtA726aID7k0z+/VtV50r8I
QGcf2MCHt9Y/O5RLVtaRBkDx9pd10oTZP0J0kSPAogRAjUzChddF3D91rpZR
luwCQM0Jmjha9d4/znzcTx1qAUCmnNo8csfgP1UD0fcGFwBAq5r6TlcH4j8B
RtMKrN/9P2dVwbfMOOM/yehZfmHj+z8BUon/llrkP/rEjNZsNPo/UWxlbc5r
5T8MrS3Js874P/+Rut3ca+Y/mNMs3Yqu9z+DKAtZeVrnP2tG3+GK0PY/hsQR
jKE36D9P9klrbjH2P6INNJWRA+k/rkzRbgLO9T9uXW/Fur7pP0jPOWUYo/U/
QaRS7blp6j+nd5TNe631P2BXOMRNBes/VHEO8fjp9T8wcxzXTZLrP3Bzuw5a
VfY/353/SaIR7D/qPPUebOz2PzzW+J08hOw/XYIGIwas9z/tvbaKEevsP2df
qIoOkfg/81LY7hNH7T9Vk89igZj5P8WzFMcwme0/tN+HVnO/+j9ZIgcWTOLt
P+GsKd8aA/w/7J+FoD4j7j88l2qM1GD9P5ZUUGHUXO4/XGZqByfW/j+XvWeW
y4/uP5gvWv9bMABA/dOiTdS87j+oAKnuL/8AQJuW61aQ5O4/BchsOZPWAUC/
ZxCEkwfvP6mI9BSVtQJAtMMjJmQm7z+nM7irYpsDQA8nfLR7Qe8/CL8ZPjqH
BEB9lzSQR1nvP4yxRQBweAVAtalR2Slu7z/QvWlyYm4GQKFerEt6gO8/h9vt
9YRoB0CzjbIdh5DvP3iONVVXZghAIFOP2ZWe7z+GZNkBZWcJQMccgy7kqu8/
DF8l7E1rCkA9jYC3qLXvPzY1sZYfcgtACKtktRO/7z/PwApYInwMQCdv+rdP
x+8/qfqtqXSFDUB5tAU+gs7vPxbkt3cEkw5AJMsMRszU7z//v83kxqIPQDaH
zs5K2u8/87zyUCVYEEAab+dNF9/vPw94I6243xBA2oLFGkjj7z8+UPwJDGkR
QN1g/MPw5u8/HBK99+DmEUChOlJ5IurvP6kHeCurdxJA0H7WPezs7z/2N/74
gAITQAhIADZb7+8/8rs8eqmNE0ARrU7hevHvPwlt3krTGBRADJvtTVXz7z/0
MCqzzKEUQBjtPUbz9O8/KZLIvqIvFUDKXTh4XPbvP1eGH++HuRVAQsrWZQ==

       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["z", TraditionalForm], 
    FormBox[
     RowBox[{"log", "(", "\[Beta]pz", ")"}], TraditionalForm]},
  AxesOrigin->{0.4, 1.1},
  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,
  ImageSize->{702.3203125, Automatic},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.4, 1}, {1.1, 3.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.767401476018199*^9, 3.767401684956418*^9, 
  3.76740179475881*^9},ExpressionUUID->"a53778a8-6026-47c3-b9f5-55d8ed061b5b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Born", "-", 
    RowBox[{"Infeld", " ", "AdS", " ", "q"}]}], "\[LessEqual]", 
   RowBox[{"qcrit", " ", "case", " ", "part", " ", "2"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7674026009838257`*^9, 
  3.767402601237982*^9}},ExpressionUUID->"507a47ae-0e02-4878-9efd-\
3cddfea3b3e8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm1", ",", "fz1", ",", "m", ",", "q", ",", "f", ",", 
     "\[Mu]extreme", ",", "dfz1", ",", "pz", ",", "\[Beta]pz"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"\[Beta]_", ",", "\[Gamma]_", ",", "\[Mu]_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"\[Beta]", "^", "2"}]}], "/", "2"}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"1", "+", 
            RowBox[{"\[Gamma]", " ", 
             RowBox[{"\[Mu]", "^", "2"}]}]}], "]"}]}], ")"}], "/", "6"}], "/",
        "\[Gamma]"}], "+", "1", "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Mu]", "^", "2"}], "/", "3"}], 
       RowBox[{"Hypergeometric2F1", "[", 
        RowBox[{
         RowBox[{"1", "/", "4"}], ",", 
         RowBox[{"1", "/", "2"}], ",", 
         RowBox[{"5", "/", "4"}], ",", 
         RowBox[{
          RowBox[{"-", "\[Gamma]"}], " ", 
          RowBox[{"\[Mu]", "^", "2"}]}]}], "]"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"z_", ",", "\[Beta]_", ",", "\[Gamma]_", ",", "\[Mu]_"}], "]"}],
      ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Mu]", "^", "2"}], " ", 
       RowBox[{
        RowBox[{"z", "^", "4"}], "/", "3"}], " ", 
       RowBox[{"Hypergeometric2F1", "[", 
        RowBox[{
         RowBox[{"1", "/", "4"}], ",", 
         RowBox[{"1", "/", "2"}], ",", 
         RowBox[{"5", "/", "4"}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"z", "^", "4"}]}], " ", "\[Gamma]", " ", 
          RowBox[{"\[Mu]", "^", "2"}]}]}], "]"}]}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"1", "+", 
            RowBox[{"\[Gamma]", " ", 
             RowBox[{"\[Mu]", "^", "2"}], " ", 
             RowBox[{"z", "^", "4"}]}]}], "]"}]}], ")"}], "/", "6"}], "/", 
       "\[Gamma]"}], "-", " ", 
      RowBox[{
       RowBox[{"m", " ", "[", 
        RowBox[{"\[Beta]", ",", "\[Gamma]", ",", "\[Mu]"}], "]"}], 
       RowBox[{"z", "^", "3"}]}], "+", "1", "-", 
      RowBox[{
       RowBox[{"\[Beta]", "^", "2"}], " ", 
       RowBox[{
        RowBox[{"z", "^", "2"}], "/", "2"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{"zs_", ",", "\[Beta]_", ",", "\[Gamma]_", ",", "\[Mu]_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"f", "[", 
         RowBox[{"zs", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Mu]"}], "]"}],
         "]"}], "/", "zs"}], "/", 
      RowBox[{"(", 
       RowBox[{"\[Mu]", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Hypergeometric2F1", "[", 
           RowBox[{
            RowBox[{"1", "/", "4"}], ",", 
            RowBox[{"1", "/", "2"}], ",", 
            RowBox[{"5", "/", "4"}], ",", 
            RowBox[{
             RowBox[{"-", "\[Gamma]"}], " ", 
             RowBox[{"\[Mu]", "^", "2"}]}]}], "]"}], "-", 
          RowBox[{"zs", " ", 
           RowBox[{"Hypergeometric2F1", "[", 
            RowBox[{
             RowBox[{"1", "/", "4"}], ",", 
             RowBox[{"1", "/", "2"}], ",", 
             RowBox[{"5", "/", "4"}], ",", 
             RowBox[{
              RowBox[{"-", "\[Gamma]"}], " ", 
              RowBox[{"\[Mu]", "^", "2"}], " ", 
              RowBox[{"zs", "^", "4"}]}]}], "]"}]}]}], ")"}]}], ")"}]}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{
      "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", ",", 
       "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"q", " ", "\[Mu]"}], 
              SqrtBox[
               RowBox[{"1", "+", 
                RowBox[{"\[Gamma]", " ", 
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "4"]}]}]]]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"18", " ", 
               SqrtBox["6"], " ", "\[Gamma]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                  RowBox[{"z", "[", "t", "]"}]}], "+", 
                 RowBox[{"2", " ", "\[Gamma]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  RowBox[{"6", " ", "\[Gamma]"}], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                  RowBox[{"2", " ", "\[Gamma]", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                  SqrtBox[
                   RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], "2"], 
               " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", " ", 
               SqrtBox["6"], " ", "\[Gamma]", " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"6", " ", "\[Gamma]"}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                 RowBox[{"2", " ", "\[Gamma]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                 SqrtBox[
                  RowBox[{"1", "+", 
                   RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{
               SqrtBox["6"], " ", 
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"]}]], 
             RowBox[{"(", 
              RowBox[{"\[Sqrt]", 
               RowBox[{"(", 
                RowBox[{"6", "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                 FractionBox[
                  RowBox[{"1", "-", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                 "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                  "/", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                ")"}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "3"}], " ", 
                SuperscriptBox["\[Beta]", "2"], " ", 
                RowBox[{"z", "[", "t", "]"}]}], "+", 
               FractionBox[
                RowBox[{"3", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                   RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "2"]}], 
                RowBox[{"2", " ", "\[Gamma]"}]], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Mu]", "2"], " ", 
                RowBox[{"Hypergeometric2F1", "[", 
                 RowBox[{
                  FractionBox["1", "4"], ",", 
                  FractionBox["1", "2"], ",", 
                  FractionBox["5", "4"], ",", 
                  RowBox[{
                   RowBox[{"-", "\[Gamma]"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                SuperscriptBox[
                 RowBox[{"z", "[", "t", "]"}], "3"]}], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "3"]}], 
                SqrtBox[
                 RowBox[{"1", "+", 
                  RowBox[{"\[Gamma]", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]], "+", 
               RowBox[{
                SuperscriptBox["\[Mu]", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}]}], "+", 
                  FractionBox["1", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]]}], ")"}]}], "+", 
               
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"54", " ", "\[Gamma]", " ", 
                  RowBox[{"z", "[", "t", "]"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                "/", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "-", 
                   RowBox[{"6", " ", "\[Gamma]"}], "+", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "-", 
                   RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], 
                 "2"]}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               SqrtBox["6"], " ", 
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", " ", 
               SqrtBox["6"], " ", "\[Gamma]", " ", 
               RowBox[{
                SuperscriptBox["z", "\[Prime]\[Prime]",
                 MultilineFunction->None], "[", "t", "]"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"6", " ", "\[Gamma]"}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                 RowBox[{"2", " ", "\[Gamma]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                 SqrtBox[
                  RowBox[{"1", "+", 
                   RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", " ", 
               SqrtBox["6"], " ", "\[Gamma]", " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "3"}], " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", 
                  RowBox[{"z", "[", "t", "]"}]}], "+", 
                 FractionBox[
                  RowBox[{"3", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], 
                  RowBox[{"2", " ", "\[Gamma]"}]], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SqrtBox[
                   RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]], "+", 
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}]}], "+", 
                    FractionBox["1", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]]}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"54", " ", "\[Gamma]", " ", 
                    RowBox[{"z", "[", "t", "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                  "/", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"6", " ", "\[Gamma]"}], "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], "2"]}], 
                 "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"36", " ", "\[Gamma]", " ", 
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], ")"}], "/", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"6", " ", "\[Gamma]"}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                 RowBox[{"2", " ", "\[Gamma]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                 SqrtBox[
                  RowBox[{"1", "+", 
                   RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"q", "\[Rule]", "q1"}], ",", 
            RowBox[{"\[Beta]", "\[Rule]", "\[Beta]1"}], ",", 
            RowBox[{"\[Gamma]", "\[Rule]", "\[Gamma]1"}], ",", 
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", " ", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "4"}], "}"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Mu]extreme", "[", 
      RowBox[{"\[Beta]_", ",", "\[Gamma]_"}], "]"}], ":=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{"1", "/", "\[Gamma]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", "-", 
               RowBox[{"\[Beta]", "^", "2"}]}], ")"}], "\[Gamma]"}]}], ")"}], 
          "^", "2"}], "-", "1"}], ")"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"fz1", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", 
       ",", "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{
       "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",", "\[Mu]1"}], 
       "]"}], "[", "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dfz1", "[", 
      RowBox[{
      "t_", ",", "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", ",",
        "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fz1", "[", 
         RowBox[{
         "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",", 
          "\[Mu]1"}], "]"}], ",", "t1"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"t1", "\[Rule]", "t"}], "}"}]}]}], ";", "\[IndentingNewLine]", 
    
    RowBox[{
     RowBox[{"pz", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", 
       ",", "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{"Block", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"zd", ",", "z2", ",", "fz"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"z2", "=", 
         RowBox[{"fz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",",
            "\[Mu]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"fz", "=", 
         RowBox[{"f", "[", 
          RowBox[{"z2", ",", "\[Beta]1", ",", "\[Gamma]1", ",", "\[Mu]1"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"zd", "=", 
         RowBox[{"dfz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",",
            "\[Mu]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "/", "z2"}], "/", "fz"}], " ", 
          RowBox[{"zd", "/", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"fz", "-", 
             RowBox[{
              RowBox[{"zd", "^", "2"}], "/", "fz"}]}], "]"}]}]}], "]"}], 
        ";"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Beta]pz", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", 
       ",", "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{"Block", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "zd", ",", "z2", ",", "fz", ",", "\[Beta]", ",", "n1", ",", "zw"}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"z2", "=", 
         RowBox[{"fz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",",
            "\[Mu]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"fz", "=", 
         RowBox[{"f", "[", 
          RowBox[{"z2", ",", "\[Beta]1", ",", "\[Gamma]1", ",", "\[Mu]1"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"zd", "=", 
         RowBox[{"dfz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",",
            "\[Mu]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"\[Beta]", "=", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"f", "[", 
               RowBox[{
               "zw", ",", "\[Beta]1", ",", "\[Gamma]1", ",", "\[Mu]1"}], 
               "]"}], ",", "zw"}], "]"}], "/.", 
            RowBox[{"{", 
             RowBox[{"zw", "\[Rule]", " ", "z2"}], "}"}]}], ")"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Beta]", "/", "z2"}], "/", "fz"}], " ", 
          RowBox[{"zd", "/", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"fz", "-", 
             RowBox[{
              RowBox[{"zd", "^", "2"}], "/", "fz"}]}], "]"}]}]}], "]"}], 
        ";"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"0.2", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{"\[Beta]pz", "[", 
                RowBox[{"i", ",", 
                 RowBox[{"0.2", 
                  RowBox[{"qcrit", "[", 
                   RowBox[{"0.1", ",", "0", ",", "1", ",", 
                    RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                 ",", "0", ",", "1", ",", 
                 RowBox[{"2", "/", 
                  RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], "//", 
              "Log"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"0.4", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{"\[Beta]pz", "[", 
                RowBox[{"i", ",", 
                 RowBox[{"0.4", 
                  RowBox[{"qcrit", "[", 
                   RowBox[{"0.1", ",", "0", ",", "1", ",", 
                    RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                 ",", "0", ",", "1", ",", 
                 RowBox[{"2", "/", 
                  RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], "//", 
              "Log"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"0.6", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{"\[Beta]pz", "[", 
                RowBox[{"i", ",", 
                 RowBox[{"0.6", 
                  RowBox[{"qcrit", "[", 
                   RowBox[{"0.1", ",", "0", ",", "1", ",", 
                    RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                 ",", "0", ",", "1", ",", 
                 RowBox[{"2", "/", 
                  RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], "//", 
              "Log"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"0.8", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{"\[Beta]pz", "[", 
                RowBox[{"i", ",", 
                 RowBox[{"0.8", 
                  RowBox[{"qcrit", "[", 
                   RowBox[{"0.1", ",", "0", ",", "1", ",", 
                    RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                 ",", "0", ",", "1", ",", 
                 RowBox[{"2", "/", 
                  RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], "//", 
              "Log"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"1.0", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{"\[Beta]pz", "[", 
                RowBox[{"i", ",", 
                 RowBox[{"1.0", 
                  RowBox[{"qcrit", "[", 
                   RowBox[{"0.1", ",", "0", ",", "1", ",", 
                    RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                 ",", "0", ",", "1", ",", 
                 RowBox[{"2", "/", 
                  RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], "//", 
              "Log"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.5", ",", "3.1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.5"}], "}"}]}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"z", ",", 
          RowBox[{"Log", "[", "\[Beta]pz", "]"}]}], "}"}]}]}], 
      "\[IndentingNewLine]", "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.758538000029398*^9, 3.758538045766563*^9}, {
   3.758538140854106*^9, 3.758538148338945*^9}, {3.758538282467866*^9, 
   3.758538320298864*^9}, {3.75853837267715*^9, 3.758538470030238*^9}, {
   3.758538544447816*^9, 3.758538559070099*^9}, {3.758538615062416*^9, 
   3.758538671483891*^9}, {3.758538705169448*^9, 3.7585388060509872`*^9}, {
   3.7585388776917543`*^9, 3.75853887816372*^9}, 3.7585390792490873`*^9, {
   3.758539546226787*^9, 3.758539547432866*^9}, {3.758539636191441*^9, 
   3.7585397044434347`*^9}, {3.758539791559417*^9, 3.758539915816618*^9}, {
   3.75854038767594*^9, 3.758540432352581*^9}, {3.7585405771371927`*^9, 
   3.758540707684121*^9}, {3.75854073873212*^9, 3.758541006335308*^9}, {
   3.7585453635161953`*^9, 3.758545461260376*^9}, {3.758545529501421*^9, 
   3.758545568684445*^9}, {3.758545634132215*^9, 3.758545871455368*^9}, 
   3.758545966931903*^9, {3.758546005115241*^9, 3.7585460077110157`*^9}, {
   3.758546042262128*^9, 3.7585460527426157`*^9}, {3.758546132809017*^9, 
   3.7585461343929653`*^9}, {3.758546252037428*^9, 3.758546259128384*^9}, {
   3.758546338512642*^9, 3.758546350708971*^9}, {3.758546403680023*^9, 
   3.75854640619344*^9}, {3.758546455598486*^9, 3.758546464989917*^9}, {
   3.7585465491062727`*^9, 3.758546582560766*^9}, {3.7585466260575323`*^9, 
   3.758546693199839*^9}, {3.7585467739651833`*^9, 3.758546889346767*^9}, {
   3.7585471259813757`*^9, 3.75854719567307*^9}, {3.758547227022077*^9, 
   3.7585472663922853`*^9}, {3.758547353485178*^9, 3.75854749146279*^9}, {
   3.7585476020511293`*^9, 3.758547603543219*^9}, {3.758547735350923*^9, 
   3.758547737596816*^9}, 3.7585478089710083`*^9, {3.7585485160885477`*^9, 
   3.758548516713715*^9}, {3.7585486370622787`*^9, 3.758548672265959*^9}, {
   3.75854880612626*^9, 3.758548824200348*^9}, {3.758596760971849*^9, 
   3.758596814521757*^9}, {3.758596944974786*^9, 3.75859710080864*^9}, {
   3.758597160698374*^9, 3.758597213057705*^9}, {3.7585972553956957`*^9, 
   3.758597259174314*^9}, {3.758597333169475*^9, 3.758597362725316*^9}, {
   3.758597401269397*^9, 3.7585974115376787`*^9}, {3.758597442360677*^9, 
   3.758597487908835*^9}, {3.758597527576044*^9, 3.758597535223362*^9}, {
   3.75859778107716*^9, 3.758597864024992*^9}, {3.758597940532975*^9, 
   3.758597940710773*^9}, {3.75859801938067*^9, 3.758598041541828*^9}, {
   3.7585980837516947`*^9, 3.758598135933546*^9}, {3.758598169065208*^9, 
   3.7585981809138803`*^9}, {3.758598216764838*^9, 3.7585982453345547`*^9}, {
   3.758598341993463*^9, 3.7585983440778017`*^9}, {3.7585988306246433`*^9, 
   3.758598830830577*^9}, {3.758599128685021*^9, 3.758599138411364*^9}, {
   3.758599819382842*^9, 3.758599820499593*^9}, {3.758599867873096*^9, 
   3.758599901141396*^9}, {3.758600066009074*^9, 3.758600071231616*^9}, {
   3.758616377920555*^9, 3.758616440669208*^9}, {3.7586164759202433`*^9, 
   3.7586164989925137`*^9}, {3.7586165358425198`*^9, 3.758616543819427*^9}, {
   3.758616656502936*^9, 3.758616689136405*^9}, {3.758616748958891*^9, 
   3.75861675653091*^9}, {3.758616814291253*^9, 3.75861683738706*^9}, {
   3.758616871724538*^9, 3.758616873633115*^9}, {3.758617008655117*^9, 
   3.7586170211416492`*^9}, {3.758617090872438*^9, 3.758617133212291*^9}, {
   3.758617174391375*^9, 3.7586171749787083`*^9}, {3.758617283822666*^9, 
   3.758617301130199*^9}, {3.7586173425848722`*^9, 3.758617486445385*^9}, 
   3.758617549086116*^9, {3.758617603942511*^9, 3.758617614499693*^9}, {
   3.75861766380795*^9, 3.7586176648656683`*^9}, {3.75861770728601*^9, 
   3.758617707984373*^9}, {3.758617825281706*^9, 3.758617849843707*^9}, {
   3.758617888626677*^9, 3.7586178896227903`*^9}, 3.758617937793913*^9, {
   3.758618000690536*^9, 3.758618039307282*^9}, {3.7586180783188763`*^9, 
   3.758618085714858*^9}, {3.758618184309708*^9, 3.75861818562947*^9}, {
   3.758679905660881*^9, 3.758679908946331*^9}, 3.75980825157318*^9, {
   3.759821638233654*^9, 3.759821677136899*^9}, {3.759821746382406*^9, 
   3.7598217571623163`*^9}, {3.759821972534501*^9, 3.759822011295196*^9}, {
   3.759822060771031*^9, 3.759822097894677*^9}, {3.759822892367897*^9, 
   3.759822938680234*^9}, {3.75982298889275*^9, 3.759823030461417*^9}, {
   3.759823115926036*^9, 3.759823269194672*^9}, {3.759823431418742*^9, 
   3.75982345779944*^9}, {3.759823498009285*^9, 3.759823548583639*^9}, {
   3.759823636527495*^9, 3.75982369236626*^9}, {3.759823731670232*^9, 
   3.759823804587942*^9}, {3.759824004621005*^9, 3.759824006181662*^9}, {
   3.7598241728799677`*^9, 3.7598241749269667`*^9}, {3.759824346859222*^9, 
   3.759824347938819*^9}, {3.759824533135112*^9, 3.759824537633219*^9}, {
   3.7598249873291483`*^9, 3.759825006496797*^9}, {3.759825132396927*^9, 
   3.759825343179367*^9}, {3.759825856624722*^9, 3.759825975169014*^9}, {
   3.759826764286235*^9, 3.75982682564659*^9}, {3.7598364682113457`*^9, 
   3.759836495882495*^9}, {3.759836533714952*^9, 3.759836546032048*^9}, {
   3.759837340300784*^9, 3.759837353400568*^9}, {3.759843878035446*^9, 
   3.759843992479772*^9}, 3.759844027182931*^9, {3.759844253863854*^9, 
   3.7598442628309298`*^9}, {3.7598443735656977`*^9, 3.759844401665676*^9}, {
   3.7598445717731237`*^9, 3.7598445769234953`*^9}, 3.759844629547164*^9, {
   3.7598447173714333`*^9, 3.759844786969858*^9}, {3.759845035610373*^9, 
   3.7598450775271807`*^9}, {3.75984539184356*^9, 3.759845399283866*^9}, {
   3.7598454997224703`*^9, 3.759845591173621*^9}, {3.759845690033955*^9, 
   3.759845717216815*^9}, {3.759845786198544*^9, 3.759845786586112*^9}, {
   3.759846225338708*^9, 3.759846262891819*^9}, {3.7598463578991213`*^9, 
   3.759846473714466*^9}, {3.759884776203396*^9, 3.759884811259758*^9}, {
   3.759884977752447*^9, 3.759885053749447*^9}, {3.759885111614628*^9, 
   3.759885246864278*^9}, {3.759885682688591*^9, 3.759885722463661*^9}, {
   3.759885782705978*^9, 3.759885804756921*^9}, {3.7598861799266157`*^9, 
   3.759886240264069*^9}, 3.759886290053087*^9, {3.7598864598850813`*^9, 
   3.759886568665514*^9}, 3.759892268870021*^9, 3.759892320326295*^9, {
   3.759892386616026*^9, 3.759892429065673*^9}, {3.759892821860734*^9, 
   3.759892910669476*^9}, {3.7598930012395144`*^9, 3.75989303946455*^9}, {
   3.759893075384836*^9, 3.759893239718343*^9}, {3.759893567143162*^9, 
   3.759893601235416*^9}, {3.7598936388524733`*^9, 3.7598937702552834`*^9}, {
   3.7598938282091627`*^9, 3.7598938401181097`*^9}, {3.7598938732080383`*^9, 
   3.759893957862599*^9}, {3.759894001517295*^9, 3.7598940816223783`*^9}, {
   3.759894168384268*^9, 3.759894184612075*^9}, {3.759894316582765*^9, 
   3.759894329396204*^9}, {3.759899398003936*^9, 3.759899404135974*^9}, {
   3.75989949800956*^9, 3.759899503626495*^9}, {3.7599018316209507`*^9, 
   3.759901842695794*^9}, {3.759901954077668*^9, 3.759901954325601*^9}, {
   3.759914829910955*^9, 3.759914855632615*^9}, {3.759915167987526*^9, 
   3.759915182070291*^9}, {3.7599155890139103`*^9, 3.759915602421894*^9}, {
   3.759915663742887*^9, 3.759915712015811*^9}, {3.759915747755122*^9, 
   3.759915799549712*^9}, {3.759916049569772*^9, 3.7599160592778673`*^9}, {
   3.7599162162085857`*^9, 3.7599162648990192`*^9}, {3.7599171356512537`*^9, 
   3.7599171656787558`*^9}, {3.7599172245633307`*^9, 3.759917371249357*^9}, {
   3.759917606390757*^9, 3.7599176943289337`*^9}, {3.759925492403933*^9, 
   3.759925504618651*^9}, {3.759934261847958*^9, 3.759934296062623*^9}, {
   3.7599362290460987`*^9, 3.7599363023459597`*^9}, {3.759936510429447*^9, 
   3.759936522013946*^9}, {3.75993678181703*^9, 3.75993678862087*^9}, {
   3.759937684850672*^9, 3.7599376922147408`*^9}, {3.759938028744144*^9, 
   3.759938032572872*^9}, {3.7599980823004227`*^9, 3.759998096330743*^9}, {
   3.7674007389576883`*^9, 3.7674007661345053`*^9}, {3.767400817501232*^9, 
   3.767400920925089*^9}, {3.767401097444003*^9, 3.767401102500009*^9}, {
   3.7674011661033688`*^9, 3.76740118604357*^9}, {3.767401268402897*^9, 
   3.7674012732792463`*^9}, {3.767401364946526*^9, 3.767401365961171*^9}, {
   3.767401562155984*^9, 3.767401581502571*^9}, {3.7674016906294518`*^9, 
   3.767401693065343*^9}, 3.767402019457333*^9, {3.767402195729671*^9, 
   3.767402205863611*^9}, {3.767402311754459*^9, 3.767402373765348*^9}, {
   3.767402561478154*^9, 3.7674025758191977`*^9}, {3.7674030425754423`*^9, 
   3.7674030584152727`*^9}, {3.767403145829031*^9, 
   3.7674031480495453`*^9}},ExpressionUUID->"bda5e572-1f95-477a-8cc0-\
4a66d49bd298"],

Cell[BoxData[
 TemplateBox[{
  "NDSolveValue","ntdv",
   "\"Cannot solve to find an explicit formula for the derivatives. Consider \
using the option \
Method->{\\\"EquationSimplification\\\"->\\\"Residual\\\"}.\"",2,15,1,
   22610937857603530350,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.767403251216119*^9},ExpressionUUID->"a29e4af2-3183-4bab-811d-\
12b24690bcfd"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAkX7zUHa5uT83NbVPg9IJQPNByShV
wb0/2+JjXEtYEkC0jRPQveXCPyDDlD9Q7RFAXvGhopjsxz90UiSpBqIQQBP+
MPoTbc0/osoodVGRDkCn9bVl4pLRP75fQ6HBIAxANEnTkdZ51D8oX1inAQIK
QI6vqAJyYNc/F1Pv75ExCEDdOysvyz7aPzZOO7QXqAZAjMyd0ZEO3T8StRRl
TF4FQOQO2dR1yt8/GDLBSdpNBEB1CBYb9jbhP2bjxgBgcQNAdkhtjY564j+u
IQGBQsQCQMXYczRxruM/CKbIhX1CAkDNd49FZdHkP1nybEl86AFADPVNlozi
5T/roFs2/rIBQGu83o5h4eY/1vcW9wKfAUD/cM5Mss3nP7SIbke+qQFA2wU9
Mpmn6D8NpzVVkdABQDOn9nNzb+k/+67MmAURAkB9Ihli1iXqP5MTkBzKaAJA
UUaXKoTL6j/8OAzPtNUCQHr3uL9gYes/l/5ZLbtVA0CSzFJrZ+jrP5yMilT5
5gNArc7ZcKFh7D9i+oz4s4cEQIU/gvYdzuw/xXnSg0g2BUCgVz9P6y7tP/bC
AkpF8QVAGV21ohGF7T90v26CV7cGQG2DpdyO0e0/CHzK4zKHB0Cg8PDBUxXu
P2UrqSa9XwhAyPhqAkJR7j+6n7+9G0AJQHKbnRsrhu4/SELM9UAnCkC1A8jk
z7TuPxUrZdWCFAtAGzaMneDd7j/I5tdRYQcMQDz/R139Ae8/h4amw9b+DEAy
14/JtiHvPx+AYsuw+Q1AAdES+I497z8dHyOwEP0OQK+Zam/6Ve8/3KZbINL7
D0CVsz40YWvvP3DY6hW5ghBAu7qI2x9+7z+qiVQm8QURQD9ik5GIju8/J6Sb
Kz6IEUA5vkIe5JzvP/y8bGgXDxJApu2f13Kp7z9wOsd+5JQSQC3qwIJttO8/
d09MlmMcE0DuCacdBr7vP8sQP47nohNAYsWer2jG7z/10nNWbisUQLsSm+S7
ze8/4TRgXYW0FEC422CyIdTvP/wBgGWKPRVASBaU47fZ7z/qVZzGMccVQFqC
dpaY3u8/Zy/gj25RFkArdqmr2uLvP7kJhzlo3BZAecuSK5Lm7z+f/PV3U8MX
QJ2IT57Q6e8/dHnWjvnKF0D10nJTpezvPyrt5XIbUBhAeLY5ux3v7z/JB1XQ
/cEYQI2PTItF8e8/dJ4XWGJmGUC/vAIBJ/PvP2PkQxSH7xlAjF9xDsv07z9L
EOS7WacaQMcWhYQ59u8/tg6lWj0FG0BHBiE2effvPwLpB33VGxtAgjHL4A==

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.016666666666666666`], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAnNKk1qi4uT/RTV1hrJ4JQPFlWabQ
qL0/Z7MLq/FEEkC2QvkjicbCP3lzNViP3RFA6M325PC6xz+MW/nLq44QQOgt
2K8rK80/Xvc/9d9ZDkAUG19+62rRP11dnQIT0wtAZZRTbeNL1D9zX9aCwZoJ
QJqH67l4Ldc/Sljo3pyuB0DZ4EiQuQfaP0DAE70KCAZAOEwa2lHU3D88O8GA
UKAEQIBcMIvujd8/2/mW+IxxA0CcVQ7k/xfhP8touLXGdgJA4dk/nFJb4j+B
bbBjwqsBQMiH9eFVj+M/VcLDddEMAUA1ws4fyLLkP/u9WwyqlgBAO4OSWsDE
5T8/9vEGSUYAQOfTaaOsxOY/ydqvEN4YAEA19eDbTbLnP8YJdkG/CwBAVtiW
7rCN6D9vParfYRwAQChiIPwlV+k/PQTw4FdIAEBgivcoNg/qP5cyCntPjQBA
sGk7wpi26j+jWuiAEukAQAR1cGIoTus/vx/24ohZAUDnVXOg2NbrPxscSd67
3AFApLn5rqxR7D/gXdgp1XACQBYj8S2vv+w/Z9rU8RwUA0DO3xRN6yHtP3l7
4zD/xANA/YZBRGd57T+ixP/lCoIEQGi9eBAgx+0/BO6WgApKBUCsn75UBgzu
PzPVviF2GwZA0IJXPvxI7j9UyMMidPUGQGtRtT/Ufu4/fd7/oSPXB0AmHBx3
UK7uP9d384xOvwhAreR6oCLY7j+7OgZvda0JQIQe0G3s/O4/SYXVR0+gCkAP
jJgpQB3vP4UJeKizmAtAsh7Tj6E57z8IZ+ZmC5UMQH0tY76GUu8/EgcvBvaT
DUAIWYg/WWjvP4ZFPwwHlw5A1UyLFHd77z8pzG69F5wPQB9nSr4zjO8/ffHV
h+dREEDVi+E82ZrvPyc2Z8Gu1hBA6sPRAamn7z88iSMeJlwRQMw7FdPcsu8/
d5khWcTiEUCX0sucp7zvPxDNAClfahJAd9OqMTbF7z9O+zrCX/ISQCunO/mv
zO8/Q9RvY9NyE0ArR9iON9PvP2ghDNov7RNACITmVOvY7z9D57deGZQUQPR8
8Ovl3e8/hxQZnsEhFUBjkZOkPuLvP7ZNzIZYoxVA3Sgc7wnm7z/r42PlmkEW
QDp2fbBZ6e8/mo8QrnniFkBweSWCPezvP4yW0IObORZAxuyKG8Pu7z/3oEjs
Bz4YQCnukHb28O8/agQuAuAzGEAM9LP94fLvPyCpJ26E3RhAb/6J1o707z8h
TRl8rWgZQA117fkE9u8/Fai2Vef0GUBCb+JeS/fvP+r5YAyfchpA9V/Rfg==

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0.5, 0, 0.5], PointSize[0.016666666666666666`], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAjOAyTtu3uT9kER0cdWkJQBkXS9YY
kL0/NV7dWQAxEkBMuzVYq6bCP72TcViFzRFAbQctiIiHxz+A096fNHsQQILr
OnP35cw/c58cGtghDkBDLYKkVkDRP9jTU3+NgwtArXvC6C0a1D/1XDDpbS8J
QMtsz19y9dY/fZpeHUckB0AROqKFMcrZPx3l5kQpXAVAmKX8+ByS3D+QTcD0
2NADQOGs6CPqR98/9nXeseR8AkBPAqyjiPPgP7G9evXBWwFAj/JPrds14j9d
TWDSpmkAQCF+tv1UaeM/FZE9dLFG/z/kosV+sIzkP8qNJIYBDP4/cD2nov+e
5T+YECY9FB79PzRniPCnn+Y/orYdwhJ4/D9qeZcsX47nP5j3avhYFfw/qgCr
KyVr6D8m5c0oY/H7P/4Nrbs7Nuk/mLzRL8YH/D9auhQ4HfDpP/F3azEvVPw/
x+SXaHKZ6j9qqj8yZNL8PyZUh0QIM+s/lSk6hkt+/T+cHh8axr3rP+fygQDy
U/4/WSGefaQ67D+P0UB0lU//P/DbokGlquw/RkvKEtE2AECkPsOezA7tP8Ur
zh1f1QBAfQ7GlRto7T9N94558IEBQLrWi4OLt+0/QNQGNwc7AkBEKOrMCv7t
P7LtEOUx/wJAAn6Ui3o87j/GQdu3X80DQEwY6Q6tc+4/JXmjzoCkBEAJ2HUN
ZaTuPxCC1IVvgwVAoOCCZlXP7j9xZf/GRGkGQEB0e1Eh9e4/CaXIu0xVB0Dy
n4TdXBbvP0LVpfLRRghAdZOfsI0z7z8AucLxGT0JQIh21d8rTe8/4Ch9f483
CkDyxabpomPvP9tf9xfLNQtAYtYWt1J37z+wXu4jMDcMQOuyD5mQiO8/qoNM
3207DUBQQmxEqJfvP4IuqBQsQg5ADH92wNyk7z92bkKl70oPQOnsa0hpsO8/
blc+2+4qEEBZTVIdgrrvP9I4vdJVsRBAPXXlRlXD7z+AmwPncDgRQHblV0QL
y+8/s0xWbS3AEUD0wiirx9HvP2u4q/1WPxJAMMwluanX7z9gLpRcN80SQKwQ
CtzM3O8/1iVrKAZuE0AO49gWSeHvP28F2w806BNATaYqcjPl7z9J1E8x5G0U
QPxNs1ye6O8/iIAPoFEPFUCA28X4mevvPwfWnsiqkhVAOVZDVDTu7z/TNLMm
52QVQNBP2s558O8/ssydoE7XFkAuN7EzdfLvPw/rmmXrERdAB5kF5C/07z+Z
2vMhBKwXQGIisR6y9e8/+ButsTs2GEBsZkcSA/fvPzdsPWAswRhAKrvJ+Q==

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.016666666666666666`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAkidSuQ23uT+lE86FyjIJQE2s7cku
d70/9baX3W0cEkAcNBdXJIbCPxtmLokrvRFA61pAElRSxz9LtdpIoWcQQHoQ
h05Jncw/eA6n9kTpDUA4A0dU6RLRP5tg0eAyMgtA726aID7k0z+/VtV50r8I
QGcf2MCHt9Y/O5RLVtaRBkDx9pd10oTZP0J0kSPAogRAjUzChddF3D91rpZR
luwCQM0Jmjha9d4/znzcTx1qAUCmnNo8csfgP1UD0fcGFwBAq5r6TlcH4j8B
RtMKrN/9P2dVwbfMOOM/yehZfmHj+z8BUon/llrkP/rEjNZsNPo/UWxlbc5r
5T8MrS3Js874P/+Rut3ca+Y/mNMs3Yqu9z+DKAtZeVrnP2tG3+GK0PY/hsQR
jKE36D9P9klrbjH2P6INNJWRA+k/rkzRbgLO9T9uXW/Fur7pP0jPOWUYo/U/
QaRS7blp6j+nd5TNe631P2BXOMRNBes/VHEO8fjp9T8wcxzXTZLrP3Bzuw5a
VfY/353/SaIR7D/qPPUebOz2PzzW+J08hOw/XYIGIwas9z/tvbaKEevsP2df
qIoOkfg/81LY7hNH7T9Vk89igZj5P8WzFMcwme0/tN+HVnO/+j9ZIgcWTOLt
P+GsKd8aA/w/7J+FoD4j7j88l2qM1GD9P5ZUUGHUXO4/XGZqByfW/j+XvWeW
y4/uP5gvWv9bMABA/dOiTdS87j+oAKnuL/8AQJuW61aQ5O4/BchsOZPWAUC/
ZxCEkwfvP6mI9BSVtQJAtMMjJmQm7z+nM7irYpsDQA8nfLR7Qe8/CL8ZPjqH
BEB9lzSQR1nvP4yxRQBweAVAtalR2Slu7z/QvWlyYm4GQKFerEt6gO8/h9vt
9YRoB0CzjbIdh5DvP3iONVVXZghAIFOP2ZWe7z+GZNkBZWcJQMccgy7kqu8/
DF8l7E1rCkA9jYC3qLXvPzY1sZYfcgtACKtktRO/7z/PwApYInwMQCdv+rdP
x+8/qfqtqXSFDUB5tAU+gs7vPxbkt3cEkw5AJMsMRszU7z//v83kxqIPQDaH
zs5K2u8/87zyUCVYEEAab+dNF9/vPw94I6243xBA2oLFGkjj7z8+UPwJDGkR
QN1g/MPw5u8/HBK99+DmEUChOlJ5IurvP6kHeCurdxJA0H7WPezs7z/2N/74
gAITQAhIADZb7+8/8rs8eqmNE0ARrU7hevHvPwlt3krTGBRADJvtTVXz7z/0
MCqzzKEUQBjtPUbz9O8/KZLIvqIvFUDKXTh4XPbvP1eGH++HuRVA9uTWTw==

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAk4v5FUC2uT9GD5Pyl/oIQGJ4G5gT
Xr0/mHztxi8HEkBfn6do9GTCP81TSj56rBFAR2LzIkkbxz+8UjR48VMQQMIv
44rzUMw/jESN+zKwDUA4A8QvZeLQP8D+350H3wpAZ8Ecw4up0z/aBtbQt0sI
QJn3nKGzctY/TzOodnj2BUC+FeMN0jXZP/tVAty+2QNADlTMe4/s2z8iOsNP
Ou8BQJdi1ZOikd4/GCKeoC4xAEC2mZG6RZDgP8Mxqm1sNf0/RVNLZb3K4T8x
qkAVYk/6P+k+oN6l9uI/QEUFTT6p9z+dpHAKwhLkP9ir1MT2PPU/w2YA+yke
5T/OwB2pMwXzPxgdMgpJGOY/X0mPwx398D9eax6c2QDnPwyUto5rQO4/Tg8w
mt7X5z9mVehWbtTqPwUlBhGbneg/EDo9+QWu5z8167aPiFLpP3K5+csnxeQ/
h03R6kz36T+lUuFf5BHiP0kpI/2vjOo/86OR3rUY3z8W6+vmkRPrP11/vPFf
Wdo/7fhVJuKM6z83f1ug/NXVP0nY3cuX+es/ReTvx5F+0T8SnN/bqlrsPwn/
j3mghco/5gVh7g6x7D+n0Ol+vyPCP+sOPPeu/ew/ZONsY2dosz9WUVMdakHt
P1fM0b2aFYE/4Ru4fRF97T/Ftqx9KLevv++zYLVmse0/QG5zK+12wb8WIg4M
G9/tP/f1P9mFvsu/m+ShHM8G7j9T3r95WoHTv7cILt0SKe4/osEL/u3H2b+b
uo/oZUbuP5lCkpD7ceC/M1Ps9Ddf7j/f/oV5tYvkv4ORgWLpc+4/yxfJxDxg
6b/clWrUy4TuP4hmZnDWN++/4ii5xiKS7j/ytYkrJEbzv6cjdhkknO4/zjDX
LuEj+L9hHh2I+KLuPy0AlXaqS/+/KgjaCbym7j/dm7V2AmMGwDQBJRZ+p+4/
JP9ycwVSD8A6XqbLQaXuP5Wiht7QXQLAeL8i+P2f7j8SI7dmAVz7v0ZQMgGd
l+4/E7bN5NWL9b8L3YGu/IvuP5HGH2pRWvG/xJ5N1+187j/HA5zh+i/sv305
BvYzau4/BW/9HXDj5r/MxR+mhFPuP5r7mS4gcuK/NXNiE4c47j90D3H8PETd
v7cZ5GDTGO4/WrTwmnOY1r9V/wgT8vPtP8vLbx9TqNC/qNOyilvJ7T/uR9Sp
ipHGv/CMw6J3mO0/DLpQPdldub85Gh6DnWDtP9aJ/6xKf5u/oMIaxBMh7T9U
WFCEWXGlP5KBeQAR2ew/GcpUUw3Cuz/NKaD0vIfsP2RZOQBHRcY/UyP0Ww==

       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["z", TraditionalForm], 
    FormBox[
     RowBox[{"log", "(", "\[Beta]pz", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.5},
  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}, {0.5, 3.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.767403311880834*^9},ExpressionUUID->"bd110812-874c-4e32-895e-\
83664f7bc228"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Born", "-", 
    RowBox[{"Infeld", " ", "AdS", " ", "q"}]}], ">", 
   RowBox[{"qcrit", " ", "case"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.767403544828848*^9, 
  3.767403551981516*^9}},ExpressionUUID->"73c8958f-20f6-42f5-b412-\
9ae6c6e73cb5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm1", ",", "fz1", ",", "m", ",", "q", ",", "f", ",", 
     "\[Mu]extreme", ",", "dfz1", ",", "pz", ",", "\[Beta]pz"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"\[Beta]_", ",", "\[Gamma]_", ",", "\[Mu]_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"\[Beta]", "^", "2"}]}], "/", "2"}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"1", "+", 
            RowBox[{"\[Gamma]", " ", 
             RowBox[{"\[Mu]", "^", "2"}]}]}], "]"}]}], ")"}], "/", "6"}], "/",
        "\[Gamma]"}], "+", "1", "+", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Mu]", "^", "2"}], "/", "3"}], 
       RowBox[{"Hypergeometric2F1", "[", 
        RowBox[{
         RowBox[{"1", "/", "4"}], ",", 
         RowBox[{"1", "/", "2"}], ",", 
         RowBox[{"5", "/", "4"}], ",", 
         RowBox[{
          RowBox[{"-", "\[Gamma]"}], " ", 
          RowBox[{"\[Mu]", "^", "2"}]}]}], "]"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"z_", ",", "\[Beta]_", ",", "\[Gamma]_", ",", "\[Mu]_"}], "]"}],
      ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Mu]", "^", "2"}], " ", 
       RowBox[{
        RowBox[{"z", "^", "4"}], "/", "3"}], " ", 
       RowBox[{"Hypergeometric2F1", "[", 
        RowBox[{
         RowBox[{"1", "/", "4"}], ",", 
         RowBox[{"1", "/", "2"}], ",", 
         RowBox[{"5", "/", "4"}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"z", "^", "4"}]}], " ", "\[Gamma]", " ", 
          RowBox[{"\[Mu]", "^", "2"}]}]}], "]"}]}], "+", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"1", "+", 
            RowBox[{"\[Gamma]", " ", 
             RowBox[{"\[Mu]", "^", "2"}], " ", 
             RowBox[{"z", "^", "4"}]}]}], "]"}]}], ")"}], "/", "6"}], "/", 
       "\[Gamma]"}], "-", " ", 
      RowBox[{
       RowBox[{"m", " ", "[", 
        RowBox[{"\[Beta]", ",", "\[Gamma]", ",", "\[Mu]"}], "]"}], 
       RowBox[{"z", "^", "3"}]}], "+", "1", "-", 
      RowBox[{
       RowBox[{"\[Beta]", "^", "2"}], " ", 
       RowBox[{
        RowBox[{"z", "^", "2"}], "/", "2"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{"zs_", ",", "\[Beta]_", ",", "\[Gamma]_", ",", "\[Mu]_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"f", "[", 
         RowBox[{"zs", ",", "\[Beta]", ",", "\[Gamma]", ",", "\[Mu]"}], "]"}],
         "]"}], "/", "zs"}], "/", 
      RowBox[{"(", 
       RowBox[{"\[Mu]", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Hypergeometric2F1", "[", 
           RowBox[{
            RowBox[{"1", "/", "4"}], ",", 
            RowBox[{"1", "/", "2"}], ",", 
            RowBox[{"5", "/", "4"}], ",", 
            RowBox[{
             RowBox[{"-", "\[Gamma]"}], " ", 
             RowBox[{"\[Mu]", "^", "2"}]}]}], "]"}], "-", 
          RowBox[{"zs", " ", 
           RowBox[{"Hypergeometric2F1", "[", 
            RowBox[{
             RowBox[{"1", "/", "4"}], ",", 
             RowBox[{"1", "/", "2"}], ",", 
             RowBox[{"5", "/", "4"}], ",", 
             RowBox[{
              RowBox[{"-", "\[Gamma]"}], " ", 
              RowBox[{"\[Mu]", "^", "2"}], " ", 
              RowBox[{"zs", "^", "4"}]}]}], "]"}]}]}], ")"}]}], ")"}]}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{
      "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", ",", 
       "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"q", " ", "\[Mu]"}], 
              SqrtBox[
               RowBox[{"1", "+", 
                RowBox[{"\[Gamma]", " ", 
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "4"]}]}]]]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"18", " ", 
               SqrtBox["6"], " ", "\[Gamma]", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                  RowBox[{"z", "[", "t", "]"}]}], "+", 
                 RowBox[{"2", " ", "\[Gamma]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  RowBox[{"6", " ", "\[Gamma]"}], "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                  RowBox[{"2", " ", "\[Gamma]", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                  SqrtBox[
                   RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], "2"], 
               " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", " ", 
               SqrtBox["6"], " ", "\[Gamma]", " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"6", " ", "\[Gamma]"}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                 RowBox[{"2", " ", "\[Gamma]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                 SqrtBox[
                  RowBox[{"1", "+", 
                   RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{
               SqrtBox["6"], " ", 
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"]}]], 
             RowBox[{"(", 
              RowBox[{"\[Sqrt]", 
               RowBox[{"(", 
                RowBox[{"6", "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                 FractionBox[
                  RowBox[{"1", "-", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                 "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                  "/", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                ")"}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "3"}], " ", 
                SuperscriptBox["\[Beta]", "2"], " ", 
                RowBox[{"z", "[", "t", "]"}]}], "+", 
               FractionBox[
                RowBox[{"3", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                   RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "2"]}], 
                RowBox[{"2", " ", "\[Gamma]"}]], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Mu]", "2"], " ", 
                RowBox[{"Hypergeometric2F1", "[", 
                 RowBox[{
                  FractionBox["1", "4"], ",", 
                  FractionBox["1", "2"], ",", 
                  FractionBox["5", "4"], ",", 
                  RowBox[{
                   RowBox[{"-", "\[Gamma]"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                SuperscriptBox[
                 RowBox[{"z", "[", "t", "]"}], "3"]}], "-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "3"]}], 
                SqrtBox[
                 RowBox[{"1", "+", 
                  RowBox[{"\[Gamma]", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]], "+", 
               RowBox[{
                SuperscriptBox["\[Mu]", "2"], " ", 
                SuperscriptBox[
                 RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}]}], "+", 
                  FractionBox["1", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]]}], ")"}]}], "+", 
               
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"54", " ", "\[Gamma]", " ", 
                  RowBox[{"z", "[", "t", "]"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                "/", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "-", 
                   RowBox[{"6", " ", "\[Gamma]"}], "+", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "-", 
                   RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                   SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], 
                 "2"]}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               SqrtBox["6"], " ", 
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", " ", 
               SqrtBox["6"], " ", "\[Gamma]", " ", 
               RowBox[{
                SuperscriptBox["z", "\[Prime]\[Prime]",
                 MultilineFunction->None], "[", "t", "]"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"6", " ", "\[Gamma]"}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                 RowBox[{"2", " ", "\[Gamma]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                 SqrtBox[
                  RowBox[{"1", "+", 
                   RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", " ", 
               SqrtBox["6"], " ", "\[Gamma]", " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "3"}], " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", 
                  RowBox[{"z", "[", "t", "]"}]}], "+", 
                 FractionBox[
                  RowBox[{"3", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], 
                  RowBox[{"2", " ", "\[Gamma]"}]], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SqrtBox[
                   RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]], "+", 
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}]}], "+", 
                    FractionBox["1", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]]}], ")"}]}], "+", 
                 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"54", " ", "\[Gamma]", " ", 
                    RowBox[{"z", "[", "t", "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                  "/", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "-", 
                    RowBox[{"6", " ", "\[Gamma]"}], "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]"}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], "2"]}], 
                 "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"36", " ", "\[Gamma]", " ", 
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], ")"}], "/", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"6", " ", "\[Gamma]"}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                 RowBox[{"2", " ", "\[Gamma]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"Hypergeometric2F1", "[", 
                   RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                 SqrtBox[
                  RowBox[{"1", "+", 
                   RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"6", "-", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["\[Beta]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "\[Gamma]"], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  FractionBox[
                   RowBox[{"1", "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], "\[Gamma]"], 
                  "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"36", " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"6", " ", "\[Gamma]"}], "-", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["\[Beta]", "2"], " ", "\[Gamma]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    SuperscriptBox["\[Beta]", "2"]}], ")"}], " ", 
                    "\[Gamma]"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}]], "-", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], "+", 
                    RowBox[{"2", " ", "\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"Hypergeometric2F1", "[", 
                    RowBox[{
                    FractionBox["1", "4"], ",", 
                    FractionBox["1", "2"], ",", 
                    FractionBox["5", "4"], ",", 
                    RowBox[{
                    RowBox[{"-", "\[Gamma]"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}], "]"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "-", 
                    SqrtBox[
                    RowBox[{"1", "+", 
                    RowBox[{"\[Gamma]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}]}]]}], ")"}]}]}], 
                 ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"q", "\[Rule]", "q1"}], ",", 
            RowBox[{"\[Beta]", "\[Rule]", "\[Beta]1"}], ",", 
            RowBox[{"\[Gamma]", "\[Rule]", "\[Gamma]1"}], ",", 
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", " ", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "4"}], "}"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Mu]extreme", "[", 
      RowBox[{"\[Beta]_", ",", "\[Gamma]_"}], "]"}], ":=", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{"1", "/", "\[Gamma]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", "-", 
               RowBox[{"\[Beta]", "^", "2"}]}], ")"}], "\[Gamma]"}]}], ")"}], 
          "^", "2"}], "-", "1"}], ")"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"fz1", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", 
       ",", "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{
       "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",", "\[Mu]1"}], 
       "]"}], "[", "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dfz1", "[", 
      RowBox[{
      "t_", ",", "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", ",",
        "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"fz1", "[", 
         RowBox[{
         "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",", 
          "\[Mu]1"}], "]"}], ",", "t1"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"t1", "\[Rule]", "t"}], "}"}]}]}], ";", "\[IndentingNewLine]", 
    
    RowBox[{
     RowBox[{"pz", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", 
       ",", "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{"Block", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"zd", ",", "z2", ",", "fz"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"z2", "=", 
         RowBox[{"fz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",",
            "\[Mu]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"fz", "=", 
         RowBox[{"f", "[", 
          RowBox[{"z2", ",", "\[Beta]1", ",", "\[Gamma]1", ",", "\[Mu]1"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"zd", "=", 
         RowBox[{"dfz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",",
            "\[Mu]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "/", "z2"}], "/", "fz"}], " ", 
          RowBox[{"zd", "/", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"fz", "-", 
             RowBox[{
              RowBox[{"zd", "^", "2"}], "/", "fz"}]}], "]"}]}]}], "]"}], 
        ";"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Beta]pz", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zs1_", ",", "\[Beta]1_", ",", "\[Gamma]1_", 
       ",", "\[Mu]1_"}], "]"}], ":=", 
     RowBox[{"Block", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "zd", ",", "z2", ",", "fz", ",", "\[Beta]", ",", "n1", ",", "zw"}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"z2", "=", 
         RowBox[{"fz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",",
            "\[Mu]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"fz", "=", 
         RowBox[{"f", "[", 
          RowBox[{"z2", ",", "\[Beta]1", ",", "\[Gamma]1", ",", "\[Mu]1"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"zd", "=", 
         RowBox[{"dfz1", "[", 
          RowBox[{
          "t1", ",", "q1", ",", "zs1", ",", "\[Beta]1", ",", "\[Gamma]1", ",",
            "\[Mu]1"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"\[Beta]", "=", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"f", "[", 
               RowBox[{
               "zw", ",", "\[Beta]1", ",", "\[Gamma]1", ",", "\[Mu]1"}], 
               "]"}], ",", "zw"}], "]"}], "/.", 
            RowBox[{"{", 
             RowBox[{"zw", "\[Rule]", " ", "z2"}], "}"}]}], ")"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Beta]", "/", "z2"}], "/", "fz"}], " ", 
          RowBox[{"zd", "/", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"fz", "-", 
             RowBox[{
              RowBox[{"zd", "^", "2"}], "/", "fz"}]}], "]"}]}]}], "]"}], 
        ";"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"1.2", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], ",", 
             RowBox[{"Re", "[", 
              RowBox[{"\[Beta]pz", "[", 
               RowBox[{"i", ",", 
                RowBox[{"1.2", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"1.4", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], ",", 
             RowBox[{"Re", "[", 
              RowBox[{"\[Beta]pz", "[", 
               RowBox[{"i", ",", 
                RowBox[{"1.4", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"1.6", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], ",", 
             RowBox[{"Re", "[", 
              RowBox[{"\[Beta]pz", "[", 
               RowBox[{"i", ",", 
                RowBox[{"1.6", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"1.8", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], ",", 
             RowBox[{"Re", "[", 
              RowBox[{"\[Beta]pz", "[", 
               RowBox[{"i", ",", 
                RowBox[{"1.8", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"2.0", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}], ",", 
             RowBox[{"Re", "[", 
              RowBox[{"\[Beta]pz", "[", 
               RowBox[{"i", ",", 
                RowBox[{"2.0", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "0", ",", "1", ",", 
                   RowBox[{"2", "/", 
                    RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "0", ",", "1", ",", 
                RowBox[{"2", "/", 
                 RowBox[{"Sqrt", "[", "3", "]"}]}]}], "]"}], "]"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "3", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0.8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "100"}], ",", "100"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"z", ",", 
          RowBox[{"Log", "[", "\[Beta]pz", "]"}]}], "}"}]}]}], 
      "\[IndentingNewLine]", "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.758538000029398*^9, 3.758538045766563*^9}, {
   3.758538140854106*^9, 3.758538148338945*^9}, {3.758538282467866*^9, 
   3.758538320298864*^9}, {3.75853837267715*^9, 3.758538470030238*^9}, {
   3.758538544447816*^9, 3.758538559070099*^9}, {3.758538615062416*^9, 
   3.758538671483891*^9}, {3.758538705169448*^9, 3.7585388060509872`*^9}, {
   3.7585388776917543`*^9, 3.75853887816372*^9}, 3.7585390792490873`*^9, {
   3.758539546226787*^9, 3.758539547432866*^9}, {3.758539636191441*^9, 
   3.7585397044434347`*^9}, {3.758539791559417*^9, 3.758539915816618*^9}, {
   3.75854038767594*^9, 3.758540432352581*^9}, {3.7585405771371927`*^9, 
   3.758540707684121*^9}, {3.75854073873212*^9, 3.758541006335308*^9}, {
   3.7585453635161953`*^9, 3.758545461260376*^9}, {3.758545529501421*^9, 
   3.758545568684445*^9}, {3.758545634132215*^9, 3.758545871455368*^9}, 
   3.758545966931903*^9, {3.758546005115241*^9, 3.7585460077110157`*^9}, {
   3.758546042262128*^9, 3.7585460527426157`*^9}, {3.758546132809017*^9, 
   3.7585461343929653`*^9}, {3.758546252037428*^9, 3.758546259128384*^9}, {
   3.758546338512642*^9, 3.758546350708971*^9}, {3.758546403680023*^9, 
   3.75854640619344*^9}, {3.758546455598486*^9, 3.758546464989917*^9}, {
   3.7585465491062727`*^9, 3.758546582560766*^9}, {3.7585466260575323`*^9, 
   3.758546693199839*^9}, {3.7585467739651833`*^9, 3.758546889346767*^9}, {
   3.7585471259813757`*^9, 3.75854719567307*^9}, {3.758547227022077*^9, 
   3.7585472663922853`*^9}, {3.758547353485178*^9, 3.75854749146279*^9}, {
   3.7585476020511293`*^9, 3.758547603543219*^9}, {3.758547735350923*^9, 
   3.758547737596816*^9}, 3.7585478089710083`*^9, {3.7585485160885477`*^9, 
   3.758548516713715*^9}, {3.7585486370622787`*^9, 3.758548672265959*^9}, {
   3.75854880612626*^9, 3.758548824200348*^9}, {3.758596760971849*^9, 
   3.758596814521757*^9}, {3.758596944974786*^9, 3.75859710080864*^9}, {
   3.758597160698374*^9, 3.758597213057705*^9}, {3.7585972553956957`*^9, 
   3.758597259174314*^9}, {3.758597333169475*^9, 3.758597362725316*^9}, {
   3.758597401269397*^9, 3.7585974115376787`*^9}, {3.758597442360677*^9, 
   3.758597487908835*^9}, {3.758597527576044*^9, 3.758597535223362*^9}, {
   3.75859778107716*^9, 3.758597864024992*^9}, {3.758597940532975*^9, 
   3.758597940710773*^9}, {3.75859801938067*^9, 3.758598041541828*^9}, {
   3.7585980837516947`*^9, 3.758598135933546*^9}, {3.758598169065208*^9, 
   3.7585981809138803`*^9}, {3.758598216764838*^9, 3.7585982453345547`*^9}, {
   3.758598341993463*^9, 3.7585983440778017`*^9}, {3.7585988306246433`*^9, 
   3.758598830830577*^9}, {3.758599128685021*^9, 3.758599138411364*^9}, {
   3.758599819382842*^9, 3.758599820499593*^9}, {3.758599867873096*^9, 
   3.758599901141396*^9}, {3.758600066009074*^9, 3.758600071231616*^9}, {
   3.758616377920555*^9, 3.758616440669208*^9}, {3.7586164759202433`*^9, 
   3.7586164989925137`*^9}, {3.7586165358425198`*^9, 3.758616543819427*^9}, {
   3.758616656502936*^9, 3.758616689136405*^9}, {3.758616748958891*^9, 
   3.75861675653091*^9}, {3.758616814291253*^9, 3.75861683738706*^9}, {
   3.758616871724538*^9, 3.758616873633115*^9}, {3.758617008655117*^9, 
   3.7586170211416492`*^9}, {3.758617090872438*^9, 3.758617133212291*^9}, {
   3.758617174391375*^9, 3.7586171749787083`*^9}, {3.758617283822666*^9, 
   3.758617301130199*^9}, {3.7586173425848722`*^9, 3.758617486445385*^9}, 
   3.758617549086116*^9, {3.758617603942511*^9, 3.758617614499693*^9}, {
   3.75861766380795*^9, 3.7586176648656683`*^9}, {3.75861770728601*^9, 
   3.758617707984373*^9}, {3.758617825281706*^9, 3.758617849843707*^9}, {
   3.758617888626677*^9, 3.7586178896227903`*^9}, 3.758617937793913*^9, {
   3.758618000690536*^9, 3.758618039307282*^9}, {3.7586180783188763`*^9, 
   3.758618085714858*^9}, {3.758618184309708*^9, 3.75861818562947*^9}, {
   3.758679905660881*^9, 3.758679908946331*^9}, 3.75980825157318*^9, {
   3.759821638233654*^9, 3.759821677136899*^9}, {3.759821746382406*^9, 
   3.7598217571623163`*^9}, {3.759821972534501*^9, 3.759822011295196*^9}, {
   3.759822060771031*^9, 3.759822097894677*^9}, {3.759822892367897*^9, 
   3.759822938680234*^9}, {3.75982298889275*^9, 3.759823030461417*^9}, {
   3.759823115926036*^9, 3.759823269194672*^9}, {3.759823431418742*^9, 
   3.75982345779944*^9}, {3.759823498009285*^9, 3.759823548583639*^9}, {
   3.759823636527495*^9, 3.75982369236626*^9}, {3.759823731670232*^9, 
   3.759823804587942*^9}, {3.759824004621005*^9, 3.759824006181662*^9}, {
   3.7598241728799677`*^9, 3.7598241749269667`*^9}, {3.759824346859222*^9, 
   3.759824347938819*^9}, {3.759824533135112*^9, 3.759824537633219*^9}, {
   3.7598249873291483`*^9, 3.759825006496797*^9}, {3.759825132396927*^9, 
   3.759825343179367*^9}, {3.759825856624722*^9, 3.759825975169014*^9}, {
   3.759826764286235*^9, 3.75982682564659*^9}, {3.7598364682113457`*^9, 
   3.759836495882495*^9}, {3.759836533714952*^9, 3.759836546032048*^9}, {
   3.759837340300784*^9, 3.759837353400568*^9}, {3.759843878035446*^9, 
   3.759843992479772*^9}, 3.759844027182931*^9, {3.759844253863854*^9, 
   3.7598442628309298`*^9}, {3.7598443735656977`*^9, 3.759844401665676*^9}, {
   3.7598445717731237`*^9, 3.7598445769234953`*^9}, 3.759844629547164*^9, {
   3.7598447173714333`*^9, 3.759844786969858*^9}, {3.759845035610373*^9, 
   3.7598450775271807`*^9}, {3.75984539184356*^9, 3.759845399283866*^9}, {
   3.7598454997224703`*^9, 3.759845591173621*^9}, {3.759845690033955*^9, 
   3.759845717216815*^9}, {3.759845786198544*^9, 3.759845786586112*^9}, {
   3.759846225338708*^9, 3.759846262891819*^9}, {3.7598463578991213`*^9, 
   3.759846473714466*^9}, {3.759884776203396*^9, 3.759884811259758*^9}, {
   3.759884977752447*^9, 3.759885053749447*^9}, {3.759885111614628*^9, 
   3.759885246864278*^9}, {3.759885682688591*^9, 3.759885722463661*^9}, {
   3.759885782705978*^9, 3.759885804756921*^9}, {3.7598861799266157`*^9, 
   3.759886240264069*^9}, 3.759886290053087*^9, {3.7598864598850813`*^9, 
   3.759886568665514*^9}, 3.759892268870021*^9, 3.759892320326295*^9, {
   3.759892386616026*^9, 3.759892429065673*^9}, {3.759892821860734*^9, 
   3.759892910669476*^9}, {3.7598930012395144`*^9, 3.75989303946455*^9}, {
   3.759893075384836*^9, 3.759893239718343*^9}, {3.759893567143162*^9, 
   3.759893601235416*^9}, {3.7598936388524733`*^9, 3.7598937702552834`*^9}, {
   3.7598938282091627`*^9, 3.7598938401181097`*^9}, {3.7598938732080383`*^9, 
   3.759893957862599*^9}, {3.759894001517295*^9, 3.7598940816223783`*^9}, {
   3.759894168384268*^9, 3.759894184612075*^9}, {3.759894316582765*^9, 
   3.759894329396204*^9}, {3.759899398003936*^9, 3.759899404135974*^9}, {
   3.75989949800956*^9, 3.759899503626495*^9}, {3.7599018316209507`*^9, 
   3.759901842695794*^9}, {3.759901954077668*^9, 3.759901954325601*^9}, {
   3.759914829910955*^9, 3.759914855632615*^9}, {3.759915167987526*^9, 
   3.759915182070291*^9}, {3.7599155890139103`*^9, 3.759915602421894*^9}, {
   3.759915663742887*^9, 3.759915712015811*^9}, {3.759915747755122*^9, 
   3.759915799549712*^9}, {3.759916049569772*^9, 3.7599160592778673`*^9}, {
   3.7599162162085857`*^9, 3.7599162648990192`*^9}, {3.7599171356512537`*^9, 
   3.7599171656787558`*^9}, {3.7599172245633307`*^9, 3.759917371249357*^9}, {
   3.759917606390757*^9, 3.7599176943289337`*^9}, {3.759925492403933*^9, 
   3.759925504618651*^9}, {3.759934261847958*^9, 3.759934296062623*^9}, {
   3.7599362290460987`*^9, 3.7599363023459597`*^9}, {3.759936510429447*^9, 
   3.759936522013946*^9}, {3.75993678181703*^9, 3.75993678862087*^9}, {
   3.759937684850672*^9, 3.7599376922147408`*^9}, {3.759938028744144*^9, 
   3.759938032572872*^9}, {3.7599980823004227`*^9, 3.759998096330743*^9}, {
   3.7674007389576883`*^9, 3.7674007661345053`*^9}, {3.767400817501232*^9, 
   3.767400920925089*^9}, {3.767401097444003*^9, 3.767401102500009*^9}, {
   3.7674011661033688`*^9, 3.76740118604357*^9}, {3.767401268402897*^9, 
   3.7674012732792463`*^9}, {3.767401364946526*^9, 3.767401365961171*^9}, {
   3.767401562155984*^9, 3.767401581502571*^9}, {3.7674016906294518`*^9, 
   3.767401693065343*^9}, 3.767402019457333*^9, {3.767402195729671*^9, 
   3.767402205863611*^9}, {3.767402311754459*^9, 3.767402373765348*^9}, {
   3.767402561478154*^9, 3.7674025758191977`*^9}, {3.7674030425754423`*^9, 
   3.7674030584152727`*^9}, {3.767403145829031*^9, 3.7674031480495453`*^9}, {
   3.767403319889636*^9, 3.767403386871945*^9}, {3.767403807995716*^9, 
   3.7674038171501293`*^9}, {3.767404105929091*^9, 
   3.767404119155505*^9}},ExpressionUUID->"0255f5d9-fa30-44e1-ace5-\
b570c3293795"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwBgQJ+/SFib1JlAgAAACcAAAACAAAAMuDnZXK1uT/ML90HahE2wDqiI3jI
RL0/SCOgHZguVsBmDrJsHEPCP1wUGjsTZlTAXzCmEV/ixj8xsnD9ThBNwP4c
jf3JAMw/bsnwL7zhQ8BN9JfpiK7QPwFCIYjLljvAVO+GeX1p0z/LnFPK5qUz
wFeFm+W5JdY/x+oRt+65LMAa6EC62NrYP6rn5rW0fCXA8YTY2hKC2z+VNnle
uWEgwIvEZt2MFd4/zD27DQ1cGcDdtrKF/0fgP83CqGxu2RPAAOTSBUB24T/O
OQlejkoPwPl4dkcpk+I/mN47QXC4CMB3oDPQTpzjP2YLocGJdQPAo06BYPqO
5D+iqydAl0f+v/EyzQXGZ+U/Qj/M+Of/9r+blR4w+CHmPy9DO0gqsfC/8PHZ
0qi25j9Cck+gXSDmv8OsrtFBHOc/MkVvNjmC17/DOujeKkjnP5GTi88Gq62/
r94Rxi005z+yqxlPJeLPP9hkPt5E4+Y/vhlaofcd4j+KNWBRKF/mPzooFDn2
/Ow/WB+9bzWy5T9Mywu3ioP0P7Gp+iVZ5OQ/OuL2/NBi+z/iUfLnBfvjP8dg
hvF/ugFAsNDtNQv64j8Rw+a9sJgGQNjo9elS5OE/epHtBpKeDECv6Z+OXLzg
PzfD1YPAIBJAe9WSrA0J3z8DTChCThYXQGiHfqB1ftw/aGv+DwmwHUDGgrBm
D97ZP1umQQGIWSNAskbB2nYt1z9i3wuPsKspQArl12gLc9Q/Q2q/QANmMUDt
ukwEd7bRP0O44CfyLjhAMLB2sZwDzj9zeeing0NBQAVjGMApyMg/uEmEgxct
SUBNEylfwUPIP6p5m+5OXUpASDI68g==
       "]], LineBox[CompressedData["
1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAOZ9YcqZ5uj+qeZvuTl1KQNNXqTpI
FLo/2+qYn109RsBstldPGqC+P86114hS1FbAuYejUdM4wz8dTvnTyxxTwPnB
/dBT/Mc/ICnsTmm7SsDmgwkMqyzNP0f0XokPTULAPJuDLI9I0T+Mgj5Nc4g5
wEboyIulBNQ/VB12NuFKMsA9TGyI9b/WP8to42ee4yrAdqSItYxy2T9smbtf
cjQkwK1tvRfjFdw/+nHz/QvsHsCUB5+xQ6TeP3Q2XPB0ABjAUrva4T+M4D8i
MXTondISwKzliDTetuE/bI3ROGOzDcBRDzjOns/iPxdpjN5adQfAuO29NAvU
4z//uC7mzW4CwJfyH/NQweQ/VWQ4xzCR/L8dWwh+z5PlPx1WBB4ciPW/iAs8
WmVG5j/UwW15Tcvuv1L61QSU0eY/JfbmFS3F47+SM6ZQ
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.016666666666666666`], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAylYNqKS0uT+3D9/vkG81wJIo7KtO
K70/K6J/zv2xVcDcal/GnSDCP0KL5OitDVTAOSiqGo+nxj/eVDN/64BMwLEp
7CqjrMs/wPU3DtNTQ8CuAOaHEXfQPw6qlEUCcjrAZX5ea2kj0z+wQX5aT3oy
wGxFcIsfz9U/TGKf5aJbKsB8STOk1nDYPzq5LL/vGiPATrMcWVYA2z+Cmz+0
pPobwF7YNdt9dd0///wbV7qLFMBhE4mmRcffP4XMs2N8+Q3AJRQ4uCf14D9Z
0soVDmsFwAsc0EMw5+E/1ENpYI5D/b/zRpzCEa3iP444u2s3IfK/51T6QVwz
4z85dTKkKi3hvwqQkpnlYuM/hog4+FLxgT9mStgMOzDjP8MwN/PCw+E/TeMS
En6n4j/6IdhtsXbyPwLTkG3n3+E/D0TMk8Gp/T/TrJflrOzgP/QsH652qgVA
9uOnMZG03z/LvjrvqUoOQHitD5p4Yd0/Nl1mTznBFEDhiiCgUuvaP/TjlFgy
QxxAuDx7cRpb2D8MmNI1lk0jQGr3feHtuNU/k6uBK4CkKkBGNSAsCg3TP+ei
KM1RsDJAgSN2Ctxg0D9kjQ1VMcQ6QI1t6A+Bgcs/Xw+QeOGSQ0CDEcdkSH/G
P4555G4Q3ExAhw/ExiH+wT/pe18DyDpUQPyVv7QV/bw/EY66wtOEVUABQwq5
jay5P3n+YyADAjJAsRRae/Vfuz+MviRxWFlSwGnr342wrMA/zXFObOnCVcDs
/VuRMurEP87LkYoHV1DAslXtkeHKyT+Jip3oRE1GwDNgTBeM+84/WezvcrZV
PsAss/v/gifSP8KMq19/BjXAk4YTdKXU1D+C6TpyKsctwPff3/8Fe9c/NIS9
mFx4JcC4kKzhJBLaP8pGpAF5WR/A8wbdRfSR3D9SobxAywQXwAKFqyjj8d4/
F8ngxrvaEMBGFyyy05PgP5NZAgAOUgjAEh+eGJqS4T9hX3qkPvUAwFqpM/6S
auI/hOsr31z+9b8pvBTS6grjP2ji1Lkf6ue/GtTrurpc4z+dP8jDTi/Iv6dG
ITvyTeM/UTeGelx21j9dmWQ/ROLiP2nZ3pTjl+0/k2ksLSgv4j/o4W9kek/5
P1rWUdYwSuE/Id9pHfz6AkBu7a2lIkLgP116/SXm3gpAf5PegbJA3j9hh64H
0oISQFnaA9ZM1ts/0J1Lj9E7GUD/qnJpsU7ZP0UQgcXeMiFAt2qeIi+y1j/0
FoalSaEnQPYzdNrbCNQ/oti962h3MECQ9MBYjlvRP0s/McinZTdATS7h6w==

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0.5, 0, 0.5], PointSize[0.016666666666666666`], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAARxAL4NazuT+f63KioM00wNI264en
Eb0/rXsxt8wzVcDpw+9cev3BP9OuiHCGtFPA7zn8qtRqxj+UXcQEVfNLwAJj
GdxZVMs/uQYD3QrJQsCboMSCvDvQP2rEplHtUznAgmXtPJjW0j9/C8nvP1Ux
wO+SYrQnbdU/IJFqdBYKKMDQCS2H2/PXP29+HdYExiDAdBfPW7te2j8DUJre
rUwXwKcNUTzentw/xXbhBLuvD8ADArHmc57eP0UKZQHoeQTAffQLexEd4D+I
1GsOw3H3v43EKCRsneA/Lh9S4sf14b84bhlwZLLgPxYOJP/l1NA/OxhTDKNV
4D8yqVnSVgHyP7JC7p3DP98/LekTJqccAUCRJhON7V7dP9cDJQdkUgtAW7kb
at0y2z9Lpgty6V0UQIwZhelT1dg/rEDID4B6HUBv3ytoH1fWPyMsznPGICVA
jDYfEfDE0z+aJYwSvF4uQHu7VNc4KtE/SE+AsWYSNkADVz+BBSfNP1nkJy/C
SUBAxTq2aSMjyD/QyBZqY0hIQE6KRRndfsM/gwXKB+iqUUCFeJCPLDu/P5j3
Oeks8FVA9xNL5UVjuj+FcpDzvrpKQHox5mPGGLo/7aU7yIDqRcCE7/JuUXy+
P9qtg5px61XAtuHSB/L+wj/kTrEdMVlSwJvG+MPnksc/XqtlkQptScC3D+Rl
Co/MP9Jx5PyODkHAciwPM87c0D9P4J7O5BI3wJp1xu6+d9M/nuLOmx+yL8DI
EEIUggvWP8bREy+iBybAmHkSlKOM2D+dAnp2XL4ewPqmaTO47to/CYIkg0RI
FcDh94FzniHdP0RyxTWXsAzAvNViC/cM3z/o2AMO5ysCwErKhjd4ROA/7GHH
uCq787+/LOIWMq3gPzmhWGJI+Na/Ce3UTNCl4D/PyCnljqzdPwTJuoeRMOA/
m26wGUak9T+tUcptPtTeP8ANNMpxWgNAkpFdPhre3D/CWBvlEzkOQKr8NY8n
pNo/F26Y0fdPFkAUO4G2Yz3YP+O60UgUFiBA9teB90W51T9Gv3jzXQ0nQLcK
Ghj5I9M/HVVtpiWaMEBbKpIc+4jQP7NKKmGRNzhArsc92gDryz98DDy4FO9B
QI7w4ykd+MY/T9BdKTa3SkBgL6UzanfCP6o0w6KkEVNAjv6tjn+5vT+17Cpq
LqxVQG0kyYX12rk/uzjZpmgjQECzLtIDT8a6P1dRGhTsS0/AsDmeMZgKwD9F
osoUbMRVwF4YY/ZbDMQ/qBOUwHfsUMCryD4J3MDIP8MhpaN7GEfARyLQug==

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.016666666666666666`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAXhBhDAmzuT8Fb2wtmSs0wIpt6XnU
97w/4kv7NfWzVMBXpULVtNnBP9SL9tJ3WlPAP017Ii4sxj+LZC2oaGdLwEUQ
XWDP98o/yzUNM2xBQsDMVCXglfjPPwu/msbNPDjAYgwTDEyC0j91r38ADzcw
wG2mt8Xc/dQ/id6/PvbFJcDL+dzHDl/XP3YSv9Cl/BzA5utHI6yR2T90z0Nr
37cSwJZOIHbKdts/yQ2a9v9sBsD0ETiSi9vcPxsC4JIC1PW/56cjNdV43T/b
hUeVZIXEvw7rx2V3Ht0/sWGqb8058D+8qyf6wOnbP1Qk9UZv8QJAfR07jS0i
2j8WsXrv9mYQQOMF64NaAdg/ulTXKuPGGUA2UJpMx6rVP77HMvnseCNAoTm5
k9s00z+LAS/uGQctQB2ulQE6sNA/M18yv9+nNUAvNU1/+ljMP/C2Y3puR0BA
5HvwEkN5xz8Pv4Vjd4dIQIMxOqa5+8I/Z8+9lWnRUUAd161/q5G+P4KFUvEN
elVAKNzr+8kpuj+tXhJ4RctGQL6J+u/VRLo/A+hGftyMSMCvCvdVM9e+P9nh
/1ZtfVXAZQAPeHMqwz++d2QgRpFRwPfaZQD4rcc/wLcpekMaSMAw0VMraZDM
P27xhcFC+z/ApsLVWFXM0D9Jss7NkEc1wEOvdZCkUNM/t0hRpLqHLMDW9Mf3
kcXVP10imLNeIiPAFs3W0FYa2D/VKbyjfk0ZwEVUNEQnONo/M071O9oOEMAk
9NR3uvrbPyEdaBLaawLAZ26yy2cn3T+3Kr4+Cb/uv0ddhscKd90/PRRMC8zw
yj/FYzcPp8/cPzjRZr49uvY/CBvrD+1j2z8AVruHKf4GQMLUnamPetk/neND
kyUZE0CMdX06Y0XXP58gpXE7hB1Ae3n3+azi1D8LDOLxpCcmQIuwCtVWZtI/
QsUSSZ1/MECyx9ZKdcDPP8qEqs5CqzhAiDNJPwHByj/rzG9v0pVCQGQ4vBzz
+MU/TlvI3qnfS0BgL/UXAK7BP3N0xW9Qk1NAXkXjPMm9vD+B3q/9iXVUQPPG
9vUxqbk/0u0ITSm6L0DiHFwnh1C7P/V7pjkRilHAGEHEnYCBwD/CC1jYy+lU
wOH2BJbpjsQ/lAphorhkT8B5wvFcQDnJP2wqj3fII0XAgc2VN8gszj+4B0yV
KQc8wJZxQmpenNE/js/jwdGyMsBqzN5eZx3UP0J7CeALGinAlhOk2v2J1j+T
+0eBrsogwBqZGQkI0Ng/8/4tmnP/FcC+yd7MX9XaP2bCIospSQvAKFjhZw==

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAA7lRHLjuyuT+f+SOAeokzwKznGu/W
3bw/Ezpqi2YyVMBnqj5MULXBP9BsZqBY/1LA/cYEopzrxT/+E957+txKwC4I
VT/tlso/Bl2+J/W8QcBRcYEBC3HPP0u6JQbGLDfA4Ngowswl0j8vN67Zsz8u
wG/5jfIxf9Q//gNUxfaOI8Bc9HFYEK3WP4+7mVaWgxjA6VCQbymM2D/WT6TF
zFkMwOdE6BEw49k/KB7b3ZvT+b+onKMwZ2XaPyjWyWW2H42/e9JyA8Dn2T8d
wjiLiFL5P5+kIMHvk9g/hkkbh/UGDEA71NQPv7bWPzfU5mhzShhAlVkAsPWJ
1D+TmjDG4GUjQGJkKqshMdI/EDCXx64CLkBUv4juEojPPzmzOjhb/jZA2+DB
IpKtyj/xbzPZjplBQAdl3/3dAMY/0xik366qSkAtuiPJg8fBPwzbmphq51JA
Pi2wO0L2vD8q9uQxXkpUQLP+Crn4trk/WuUjhRVKNUDYcUv1aQi7P25KYn2z
PFDAd1tCT5gvwD9tdoERYK1UwPk++YKwFMQ/h8CF6jyGT8AcOHE305nIP0Qh
zGMUKkXAcQqF6d1mzT8RkPzXpbI7wIaFBz8WI9E/jRmrdoUWMsBRxye2UofT
P4qq1SdMhifAy/Lu5s3K1T+4DPGOvPwdwFL69shU0Nc/lo8/dOgZEsDt2J5l
AGnZP28Rusoy6ALAnNBOHVlN2j+CbmaXK0Dlv0FbaiKIOto/Lb6RdryW7D+O
BLfPHDfZP8FFUA3eHgVAkYat1tCK1z83UD8TUJUTQKjAqJb3edU/WOBOPhAK
IEAEj1enNzDTP92Q6sXWDSlAirtFzhjJ0D9wdAUnNT0zQH7+nPDcssw/cl0o
iId1PUCb2/WVY+zHP2ylQ3U2e0ZApdWfIcJ3wz8K/qSa45dQQD30VStVab8/
m15sf1f1VEA1xRysVI+6PyNhzb9N/0tA/bf66XTquT9PjcZgEENBwG8HkDXE
v70/oQ0GTYrRVMCcJAr291jCP+GDWDpBI1LAIYV9Oeyoxj9HdCFMnShJwMhP
pR3AX8s/tCKEH+SMQMBKMqZyYh7QP4SfzomHnjXAj3Q8Qc6J0j/kq3ecejMs
wNTg/03o3dQ/ZPGrHj4tIsAuIy02yQHXP92rcYNplhbAEBM0X1DP2D/sISbn
FIwJwK6KmBr0CNo/1tP1t8xs9b9WRF/lR2LaPxN6OH3Sac4/2ou9CuS82T/t
GumVFNn9P7SPDOqcTdg/ZiFXh9vzDkChSmucM2DWP2TPYUTcUBpAL+3bxA==

       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["z", TraditionalForm], 
    FormBox[
     RowBox[{"log", "(", "\[Beta]pz", ")"}], 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, 0.8}, {-100, 100}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.767403742330324*^9, 3.767404049253006*^9, 
  3.767404356814872*^9},ExpressionUUID->"e5760c5d-2e70-4d98-b44f-\
ab70fa28998e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Hyperscale", " ", "violating", " ", "Einstein"}], "-", 
     "dilaton", "-", 
     RowBox[{"Maxwell", " ", "black", " ", "hole", " ", "case"}], " ", "-", 
     " ", 
     RowBox[{"only", " ", "the", " ", "q"}]}], "<", 
    RowBox[{"qcrit", " ", "case"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"We", " ", "did", " ", "not", " ", "plot", " ", "the", " ", "q"}],
     "\[GreaterEqual]", 
    RowBox[{
    "qcrit", " ", "as", " ", "we", " ", "did", " ", "not", " ", "want", " ", 
     "to", " ", "repeat", " ", "the", " ", "routine", " ", 
     RowBox[{"analysis", "."}]}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.767404167355968*^9, 
  3.767404291691334*^9}},ExpressionUUID->"f3a5f2a2-1cac-4516-a3bc-\
72f22e8e21b2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "\[Mu]extreme", ",", " ", "qcrit", ",", "uz1", ",", "fu1", ",", "dfu1", 
     ",", "\[Beta]pu"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Mu]extreme", "[", 
      RowBox[{"uh_", ",", "z_", ",", "\[Theta]_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{"2", 
          RowBox[{"(", 
           RowBox[{"2", "-", "\[Theta]"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"2", "+", "z", "-", "\[Theta]"}], ")"}]}], "]"}], "/", 
        "uh"}], "/", 
       RowBox[{"(", 
        RowBox[{"z", "-", "\[Theta]"}], ")"}]}], 
      RowBox[{"Exp", "[", 
       RowBox[{"-", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"z", "-", "1", "+", 
             RowBox[{"\[Theta]", "/", "2"}]}], ")"}], "/", "2"}], "/", 
          RowBox[{"(", 
           RowBox[{"2", "-", "\[Theta]"}], ")"}]}], "]"}]}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{"us_", ",", "uh_", ",", "\[Mu]_", ",", "z_", ",", "\[Theta]_"}],
       "]"}], ":=", 
     RowBox[{
      RowBox[{"us", "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Theta]", "/", "2"}], "-", "z"}], ")"}]}], 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"us", "/", "uh"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"2", "+", "z", "-", "\[Theta]"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"\[Mu]", "^", "2"}], 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"z", "-", "\[Theta]"}], ")"}], "/", "2"}], "/", 
           RowBox[{"(", 
            RowBox[{"2", "-", "\[Theta]"}], ")"}]}], " ", 
          RowBox[{
           RowBox[{"us", "^", 
            RowBox[{"(", 
             RowBox[{"2", 
              RowBox[{"(", 
               RowBox[{"z", "-", "\[Theta]", "+", "1"}], ")"}]}], ")"}]}], 
           "/", 
           RowBox[{"uh", "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", "z"}], "-", 
              RowBox[{"2", "\[Theta]"}]}], ")"}]}]}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"us", "/", "uh"}], ")"}], "^", 
             RowBox[{"(", 
              RowBox[{"\[Theta]", "-", "z"}], ")"}]}]}], ")"}]}]}], "]"}], 
       "/", 
       RowBox[{"(", 
        RowBox[{"\[Mu]", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"us", "/", "uh"}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"z", "-", "\[Theta]"}], ")"}]}]}], ")"}]}], ")"}]}]}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"uz1", "[", 
      RowBox[{
      "q_", ",", "us_", ",", "uh_", ",", "\[Mu]_", ",", "z_", ",", 
       "\[Theta]_"}], "]"}], ":=", 
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      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[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"u", "[", "t", "]"}], 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                FractionBox["\[Theta]", "2"]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "2"}], "-", "z", "+", "\[Theta]"}], ")"}], 
                  " ", 
                  SuperscriptBox[
                   RowBox[{"u", "[", "t", "]"}], 
                   RowBox[{"3", "-", 
                    RowBox[{"2", " ", "z"}]}]], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                   RowBox[{"z", "-", "\[Theta]"}]]}], 
                 SuperscriptBox["uh", "2"]], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["uh", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], "2"], " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"u", "[", "t", "]"}], 
                   RowBox[{"3", "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                   RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], 
                 RowBox[{"2", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}]}]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["uh", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                  RowBox[{"(", 
                   RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", "z", "-", "\[Theta]"}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"u", "[", "t", "]"}], 
                   RowBox[{"3", "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                 RowBox[{"2", "-", "\[Theta]"}]], "+", 
                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[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"2", "+", "z", "-", "\[Theta]"}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{"1", "+", "z", "-", "\[Theta]"}]]}], "uh"]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "2"}], "+", "\[Theta]"}], ")"}]}]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["uh", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "z"}], "+", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]"}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", "z", "-", "\[Theta]"}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"u", "[", "t", "]"}], 
                    RowBox[{"1", "+", 
                    RowBox[{"2", " ", "z"}], "-", 
                    RowBox[{"2", " ", "\[Theta]"}]}]], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"u", "[", "t", "]"}], "uh"], ")"}], 
                    RowBox[{
                    RowBox[{"-", "z"}], "+", "\[Theta]"}]]}], ")"}]}], 
                    RowBox[{"2", "-", "\[Theta]"}]]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["u", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                 "/", 
                 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[{
            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[{
               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]"}], ")"}]}]], 
                 SuperscriptBox[
                  RowBox[{"u", "[", "t", "]"}], 
                  RowBox[{"3", "-", 
                   RowBox[{"2", " ", "z"}]}]], " ", 
                 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]"}]]}], ")"}]}]}], 
                  ")"}], " ", 
                 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.1", ",", "5.7"}], "}"}]}], "\[IndentingNewLine]",
       "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"fu1", "[", 
      RowBox[{
      "t_", ",", "q_", ",", "us_", ",", "uh_", ",", "\[Mu]_", ",", "z_", ",", 
       "\[Theta]_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"uz1", "[", 
       RowBox[{
       "q", ",", "us", ",", "uh", ",", "\[Mu]", ",", "z", ",", "\[Theta]"}], 
       "]"}], "[", "t", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dfu1", "[", 
      RowBox[{
      "t_", ",", "q_", ",", "us_", ",", "uh_", ",", "\[Mu]_", ",", "z_", ",", 
       "\[Theta]_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"uz1", "[", 
          RowBox[{
          "q", ",", "us", ",", "uh", ",", "\[Mu]", ",", "z", ",", 
           "\[Theta]"}], "]"}], "[", "t1", "]"}], ",", "t1"}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{"t1", "\[Rule]", "t"}], "}"}]}]}], ";", "\[IndentingNewLine]", 
    
    RowBox[{
     RowBox[{"\[Beta]pu", "[", 
      RowBox[{
      "t_", ",", "q_", ",", "us_", ",", "uh_", ",", "\[Mu]_", ",", "z_", ",", 
       "\[Theta]_"}], "]"}], ":=", 
     RowBox[{"Block", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"du", ",", "u", ",", "fu", ",", "\[Beta]"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"du", "=", 
         RowBox[{"dfu1", "[", 
          RowBox[{
          "t", ",", "q", ",", "us", ",", "uh", ",", "\[Mu]", ",", "z", ",", 
           "\[Theta]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"u", "=", 
         RowBox[{"fu1", "[", 
          RowBox[{
          "t", ",", "q", ",", "us", ",", "uh", ",", "\[Mu]", ",", "z", ",", 
           "\[Theta]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"fu", "=", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"us", "/", "uh"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"2", "+", "z", "-", "\[Theta]"}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"\[Mu]", "^", "2"}], 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"z", "-", "\[Theta]"}], ")"}], "/", "2"}], "/", 
            RowBox[{"(", 
             RowBox[{"2", "-", "\[Theta]"}], ")"}]}], " ", 
           RowBox[{
            RowBox[{"us", "^", 
             RowBox[{"(", 
              RowBox[{"2", 
               RowBox[{"(", 
                RowBox[{"z", "-", "\[Theta]", "+", "1"}], ")"}]}], ")"}]}], 
            "/", 
            RowBox[{"uh", "^", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", "z"}], "-", 
               RowBox[{"2", "\[Theta]"}]}], ")"}]}]}], 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"us", "/", "uh"}], ")"}], "^", 
              RowBox[{"(", 
               RowBox[{"\[Theta]", "-", "z"}], ")"}]}]}], ")"}]}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"\[Beta]", "=", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"1", "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"u1", "/", "uh"}], ")"}], "^", 
                RowBox[{"(", 
                 RowBox[{"2", "+", "z", "-", "\[Theta]"}], ")"}]}], "+", 
               RowBox[{
                RowBox[{"\[Mu]", "^", "2"}], 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"z", "-", "\[Theta]"}], ")"}], "/", "2"}], "/", 
                 RowBox[{"(", 
                  RowBox[{"2", "-", "\[Theta]"}], ")"}]}], " ", 
                RowBox[{
                 RowBox[{"u1", "^", 
                  RowBox[{"(", 
                   RowBox[{"2", 
                    RowBox[{"(", 
                    RowBox[{"z", "-", "\[Theta]", "+", "1"}], ")"}]}], 
                   ")"}]}], "/", 
                 RowBox[{"uh", "^", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", "z"}], "-", 
                    RowBox[{"2", "\[Theta]"}]}], ")"}]}]}], 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"u1", "/", "uh"}], ")"}], "^", 
                   RowBox[{"(", 
                    RowBox[{"\[Theta]", "-", "z"}], ")"}]}]}], ")"}]}]}], ",",
               "u1"}], "]"}], "/.", 
            RowBox[{"{", 
             RowBox[{"u1", "\[Rule]", " ", "us"}], "}"}]}], ")"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"\[Beta]", " ", 
          RowBox[{"u", "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Theta]", "/", "2"}], "-", "1"}], ")"}]}], 
          RowBox[{"du", "/", 
           RowBox[{"(", 
            RowBox[{"fu", " ", 
             RowBox[{"Sqrt", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"u", "^", 
                 RowBox[{"(", 
                  RowBox[{"2", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", "z"}], ")"}]}], ")"}]}], "fu"}], " ", 
               "-", " ", 
               RowBox[{
                RowBox[{"du", "^", "2"}], "/", "fu"}]}], "]"}]}], ")"}]}]}], 
         "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"fu1", "[", 
              RowBox[{"i", ",", "20", ",", "0.1", ",", "1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1", ",", "1.5", ",", "0.1800"}], "]"}]}], ",", 
               "1.5", ",", "0.1800"}], "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Abs", "[", 
                RowBox[{"\[Beta]pu", "[", 
                 RowBox[{"i", ",", "20", ",", "0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1", ",", "1.5", ",", "0.1800"}], "]"}]}], ",", 
                  "1.5", ",", "0.1800"}], "]"}], "]"}], "//", "Log"}], 
              ")"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.1", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fu1", "[", 
               RowBox[{"i", ",", "20", ",", "0.1", ",", "1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{"1", ",", "1.5", ",", "0.1950"}], "]"}]}], ",", 
                "1.5", ",", "0.1950"}], "]"}], "]"}], ",", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{"\[Beta]pu", "[", 
                  RowBox[{"i", ",", "20", ",", "0.1", ",", "1", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1", ",", "1.5", ",", "0.1950"}], "]"}]}], ",", 
                   "1.5", ",", "0.1950"}], "]"}], "]"}], "//", "Log"}], 
               ")"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.1", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fu1", "[", 
               RowBox[{"i", ",", "20", ",", "0.1", ",", "1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{"1", ",", "1.5", ",", "0.1991"}], "]"}]}], ",", 
                "1.5", ",", "0.1991"}], "]"}], "]"}], ",", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{"\[Beta]pu", "[", 
                  RowBox[{"i", ",", "20", ",", "0.1", ",", "1", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1", ",", "1.5", ",", "0.1991"}], "]"}]}], ",", 
                   "1.5", ",", "0.1991"}], "]"}], "]"}], "//", "Log"}], 
               ")"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.1", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], 
      "\[IndentingNewLine]", "]"}], "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"fu1", "[", 
              RowBox[{"i", ",", "10", ",", "0.1", ",", "1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1", ",", "1.5389", ",", "1.0"}], "]"}]}], ",", 
               "1.5389", ",", "1.0"}], "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Abs", "[", 
                RowBox[{"\[Beta]pu", "[", 
                 RowBox[{"i", ",", "10", ",", "0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1", ",", "1.5389", ",", "1.0"}], "]"}]}], ",", 
                  "1.5389", ",", "1.0"}], "]"}], "]"}], "//", "Log"}], 
              ")"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.1", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fu1", "[", 
               RowBox[{"i", ",", "10", ",", "0.1", ",", "1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{"1", ",", "1.55", ",", "1.0"}], "]"}]}], ",", 
                "1.55", ",", "1.0"}], "]"}], "]"}], ",", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{"\[Beta]pu", "[", 
                  RowBox[{"i", ",", "10", ",", "0.1", ",", "1", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1", ",", "1.55", ",", "1.0"}], "]"}]}], ",", 
                   "1.55", ",", "1.0"}], "]"}], "]"}], "//", "Log"}], 
               ")"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.1", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"fu1", "[", 
               RowBox[{"i", ",", "10", ",", "0.1", ",", "1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{"1", ",", "1.60", ",", "1.0"}], "]"}]}], ",", 
                "1.60", ",", "1.0"}], "]"}], "]"}], ",", 
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{"\[Beta]pu", "[", 
                  RowBox[{"i", ",", "10", ",", "0.1", ",", "1", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1", ",", "1.60", ",", "1.0"}], "]"}]}], ",", 
                   "1.60", ",", "1.0"}], "]"}], "]"}], "//", "Log"}], 
               ")"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.1", ",", "5", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], 
      "\[IndentingNewLine]", "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.767404322274167*^9, 3.7674045167323837`*^9}, {
   3.7674045512023478`*^9, 3.7674046100568123`*^9}, {3.767404643536532*^9, 
   3.767404679102207*^9}, 3.767404893801306*^9, {3.76740500981144*^9, 
   3.767405018133522*^9}, {3.7674050971571083`*^9, 
   3.767405100335351*^9}},ExpressionUUID->"faa21cd5-03fd-4ab6-9f01-\
c7848cff9471"],

Cell[CellGroupData[{

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

1:eJwV0ns01PkbB/AhI9adIWrQpI3YmA1Ji+fTRVvEokiRLM1KbpvLpiXtdvJr
azeFzs5q9Kufjua0m19upXZt329Z47aVbJqNwYzcpjHzMTSuQ/vZP57znNc/
7+e8z3k4CRkRPF0Gg5FI5t+tG9Fy+troC5B5NLbZnFpB5/VNvs/1EgM9yL/x
iGNDl/g/mAsR90KG2IXbzmfRU07Gw5vVA+A9a1170ceKfmm7umlrhwy6fYwl
wfqW9EnTdXuFx94AdcjexH7BnA4pKOiOlAxB3fX8YE8Tczq2+qsUnQ9HwEvE
O5GVYkp/Uln12+tdo8Byigv3HDCmCw8fpe4Ej8HBa/8XmaUb0X7Rt+M1XDmY
ZfGKwiw/oO+5lXfIFuTwoq/+f/wWA1r4c9m7qLtvgct4GlZ4YTltJJipmwpR
gHKgueZEtD7N+eXPz1g9CsAlqCLWg0kzFYeuvoocB1wjjLxsokfv6GKcdWga
h8U+vfI/1Lp0Ki9TftVJCdmSk/tUPTp0hZd7anuuEiwSzEN8Whl0g1LoyvhD
CYKpifsjx99TY9Whfkf1VVBZmFftcWCRelmTNWC0VQXKKya9yYEL1PqaDWHd
2Sro1/LZUu85qshgT2BphQr2H2jRY7jOUNWjj6y17SoYHxu3iOBoqMH4ivPV
KhWUjNTYZq+aovi7bA4FmGLIWwdfsmzVFNPXKX+NK4bKAOd1kg0qysSvZrF9
G4aJ1VLteY+31POvq4d+isbQ8Norv8VrhCq78HWVLAXD/Bxr20b/QaqZY1E1
kY8hWeh8tOeyhCqvFn9q8AOG54fykgLuvKRE3wcvSyzDsDM03+0xv41K2/ZF
rlcl8bd+Dp821lE46XuXn+9iCG7O+rAsSgilpe2+4w8wUHvdXORnm0Ftn852
eIzh3JY90uM/dYF2wYF9uBWD8Hzejbi0HnCeSR5of4ahrKSHK10tA61Orfjk
Swy/i3fWGhoNQ27+wZvfvsaQjqM8EzVjwPG8nKjpw6A+4rxzpXQceB8nLx+R
YTji0/Xlbd4ESFn2RQnD5N6uvpvFMZPQ2RCGcscwBPEeZvaHv4PjrJOyjQoM
t7QnzhTvmoa6SxXSciWGtrrNEgHMQpL73nwKYzh9OiaH4zMPLuu2DleoSZ5j
ybzWXQs5VYlxoVMYCiQCxyDnJXCsqY1sfYchJDrCfcmMgcK4ywpspjE05aRZ
f2esg4Kezr3xn8HAuJL9ub+hLupfe4axfRaDb96Dj+z1l6GCC9y29XMYenvf
hjgv00Nxp65TGmKdjufj+xhMlGVXtHR7HkMtNyXo5iITRb9KCNy9gKH+VkaI
+YI+qkjy1X1FvKJJdEowuxx5y0UxEVoM38gNC7dOGyDfh5t8aeLTsnfe2ilD
tLZ4727OIgalw8eSDvUHyIDjYniCeDitfc1dbIT+3lna9oRYhxcsq1Aao/jm
jHrmEumvV6euVJigaLbRC0T8eNO9/PtyU/RVopNBDvGGh/2b/xo1Q/tb0p1v
Ekt0Y2K0meZo+0rxUAfxrS7uHtakObJ/NinFxN2/sTetOW6BxFue3DZ7T/rs
j7aMnLBAyVx+oxsxYDtteoYlihq0/G4H8X/OsLfzVZZoy6W09IPEYs2l9Gdp
VkgvmylKI278a2OgctwK5Xj49BYQO7qfK12fykKKzKvqi8RXfONORStYaPbH
zh0C4utW07plx6zRf+/SBkJiYUSsrctba+SpvzqthljUHH9t6KgNCrhzQPAr
cairrwVzzAZZJRo3PCEOGDgWHJ60Almlekjb3v/7X271OSMrUMQ+f89OYs9z
U12/82yRHXOxtZu40COozWrYFiWd5Tf0EHOHBPLdR+zQ5ONWywFiowvFv6S8
sUMpokbFILE0pXXDjYSVSBR1JXyE+G/T7a5K2Ur0UXF9uJwYmVY9Dfl8Fdqk
Np1VEFsPh69Nla5CQ1Z+n6mIvYIf3S87zEZfrEqInyDmdJY8HexnI73Qe56T
xE2xP3qbxtmjxNHsziliTc5+BbfPHr35Ybm/hphpXVQUGeuAyi/OF0wT0+zh
pdZeBxSfGSiYIV6jOVJrEeOI/gGFOSzP
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.016666666666666666`], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwV03881HccwHF3LvLr/Dycn/3cJqn8rqj354SpUWQbshGSSvqBmUspqtFh
u7paa7XMCEOLJis/Ht8vXVoZk05KaIo4P+5z4XCls09/fB7vx/OP9x+v9+Px
WRx9cHssU01NLYa8D/PLIe/1K/ofwXeLuN4/bDGjx9y3NRk7dMGWMU76kikO
HZESp9D59zk8iuSnBB4woZWVy6pth1+AwayVndTAmC77Ov73wOZ+aNvat/qP
fkO6GaV+ExH7CjSdbjtrPzWgS3aNWjc/GYCANf7Cmif69NGc1M4Ntq8hvN2y
4qEdm9Y49mSvwmsIuOG5S3j5urRptH3OHZ9huG3U2fDjah264bBQxrSXwo5J
1ZxtpxbNST1r+F4hBaFqa05WzkJ6uuG9qeD3EeB/xPw5aZsmnaxmaePrNwoK
T4mzr40GrZbxQC6QjILcp/YGVrDoDTUc1+TAMeAdvljSKlGni77W1RhoGIP1
2ftTzt1h0vEO5Y1ZNuPQ91WD0qmQQfsVOvb0JI2D1Ljg0lOhGv1kkddZV4rY
I371dfV5SnzdMLSBIYOMSfGlTaNzlPJXWuuYpwwYyyX8811vqcZZq6qIQzJQ
Cb83H7s/S+1nXWU4XpWBMiNuWV3dNFV6tjSlrFkGpjpR6cKbU1TYwF7b/SMy
WBWh2mtSMUE9vmxizdLGMOwprmeVyqlJyq8bL8dQvvCGRaz/OGUZEz3/y0YM
DEFCudJfSj2LHFhz6HMM9j16ZUVBg1QlFJ2vj8OgWMo+F7mjnxKkJDr8m4pB
LYwZENXWTQlFyTqjWRi+jc1O3CvvoBZ/Zx3y2QUMo7d2Z+13a6YMwn02LivA
wFKigZ38MsqdbXSvsByDLDr8N2ZrFfCGy49OVGMoWy+Ptwr5G3rXxi13acDQ
euuUxP/ZY2B/X70xW4xh6Ir9zqVHn4PtAu/T2i0YUKgyZPBMP1zkWcY8bseQ
4PMjxyRwEBa4NAXPdmLoSZiurDCQguB6rWduN+nx5Nh1t4zBNWq8Nr8PQ6a+
qAAjOUx2zezjvcSgsl+VIOJOgLaE8VH6IAbzGucArnwS9IKS10UNY0g6rr+o
Q6yAobLMn6ZGMKwQCdwtfpqBqJoYTd44Br3E4MTgfUo47mHitRVjwJYrC4Y8
3kEUW8tm6RsMVyqPl/L03sPiXXkl9yYweGdUxtzvU8GyvL89PKYwJEsDfj0Y
qoYsFPr52QoMLvWlaZjHQD8UJunfnMbQ5PPHEvZKJsqgk76sm8Fw45Z6wLip
Ooq6gDtLZknPTsy9xmShep/gC0eUpKfiv7HtmIXW13t+5vYWw4OSXXve9SxA
jvUdu3uJ7VpbcqtaNJCnINMs8R2GQzu8OIl1msg9ZHvwNPGrYOyCKhYiGaDe
+DkM2X5nOjhXtdCCTMVmCfFV75GuEaE2UhwrZjm+x1B6ynFT9SkdFDk3uf0k
8ebd/N1xfF3EHRKH/kOstabEWXFAD0Wywyz1VKR3StwfFMtGja6HT/kS68hV
gn1f6SMTnkYsnzgvb/6gxQoD1Ol089ti4ni39qrAYgNk64ij24jvHM54277E
EPUOf1L3htgrtzZHlG+IBKuusAznMcxW/7NJZGWEMhqnqlcST5yOGXh4yQj1
Nz518SG2e3WkzcXMGG1gB/bvIP7lZBFuOW+M7u/R1jtAnJY3VJhuZIIO8msY
x4lXdTqvCxGaIPWcu/N5xK/OF2WksTlo0Zs0dJm4bnhmtSKXg5pss2aKiXWX
t0VibVOUfP9QcBUx+VnWn5wxRfk3I9JqifN6q1wvaZohVZaTqIm4o8yciU+b
oQ1JobUPiCW3w/zTWebILehn3XbiE0c+vat10hy9vvfnb53EPHlNSiWDi4K0
Qs91E1/z3/ln/Akucg4fl/URs2wkQot5LrLOFzx4Sdy6OWzts2MWqLTI1/E1
sRP/kbR4zgI53EtylhK7J7g9FKVZoi/MHz0f/XCPdakOcW8t0V9VC11lxN2+
Be+mUq3Qi21f+MmJe6O63CUzVshWLLKeID53WXx7MMUamSY61E9+2M/8ePyu
whppWkSsUBBHuQebvUm2Qf8DtZ0qEg==
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwV0Hk41GkcAHBXTJnGzC9HWkmxYUtbpGMd37c2e1QsKjZyZBIS1kQHQiW2
1ihld6iUKR3oEiW0/X4VS4+jGlmP2hYZjGPmRYahSfvuH+/zfT7P8z3fhSEx
3qFaGhoafPL+j9otJ1YGdbyCKBsLVqWzCaM3vaZZZ0kbbPePUxb2GTG3vud5
041v4VAM06YMMWT2CvysRT0dMONFMstHdw6zMVw/ZrimC3wCw8RFbTzG9FHu
8x5+N2iVlMljm7nMy/DCi2tbpXDgwKSHfY0Bc1H9TfHl+b1gt8RqzmsTDtO3
YuZjz3V9oNpl//CJkM2sGvpgy90gg8bR9c6HzfUZtraF1nbbfni7g04MrJnJ
DJnYafqM9YP051NbqUQWI/S2T5JdH4CJSE9vBHpMa1zT85LvBiGtku2wiaPL
PLtfM6mSDIJrRPlBy14d5mnkPv1BjyGo7CiMWlyrzWRnzfmV/2gI+uwrxDOK
tRhzrounwXw5LPM1u11+VpPRE+2MihTIQWb5hZ3/EQ1mAU/MPP9TDuL4QvVZ
6TRdsC4lbpuGAqI3Fb/taVDTwaffWJg4KUAjYbZ/TcUU/XX6vVxVtAJSu3K9
BNdV9Joit6D6CwpY9FuqzrZz43RlFfsv51oFcH+QXJKfGqOdxh5WjMsUYP2n
jevrjFF6/Jetq9JYGIqpvMKyI8P03ISS0yFWGCbCV94VTg3R6da52zVcMOzx
2mR2Y0xG5zvXW9HeGATfUryAESld+os7RxmKYX+Ye17YcCctuldjpNiPoYzv
W2ne3U6nyEI85ccxODa4/PVz/ytaGfFUaXcWg9vVw5ni3me0YIunu/Qihsi4
P3JFegX03Ux1imsRhgwfv41GFRWgp8/2Cr2H4dNtcY5XaQOMm9N0UhWG+6O5
uul0K7B754kKn2A4ZccXa11+B+HzXgyq6jBImgrvt9DvQb/M+bczTaTeLTBz
vKQXJL5JgRkSDJ47ajsncgbgWPWXTwb+xvCoyPGKMEEBO2+K65veYAipcwgz
XDYCMccnhPAvhp8Mn7NvmH0A+/33Qt27MHgIrqaUsJQQu93USFuK4bybIqd5
ZBySV3/xeU8vhuijx849bFOBq1GsR5YMw0Uqz0+vagpObbA1jR8g926pWuGb
q4Ymh5epi4fIfzM4Yo1gGl5I9zbfkGMoZ5kb37LUQCc+tp3UxBjq7yQ1ntfX
RMb+KSLHYQzT9cJP1cOaaGHgWfhxBINdknXSa4kWMhm22oRGMTy7bLr+Qak2
MuronG3+AUN23rU7S4U6KGvH5vgeYqdZiXxO6AxUDQWGeWMYqvuvXLdZq4tc
bD2WOykxJKqz671m6qFkq3l1TcTSr1IcA1r1ULF9/TnvcQwK65aXX+az0Cp2
wuoGYq/0a5sPB89Eg6Y5U2smSL76cxBaMAvFX3Kdm0/cNenc5dI+C1n4SgpU
xKUPWl18svTRJbe6tM0qDBtvuou3ubJR3PuDeXnE7f++8+b2sxFl1ni+k/jj
h5xun6zZyNj8scOiSQxDJqHrlXYcFK6bPR5IzBneYlxdx0HHgw9HiIh1+MWW
kf4GKCrRX7uRmP/PCmmrzADp7ryw7BOxGaeB/89qLvJdXrZxyRSGJckcv5ED
XPQ4O+KWD3HMXk2Xk+VctPsBuzCF2HSz4/en5Vwk+cov7hpxU0eBrG8RD01H
JQc0EK8dtJmVvJWHDgWU5iqI52ifEcBRHvKI1fXjfsSQH+2QufAmD2nZVb5c
ThxY1OVnIeGhZ1dV1p7EcQPOfqvHeKg53TYjmjhewroTS1FIsmAdlUlsubbk
0rulFBIIzQZuED9AgbtyvqVQS3z50lriDe1Zk/d9KJRSvkvZSRy68Irjnt0U
Up7XDVATy2961L4XUGjubvMEEzXZL9zq3LYkCnXvUwbbE6uWHtmneYxC3LlF
lu7ET4NFd20zKDRD6CwJIy52MjY0OUGh/lFRwlHiqdstV42JtSN/t8knZu+M
fLWf5I91T/RUEAc1XlOcTKNQmntElYT4DC8o+Eoq6dd+vEROHODV0W9E5pe/
O/OI9QmD/+wcA9cDFPoPON4fyg==
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.7730489627339049, 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.7765404555792427, 0.9999959976808661}, {-5.87215724192717, 
   7.838934695636711}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.767405179850677*^9},ExpressionUUID->"a0bb7a3d-201e-4eba-9c3f-\
86c0c4148ca2"],

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

1:eJwVkns41GkUx12mMV627UKJ2mLKLtOzXSiL1nnLhqWybGJturgmRCmhrIqk
3LY0W7aySmmS7JBbbr8p0mWm3ELkGuM6M2+T5Nawv/3jPOc5f3y/zzmf79H3
DHb2UVFSUvKi6/9+fG2H4e91dRBfZrPP9jUSBO7a+Y1NbxOYfFtW4cRTF4Sk
m1Qt3dYGHi1rF+AFLME6tnFuKqcTuuI59ug4U3Dr+XhvqKgbOLaXQ6JHGQLJ
JVHyaef3sMDSL2YwQVUwONVQGZzbC/19lD7/RxXB1OLPqUfEfVAdVdf7hqEs
uOPRldw2LYbHe5x1lctmKbcdl046jfWDfYZLfWu8ghr+03iectMA/JbTtawp
aJr66/DfGTk3BoGZwxZf85mkrnsvXFPlNAQ/RYdd5QeOU3Z6aumBo0PA5sn8
tp4ao+QRtsLU2GGoWGy1XDd9lFIdqU+SMUfA0svwxr5qOdXwJtqCcXIExj++
ZO7oJdSVpY+1TMQjgOJUapN+llAW991kBdYSyPedtfr30SClZiJclXlVAjpe
i4xs14upfI7piqk+CbzYVhYO+T1U7ppq1+tGUlj/ejLm0uF2amD9sq9d/KQg
NfDTyLzQRO+7r7gtXQrXLwfUdnq8olheCfPr66QQcVaLsyGcovpyxIuFCik0
/pZ3/0HURWpIxM3bZigDmVzk9n1yEbStuG0uspfBiIJjln33ORhv4nY8DJBB
/Wq3Q7ETDTDqsuGt53kZbPjI6xv/sxW8484kfn9bBqdTJqVmc7vh4qOLsV7l
MrjX814Fbe+F9paNLjYNMsgabi09FdsPpj9kHNLql0HlarMvegVDsCReqZkx
IYOHinju/ncSyMjeL7JjEbAa1xGKJgncc/P31VxMoLL2nHnwOTksmDDTPr6S
QE1hSwr6ahS2wqh+zloCGlLHtPCkT6AbmLhUaEnrvvx67gTrMzhtGoAPWwl4
zY5GN0eNg0qct8jUkUDQ7H3VHdIJMJsSuP3rSsCS5QO8XVPAFerrHd1LoPty
8bucR9Nw81WWMdeXwJ38IX2DRQrQMN5XahBEwOGUtLc+YAZ+eWK+nRNKIK/r
CyOmdBZi0AtxWTgB55bdVTOnlPADbvua7igCXw4PuarqK+NxxZ6sW2cIaN+1
KllXoYx5NmEFmucIDEZeuXDQRQUX7i5oNEwgcMBdtyVpSAV7lq/MmkgmkGYe
2R0RoYrD9myee/4SgTit6kqNOQy8TPKXdSeXwGdOUc03iQxcdrBcrLhKwI2f
9lPS3DnYSsdDU3qNgEV9L3dt4hzcFGm3i59O611P6vQwmHiyZOFnh5s0LwG4
HA9n4kD2QEVVJoHNiSXlwn4mPnDfz0gvi0Dmli2+JY5q+Bcy4+vCI7B3VjtZ
56Ea9pGn7T2WTfMM27VcOI+FtQzEFVE5BJYyOT15B1i4y8H3U0guAdWMP0wK
Sln4HkPX2olP4Gjxsf2VTHWcEKVTviKfAO9gAPvpNnXs/2CVXc9DAo2ZcV8/
TlTHReZ+2ZcLCSyyPtNaXKOOvSMWxWwqJpB+8xq7aEod107OOLeVEPArfna9
/juEl2hzo4JL6bwn9E5znBBW117poCgjMP+lFZaGIlxYkj0cW0Hnp6ET4nAR
Yfu6FaFqFIGItg9jMfcQPmvY33dWQMDIQFO5oxzh3LB/jJWfEBALTFdnCRH2
b/20JLKKQO5YtcrGZoS/nWd4VF5NgONlMz3UjvB2paB+vxoCV6zzlqzqRvjg
LRPU+YzADdunjo70HHxymc/OFwT2J49efdOBsLbW9AHhSwKtG7mf2K0Iy++m
hFqLCJxPVW3PbUA40Tvgdfkr2l/zfeDAS4Q3Pk7JNasl4MSDmc1PEA6/wDQt
qKPzGTkxtu4Rwm9dO/zXNxDwMYq2MOYj/DvffWt+I4G3nGPlGXcR/gNV3TFp
ImAXaWOploGw4jXbpaiZQJXmMO95GsLzChvVLN7S91vYsD24CKdM890rW2n+
/qmeZqkIs0zdm7e8I/APX+JcSM8xVTvlNe0EOsf8HbZcQbjHy0nDvpP2P/9G
eXc6wm2+khBhF4HYYHTBnebL/pnytO8hcCRhjXtSCcI3nsvn17yn/5d1AoJE
CP8HvUIexA==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.016666666666666666`], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwV0X881HccB/Dj/P6Vn/lxh2xXjvQbzWLvz21+RLNVspKw0Yk7SpP1S6aI
0jXLbf0YVsyvhvlRqDl9z1L5sdRwurISyRF3H3EXSeyzP16P1+P5eLz+ezlE
7tvKVafRaFEk/7dxQpagZ9k/4CTpXXnZXV9stdFshcC/F1qydGfy3+mKRVvz
jt5pfAL9M7/Rl3ylI16nWdplX/AMTg6ahEfUaIn1MiPZ1roDAJKP/ZazNcVZ
DkUXg38chNBCQeamJro4wEggoclfwGyvsD4gXl3su57FOsJ6CTX3OLfK16mJ
FYZN+ms2DIMXY+BAsAFNrB5W4DHsKgP7a91DItl7SjxVyesxH4HI8JAygwfv
qANpjXkdT0fArNL/uHv7W8o5yM/QO2cUtDsM/xBJpqnG4lC7ONdXUH/tk5VS
hYpqFSSPr737Cla7bbDcaqakptyTyjf7j8EOQfZ+LmeSCtunSgykxuCR9vIb
JQcnqLLJOzjDaRzil7BdB2LlVLKTi4vb6XE4km/4Y9nEKFV03q9lb/84OL86
XWp9YpgqXF2c5rJCDsVhAzWjzBfUW8FU7ueJcmhF7aKZ7/upU/7JKT/XyqEn
yamjokdK5X7ktufGmByYDScWLXPvovZYxxcF2StAeZwXk+Bzj0qfbixUBiog
dZtR+wdR16nnNawW60MKCFn7pPu08DzwJlfouP6qgPtTto5BQgouflibWSZW
QP71Xy7bN/wNEcFJ7f/0K0DMqfAb7uwBzmcL07Q54upm3wDUB6KnlbIUCwy5
ARrN2dLnsPGByuSsC4YlH3yeGmoyBPwKrehoDoZBHbsg1iYZ7HRnaqFtGObi
b8UdyngFnfPV4/5cDDyRAav3thyKYv2OVR3A0L/ljKfk+ARQN9vUL57AcPDh
UAD7w0lwMhi1dczGYCasHNK5OwVWVzyXHvsFA9xY0pLDU8Epvv/hhiIMsbRO
/mPjachfvLZzohJDPGPkp5EbM1DZGh7Hqccgi/vrWUvkLFjE/BpLNWFw8Zkr
ijOag4yE0b6UFgxSj5R5aeN72G0h0sppxzBbp507z1sAN7+ONN2HGPpCrHfI
ztKQc/HiGGUP8aHYDsYeNTSc7s39+jEGq6Pa9aYcdVR+yHEk5CmGzVijsJlB
R1+3PXIdf47hpk1yju00HQVe8Ut1GMKw75tNCma3BiqLkGrTZRiKU536qqo0
0S2DRPalUbL/88XOLoEW0svbnjA2hmGNjsbUfp42esbqraUpMHw5UbFbsFEH
/bu52bofY4g6/tk5U0dd5HV/5zrBawzXh+KL32nqob8lQ+qGUxjOxfp4eL/U
Q57OJfrRSgwmFzvzn7Too4rWZeG5KgyruIn2t4sM0DdnbH+rfoOhIY3+nTzd
EAmva7KuTmNwFex9GMo1Qjr9hx9lzmBI4S+tVPosQkr+6+gv32Kom/ZyCDMz
RrfvFbmqz2JQ+ZT9LEszRoPbHLiFxF/MOaiOKI2Rp8H54TXvMDzPvLWKzTVB
8oC739YSZ/nWaLyQmKAtXZILS+fI/03c2EpfU2QR4X1TQGzIez+Q1WCK3vDU
LEeJy0ottySwzZDIT//hhvcYrq4vOxl2yQxlJB97eZL4qN2W/CA9c0QzOeHV
Sqx8VM8IPWqOLiRlltDnMbCZ6evDx83R4LlFTz4irnMPDk8Ks0A+0arkGOIs
2ifmBZ0WqDoolyUkdujeVfM7LEb7vb2+ukkcNULbLa1ejESJilN9xG0uV0oX
HCzRD10VjrPEatm1w05CS6QZ4ZJjsYDBdK+sapeGFTJ2dLRbSazH9/0uO8kK
0d/st/Imjmzlcu4OWyFn9sCd7cRbCw3H5NutUZj5pt2xxHWalz3c2qxRSbm7
82HiwE+fefI/tkECToZ/JrGwP+1qU7kNen2QoRASN9+Zj1AxGehaoBQuE3dR
WgX+PzDQp042kVeJD5bc35e8wEBdXnUHaomn5am90gQmepnH/OlPYj43r21+
gInm0v963Ez8+vEDtfggW2TTGbKrlVg/ucqioMUWGc3zVncSe/GZRnR3O3R4
x/KYbuLJ4AiJR6kdSt9sYC4lzlulG5VrZY/+A1oiGuk=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwV0Xs41GkUB/DRzIhSjTEYZlyzaaSrahV13iVWUapp1SrlsqRsrFWiKytk
adsuLktSjJAsSekxbb9JJlJr1Si6jFsRg3ndaYh9++M85/n89/2eY+Ybst1/
Bo1G8yPzdSvOBW69/NdL2NQvS5W91pJY1Hqd0BluhJc9NoygZbMltmWswG9j
3kOD7NspsZOmZFu4w9D3dq3Q6u4T+zBipmSGhuMv+qNtcFMYUruhkSlpUw+I
PXjiA5RoHYqM28OQ1K4qDRx+9RH+LRp4xlWjS0zPdh0Xa3RCz3PDVN+HapLl
/NF2kcEn2Mfbosk/T5M84HtZPtHqgoW2ycbuzVPUzroj5mkdXRAu3/RGdG+S
Ck//4xo3rxvONW/2W5utoujuR6VtQgWsECfcNcscp3K0gjh2SgVcmssuXica
peaEs3csiOiBHNC4x747TN2/+zrnwFAPHG56FZDz7yB18u10SqpPL+S7HJjp
0dtP/eTW8E63qhdcn8DPEhMlpXlm+pk5vw8YjKuS4GAFpfs40PztwT7wTCmq
13jcSeWHWzHW3O6DCRODKRv+B8qnwv2EWX8fVGVd2nNnoJnKX4BjvBYqgbJy
0V1d0kjVNYbmX/dUwumUhl1Jv9ZTZzue7Tsfr4Tq9Iw+25BK6p3xhF55sRKa
Nx9oTe7KotpdT9LTZUrYkefIDOgogxjLVEnhkBLkMLzVvK0G9EvolJCF4Zf7
Oz7/lieDjeXCJKUAQ/kK6YtjzW9h1IQzXocwxO+aXd44qw3Smgu48AOG0+eT
LEQ3PsIhk4mV0fsxrNhgrSp26AJ7t4Lk+qMYFlmNKxktPeB8n/mdbxyGzL07
5+cex3Dx2J5s/0sYxGG+9puSBoBaE27KzMIw5hzC6vYcAgYtVhRQgMF/NG3J
34IRqKmSs2+VYth5u3512vgoiASC8qEKDB6TtFk3qsch84NctKuS5BFaCmQp
KsiPatAeqsFQNHH6EC9gEq6vE2c01WFguQnyElZNQauxIpnfgAEpy57Hz6Ch
p4VGG+qbMDhuibrooaChGC+ZDl2OYaWjcHLpSzV04VH388pWDC4vt4ZxKmag
OWeiH/I+YnhgkNGklk1HOsEVn7ifMJiXHLsylsBAWrLPhlXdGKoW3bwwEspE
XBNP4wW9JB/deNbYj+qo64pptbMSQ0tFaCLTYSZS2rpwFvdjuHT5Pz+OlQYa
ChtwahnAYLHWcrk1WxPZsKL6fYcwdE+cd3FSaaLg/uF5/wxjsGWL3f3bZyH3
cS/9wREMYRGGEFc7G111s6Opj2E4LpA4FZVqoaYbtz0miYvV5m5+lT4HhfL0
nZvGMeQtST2lFjMX+ej+nn3lM4Zn+6XBS4LmoYT3nYOuKgw1c/+4WCxgobqK
/RFdxDFTdhk1mSx0xlq6+vAE+e/DsOh2bW3EqXRU9RO/N08snYzVRmc6mHu9
JzGUrs2hcVXaiK6Q1T8mVswUnFsZzEYrGeHp/C8Yln/OerG1nY1cLwS0BBGb
nat2DfbQQYfZLaJS4o1uJ68l1uqgfDa7YYAYlQRuL1jPQafbHddZTZE+oe7o
SSkH1Xfap+8h7gCb3M4FuuiUdOTPBOJuKTuEmaGLBuW5d28TF76w3G0xTw/9
EJeW9Iq4rUY9wjFGD9mUdSWOEO99vd3Qb0wP7c1gGbGnMUy9CN8cFaSPmL7L
ri4iTvVRH81u0Ucd67b4ORDXs4pvUUIuGrwXV+5B7FFWdaStmosKdO7LA4ml
E+lLNO0NUDHK0o4knkx7U7i0xADxXJRn44m7h73/drAwRKvF1mGXieMHdhuE
phmixSuUqiziTOtvamK0eAh7b3e+SdzXigJuRPGQD3f+0TvEcwqj86XDPKTe
+6BQTKzaFLuqI5CPCif0piuJT3Vb2M+W89GGiv0JT4mnm/eJzbcZofUb7bz/
Iz7hKYpwkhqhO8drUxqIzSK3zPdfY4xc1Z3WvyEOW3U992yRMfKRTfnLiRWU
KRSYmSAho4TXRpzikfyoJtkE5RolBn0k/mJbuHGcYYrUIqO9PxG7j1Xk08EU
cX4XMhRf7+Wpeq4TaYr+B+8UKEA=
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.6845331347985817, 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.6893315840756266, 0.9964323378064993}, {-3.350722076567255, 
   3.3595262748794554`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7674052261215973`*^9},ExpressionUUID->"9545028d-d7de-445f-bd58-\
0bb8d85e56d0"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{Full, Full},
WindowMargins->{{236, Automatic}, {Automatic, 50}},
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, 318, 8, 30, "Input",ExpressionUUID->"3a1e9677-a839-445d-bf17-8244283a07f1"],
Cell[CellGroupData[{
Cell[901, 32, 27934, 693, 1011, "Input",ExpressionUUID->"ef807a80-8331-4b5c-b255-d214bca3c5bf"],
Cell[CellGroupData[{
Cell[28860, 729, 4722, 95, 245, "Print",ExpressionUUID->"776892f8-7483-4058-8128-1f1109454fb3"],
Cell[33585, 826, 3058, 68, 234, "Print",ExpressionUUID->"7c6e624f-bab8-4256-b6ae-9d925f9c506d"]
}, Open  ]]
}, Open  ]],
Cell[36670, 898, 307, 8, 30, "Input",ExpressionUUID->"9d46f125-7500-4264-a552-ab4a64ae11cc"],
Cell[CellGroupData[{
Cell[37002, 910, 27832, 689, 1011, "Input",ExpressionUUID->"d2a44fca-b5de-47ef-9bcd-17296f09bdc5"],
Cell[CellGroupData[{
Cell[64859, 1603, 18204, 315, 234, "Print",ExpressionUUID->"23b9a487-2722-4382-a0ed-c1dd78e6405c"],
Cell[83066, 1920, 18191, 315, 234, "Print",ExpressionUUID->"0ffff332-3fb0-449e-bd73-ab01c9b1458a"]
}, Open  ]]
}, Open  ]],
Cell[101284, 2239, 312, 8, 30, "Input",ExpressionUUID->"d8e02f23-d1b4-49af-8791-c51bc4e37f80"],
Cell[CellGroupData[{
Cell[101621, 2251, 79835, 1861, 3391, "Input",ExpressionUUID->"ab34d227-75fb-4991-9f76-e5f1bc585a83"],
Cell[181459, 4114, 6611, 129, 256, "Output",ExpressionUUID->"524b2a7e-9ffd-4ce3-8826-b73fffd08668"]
}, Open  ]],
Cell[188085, 4246, 354, 9, 30, "Input",ExpressionUUID->"0bc20beb-f7be-48a4-ac48-7e6d457eec4c"],
Cell[CellGroupData[{
Cell[188464, 4259, 84158, 1919, 3391, "Input",ExpressionUUID->"72fcfeb7-63f0-4080-863d-aae8e26eea37"],
Cell[272625, 6180, 17261, 325, 439, "Output",ExpressionUUID->"d7895171-18a8-48ed-b709-5f6a94896f91"]
}, Open  ]],
Cell[289901, 6508, 437, 9, 30, "Input",ExpressionUUID->"a39bf5d2-4f52-4fc5-be28-c89f370aa045"],
Cell[CellGroupData[{
Cell[290363, 6521, 90875, 2008, 3867, "Input",ExpressionUUID->"f1a180a1-0f2c-4df1-91e7-ec9ef1bfac18"],
Cell[381241, 8531, 7266, 140, 459, "Print",ExpressionUUID->"a53778a8-6026-47c3-b9f5-55d8ed061b5b"]
}, Open  ]],
Cell[388522, 8674, 336, 8, 30, "Input",ExpressionUUID->"507a47ae-0e02-4878-9efd-3cddfea3b3e8"],
Cell[CellGroupData[{
Cell[388883, 8686, 92458, 2044, 3909, "Input",ExpressionUUID->"bda5e572-1f95-477a-8cc0-4a66d49bd298"],
Cell[481344, 10732, 399, 10, 24, "Message",ExpressionUUID->"a29e4af2-3183-4bab-811d-12b24690bcfd"],
Cell[481746, 10744, 8688, 166, 247, "Print",ExpressionUUID->"bd110812-874c-4e32-895e-83664f7bc228"]
}, Open  ]],
Cell[490449, 10913, 300, 8, 30, "Input",ExpressionUUID->"73c8958f-20f6-42f5-b412-9ae6c6e73cb5"],
Cell[CellGroupData[{
Cell[490774, 10925, 92379, 2042, 3909, "Input",ExpressionUUID->"0255f5d9-fa30-44e1-ace5-b570c3293795"],
Cell[583156, 12969, 8796, 168, 230, "Print",ExpressionUUID->"e5760c5d-2e70-4d98-b44f-ab70fa28998e"]
}, Open  ]],
Cell[591967, 13140, 849, 21, 52, "Input",ExpressionUUID->"f3a5f2a2-1cac-4516-a3bc-72f22e8e21b2"],
Cell[CellGroupData[{
Cell[592841, 13165, 70533, 1691, 2401, "Input",ExpressionUUID->"faa21cd5-03fd-4ab6-9f01-c7848cff9471"],
Cell[CellGroupData[{
Cell[663399, 14860, 7978, 151, 222, "Print",ExpressionUUID->"a0bb7a3d-201e-4eba-9c3f-86c0c4148ca2"],
Cell[671380, 15013, 8028, 151, 220, "Print",ExpressionUUID->"9545028d-d7de-445f-bd58-0bb8d85e56d0"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)