ChaosBIAdS.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[    808436,      17960]
NotebookOptionsPosition[    805797,      17908]
NotebookOutlinePosition[    806158,      17924]
CellTagsIndexPosition[    806115,      17921]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.758537255243294*^9, 
  3.7585372680236387`*^9}},ExpressionUUID->"726b00d9-dfe2-46f7-8f6d-\
d2f9333a9a5a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"f", ",", "m", ",", "\[Mu]", ",", "\[Beta]", ",", "\[Gamma]"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"m", "=", 
     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", "[", "z_", "]"}], ":=", 
     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[{"m", " ", 
       RowBox[{"z", "^", "3"}]}], "+", "1", "-", 
      RowBox[{
       RowBox[{"\[Beta]", "^", "2"}], " ", 
       RowBox[{
        RowBox[{"z", "^", "2"}], "/", "2"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"EulerEquations", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"q", " ", "\[Mu]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Hypergeometric2F1", "[", 
           RowBox[{
            RowBox[{"1", "/", "4"}], ",", 
            RowBox[{"1", "/", "2"}], ",", 
            RowBox[{"5", "/", "4"}], ",", 
            RowBox[{
             RowBox[{"-", "\[Gamma]"}], " ", 
             RowBox[{"\[Mu]", "^", "2"}]}]}], "]"}], "-", 
          RowBox[{
           RowBox[{"z", "[", "t", "]"}], " ", 
           RowBox[{"Hypergeometric2F1", "[", 
            RowBox[{
             RowBox[{"1", "/", "4"}], ",", 
             RowBox[{"1", "/", "2"}], ",", 
             RowBox[{"5", "/", "4"}], ",", 
             RowBox[{
              RowBox[{"-", "\[Gamma]"}], " ", 
              RowBox[{"\[Mu]", "^", "2"}], " ", 
              RowBox[{
               RowBox[{"z", "[", "t", "]"}], "^", "4"}]}]}], "]"}]}]}], 
         ")"}]}], "-", 
       RowBox[{
        RowBox[{"1", "/", 
         RowBox[{"z", "[", "t", "]"}]}], 
        RowBox[{"Sqrt", "[", " ", 
         RowBox[{
          RowBox[{"f", "[", 
           RowBox[{"z", "[", "t", "]"}], "]"}], "-", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"z", "'"}], "[", "t", "]"}], "^", "2"}], "/", 
           RowBox[{"f", "[", 
            RowBox[{"z", "[", "t", "]"}], "]"}]}]}], "]"}]}]}], ",", 
      RowBox[{"z", "[", "t", "]"}], ",", "t"}], "]"}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.759806785301765*^9, 3.759806868250237*^9}, {
  3.759806910301484*^9, 3.759806917682822*^9}, {3.7598069770042048`*^9, 
  3.759807190079814*^9}, {3.759807427336348*^9, 
  3.759807433648725*^9}},ExpressionUUID->"da94f536-7cab-4d17-82c2-\
b808bd41c83d"],

Cell[BoxData[
 TemplateBox[{
  "Simplify","time",
   "\"Time spent on a transformation exceeded \
\\!\\(\\*RowBox[{\\\"300.`\\\"}]\\) seconds, and the transformation was \
aborted. Increasing the value of TimeConstraint option may improve the result \
of simplification.\"",2,3,1,22561134718134997814,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.759807734567593*^9},ExpressionUUID->"06e09f98-d179-4543-ad45-\
25c83a5ad177"],

Cell[BoxData[
 TemplateBox[{
  "Simplify","time",
   "\"Time spent on a transformation exceeded \
\\!\\(\\*RowBox[{\\\"300.`\\\"}]\\) seconds, and the transformation was \
aborted. Increasing the value of TimeConstraint option may improve the result \
of simplification.\"",2,3,2,22561134718134997814,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.759808047500462*^9},ExpressionUUID->"9cec9d76-441f-4a40-b0f2-\
8fdb71744752"],

Cell[BoxData[
 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"}]], "Output",
 CellChangeTimes->{3.759807424772571*^9, 
  3.759808053212802*^9},ExpressionUUID->"6f510ce8-69c7-4b33-847e-\
1f876d0f9e24"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Block", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "qcrit", ",", "zm1", ",", "fz1", ",", "m", ",", "q", ",", "f", ",", 
      "\[Mu]extreme"}], "}"}], ",", "\[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", ",", "7"}], "}"}]}], "\[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[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", "0", ",", "0.1", ",", "1", ",", "2", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"1.02", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "1", ",", "2", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "1", ",", "2", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"1.5", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "1", ",", "2", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "1", ",", "2", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", 
                RowBox[{"2", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "1", ",", "2", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "1", ",", "2", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}],
          ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.01", ",", "5.5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]}],
    "\[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}},ExpressionUUID->"62feb27d-48b0-4e54-a9a2-\
