ChaosGBAdSplot1.nb

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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    271580,       6051]
NotebookOptionsPosition[    270654,       6026]
NotebookOutlinePosition[    271014,       6042]
CellTagsIndexPosition[    270971,       6039]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm1", ",", "fz1", ",", "m", ",", "q", ",", "f", ",", 
     "\[Mu]extreme"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"rp", "^", "4"}], "+", 
      RowBox[{"8", "Pi", " ", 
       RowBox[{"l", "^", "2"}], 
       RowBox[{"\[Mu]", "^", "2"}], 
       RowBox[{"rp", "^", "2"}], 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "3"}], "/", 
        "\[Lambda]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"q", "[", 
      RowBox[{"rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", "k_"}],
       "]"}], ":=", 
     RowBox[{"k", " ", 
      RowBox[{"rp", "^", "2"}], " ", "l", " ", "\[Mu]", " ", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "3"}], "/", 
        "\[Lambda]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{
      "z_", ",", "rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", 
       "k_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"1", "/", "2"}], "/", "\[Lambda]"}], "/", 
       RowBox[{"l", "^", "2"}]}], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"1", "-", 
          RowBox[{"4", "\[Lambda]", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{
              RowBox[{"m", "[", 
               RowBox[{"rp", ",", "\[Mu]", ",", "l", ",", "\[Lambda]"}], 
               "]"}], " ", 
              RowBox[{"z", "^", "4"}]}], "+", 
             RowBox[{
              RowBox[{
               RowBox[{"q", "[", 
                RowBox[{
                "rp", ",", "\[Mu]", ",", "l", ",", "\[Lambda]", ",", "k"}], 
                "]"}], "^", "2"}], " ", 
              RowBox[{"z", "^", "6"}]}]}], ")"}]}]}], "]"}]}], ")"}]}]}], ";",
     "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{
      "zs_", ",", "zp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", 
       "k_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"f", "[", 
           RowBox[{"zs", ",", 
            RowBox[{"1", "/", "zp"}], ",", "\[Mu]", ",", "l", ",", 
            "\[Lambda]", ",", "k"}], "]"}], "]"}], "/", "zs"}], "/", 
        "\[Mu]"}], "/", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"zs", "/", "zp"}]}], ")"}]}], 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"1", "-", 
            RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "2"}], 
       "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{
      "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", "l1_", ",", 
       "\[Lambda]1_"}], "]"}], ":=", 
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"2", " ", "q2", " ", "\[Mu]", " ", 
               RowBox[{"z", "[", "t", "]"}]}], 
              SuperscriptBox["zp", "2"]]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"2", " ", 
               SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"\[Sqrt]", 
                  RowBox[{"(", 
                   RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]]}], ")"}]}]}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                  FractionBox[
                   RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             FractionBox["1", 
              SuperscriptBox[
               RowBox[{"z", "[", "t", "]"}], "2"]], 
             RowBox[{"(", 
              RowBox[{"\[Sqrt]", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{
                   FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                 FractionBox[
                  RowBox[{"6", " ", 
                   SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                  RowBox[{
                   RowBox[{"-", "3"}], "+", 
                   SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"24", " ", 
               SqrtBox["6"], " ", 
               SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"6", " ", "\[Lambda]"}], "-", 
                 RowBox[{"16", " ", 
                  SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                  SuperscriptBox["zp", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["k", "2"], " ", 
                  SuperscriptBox["l", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["zp", "4"], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox["1", 
                   SuperscriptBox["zp", "4"]], 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], ")"}]}], 
               " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "+", 
                  RowBox[{"\[Sqrt]", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                    RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                    ")"}]}]}], ")"}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SqrtBox["6"], " ", 
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"6", " ", "\[Lambda]"}], "-", 
                 RowBox[{"16", " ", 
                  SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                  SuperscriptBox["zp", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["k", "2"], " ", 
                  SuperscriptBox["l", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["k", "2"], " ", 
                  SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                 RowBox[{
                  SuperscriptBox["zp", "4"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "-", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                   ")"}]}]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["l", "2"], " ", 
               SuperscriptBox["zp", "8"], " ", "\[Lambda]", " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox["1", 
                   SuperscriptBox["zp", "4"]], 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], ")"}]}], 
               " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "+", 
                  RowBox[{"\[Sqrt]", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                    RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                    ")"}]}]}], ")"}], "/", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"6", " ", 
               SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
               RowBox[{
                SuperscriptBox["z", "\[Prime]\[Prime]",
                 MultilineFunction->None], "[", "t", "]"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "3"}], "+", 
                 RowBox[{"\[Sqrt]", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                   ")"}]}]}], ")"}], " ", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                  FractionBox[
                   RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}]}], ")"}]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"3", " ", 
               SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
               RowBox[{
                SuperscriptBox["z", "\[Prime]",
                 MultilineFunction->None], "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"6", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                   RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], "-", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"24", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"6", " ", "\[Lambda]"}], "-", 
                    RowBox[{"16", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "3"]}], ")"}], 
                  "/", 
                  RowBox[{"(", 
                   RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]]}], ")"}]}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", 
                 FractionBox[
                  RowBox[{"12", " ", 
                   SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                  RowBox[{
                   RowBox[{"-", "3"}], "+", 
                   SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "3"}], "+", 
                 RowBox[{"\[Sqrt]", 
                  RowBox[{"(", 
                   RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                   ")"}]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                  FractionBox[
                   RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"k", "\[Rule]", 
             RowBox[{"Sqrt", "[", 
              RowBox[{"8", "Pi"}], "]"}]}], ",", 
            RowBox[{"q2", "\[Rule]", "q1"}], ",", 
            RowBox[{"zp", "\[Rule]", "zp1"}], ",", 
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}], ",", 
            RowBox[{"l", "\[Rule]", "l1"}], ",", 
            RowBox[{"\[Lambda]", "\[Rule]", "\[Lambda]1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", " ", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "7"}], "}"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Mu]extreme", "[", 
      RowBox[{"k_", ",", "l_", ",", "zh_", ",", "\[Lambda]_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{"3", "/", "2"}], 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"Sqrt", "[", 
             RowBox[{"1", "-", 
              RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}]}], "]"}], "/", 
        "k"}], "/", "l"}], "/", "zh"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"fz1", "[", 
      RowBox[{
      "t1_", ",", "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", "l1_",
        ",", "\[Lambda]1_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{
       "q1", ",", "zp1", ",", "zs1", ",", "\[Mu]1", ",", "l1", ",", 
        "\[Lambda]1"}], "]"}], "[", "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Abs", "[", 
            RowBox[{"fz1", "[", 
             RowBox[{"i", ",", "0", ",", "1", ",", "0.1", ",", 
              RowBox[{"0.75", 
               RowBox[{"\[Mu]extreme", "[", 
                RowBox[{
                 RowBox[{"Sqrt", "[", 
                  RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                 "0.125"}], "]"}]}], ",", "1", ",", "0.125"}], "]"}], "]"}]}],
           "}"}], ",", 
         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", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.125"}], "]"}]}], ",", "1", ",", "0.125", ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
               "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.125"}], "]"}]}], ",", "1", ",", "0.125"}], "]"}], 
             "]"}]}], "}"}], ",", 
          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[{"2", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.125"}], "]"}]}], ",", "1", ",", "0.125", ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
               "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.125"}], "]"}]}], ",", "1", ",", "0.125"}], "]"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"3", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.125"}], "]"}]}], ",", "1", ",", "0.125", ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
               "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.125"}], "]"}]}], ",", "1", ",", "0.125"}], "]"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.01", ",", "3"}], "}"}], ",", 
         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.760531509765633*^9, 3.760531538886314*^9}, {3.760531609138538*^9, 
   3.760531609941523*^9}, {3.7605317384737577`*^9, 3.7605317401279507`*^9}, {
   3.760531793510116*^9, 
   3.760531827887727*^9}},ExpressionUUID->"dd3ed1be-e64f-4871-bdc6-\
bbc86a92e982"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw9zGlQk1cUh3EMyBpCEpKQRUWsAlYQ11oRc4+IshWsioyIVKXVMoWiKEVK
tVhLXLoghVEUF1pEQKniilAVLaA4jIobxhZBpSpINgXCGpImmZz74Z13/s+d
8/OI37hsPcPKymq78TP9d0+0O1S8qpM87c7OFbh3EOXSqnEyxVuSX1AfGq3r
ILsU5kB2nhbfv93QSdxlpqAif0jTk6K/f0uqx5mCmmS0VPY99ugik1fvq9V6
vyPV/lcDJRe7SJ+3KbwjSdVpi9QfKUid1hTek/nN3uXacgXJqTWFblJztvv9
JZ6SxJnOV/eQJDZzZfZmpcXrJR5LZgRV31JavF5ypMzXN5KrsnhaMimzITIo
WmXx+sgPW2dUfZOnsnj9RHAzaH1Ro8riDZDwMPeALTqVxRsgwRWvH2ybrLZ4
g2RduIN6wTK1xRsizqr027O3qi3eMBkoBZuag2qLpyOHfdYkzrqstng6st82
N6XzIXojJJeQrPFK9PSkKKPQT2KtsXgGUpW3XMgWagjvTPDLDJ4VTF4fIJ82
RUO+MwcruN78YeXJAA0xPhqDFVzO2LG86BMNCTaHUfB78YJp0lgNMZ+fGQVP
hAk+RxPQY8CbvLHqllT0GOCbIAzi7UCPAZJQRWrcTxoSYg7W0NrTuOtOHnrW
kMa8uy31CHo2kCNfuG9DMXo2wD/+Qez5cvRsoDG0k7nhPHqjwW1Cviy7Cr3R
EH+dtX1ODXq2MPavumOJdejZQtpdYfGs2+jZAu9BS+LhO+jZQdROsUvZffTs
wK7oRs+6x+jZwyudV2uTHD17aO72H+7/Fz17mJ0l73/eip4DvLnxJ+PXF+g5
wPjB+GfW/6HnCBz2uRchr9FzhP2rKlhrO9BzBJckD07EW/ScILaybZGrAj0n
sPZj1V9SoseEzHml8XPU6DEhsOPnawUa9Jiwtm6mf/s79Jxhe8wFZ3Y3es7g
0VQq9exBjwXyvvxTnr3osYBzK8PeVYseC+4UHFAqtei5gKKipPFSH3ouIJ03
czC5X0Mc5cc3zXdkQ8OikAuiAQ2Zbw5sCL8/VXLZuFPMgQ2Gz50CQgY1pHiT
KbAhzIfHvGfc5nM5G75iFX4dOoQeB859Wjb9yhB6HGh0jxJNHEaPA33pc5uz
htHjgHJvm33bMHocGNr0KGyaDj0ueP5SOGmbDj0uMGqCRbU69LhgL8s4zBhB
jwsXx8iF0hH0uDD6xAVt6gh6ruD/5cTsUuOWmoMrRNksnfNkBD1XmDD9NBml
R88VvHTJGm89esYdEb83Qo8eD2br68I26tHjQd1uUVK2Hj0eOAkWTiinHg8O
Om8+epN6PGhvveLQRj0+HC/0yumlHh/ySndHOxjQ44PPs5LMMQb0+CBbWDpl
qgE9PmxM9EqXGtATQIxfyo4IA3oC2HPldFws9QRwLvJjrwTqCcAzTda9hXoC
GIpY/Oh76rlB072LLXuo5wYHXh0bk0s9N3g698cTBdRzg/rAiqwi6rnB2Xsr
Gk5STwjr6vO/PUs9IZyqzSmppJ4QUnorV16lnhBKTlw79Df1hLC4JW7zLeqJ
YMW1sq5G6okgmct3bKKeCBwid8ofUk8EsklRMU+oJ4Ilsi37/6GeGILXBP72
jHpiGPdF5dLn1BPDSFxyy0vqiUEUfGrGK+qJoV36Wewb6kngAM83ppN6EgjP
TPProp4EQoOkLxXUk8BDLklRUU8Ce50929XG/T/qdMhk
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw91HlUjXkYB/AW3dKt1L23e6srMrYMZ+yVTD3P2FqQFmUYiSEUQ4Q2k2wx
sqVjGKHp6JAoW7KESiqVpRIpodttuct7zR20L8a9nnf+eM97zve8z+c8v9/7
nGfYrxt9g/V0dHQOfn007xhBlpskeg9c9czOM8y7A3eG7FX63M6C2tNyu5Xr
H8CYpUcettnfA+szm13THhXCdu33j0DKsbgSElgKjdGaoAzWVOy+5bbhOaSF
uRjXnKsA7AtIF9VVwetzmuAFzLk9sWqwwSvg1mgDWB0y6/qSsbXgaqwJ6uBU
+sZ8+xn1sElTHvYWzjveb+Tge/C9rWmoATyt7ds9zSTA+GgCCXC8dpduW9sI
8UpNIIXukhNp3ZekMFTT/pBmCEi81+pW00TnaYF7iQ6ZRfJm8mRw4Gyy6Kq0
hTw5HDp3eJu8qJU8JXz45VJ/SaKMPBW4nPcob3WXk/cBOuYtdDJQyel+1BCR
npDesEMB7faaQA2puSM/fq+vhMI2TfAvnLHd9ywyUglHH2qCj8DfUbV+ukQJ
gZrypZ9g3H29FfdcGfI+w4gdg/zExxjyPkPA3kDZ3HqGvDaQD8pw5n3t65vX
DnXFd1N7FqnI64Df/DK3eh9QkdcJEYHXB3Znq8jrhPIfh8UurlGR1wV/81Jt
bdWs1w0+Hg12gX2s1wNda7tXxPaxXi/MFQwfuV3Ner3Q4zwsnvnf64P4W1G5
t2+yXj8E7XQVOiSw3hewLhQd4yxWgXacBDoYVbCdO3OoCr7Now4OdViQk/aW
AYl2vnSw2D8+OCWJATdtoIs+343p3IgMaMuzdHG8xPzicKmSPD18mRCdlhyt
JE8Ps9qD7I4YKMnTw0+F4RcP7VKAuzbQR1fv+NH6ajl5+ijZPNkB5snJG4Bi
q/4/dx6XkTcAYx/2njItayVvABafWDZ5jqyFPAM8vrw/5MWHZvIM0HPVO6eK
+ibyOPjTluOVvdek5HG++kmnVRsayePg6TeX/cZZSsgzxCzJUEWc13vyDBEd
74um+NSTZ4SmFt68cuda8oxwQfyq0nzBK/KMcHfZ0oIceRV5A7FtraxacfA5
eQORv99k5IHoUvKMcZHHD8ymd4XkGaPt4lkloxMfkGeMZ+1ylEnFd8jjomq2
QpTwIJc8LjqZvXnKZBaQZ4L2lROOgrqYPBNsKB3e/672CXkmaNB2M/nIvkry
TLH2ZdemjqvV5JniqYKZi07W1ZBnhuJ5jw8Ku+rIM8OP6523xum9I88MC6pN
OT3bGsgbhBleta8+1krIG4QGuhnSqaOloF0/xuYozC8NL1vaBNr142KOMYr0
wBtRzbSPzPHJVO7J17+30H4zR5PHAnl9SCt8W2fmaDkrtVXpKiPPAud+6Nz+
R7+MPAsMLhoYvTZDTp4FvrBYHuo5S0GeBapT/Q7JnirIs8ADTpJDTe5K8ng4
ItnPPi9HSR4PHZ+taKqyYsjj4eXyMCefMIY8Hp5IfZuADxjyeLjaV74zSl9F
Hh91d5mmpaKK9i8fox+vSLTbpiKPj9mh645x01Tk8dHJSHhLr0xFHh8jFtQd
0WtlPQE2d3ZvWdjFegL8WZ5iyP/CegKMme9+ZXMH6wkwatTs5Bgp6wkw2I13
2LaI9SzRKPvFhc4zrGeJqunZEe0bWM8S1bnn41Y6sZ4lTmZCegd3s+e1ROek
wbHXbjDkCTG+dk1O+CqGPCGGuYtd93DZ+xOiLLYk5NUFJXlCfLpaUjLJSUme
EGcGRNpPy1WQJ0L1X6k5K8cryBNh6JkJd02S2P8rQpdeTmZkk4w8ES5L8I5r
GSYjT4Q3kvIlFzxaybNCPHi1cMaSFvKs8MSU+X3Jvuz8WWHglYhQ+0lN5Fnh
6uCGiCFdjeRZYeXorIiz6RLyrNGB2x5ZPKOBPGu8tD/c0O/4W/KsMbTdcF3A
/jryrDEoeP77lDU15Fkj459f5OFSTZ4Nhhm71fUIKsmzwfDzogqz3nLybHCe
v2Ov7vBi8mxwyfOxI4IMCsizwaBohfE001zyxDjK93S1P/8ueWLkpVS5czPz
yBPjZHfu7Kcpj8gT47o2h4n/+JaRJ8YJXkP2NDpWwH8ndiB6
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11XtUjHkYB/DUqExNMzWXamYruZVbltTaXJ7Hkmh1kF13NlntiUV2OUQh
ud8SIilSuYQ6rKRJF13QRekyNVPT1NxYoYjUithmeuaP97zn/b7v73N+l+c8
r3PgJv+1xkZGRsf6Lt19Jy/dR7VjH6TYXrvqlicGseP+1wuy0sHmRlDMUv88
GLkiqvCjaw6Y7Fo0PzipCML03xeD3dbODXFDS0G9QxeUwSqL8MzfRM8gJWQq
U5pcBe1BSwTc5BqQJeuCWgh1y5hpl18HFlJ9AM+n17F/kchgGlMXNMLH7NHO
k6Ry2KwbHqIAb6/DYak5zeCfpZuQEuYf4Ucez1HCmwW6QAVbCsd6+H9TwYHX
ukADuaEsbw+RBpx003d8Dpler0t4nRpazwtg/av4EIxa8l6CeXil5a4yDXmt
EGKxpTpOoSbvNWw/fsJ98H0VeW1QvdHTwWODkrx2mOy1qHght5n25x34W7RG
mI+QQ5erLngHDsVvXVQOMij6qAs6YOrnkQe+DayDk4W64D2wXdIUE19Vw0rd
8BUfQDA7pGHnnQryOsE3VXs+ouIJeZ0weP/IQv/theR9BIe8se9vFeSQ1wW3
3OPcYuLE5HWD6qt7a+7oXPL+g3nFPYOTygrJ+w9iJcIM87El5H2CmXuq13QJ
KsnrgZhoxl0XxxryPsNBcWg936uOvC/grdnKnrNARt4XGDM8+DNjiZy8Xrhu
U/Rs1Ixm8r6CpVNE1I1IJXnfILC55VBiuQr05cQzwiRXE394q4b+ejRC/08n
nRT1GlDp68sI5640bjw3XQs++mAAjn75SsZt1YB+ePoALLt2YtpEpoY8Y5R6
miV49tVJv2eM6Q5t362+qiTPGHfzm5rgeDPM1gcm+Lwja+7hK3LyTPBds1el
8LKMPAayUsa6c47WkcfAVZ6uN8031ZDHQLHZvSTfe5XkDUSRyYuCzMIS8gbi
nlsT4vl+ReSZolVab9c4eS55psj562XruBti8kyxdLX4folLDnlmOOvasCxN
TwF5Zti+eMR+ntcT8sxx76DYIy68CvLMMexV6r2w89XkmaN3Ut7DjgwJeYPQ
pzdtSGmFlLxByBLvT2LJGslj4vrY+O6zJQrymBh0MSHLytewf0z8J2wgdpxV
kWeBqyZccbtboCbPAr+PUZ7zzTSchyWWdZT7FE7RkmeJRk2JwQMYWvIs0Znb
li/y0JDHQlfFSrOZjgaPhY3BUlZFs5I8K9yIpdFM0xbyrPCnxIpBXsOayLPC
NefPhtUObSCPjQnCkqXv2fXksTHlMeM0q7MG9O2HycHfR1VaH8p+Bvr2M5WD
jUlpTl4PSqkfcdC4x8r9h5HF1N84OG+5zaRuXj70tzMO7pY8lsW/EZNnjW0z
xrFW+D4gzxqZkfWLlkwsIM8ad18wPz3958fkWeNtyal1E7lPybPG04sFx0fw
q8mzwQtZEeyccRLybFAUYNqqniMlr+89I3JLwOJG8mywbGcau3eugjwbTE6X
Dy9iK8nj4qVw+cGFq1XUf7kY33GiPPOUmjwuXlxbO6XylIY8Lt5sifS1n6Al
j4vl0TGcfKGWPB7OXSq3dlqlIY+H3y6GZ3vON3g83GfpXbNJoCKPh0WM/FlX
w1vI4+F7R4mnVVITeXyMDNmU+PVKA3l85L1Yuzz2TD15fOS32CdMCK0lj4+C
txdTdgdUkcfHbZKMsOTMMvIEuPhmzN+lFo/IE+B102V3Uz0ekifAKq4oYFlA
NnkCzHFW1049l02eAP089yoXbH9Ini3mjnePG7ba4NnikO6j0kBeOXm2WL08
IujH6CrybHG4U9WFyBu15NliB/NLaPKjevLskLFI68asN6zXDhsCW39dV9VE
nh2umBV47FJqC3l2+Meuy26SUSry7HBX6KfxwYFq8uwxaPKbS0/+NJyHPU7h
MCp7nbXk2eOSMXd888ZoybPHFHV1lFHff7Tf63vumbHt0x6DJ8QDk2/LpvkZ
6kWI9i+Xxpt0tpAnxMqj9u3djgryhJjbvjf0hEsjeUKMWpeQ/sFOSp4I/U49
DQv6WkueCK+tTW+Ypq0iT4TLZhY9OpNRTp4I1V02mz9/eESeCOVp6zeub3sI
/wO8zAwB
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11XtUk3UYB3BA5TIQGAM2mIJYmB40TRSkxOdJLUgCZIZXUMDwFiSYqQnK
xUtoikqWEVkklSk65XhlwOQy7iZzk7HJNsZQQEHEcBsKaG0+/PGe95zveX+f
83ve93e+r1fcVl68hZmZ2ZH/L+M9xZkf1L57P6QK30mPLCuGYo8DPRE3+dDf
ta5n4jwhTIs6VqmbWgqxYfnt29KqINX0vAiOpa9wiO2qA+1uY9AAu2ulDzIr
78AfSYGMlgIxxFr1iX+Ll4C8wBhIQTTZqpGR0Ay2LaYAEnsMQ1vWy2EBwxjc
h+F2heaBfyskG5cnqUAetkGgqVUB76ZxQxq4yL1Q5y1sg94IY9AOYZttze09
NXCwxxh0QIvfvgqBSg2exu17PARW4Z9ltVlKmqcTLu/whkixgrxuuMEfiA7r
kpH3CE6VPK6c2Sklrwd07EiHXLWYvCfwbW9XxJzqRvL6YMm2xmfLOTX0fvqh
IPPTwA63CtBPNQb90DkhzzchsASqdMbgGaSw38rx7C2G45XG4F94HTNX0z8k
hGjj8qgB8G0VSnlWIvKegyiubOS99HrynsM/kurQvLgm8nSgOsn3Kb0uIU8P
hR33vokpbSbPAEvmVh72LpKTNwhTvj8x8FV6K3mD0LFSFtI/Tk3eC7BUtkom
a9vIewnDDspFn7tqyBuCi1f14/V/qckbhp7r2pzPFynJG4YzIxsmBO5XkDcC
kfUbPys/JSPvFfRNzRjw+UFK3mvI8jBM6TgqBtNxcjbDX5etOVM6tRHenEcz
vHJmRolPVjW0m86XGVpg9qq9f5ZDkCkwx0ffT8yLbhSAaTnfHPl3E/oFMwTk
WeDj6ozasoZb5FlgUuBsZ/4JEXkWWCMwJExwb4BgUzAGD6XOjDtuLiZvDA79
7T9JYSUlbywunLxneZadjLyxqH+SaZbySk7eWNQWtvhhXSt54zDtqDw2fKGa
vHG4t8hqWbOZhjxL1KZ3+gwzNORZoutt9neDiWryLHFe3KoAp5FRzwrH+Ax9
WOivIM8KN5ZGJeuDZORZ48ezAg5xF0vJs8Z5afX5vEAxedYYN2WNwevo6Lw2
6Mu1Sx58ISLPBheuzpiTObecPAaKV8frV2wRkMdA/tui/twMAXkMTDcwG2QR
5eTZ4vRhrTTMo5o8W3ye273U8loDeXYYujHkljlPTJ4d3lR1xfSvlJJnh1tQ
25kSJSNvPGITrzYuZHTe8VjDtd4Z4KAkzx735lcHi1PV5Nnj2aWLgnzsNeTZ
Y7SvtcXYl23kOSAv2+vp4OzR7+GAQ+fzBtuvtYKpfhiOuC0pJuTsYzmY6ifQ
EYXdrD90hmbqI0fcceTKuDEDEuo3R3xxIPvwfUUTvKkzR8xRPRXs+reePCZ2
FZzY+ihRRB4TpzN/wNMnb5HHRE5KsBuXKyCPicrV+UXMLgF5TFRHzv5puLKc
PCdsbN4RYXmxmjwnDE4JDbm/tJE8J6yyOSfMOyMmzwkZ5+p4I+ek5DlhlCdn
vt8FGXksVPwyf0fzKQX1LwuXNB1JCY9UksfCXd3W5/CamjwWPk28U63laMhj
YbIu0T9U0UaeM3K7FjyYoleR54wxe1nZ2sTRPnfGbiUz1f+0nDxnLC3yk1ec
bSbPGcu6O1idv0vIc0H+JYe0pIAm8lxQXFGhu7eynjwXdL+b8HD6gyryXLDB
cGFfdp2QPBd8VvDLwCfqYvJc8bsPJtSujS4hzxV94vke2+dVkOeKyz+ITS0M
rCHPFSWf7Dl98Ekjea7IW/2FcNWAmDw2vjM+KW34pZQ8NnppP4q+MiQjj41z
tqsW3u5QkMfGTMHX4ck/K8ljY6KN3Z5NPWryOPjTsbec7k7SkMfBWT5JdQFX
28jjoPfJ6W0XbqjI46BimqjYy7uVPA6+362aHBcuJ88ND21+HbxuRTN5bpil
CJLULZWQ54aOvf4N23JH/9duWPzP1rmh5XXkueElQ06SPqqKPHeMPTSx9KKV
kDx31NX/uHbT1WLy3FFw9Vrn+Y4S8tzxV1tdcmdRBXnu+HPu+s1scQ15XGRe
fjf+xeHb5HGxdqfNWb/Fd8njYqQ0pe9RyD3yuOipnlbbt6SFPC7eO/XlcZh5
H/4DANop8g==
       "]]}}, {}, {}, {}, {}}},
  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, 3}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.758616533127037*^9, 3.75861655970126*^9}, 
   3.758616680242173*^9, 3.758616744399549*^9, 3.7586169329633217`*^9, 
   3.758617080656292*^9, {3.758617113502221*^9, 3.7586171419373198`*^9}, 
   3.758617183845419*^9, 3.7586173092295017`*^9, 3.758617395245215*^9, 
   3.758617425406066*^9, 3.7586175867672987`*^9, 3.7586176488302*^9, 
   3.7586177011767187`*^9, 3.7586177427611723`*^9, 3.7586178463155413`*^9, 
   3.758617883492159*^9, 3.7586179238233232`*^9, 3.758617974592456*^9, 
   3.758618071663211*^9, 3.758618120556809*^9, 3.760531575593546*^9, 
   3.7605316464771442`*^9, 3.760531777331664*^9, 3.7605318233340673`*^9, 
   3.760531864769422*^9},ExpressionUUID->"1a0e5c85-708a-4da6-9c3f-\
cc7486596d5b"]
}, 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[{"rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_"}], "]"}], ":=", 
      RowBox[{
       RowBox[{"rp", "^", "4"}], "+", 
       RowBox[{"8", "Pi", " ", 
        RowBox[{"l", "^", "2"}], 
        RowBox[{"\[Mu]", "^", "2"}], 
        RowBox[{"rp", "^", "2"}], 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"Sqrt", "[", 
             RowBox[{"1", "-", 
              RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "3"}], "/", 
         "\[Lambda]"}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"q", "[", 
       RowBox[{
       "rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", "k_"}], "]"}],
       ":=", 
      RowBox[{"k", " ", 
       RowBox[{"rp", "^", "2"}], " ", "l", " ", "\[Mu]", " ", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"Sqrt", "[", 
             RowBox[{"1", "-", 
              RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "3"}], "/", 
         "\[Lambda]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{
       "z_", ",", "rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", 
        "k_"}], "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"1", "/", "2"}], "/", "\[Lambda]"}], "/", 
        RowBox[{"l", "^", "2"}]}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           RowBox[{"4", "\[Lambda]", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{
               RowBox[{"m", "[", 
                RowBox[{"rp", ",", "\[Mu]", ",", "l", ",", "\[Lambda]"}], 
                "]"}], " ", 
               RowBox[{"z", "^", "4"}]}], "+", 
              RowBox[{
               RowBox[{
                RowBox[{"q", "[", 
                 RowBox[{
                 "rp", ",", "\[Mu]", ",", "l", ",", "\[Lambda]", ",", "k"}], 
                 "]"}], "^", "2"}], " ", 
               RowBox[{"z", "^", "6"}]}]}], ")"}]}]}], "]"}]}], ")"}]}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"qcrit", "[", 
       RowBox[{
       "zs_", ",", "zp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", 
        "k_"}], "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{"f", "[", 
            RowBox[{"zs", ",", 
             RowBox[{"1", "/", "zp"}], ",", "\[Mu]", ",", "l", ",", 
             "\[Lambda]", ",", "k"}], "]"}], "]"}], "/", "zs"}], "/", 
         "\[Mu]"}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"zs", "/", "zp"}]}], ")"}]}], 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "2"}], 
        "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{
       "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", "l1_", ",", 
        "\[Lambda]1_"}], "]"}], ":=", 
      RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"2", " ", "q2", " ", "\[Mu]", " ", 
                RowBox[{"z", "[", "t", "]"}]}], 
               SuperscriptBox["zp", "2"]]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"2", " ", 
                SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["z", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
              "/", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"\[Sqrt]", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]]}], ")"}]}]}], ")"}], " ", 
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                   FractionBox[
                    RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}]}], ")"}]}], "+", 
             RowBox[{
              FractionBox["1", 
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"]], 
              RowBox[{"(", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                  FractionBox[
                   RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"24", " ", 
                SqrtBox["6"], " ", 
                SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                SuperscriptBox[
                 RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"6", " ", "\[Lambda]"}], "-", 
                  RowBox[{"16", " ", 
                   SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                   SuperscriptBox["zp", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["k", "2"], " ", 
                   SuperscriptBox["l", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["z", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
              "/", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["zp", "4"], " ", 
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], ")"}]}], 
                " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "3"}], "+", 
                   RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"], " ", 
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                    RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                    ")"}]}]}], ")"}], "/", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SqrtBox["6"], " ", 
                SuperscriptBox[
                 RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"6", " ", "\[Lambda]"}], "-", 
                  RowBox[{"16", " ", 
                   SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                   SuperscriptBox["zp", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["k", "2"], " ", 
                   SuperscriptBox["l", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  RowBox[{"8", " ", 
                   SuperscriptBox["k", "2"], " ", 
                   SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                  RowBox[{
                   SuperscriptBox["zp", "4"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "-", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                    ")"}]}]}], ")"}]}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["l", "2"], " ", 
                SuperscriptBox["zp", "8"], " ", "\[Lambda]", " ", 
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], ")"}]}], 
                " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "3"}], "+", 
                   RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"], " ", 
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                    RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                    ")"}]}]}], ")"}], "/", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"6", " ", 
                SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                RowBox[{
                 SuperscriptBox["z", "\[Prime]\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}]}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"z", "[", "t", "]"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "+", 
                  RowBox[{"\[Sqrt]", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], " ", 
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                   FractionBox[
                    RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"3", " ", 
                SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"6", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"24", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"6", " ", "\[Lambda]"}], "-", 
                    RowBox[{"16", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "3"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]]}], ")"}]}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", 
                  FractionBox[
                   RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], " ", 
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"z", "[", "t", "]"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "+", 
                  RowBox[{"\[Sqrt]", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                   FractionBox[
                    RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}], 
                 RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"k", "\[Rule]", 
              RowBox[{"Sqrt", "[", 
               RowBox[{"8", "Pi"}], "]"}]}], ",", 
             RowBox[{"q2", "\[Rule]", "q1"}], ",", 
             RowBox[{"zp", "\[Rule]", "zp1"}], ",", 
             RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}], ",", 
             RowBox[{"l", "\[Rule]", "l1"}], ",", 
             RowBox[{"\[Lambda]", "\[Rule]", "\[Lambda]1"}]}], "}"}]}], ",", 
          RowBox[{
           RowBox[{"z", "[", "0", "]"}], "\[Equal]", " ", "zs1"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
        ",", "z", ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0.01", ",", "7"}], "}"}]}], "\[IndentingNewLine]",
        "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Mu]extreme", "[", 
       RowBox[{"k_", ",", "l_", ",", "zh_", ",", "\[Lambda]_"}], "]"}], ":=", 
      
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{
           RowBox[{"3", "/", "2"}], 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"Sqrt", "[", 
              RowBox[{"1", "-", 
               RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}]}], "]"}], "/", 
         "k"}], "/", "l"}], "/", "zh"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"fz1", "[", 
       RowBox[{
       "t1_", ",", "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", 
        "l1_", ",", "\[Lambda]1_"}], "]"}], ":=", 
      RowBox[{
       RowBox[{"zm1", "[", 
        RowBox[{
        "q1", ",", "zp1", ",", "zs1", ",", "\[Mu]1", ",", "l1", ",", 
         "\[Lambda]1"}], "]"}], "[", "t1", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", 
               RowBox[{"1.2", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"0.1", ",", "1", ",", 
                  RowBox[{"0.75", 
                   RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.01"}], "]"}]}], ",", "1", ",", "0.01", ",", 
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
               "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.01"}], "]"}]}], ",", "1", ",", "0.01"}], "]"}], "]"}]}], 
           "}"}], ",", 
          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.2", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "1", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.0625"}], "]"}]}], ",", "1", ",", "0.0625", ",", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
                "0.1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                   "0.0625"}], "]"}]}], ",", "1", ",", "0.0625"}], "]"}], 
              "]"}]}], "}"}], ",", 
           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.2", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "1", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.125"}], "]"}]}], ",", "1", ",", "0.125", ",", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
                "0.1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                   "0.125"}], "]"}]}], ",", "1", ",", "0.125"}], "]"}], 
              "]"}]}], "}"}], ",", 
           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.2", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "1", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.16"}], "]"}]}], ",", "1", ",", "0.16", ",", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
                "0.1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                   "0.16"}], "]"}]}], ",", "1", ",", "0.16"}], "]"}], "]"}]}],
             "}"}], ",", 
           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.2", 
                 RowBox[{"qcrit", "[", 
                  RowBox[{"0.1", ",", "1", ",", 
                   RowBox[{"0.75", 
                    RowBox[{"\[Mu]extreme", "[", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                    "0.2"}], "]"}]}], ",", "1", ",", "0.2", ",", 
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}]}], "]"}]}], ",", "1", ",", 
                "0.1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                   "0.2"}], "]"}]}], ",", "1", ",", "0.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]", "]"}], "\[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.758618195477968*^9}, {
   3.758618243714418*^9, 3.758618430352188*^9}, 3.7586184855762463`*^9, {
   3.758618579230421*^9, 3.758618667364636*^9}, 3.758618932411097*^9, 
   3.760531775212482*^9, {3.7605318975241117`*^9, 3.760531910876492*^9}, {
   3.760531986445743*^9, 
   3.760531995608038*^9}},ExpressionUUID->"06113369-a75b-4a0a-9ec9-\
3d99571f7111"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11HtUjHkYB/AxqaYp1dTUTEUt4uR+K1bK8+SsDSUV65KsS6fIrlXjuJRI
tsvZTYRd1yWEDSmKQ5RIRFuURpNu09Rc3y5ChW7WjGf+eM973u95f5/ze3/v
c74jN2wNDGWzWKwDXy/tfTc/y1sWHQ8+btG3CvLyIM8xoTXgbhbUv80Pu/K8
AMYFHyrqdsmHuKTw51M7iyBG934x/Bt34i/jwRJojtYGpRDjmDMkOqkcLkZ4
ciXpFRD1srkn7HIl1KRrgyqYppn30uCYGEwlugDKxyXNTU2SwFyuNqiFZMPg
CRGiWojULo9oAJNn7tuNlzRA4F3thprg8G2n+c6mTdAWoA1kkLnRSV63TgaJ
rdqgBbLdo0dUXmoGJ+32HRVQxjgHZ0ta6HuUwHZZ3vKgS06eGiJmyR3b+hTk
aaByBIjutynJa4UBr9jkcSUq8trhSNCP9ruS1eR1gILVEy6draHz6YQ9rWdd
TF5poMdFG3TCthftgqGBDDzu1gbv4OKKGOzPZSC1SBu8h1XjH/Q9ZRhYo10e
/AFmWvG+rFAy5HWBKmhTRXAGQ14XjCyrik3x0nvdsGNmqkd7gYa8HnhfczDy
4CgNeR8hrCTtnnmkmrxP0B32S8zFKyryPsEtu/pSizIleZ9hoqtHIb9GQV4v
NA5u4jwpl5PXBxMN3H64cb2FvH5gJ25oY0U1k9cPrpviSxOmycgbgE1viln+
uVLyBqHb5/TuC+p68r7Are+PdfxtUgu6ceKzMHEBV7RohAS+zSMLOcKBM9sn
iEGmmy8WVtu/3t/mUQneumAIFmdszoq9Vwa65VlDcNl418unPEvIY6N05MdH
uQuLyGOjeItMuEuTTx4bw9p3rwj5Jw8W6AIDnJ4eIBqP+eQZYMgsb9Pjjx+R
NxR9sZXzPO0peUMxebF5AvDKyBuKQftjaw8oKsgzxE/7NoQaVlWRZ4gFd8sP
dRVXk2eEn8Wtk/xz3pBnhPOYwyd9jtaTZ4SXOtgBd9ZJyTPGtsjl3T0mMvKM
EW+E8OKWNpPHwRL/a9P2/dlCHgcz98SnWl2Xk8dB9arAxN48BXkmGJ/xNPz4
DSV5JjgnbIKsNFVFHhcFY+VtpUFq8rj4YL+GXW+uIY+LOeufFDdmasgzxfhO
B79tMxjyTPH8zrRXwrMMeWa4uHJiSJGMIc8M/5vyEBLbGfLM8Ff1GJO+fIa8
Ybh5mbeb+1q9NwxbUz6UBzVryDPH0kCxucxXQ545pht9dDY7rybPHE1Xdt/0
l6rIs0Cfx5rMvcYq8iwwMW3zE387Jejqh2uJdt43nQv5CtDVj6clXl19xM+t
t4X6yBJXyfcP5JY2U79Z4jAzj9vSJBl8qzNLXHugI71vRhN5PHS853f6cnoD
eTzs8dC8cX2u7zce5m3uF56TSsjjoWhrTVdEh5g8Hg4e7xPZDVaSZ4XpyfM9
w6e/IM8KnS6pjKLTnpFnhSUz2QLB3sfkWeHnawa/zzv6gDwr7F5a98GNySPP
GrOjakPfGt2n/rXG2LENuzyvPSTPGv0SxBfQ5wl51nig00xSm1ZKnjVahCYu
qxtTQR4fg9yvBYVZVpHHxw9s36NO7Gry+Dg5buOzyHc15PExc+o6yU/VdeTx
UcQdHR51pZE8Gyxbssufk9NEng1u9OV69n+RkWeDhXOSf+6b00KeDaaF+hX2
hsjJs8Gc4c7jjuxQkGeLTaOSnXtFSvJs0eJ2nVfPShV5tjh+52r3TBc1ebaY
e3r+mtBmNXm2GJ69fuqERA15AvRPXhBsac2QJ8C4Bte4jASGPAFuz065/lbM
kCfALTVLhUmdDHkCjBkoGH3sBUOeEFdN9nWVROs9IQYwdw1HGuo9IZ4/dSYq
a7uGPCFKF82+8MdL/f6EqJxyp22ntZo8OxwcPmn1Bi8VeXYYPVN84stKJXlf
n4seNk4LUpBnh6m5efJ58/XnZ4cuY3Ovch1ayLPHCsMIoUGDjDx7rJ50Tu6d
0kSePV6dGijirGkkzx73vP74XUaS/v/a4+XCbbULz9eQ54Cn17+yXHLzNXkO
KLUIUdQWviLPAY//xmOnXH9JngOeHBvetJSjnz8H9C2KzF79qBj+B8rwIjI=

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11Hk0lHsYB/BByQxpZoxhqGg9oqJNpfQ8nZTQptIiN277vtw4R6bcFu25
dYWjrhZtKkVJIUuhJEUiEVlmxmyvdAkphu6d6fHHe95zvud9Puf5/d7nPEPW
7Fy8Xp/FYp3+/9G+xYJEd0lIGPis9OAnZ6RD+uAjjd5pibCnghc12jAbRvmd
yW23y4R7TYOa0yAP9um+fw49Ff2fmR8qAGmINiiE0LmP71fNKIbru1w5FddK
4O6yh8pjVqVQeU0blIFdmXBtrW05GFfoApjWDXlFIythBkcbVIHmSvaPnqHV
sFtbvqsGOuK+aKz618LiNG1D9RC0370wa0c9fPbWBhLgSwyGxOdL4GijNpCB
i/6IzTuNZWCjbX+wHJwUlQFNLg10HgVg7EVp2hI5eSqYF3B+8XAfBXlqGNV1
x8YWlOQ1Arfu8W1jvoq8JnBf7/tjT7GKvC/g3PfwuUeBarqfZghtYR307cPA
Nztt0AwJSeEpBSEM5LVrgxbgPTUfHFjCwNlcbfAV7sTP12d/Y+A3bblfK6SO
XeaUUsuQ1wbMy4mDjM71em0gLup0jRrW67WDxsT08/3zavK+gaOiRl32XUVe
B3QHrIh6O1NF3ncQh8WLNwYqyfsO28X2Iu5ZBXk/oJK70HFFpJy8TmjtKNvk
eLCBvC6IuJ17Q7RcRp4G3PJbvRZZSMnTQKbz1S3FefXkdUNcQ2z0qexa8nqg
2KHRQq+qmryf4FLoLQuSVIJunAQsFE2weC2oKYdf88jCaRHlk+TlpSDRzRcL
J2eUVZ6+9xbcdYEecsp5CaG1r0BXnqiHUyOixeFBz8nTx/xN9fOrXz8lTx/j
S7vTf8x4Qp4+3r8Q+El18QnM1QUG+H3YtO6/fZ+RZ4BnxLPD1pi8IK8P/u6Q
wMCRQvL64NoY4fHPY0rI64NSp3U2cWPLyOuLG0eLn/dM+kBeX3R0KPELnPqR
PEM8sLzK1trpE3mGOH9o87JPvDryDHGBF4eb0FhPXj98z118i+0qJa8fbvXy
lmwNkZFnhKuCbuV8jmsgzwjtT3XkbEqWk2eEtkscB+xMUJDHxpIAW/bgcCV5
bPQX8jualqvI4+DB0NCYjSZq8jjI3vbzQsodNXkclGeFPSoZx5BnjNMvsIxe
XWTIM8ZjGeOKVjcw5Jkg33nev+ltDHkm+OxEdEtKAUOeCdo0D0+9vqPX64+l
Bqn+3HY1ef1xb8dP9rM1avJMcaCt5nBruoo8U3x3WbJA06kkzxT7ils6d49Q
kjcA01U9DwumKMgbgANl/oo7E+WgWz8cLvo4uzlPETWAbv24cvGL4YmY8Uop
7SMupmX7hVhekdB+46L96Bs37ebUw691xsUDWTL7y2k15PHQdHSlzOhNFXk8
lJTf2uJRXEEeD33rlnYXvXxPHg8/ut/cIMp9Rx4PS708+wVHFJHHR+XqNv/I
upfk8THqROQ+UXIueXys9RjZcMMtizw+zvMJ93x3OZ08Pib/9cB378xM8szw
FETbxihyaP+aYdX1f96GtuSTZ4ap+V/3m0W+Ic8MC8fb7R8Ovf2ZYXBk7PTL
s96TJ8Ao1UhNkmcFeQL02WHve9KzijwBHh3Xzlx0qSFPgB7+d2uPs3vvT4AB
YXF6mzZIyDNHqwXFh+X3peSZ49KKsYOuKWTkmeOezCtT9Qzl5JnjWqdwYxtT
BXnm2KU3pyuvR0GeELP5jmcnVSrJE2LVq6Tsrgsq8oS4nWXtHO6uJk+IdUvW
XX1ZoyZPiIJF7FjJKoY8C6yemuw9MJMhzwLdXks9Z7cw5Fng8ZKglt2NDHkW
eNi4c1bNXYY8C2y9eWn5gjm9niXOEAY4bM1Tk2eJk/OCbL7aqcmzxKzZBdGu
wSryLNHli9c5twdK8ixR392Td6Ss97wi3BdrKgqtlZMnwvKAxMzudw3kiZAT
eHTtykQZeSK82eQgjgyUkidCv9vBmj9G9v4PK5xzidejPl1HnhXGrxIODUn6
RJ4Vrp4YaVme8ZE8K9w+xmBUW/oH8qxwVuz4bRHJZeRZ45Kf+hOqk0rIs8ZR
h/w3m/35mjxr5IYkL/za/II8axQ9FzKxvBzyrDHHIXjLyYUZ8B/ShB36
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11XswlXkYB/CDSIc4juNyqKSdLGrLrOkuz7Ot0MWOk8tGUZHQRZ1qS9oi
YpvKZtpGl6lsLMm61HZDhJJWiEgkOTfn9uoiqSRl95ye88c778x33t9nfr/3
feb7OkZsXRGlz2Kxjv5/ae57ecU+koSDwN69Pqj7dhmUTUrtE5QWQ2TWApvv
o2+Dy+pjd945V8DMfRNLuyrvwq/a52vh+mJhAntFPUgTNMEDKLX70ucU3gx/
bVvI7shpgZySkfvpza3QmaMJ2mBxTYbq04d2MOnQBtDl8LIk2f4peLI1QRfs
YpvJ42d2g1CzfNtz4O4YiQpzFcGKUs2GxFBYdDVAoSeBFwJNIIFbHrys2FAp
pPVpAhnk/ZBy3PGsDBw0258kh2GZV8GWe710HgV8F5u06HS7nDwVZGd0xt5o
VJCnho+31l3b8LeSvD5Y2eP056ntKvJeQkamqXTON2ryXkHYaMHhyko1vZ9+
8HWI7ln/AwPvnTVBP+Qm+gvjChi4+04TvIGpibw9la8YyLijCQagN/x6e+Zn
BsI0y1e/BYFsZ4L3I4a8Qdh9crlfYLzOG4Tsge5ICUvnvYPGkadCH6GavPcQ
eWT5UFyDirwPgNmntgebq8gbgtVbi9PmeijJGwK7Ib5ogkBB3kf4o3DPHnc/
OXnDcLBp4OIEt17yPoHr9Hovp2EpeSOwsSuhIqFQQt4ImDneOTZviZi8z/A2
P+lgb95z8r6AmqsvMTzfRd4oPPKNCX6c1AHaceKxcFp+eerqkMfwdR5ZyIQa
hU13fwQS7XyxMJNz8Vzu/Ebw0QZ66LmuwjBkbR1olxfrYVzi6Qj2/Bry9NE1
pXeXyusWefroWbpqWfBgGXn6KGjiCxoXVYGvNjDAwI8OUSFBteQZYHdaS9D8
kXryxmDygnhpjHELeWMw/9idC+mubeSNwWtLQtQGAU/IM8SfJ9TvW/bLU/IM
Mfd3mYUsrZs8I/RlAnZG7xeRZ4R2cwIUjS4S8oyw8LS76bNEKXlj8fHEzAPS
2zLyxuKUmMYt4fJe8oxRlDjc+c+AnDxj/FwZwTJUKsgzRvggz9O/qyRvHNYc
8PU7/5uKvHGYtDneq3KWmjw2Wqd7Z9U0qcljo9+mc+eKfmLIY+NQwOybHtcY
8kzQ85BzScRbhjwTtHa+XB3xiSHPFLn8+2KHeoY8UzzsfYLttlnnmaJp6MNv
m9+oyRuPb6oM2/LWqMkbj5aWDZf8b6rIM8PqtoxdBUNK8swwTiCIkE1RkmeG
sS49ZwxmKcgzx9E1uRu9ZsjJM8fUT4dFwWa9oK0fNgcPG64rzWqXgrZ+FnLw
Wv+p4PWpEuojDi5yKJkudhBTv3FwroswMt7/OXytMw4OOW1qb/fqIs8C08ry
57yb2kGeBfbdM/Mf86WNPAscdvK//qizhTwLrHGOXuV0tIE8CwwZXZreUHWP
PC5WzRouii2tJo+LOewY4666cvK46FSwlFON5eRxcbRoauxrq2ryuBjonepu
3l9LniU6XLAt4OQ/oP61xNdFTKl7RAt5lvjMO2RTY2obeZbY1zqpdkrxE/Is
cWmU+07j5qfk8dAxy+2MY083eTwcyKjwcGkVkcfD5JRWjxSBhDwehu8Q9nNz
peTx8GyyqCBSIiPPChuYCY6mhnLyrPBk/az0Q+YK8qzwYOeLSxw9JXlWuLDj
1PGwLiV5VmgyN69m/VkVedZoWXH1ioGvmjxrnBfsfj/5uZo8a+zxcZyXu4oh
zxpF+gcaT1Qy5Fnj+MyyV4IPDHk2WL6hriRmiCHPBtN8TMZurmbIs8ErLuK5
+Wt0ng1erW8SxErV5NngXqtW8xt+avJssSJ0wxpxtoo8W+zkcVPzJUrybLGt
ffdD93G689oinxVtdNRWQZ4tlvwoLho0k5PHR3HdmXC3FzLy+Fgueb3q1mUp
eXysTWv2fx+m+x58FM0WTha+EJHHx7S1N6cc+thNnh1i4MyVnn26/7UduiQG
T25+8IQ8Oyy/e4R9JFs3L3a4d9OywEP7W8izw8VXp3G39jwgzx6D5IHzVjre
I88ed1llpioWVJNnj07LZpRsDdPNsz16VCUtjsspJ88erf+dHlGcUQ3/Affs
GzE=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11XlQU1cUB+AkIEvYSUICQahLK1Gk0sYqUj2niKi4VAWtaFAQ0Qgdl7oW
rBQXqlIFqqO2daniuIELKBZERRATRFAoIyCKQiBkQUBAEhCUmnjyx5s387vv
fnPvfWfOHbZi3YJoFoPB+P3jY3jHc69Mb4zbDWElPm8XF+ZBnsee1vm5V2Du
PNX5v7PvgkiSUtTjdRs4E6eZyTyKYbvx+2Lw3yQ7mv7mISjiDEEpBHgHWw8I
K+Ds+snsmvQKOKcSNGp+qILadENQBZuaItwvHasGmxpjAMttmG5TKp7BFLYh
qIPpGv/w5q4XsMEwfX091C7MfLRI9woW5BoW1ABRQUz/AWkjvJ5vCBqh34f5
4niBApJaDUETqHqCR2gHmsDTsHwPJdh3Jd5+6amk/bTAsuFtXTFeLeSpIW5U
140JfBV5Glh/zq80ok1FXivIZo3cNSZTTV4bHF4+0HE9VENeO8i+dg/aotLQ
+byBbTMuWcVGaUHnZQjegBsjINaiWAv3ewxBJxQmPR2d+V4LqUWGoAv8mIs4
ukEthBumS7ph/WXHuv6HWvLeAiP1ZG1lrMl7C5Ksx/zcTg15PWDufy/wdISG
PB0kzOA5FOWpydPD/ZVrkrMGVOT1woJr7colXiryekEQfPXJNv8W8vpge/Le
XI1YSd47yEqfvKmP00xeP7D54ZLztQryBuB5t1lo865G8gaA8djX7g6/gbz3
kH7bcaPcp568DxDSIeOL7OvIG4SAPaIOeU01GMuJy0CWz6E1QUer4FM9MtD9
+ovAVUsqoNFYXww8ZK3b3766FKYbAyYG7O3bvGxfMRinX2Fi9h3Jrv1zCshj
ofWtz/4brswjj4UNl3o7z6bmk8fC5jFTwvUXCmGGMTDDfPOyvjAXOXlmyIxk
zDziW06eOeb0ZyR6l1WSZ47RAbcyjtg+Jc8cu8qzq12Da8kbghNmWS7jbXtO
3hCclxbxMC35JXkW6LvNsuTAnQbyLLCnf7DioKeCPAt8UPGO5b6miTxLjGcN
G5dxrJk8S4wRzJHcvawkzwoD3CZ1X7nQQp4Vduh2MGP3q8izwgZZ1I6xoWry
rPFea3Ker6WGPGs0d0lyDTmrIY+NY3eKV8WO0ZLHxtnRg/n6P7XksVE/ySV+
jFpLng3GTNMlb7RoJc8Gu7c42RZqtOTZIjclZeq54ybPFuP1xcfqfUyeLW7e
3COWXtCQZ4d2ixaHKmxM67PDA4fldr+Eqcmzx/FVtQmRqSry7NHBV5+28GoL
efbYKX4vHpqjJM8Bg9sv+Mn/MZ2fA0aJtwp7NjSBsf2wHTExMW1wqEgBxvYz
2RG1y9udi+UN1I8+jt8M+cLj9Evqb4547cC9ibsPPodP7cwRHey9u4dF1pLn
hJKakJ+bRzwlzwntpa+3hjdVkueEa2dmHspaVk6eE1bK9p5YinLynDB4HSdB
/aiQPGd0lwaGFdzMJ88Zb0XdOn65Oo88Z1wRrjhXySkgzxmXJDJSmCuKyXPG
D2WRF9/7l5LHwdAjBQfXTq2g/stB7+zPc3oTqsjj4DxLv8OH7lWTx8Ffs/ft
Wq1/Rh4H2d8yi2SCevK4qGl3rpxi10AeFzNfXRxqFtdIHherz+xw3/JEQR4X
S8t31+20aSaPi042i/TjxirJ46H3/BrPeHELeTyM8Zi2xmm4ijwe+immzuXo
VeTxUOrVJJLdUJPHw7gfv0/6TqIhzwVXl71L6GnTkOeCdTHRQXelWvJccOVA
7KYnci15LlguWpk78mN//uS5oH6J6+zfPmjJ46PolOjMeJmWPD7qvLM3b19l
8viYIfXjij/eK588PtqHZaBdmIY8PvZmnrjomaUmT4B1/xaxdF0q8gTokVz6
ZMtQ034F2FE2mCP5soU8AQZ2fluyb5SSPAGKbuTo5g1pJs8V+zsr+/JLFOS5
4tyzjlklP5n+hytKuS94fwxpIM8V93e0BV6zqifPFUtSRksftDwjzw2zgsPc
T12tJs8NR4n+iutea6oXNzzBTtp76SvT/e+GQQ4787qEpeS54dMQAUZMKyZP
iB+Wzgr/RnuXPCGKS/jZvHJTPQuRdT5aFl6VT54QKxdECk8qC8kTYp6i7bbn
cjn8D73mGb8=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0.5, 0, 0.5], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11HtUk3UYB/CxcR2ggzEum6CmJCBCiTulB30eQoNUICgUDLQCKyxEDMyY
SWQYIQYmIllJhRPKRBA1wDQFCoXOYYAyWlwGu7BLKCCEkEhtPe8f73nP+Z73
9zm/3+/9nmfx62kxO9ksFqvgv8f0lrhUhQ1mfQyiae23n/xaD/Veucbouipw
/zpyS3/gL+CbUNg46fMzpJy1/LT2WjMcMH/fDHfUE8f2jrfCUJYpaIVsdaND
WZsMzuxZy5WXyyAnM19U+fQd6Ck3BV3Q1lXmeeuEHOzl5gB4l8Wdd4cVsI5r
ChSwYoefbK+wH9JNy/f0wVRlkDjlmBJi6kwbUoJbiaA579Eg/BVtCgahIFCT
H7BZBYeNpkAF+dUVDduy1bDQtH0vDVSdiMsKKtHQebQw1mGbUnNMS54OWMlD
iyPeHSZPD+u/Mz64FKwjzwiSibtZefd15I3A86dPlToc1ZN3D174+H7iZYGB
7mcU+oOuBQfkGeBvH1MwCkFtu8IWDBigadIUjAGrf8pH6miEokZTMA4lIZVr
6i2NkGhanvAAOuGi/l4L402A/O7xguI3GW8CBvI/E02P6MmbhMCEB8uV2/Xk
/Q1RY8L1+gYdeVMQLp3YF2mhI+8hLLIteEf61DB5D2HuzE+XngvTkjcNjY0/
ueeEasibgVW1N/+xXqom7x+YUWfG8XVD5D2CxJCjLR2Fg+Q9ArF8/OVzC5Tk
zcKRYr0le0kfeY9BqxAv3Kf5g7w5UBVxlNEF3WCukwsLOwd2f13v3QX/95GF
ueKAOcfD7TBo7hcLZ6X5/JLpWxBmDiwwmjsbK2E1gXl5lQWuefYs52rXz+Sx
capEv3f92Xry2Ni4P+T06NvXyWNjdONX3ORVzRBuDjgo+KKAcyuulTwOzjxe
3X5AIiPPEp95Z/uVq0pmf5bYlhgnad4gJ88SR9PUXI9TCvKscMxPpFgo6yPP
Cot5M307dyvJs8ZDItb5h38OkmeNIVL/h2sCVORZ45mqqi7HZDV5NtjiUJaf
/YGGPBv0tCn9bb9ES54t9jSU5qbsGCbPFr8vb7R47KcjzxYT8nK8FAM68uzw
YGq7ICpbT54deq4pvG60M5DHxZPVri4nDxrI4+KLOy4vlfQYyONi8JNRfh/a
G8mzx6xt8oJJGyN59nhdOi7c2M54DvhdTc38c+mM54Cql46+4T+jJ88BV+67
0MFO1ZPniFkrHH+da9WR54gN2h/sMvg68ubh8ZrQ4rn1zHnnIWfuXud0opa8
eRifHri0IUFD3nyUc97v6AU1efMxbWjB6kJrFZjHD5eHyds5marqQTCPn7U8
PLjLesUTqKR5xMMVV78N5u3uo/nGQ/aUr+2lIAX8P854eNpLJy7q7SbPCdu4
b31VsK+LPCccWdefW+YsI88JU0P7Y38suk2eE24PrbTpPdREnhMqlkX2eB24
Rp4zlqZyU/u+qCfPGWMfJ9rn1F4jzxmHVF6qU+ebyHPGHScWDTx/4zZ5zti7
+tPhsuUy8vhYXZEToinsovnLx/ikIunFyW7y+NjqOSEJ3Kwgj4+88K11h3P7
yOPjD8VHZOJNSvJc0DM+7nPx1UHyXJAjaVntxFOR54Kdi63888PV5LngSPdr
y0qSNeS5YMLKSn/HnVryBOj67KvTsZuGyRPg7ZNpi4QeOvIE+D23N8BCpiNP
gKPPpTW/ma4nT4AsXtqXk7N68lxx/MKuG7cyDOS5Yp5qifiTDgN5rvjeVofy
flsjea742SKR4QrXSJ4rJo/UNr/YbSDPDU/e2Vx6SMJ4bpjRHuPpa814brgl
/PjG+1l68twwplqytU+hI88NI63GkhK8deS540xTSa5bPHNedxT5eJenZGjJ
c8cu9brwikwNee64LCwpOukVNXnuWC6eCG1YyvTZA8us5R9JO5j/4YHnDq8d
jUhi+uyB9r/PFJXWMX32wPQHiiWHcpg+e2DNqv3jB/zl5Akxo6EzbGUL0xch
LhRt9F77OtNnIf7xdEVMtk8reUKsroyKP2rXTJ4QWRDG3vPUdfJEmPnR+5ti
v6knT4QD0qiIQhumzyKsyN0guujL9FmEN7PVv630Zfoswsn+TRERde3wL5qt
FgE=
       "]]}}, {}, {}, {}, {}}},
  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.7586183993173428`*^9, 3.7586184717625113`*^9, 
  3.758618524210969*^9, 3.758618714437272*^9, 3.75861897382026*^9, 
  3.760531960225869*^9, 
  3.760532038651888*^9},ExpressionUUID->"c73b65bf-e25d-4b51-8608-\
e44d543cdfd8"]
}, 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[{"rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_"}], "]"}], ":=", 
      RowBox[{
       RowBox[{"rp", "^", "4"}], "+", 
       RowBox[{"8", "Pi", " ", 
        RowBox[{"l", "^", "2"}], 
        RowBox[{"\[Mu]", "^", "2"}], 
        RowBox[{"rp", "^", "2"}], 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"Sqrt", "[", 
             RowBox[{"1", "-", 
              RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "3"}], "/", 
         "\[Lambda]"}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"q", "[", 
       RowBox[{
       "rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", "k_"}], "]"}],
       ":=", 
      RowBox[{"k", " ", 
       RowBox[{"rp", "^", "2"}], " ", "l", " ", "\[Mu]", " ", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"Sqrt", "[", 
             RowBox[{"1", "-", 
              RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "3"}], "/", 
         "\[Lambda]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{
       "z_", ",", "rp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", 
        "k_"}], "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"1", "/", "2"}], "/", "\[Lambda]"}], "/", 
        RowBox[{"l", "^", "2"}]}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           RowBox[{"4", "\[Lambda]", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{
               RowBox[{"m", "[", 
                RowBox[{"rp", ",", "\[Mu]", ",", "l", ",", "\[Lambda]"}], 
                "]"}], " ", 
               RowBox[{"z", "^", "4"}]}], "+", 
              RowBox[{
               RowBox[{
                RowBox[{"q", "[", 
                 RowBox[{
                 "rp", ",", "\[Mu]", ",", "l", ",", "\[Lambda]", ",", "k"}], 
                 "]"}], "^", "2"}], " ", 
               RowBox[{"z", "^", "6"}]}]}], ")"}]}]}], "]"}]}], ")"}]}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"qcrit", "[", 
       RowBox[{
       "zs_", ",", "zp_", ",", "\[Mu]_", ",", "l_", ",", "\[Lambda]_", ",", 
        "k_"}], "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{"f", "[", 
            RowBox[{"zs", ",", 
             RowBox[{"1", "/", "zp"}], ",", "\[Mu]", ",", "l", ",", 
             "\[Lambda]", ",", "k"}], "]"}], "]"}], "/", "zs"}], "/", 
         "\[Mu]"}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"zs", "/", "zp"}]}], ")"}]}], 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}], "/", "2"}], 
        "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{
       "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", "l1_", ",", 
        "\[Lambda]1_"}], "]"}], ":=", 
      RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"2", " ", "q2", " ", "\[Mu]", " ", 
                RowBox[{"z", "[", "t", "]"}]}], 
               SuperscriptBox["zp", "2"]]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"2", " ", 
                SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["z", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
              "/", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"\[Sqrt]", 
                   RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]]}], ")"}]}]}], ")"}], " ", 
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                   FractionBox[
                    RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}]}], ")"}]}], "+", 
             RowBox[{
              FractionBox["1", 
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"]], 
              RowBox[{"(", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                  FractionBox[
                   RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"24", " ", 
                SqrtBox["6"], " ", 
                SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                SuperscriptBox[
                 RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"6", " ", "\[Lambda]"}], "-", 
                  RowBox[{"16", " ", 
                   SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                   SuperscriptBox["zp", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["k", "2"], " ", 
                   SuperscriptBox["l", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["z", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
              "/", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["zp", "4"], " ", 
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], ")"}]}], 
                " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "3"}], "+", 
                   RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"], " ", 
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                    RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                    ")"}]}]}], ")"}], "/", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SqrtBox["6"], " ", 
                SuperscriptBox[
                 RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"6", " ", "\[Lambda]"}], "-", 
                  RowBox[{"16", " ", 
                   SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                   SuperscriptBox["zp", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"]}], "+", 
                  RowBox[{"3", " ", 
                   SuperscriptBox["k", "2"], " ", 
                   SuperscriptBox["l", "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                  RowBox[{"8", " ", 
                   SuperscriptBox["k", "2"], " ", 
                   SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                  RowBox[{
                   SuperscriptBox["zp", "4"], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "-", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                    ")"}]}]}], ")"}]}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["l", "2"], " ", 
                SuperscriptBox["zp", "8"], " ", "\[Lambda]", " ", 
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], ")"}]}], 
                " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "3"}], "+", 
                   RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"], " ", 
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], "+", 
                    RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"6", " ", "\[Lambda]"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "4"], " ", 
                    SuperscriptBox["\[Lambda]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}]}], 
                    ")"}]}]}], ")"}], "/", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", "\[Lambda]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"6", " ", 
                SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                RowBox[{
                 SuperscriptBox["z", "\[Prime]\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}]}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"z", "[", "t", "]"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "+", 
                  RowBox[{"\[Sqrt]", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], " ", 
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                   FractionBox[
                    RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"3", " ", 
                SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   FractionBox[
                    RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], "+", 
                    RowBox[{"32", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"6", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                    RowBox[{
                    SuperscriptBox["l", "2"], " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], "-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"24", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"6", " ", "\[Lambda]"}], "-", 
                    RowBox[{"16", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "3"]}], ")"}], 
                   "/", 
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}], 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zp", "4"]}]]}], ")"}]}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", 
                  FractionBox[
                   RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], " ", 
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                   RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}]}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"z", "[", "t", "]"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "3"}], "+", 
                  RowBox[{"\[Sqrt]", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    FractionBox["1", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]"}]], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    RowBox[{"\[Sqrt]", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox["1", 
                    SuperscriptBox["zp", "4"]], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], ")"}]}], 
                    ")"}]}]}], ")"}]}]}]}], "+", 
                   FractionBox[
                    RowBox[{"6", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Lambda]", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                    RowBox[{
                    RowBox[{"-", "3"}], "+", 
                    SqrtBox[
                    FractionBox[
                    RowBox[{
                    RowBox[{"9", " ", 
                    SuperscriptBox["zp", "4"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}], ")"}]}], "+", 
                    RowBox[{"12", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"3", " ", "\[Lambda]"}], "-", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["l", "2"], " ", "\[Pi]", " ", 
                    SuperscriptBox["zp", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], "+", 
                    RowBox[{"12", " ", 
                    SuperscriptBox["k", "2"], " ", 
                    SuperscriptBox["l", "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    RowBox[{"4", " ", "\[Lambda]"}]}]]}], ")"}], " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "6"]}]}], 
                    SuperscriptBox["zp", "4"]]]}]]}], ")"}], 
                 RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"k", "\[Rule]", 
              RowBox[{"Sqrt", "[", 
               RowBox[{"8", "Pi"}], "]"}]}], ",", 
             RowBox[{"q2", "\[Rule]", "q1"}], ",", 
             RowBox[{"zp", "\[Rule]", "zp1"}], ",", 
             RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}], ",", 
             RowBox[{"l", "\[Rule]", "l1"}], ",", 
             RowBox[{"\[Lambda]", "\[Rule]", "\[Lambda]1"}]}], "}"}]}], ",", 
          RowBox[{
           RowBox[{"z", "[", "0", "]"}], "\[Equal]", " ", "zs1"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
        ",", "z", ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0.01", ",", "7"}], "}"}]}], "\[IndentingNewLine]",
        "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Mu]extreme", "[", 
       RowBox[{"k_", ",", "l_", ",", "zh_", ",", "\[Lambda]_"}], "]"}], ":=", 
      
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{
           RowBox[{"3", "/", "2"}], 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"Sqrt", "[", 
              RowBox[{"1", "-", 
               RowBox[{"4", "\[Lambda]"}]}], "]"}]}], ")"}]}], "]"}], "/", 
         "k"}], "/", "l"}], "/", "zh"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"fz1", "[", 
       RowBox[{
       "t1_", ",", "q1_", ",", "zp1_", ",", "zs1_", ",", "\[Mu]1_", ",", 
        "l1_", ",", "\[Lambda]1_"}], "]"}], ":=", 
      RowBox[{
       RowBox[{"zm1", "[", 
        RowBox[{
        "q1", ",", "zp1", ",", "zs1", ",", "\[Mu]1", ",", "l1", ",", 
         "\[Lambda]1"}], "]"}], "[", "t1", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{"fz1", "[", 
              RowBox[{"i", ",", "70", ",", "1", ",", "0.1", ",", 
               RowBox[{"0.75", 
                RowBox[{"\[Mu]extreme", "[", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", 
                   RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                  "0.01"}], "]"}]}], ",", "1", ",", "0.01"}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0.01", ",", "7", ",", "0.05"}], "}"}]}], "]"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Abs", "[", 
              RowBox[{"fz1", "[", 
               RowBox[{"i", ",", "70", ",", "1", ",", "0.1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                   "0.0625"}], "]"}]}], ",", "1", ",", "0.0625"}], "]"}], 
              "]"}]}], "}"}], ",", 
           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", ",", "70", ",", "1", ",", "0.1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                   "0.125"}], "]"}]}], ",", "1", ",", "0.125"}], "]"}], 
              "]"}]}], "}"}], ",", 
           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", ",", "70", ",", "1", ",", "0.1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                   "0.1875"}], "]"}]}], ",", "1", ",", "0.1875"}], "]"}], 
              "]"}]}], "}"}], ",", 
           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", ",", "70", ",", "1", ",", "0.1", ",", 
                RowBox[{"0.75", 
                 RowBox[{"\[Mu]extreme", "[", 
                  RowBox[{
                   RowBox[{"Sqrt", "[", 
                    RowBox[{"8", "Pi"}], "]"}], ",", "1", ",", "1", ",", 
                   "0.2"}], "]"}]}], ",", "1", ",", "0.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]", "]"}], "\[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.758618195477968*^9}, {
   3.758618243714418*^9, 3.758618430352188*^9}, 3.7586184855762463`*^9, {
   3.758618579230421*^9, 3.758618667364636*^9}, 3.758618932411097*^9, {
   3.758619308526331*^9, 3.758619356168672*^9}, 
   3.760532017587905*^9},ExpressionUUID->"d6e0f425-e454-48ec-bb9a-\
db4a3ffb80ac"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11HlQE2cYBvAEkVsIhBsVGEflkKO2aNHC+yqOCngrlY4cigLVVo1YpeIR
VFDqLXgh1AsctSqHBU1QEREqKJBwIxFISIhSwFI5RMHQJr77x87OPLvfb77d
ffZ1jNi6IlKLxWId+/9Qn3ebZy2QxSWA67Twr7cIhSCcmNi1XJAFj5LPHOx7
8hicQ04WDzg9AoHzmzJPeTHs0dxfAgUBk8sUb55De5w6eAHFPiFrcqIrIZPn
Y9CYIYaw44YhYaeroSlDHdRCrNmehB9314FhoyaAbhP3fZVRjeBroA6aYVyl
1K4ooBm2qZfzWiDMJP9kqH0LrBCoNyQF/+XSfqeWNuherg5kUB4wL2OHrwwO
dakDOfB2BD+v3t0O9urtT+yAT+Pm8y0z5PQ8SuCoXC98yFaQ9xZ0w218gtM6
yOuE+NqeyzdWKcnrgnCVKsjjnpK8Htjh77tUeUBJ3jvYG7kofaK8g95PLxi4
R1yP1emAQSd10AvBYe85XtoKeDagDv6FrFOrhs92tMOpYnXwHjgo1EnIlkGo
enlIH3yzb39qXqSUvH74269uZqBVK3n98H1bb3eVv4S8ASiML7q2elMTeYNg
WN+dnx5fT94HmD547N7omRryhkB5/pOn83oReUPQ03DM/UB5OXkfwcv23Z6o
kyXkfQIlx3lIa3wRecNQ2TlBJkosIG8E3OwVfRLvAvJGwOLC5Qu/7H5C3md4
2Ro1wjNnPBW0Bqb3K7CcvFEQzAra+K62CjR1MmehVs3imZ2BNfCljyzkJ3dH
eM2sB5mmXyz0Sfwq54BjEyzQBGzUTj4sWaUlAc3yLDbW/1nA76xuIU8LV7QN
T/1pnpQ8LazljXp9OikjTwtPGeI/k8raYaEmGIO8CXEO0CknbwyKXFJqz75T
kKeNpw0lQRdFHeRpo3vEogdOsUrytDE0/arMNE9J3lhcYtileB2hJG8s3sy/
lDolp4M8HfT7rV6VW6YgTwd9b6Wdzi+Uk6eDhw4mTa1OZfani4NHct13hsnI
00WLjMJbvhwpeXpYKj/KXxnZQp4e3ptWyr+c3EyeHrZXzhM1ZDeSp49CTsPz
qpI68vTxVEXkjenN1eQZ4OaWzJqbA5XkGWDOef3W7s1l5BmgriirqSr4GXmG
2BJvqZgTVUieIepHVaWNlwrJM8I/YtzfxFk9JM8IPby4znvvF5FnhKEtxtHn
V5SSNw59KgfZDldekDcO628XxZ9zFJNnjBUL2aH6urXkGWPGfbPRvvdMX4zx
zOpJZtckTeSZ4KbH7WMbBUxfTFAn5OGsrgOtoBk/BhzU7z6v45cqBc348eHg
D0Kv+gVSGc0jDh4VOPVqc+U03zg4LSl5+103BXwZZxx0eHt40keXDvJM8VJh
wsJolpI8UwwfuavPSlGSZ4p+w+mpwXeU5JliRZZwlvg7JXmmyI4crPq8i/HM
UKsk17E8SUGeGbp4h+clxsrJM0MTuXz4yqJ28swwsyzEaYaRjDwzfMLb6Pv7
9jbyuHjVvXmJJPc1zV8uPnsfeTe6+RV5XPw2+sjKl/0N5HGxvODwTpZ+HXlc
lJzgszgO1eSZ45Fm8aHYoxXkmeNoiIvrbJvn5JnjmMChi5c9i8kzxzWSpaM/
ix+RZ44v2yTd69OE5FngayvtbU/8H5FngUPsqExR6VPyLLBYmPJsR9pf5Fmg
WLfAO1m7gjwLbNqwxX5bs5g8SzSVcQKTi2vJs8QLMYf4+7MayLNEwRqPXUZn
X5FniUvyp/Q5bXlNniV6Pgh3mD+deX9W6HliNRr3SMmzwrW5fXeWebSTZ4Xc
ANeRDSFMX6yQPzdxnT+P6YsVzi1f6tSzgfm+1iiKuf3Yw01JnjVaX09ZaHSD
6cv/10t5x/emMX2xxuAk8do8U6Yv1nhJ95yQPYfxbHDkRjJbNl9Bng1urZbZ
CtyZvtjg1MmiWVyVjDwb9D6eWycWSMmzQbcE3WXyEub/sMXopCw91YiEPFv8
1W67ys+R6YstbpFVta30Zvpii9nrXqmCFteSZ4uu/Z1zX0Qx38MOh6ckxc2Z
/JI8O3w7e4bLi4pS8uwwiL+ut87mKXl2uJTdF/Mh/iF5dphu6V0jKBDCf6V/
ILQ=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0.5, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HlYzHkcwPEpRzVqmppprlrHFnK162pl5fMhK5Qk0bbFI6SkHMlVjjyP
I/KQ1pP7iBytDDoeOjBPh82UiiHTNWaqmdAtyaZYMz6/P+aZZz7PfF/P9zfz
fj4jVm30CTZmsVhHv7/07zF8qbsmej9EjfowOiQ3G7KHHmhe/EAK7SNEicL+
hzAm8Hh+t2MeXBVcs02dXAC7DN8vhA2Sh+uvRhRDfbR+IIevnTVRx0aUQcom
V/brqxUQevre/rEmL0B5VT9QgGOco3CN6SsY8towgBnNiRZ3TZUwk60fVENL
Guvl0a/VsFl/fFMdnLx8yCFYUwc+D/QXUsPZi++DTvmqoWWxfqCB/TEmrs43
NHCwWT9ogOSZ1QPttPUwTH/9oVqIP3oyro/dSM+jgxWycwKBjZa8t/AshN3+
R7+WvHfwkvubh2mWjrxmmLFccSVd0EReK9izq87v69SR1wZ7RVsV2QE6+n06
YNH5Go/UQ1r45KgfdIAf56LLkaONUNCtH3RCwpOvKbilARLy9YMPsN9FecsD
62G5/nhgF0TGLWVb9qjJ+wjdbu6LC6e+Ie8jiOov7Xi0opa8btCN88iv3FRF
3ie4n3jGbnlUJXk9IDuR7OsZqSDvMzzJfejP21pB3meIGdbVmWlTQt5/8JY7
a96jpCLyemFEXjLseiYj7wu4dS5cu4uTS14f8Guel6V3ZZPXB0HC8Bqb+kfk
9cP12c7vVykKyPsKfgtKFob+/JS8b+BYnODvpi4DQ058Fq5cFRWdHvoCfvTI
wtSUyJWrw16BxtAXCzOTpLKadUpwNwyMMLXHuKNgeQ0YjkuNMCSj6+JZVxV5
xjiq8LBzRqyaPGM0muFfqKrQkGeMaTyVt3ZIA8wzDAZgtd+xRTucGskbgEl1
jt53pmjJG4j7Ym/7Vwh15A3EBKf4quB/deQNxAY3h9QOcRN5g1CalzRhQ4OO
vEE4099rVrSbjrzBGML/MvnCOi15g7HL/mCXV1gjeYORPVSuiF/I3M8Ejbbx
MxOF9eSZ4D+90pt5JWryTLFi9aiXZdUq8kzRbHeL+QZWLXmmOC0oQzmJW0We
GYb0jUrfY11JnhlenFe0cz1XQR4bOa31QVn8CvLYeNi3OOB0oJw8Nq6e//Bw
dWsheUPwQIymKMBdRt4QFI0cP1N8Ioc8cxScSv7kNTeHPHP0uLMvNbvyMXnm
yArcFFyyjfEsMCDqVESb8il5FmhxWqAov1ROHgdr3y5bu0bO9MLBW0au51eU
Mr1w8F3VHqM6uZI8S/w9dMWy23lML5a4pijNMeiMCgzrh83FibbZwrg0NRjW
jysX+aqT4km9GtpHXGw8MKPQY1ID7Tcu1mR82bNvcSP8WGdczFzVosxdoiXP
CkcKx5w7PlFHnhX2ylNqPZU68qwwqyh8WamkiTwr9IlyeXZDoSPPCu16z732
HasjzxpdL5XmfV6gJc8ag+duvHvGvZE8a5xz8/a9iNHM/awxR85t292mIc8a
v3CVbnaX1eTxMDmnPCBgr4r2Lw8TNVkOsuQa8ngYX5pj4XtHSR4PW8OGPTty
9xV5PFRGlldflr4gj489Os4vS9aVk8dHnmrA3uaUp+Tx0duz1c1kXiF5fHw+
fWVC7vHH5PHxgZ9gkMv4HPJssH/Poiz39BzybDAyOzaxPFxGng3elC+Yf+in
IvJscLhZ9xyzE3LybPB6Uku7+a8V5AnQh7Ox1nm8gjwBSopdZQudKskTYE9G
p3fauCryBBh8YenrWba15Amwtau48d5Hphch5pVMK7FWqskTYkT8+skT7OvJ
E+IABwc/zz+Z/0OIS9NH7uRHMb0IcW6485mpkUwvIhRZDhu+dYGOPBGqjv0l
PdvE9CJC6aTpPShmehFh6WC7Uu98phcRumyIfenHZXoR43tnQZpsnJY8MWrC
FvmFOzC9iNFx/uWAJhZzPzE6PdgRyCliehGj3VL7PqcophcJbj+2eXu4PdOL
BLfeaE+8P5vpRYJj5zzf5erF9CLB/LorvANeTC8SNMlz39bpyfRiiy23przt
SC0j7/vnzHt9FW3F5Nlie3/olb+vFZBni7Mlb7b4XHpEni1uP1H1rV+dDf8D
wiEW1A==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11Hs0lHkYB3DKSENjxswwDLppS1GL00kuPU93TpSsU5tNTm0p20X3C7rt
UrvRhlMhmUh3ZTdlIzVNpItujLswNzPDkiiUTbXN9Mwf73nP+z3v73N+v/f9
nmf0qqjgNUOMjIwSv166ewwvb74iOg4s9uWuShcXQZFjfMfiwjyIybYodwkX
g/PyYyV9E+7Aqc8Oz0JulEKs/v0HwB51ySkYn4AyWheUg9HLL3vq57yEc5t9
mXU5FTBMkrisSSyF+hxdUAXJC08LOpU1YF6nDyBn1Lmdl4wbYAZTFzSC52iJ
kz+7Cbbolm9uhgMu3GAHhgyCC3UbkoMf/9qFwg45dC7WBQqQTXRoV4ISDnXo
AhW0nXYwG4hRwUjd9h3VICnfEBKV2Urn0YBz+7iTBdlq8togbk/BoqtxGvLa
QZrR+Ha8j5a8DmhrmN7Vk6sl7zVETf9ifv+clrwu8NyWcaplopa+TzeEnnF8
Kd6ogf4JuqAbOk5mnag6pIbSPl3QA42C1HXT9rdCUokueAvaG9nJxaEqCNMt
X/4OnA4OrlAJleT1wqkLoglzy+Tk9UKsJt/H8mYLeX1w6KDUZaD4FXn94Ji5
6Zptbj1578HfaRrfJ6GGvA+QtbRfsHitlLwPII/fPSk0/QV5A7DVrWFVSeZj
8v6Dzg9WW2OdSsn7CAmuzKCA9LvkDUKA6GHBrOwi8gYhf/K8lPaoO+R9Aik/
MOKdbwl5nyFPaZcVlPKIvC9wOWqhaMre56CvE88ITV1EN+/UVMK3PhrhmeBK
EWegGhT6fhnhatmGJYft6mG+PjBGm+b53YrJr0C/PM8YG+/fMnF2aSFvCMru
KrZci5OTNwQF3o4zA2QK8oZgWPNoz9wxKvDTB0Nx/8Z475EBreQNxUSTnrHu
y9TkmSBXXe+zd56GPBMcEx2ftcZCS54Jru7dKr16QkseAz39XHan3dSSx8Do
MOtU26Va8kxxl3tk+J3LBs8UP451fp/xXE2eKUbWHp/y+UUrecOw8cjFjqx8
FXnDMH9jbZ5HjJI8M9RuuDjgMUlBnhn+rtZMc0uQkWeG3YHLH5qcbiJvOPqq
u9pXJTeQNxyflUUkV2yvJY+JtYyo8Q1BVeQx0a02KU7pVkEeE9v+8rvFCC4n
zxz5g2vXl158QJ45Xjk53Typ7B55Fjh3o2t15Mjb5Fkg9B8NGvHuNnkWmM7c
WStSScgbges07+/u6i4jbwSu7lsxcXjxU/JYOEt8JUP0uoI8FlYeO9vLsjT0
hYW7MhPbAtzryLNE6fGSoj8WNJJniUukxvYHgppBP36YbPztRvPat0I56MeP
Lxtf+ofWimMVNI/Y6CQbXOj6SEnzjY0zsjNx/QcVfBtnbPSwHH6CwVKTx8Gb
PtIxLIaGPA5a+Z45V1inIY+D3BDF6YCdWvI4+E9C5xv/Ii15HBRNc1/5OFZL
nhV+6l58UaMweFYoCB+V+RvH4Fmht1DiOtteTZ4V7vDy6vE2ayXPCnP2JyRt
qleSx8VU2ZsZgccUNH+5eCEj8frZKXLyuDgQeYBdvKeZPC6qxFGscTsbyeMi
b3ub0/2wOvJ4uEIyNafMq5o8HrIP33ijFFSSx8NScWfOedYz8ngI5Rk+u30f
ksfDS9qDqX2j75PHR6+rvj+mfF9MHh+rWqeODBgsIo+PIfPCnzYtuUceH7fl
J9irwh6Qx0fBtvOuNV+ekGeNz44ejvnXtII8a9yk+aF38rgq8qxRGFko8vSv
Jc8aKwPZb/dENJBnjV0tDM6SrU3k2SDzzxddXj/LyLPBiEv2IQECQ19sUP4p
9sjRSENfbLC6OjVl5VlDX2zQPi18ynxJK3kC9HVPTkuXqMkToEXnL7NfiAz/
V4DdrPb+BYsMfRGgqb23x/Z8Q18E2FaSy0k+ZeiLLVYiL7qAryXv6/Pawu9C
gw2eLZ51DzTvjjD0xRaZJkn2sT8Z+mKL+Rli7q8eKvLsUJDmzIjpMfTFDm+b
Dd1rnmboix3Oso4Qy0JayLNDBxtttcOyV+TZ4ZP+v8UP5taTJ8S86/vm3HOq
IU+IjrL2AjdjKXlC5HJPdMgqn5MnxPH3dtRLFI/IE+KxmfLjTw+WwP+OKBfd

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.01388888888888889], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11HdUU3cUB/AwZARREjIZFrUO1BbFiRbvdYI4WC4QLVKK4sR1qriBOhBU
UNQjWgcetEopbggOIAli1AoCskQTAkmUISBTEGvwvj/eeed8z/t9zr3v3XcH
Bm30+d2QxWLFfLv09528VDdVeBTYeNj45EkzIGPAn7Xe6alwbp2uTtL1CBwD
juW0Dn8ArU9f1N7fKYNdvc/LwFYui1x5UAFV4fpAATJu6NeoiHy4EubKLknK
h/Hihou3XxdCaZI+KISRt8R1e0eWgEVJbwApisERhzaVw1S2PiiHJ5o7QZrE
StikPx5WCe8r4vMqPZXgk64vSAlD9xu4gkQFdd76QAX9R9i027LVcKBWH6gh
adHI7DTXavhBX/6AGqjMKapyXFhD/Whg4zpnD/v5GvJ0YDBvgXniMC1572Fm
6vilQqWWvFqYG3X/Ys4aHXn1MMS+Z9yNazryGkAVLqyftlNH76cRfhRskqz8
rIW24fqgEeSNBvbj3bUgbdUHTeA6pCtFu1kDx3P0QTME+M22KNpTA8v1xwM+
wS2LPpFD1leT1wKRL2ascpuqJq8FevhZo5qaVeS1gsprcnh6jJK8NrgeER2T
a/eWvHaQBwsOGXWUk9cBl+9NZt24W0JeB2R4bc3xDCoirxM6p+zJLehbQN5n
eCTbudU37hl5XXAu5egayVo5ed0wv3ZL8anRWeR1g3Rm3rLHgyXkfYHGrJKC
QJdM8nrAySy6yTs8m7yvcC4Dlt9iP4HeceKx0DhGHBqy8AV8n0cWxn7y2RHR
WvDtPesDFhp5Jj3jzSsGt97AAPPOthgPPVcKvcdTDVCRt3VDXEkFeYZ4/Zi9
2rP5LXmGWL6uwWlqk5I8Q5wmWtKz0KsK3HsDI8xKwISeE2ryjDCiveZsnaSa
PGOcONHB/aishjxjPOXq8k9ImoY8Y3TZvitVuktLXh8sjrtnFztYR14fvCwT
fHwVpyPPBMMiK7D0ko48E0xU+jumeejIM8Eje3POr77JeKYY6LrWs7VBQ54p
soquyZstNOSZ4Ulvjck7NlOfGZr9sehNUJ2aPDP0WmEe/SmN6dcc+WcKKxP9
VOSZo9UHtde7/HfksVH38OrB6Ow35LGxj+WiURuPlpHHxq78n716pr8mzwJP
uoTk3ax7RZ4FVq2X+FRMfEleX1z9RLnMOT+PvL447reXu807c8jrizmhdrdr
6h+QZ4n5j981rLiQQZ4lTu8uq7jV/ZC8fljYlFR1PFdKXj+Uj82cFZn5lLx+
uGTAoPgyYT55/fFKuVSRvKaQvP44SM6JmZP1GnrXD9sKt6f8G9xoVg6968fV
CiefsnuwaSKzj6zwQVnAtkUOStpvVritxNNKFauC7+vMCnecCJ89QVVFHgeT
XYa5rRdVk8dBhYnS8qxzDXkctCrjz/V00pDHweiHx+uzLbXkcbDNrWFVvUJL
Hhc7xMPXngnQkcdFVnvRx9hkHXlcXBp0OHr3AR15XHzfsc232FJHHheLOqPj
5YGMZ42ckQbZMcc0tH+tccwU+aDpF5j6rFGQ+HzCnLhq8qzRNC9YxQ1Rk2eN
G5Ljl84YwPTLw34NGLsgU0keD2UccfvlvW/J4+HVCxsXh/xaQR4PK/Zc9xrk
UEoeD9OD2+Y6/ldEHh/7bytuYW0vII+P92cdkJ0IfE4eHyMlDjdmO+aSx8d9
hkN3+8qyyOOj72n/Gx7xEvIEuKWtcuz7qxLyBNjk9NPKtsos8gTouC8gIWoO
4wlQYdsk+ivyOXkC9G5ZI+BFF5AnxPjqOwpvZRF5Qhxz3tjP3LmUPCGGfNif
IA1j+hXi+mnihknH35InxM4LvrPtpUryRNh2N905akgVeSJ0fHNJmLlOTZ4I
EwbXH/E9zXwPEd7NTfRLuVJDngi5X1ag70kNeWLsGtjtXh6sJU+M3mmCRFMO
My9ilO+3S3E9xMyLGGvDEqYbJTPzIkbFC6+ZAn8deTbokL852P0J49kg/l24
YLG5ljwbHC2qkLiMYObZBrXuaz2qRjH12eAvof5xfG41ebZ4MtdIOq2c6dcW
r/mWjVlyQEWeLaqbl7TOEDH/my228CY5hA6tJM8Ws08d9nFpL4P/Ab7CHzY=

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0.5, 0, 0.5], PointSize[0.01388888888888889], 
      AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11XtUjHkYB/BKku5za2pmayt3cjvKrfQ8jqMImzqhKCS11ipjLeniEpUt
ubNLtE6lrcPKWoeatlyaOER0DMUwmZlm5n0llK6rZHfGM3+85z3ne97nc37v
733e5+e5bnNYnIWZmVnu/5fhnsovC1KnZMCz2wWhK+5IQeqe+Ta0ogympd68
M2P8TRgXdbime2wVHBHs5Gy7XgtpxudrYYzXwfh4fR1oUgxBHRxUeCv4sgY4
L5lj01TUAKKFAxXbRz+F50WGQA5hjj6xd/c3gW2TMYAAh5XXnjYqIMDGECig
brI4eqZVM2wxlEuU0MUtrsjKVEFYhWFBKnii8V5U+F4NbaGGQA22RRpZs18L
ZL01BC1w9Jd09acftfCtYfnuOoi7oB11cZeO3kcPj2KDRjj/rCePBbfqB09s
FjPkvYHvD29rTrRkyXsLC+3Gir1PsuS9g7YEyxuVepa89+CQpTynamRpf9qh
vT0/Z14iCz1jDUE7hCb0H2cfMyDrNgQdEDxXPmmrPQNHagzBR2DLFemJ3nqI
NpRHdULgvQR/t0k68rogUeWu3MHVktcF86M2ntr0QkNeN4xMLVbu3acmrwek
yWlpq7gq8noh93Ve3HuOkrw+iNouWHKu6QV5fRD9Mmtrcnojef+C5vBqt1I3
OXmfQJDT6umY+pi8fvjjxN9eIZ33yBuAA4/n1UUM1pA3AMLxTxI+Pq0i7zMc
sige/K1YSt4g8IZ138qPuUHeF8iqufu5fFwtGNuJb4atPDeP5wvq4Gs/mqHA
ctXZVkkDqI39ZYYPeBnHdsvlEGQMzLHfrTC4xrcJjOVl5rhzXXmy934FeRZ4
Uxd926VSSZ4FFmnSpl+JUZFngXMXnRkRWa+GBcZgCLpH5PBD3VrIG4IO3G2D
s5dqybPEnv57byridORZ4ohcLHkXrSfPEkt0QUzVTIa8ocj8ZD4xooshbyiW
9YV45maz5Flhtt8V12oNS54VvgvLa6t/xZJnhT5XU8+Yp7LkDcOK8FLzSpXJ
G4Zez75YRXsy5FnjqMwllyfM05Nnjc8LtsH5IB151jgYmbTm0SQtecMxXOHU
drBPQ95wPHF/SWxEsZo8G+zKeu11ebqKPBuUBlcXNK9WkmeD4co3s5vHKMiz
xbZgjqZe3kieLUorLfGMRE6eHWZc413yd2wgzw4Dn9T0Jh66T54dOoTn6QIz
ZeTZY1RXRNiUvdXk2eNokTjg2mkpeQ6IguEv+85Xk+eA7l9KS/eek5HngKrw
Q70r/7xPniMuKt1wo9O9gTxHFGZ6LMzeIwfj+LFxwoT26p5TLY1gHD9znHD5
2nwvmKGgeeSEkgmvX55OUNJ8c0LHDzVQOEcFX8eZE6LH9okNF9XkcdAvK3Dt
nkENeRwsjmX9Z/hoyeMgs/r4+H2LdeRxsGJyf2Z6kJ48Du4o4uWNGcWQx8Wq
jUJNawtDHhfN3yRNitvJksfFhUVt85qULHlcPDeQv+WVmiWPi+vnrygJ2M+S
x8MZkVNTfDoYmr88jP3Ymz7gw5DHwzTffywLIvXk8fDI5I5nmrU68nh4tUFy
XhGsJY+PHZtmHooXtpDHR3e74QHsXTV5fCzLWx8jW6kij48nDiwvjL2oJI+P
OYvlHg+TFOQJ8OH0E+Edo5rIE2CyzNY/QyYnT4CvdM/OfhNjOm8E+Jbxu5s/
vo48AZZcOJ2uc6glzxmjsu3Cl/nfIM8Zx/J8Tt8pkJLnjA9yHMuDuqvIc0bf
wGEp7i4y8pwx2MYLRZz75Anx8yXbm+l5j8kTori1va5woml9Qky6Ojcj4mgj
eUK8LtFbi5gX5Alx955y63seSvJcUL/2XfwaVxV5LriubnCZXY5p/1xwe8mF
TslrDXkuGLnhw8pOoZY8F8we2TjLfpqOPFfs2s1VP52iJ88Vzy6dveA7jun7
uuIurbd0gpwhzxV3/CBddEti6hdX/L3WOoT33NQvIixMudU65P/z76snwl+n
1u/sPGbqPxEqAqe0hpub+k+EGbolfSELGPJEWHlpn2/9Zj15YjxeMaukKVlH
nhg3xUj5Z+NN/4cYx/n9tb/Lt4U8MZbpO75MZtXkifHlnJCgk7tU8B/c+B1A

       "]]}}, {}, {}, {}, {}}},
  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.758619411021542*^9, 
  3.760532111959979*^9},ExpressionUUID->"5abdfe0b-e996-4e70-ac57-\
6e0a3a14ab73"]
}, Open  ]]
},
WindowSize->{808, 651},
WindowMargins->{{236, Automatic}, {Automatic, 50}},
FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 77247, 1765, 3202, "Input",ExpressionUUID->"dd3ed1be-e64f-4871-bdc6-bbc86a92e982"],
Cell[77830, 1789, 10526, 191, 238, "Output",ExpressionUUID->"1a0e5c85-708a-4da6-9c3f-cc7486596d5b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88393, 1985, 79790, 1816, 3308, "Input",ExpressionUUID->"06113369-a75b-4a0a-9ec9-3d99571f7111"],
Cell[168186, 3803, 12727, 230, 245, "Output",ExpressionUUID->"c73b65bf-e25d-4b51-8608-e44d543cdfd8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[180950, 4038, 77088, 1755, 4850, "Input",ExpressionUUID->"d6e0f425-e454-48ec-bb9a-db4a3ffb80ac"],
Cell[258041, 5795, 12597, 228, 245, "Output",ExpressionUUID->"5abdfe0b-e996-4e70-ac57-6e0a3a14ab73"]
}, Open  ]]
}
]
*)