ChaosRNAdSplot.nb

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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    326283,       7654]
NotebookOptionsPosition[    323243,       7594]
NotebookOutlinePosition[    323604,       7610]
CellTagsIndexPosition[    323561,       7607]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.767271298259226*^9, 
  3.767271299630492*^9}},ExpressionUUID->"f812e288-fa9f-4cd3-af69-\
6f079388f10b"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.757640521074727*^9, 
  3.757640528542068*^9}},ExpressionUUID->"f6cf3656-cfc2-47b6-90fb-\
a67864946eed"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EulerEquations", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "/", 
      RowBox[{"z", " ", "[", "t", "]"}]}], 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             RowBox[{"zh", "^", "2"}], 
             RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"z", "[", "t", "]"}], "/", "zh"}], ")"}], "^", "3"}]}], 
         "+", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "[", "t", "]"}], "^", "4"}], 
          RowBox[{
           RowBox[{"\[Mu]", "^", "2"}], "/", 
           RowBox[{"zh", "^", "2"}]}]}]}], ")"}], "-", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"z", "'"}], "[", "t", "]"}], "^", "2"}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              RowBox[{"zh", "^", "2"}], 
              RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"z", "[", "t", "]"}], "/", "zh"}], ")"}], "^", "3"}]}], 
          "+", 
          RowBox[{
           RowBox[{
            RowBox[{"z", "[", "t", "]"}], "^", "4"}], 
           RowBox[{
            RowBox[{"\[Mu]", "^", "2"}], "/", 
            RowBox[{"zh", "^", "2"}]}]}]}], ")"}]}]}], "]"}]}], "+", 
    RowBox[{"q", " ", "\[Mu]", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{
        RowBox[{"z", "[", "t", "]"}], "/", "zh"}]}], ")"}]}]}], ",", 
   RowBox[{"z", "[", "t", "]"}], ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.757640530121262*^9, 3.757640538826557*^9}, {
  3.75764058287499*^9, 3.757640735565363*^9}, {3.757640774451721*^9, 
  3.757640779834272*^9}, {3.757640836794928*^9, 
  3.757640838427422*^9}},ExpressionUUID->"fdfb1fdc-4eb0-4018-8756-\
1ff26e40d137"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"q", " ", "\[Mu]"}], "zh"]}], "-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["zh", "3"], " ", 
     RowBox[{"z", "[", "t", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{"3", "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["zh", "2"], " ", 
        SuperscriptBox["\[Mu]", "2"]}], "-", 
       RowBox[{"4", " ", "zh", " ", 
        SuperscriptBox["\[Mu]", "2"], " ", 
        RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["z", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"zh", "-", 
        RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["zh", "2"], "+", 
        RowBox[{"zh", " ", 
         RowBox[{"z", "[", "t", "]"}]}], "+", 
        SuperscriptBox[
         RowBox[{"z", "[", "t", "]"}], "2"], "-", 
        RowBox[{"zh", " ", 
         SuperscriptBox["\[Mu]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"], " ", 
     SqrtBox[
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            SuperscriptBox["zh", "2"], " ", 
            SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "3"]}], 
        SuperscriptBox["zh", "3"]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[Mu]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "4"]}], 
        SuperscriptBox["zh", "2"]], "-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["z", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              SuperscriptBox["zh", "2"], " ", 
              SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"z", "[", "t", "]"}], "3"]}], 
          SuperscriptBox["zh", "3"]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[Mu]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"z", "[", "t", "]"}], "4"]}], 
          SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
   FractionBox[
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["z", "\[Prime]",
       MultilineFunction->None], "[", "t", "]"}], "2"], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"z", "[", "t", "]"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            SuperscriptBox["zh", "2"], " ", 
            SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "3"]}], 
        SuperscriptBox["zh", "3"]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[Mu]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "4"]}], 
        SuperscriptBox["zh", "2"]]}], ")"}], " ", 
     SqrtBox[
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            SuperscriptBox["zh", "2"], " ", 
            SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "3"]}], 
        SuperscriptBox["zh", "3"]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[Mu]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "4"]}], 
        SuperscriptBox["zh", "2"]], "-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["z", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              SuperscriptBox["zh", "2"], " ", 
              SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"z", "[", "t", "]"}], "3"]}], 
          SuperscriptBox["zh", "3"]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[Mu]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"z", "[", "t", "]"}], "4"]}], 
          SuperscriptBox["zh", "2"]]}]]}]]}]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"z", "[", "t", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           SuperscriptBox["zh", "2"], " ", 
           SuperscriptBox["\[Mu]", "2"]}]}], ")"}]}], "+", 
       RowBox[{"4", " ", "zh", " ", 
        SuperscriptBox["\[Mu]", "2"], " ", 
        RowBox[{"z", "[", "t", "]"}]}], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["zh", "6"], " ", 
         RowBox[{"(", 
          RowBox[{"3", "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["zh", "2"], " ", 
            SuperscriptBox["\[Mu]", "2"]}], "-", 
           RowBox[{"4", " ", "zh", " ", 
            SuperscriptBox["\[Mu]", "2"], " ", 
            RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["z", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"zh", "-", 
            RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["zh", "2"], "+", 
            RowBox[{"zh", " ", 
             RowBox[{"z", "[", "t", "]"}]}], "+", 
            SuperscriptBox[
             RowBox[{"z", "[", "t", "]"}], "2"], "-", 
            RowBox[{"zh", " ", 
             SuperscriptBox["\[Mu]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]]}], 
      ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox["zh", "3"], " ", 
     SqrtBox[
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            SuperscriptBox["zh", "2"], " ", 
            SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "3"]}], 
        SuperscriptBox["zh", "3"]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[Mu]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "4"]}], 
        SuperscriptBox["zh", "2"]], "-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["z", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              SuperscriptBox["zh", "2"], " ", 
              SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"z", "[", "t", "]"}], "3"]}], 
          SuperscriptBox["zh", "3"]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[Mu]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"z", "[", "t", "]"}], "4"]}], 
          SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
   FractionBox[
    SqrtBox[
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           SuperscriptBox["zh", "2"], " ", 
           SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"z", "[", "t", "]"}], "3"]}], 
       SuperscriptBox["zh", "3"]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[Mu]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"z", "[", "t", "]"}], "4"]}], 
       SuperscriptBox["zh", "2"]], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["z", "\[Prime]",
          MultilineFunction->None], "[", "t", "]"}], "2"], 
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             SuperscriptBox["zh", "2"], " ", 
             SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"z", "[", "t", "]"}], "3"]}], 
         SuperscriptBox["zh", "3"]], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[Mu]", "2"], " ", 
          SuperscriptBox[
           RowBox[{"z", "[", "t", "]"}], "4"]}], 
         SuperscriptBox["zh", "2"]]}]]}]], 
    SuperscriptBox[
     RowBox[{"z", "[", "t", "]"}], "2"]], "-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["z", "\[Prime]\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"z", "[", "t", "]"}], "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            SuperscriptBox["zh", "2"], " ", 
            SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "4"]}], 
        SuperscriptBox["zh", "3"]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[Mu]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "5"]}], 
        SuperscriptBox["zh", "2"]]}], ")"}], " ", 
     SqrtBox[
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            SuperscriptBox["zh", "2"], " ", 
            SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "3"]}], 
        SuperscriptBox["zh", "3"]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[Mu]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "4"]}], 
        SuperscriptBox["zh", "2"]], "-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["z", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"], 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              SuperscriptBox["zh", "2"], " ", 
              SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"z", "[", "t", "]"}], "3"]}], 
          SuperscriptBox["zh", "3"]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[Mu]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"z", "[", "t", "]"}], "4"]}], 
          SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["z", "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"3", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             SuperscriptBox["zh", "2"], " ", 
             SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"z", "[", "t", "]"}], "2"]}], 
         SuperscriptBox["zh", "3"]]}], "+", 
       FractionBox[
        RowBox[{"4", " ", 
         SuperscriptBox["\[Mu]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "3"]}], 
        SuperscriptBox["zh", "2"]], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["zh", "3"], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{"3", "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["zh", "2"], " ", 
            SuperscriptBox["\[Mu]", "2"]}], "-", 
           RowBox[{"4", " ", "zh", " ", 
            SuperscriptBox["\[Mu]", "2"], " ", 
            RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["z", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"zh", "-", 
            RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["zh", "2"], "+", 
            RowBox[{"zh", " ", 
             RowBox[{"z", "[", "t", "]"}]}], "+", 
            SuperscriptBox[
             RowBox[{"z", "[", "t", "]"}], "2"], "-", 
            RowBox[{"zh", " ", 
             SuperscriptBox["\[Mu]", "2"], " ", 
             SuperscriptBox[
              RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]], "-", 
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["z", "\[Prime]\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{
              SuperscriptBox["zh", "2"], " ", 
              SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"z", "[", "t", "]"}], "3"]}], 
          SuperscriptBox["zh", "3"]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[Mu]", "2"], " ", 
           SuperscriptBox[
            RowBox[{"z", "[", "t", "]"}], "4"]}], 
          SuperscriptBox["zh", "2"]]}]]}], ")"}]}], 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"z", "[", "t", "]"}], "-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            SuperscriptBox["zh", "2"], " ", 
            SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "4"]}], 
        SuperscriptBox["zh", "3"]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[Mu]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"z", "[", "t", "]"}], "5"]}], 
        SuperscriptBox["zh", "2"]]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             SuperscriptBox["zh", "2"], " ", 
             SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"z", "[", "t", "]"}], "3"]}], 
         SuperscriptBox["zh", "3"]], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[Mu]", "2"], " ", 
          SuperscriptBox[
           RowBox[{"z", "[", "t", "]"}], "4"]}], 
         SuperscriptBox["zh", "2"]], "-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["z", "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"], 
         RowBox[{"1", "-", 
          FractionBox[
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{
               SuperscriptBox["zh", "2"], " ", 
               SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"z", "[", "t", "]"}], "3"]}], 
           SuperscriptBox["zh", "3"]], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[Mu]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"z", "[", "t", "]"}], "4"]}], 
           SuperscriptBox["zh", "2"]]}]]}], ")"}], 
      RowBox[{"3", "/", "2"}]]}]]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.757640760429021*^9, {3.7576408350229673`*^9, 3.7576408402189617`*^9}, 
   3.7583333816128683`*^9},ExpressionUUID->"b8b579f2-eb3e-4a6d-84ff-\
04503ec3178e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"zh", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"1", "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"zh", "^", "2"}], " ", 
            RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zs", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
        RowBox[{
         RowBox[{"zh", "^", "2"}], 
         RowBox[{"\[Mu]", "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zs", "/", "zh"}], ")"}], "^", "4"}]}]}], "]"}], "/", 
      "\[Mu]"}], "/", "zs"}], "/", 
    RowBox[{"(", 
     RowBox[{"zh", "-", "zs"}], ")"}]}]}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[Mu]", "\[Rule]", "1.635"}], ",", 
    RowBox[{"zh", "\[Rule]", "1"}], ",", 
    RowBox[{"zs", "\[Rule]", "0.1"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.758335822384664*^9, 
  3.758335925031382*^9}},ExpressionUUID->"38148ffc-8cc7-48ac-bfb8-\
1c861616abc6"],

Cell[BoxData["6.784203848140911`"], "Output",
 CellChangeTimes->{{3.7583359175015182`*^9, 
  3.758335926462459*^9}},ExpressionUUID->"cb105e9a-51ed-41c6-91a5-\
c3a73f7cf0ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Block", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"A", ",", "B", ",", "C1"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"B", " ", "=", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", "7", ",", "9", ",", "14"}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"C1", "=", 
      RowBox[{"{", 
       RowBox[{
       "Blue", ",", "Red", ",", "Green", ",", "Brown", ",", "Magenta"}], 
       "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"A", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Plot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"z", "[", "t", "]"}], "/.", 
            RowBox[{"NDSolve", "[", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{"q", " ", "\[Mu]"}], "zh"]}], "-", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "3"], " ", 
                    RowBox[{"z", "[", "t", "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
                    "/", 
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"], " ", 
                    
                    SqrtBox[
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]], "-", 
                    FractionBox[
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "+", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], "/", 
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}], ")"}], " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]], "-", 
                    FractionBox[
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"z", "[", "t", "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "3"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}]}], "+", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["zh", "6"], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]]}], 
                    ")"}]}], 
                    RowBox[{"2", " ", 
                    SuperscriptBox["zh", "3"], " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]], "-", 
                    FractionBox[
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
                   FractionBox[
                    SqrtBox[
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]], "-", 
                    FractionBox[
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]], 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]], "-", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"z", "[", "t", "]"}], "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "5"]}], 
                    SuperscriptBox["zh", "2"]]}], ")"}], " ", 
                    SqrtBox[
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]], "-", 
                    FractionBox[
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    FractionBox[
                    RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], 
                    SuperscriptBox["zh", "3"]]}], "+", 
                    FractionBox[
                    RowBox[{"4", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "2"]], "-", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["zh", "3"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]], 
                    "-", 
                    FractionBox[
                    RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}]}], ")"}], "/", 
                    RowBox[{"(", 
                    RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"z", "[", "t", "]"}], "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "5"]}], 
                    SuperscriptBox["zh", "2"]]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]], "-", 
                    FractionBox[
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}], 
                    RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], 
                 "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"\[Mu]", "\[Rule]", "1.635"}], ",", 
                   RowBox[{"zh", "\[Rule]", "1"}], ",", 
                   RowBox[{"q", "\[Rule]", 
                    RowBox[{"B", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}]}], ",", 
                RowBox[{
                 RowBox[{"z", "[", "0", "]"}], "\[Equal]", "0.1"}], ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], 
               "}"}], ",", "z", ",", 
              RowBox[{"{", 
               RowBox[{"t", ",", "0.01", ",", "9.5"}], "}"}], ",", 
              RowBox[{"Method", "\[Rule]", "\"\<ExplicitRungeKutta\>\""}]}], 
             "\[IndentingNewLine]", "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0.01", ",", "9.5"}], "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0.01", ",", "9.5"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"C1", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "A", "]"}]}]}], "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.75764095595439*^9, 3.757640966819851*^9}, {
   3.757641458699967*^9, 3.757641568663721*^9}, {3.757641631677862*^9, 
   3.757641641050387*^9}, {3.757641831001869*^9, 3.757641859286859*^9}, {
   3.757642035747781*^9, 3.757642060636409*^9}, {3.7576421050015583`*^9, 
   3.757642224770947*^9}, {3.7576422635531807`*^9, 3.757642315170734*^9}, 
   3.757642374592533*^9, {3.75764247181184*^9, 3.757642525384432*^9}, {
   3.757728778444748*^9, 3.757728790882008*^9}, {3.757728826367856*^9, 
   3.7577288709174023`*^9}, {3.757728906271494*^9, 3.757728966060317*^9}, {
   3.7577291470191097`*^9, 3.757729239521912*^9}, 3.757729276919816*^9, {
   3.757729372613481*^9, 3.757729400025963*^9}, {3.757729434017097*^9, 
   3.7577294587092752`*^9}, {3.757729505030628*^9, 3.757729533213249*^9}, {
   3.757729564659829*^9, 3.7577297698562613`*^9}, {3.7577298312417583`*^9, 
   3.75772996639433*^9}, {3.757730000354575*^9, 3.757730047384202*^9}, {
   3.7577300987421503`*^9, 3.757730145883731*^9}, {3.7577301958541307`*^9, 
   3.757730231578196*^9}, 3.7577302831442833`*^9, {3.757730314302596*^9, 
   3.7577303650771227`*^9}, {3.757741991421781*^9, 3.757742007734211*^9}, {
   3.758335968629738*^9, 3.758335977665337*^9}, {3.7583360113062563`*^9, 
   3.758336070095367*^9}, {3.7583361204198103`*^9, 3.758336131890473*^9}, {
   3.758337170434946*^9, 3.758337292721301*^9}, {3.758337339932912*^9, 
   3.7583373864577293`*^9}, {3.758337455734651*^9, 3.7583377064000874`*^9}, {
   3.7583496574610157`*^9, 
   3.758349661912678*^9}},ExpressionUUID->"a3dc2933-7715-4c62-83f4-\
8a7e63700458"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwV1Xk0FdrbB3AkGaqDUCLDkSQlDYTSd4eEzDmU6HL9uKJBKpUkNFM3cSlR
hsp0pQwNhIsMGTJEiSTDwXEGBxEH8Z73j732+qz9rGd9n/3H3qp/nnTwEhIQ
EGjlr//f34/AbDboKoI7ZsQNiwqRbRo89tM/Ai9i/jtEbyqEpbWrTeC2KAg8
N+BOMgux+/zMkwDtGPSeSCh2kyjCticPeCc04/BmhWTeki1FWN+oZ+u3Nh5f
NPR4XYeLoMhre/qXciIUQlx1KyOLILn29Izn6iTcyO6tSSkrQni66PqX4iko
/kN/5cGZIswVtzto30zFw4Ul7TX67xD4Ke1S9uKneNMiadd88R38fpu2Zgik
Y3O2sZIapRiD0jLz60IyUL82zEXjj2K4r+9f/2w2E/KU1of6+cVwPBAWkvIr
G1+bU4PGvUvQ6GOXqXwmBzbNX0IPVJfAPES57dHYC0xVk5ytmqV43NYtYx2Y
i40Np0t6pksRsxDsa3GqAO6is1ytI2Wwi6BfFtV5BZvwhQuCD8uwXNYqtmbk
FZzMj92UbS/DzQ0KZXuPvQHTQiKt3LEcwbRCWeO/ijDQdWC0zLUCBj0qWoLr
3iH+S520UkoFfvneJGX0d+BNmXg7D1bAP9TZb/efJUi35h7SO/0eeZ+D3B9p
l8FMm1KWGluJdAH51/Ga79FBiRE48KsaUU40j2jlWjzyOxWTNF+P6v2yyVPX
a1Hjm3FZ/GADZsnnbteRWowKToo9yW2AtxbNVaOkDmt88yRsvT7CSIDmXOzS
AL8W2+EdjY1gZjpaD8Y2wUf8p8dASzNS5zMV14i0YoZ3up6V1opZ+0zRU8Ed
cGiOr+tX7cD0p+bHr7M7cC9hX6adRQd+HZjePtfVgdZxzp4n/h0Yp+3zuGHU
CYvk6PPTpR1gHhoofDTfif6tBwwPu3Tiq4eqX11oFz6aNW2tjfyGglPxH9Wu
/YCXT8G7j+3fkTde5nn01Q84b5sUuTz7HS9PM3g5A/xz89FEinI3vhQprFij
1oOdK7K3N3p1o6XYFxlXenDjs8G60rFufCgTfVBq2guv5/SXWYI9ePPB1IJV
3Ye6HVPXLon0Yr7QrOef7j6M7pFTYcr2wuxf83O7f/UhbmeIoZl6L9ruWD27
p96PRpWsiQaTXow6OArqX+2HSmRNrkxoLzS/exZe3UOHn+n9RVGTvUgYC9dU
Kh6A8y6HsMNtfejru1pW0zqAg9p3aGW9fdjQdt35FGsAPKFdf8py+/D2dcS1
ytWDaJWJtYoS60fbxehe3wuDyJdTuVZn1I9lIqnxb/SGcC5ZYqXLk35cXl0u
Zp/LQNqrXIqhJx3FK6uXzdUxcDaHZ/DqJB3TMvVS6XQGOkbdk5SD6QigfJb/
vXIYtkTLs+IfOryFhzUzQ4ZxaJVG7Z4qOmxGJC0FrZg4duTcWn21AShWuEfk
DrKQF7U86To/96H/vP52FWBDxFtXaVn3AOKKfaOXrGYjtWBA5xpjAJJvzjx0
s2ZDd9jYzfL3ABZl38wSK2DjXtDHoQ3rBsGMfVnnEcbBp/cV7rSzg3h7VEBC
WpELe61XQq1iQ1i34WiEyHYuPrz2dJGXHkIss0Vsdj8XiR2+GrTVQwjweyJK
v8jF0gbHw883DEHruJnI629cePf8U9xrOQRb/WqB59ajkN1uUud9awgVO5fO
2S0bw64+nRPGC0PgJZTt3C8/ht0h5YEOIgzozJ25uFd9DJ/nSeahZQwkFX+f
MTAag+uNhlJrBQaCjV7wqMfHsDx7QqJRjwFdOExNNIxhdLh5xuAYAxnGD8Yf
3B6HuYzcH9ItDHSub2TExI/DYKbnaHI7A0spwj/+ThuHnsaOJvVuBvy/nay/
WjaOdE+jHjkWA/pn9j31nxiHbPPauBjhYdQ++0Uzd/0JL1tGj5DeMJiitMIp
rQnU0fqMpWKGociNeDGuPwHr8ouJTx4Mw+Zz2TPO3gmItTz6of14GHkpG6P7
/5iAePluW53MYQQZCvs1xUwgp3ObWE/pMCSO5Sumz05gVmKr0xxjGBubpEKd
6idxKOiKhr8+ExUfd3fJfJ3EkcLob2uMmDjY4KffSp+ElYrRz6o9TFyrrRq1
nZ+E7vGnJxfvZ6L7/QUPiy2/4HPQ8ZaxGxN33/Ya77r/Cy6LbwUWhzIxnpK7
mOo5hW8Gp1UG3zNxM7nbo+fkFFI8x79ya5hQSpIofRw8BZn/LedM1DOxP9Er
UCFuCkFJ1SZjrUw8jZMfkqnl1+fQfPP7maBFhn1Ysnka0j6ME55CLLw9Yx/J
mZlGZuXxrMe7WBhy1HnWLMLD9W3eW+hgQU6X8l++NA9rpE1c15mwcGayYfzC
Bh4Wnja+SLZgQSfQ3EXEhYfbjOT6404spJ+DpnIhDykXGrKOn2QhLmhTjd25
Gexc9MVSNYmFKpelvduuzCAkPCNuUSoLE4asGbm7M8inZ4v3P2XBYTZD+3va
DEYMNwfFZ7GwPHht3NEvM/jaJdNNf8XCtUsKXuG6s3CuS+6erufnCRVbVPBz
Fl9a0hs3/WLh8eDR1vsCc7AyOSvwc5qFD1Z1Ty4um4PFijSXV7MsKMhHmppo
zEFuV/39LYJsVOQuvf7JZQ7cSvkU0aVsSPVTxMbK50DxuGa4XZWNnL1yFO2o
3zgvV5Ty0IINhriaQsbGBRSG9Q65xLCR5aCb+VJ/AVJ+R8LdY9k4/nDfjkLT
BVzZKO30v/tsjGseO1DnuoBUp4Rc7wQ25sxfRbJvL0DHtu600xM2JG/sm9Ph
LCBJKZjbn8dGouDrkS4nAfL5uVZ4ZTMbVZc6m7xWCpLntzo2C4py8HXTj9r9
awSJ0H7FygQxDtjf+99vURMk7hozkroSHEjv5rz5rS1IxMalOz2Xc+A+v5AU
ayZIHkm52uXJcDATou5fdVaQrD61ZG6FKgc6of6S6m2ChHJd1OenPgcJ4SL2
9Cgh0qbmOOTlxUH25P40y/tC5NxY6J7P3hwU+9ybfflIiGxt6Ttt4sNBt41i
2qUsIRLo7e2t6McBVWHrrFylEJlcX/yszJ+DjHy3ZxZTQoTS9CK19SIHBfQC
Xo7bInJ+KmlQ6x6H/095pl7YIExEYtSW97/lICsrzClAR5hEn/nL/HchBzeX
J4v76QmT330RJXLvODD+0hXgaixM7m46cnhfCQevvZxM4CJMYkWqLiSVc5B8
1YIuHCFMgrz/7dOq4yCgYvO6qGFhMmVO9hR1crBy91xmWsZiEreHdr6Fx0HJ
RFUY02wJ2Xna7Y667giG3gSsSvguSmyVmyYue49AM+ewV/9BcRLq/DhQ9e8R
1HieDTeekCBbJTLX+eaP4JJVPc3gzDIiSom3qWkZwd0Je56ZDIX45FKep4+M
ILrt+3N3J0nyr4pJyz9LuPD5oFM0LCNFjDUiu4z47zZbIVE7pF+K9DrHGxvo
cDF3Uz3kyFNpklRzMJxFuLAJVtl01mMFSb1kapxry3fTNtP72jKkg+mgtv4I
F507vfQWj8iQC0bUWTdfLmREX0SFlMiSW7Gvv7gFchHl4mupfUuO1KinqkmE
cfGg2uSH5r6V5Cw7tlQlgt8vWrdLR3YVCU8X3qUaw68/t7fgyudVZLcKM6Dl
Ib9ffzVrabQ8GaXZFJelcGGW4x6ZcmQ10T6Z4fFvBhfCMatEwtcoEPNKQ6OE
HC782xmM42wFct87KupmAX9e3fa0Z88VSfAedfvUQi5S5XdUrvBbQyxCj742
KeUiwu2FxR19JZKbo/SeUcHFfNHeLIdpJdL9tucyq5oLlfMTAWoflImSAO36
WB0XFW4R1rKWKkQiFtYPGrkwvK3ZtDtThUSmF+SVt3Bxi9kmfEJSlVwtK0gb
bePiMY2y/r2/KskJTt2f385F2xWhi9uaVAknYJ+eQScXvb2C4Zm6VPIuNzC6
qouLAquowL2xVCLl2mc+180Fd2mi+2gclQwsFm5b/IOLDR/TLRMeUMmzHkNX
Ct8p1v8pjSVQyVoGy5PK9982I9WJqVQSF3LWzpzvo3ZWKydeUIms6fzjGL6V
HEXfptZRyQHzT6vW93DhIiOTat1AJS0L58y38B3bpnx7+iOV2LnbnzXkeylt
h7tNC5Vo0FOrrfjm0bxFZ9qp5LJu175TfLc5Vx60H6CS4qlLVYV8U1Y1G88N
UkmJb/OHCr4tv37bmM6gEsvLXrX1fJcf/Cnwm0UlJhaHK77znXOImpkxzs/3
6G6MYC8XTHntmAMTVHJHSypMnG/1ToNL85NU4p3X5beC70QXe3tHHpXkbaYZ
qPPdvtpt58IMlRgzFylq8y39zUc9a45/fxoCc3p82yScodDmqaSywbIDfN86
HMpbWODPV0XPN+f7/wCGlpJX
        "]]},
      Annotation[#, "Charting`Private`Tag$70707#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwV13k4VG0UAHAkkW3GvhtTREqkEOUcS0gIRVEJJUsbEpUllBKSNgmVrCWi
hexJypJKQrLvy5gZkX397vfPzPN77r3vcu57z3teOedz1i5sLCws3sTP//+f
mGC0cPkauOe9aLiaXwhZhgHj/zwjYO58yEphTSGYmh+x8FWPgcPZl/+V9hSC
7sX5FG+Ve6D2Nuph6HIhqKfEzZ1VigXORgP/WdkiUPyuse/U+kfQYX1ikdeo
CKTmGlNdZRPhjnqVd45nEZDWn58/LvEUOLPOH6t6WgShGZyKuWufQdtBwSe6
v4pgseS3tUp4Mgw1FjxcXFsMvg3pgVmrU8GuiuI7ZFQMp5YMfz1nyYBM8RT/
37XFMCggtKwQ9BzWd6sFpgqUgKNin2Lawgu4cEzCV8WhBA7sDwl6Np0FQ2rr
jdlZSuG7m+ULWZ9XYHVd4aCwbSmYBMk2Ph7Pge85SkJnc0rhSWOnkLnva7i1
Zy459FQZ3FsJ8Njj9Q5spTvLyKvKwTKi/wqnah6Itu5gebWjHPiEzR5UMfOA
fMkpJNirHMI3SpbvPv0erhmU+D3sL4cAm0JhfdciuD4WHGX2+yPs6KYosyoU
Q9+waMxBkQqY9gjH8v5iELnZN422FeAZfPCUrnMpaGYbs0S0VMCbpsuOj1XK
YUuNTfLqwU+QwSKe/0jpE9xxS81XlvkCMbY2Tndla2C9X6e5VXstfNkrnDRz
vQb2H5FdJ6D2FRawqfMIswa+zfmd5bn+FU4q2xzZUFoL8eafLjxVrYNdLDYH
S+zr4NijS1L9N74B7cUB88EHP0Dp5MxTVZl6SF5+ISXN8Quy9mTJeTY3wILV
C06vgD/wYXYuf7diC8w21D/Jz/oDg+J+G35YtMD0/tlti+1/QN35ZIr+hRaY
sDF2urGrFT7YmQUPfmwBmt1A4ePlVmj0yPQTt/8DLU5yp2qD24FNWf0WM6wV
3nk9+rYurAsYLGleuTXt8Gai/Lh7XhecvXB/apHeDrnnh+deDXQBzSLFdBOp
A5qLJAWl13UDe55g81bbDvhZ4gHPr3YD95TR27buDqgu54wrM+wBjW0pG0L/
dsL7asM9o1964UaQzmX9gG5YLjTqvt/ZC78G9J5lR3aD0UsTP93pXujepRrK
ldANjbfM0u7I90F+o53rvcJu+Gt9gFXrWh84JSpGjE11g1LH8cJrev0wG341
u/pUDySMhyrJlAzAe+vd39ea9UJv77Xyql+EL7o6RNv1wsbG6we9RgfggbrD
GJtrLxTkR4RVSgxCwH5vlQ8hvdDof7fH49IgXPGpHLqW3wu8HMmP3msMgcek
q5yZdB9ckfjIZfV6GBLlKmK5uvugRPQL72LtMGx9rT1XRO+DWaGv5Iz+YVgV
+EDkyFwfePM3iS+JjkDRGqXSMwL9cJJ9ROlF0Aic90w9Vm/QDxZMkimrGQ20
UsbCk1L6QarCMeL14ChUc19/1HFwAOw+uEQfYaHDJ58T06nOAxBb4nF3jQQd
frIUCDmcGQDSe5/4o+Z0UC2ntKaFDsCqrPBMrnd0GJJ75HorawBoD3JrnUIY
ELttMObr0gAUuLNwC0iNgRbZfMw/dhAUNrpHcGwbg5bHe8isTwfhAe0n18Le
MdjkzUz1zxgE71MpnP3+YzByDA9aFQyC8hkjjvy2MYjxLXIM/jMI+7S+sGSb
/4W8WIecWfEhqNDhWbTkHQdBE+vz2feGYC6hXGev+DhsHt+4Zz5+CFQXffx3
y49DyPZLKrrJQ/C0pGN+x65xqC/XPvQydwgCduXMUc+MQ/ps12Wpb0OwHaxn
JuvGwUp3s+sJ9mF4rh83ERc1AS9ltga3nR6GVsXvw/ceTUDm5m0sGeeHgYef
vSs6fQJEmC6v3C8Pg2fbua/XyifA+sZUbeONYdDyMU71nJwAyQ9rLhokD0NN
2rSNyZF/EPxueflW0zDQOG0KZ5Qn4Vixd5+KxghIjUXkTGhNQn2v9udZnRGw
aCpPY+yehAM0yrFivRF482zT3b5jk7DD6NfQRvMRuKzNfurHvUnYpzEY/O74
CHCffiuVsTAJnBXG2v63R2DTD3Kw7dcpmMzdmibTOwIV33TbhVqmwCNounpx
cAQO1Z3S+tU/BXq9K5Sm0REIq/n8d9/yFHwNcIjxmRqBzk+XnPaoTUPtjVf2
5zhpcLugR3/nw2mIX+TuP7yZBhPPXq+mHp+B3TkHTU3O0yA8qdOp+9wMjOTc
fxXgRwOZp9xlTwJmoJurSy/LnwZ7E118JWNnwF20iLx0lQapseJDQjUzoNST
L3byPg1sIkOq12yZhWb3A7mH39GgwMcqkjE/Cx+9YAvbOA2GDqim1XPMwXRM
dbjHJA1EtvN/eCswBy97Sp1/zNDAZ6pu4tJGwjrBmdHLNFD1NbHnsJ+DoYhX
XP3co5DhB0qyhXOQU2wywZAfhdjLm6ss/eZhPlffLfHgKHy25+lRvzoPEgav
TR/bj8Kk9ui8yO15oO2lbk84OgrWC89VOtLngeWYvVr08VHgC1gf6948D7kp
f1Wtzo1CWKCkS+j2BbBduRhucX0UfIK5Vr37twC7GC9t4c0oPBl0//WQZRHa
lPdGyuUR351ZbYo/7yL0u2z+wlIwCpLikYYGGxbBPKTJIb90FCpe81xvsF+E
vsqliOXqUSD38XONf1wEhQPj6hxdo/Bqtwi/SswSyD8cy+HhosPw2nWSzzet
gMJJdq63NnTItN7+IldrBeYkrj2oO0iHM/HGmoWGK3DzmLdBvx0dJpRO7689
sgILq07w8DnQYdEkL5IetQLZfHq3956kA+mG8aIqYwVMWv+qe/rSIZE1n9lu
y4LKlFr1sw/o8Dmw9YeLKCsGvIr8kPadDi2bu2r2SrPi2/ef71jU04He0fdJ
bR0rSv14zDX9kw4Cuoz3Syqs+Et9Ygyb6OC4vPL0gRErFoiKfPjSRof5IHnP
zxdYUWNVVNK9YSLPBHuS5BtZ8bqZWIsOKwMSQjms+mPYcFNCTyb3FgZkTe1N
N33IhiH6q3PCVBlQ4nZnIfcxG8ZdmvNbVmNAp4VUemAmG2YWJx6lb2MAVXLr
gkglG3ZIUBILtRnw/O3RtD0zbEhJWb9K0ogB7/rfzb06ugrDYnTZ2Y4w4JvR
8eRLG9lxdFKh9uk1BmRmhth6q7Lj+zjLzA9hDAjnS1p7SoMdq5Z68zqvM0C/
ud37iD47Ws4YWUvcZEC+i60B2LNjvfmvdzduMSDp2p5+9gh2ZNmgUqkTywDv
ii0KMSPs2HKJNsmbwQBR3cUX6c9XY7f9X+4rXxgwceJwoWzOanR/xa57tYoB
dZFF1XF5q3G11Jv069UMCP1zcSiiYjX+cE2QiaxlAN1nav259tX4TvNVccR3
BpS/ZD7VJHHgvWf70KWZAR7iPQ+q/Tiw49w4I3KAAaWTn0NoRmvQKcOvupyV
CbUZFMPd5muw33Uw+h4bE5rt/TmS9q/B0ZPz+S6rmPC3XDXSxnENDl7s3cy5
mgnUWwn3yy+twWjJjZ92czIhXN4rIzZrDf5On6On8DHB2lbqm74AJ1r+65Ef
k2DC0HtvsYQOTrynFmjTrMaE8sPpO8L7OPHo/XP0i1uZEL/yx/7CCCcC9z4+
SXUmmBnrPd43xYkKldX/jm5jQm4zP5Wdlwtjf5madWow4eJUlvKZnVzo/vzV
yRodJnCqD+lCAhcOGR6pNN3NBKVXh136Dq3FTLpWB/tBJrAI1/dYHluLHQsx
ag8JN/sbOpS5rMWzQ7vXKh1iQuiezQcfea9FNPDfs9eOCe39yyb7oojnd71c
FXGYCTGSyZuKP6zFnpKXEX+PMYk6YPjfXQVutBuu6nF2Y8L3sSOeLJu5kTND
mGeQcJrtT/oZdW78HqD4wc2diMf6ogET5MbN7znKT3swIetD5O9lO24UvO2x
5dxpJjhOqxR73OJG/6X8lqOeTKg6fiFUf5IbKVqKLb1+TPAorjiqP8+NPk0a
YfsuMoFHkLRDn4UHr4pY1RUTtq7IHNPj4cFL8+WK9y4xoZPSfURvPQ8u9O+V
3OXPhMkOU008wINRVRO0wCDi/R2i0He948GAjSO6b68x4XPOmapdRTyoli6s
LhjGBLc1xcm7ynnQ/oLLR2/Cr/Jt7HbV8eCivnWW6nUm7BCO/LKznwf3mT0t
yrjBBMuGqSQdIV5civzxOjSCCYFmX212+PDieouHJaO3mSDjahdVeJkXG7R3
1u+OYUJZyFDFjhBedKoP93hKeDl/lap2NC9uSc7fanWHCcFyO9fqPOfFp3Hf
+HLuEu9nOqtsZzsvBkde79r/gAnXk6I3oCEfFneRxfXimaBQLOVQbsqHIxkP
6iIJf2nKvI9WfDgRxreqmfAa7ipWPQc+7CownXVLINbrhZU2vYt8CG8GVsIT
mRBh6hljkMWHX7pvOr9+woTbk1ZzRkL8yGOZ7ZCczATnhLbe5xL86HwsQaid
8DZ9l7q1cvyo1LDZXDiFCS23Lz79vpkfq7Ie7L5OmKr8dLetMT86kNj3Oacy
4Z0T/Y7LZX48MGqZxJZOjJ/T178qmB99hdXObCNsl7NyQukG4U5qkQvh5UUB
LcY9fnSUvvPrC2HjuB2dPtn8+D1/E8vVDCa0fr++8Vo3P7rOVEj1PSfW0wWS
0OAgP6oEPPzN84IJQVLxS8YMfnxhPM2vQXidR3Y99zw//p56M3udcD6bR3EN
FwnfqiymUTOZINuskjvPQ0J8MGBiQjj8xb9UZRIJTfLk3c4QPmwZGH1LhIT9
xwQl8wmzPIlxslpHwnOnciz0XjLB3cvGNlSBhDefmtU7E24wlNj7VomE17bI
fLtKOHU0ZZuwKnF/d4NmJeE9O96v+bOThHXOTd90s5hwt7Ej29GWhHyP8rsk
sol4U/gb7O1IaDl+xm4rYbXTOH3gCAlfcrUc3UO4flWK7h5nEmppu3P4EuZV
d/uhdpaEvwplG2sItwc9+qfsRcIyw9XPOghn1daKKviQsDV/fOYvYVPnzY4S
l4n2PkcZiLwi5ntn4i/bdRLKsdTsO0z4YMc64aVwEt7X+uFxirCCks2OmUgS
dmmY8vsT/lz+PmT0DgmfMQ5OxhG+zzOSNnCfaI/2dVsG4ROHJGq7HpJwVeuF
5XeE2f4GCDQ+JqFVyKbNPwg36LzS+J5EQiqr9N02ws9udNlXpxDzecsdPEQY
ZfVTSl6Q8MPu7OklwvynzlflZ5Gw6ZnRFc4c4vvOTx3NzSHmm5UdI0A40GLN
trQ8Eu6WKzCXJ2wWr3XoaQEJfWV3z20mLDXoHvComIRqRb6bNQiPqiUk3Ssj
3sdXQ9ouwkWBdZW3PpKw43Halt2EI2qWhm9UktBVImZpL2E74S28oVUklGpb
2m9NWNHJUS2gloTdviNbDxGezbpj4/uNhFO5e+OPEq6arbjkWU9CB0XpCGfC
sYaTjz1+kdAv6RCbK+GTMfIVJ5pJKCi4wHaK8PZ220GHPyScZGWJOkuYXTF8
rV07CdO5nB97EW48X6iyv4uEGZulNX0Ip3ygWZv3EusRVO18CXtzS/kZD5DQ
9uWjVRcJ6x80T9AbJuGgla3GJcLklKAPOqMkPPb2+Pj/7mbm9G1nkvDV8sdt
lwnnavesUR0nocJ5b5b/feW6wKaNkySkXfE58P/9Fg0GlutnSBhyskr1//Zl
ZC74yMyT8EfI6Qf/989wT48TWyLGd9E19P/xleT9LhFgIWPTzaKZ/8cfxcrV
w7OKjKVLJ6f+n99hc+3VazjIyOF1zv//+W98dEqJlYuMm23/3Pw/PvP9ieYL
3MTz7S8oxwnXqH73muIjY2pcPzgQjgtYeTBGJqNr8q2h/+PvVq1aNCJExg3v
X4ruJ5x/gY1nvRgZKy/5GZj9H891jUcdJMk45/K915CwdX1aTpwMGQMUCqZ2
Ek4K9GP9JUdGnhgI2EaYuXHPfl55MkqEefkqE97ZIpFmrEjGlbhD/XKEW7aW
mZSokDHiu7ckL2GF7tvx02pkPCL6qZ+VsM8tJ7rqdjJmWi3JTRPrlzTMHpOm
Q8Y25snZdsJ7Hu/9HW1CximzYZFUwnGm0ko1e8lYsmwScp/w4Azz8qp9xHjq
pByvEQ61vitz0YaM2gHu/s6Ei9b8cXFyJuPNjqWNYoQ58zLfJ7iQ8cT13Trs
hG2dA7ia3cgopPG6fIz43idKZLNNzxH3B+1X/kx4o/fJSfUAMi5aZIW6E74o
q2V09goRv6p+XSvCX+q44p6HkjH3iYiX1v/5aEO2jvRNMroUNmuuJhzf/i+U
I5aM2dny1nFE/hq++bkRHxHP+5776E9YQ/Ohgn8iGa/5Pc9wINxwR7t2LJmM
vZvc/lAJcxuHkP/kkPGTS3dTKpEP7Setjwu+JaNwhhXLNcLPn63PM88n4xWR
yuT/86nhYtWhihIyrvPWtpQhHPCaL+llDRlNP4da3SbyMV0yUSWoj4zdhfl8
h4j8nqTXmhMySMbRxbJINcIHXMXUwkbIyOdqcX8t4dI399Wjxoj+dG6YFBP7
R/SeW1rxC0Q84kh6ooRV/YL08wUF8Gv12phCYv/pTyz5VCgigEnV1k2RhOMq
5g1LxQWwLlrv+VHCrHx+xpWyAmjy6NHMShox39RzZg3KAhjBw49A2KfB0ZZp
IIATiu6xz4n9UXH2ye9xIwFM9D/85TzhdumOQ1N7BFDhOOW6LuHd7naHF/cJ
YG5MWl4Dsd+KsFg7rj1C9D/p0TL1jAkFmw08FHwEcNwl3nRDEhMWw+WDHFIF
cN3w2hpNYj+v8elpsc4QwEn2N1enif0+1vGxunGmAFquOd/8jrCalvDIllwB
1FR8bahK+OQQ+wHWEgHkUxU1phL1Qv3ufqXUXwK4t3tofuIhUc+xpTSNsAki
XUq0zvgekW+YDqqdqwXRcTCweI6oT7BVIrKBUxBvDLEavSTc+vouFvMJou71
3E28hElOoS+jJARxOrhcv46ody5/cArZslUQ9er4n2lGE/klgLL5gpMgBq32
jfkUTqyvmoC8FyeI6xeT9zkRHhT5s6vTVRAvNqvHLxP1VtDrOxbGZwXxuUr+
T03CrwbZPMX9BfFL486vqUS9xmc18Kb0viCy7j0y5hZK1KfymVoc1YLYrJgr
Fk/UgxY/1A0fqgjhSrmDxFOi/mR5sLhwX43w2BUdRcJv7D+/vbtNCGW6+6Zy
TzFBdNB2XbS2EIbTVDQ+EvVr9+IltjAjIZzelt7bTtS7XhvLy70dhDChIq2F
xYXYD8PMdllEC6FyueXt+SNEPHRcNFYzhfDFoaWAV3uJ9X/8u6TBuBCeGdva
TyK8M0KTNWRSCPU/Otd4mzLhSQtX3eK8EC4r1fJs38MEpwuvnCbXCGNhvonX
WyPie3s1E9UnJ4weLZv9H+oxYUYuou+jjTCOi/RXzhPnAyHOnJigUmHUcL9d
IU1hgsPUg33Z5cJolbGTzUmW+L56A/jaPwkj6SbnmxQZov9S06gdtcLoaBXu
uEGa2L+9B29MNgvjs9+/mRuI88vbdukrHn+FsTrxYQCvEJE/X0edsV0ngmru
EY9c1xDnA3sPU5WbIsjPsj4G6AzA8lIthSgRpO/jGfcYZcBfefIGmdsiOLBp
Q8kDGgMsx9+v4nsggvvW77o9MswAcvjqUkaSCE6a3JeKIM5nd/OStmQXENf/
9p171cmA+6TfQpuGRbCYNPA+uJ4BcV8MupSMRXFFc13KljcMqLqlueBkKorJ
Ki4mUq8ZMH1AWTTeXBQre7pEOHMZcKBPYN/aA6LosMtlU0c2A/hZestojqLI
RaGtC3zBgOs7gp+8vCyKggkTd+8lMeB8VsnRza9E0cDFK00omgEWd7e3qwqL
YbC9n9b2kwzo+/lgw1YxMZSM8yxdOMGAi+Rpb3VJMTzLLX7g43EGJMfkc2nI
ieG/bYw3e5yI8URraupsFkNejsvS+4jz9ZPIHXd37xZD3Rd9LcrWDBi7tsvE
/oIYaoQE7VLYxYAYv93vrjaJIevNxfl+fgboBq77c6FFDK2Ldj09x0ecd0NZ
l13bxFBTpUF6jocBJtGlxmY9YhhkopvGuZYBLGnb24QYYpgcxVUizs4ArwZ5
tnR2cbxhVDnPNksH680cltXq4qjJLv93uJMOQn1fRnnuiuOvUU33/Od00DPd
rQsPxPHpiq3dl3Q6nH39KcYrThwPuBVdb0ylQ9WV8u3NT8TRs6IrZjSJDpel
iq48fSmOx8MaFNgf0aHbJltw62dxpLwW9ewIp0N29T2dg7PE/dW/LlJc6dC6
RSD65oI42hu2Fv07QQeOhzHdxcviaDjJ/bfSmQ6OLrfCKKsl8Dd/rpKTAzE+
ths/RsgSyFoafCfYhuhP5/LxAGUJXPlZ23PIgA5GrxwjnzlIYGC6oNgRaTr8
ubWX97GTBHaav4kTkKTD6TMat+NOSODfvQZsVWJ0uLuJ595tDwm8Nit6XUmI
Dp2Z7+MDfSXwzfAcZ9NaOvhm8GXaRUtgxKjYm08zo5CWVFJNLpPAxen13vQf
o6AVnGHK+1ECVV6c7rb/Ngq1x+7WcVZKYPNJsa4vtaPwV8atfqVGAocPOYc8
/DwKOx8LtjCaJHCvp9MqyeJRaHzkMVTDkMAcH0Pt52mjwH5PjCNUWhKpLmF2
lRdHQaQxJa+UIoktRe5CSRdGQVF4i8vcOknM32Pjc9F7FPY+3F3puVESE9+d
JcmeHoW7Cd6hxzQlcSZRZZvBsVGQTa1b3mkliQ/TzvT1Go6Cdl7wzMw1Sbxl
UTZ+mHcUzKa5M9TDJfFgi/S9Cq5RcNB8aHsuUhKbOlq3ynOMQkhhdt7gHUn8
p6xm27lMg+rS1vNNTyTxhur7G7J/aWDzZdvfNwWSeGVKwbLlJw08fw8Pn6FL
4kk6N2XmDg2GY7qrvMckMZp2k0UsmgaOpi3pfhOSmCTzO2dbBA0sS6tOhMxK
YkLl3eNOoTTYkpLefZ9dCq01XC/f8KYB8+yJlmIpKbTfGiHNak2D0xzdVVzm
UljrPrIQyEuD/g+/0/kspXDX91UFPFw0OHLpR5jgfim8+nbxQiw7DczoZQbS
dlIYMaLVFr8wAsoNjz+oukihDLtx6MmREaA9Pvz+YKAUurif/sNWOQJu23+n
p2VLYU1812qJCyMw987sWEKuFDZ63twu5DkCEdsqRO+8lcJ/UxKZnKdGIEs9
OzygUAptikr1uh1HYEztqsf+z1LIptBjtMdsBHxVtqiwdkhhmnKF44LcCIRt
uJF3hEcao1UdxFOqh0EkY/GMNb80ioiZuDVVDEO6greCiYA0BsVZ9LGUDkO1
/NGH6mLSqH3PXtPg9TDwrFe/tHa9NCpqKpj4PBqG+5SunQU60mjq7+Z2xW0Y
ksU1KwVPSePtRd2ucZZheDNvlrnnrDTmGZ37ljI3BB/bnGOueEljLF1jk9nE
EHQ/jj4y6kf0Rz3BFtw3BLLUwcmKa9JYU2wT6P15CBI3PpD3fiKN4TuNmi/c
GIJYnX/X639KYz7HxpnIVUOQLsV1hqNJGtPYpXjG5gchb0lm/84WaTzLx/XC
aGIQGj+Yyj7vlMZ09sYdv7oHQdAw+f2VUaL/zlOMY6WDEGNmNayyWgZ1d6Ru
2OEzCBFHc4gKTAZl7a9rX2gZAJb3aseidGTw296j1JnvA+BLeucTqSuDIk3R
Wmc+D4DTp4KnNw1lUOgsX8H2NwOgpVQxFWYpg2+5//lrRA7A0GTjsyA3GTR+
4dVF0x4Aw6j5uXNxMrjPeESnLKYfigYC+M8lEO2NPOJ/GUacomBl/dknMvhE
Jco+4nI/SE6ssjydKoNhrOxUyol+mDjIm+6WK4MNI/m8GRr98GwdxdqpWgap
ZxstRP/0wXLR7kzrWRmU/3r+mIpgH0xccGPcWZBB7ucHzuiu7oMh1UjVn8sy
2PrzR9/OmV6oT6/P37daFvujI9vY23oh+e7hT2YCshhUJVP84VkvGHl4tRtt
ksUQu38mLcq9cFv8MZ+OoyzWUrelH93aA5SLk97rqmVxa7gHezapE1Tm7t/e
/1UW1b7wfDpJ7wCdy9uzrn6XRcuKf23LVR1gG+A70Ncoi4tMz8zaoA6ICp49
mNojiyNB9UONtHaYC1/cKb8gi2w5L//9KWmDEbPQq4KiFCyOVSuXN/0DFUcj
zIVNKbiRdGHimGQjBLTG/Luzl4I27S8vpP37BRoHHz7iM6fg09MKq3u+/oJM
y9SBNZYUNHOyObIz4BfcMSgLnLehYIu7Fse99gZwVJrI7nKioOiN2gj9xJ+w
PGnHl3mJaK/kmwld6zsUeDm+U/Cn4Od/4Q4XR74R9eZJ+5QACqaIhcbJxn+D
waHz6YlXKMivcHVT9UIdfGu9pXs7jILT5776VZR/hcTyj2d97lBwZZb/67P9
NaAdpfRD9wUFlbd4rKl6Vwlvd7BEtWVSUEu0U7bBrRI2DTWbXMyioP3hbr5o
6UqQ1b9W8TqHgjrZIV46Nz8B+2xn3vp84nk50Wo/jwoITMvz/vieghUnNscL
yFfAtHXUFodCCuquG1TO6f4II9k7XjwsoSBDAUpkDn+E78fvJ679REGnst87
zBzKwZh8yi6jkoIqMjU6J6nlUF6mJ2L4hYKaA6d39v34AG/Fx24H1lCwPe/9
Z52xMthU9dlM4isx34A/Gz9eLYN0n0Su93UUfOa6wTNXsgzifuy5+vcHBWc+
eykfsS0FciAFb/2koJsB7aPTXAlEbJxZVPpFQXHvTWrHk0qAveVb4ZdGCmYq
3soL21sCgWGpvsebKahwZsqfOV8M01v91VlaKCjled+j4lUxeHZb/U38Q0HW
u9798q7F4Kyz4t7cTkGIekNTHCyCtuEmhfOdFPzm9sCCJ7sIDsRm9fF3U9Ci
G+04LhXBd4OrSVk9FOxfxV+1zbQIjMftju7po2CdaLXsW0oRlD9RlRjsp+CS
L/eZ+MVC0DZb8zt0kIJpJfqTLJ2F8Hau457sMDFel69Tc5WFsCnjnWXJCAV/
ua54P3hdCGkHInntRol4H0lc7EopBBk259opOhHfitmI3oRCiMvRunGXSUHT
TVJOyY8KgXyU33DLXwreuPZ4gfK4ECLWDrLUjVMwS+Uz95H0QmAvKCl1+0dB
iqL4FfO8Qgh0uXd59RQFZRQk7o3WFMK0gIdm8jTRX0zCpGJ/IZwrx0ndWQqG
v6wamVxVBMNnRF+3zVHwTfXLMB2lInCWZJ65uEDBCzm1fQP7iXhVV24UXqJg
Y4KOR+tVIl6+CUOvlymYmvOUtFRAxGudd6oFixx+DdDL3PKPiE+QrEz4Kjms
XFARNvAthh2bplvXr5ZDd7XvV7rKiuHNn7qHHznkUHW+OnkVTwmkbrtMXuCS
Q6H6/nDLtyUg3Wv5/SG3HNZNfZbawlsKsbc3RG7jlcNVb7gCWE+Vwk1aI/tZ
EnGdSqtgqJWBRqOT3RhZDm9c+pebfa8MekuZ2Z6Ccoi5z547z5aB9h3Og+dF
5LDm+LUI7doPQNfc+eKilBymF8zuP/ilHCzCUsyvKsphKSk65UNxBcyfVU1m
3yiHk2qLbCeWKyDjUOl0mLIcbqTV0Gv1PgHLpt9Pw1Xk0GONvsmH2k/wumHt
xK1tcsh6f9LwdH8lCFG8Y+OQ6M9ub7OQWhWUc63QxPXlMIclghYfUAWn/0VC
goEctr49SrpSXQWfv6QNPzaSwxXHdClLp2rwPfNHO8VMDluEVJpTYmvgTxF2
ZR+SQ8kCqt4sTx08seFX/OQph9v9Zpu8Iuqh8Sqbv/oPIj6Pk1tCNVrBLERm
/7d6OQy/CD+5HFqhMkhb2bVBDhsb71WeD2uFvEvebfFNchgnsi9k7FcrxJ7r
1WFrl0PXNw4LQefa4ODhisX6YeJ6d2V8dVI7tG4NDTrLRsV3CvvFs2mdYK36
xJaTnYpnFr2HFfm6oHZzkUryaiqezc3/HaLWBcWKE51NnFT8bptcUOvXBYky
zrCLn4o3qW0Sh1m7wWGtPguPFBVLdPXLJsK7oaeHNfTFdir6hT41fhfRA1GS
jeMbNKn44zKFqfKoB7Rs0p3StagYO/2NLT6jB6KrTfVSdKjoX8J/Ta+yB3bm
3GN5rEfFRa7u/c2LPRAbIH8lxpyKf2df+Eme6gVT0T0Bfi5UlOzTa9Pf2QdT
lpL0qZNUTB6ojm426YOkCMZhHzcqqsYfvnPYpg9mlu7oeJ2i4iCtLGvH2T5I
7W+d9/Ci4usS0xPGT/tg5fXpSw6BRHtXSdfeLPfBO7MY390PqFjAxl0l8bYf
xngSHf/GUlE/WYCs+qEfNn7LME2Io+Kn80/p274S+7H5B5nxBCpeVfVJ5u3r
h2gL5pfEZCqun+cQWiIPgLulmehkDhXf0G/H9p8eAJkDnAXJtcT8r2bLHxEd
BHshoWTzOio6votzC5cbhAeNslGz34jxHpZMSlceBB4bTUeLn1RsEL66oxAG
Yc7mJOf8byp6H7y9aYcrUe8crDxkNUBFreelWe/eDgK/WL3+4iAVjwlqUbmI
ese0pW1TxjAVd3ZnF1l+GYSPh/6xLI1Scdfn+CeFLYPwyo764vkEFaN4W7ZP
Lg4CTVzl3v5JYn0cGP7St3oI5Ft3BC5PUVHeO4m3io+oz+ytrA7MUfG9DLK7
U4bgt8RRnZV5Kkp7SrZsUBoCgTY3+cxFKn6mhb1oVRsCiwQffptlYj0pWUaE
aA/BzcPBcysrVJx9syNKymAI/gN+Cre+
        "]]},
      Annotation[#, "Charting`Private`Tag$70781#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwV2Hk8lF8XAHB79m0sg8FQ+hUlpbI7hxAlW5ZIi7SnSFQURSlFRWUpEVkq
Qoo0Y8lOREKy7zODtFize5/3L5/zecx1zrn3PnO+lI542h3jYGNjS+RkY/v/
z/LfYLbgfxNMbRsVffJo8Mbk6vik113Iqx6/NFNNg117XK0uakaA8NMDR2V7
aWB4eT7ZW/0R/AoOrm6ep4FmcuzcufXRMJxrZy8hR4d1Ddutz6x5ArbPnubU
AR0ocy0pJxSfwSB1SxLrJB1E11yYd5d9DqHBm1Tto+kQ/JJ33Vv+JKgYs6pc
qKbDYuEPO/XQF/Ap493d6iU6XGxKC3jDnQLst3UPP9cqgDNLJs2v2F6Cyw/u
MaH8AmCKSyyvDXwF35TOCHktFsDhdYPrUhdew/ij1Wd8TQvBfm9QYNLMG4g5
OfZpob8QGk7avFb0yQKS7zoL021FYB6o2BI/ng35u+74lIcVQUJLj8Seizlw
dWS08Y9RMTxauXra4nwuaOR+i5Nt/AQ2d4eu8WrkgeKBjauF5EtAWNIyqvp3
HmgPs1oN95ZAqKpcialHPvz48nOct7wErjrQJI1P0OFywvZcjuxS0OmjqrGv
LYD8ZrsR57FSmDkdiiVDBXBiUln2vmoZeF13OmN4pAgEojivnnpdBu+++x+O
Vy8BmTPGTznelsNLNpkPT9aXQ1ToN8qJjkqIcHRwe6j4Gf7dj3V5FFALVbsl
E//d+gzNBS8E7jTWwgJ+73H9/Rneec+70FbXwXE1B9f/imqhNbamr6C2DgzY
HJwKXb5AW/BJ+CVbD6Ov7fcwo76CxeJjJb/Sr/Bi+TVFnqcZ2iK3jnqENcGC
7Wve81fbQS+9YMSt/AfMNjUmfHjTDotlEpPqIz9gZu/s1sWudvDpFDRgCrfB
hMNOt9sGHeAS6W0l7tIGo84MWvxyB/j8etrl9KcN2tyUztRe7wLNqy6SzpId
kHv+Sf3qkF5o3gSvA/d0wbuJEvdTeb1wV5O1XsyrC95eGJ7LYvTC/odiR249
7IJWuhxJfnUfpMjdcyb/6IJvhafh1Y0+yLiSYtp6sBtqSnhji036gb7X9cqz
kz2QX2Ni8bNqANTeWJItt/TBMs2s73HPANAS5EscjfrALMP8kuHMAJRriDXb
2vRByz3L1EiVQfjN46cic64P/trZs2vfHIT3DbyLP1/1wfpud9pNoyEofufn
8VyuH+LGg9crFDLgRp2Hg+Z0PwwM3CypbmaAq9x4ihnHAKi23HI6/5MBz1OE
9HeJDMDHD3dDKmSZcMA4Y5fy+gFoufKw/7QfE14cfrxVynUAhHhePMnfzoLT
Eu7zIp8G4JpsKZ9tzjCocCTWHPMbhELpKqHF2mHQHFz30C9kEGYl6sReDg2D
sHHzySuRg+At8l1mSXoEXoR72lm8HoTjXCPrXweOAGPV0xThtkGw+i26i91y
FLiTEh12bBkCStnhuznMnzBEspw60z4Ezp+O3XdlGwO38A9vzQeHILrw9MNV
smNA2bNUQ/o1BKL5Pk8P7BmDea9Wdl82BnC+CU3nyx2DjOa1qu5rGTAa9bbW
LegXrHV9vmXkHAM+nmITEKf8gYRXQkXWEwxYq3rqLs/WPxCu+6ry2BwDoka/
8S3s/gPG63dwn2FjgveZZN6hK39AqvVtvbEwE9TOmvF86PwDfjp19WvWM8Fa
u4otc89fKPa8l/NkPxNuxfrjS+e/8OGbmme0GxOKZ9WvJx37C0fcrt24foIJ
G2gxK1EBf4FJcSNRLjCBV/fUcmDmX9hFldvpcYcJZXqCizZC42AvKS1g8Y4J
c3ElertlxoFHti6IJ58JGos+V0xVxkHI13Z/VgETnhd2z+sYjMN7uWsOhRVM
uGqQPad8dhyWsFyo7jsT3se768j7jUODxymL7+1MGF2S9pMOGYdTT7pEa7qZ
sK/4+qxA/Dg8N2zdfZzBhG1g92/qyzg4RGnFB04yweM5j9afNuLzH+8cr5ph
QsoK/eLI0DgsO2RWT80xQbxk9Uz34jicPJS7j4uNBRbUtm1tvBMg9/GUEIOD
Bdevh/s2SUxAIeW7ewY3C37j9FTVhgkorz20apifBSpJr7eWak9Ai2d57wEh
FriyH/QpMCGe17zx+ijCgrrSqsls1wmQjwvtk5VgAYfyFc30kxPgffapg7IU
C3SDN11I8ZmADhtathCZBa+MYydiwydA9NCtvQ/kWNCxrmH40ZMJ4E9c+msq
zwJBEa7e+2kTsEKXye1QYIHhtM73O+8nwHxx7Zk9VBZ4dXrW3SyZgK6YVcPx
Six4UZpaeq1+ArKKDrF9UWZBy8vOfP+OCVDMK773YzULeO6LZfmyJoBZUHG2
ZA0LtH12pnhNTUC+j2nwLRXi3rgEPD3DPgkqgcdz1q9lwTN8H3FceBKcRmiM
10TcsHbklpvcJFzaZy+86j8WsAkpBriumwS5xz0KRkS8ZdL+gtO2Sej2fCGy
j4iPtt89ZWc8CU/7HnbvJuLoTyWH9lhPgs0W67sUIv6cOuNg7joJGbZKlFpi
/cWwDZY7Tk2CqOa/eHsiVvc+Ymx4cRJ2uDspFhL5Hd4Xq61zYxIudtnkshHx
Q8MG9a0Rk5BietxXmainYg2Xyqb4SRiu9bmmRNQ7w68rp5o+Ce7V0ZNLRH/W
jXuKqeRPwqpgjn/5RP9cfqSuolZMwuqdjHfWiiwIL+pckv1G5KuhZ19J9L84
WWxKsmcSNP8lC8hQWPD3zs5R0Z+T0Lhmm9BuWRYoewX0CcxOgn6dRcR+Yj/t
Hd+38nBPwW5jm6+7iP2+pT/yhV18CoxuRK+SIc7DKK8D7Z/aFLws0Du+lzgv
lD93sye0pyBI7AOpRJAFVt9LUn+ZTgFvlk6NIHHe3iVteDh4aAqOxpNP7+Ri
wdDtI6E9HlPwTmb1r23sLJA6FxvY7jcFl7w3vOBeZoK/LteZr4+moNSBu8Pi
HxPeUHXdahOnwH3m3nwxcT96eLycKjOn4KuyaqjUXyYYN3fuKKieghfCOqrn
hpkg4PGe8nJhCtIjSSY1P5hgaDci/oJ3Gs7Sf950bmaCl7YiX7zkNMhyXXnz
tYEJLVxh0w83TUOPbFf/mUomPIs/0hDoPg0/N5gLeuQQ74+vYtcd66ZhdfXS
g5qbxPui3rBLom0arBUaGIxA4j5/OaPdPDQN1KcW6r8uMyHkc+Vf6+VpsPV2
PEH3IPIt93Oz2DwDNN3Kdvu9THjwsd9YP2YGbMOq5N9SmLA2X/j5fPIMCN/e
LB4syYTCPL2Fj29nIC3fLwaJ99/wu6j322pngGvEsOHGCgMw02LNpqUZ6Pp9
aVmlnwETSTncyu7/QIcn4ejvRAaEJva49Xn+g02v/fZHxTJA4blAccLVf/BL
adxSNYIBu58duygX/Q9cV/idFa4xICVahiXx+R+03lK/ouHKAIewoJpVm2bh
cOZsHjeJeH/72Ib9mp+Fq3uUpOMuDAHLXiO1kWcOOJL0n1edGgKpbSKf3ovP
wV5hMs/goSHwmf4y4ac6Bx/mXU793j0EGhfNXXhc5sBYZ5+l9eoheHkJ1ivS
5iBjgVdN6+sgRPtvrLa5NA/q/psdb8kNQqWLYL/mjXnw/u5TVy0yCFO6P+el
HsxDat23rDnOQbBbeKXenTYPnELfstTHBkD46proU63z4BpQqNBdMAAhAXLH
grctgBL1mIn5vgHwuc7HmTu5AA55C5UY0g8JzFPNMWyLcCD/z/bDF/uhxrI2
+YrQIuy3qv3lcaIf5GTCTHb8twgrXbIbrCz6oSxH8FaTyyKcIm+f3iTYD2KD
InzjpYuwY7B4vff9PsgylRJRj1iC26E32pT5e2GYf7Xcqw0r8Cl4f12Ffwek
2217/VZ7BUL++l4pceyAs093atFMVmDnn87ZpC0dMLHeY2+t6wrECYuYS48S
c5V5XthY+Aq0bmCb/ebUDqK3dy5q/FqBpODBlVL1NnjG/uF3lyMb1he+Fcj4
8h0qAzq+HpNmx3ED6hHsbYS2jb2fd8uzIztMbjL/2Ahj3YPlm1cTz5M6Le0i
G0Hc8Ff+kjo7jh30CvDa0QiHl1eeR5mxY2V8nVCr9VeYD1TxqvRlR9W2NQwd
xhfQuO4lqtLCjnv0om7LbKwBEw1ffoEOdtxtvZCXOFgNTn1+XOO97Jhvi2p+
T6shEG/MFv5kx5gio8yNfNVQxxbdZ8/JgRJHVjHkflbC8aCCtze3cOCl1pJ4
p8py8Ntckn5amwNXXeE6t/ZGOYT3V6TYGHLgvXW2r58alcN7o4ZYyi4OPNN/
6lBESRmwcfRfz3XjQJej9qNh1aUg8Y7h//QEB85mkV0OhZXCf0dGfa6f5UDr
XwV/ZWxKwaps8qSlH/H3uNR9znSVQFwwj+1QBAfuSWA+f8FeAm+md6ftiuHA
itMezWMPP0HhyciFt/EcOLG4zzZY5RP0WFHSAtI50M1l6fvU3mL4U+q2MPiW
Ax89Ohsq/rcI2La9tNmVz4G6acZ7nz8oAmW5LQtSFRzYrNdw9l57IWjev2QT
UMuBpb6OZM2bhWDCXpQ62MiBjjfvmjRuIbziw7Fg8YMDh+y+rbvNKIBjrJ02
b7s5MO+JUbrfswK46HIvVWqIAx+HJK/97FQAt+qb5q+OcuCOe3G60dIFEINk
m8G/HOhrefkmWxcdXr0/kGrxjwPZzgUcXZtKB9ra5PnsJQ5M3nG2YM0FOtQ+
GbaW4uLEsusXXkmZ0aFDUD31Kj8nNklH75RUoMPPaxfmB0Q5Udxo7LzWAg0W
Jz5aW0hz4q8gtqDIbhoIHl9OyZbnRMG9H6S2VdJAvn3HvOQaThxRkvyp8Y4G
6pZ3rK+qcmLOC9WkiBQawKeGlAENThztgRTXZzTie1Ni3lyLEw+Z6Qo/fUKD
w6nO1tkGnEivG4vZRTw/T36eImnCiQHkykcexOeDw4bmruziRHvfhYn5HBo8
XF5vPWDDicc3Kjn8qqBB8nnPFHMnTjxwKE5Jm8gvdyh3LusAJ/b1OKZ/Ibxa
6TRvJXmUE9Ve1jg+kadDay2kXDnNib/JQq13TOnANAiZ6/fixC1bJxxve9Ph
39taK/NLnMgbdbficgodeNeIpmQFEP3oG+He0UkHcozDnMRNYv20HPgsVQC6
AX3J/RGcqMrz8ff9uALY/VdlbmcMJ8YeTNh0n3Ceq/sZq6x4TswN0wj4vLkQ
AixmZv3TOZHT+NEBj7ZCuF+oZ9X/lhNZW2qPPthMeHRTUPLOfE58bedfcux+
EZRIClpJVHDi8o3QoBS7YvgWapvsX8uJGhVyY59pxTCwED3b18iJJfD5D2XN
J+AcUErO7ObEtcfldJlsJWCWpTVr9o8Tl+of2bH/KYF6M/cXfqpcePGip6gi
ezmkpwc5emtw4QODwUMNxuUQKpzIf2Y7FwZ8jbmgHlIOxq1d3q7GXCi1V81j
UKACPhxz3AEuXPhNwC/RjVoJiTcthrjucmHUyXSnG4erwbts09qIES4U2CbU
Nyz/BaQNF1+nveJGv7yfXNdmm2Di6H6aYjY30vG0vvjqZvgSRq+JzePGou7i
Nc/2NENw+2XW3TJuDPj80jDyRTOM+Uyv8ezixsTnwr2/drdAScbv51qiPHjz
pvU3Rtx3OC3TH1VziQfhNqeV0MY2MEFMNQrkQZNFX1UnhzZQPPE8l36TB2U3
HPl3K6ANWnIPNL+J5MEb9SxWdH0bgE2HaGQGDz70UNt6zqMdJG43hzn38qAU
/bVYTkoHFE1VBo2arcLvV/ycYpa6oPYl1cR0zypsJDNtDil1Q6vLFZ7EvavQ
Vzxshtu0G/6WaIQ5HF6FsS9k036HdYPyvbjHJX6rsOCHk996cg+Eqpx/Gf1m
FVb3aE79p9oLdo6UemNxXqxiBYvXP+mDg3yXHsSTefGaE73+2us+OFP4zXZW
gRctAoZOU2l9cFP5dmumGi9uKuTRV2vrg/zf471kU15cXc/OOC7ZD5Tb1RO/
L/Fi7Up2k094P7Dyvclx3bzY+E3662+PASjZn6YTOsiLYQ4tl3z9BuDpSruL
7wgvFrnN+IyFDIDlTqN462lefL433j8jYQDetooocwnxYbPbK7lzXwfg8vQb
tbP6fPj20b5NfOqDwKvJMoQ4PkzbrM6R2zsI/a2yhzck8SGPgM6y5egg0P2t
gmRe8qGFrtLX1qlB8CjLK598x4flK/xLhXxD0Gh70/xVLR+Oxk32NRMejfVS
shOb58OKJ5386sFDsD5r/7HBffx4fh3NP06SAWySjf02h/hx34/vTsKKDGi9
YnKw+Bg/vjtefdJzHQOCLTY6PfHmR02nDKFFXQZ0DS2bW4fzo4TJZJThIQZE
yL3YUPCJH+/SzZYOpTDgeLDU63VV/Nh06kpnzhsGGIzcVYn+wo82y0/1xnMJ
z364oHC+nR97SH3a2pUMMLEzFf1vkh+vWW+eGhpiwGzo8OTDtQIYPvHaLYXK
hIY/rl5sGwXwc1XWh/L/mJDq+G3srKYAjnNJ/mlQZ4LdGjrDHAVw4/WDl1/p
E/Ptp7Afy84CaFHNkeruxITgtWz2HocFcMzYurX7ABOc7/k0th8XwP0/M5KN
jzKBZ/+Bz7kXBDCHk763zosJh2fUC07fE8C9fIqBzaFM2H4gWavtkQDG1W4Q
ib/PBKEK6VzTpwKowPknxvoxE+iRbJnUlwLofk7rxbnnTJDY2JTQWiKAl3Yp
Vt7LJbz6yEzOpFoAwfidRSyNCaXz9JicegE8nzZQcaeYCedqkiPCOwTwUG9n
CLWGCdXuvsHGUwLYvxVNJTuYcLqg7IDxvAD++/PAibeHCYIkUR1jNkE0eGyS
MNhP1F+W/sdIUBB3745psB1hwrTMbK2RuCCWvHXTHRpjQux50zQjsiAeL5Pp
PUDM9z3UPlejNYL4dimvlZvwQNDljdpGqoJ4vutZhuY8E9Y0+pOMNARx7kZO
0c4lJpy6JlmL+oJY3uCQpMRJ+PPHkVQ0FkQ376OzTMLDWepvr6O5IGr964+J
5GXBVPcuLbQXxP67BRVRhIdjtsWKo4sg7vln1Pub8I3uPcYvOCyIbLdaXDeI
E77Wv54CHoLYtWtzxl7CR6sf118Db0F8XbpX0oDwU9VP2f1wWRBTC69I8hO+
EojLE4ObgkgZvke1IjyWNcHxy/AusR7zxvcKwsM2u2xqDCMEkW+43UeB8Nxk
UnyyYbQgfpPobnchvBc9Nxpo+EyQ6PfjAT/Cwzq22i6GLwTx8YZezyuED7te
hWwzfCWIXtfuHjtE+PEaW7OoYZYgRi2eTVchfKm8jzpmkCuIdPK1dQ1EXJl9
ttqALoj/fR76so/w6clVBS8MSgTRU4w3tJKIBQ7xBhpUCaJYQ9IeCcK3WR8c
nA2+CCIpqVLClIhthZO3GjQJ4sjoyA8nIp469lfEoE0Qg0rGHlv+38dFBj/1
ewTRuVVyz2oi1pEMq9IfEkQVZ0nuLmL9Lo+2JP1RQbxdtFJxkYgDK1QC9P8K
4u8Qs9hJIj8lyoV9+jOCeEok654dEVdcKNHUXxTEMH/Mf0TUd6JOSESfQwgj
ag1U84n6+VfvH9XjFcJeZ76VQqI/mf6vKvWEhfButYRtKtE/m6bpRD0JIbwf
UmPo9f/+rt9xVU9WCFe2nB6RJ7wcHRThpEcVwsK/bL5ZxP5ot3dv0VsrhG39
WrzKhJc7NdSE9TYI4TYB+HKZ2M/A0MsjuluEUKU6fewdsd/UvsoKXW0h/Mhh
F9NInIfjDw5f0TURQrMNqnvyifPCx8p01N0lhAVbZIqvi7LgjeHCZl0bIRSF
SzfVhVkw8StqWMdVCLn7qX+0+FgQYFnnoOMjhDNp3x/yEh5WOOEcTvMXwmvC
TVc+Eue9OIhVphMkhOrnfWV2Efdh+QOnhu594u8bu+eQiPtyXUmfX++VEAaw
xmQs+phA1a/FgiwhTDJlnBTpYkKJ475LenlC+NNIc4xG+Jg93GdIr0wIlY/U
fi4kPBw886ZYv0sIlY4+MQ8uYIKymN504YAQGpM/pXp/IPyr9lnNYEQI/Tby
P7IgfMzpxog1mBFCrgH97W/SmHCzTv6Coagw7lu2nt8dwYRbiff/QxNh/L7E
9FI7RHi3gHKwZJcw+nprJr7Yx4Sq7+mP0VYYydZmElx2TFglUM1udFAYzwxp
Bt8yYUKo70qn0WVh/JK7oHJ/HRPu7vKK2PFGGDf3fjz5eYwBD6Zs58wkRDDx
oa1y7nEGHInrHHglK4IdJ3UTug8wYKvxsS/8SiK4Lwycp+0Z0Pbg8vOGjSLo
vWY6548xA5TVnps67hTB479Uv4oqMCDXbSzymL8IVp4baeb7NgQdDbdUb/aJ
oFz6uXjm+iF44ysqwWSKYAR1dKFXYQgCKU+Xdv4SwcCGkZZq0hCsPp3ZKDAv
gsmetawjS4PwgeN0wWc+UWw9n0ytIrzLlhDhZrtaFA9HGDP1zw/Cw5buzMOO
ohibFT5bnTYAR6giTS7Oojit9zrvzNMB2OyBM/auouhhx0pfuTcAjZzJhhZH
RFFmx4z6rM8ACGme/Lr5nCja0vj11IwHIDRy4i/HLVGkvPmVE93eDwFWq7am
5okiLU0hxnexD07WaNBHJMTQ5GOXuIVKD3zw5RBcQxbDj3ot58fYe4BrdcuB
g3JiqNDRccmjpxsSAy6xNyuJ4V6pPbycMd3QtqXYvFBdDH/e8jx7n6cbLOJ3
/7hvLob8B52MTXo7QdX7+JTmVTG0fnwx6OXldhiTe6YeOCiG27oN3J65tkCi
UUd2EFMMG5N9Csy2tYD9CfLmkBExfCVDt2QItUDRu8ea4X/EEMrcKOyfmuG+
xT3tpwti+EQgWrOM2gwalwKNP5DE8RJHs/XIwDfwaTrs+HuHOMbx+TAGvzTA
utmEH+Nm4nh7IE/qXUADdMl375u2EEexpVfro9UbwPSU8/5Fa3Es97im9yqi
HqTY7A7zu4pjTJ+722bHL/Bx447Ta33EMWyzmMTS8GdYDFUJPJgijqtENIbi
d1TCZ5/+NruX4vghTxBUlisg+nC85s50cUy3yp9Tp1XAZm3JkU1vxXHFxY+n
X6MCjrO47NkLxZH7X7Pq+f/KQbO5JGu6mMjHUSy/gEl49tNVvtFScSS9ViUV
p5VBXPRUcVO1OL7J5tnAv74MGk2H1qc0i6NWxoGOt1qlEL858WZsqzjOecW1
vloqgdPyrr3h7eK4d931qsSKEuCebn7s2yuOFDN6K92hBHRTylfMforjXXm+
pRSBT8Abcc1F77c4vnMzruRKL4bvV/TyNo2Lo+jO4L0Ku4vBa+/70+R/4rjN
M8ecGVUEBuBZKTgvjqXvOU5/hiLgV1Ojsi+JY8ZviedfxwohlSP5+wgHCfcK
W2jm2BSC9++DGj3cJORtEYkuW1UI2CEb1sRLwoqQxe9HygpAqKqVUSVAwm6K
0Pk31wugI+chFgiTMOHPAU+acQG8ireKyxYjYa64o14ybwH43uGfSZYgoctW
5qXgJjoY+1bZxEqT0D3K5fu5RDqIugVnhMuSsOSVKSOQ8Fu3pSFPkDwJwycV
fleb0yFde/6wL5WEm2d2fjqwmg6X13woOLWahNvXqN2y46CDqai31MG1JGRI
WqZ+YNBAfHHjebv1JHxc8u9ebD0N+lgjdWYbSBjHeSmei06DzObUtXqbSLgr
y2uZK4MG/p/cgjZtIWG6zcYHSYk02Jkh37V6GwntVtnW9z6lgURM+3ayNok4
L3eqywjvDgRHRQrqkbDc7Zbk7ngaZJ+zHWMzJKFmr1vrxVQaXHUR2jmNJDzx
4VmeEeHpXWafk0Z2kLDgludMSjkNpLeELHabkTDwpHlITDsNhuSNnJosSDir
PCssPEWDHL6lnCpLol9lgvIL4nQInP4oWGBNwjmZD9utt9PBst/nRLYdCddU
BnLPHaCDTL1GWbIDCceESAGMO4SHP45RYveR0Oe2JTcbnQ65Ka8uhe8nYf/b
otQtv+lgdZW60deNhPHpLN/gIwXw9PPVvNdHSajifmue51UBMKXaDXpOkLDr
WHYTc7wAAnMirXaeI6GA+RafzQ8LoXb5V+uV8yTceIQnx2m4EKQsdx1660NC
4wGfBzbGRZDF5PCSuUJCmW22HzTYi2Fe89DsnkASXo5iX2o+VgxmQQXXg4NI
WBQwsrqsvhh65Hwif94modttw77FtE8gbMt4V/SYhKcK3zuWF5WAS4KR3kQM
CUcXNd6FLZRA2s/48rVxJFT7mlkYpFsKhrccWx4kkXA6j+FZXlAK5wqqp92y
iPMidZPHurYMGlTStXlqSEgK/Hv2mnAlyF7gKdWtI2Fi8jV3TpdKOF5yxMKz
gYR67iH/kdMqYdlFzqWthYSHeb9ZtkMVqEeEX0nvJ6HlNFNdyK8a7s+fK7Za
IGFrU+S/h0ufweqrpkmMugROPd8qWbjlK3ToHdvO/VsCD6Vn3nxk3A4C7g1y
O8YlcOxBUsHm0+2gf1eLPWhKAuPr7x94H9kOCW18XxbnJXA3jevpob52cPPN
cptaJYllR2UO7b3aAcNZ/8IHlSSxT/ON8KmsTvindHew1EESVZRztV/PdcM6
i8malX2SWH9VyHCbfA/s83LNMnCVxMd/twXFYw/Qi9X9aEck8ViTux7H7R4I
3N8snOMpiZ31TIqMeC/wRFF0E+9IIsd5mex3on0gwZsdEVgkifMz7esXxPrh
4HSUdWaJJC5HpG3/T6kfXg1cFe4ql8SiBTd2I41+0C/aFa5TK4lyY6FfDKz6
4ag38/ZUqyQ6WXupu97ph/dd8tdO/5VEdooMbcNiP9jlhJ91XC2F08VJFPWW
AXiWcGFDyFopvHCcrV2ifwCYYS4/36+XQpnTzLSRXwPgf3zdKTENKTz4syrs
wKpBeCFXcfSLvhROfh8W8NQZhPGQhf3GjlJosGAQYvB0ECJcTu9SvyOFoXHL
JhlWQ4AlRdprw6XwjsA29bR9Q/BXRew/hQdSaNjdvBB5ZAhsxvM5haOkUCdk
3W79i0MgFspd9CtRCj2c3Xs6nw3Bw7zETZkfpfBeEJf6TtYQGMtNyacWSKHZ
+8vZNn+HYOL6TsH4Yim8MrtKYvfcENhZ/h4Or5DCVxJRV8QFGEAa1Hvh0SiF
nDZq7j83MuCx6A+JDcNS6HRGdWOpF+HRi6qca35KYcP44bLWywyY6gwYl/st
hRx7xrq7rjPA/uWaBoEpKbx41OsaPYIBkobet3+uSOGGh7Pq9GwGRJ8Rmk+X
lsZ4VzutT6MMMPt2ePiFrDTykn9Rf4wzYGZ7butTeWnMFjn+omeWAY4c+9/f
XS2N/rTN0oU8TJB+8srj9CZpFO16DVlKhN+qdvSu30n8fq+O2T57wof3tBbc
dkljliBFvteFCTP2atJP90hjFK/bIxs3JtgPilvz20vjh7KVxImzTBBhGyge
PSyNOXLJpRtvMcGw+nuH8lEiP+klBa5wJnjc/zzjckIaZe7S/MsjmVBLyVGv
OyuNA599cPEZMW/qXE/I8JdGKysHHet3TMhj86EPBkhj5NvWmuP5TBiqPtEq
FySN218sOh0rZIKRo7Vw+G1pLP3yzFWqigmL3gqBHo+lsbCtSALbmKCmK/40
JUYaZ1dZl9wm5mcXdp4PXU+lcXVShWIuMV9/fPDrl2USUc9QUiVtmAkX3hQe
2JgljSUjMqpexHz+4sJbv2M50vjowfhMCzG/N+qmRMXnSmO18iZ+CjHfq38O
qxcqkEbP+sVv1lwsOBBxbcS0WBrdTSr/6K1iQbjTBe7AUmnU7Spfy8fPglGG
i8HvamnsvXeuxJTwqUymlfPaOmlsHtGOyRVjgbmPse/BBmlMf9rjySnBgot6
2yOjv0kjX5s33xbCJ6kcqpkNLdLI9v2EChJ+afks/5mnTRqL28pubyR8wxEp
xjDsJPK1t/43J8eCzfu42S/1SOMG90aDVMJHhxXnKNn90rj/q8a6TYSfHjDH
tFlD0vj1dc6tGMJXxZl99orD0rg5WWpjD+GvXz4tXk4/pfHWt68THITXKPo1
4Q9+S6PJE+p7bsJzuzkLX1WPS+POczv2MInYvza7YmVKGo+r3k1JIfz3KjK5
T2tWGu/k+yci4cUf+2IWPRek8Wg5awOdiHmoYeRXy0Q9Zty6YoQ3t7ICt/ax
k/FK1uXC/3vVPcvbhsxNxveRRzP/79WHvsc9bHjJWFfiyb+TiEv1XUJDBcho
nl/9nUTEfzmtUkqEyajkrCBVTKyvWGdUMitGRhO+5FZTIrZ6uK1LQ5KMt9f+
W5tB5Df4Leq/LWQyGj6gFy8Q+V8Wm/HWlCMjM3a9nzoRC9k6Fm9VIOOhGaWz
O4j6X0R84NuuRMYTmYm5uoRXtRqlHLTWkBEzMjwkiH59EbmUqP0fGRdW6eQ1
Ev2dua+lpbeRjDw9JSHjhEfDGmKC9TXIqPHTdb8jsT9U4dl6A00y0mqvuSbI
sGDXvY9HUYeMZ3qtYtokWdD7hfzWSJ+MfTb7NteRWOAj6LdgDGTMOLQ/P4k4
LwlhOg9NTcm4bme264IgCzTrnnSbmZPRKjptNJA4bzX88+vMd5Ox0+upEYs4
jxN36J922ZLxPJfk9hMcLDAL1ftlfYCMxkrve1RnmNBZHadte5iMIeujbTon
mOC1avGGnTsZt890XfT+w4SntwplHU6RUUHlao8DcV/+3DQwd/ElY/LdUN5Z
4r7drIh/tP8yGb0qnPgZLUyQ5Vrucb1CRr0o1Y/0RiaY3Cj2PRRExs06JEGl
GuJ9EwTJR++RMWi8X7YvjwkYaLR8LpWMKnf41ZzvMeF7UZKF1ysych6U+vHz
NhNOL7FHnc8g45KZ4dPTwUx4fLVMzSeHjO26/1E2XmLCsP8OZ78iMo4eOlVb
S3g14pJp7o3vZDz75eTC3Y3E+yhgdbtvGxnvNK4PJ/3HhLFg9uUTnWS81j2t
E0Zlgvn9op2W/WQcmH/uaE5iAlvqtk6JX0Q9Op47F/8x4HyTCkcalwzOZl9r
O1DMALuNPDY1mjJowqNDvgQMYNMc8qFvl0GZEnLMKi0GZGmXPXmjI4MLW5dI
d9QZwG8SOBgBMvheuopySJ4BZS4zF513y2DuIp3hND8EmqHM+NEjMjjsUz4V
mDMEEoNVPwUfymDB2I+alxJDYLTL1BCiZNA59km2P98QnMspjzgfK4Ppvrnz
esuDUH2tZFtrggxm0Nsy77AGwZ9Cv/Y8QwZHJ3yEbWmD0OeQSdpSKYPbh5Tv
hDkPQmbNIz2nWSKO8+u8Gz4AHZvE799ZkMGkuxMt1GsDwBMT0VewLIP8XvRH
KecH4PCxeyFUbllcn/HX2tdxACQ4bn8dEZNFkQUzOz1F4vtaz9/9qposrnEu
CnPM7AezrMNhSQdlUb89dk1xQR+039stFO8mizeiyFulMvvA4+z2B7FHZXHb
XWHLgwl98HCD4KMHp2WRs/lEcvH1PuhJz38acFEWD+jfdi8x6YOLL4XTne/L
YgHzaMGTR72QmlhYI1Ysi99Pu2qFRHQD1yMyT7C8HApdf7QlU7MdpFqS84qo
crhhvuwAp2A7rJPcdGxutRyu1PwaMhhqg90xphVeqnLI0e90yu1xGzyM8w4+
pCWHjzg5j3pM/gDFlC/L+rZyKOmm4jnyphV0867/+3dTDg+2tEe/EW0ByxmB
l5qhcvgnp8/BjdkMB7ViHD3D5PDSk8c5fIXNEETLzGNGymH4Pt0OrRPNUFPU
ceF7ghzGPjKYpBQ1gUPV1r/vPsph2LA2f/aJb+D1Y3j47Jgcsq9h41K/Wg/D
EX3V3n/ksCbkjLXJxno4vKst7dKEHAoWpFf49XwBm6Lqo0Gzcqhi8OHhbqMv
sCk5re8xFwX1Dsu/bOStg9/njrYVUCjYpaI4+SOpBo6vc80vUaTgLcvM5rWO
NdDTvze6UpmCzVus6ir4a6DBfof913UUNFbctrzkUw2ZusqNA1spmBc8rdiz
pwo8ePqq+fZQ0Dagkf+9ZAUMffqRJmxDwVdZNjoa38rB1e9rCGkvBf0MHhnZ
3SsHy7HiHfLOFCz5eDPhxapyUGuK/6RxjIIPTA+OOHCXwYuwqIRtJ4n80r/b
t1eVgqzpvQDdMxR8S9d3Mr1TCvwfr+qZnKegd0LIxRXRUhiN35/vFEDBJ//F
dqhuLIEjTnujXa9TUDr1prPh70/QIbrb1+0GBSXkmG5vbn6C2hu6mmfuUDAp
LJv7Oq0YjA22iHuFU3B+T0GH7L5ioM+sH/d5QMHjOb5nU+eK4PUpmezAKAqe
k/1QMmdaBNTVYvdvxFLw9oZLLot/CyG2i/dsaBwFU6z0NA8/L4RQ61nVh0kU
lMmuHC/mKQQ2vr98MSkUDLrIrTf5qQAul7GG415SUI2hCgtXC+Dkth9pqZkU
tCrkq5riKIC5XMtDcW+JfML1z6+pp8PdrWXSke8pePHD/JETcXSQy9VqvPWB
gu8zb6q1nKXDG83M0Ks0CrI5/+S9bkIHg/fKRt6FFBycKaUHKtKhYUvs3IlP
RP2XuZwGlmlw8J3QuwNlFFw6wK9UMECDP5tvnN5bSUFmpo67dB0NrufMKlvU
UDDjuYsl50caiG4+12lYRzz30P0W+poGSW8HH21toOBRit2j7Oc02KLhbKn6
jYL3/dnrrxI+Ls9u4KK2UFA7oGvHJOFj+00mRZI/KGgt62JESqABI4vmK9BB
wfB2oYcdaTS4qL5Jnb2bgpr3AsNMcmmwKiuFOdNLwYTSI+RdVTSI3Sj7fGyA
OD/pgnX9XTRYn/nAaYBBwdRrN6dX/tGAvoFbtG2Ygr8O11VFS9Nh9xv/mvqf
FKw788wjWo8OXWp/r5f/pmB34oT2L3c6nM04pkMbp+AH1p3a2xF0WFbtHM+a
oqAv+30t21I6PEi3SU/5R8GHTTk6mjN0oKpWHXk6T0Hl9lEXqU0FYLw+pzmE
TR67lP4YBrwpgOZXa8OvcMrjmaMvc+v/FsDRdc9MzvPIY+bBDg6adiGE/Hc7
z1VQHh809/lPNRE+frl41k5EHq+tLnETVimCtLXea83F5fHdV99OR/8iqFE5
EKNJlkfzsi8Fq9SLQXCNph//Gnl89sXThjf/E8Qnv9rM9p88NtHHYjpESkB9
tcLo9Hp5DI/gTXAzLQEbZb79/ZvkUfJ53rrm9yXwmNqr/1FPHscruBvF40tB
JdF+OtNQHo/zJlvT20vhg2JtZrKRPP7dphliKF0GbQp5Cg92yuPRW3su0h6X
gZx8GNvxvfIIg5UNkbHl8EJGq4J0hlh/7QW1oKJKeDdvmW5xTh4Xpi9WnOKv
gtLOIxHXzsujKCPpaItTFfTF33f9eUkeSwOOgvRUFSgqM6fKbsqjoPUZm7zN
NfBMNUrFO0Ee/W89fiJUVAvRepO3Gr/JoyLZ7Bbb/Fe4eyDb4p62Anq93OLC
u+M7sOVvPhSup4C8OgOlVae+w0XRXJ8wQwW0Ggju9434Dm7lH5/fMVFAb+x5
ktL9HbTXl02H2Cigi9edSO1LrcCaakkKPKmARn7Uu4y0H2ASPj/nGauA0btH
rNhm2oHOuCriGaeAz3V1bVVkO0ADVtacSyDW0/H9qGHYAXITnDYeKQrI+Mpf
NxfSARNOQmkn3yqgn/Jgp5VEJyStptq51Sjg0/SMSz/UumCZbppuN6uATaYH
catpD0z4nvwVuaCA93cmVQWf7AGWRpjGt2UF/F01o5IZ1gONaY0frLkVkTGs
OvX4Ww+8eLi/3FJcEcW79d5m7u8Fs9Pnu8w2KGLFyBm9S1v74IFMvLDeYUVM
ntJVjdfsh5stn2z93RUxfYp332/jfrj8YOAx7bgimv/TDd5g1w9HuNfJaZ9V
RHXF87WeXv2wdfzdf9v8FfHoSN4W8Tf90FZTg5seK6KcpGtcNfH9Tb085b26
RhHH7B8O8s8NgPrc4wd76xSx0n1tQjn3IOj5b3tzo0ERBai0U6fFB8Hx6kXG
YIsiOvDNmgerDUL49VmnlH5FvM/eVtjpOghzoYv6KguKiLeV5XQLB2HEMvgG
SZqKhom7N1SdHQKve02RGWQqvt1Kub7r8hDM1Csn7pCl4vds3rNFwUPAZV1e
eEGeiqMGutKeMUNAteWaaV5NxT3yksXsJUPg6HDr5GMNKqaa+r0eFCLmqQN3
90juouLaDPVtV58x4GpHxGTkbirudmTLhBQGbHeKeSK8h4o3pAwPTmYwIN0m
hbHKhopXSm9sVytgQOSO4oB5Byr+OW0u29nGgMPrJzJ73ajYsrdJYYMYMc+m
ze51dadiuNrgzp/STGhRXplrO0rFyTPjl58oEPMjRdCs6QQVuU7x3ilTY8Im
kbU9FWepePXcaVMTUyYsTzkLp/tRcYn/DueoD+HP84dz116h4h24vznMnwne
v4+7JF+lYj95xy6Z60xgsi6kPbtG5G9LfbBwlwn1HfcMH4RQ8bOP9/nm54SX
nR4PCdymouXCjVU/Uoj5ueXp3dBQKvquYiNVvWZCbv3L1qAwKp7Se1dw7D0T
npWUnvOJpKLKzsjLqZVMcDSokRh/SEUe7ynG8mcmiNIb6GcfU9HKo5Zk3EDM
8+87eU7EUJF0ZLjqZisTzqRNJzjHE/l33eKaZjBhzepFk9YEKmZS86aiRpjQ
85zjp10iFf0y7CoUfjHB7omIlmUyFYXKcgVYk0zQDV//1fA1FTfyzd7czcaC
9zps4Z3pRD5/S7jdOFmwgdVqfvkNFYulsplOPITfjG+W5WRTcf6ufeKwAAti
/7hcs8qh4u+ZTcNBwiwQj9+s//MdFfdL9p9bEGUB12xP3poPVDyZ9Fb1PuGn
gNQ879J8Kn7lMO9JkyY8Zhe+6SCNig+SRRr+7y0vNvexeToVj1NyPvkSHhvJ
1HkdU0jF8tUVV9QILx/ZL3p8azEVf1at1H9SYEEXL0v52ycqxiWfCtlCeNnh
Q1Hv2VIqFoje8LlB+K/B/fEz/nIqhkr7nH9H+HCn2BnnlxVU7EvQdPxE+LGk
2EjKpIqKt3zesKUTvtT1IDf3VVNx6+8eO2/Co+9l/jwI+EzFwJ7lLWTCqxuq
Ky1l66joHX8vLI6I03ye8eV/oSLbT8/di//3rfKFqr0NVAzyXzmmS/g39qvF
jb9fqYgr0s0ORCwWQMV734j9eKr4wIqI76r+W1zfTMV3sfxxa4iYq62eVtVC
Rbq3y+IPYr2AkJSL7q1UTCSTi04S8cyWK5psbVR0e/j5ZyuRn1ef7d9n7VR8
L+Qep0zEI/fWZep0UpF6RXNwN1HPEb2VU61dVNzJ/NJjR9TbOfx97YUeKh4r
Hs7UIvphH/1mUKSPivmW5j7zRP8adtxIfNNPxcqESOc4wss7x50PWAxS8fzm
9XdkiX6XJGjIMoeoGJLEu+Uy4Wddy1U/gpnEeXzz8FauLNGfl7k2hSNUnMr4
T7D2//8fsQ8Tcv5JRQ9L15xkCRYocBypnR6j4hFP1VFXcaIfB0RMNv2l4swj
LTlPIaIf/Ey2L+NU5Pu8Ma6G8DLXx8Kik5PE++RUeREHL1G/+GmtFzNE/1fC
hGQJL3uW4JThLLF+kv/Xf8uEN89K53TOEfWLUg7kLxB+rqlQlVwiztel2yLd
U0woCVRUCOVUwma71/vqiPuis2GmYw23EgZZ/J391M+Ed+1fYkp5lHA6uaol
tpsJKVv9xRb4lHAd/4jPLOHnO6MtXOdElZA7g5F+qYwJ21vcnP+IKeGvtTS9
0SImDBT9zvQiKeGqX47PzWjE/YrkdbogpYQ1zzvKi7IJ32rpv75MUcJ7HLr3
M+KYYBWSvOfGOiUsZDmT3nkyYf6cxgsuVSVk32IU3HGKCS/3Fc2EqClhp6NS
9x93wr8bfjwPVVdCsctl0/1OTMhp4p+4t1UJd0ut+cIyZIIE1Ts6FpWw/pWQ
aQwfUS/fyqiMsRJqSDbVJ3AwwWMyDOJ2KGG6uJRR1AIDKqtSh+PNlNAi8t0O
618MuHi2XTfZUgmTkxgi818Z0E7H3sx9Sihs86NC9yEDEhxE1pV7KWHlLsvN
5fwMcFLeP6LvrYRexryVk+wMEP2Tlv7hghI2PTV3l5wbguBQw43pF5Xwq3p+
rRprCI4VnN0SeVUJ+zkTglLLhmCD0hf9Q6FKaNmjd7b+4hDQxkJtF54r4ak8
X66R5kHwprWI+yYp4dvEUUW9z4Ogeova8vuFEpLC7dYEFg/CM8WPjgOpSgg4
1Nb6ahCu27H2f85QQnvNmzearg6C2UfT4zH5SuhzMNvij9IgtNzguKL5VQkV
HuhdSTo8AJZBCnvrG5Xw045HujN2A1ARqKt2okkJtTn+JGmbDkCen3fn0+9K
uPe+lfOt9QMQ7Tmgx9GlhHeEv/KajveD0/6yxcZhJVx+/oNnT0A/dGwJDjzH
oYyiTy5/C7rdB/397MGvtynjpVX55cu1XRAu1zL+n5YyulDPrRF53QXaDmlu
adrKOJkWFM5xuwvu1+wyStZTRo7R74KPjLtAP/sRW7yRMnanUfDQx06Ivqpy
LWKPMhrZT0bVJXTALmmLq5eOKePS6bBdp/e1Qa5lxEXTKGX0H2m62nK/Gf4I
Pjv8N1oZd0h84hF2bwbV+pe74mKV8dPfwQh9rWZI2vNJYTxOGbUWyt5d6W2C
+1a/q569UMaWpuNXYjc1wSkbS+mpbGXUDy57IPy1ERTseT++qFXGzf6FLhFr
voCLhMSLPV+UMVxi/oVwQx1EtSiGz9YrY5GDzaGSS3Ug6KB12OqbMjJ+1FZ+
qauFOYfjvPM/lNHjypPBmYufocWpYp8tQxl7+a7/uNldBSLkRuNFpjI+WGii
GIdXwa62zg0vh4nPi0S+u65HzLf7JtmWfirj9j885Pi4SshyVn79akIZ1V+K
qq92r4BRGfVHe6eU8bJWXxBNqgJUOnQClqeVce/uTlPRunJ45mJraz+njL6U
mEqV7eXwQ/aA3sq8MprLhY/OjpWBeOdJlfRFZcyQLnHJSykDqzgfEYdlZfwm
8+HC8QNlcGf/9bmVFWVc/rYkSibm9f8BVa0mQA==
        "]]},
      Annotation[#, "Charting`Private`Tag$70855#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.6, 0.4, 0.2], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwU23c81d8bAHArm1zj2iNJuzS+MnueIlFIMkoUQkNJ0rAlJBSp0CAjMguR
7rX3zN73ErJKKXvz+/z+8jqvz3HO53mec+55n/tik/VNQ1smBgaGJRYGhv//
LJsArWVXX7iw9MW3PosCaZruk9OOgfBuL/+H4DIKnNAz1797IBQSOBW1vLoo
cPj+UrzTnudAyc+6/nqSAgfiIxcdtoeD0yOPMy28VNjWoHjKXu4VnC9Dd1EF
Kkgstr2/LP0WHFvSGyyNqcAnd3vpktg7kFjV+BrhSQWfD+zbMjhjoVV5Ti8t
lQor+Z2GewLi4JMi+WYQnQp3WxI90ja8hwsvGX7KkPLAflWzNYnhAyRWvXsl
6pcHI/yCa/KeSRB19Mdpg/I8sNz2Y1vCcjJU6HmnDLHmg9GZB56xc2lAkb+2
UPUyHxquGCRLO3+Ee0ZH/xsdyAdtT+m2qMlPwHjRuYtlXwFEt/UJ6t3NBNfk
Ql9aZwE8X3e/pnMrG+zvD1+xPlYEBoFDXuwKOSDsdru9P7EIeIV0X1ZN5MBZ
uqKd4YZiCNghXnzsei582H1D2eh6MbgbU4SOXqaC8n9ufw9qlYByv8xORvk8
qPa799+EZwnMXQvA4qE8CIwIs3D/WgKO3qb2h60LIONj4/vZ3aWQ1e5qGbWn
GHa1/bPy2lQGHxhEv7zaXgayl6oO9MpVQKiJsVWYdA1Ea5vUbbxXA5UnhWLm
/WuAUcQ43rq8Bpaxvc98ogYuMj96+ItUC3Y7jc23FtTCOZnnHwPTa0Gdwdg0
36we8hVkm1NH6uBXspHeyMtGsDC1icmxaIC4tWQJSdZWuHbRKRwTm0F9kSO/
UbkVVm4siFz71gxd01fP+9xoBeFQxfO+M83A83P769G2Vqg7VHng0dEWuN+a
LJwV3wbxLB67U3tbQD8pmf/4kQ54P2w6F7GxDZZPJ7Pfcu+G9VNPTlw63wEL
LU3RX9K6oaPDNs3JvQPmziwcXKF3w+wcf9C5qA6YMj5u9Ui9B0J/Kgun9HXA
r3PDlKi1HtgbYD2perETuqw22dd606HNT2bisGkXdAxqM/Jl0iH4Q1CF/p0u
aLvkGGE8QAedw+wKW553QaNtUVn/kV4Y7ch+K9PQBZVXLSTmmfpAOYVpeeeR
bsi+9erbZr/vgBnujMfEeiBrqvjS1ZzvsC1tbmjjwR7IuD22+HH4O5QvrOwI
0OuBDqq4gOTmfoj2+PTjvlcPNOdfg6SH/XDkCc+i9PceMPDw5Kx70w8RwSRN
8bkeaFAPa//zuR98hNVds7hpUF9IsT8w1A++vcb1KUo0qC5mjyzUHIANevtL
XINocPyBxKUB8wG4YvzjKc87GlQeUdjDcmcAqgKzhLdm0aC81LRcJ2EAzpS9
qBvsoIHGQ/uQ6wUD8OWoOtlrjAalGl5mIe0DMN1dZRG+SIPi8sR/bRsGgTf2
VOt2MTqAHzVvXnIQ5JWb/r7bTofCYw3+YoqDMK6k9ctXiQ75lbMSlnaDECQU
YRZiRAfVRxxjPp6DoGQU0/DRig7U45KfE8IHoeHFfdl9DnTIrdbUGa8cBC5B
pj5DPzqsUbT6X/QNgq8rHxclhA5aqdr3Ds8NguUNZS+PV3R48vYE7xjPDzhw
fVt9VBxRxye6Cc+2/IBdoVejhVPpIO6lr6aq/gPoFt7FY1l0sHY0aB0y+gHx
YrOSG6l0SLYyvPb0+g8YHTtVGVBMh3+GRoxKvkT/qwt/z1TS4ZCmSeTAG6L9
7d+SQx0dPP87uzfo8w/wir50u6uRDhXyZpUH637A9NqCQEgrHbhFzC36Bn9A
T/yfqmcddDjDcWHm0dIPeG01kPa9iw6vly4G7eMfgjZfU8H7PXQYHLeSpW0f
gkeHBn3NaHTY3nuJ4ntkCDalzVH9ibZjg63BnnNDcF3WMnmF6P+16PJop+MQ
WFNNXPK76bCecdXzQcAQ5CarBVZ2EvmJsxfaGTMEgcH/HMXbifw8v5HWljsE
TBtb5vKaifz43tTwbByCe/lXRJK/Efm5e6tn6+gQHOGlMg9VE/m5fPtW89oQ
bL1tTHYoI/Jz9g67G3kYRpPFadoFRH507r2T2zMMuTx1bHe/EPlRdVFsODYM
g1/MXOc/EvnZ5fbtnsUwLDPvUGxMJPIj6WGz6c4wnMkiWa1HEfnZ6LVcGzwM
G39fwMAXdHgz6bNdKn8YYik78yleRD4GfYurWodhdr7B5pIzHXa0+ZveGh+G
pywMbbeuEPF/CfQrFxsBf8eHw1X6RPwfgiUc9o/AQ2dRstARIv5XTz8LnxgB
r1gLuZb9RLxuYQPXXEbgSO6UxgdBIt4bL+4LPhuBQ3tLN1awEPFeCN9YmDQC
cc0sOy7M0OAfvlYndY3AqSzzVJ4WGvCwxr3KVRyFRwdPH8h4RAOj+XgFK/1R
MOF+1DZ3mwZvxxKqOO1GwYG+rbThIg121CXPWrwchemEy/lqijTQCs08zTIz
Cm0KT+jGfT3gJVbCcTpzDBpuB31yluyBfOFKnpXaMdiVJxXxlbEHFgTrSB+G
xuBqKF0lfrgbnDa2i64K/wTPvO6rd4jPOTuWn9uTPX+C/5akEi3FbtCf4DvB
qPsLfP+qv1dS6wKJUsvAzJFxcOv5Lt0n3gFfrzJw8Uv8hT2xFXnSV5tBfsfV
QNaDf4HpgKBCjmYzvPzVzLF88i8obtcNQplmcLKPZx9y+wsG9Qbqap1NsPOG
FusX2l9wP5fM9V2zCU4pVTKk6/0D/Z3WlxWgAUpVuVcMeCbBvpPC1v25Bhbf
FKueFJ2EzZV7PJSv14DCirPbsS2TIJHsoFYnVwPv8nuXlNUnoePSYY2Q8Gpw
V/+0KHtjErot+L/Mu1fBf2A4P1M/CRF/jOhRZyvg+jvWQ3+7JmHt1YuXtUIV
8H6devfn0CQIhHarXG0tB/7izXO9K5OQYb2tlmRQDhM4O1O5awqYOY58zTxV
BklHI6cig6fAgH3q0fyNEujZ1jD2/NUUfPbKUPNXKCHWI8v3p4lT4Ldje7P0
TDE40m7W+RZPwaE7fWfiPYtByfn4e8eZKdhxiEH3nWYRXDPzeG3POA2flS5+
3tVbCG/xc6gd7zRMk17ciLtfCAw80h7m26Zh67vb4/lfC2D/tNFt0/+mwXFR
51eURQHYdAdeNTw6DQfV/Xy/byiAmoQ5Y23zabB9Vq7AYJUPK0G7dDWuTgOL
3T8FScF82ONkffTw3Wlw+9dtQa4jvHI2Ukn54TSUKkyKcfrnQdjhhj0HQ6fh
z18ako/lQbkcy5a9UdOQ4Hzhtyl7HsxxqojvSJkGoayuE+ONhLcmb5K25BLz
tQ3ajL+hgllnAptM+TRkhdWM3rpOheAC2qpY8zSkChdNhB+hQmE8aUaobxqq
7RLqHcWp8O/x8V9849OwRcS5U2CJArKOHv1cC9PQeFxbMayXAkYmnztYN8zA
YSH5z8sVFPBX+1nPyD8DZ4zvPbP4TIGvstJlK1IzkMx65FppAgV+sRtT5nfO
gN+mCd79URSQ+Bv4aUppBmKZLt/OfEUB/fbihD/HZmArO2fM0TcU8M6bezNm
OANanf2pQ7EUyIrdFfbj4gyUv1Yqep5OgaFH1gF912fAJyVYSqeQAmSHSM9u
lxlwue2qvtxKAW2jBuc2/xlIMjzaHTVBAVcVFvvG5zNQvHGrmCzh0TQZFava
mBmYUKZR7+6nQh+ro2lF+gzEMZL+CzhPePRPgl4xdQbIqTJT+JgKR1tpGnlV
M7DmV+D5OI8KzhSSype2GdDJTyvWnqJC4rvjCpkDM5BXdne3ze484Lr+WeLD
8gwYuux2how8OGz4kz+OfRay+TL+ls/ngaOSNEeU0Cx4ecXAfo18aGMJmg3b
Ows+torPdYbz4W2UdYPnpVmwJosmcpwphIaHkeUujrPw7D9uRscvxPq71kB1
9piFrU8+d9RIFIGNosqHaxGzUPsmzH5osgh2NZK8Tepm4YKj19DZ3mIo/XaY
Ltg1CxFzvytURUrgbL29UuvQLCyYcNvJGZWAX03Fv1Nrs3BC7KYJraEE+spc
rHT2zUH5i1fGZQ2lEPJ14KhaxBystA3Fff5XDlOxmRtkL82D6xvG24+f1MBX
59NBf5YWoJwN1cVjmmHUSCGhiXURwjkTSmTLm4H838aiz/yL4CE290xyrBmc
Z+unXHYswrtpJvZfe1tA4a62GavZIvA9vrmvprAFPtyD7dKURRjZFtm61NUK
4a67qwzuLYGVUMxWtqV2qDDjHjjwcAm8rKSc2YjPvxmV8SVyyBLstHszO6ja
AYbLSXt6E5fg/suDuM2jA3jd5cKvdiwB/9M/9NbVDvDzELf1+W8Z2PYvlA7M
dUK2xZKn7ZFlOGQyab9dqAsG1bsjtfWWYdZol7D6gS7AtfB6XttliN7u+7vM
oQtWPPkPvnmxDMzC7Zp7fnSBszcHc/b0MngnlE2cKu6G6JGrrREMK2ArevT1
HOHUat3aeDeeFcjZpyGmtdgN4qJBmhpbV6CeYTO1Q6EHSjO5/VvMVsCnQN/f
/U0P/Ba+YfLl8gpQtoLJtpweIHt+k3/tvAJcru02Vxt64NqJp1VWT1fg5CY3
1pj1HiD92MgxWbIC4RtrPYLNaaCi49jd1rACZeZ3p0OcaGDzqSn5K20FVigM
KnwBNPjq9uyE9+wKTPtUxrpk0mBwYFLMhmkVJCgujecraMCtbTh+fOMqNDxP
+ZnWRQNLQYHgjdtXgf3dwo0nqzQIdL1tPv3fKuR9eeQvtJEO2f2tuzqProLk
7a1/VqXpwJb+4lu0+SqMeo229AMdFARmo3yuroJAcfKfVuI8N3MxdrC7uwqv
hGJeiFjQ4eMx8sY9oavg+RSkA+7RoSv17ndS1CpY6p9cTH1IByb+zk+zyauQ
sovDWIDw4a77h7y7v6zCP4Nf41TCh8Z9EQYFZasQl/Um8l084RPNBZnYplXo
eV15vjCNDkkpZyd9e1fB4GatpWAOHVr4KCVXfq3CSNZVpnf5dFi5KxqmO78K
D1oMG88THpLvdbFWYFkDtrf3nmrX0MFAo2e/IGkN4m03aVxqoBP3QBXmBck1
MD2dqZDSQof3G9+00naswZGQ5V5xwoMNd5bjiw6tQb2Zgkgu4cEF2nnneM01
2DyhMetK+E72aL7mo9NrYOdX225H+O9kkoSQ/YU1cK5HO1ei7czrMaxvv0a4
N/ddDtE/2rk3Z//9NVB8P1AlQniwukfdn+y3BhUafo7vifmmMNpk6dka7J/U
v3uO8KnEhzX5vug1GP7Lu65E+FWL5+J8SeoaMFRdu6dZS3jzdlFVwtc1qDrD
FepRTni1WzryccUaZEeeURkh/FcO3ldutKzBf42f33sT/ptI6Fc6/X0NplRj
FU8R/hPhPsLx3+816PA+EWyUQIcjTrHdIotrELoi5PT8DR2udTGmrGxYB1Xl
5e+8z+jw4rC1az//OuR+rJqpIbw/xrlZPGnXOjR8FjzIfYMOKYb/JWcorYNU
+LSHryUdbrw+foiiuQ6WSduaLc8Q8W2/fqbWfB3+C4oxPn2IWG+3PAdarqwD
Q8Vnd/ttdLhHCb1Jc16Hb6cvPJ8VIeqpnRP0O3gdLmpfj7ZdoEFhaJXobOQ6
+B2LDj89SoMHXd0fVt+vwwlOHh9KOw1Yr6yV8Rasw/Xj5xg5iP3A9+j4isKf
dWhcNDgxb0WDloZzgcqLxPiKV9IF9GhwgkuRO5aJAc+c935Reojw4xnt18m8
DPiGL1prkIsGYYPXv1DlGdBOSM/O4VMPvGX8MkE3YcDWq99yMgnveWwp+m/A
nAGrS1RpPHXdcEGn2n3YmgEn4rQPSmd0w6ZnPZwTDgyYK6l+/IpLNyTKrMuv
+zMgqcW0qpi9GzJA++KmXAZcXOc63ijeBRUePY22woyY5bgh9xvxedi1+3vN
SUlGNNtwNYV3uR1+9/4o27eZEU/0KO/Y1dMO/If/5K7uYcSDU40L6xHtYLm2
/u6lFiN+Xft8X4a/HZY8tzhW3GHECk7vgN8MbaDg7ci3pY0RnVbLswqJ+72m
wh1Orh5GVG+gpjOkNINpvwvL5HdG1CwZylL0bwZPfLiQP86I5RVTIw8ON0Md
Q3i/ETMTanOHZaR8bAK7B3kZvvuZ0FfWcOO8eCO88WE9PRTKhHV3jjevR9VC
2uzJxBMRTNjusqY4aFAL+VeeLWdEMeHLU9c3TzHXQp++RKJHChPmiZt/SrpW
A7Li+5fJ5UyYGqpQ1K1SDUmfLRJ05pnwUoLLAMuvCqDIxy99WmXCTVQjj9TY
Cqh9NXaKzMKM2g9idlWfq4Bxr9tLg3zMeDoue597XTns0X18yn0HM2oJCpx9
lFMG2UPZix8tmDFXh3GyPaUEKkyX9IVsmJG9rslUm/BmRy28d7vGjLIFbKqf
CW/OZ9Tqa99jxk97LXKjqcWg4tEfPxDKjC8VPsnu+VoEJ/9tWTwewYzqw0v2
O04Vgfkle/2PUcy4bBiYQBsrBA+duQXXFGYMjb+QWSdXCMVC3PqC5cxo+Ovm
P5bSfGgOOB3vWsuM/N3DFypv5cPgcvhCfxMzwujsBbkt+TDlQNc73smMfO7K
rmr0PGAe3BSf3suMd3W3/94ZkQeCxpcXBIaYMXW64N5GkzyQq07Tc/3FjFvm
zFSYRfNA6+OhBa15ZuT1sfR6lEoF000eeumrzFhRbq970o0KV16UxgmwsGDB
LX5vv1NUcGFjX3DhZMEt/swiutuoxPmgp9fPx4LJP08f+byBCm/+hMVpCbPg
6Z9/tn0bpUCaZdd8miQLVh/c1ZjcQIH8Vkk9ATkWfPzP9LsJlQLftC7Fuexg
wajDcsHfUyiQkvLAxEmBBf1lzCx6YigQwBvDaa9ItFv0zkoQXrR1Kiy8pMaC
q9d09JMITx7toDuZH2XBi3LKc55vKSCtsixvrM2CdmqLv6LjKbASJUrT02fB
N+S0jyyfKNDNqBSiZcSClgzyn1MIT36xNdEAMxaUfyFz+XELBZ7XOM8fsmRB
ZgNm7YhfFHDc/TxVwY4FfU62zVezUkH/WebF7deJeOh0E9JWKuycbRSQdWJB
9h6vGKuTVGA/N1Eldp8FaY5Zgcm3qTCSz+0u4MmCTg1elzvfUSHGV2eIJZAF
C7/Iy0Qy54HH2OXI1RAWvCLMMc6omgdmuv66cy+J5//yGtbvEPUTLMsejWXB
Zg+BzRZzeTB5b+BK/wcWPHzv1t8nqvnQQFuX6E5nwYd+YvWzD/PhcbyaXy2F
yOe6mjOnVAHYsZ1XLitiwVbSpTX/mwWgae/yJ6+CqM/c8LGesgJY2//FOL2Z
Bdt3Hx5JcC4Ep9K98qE/WTAplh6gPVMEp+T1ewL+suD2mXWfhV3FsCvw+tMH
s0R+Mt6l91oWw8jp5Dknxg04qfx8IbOuGM4PyFYZi25AO5/8I85pJaDJQL4i
rrMBb/+7l9IVVgbCh1eSE5M24HTT/m6u8iqYsjlPkf60AVWSb0yw8FVDfRC1
OjJnA/J4n809YV4NPt33RwNLNyCX+tb0lNlq+O08K3eTvgE9ZsJ4tHfWQnHq
xLtDfKz4UCh7Y0F0PVwTHXhZfY8VWx7s4syqbgJNxIQjnqyYKFdntPdfE0hf
fpdN9WXF30JVPPHCzdCWbdGa9owVtzi8i75q1wxg0MP3LJUVtYXlPpkwt4Dg
o9agc99Z0Wkto65VuRUKZioe/NJiQzG70o70sHao/SCjeUyPDTusrsVd/dIO
HWaE086w4fWtjApr3e3wr1ghyNiSDf8br4pLl+kA2SdvXhS7sGH/i9oYjrQO
CNhy60N4Ghtmk7KfVVA64UVX3dXJLDaM8KpefdrTCbFB8rt0KWzY437KWnq5
E6iTtAzGSjbMqf1QFaLaBX8KtKjXv7OhePWvlUeULjA0kfh2lJ8dN399ctU9
iThvOO6FRImw48WzC6OMFd1gn998ekGKHXO01ewODnSDr+yjjvSd7LhDglEs
UqQHcicmv4scY8c9n/S/STzsgfJY3bjbJ9nx44HDm7+97YEmow82DafZMapb
b5/Ilx74RTX/+fACOz6Qclu7PdoDEo+qpibusWPdK861GU0abFeRzdHxZEdL
JRWVPedpoPjH/d57X3Y8+J7BbNyRBqfO7F8594wdH7nvfTj0mgbmrE8KsyPY
8Q2piVnsEw2uUEa9N0az44Grj89WltLARzpqQ0UKOyr2nWu7M0aDpy3zVdKZ
7KjN4c7ltESDN36Gga65xHwvXql0chF+GGfbqFDOjvZl3cYNu+hQEm3dHFjL
jtmwtPWcGuG30wXPh5vYMfNXb9nhk3QYzXUSedPLjm0l+obcl+lQfD5ROeAH
Oy7+e1cqeJvw03q32Z2f7MgfO/nlgScdbsfzuFv/Zcd4bX0/g8d00D1+JOrU
LDvu7qCGez6nw5Zx50K1ZXYUeKVxjSOKDmtPk75vZ+TA2lMikROEpzr30xmE
2TjQSDW1bSfhrYyOjbIsPBxY01M3XUj49bGrhsYkPwemaeWMJxB+tZa6Z9Mn
woGOeaxdfaV0UC1N8auT4kDbLVErl6vpIGjXl/hVjujvoVEN3+jwh4O/OmEH
Bx75o9Bp00yHyvRjP8MUODAzRne2vY0O7067cHorcmAv/26ZsE463J9N23lD
jYN4//qASMKfp1/165od5cCo0t8vxgif7lAXdDiuzYEj+6T6HxB+ZR44HnJQ
nwMtzzur2RBtuq9bxiYj4v11WrNCiP452z4185px4ENyrw8LMd7T+sGp5Ysc
eDn2sWwZ4dnLjmTBn7YcmG9uqF5PeBYFT/zXYc+BwU08n2Wa6CD61cOk7BYH
Fko7hZfUET48n3kv4x4H5v3Q2plRSYe69aHIKA8O4vzXH/pTTPg8XoQa+JAD
mR/8tXSn0sHjuC7t3mMOvOD+/prFZzqYjHut2IRwIEOD2lRYKh3YD4wehjcc
uOvS40nm13QY6BCz3BXLgZi/PKMRSgeqq/4D0Q8ceN757aMBwrPXS3PKprM4
kHN+6zO4SYdjdj+H+r8S9TBZN9pwiQ5SnJKsDYUceMy9V/WACR2aTvtqJ9Vy
YHhre2KLCh2SZ3OvvmziQMkV5h4dYj36vBoP9OngwO3Zho8PStLh4IDhN/NB
Duz8uWHwJnH/inTcZEha4sCrCc9zG3JpcEvQ+PbaOgfe9Wad3JdA+PRrwIvx
DZyo0amkLx1Gg5X1vx0VJE70fX7yv/hrxH0upPC863ZO/OiabB1JJvbjx/O2
P85yYvH9luTT5j3AINQ0YHCRE3vMmOKsjvRAh5vmhUJbTtQ+HZrBL98DPjq7
TV85caIF5wFHq4luoA+taZ8K5sS/37u0/rp2Q6h43K68Ik68PFEx5O/XBQsB
Y9Nh8lyYzRfSO2TfAVWX7vgcneHCc8mCR/cVNcO1vFKLo0tcuMlEXqP5dTNw
C/ApH2Xgxsq3Gcq2d5vBsDTl7xFubnwebnH4+u5m6JPpNz8iRzyX+hDD86YJ
ZnpPHEIjbrxhuyE3/1cDyJ6V+a2ezY06OxUNNprVQsWnG1XqVG7kCVp/Nkaq
hStseXHqxdxoJiF+7ndNDXz8YnxOvZ4bnYbeXfRSqQFloaBKtSFupG398GWn
VDUYtMzGqAry4Fbh5EOUqQqY3q7hrirGg8IGFK6OjxUQ/iDUVFWGB+XSazPO
2VcATWEnr+ouHoyZdrBMHi4HuxBLNxVNHjTby3CSob8MPHTrjJWdebCSrdh1
/F8JSF0+F0xx5UF2BonCs5klUPhgtFT5AQ9G5L8wpTqVwNoXZgWVpzw4Y+2p
9mihGLw3qXGqJvFga07O13BSMcio1WLeRx4s9UmOHM4pgmKTs/dUc3jQny0o
UO9kETAGOw+plvIg39p372jPQvCZSytUo/PgrU11Og84C0CWpDqbP8iDVZGa
HyZy8qF0Z81O9Z88RP5U/izb5IO1lql1wV8e3FkorVgtnA/MVsOR6nM8uF3C
7rpTQx6B39uNBSs8GPTXTlr0cR5ohjOyHmbmxU0TvMY9x/PAt07y9mE+Xmya
EfaXaaGC3EhqciGZF2fZZoV6o6hQzqDSf1iSF28FVAzJOlDBRryaXLSZF4XX
o9Q4NaiwQdFED3bw4pcTWtHJElRINBh6WKTAi0LHxYOFlimgZe9EhUO8SDZ+
ZWrZR4ERP4bJInVivpbnU68qKeAf83QravLisoxKReNnCsjnSVwoPsGLG8dq
H3MnUqCyPeUFnubFLK7JPWejKGD3T6mu2JQXSSouJbmEJ9m4qhiPXOBFkYML
FrsJbyZtMVYqseHFHeUlO77GUkAbfzgcsefF1+ymZkbpFBgzu5VQcosX99Wr
Ky4XEF69s047cp8XPbbM74tvpcC20Cf8pZ68uPtqxAacoEB1irjOUT9etJ83
bizlIXxdkexVGsSLS0cPqYrtpwJH/6EvR8N40Y5p4tP+81RIWar4XRrJi4Ol
NK+5ACqcEDLarPGOF6f+Kkjq5xH+PuEYqpHGizl/vt4w3J0HO2zXKsuyePFb
ZXJI9fU8qPUKXtWg8GLCEmutbUYecOUkXdOs5MW/SmPzURr5kNaoGFteT+R/
f3bVclg+6P4q79Rs5cWU6LRy1pF8CJYe0DzWz4s/9paXfggvgF0qN90qRnjx
68/O0vXpAvhmtJp57A8vBu533v3YqBB4A0WltZZ40WrgQH+uVBGEzJxe1BLc
iKEJCi93XSsG6ze0wSSxjZi+4WfFXFwxHDxqW8+5aSN+t7dp76MXQ1fI/XcN
uzciE6tQd/eZEpDd+e6YyXHiucsag45eKWRb/X5m67oRTWv9j8bZlkNPg/8O
3/6NWKijf6lioRrC2nrTLU34sGrvavsVk2awltnYYnaOaJdpuka6NsO+6zhn
ZM6HejfFZ/Ojm6GJOf6wjjUfZhvq6w+MNAPPgSuN+xz4MIbTk8PnbgsEPJv6
x+TPh+HuJXfdwlrBQ5/tYEIOH36/2KK7+Ws76L5WOvvuKx8yUVhvuRDekxi5
6v4qjw/FUkW005bagepRX/6khA9dPyxWv1frgIW0Z8Z3v/FhbKXSk5rCDnDi
krh3fJgPP65ssxfL64Qr1QrUn4IkrJ8KehUR3A1f7jBxy4mQ8EsOA/QndwPL
5jaLC+IknOh8pdBe2Q0xHvcYWzeR0Mf4rX/eejd07S/Uzt9Dws1H57ap3ugB
+f6Q13P7SPiKMaHqw6MecH5i9VvhPxKe1jvO+jG2B/jGWEITVEn4+1hIsntb
D+hEnex8qk3CVMVDwq0HifPnhOT2mpMk1H18orHgJA1G5idcmU+RsO9ycvoO
a8JjhmFS941J6Fjh9NHjCQ2a1i85Zp0lYUQLP49FHA2k0v8r/X2ehAGCVtyZ
X2hAZeu2tbImIdtCKyWplwbsOSm5b2xJ+Ni7f8+xfzQwsXbn6LhCwrYvSh3H
mYjzPl86/cRNEj75wj/uKEf44Nrkmq8TCZ81uI6GHCQ8IVxmUHSHhJqZs8qs
moRPnOxmDriTMKhWXuKXJeEZaSUtBy8SUmJMrA0cCP/Uc0Qm+ZAwLiHm9ror
4SVX2s9BPxJOU6o7pv0JX21NV5V8TMKatrmdO8IIj7V5PjENJqGEieW+d28J
vz0w+P4shIT0Bs7qU4mE9/bK7qsPIyHv+rMFpU+ED+nTPqzhJIy8+2feNJcO
Y48r2vAV0Z9HYldKIR0UD0XIu70l4deCFIXdFXTwHbpyP+cd8fwJM62vlg4t
z1Rq/8aRUEzk9uGCRjrIALfEjkQSNj5s+1RJ+Mjhd+8Nm2QSel9urV4k/JT/
6lNRdBoJUwZyrhkTvuI6/oDU/YmE2ttiirsIf5nNGF4S+EzCuz3aRx4SPkuK
lcvR+0Ksj7NCGUZEe05/jjWAQsJ3suGSekR/zZWqs6X5JFyIsRm93kWHsORX
KStFJDzz3Do3u50O/Sb2K4plJPxubuazpYUOe1jU9W9VknDqFLd/MeFN90ze
mNQaEp4tytB6RHi09kL/5HA9CfkSF4LcSv//fWKWhkwTCdH3rcW7PDrYUR6+
NGslYXzqo/UZwmfZdsajLzpIqJif+ceT8BmT4Fblxm4SvpHK6YQ4OhiULARy
9JLQlkPxrUokHX6Lv93j+YOEJvmktZ8P6BBzpOfTgxFi/0SPKbvdpYPRZZF9
fj+JeB6dbLp2jQ4FWS8OBP8l4f7KCh9HAzo4dbVkh0yR8OLEnFvwUTrIr/Ep
Pp8l4YbJPw/5/7++dJ4ovV4mYZOFQ/MVITocvVlHiVoj4eUby1tgA5G/Fxyq
sYz8uP/4x7igGRpc7PdTT2LjR8shD6nnzTRQuOd59IsAP47S1ic/+tFg6G1+
GYXMj9Snb689vkXsr9IlzQJRfmzoP3Ri0pwGjLz3jpdL86OTEyO7834atLy/
qduykx8FnkR8f9JF7N8WS5MJDX7M6uBokxPogW0L0Z2TWvx4TpzaubRA+Eyy
9+ysDj+GSxZ/8enrhmNXz51fOcWPJi2Ouz8R90Eyg6Elpzk/Tlo6nEpR7oav
uzWuyTvzY7xUwB/PU12wErDF88J7fnzqvSP2zpkOqHEe6DL8wI/urnoLw/s7
INwy6sDxFH48VTNzdh9/B+xTEvq5N4MfOSKj7po3tYPdKIsRYz4/FlqKGYmd
bIemY0Pb37fyo1vFHd/vKm2QwBTf/pNJANmFGizS2FvAaeKCQt8GAZTcLa00
PdQM2CMW1MIugJHh51p3lTRDT2YY5vEK4FGPAQM3l2bgs/JJDRYTQJdTH0Zf
/2wC1yKrB3v3C2D7l6Yze581gr67zO47VgL4KPXl1PONdfC6xj0n2UYAr4zf
jhYprYURcrd632UB1B6IWqtwrgXPzGf6xx0EkB5b7ZTUQ/hwhMlR1E0An+hY
/TeZVA28p4ezCl4I4PmsyM2bz1SCWfQR1akIAbyuERfOyVkJieNRZfJvBHAE
/bZallTAYX+TtpBYIp79ScPX91WAQ17VrNVHARSk297LFy6Hhi0pSqzVAtiq
oR36hLkUxG6zlqjUCeD3m9aREeUlYFdsrXOzQQA9apaYgv0JD5qJm3W1CeCO
4TsXL/CUwJ7QYLeUAQHUXZjPGdlaDK69Y8zfhwQwXmny8upgEVTuOBYsMCaA
x/VKZgrvF8GFitW37hMCyG29kG6dVghPlxwK9ZcFsFhtzx08VAA9x+u0Hq4J
4OULNZZcg/kg/3JrYy6jILIe5I/WDc2Hwr3932XYBXF1gNcmeT4POD3Urhhz
CaLk1IcDDJl5YFIb+e8xryBOyg6GaTjkwYTNacZpQUHcExhpxDhLBZWs9Mdb
RQTxAVvVsaxCKvivc/CbiwvifKyKd34wFVp07V6HSgmiX/g1PaWLVJB6XSpb
sUkQmYfYr6gpUuHaqFTqopwgnn1jXdNLosKXg24H9mwTxFSLJ/f3TlGAyacz
z3qnIOqtG5gf7aSAfuMBzYg9xPj+tXxbSijA8HJl+cU+Qcx+Ndv7I4MCWWYV
n8MOCuKPAYHR4fcUsJF5ah96SBC3lrqx7yM8KDxisvmpiiBWDo1w1RAerE2V
pgWpC+Jh5nPvPr2mgPutsbDHKIhJH1hPD72jwJ5DmSceaQiiQYxjqE0yBfpX
XJj8tIj8JIZk78ylQFjpUaqPjiAeceNiO1BDAc0ALidvXUEMjJVtu/WdAnN6
bds9TwliosyqZ+8i4U2BqAE3Q0EsPzz76qoIFcy6bV+5GAviGLsxE7sqFbjf
7Tl976wgiiSsrSVZUaHQZp79znlBrGa+YqVK5PPWjuJipwuCuMtePymNSvj7
X8B9RytBrAgN3/zzNxU6ck4rONgI4s/GLBG6bB6oHPnx7uo1Qey7uH/X01d5
8Js1zfTyDUFUK/cbke7Jg+h65422joKo88AxgkcqH5jOsnpZ3iXGX96tEPUp
H7IlGxUvuAji4vLNEt7VfLD7ETFx3l0QtxwNb3HTK4A6h+0XTH0E0ebrp8rR
uQJ44aerrv9UEIeiP5x3uFoEWieFZk8+I+oRVy25ub4IFvj60nReCKJK2L2v
wSLFYPH2psSx14J4zP5+P9W7GOQ/hy2rJgoiD0shF928BHL7uyjbCwWRU03g
q45aGfSo2ipumBBE3rV6xT12VcB1qUFcY5J47sj8eiCzCtQCDzE+mBHEjFrn
3NHVKoju4qhfWRJEeoLW0+7warC689Fqhk0Ig916JXvqamDs43zwj01CKGcR
0z5xuB7mNwX+KDEWwv2zw5tzXzXBNp3p6vWzQti3cEjsVEkTnHU0/6huLoSa
vubUvrEmoBbucaFYC2Gj8YEv/YeawfN8K2/mTSG86MMQYNjeDKwvJVRiHgvh
5ANvFx6eVhBk/xTqWSCEXvVsm+SvtsOF2Zen0ouF0DPmib/kk3ZIGnTnpZcJ
4TrTntSJjHZQKzgRrFwrhOlLnrpiC+1g4zTyaKZDCFnMOuZcfTvgM13S69o/
IWzls+9xftEJKzUsh19NC+EDkp5xEHGkauWOr1TNCeGb9mKuax2d0POM4rpl
VQj7r9cuuwp3AdNx47v9HGT0PH20qjy8Cwwzg2+YbCYTfo5aTwzohrfRt3f5
yZNxwyJdOCyhG0aCzMY/byfjsB+zxK7SbnC123aVpEDGs1Yj3TZL3RAnXm5T
r0ZGY9sQ7XS7HvjNnrp5Gch4aWSjRpt3DyjOPRvcrkHG0x1PLka+7oHapouW
j3TIeLj4e+2f+h6Y9Fs+f9SEjK28IUMPdtFA5fag2K1zZHyWzTqupUEDX8ua
7nfmZFTVo5SGnaOBiGqE6ao1GeNCqiyyfGlgvc2TvMuOjKa7r2d5vaJBmpBt
u9lVMmYUBa1UptMA/+0/8/UmGdPgv985bTQI7BXlH3Ui46+WtE8mozRoq2Vo
FrpLxumXDR8uLdLgSkKD/m13MoplpvJki9MhKyyHJ86LGG8l5fy/nXRY8Xpb
3+RDRrLTjveBqnQINbt2Ys9jMvoZhE/UniU8W1ygJB9Mxv5ykzpfWzr820La
KhVCRur7gIyEW4RngmyEyGFk5Cr61LfDg/DPZC4z70syskVwJ5IC6MBgyjW1
IZKMHW3vrpr+36v5F/pXX5NxHtTiFt/QgRSwoeBPDBmDX1W366TTofTP2dTh
eDKK/qGcnM4m/HMm7VVvIhkFz03u/0d4TJay/qg9mYx0MZWYw4TXWqTO3P2W
RkZbk9dN9Co6+Pgm2lR8IuPrCd5dNfV02P9r0bAgi4zdSYLaTM10GDyldyQn
h4znluZ/+rcRfsyJ2Zv+lYzRx/rZTToJP4nPSCbkEfNhaKMD4dUp7+PcUYVk
ZP3VGtVE+DNu5PXSixIyamuEc7gRPjXUnRgLLifjgdJX328QbaasI52+VWQU
qO3YnEz0zxJ+WeFeS8YtkQ6k3cR41h5jn52/kVGWfkxsifCxwA/VuOtNZHRd
hhE+4n3KtUNCbVrJyKAhYujURAfnj4Oe5h1Efs/+uiFNxCMnqHjDqJuMIpfs
3ESJeNtcHp/XpZPRY4I6blVCeP07XUfzOxm9htQtlqh0OHhMQUltkIzxm7sj
hwi/DqU8lD84TMbC1hMhsml0eMHXKbhrjMiXkYrJl3jC13d3MMuNE+8veHBL
3Gs6zNA8JsUnyOhuFmI4Fkp49YNcA9cMGYucfiQ9caMDC8/9fOZ5Mv5oU12Z
vEn42KkuZXmRjOssPivUS3QQOuz0aHyd2C8iJ8j+OsT9Jr7izg8mYawION3+
hFhvdzlEbWgbhPG+y7j/ht106GgrwjouYbz7K8PAgJcO4fY8SynCwvjdS8Hh
fS0NtJotx+LEhPGQkn2A+1cazClmd7yWFMbgNTUvWgJxP2M6/zlwszC61Mqu
K3nRQPhV0vVre4XxJG/G13xiP0ZWanzfflwYD0d8+rTxTg9UPTm0bHVCGC1U
mLsdzHpgzmin8Gs9YWRx6Xh4HXrA6Af/KU4jYXz+QY1Hj70HNjIMFv6yJMZL
rqoffNkN/sre0amuwthqHbBvR1wX3E7Lt9j9URgZTk3GFgV2QNztDBfbTGHc
ZGmsFXi5A5pU3r+MyhbGWu6Xjls1O2BPTdA3njxhHPk7GNu70g6/hs3UJ6qE
8eGyZorJ9XawlF6U+DQgjHIH5qlmmm2gH/YfXUFIBFNYB+p1vzfDj+aXW/eL
iGCr6rMno9RmuE+aczogLoKmQ09974Q3Q1zoFw7FTSKYZXX2hINeM8w9PXRI
dbcIjrnMivyiNkF0kHLYsWMi6MTQdO3F9kb466uubXZHBEuT6TMdL2vBtzzq
+fn7IljG13bWQa8WxFjW+szdRHCFZsS6Z0MtaD4svHPxATEe87e/++7UQOQD
iLd5IoLh3qzFcabVgJ5H1hwSRJC3SXr7we2V0F4Qq+OYJIKv7u6y+DFUAddW
GV/eShXBbfNJ47MxFfDCvXSnc6YIvmD5EnlWrALGXDXOuRSIoPyFU7WJ/OUQ
eu9Y9sN2EcxkGf+ZKFUKhz02d9/pEkGxLTxpl4dK4LcP49plmghut6Rx/Eop
Ae2nBcd1B0TQ3Y2/64xKCTAk/EcT/COCj2gyZ9IuFcPHFAEGtn8i+CuBknFF
oRjMMyblFqdE8MD2WCnzlSL4mpfu0Lsggkw/xkYXlIvgVssWpkQWUSx2djwX
11wAMl3MWyPZRDE69dDAokcBNPQOnAzkFMV24Grh210AO35GvXTgE8U5xcPQ
/TwfuibcqJYCovhWRE2AcjIf/GfOfTcki2LBcH5rNms+DK4LbT8kIYpnZV+l
nPfPg9ANM3rbpUUxlS+s5MDJPDjM1eIkLiuKGuoQ9ECA8BBfRgTPFlFMHJ9Q
MvtOhdfkp/nrW0VR9iqfWstHKmhLXB+Y3CGK/jMZcqsPqDC36QTr0G5RbO5O
9vpzlgrvt27b2aEgiklV89nZB6hguJvVoPqAKMYOpI1Y81OB4cCQM1VRFLNX
BJpZZynwUan0VZqyKDr9dE1Lp1HA/HBMYbSaKPLeBNKlSgpwanr+CAVRtFN8
2aeQQ4GvOubsD4+K4mEIlJNOooDdKZXdd46JYn8shXSQ8KmgsYjhZW1R3B3H
OXyb8Gup2dzdcydFsVWi5kc/4VtHy7Y3J/VF8V+9iZEb4V8pu6xi9dNE/wAv
jyMJFKi3Dx3ea0S875vHKXszKeB6y4FT1lQUS5n7DiDh6233dPcKmokia4RY
sH07BTrcdxixWohixx7900l/KODrw+6ycFEUC+OWrcY5qHAgYCTqlzXx+19d
ZrfuoMLgk/JSuq0o7lhUzD2lT4XQ53GjDVdEUavEbMjwLhUOv/LmLrEXxS07
1exl4qjwO/rCvs8Oonj1wE7uxGaiHu/VTBJuiWJj3JJrE0seaKeIuUU4E/OT
W7yDVPPgfU5HuZurKD4HwZQLn/PAMC/75w0PUdRtLZw9MZMHDCVhvJbeoris
+/Wyo1I+mNfrn9X0F8WF0BuLnLX5IPijcpw7TBTp8yNb5zcWwpETxw7DS1Hs
3qr+sfJmIThkloXeihTFNcqTx49aCqHKq/i/jmhiPV0wV74RUwSuElSvd6mi
WJI/SL2eXgz9xukC+yuIfLZcbvB+XQo8BTvtbKpFUUo51IpELwUVuZSv4XWi
OEiy77OSKoPnU4kWy83Eev0dlSCTUAZaITEfyvtE0fftMp8ytRzSq5+rmi6I
ojB529aulUro2cv/9PGyKI6M2TkxHa8C1ojQ/rw1UVwK8Prx8FkVWNo+8ZPZ
IIbztSreLlurQZDpUeNPkhg2vYxVzjGpAVdV10vuO8WwtazkO0dRHWh9tAyK
vSCGgd9WZp4bNEH3k5M8UVZiqL9BvpX7ThNcv6EYEmkjhp8XX1/1Jjwctov7
ecg1MXyd12diNNgEfSm5rz3uiqEOCf5F3G6Gux94U849FcP8ifQLtOctkBCT
X00qFMOTLtocGyrbQMn7wwmeEjHMWd+rYzDWBrUXw+rZy8Wwp2BjrgdnO/yT
utK0XiOGevHK3O76hH+jBLr+tIuhnJps/b+2dmh7dW205o8Y3pBQW2OhdQDL
cxFWH0lxXH17fLNrRReQ2+JzCmTE8b/ge9zlQ12wTWiv7eJmcUwLgeOVzN1w
MuJYueMOcRwcCc35jd0Q9sbJ5+IhcRT3ygl/ktsN7+mr+96oiOOixtgDu7Zu
yJF8PNChLo4iRkeNxv51Q9e7d6ivKY6RxlkNvdt6QPp9/ZraaXGMVwkS0H/R
AwrDph/vG4njkHDB+10fe+Co/A+LbFNxVFzY4B1T1QN2SYv5Oy+I48Fr/h1q
iz2QlibvJmYvjp8VFEdmTGhQ+Cdzh4mDONbsr1TZeYMGTXvUe57dEse2t4wm
fT40mM44o8xxXxyxxVYxPY3wcY73/LyvOEr033gRSHhVd47rw4EAcZwXmI3R
5KLDhUMRJjeDxDGqPqLwggQdHlDSc0aeiWPLECq+VyP8tqRkK/tSHPnePxeu
PkmH96rlghcixbGv0EVa3YwO1QU9t9ujxZExeoqT+w4detZsN5PixDFkr2rd
hQd0GIfJFt0EcbQ9oec8E0x42NvdJyBJHL8nGWfWRNCBt5Rtf3mqOLq/PaZP
i6WDDPPzgfWPxPtNxavJpxK+1JR6ppoljhWyFyM/EL7S9EvGezniuPVfaJo5
4VXjyoP/sr6Ko/3SpoWjhFft2IrfTeSJY7H/4f1nq+lwX/vkqR1FRL0nA/Rf
f6ND4OOONdtScTzEvOjN1kKHt7VWH2MrxPHv1bNHotvp8JHrj0VvtTg6GJ7U
t+iiQ5HufR7RenE8otL1SYPwZtMT5gKjRnHMfHmJYkB4dLDh6fXQFnH8mSDA
5Uu0ZzaKSdS3i2OSXGRYL9Gf9XRCHVu3OG6fPB1kQfhUJEzBTYMujk/02zxY
CA9vb83b4fVdHC1v1h5ubaWDiuDxHuqgOP55ofGntpEOusYtj+eGxbEwwf7f
71qiXuEWyvt/iuPe4wUzKhV0cOwcG7vxm6jvubyxL4V0GAvtr3L6K44/PG5E
DOfSwfJEV+K9KXFs2CU9a5lBhy7mJj/3WXG02XRVamcScZ8oqLJ5sCCOd/OH
jbXeEfW8W6ThvyyOO/fTGXJeEvcThVzZoDVxrN3SE+8SRIe98Yn9L1gksCFs
3n4jUe9E8+iiV2wSuMWoRXjkCh2kyOHR0ZwSeIbRp1TSnKjvYz/zJD4JHLdp
6cpDOkw42HTlSUhglpytHhszUa9t5rnF0hL4RP5YkfIUDfoGzoRXyEpgS9Hk
yeF+GjQYaRg1bpNAmZf+Xz7n0yBdRbZp8KAEMmdYM3g70EBuRvTT6CEJ/NEq
/+obcd97m056+ltFApVl6AapmjQIlmHUnUMJtJgxzN4kSoPrrP1VHHoSGKnx
Zu+Rgh4YKupM5DWQwLnRx2ymCT1g7tLoJ3BGAu9cl0nke9IDur8LNSTPSaBV
4oZf9873wM6WqCIFWwk8MBl30GCmG35Fnc819ZBAqm5wSpVwN1z5rzMxIV0C
j471kx0VOmExW/fimwwJTPjM+G2MrxMCD5YKP/ssgb/Dx64oTnZA2oH0AHeK
BLrkW86eyeyAv/seXjtTIUHcV26tZeztgLt79u5h7JXAzclfyelb2sFv66Mc
c25JvLhunsKz0gLkDys3DDdKYt2dwvGsrhZIlHeS1+aXxPZH+W3HclqgeotF
xAERSaxZXvM/5NAC3HIHXDjlJFHlwYb1C4RvX8h8V/uqKom8/PxLdkVNECd6
qFzAXhJPGz30kF2oh6wl3RQdB0lk2J8+9i25Hkpo1qFetyRRzbR09un5euiP
emo+fk8Sz/vau1kQ54W07MhMqa8khgUbKDwIqIW3O15ucYqWRPW3dyY7N1dD
GlcqV1KsJEYYBC3ZdlVB3u/iyd73kngqamvD0SdV0PPxd4FOqiQWafZ7L89X
gugBTZNNXyVxb0zFzdnmCghXnfZvapbEnDdHzISjyiBRguMGa7skVgnI22w/
VwY5q1Jn1LokcW56jvRHqAzaik5IJ/VJoq5ZF6Q+KwUBzbhcr3FJDLH7+Yvp
eQnIbvkalTMhiW4/p6bfGZfAftaGh+OTkjjVl2alKloChtWLp0wXJPHOdrHs
1/HFEKp7emzPBimUz5K/8jq4CGJ2X26wYZdCZrHP2ufkiuATr0f2ay4p9Npx
b3dvYSE0NCV5s/JLoaxEXPf7lQLoyyy0UxOSwpBNcmdkYwpgIqxN10lECo9V
afN2aRUAjzGDaJ+UFPIcqPe7FJ0PEorkdQFZKTTWOn/ozql82CW8a1hnixSG
X9ncqsiSD2oLR+q8tkmhrfMnvsr8PNDtNs3M2SmFHwSjjqFLHphTb0SM75HC
QesjyqXKeWD/5qHHpv1S2BoWP3t5jQqBFp90nihJ4eMlEAp8QXg0d9/FYFUp
jF90WNt5lQp3+bKdgw5LobAYw6uiI4S/rioGBh6RQsbcFnsTKSpYlX1991hT
CndzjAQxrBP+k1DNCTguhUoX813rf1BA925B7aMTUjidOcVaVU/4sxH6/fWk
0H3y895lCgWUtpfO+hlI4cfsMC6nVMK/PppcfmekcIunwef9sRSQo1fK+JpI
oWEb077//7/Q6/90FB+ek8JOicnb8YRf+ULqTvqYS+H1Fg8d07cU8B/Ts3pw
UQpvPNh53vz/f/95pOmut7UUkkWG9n36SAGnN4bBXrZEvgRNDp8opMDoTFus
5xUp5HI2GNnSQnhb3zTXw14K70hRw5V+UaDlQ3e9u4MUvo1u777LSnif0XzQ
7ZYUjuzVv9UqT4VCs755V2cp5PsTcBtOUuFgtiWP6z0p7GJLtk+5TYUUnh+y
Lq5SKNf8wY0phgrhxaN697ylsH6s+8AuwqvcYtcu3X1I1OuGu0kb4VWf27/v
3/En5s/SbyTfy4Mb8pPxt4Ol8Hx2D+PGhTwY9LpNcQqRwilF+bCX6vlwtnu2
4VaYFBa9HLA7658PmsFLizcjifhFR57u21QA1GH3jTffSGEq7x4J4dsFoADr
cg7RUqjgpR/WWVUA4lPMBtffS+Et+WPCj10KYcqUJ/FKhhTGvnPeJb1cBFcy
Q/Iuf5ZCphcT5QnE/a2Pk7/Z7osUDn10E2ywKYbaAvKKTb4UHv8s8HtnUzHE
bpYxtKom6qmpQebOKgGyR9xlyzopTH5PXYj5XQLBHXIeFxuk8H6UM/Pq1lK4
/3h7kkWbFGrfHnf4FVMKBn/3r53rl8K1Q5KB1a/LYI16LMVwgVifTeWF35Iq
YOrOlT/PlqUwIuHRiuZUBYwqBCk0r0mhoLCe/F61SmhKbPpyaoM0Coo9Fj7W
XAlxYefLdPml0ZsjrrZ/vQq0rt2ia+2SRpdJpZM512ohRDSKV9VSGrdOKvtF
mTeCb1vRaddL0phllyIvl9YI90MGX1DspDHh0kOnD8uNYL1hm7jSDWkME+03
0tNrgoOTWVv/c5VG5d4JnqXxJuiqrsa9L6TRR0CvUXtrC8jcn3HaXC2Nl8/V
vSx42gZ7Fl+EnKmTxm+cypvCP7eBqut/aQ8bpPGVL89fva42MHG/O/yjjZhv
4kWU6aZ2CPZeMH0/QLTX3k58zWyHxYAVtS3L0lj2RmJrV20HsHJGnTNek8ap
LuVMhT8dEFghlVfKIIPZA9uun93YCZFaRZ1TzDL4bi7jO9+ZTviszUA6wymD
0dp9hixdnfBT1+ehgLAMtv6aXW3u6ALHJy3PUkVkcNMDJu//VWzn8VD13wPA
Szx5SvFo04J7byn5VmhBKedI2bIv2VpQCaVsSREleSpSypIl+1KSNi0zYyei
RBrLzFxalawhFXny+/z+PK/XnXM/99wzZ97njzk32g4/Gph0vUUUZq/f4Dk8
RwDi5lXFfvIUdj47mT9kLgDKUvzHm6UU5vhs3mddLYC8GBvxw0oUCpidU9Lf
CWBNc7as+AoKMxOLpidMCEDbervqehUKE1RLngStE8JO2wj3WDUKpebbXn2b
IoSOuNaAVWspfD5ntAseC2F/6/Jz1esojBCZZGg2CsHHrjbjuwaFZePG3h8m
hRDlICmy2UKh82K51S1OIpiTZP+1T4fClqqD4hk+IkgS3vwZjiT/wsMpfREi
yHMymvtIj0JckNg9elcElbsvms4zpvCz+7Uyn98iCBZeGYnZQeEaW+ntj4mP
NewSEmebUrhPPu+g32IW8i2yu6ZbkHrN/9y5YyML+xvyI8MtKRxYs9vVxYD4
x/i++lRrUg/ezK6PNizE6JWeGrcl+Q9qhSw7woJxefXS43YUrpUUjLEnWBDf
8qJuxJ7C6C2Z236Gs1DKeX3U25HCO19XPPW+TPyq0T6v34lC462yVfqJxMMP
O3keuyn0/qXbF5DJQp9ql8vnPRSa3Z9o+ZNPPFbQO32fM4X7Hy/UZR8Q/60c
vvPWhULlhGUys7gsLMr9Zb1rH4WBJl7Gl8tZ4DOTY+37KXzpOKHgUsNCdJpE
uq0bhY0xzl9Ov2DBcImUfvNBCg2lzVT6iUfFEmX7zDwobKidlppNvFo8b+HV
F54U3pI5qpLbykLAVUUtw8OkXrESvd+In1Wll3dWe1FYE2qqFk483B25Klz3
KIVfBmad2Uu8nCm5TqXUm0K1+0xyGIl3ndvYtMmXwhVXvvv1k+vni2HAEz/S
L0YRWunEz00h+kvWH6Pw7JMVpsnEzxd/m1TeC6BQs6PW5C2f7AeB1u6rA0m+
wx+me71m4c93h9n5Jyh8arz47Hbi/6c+zkXLgyjk3Qwb9SD7ge+Am2NWMOk3
1agaEdkfVh3ymkKFUHhaWBGZUszC5y9+uSmhJHba9FfhIxbS9580WXiG9F+2
UFG2kAXH96eH48IofGvm3V2fw0KD8JLO5XMUXmr94613jYUIu9hPM/+lMOh0
0PD0C8TT/KSL58+T8/2TmqYSwkJRQ17rmUgK4wolZsa5sXDEuDD4TxSFN6Zu
3vLBgQXl2iImKJrC3u9TTl03IftKecUR/xgKr/suvLZDjYWdW57PHbpKYcCu
CTUzmgUZ7iuuVyypl02627N/WAh/KPrrYAKFuR//0pEfEsGh3NFUhxsUul8w
OlB1i/h56cS21lQK3881CuHFE3+nifVapVP4TilmROesCKwSpTVNsig0GFpz
d9iR7JNRKxt1blG496Rqg62ECB5unBIlyqfQZ8Grur/7hbDqS6thYAGFH7QT
L5rwyf67Nbzy/l0KFXjuTRcyhCD+q/PRsscUWmbMc1LVFMKrfbEpM6oo/E+x
LsHAUgCu2pMerSyFkMSd62bWBqLuluV+nWQe0RefaK1qA5v4go/S7yiMWvNz
S9vfbWAw5LDb6CM577eTvODqVliVV2RR/JX02wOxrAuarfBD1lMz8weFfl1K
sjfmtcCFHr74ERkaf3eMVSc9bQYNvovD4D80vrIZdg2LbYYPJQN3vOfQeEC9
4YS9dzNsipG085tPY6i+6so3ZJ73aW6+FbiExgtRdr5y8a/B7FyW6VllGlM8
elUSvJtgLuUbfx1p3B5Slrbc4CWU/z3Zs3ArjUfFxqW6/nsBh0ciIVmPxjlj
W+SLi17As5qc7hv6NLaNnFcvZV5AgJdgU5YJjVGB7/63a0o9CLj49o49jVpT
y2quVNdCqq20cpU3jTM+xeiNXKwCO8bp62Zfcl7/YYVckyqQGczNf+xH43ST
0j3fZldB2Hmd1fkBNNaoyJ0+EFcJB3hea2OCaawfOSy8nl8BCuc5IzNCaNwR
zet44VMBrTYSj8JDaSw+/OnK640VYDiQohkYRuNsBzb++MtyWEW/3Lz3PI2f
gio27xkvg67+BX/aL9CImyOc+xPKIJW7r8wqkkaJE07fOJplIG3zW1c/msY9
VFW7c0gpPKcMppVfpvHIq4JJN6VSON1/tXpjDI1LVnUtEmssgeEIFYPVsTTG
Zh85ZqVSAretAyTz4mjUaFn/aQNbDPupyjoqgcZ3dyzCZsQUQyvHwWRuEo3L
dl07/mlaMVyOyJkVnUyjkjwqylXywNB66NX0GzTmv6pzTTzLA07fecvfaTQm
Ok/72CHDA18OX/ZYBo1eZovMXrJcUImg+AOZNAb1F3jvKeDCR6vDce7ZNB6s
3fs1L5QLKYpPd37IofGh1U9z3k4u2PZNk9uVR+PM5a5z8tW5MJtjLmi5SZ6v
yd8+XIYLteeSk8zzyfserxfYj3DgtNUXp7rbNG6NP1a3XsiBjYrr5PXu0PjU
8UvR0mccGO4N6SwupNH2yYNDqkUcyH9an6Zxj0YX9bive/M4sO/cfJd792ks
+Fd3Gy+VA0usXBmVhzT2zDO+sT2JA3yFwo9ZRaQeuj5yU0l8qXcsW/4xjWrc
rNb+GxzQf7rdLeEJjd4v80b/zuXAZHjMin84pN94l2ItH3DgqWVH90UujXbc
Ora0kgM+CivzxYtpHFTnShu3cUCl1/9QSAmN3ZF7rn8d5MDHJ+WrfpXSqBPR
Rl2VIvUJlxrwKacx7brebY3VXLCxtL/bW0HjkFrwneeWXJilkO19oIrUq3il
qtZJLtT0DKq/raZxU0r+V79cLoQ80R6xr6Fx6qLNHh6tXPhm8eaYSR2NyQYR
zWt1eXBLXlGzpp5Gw5zOZR1BPHDt8fwFL0m+xJsWAxwe8M+KBa1rpFHyzD2X
XigGkzMK1g1NpB/VxTu6LhVDdcim/x1splGh68x5v7fF8OiEryiphUZPyUUe
r6NKIP7oB20xlsbJ3Dfpe2aVwWyvP3NSOmicsHOfzvMvgwjPRX0b3pJ+cP/m
W9VZBgEHrFI8PtAYcC5xTGN3Odg5VU40ddMY6TCz5aF+BTTZd/I9e0j9gzk9
hWfJ92nneIF4H5k/R/Xfp1ZUgJbl2t1agzTe6BfrWIeVIGeQWZI2SuO82qUy
Sw2qQLg2LOSIGIMDjk4SRf7PwEotdaekOIM70uQUm4qfQf1q7ppMCQZla/s3
OUvUAE95uLNFkiHzvDbvWUINpCi4whZpBo+4Pa6TqaiFPTO2TpFawmD9JgOz
WLoe3r+fGnZrA4NX+cHagVMaIWoxf2iFJoOz350tyjFqBC3bXJdcLQZbDY++
bb7aCNHPjXWztBk8Y89xvyrbBJvvXptyQ5dBq9/3dbjZTRAfrBR6xZRB66ER
24za12C8wCj4+AEGZ+QoHwMxPoxaLO4bdWPQU+rE7/VKfEi/2O/k786gbWwq
X8aQDz//i9H2OcSgnuS1sMBLfMj+JBz39GHwgPzRouH5LTB5//CJPacYbLbl
H+ha2gpFJlcCtscx2H7tZOB7xXYYlEpx/hbP4Mpu7XUXddtBpSHPOPk6gz4F
5raDru2QYVqmMJTMICcrVLk7ux2izQZqUjIZXMCrqHJVEkD97PF7BtkMKrQr
FpdsE4BEo0TycA55vmzrEzX7BBBsLn/U8BaDD1oT2tvTBeBhYbLg+10GK2Xf
B1bOF0K2jP3UtPsMfheUWZkS375r2tdr9JBBiTdyBn7mxLuWQWVpjxk0D1J4
eC5CCNus8g/uKGHw45iRtv+gEEJlH1v+KGXQZWxM/rykCLjNFdoZ5QwGGhXo
KtIiULcWSP+sYpB65Xq/zkIECjaSTzPrGVRZ6a92m/yeO86dm2n6ksET8ZWV
x0pFEMdXjPrVwOAydWm93GYRSNlqOpu9ZrBwtsm8lWMiMJinZzzWzOBe9wXm
fsS7YS1m67P5DCY8H9sxR56FMVs3yfE2BqXdIultOiysn+87nC0g70Nyee1L
Uxa8W0+x5iIG1x6qeJ20i4Xb8RdqxlkGTZZu0Mn3JH7aGXcvp5NBr703F/08
zgKzICPJ4h2DL/7NijxFvLu7rSD893vSr2ccX2+8QjxqV21v2cXgTYHkv9uJ
p6TlmrZOfGbwbKjvumjiLeN20aq8bga/iPG0Jh8TX13/Mt+qh0GpCk5RXCkL
FfYjU/7rZbBx9kIx82csTMhN9uT1M9jd6FmiTDyrJZjRYjXIYOjzT3X///8i
v8T5Zf99Y7Dqe6HtBuLHQgfm1s1hhsz/ux37iS97Fq65Zv2dwdi+Z2qFxJ9K
wo2n/owyqNzr4CtDvOqctP3grZ8MvnmitySSxCmOlpY2Ywz2RQ9PypO4bdFu
7clxBrmJfP068nlZkbtS/gSDqhvGfC6R/GbJ/tK2fxiM0/huf4jc/4LT6bHJ
SQY1Tv6lvJ+c7/8A4j//yw==
        "]]},
      Annotation[#, "Charting`Private`Tag$70929#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.01, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 9.5}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.758335978512257*^9, {3.7583360136597157`*^9, 3.7583360708241587`*^9}, {
   3.758336123190208*^9, 3.758336132324359*^9}, 3.758337172134997*^9, {
   3.758337268795279*^9, 3.7583372933054333`*^9}, 3.758337389109466*^9, {
   3.7583374962262897`*^9, 3.758337545972426*^9}, {3.75833758078413*^9, 
   3.758337612504118*^9}, {3.758337650476082*^9, 3.7583376702028637`*^9}, {
   3.758337703660881*^9, 3.75833770727214*^9}, 
   3.758349662749474*^9},ExpressionUUID->"f435b6d1-f45f-42e0-98ce-\
09422aa21f82"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"zh", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"1", "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"zh", "^", "2"}], " ", 
            RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zs", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
        RowBox[{
         RowBox[{"zh", "^", "2"}], 
         RowBox[{"\[Mu]", "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"zs", "/", "zh"}], ")"}], "^", "4"}]}]}], "]"}], "/", 
      "\[Mu]"}], "/", "zs"}], "/", 
    RowBox[{"(", 
     RowBox[{"zh", "-", "zs"}], ")"}]}]}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[Mu]", "\[Rule]", "1.3"}], ",", 
    RowBox[{"zh", "\[Rule]", "1"}], ",", 
    RowBox[{"zs", "\[Rule]", "0.1"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.758335822384664*^9, 3.758335925031382*^9}, {
  3.758338840676272*^9, 
  3.758338841522085*^9}},ExpressionUUID->"9dd22aac-e260-4c5f-823f-\
96d73a00c117"],