f273a6219e0c"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11HlQE3cUB/DIFQyHwZBAAEXFA+04wKjVVuA90QpaUJGK0nJUHOuteKCt
ikcEqdegolMraEFQoRw6VEpABQQVD4ogFpBDzkQggQURiBfUpL/3x87Ofmff
Z3678+Y7PnTb8rV6PB7v5OdLe99nmenZvDcS2kSbzhnl5ULu2CiVrzwTcp+/
jul8dhemBsYU9TvegSGH7U5/cUWwX/f+fRgXcO9kcVsJtOzVBk9guHh3lmDm
P5Ac5iaoTioHL/6s8XMWV0BNkjaohAzwrlvKVYJJtS6AZMP8u7wDVeAu0Aa1
cCLmeGIRVwPbteNhDfCD8alBk3l1sFyuPVAT2ExOc/f5nKt9tUEzxLgsrlsU
0QhHVdqgFaQtfRP8bjWBvfb4YxUQGSdxLv29mX2PEmp/CjlXva2Fee0QHnX0
0IrZrczrgLBlgn7n3lbmqSBx64c5/pfbmNcFRrbv96SDgnnd8Gt/8HWLKgX7
Pz2wtEVpsipUCQOO2qAHLqfaKhcolFDcrw16QezjqooJeQ2ni7TBG0hTBy9q
rXgNQdrxwD5w0hjw613bmfcWjpQWxwsS25n3FiTHv7jZN9TOvH7ITZA3Cld2
MG8ALJWdsRWpHcwbhMHMUWVxgx3M00BhUjRXip3M04Bn1andeVGdzHsHF2rs
b2Q97GTee7BLaPD/pK9i3gdouXlpRr2binkfQZNccenELhXzPsKRvrNDHikq
5n2CH/2+9Zj1UsW8IeCVFuEZvpp5w3Bk8icb2Qw16NbJkodmN+zOOgWp4f99
5KHBQ5lffqQamnX7xcO0ZAv3ZX+qwVMXjMDhYO8rBmVq0I1njsAx7yP2aTjy
9LCq9+KVhcIu5unhzkbpJ75TF/P08LhLcYqfdxd46QJ93JQ9YA/ru5inj3ED
BYGvZF3MM8DNK2PezY8nzwDjLr7yPnyLPAPUbH4mu/aUPEOc3tCSXdRMniHe
TknXbxsgzwgLTCYkWJl0M88I1zyf2LFhbDfzjPBQiHG40rmbeXwMmbPX/oJH
N/P4KNz9zu6YXzfzjFH/aoBe8RryjNEgAp4v2UmeMW6ZZsSfJSNvJE7OGREf
cZq8kbgiI1/ifJk8AQpOesT4pZEnQIe0OTndOeQJsKOgoIl/nzwTTAx3M7z6
jDwTlCV7PnlaS54pHi54FH1YQZ4pKvLcfJ5y5JmiICVWkfGOPDN8sbu3bro+
xzwzlE4LOrjUlGOeOe7xTVZKxBzzzDHUPacvegzHPHPs6032vzaJY94o5Ks6
TodPJ28UztS0DWpmcqCrH4EQsz9E5cxw5UBXP25CrJyd8MJxPsf6SIhuc62d
6hZxrN+E2LjBMdJnGQf/15kQ3V1EYTJ/8izQZtuksP2B5FngkHRhm1soeRZo
53pA+HgdeRZYcy537Lgt5Flg7GaF/Tc7yBuN6lnfm329h7zPzwljnvD2kzca
reVqh7hD5I3GdaKwF4Io8kajVfF0me8x8kT4790998JOcax/RZg0f4t44xny
RBjeKu9xP0+eCOVd6//uuUCeCDeOz847FE+eJUqkSfN7/iDPEiMXlxzDJPIs
8cHqevmOa+RZ4hTlqp7oVPIs0fWGdMHhdPLEGLK28E7IDfLE6LNk7qqJWeSJ
8aXxakH5LfLE2GsYcHdNDnli7Dvns7wplzwJ9hjOS1x4hzwJFnpH//JbPnkS
PO/cdKWykDwJDhxzafhQRJ4EvebFNAkfkGeFgbELgkUl5FmhaVMHz+AxeVbY
mO+7ufUJeVaoGHJ0zyolzwpj931nvr2MPGtsu16+dVw5edb41cKR6sIK8qzR
yzzYzK+SPGssvj1qRfUL8qyxPuJLXFJFnhQrS857yqvJk2JYSFmj+CV5Ujzx
ZuDndbXkSbHG69KBjDrypBh079Kq9nrybFD2aPYm61fk2WD6wQGJeyN5Nmi+
Jkse0ESeDd7O6U/d1EyeDU646DxvVwt5tjh7OKtiZyt5tjhlWUnaxjbybLFF
88AuQEGeLS5fPbQVlOTZosPUvZ1jXnPwH1hoMSg=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HtUjHkYB/BKKpVMNVNTsSyyCVmhdYnnySqX7J4uhN2wLiHJZYXIZW1F
hc21rEoWS5vkpLZkWdQm0oWxNdPFaG7vvKlFplTUtM30vH+85z3ne97f5zzv
7zzn+/marQEhRgYGBsf6Ht07ip89T7Y3BoLGDBOtuVUIhZ/FNvvfzobnd143
lMruwtjgxKJ2l7uwflfpzIkFD2Gf/vt/IOv1T908VQnI9+qCMljyA7ocjSqD
K9tmmYsvP4O4LYtXO0ypAsllXfACfC6fTnHRPAcLsT6AhMWPvur1/Bdmm+uC
OhhSlVLrva0GtuuOb3sJoyaZJZbGSSDgtm6gRpiT/ikxOKYOWvx1gQyuXs9s
9FzTAIebdYECcq2klgkjpTBcN/5nKkhN9l/aU/KK/ocBQXvFDvHVRvJYyAmL
dN29QkZeE1Tyv88+bSonrxmUW8qS1L/LyfsPHkx1lo+briDvDezfMqDCtkhB
9/MOqkPT3BZ6KeGDiy54B81upk1bC5RQ3K4LWkFQmu7g5KyCE0W64D3kfdxS
WZOgghW648EaWNQcJBjVpCKvDfb77vLZiQx5baBZmxkx7SRDXjuc6bLQVNQz
5H0AB68I5vgINXkd0FW5qa50lZq8TvDNmLWk+Fc1eZ2Q5/Vgw4NKNXld0Ob7
xKNTqybvI0weXbwvzZUl7xPsbHkx4GXfvfV73VARL7GTRrDkdcOYhSVNRadZ
8nrgQnhgV0Y2S54WbOZGrf6jhPN6wXPME9daCQv6deIbYKbX0F8WsCz076MB
brgZ62bWxoJMv18G6OMrnT+8m4V5+sAQD5bHS84aNIH+eLYhDi73zNlq2ESe
Ebrs8zx+Q8t5Rpiz/UveN52cZ4Sx/kP/nv+Ghfn6YACuEnqokxtZ8gZgaphH
nFsVN58xGpXFDu8p5DxjXBEgjnx3kfOMseUGL7w1mvMGol/SkfPKNZw3EPeP
rrXOnMV5Jig86P5pKJ/zTHBUtMDdllGTZ4Ljp4wXB+eqyTPFIweMG4qj1OSZ
Yn3dqRgLUJNnhhm3Z8vedjPkmeFhFryc/2TIM8Pk7bvSl25gyBuEK6O1Q1xt
GfIGYZKf/XiP2yryzHGmdtkhiyAVeeY4JzzTaWKLkjxzDDRVjHLaqyTPAuMN
A3Jm9yrIs8Ct1fdUPXsV5Fni5tDTO2+1yMmzxNdtwfVZgXLyLHGjSWiIx00Z
eYPx/cfJ589oG8kbjCrrC5usvBrJs8LaCkMTtllKnhVeCj8Zsnj6S/KsMEPj
z9sVWk/eEOwwi4+oj6olbwguj/AD0TYx6OvHnIfKk4vTyxZUg75+ZvFwXbQ0
XT3oBfURD8NuaufU5D+jfuNhTC1vrU9eOfTXGQ99xuflzjR9TJ41jsv44u2m
1GLyrLFuehtvZcZ98qzxr3TLna3X75BnjbLtPz52bygkzxpbS1olk0/dI88G
U9/Pu9jhUUSeDU6JXranYfcj8mxwHW/SSpHgKXk2uCzMPW1tVRV5Nrigi1kf
AiLybPHAhAXC64e5/rVFv5gHk3Lyuf61xfu/Hf351FMJebY4wWhzXnBxHXm2
OMJSExmW1kAeHzumtT3pWC4lj4/35okkT7pekcfHrE2LQg3vN5LHx2dzjS58
2iEjj49Rzja7E4bKyRNgdv7sKxsL5eQJsPPqm3Pf+irIE6B4ck/qG5GCPAG2
pt7wf++nJE+Akfwk6CpRkmeHEekRjufcVeTZ4aVHoTHLklXk2aHm9YwxhW0q
8uwwRVjeO8GXIc8OL38nqR+RwpBnjwsTR4pblQx59hhWk6TpcFGTZ4879iiz
Dm1Qk2ePd0ZOPVZ9UU2ePfJPehe4V6vJE6K3WBT53JglT4jlgbEPFRNZ8oQ4
LPfsxbNBLHlCZJ7V5A7ew5InxIP1xonhySx5DqjtHegoyuE8BzwcWMAEPuY8
B6x5fG2faT3nOaAkLj+lp4nzHHDsnKyIr9s5zxEnHl8nlndzniPOMJkeJO/r
337PEUee8Vrp3de//Z4jmhiPnmup5TxHDJiwyntKB+c5YWyHZn9BC+c5YQBz
QHRMys3nhK5RIVXXyrn5nPCWtDKqM5/znNDtRJxzWBoL/wM7IC08
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11XtUzGkYB/B0na6mmmamSUWx2rU2Raxleh7nKDZZpZXdpJPUKpsllpQV
ShK5E7luxK5LIYsuU5rRZapJUzOUsFs6SKTkVhh2Zn7P7485c85zfu/nvL/v
vN93RkQtnxtjaGBgkKX96L7X8QpmdCRvBu8ZPea1BcVQ7JL+LLioAHaGnfzT
J14CX4bvkr3xkMCYv2sq+Fwp/KF/vhKKWhugs6gSHibrBnWQq+yU/fuPHPJW
iC1aTikhvC+s6sIVBbSe0g1UkOTwae3dqUqwbNEP4Nscj+OTu5rA10I3aANF
w6HUCF8VJOiWr3gALs8vcoe5qGFukW5D7ZB+PFgRGKeG58G6QQf0RXnGHrZX
w5ZnukEnjJQ3K99/pQJX3fZdHoGyblOt560mep/HsHzy5wB0UZLXBYXe0RpO
goK8p7Aj5UJawgo5ec9AEPJBPjKxkrwemC6WFR1rqSDvBQQtmePp48bm0wfc
W+an7U8Vw1sP3aAPthm1Fb12KoWbb3SDl2C9UZwa++EG7JbpBv0QKvQK4qy8
CQt1y8NfQa3QY35TeA15r8G7u9rg5aJ68l7Dpl2Z5YPYSN4bUEUKPbcuaiLv
LeQtc5tyvqWZvHfgWVYRlv9QRd4A9LcJD5hEqckbgKWO/80qnaYmbxBk30eF
+2SoyHsPTRuSJL/MZr0PMCDd5FZxVUneR5CHxsTfKWsg7yOY/HivWSmvJU8D
Z/wPrvq1qoq8T3Bxc/vylI9S8j5DB+ep4uz1MtAfJ54BHj6/MzPZqgSY82iA
ZQLRxpBvSqBDf74MsO1cnaR+aDnM0A+G4L47KlXPJBnolxcMwT0b0pYkmVWT
Z4jds/OGd1rWkWeIMrstMd2aBvIM8fa8v+ozmpUwUz8wQk1gQb5VTDN5Rvhb
qmJ89kEVecbonrbzUslMNXnGOCKqTLQ+Qk2eMb4VT18w6baKPBMciB7t7S1j
PRPMzIzoEvs3kWeK2zrW7sk3bCTPFPlH2setca0nzxQPy1eXP3GsIc8M86Tp
n3LG3yTPDNPDexR7s2+Qx0F+cXfz8kdsfhx07B3pvk3bZ8bj4LmrAvfOpRLy
zHGa2/U5wqFS8sxREXj5pOR6JXkWeGmsq1H+FTl5Fli4v/RCWqGCPAtMdQpb
EjyVzc8Sbe6OD6h+0kSeJY5tTZlv7svmZ4UPFw+36nVm87PChl2DJnPi2Pys
MHV0RE69ts+MZ42zkj9nhIxRkWeN24+4DZ6+xeZng5Fe6SfqtH1mPBucn+yb
4rOS3Z8NdvhIIk4nyMkbikFnovJnra0kbyj6pbxKy2mtAP31Y8HF9zJ/TZK7
BPTXj5iLg9m9F8XaPjP3ERdFnaMS+0WldL9x0T4j1iZ78AYw1xkXSyOztj9d
cZM8W4xeWD/kxIIa8mzxO01AsDSynjxbNO4NqnwAjeTZYuIovy+stH1mPFt8
HN3qGqDtM+PZId/ggH+Cts+MZ4erfjg54d0iNXl26LAjSvRA22fGs8OMCTVt
m7R9Zjw73BMT6amezXr26KI4Xzv9mpLuX3t8MHefpaa8gTx7lAfG7zGuqyXP
Hn1lHldzqqvIs8e82pCROzRS8njIy3zdMbG4jDwePt7atdDSuoQ8HiadDB1X
MLaEPB4eXRc2y8umnDwerk+L6r43UUaeAx4akhkSYFpNngMOXG2edMmijjwH
zLU0e1r1sYE8B/S/v7DNWNtnxnPAn475n8mNZt+Xj9uCnncGavvMeHzkdb2r
OjqTzY+P4naP3F0RbH58PFEYOzPxNpsfH2U+3oezZawnwN29rqUSf/b/S4Br
rlk73zJqJE+AVVznn88OrydPgEZz7zgPc6ohT4DSwq/PFE1gz4sQvdO2+0Qc
ukGeENsbcu8veszmJ8RlYz3iA7R9ZjwhciqGc7LiJOQJMeSFZjHfhv09HPFU
YiJn77VK8hyx6vft7omFcvIcUbazf3/oZQV5jhidsi61ZgqbnyOaeZnGBWv7
zHginJJ0/U2hmM1PhFt6Yv2kzmx+IuwXrLcNjmPzE6FlQKiXRttnxhMhOvu7
5Wv7zHhOaO2XE+/cyObnhJP73JNCXZXkOeHKBWnzYlax+3PCrEtX8u+vlJPn
hFtXtTxfnVQJ/wO8Rg0Q
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw91WlQk1cUgOEYFNmEEEICpCrBcRvApTVCRTlnqhU3VKhaRau2gAKWCmqp
IotFUARRiZRq3YsLCoMwGE3CIiQQIEHEsYKyqChICKBoBSKy1MR7+yOTmTO5
73xPcudE8NNO30Amg8E4+umlf9/PyfFqiYwHUVyBo0mWFKQTEjp9JDmQbeJe
8+B1AUzfdFzeO60QHq1WPs5YVwJRhs+Xgejru+ryjQp4EakfqCB1ZtFKZYIS
LoctMKvPqAW7UeV9PkFV8DhDP3gIZ8O4py//qQbzesMANF11kexr1eBpph80
gEIs4qBvNYTrj4c1g1PqasX7myrwlegf6DlE/h4n4k2shC4f/aAFnAe27BJY
lsOhTv3gJexvTe7ktZfCRP3jT2iDRN0Dedu8YuJ5Baw3TZJTsTLS08DN0ljW
XxIp6XWAt6/2UvrMQtLrhG83FAWVHSohvW7ob7nmYilSkN5rgLh5uhSZknw/
PfDc67ouJa0K+qbpBz2gmjYwpS1fDYpe/eAt8K38TO5nV8MJuX7wDgYEM6a3
QDX8oD++6V9wdktb75GkIr33EKLtct3eXUF67yF08Kh3Vn0Z6fVCXFLjgGl+
Ken1QU4ac3aNpoj0+iHvmf+c2etlpKeDgz3OG41UUtLTQU2FdZ5gdyHpfYDo
M6E1aXdKSG8Alh0RLoioVJDeR5DMPiQcfE29gzCdEcbqvUu9gxCTIb5XW0O9
Q3BiJPNpey71DoNVWaqpkQv1jsCbzGHxXn8VGK4Th4GihEpr14IK+HwfGVi/
dt/YSZfKoMVwvxhoKZKJQmNLwcswGIUjcwP3ak4VgeF4ziisC2dGfTdHRnpM
NHrCnuzxTEp6TJzsd22Sn7SQ9Ji4coqjhVlHCSwxDIxQm4x+vcMK0jPCY/3Z
fSaTKkhvNE55OerXGG0V6Y3GgS+X3N6iUZPeaJRn+i/emF9NemPw7Y2s1ixu
NemNQemeuFyxB/Uao1K+7FB4IvUa4y7+ldYTIdRrjI92+FWuWFFKemNxdkFj
ovdy6h2Lsf/UBrI41GuCl4LWdM3VUa8JZrKHZk5lFpGeCXqqUwLs+bRnikau
x4wPCstIzxS1TYwZ2euo1wwL3jCiBBwV6Zmhecr53UmMatIzwzTvt7en3aJe
c1zirst8MaImPXNMSnESfmRTrwWqa84Wzl9LvRb4jqHiD31FvRZ4M6k1P8+e
Pt84XOR5aRaXQb3jsOqCx4+/9UtJzxIjZvYu0n7yf+5ZonuHddNOb+q1xN1F
Besk3rRnhTl7YjTcn6nXCu87bCtvPlIBhvVjxsI+D69Vj+arwLB+FrBw8b25
qUt5dB+x0P2i8eVVn37fz/uNhXbdF0xy2tXweZ2xkJndrPDpqCI9a8zMPXoq
XVBBetb4RcpQ/c4hBelZo0vyjtNX20tIzxoVoXX+G+8Ukp41XlTnRaQ/lZIe
G8MLtT5eQhnpsXHqc98w/pki0mPj+/0xF5sOlJIeGzcsbBBn/l1GemzUvmg7
/Uch9dpgvCzYKjVARfavDT6add0q3YV6bdDVNXpJbS712uD4G0MLbWuo1wY/
bL44QV5MvRwcFPAnH+5Wkh4Hox9KfnmrpF4ONve16IS3qZeDU0yTu4Xh1MvB
k44x0n1V1GuLk65Fb/XcICM9W3TVjDxgdVKvLR7pEU+MukW9tjgyvCxg1hPq
tUWnnL216tfUy8W29XfWrEimXi527FCeC0bq5WJQ4N2GrGzq5eKeDwKBYz71
cvHj44NOa09SLw+jbwVHcKXUy0MuL2pZ0gnq5eHUbcLIkATq5WFkriqx2JV6
eVjMz7rnLKFeO7SK0siLD1CvHS5vsIh3W1BMenbIrglgpmio1w7dtwU3XLEq
Jz07NJ3T6LbXsZL07DFrV7RwOJd67dG088mtov//X+0xqDEu9eVV6rXH28EM
57p06rXH6KGpS222U68Dvtp6OHBFPPU64OFzia3f+FGvA06YGKFduZZ6HXBz
f6BkXHcB6TlgcMZdN/EN6uXjMZ/zreIs6uVjbd9oWUQq9fLxwtMjIWPGy0mP
j06/S3sYi6mXj/HfHz8p8qmE/wDFvBsM
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 5.5}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.75982396790044*^9, 3.759824165995729*^9, 
  3.759824342076659*^9, 3.759824514043728*^9, 
  3.7598246809393053`*^9},ExpressionUUID->"e2af698e-a76e-4a48-b15c-\
bbdb9e35a236"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm1", ",", "fz1", ",", "m", ",", "q", ",", "f", ",", 
     "\[Mu]extreme"}], "}"}], ",", "\[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", ",", "7"}], "}"}]}], "\[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[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Abs", "[", 
            RowBox[{"fz1", "[", 
             RowBox[{"i", ",", 
              RowBox[{"1.5", 
               RowBox[{"qcrit", "[", 
                RowBox[{"0.1", ",", "0.01", ",", "2", ",", 
                 RowBox[{"0.75", 
                  RowBox[{"\[Mu]extreme", "[", 
                   RowBox[{"0.01", ",", "2"}], "]"}]}]}], "]"}]}], ",", "0.1",
               ",", "0.01", ",", "2", ",", 
              RowBox[{"0.75", 
               RowBox[{"\[Mu]extreme", "[", 
                RowBox[{"0.01", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "0.6124", ",", "2", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"0.6124", ",", "2"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "0.6124", ",", "2", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"0.6124", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.2247", ",", "2", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.2247", ",", "2"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.2247", ",", "2", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.2247", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.8371", ",", "2", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.8371", ",", "2"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.8371", ",", "2", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.8371", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "2.4250", ",", "2", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"2.4250", ",", "2"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "2.4250", ",", "2", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"2.4250", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.01", ",", "5.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}]}], "\[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}},ExpressionUUID->"7a8b6a3b-3e9f-4c55-875e-\
f719efe387d7"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11nlQE3cUB/BAAUMMEJIQAkHwqgPSOhbrVQfeo1WRKlrRoiJY69GqtHK1
glArgielyuAgosWjoK2oVFQKiSmakMSQJia7omAVEa0VTw4NYJVaE1/+2NnZ
7+zvM7/35jdvd9iy5NiVzhwOp+D1Zbtni6ui2rM2Q8QJOPv3STnIA7c8nFtX
BeWuoQubZyshJGGX2hqshFxThbDp7gX4zv6+BnQb3GvakzRwO8sWGOD6+paQ
i+F6qEgJ5zWXW8A9cCCu2M0ILeW24DIsj1fPOZtrhsHN9gDOhWgHIicxEMGz
BX9B3YiEj4qnspBqW57SCvHTSqx1DSzE1tk2dAuOVdV1DBxi4dFcW9AOT38e
Ivn8NgNbH9qCO/DsiWx3VoUFgmzbD7wLISdqVGWSS1TPP9CWbl0wJs1AXgd8
cy44uuYnHXn3YXwmI2Vuqsl7CCWLbqYsmXCevMcwdOwdD4FWQd4TuLV9UO/N
03LqTxeMnJTM3bpKCb3BtqALNmSdypY+vwANVlvQDXzZD5lBuRooVNuCHqgu
+Ky8cr4eEm3LE55Cd1t14NcBRvKeweodS6yvis3kvX7e5vprMzDkWWFn8JSx
H0az5PXCL5UrRY0alrw+KDedmxR5gCWvH2JHZX4Xc4Mhrx/M6/P5bfst5D2H
VR+odK+cLpH3L5wNPRj222IDeS8gJ/9Y6K0tOvJewqKAVvGuRjV5L2G+YkTc
bvF58gbAPOvXJuMZBXn/QY13RMvyOjl5r2BGVJRTaa4S7MdJzMHIpzG+GXwV
vDmPHJwe807FF3s10G4/XxyU6XoCC5L0EGUPnHDKGr12cpgR7MurnDA0bOjm
icfM5DljbURiwpIohjxn7Jp5GK/HsOQ5I/fCkWVqLQsz7MFbKCq+Urt2P0ve
W1iT4z43+CpDngvm5OV5TtxtIc8Fb6zWRMU+NpHngmsmBySFTDOQ54odleXz
PJN15Lnizjvay4ln1eS54YK06ATh03ry3DBzTukJl3IFeW6YN3ebLL1eTt4g
PFNRGO5VpiRvEKZl3tvcGaQij4snp1/wrq3SkMfFja05pUm5evK4GH347qcv
oozkuWN3YY/rYqWZPHfsFIcFXZ3tqJeHXSJZ7tJYljweHh17z+OIztE/Hr7v
3nJu615H/wbjvK6U/m4zQ95g3DFuJScv30IeH4VTPYV7Wkzk8XFzR7q2bIyB
PD72TcnYgAt15Hlgr4iVRBxUk+eBJf17PVqZevI8sZ7h76krUpDniSNfiO4M
1srJ88TQgLzOf2qV5HmhZ/NV7qZxKvK8cMujSolAqwH7+OEJcM/x6ckzSvVg
Hz/hAqxuDQirTjTSPBLgyNT5f682m2m+CfCetuxURBwDb8aZAJldAzomjiXP
G7NXhLulXmTJ88Y+revsHcWO+eaNP55RFFY2MuR5489NVm7DJgt53rjOq2Tj
nw0m8oTYuajjOF9qIE+I3385JSQjUkeeENNMbfvG5qvJE+LHV4QTrafqyRPi
u2vc2+7nKsgTYerDk23vGuU0f0VYz2koCrysJE+E+z63No6OUpEnwqRjnS9T
rmvIE+G0ZcGuw0/pyRPjoZ4IJj7dSJ4YH5+8cmD5bTN5YmwKPqwrSXTUK8b/
DLHnxyxmyRPjV6osr1F6R/98cMgjc9y6IpY8H8zYl+Yd28CQ54NHVYVD+zIt
5PngtuzarJ4qE3k+2L7cwl3nZCBPgjllX8w/PVpHngQjakpx/Ldq8iQY7fH7
q/jCevIkaDHdmFmariBPgklzpomuXZaT54tjpuZzf3+iJM8XnTcecX4cryLP
F5OCd77/V7eGPF/ckMwx9Ov05Pni0pLA9f3bjeRJMe3ug8gZVjN5UpzQJ4hr
X+GoV4q94y8ty/iMJU+Kk9iGIRq9o39S7Aodp47Z5eifH+bxkuI7lI7vqx/2
Fm0TBqVYyPPDYeOPZvP2mcjzQ/1C/ifXHjSS54eNRYVbu0U68vyxz32p86yl
avL8sWntM6lXSj15/tgm1o+6uEJBnj/WVKeW8W/IyfNH3vBO7gneH+TJ8O0d
++ddXKsiT4azvjYUzORqyZNhp69Aa2x1/E/IsKDDZ1X+ASN5Mvyk7j1/vosF
/gcgQBFk
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HtUjHkYB/BpTNNdzaXpRrEnp9wWucbqeUQSsirXYt0OhXXcO5S1yyLR
UVbOSUpUjmEzlTY1TdeZrkyai0sIuZRLqdA0lbBmPO8f73nP+z3v73N+7/f9
nWf4+u3BG9ksFivu+2W4Rwsl/s+jjsBPCdwAb4kUpK5H24IKJeAQK4ksXVkM
I1fFy3WexXBj5ihxoq4cDhjfr4TevzYqCo9XwosoQ3ALFt23uHB+Sy1k7php
+SBDBU8aPTt585TQmGEItBBTNqjpZHMDWD0wBnByuBnHJ1oNPpaG4BGUyZLS
IjI0sNOwfMcT2D/90Bi9nxaCCw0baoZv1Z2ZLwO00B5kCJ7Dq6m3Bg5JNHCs
zRC8BJPNTdf0J9XgZti+awtY/JYc2MVR0fe0gn77nqTpkUry3kDezRGzspJr
yXsLLXrb5pCCSvLawIav62K5VpD3HjrMFeXd8cXkdcDxvA0LfaVS6qcLxnIm
mkJBEfR4GoIu2JAH3m88ykChMwQfINq6D14/lUOC3BB8BN+5Uy9mXa2G1Ybl
qz5Be86yyMrTt8jrhprXw6KuLL5DXjeM9Q7kRd5VkacDdsoucxirIa8HLq6t
5ubZasnTg3hvX0XkKi15vcBnN2/P5WrJ64UpYWMXiIdoyOsDh4OFF/xKVeT1
w6ScAHHTkDvkfYa9+/65bxLK7G8AvibIcmN2VpM3ABsazln1XJOT9wWeCryS
ht8vJe8rxIckKptPFZH3DS4+y+7xqpOC8TgJWShesUZUpi6GH+eRhfyeA2nc
RRXw3Hi+WKioWrPJt6MS/I2BCQ49ffe4vbYWjMslJrhmvOjt1CwleWy8YlNw
mj1URR4bUwsFMxenqcljo+xISK67TAPzjMEgTLEZs5q7SEveIJwwtP7yS9SS
x8EzUSaTBs5qyONgSnBEYFA443EwPLnVPDO7gTxTnLJr04ksnpI8U4z7qMv3
9Kolj4vWf7A9vYMryePiER9Wy43qcvK4OOdwZ4j/kGLyzHDciHiOb6aUPDMU
eryOPmghI88ck4+9faVUlJFnjivnfkp1QAV55ugh57s18mrIs8C+YettrvTe
Is8C790e55qTfYc8S6xNbR72cIDpzxLtn61M18/XkGeJVW+WPnJx05Jnhb9f
ejBHFMb0Z4VS760lVd0a8qxRKtw0on9ATZ41div7o48kqsizRv/aafs8iuvJ
s8HeZb3L936sI88G38dVwGOLavIGY0B7TmrLAjl5g7Ekxs50/+xS8gZje1ha
4NMFReTZYtu51n63TqY/W/QrvC7dHFQCxvFjaYcpsRfCd4grwDh+Ztph3Ipm
7p9Lqmge2WG8Pzs2YkYdzTc7fOFTeTXWth5+jDM73OygWsgKUJHHw3/7poX6
ydXk8fB8Ysuv69TMfOPhqqr/Dgcv0ZLHQ/9fRmk8pmjJ46Ft/8sIswMa8vgY
8iq2Jm0W4/HRe6JeZ7mkgTw+JgbE3NySdZs8Pkr6y1XpdTXk8fFynZ8Tu0NB
ngC3CbaIMneW0/wVID9p5MIPOTLyBFhfPHpveLKUPAGa+mVHj94oI0+APR92
LzjrVU6eEEtm/Z0Tla4gT4hxJoujJ0fVkCfEoVuO7metYfYnRIXHZ9/jNg3k
CbHtncel+e5q8uyxJFT+ICxcQ549jmI1KRvHaMmzR/drn3zalzP92eNAz+xW
3+ca8uzxaFoER9jEeCLUpSq62zeryBNh6ER4sTu0njwRtqWOyj5zgvm/Ilzm
Vep3Kb2KPBFeVwVKNnZUkOeAF+89Wrq8oIS8789lruzRgiLyHDCoeFtXvVsR
eQ7o7P543+LGEvIcMPnUaJmYIyfPEWfEr/sSIqsizxHNb3waeSijjjxHDIoo
rdXtrCfPEcU5n9WT96jIc8TcDcusBa+Y73XCemWuv30r058TDg+oSmlcwfTn
hIf1+ffzRzL9OWGNZx5LspbpzwnDE66lv3dmPGfc6ubm4qm/Q54ztkcc/jlm
7m3ynPHvrPjz49bVkOeM7G0rzyhPKMhzxl3CA+PZbsx5ccHtGas/hi2SkeeC
45fnvys5LyXPBR+FNr1rrpOR54ITVltYNRwtJ88FxQ9d0zpNK+F/TuwPkw==

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HlQU3cQB/AYIEACGELCEdAWEQURW4YWa1F2W7VgETVA1QoeSLVidcQy
0lZRiwW0eKHihbdYb6EeLYZDQwISgpGconhwqFiucgkiZ5u4+ePNm/nO28/8
fvt21n35uvAVTAaDsev/x/DexM8JrtuYAv4lx6uDcsUgHp3aLLqdA4keNzKD
NxWCd/ReabdXIRTlOgr2eBZDkvH7EpDobh5MqymB+o2GQAF7Jo+6pW6Tw7n4
aeyqbBXEpp8087JSwqNsQ6CFbPem41E/q4BTZQxg5cyykIipGghiG4JqKJoT
UMP8WwvrDeXxz+D8sQ3pU8p0EH7bcKBa6H6auDZunh5aRIagDrxC1ljenaqH
tGZD8AJWLvml7+e9OvjAcPzRr6DM855yd4yW7tMALP9Pv+jVqMn7Bw7Vv/Z8
yFCR1wgZMRcfSa3uk9cMm3+/pL/WUkZeK6RZfHyE0ygj719Irzh1cjBSQv1p
hycvDif4bCiAHi9D0A6ZnZX+d7PEIOs2BB2QLJrzVqQugAypIeiEM42diuVn
JLDYUB7dBay3VlnpM0rIewNjPgrFTWFy8t7AdzyJW8aq++R1Q65ssuKxr4q8
HnBbtzHjWZ+avLcQM0cb/ihZS14vdMqnDnz5h468XhhrobSePFNP3jv4KufC
5Ylf68nrg/iWE9zwmzry+iE1uOmlx2GTNwC+21ccXyvQkDcAtSP8X/SHqsgb
hOG53pe6Lt4nbwjqt0xnqvfIyRsGH8vr1//cVgLGceIzsH1CYuyAXgLv55GB
m6IW/5DgUAh1xvliYF30TlHzKTEEG4MRmPTTgtN+gQVgLM8ZgTbbW+Tnx0jI
YyIPasU1V2TkMbGmtONl2pUy8pi4eN/6oyPkFRBiDMzw7OOFQwdKKskzw6XX
PBskeWryzNGclzkmIlRLnjkmHdHtn/CrjjxzFLk1TAoN0JNngfMahn99EqEn
zwKbDzFTBrU68liYd5QVHqEweSxcHfV5vd98DXksDIjozGcfUpFniWG5+Z+5
hijJs0SGSOwR5FdOnhUm2u7Ykjy6lDwrlPXPWOMbXUyeFSY3tW8eKikkzxo1
y7w/uXVHTJ41urnPjgrJzyePjb7Tm093Rtwlj40Ts74xbxTIyGPjkpf7e/zZ
ZeRx0JPTEXZ1XAV5HNzqrnNL9akkzwYrd3JCHBPU5NngUa9Wu308LXk2+HrH
0lS7hTrybPFzj81tf3mY+meLu/rPjy/+Vk+eHWb7Tetb0qEjzw4DD5hJB/tM
nh02jq+Z43NQQ95I7GljiVqeq8gbic+mcW9xGpRgXD9sLtpnnrMr0JaDcf1M
4+KofZHrPAtLaR9xcVlMThjjdTHtNy7eN29iL9pRBO/XGRenSNlnC3rE5Nlj
EMdDWT03nzx7DPz+YqRZ/B3y7LEoj7GF+5uUPHus7ch+VxJ3jzx7nFXn0i5J
UZDHw/qzy/tvZDwgj4eTa1HfPVFNHg85F5805FRpyONhhMg12dZXRx4PT0dG
n0y31ZPngO/8m2OqovS0fx1QLptvH83Rk+eAJ2vS3Cy8deQ5YPu3eQLUaMhz
wOk/jbuQPk5NHh/X3WxPPLrtAXl8/OKVY5d9ooI8PlomBMpCo+6Rx8da6YGK
tg1S8viYN9ufJYi+Q54ArylWX18cnE+eADOHEmotB8XkCfCqi9eO51lF5Anw
VsaApbyrmDwBplnPLt+qKCXPEatXZZ2Iry8nzxEzmq6EhLxRkueIbT68NYmv
VOQ54s1YIUueZbqvI4Y1KS7MHNaS54TW//wY/7xLR54Tyq/5tQoXmfrnhHWd
3L5qdz15Thi7k/n9rEjT/3DCy1PG9ETYmjxnDPgwqVC5Rk2eM/K9T4UeGlVJ
njM+Xj4rzsa5gjxnnOCUtfp8v2lenPHppDL5ZisZeS74tpVVJQm6S54LpgSa
j/wrN588F3wq3BVbKBWT54Jj4xoWdOkLyXPBra2nAnavKiZPiPc+GGLfmFhK
nhBnMc9GdUA5eULsfH7k6o/zleQJcZgpOJZ7XEWeEEPjHtn2RmnIc8VE/kK3
hw+05LniGW2FUPFQR54rCkJTD++ONPXPFU+we21KP9GT54pvVl6deSVJB/8B
i0sScg==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11X9UU2UYB3B+jAFj4sYG2xiCmCT0Qw0tM6PnQUMsPSJGJ0gyJJvFUVAS
cmhiqHiiQhRREYijqEASikj8hhCY4vg1xn4qyDIJIhVRQAUiN5/9cc8993vu
+7nve5/3PK9nZMz6L60sLCx+en4Z77v5xYGGhAMQW+IjFpRUQqX7waHgimIo
7Nl+mFNeAz7hh6+OeteALNmhjyttgD2m95uAJy088GZsM/yZYAxuwIN3zgsC
Wlrg7HY/liavE4LClqsG32wHbZ4xUML1jW991xugAAeNKYBzSysut36shPdY
xkAP2V05Vo1+KthhHL69BzzmLF5xcFgN6yuME+qD3MRahuVGLfwbbAwMcKJr
n+jtHTpIHjIGd6BsX1zI61w9eBin734XVrSyeGIfPa2nH1aWV+s/LdORNwAB
+rzJxTKzNwhFv/EN6Ts15A3B7sSm5Dc0KvLugTx5Ijt3WknefXjkFLlLNqGg
/zMMOUXMRN2lDhjzNgbD8KhAFt8VKIfGUWPwEGaHbwn0vSODtKvGYATuZYZ6
n6i/Cp8Zh4c/goGBw8ebU+rIewxL+odto/2ryHsME2U3bX1dqsgbhVnZv2Ru
FteRNwbVf3ULhHFmbxyYFSMNIWky8p5AU5bk+WdvkPcEziTtX9kS3kHeU9gf
9D7zqFJB3jM4u8GraJleSd4ErJ4bdSWjTEXeJOxexbjw1yca8ibhpR364IcX
teRNwcYPp8Ij8nXk/Qd363476eOlJ28a8l/7otkg0INpO/EtMM/6WWfa9zp4
sR8tkJllt3B2vBYMpv1lge95CmecdtRAoCmwxLabyw59G6EC0/BiSwyOOurI
3KMkzwqV/gnHCqIV5Flhybjo3JGUdvKeP19Ir//I/QasMgXWePn+oM+pxmby
rFE6Na/dUN9AHgPXZebeKhbUksfAYb/a2KnmSvIY+A2r9uTJa1Xk2eAP9utC
pJfqybPBu3Webc7fNZLHxOlTYVai0mvkMfFB69eMQLdW8pj4OCbraCl2kmeL
HP4KiffnXeTZolDUknpxQzd5drhU7mjY66Mmzw5DDg9bzq/SkGeH2ZKv34UJ
LXn2KM1YvMBdpSPPHp92DYXtXGCuBwt5TeuVs6bM9WCht7zk+KUAHXksTPxA
nVrtYfYccHnv5ihtnpo8B0zzkyTZ9Jvnx0b2nPnfZ492kcfGZ1uelp263Uke
G6WbPP6TRraRNwM9p23iBkevkzcDJUvW5NcUNpHniPJHGZ3s9j/Ic8S+xpLX
rG9Wk+eIex2zei9lVpI3E3s/ORGwtb6avJnoyw/fEFn+B5jaD4uDHK8PYi+n
NoGp/fhxMMPZbe4C3XXqRxzcyrnzak5AG/U3DlZ0MuSZik540c44yG2WnJQM
dJHHRXVc4ZZ7um7yuFj0Eufikkw1eVzco2EHWgu05HHxdoZ/xk7QkcdFaTwj
lPFMR54TBifkRDx4Xp8XnhPaP6za7KrTkeeE06tzUxdZ6chzwm+37Uvf2agh
zwn/OZbs9vNiNXk8rFnxK9ftq27qvzz0P3uGlbO1izweOmZtSLy1tpM8Ho4P
jdu8s7SVPB72FHmFp3dcI4+PLf5fhgSdaCSPj7l7x90W6uvJ4+MZ+4iF5beq
yONj/O9B7fPqKsnjI0eecCR8rIY8Z+QmLTp0Jb+BPGecZTXZO5DfTJ4zLv2w
b1WM5Q3ynPFi0dDbmm3t5DnjLe2FPGWEgjwXTBl/ssopxnzeuKBUouovDzGf
Ny74t91e2TcMDXkuGFrxuc30Ni15Lti/uowh3GOuhwBzTyvsSp315Anwtpft
tsyX9eQJMCXamv1WkbkeApQxe3all5s9AUYUnkor2aQhT4hlSUc82Q0q8oR4
7kCO6km/kjwheh8LeuBvUJAnxJhS70WR0g7yhDhWa+GdMlNOnggPzHFgxBXJ
yBNhfEHp2NrUq+SJ0I39z0Q71pEnQtG9rJsL5laRJ0IME6ttfavIc0V3Ve9H
uzbXkeeKy34ZYfqcN3uuGPrqcuaUTEaeK/55/ONS9Sty8lyxIPrXjDXHOsgT
Y+AXSdGe9xXkiXFS8UrpwxHzesVYLqn06JCryBPjj4ZAniHKvJ/F2KttHrlS
p4X/AUPuE6Y=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0.5, 0, 0.5], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11HlQE3cUB/AYDrmMSQghJCreeCKtoLVA31OroFNxuKxySMFaaZuKRasU
vLVWqaJQOqAog+WwSKGitAgi0mAVUQQBCURCkt0ARaoFRISiWBMff+zs7Hf3
feb329+bNyUiym8zl8PhHH9zGe5xogIvXexhGNIIi3hFJVAy6btu36sF8GPU
u1fVouswO+Sk4vmsMiiMDvMfev4n7DZ+fxOsQzDOFm8BE2sIqsGVU3HgGVMN
Wds8rZSZdZBeebM1KLUWmjMNQQO8133lKUysB2ulMYDrq5W/TAhqhA+sDIEK
iuYv+q5mdxN8bSjfpoZHERa1Uw42g99Vw4K0sOpL+aYLkSr4x9cQ6GC1pk1u
6dIKR7oNAQteEQ/mZjerwdGw/EntYHLXvs9zk4b20wFzPV1awiO15P0NpoHX
OwQCHXldcEfhdJr3q468bsi/PS746BKGvCcgLAjcHlHCkPcUvp9wQW45l6X/
0wOffeNzcMkJFgZmGYIesC0qf1GiZqHyuSHoha5k34VuDno4pTAEfbAlZ+jW
WXc9hBrKQ55B+mHuD2eW6snrh/p0ftr+OXry+iEmf3i9YnDUew7qiMoVYZdY
8gYgd6u4TRDIkvcCBGNM7h3pYsgbhIg8ybnQKIa8QXAf0/Xg804deUNgtX15
SZ+vjrz/oM1/oztboCVvGCb5uOiVwxryXsJu4DxbsqeNvJfAD80OG9S2kvcK
0kp8dyye+Yi8EVCogj+N/KiFvNdg6uZx+Li/EoztJOKgZfgqdaLHQ3jbjxyM
TaqKVVk2gM7YXxxMcHSKEFTUgZcxGIP7X/0xwbX2HhjLC8agZNerp+cnVZHH
xYHY/JELWZXkcTGoT7juzqkb5HERsxb32saXgrcxMEHvr1xqz4+UkGeCLZ2p
29QLyskzxbRjjjOayxTkmaLNys5gpeNt8kxxWfutE5ur75Jnhrtcp6csgDry
zPBKtDjA7EQ9eeY483rx0cV/NZJnjnujZjnvYJrIM8ekjJ6EHl0zeWPRNVlS
GKdQkTcW1SYi3uNDreRZoB8jzi+c2UaeBYZVCuN+ztOQZ4HTgqILlce05Fni
zj8Lp2oX6MizxBz3+0PLqnTkWSEnIHTrdH+GPCtMrIjJDahjyLPCnqDWDdOA
Jc8aw3x4ZtPSWfKssXvNRof2xyx5Nnjp44xruil68mzw6xNr5RagJ88Gt33Q
yN305vmtNw73N9507pyqJ28cTstU5e/5Z9TjYQ2nw2lRBkseD2WTTXamL2XJ
46FYP2A+r4EhbzxmmZmV+65jyBuPG791Lqq8qwPj+LHi46yy8x8WLdSBcfx4
8nGgaelDToKW5hEfNwS8aMss0tB842N/Wgcv0qUN3o4zPr7jXzw+OKGVPAF2
59z5Pq9GRZ4A7a+NO6x90kyeAB9UhJ6Z/G8TeQKMzZWOJNc3kifAV+HlS16e
qSdPiO8eqq9NXlNHnhATM4Y27ei8S54Q+fEzBiQet8kT4gr3/YpVTQryhDj8
2cmkuMBy8mwxuzhuvK91Kc1fW6xxa1pRuquUvDfvA4tjarbcIM8WZVsmXoqO
ryTPFhWPo/gybhV5Ioz/1MJh6uV75IlwX9W5grLCOvJEGFJ2fP3IcD15InRD
RzZgwUPyRHjoZeIhEy8leXao6vUzPYct5NnhVn6D+zzZI/Ls8MZef/+8plby
7BBVv+3J2T56HnZ48duqZYN9GvLEGDDfVV59UUueGM1T4w46++jIE6OlU4xy
kNWRJ8bckineKGfIE6N8Y6dnRQdDnj3eSPDxzvVjybPH5cOpKeEFLHn2OEfa
GbP8BUuePa6Srrx4eraePHtM2nUsL/zNvH/rSXDNem60xENPngT9Bq1TPpbq
yZPgwCPXtV9oRj0J9rdOlHxykiVPglX70mx+ms+S54AMzz7Ru4whzwF7l7oc
qPRgyHPA2PY1D87+NrpfB1wv74p/JtKR54CXMyLLUuVa8qT4/vD9I8FyDXlS
zMoO2RHDqMmT4sVMX1XK+6PnIcV9ioWl/dtV5Enx6LLaJOeEZvJkmJJlpUw+
1kSeDLNzuYsStzSSJ8PiYMlMr7mj/SLDwfntec6/15Inw0JBrxv7uhr+B3Gh
E04=
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 5.5}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.759825566661974*^9, 
  3.759825779265274*^9},ExpressionUUID->"f071b5d9-52fc-4845-8327-\
01cc0e656fbb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm1", ",", "fz1", ",", "m", ",", "q", ",", "f", ",", 
     "\[Mu]extreme"}], "}"}], ",", "\[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", ",", "7"}], "}"}]}], "\[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[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Abs", "[", 
            RowBox[{"fz1", "[", 
             RowBox[{"i", ",", 
              RowBox[{"1.5", 
               RowBox[{"qcrit", "[", 
                RowBox[{"0.1", ",", "1.2247", ",", "2", ",", 
                 RowBox[{"0.75", 
                  RowBox[{"\[Mu]extreme", "[", 
                   RowBox[{"1.2247", ",", "2"}], "]"}]}]}], "]"}]}], ",", 
              "0.1", ",", "1.2247", ",", "2", ",", 
              RowBox[{"0.75", 
               RowBox[{"\[Mu]extreme", "[", 
                RowBox[{"1.2247", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.2247", ",", "5", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.2247", ",", "5"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.2247", ",", "5", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.2247", ",", "5"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.2247", ",", "10", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.2247", ",", "10"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.2247", ",", "10", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.2247", ",", "10"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.2247", ",", "20", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.2247", ",", "20"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.2247", ",", "20", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.2247", ",", "20"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.2247", ",", "25", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.2247", ",", "25"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.2247", ",", "25", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.2247", ",", "25"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.01", ",", "5.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}]}], "\[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}},ExpressionUUID->"124875a8-5328-4207-b846-\
1873bbe8b71d"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11HlQU3cQB/AYIEACGELCEdAWEQURW4YWa1F2W7VgETVA1QoeSLVidcQy
0lZRiwW0eKHihbdYb6EeLYZDQwISgpGconhwqFiucgkiZ5u4+ePNm/nO28/8
fvt21n35uvAVTAaDsev/x/DexM8JrtuYAv4lx6uDcsUgHp3aLLqdA4keNzKD
NxWCd/ReabdXIRTlOgr2eBZDkvH7EpDobh5MqymB+o2GQAF7Jo+6pW6Tw7n4
aeyqbBXEpp8087JSwqNsQ6CFbPem41E/q4BTZQxg5cyykIipGghiG4JqKJoT
UMP8WwvrDeXxz+D8sQ3pU8p0EH7bcKBa6H6auDZunh5aRIagDrxC1ljenaqH
tGZD8AJWLvml7+e9OvjAcPzRr6DM855yd4yW7tMALP9Pv+jVqMn7Bw7Vv/Z8
yFCR1wgZMRcfSa3uk9cMm3+/pL/WUkZeK6RZfHyE0ygj719Irzh1cjBSQv1p
hycvDif4bCiAHi9D0A6ZnZX+d7PEIOs2BB2QLJrzVqQugAypIeiEM42diuVn
JLDYUB7dBay3VlnpM0rIewNjPgrFTWFy8t7AdzyJW8aq++R1Q65ssuKxr4q8
HnBbtzHjWZ+avLcQM0cb/ihZS14vdMqnDnz5h468XhhrobSePFNP3jv4KufC
5Ylf68nrg/iWE9zwmzry+iE1uOmlx2GTNwC+21ccXyvQkDcAtSP8X/SHqsgb
hOG53pe6Lt4nbwjqt0xnqvfIyRsGH8vr1//cVgLGceIzsH1CYuyAXgLv55GB
m6IW/5DgUAh1xvliYF30TlHzKTEEG4MRmPTTgtN+gQVgLM8ZgTbbW+Tnx0jI
YyIPasU1V2TkMbGmtONl2pUy8pi4eN/6oyPkFRBiDMzw7OOFQwdKKskzw6XX
PBskeWryzNGclzkmIlRLnjkmHdHtn/CrjjxzFLk1TAoN0JNngfMahn99EqEn
zwKbDzFTBrU68liYd5QVHqEweSxcHfV5vd98DXksDIjozGcfUpFniWG5+Z+5
hijJs0SGSOwR5FdOnhUm2u7Ykjy6lDwrlPXPWOMbXUyeFSY3tW8eKikkzxo1
y7w/uXVHTJ41urnPjgrJzyePjb7Tm093Rtwlj40Ts74xbxTIyGPjkpf7e/zZ
ZeRx0JPTEXZ1XAV5HNzqrnNL9akkzwYrd3JCHBPU5NngUa9Wu308LXk2+HrH
0lS7hTrybPFzj81tf3mY+meLu/rPjy/+Vk+eHWb7Tetb0qEjzw4DD5hJB/tM
nh02jq+Z43NQQ95I7GljiVqeq8gbic+mcW9xGpRgXD9sLtpnnrMr0JaDcf1M
4+KofZHrPAtLaR9xcVlMThjjdTHtNy7eN29iL9pRBO/XGRenSNlnC3rE5Nlj
EMdDWT03nzx7DPz+YqRZ/B3y7LEoj7GF+5uUPHus7ch+VxJ3jzx7nFXn0i5J
UZDHw/qzy/tvZDwgj4eTa1HfPVFNHg85F5805FRpyONhhMg12dZXRx4PT0dG
n0y31ZPngO/8m2OqovS0fx1QLptvH83Rk+eAJ2vS3Cy8deQ5YPu3eQLUaMhz
wOk/jbuQPk5NHh/X3WxPPLrtAXl8/OKVY5d9ooI8PlomBMpCo+6Rx8da6YGK
tg1S8viYN9ufJYi+Q54ArylWX18cnE+eADOHEmotB8XkCfCqi9eO51lF5Anw
VsaApbyrmDwBplnPLt+qKCXPEatXZZ2Iry8nzxEzmq6EhLxRkueIbT68NYmv
VOQ54s1YIUueZbqvI4Y1KS7MHNaS54TW//wY/7xLR54Tyq/5tQoXmfrnhHWd
3L5qdz15Thi7k/n9rEjT/3DCy1PG9ETYmjxnDPgwqVC5Rk2eM/K9T4UeGlVJ
njM+Xj4rzsa5gjxnnOCUtfp8v2lenPHppDL5ZisZeS74tpVVJQm6S54LpgSa
j/wrN588F3wq3BVbKBWT54Jj4xoWdOkLyXPBra2nAnavKiZPiPc+GGLfmFhK
nhBnMc9GdUA5eULsfH7k6o/zleQJcZgpOJZ7XEWeEEPjHtn2RmnIc8VE/kK3
hw+05LniGW2FUPFQR54rCkJTD++ONPXPFU+we21KP9GT54pvVl6deSVJB/8B
i0sScg==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11ntQVGUYBvAFBVwEhN1l2QUHR8Ci1EwBKxHeNxVF5eJ6zVAyBDWtxCYl
3ATxglEYhfdLxowaBkEqaSwLy97ZPce4qWCoJSyViBjIRUAutet7/jhzZp45
32++55xv3jmTE7YvT7Ln8XjZ/1/Wu1xUvKh59wH4KrqgLeVHBSh8D7bLSoth
zuP3G2aXKeGVdTna3sByiI1RrTkxTg2f257XQ1P4GVkzq4WW3daAAeFe7QcJ
xQa4kBzm3Hi+Fkok07Jil5ngznlrcBO8JlXE7nqPgfGNtgASzm4z7jzKQriz
NWgCTZNL3p8qFnZYlyffh0m7rm7MbGRgeal1Qw+g/15IT9cYMzyWWYNmqGtJ
urE90wiZ7dbAAuFFM04sLNbBJOv2ff+C4XvqgAkNaurzN0RP9I/46W45eQ9h
V4PdofphBXlt8E1bWGzEoIK8duBnDYbG1peT1wHtxxpFmhrOewLaf3+6kZ6v
o/fTCa5Xv8zx2muEvkBr0AmlT3yfsiMm0PVagy74IOYPJ7zFwDdaa/AU7A0N
PoMVLKy3Ll/XDUlXomWS4yx5PeC2g6d/dyNDXg/sK5sZZlnFeb2wdLqqqvMX
A3l9UHrpXM25ei15z2DzhLa4bDc1ef1QvXjWmolaJXn9kFPUKeoqUJA3ADuS
JxaUZJeRNwjyRUs6F4tV5D2H9Q/jko7lacgbAgfF9u9d9uvJG4IzU9xqLYur
yBuGgw8OY/I5M3kj4PTunpkLg7m+o9ChrGtbUsOC7TiJeOgfwMYoV7Hw4jzy
8F7V7eind83QbDtfPHyrR7n479NVsMgW2OGCbjbh0n092JYX2+EXERvaPx7Q
kGePnXODpw3lq8izR5+V103X7paRZ48F0vwPc84qINIWjEHLy89maeOU5I1B
yZX4w4fSKskbi+lDOumTFC15YzG7vTFBsM5A3lhs/NKlMJ9vIs8B5bfSg1ZP
Z8hzwHkDr2ZMTeP6OmLF7/5xfiauryMKY3aOV48w5Dniis9KVvDnm8lzwj0l
C8LH3jaS54QOrnci/rDXkzcOZW/y1x6aoiFvHEaWs8UOKyvIG4dnD+tCE2aU
kcfHUfvgSyE3FeTx8VEBb0PPhnLynLFOFpdWl6Emzxk/TvSLtCzXkeeMuv4u
cfjrRvLGY+SWAKeVFSbyxqPcpTm35EeGPBdc1dEy485lrq8LjpwPPPndJZY8
FzS5CWq25DLkuWLK7tGT8tOc54p2GWVnVjkayXPDOSkdqf0v6chzQ/9hw9Xu
tWry3HDQ4i/X/z+3XngTkN/9wP2Wlus7AQvX5eS2RJWBbfw4u2P6Ne/mnqMV
YBs/Ye64IrDvyLJYDc0jd0wofBKse01P880dN7UdeXP1sBFejDN31JmfFj5M
MJPngWkYMtTiwZLngYny4JqDLDffPDBUPpg8ZwdLngfWX+lKDhYw5Hlg3Z2D
m0Nbq8gToDm198qYmQbyBLhQVvT1/igteQI8oGKyR4IqyRPg7ctd4pvTleQJ
MG397tHWUwryhFjyRtSs5Q5Kmr9C7MaoG/6dKvKEeOArn7R9AVryhHg+pvoH
Pt9AnhBPK82OIRpufyI8tHbvWyn9ZvJEGCSXHU5O5PqKsHq7Zpv5N66vCPtu
GuJr/VjyROhoOrKzNp17f57oPL/m36V+VeR5Yv4SwUdRa/TkeeIn7b2hobs0
5HkiK5GkbqqvIM8Tiy7yMjZv5b6vGM+8veW5+LqCPDHGMgH+mX1K8sQY7uLa
kRaiJk+MFxNP+W8Z0ZInxoVJqd+u+dNAnhdGRAZlGFJN5HmhYaC16ZXPGfK8
cOqBvsTAPK6vF15bFBZ0+leurxfmCu3OZaoY8iSoKr3Q4Hqf8yQ40DqzunK1
kTwJzn3Am5cl15EnwXTHiExhvpo8CebVW54fPV5OnhQLYopkla1cXykGWy50
xIvLyJNiYbw0ZKu0gjwpZuV6MtNHOU+KvvEjltAmHXne+O1Rc/jWn43keaPu
YvU8uylm8ryxdqlk49LHDHne2PbO/Ud+eq6vNx77oeOfZVkseT74qeNkX2ME
Q54PBiY+MjRMNZHng5fn71mh2M/9T/hgSDR7a3Ye9z18cNOyN6Rp+kr4D/pp
GPA=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11XtUzGkYwPGUxtRUapqmmWlPkaJ2sTarJdXzIKKQypojFWuFXCphoyLt
Vi7dtFgJyalFtIksza2Z+dWm3EIqQiqtjVwGRSm1ZnrfP+bMOc+Z3+e8837f
8/5Gr4wMCNPX09NL+/LRfsfxir1bY5NAHMpJ6T4pAYltcqd/WTEIFxQ9qJZI
wTk4k+l2kkOzszA9j6WAeN3vK2HUjDmNhQ+V0BarHVyDCpe2b6pmqKEgysO4
Mf82+Cvcpr51YeB+vnZQBy6XZQPL0xngNOoGUJ6y/WmeBwOextpBE2TMPjCy
abEaNmkfj3oMN+Jsi50MVRBQpl1QC0wtGNXR6aKAl/7aQSu8Xx954GajFFI6
tYOncLznxkHHMxKw0y7f9l8IF9lVmBhJyf95Bitq3p8e80BGvA4YtWhng3dK
OfGeg8Mz/+gJRSridYJcc3+0X52aeK8gRBwv99jGEO811DqkrkuNYcj+aICJ
TM4MvaOGD07agQbmm7YtCy9UQUW3dvAW+uo+3w/cVQ77Ge3gHUQNcG0878kg
RPt48Hs4nvEo708W3e8uSMo+FmZaKCFeF3TcmGdf+lBKvG7wWuY298BUBfE+
wGQVp9aGrSLeR5i/MbbAQ6wmXg9MqV+6Q+PJEK8HuOyg9YFfegx5vbBpUolD
6ncM8T6B5+N3OwNBTbw+UPkmVcnqlcTrh6/5A7+ZDFMQrx8+vgqIsLhM1/cZ
NFGz3Xy/nKchbwBkidwxcXZS4g2CsLSyZK6hHHTHiaeHbXUCgzmychg6j3po
1ej7PqNSBa2686WHZ6cAOrerwVs3GIZ3qwXhb3cwoHu8eBgebhAnNEcxxNPH
Kc8Wy1RKNfH0cebkJasL9lNPH8fvdmSl+pbDXN3AAE+4ZFuGFcqIZ4DpqrKs
sHcS4g3HuKJels9FCfGG49YLiRNdBqXEG459OU0+zusVxDPEF9f23XOzVxHP
ENfUJFU7bVATj4XLY+Ly7HwY4rGwPtFVtjyNIR4LJybLnAsdGOKNQH7XZg9v
ZzXxRmDu+PDpHXlK4rFxt9Ajr71WTjw2Lp33h0HfIbo+Ns5aqG+Wc0xCPCMU
H33Nqf9BSjwjjI1OLE12oT2MMWKpfsBPGtrDGBv1/uZnPqL7Z4ycWse7C7rU
xOPgi0XZLcyvtAcHV2TbzAsMpz1MsCu8zG3bX7SHCR7hXHqSHkM9E/z9XIuj
oTXtYYr2mnW+NQm0hynmut5aNraF9jDD0BdVb04paA8zfFj6xN3VQUY8MwyK
6en0y6U9RuLV6R2Hnd1pj5EohLELEnepQXf9GJtjS/TF5rjFDOiuHw9zVAUf
rk/ex5D7yBz9ctunDfIZcr+Z4zUHn/FyrhqGrjNzTCsquv/feiXxLPC81Cgz
5YSceBao8l+TkB0jJZ4FRrKvXLXMkRDPAoPla+eYBUiJZ4EnSo/cqF4hJx4X
xxnmntrjqCQeF9dWO4wc16UiHhcbZhlllRnQ9XExvkDcV5LCEI+L7m4aq5cr
GOJZYo3X9Kn7ctTk/rXE7ZsXiyaEUs8SG4w8c+raFMSzxNXmP2+LE8uIZ4kt
K/8J19RKiMfDK/vMp9lelxCPh1uKmyPO+8iIx8M1Kz+ld9+hHg8nOjUdbvlR
RTweLvllz60ZB2kPKzzXeDBTP5S+H6xw3JkPh6p20x5WWPf9lp1ZbPp/rVDv
wuXOsj7qWSG34+K86660Bx8D2cKvhkfJicdHO2VnwMcg2oOPtw9WhEiO0B58
3NHeuFEUQXvwkTU9o2Uwk/awxijNhqKzQUriWWNCTn67H4e+v6xx4W030zAu
XZ815iZkFUn30h7WGHTmxKZzYtpDgBmt+av6U2gPAS7vtRvY60V7CHDUu50S
9nm6fwJMrl93Mm0S7SHABeGnT15X0x5CrMnnWRc20R5ClD/vcUyPpj2EmON1
/OYIVjnxhFjpfUkljqT7J8S738b7rTpNe4iwOeReQclq2kOEW4+8SbdPoj1E
yFEUilb10ve/CI1m3hN7tVNPhOa98jv5w2gPG1y4q6EqcgbtYYP1PgODDkh7
2OAE07HOqUdpDxvc4J6W+DKV9rBBON1/SaCSw//+Fgrk
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HtUjHkYwPFKN9Ntuk0zTdi0jljO2hBy8jy5lXs1ErrbWDaJjZUasZsR
3aSt5JBLlxNpC6ve9006dKEQI9YlaRWVlTq1Msp1m+l9/njPe85z5vc9n5nz
m8d+XYT3eh0tLa2koUf9jrEqdm+N3gcXy2NNwo9wwI1WdHmxxXDxQOjs+OUc
TPA/VPXOsQIGx9Q6O5axINd8vgZiWyqhSZeFtmj14CbURMnW1MoZyNvqKniU
qwRds6UtPd4MPM5VD+6Db1vBCossBoweaQbgHD21IX8KC3ME6kETtJ3Pm6Js
ZWGb+vjWZzDweN5r55858GbVoOcQlS1L2nqUgzde6kErNIZKQyyCONjfpR68
AI/p/cLwuyyMUfNHt8OLM3YlZ0ex/PfpgKtjDfKKEhm+9wq6Tdyd9YZ8w71/
4VwT97Q0nuF7XXAhQ7t0mQ31usEJLi0S1VOvBw7HmbqZ+NHv0wt1TkeZcUM+
laN60AsLJk1fdjWcg+p36kEfbEi1iuvrZCG1Sj34DxIivNMmzGAhQH3c/y0w
8eYRcccZvtcPR6/t80+WMXyvH/J9cuK9djF87x1EDIgVf31h+J4K7t3eXXum
hHrvobh4oM9kMfkGoGlUpX1yJvkGoMp0suf2aPINwkdpzop9X8n3AULHer11
8KLeR0iQRz53KCHfJ4hMX1Ya50u+T7AzuOqqXjj5PkPOpbqZxp3k+wLtRw6E
Xs6g3lcoWVIQsHYGB5rrZKWFvQeiX5w7zMHwfdTCuklvVNYKDlo190sLfQOE
QSprDtw1A23MT5vhtC6MBc3xYm180vflXmg1w/d0MMlfYfJPAMP3dPDgXVP7
nnUM39NB6fKq9gQlAx6awQjc+a1ZdFwM9Uag26TeMBsH8uni4jI//8QE8umi
X+KtnanJ5NPFU9GBabbfcXxPDxuz55j/qaCeHm6X6a+XPCGfPsoWatkd3kA+
fXzcaP/M3o98+ticvep68GXyGeAEz4CvziHUM0Dt3YXcZhPyGaJneKXrrN/I
Z4gTJ9/Mu/8H+QyxeItd7I055BuJ0wcc9945Sb2RGDnveYBFL/kEmHRM9kqx
jXwCTJdFLLroQz4B6tTl6VYUkM8I7S75lRu7U88Iq983sAoVy/eMsdpv9oMb
O8hnjFmdCxX3j5DPGL8vi13y0JN8JjhtT3hYKkc9E2ytqy0cZUg9U1SebuvO
iyWfKY4xypcWeZPPFEvlTyV1GeQzw1VrGpfOnkw9M+y+XZhzqIUFzfoRCLEs
Jath6UYONOvHVYiJRcKxB4b+z8P7SIiliwMVDiEcv9+EeORH0bbKRhaG15kQ
C1a1lxnYU88cWyvmbFQmM3zPHDM+vFZZD/mGe+YYpOxXFiloX5rj33YVnoOW
1DPH5u6a2+W11LNAeYFudttq8lmg+zLnwJ4s8lmgGa4IPBRBPgssXsAFj+ui
ngU6zZ2gf8yFepYoOfPblo4TDL9/LTFtw4Xf+2Tks0T0vRaWspN8lhjuGHhW
/pHhe5Y4WJ/iNquIelb4sjjTpsCd43tW6BPstNIgk3xWaFZ4vudzDPms0Ll+
9/x0HY7vWeFahysnT6+knjU+8JvbePUC+azxzmuBxGU1+azR/5egrUlh5LPG
zbNiegZfkM8a8364MhXSqCfCILG5b8U08onwuMe7psep5BNh2+VP+r77ySfC
CzvcB5+KySdC9/Qo35dbqGeDzR0vb02/Tj4bLGmsknUEks8GY9ZvF1WFkM8G
a8ofcrkN5LNBg369CO0o6okx76WbauE35BPjCdWa5M0HySfGDXM3le9PIZ8Y
097opyonk0+MklPxTyYdpJ4E9z4zihI3k0+C3QcF9R0/kU+CFRVJ8gVrySfB
cSPDmgtZ8kkw06U+uCyAerYYa5ZRGSEgny26uGzqVO4hny06Zcpdd6eTzxZ/
dQ7w8nAjny0ur5oon59LPSmWJax9MvMt+aS4kuu0Hx9JPik+b8lSjvchnxSn
yVt2ueaTT4rtN1S16fNY+B/w1wsO
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0.5, 0, 0.5], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11XtUjGkcwPHpgqTSXGq6nURYxLpEl2Pr9yOr0qGtrJwuE62JnBi23VRj
WVIulcJSpEgbh1JL78y8b8TuqFjHrkvRTVaSSpJJN+WyZjzPH3PmnN877+d8
n/d9zjMTI2WBUn0ej5f2+aP9lotKvFsS90BFam133REOOPvkrgC2BFLG/v2J
e8DC9LAMdf+0qxC7aTBnHqhgu+73lVA8tGTgkkwBzxK1g9tw5FykJuQrBn7f
4mFcV3APArZWOa0zZKC+QDuoAflfdtGPrBQwrk43APC7bR/3WAmextpBIzyN
nW+6NpWFrdrbtzTDiR0Nw3G7OAhktUFP4cBhg+u8DRy8CtAOWsB5MPDBTW8W
Urq0g1aYIakWrNyrhAnafPs2+Ef6OOxtLUPW8wJynd6VdmjKiNcBN07N9ur0
Z4jXCe4v1E+LrymI1wW+fU0rFh1SEa8bCuO2eo01os/nNWQukLgfOM6R5/MG
FuZJnNyFHAxM0w7eQKjEeeRSgQpu9GsHGvCZXNHgf18BmWrtoBcC1u8+fSCE
gXDt7WFvwfqa5MnXPWXE64PImO+O+1UzxOuD73cnXbgdqyReP6w6nXU13pUl
3gDMPPv8TecajniDIBB7yExSaN8Q3HeL7TE7wRJvCJLmaxw0PdR7B3FXpck+
02nfMHwIniGdaEz7RmDmsZ9coycwxHsPqy6uKZosURDvPTj2GUpGz6Tr/QAW
jXdq46to30cIP9mfuPAQ7fsE/JrVn0b5cKDbTiIe5rdFRkwxYOHLfuRhhGiO
PNpVCS26/cXDHy8Il3nkMOCtG+jhuYLGkrUvy0B3e4ke1p+PaN69gyGePmpe
8T3tTJTE08coT7VddZOKePqY5JJWGuTMgY9uYIBOlhF5Mcc44hngArX57Kpn
LPEMMTowt04vWEU8Qyx8XicfSFYQ7/P1STvjDecxxBuFhWEJoZ8+0L5R6BjO
j1YaKog3Gp+5CGaZVdK+0cgwQSmH41nijcbUhppUczntG4PZ9VKNyxbaNwbV
S/dYVYbSPiN0Ld7rW32KekZ4/WjcwpvtDPGMsCVh8JD9QBnxxuKWvORby70Y
4o3Fq0Z5Z06do33GuLGVHTOcQNdrjBV8s7fb39E+Yzy4cm1PQzbtG4fjpV0x
+Q60bxw2eC2W7yhXEc8EnS+v73rQoSCeCT7rM8n9ZQPtM8FydbH+0Ve0zxSv
rDNu28XQPlN0S3ngHxOqJJ4Zlma/aGYm0f1ihg2Ts6dtDOaIZ4YyycEc21Ta
Nx6l+aoLPUUs8cajdXBSuouRCnTHj7E5Luqd4w6eCtAdPx7mqL7jlyoQMOQ8
Mkf78uFaN0t6vpnjSb1rtek+CvhynJmjg92jI91C6vFxakbQ8SiGJR4fneUW
jb7pHPH4GFQvvJsRyBGPjzPOZ1rusmKJx8c1QRcjz/oriSfASblN2+2KGeIJ
MEON7oVdZcQT4Jk0xym7ZLRPgPsMD7b49tE+AZbk/3x4UxXtE+KEkN721qkc
OX+F6HYxI9czm/YJce5mF7F7L0s8IeYfWV6Vt1lFPCEutt9fnnlSQTwRnl4t
D0nwYIgnwsazB1sThmifCHd+rIkQa2ifCKP+7N2ZW6Qkngif33+S5y1liWeB
d/zaL72OpX0WCPIVfWXbaJ8F5iyfHrJMRvsssHBe8Fx3lnoWKGpuTJwywhDP
EjUebx+6jJQRzxKhvSVpmyt9v5Y4u33zh+ZMBfEssfPf3/Zvi6TrtUTrc+Wd
QS9pnxg1esKSqCzaJ8ZKuXTZD7NonxgdTWwTP95TEU+Mw6vZJek82idGLqHV
fdo22meFD1W9spaXtM8K00ofylYW0D4r7O+YlzbJS0k8K9z+zYkl+03pfrHC
k5m/Zrks54hnjZmbRho2ZtA+a2T+cMpYWkH/X61xpPI/NsKB9lnj4r2XDxcE
0f1ijS7h3fuabGifDR7P//bKE1P6fm2wqaiVv9ZZQTwblHRv7GBGaJ/N5/Mr
wPTWGdpng/Ozp6Rl7aN9tui/s1CwPoz22SIvw94sfhbts8U5MnHbyHrq2aLB
UM3unAqGeLaoifLj7naXwf/ijA3J
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{471.5546875, Automatic},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 5.5}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.759826219103219*^9},ExpressionUUID->"25f9b313-26f7-458e-aadc-\
9def9718e146"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm1", ",", "fz1", ",", "m", ",", "q", ",", "f", ",", 
     "\[Mu]extreme"}], "}"}], ",", "\[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", ",", "7"}], "}"}]}], "\[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[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Abs", "[", 
            RowBox[{"fz1", "[", 
             RowBox[{"i", ",", 
              RowBox[{"1.5", 
               RowBox[{"qcrit", "[", 
                RowBox[{"0.1", ",", "1.2247", ",", "1", ",", 
                 RowBox[{"0.75", 
                  RowBox[{"\[Mu]extreme", "[", 
                   RowBox[{"1.2247", ",", "1"}], "]"}]}]}], "]"}]}], ",", 
              "0.1", ",", "1.2247", ",", "1", ",", 
              RowBox[{"0.75", 
               RowBox[{"\[Mu]extreme", "[", 
                RowBox[{"1.2247", ",", "1"}], "]"}]}]}], "]"}], "]"}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.2247", ",", "4", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.2247", ",", "4"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.2247", ",", "4", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.2247", ",", "4"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.2247", ",", "16", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.2247", ",", "16"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.2247", ",", "16", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.2247", ",", "16"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.2247", ",", "64", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.2247", ",", "64"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.2247", ",", "64", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.2247", ",", "64"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.2247", ",", "256", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.2247", ",", "256"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.2247", ",", "256", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.2247", ",", "256"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.01", ",", "5.5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}]}], "\[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}},ExpressionUUID->"7aec3270-9380-4a2e-a0a2-\
65b0b1d06290"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11XtUzGkYB/Aupst0m6mZ6YZyp1IuuRyp51lhxCa31WKslZLcrQ5bQkTW
XRIWS6t0kaywmEx0v02lmamZaWZJlsrGnkRRM+w245k/fud3ft/f+37OezvP
OyRsy6IIEyMjo2P9j+69i3OT3xJ7ADZkv75+PU8IwsEHOxY+uAmsrOofYqpF
MEZwsrh7tAj+mfZwXeLZIojTty8FmXlVSnROGbyI1QXVkJSS1csbWQ3pW/2Z
irR6+LI7SdNWUAfKNF0gg2TFqED5VQlYKfQBHBv33C6yTgYBTF2ggpmS+aX3
ZI2wTdd961P4yyLsYmi6AhY90A3oOZxJiJl42LsJ3izUBS1wv89Um7xcBYkd
uuBv+KB2PDDdSg1uuuEPfgU3muPHfjNKTfNpBa+kjDh1toq8dkjIjfO8lWHw
XoOzJsAL/ZTkdcD6WZtPXd0nJ+8tdD0/Kd59vIG8f6F55xt7181SWp9O4K9N
4/LH10PPaF3QCUOGbmB614ihpFsXvIPIQJX0JFbAqWJd0AXR02K3M7XFsFLX
XfAe7oTX1SWLH5H3AczKqodfW5xP3gdYPHwP54hNPnndIMrMzu3hPSKvB7ak
LN+o3W/wPgJfyf15ibCcvE/wUn2ZOR3F5H2CyQ+CLW4onpDXC+0K97YpnlLy
+sDr1B/xDfMbyNOA6wvRoadz5ORpIaI7WCtgKsnTQkC6uV1ofBN5n2FNqWdi
TJKKvC9woNij1NtdTd5/EDQ40OUuTw3648QxwqMrlQVZO1Tw9TwaoSaOcf/P
0CZo0Z8vI5wfzQ8JVSiArw+MsRjvB7Nt5aDvftMY1x4aYe1n20CeCbI8/TfG
t0rIM0HvwBDTnUFPyDPBFcFp3F/yqmGOPjDFC4/Tli4bV06eKf5YJKu3YRaT
NwBnh2yqCIwqIG8Arm9drbkmF5LX/39rjMXGnHzyGHjx12XeA048Jo+B3z+Q
zHOLLSHPDAuj3jOyxBXkmeHU+l3X/VbUkGeGwsFLNH0768kzx03RWrEmT0pe
/zfEvlbVGOZrgY/fX/IoyZeTZ4G9nTu2WW1UkmeB0QvCNd/VNJFniZnjbl0W
F6rIs0TjTKebvl6G/WBiZmW4Zslnw34w8eDeRwrn6SrymMioXbPd3dTgWWH7
5dSOgC0K8qzQWGncIDjXSJ41ltyrYOUck5FnjakDrU+FrZSQZ401LreOjfSp
I88GjVYXmTmfryLPBh38l0WMHVFGni0mxSzxqRxWRJ4t5g1oHpvlKyLPFkcM
XTUi5DcheXZoZ81IUSU+JM8OR8721CrPFIK+/DBZKGa9qHXsr2v68uPPQv8j
q9ZHtFRSPWIhY3zS9W07aqm+sfC07e09o00l8LWcsVAyKNnu3WQZeWyUnqu1
DJrTSB4bj3x+4+M1RkEeGzO2QZp9lZI8NkalLlQPtFeRx8aj2cFtQ9tV5Nnj
5jXeH7181OTZ43mBojtSrSLPHlsiwfNyXxN59mhdZhm2KFtJnj1m1Gy6DaYK
8hxwyqv32aJBjVR/HbB9yh3JFwsZeQ74bOLpvd3SevIcMGgvb507p5Y8B6xp
jx2bFl9JHge7Zu0oWOReSh4H779lM3bNKySPg3dqHIoYvg/J42Ck27m74dlC
8ji4ZvekpX4XRORxcX7i7daZPxWRx8WXgtO35u4rI4+L6+QTulN7q8jjovTb
jhB+Uh15XOTNOv5k5HEJeTy0Zr/WtgoN9w0Pl8cNP99RaLhveHhyw+KjymQF
eTxk2PkedR3SRB4PU09PmhOw0LAfjhj6PCluiLmaPEdc2nPF326MmjxH5PfM
GD0jT0WeIwqG9+am3zZ4jhilDhRlzFWS54QeFzXpl5Ll5DnhVI0oMOL3BvKc
cNjhT5fWJkjJc8KoK23tm/n15Dmhu9Uot65PYvKccZVzStB/GyrIc8Z5jLx9
MKyEPGcMPCSICjN/TF5/e49m27BN+eQ54539XcqEPiF5LljV9iwmrLmAPBe8
ocqvkgmKyXNBVmYib/GJcvJc8F1F+YIjDmLyXHBP+JXOCTlPyHNFizKn7kKu
lDxXHMXUuOVOM8zXFT0suYOOT5aT54rsBGlIQp+CPFc8u+LZvsrtTfA/YXAG
LA==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HlQU1cUB+Cwy75kYxWoC1Cte10q4ZxUW20VEazLjKJi1SiKgtoqiAsK
aJep2lYLljIgVKlKUGRJQgIJCQRDFiyuiFVkUYEiZVFEWmviyR9v3sxv7v3m
nvPuO4EbdkZtsmQwGN+/fYzv/SzhgpakVAjI2XMv9JIYxKPTuiJFQrBsHf61
ebACQtacqB4MlsLmxkVRmhg5JJvWqyCp/EqV6x4lPE4yBhr4sYbRIyyvhfx4
nsOdvAaohaHLww3X4W6eMWgEQf/KhFm7tOB4xxRAzYZvuxyj9BDmYAya4OeN
nH0wxQAJxu3xD4DzpCwn65keokTGAz0CxYUdtppvdNAdaQxaIHz0LZdb8+sh
vcsYtILweeIcRkwd+BuPP7odDobnLo8MqaF6OmD8gQHB0l4FeU+hcfYzXlxo
JXnPoGtszB/cZAl5XQC8SF10hZi8v6EsF4MO8KXk9cC8dIXjcKac+tML4SXN
Z9uvKeFFsDHohVPZS7aHvawF5aAx+AeaOlEzbK+Bk9XGoA/m+jnmd2RrIdq4
fU0/5Db9LHm1XU/eAJw/afF07YcG8gagr21Hs9tdPXmDoJ7WELF5o468FxAd
EtiU41ZP3ks4Mcj/JH9MHXlDICyqZVQ/VZE3BF7BokM/XlOQ9wpqwgMXbXkg
I28YHnIaNgZHSMh7DVrJo6m5DWLyRqAlf3Gb4aSUvBEAg/NDbqOcvH+h9Qv5
+y/6leT9B49CvA8fmakm7w24TmaWz/1YA6brxGKg/MvlywQaLby7jwxMC2p6
viJdDy2m+8XA74rml0pmG2CBKbDAnoIE3yaVHkzbhRb4aG5acCFPR54lcvvu
fph6X0OeJTaus0u40a4mzxKr9nulzC5QwUJTYIVL/8otStyrIM8Kta7SqvUp
MvKsMSwTDo6Ml5BnjWmjT7u+6hSTZ42Chz0pRa1S8mxwgK8cYjqbPRtMTZgQ
PHOGijxb7H1sM2fXV2rybHGfMmliaaKGPFuMu5OZc3VAS54dcuNHOvyyzfXa
YWVMeELURwbyRqGojSf6t0hP3ii8+cfWofNsHXmjsCDfNej47xry7PFiv6/L
qQtq8uzRNc4gqhKYz+eAGdfWFrJCFeQ5YFBs4s7kYBl5DhhSv9el0EpCniMe
CnxQsMxBQp4jyhcm5Q3OMffPCc/2Tk3+a4HZc8J9m7Oczu5RkeeETheXhlmX
qMlzxtsHfGPWXtGQ54znUo9Pl/mZv68LrjnKr1xYYq7XBTsqG4Xj3vbjneeC
BbyG4cOZevJccdm2Ix2ru7XkueL9tuLY0h0aMI0fBzf0264K7d6iBtP44bmh
tNAqc0OQiuaRG9qkpsXvslDQfHPD7JQLE1r+lMK7ceaGsbF2GUvbxeS5Y3Ub
/7esSRLy3PG9sax1yT/JyHNH1UluwJajZs8dw/maXE6pijx3bA3o95/cpybP
A4XjisMmdWjI88C27pxNKZ/oyPPA1Z/vXnWjTk+eB66b+kY5/e3/8s7zwF1F
PcItKXrymNj3qSqiUaGl+ctEi8SHN5mzNOQxkf+4ZEVXiJo8Jp6Xlf8w4YmS
PCaejdytzFXLyWPh4uhl80oOS8ljYdzcxubhejF5LMRx5UmylRLyWLg9rdDO
v1dGHgsLWatF56oU5LHxo/wzzbmDKvLYqPm7oapzch15bJznmeHv51NPHhtX
Llnl/3Kbjjw2jvnlRfq1++Z6OZjyUzXv4AwDeRxMb3YvqxDoyeOgrOR1NOeM
ljwO8uPLnlz+7zp5HLz4oGxlRmcteVx8nDM7Y/wFJXlcrAi4rSv+QU4eF/m8
qda+06TkcfGYlSBDWi4mj4ues07X/5omIc8TfdepRWURleR54vHrn9sfGlGQ
54mx0+IipsysIc8T2bHOiz6IqyPPExel/H4sMKKePC+8d9v6EvuUjjwvtM06
Uvus21yvF07yvSqwmWwgzwtDD+ZlH1qsJ88Lm+8Wd07cqiXPG1PtT7Qer7lO
njdmvScMHLlYS543tg/v7V8rUJLnjdPZDetLV8jJ88Y38cxy3pMK8nxQ2VU2
M69ATJ4PThs/achHJCHPBz+7OeLkX1xJng/6dqvin8+pJs8H3QJk1qKva+B/
9TsYEQ==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11Xk0lHsYwPExWcdYZjPGWK7K0r5n4vA8rbgVUXQTFfe2at9Rt1tX0k2b
dlxar7puaHHyvm8lUrTIlXOM6ijabkJHiahwzXifP+bMmefM+znfed/n/MY5
alXwQqFAIEjqeene4+TZvnWx8SCeJC42TWWAcdzZEJSfDfVnQ2PsHzAwIHx/
Uav7ddjiX6ksH8bCFv33i0F4+VKQLJOFl7G6wX3oehEd8KcZB2dXe4u0Z/6F
USvmrmc9OKg+oxtUQr+45allfTkw1+oHoDj9yn59BQs+It3gKYTOiyq7EMHC
Gt3lq2tAOH1K8+gmBoLzdUG1MOzhw6EF5xhoDNIN6mDItrmVRRkMJDToBq8g
Uh3YGlTDgJMu3/ENGPotivf1Z/nf8xZyrTY7zCxgee8dSI/vvV9iy/FePUSZ
+IR3ajjea4CUgwPltxUc7zWBx2cfe2DJ+wA1MdvLSyey/P1phjwY2+b1hIE2
d92gGRwGf/COTWfgdqtu8BEmJ8++l5fJwIEi3eAT7PjRwPLGRwYidJeHt0CX
66DacT+T9xkKFR35Y6pY3vsMnc0Hb2pcON5rBdk1pk3Uc397vTa40uWyT2TM
8d4XmKr0TLt1irx2mKw1ZzYNJK+953lr9u0uob4O2GdTmLIuhfq+wuqceKNb
l6nvG8jglaOZKXnfYf/eK9O9t5L3HWL2fxNGNrC81wnTJGFvC4ZSXxdUiI8k
vB9Bfd3wUvusrLaFBf06yQWY5ZpeNSeRhd59FODHu7U+jlIW6vT7JUBFc9Cc
JfkM+OoHBvh6yi+/Xj/BgP7ybAOsHCSMvXyL4T0huiVWeT1xIk+ITIiFov4o
eUK0HFERtqOLBT/9oA+GZaS804zheK8PMqW5T3MGcLxniKNLquckvSDPEIc/
Z7avWkmeIUYNv1Pm9I3hPSMc4ia5qfyH+oxwxZSiztlp1GeMC/oHMsEVDO8Z
Y9LO/iMfasgzxtbJJ+Zrc6jPBN8f/poUaEV9JjjzYvXzPzTUZ4pD1oxfG+vI
8Z4p7to5f2L4PfJMsT23bMLSWeSZYYBp/JRnb6jPDBOCQ64+OE19IvwrM7jA
8zT1iXCGp+JI2GuG90R4911bTlwweea4YdDjqedKWN4zx6pYTf4uB+oTY+tv
vpMuaKhPjOMiHDZvsOZ4T4yLknZHZl4izwLFxqUlOZ7kWaBHXf+y84+pzxIr
s369mJVGfZYY0LHEdFoW9Vnil0FWBnEd9DysMNp/YMO25eRZIW60t2+tYUF/
/Iis8dWRTyUt7hzojx9vayxY5rz2UM8+9J5H1njSxNBQ283y55s1Th2z3ubB
cRZ6jzNrbLzntijLmTwJ+j1+l1hdyPCeBC9dLT9U0bOvvZ4Ey2Nuuiy8xvCe
BNdsLO4Tbk2eBE0OphqtTiBPivY/VDOrPrG8J8WJ8wTuS0ZQnxRzDrtFhAyj
81eKbQn+/V40kidFi/bU5AHbyJNhfnrut0IzOn9luMf7WHXuFeqTYbf5jOP+
KdTX83l7S9DMuwzvydC89fKBDHfy5Hg4OiH6dQZ5cgxItQq8Y0h9cqxdIw8u
Hkt9cpSWJHcYu3K8J0eHkP/StVryFLjuULLJgIXkKTB4cZ4qtIX6FHjtqaBx
xXnqU6CgfPEjSTr1KbB4XJKNVsvwng3GeTzyrBtPng1meMs/bcyn/xsb7I5K
scyWU58N+hkciWrRUJ8Nvi9Xdz9QcbynxH1L53+RFpKnxB1Wef1GTiVPiZxx
4K7i59SnxGV1DTI4SX1KtPi7vr/dOeqzxao+fc9nNjC8Z4uS+xVu3FzybDEk
6ujvJeW0f7bovPtG3yZn6uu5XnLVqcmD+lR4YYLaqVLE8Z4KjRI7jtefJ0+F
jssWG10cQZ4Km44Ni4t6SH0q/GnWUVffVOqzQ0ej9upJOdRnh2l7Ds9ba0Ce
HZ4pneFfvIE8OxRHen2IeUP7Z4eb1F4ugYOpT42TRssP5I2iPjVOP1WeFdpB
nhpji0tZbj95alyZf1IlVJGnxpYF2V5brzPwPz0c/yc=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11Hs0lHkYwHENSTNMjDGMOV3IFkmpo5suz9OUtIUuNrqMOlmF7YK01dJ1
Vm1Doau0tVSDVNQwjNfmbBcdpajVxS0bKSklQum+jZ7fH3PmnGfm/Zznfb/v
+dkFhs1fwTMwMNjz7aP/jhZnezZExYCqUBBsp+KAG7CzZV5BNqyTC0o9A3Tg
pEi40uV4EXZHlliUaHNgc8//i0Eeklz1xucMPI7SD0rBqjbkA6jUoA6fzK88
dQd4p5vvxHBnoOqUfnAX4gr83TWvckBQ2TOAGHXSlzFKHUzh6wc1sETplj00
gYMI/eXhdfCsojx0TXQBzC/QL1QPdlKp/9gkLbycpx80wF98t3nVLtmwq0U/
aAR5pyRK+VMaDNSvP+ApVHq/F2wJyqD7aYKxF+39K1sukNcMRS3jpTU2+eQ9
h9mpNQEJzhx5LRDNb6w54s6R9wq2rqqekDQ1n7xWyDEWXD5hp6Hn0wYVFRYe
RzQZ8NZRP2iDdZV7zUc7p8HVLv2gHdYuKxNUXc2CxCv6wRu4PttrT1WwFgL0
lys6oP8fBzzGBxaQ1wnaa8v/Dj/AkdcJzpoEv6KTOvK6IPVQREr9oFzy3sK7
aa51V2VnyXsHrS/3+2+MV5PXDSuku1bL2jLJ6wazfVOlN7fnkPceRpx12vrQ
XUfeB5iQYZK3VcmR9xEKxZt3DMli+32C6YnR+XXdWvI+wcyG3veihefJ+wzi
QrVuEZdG3hdoWfWiZtatdPK+Qr+PfezDoy5Az+skNsDx1aYLtZfy4Pv7aIDr
y/LGrzLhoKHn/TJAfmyoKsuPA8+eQS8sqy2ayR3Mh57Ls3vh2sKgWp/9GvJ4
OC7Z1bpWcZo8HsoSN1W9fqwmj4fuCsGBAc/OfdtbPzDEJvOd5xQ8LXmGaBFf
d7zTqYA8I5x2cFv3jSMceUa4aJejh8MTHXlG6DBy4QX7uFzyeqNRIe9ZfetZ
8nrjJJHbaFWmmjxj3NO4tvTaiEzyjFG8snT7clEOeca4LeBixLHX+eT1wUhV
0a9Pwzny+mD0v80pC2rYfiaYtGHuiDx/9vxMcGHH/ua8tvPkmeCCiGH/CF3T
yeuLsjnKuQ/k6eT1xbZZWf3bTVgPPlZKJsYsWME8Pv73fv7ohPoC8vhotPOT
8vkajjwBQpy39scnrIcAVZ7qyIG8HPJMcc3g4mFTLdn9mqJ7gKOvz3nWwxTb
42e8GyNkPczwRPAwgfJoLnlmODgmIFnxSkeeEO86FOU5JrMeQjQPMDm81I7t
J8SwY43rfDtYj37ITXdIHVJyjrx+uNn6hVxco4ae44dvjlsau61qN5yGnuNn
sjlODEztpTupofPIHLdNEXKHUvPpfDNH7cultwMXc/D9ODPHLl+X6095HHkW
mLrX4FhCbh55FphcPGfKw9AL5FngbLdfIuW6dPIs0PeNqejojTTyLLD9fR/h
upHnyRNhXGnv2CZj5onwfpjXYb62gDwRFrvIvaZs58gTYWxQ4PpBrjryRBia
Fvr6WngOeZY4VR4eobibSeevJTo5i+cK96nJs8TP3hG/u7mfJc8SQyqaY3e4
5pJnic62Sz7GndORJ0aVpUNQ3EGOPDF2OFslei9m+4mxomn1ynGLtOSJ8dGa
QfeiTmWRJ8a4+gfLQwemkWeFSZsWTiy7kUGeFT4JGdVgM5r1sELNqOH2rd6s
x7ffFUu1BsB6WOGjSEe/y0NYDwlWexqKJpvmkydB/3Ep3opa1kOCDcM/B0d5
Z5AnQY/8FYlGgayHBL20CZNCfLLJs8YO3aWkI2la8qzxt8jj0Klk92uNzjUS
F/Ve1sMatywrT7fdxHpY4+X9DfM+1rEeNrhlY5Dx7T/PkGeDLn7DR57azXrY
oN/PJ7/KV58hzwa9k7qNk4pzyLPBRpfWytRg1kOKYatTxnXGsh5S/CJ82/4g
nu0nxZL7VaHJF1kPKQqe+5Y/VGaTJ8Xi6PLQw5tYD1vcrJAYWjmxHrZY3Oij
eXCJPT9bDKvu++LmuzzybFG8YXLsrQGshy3O+cGlpMqD9ZDhoBllqYeWsx4y
HCpT6ZRerK8MazPNutzbWQ8ZNnX0K19mxnrIUHOn+tKJsCz4Hwb8+nw=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0.5, 0, 0.5], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11XtUk3UYB/ABMmHggF1gG4WJCGKWVF7yyHwe0QBvIaipiEp0kEzNGyoI
oal4mRihDmSiKAgW4GAXdslLgaamhigB0zABAwO8BG64ADE3n/2x857zPe/v
c37v+3ve70bErYuKt2cwGBmvf5ZrCk8e1rJtN2C9q1qbrge9T3pXpE4OTovO
Llz2UAOBMZnVptHn4SvXu+5r3BWQar3/MkindGccXloArdsswXW4xRjWHZJ+
CE6vF7MaC2uh+OLVyE3cH8BQaAnqYPNFuxhdrApcGq0BNG6s7U0er4OpLEtw
D9oDJCpmph42WJavvw/9Tak7n/loIUpn2VAzzPmTu6RhgwIeR1qCFuAn3Vfs
mFYIe7oswUPYsz2wsawuC4Zbtu/TBv6C2viZQWfoedqB39qhvOKkIu8fuOR1
pUnK1JHXAVu/8ZStlerJ6wLGrRQ39mIteU9gfNCsj/JuK8h7Cu1r7K/eCzhN
7+dfGBp6I35RbBb0jrYE/8L0yKopd2YXwyWTJeiGrriRqUa5Er6vtgQ9EBud
eMCtQQvLLMtjnsP1v5iKv4/qyTNC0BNX3+LvtOQZIXzeo4VF45TkmWDHpt0C
J3YReb0QdG5N8uygLPJegOjAWOGmlUXkmeHe5OA50fOV5JnhiZkzs69AS95/
sC+jc25irp68PujbcnmKttq2v37IWe//8ukBJXkD4OAbkah8XkTeAARPWqvV
fJJF3kvoMSyIXbPjNHmDIPm0bkO/SUHeK0g4blItXqsF6zjxGHiwdvduQY4e
3swjA1t+3e8y0aiFFut8MXCklzh3dbsSwqyBHVYP/vks1VAM1uVyOwzxvtOX
nZ9Fnj3+kTEnxU9WSJ49hsgY49qyFeTZY0J+9/3xE7QQbg0csKT0UPftLD15
DjgtsS9NOFJH3hAcZahluoGKvCEYzmYvEZ4/Q94QXNXt8bxl8iHyHLEkZBmD
qy4gzxGfm+WFfhMV5DGRManJJ7dPQx4T/b9gVhTs15PHxCaMXBEdoSNvKL7N
999fI1WRNxQ77mJU2IkfyHNCZ3Nm+QL2YfKc0DGssrWq5hR5TjihoeTF5boK
8pzRMzHm9MELGvKc0RyzXSBJ05PHwir/Bs8nSTryWBi2dqZQ1qkij4V54W3s
6rQfyXPB/96L/zqBf4Q8F6yaJpO1dZ4kzxVNBxULDesqyHPFqSPGvDsiTUOe
K0puvLLLXK8nbxjWFw48rMnXkTcMe4xh8tViNXlsvFklHxW3rIQ8Nl57lKFe
GSYlj433Wat8pzqfJM8Nt+P8mytZFeS5oZgdsDw6WAPW+mG5Y+FA/VHlCj1Y
60fsjl1xHUXmSzrqI3esgK+OTv5OTf3mjj4fompwcim8qTN31F24s9PueDZ5
HthY+te+5IUnyPNAjw+3ru4NLSfPA0+2dE6dZq4kzwPv3izz652tJ88DI0y/
hX/epiOPg7GLuQ2mJjV5HMxP7u1P4JWRx0ED5+CtbLej5HHwaU/9dP9TeeRx
8O7V28lztsjJ42JI2tuSFkUl9S8Xj8fPKI+ZYOtfLspmSwyDDnryuNhfmxCb
GVhJHhfPvPXU8OXjMvJ4+P4/s4bMz80lj4f1ovHcLWYZeTz8VB0se1lwljwe
+lc9SJm7yubxkMc0ju3x1pPHx6RtnJt1w/Xk8fFV5t5gx8RK8vh4eHh4vqnK
5vExsM0vad+EY+TxcVbQ0OLS5bnkeWJ4qGop5/cy8jwxwLBUs8fH5nnixibf
HPUrHXmemOqyi1v/se08PPFc6Ccfh52vJM8LTRVNe1qPyMnzwvIFM9K9m/PI
88JTyoB7g4055HnhT0kivsZomxcvvDb2RnrebTV5AjRmv3A622z7PxTgjph5
RkaE7TwE2H4Yb8y115AnwCvqjnGC+HLyBLjpWvO6aukJ8oQ4b2WNdNGqbPKE
KB6Q73IUlZInxM9YkuScnbZ5FqLo1M8OzRd15AnxwFhWSlSc7TxEeC1ghpwd
qiFPhL/kjHrNVpAnwugvNzo1B54kT4S+RZ1jJAIpeSKUSo55+IlLyPPG6Umt
73z7gZo8b9x1IUIcJbN9b95Y9mBzyaWNtvnzRnHNHxdS92rI80bni7OWJKZV
wP9n1wCm
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{618.35546875, Automatic},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 5.5}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7598271649828444`*^9},ExpressionUUID->"15c15841-6450-431a-99b8-\
19ffb539cabb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm1", ",", "fz1", ",", "dfz1", ",", "pz", ",", "m", ",", 
     "q", ",", "f", ",", "\[Mu]extreme"}], "}"}], ",", "\[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", ",", "7"}], "}"}]}], "\[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[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{
            RowBox[{"Abs", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"i", ",", "0", ",", "0.1", ",", "1", ",", "2", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}], "]"}], "//", 
            "Log"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"pz", "[", 
               RowBox[{"i", ",", 
                RowBox[{"0.8", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "1", ",", "2", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}]}], ",", "0.1", 
                ",", "1", ",", "2", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}], "]"}], "//", 
             "Log"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"pz", "[", 
               RowBox[{"i", ",", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", "2", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}], ",", "0.1", 
                ",", "1", ",", "2", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}], "]"}], "//", 
             "Log"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.01", ",", "5.5"}], "}"}], ",", "All"}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}]}], "\[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.759833677731965*^9, {
   3.759833748208419*^9, 3.759833766588232*^9}, {3.759833825780264*^9, 
   3.7598338450459023`*^9}, {3.759833880534237*^9, 3.7598339723120403`*^9}, {
   3.759834145548696*^9, 3.759834279943079*^9}, {3.759834427300905*^9, 
   3.75983442807751*^9}, {3.7598345727106237`*^9, 
   3.759834596403099*^9}},ExpressionUUID->"42dc8f97-fd6b-49f0-b856-\
c86067be1aee"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11HswlXkYB/CD43aOc5zLe+6ccxS7EpvFrLbi93Q5aGonty2iKTYqt0hp
iiQq2u5r0lUXVJuiZNyTRE1bFElpdyK3bEstolJh95ye94933pnv+z6f+b3v
PPO1Cl3vG6bPYDD2/X9p74lUoWfn1p3EvSjlVLNNKKlQ7ur3KS8khprx/qyw
T2Ra8MHbo7Y3iPrB1Xg3ZwYk6d6vJ/aSDqu78XrQtVUb3Cfmro8d22foQ16s
G+tZbhNpP5XzNrJWH9pytUELKVvb4DXgYQDsZ7qAlJ6MYUQ/MAB3ljb4kxQn
HFRV+TIhTjse+4JsoJZP1L5ggm+59kAvyc7G7zs1UYYw4KMNOonxcw+H7HFD
2N2vDbrJMbF1uN5hI1Bpj6/sJannymyv2RjD1+95RWDsyOkvlcbo/U1akjum
+XiboPeaTOFGn3PsNUGvn6wjfbkuW0zRe0N6G/6pYZux0HtLfoxJXLYxmwVf
/88gmXHU+rmbAxve22qDQSJerhyeW8WGulFtMER2Z1LCNZ5mcOi2NhgmjPnx
7ceazWCFdjz4HQk+0BfQGMhBb4Qc832onOjgoDdCuD4u1narueiNkvaQW8v8
X3HRe0/W2q3r2RFujt4HUuIYdrC6xxy9j+TJrY6laY489D6S8o3rE8qjeeiN
kclHfheY+Tz0PpGxRpU4qpeH3mfS55Qqea/io/eFJHUbG18K5KP3hbgvtGvY
+xsfvXHifnRBy4X7fPQmSOhMdVunngC9ScJJ+rlh/0wB6NaJYsCrVTsGnWIE
8HUfGRDmaDAZmCuATt1+MYBMr7NRtAnAUxfoQfDoxGO+mRB044V68EtG0jEV
EaKnD0PtYxM74oTo6YOmJ8HLPU+Inj7MNSxJDm8VgpcuMIAb2yPDEowo9AzA
tWn1rGhXCj0mNG3PL5sIp9Bjwru5m34ozKLQY0Jvcobsu7sUeoZwwHk6J3SE
9gyhRtDl3TRFhJ4RDIS57snzFqFnBHdScnZapojQM4KQfyuEC66I0DMGFtPb
bFebCD1jaKIO+yUzxeiZQHNxp9zGUYyeCZwZMDkwNViMngmkdO3TDKWL0TMF
4c5A56PXxeiZwuaqq9M0L2iPBd/q52S/NZagxwKTOi5zpZMEPRYsCYq8uC5Y
gh4bFoTHLTueLkGPDc7Hsz38r0rQM4OFSXZ6N9pozwxO9RxtK9KTomcG0RYe
qyPspOhxwKS2eSzAT4oeB74ZsSv2SpSix4WPU1uIbZ4UPS6cPXde8fIB7XGh
2nwRe/U72jOHYc1zL3uFDD1zsNpgd3/HPBno6ofFg5JUn8nUCBno6seNB6ev
XFMvPizDPuJBTL3BusXlMuw3HsSfKJmI6ZDB1zrjwZx8l3ulhnL0+HB8pbiu
wEGOHh/25lz8NclPjh4fAlyqyhdskaPHhyz7CH32WTl6fGit6XuXdof2BLDI
/8i27n7aE0DZYKTnCF+B3v/PhWmmNq4K9ATwcW8Xr3qFAj0BVAZUVfenKtAT
wvvJuiH+7wrsXyEsndKX9qGR9oTwWGbaWDVMe0K4JGu0SZRaoCeENIuS0k43
C/QouNaQv9Qq1AI9CjSq89lD6RboUSCsfBSRfsUCPQoqODHpgse0R8Gj9tiC
kC+0J4KMyrF5HJUleiKoH/0pKsTdEj0RuM7zNWL6WaInAuvpmpL0jZboiWD2
wzM391+2RE8M1/OC7IJqaU8MDhXlmXue0J4YJkYGgkJ4SvTEIGpc5F86W4me
GIrnc95GLVGiJ4GTC2uTAhOV6ElgyTafuVSBEj0JFNTfNM+upj0JrK0LKGG+
pD0JPLUfLcySqdCTAgmTr/J1VKEnhdDW1jx7LxV6Ugi4ZB1YtF2FnhQyEyLZ
cZkq9KQA56LOO4XQngw2+t67U7OJ9mRwaOiDWG+A9mSwaiDoxGVLNXoyCFdv
sj4oVaMng6ndn+3NrdToyaHFYLB/sUaNnhzeGIxZHVmjRk8Oe8rGE86E0Z4c
/rKNSw6KoD055HzK2Pw0g/YUcCfyYutoIe0p4I+OOX2xciv0FJCdN6tyeJj2
FJD0mpvq3kB7CqAOpU0talbDf8+NqoU=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HtUjHkYB/BpaqZppqa5vHM/Xew4SpGEcu33ENsWu5I7jVZbwjIRyf3Y
o+xKpYSTUIn2JEnuhZaIXIqoDBJbuURtolLSTNtMz/vHe95zvuf3fN7f+5zn
PINCIgLDmAwGI77/Mb63UPm+9ZtjSJxPse7ym3vXi+xjm2cV5hN26KHuepcu
MjRo781O52sksabGY5Gul2w1nS8lc1s6Lx6NNZCGzcbgPqn6PTHKqcpATqyZ
xNUdryQc9dSJkw8ZyLPjxqCKBET5K5aPNBCezhQQs9ill2vv6Ik31xi8ILrF
RZtyI/RkrbF8TR1xSq5nuHjqSWCh8UL/kj19Kdur7PSkZZYxqCcNZzbxpwzR
k13NxqCx/1zKadnPeuJgvL79W3LA4K2x26snA//zjszWys69aaK9JnI5q6ZA
Nd+A3geSldTaeP6pAb1mMph5yupLaB96/xHnlckxEX196LUSbfUMe14gAwb6
00Zm+1CKhBwGfHU2Bm1kmG3Ji2imGdzqNAafSbr7t54fgs0g6aYx+EL+mO96
y1BsBhpjeVB7f5+yDEn2TPQ6yLOVv7hG7mCi10GeiAX7/RuZ6HUS1XzW2Mof
zdH7SlZ33b1QmmuOXhex2+ld2c63QK+buHxKMbivs0Cvm1SvFFos0Fmg9424
HXzq6z+BhV4P8b6n3deazkLvO0krirFwZ7LR6yX7Sa6dIZSNXi/J4vtF+5ex
0dOT0u67D7hDLdEzkMaAEfM84yzR6yMHNLx5ZR8twTROFAPa6u89uOTPgYF5
ZMC1XPVZ81wO1JvmiwHFcbNFpzhW4GsKzOD1zHJG3jIrMJXnm8FwH/YBdqkV
ekzIVLuzrzpy0WOCxxPdwbtbuegxoe61Nn/0My78ZArMIdhd4NjnwUPPvP87
3fedE3joWYCLpiyt8B0PPQvo+pujySfW6FnAw1WCPOtUa/RYcKFifPiLT9bo
sWBUbaqdg68Nemz48O5qyPOjNuix4WX16bef2m3QY8PKskzNCT8+epawNKoo
5GI6Hz1LaPirgvNrOx89DpSHhRbs8rVFjwN5TiLK67AtehwYNaTkt22ttuhZ
wTiSvDvDUYCeFTR5h52u9hOgx4XWhLzr5ZEC9Ljw1fb6qNTDAvS4oAlnVbmV
CtDjgUQ9rDylhfZ4EJhRVPGIEqJnDdUZVhE1E4XoWcOI7H8C7ocK0evvU/i+
ko3xQvRsoOXCkqCO80L0bODWFc85mlra44NkfEfrQaYIPT6MucSfUDBUhB4f
UifvjcgJEKFnC/lpbfnrokXo2UKX2jHcNV0EpvXDFcCYZJtl10pFYFo/kwSw
KLv79qBmEQzsIwFsaOaro4RiGNhvAti81l6d4yWGgXUmgAIHncsNjRg9IfgJ
q96X7hSjJ4RIu8OOR0+K0RNCndux4LBHtCcElizJTN5Je0J4dWx4draSQk8E
MWEP97gBhZ4IUg0LM1LDKPREUJIWN/JVHIWeCIhHVuzgAgo9EXSeZ72cXkN7
YtC/1zgu6qFgYP+KoTL685lQBwl6YljQsV4bMFWCnhh2Pxx31XWFBD0xSN2a
KpiJEvQo0E6z3XbpnAQ9CuxXV5Us1dEeBUXxmYTVS3sUwNgUdZyjFD0KGgqp
2zbTpOhJwG8KPzZmhRQ9CXyomKF9mSBFTwJNxW3Px5+ToicB7bsUtz+f0p4E
6qxGLSvqoT0pvHi4LmCYgww9KZyXXFoa5SNDTwrTn8+3nhIuQ08KGR6Biz/H
ydCTQkr5mTmifBl6Mpj7QPss6AntyeDqlcLIcV20J4OzCrOWjwo5ejJYUrA2
UT5Jjp4Miv1STgSHyNGTw/7JI+O375KjJwevgscZi07K0ZODaP31JSEVtCcH
3vawQMsvtCcH5tdxXo8pBXoK8J/LcGv1UqCngEeDN3keCVKgp4DauOjlQTsU
6ClgYmFS1b0sBXoKWPd9YWrOHdpTwipeZVBwM+0pwfvGars0nhI9JQg/T9vN
dFWip4TRfrd9K2cq0VNC87ZXucc2KtFTwffG0a5HMpXoqUC9oaK3toz2VDCr
veRscSPtqSDjlkq3xVyFngqe9yhzFE4q+B+4lL/e
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwt0ntMU3cUwPFaSumLPXwsjCDixA3i0KQRp7JxzlSsipPHInENSkN0k+A6
IcTFilPicBrIZApzI+JkMLd0UhUkiutShoDhIVZmqLgSWwoVaCl9l6eM254/
bn7JN/d88rs3Z2X2V+mH2CwWa/fCw5wnlqokRsW3kLjtWMmPN7WapshiS9o9
FUwEd1UtBi/EZl5o8cSo4d1TgvBc3QwU+t9vhTeWjd68u2sOBhVM6ITHzsoB
08Y5qD36kUBXo4XO9u/r3zs1C89qmPAvKN29a8WKGRDq/AES5w8ubtw3DYkC
JjyHT6QHw/9ePwV5zPjRARiqaP+pK2IS0u8xFzJA0bXof8RhPrCmMcEIMZ+N
xGtjvXDWwgQTOISd0qE0D6xgrh85DD/ojbKkC24IfI8Zfml9lBdhcJE3Amtc
/fL0LS7yRmGPt83a3eAkzwLHN9c1lYqd5I3Dh/M5W9VqB3k2CFENehtSHfR/
7ODNvbx92rpwxjDBDmqXUIlldnjgYYIDkm4tuZO1yQ5lLUxwQu4NQ+lvPROw
nxnPdME7pflLvhBPkOeGJH3I119esZHnhrL65x0pQht5Hni4PsPSfXKcPC+4
wze0tjmt5PngYet16cYcK3mTUCIxH08wWMibhJrN263TGRbypkD3uzf5TvcY
edPAl22LasAx8mag6+OxjNT6UfJmoXpK3TEeNUreLKz75u4qT8kIeXPweawc
+pwvyXsFSv3lHs7el+TNQ99bict8t83gX6elLFTelu6M5pshsI8sPJx27bUg
6TAY/fvFQq1QG8yrHQKJPyzCkvt/Qq3ZBP5x1SLsTTad2brSRB4bbfLsE8mf
DpLHRqMuDsIKjeSxsbHiL9VspQF2+EMQ/nqSt6bwwAvygrCgJato9cIeBjwO
9px7cQ5y/iOPg+WZK0bMkn7yOLj72R8a/sJeB7xg7HzV79lb95S8YDTmXz+0
YV0veVyssLc/Urz9mDwuFnDij4iLO8jjYuWNNq7v5wfkheB50RHxTNV98kIw
vpl97P3DSvJ4yO2+mlW3PF8T8HjoWT4RJj99SxPweCg7M5fAL27WBDw+Ctiy
zp0FHZqAx0edq09vvvREE/AEKJek+kSGPvIEmOITt+9r0JMnQEl4hOh0uZE8
IRYpr77+VDxMnhBXSwfORu0ZJU+EKbLeoP1CG3kirF21I7v8iYM8EVYJq/MO
bPKQF4pxIzlvbrk4RV4oRp9v++7ipXnNB40JSdXmUGxaGxepUbCb/wf1g2HJ

       "]], LineBox[CompressedData["
1:eJwtzH0s1AEYwHFU63bN3NvvfveiQi83rZDX4fg92DCiHTYR04x2rOUUtmOM
/FGLrVJUO0vFtNCtdiiJYyambmnsnMbp1HHHHedlsmnKy/PHs2fPd3s+rpl5
CdkOdnZ21M7sbo2uMSrAzwm6PM4dUxc79EUbijnKKCeQHfdtUEns+5RRu8EJ
yNvTRIxiS02faJSF0BmwlPs6U6zeUIfsBQaYNXQXFW1Nnb8XGGDRnn/oT7Op
m2S7gQFhCsni9OFF9d77BAPODKQQZtUcekzoM+e2pJln0WNCdVBGyAHuDHpM
2E6w60qhTaLHBFJg4adWjaHHBPtwR90RhgY9FkiU3+I8JgfQY8GVYcee7dZO
9Fjge8er7lGZAj0W+Kf6NTtkNFD7Hgv0Qq+K3icd1L7HBm5ybF1FaD8VuhfY
cMlY5eITN0Tte2yYqNLN99trqH2PDRekqnGO93f02KAtWjJ09oyhxwFLbWCi
/rQWPQ6EbxqoYJkOPQ5seEaM+NT/QI8D6bz4wD9tU+hxgFzWd5Y26dEjwMjg
fA4L/4keASfElvEkkQE9ApTSnMEgh1n0COi+FfmlaWwWPQKokcSS4Ppf6HGB
4fXgniLtN3pcmOO1W1MJI3pc6Ijstx4eMqLHhbfSwmSfG3PocUHyvLs5m5xH
j4Q3SeJ3p97Po0eClp/Q+E9iQo+Egouv4ktNJvRIEI1+zDtbYkaPBL3N/dlL
+gJ6PJDnD0bLHy+gx4MPWSJ5otsieju3D0toaF1Ejwf0atbojK8FPR6MBnya
cu61oMcHImBdWhRtRY8PMSNgNo5b0eODPK3GWJa1hB4fvuYqdIWbS+jxwZJ+
7a5rzTJ6Aog9qW+p5NvQE8DA0ZvOsus29AQgCi6naYZt6AmgtKm3rd19BT0B
bHW6Pb1as4KeEGr/6g/FHlxFTwiXZ2sLNstX0RPCfVpOnDd9DT0hxOQtK00v
1tATQmVEjtgzZp36Dzo0voc=
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{379.109375, Automatic},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 5.5}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7598342722009478`*^9, 3.759834411666836*^9, 
  3.7598345616682987`*^9, 
  3.759834743372366*^9},ExpressionUUID->"4c64a5b0-24e6-4d62-bebd-\
2470aba960b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm1", ",", "fz1", ",", "dfz1", ",", "pz", ",", "m", ",", 
     "q", ",", "f", ",", "\[Mu]extreme"}], "}"}], ",", "\[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", ",", "7"}], "}"}]}], "\[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[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Re", "[", 
            RowBox[{"pz", "[", 
             RowBox[{"i", ",", 
              RowBox[{"1.5", 
               RowBox[{"qcrit", "[", 
                RowBox[{"0.1", ",", "1", ",", "2", ",", 
                 RowBox[{"0.75", 
                  RowBox[{"\[Mu]extreme", "[", 
                   RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}]}], ",", "0.1", 
              ",", "1", ",", "2", ",", 
              RowBox[{"0.75", 
               RowBox[{"\[Mu]extreme", "[", 
                RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"i", ",", 
               RowBox[{"2.0", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", "2", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}]}], ",", "0.1", 
               ",", "1", ",", "2", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.01", ",", "5.5"}], "}"}], ",", "All"}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}]}], "\[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.759833677731965*^9, {
   3.759833748208419*^9, 3.759833766588232*^9}, {3.759833825780264*^9, 
   3.7598338450459023`*^9}, {3.759833880534237*^9, 3.7598339723120403`*^9}, {
   3.759834145548696*^9, 3.759834279943079*^9}, {3.759834427300905*^9, 
   3.75983442807751*^9}, {3.7598345727106237`*^9, 3.759834596403099*^9}, {
   3.759834649830275*^9, 3.75983469910577*^9}, {3.759835060063631*^9, 
   3.759835064436273*^9}},ExpressionUUID->"68289bb1-5196-4119-ac1c-\
e2c70839ec62"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11H00VGkcB3BjGFzTuDN3BkOhlz1LZKW3I/H87KlNg92GM7ReakvOqe2F
1FZU265FRUUpIbsVZaNi1Sqd2ub2oqRiTtpEiCbltUXReG1n5nn8MWfO+Z17
P+f+vuf5PlPXRAdGGRoYGBzU/nT/u8TFS1vjE1F12/0WWf8bdN0uqUteXoxG
awTLFBHm4BSedmfA8Saymu758uRXDOzWP38PBVUsCOcvEMPreN2gChW6O4SE
PxTB2Rgvqi5fhRIrlwXnzqThRb5uUItUWWENH/kUmNfpB2hGyfbgkA1c8KZ0
gwaUQu37OvPgENqiez2mCakvPEix7G9HgeW6D2pBnzenLbwqO6nslusGrejn
u5qOgKJOZXKXbqBGFWaeQXkbh5X2us+3a0P1puKII41cFu/zFpktVU4q3kWx
2GtHp2YfX7g/nGax14F6wtSHc3pELPa6kJEfp6rKS8xirwfd3mD7iDcqIt57
9GPqhuxFHhSL8+lF/k5ZUjnTqBx01A160Tr23dFwS2O4O6Ab9KETsqFv+j8K
If2ObtCPNuXlznX0FEOE7vXwD2jnbtHO77cwJO+PqM5F/jnVXgjY+4iOdl+w
H5/HJ94A6rkcdWzyOWPiDSIvl4rq6Z/GEPY+obzzuUxGTS/CngZJ5qkqLvVX
I+xp0P1aeM7wXiuxN4TUzo9FESaDSuwNI45f/N7SPA6LvRGUULZa3SYzJfuO
In/vppSb1wQs9kZRzjn5yvKZIhZ7Yyhpfoh/M0fMYm8cVbX/buRXzRDvM2IY
q+ayjRas/jiJDeDGi0t9HUYaJT6PBrAxUB43zXUEterPlwFoUjKyXWbQsFQ/
4EDu2fYrqg4G9K8XcyDe92W4638MYM8Q7KevNfyBIwLsGYLE9r1nxXIBYM8Q
ar5N+KWg0QR89QMurFjzZEfOHA7xuDDFYk1chssAwp4RyNK3lm0OaUHYM4Jm
afeQx7OnSuwZQeLT6EBeYZ8Se8bwaeHyiO3PxpXYM4aSfmNfBzGP7MuDhvlu
+ZtP81ns8eDVW6Z1WYCQxR4PHl/vSko9xLDYM4EHP4UlZLqLWeyZwMDswn2X
CoTEMwWNLP127FUu8Uxhl0cclVL7huRnCg9P7I8KW2FO9jWDRJUjuu06kZ8Z
lBxJynHT9hl7FDR0oxFO1UR+FOTZuij2ONMkPwrobeHv2gQU8cyhbzFDBW3i
Es8cvjzg8zQhfYjkx4fyrfvHHw21k/z44GO/4ww3OIfkx4dj7qWczLxOkt8k
iJEFTClbN0zymwSWFlP+Ot7AJfsK4JasYvWtOIrsK4BVrn3XCsNokp8AXFso
v5FuEcnPAnwj1TVXvCbys4BHT16Hjmj7rL9+KBqSu/+V7/GmWP3140WDxySF
W768UYnvIxp+VauCXWljcr/RENofNZj9QQj4OqMhIue9p5m2z9gTwub1bXnN
2j5jTwiSxCWhqxyEgD0hXDAzE7xbwCeeEHZ4742W/mlMPCEs9nlfaT0yhrAn
goDu0qvba3sR9kTQpZn8T5SwhtyXIljPORu3crxViT0R+EQmXIvlDiqxJwI7
E+bVldMcsi8DrakOkT2+piy+fxlQvFKEvC0TsNhjIC2ltGPMScRij4G5F90L
Dmv7jD0GOk9lzH6m7TP2xOBlEym5F2NBPDE4b5py/hCjIflpz5WydF+N/QjC
nhgGg4sXLZlGk33F4NaY7xGh7TP2JMDvnfHmgLbP2JNAZr3slYOhiOQngaGC
NPpMoIDkJwFThUH3mWYT4kkAGXmps+ZxiGcJl0NjS39xG0DYs4Rt9c6ZTqta
SH6WUNDYylbfe0rys4SFclWM3bk+kp8lTPU/nrVbNa7EnhWsLZ/jOE3EI/ta
QXF9SV3yH3ySnxUkp2bVxPkLSX5WEN3veUqg7TP2rACanN/d1/YZe9bgPrDM
+4vzQuJZw57E8lltN7nEs4Y5D0Nuhf39huRnDUXHLB58F2RO9tU+X3DmpXrW
RH5SeBT0vD5Y22fsSSH2cJ+msGoiPym8SICS1S40yU8KxQpVXRNNEU8KURJz
qSKaSzwbGLnfWRZ/bIjkZwNbqySSbE4Hyc8G9qUVRaOV2SQ/G+iFgNAHOZ0k
PxuIyjydfmPtMMnPFpr9FDcyXnDJvrZQG3uzuXIHRfa1haaitouVoTTJzxaK
t/9mH6rtM/ZswcDwCi9X2+f/AS9y8YE=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw91X9Q03Ucx/Exfm1jY2M/GBseCZlImKAkKCGfV2IMRA2oBBNMTLwCTSGR
VPphKHr+tvK0kkQ0tTBQ5JQy3ZdfkeaPFA1QuQsRUn7jYIjDWdvn8+2P3e7e
t8/zvo/tc+/5LlmZmC4UCATb/3vZ3terSw2t6zaSFX1HxPERreRnn01dCZWl
ZMozkUqz1wUBKbuqhyb8Sq5N+nHdW/PlyLN/vpZ8YZh8rvmEHPfW2QaXSIyL
dCTGIsGRVTMkjYf/JF15N99FhSOaDtsGDaQtQf2uPt9M3BrtAxJT9p3qDU0D
iZTYBrfJ0uaG070hncYs2/FVLeTqkbsTC7+wGhMrbQ/0N+lYayheHu/KdSfY
Bq0kOKmzfHGhjCvosg3aSOeU2XFrAhXcc7bH92knUVNP7Jz0iZSjng5SeVEU
oZTxvQfkl7b+09e7OwjtPSTvzBc8PJrnCtrrIplHk3Pz98pBez2ksS4uxylP
DtrrJcIstPvulLDvp59Me/lx65gXHWGeYBv0kzkdhgvxSUOkZsg2GCDpr/yU
lbz/MtldbRs8Ii1D7evjvuo2ptqOp5iIoCTh9r2KZ0baGyRl+z2MI1dcOdob
JCnqq4tX9Mk42hsi/l/vir0doOBoz0wy5wi/qX/oxtHeMIlaJNV577aw3mOS
G7TwTMaObkJ7j8nopSZ5RLIItDdCUorbV0z7Qw7ae0ISOpqy61+Tg/YsZHzQ
5zde9eG9o2TZWH1y3XdC5h0lYY2m3IoXB5n3Kfl4+4bOSOca5rWS6n1TazlT
L/M+I0kzdftqMgSc/TqpBVi4p+DAplgRR++jAMOlWdkJM9y5Vvv9EiB8gTPS
xik4g33ggGAcGlsR68bZj5c6INe9xyPbYcRIe0J8clNv9JUNENoTwnerbrje
XwzaE+IH98QpxmE5YuwDR+RZtslTJXLQniN+SRHNvVQiBu05Yb2h45/ZSiFo
zwnKw+XS5KePCO05ISNS5xzRVk5ozxmG9qFF2h/6jbTnjOvdSfOmPuG9Lsio
rBcPVvNeFwyEhp+8U8B7XbDVqn18X6/gaM8VJT9XL7pWKGFeV/htu5K6eomZ
eUWoj158vqfexLwiRGalrjJ08V4RaitSk0/JFMwrRv7ZaOnTi+7MK8aFHnNc
SyjvlSD8weaQqo0OzCvBb5mCkTnXBphXgjtXDzRt904w0p4bDv21Jel84wDz
uuGbyNHjZ7c4MK8U/YKZuoBwMfNKYT1b0tf8B++VwmXHbd2rMt4rw0FTWtVo
u5h5ZbgabLLsqzAxrzsE8t9vLc0xM687yn6d5VxXLGFed5R4jnqGefNeOVTx
VZaWjbxXjqCuzen7jSLY149EgWNv3xwMMwtgXz8zFBAsGj5WXNRP6D5SQDul
yeq7/LSR7jcF9snWHqpxNhnpOlNgWtbqb8M9hRzteeBo4ESxc5mYoz0PnGtI
m6uVyjna80DstOP3i8xyjvY8cGv//Jn+fmKO9jwQFDdYvXqk30h7SsRvtuof
qUYI7SlxYckZvzfnuYH2lLDEVO7eO07B9q8SvW+ncCGvuIP2lHDsWx6lj+a9
KsjGLuWMywSg+1cFn76I96/f62VeFcJCGs8fiq1hXhXKC+6t0YUMMq8K09t2
1ZYU8141Ql8f+vR9XwlHe2qUjOwaTTHwXjWOvJZ2q/ki71Xj63mTM6MTRcyr
RpVs/Mqc9G7m1cAvqkjpU2xh/w8aOE3SEFUv79Wg8aUDE0wBvFeDgrQHVZN7
ZMyrwYaoqKDPLrkyryfey30y/c8Tz1jPE9k9p/yS87uZ1xMn/XdklN29zLye
6CisKyx7Z4h5PfFRU67a8pIj82qxNOv7ltA9vFeL8m0/Tlj9Me/VQnDUq6/1
S96rxQf316xduMaVebU4txHDy2o7mNcLZ6vvBO7xsbLn88JHRXeP+X8uZV4v
BPoMPPkwkPd6obfscoroW97rhXPHT5xqn8N7dajJnH7r0618TwfVzcS5g36d
zKvDQE5+9rqwBubVIfT59S9/uM3MvDq84HT3hqaS9+pRNyaWi7XyXj0+WzYj
2K+U9+qBDSuaVr7Je/WIzr0RmLPThXn1CAgVOearWpnXGxpDcKDbLP7+eeNg
85iiCxIZ83qjeeb18Ij/f19vWK3a8H9m8V5vlC6wnk+/4oJ/Aa8978E=
       
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 5.5}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.75983499436539*^9, 
  3.759835274813767*^9},ExpressionUUID->"b16ee2eb-1674-4343-b728-\
bc8368450a6a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm1", ",", "fz1", ",", "dfz1", ",", "pz", ",", "m", ",", 
     "q", ",", "f", ",", "\[Mu]extreme"}], "}"}], ",", "\[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", ",", "7"}], "}"}]}], "\[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[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Re", "[", 
            RowBox[{"pz", "[", 
             RowBox[{"i", ",", 
              RowBox[{"1.5", 
               RowBox[{"qcrit", "[", 
                RowBox[{"0.1", ",", "0.01", ",", "2", ",", 
                 RowBox[{"0.75", 
                  RowBox[{"\[Mu]extreme", "[", 
                   RowBox[{"0.01", ",", "2"}], "]"}]}]}], "]"}]}], ",", "0.1",
               ",", "0.01", ",", "2", ",", 
              RowBox[{"0.75", 
               RowBox[{"\[Mu]extreme", "[", 
                RowBox[{"0.01", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "0.6124", ",", "2", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"0.6124", ",", "2"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "0.6124", ",", "2", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"0.6124", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.2247", ",", "2", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.2247", ",", "2"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.2247", ",", "2", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.2247", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.8371", ",", "2", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.8371", ",", "2"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.8371", ",", "2", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.8371", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "2.4250", ",", "2", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"2.4250", ",", "2"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "2.4250", ",", "2", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"2.4250", ",", "2"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.01", ",", "5.5"}], "}"}], ",", "All"}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}]}], "\[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.759835028170394*^9, 
   3.759835046972679*^9}, {3.759835190550412*^9, 3.759835233138094*^9}, {
   3.7598358009138308`*^9, 
   3.7598358013547783`*^9}},ExpressionUUID->"8d3f6f9c-362d-4e3a-aaa0-\
f331d9d224bf"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11XlQU1cUBvAkkEAWyctLwpaCogxu4CBVSkW9x5WKdGhQUGbEKq5VRFEE
hx0BNxRxwY26U0aLgtVCraLvKaCiCCJVXBDZlSVsAgElWJN7+SPzZs6895vz
fXPnxi5ws88aHofD2f/tp39GKrI9aiMS0RPXcWed+uvRv7ZJreqb2Ug8zymk
1FwE45cdvN87Lh/ZXrW5IHSjIcrwfiGqMO98tPcLDXUR+sFj1LQ63mf7zzLI
2DJDVHnxGbLdpt0Z0SqBVxf1gwp0fjcyzfIUgLjSMECl/tcOxFUOoZki/eAN
SrPJ08a7daEQ/edb3qEqm1WxTTmlyOemfqEalNk+OUvXU8e0qfWDWtQdeyI9
pKeP2dWqH9SjnNtHT/B9eexI/fq2jWhwa/sP1WOFLM7ThNZQTZUL46Qs9j6i
Ece2Jke70iz2mlG0s5fGRSpnsdeK/hnl0zXxGkU8DTrdoJLELeQRrx0dXaFu
0M1pQrifTjS9YHCy3XYR9I3TDzpRWJhXF3jQUNCrH3Sh0PypphwtDan39YNu
tCOq5zdjJIMA/efLPqHgs+7rXhdJSN89aM/atG6z0QLi9aCqjOIjlUlDCHu9
KCsuZYHnx06EvT7kbufhX+ZagrCnRavOGv/ddaSewV4/Csx7oVw+T8tgrx91
l6Q79EbzWOwNIMvL9rvPeQtZ7H1G9Xkj93++IGWx9wXdW7fLZMMsmsXeIJrk
Ze+8WSJnsTeIjmi8elqOUMTTIYs9V3ovlnGJN4S6r1ecKz/wkez3FUVrVj8o
LxeB4TgpOPA+8VprlS8N+DxyQB15o2ZMNw21hvPFAQc3k+YgZxl4GAZcuKlO
6rc6JwHD59lcENToIGiATzweZOmmTJk6ZQhhjwcnwg41f3eiE2GPB5fuMuGl
d4rRT4aBEVi17XDpcmlgsGcEbfaze32OaRnsGYPuKs+tIZPHYs8Y3B5L5y4K
F7LYMwaz/OtGO4qkLPb4UL2qYrKtF81ijw+h6wccpwnlLPYEEFN51Lk1jCKe
ALjcxKiNPlziCaBCmKCJetFC9jOBTdmdK987ikleE0jPeD62ZhVN8prCjx6f
G/vahvszhbCg+WU5djLSnyn4ZY5vmR4hAewJIWVmi2fBMz7xhFD7+5DPqTod
wp4IBEPbrwx4dJL+ROCXr1rQOvch6U8E0f6inV/KGxjsiUHNVd3x/qAl/YlB
3Li9rryMR/JKQGCdN7n3jJDklUDAEs28gg9SklcC4ZE5wSf9aNLfCHh0GEUd
5stJfyPAY4L9ron+FPHMIOT6ydiaCg7xzCAztXjDA2sN2c8M5EGhOZ67xCSv
FPwzi54uDKFJXimkJYqsIz7QYLh+RBTAuDl3n9IyMFw/Myj4z1HRN2exBPB9
RMHxgvDpykt8cr99ez+p0Mb0kA7h64yCEJOlawo6OhD2ZHD+KxsztqQQYU8G
4pOOCdKQRgZ7MnjakbJpkVs/gz0ZLN84ct+dfh6LPRloXzcWJT4QstijYWvM
6SUaY4rFHg2BkQc3vFlBs9ijIf7MtIBtXDmLPRqqRqdTWdMo4tHwwKkqULyY
Qzw53OK0t4cGdJD7Vw5FxZFBVLWY5JWDmsM8t4uhSV45dJTFWOXU0oA9ORwq
cBA8MpKR/hRglybe5DxJAthTwMHW1LjAWD7xFOCycRY/FukQ9hTARFiYXPbu
IP0pYEzPuYSkRfdJf0rI8A1eOZFqYrCnhKqV3tkBe/tJf0rIHfPnq0w7I5JX
CaPs2k9x24UkrxL6Yi/drlZSJK85lCnyBDUbaBZ75pByb9HL+sHh/szB+GH4
8XUqinjmsLR57dp3f3xlsGcOL1P/Ut8o7ST7WUBadt3q76cM57WAkvXr4lfv
o0leC9B61vkfezvcnwX4PQ/uON1Dkf4soPy22pRjKiH9WYIjE33lsh+feJbw
KTLz1qBmkPwfWsJutkFxIaed9GcJ3s7uExpyGdKfJewVPyz0zWlisGcFmU9u
n9zypp/0ZwULf51el+JpRPJaQcZstDFIKSJ5rWD+2eqluQ7D58UKuG+aky+H
0qQ/a/BdlvD+lXa4P2twGhs34W6flHjWEO/h6z7m/BA5z9bgsCwowV3TRfaz
hpZP2U25e4bzqiDPzDVDcYwmeVXwPFlFu7wY7k8FFm+9f1E3UqQ/FTgNvujK
rRWT/lSQzOEZtznx4X+ktPlX
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HlQU1cUBvCQhC0EkvdeQkKiYCpaBC1U7Lhzz1gWd1nErQT3KrgA4lbA
YsG1omirRRxBaKCVDiAubArkCSqIUhEVRREFBJcoFVll0Zrcyx+ZTM7k/eZ+
331zVKtCfNdyORxO3JeP/jtSku3VGLEH1b0Y3XV44QtUaLtX51OQjWQHTN74
xAtgTEB8aZdDETqq8TAz/52GKMP/ryFphqr54mYGmiL0g0pUvLRBInxIQVro
dMFDTTW64/xH4KZRVvBIox/cQ8kzHuc2pJqCxUPDAKULfV3+ruWAm0A/eIzS
ZCapYxw7UZj+8dCn6HCRW1z9sSfIt0B/oOdocPXw2miLOu1bH/2gES0IUdV/
3tuh3afTD5pRrqd604RYDmunP75tC8oqbh41eYEpi/O0ov68yBPedZYs9l6h
BBcoH3aZYrH3GummpkiVPzIs9nRofHpE6MAFmnjv0JFdMcpLfhbEa0Nqkbov
2f61FvfzHq2tiV1fYsOFbgf94D0qnr+14MlzMZR16QftqJXNe1y/lYGjpfrB
B9R/61B+41Ua1PrHAzqQsP9Ew4p1YtJ3J7ofsoa3K0lAvE50x/eEbXIzj3hd
aEqmT+08lz6EvW50MNxPIznzGmGvB4lMy6MCMhLI+XpRHt8TqOE6LfZ60S2P
9nO6D31a7H1Ea6bGO/3jwWex14coZRFq6hew2OtHGUl9m5/Fi1nsDaCs3mU3
7R7TLPYG0BrnxXteBjMs9gbRsItBBQcSxMT7hM7+Ks+NbOIQ7zPy97++yEPb
hgyvk4QDrPOb3X7fCgG/jxwY28MdcHtAQ6Ph/eLAPdCWzVrGgJdhYASNYanL
/RIoMDyebQQ1gQ0xs6MtAXtcEKQHveW1mRCPC99ssZvrqeIQjwt5dd0mYdc/
oJmGAQ/ieuZNeiWpRdjjQYxXy2jngw1a7PEh6+XruOG6Ti32+FDQk52dOcmI
xR4fHAr3rSvgmrHYMwabBxtbZD9bsdgzBrcNUWXjeikWeyZQe3vLfeMdDIs9
E7DszHRxDqaJ9+W3x+J71WfMiWcKwTr5ipqZT7XYM4X2MXWaQHc+yWsGSakb
xgnUFMlrBonlsf27dzMkrxkYzQ7qSj1GA/bM4eBX1XmvFGLSnznMsXCakfXO
nHgCqNr/9tincTziCaDm7qf8nyt6EfYEkHk5M6SkvpX0ZwEls66P9q+5Qs5n
AbeDk0PdG9+R/oQgXrGtoviHAdKfEBw7AiOs+vkkrxDOeIelRGdYkLyW4L82
Pm5anZj0ZwlB6lN+wTyG9GcFrq1bw919hvqzgjv580495ImJZwVTmBE1k4YN
arEnAj+pf5wiopPcrwj6NPYq+QVLMKwfgRhOu8yuLbZgwLB+posh85rsZBFi
AO8jMWzZaVxxZeHQfhNDlV3aoye1QsDrTAyp+UfSkyabEI+CY0xb87RHnxD2
KPhYceFW5Mp2st8o+Lw+JdYjsRphj4KNz7y6VPwmLfYosOwOL3rr3a3FHg2l
YfEF0GbEYo8GKE0Qbs41Y7FHwxb7kbaqESIWezSUfxdd1jOeZrFHw7auwHn0
LwyLPQbmruk+qZHQLN6/DHTa/XtadMuUeAxsr/B1ljqyWuwxUNi1409rHxOS
lwEXhdz9bCVF8kpg8Z3i9VWxDNnnEtBF5aTNVdOkPwkoQmG+d6KI9CeBMo/8
kTnTzIkngRulmwRLdnKJJ4XUYqZ808oehD0pVJXcqziufEH6k8Kzdvtrx59W
kPNJISFxhsNSv/ekPyn4uoZFjLg+SPqzBttETsaYHGOS1xrm+GblBvkLSV5r
8LkcoPMbQZH+rOFcofnl/K8Z0p81zLz40vPquKH+ZNCUPnpfHGtFPBlUuXil
LXHv1WJPBrer7r7cHfaR3K8MuqNTXFspEckrg/1txZWuExmSVw43ebPKo+yG
+pPD9xAQGSOiSH9y+MlpqXLFWCHpTw6qi8fpyj3GxJPDpOSU89s3DyLs2UCq
i6P1oYH/SH82MHO293319BukPxuoTPtNE3XtBenPBqz5HyduyO8h/dnApYwQ
20YNl+RVwInk839NWGdO8ipg/mr78yqtiPSngOUtyXLXL/sLewoQn5rRURI7
1J8Cwuloz5zzFPGUwHMMz3GqHboPJTjc9Eh6sqSSnE8Ji+5mXlK7mZG8ShC0
rDq72JEmeZUw3Ll+oW80A/8DvIzw7w==
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11XlQU1cUB+CQAIEQSF7eIySgKLhUq6N1obYWuMdRREURULAWbIdFRAVF
VktxqUvdQGSziIAdEK2CVKtOaBXfG1xwKW6oQQZRDEEBUQSjQoCU5F7+yGTm
zHvfnPO7d85zCdsYsJrP4/HShn7G/1+YCu/mlF2ouG8TeCZo0T/Ouzv8KytQ
2CPXovlCMUwMyajWTbiMaval86rO0ZBqev4a8k1+iIqfM/AyxVi4jfpDV0Yr
82g4HushUpfcR6Jd3U9rR1BQX2Is1CG+wbxJNFkMNmpTAfl/+ct89UUL8BQZ
Cw3o8dr9LwtXDaJNxtdjn6E52Zq57cnvUUClsaEXqPVSlXeAbR16428sNCPF
qcNJldufs791GAsadG+cW7vVsQ/sKGP7zlqU495y9MZNHofnaUXxgoic035C
Dnuv0U7hsbBalS2HvTY0yyqzpPI2xWGvA9U19mxeasdw2OtE7k9qY6pfMMR7
i5Lb5hVk1co4nE8XosbmxuatE3IfJxgLXagBVYpHPriKruqMhffoj5iQXrfZ
1nCo2ljoRq8mXZeWT6JhlfH1kB4kp1LeU1qG5P0BJexqT1vXQgP2PqDjgppt
VfspwJ4OBW29nFQ41pZ4H1F7Wnr1FJUl8T6hO87S6cum8oj3GbU0nsx+GNuD
sPcZPR2cGa+sbyD99aJibr6m8IKaxV4fGrf9QkxIaTeLPT0K7tcFd2cYWOz1
I/HUc5MLllqSefuRKPdB4yNOzGFvABUHVCU2/0hx2BtEU/Q/SXJv0Bz2DKhK
n3RK1cJwpuvE8GBHVJifcjXN4fvIg1ulOveucBHXbLpfPKiPGpM+y1PNepsK
ZlCazxjyxliC6fUKM7C84dTRvkcG2OPDeO/4JxsaGMAeH9QX8+80TWAAe3xA
Pq1etI6CBaaCANzVX/hFOdoRTwB9g3+VGVRC4plDA6B1vl+ZEc8c1iWWJVus
1yHsmcPrB7GlhQHNCHsWEKEw/ODx+B6LPQtILGh6oyvvYrFnCXI/j7TAjAEW
e5aQE+5W4+xrQea1hMjCJYXzamw47Alh1RphVtE7KYc9IfTop7WuSKZJflbg
2btG5P2UIflZQZxo4bXG5zTxrCD6sbTpvsyWeEP30LDlhKPFG9KfNahP+kwJ
qeGTeUXgsuVF9OxrFJlXBP7CmYd6qobzE0G7V8L6nREMyc8GeqZseOsfLCP5
2cBka21fm1hCPDGMuiKJtqm0Ip4Y5Bk7L5+exieeGArMNRMPRn4i+dnCweow
3/OztQh7thCos/MYPY8j+dlBcP5cTcb6TpKfHewYcO2vz9Cz2LODmS2DhsjF
5mReCbiF3ficdkdE8pNAxhEHTcgWKWdaPyIp7NtZ/nqtC82Z1o+HFMzuZCkH
WYbD+0gKU9927poMDIf3mxT6y/uLtiZJOLzOpBDx/e2zNQYdiz0KclupesOK
QYQ9CoriFi040CQF7FGw3fr3HFU6Q/YlBSNuBU1fcpgB7FFgZ5+ypuuyDLAn
A+11//BsvQSwJwO/uAQvkcqaeDKYXgeZi2cIiCeDZ5vXVsaE9yLsySApVJV7
dGwbwh4N+8rdauwOJLF4/9KQ3Kk4vn5bG4s9GpaPHPPkUGYviz0afn4Qk1C8
SEDmpaHHZ1BM3bUm+TGQyk5sSLWScthj4Gz4rxV7rstIfgx8m9DjvDB/OL+h
PRe/v9p3L0M8BiyzTyTzbw6fhz1YcztWjSsbIP3Zg4tA8i7g4kfyfbCH/wKk
26aflpB57WGLu01TmfdwfvYww/P2SHrovmJPDi2CQHGQkibfGznkas6na+KG
z0MO38xTV525ICKeHDaZq/tkbubEk8NCey6xMFRP8nOA1V7t3XnSToQ9B7jb
eiaFUVWR/hygNtui3SdXS/JzgPQupzXpOZ9Y7DnAXr1Px+cFfDKvAoLCXX0n
3bMi+Slg8bLo3RWuEpKfAhpDvxsdHCEj+SlAfiowKm7tcH4KcD0yOjv2X4Z4
SghL9f1bc5YinhKe6yNDA5L4xFNCm8JNG5/aibCnhI7xc+RzltiSeZWgudRv
VtJGk/wcIestf+DA0DlhzxGOiubWqTfSJD9H2JGZqI7SSkl+jnDCOac076wN
8Rxh5daiSY++tiCeEzQVe1aLQwdIfk7wZ0VkTMy2LpKfE4SG3lW9jL5L+nMC
+8qpsz+UN5P8nGD5lVeCp3k69n9OoPlG
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11XtUjGkcB/BprjXV3Od9uyDkbOg4NOsSGc/PUrl0ko7rKlFarUuKZN3W
5UitXCqLTQolEkUjKuJ9RVitklKUpXSVOInpomh35nnmjznvOb/zvp/zPN/v
O887LHCDbzCXw+Ec/P9nuG5XZXvWb9uHKltuJN3a24IKhkS9n5+fjbqEs+/U
FkhglN+RIv3IQlSSP/FufIkadhjvv49U/JSMk5doeLvNMHiMXu4Kn1U2lIZz
YVpxddpTNMj/TMCWQDW8SDMMKpDWVxIrtVCCZbVxgMLqc0o3rZDBNLFhUIOy
e0S6mKGWEG54POxfVB+dFfZ4mQB88w0LqkO9w6MjXZQDqH2+YVCP6vJ5uXlr
PqP97w2DBrTUeYXjc7s3yMGw/CFNaGqvYIm8tJTB+2lGbsnd7tqejwz2WlHG
hvKGHY59DPbeoYvOK79uD+ax2HuPtAEKp9RxFiz2PqAFKSJldZ2Exd5HJKwM
rcocpWBxPh1obyhvwqc0Fds10jDoQFdrj3DTUyn2nt4w+IQepxTtbMyi2bgi
w6ATLXPJyFU+pVh/w+N+n5FmbkFphsbkfUELz3lUyou/M9j7gqAoueVg1leE
PT1qbmOKvc/KAXtdqKVSK510hgLsdaPNA0H2v+to0l8P2rS8NdP9LgXY60HS
M/F/ni9TAfZ60fzjZlEyPwXxvqKPft98VnhJideHOvqzhy08bUG8fpS2KMV5
7XMe8fpRSPQC91peP1nfN9ScWNc0xq8DYe87Snjd0/W+6RnC3gDykU5wzk2q
ZYyvk4oDv/3QmBZ7oJPB7yMH3pWseVOl+c7UG98vDtRJ1+VL2vmsp3FgBuG+
q5at14lZ4+PZZuDi+jl5qbOMxR4XghMexXNfKFjscUGsGd0WOFnNYo8LkeW7
Zf4imp1lHPDgUPmspRE5NPF4wHFU+A6RUcTjQ0p/540PEhnx+HB950XlqkEd
ZH18mFEesLFzGh+wJ4Dna1a7jo9UAvYE8EQQmPxkHA3YE8KCZ83tmhM0YE8I
wwV76xgfCrAnhMjPhe2a8SriiSD20qTAjEw58UTQ3aRD+yqsiWcOTNeJn7SD
zIlnDuW5s8ds9OYSzxxWTzkaf/hLD8KeBZzcXPPc7lQbwp4FHIlyg9EPbyLs
iSHXOjUztbWB9CGGTW/nvfFN1JP9iiHxwvD1/LMckp8lPHYe9ldluJDkZwlu
gQE6vYsVyc8KqtdNn/SowZSfFVS1wMuFe5SkDyvwTGk9IC5WE88aui/edCpa
YurDGg7ELYwxO0wTTwIha+vvpfLUxJMAvF2uXtshJp4EYrxytgbbZjDYk4Iw
f/Hh6UFikp8UJFyxR3+jCozHj1gG5d1nXTUxNBiPH60MKgbGJ+wJoMl5JIOJ
ovtR5s/U5Hz7/351e8mueCXg40wG/PkbC+P0MuLJQTt2pW7wYiviyaE3aRST
fUJIPDkkD33Npx9yiCeHYLeV+yKb9Ah7cnCNW+ydvrsRYU8Bw2c7OQyIbjDY
U8ADjzJLEb+NwZ4CNhw6fyAoo4fBngKkr+ZM/mUkl8WeAtoWfbu/t0vEYk8J
NfLOc5nZ1iw+f5Ww9KXdNE2inMWeEroijh2/PELFYk8JP78oDOW6U8RTwsHM
poLOBJp4KlgVPUN3wY0mngocnMZ3jU1REk8FbfGn3R3r+cRTwbXX53fu8fhA
9quCEVeoy4MvSEl+ang4kz0W36sm3wc1nKoYKK2+YupDDfptw2I0MtP3Rg0R
EVqPME816UMN3DtHY/NbFcSj4Fq0vu1Xrel7Q0HehY7cmmox8SgY6+Xzo1Ah
IB4FDjM7l8t2fSfroyB0WvSYa1WdpA8a/ObOdPqn5BXCHg1VTa5ZjdfLSR80
RISXCSSyDtIHDcUntpw9k9fHYI+GZJ9bx1dd4ZH8bKCxtmzM7a0WJD8bCDmX
X1vnJCX52YBz+vSovjkKkp8NRIRJNtazKtKHDfj6eJsJ8yji2cIkYfdUlGPq
wxauFji+sc2hiGcLNtH+FkyFnHi20Nrr1Rym6ifrs4VbutaMmqBvZL92UJSU
0ujJVZD87KDmD+81oSxF8rODp7fT5z24YurDDhShhZmuWRTpww6yQv5+1KAz
/d/sYWtYTPLLKSbPHkK2rz+9WSAlnj1cV05M815kQTx7WFBN7Y+P5RHPHtLz
EmVPN/Sh/wC8UfNr
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0.5, 0, 0.5], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11XtUjHkYB/CZqSZNmuZ+f4tNp9xWLNZBfg9ZEQfpto5b27qcKBWbSyXb
Fjp0lC7IkshlLZL7IOYtoZVr5NLmUnKdTcWUykzWzO/xx5w58z3v73Pe932e
853eETEzFvA4HE7G14/1O1FW7F+fkEbOL7cUXXv+jpxzW2cM1BeTu+0haY/z
xNB3dmZ5m3cpKS3b/XdDuBqSbNdXkG1fnNL6H9dBQ4I1uE6CJWTuiWoG9sX6
Ch4W3SFn/KLTJ7Qw8KjIGtwjK24HMpc3M+D80BaQE/31Lcq3OhgjsAa1JHiw
r8MWtQ7irMdjn5AY/0kZa/trYYbeekPPie+wPhVSDw38F2gN6kmfYdVRjlw1
rDdagxdEF3Uld0mFEtytt+/2klgG/Zqfu0QB9HleETP349DtJhl6b4j6t1m1
OXOk6L0lAfNnKmv3idEzkkpel4NPtit6TaRlVMyiJ9nO6L0nb8b+uDR6siO+
nxZS6N7glnKRB+3e1qCFbHA1anP//Uwut1mDVhK2d1ywsqqVZJVbgw9kVHgm
17noCZljPT77I8ladLgxwFRpoJ6JNA1fmyMcYDRQz0RO+dz2T7rxyUC9NpI3
Lstv5S0OS712MsD+YAF/lQNLvU8kLm8XN7vOiaVeB8klrsJ5nS4s9TqIx3H7
4fzXIpZ6ncS7YO7D10cl6HWRhvNhN5NmyND7TKaF6EoDH8jRM5OsFLFw5Cgl
emay+KKc55GqQs9CvEVq+0fH1Oh1k1f6iNSScg16X0juYVlU+QUta1snGQc2
hrpUb9+uY+k+ciBy5eCxiwMZtt62XxyY0Tvlz+h7DOtvC7jQ8OzmiCEmhrUd
L+ZCv+SS5NRgBj0ebJqauLNOp0WPByXluUlXk+Xo8WDvaTLrvt6OnWgL7MCy
+dHcQ3ZdhHp2sHl1WOipLClQzx62xZwpZSZogHpffzOr9ic4MkA9e+CTk/3r
XzFAPQeo9jzY9LqRAeo5QNDRS6fdljPo8cHSGbCDU6FDjw+5GXbJju+16PEh
44eEIH2XBj1HOHV59/H5TWr0HGHCsw1XZl5VodcDIp60nFyRpkSvB9x22/fW
7KlArwfURc582v2XDD0nSC83ndzjLEXPCdak2D0eP0WMngDcup/nh9wToieA
1Za8IK+rAvQEcFLpY+mI5aPnDMXyy7XNNVz0nOHDtuU9TaZOQr2eMHrLh6XX
i5oJ9XrCrdgr9fHZNYR6PUF7Iqnk+8z7Buq5wAhN5539fZoN1HOBxK0eXoVn
Ow3UE4L7oTn5ej0X5yuE3828rogQPs5XCH4z73InHRHgfF1h/NakycMvCHFf
XIEbPGaMZKyYtdWPQASj90xb78eVsrb68RUB+ePFjujdMpb2kQgiy6YnDmQU
LO03EWQsbf1ubpKSpXUmgtj8cxeNl1ToiWGbU8GJvFdq9MRgWLggLt2kQU8M
3jt+2p70RoueGHxTnmqIQYeeGNbkSeTJMQx6Emhyz073ecGgJwFuWGVT9RsG
PQmUbbrhIhQz6Eng9aKcnYPDNehJoNHyMrO4SoqeFHr3UHvYb/5soP0rhall
bQdCv/Cwf6WwtObn2Rsny7HPpRA/wlBp5muBelLISNND/RQGqCcDtp8gx+sj
g30ug97HVo3Mr2HQk8HOiQOmTAn59v8gg/Sz1+JSd+nQk8GG5uicqDItenLI
63U201ypQU8O65eM/1R2Ro2eHHpJfUYf3ahCTw7uDt6Tl/kp0ZPDx6FD9417
JkdPAew0jwqf2TL0FFD0vqUmUi9BTwHTs7KHzPsgQk8Bq0t2eFWJhegpYFJo
+J7Sdif0lBDv5NLRmOOAnhL2HlScajVy0FNCuLju9ihBB6GeEjwDzvsfP2wk
1FNC1z8Fmvau64R6Kmi8FxB8uLAO56GCIy9v9mvb1Gqgngo6E6+GPCj4bKCe
CibuDXxeWMjD+apg4IBM3lAfR5yvGi6yByLnrXZmqaeGdTXxR6MSXHFf1CBy
aWm9ny/GfVED6Q71+iVIip4azI5rRwwyytDTQIlFLDFGKNDTQO2ytc3xpUr0
NDBeWOx6vlOFngaKwuKaF+i+7Z8GXnjqA2I8tehpQeddW91XpkNPC1WGnIWp
jTr0tOBStaY7ctO3fdZC0LtCs6iZQU8LCdcCZEdqGPZ/7LTp/w==
       
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 5.5}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.759835762688517*^9, 
  3.759836281980298*^9},ExpressionUUID->"b9c0a3d9-7249-47bf-9293-\
a8cef94e52e5"]
}, Open  ]],

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[{"\[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", ",", "7"}], "}"}]}], "\[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[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Re", "[", 
            RowBox[{"pz", "[", 
             RowBox[{"i", ",", 
              RowBox[{"1.5", 
               RowBox[{"qcrit", "[", 
                RowBox[{"0.1", ",", "1.2247", ",", "1", ",", 
                 RowBox[{"0.75", 
                  RowBox[{"\[Mu]extreme", "[", 
                   RowBox[{"1.2247", ",", "1"}], "]"}]}]}], "]"}]}], ",", 
              "0.1", ",", "1.2247", ",", "1", ",", 
              RowBox[{"0.75", 
               RowBox[{"\[Mu]extreme", "[", 
                RowBox[{"1.2247", ",", "1"}], "]"}]}]}], "]"}], "]"}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.2247", ",", "16", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.2247", ",", "16"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.2247", ",", "16", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.2247", ",", "16"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.5", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1.2247", ",", "256", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{"1.2247", ",", "256"}], "]"}]}]}], "]"}]}], ",", 
               "0.1", ",", "1.2247", ",", "256", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{"1.2247", ",", "256"}], "]"}]}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.01", ",", "5.5"}], "}"}], ",", "All"}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}]}], "\[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}},ExpressionUUID->"b64fc4d7-36f7-48bd-b4a6-\
634416fcaadb"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11XtUjGkcB/CZaappLs28c3nfahTjWkKcXUWHnh+1ctvVxKrQOrIJ56Ci
lctileJoU7IorbQum1soa7tgXpVbQuRSSLeN0sV000VpzTzP/DFnzvmdeT/n
eb7fZ55XE7TBN5jH4XDivn4M39uUmd41W6NRwOSpq2pL36Nchz1N2pxM9MdI
Vq0WS8Fp2YGCLsfraHx8rmuzXgXbjb8vQhPmtXaV6xio3WoYFKOW6x6Xt45k
4FTodOHLk6Wo4P3n2T5LVFB+0jAoQzvdrsHKPjmIXhoH6KhvxZD8BTLwEBoG
r5Ag1YyK5IogzPB4aCVqVH1xX+RpDr45hgVVo6i65ZDb+QU1aw2DGtR9yVej
COpAMU2GQR0aeOZhl+dfhYYalu9QjzpHjrCatfehDu/nHVIf6XBzjWjVYa8B
eTz35Q170KfDXiPyeaIK3eRixmKvCd3jzp4FHQIWey3oplVSm9sJaxZ7rWjD
lEe3RCI5i/PRI3r8h3kD+5XsJ0fDQI/ig93zZh6l2cIuw6ANpRZu+ticy7AJ
BYZBO9qeM64+r59mAw2PL+tAs/fFlIyOMXmdqC473iXBmUO8TtSqPaCTFvci
7HWhmsb0vLY0CrD3CaXE1ygbs2jAXjfyODHjN89ChvTXg7bcdHb0LqYBez1I
9mLAWfFUCdjrRS6NBzydlsqJ14c2FLt9mTtXSrzPaPH84Pz76VbE60fJaR8r
U6rMiNePBiPn5hQ795P1DaCg25yLO1L0CHtfkNZ2GnoBzxD2BlHMmNTUpNcV
OuNxUnIg/I3voW5uuw6fRw781HEqtT9pQFdjPF8ccJ0RPTE4ic96GwdcsJCI
rl5YKGSNj2dyYUSTV76mW8pijwccv6o79AU5iz0eVO9+9KSSUbHY40EIVyO5
20uzs40DM2DC6rduv80Qzwxc98VE3fOniceHIZdYJipVRjw+ZKYPL3KsbCfr
40PcMAm1c7kZYM8c9OfPnb8VoADsmcPDKqFTlDsD2LOAsVL7yZfPMoA9C+C1
TM56v4IG7FnAzpIm/r2ZSuJZwjuf0R1rcyjiWULotJ6PhW0S4gkgJiHXNhsE
xBOAQhf++ddtPOIJwDy6ebp4ZS/CnhXc9qK1BWeaEPasYFVSc2fywgKEPSGk
3PBP6N9SS/oQAi/nzsxb9zvJfoVQV/Ht3c0TOCQ/EaAppePKP5mT/ESQUWL/
YWeWiOQnBo57cpjzaVN+YvDKSFs6b46C9CGG5xFqHpWqIp4EZvq/6C2fZ+pD
Ao7Hf2tbdYUhnjVQZ93c/41QEc8aYgOZMiZdTDxrqKnKHZVb+FSHPSmwqx4v
TXS1IvlJwTFkMLAoTwnG60cogx+e+DutS2DAeP1Ml0ESlz/m+maG3EcyEF19
GZbYoiL3mwyi9/91JeqiAvB1JoPItBDRNTlFPAq2V08/tvmwmHgUZA+1fxz9
1oJ4FDR0Bkwcw3CJR0H4svXuaSmfEPYo6IwcfnuN7TuEPTk805Q/Cy45rsOe
HFz9tD2lFg067MlB4lA9Vp/YrcOeHDw22sB/B7ks9uRAWWdTyQGWLPYUsKkw
Yv2PUgmL718FuIRsaY2bT7HYU8CaNy6BXTUKFnsKqL97pncSQxNPAUfejR5+
eD9DPCW42GcvyNvMEE8Jo+oXC67NURJPCUEKTaTQy5J4X3Nfv5Eq19aR/Srh
l1fS9O4F1iQ/FZzzKy31KVGR94MKIrxDxdrrpj5UEG+RkOE9yfS+UQE/Szp1
2AYV6UMFuva1+kkKBfFo0GsUB/esNb1vaMjId1A1TjG9b2hoTQ+4FLXNnHg0
1GZG9awPHiTro8G+UHws5WkH6YOBWNpzsDauGmGPgYPxrZWnLIpJHwxwJnxn
FnSohfTBwOs/374OX9Knwx4DeyN288d080h+NqBp22G9Nl9A8rOBjDL/OdfW
WJP8bCDWzKFsVhtF8vvabWzRjBkRStKHDVBlx2uTY2ni2cKi3gWPf//H1Ict
vF3xJmQXxRDPFvTf/O3+vlhOPFsQZfsUhk00nRdb8DN/FSw43U32awftsu9X
r9NSJD87WB1+pDnwKE3yswMfyVj/B0WmPuzgilei8kAFTfqwg0OzWn7WNJj+
b2posCwQpWySE08NN/QO1O5dUuKpwSesPT2mwop4akjIOuLayPCJp4aDfZKl
ian96H9aveb6
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11Xs0lHkYwHHsuKQLwzAGcSy1g9g23U4Xz5NVs3VkS47d2kpFSjfRXXSh
qbalRFbZLrtLLp02iWUs602UyGWYy4u2s2FLsbkUcqltm3kff8yZM8+Z93s+
v9+883sdNoX5bdbT0dGJ+/jSvB8W3JK0Rp6AqASdeW8GM6DITtq1UnYLfJ53
Ba4IqwfntefuDYhLoLeg//hoqxqitN+vgAzbBzY9oIa2SM2gGiZFe/EWTa6F
9N0Ljdk0ObzoXJHq4ZgOTWmagQLUMRFeV45XMONZ7QB++Mv9s/V6SsbTWDNo
gZAfJX85XGCZcM3lu5+AjbtXvpO/gvGTaUBPocXzlcB1313m35WaQStIDEIU
tumFcLJLM2iHqx1nClofN4C9hm/3DEyijzYf2s7Sep6Dv/vV7w/aqYDrvYBr
iwqygnY9BK73ElZ0D/XIfPYwXK8LUp63uO/YX8VwvVdwaHKs7vwgFcP1umGZ
R5WTSwDLcPvTCy99FD8LdzYwg2LNoBdCzzxVbjH7nSkf0Az6YES+JNL5dhkk
3NMMXkOHvlf14VwFrNNcvvYNvO1LeT10gaX97ofeUJ+bRr8pgOv1wxlsXb1/
azlwvQFI3XaEJ+7OYrjeIBxx+1ARbFrHcL23kOQYNaiIUJNvCFIz2/2nytTk
GwLfln2DrhF15BuGiEyLxGV5v1BvBH5+3W6ZubCSfKOQEZdkePwLFfnegd9l
vkFgIEu+d/DP4n47t9cN5HsPX5v3beQtKKH1/gdNR//WKY4vJN8HyMpJdmy3
a2C0t5NABzeNFsszXVmGux91MPx8hu6EYhXTqr2/dHBHzNK1c2OqGIl2oIsX
oxY8erwgDrSX39JF89X+E6s31gDX08MvI+Lk5QFq4Hp6+G177UqvWjVwPT1U
ucavr+ush6+0g08wN2Cc6FPvXOp9gl8vHb3UKy4jHw83L/R6pvu2kXw8rNdv
6g75niUfDyMNk6dJNyoZrqePeaZfPv3cvoLhevoo/q+5aUluDvkMMO9voe2K
WDn5DLCzr+Txk8ks+QzQ8aokb02binyGGCvttDkQ/Yh8htjZtm9mIVyknhGe
GJIvSfB9QD4jnOnZdq35tJJ8Rrjs3k/euh+9XG8c7hlOCH+f00i+cTgrOs8l
qKyE1muM7U6CQ1VPi8lnjI2GKfahcY3kM8ZUk8BGsZQl33g891nLrKI0JfnG
41zhEqPE3x6QbwLejy/97vazC+SbgM7fTP/FaMoj8k3AvE/XZR+uVZFvIub/
UC1SiFnyTUSTdcsN0m7KyTcJK9s8fQrv3qbeJFQO39l8J7+cfJNQDMHr53gr
yWeCJ/W3L02KY8n38fPIlsoAoQK0x4+xKYbtGhfvGF8G2uNnoSm2DSUXHNt9
m84jU8yeHveTX2o9w51vpuhy3Tf1j1I1wx1nprg8esam8q1qhuvxcaCs06Gw
tIbheny8zH8nPlhznnp8XBUd8uca+yo6L/l4NFQyLyJdBVyPj+/3WgcXzGLJ
Z4bB54LCp3o3kM8M0XbH1ax1MuB6Zri9fEroV7uKyWeGYQ5Fiui6BvKZ4ez5
/h+SvmHJZ46e2Rl1gctUdP6aY4TicqN7WiX5zDHo5bYnu0uukc8cK3wkgmyr
OvKZY8AlodexLDX5BCg17ZdFxqqB6wmwQ1bpkhBURz4BVrkZnt2QcoN6Ajya
U3NlQL+cfAJk3s0o339WQT4LNBa0dAs/Pg+4ngWed/JI65AryGeBp0VPUmS2
92i9FjiN55konZZPPgs0K1VLri9uIJ8lFns3l6QuZ8lnic1Nh6Y6R6rIZ4mO
l9Q7XRrGfg9LHHB9NYe39hj1LJHvgEnH+A/JJ8SL/bObkvXH9k+Ilb4Ge5nw
seeXEGWXww7s020knxA31Z4bjDklo/UK8Wz78I0Kg7vks8Iuk0rnzBkK8llh
4p5L0pxElnxWmF3k6WpprySfFVYkb/ANbasgnxXO6+nJ7TzwK/lEKD2ZKNlb
WUM+EfZt6St1c1OTT4QeCY48vx41+UQ4xe2OQ8z9evKJcKRoZ9dQVRb1rPFK
4Y523q375LNGo/zroZ2PlOSzxhvpwXcWH2TJZ42j86Ocsg42ks8af1w9HJ68
iqH12mCLdFuYZVA++WwwpCnFo+OMnHw2qOwajDzwYcxng5PPj5wKmTj2f7NB
fVHJYOFINfM/LOAz+A==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0.5, 0, 0.5], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw1lXlYzHkYwKepNM10zH11SklKpdGhUd83V7GLZJMlSbGkpbI8jiJSRDKE
ZT3WmXuLJ2kdaX4KT0+XW3LsVo4u7UOnUtqd+b77xzzzPO8zv8/z+fye93ln
eExC2FI2i8Xa/d9H950szg9u2JhOTjUMzj/u8k57wzajbfb1fDLNSeqaU8ln
XCI1pd2jikkb9/WhMWGOTIr+93eJzyJnt4L7vkzjRt2gglgW2BxgPfGE3MQA
bu3ph8RGe6ywqnIsvDitGzwhVkF36+6vsAVerX5AjpIIR6fzwyCQqxu8JKs1
1Rv6It9ok3SPJ74hLS9i/HaVWTJh13VC9aR3Uv3PRfEjmI+zdYMGcvn3JdPl
VT7M9jbd4C25420bfi9uFNjp9G3fkwxRucz1vBfQng9ks0do+bnndkB5zcRC
9iglbDIHKK+FLAvKFKoSH2spr43U1zoU1n81ZyivnbhmBXSd0DgwlPcPmf6+
cbfskTe+n09k6Z6+s26ZVtAzSjf4RAa39TS1Z6ugrFs3+EzOZjxdaXDBHvaW
6gYdxH3f1nZViyks1D0e2UmCvvinznEu0VJeF+EJYiZtJGYM5XWRfTbzo+fc
Hs5QXjcZGHBcf71uHEN5PSTY86ZruGkHobxewi9XTLZPGQeU94Ws4blZvFs1
HP2+kFU+SZujDvHQr49otubm3a26SCivnwjMp99My+YylPeVTDn4VWLdZY+9
A2RS8fGtR5pV6DdALjRKZxs8EKLfIDkiLQ2bn+SNvd/IX68DY48FOGDvEMm9
wnl6apY56NdJzIJ2Xstc25QqQveRBdUH4s/6vucwDfr9YoHnBOPuxSp7Jlg/
MIAQn9bF6UNejP7xfAOIsZ7Q6r7WkaE8Nsy8l94fEu8DlMeG20UrdlRLRgDl
sUHZmh9XIrSEEP3AEPgu4VKxcx2hPEMIPznVpXmKCfKMwLD65Uv3bluG8ozg
2v3tXVl2XuhnBJfYri2jQ9wZyjOGgFOGFlt/8gXKM4Z1DzIuKr+MwN5hkNF4
0LgkkY9+w8B4W1atk1kjobxhkMYZUDXlGyPPBOK8DG7H59hgrwmkFwc5Bk4b
i34cSB0qOGcfqEI/DvyiMY0ZE+WHvRyISIznBrx3xF5TSCmLi5oXJUA/U3j4
qVaZs6uJUB4XLM8Ydx61M0IeF2rSpEl7A6yxlwtifi9Tm+KJfjzo/iOCN7TW
B/144ML3aj/63XjsNYM9RVtufXzjhL1m0DSv+utvYUL0M4M7Iy/XnuG3E8oz
hzsnttXFHmIjzxz2iwbMzncrsdcC0h1edqat8UA/C+jsrzCKeeyHfhZgrREp
+5z8sdcSnpsvX8Z+OxJ7LWHbw8rtxjNFoD8/XD5MtbnU4h36mejPTwAflub0
MYclBgy9R3yIvFgT+vyGgqH3jQ+G9QWf17HdGXrO+PDklW/aijh/hvIE8Ezu
wclr8AfKE0DWfAkT2e0MlCeAWEVZou1sMd5LAbAruBObbboI5QlgenrWh4Wq
IS3lCUGyp+PK3J1yhvKEsEeyf3PrKTf0E8JxSbIwep4a/YQQrVq/vC1BDZQn
BM/sN27PJS7YK4Kzmd/nxkZK8P6KQGQeOo109BDKE8GSE0GGkVMHtJQnggSH
7OAtsTLsFYFmVnKKXbgr9oqhLr4iT1miZihPDJsG/eRhJWrsFUPCuqWy4Cmj
sVcMvhujUxckStFPDCsK16q9a/oI5Umg1r06eTCmT0t5Ethr+eMMTbAUeyVw
zqEjViAfjb0SuG9yZkben2r0k0CQRL3gYpEae6Vg8nRl7PV0V+yVwmHrbzVX
s2XoJwXLkO2krWCAUJ4UHk5atHdcZo+W8qRgUfb2hw/jJNgrA5PyZ2P+bh2F
vTJY/2rxhrwoNfrJ4PCjzMqaQDX2yuDIzV2hps/csFcGCVteJ3OuydFPDm9V
Bryok0OE8uTwqyAhd6iwE/8P5cCqy9/ZNFqMvXKIPG2xOqfKGXvl4NJbQyrK
/98/BRQ9KL25YLw/9ipgTuGtNGdfd+xVwJHSqysFTQr0U8AruzbniBkG6KeA
scXn6yOaP+H+KcE5tciT5SLCXiX05MzSkOKR2KuEyk3X5j0y8Uc/JVxafmZN
3A4/5CkhtT9pVcMlD+y1glT7fNtsRyv0swKx/ERE/wM2+lkB8eiNPjbxI+6f
FQSF3mnIdxdirxXMHZNjZnbDifkX6OPfbg==
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 5.5}, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.759837257737854*^9, 
  3.759837787362499*^9},ExpressionUUID->"65345dce-da17-455d-9955-\
c1a20a91249a"]
}, Open  ]]
},
WindowSize->{Full, Full},
WindowMargins->{{Automatic, 26}, {Automatic, 26}},
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, 212, 4, 30, "Input",ExpressionUUID->"726b00d9-dfe2-46f7-8f6d-d2f9333a9a5a"],
Cell[CellGroupData[{
Cell[795, 28, 3945, 111, 157, "Input",ExpressionUUID->"da94f536-7cab-4d17-82c2-b808bd41c83d"],
Cell[4743, 141, 453, 10, 24, "Message",ExpressionUUID->"06e09f98-d179-4543-ad45-25c83a5ad177"],
Cell[5199, 153, 453, 10, 24, "Message",ExpressionUUID->"9cec9d76-441f-4a40-b0f2-8fdb71744752"],
Cell[5655, 165, 56543, 1462, 2421, "Output",ExpressionUUID->"6f510ce8-69c7-4b33-847e-1f876d0f9e24"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62235, 1632, 81604, 1804, 3490, "Input",ExpressionUUID->"62feb27d-48b0-4e54-a9a2-f273a6219e0c"],
Cell[143842, 3438, 10270, 188, 245, "Output",ExpressionUUID->"e2af698e-a76e-4a48-b15c-bbdb9e35a236"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154149, 3631, 82379, 1836, 3552, "Input",ExpressionUUID->"7a8b6a3b-3e9f-4c55-875e-f719efe387d7"],
Cell[236531, 5469, 12617, 228, 245, "Output",ExpressionUUID->"f071b5d9-52fc-4845-8327-01cc0e656fbb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[249185, 5702, 82450, 1837, 3573, "Input",ExpressionUUID->"124875a8-5328-4207-b846-1873bbe8b71d"],
Cell[331638, 7541, 12478, 226, 314, "Output",ExpressionUUID->"25f9b313-26f7-458e-aadc-9def9718e146"]
}, Open  ]],
Cell[CellGroupData[{
Cell[344153, 7772, 82503, 1838, 3573, "Input",ExpressionUUID->"7aec3270-9380-4a2e-a0a2-65b0b1d06290"],
Cell[426659, 9612, 12558, 228, 405, "Output",ExpressionUUID->"15c15841-6450-431a-99b8-19ffb539cabb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[439254, 9845, 82405, 1835, 3615, "Input",ExpressionUUID->"42dc8f97-fd6b-49f0-b856-c86067be1aee"],
Cell[521662, 11682, 8225, 156, 247, "Output",ExpressionUUID->"4c64a5b0-24e6-4d62-bebd-2470aba960b7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[529924, 11843, 81702, 1816, 3573, "Input",ExpressionUUID->"68289bb1-5196-4119-ac1c-e2c70839ec62"],
Cell[611629, 13661, 5849, 114, 235, "Output",ExpressionUUID->"b16ee2eb-1674-4343-b728-bc8368450a6a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[617515, 13780, 84470, 1889, 3720, "Input",ExpressionUUID->"8d3f6f9c-362d-4e3a-aaa0-f331d9d224bf"],
Cell[701988, 15671, 13006, 235, 235, "Output",ExpressionUUID->"b9c0a3d9-7249-47bf-9293-a8cef94e52e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[715031, 15911, 82510, 1839, 3636, "Input",ExpressionUUID->"b64fc4d7-36f7-48bd-b4a6-634416fcaadb"],
Cell[797544, 17752, 8237, 153, 238, "Output",ExpressionUUID->"65345dce-da17-455d-9955-c1a20a91249a"]
}, Open  ]]
}
]
*)