Cell[BoxData["8.536228244161668`"], "Output",
 CellChangeTimes->{
  3.7583388425741863`*^9},ExpressionUUID->"413fd7c3-7337-4e88-bb0c-\
f35af14810d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm", ",", "zm1", ",", "t", ",", "fz", ",", "pz", ",", "B", 
     ",", "C1", ",", "A"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fz", "[", 
      RowBox[{"zh_", ",", "\[Mu]_", ",", "z_"}], "]"}], ":=", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"zh", "^", "2"}], 
          RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
      RowBox[{
       RowBox[{"zh", "^", "2"}], 
       RowBox[{"\[Mu]", "^", "2"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "4"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{"\[Mu]_", ",", "zh_", ",", "zs_"}], "]"}], ":=", 
     RowBox[{"zh", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{
               RowBox[{"zh", "^", "2"}], " ", 
               RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
           RowBox[{
            RowBox[{"zh", "^", "2"}], 
            RowBox[{"\[Mu]", "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "4"}]}]}], "]"}], "/", 
         "\[Mu]"}], "/", "zs"}], "/", 
       RowBox[{"(", 
        RowBox[{"zh", "-", "zs"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{"q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], "]"}], ":=", 
     
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"q", " ", "\[Mu]"}], "zh"]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["zh", "3"], " ", 
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"3", "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["zh", "2"], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "-", 
                 RowBox[{"4", " ", "zh", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"zh", "-", 
                  RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["zh", "2"], "+", 
                  RowBox[{"zh", " ", 
                   RowBox[{"z", "[", "t", "]"}]}], "+", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                  RowBox[{"zh", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"], " ", 
               
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["z", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "-", 
            FractionBox[
             RowBox[{
              RowBox[{"z", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "3"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "zh", " ", 
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 RowBox[{"z", "[", "t", "]"}]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["zh", "6"], " ", 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]]}], 
               ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["zh", "3"], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            FractionBox[
             SqrtBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "3"]}], 
                SuperscriptBox["zh", "3"]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "4"]}], 
                SuperscriptBox["zh", "2"]], "-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["z", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"], 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}]]}]], 
             SuperscriptBox[
              RowBox[{"z", "[", "t", "]"}], "2"]], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["z", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"z", "[", "t", "]"}], "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "5"]}], 
                 SuperscriptBox["zh", "2"]]}], ")"}], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], 
                   SuperscriptBox["zh", "3"]]}], "+", 
                 FractionBox[
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["zh", "3"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]], 
                 "-", 
                 FractionBox[
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"z", "[", "t", "]"}], "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "5"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]], "-", 
                  FractionBox[
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}], ",", 
            RowBox[{"zh", "\[Rule]", "zh1"}], ",", 
            RowBox[{"q", "\[Rule]", "q1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "8.5"}], "}"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], "[", 
      "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pz", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"zm", "[", 
         RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
         "]"}]}], "/", 
       RowBox[{"fz", "[", 
        RowBox[{"zh1", ",", "\[Mu]1", ",", 
         RowBox[{"zm", "[", 
          RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
          "]"}]}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zm1", "[", 
             RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], 
            "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"fz", "[", 
          RowBox[{"zh1", ",", "\[Mu]1", ",", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "]"}], "-", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", 
             RowBox[{"zm", "[", 
              RowBox[{
              "t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
              "]"}]}], "]"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"zm1", "[", 
                 RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}],
                 "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
             RowBox[{"{", 
              RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "^", "2"}]}]}], 
        "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.01", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"0.01", ",", "0", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.1", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"0.1", ",", "0", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"1", ",", "0", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"2", ",", "0", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"3", ",", "0", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}], "]"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.01", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"0.01", ",", 
               RowBox[{"0.8", "*", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
               ",", "1", ",", "0.1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.1", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"0.1", ",", 
               RowBox[{"0.8", "*", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
               ",", "1", ",", "0.1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"1", ",", 
               RowBox[{"0.8", "*", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
               ",", "1", ",", "0.1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"2", ",", 
               RowBox[{"0.8", "*", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
               ",", "1", ",", "0.1"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"3", ",", 
               RowBox[{"0.8", "*", 
                RowBox[{"qcrit", "[", 
                 RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
               ",", "1", ",", "0.1"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.01", ",", 
           RowBox[{"Log", "[", 
            RowBox[{"pz", "[", 
             RowBox[{"0.01", ",", 
              RowBox[{"qcrit", "[", 
               RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}], ",", "1.3", ",", 
              "1", ",", "0.1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.1", ",", 
           RowBox[{"Log", "[", 
            RowBox[{"pz", "[", 
             RowBox[{"0.1", ",", 
              RowBox[{"qcrit", "[", 
               RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}], ",", "1.3", ",", 
              "1", ",", "0.1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", 
           RowBox[{"Log", "[", 
            RowBox[{"pz", "[", 
             RowBox[{"1", ",", 
              RowBox[{"qcrit", "[", 
               RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}], ",", "1.3", ",", 
              "1", ",", "0.1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"Log", "[", 
            RowBox[{"pz", "[", 
             RowBox[{"2", ",", 
              RowBox[{"qcrit", "[", 
               RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}], ",", "1.3", ",", 
              "1", ",", "0.1"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", 
           RowBox[{"Log", "[", 
            RowBox[{"pz", "[", 
             RowBox[{"3", ",", 
              RowBox[{"qcrit", "[", 
               RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}], ",", "1.3", ",", 
              "1", ",", "0.1"}], "]"}], "]"}]}], "}"}]}], "}"}], "]"}], 
      "\[IndentingNewLine]", ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", 
         RowBox[{"Log", " ", "P"}]}], "}"}]}]}], "\[IndentingNewLine]", 
     "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.758343224238956*^9, 3.758343273974762*^9}, {
   3.758343332120576*^9, 3.758343403992818*^9}, {3.7583434398397017`*^9, 
   3.758343488992217*^9}, {3.758343530243327*^9, 3.758343638926407*^9}, {
   3.758343823228941*^9, 3.7583441119054537`*^9}, {3.758344248414299*^9, 
   3.758344256930262*^9}, {3.7583443075314627`*^9, 3.758344320156252*^9}, {
   3.7583443856541033`*^9, 3.758344410183161*^9}, {3.758347706737296*^9, 
   3.758347812780993*^9}, {3.758347852889414*^9, 3.758348071348115*^9}, {
   3.758348104398122*^9, 3.758348349489338*^9}, {3.7583485146747417`*^9, 
   3.758348534312254*^9}, {3.758348594264333*^9, 3.758348622099073*^9}, {
   3.758348659083726*^9, 3.7583491007946587`*^9}, {3.758349132147869*^9, 
   3.7583491907290907`*^9}, {3.758349295563223*^9, 3.758349302415763*^9}, {
   3.758360600016971*^9, 3.758360605503346*^9}, 3.758360660789173*^9, {
   3.758360720239684*^9, 
   3.758360735483035*^9}},ExpressionUUID->"537d5bfa-a1d1-4dc0-9275-\
9746caa28346"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[{{0.01, -0.002500551546781203}, {0.1, 
       1.9629257534479243`}, {1., 3.274755360219913}, {2., 
       4.893983633461368}, {3., 
       6.325712619702134}}]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[{{0.01, -0.09508913453819155}, {0.1, 
       1.8647371241547488`}, {1., 2.343654089148031}, {2., 
       3.4439736003391843`}, {3., 
       4.705573445946524}}]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      LineBox[{{0.01, -0.11964491357672477`}, {0.1, 1.8388751638586853`}, {1.,
        1.8881795196347353`}, {2., 1.9349313361727447`}, {3., 
       1.7027037050365375`}}]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"Log", " ", "P"}], TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 3.}, {-0.002500551546781203, 6.325712619702134}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.758348340999936*^9, 3.758348352766947*^9}, 
   3.758348541502296*^9, {3.758348617118734*^9, 3.758348638302442*^9}, {
   3.7583486936737833`*^9, 3.7583487575379753`*^9}, {3.758348817284387*^9, 
   3.758348826965624*^9}, 3.758348888743482*^9, 3.75834895133624*^9, 
   3.7583489821102*^9, 3.7583490633368483`*^9, 3.758349104425662*^9, 
   3.7583491626404657`*^9, 3.758349194065769*^9, 3.7583493055697517`*^9, 
   3.75836060790345*^9, 3.758360664760994*^9, 
   3.758360738085494*^9},ExpressionUUID->"c7e0bd75-aa35-4a25-8eea-\
25c5800f173f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm", ",", "zm1", ",", "t", ",", "fz", ",", "pz", ",", "B", 
     ",", "C1", ",", "A"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fz", "[", 
      RowBox[{"zh_", ",", "\[Mu]_", ",", "z_"}], "]"}], ":=", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"zh", "^", "2"}], 
          RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
      RowBox[{
       RowBox[{"zh", "^", "2"}], 
       RowBox[{"\[Mu]", "^", "2"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "4"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{"\[Mu]_", ",", "zh_", ",", "zs_"}], "]"}], ":=", 
     RowBox[{"zh", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{
               RowBox[{"zh", "^", "2"}], " ", 
               RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
           RowBox[{
            RowBox[{"zh", "^", "2"}], 
            RowBox[{"\[Mu]", "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "4"}]}]}], "]"}], "/", 
         "\[Mu]"}], "/", "zs"}], "/", 
       RowBox[{"(", 
        RowBox[{"zh", "-", "zs"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{"q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], "]"}], ":=", 
     
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"q", " ", "\[Mu]"}], "zh"]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["zh", "3"], " ", 
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"3", "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["zh", "2"], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "-", 
                 RowBox[{"4", " ", "zh", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"zh", "-", 
                  RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["zh", "2"], "+", 
                  RowBox[{"zh", " ", 
                   RowBox[{"z", "[", "t", "]"}]}], "+", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                  RowBox[{"zh", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"], " ", 
               
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["z", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "-", 
            FractionBox[
             RowBox[{
              RowBox[{"z", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "3"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "zh", " ", 
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 RowBox[{"z", "[", "t", "]"}]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["zh", "6"], " ", 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]]}], 
               ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["zh", "3"], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            FractionBox[
             SqrtBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "3"]}], 
                SuperscriptBox["zh", "3"]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "4"]}], 
                SuperscriptBox["zh", "2"]], "-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["z", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"], 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}]]}]], 
             SuperscriptBox[
              RowBox[{"z", "[", "t", "]"}], "2"]], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["z", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"z", "[", "t", "]"}], "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "5"]}], 
                 SuperscriptBox["zh", "2"]]}], ")"}], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], 
                   SuperscriptBox["zh", "3"]]}], "+", 
                 FractionBox[
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["zh", "3"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]], 
                 "-", 
                 FractionBox[
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"z", "[", "t", "]"}], "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "5"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]], "-", 
                  FractionBox[
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}], ",", 
            RowBox[{"zh", "\[Rule]", "zh1"}], ",", 
            RowBox[{"q", "\[Rule]", "q1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "8.5"}], "}"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], "[", 
      "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pz", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"zm", "[", 
         RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
         "]"}]}], "/", 
       RowBox[{"fz", "[", 
        RowBox[{"zh1", ",", "\[Mu]1", ",", 
         RowBox[{"zm", "[", 
          RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
          "]"}]}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zm1", "[", 
             RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], 
            "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"fz", "[", 
          RowBox[{"zh1", ",", "\[Mu]1", ",", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "]"}], "-", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", 
             RowBox[{"zm", "[", 
              RowBox[{
              "t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
              "]"}]}], "]"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"zm1", "[", 
                 RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}],
                 "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
             RowBox[{"{", 
              RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "^", "2"}]}]}], 
        "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.01", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"0.01", ",", 
              RowBox[{"1.2", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"0.1", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"0.1", ",", 
              RowBox[{"1.2", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"0.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"0.5", ",", 
              RowBox[{"1.2", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"1", ",", 
              RowBox[{"1.2", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"1.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"1.5", ",", 
              RowBox[{"1.2", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"2", ",", 
              RowBox[{"1.2", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"2.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"2.5", ",", 
              RowBox[{"1.2", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"3", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"3", ",", 
              RowBox[{"1.2", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"3.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"3.5", ",", 
              RowBox[{"1.2", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"4", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"4", ",", 
              RowBox[{"1.2", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"4.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"4.5", ",", 
              RowBox[{"1.2", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"5", ",", 
              RowBox[{"1.2", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}]}], "\[IndentingNewLine]",
          "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.01", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"0.01", ",", 
              RowBox[{"2.3", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"0.1", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"0.1", ",", 
              RowBox[{"2.3", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"0.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"0.5", ",", 
              RowBox[{"2.3", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"1", ",", 
              RowBox[{"2.3", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"1.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"1.5", ",", 
              RowBox[{"2.3", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"2", ",", 
              RowBox[{"2.3", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"2.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"2.5", ",", 
              RowBox[{"2.3", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"3", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"3", ",", 
              RowBox[{"2.3", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"3.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"3.5", ",", 
              RowBox[{"2.3", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"4", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"4", ",", 
              RowBox[{"2.3", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"4.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"4.5", ",", 
              RowBox[{"2.3", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"5", ",", 
              RowBox[{"2.3", 
               RowBox[{"qcrit", "[", 
                RowBox[{"1.3", ",", "1", ",", "0.1"}], "]"}]}], ",", "1.3", 
              ",", "1", ",", "0.1"}], "]"}]}], "}"}]}], "\[IndentingNewLine]",
          "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "P"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQ3b6Uvb2C4Y2jg6F9L4g+dLt5CojWOlo/F0Rfu/dr
IYi2OyC/AkSHnXRfC6IVlt7dBaJrgp9fBNFVP/98BdEfHHnZK4H01iOyHCB6
H2MhH4hmYWAVANFZ70wkQHTJHVdpEP1uevj2KiD99O+MIyBapGzOSRB9SPn1
ExCdtZfnJYhesWI9ezXIvumhMiD6z9+TciA6q9RDDUTP1j6sCaIfrU3SA9E3
cmemguiI3S2ZIHpbyPUCEP2G9VMtiH7ne7YORDsZvOsA0ctvcUwGywtozADR
LSnbwfS674sXgOheZ9aFIFrq2LWzDUD6SkHKaxBdYbSOtRFI64SGsYFo1YV/
uEH0U+kIPhANAB2Go7M=
  
  "],ExpressionUUID->"e817f43d-9380-4b2d-8c82-16057bb4bb3c"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[{{0.01, 0.8651773557610942}, {0.1, 6.125341278895833}, {
       0.5, 5.927552534661706}, {1., 2.958186609553074}, {
       1.5, -1.8253802423226648`}, {2., -5.194637178488597}, {
       2.5, -6.857185983453261}, {3., 6.680564892803214}, {3.5, 
       3.8937587797292705`}, {4., -0.4867242583855854}, {
       4.5, -4.448939443125385}, {
       5., -7.130223772687428}}]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[{{0.01, 0.7438303100487726}, {0.1, 5.233999066989098}, {
       0.5, 1.027832792224147}, {1., -5.450494615181853}, {1.5, 
       3.0246492593070666`}, {2., -5.46914107961489}, {2.5, 
       4.794045169553265}, {3., -3.95322726257603}, {3.5, 
       5.8139539289899105`}, {4., -2.0409309386104577`}, {4.5, 
       3.6488025350466633`}, {5., 
       0.0010033819383245934`}}]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["P", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 5.}, {-7.130223772687428, 6.680564892803214}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7583495887329817`*^9, 3.7583604224003477`*^9, 3.758360631521728*^9, {
   3.758360676256016*^9, 
   3.758360696232399*^9}},ExpressionUUID->"661b6ae6-3389-4360-a4f4-\
5ea348ca20e6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm", ",", "zm1", ",", "t", ",", "fz", ",", "pz", ",", "B", 
     ",", "C1", ",", "A", ",", "z", ",", "pz1"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fz", "[", 
      RowBox[{"zh_", ",", "\[Mu]_", ",", "z_"}], "]"}], ":=", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"zh", "^", "2"}], 
          RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
      RowBox[{
       RowBox[{"zh", "^", "2"}], 
       RowBox[{"\[Mu]", "^", "2"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "4"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{"\[Mu]_", ",", "zh_", ",", "zs_"}], "]"}], ":=", 
     RowBox[{"zh", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{
               RowBox[{"zh", "^", "2"}], " ", 
               RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
           RowBox[{
            RowBox[{"zh", "^", "2"}], 
            RowBox[{"\[Mu]", "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "4"}]}]}], "]"}], "/", 
         "\[Mu]"}], "/", "zs"}], "/", 
       RowBox[{"(", 
        RowBox[{"zh", "-", "zs"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{"q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], "]"}], ":=", 
     
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"q", " ", "\[Mu]"}], "zh"]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["zh", "3"], " ", 
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"3", "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["zh", "2"], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "-", 
                 RowBox[{"4", " ", "zh", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"zh", "-", 
                  RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["zh", "2"], "+", 
                  RowBox[{"zh", " ", 
                   RowBox[{"z", "[", "t", "]"}]}], "+", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                  RowBox[{"zh", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"], " ", 
               
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["z", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "-", 
            FractionBox[
             RowBox[{
              RowBox[{"z", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "3"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "zh", " ", 
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 RowBox[{"z", "[", "t", "]"}]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["zh", "6"], " ", 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]]}], 
               ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["zh", "3"], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            FractionBox[
             SqrtBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "3"]}], 
                SuperscriptBox["zh", "3"]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "4"]}], 
                SuperscriptBox["zh", "2"]], "-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["z", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"], 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}]]}]], 
             SuperscriptBox[
              RowBox[{"z", "[", "t", "]"}], "2"]], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["z", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"z", "[", "t", "]"}], "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "5"]}], 
                 SuperscriptBox["zh", "2"]]}], ")"}], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], 
                   SuperscriptBox["zh", "3"]]}], "+", 
                 FractionBox[
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["zh", "3"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]], 
                 "-", 
                 FractionBox[
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"z", "[", "t", "]"}], "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "5"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]], "-", 
                  FractionBox[
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}], ",", 
            RowBox[{"zh", "\[Rule]", "zh1"}], ",", 
            RowBox[{"q", "\[Rule]", "q1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "8.5"}], "}"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], "[", 
      "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pz", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"zm", "[", 
         RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
         "]"}]}], "/", 
       RowBox[{"fz", "[", 
        RowBox[{"zh1", ",", "\[Mu]1", ",", 
         RowBox[{"zm", "[", 
          RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
          "]"}]}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zm1", "[", 
             RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], 
            "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"fz", "[", 
          RowBox[{"zh1", ",", "\[Mu]1", ",", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "]"}], "-", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", 
             RowBox[{"zm", "[", 
              RowBox[{
              "t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
              "]"}]}], "]"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"zm1", "[", 
                 RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}],
                 "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
             RowBox[{"{", 
              RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "^", "2"}]}]}], 
        "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pz1", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", "z"}], "]"}], ",", "z"}], 
          "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"z", "\[Rule]", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "}"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"zm", "[", 
         RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
         "]"}]}], "/", 
       RowBox[{"fz", "[", 
        RowBox[{"zh1", ",", "\[Mu]1", ",", 
         RowBox[{"zm", "[", 
          RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
          "]"}]}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zm1", "[", 
             RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], 
            "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"fz", "[", 
          RowBox[{"zh1", ",", "\[Mu]1", ",", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "]"}], "-", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", 
             RowBox[{"zm", "[", 
              RowBox[{
              "t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
              "]"}]}], "]"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"zm1", "[", 
                 RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}],
                 "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
             RowBox[{"{", 
              RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "^", "2"}]}]}], 
        "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.01", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"0.01", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.1", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"0.1", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"1", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"2", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"pz", "[", 
              RowBox[{"3", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}], "]"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.01", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"Abs", "[", 
              RowBox[{"pz1", "[", 
               RowBox[{"0.01", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], 
               "]"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.1", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"Abs", "[", 
              RowBox[{"pz1", "[", 
               RowBox[{"0.1", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], 
               "]"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"Abs", "[", 
              RowBox[{"pz1", "[", 
               RowBox[{"1", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], 
               "]"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"Abs", "[", 
              RowBox[{"pz1", "[", 
               RowBox[{"2", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], 
               "]"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", 
            RowBox[{"Log", "[", 
             RowBox[{"Abs", "[", 
              RowBox[{"pz1", "[", 
               RowBox[{"3", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], 
               "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], 
      "\[IndentingNewLine]", ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", 
         RowBox[{"Log", " ", "P"}]}], "}"}]}], ",", 
      RowBox[{"MaxRecursion", "\[Rule]", "6"}]}], "\[IndentingNewLine]", 
     "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.758343224238956*^9, 3.758343273974762*^9}, {
   3.758343332120576*^9, 3.758343403992818*^9}, {3.7583434398397017`*^9, 
   3.758343488992217*^9}, {3.758343530243327*^9, 3.758343638926407*^9}, {
   3.758343823228941*^9, 3.7583441119054537`*^9}, {3.758344248414299*^9, 
   3.758344256930262*^9}, {3.7583443075314627`*^9, 3.758344320156252*^9}, {
   3.7583443856541033`*^9, 3.758344410183161*^9}, {3.758347706737296*^9, 
   3.758347812780993*^9}, {3.758347852889414*^9, 3.758348071348115*^9}, {
   3.758348104398122*^9, 3.758348349489338*^9}, {3.7583485146747417`*^9, 
   3.758348534312254*^9}, {3.758348594264333*^9, 3.758348622099073*^9}, {
   3.758348659083726*^9, 3.7583491007946587`*^9}, {3.758349132147869*^9, 
   3.7583491907290907`*^9}, {3.758349295563223*^9, 3.758349302415763*^9}, {
   3.758360600016971*^9, 3.758360605503346*^9}, 3.758360660789173*^9, {
   3.758360720239684*^9, 3.758360735483035*^9}, {3.758449621027055*^9, 
   3.758449760282563*^9}, {3.758449842384124*^9, 3.7584499225345783`*^9}, {
   3.758449987403983*^9, 3.75845012150637*^9}, {3.758450429535767*^9, 
   3.75845043526964*^9}},ExpressionUUID->"e15bedd0-fc0a-4ef7-8f9b-\
bf85e1ef3102"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[{{0.01, -0.05568488845968178}, {0.1, 
       1.9063917421309549`}, {1., 2.829578410554038}, {2., 
       4.2912445059501305`}, {3., 
       5.672954581144393}}]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[{{0.01, 2.5398242641640953`}, {0.1, 
       3.8812227190068187`}, {1., 2.3028753082527933`}, {2., 
       3.8861155851672624`}, {3., 5.3618691113331325`}}]}}, {}, {}, {}, {}}},
  MaxRecursion -> 6,
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"Log", " ", "P"}], TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 3.}, {-0.05568488845968178, 5.672954581144393}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.758449697249981*^9, 3.7584497305262203`*^9}, 
   3.7584497624549847`*^9, 3.758449849293662*^9, {3.7584498981974697`*^9, 
   3.758449924299553*^9}, 3.758450006174787*^9, 3.758450123718966*^9, 
   3.758450437305049*^9},ExpressionUUID->"bbfa247f-1ba7-4c7c-b16b-\
e434466f78bf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm", ",", "zm1", ",", "t", ",", "fz", ",", "pz", ",", "B", 
     ",", "C1", ",", "A", ",", "z", ",", "pz1"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fz", "[", 
      RowBox[{"zh_", ",", "\[Mu]_", ",", "z_"}], "]"}], ":=", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"zh", "^", "2"}], 
          RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
      RowBox[{
       RowBox[{"zh", "^", "2"}], 
       RowBox[{"\[Mu]", "^", "2"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "4"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{"\[Mu]_", ",", "zh_", ",", "zs_"}], "]"}], ":=", 
     RowBox[{"zh", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{
               RowBox[{"zh", "^", "2"}], " ", 
               RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
           RowBox[{
            RowBox[{"zh", "^", "2"}], 
            RowBox[{"\[Mu]", "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "4"}]}]}], "]"}], "/", 
         "\[Mu]"}], "/", "zs"}], "/", 
       RowBox[{"(", 
        RowBox[{"zh", "-", "zs"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{"q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], "]"}], ":=", 
     
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"q", " ", "\[Mu]"}], "zh"]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["zh", "3"], " ", 
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"3", "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["zh", "2"], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "-", 
                 RowBox[{"4", " ", "zh", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"zh", "-", 
                  RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["zh", "2"], "+", 
                  RowBox[{"zh", " ", 
                   RowBox[{"z", "[", "t", "]"}]}], "+", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                  RowBox[{"zh", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"], " ", 
               
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["z", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "-", 
            FractionBox[
             RowBox[{
              RowBox[{"z", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "3"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "zh", " ", 
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 RowBox[{"z", "[", "t", "]"}]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["zh", "6"], " ", 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]]}], 
               ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["zh", "3"], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            FractionBox[
             SqrtBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "3"]}], 
                SuperscriptBox["zh", "3"]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "4"]}], 
                SuperscriptBox["zh", "2"]], "-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["z", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"], 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}]]}]], 
             SuperscriptBox[
              RowBox[{"z", "[", "t", "]"}], "2"]], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["z", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"z", "[", "t", "]"}], "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "5"]}], 
                 SuperscriptBox["zh", "2"]]}], ")"}], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], 
                   SuperscriptBox["zh", "3"]]}], "+", 
                 FractionBox[
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["zh", "3"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]], 
                 "-", 
                 FractionBox[
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"z", "[", "t", "]"}], "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "5"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]], "-", 
                  FractionBox[
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}], ",", 
            RowBox[{"zh", "\[Rule]", "zh1"}], ",", 
            RowBox[{"q", "\[Rule]", "q1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "8.5"}], "}"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], "[", 
      "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pz", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"zm", "[", 
         RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
         "]"}]}], "/", 
       RowBox[{"fz", "[", 
        RowBox[{"zh1", ",", "\[Mu]1", ",", 
         RowBox[{"zm", "[", 
          RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
          "]"}]}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zm1", "[", 
             RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], 
            "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"fz", "[", 
          RowBox[{"zh1", ",", "\[Mu]1", ",", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "]"}], "-", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", 
             RowBox[{"zm", "[", 
              RowBox[{
              "t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
              "]"}]}], "]"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"zm1", "[", 
                 RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}],
                 "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
             RowBox[{"{", 
              RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "^", "2"}]}]}], 
        "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pz1", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", "z"}], "]"}], ",", "z"}], 
          "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"z", "\[Rule]", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "}"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"zm", "[", 
         RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
         "]"}]}], "/", 
       RowBox[{"fz", "[", 
        RowBox[{"zh1", ",", "\[Mu]1", ",", 
         RowBox[{"zm", "[", 
          RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
          "]"}]}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zm1", "[", 
             RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], 
            "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"fz", "[", 
          RowBox[{"zh1", ",", "\[Mu]1", ",", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "]"}], "-", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", 
             RowBox[{"zm", "[", 
              RowBox[{
              "t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
              "]"}]}], "]"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"zm1", "[", 
                 RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}],
                 "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
             RowBox[{"{", 
              RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "^", "2"}]}]}], 
        "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"pz1", "[", 
        RowBox[{"i", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0.01", ",", "5", ",", "0.1"}], "}"}]}], "]"}], 
     "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.763433205175757*^9, 
  3.763433281766707*^9}},ExpressionUUID->"c00ee9f1-9e67-4444-a83b-\
73e7ab9fca86"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "12.677442894039025`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "46.302213274087364`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "25.18100785858897`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "15.180455144348155`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "10.815366437362252`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "8.834871041130787`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "8.025163173603064`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "7.901478268227991`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "8.258323611083132`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "9.010632407883724`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "10.131529089849037`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "11.625621021453123`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "13.516688058954136`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "15.841672266002153`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "18.648240036770037`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "21.993908115969447`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "25.943129318139185`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "30.57449946579937`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "35.97495572881738`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "42.24338799026471`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "49.49405431575526`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "57.85658084293476`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "67.47836819150875`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "78.52926905675658`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "91.19851219722547`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "105.70945290990983`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "122.31469406532423`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "141.29093453934323`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "163.0055359693613`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "187.73009994466454`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "216.16893964711448`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "248.31554337650684`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "285.1947105499242`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "327.50935428356274`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "375.06668950208933`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "429.8422725074982`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "492.18671703389106`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "563.0760825498089`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "644.1875226870619`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "736.4562046796759`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "842.9893036055379`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "950.8107855251653`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1071.2101326995958`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1229.5180557543304`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1403.1003558604136`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1609.5739579936633`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "1833.4037084333006`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2105.757128826066`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2310.0496526345314`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ",", 
   RowBox[{
    RowBox[{"-", "2579.7141495699802`"}], "+", 
    RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Print",
 CellChangeTimes->{{3.763433239312866*^9, 
  3.763433288819371*^9}},ExpressionUUID->"6bcdb765-9b4c-4799-bed8-\
24e94bb72f10"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm", ",", "zm1", ",", "t", ",", "fz", ",", "pz", ",", "B", 
     ",", "C1", ",", "A", ",", "z", ",", "pz1"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fz", "[", 
      RowBox[{"zh_", ",", "\[Mu]_", ",", "z_"}], "]"}], ":=", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"zh", "^", "2"}], 
          RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
      RowBox[{
       RowBox[{"zh", "^", "2"}], 
       RowBox[{"\[Mu]", "^", "2"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "4"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{"\[Mu]_", ",", "zh_", ",", "zs_"}], "]"}], ":=", 
     RowBox[{"zh", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{
               RowBox[{"zh", "^", "2"}], " ", 
               RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
           RowBox[{
            RowBox[{"zh", "^", "2"}], 
            RowBox[{"\[Mu]", "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "4"}]}]}], "]"}], "/", 
         "\[Mu]"}], "/", "zs"}], "/", 
       RowBox[{"(", 
        RowBox[{"zh", "-", "zs"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{"q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], "]"}], ":=", 
     
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"q", " ", "\[Mu]"}], "zh"]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["zh", "3"], " ", 
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"3", "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["zh", "2"], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "-", 
                 RowBox[{"4", " ", "zh", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"zh", "-", 
                  RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["zh", "2"], "+", 
                  RowBox[{"zh", " ", 
                   RowBox[{"z", "[", "t", "]"}]}], "+", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                  RowBox[{"zh", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"], " ", 
               
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["z", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "-", 
            FractionBox[
             RowBox[{
              RowBox[{"z", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "3"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "zh", " ", 
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 RowBox[{"z", "[", "t", "]"}]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["zh", "6"], " ", 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]]}], 
               ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["zh", "3"], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            FractionBox[
             SqrtBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "3"]}], 
                SuperscriptBox["zh", "3"]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "4"]}], 
                SuperscriptBox["zh", "2"]], "-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["z", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"], 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}]]}]], 
             SuperscriptBox[
              RowBox[{"z", "[", "t", "]"}], "2"]], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["z", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"z", "[", "t", "]"}], "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "5"]}], 
                 SuperscriptBox["zh", "2"]]}], ")"}], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], 
                   SuperscriptBox["zh", "3"]]}], "+", 
                 FractionBox[
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["zh", "3"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]], 
                 "-", 
                 FractionBox[
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"z", "[", "t", "]"}], "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "5"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]], "-", 
                  FractionBox[
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}], ",", 
            RowBox[{"zh", "\[Rule]", "zh1"}], ",", 
            RowBox[{"q", "\[Rule]", "q1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "8.5"}], "}"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], "[", 
      "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pz", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"zm", "[", 
         RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
         "]"}]}], "/", 
       RowBox[{"fz", "[", 
        RowBox[{"zh1", ",", "\[Mu]1", ",", 
         RowBox[{"zm", "[", 
          RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
          "]"}]}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zm1", "[", 
             RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], 
            "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"fz", "[", 
          RowBox[{"zh1", ",", "\[Mu]1", ",", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "]"}], "-", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", 
             RowBox[{"zm", "[", 
              RowBox[{
              "t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
              "]"}]}], "]"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"zm1", "[", 
                 RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}],
                 "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
             RowBox[{"{", 
              RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "^", "2"}]}]}], 
        "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pz1", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", "z"}], "]"}], ",", "z"}], 
          "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"z", "\[Rule]", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "}"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"zm", "[", 
         RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
         "]"}]}], "/", 
       RowBox[{"fz", "[", 
        RowBox[{"zh1", ",", "\[Mu]1", ",", 
         RowBox[{"zm", "[", 
          RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
          "]"}]}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zm1", "[", 
             RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], 
            "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"fz", "[", 
          RowBox[{"zh1", ",", "\[Mu]1", ",", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "]"}], "-", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", 
             RowBox[{"zm", "[", 
              RowBox[{
              "t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
              "]"}]}], "]"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"zm1", "[", 
                 RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}],
                 "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
             RowBox[{"{", 
              RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "^", "2"}]}]}], 
        "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"pz", "[", 
      RowBox[{"0.01", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], "]"}], 
     "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"Abs", "[", 
      RowBox[{"pz", "[", 
       RowBox[{"0.01", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], "]"}], 
      "]"}], "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"pz1", "[", 
      RowBox[{"0.01", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], "]"}], 
     "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"Abs", "[", 
      RowBox[{"pz1", "[", 
       RowBox[{"0.01", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], "]"}], 
      "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.758343224238956*^9, 3.758343273974762*^9}, {
   3.758343332120576*^9, 3.758343403992818*^9}, {3.7583434398397017`*^9, 
   3.758343488992217*^9}, {3.758343530243327*^9, 3.758343638926407*^9}, {
   3.758343823228941*^9, 3.7583441119054537`*^9}, {3.758344248414299*^9, 
   3.758344256930262*^9}, {3.7583443075314627`*^9, 3.758344320156252*^9}, {
   3.7583443856541033`*^9, 3.758344410183161*^9}, {3.758347706737296*^9, 
   3.758347812780993*^9}, {3.758347852889414*^9, 3.758348071348115*^9}, {
   3.758348104398122*^9, 3.758348349489338*^9}, {3.7583485146747417`*^9, 
   3.758348534312254*^9}, {3.758348594264333*^9, 3.758348622099073*^9}, {
   3.758348659083726*^9, 3.7583491007946587`*^9}, {3.758349132147869*^9, 
   3.7583491907290907`*^9}, {3.758349295563223*^9, 3.758349302415763*^9}, {
   3.758360600016971*^9, 3.758360605503346*^9}, 3.758360660789173*^9, {
   3.758360720239684*^9, 3.758360735483035*^9}, {3.758449621027055*^9, 
   3.758449760282563*^9}, {3.758449842384124*^9, 3.7584499225345783`*^9}, {
   3.758449987403983*^9, 3.75845012150637*^9}, {3.758450429535767*^9, 
   3.75845043526964*^9}, {3.7633453052920218`*^9, 3.763345363167647*^9}, {
   3.763345421591392*^9, 
   3.763345458655086*^9}},ExpressionUUID->"33e83e55-7b42-4287-99dc-\
5a0e7b658111"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"0.945837133132657`", "\[VeryThinSpace]", "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{
  3.763345364583704*^9, {3.763345432463928*^9, 
   3.763345459494038*^9}},ExpressionUUID->"fb672f8b-f989-4a29-9b59-\
37048d0bd89c"],

Cell[BoxData["0.945837133132657`"], "Print",
 CellChangeTimes->{
  3.763345364583704*^9, {3.763345432463928*^9, 
   3.763345459627522*^9}},ExpressionUUID->"898247e5-2f43-4dd7-a31b-\
6d090dc86483"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "12.677442894039025`"}], "+", 
  RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]], "Print",
 CellChangeTimes->{
  3.763345364583704*^9, {3.763345432463928*^9, 
   3.763345459773529*^9}},ExpressionUUID->"bd76bd8e-805b-4a98-911d-\
1572379b76a3"],

Cell[BoxData["12.677442894039025`"], "Print",
 CellChangeTimes->{
  3.763345364583704*^9, {3.763345432463928*^9, 
   3.763345459923345*^9}},ExpressionUUID->"8f64f2e2-1321-4631-94ee-\
0c156d88a9b9"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "qcrit", ",", "zm", ",", "zm1", ",", "t", ",", "fz", ",", "pz", ",", "B", 
     ",", "C1", ",", "A", ",", "z", ",", "pz1"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fz", "[", 
      RowBox[{"zh_", ",", "\[Mu]_", ",", "z_"}], "]"}], ":=", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"zh", "^", "2"}], 
          RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
      RowBox[{
       RowBox[{"zh", "^", "2"}], 
       RowBox[{"\[Mu]", "^", "2"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"z", "/", "zh"}], ")"}], "^", "4"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"qcrit", "[", 
      RowBox[{"\[Mu]_", ",", "zh_", ",", "zs_"}], "]"}], ":=", 
     RowBox[{"zh", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{
               RowBox[{"zh", "^", "2"}], " ", 
               RowBox[{"\[Mu]", "^", "2"}]}]}], ")"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "3"}]}], "+", 
           RowBox[{
            RowBox[{"zh", "^", "2"}], 
            RowBox[{"\[Mu]", "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"zs", "/", "zh"}], ")"}], "^", "4"}]}]}], "]"}], "/", 
         "\[Mu]"}], "/", "zs"}], "/", 
       RowBox[{"(", 
        RowBox[{"zh", "-", "zs"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm1", "[", 
      RowBox[{"q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], "]"}], ":=", 
     
     RowBox[{"NDSolveValue", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"q", " ", "\[Mu]"}], "zh"]}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["zh", "3"], " ", 
               RowBox[{"z", "[", "t", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"3", "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["zh", "2"], " ", 
                  SuperscriptBox["\[Mu]", "2"]}], "-", 
                 RowBox[{"4", " ", "zh", " ", 
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
             "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"zh", "-", 
                  RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["zh", "2"], "+", 
                  RowBox[{"zh", " ", 
                   RowBox[{"z", "[", "t", "]"}]}], "+", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                  RowBox[{"zh", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"], " ", 
               
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["z", "\[Prime]",
                MultilineFunction->None], "[", "t", "]"}], "2"], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"z", "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SqrtBox[
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}]]}], ")"}]}], "-", 
            FractionBox[
             RowBox[{
              RowBox[{"z", "[", "t", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "3"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}]}], "+", 
                RowBox[{"4", " ", "zh", " ", 
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 RowBox[{"z", "[", "t", "]"}]}], "-", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["zh", "6"], " ", 
                  RowBox[{"(", 
                   RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]]}], 
               ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["zh", "3"], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            FractionBox[
             SqrtBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "3"]}], 
                SuperscriptBox["zh", "3"]], "+", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[Mu]", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"z", "[", "t", "]"}], "4"]}], 
                SuperscriptBox["zh", "2"]], "-", 
               FractionBox[
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["z", "\[Prime]",
                   MultilineFunction->None], "[", "t", "]"}], "2"], 
                RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "2"]]}]]}]], 
             SuperscriptBox[
              RowBox[{"z", "[", "t", "]"}], "2"]], "-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["z", "\[Prime]\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"z", "[", "t", "]"}], "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "5"]}], 
                 SuperscriptBox["zh", "2"]]}], ")"}], " ", 
              SqrtBox[
               RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "3"]}], 
                 SuperscriptBox["zh", "3"]], "+", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[Mu]", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"z", "[", "t", "]"}], "4"]}], 
                 SuperscriptBox["zh", "2"]], "-", 
                FractionBox[
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]]}]]}]]}]], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["z", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"3", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"]}], 
                   SuperscriptBox["zh", "3"]]}], "+", 
                 FractionBox[
                  RowBox[{"4", " ", 
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                  SuperscriptBox["zh", "2"]], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["zh", "3"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], " ", 
                   RowBox[{"(", 
                    RowBox[{"3", "+", 
                    RowBox[{"3", " ", 
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}], "-", 
                    RowBox[{"4", " ", "zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    RowBox[{"z", "[", "t", "]"}]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"]}], 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"zh", "-", 
                    RowBox[{"z", "[", "t", "]"}]}], ")"}], "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], "+", 
                    RowBox[{"zh", " ", 
                    RowBox[{"z", "[", "t", "]"}]}], "+", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "2"], "-", 
                    RowBox[{"zh", " ", 
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}]}], ")"}], "2"]}]], 
                 "-", 
                 FractionBox[
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["z", "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}]}], 
                  RowBox[{"1", "-", 
                   FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"z", "[", "t", "]"}], "-", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                  SuperscriptBox["zh", "3"]], "+", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[Mu]", "2"], " ", 
                   SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "5"]}], 
                  SuperscriptBox["zh", "2"]]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  FractionBox[
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                   SuperscriptBox["zh", "3"]], "+", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                   SuperscriptBox["zh", "2"]], "-", 
                  FractionBox[
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["z", "\[Prime]",
                    MultilineFunction->None], "[", "t", "]"}], "2"], 
                   RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{
                    SuperscriptBox["zh", "2"], " ", 
                    SuperscriptBox["\[Mu]", "2"]}]}], ")"}], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "3"]}], 
                    SuperscriptBox["zh", "3"]], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[Mu]", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"z", "[", "t", "]"}], "4"]}], 
                    SuperscriptBox["zh", "2"]]}]]}], ")"}], 
                RowBox[{"3", "/", "2"}]]}], ")"}]}]}], "\[Equal]", "0"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\[Mu]", "\[Rule]", "\[Mu]1"}], ",", 
            RowBox[{"zh", "\[Rule]", "zh1"}], ",", 
            RowBox[{"q", "\[Rule]", "q1"}]}], "}"}]}], ",", 
         RowBox[{
          RowBox[{"z", "[", "0", "]"}], "\[Equal]", "zs1"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"z", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], 
       ",", "z", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0.01", ",", "8.5"}], "}"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"zm", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{"zm1", "[", 
       RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], "[", 
      "t1", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pz", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"zm", "[", 
         RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
         "]"}]}], "/", 
       RowBox[{"fz", "[", 
        RowBox[{"zh1", ",", "\[Mu]1", ",", 
         RowBox[{"zm", "[", 
          RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
          "]"}]}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zm1", "[", 
             RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], 
            "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"fz", "[", 
          RowBox[{"zh1", ",", "\[Mu]1", ",", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "]"}], "-", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", 
             RowBox[{"zm", "[", 
              RowBox[{
              "t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
              "]"}]}], "]"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"zm1", "[", 
                 RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}],
                 "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
             RowBox[{"{", 
              RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "^", "2"}]}]}], 
        "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pz1", "[", 
      RowBox[{"t1_", ",", "q1_", ",", "\[Mu]1_", ",", "zh1_", ",", "zs1_"}], 
      "]"}], ":=", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", "z"}], "]"}], ",", "z"}], 
          "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"z", "\[Rule]", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "}"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"zm", "[", 
         RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
         "]"}]}], "/", 
       RowBox[{"fz", "[", 
        RowBox[{"zh1", ",", "\[Mu]1", ",", 
         RowBox[{"zm", "[", 
          RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
          "]"}]}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"zm1", "[", 
             RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}], 
            "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"fz", "[", 
          RowBox[{"zh1", ",", "\[Mu]1", ",", 
           RowBox[{"zm", "[", 
            RowBox[{"t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
            "]"}]}], "]"}], "-", 
         RowBox[{
          RowBox[{"1", "/", 
           RowBox[{"fz", "[", 
            RowBox[{"zh1", ",", "\[Mu]1", ",", 
             RowBox[{"zm", "[", 
              RowBox[{
              "t1", ",", "q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], 
              "]"}]}], "]"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"zm1", "[", 
                 RowBox[{"q1", ",", "\[Mu]1", ",", "zh1", ",", "zs1"}], "]"}],
                 "[", "t", "]"}], ",", "t"}], "]"}], "/.", 
             RowBox[{"{", 
              RowBox[{"t", "\[Rule]", "t1"}], "}"}]}], ")"}], "^", "2"}]}]}], 
        "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.1", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"0.1", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"1", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"2", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"3", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"3.5", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"4", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"4.5", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"5", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"5.5", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"6", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"6.5", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"7", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"7", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"7.5", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"7.5", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", 
            RowBox[{"pz", "[", 
             RowBox[{"8", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
             "]"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListLinePlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.1", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"0.1", ",", "4", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"1", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"2", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"3", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3.5", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"3.5", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3.9", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"3.9", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4.5", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"4.5", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"5", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5.5", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"5.5", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"6", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6.5", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"6.5", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"7", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"7", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"7.5", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"7.5", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", 
            RowBox[{"-", 
             RowBox[{"pz1", "[", 
              RowBox[{"8", ",", "9", ",", "1.3", ",", "1", ",", "0.1"}], 
              "]"}]}]}], "}"}]}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], 
      "\[IndentingNewLine]", ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", " ", "P"}], "}"}]}], ",", 
      RowBox[{"MaxRecursion", "\[Rule]", "6"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "8"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "}"}]}]}], 
     "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.758343224238956*^9, 3.758343273974762*^9}, {
   3.758343332120576*^9, 3.758343403992818*^9}, {3.7583434398397017`*^9, 
   3.758343488992217*^9}, {3.758343530243327*^9, 3.758343638926407*^9}, {
   3.758343823228941*^9, 3.7583441119054537`*^9}, {3.758344248414299*^9, 
   3.758344256930262*^9}, {3.7583443075314627`*^9, 3.758344320156252*^9}, {
   3.7583443856541033`*^9, 3.758344410183161*^9}, {3.758347706737296*^9, 
   3.758347812780993*^9}, {3.758347852889414*^9, 3.758348071348115*^9}, {
   3.758348104398122*^9, 3.758348349489338*^9}, {3.7583485146747417`*^9, 
   3.758348534312254*^9}, {3.758348594264333*^9, 3.758348622099073*^9}, {
   3.758348659083726*^9, 3.7583491007946587`*^9}, {3.758349132147869*^9, 
   3.7583491907290907`*^9}, {3.758349295563223*^9, 3.758349302415763*^9}, {
   3.758360600016971*^9, 3.758360605503346*^9}, 3.758360660789173*^9, {
   3.758360720239684*^9, 3.758360735483035*^9}, {3.758449621027055*^9, 
   3.758449760282563*^9}, {3.758449842384124*^9, 3.7584499225345783`*^9}, {
   3.758449987403983*^9, 3.75845012150637*^9}, {3.758450429535767*^9, 
   3.75845043526964*^9}, {3.758450535459401*^9, 3.75845088868923*^9}, {
   3.7584510175533133`*^9, 3.7584511815739193`*^9}, {3.7584514552576513`*^9, 
   3.758451470795342*^9}, {3.758451533483039*^9, 
   3.75845158593475*^9}},ExpressionUUID->"1585571f-712a-4fd1-a982-\
2ca2739f3930"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[{{0.1, 6.728765820910787}, {1., 5.595165057898109}, {2., 
       0.8357053047940908}, {3., -5.18521770953901}, {
       3.5, -6.161407389491725}, {4., -7.464218077978428}, {4.5, 
       7.347898847660178}, {5., 5.935425255220876}, {5.5, 
       4.860481092874359}, {6., 2.357531558634209}, {
       6.5, -1.787750705075643}, {7., -4.604462545099798}, {
       7.5, -5.801151433406626}, {
       8., -7.077179775314044}}]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], AbsoluteThickness[
      1.6], LineBox[{{0.7491856917909672, 15.907965054515312`}, {1., 
       3.3223513293076627`}, {2., 0.5344692201166239}, {
       3., -3.045451883180298}, {3.5, -4.307384822559675}, {
       3.9, -14.328435716407522`}, {4.5, 13.191109473554038`}, {5., 
       3.77875512827032}, {5.5, 2.8766415931719433`}, {6., 
       1.4852989242233747`}, {6.5, -1.1346775082704674`}, {
       7., -2.74727908038253}, {7.5, -3.556893410743184}, {
       8., -9.338713166951496}}]}}, {}, {}, {}, {}}},
  MaxRecursion -> 6,
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["P", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 8}, {-15, 15}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.758450626016934*^9, 3.758450673062385*^9, 3.758450799082226*^9, {
   3.758450855952957*^9, 3.758450893792499*^9}, {3.758451048347497*^9, 
   3.758451186007031*^9}, {3.758451460609585*^9, 3.758451476193264*^9}, {
   3.758451570691799*^9, 
   3.758451591101315*^9}},ExpressionUUID->"e22bf175-213e-47be-a1c9-\
d96c426406e3"]
}, Open  ]]
},
WindowSize->{Full, Full},
WindowMargins->{{Automatic, 26}, {Automatic, 26}},
FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 232, 5, 94, "Input",ExpressionUUID->"f812e288-fa9f-4cd3-af69-6f079388f10b"],
Cell[793, 27, 210, 4, 30, "Input",ExpressionUUID->"f6cf3656-cfc2-47b6-90fb-a67864946eed"],
Cell[CellGroupData[{
Cell[1028, 35, 2070, 62, 52, "Input",ExpressionUUID->"fdfb1fdc-4eb0-4018-8756-1ff26e40d137"],
Cell[3101, 99, 16219, 488, 538, "Output",ExpressionUUID->"b8b579f2-eb3e-4a6d-84ff-04503ec3178e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19357, 592, 1047, 33, 30, "Input",ExpressionUUID->"38148ffc-8cc7-48ac-bfb8-1c861616abc6"],
Cell[20407, 627, 173, 3, 34, "Output",ExpressionUUID->"cb105e9a-51ed-41c6-91a5-c3a73f7cf0ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20617, 635, 25580, 578, 933, "Input",ExpressionUUID->"a3dc2933-7715-4c62-83f4-8a7e63700458"],
Cell[46200, 1215, 65263, 1092, 252, "Output",ExpressionUUID->"f435b6d1-f45f-42e0-98ce-09422aa21f82"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111500, 2312, 1094, 34, 30, "Input",ExpressionUUID->"9dd22aac-e260-4c5f-823f-96d73a00c117"],
Cell[112597, 2348, 149, 3, 34, "Output",ExpressionUUID->"413fd7c3-7337-4e88-bb0c-f35af14810d0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112783, 2356, 31998, 783, 1137, "Input",ExpressionUUID->"537d5bfa-a1d1-4dc0-9275-9746caa28346"],
Cell[144784, 3141, 2534, 57, 254, "Output",ExpressionUUID->"c7e0bd75-aa35-4a25-8eea-25c5800f173f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[147355, 3203, 35341, 874, 1620, "Input",ExpressionUUID->"e817f43d-9380-4b2d-8c82-16057bb4bb3c"],
Cell[182699, 4079, 2252, 53, 248, "Output",ExpressionUUID->"661b6ae6-3389-4360-a4f4-5ea348ca20e6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[184988, 4137, 32433, 799, 1158, "Input",ExpressionUUID->"e15bedd0-fc0a-4ef7-8f9b-bf85e1ef3102"],
Cell[217424, 4938, 1969, 48, 252, "Output",ExpressionUUID->"bbfa247f-1ba7-4c7c-b16b-e434466f78bf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219430, 4991, 28364, 708, 1032, "Input",ExpressionUUID->"c00ee9f1-9e67-4444-a83b-73e7ab9fca86"],
Cell[247797, 5701, 5705, 155, 101, "Print",ExpressionUUID->"6bcdb765-9b4c-4799-bed8-24e94bb72f10"]
}, Open  ]],
Cell[CellGroupData[{
Cell[253539, 5861, 29965, 734, 1095, "Input",ExpressionUUID->"33e83e55-7b42-4287-99dc-5a0e7b658111"],
Cell[CellGroupData[{
Cell[283529, 6599, 275, 6, 24, "Print",ExpressionUUID->"fb672f8b-f989-4a29-9b59-37048d0bd89c"],
Cell[283807, 6607, 196, 4, 24, "Print",ExpressionUUID->"898247e5-2f43-4dd7-a31b-6d090dc86483"],
Cell[284006, 6613, 274, 7, 24, "Print",ExpressionUUID->"bd76bd8e-805b-4a98-911d-1572379b76a3"],
Cell[284283, 6622, 197, 4, 24, "Print",ExpressionUUID->"8f64f2e2-1321-4631-94ee-0c156d88a9b9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[284529, 6632, 36184, 899, 1242, "Input",ExpressionUUID->"1585571f-712a-4fd1-a982-2ca2739f3930"],
Cell[320716, 7533, 2511, 58, 244, "Output",ExpressionUUID->"e22bf175-213e-47be-a1c9-d96c426406e3"]
}, Open  ]]
}
]
*)