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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    603033,      11842]
NotebookOptionsPosition[    599825,      11746]
NotebookOutlinePosition[    600172,      11761]
CellTagsIndexPosition[    600129,      11758]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.6714412242899303`*^9, 3.6714412501043005`*^9}, {
  3.6714412989225597`*^9, 3.671441301993333*^9}, {3.6714413750286975`*^9, 
  3.6714414142330494`*^9}},
 FontSize->18],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "v", ",", "m", ",", "f", ",", "g", ",", "gamma", ",", "h", ",", "h1"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Vphi", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"t", ",", "x"}], "]"}], "^", "2"}], "-", "1"}], ")"}], "^", 
     "2"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"V", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{"Vphi", "[", 
    RowBox[{"t", ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dV", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Vphi", "[", 
      RowBox[{"t", ",", "x"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dd", "=", 
   RowBox[{"1", "-", 
    RowBox[{"2", 
     RowBox[{"m", "/", "r"}]}]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pde", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{"t", ",", "r"}], "]"}], ",", "t"}], "]"}], " ", "==", 
       RowBox[{"g", "[", 
        RowBox[{"t", ",", "r"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"r", "^", "2"}], " ", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", 
            RowBox[{"t", ",", "r"}], "]"}], ",", "t"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", 
            RowBox[{"m", "/", "r"}]}]}], " ", ")"}]}]}], "\[Equal]", " ", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"r", "^", "2"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", 
              RowBox[{"m", "/", "r"}]}]}], " ", ")"}], " ", 
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"f", "[", 
              RowBox[{"t", ",", "r"}], "]"}], ",", "r"}], "]"}]}], ",", "r"}],
          "]"}], "-", 
        RowBox[{
         RowBox[{"dV", "[", 
          RowBox[{"t", ",", "r"}], "]"}], " ", 
         RowBox[{"r", "^", "2"}]}]}]}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "parameters", " ", "for", " ", "initial", " ", "conditions", " ", "and", 
    " ", "boundary", " ", "conditions"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rmax", "=", "100"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"right", " ", "end", " ", "of", " ", "simulation", " ", "range"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rmin", "=", "10"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"left", " ", "end", " ", "of", " ", "simulation", " ", "range"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"r0", "=", 
    RowBox[{"rmin", "+", "70"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"initial", " ", "position", " ", "of", " ", "wall"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tmax", "=", "100"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"time", " ", "for", " ", "which", " ", "evolution", " ", "is", " ", 
    RowBox[{"run", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "function", " ", "to", " ", "be", " ", "used", " ", "to", " ", "specify", 
    " ", "initial", " ", "conditions"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"h", "[", 
    RowBox[{"t_", ",", "r_"}], "]"}], "=", 
   RowBox[{"Tanh", "[", 
    RowBox[{"r", "-", "r0"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"h1", "[", 
     RowBox[{"t_", ",", "r_"}], "]"}], "=", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"h", "[", 
       RowBox[{"t", ",", "r"}], "]"}], ",", "t"}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"time", " ", "derivative", " ", "of", " ", 
    RowBox[{"h", "[", 
     RowBox[{"t", ",", "x"}], "]"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"initial", " ", "and", " ", "boundary", " ", "conditions"}], "  ", 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"bc", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"0", ",", "r"}], "]"}], "\[Equal]", 
       RowBox[{"h", "[", 
        RowBox[{"0", ",", "r"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"g", "[", 
        RowBox[{"0", ",", "r"}], "]"}], "\[Equal]", 
       RowBox[{"h1", "[", 
        RowBox[{"0", ",", "r"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "rmin"}], "]"}], "\[Equal]", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{
       RowBox[{"g", "[", 
        RowBox[{"t", ",", "rmin"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "rmax"}], "]"}], "\[Equal]", "1"}], ",", 
      RowBox[{
       RowBox[{"g", "[", 
        RowBox[{"t", ",", "rmax"}], "]"}], "\[Equal]", "0"}]}], "}"}]}], 
   ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Now", " ", "solve", " ", "pde", " ", "using", " ", 
    RowBox[{"NDSolve", "."}]}], " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"solution", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pde", ",", "bc"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"f", ",", "g"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
     RowBox[{"StartingStepSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", 
        RowBox[{"rmax", "/", "30"}]}], "}"}]}], ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fsol0", "[", 
    RowBox[{"t_", ",", "r_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"t", ",", "r"}], "]"}], " ", "/.", " ", "solution"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plm0t0", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"fsol0", "[", 
      RowBox[{"0", ",", "r"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2"}], ",", "2"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Thick", ",", "Dashed"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plm0t80", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"fsol0", "[", 
       RowBox[{"80", ",", "r"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "2"}], "}"}]}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "Dashed"}], "}"}]}]}], "]"}]}], ";"}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{"m", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pde", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{"t", ",", "r"}], "]"}], ",", "t"}], "]"}], " ", "==", 
       RowBox[{"g", "[", 
        RowBox[{"t", ",", "r"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"r", "^", "2"}], " ", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", 
            RowBox[{"t", ",", "r"}], "]"}], ",", "t"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", 
            RowBox[{"m", "/", "r"}]}]}], " ", ")"}]}]}], "\[Equal]", " ", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"r", "^", "2"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", 
              RowBox[{"m", "/", "r"}]}]}], " ", ")"}], " ", 
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"f", "[", 
              RowBox[{"t", ",", "r"}], "]"}], ",", "r"}], "]"}]}], ",", "r"}],
          "]"}], "-", 
        RowBox[{
         RowBox[{"dV", "[", 
          RowBox[{"t", ",", "r"}], "]"}], " ", 
         RowBox[{"r", "^", "2"}]}]}]}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Now", " ", "solve", " ", "pde", " ", "using", " ", 
    RowBox[{"NDSolve", "."}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"solution5", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pde", ",", "bc"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"f", ",", "g"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
     RowBox[{"StartingStepSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", 
        RowBox[{"rmax", "/", "30"}]}], "}"}]}], ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fsol5", "[", 
    RowBox[{"t_", ",", "r_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"t", ",", "r"}], "]"}], " ", "/.", " ", "solution5"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plm5t0", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"fsol5", "[", 
      RowBox[{"0", ",", "r"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2"}], ",", "2"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", "Blue", "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plm5t80", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"fsol5", "[", 
      RowBox[{"80", ",", "r"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2"}], ",", "2"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", "Red", "}"}]}]}], "]"}]}], ";", 
  RowBox[{"phivstbh", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"plm5t0", ",", "plm5t80", ",", "plm0t0", ",", "plm0t80", ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Inset", "[", 
        RowBox[{"\"\<m=0, t=0\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"85", ",", "0.3"}], "}"}], ",", 
         RowBox[{"BaseStyle", "\[Rule]", 
          RowBox[{"Directive", "[", 
           RowBox[{"Medium", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
     ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Inset", "[", 
        RowBox[{"\"\<m=5, t=0\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"85", ",", "0.1"}], "}"}], ",", 
         RowBox[{"BaseStyle", "\[Rule]", 
          RowBox[{"Directive", "[", 
           RowBox[{"Medium", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
     ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Inset", "[", 
        RowBox[{"\"\<m=0, t=80\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"30", ",", "0.3"}], "}"}], ",", 
         RowBox[{"BaseStyle", "\[Rule]", 
          RowBox[{"Directive", "[", 
           RowBox[{"Medium", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
     ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Inset", "[", 
        RowBox[{"\"\<m=5, t=80\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"45", ",", "0.3"}], "}"}], ",", 
         RowBox[{"BaseStyle", "\[Rule]", 
          RowBox[{"Directive", "[", 
           RowBox[{"Medium", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2"}], ",", "2"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<r\>\"", ",", "\"\<\[CapitalPhi](r,t)\>\""}], "}"}]}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Large", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Italic"}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "Large"}], "]"}]}]}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<phivstbh.pdf\>\"", ",", "phivstbh", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "1000"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "2", "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7321190605959387`*^9, 3.73211917398787*^9}, {
   3.7321192710863523`*^9, 3.732119272923603*^9}, {3.732119379027589*^9, 
   3.7321194261558075`*^9}, {3.7321194752842836`*^9, 
   3.7321194777096195`*^9}, {3.7321195472193575`*^9, 
   3.7321195966537094`*^9}, {3.7321196338187575`*^9, 3.732119829188079*^9}, {
   3.7321198644332314`*^9, 3.732119899305007*^9}, {3.732120310567562*^9, 
   3.7321203522646646`*^9}, {3.732120405599489*^9, 3.7321204119790573`*^9}, {
   3.732120494455752*^9, 3.7321204955584073`*^9}, {3.732120526608444*^9, 
   3.732120655222393*^9}, {3.7321213326730175`*^9, 3.7321213971031303`*^9}, {
   3.73212145026457*^9, 3.732121481296589*^9}, {3.7321215372315087`*^9, 
   3.7321215778362913`*^9}, 3.732121610594673*^9, 3.732121662387097*^9, {
   3.7321217435703945`*^9, 3.732121774505725*^9}, 3.7321218191692953`*^9, {
   3.732121872481229*^9, 3.7321218960622454`*^9}, {3.7321219771262493`*^9, 
   3.7321219792429843`*^9}, {3.7321220114917774`*^9, 3.732122018732851*^9}, {
   3.7325150717721014`*^9, 3.732515110148345*^9}}],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJxF2Xk4Vd33AHBFkiFDpUiKoigqRFTOIqUyxBluRBJKSoqEeqkMDUoqZQiN
iCQyJCRXEUoIlUgyZOYe8zz89ul9f77+yPN5HKe91l5r7evZMjYn8cOzubi4
hNA/zHdjp8fbuLhWAdffrx72kf6SBO18uRmf9xhb6nV19YyPZubcn39g7Yyf
pV4Sj+lRnvHloqbfspobZxyMa12eXK46YxNNsbj9LWr/e9+bh0vfV6jPWDTp
WKxy+ub/rWc6PXHZWa0ZL+nMmLvYZuuMz6hurQ1S1J6xTfdE0YIObMb7Hmf6
lrXCjPFzr6xZn3RmPLEi4EgjW3fGJy96j/S83D5jjUCNotzbejNOdCjKDb60
Y8bn+iWG1zrsnPHgnp2swoP6M9a0uK3TbLprxhUS94/lq+6eseRT3+y4NXtm
nFGvaGgsZDBj6a899m7d/7Nq8O2EqHrDGd/n6VcOyjOacbrO+ppLmcYw/feL
Zsdm1w6Cyl4Y/s9hGtdEJ+L3Qv5/ruERbCkWMoFHU/+6tRvPk9hpArwj/9r6
2peONb4msOvTv66WNxbbnGsCrOCpv27jbPHXGDWBUyHDfz2UrsCloWIKfvNL
/1pDabnk4mOm8CS7YYqxR9RCteHHpqBnEDrKOHFNuPX1Z6YguKtpmHHTi+U3
liebQvRY+iDjJaoxmakZphBmONDH2DhDsUU/1xTIoHM04/ZzJyZE803hS69D
N2O/bS/FagtN4ePlxZ2Mpbn61zwtNoW6xc5tjDPfb8JOlZmCS9yZZsbkJQ9K
q9IU9m5Z1siYo//mOE+VKaQ5WtYx3vqs1q39hyl8LTepZezPP+VdWmMKAdNy
NYxXlUBYWJ0pvIs69o2xi7JNlFe9KfSmfqtgzL7pm2jTaAqXs5d8YSzYG52p
/8cUGvzXlTDejxfkr2sxhQXu/J/+7ldqa5lomykcS84oYDywcN7PoXZTGL6h
lsf4ZpVBb263KVgf83/DuHbziYkY2hTkeyxeM1YMD5x7vRf9f0vpFMb5luXL
qEFTUDqj/4yxWE7fGq1hU+hu545mfHD5QrXlo6bw+erJB4zHGlh72idM4bU0
FsR413YPqnTKFDYeCL3OODj6nnUqFw5tyx38GG+wr3Xz4sFBVibHlfH5oklv
G14cnmarOTIuVlh+Q58PhweyiraMj3QdihIVxGFIxGUv4zQj38QhIRySTqTq
MZ6VFJ35UxiHGgVTzb/7LVKQnyuK3j8ESowjnVvLYhbg8CvXfcXf/a/g+3lt
EQ4qCe1ijNXVFFtOLsYB47nGw7h8yHFCcykOCV6cP1PIntXzrk1J4bDXM/kr
Y/nsp4vzpHGI8g7MY3zOu17FUBaHWzcPP2C8ys4rV2QVDoZv9a4xLt0pafxN
DgeXpXxnGMsKkg5WCjjwS43tZPyZ0zMkuxaHAtk5yozdym/4ta7DoXfWiwWM
P4UUPjy1AYfERK+aSWTXs3ZKm1TQ8+IebxhLW856M6qKw8fjKeGMXWS2fPfR
wCFO6CnOWIrnh62+Jg5C3ofWMi5oce0V2IIDNPfOYiyZkCgYrI3DfDeJuAlm
/wMNws0Bh40DTu6MnZzbVkvr4iCetUiP8Xt12e2xO1D+H73+Oo7sKMH+clwf
B+VfFmGMxScsrDbsxoE2jDJjfOxd8NlMQxwWkwalY8gLo1XmnjfGYVR4iy/j
nMtld3VNcBgf71RlvMBw3stiAoeR+iy/Uebnyk+33aJwuGNSKMf4qOj2YnIf
DuXnQ9+NIGd/92z5tR8H3OVA2zBTL5kSrk8scZiMTHFhLBKZPsveCgfNh/5D
Q8h2h3qkeg7hYP1Fo30Qeb7ejfg0WxyKRLbsY5whr7j57GEcGu8tfjuAbDOv
8MM2exxynphIMhbssiVmO+CwY8shp37k9FKuhoJjaL/732T0MfMv+b7TdUcc
Hq5iD/Uy9epW5b/wFFpP/bRxD7KVueviamccdm4+5kAj820Vjbl/Goef08ru
HGTLWQa58u44DCeOOnQh8/5pNer0wGEhl7tRJ/LLAr+fSedQPwxskelA5gnI
Gdp8HgeT9JbgVmY+Oln4TV7Awbu2UK0F2cx0RPS9N4o/q5n9B3m2WvDDy744
RGSIqDchJ4irKBlcQvlNmhPSgMwaLc0SvoKef3Oj9jcyV+3xXV+v4pBqu46n
Dpl6HGN7IACH4glf7hrkcM274/qBOCh12cVVIdeX+9xRuYXD5ScbFb4hyx1z
XrssCMXTwfatYOphtnXe3Ls4jOlnvipj4gk3tugLRv0nFZb9GXlQZVt/bSgO
oZXRwR+RL9pKrkyJwCH2rVXKe6Z+x/neRN7H4fZhfzoHWeDuMH7lIQ4Z66p6
s5BN1rV0OD/GoVLU8VU6ckj+Vx/LKByemy2ST2Hmn2WepH4MDnP4DQxfIMsM
JqdsjMUhsr9jdRyTD7mbjbzPccgjJrojkfveep3rTcDBX6CiNIQ5n1iOYrWJ
ODhqlpjeYuYDZ398wUsc6vqknP2Z/ri8Wzc5BQfzHE95H+S5yzfXRKThINGr
dPwcsuFreZfL6Th8F+zVcEGuauV+YpGFQ7049x5rpl8v9mnuzEb7p7LgPIup
vyUN5RtycDBwsxozQO7alTOL9z0OLVuGatWQVRoS7vXk4eAU5qazBtn9bMTG
nx/Q8++r/kgy+x3vcejlRxzOCu/JnJxC81nXfjS8GPXzBr8v3cg3aqjbl0pQ
/Csr+mqRK1z0FE6Vof4bjBYpRl4ioPpufznKX9x2iQxkqygZ8x2VqN4z3oxF
IUdtEeld/w2H6cfljwORlR27V8ypRvP28ersg8iuPLUZdA2KN7SiaAdyZuQn
k5paHLaVde9QRNYrib2YVI9Df9g3Nc4kOi8PhywJb8Rhdfrt0yXIpZN+L/3+
oPctpbLjkc2VberN23Dga6/ttkJ+UGDiodeB+q3mxO1NyH+sMJH1XTjoSu5L
m4esMKwUJ8HBofOdqtLPCTTPbkoBTw8OKUeelj1DTlst8IPTi+az6CbHM8ij
7NGT1f1o3he5XN+G7Nfz/WHiMA599tD9bhzN46sfNO6NovPjef3588jCMmll
vuOoHucP8Gogk5lP7J0mcchWoXZ1jqH+ML09bTaN+vPMOFcEcn37hdDtswj4
FBDbvgNZzsdpvTI3Aa6rbr3qHEX9kGJwkHsuAYK9e57KI+OfX50t4SNAYcz9
8PsRdL43L78byk9A+eDP02bIIdP+iYcECZjvzn22bZhmb5YYKFo7nwD26Bdx
F+QaFaumQWECeC/ka/UPoXo1LJpkixLgRuLVjsjvLkSqkIsICBRbKrl7EM3H
e7xG0osJuBo+vzV+AM2f1FP2bUsICFBqredG3tOiF+kpRcAX80DyXh+qx+nE
9J3S6PmkA6lfe2l2oIREucgKAsaXzuGbg1xh2D0nZiUBVQNn2nVoVA9H9q04
KUdAwZHHPEYcdF5cfKeluZoArRv7N+7pRp9vUoNPligS0CckcWFhJ82e+Dzt
H7qOAC9lc726drTfLQ7Rh5QJeOSTFRXSRrMbJbSrBzei9fV7Hi1rRvulGtfP
ViWgJ5t4a/QHnddGYvOvbSJAjV1/Nb0RzZ+LLbrSmgQsUk+4rPsbzfNwkwNt
WgTc4lKcbfsLzc/ULPeUrQS8trjsd/Qnze5vCUzYCQRkxt5eIVWF8s01WiCi
S8A7sz+vC76ifEvaNtRsJ6CpgHfv3gqUXyMN8ZP6BCz5xSvY8hmdz/aPN2ju
JoDLvHq8/yPNzr0oYMBtQEBH5qyEqgI0v9N+Xwg1Rvk45kyL59LspyW7ww+Z
ENC8p8PxRDbq19bUtLU42n9r8tzNDJodIHm1nU0REPRklYziS9Rvan3c1/YR
sKCzRiHyOc3+YmQpTZoTgJXtj/z8FJ233huINksC+hf2bjGPROdVePiJFCsC
CiVGRV6EoPMhjeeqpzUBg30fEp/fQp+XWn9ki9gRAF3bgm760mztWdurag4T
8P3Ktw4XT1S/ki96o+0JGH6pr9HjiurX2Fte8zgBi5eWVTy2o9lF9p3AfQK5
qKT2owXKtzdlUeJEwA/DkF2ncZTfNIVbh1zQflVOJChpo3ldeid+rSsBRWw9
8/WqaN62TuYPniHA81NBwZ3V6PPZ0opR/7MEfJ1sunVoPqo/F1LC4B8CCLsz
66e5aPaBj983C3oRcEn94vWOPg7bz/2ne+BFtD5yndCRrxx2WOmB0L0+KP+7
LirU53HQfK9PF/EjYF6w7+zTKRx2ZeWfwaArBFhXxx9PDuCwWxTtF5H+BCTf
XTeo68Fhj3m3qy26TkAieVkh04bDlt3AOR0aSMCGV9fTJNQ4bPUrp+6Y3SLA
wkYsp1mSw95d15ciEUSAicndSnMuDvtUwHBvRDAB742S8OGCbrZf01nRA6Eo
vqWqOppx3ewwrYkN0vcIOHfnKR/v1W42u43r1KNIAh4MrVxyVLebXYH53jz0
AL2fXyuhTKqb3RIyJ0n2EQEf2pMObR3sYs/fwc+JjiJg58rGJR8edrFlIwOE
jsSg+uu9r/HSuYu9qX++0upYVC99lkXaOl1sy8cLHJ/FE/BSb1F2w49O9qmR
4OvHEgjYYr7bPe9RJ9tv75LnaxMJ8HgWfrzpcCf7+aRUx4tkAvaPebZfa+1g
55AP551MJWDNjugzN6M72BXPZRQ2vCIgrfxj2GGrDvaYufzRlAwC9Nyw6XlF
7ez5yXFXTmcRUPrpkEiEeztbhm9trFo2AXjrloe+K9vZu9LXt6SzCRjdXNnT
drKNbSmUMsfjHQGv2m6vWS/Sxj5lpyanmYeet1mxwDqhlR0qpmn3poCAAYEQ
r5U/WtgtTrqN7BICajmhSZFjf9hjH/JneZeh+fpqQs/G/Q9baJm+jG45Aekf
AuQD6Sa2WrGBdf5XApY7RO4XqWhk+66m6op+EnCqujdkoXU9O+R81aT/L5Q/
laaUqFO/2fHfzJcZ/CYgxyzqC7Gkjl3ha2VZ0khAfPUtn0Gjn+wV9fY15e0E
xB0qMY7Bv7HLurbwZHYSIOBi5KIaUck+Pyqs/Kgb1SuxPEustpxdK5bh7dRL
QJ2ab2pK0Gd22A4+BYFRAoz1s7h/BL9hizyPc9fjI2Ei6YROh00uxn7t+Xgt
Pwk4z97iySX5mFO+SbGYIAk+Xve15hYWYp9/jUg3CJMwIvzJ3HtOGXZVZHeB
12ISXJZ3ZdCnv2May5b12EmQoNUfY/JY6gfWotArYbiUhD2lj/+xy67G9Lbf
OyG5nAR1m6bFn2prMS639oWv5UlQWTGpabO7AUvyeav9YA0JccUql4r7GjCr
m7ePXlIkIT5YivtTSCOWHaeZTSiTkMEXF+BZ2oQdfyXUorWBhPDTqm1qNn8w
yfcNwrIqJFT+OPX2Ws8fzOOnv23PJhLsZ138sHWyGVvdduBGlQYJ815d9H/9
Twv2fWDj6xxNEvIjLz2aO9iCqc2v4b+xjQRKokvL8Ucr1iSZqOaKkeBgpLjg
o24bFrTax8pChwRdH3qlQ1wb1gOKKQo7SPAKFffvO9yOPTSa+imiT0K1kHno
8px2zHh/xZyRXSR8CxTpERfrwBJOnzMvMCTBrs9HYvRFB2Zx0dj3hTEJyYJG
WhuGOjD+G7Iv7pqQMHa+qumjVid29OknLluShMDZ/MrvMzuxxakPFPewSDh6
Njdm42AnVsB2ITeakbBOfdDqmVIXtqpaMm7aggTZI3nHp4K7sMpmTnnLARLO
WzW9X1LQhfn0vR8vOYjiv97yKKa/C2sQOL430pYEkq9PLEC/G+u6lzVuc5iE
79yT9vePd2Mjq/njFOxJKNSJiqi60Y2J6D3jen2MBMedvKHSJd2YVMVIgpcj
MuvlAlZHN7baepe5nhMJl1e++iTAy8G0PVuTy51JcL2QbX5Pk4Pt4dewCjuN
9k8+s/eSKQdjhV3mP3gGrVddMFrjKAc7kSZn2+VBQgkppiIfxME8dM8Ip55D
9XPdz+9CDAfz+5L/5qwnCSc6g5q/v+ZgkV22C+deJCF7Z3p4SjUHizuXmlvi
jfaDqJk0budgaXzcJ+76kjC1/OJdiREOVrzqyQeZKyS0ft7ZbruAxr6n9Dq3
XSVBuHrbm+HlNNYIOtJJ10j456Qi3bCWxsYs6922BpKQi9fgdTo0xtu5fiX3
LRIKPlsocRnSmOjZC2Ufb5OwdYT3yD2KxtYES6/ZF0yiv9fV/jG2pzG1lU5f
l4WifmhsTHQ/SWOQ/PbinzASjqVKDqm409i+Estq50gSVCXto90u0ZiNRcKl
zQ9I6PF6lzovgMac2sc3Tj8k4UjcZmW9IBq7PCfiWkAUCXeJiMvv7tNY0J0O
dSKGBBsBm1LBKBq7L6PVJBFLgkZwYdW8OBpL21a9JTaehDMKBuqqyTSWW7ym
7UQCqjfLCrXjr2jss7nHXbVEEr5qp3c7ZNJY05nF3e+S0f4Vc48U5tIYh9v+
3tVUEjQDZPmV8lE+bqfv2PuKBN8uLku7QhoTS6Qe1GaQILWu2pEooTHprTF7
orJIaHYIfyL8hcYUPw0MOWST8KDoybzYChrTabmzd5iN4hvrqHWqojFD16bx
t+9I8N+x/59H1TRmNls1zi+PhN2WsSJJP2nslHQFl1ghCbXpXdjZ3zTmmSDz
4kcRmg/HORyNBhq7ouVs/vATCVl31DrqGmnsAUskZV0pCcN5FiMdzTQW/+eg
VX8ZCTkN253xVhpLd0nizyonQa7Ylie2jcZKAo1t9b+R8Db5g/vSThpzraAl
1KpI+F05mE520ZiU+O0vK6pJuK60R8Gzm8byzFWuCP0kYWctVRjEobFj9yu3
jdWS8MuhWC2MRvXQ4DrQUofi2x9Zdr2HxjJWiT+vrCdhQ+sqA+deVD8JZkte
/CEBuxdntKifxl7Qo6X3WtD7dBYf+YZMqkZcutxGwqPFDr7XBmjsSdavvoNd
JDT8OmXzfZDGdk+df2bIQfPNcw3uNERjPTorrDV7SKhTF4ieRNb+aFMiNkAC
3xohc54RGmsW5PGbHiTBVH5OhCdygEmMVtcwyqdR8eNu5Jqq1tgP4yTwbr7w
KHOUxryX+lulTKJ5909UjfgYqueDioseTpNw1WPilROyW4ujjwc3Bene18KF
x2lsmeJ8zcNzKHAf7dQyR84/kUSbzqXA59rR5w+QxQZ7LdcKUGAt+rR/2QSN
ZW6+s2CJEAUHXydvMUO29lT7xCNMwYaD42o3kZO43TXqxChYrG5U34/M0l/C
+bSQglr3M/IykzQ2dS0z+rU4BY/c8GIDZEOxCdHbkhRoZ+Z8vYfcT90v8pKi
gFfa3e8tcvg97QvHpNH7bpxW+I3ctsK7a7ssBVhmf6nUFI3dtJON2rCKgl7r
5rmayOpxeebL5CkI6leNJZB/ddqJ8K+hQHnBhnxHZL/1vIVDChSEhR539UNe
ezrWq2ktBSsX/igOR65I36X2RYmC/Qeaa5OQV2hff/xsIwU3cyzef0Mu9F5n
FqJKQYTLL9FWZKcPJfN9N6H1ff10aBg521DE01KTgkUfvWHRNI3Z3kpW2b2F
Ar4pr05ZZP6vePumbRTsNDtcth7ZzCKYJaxDwZ573Kf0kacfqAtN6FLwOSpe
B0d+2liV16ZHwVwTDTdLZCP5s+e+7aTgaPYO8SPIAw6SG9/vomD+1mKFk8gR
L960Ju6hYOmOwFB3ZN1eywcRhmi/Vir7XEC+7fFQ4IwJBSLDrlM3kONHzQrN
cArEnMUv3kV+f07MdytJwZk07uhw5v2el8a4zSiYp/qwLQZZcEo7vdWcgvc7
DRY8R5a7MOJcbEHBD7HdA0nILO/j7UEHUb46LrRnIDvNlotxO0TBMx3pOW+R
r/jWWe+3pWBSrqk5F/kRT5iU9mEKBg0lL+cjZ1wy/SFjTwGXnUxHIXI5r8Dd
OQ4UDGxOkSpG7riSv7f9GAUKUZ9XlCIvvaZR+NKJAlvJuLhKZDWBXp+7pyiw
o89u/I5sGBCv7eGC8mc4HvwD+XzgsnTMjQJ+B6uxWuQQ4SrnlR5ovyv4p+qQ
k27dUpp7joJQd67meuT6IO6YUi8KEs522/xBHlnw1jrlAgW7zO+MNyOLBrtJ
hXhTEGxo7N7K5Du0/c6BS6if0sXWdyBbLInaq3OFAi/1uBOdyK73LAXk/CkQ
HtAL70KOiSjz6QpA69cuecdBzpHy1/4SSAF+MjaHRv5+X3cs9RYFnrxHX/Qg
8z165fzPXQqujeXZ9iGvkDmpdDCEAteI0nX9yJpP1rTrhlEwwv+og/Gx6Ahr
/kgK3OpD9AaRfeQoKc59CtZ80WhgHPF0/o/yhxR0zue4DiF/jvPeey+KAvv8
LN9h5GaFLQJeMRS8NS+eZjwVP1BgHUtBw64W1xHk9S/stdc8pyBPpcpgFHmX
ssyYwAsKHBQcEhlbJ9W8ohMpWIudFxhDPrvhrnPlSwpUttnZMg5KNlJ6nUKB
uKJtOuN4lbnt4WkUxLx8yzOOnJeaG30+nYJb25SNGQ+8UpXamYX6b9S4krGg
RneVQjYF5AgmMsHUY8bTO0I5FHyyztnNmJUlIfDtHQVb5qqlMj65pbIgI4+C
ZVXXmhhfzQ7wifyA6j1AWXQSOTNnetT2IwWakqN2jJXfqW1eXYx+v6XpKuPo
PAe3js/o50V0PGOJggdpL0opOF2gVsw4sKiy79QXCvq1PrYz5inm26hWQUEd
nw3vFBN/ybaTw5UUHJcgZBjbVcR2elVRoG83gTOu/lqroFNNgfRUrQNj4yrR
ozw/KXgo6X+BsWbtP3+u1VEwfOtKLOPEupeyxvUUXBEbzWS8qqHZWrSRgg8X
XYsZz2/Z+yu0Gc275OxOxr5tfkstWtH6hR6PMR7pyDSXbqdg85McvmmmX7s5
oQ0dFJTsWS7OuIle+T26i4IH67NkGZv1mS08ykHz5pmfMuPSgRv42h7U/8qJ
zH0KljE6XJrcT0GUpa4xY6WJdUJnBlE8z9/uY/xk6pDB5mEKtltlWjO+wf25
MGcMzecvRs6MZ/PO4vWZoOCiVb8HYw8+db0dUxT0jKtcZGwj9Ci3eBYL5gUG
32BcJfxtKpCbBRs3vr/D2FCMfxs+hwXfDCLvMdZY7Jr5g48FmxQJ5j4KS5B4
NhzBz4LmpE3MfRUmK1W36aAgCzyff3vBWFBmV0qzMAtqf1mmM/ZZ6dUTJ8qC
3N49WYyH5VKUHRewIFyLJ4dxo6LU8z5xFpQ3NOUz3qdk2v5qCQvW+gkXMf68
/vLqs5IsMG4TKWb8Wq0nanoZC8iY+8x9HbZOQ67x/XK0nqF1lX/zo7l/xWUZ
FrhzhTP3fViAdn6koBwL8qN5mPtAzH27ssSdNSz4YDn4628+doUFS6xjwVPF
8w1/4zeaLfZoPQvOWsf/+Rs/7hgor8qCA52+rX/j3fed/4U6C4pdF3T8jdcS
rqhqseCnr3UXY+OtFs9+6LCgQ/NGD+PbUm7FXrtZYL28op/x14lb3bKmLBAo
PTrEWPzXc+EiMxZwbXQbYRx5v4EQO8qCqbcm44xlrBaHWbqzIMVWYvJvvL99
VvQGsyBrWyNzX4upW3PiLqWxYFwwiLnPxepvbJr3sJsF8Ve7//r6G0+HDPl9
oNQy8ddHQ4sdU6z2weCZv/fFmN5pyVMJIfuAq+1fB8x+9Na+ch8cnfjXX2/L
CawUMQP3f++jsRTDpXGlu8yg/T/fnCu645y3GUz850bHROm3uWb/f9+NqVcY
oLj+5/8DdgdJ3w==
        "]]},
      Annotation[#, "Charting`Private`Tag$761#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJw8mHc81t/7+GW1hCQyykxSSJKyznXvSZIoRKKMKIWStDOSiJYyU4QkLdKg
iBaSKJVKyLrdi0RWv/N6fz+Pn396PB/nul/nOte+0tm222m7pISEhPNMCQni
X4ddV20lJPRB4r8/UeWOofoiuxeLQfJ/fDhiTONQ3JL/fz6U2tZWs3fp/2f/
8ooM+S3L4O8/4k9YGbda98tnA2MY+h8X3ItWyRWZwNj/2Hj9uQePNq0Amf/9
PuZV5w/dtWb//77EOQrmZ5evBKn/8QUnq5hJLXP497/fD9IMVJdLrQLR/9hx
rVK+W/cqoEv+n7zHWKt3YpsFFBf937n/4yyNqqbVkHNp2n/nNhbR3hEvLKGr
Wvjf+dzbgTdMStdAe8ac/zv/pLgs79JaCFn4f/I7/pUWLzxgBfd7Lk0R8vOn
a5x/ftQKsiZnThD8Qv7Ige1xVlDPYf4leK9Kp+fMs1bw287gD8E6ixjUW5es
QGJcc5DgxsU3l67PsoK5v0f4BB82VlAYzrOCU5K1fQS32Xz6bFNqBVZnDvwk
+DTVurL9qRW80D7yjWArbtb1kzVW8Px+2WeCezdIxRvWW4HzU/OPBF9y99td
12wFKWlSHwim+7x1DmmzgrsHLRsJ/h1oaqXcZQUc8x/1BF/be07rIc8KDmvN
qiPYKXJE2mPICpZJvXxDcMmpynfXJK2hRijzH8+5HHuFN9caotVl/pN/ks07
kqRmDQVtVg0EB+av226uYw1rPnPfE6xWco/9ydAalHQoLQS/KlNdcXCFNcz6
o/eF4P2VB+drrbGGzVeHfhBs8PLHWBWyBn32/W6CWxoo7TsY1sB/u11A8MmP
N2pmrbMG5TMyIwSbf599s9jFGgqNGP/5q+PX7rNOntawUClKhuCz/A/hf7Zb
Q6OU5myC0bCl+5Vga/h+wkWJYMFEGtiFW8Ovcbo6wenSEgYdUdZQ+TVYl+Cx
ea9ESxOsoXh0cCXBBRrLP9afs4bF3QusCd6kd/bxnjRrEM+RoRBcunJTTHmh
Nex6XL6e4O1WT3ZuuWsNZQL6JoKVydrrpz2yBrRU35PgKtbJ1bnPraHt0iof
gves79Vgvcb20PPwI1h7M3cav9EaXAuOBBLcsLWk+2yrNajJPw4i+JC/ct2q
dmvYN84PJnh5SMSd1h5r4JTV/8df97ddjBJaw94E0n/y8UcgSnvEGpymmwcQ
vCb2uveLKWvoISX6EtyTOIPhL2sDZabk//S7eDFouZy8DfT2gQvB1MzGuSXz
bWDF+BHuf/Ugd9XIhoU20HVzFAjOuZXaNqJvA4P2+eYEr38w8TxtuQ30xZ3V
J1ji6dYbaJUNjOWWzSO4+MWLhE5rG/j71XAawVvqDPfGUvB56Nf/4lmuOcF1
GccGQnb7XyX40VeRzTsnG9COOhVA8ALew+mq2zB3KQxPEfkxOmtkTYANnLN5
+pRgd5kt3W4hNhDelRpDcKbWtJrMwzZwUN1Kg+BnyzfcfxZtA9EfV/VOYv65
NvdaR4INpPjXlhEsyRhJkT5vA0//xscTrO/MOm6QZgO3by30JpjunbaHmWMD
Eg9VbQj228XfGlhgA+l7FDQJjjuIHBNKbCD/mYUEwYVxyai4zAYS1q7qncD8
9kKnSWOFDTgMSH4ieCDHYtFgjQ08p5DqCZYviZ2jXG8Da8ai3xJs+vTzhEWz
DVTc2NJEsOObZQOuX/HvHVkdBO/9dOjrgQ4bmDv4ZJzgc13v3qT14ffMW6RF
3H9frPPoqcgGptZXcQn+OBVa8GPEBtyF/JMEj8yuTZ32D9+/teklwQvUFsTp
ydrCxbaE+f/Z1yBwP22OLbzq1d9FsIf5kx1+yrYwrS/+PcGHQN7llIYtHAvS
phD+ybTfSrupawtf9Lb8l//P3O6uql9qCwYbXNb8l69+0vrCFbbQ7vbzFMFS
4S7z5q6xhZz1md8JpieNiZ3p+D6PssRpRL9J5/7cZ28Lfc3Hewk+VZDZmOps
C950b7Ik5rpq8u22bbZAui8aJFjQeD5zKsAWqk51MaQwK3zvPqO9xxau24de
JthpND7I94gtpPR+MJHGHCbzzT0mxhb2WLeHEHxByZSTf8YWMthK9wgu1Tpm
9ea8LYzOlhMQ3Lr8w9KBNFvQWdOnJUPUi7WL1eSv2ULdh8sMgjUY+2esKLSF
HpkFvgTbOL8eWX/HFvw3B4YR7Omt0RP60BbU/+XuJ/joruCPFyptwUtBHETw
1YOVNWW12L51JzcQXBU398HnelsY+nnbiOCuCz7Xx5uxPW+2igl9ZK89OLew
zRZoIUfyCV5SMv0E6rSF04XgQDDz6ea93v22cJz2qYN4f+Cbm94nxLbQ3L5o
B8EJnyYdc0dtofHH4mrCfre61sHLf7Yg0f9HmuAG8VXTPlk7iHa8aEnYXzQ1
tGi2vB0kLg/zIPw1V44ubzzfDk5rkPqJeFipljrpoGkHFrtTZIl4Cje3aUsx
soPYN1fk/xLxs1r446yZHYz6BcmNYKauzelMXGMHbYueSQ9jVkYzePF0Owgc
lx8WYZ4gPRbE2dsBivceFmDupO4ajHG2g2/NbRJ8zHfZzX+Pb7OD34Ovrfsw
X7GPnTwaYAeOGbHcHszHHa2mHQmxg71+7lG/iH61gS99aL8d1Crset+Jeb1L
9oyDh+2gaXrL+g7MazZvkDsQbQcClVipn5i1PWQV9ydgfSccB35gnuFVPi/8
nB1MKb+ZS7DIO0g19Iod/B1hHviOudVXS2PPVTuI0mpdQvAzv6ZFu/PtwDfO
SJfg/MBo3eDbdnBm49kggpOC1xjsLLWDk3t5s4jv7QvhLQ14agdWq69LtGP2
DM009nthB/dlMh0Jfej71pttf2sHFX+WTRL6mhyQtvBpwt/PdPYj3qcSVbbG
+7MdaMetWd+LeepwoI1Xux0op/84x8PcfWwhbOmxg/xE2WVCzPUnGynuAjuQ
GX83d4ioF7EnGJuH7WA5vCET/kmPX81xnbADOc/hsnHMQWfTnTbMQhD8WLOQ
iA/nc+tc1s9FMKfYa/V/8X5R0m3dAgShzcYfp2Oene7vzTFAYObiguZgLryx
KoRCRhC0yv3iAswphT2hJBYCBiMvQQPzgVtX9iNHBAclJQIXYd5aYn/Q1hVB
0eguAx0inu9JHLH2RKBrMlWuh3lF6b3ja7cjMPn5RtMA84LyHTGWQQjOOikx
DIn+80Qt3iIUQesZZGZE9LuKujPmkQjemf39sIyI7+dHks2OIfiwxtTQmMj3
FysvmMYhYD43XGKCOfPlr1TjJATiluQ3BMe8SU1fdhHBptWn5Ewx76rnZC/N
QLBaq7iHON/YOHVtyXUETUomrgTbfLhzY/FNBE6U83LE9/U/+t7Uu4ugs/Xj
EuJ+uc+qt3XKEWwwuN9E6Pv765u7Ws8QzAw/I0+8p+37odKFLxFcUdj9TRdz
9c8VjzQaENi2ypO1CHt2dT5Va0HA+fEGEfZL6bn4XLUNwcO/N76oYN7Gn3g1
rx+Bn7rSuBzmh7V/hgvECHbkT8wl/DMnW6QLfxHUPi169988vXSv3WppAEXp
52+6sb9lVYTO02YATPeWz23FfEcyaGfdbABvC9XFr4nztu2p2+YBbFPVVs0n
5sdXHcXGqgBxLOnrl4h+/MCrZlQd4N27vwdiCfmctq/ViwDebomu3U/IJ24e
TNQFsN/HLvPH7Hbw4ww3AwA/rwcH3DDL+G/QWmyEWSXXyp6Qd260EBkDfKfM
NyAR8iR77mMzgAzTVztWY5Y2ebMtxgLg4X3RYmPMt9UZB9avBYi2aItfTMhP
f5GkaYvlk9IfaRHyvyGvBwDm3J+5TJOQb3/65C4VYPOrU8UahHy91YdDTIDt
u9M4Cwn5R2V9TC5ANy1fXoeQz1sloewIYPGpQmIJIX/ujsqPDQCNDlFLTAn5
oybGha4ANUv/nFxLyAfdpIS7A5j1XlOlE/KbDd3AC+B2BfOLMyFPzw2Z7QPQ
zPhWvZ2QX6kb+3EHQLbFgZcRhLxWVsbVQIARSdvmM4S8nOb9oF0AyrnWLdcx
F4+mvrHcCyBj63vnKebNv+b/lNwHoPp6J4fwn3RTykj9AQAb0swvRH4XVyjI
Xz4EcHjjuTgiPjbfTND3PQZQcP54wULM0qkzrU2jAVwm5hsS8b55j5R/TQJA
19TTVCfi3PPo4bNnAVbseGbhS8x37Mnz7ucBxhe0xoQT8paRNw1Ssb86d2+N
IeT1R56L0wBEvDmXLhLyimGtT7Lwe0Mz/+US8pMiQew1gJfZFbvvE/L9wTIb
bgA8QtMrnhPyH/s1Ft3E/ol3raon5vFqv5V9xQALEzR+fyLmiZIu5v272L9z
kta1E/Lp3l5HSgFYvU0T3YT8qe/h7EcAQTlZP3mYJfe5J8yvAEhao9EtIPrf
ttac9ucAabtlhoWE/LqN5TdrAIYMusaJc0mbpnf7XgOcLTTlEb8vMlzXTarH
98scKSW+7zq/bkLuPYC6033nH4S8JGteazOAUGHpsxZCXlCz9ForgNLeL39e
E/JfybCrDWDRvQtjjwn5V5Uua9uxfXbov79JyN+3CZbuAhj8+rEolZC/Wn7i
HQ7Y1/XndI5hfnTWOGszD/uz72VkAOZFR68+6hQA0AxPeDli7vY8JR4ZBrBk
Vh1Xx7xPc7OXtjQJTDpPOHGw/7/Mro8snE4COzN2tAJmu3G4uGo2CYYWHZnR
PIXz9YthPVOJBHVy36u8MAe+Tu9tmk+C9Zkrvi7B3PBQUXqLGgkWXFopMzgp
rLx4adRqjzYJOorl3yViHosJchnXI8HPC89GvDF77mvfE72EBMZ3SB/WYK7a
7nxGYRkJurVXPp+H2WDjq/zLJvg85pvm0ISwMp5q80JvJQn8jEpsPmEWmJf8
uGVBgiCDoj3PMDvp6Y9briXBq1PfZW9jfqCUqlJlQwLesWa4hnmBpNxKLpAg
4JjilgzMUeIj9h8pJDDzO5JMcHv7kP9WBgmqc/mzr2OmNvqd7GeTIDgwSlyC
Ob/ya1aYAwmOvVDxfIFZ7va6x1PrSXCEuaKtE3NIZvXHuI0kWPQvukYO6998
xnJQaTMJ/t2KabPGvObQzTkZHiRYufVHYwjm9CCtpUu2kuD5U3/WTcy+nOlb
rf1I4C2YZWWK7fnK6uDBmkASSNEdP+/HvNxIeHHdLhIMpHhxX2D+PeNTvU84
Ca71qJfvwP7aNMru40eQ4M3OjUWPif28p0I6IooEnklfzWdif5+szbNOOEGC
86ttjnljnndyX8H9ZBJcednXoTQNx0No/wu7CyRIWzXd0hbzl22e7a9SSSDv
I1LcgdnOqWncKZ0EpIBqvTOYc0h01W9Z+H05fvp3McuaPVrpd40ElG1/Xzdj
DtQ2cRDnkeBLlkXDb8wNCjkBBwtJMLfoF3+upKhy5b/50TLFJNj8g923DPNF
wanspDskGGTHnyRjHvs2+VjtAQkuBCyI24jZs37Pp2sPSaDeqP/cF3PVk1+D
xk9IoPddRjIEs0HRZvmHlVi/7afL92KOT6tfSq7G+hQdUtiDWRBPotXVkkBR
2Oy4E7NT5IOtLm9IMAsJE7wxDzTXnV3eQAK5sMaTTphjTbueSTaRYGxENGGH
WTd+XNTaQoJHp80WLsH8pEtJ5/ZnEjTaNs+bjdkVGa2P/kYCxl/9+Tz83sHL
pGPuP0lwVVnX/SXmhN+b7pj9IkFNu/7ibMxL1oX8nN5Hgh7L+LJwzFUFsXO/
D5AgSs7dnYnZQzoLrzIk0B39vWUB5pTy+qtbR3E8ZN/QuI39N6G3bFv5dDIk
dBd7EP310mFyStJsMpwK1PfXJ+bvz5urtiuQYeum1JK7OF78EuN0lVTJoOPx
x/cjjjfJviynXnUy7NhkdiiYiEdK2fGKRWQ4eJhhOBOzZWbD3fO6ZJBwWbu8
EMd30+ivjkADMtA7lejrMQdtmFQiGZGhZelU9jTM04uVKaomZKDGbKqqGBdW
5sxYHso3IwNtcHf8Ccw2PpRr1RZk+H7rhLUj5k9P3T5cXkuG4JMhsxdj3rtg
r1SILRmWrX2vJ4lZLvSUOZ1EhidDi3J6xoSVN+qzfTRpZHhR9P5SC2ay4cNz
g0ys/5Wjs+owtx1/V/2KS4a2dMnfbzDv/9Y9lOlIhqnCRHITZqU1U3rhzmR4
b9fW+hNzUcp8Z84mMsyroiT+xczgLz+p40GGt2PfTdTw/R0M6v0RLzKsX2aQ
AZijcty76n3IcGtZl1EIZtXJvcrX/chweu/GJ3mY77rGUyN3kkE+635fJ2bu
3athjrvJsGnGBCzB9umRK79uEEqGzSpm9BDMx/0amyf2keHqlduhFZg1q3qk
P0SSwXxpuNVcbH+n/Srbjxwnw5mLD42qMA+8N76wMYYM809JzNLC/oxdTqtZ
Fk8GRa9HgkOYdWM9hqclksH41j6t75if/Axd3JpMhugfy77a4XhwtTm9sfgC
GQJTjm3Owjx4MSf65GUyGMxqvkrsRwni8gduGfj9b7YyVIn9kfv+14qrZFgS
G21tReyfeb3zp+difQL6cj2I+XCaBP1bPhlKyPvCDxPzZqlJ3qkSMqzUqq2q
JP4/ai79o9d9MhRZLPz6HfPLnVtkVz8kw4O7Z05NEPNobdhquSdkuPhAPZiI
7wnthB0dlWSo+BohvxJz5J8P2XnVOF41MyKJfBh9q/E18CUZjk9jJroT9eqq
z3zTtzjeehckBmIe2ndz3VADGVzD7aWdMYdwh06VNZGhlvohywSzQMf6xcGP
ZHhaZ/FbGnPQyPEp9IUMn7c9R8S80F/3Zo30dzKoqJ+PJeYP/xyl0Fc/yWC/
QzVxN9E/97vdSvhFhkeVB16vwuxrn9Pj2EcGcYLjfWK/6tDt15nPJ8OcurOS
xLy6ddTM47OIDLHibSaPsD++1x+4mPGbDH0f66RkMHtce97oPUqGk88XuVpg
/36OmDnbYIIMYQXdYiqOBxeH9bT+fzg+jnYeWY7jqVnv8pFiKQoYaKnoXPyL
4+Nve/ne6RTYrPu8znREWNnYYPh79WwKiMw5U4m/hZUO10NMxuUpML96nfFt
sbCy7sBD/0olCvhvkh4+JRBWstdJXDuhQoH6co9WFR7uN/rMbwx1CpjJm8py
evB+OZakKreIAuunbVqo1imsfPHu0/pGHQqc6vkuCvmO8y9XK+H8Ygqc+6nG
RZ+FlZWRfrWblmJ9JJpKgz/gfHe8LbHQmAL3/f3WdtQJKx8tHrH6uYIClvuH
tY/U4H44bheeu4oC/zr3Ves+FVaWNsbcDlhDgT3dfZQb94SVq/Ia+oxtKJBj
6p2CCnB+HVTRH0QUcLu1NnJ7hrByxXpPz1IKBdr/Zuu0JgkrbxnkpUYyKFC2
4/FM96PCSqMJfpMdhwIbjp2OL9qF+/d7izlS6yhwSdG9INoNzxc3DjFeOlHA
UUlfeJkirLweVXPstAs+f/jX7tJSnE9Oc56sc8O/99tTtFhOWJm9ZOOfeZ4U
yL4z26mnX1C5aDJ9Ras3BdiuGUsiagSVaU1dgenbKUAnP2wNThNULshfnrs1
gAIzTyqnuQYJKi8eCvuhH4x5w1/pCktBpfKGJ2p9IVjf0z03I6QElSmG0s63
wijA9cjegd7xKxWnOIl7IihQ85ryFc7xKxM/nHtlEUWBjIYzMuEO/Eq5gq+S
Y0coYErqtG76N1B56rCebcUJCuxQrndblzdQKeu8c//xWOz/1FDRLxioPLn0
3h36aQoUlKv5n2/gVUr+G+PNSqLAXFqqxVYHXuXRZrLBuxQKTOl/lthU2V85
VRC/9dxFbI9rTu8vaPdXRh1puuJ6hQLKN4+vJe3pqxxzVm/RyKTAJtnA48kl
vZURRtsU2q9SIPbq9E/vvvVU/vlXwLqeS4HCK2PqcqPdlWEt4hP+BRSQuJxz
qOvvr8rdR4+NikooUKdoc55X1VmZt+mZZdh9CszasUo7Lauj8vuKf/tGyiiw
dZg9ZbrzZyX3Z9TwZAUFbkausGRkfas8Uf541bEqCjxLvLFHqelL5aPksVDp
WhxvEaVGL7s+VRqSIwZn1VMgVZ37wKj4faWXeplZYiMFEli39cYa6iovDg6H
zG2mwNGYy29k5Worpa+FClW/UmDe3O2CiabbldYH75qkfadAScgkScSgoL0b
xMGLOihgtO6fK6u+BP2U2j2g30eBnzPydazMX6MFbbeW5Q9QoLncW178qhE5
3h8IXCaiwJZwtZCagWZU4RvYZzaC9Us3+Wwy0oaGbQoMH4xRIFwpbpGjfzta
Pr/Xb80UBRRb7wWYkzvQlZrt3XYyVPA6s9gk9M4v9D7j+uKqGVQ4deP5txWk
HjRjX6cvTY4KfePdGX13exFy0L3+SoEKwv0NBk7S/WifgXcnZx4Vdi6+9yxS
joduTWXpvlOhwrQegyZuLg91ffzu7aROhcn0PmvvhQNI8/bCqy0LqdB1/vIT
rf0DaEOsR/smHSrw5j8PXvpgAMV7pWm16VMhOJ3DdvwygKosv3h6GVLBRXn8
fmLfAPqroJbZsYwKqsrfpqZ+DaAVva7ftptSIVX1Gb+paQD5Pbuo2beSCpKP
88mcewMoM7XFPWg1FbKG6XA7fgC1hCinCddSodR5pxnVYwDJsTZ82WtLhaDV
UULqsgFE0UlR+wNUSJPm+X8e46HIv42bDlCpcHd3wRL5Bh66814hdYJBhZSC
zE9vb/BQb4HDpyMcKpTUWtsZdvOQ1vEzKlLrqPC0w2VWlPUAcnGr2xjjRIW8
3aakV6kDqGYWuzlhMxWqHoYWXdnBRxMdcfMUt1DhjZ2PxJ5mPlr1+KXTua1U
KIw/6sejClDOTtr7y35U2HF6x3WfJUL0mXJSceFOKowG5XTNuShEiprV67J3
UcH8krH1VgkRYvyelqS3lwpbNAdkuleK0OE6aMgLp0Knt+79F94i9OD6kTlG
B6iwTmNlvGmCCA1EVXBvRVFBgXrtlM8dEdLbOHl6xVEqfBziZklWiZCbsc3b
eyeo4HNy89lNpSKULHNwlmUsFagaJZu1c0Xo1bdy1qN4Kmxk+9aPJoqQROlo
nG0iFV70jHckhImQZaLlq2fJVCDLfshKdhGh6+/VNM9eoEK+ZdeZDqyf0vyJ
3V6Xsf9Oul79IidCgrRnqlPZ+H1DD/btPShEHj9ydtZfx/qRWsKsjYXojW50
ZXo+FVZ+nK9o1yFAa3b4zQsqosKM9BaeZ7oA5RWw/KxLqDBg7WwdvEWAlPnL
Hs+6TwWToo4DmksE6PgKeYUvZVSIf/b+l6+BAIlCRdsKHlOhR1J0R5skQFvK
mkojKqlgoMJz6vQVoDdj92cxq6kQHR6refYsvs/ukqfqSyr8aZo9zq/C9x07
cLf7DRUUXcaiisbwfTXusqUNVLD/+rrNf7UQHZ9h5xbdRAVl86xZ98KESMTR
Lnb+SIXGrbKlSveFyDNJUlL/CxVmfrnpKjckRHVNXRuHvlHhcUf8wnkLRMhK
5WVB1U8qzMowefFnlQjlby6YTP5FBZ3KobxD60RIJeP0eu8+KgRcU6iZ2CFC
J9qDc1fwqTCYcVMrMUSERHqOf/+JqGA8ermqNkCEPP1W2r/7TYVIpWx2hJcI
1RUqX80cpYLmqfq905zwfYI/v4MnqHDG8VXeWxK+z+wz01aCBsmv9bgsU3xf
+ON0OWkabG0pm/1bXYQGx49Qb86mgQH7/Kxr34RoK9qWGqlAg9U1T/oXlAhR
w3HqAGseDbrSZ01KnhAim1oDUFOlQcSQfF2AqxAVzpx5vledBse+jbauMxGi
Bfa8nrJFNFCIp5gUzxCimLP11rG6NNCxG5v3ekCAfn+4neRiQIOFR96c6sPs
rZrSudiIBoc/y7xtEQtQg1uY5bAxDVQdj3+wGhcgm0yX0y/MaLA3qTWxFH+v
8OeaH+csaFAWn1XyWQ3ft1jD3GctDTIX5CcsxffH+E/GrLSlwaaza4Q6NCH6
ffPHl2kkGhzZwRxe7SlEjSuvH89m0kCKlCUddF6I7PbFfNzNxe+j+YR74vcW
lfsbIUcaKHWpzlSpEyL1SfZheWcsvzFfY6JbiOLAuOmbKw0SHU4/sMP5+ueE
gsEtdxqEqF0vV58uQr4vxQeivGjwcnK52XGcD02zmus5PjSw/HUgrl5RhOtv
qY6GHw2ufaMdG5wnQkXJqeH9gTTok7Ci9s8XIfWWyNflu2gQxTNcd0dFhOIW
bFl4ai/Wx5ztw8D8xx3t2bSPBuhbeOhtZXxflk7Nkkga6H70ShHOxfd1SKmN
HKLB5I4P7YryIgQG3UG1x/D7igQHtWaKUHHAq2cXomngpuC500hKhFpuX1XT
P0WD4cOxb47+FaKJ4ci9dxNoUNR76KMhT4j0bZzfwlkaZCic36zZKkSc48b6
787RIOiDilvyMyHa+0r20JZLNDiqp++6Pl+Irsi3t/Cu0EB5pat8dZIQ9V5J
iZ2RQ4O5tofdPbyESOHnzvaLuTRYF/pxmjNTiFYvoa1dXEADvt71wLSVQrQl
eFHKvSIaCE3oWRcWCdHJeyP9pBLsv9JntVflhOjm30ZK4z0aTFUdVVOfFKAm
VJjuWUYDrR6tFieRAI1FnxgeeEQDXueSFZe7BUinzsPhYAUNfnE/2q9sFyCm
0uobM6toMGt5u5nbNwEK2aQgkVpDg3vh1e86cT26lNm7yeA1DcQNnckK+PsV
Xc/v3K/D8TVz6NkOdSH6ZZQ2i9KI/fczRMiyEiK5PWE+7z/g+OjlzFHyECK3
SYP5gi80EO1aeOVKjhAdo0jsivpOgyWH2NdHa4Qo/9Tn2lkdNFglMdIQ2Yvj
8d1drcu/aCBnXfPlobQIjcxPiFjSR4PUzYe01bB/F3lsf/9ggAZj1ueaZuuK
ED3HzogqwvEkteA22USEgntVTzQN0eDTV97FsDUidN5E/HXrCA2qmDsTPEGE
Hoe9WSUco8FEsObdFzQR6nh07cyhKRoMWZVnbsLys6Yd6p4tSYfiuVttA5aI
kBnDBV2RocPT4DGnWHz/pjOmqYYz6bAlt8FXH8f70Q8zxKVydPBqiHof3ILr
g9fjnA/z6OAzwmNxDwnRcO75cW9VOnytDh/8s16INAeCnUXqdNgqbjAIMBQi
ykrGrcOL6PCQqv7lwjQhCozQlp2jS4ddJhmx/t8FKLnir2faYjqMv052qKoU
oIfSH8qWLqWDoG10zv48AWpnFyk+XE4HpY87j7LPCdD05OgA+go65NYJXPkx
AmTyybOq2ZwOByTezK++KkAuC9do+FjSQZayYjioWYAO+cwNE1vRIV/4a2kr
jqfrBf11R+zosFl6Hv8tS4jeCqsXy5PpcOvrsIVEvBANWmQcTqfRoVdx8QMd
XA+gat2Kci4d+A0n7L0MRchvxtJTDEc6/Fl7YCdiilCig2RHywY6bFotP+yJ
63np+a9Wvq50eP5zk2D+cRH69uX+uUE3OpANfhZUXREhaZ3EgaOedIgoItW+
vS1Cy/38aArb6HC8/tWynGcitOEWZGZsp8Pvk2qzqutEKHJIbWRZAB10Wx+p
1L0UodbrF31lg+mgfP5ZZ32eCK12mdfUHkIHc72NpjlHcTxMP4tjgA6OWc12
JNy/Bx/K3boQQYcu5x3Zd7H+joGn1EOi6FAg1HmpNChExRqyceyjdDhaknHt
2Vnsn8P/tv2LpUNI2foL894L0CvTqMbPp+mgKu8jb7xfgAx+jtreT8L2+JAR
q60vQCdTwm8mnqND2mBrxL/PfNRBGVwQcIkOMTI1YU+v8BEM74qhpNHBu1r5
iqE/H2Xm8YYWZtGhYsPnuBFXPE+5+nuP5tDhwg9adNMFPto881dDUx4dOjLj
oh6281HpI2+bW4V0OP8+IeP0atyvg74XxBbTIbj3hu70CwLU2PDppE0pHWa/
X8bZuE2ITI46D6o8ogNjomrDUuy/BLP3XuKndLiSOq3XA/e//g77+rfPsT6t
K7c844oQ8/wbq7waOgToWoZJRolQHo2Rf/Q19t9EjosY21d6pHq+ez0d7HlG
doHYH9vy4YTFe2yfOlHNFp4IPdv8VKTQQodO1wyHsAmcv7OtPPtb6XDncIzm
5DcRinpS+vZFGx2yHuoe8n8oQl+CzddmtWN/JW+ra8Dz3BqtkrwDXXRg32NS
PD1E6GLjcmXnXhx/Yls3F+yv38cKjpkM0GFmzhsX2S4hKunK8egcokOKc2dp
xnQhkr+o9ebpCB2E7X4LLDMEKIiRbpk6jvNjmkrl9zV4HhpdkLv3Hx1OlTiV
an/joyWFF5TspRigc6+nNzCBj066Kx1dMp0BM4tu/pJiYf/JJfGnzWbAwthf
9kkLsP8qZru3yTPgfZ+0wkrsr8zdca9KlRiQ+OJw0/fr2H/aMquTVRgAxxV2
MP/xkVvTsWs71RlwVX/s86CPAKlYHDysrcuAaQOLG3eShCise4Q3tpgBKo0j
8nfwPNV0KWxzy1IGNHxJ1kvH/XEFS1x725gBP6+wjqtycH6NBa+KN2PAUpOC
SL8jeP692X/V14IBRw9Wtpnj/GFv8VNAaxngNpi2edVnPP/Id0Wp2TJg90r6
TgvsD9lnW/uHgAFe9x7YLFQVI98931wbqAxY/FLWKntEhKp03WrymQzQXvS4
/Sz2r3bzx5UnuAxIHWmzKMP5ejh6Q/YWRwbklUtO7fERobbVjXPWODNgKkNi
xBz7x6qXe1BpEwM+Tyr+nGjG9ZBNd3nphe2lo6P74KsArd4/VJ/kw4BvLyYs
jXcIUMS1bNomPwa021JJj0b4qPyd/VPtnQzQe3G3yeAcH42Nj63q28UA4dfL
dzSt+cjaML/ozl4GZAX/G1EfHEBRzhv1I/cxQLLt8ZqgRwPo6VHJdHIkA+iq
Dp4P8L41VXR73uzD2F4S/Q0GXD5Cnz1OfzjGgIjDCZHDT/noqMwsqfRoBogl
Hp43thEgSU/fweVnGDDdWzbLEtdvSvzcwOGzDNhcNegf8hP349KKn0/PM+Ag
08HvIO4fsgpq7x3SGfCprmfVGlyvGNa1TNVsBlA3Ws7swfaO8wt99uMa1l+D
6353pRi9Pqe9Jv8GA3h0XY7uVjGa9az+dshNBmQfdGZ/PSFGnIHIJWtvM8A4
JfKLRbQYJSwwzJp2jwGa2w9Nv+QoRvXUFpU3pQw4L35g5aAkRvJ7jiemPGKA
6hED4cRbEVqXYSrrXoHfq/L461YcH2dftx3Sq8L+bGGl2uN+qaRrGXz/NQNi
3KPpxbj+b3Do6oqqZ4BVa1tuJvbH+chkD9p7BpyJX1Hxu5aPPubZNc9pYcCm
CPfvoWZ8pPqBx/nYyoCPdYofKgoG0KZ/qdWZbTjej7Wt4JgPoCvL6NZ+7Qzo
kdXPdH7PQ19dh+6adjHgj8hgYWMMD2mezDYa7WFAm8Wn2Ct439xSYp/zjIff
t3uF+wwvvO+2jamdEmJ/nvqQtJw3gH7MyE9eP8QA32QZDZ9YPtK22DhTfYQB
r9pNPzWa4vnZW/JYxxjWh/uLvAfPNzlnbo8WTjGgwq0H6V8Qos5yj5BQSSa0
PJzf901fhPS7Z/ZayzLhomyIUPqQCG1XKvOSnsWEppGHw38acb2z8/1UN4cJ
7oXMXXcWiVFP4Nx1F+YyoTU5zY3uK0aGlypqt8xnwrhii1FnlhgFVO+0M1Bj
wlMlcsand2JUKFxQKtBkQta1XWl7qsSIp1FrXKbNhB23oqV8T4vRcmZo7hF9
JiyguVwyZ4lRcJj2QqYhE36kLdS+OYnn0+z684rLmRCr1378QSHO/79LTl41
Z4LypAqLxReiPYtbxgMsmZA5efjwUXMhurv+eOhKayYEfDO/mn5QgIYOmfLG
7JjgFgKT7a/xPl7Ytq2azIQVAY/DonT5KPzjqS+n6Uw4atfme/DUACqVtHRy
ZjPhmoLi6XLJATRq0vVa04EJcafk+z8k89Ba92TSr/VMMN5Ye7ZiGw+tireo
CNrIhNszru+9WM5DJuWfrX5vYgJpz7KDSxcPIMPeQ2UHPZgQUStTVZEzgHRV
dVdJbWVCwr/82X6mfKRJry2J92HClUdd2bKvcDyFBxor+TFBVX+3gVeAAMl9
uGugs4sJRV0qu949FCJZSddr+XuY8Odp/MCsFSI0zWxca0U4E8zistQpx0Ro
wisrvSwC20tRlu3bgPeDRIoaimKC1Tnlhw3zxUj0tOdC7REmzHx6rGpoI/bH
wGklhxNMyF607IPbGTHq1liR1BLDBMXsr5y8R2I8XzXP3hLPhJKAiIhPGWL0
5UBEXNcZJniJth+k7hKjlnxNmaBkJhxqCMw9YSFGjZ+eHRs6zwTugkOL//4W
oTey26ciU5nA2SrM0S4WoRcWMw9KpmN7apkHxm0ToQrfWyOnspjgvyjtch2u
7/eqhkWpeUzgj5hmy/QIULH4crB2IRN6mQuPnmELUL62Xf+NW0wo7OiMkXzA
RznrOnaY3mHCyuKKbReX8lH64ZjO0vv4/WqvDnvcHEAXbxlttXvIhEu9hz3A
dgAltzW01TzG9pLl8Md/8lDC7NDN9pVMODmv6c9UOw/FWKl+bK5iQt6SS8+0
7QbQ0YDHTh61TJgenmKqVTyADqZ6vet8zQSlv41Ga034aN9LKe7OeiYcdomd
PPiYj0L+3Hg12MgE4eKj8+qdBChwMZcW2cyEF/T4B0N4H/F1Fj2f1soEWdOe
mpwUIdp8d81jxR9M8Jm2VikD7/POP9ssUzuYoOGozXvyQIQcFI/d1+pmQqM0
aEjifGCixWY3+nB+FqcsaLMVI/Ku17dM+EyYUlN1r98nRjYZwUalIiao7Z9u
HZInRpZ1c2/Y/sb++5fTInghRivHH+jVjDDBbrxt3rULOP+M3LK540yo77/b
peYhRgabpzSbp7A/TywWVqqJkU5czmV3SRbMyFmyciGuByrd/SmBM1ng1q7u
EWssQorzkxQG5Vhw5WpszeRtIZpFNU84oMiCgd8bGGIpIfp39WB0nCoLto3f
0pkqxf2rUUtSUYMFQalHU2Ys5KPf/6oPX1rEgsdZH5b/ShpAAhP/8UW6LPB7
EkWuVhpAvVvkIvIWsyAuPWdnTj4PdSSU/DZeivWRGmcynXno22PnPQ+Ws2B/
X0+J9Ekeau0f5dusYIFMTJHZ8zEealLLCHxhzoLs9WOUhOgBJHW/a/ySJQtu
Z3xR7sb+W+Ww/MxOaxbIby9cm9LDRxePP76tRGHB+E17BbMwIXqpKUXqprPg
zcOHy+y0RGi0lN1UzmbBv90ay/bh+d1ofYrPGQcWkO+/D3b+KULuvM+/tzqx
4LKNV0/kWtyvonViVrmwYPOS+s6rcWJUoRWgOsONBUbbip2z68RIWF6S/3UL
C1Yr6S8KkxpE2s6ja297syC2mrkzZO4gWi9Ab49vZ8GmwZwmZoMYHY+L9XAJ
YMEGmSn1E4fE6J7uO/7SYBZQ47qNXXTEqOuJypHJEBa8dtov0nkiQvNdPRXf
h7HgbmwEbYcj3hfFuVevR7CgxHByUdhzvH8utnjBOcoCbinVbL2EAH2ujNqo
dZIFbU/HthjgfJrl9qJ7MJYFn1OXfbHA/cjm9+yI2tMs6B5Jz4++wUPBiRtm
XkliQZKazq9vsjyUaZh2JfgcC768bH5VeqwfNVZ1LCNdYsH19Gfjqsv70bQt
Rk+V01jw6ZVfCbWoH60c2ePQm8kCRdbwfhGbh3ySy388zmGB/hHXq3FSA+j8
sml7kvJYYN1R+Wjh+wH0x+vsudXFLHAs2Biod1GAlox90p91lwUuK68WnT0u
RJvOa5V+e8ACqf1t+nMsReiUiR/jTjkLznie4yQViNCjV8WtJ5+ywNy3sGSG
Cq5/2/4EbHqO49k0IPLlATHSnLQdX1bDAkpA3TnLJjFyuBSd8O8VC2YuNzQb
0BxER8zqF36oY4HlnjfOBa6DqOSt8u28Rvx9ZU+q2pJB1LHdAyKbWQAdk2GC
z2I0T+L6e/tWFviH2drmHhYj6hXeNp02FpSFF/Q8wPNm+Crz379/sKCpcuzW
8xu43zZERr/qZMFzI9uJODMRmiE1K383jwU+Ky5/d8P9bG3G+rUUIQtOaLrH
ZZ3mo0DLy29UhliQ7NIvz8obQGnv2937/7Cg/J2h9kAjD9XtNOQ/HcP5sCLk
d7ciD03KhBxOnmLBzvAfzfY7+5FJdpnCdkk21KTkX/3U1Ye2Wv3LXiPLht68
a5OX5PpRcjN9pdwsNmRVHIiZn9qPqnYlVv+Yw4bdBkM5diQe+j3jo/O9uWyI
8byjvAH7a/G1hd0x89kwy8k1xvrzAHKx3b7fTY0Nkg9P1Kbj+TL2U9EMk4Vs
IO19K8krxPv8nt+Xp+mwgcu/J3koTYjU8048yTdkQ8WvmJ4PZXi/olQ5WS9n
w0J/yg/1hThffkj01ZuyoV694JJtJO5HUejIVnM2TGvyv6NfL0Yv1A7PH1rN
hqrcU0db5w2i4tInN6Ot2PD1xc9pAttBdHnDOGmBHRtuV18pODNrEJ0UrW0t
JLGhdUeEZdJrMdp1JmKXLY0NhsonN9yOEqNNRmXSjUw2nEgVZr5bLEaUl8NX
tnHZoDJ6domoVoQWTAt9GbuBDX8zm0ZoQ0IkmXlni7orGzwDy/QWawkR30o0
VOTGhu7OrmdeXAGqCgvWbvJmg/K2FM3oJwOoaG5Rqe92NmQ8PeQoM2MAXSru
5474syHswf5i8XYeOs5Z2nkqCH/fAyVpf+lHQb1+BzRD2JC2P85I178fuUTn
KdwOZYMcvBFfftSPSLq/ckn7sX7t751nm/HQ8ko9m+ZINjRUX55RU8FDKh7b
mnYcZoMr3zmWuXUASfzN9v97jA0tDTHvvszlI96FH1Ono9mQeTztzdl3fPTs
nceyOwls0PK1OjTfS4gKg9KeU86yYZfM83S6sgidn/nF9eM5NjgP3ax8vQ/v
Q3kLBP6XcLw4v/OXahGhAIrryfErbCg58llStFyMnNsvqCdmssG/a9rGLGxf
u0PNJdo5bLhsuLHUCs+HhurzGPdy2RBInUaaPSFGSmXrv9EK2KA35JuZ1S9G
ExvOhrYWsYGi+i6ZWornUVHDzJ0lbIhWESTm4/7XdGZO9uQ9NmxxtkfBxmL0
xIi7+mwZG+xqV4+tb8P59TK+TvcxGwa397QbR4tQsu/rbQ8q2OB9vXqsb6kI
7cikJ32pYUNkvI7Go28C5GgdvTj4NRsevn6nN99AgKxbqx//q2PDdRkwGwrn
I4NwSaeURhyfq3kZhrg+KSqRevWb2ZCQLd+5w3oAjRUfOVz2iQ3VT5Tfr3jI
Q784Fcrsr2y4oz71sgHXu8beicK272wY3p70zo7DQ4+irUm7O9jgU73hXH8J
D13Xjfw0rZsN3/xZpUeWD6CkyofB5/vYcJFV8OMr3u8iPUaklvDZcNOIMnF1
Ex/5/rW4Ui5iwwPXjAKapAA5XAxbwf3NhiRX5asq93H9ML9X+30E+yt7TJcb
KETywSuGpP6x4blv+B9aIO5vM3efuijJAX8uOTEC72+debe0lspyoOLgn6eU
uWLUQBl48HgmBwzrkq58dROjh+1GXIc5HHiwrNs2Pk2MYkYvDzQockBmnUns
80Yx2qA488w6ZQ6sDq0NiegSI23DCONGVQ6cqRPd33FfjASop95RgwOX/py5
fxnX3yeuLrveL+JA2ZRJUDSeJ+N318g76XIgcYjaWt4nQouzrq3bsJQDHS3y
7wtIIjRYqiT6sBzrm+PWUfNeiJ41HDvrvIIDJsMpVjcXCVFit2hFizkHwqKF
E9nBAuQx5fV+oyUHqtWSsuyq+MhI5d2ej1YceCNlFTxbm49GjO2UXO044FY7
f3VY/AB6Qbt19xOJAwWPNkk8lx5AKVs0N2yicSC+dPLhrBQe2hp+eqiVyYG9
d/d3rbDgIeMzY+c2czmw/l/7L/MAHhq7HrDqyzoO7Jv3W+FRKw+9etLa7LaB
A92/HJj+Hng+bWaEf3XhwKCU8RI98QDyGSid7+HGAc+AbZLpeN+f0rjgssWb
A+tM7wjfDglQnbn0yDdfDphXsc2phUJ0mRN6ydOfA9a3Vv+egfeBHT4dlj92
csA5o0ixKk6EVh1c3+q1mwOdSbaDkd9ESPLcs4j2vRyo2lflFoTzsbHQVM17
HwdeG1OSfoSKUWZVZvnPAxyQfX883fyuGO38Msdt2yEOTJuXkNbxS4zWDEaN
dRzlQJsgTmbOXzGSnTVwxeckB5Kj9wQ4VItRs467dVcsByb7Zy51Pi5GOWvf
fPU9zYFfr+SbiizFKGT92qhfiRy4kdtjJP1LhGwD8jV3pODvfUl4ujBBhFpT
Y7b4XeaA3OqbF0cyhCivZHiyJ50Dd+g3NNVxPoa+8s30z+bAj0+23t8XCRC0
f7Dru8aBiMqxbfP9+Eh+lPwj4AYHpGZsMDpcPoDaFO4e6S/kgPz3kB+P1AZQ
wRId7Z3FHGiO+veDdpqH9qGzz3h3OPBHfaR5x1weorr+2xr0gAPSrf6vltzu
R0q7d03jP+TACz2LI886+tGPmG9Xg59wYNuG3vKl7jxUlMklCyo5IHg9VB/a
x0ORpY87dlVzwEti70I6jh9mg9EJYS0HpifHPFC04uP5+bJeyBts7yfjGarD
fHRnfoTvnvccWErTIzsdEqLDxj3Sg80c+B1z5QdHR4S4NJfcva0c+FDg+KkA
73fqW2poQ1850GDy6cNb7M/esFXdoT84IFKfTKg1F6PShGsxvzuwPioJDs+O
idGJ60pLwrs5EGymmv2nRowcnxx7OdzHgbSrrweqp8RoUbPIbx+fA8Xrl3Od
VAeRrqvUQoqYA+1SrtJjeH4x+DK/SWGYA7PbFx/clyhGRlsMY9tGcb5xii17
VouRabuVTcEEjg+TM6yLuN6v8rEXh0twYXBZTLIwSITWdHvlkaW5cOgJTVk0
JUQwcFKxbTYX3KvmbOoBAaLuvlSTr8CFZZtL7iB/PmINFkSGz+OC7RKUUXZl
ADmEPzElq3LBLt3svMM3HnIabeiS1+DC0qfTbtav4iGXgz8vf13Ehf4Lgbql
uf3IbWrIIV+XCz9u5o2arupHnsdkpcMNuDCeGCFxIakf+UirlZOMuFD+YNF9
Tw0e8o9dtkvehAvrLq9yZj3noaBZdnpfzbiw5eXempaoARSm6HMmbC0Xwia2
bQ/VEaCIc+Fkki0X7lW+r3aREKJDKnEjc0hc2Bm9ee+1diGK0bzlfYPJhXZy
guWaVyIUn1WpEsblQk55vOc7IzFK1G16C45ckJVWffrlhBil5HYdnePMhaeh
KYGy78XokuGIxRdXLgyP3tM1VBxE6Tdn8vLcubDYR5msLjuIsk00s0O9uDDq
XcevrxWj63dMNoIPF/RlFba/x/UzfxVp1hw/Lpw8v5vEwftAUdmGys+BXGAe
30WPrxShO1Y7wvJ2cSGwcMXjCRc8D8Pp72gfFzJvGkTajghQRXXGOblILpz7
ztQf1sDzCr2E+fkQF2oenF2Vw+Cj2tdVk7nHuHDbaPnPTUcG0Ftuy9290Vwo
izZMl36F+9m7Hj90Ctv7dXutiwEPNTuNacqd4cKUVtD2B5n9qLVFrqn1LBe8
nEJap4L6Udsmrdjc89j/I4oZe772o/avZjZ7U7kgf6ZpmhDPP788qWK7dC5k
5CYe3I/no/6fLnmzs7nwonbDk7IKvC/6Bri3XuOCAf+Wk9pJPhrsOaiYe4ML
H+SFzA8bBOhPYGLNnptcaErf/2LMUIjG+NmRdre5cFbm3/VzOB7/hdwznX2P
C1c0BMmNfnje/F3T9amUC6mKN9amvcXz9/7Wy9cfcWGvRkcxxVCM5Mb6HfZU
cEHtwLm9UQfFSPHQpJRdFRdOGCmKF+D6pyyhWD6rlgsBwwnrJ/H8onZCd9en
11xIs67OC8P9cJGshd71ehxf1jdG518UI91TjNaQ91wwfn3x8611ON/k3M7Y
tnDhW8y8xeb/8H6ZFESe9Rnbpy54bWWeCJlfSC661s4FSqq8TWa9EInU03aY
duF4iasJnjlfiIqzr2s/7uGC+m6B3GpPAQoyKP5C5+H4eRLe11eE+11R2fkm
AReu/Sqb/CzNR71mzx08B7kQ84sVnBUwgHLL3szoH+aCz6PnJ4q+89A22+aq
8L9cmNdz+B7Jj4e0q79FTZvkQnGi12stHR76zuxZfUbCHhY2Oeot2s1D6Q0i
0QJpezBaoeBl+IGH3JzHCq9Pt4d3W7dqprIHkOoXqe0rZtvD5s7uz6ebBlCz
1xytJ/L2EPLA448I1++UXyqfGUr2sH9mw50z0wVIXrzU3kvNHo44vAv95ypE
dfvMp/M07YF6em7puATe7yZsnu/Ttoe7T8vCwBnvt8fpByX17eHjqh1O6tex
P2c4WiQusQf5xZLa7QIRqjqzWai2zB5G3f30RleK0dF5PgW5JvYwkiaz4Nsu
PI9eDvIxW2kPQSOHTPWuitH4on0Ln1rYg+yZ0EidJDzvXD/yibnWHu7/bMjt
8BejfUankptt7GHLw3eSR/G+v6okhbMV7KFwfF/dSkkxGrRIlxmg2MPpyU8/
OS9EqORxbuV+hj2cX+bsaYrreTDp9gEpDv599UczRytcz7lVfHUne1jzY8fN
eAfc/5re3sjbaA/+bz3mUJ8IkM+mFu+Vm+2ht+O9RJyJAGl//65R4WEPF35O
nuLm89F3n94W1las76XRiJDlfJTeJ05q8bGHvevMrtx9OoDcdo+zvP3sodO6
uzvfcwAtGJaW5gfaw1q5NGXuugHUEilfEbHLHjbE3DWKPIXnHYkFEdJ77WEo
oP+gYfMAcozRWXk23B6OS+U92mSM+63csgGNA/Zw0jO0oz2Fj+qSV+XdiML+
yvG7uxfPn/GqdlvNj2L53QeXXDsgQIwMhnrlCXvIter5Ix7G9SXfLfFjPLb3
n7nim3h/Omriy9yWaA/Ri7aWjuD93e5+sKQg2R6Sh4qD4kJFaGLt/icHLtjD
ZYkdreybIlReeXSfzGV7oNcVHpvzXYT20eJXJKfbwxI52QPFs7A/3p7r18y2
B/eP0f+4BtgfjhnX86/ZQ7/bxejd88So5GOe56ob9sASNiv5/xWhXR4lC54V
2sPvG8bfx1pFaFlHeROn2B6W0732/ruL/eNXnfDpjj082TCVtwXPV3n8OrrP
A3v4ZBdxeZabCPmGfpQQPrQHjX0qeTJ4n9D9++NR5BN7CJ0hVVU4IEQZ0kMm
KdX2kDQ9A9lpC1HKcNZkwEt7mLHIksF4IEAx3dw60lssH6eYv9FRgCI//b2i
9s4eShzjJvuH+GjXq7wAcZM97M74zgjI4aNt5RvWvP5oD2JL5cXXwvjItVBi
+tUv9uAqmKOsmcxH3LRbLRHf7YF72dgh6xEfQYLbdccOe3CLXO9YKuSjVYem
hxp224Mhbd7n5zielu66T5Lot4eiJrVnEvsESMlR/sdtsT2MxTw5ew7XF1nS
41uxwzi//V6u+RsgRONm/lFef+0huPNSYHWFEHXNq1JTmOYAe4uuG1fgebRV
endvt7QD/NHozKncKEL1wxplFTMc4Pyg2Et+P87H7lfRF+UcoLOhXqY5SYRK
P4U771J0gAWrdy0oPyVCha909ejKDlBTFVBee1iEMsvfiRcucAA1mdzhkN0i
lFIY9WxYwwFyXn0xtvYQodi0pUn1Wg5gBYVvH9BEKCrh45ZcPSy/MvfPweUi
FHLoxPJDSxzgnp4ny2yuCG3y+vZ6uakDHKzcnGZYLERcx/hUaXMHqPvbctU2
VIhIJEu/ttUOsNwkXyltrRCtXtllcd/KAR7I5rVekhQiI71k6QQ7/PvHjqSj
7wRokbLdBx+yA2wMFO9IvipA82R4V63pDrC28+TwgQwBmvHnUsg8tgN03FtF
L8oSoIluKuLZO8CXMZnFSTcESPRJPKd6vQM8CpvRcQfva12vMtuubHQAr+Nb
t6TUClBrOefm3s0OcO1Zs1tWmwDVF44eYG9xAIls9xarPzif0nKZut4OsGYi
3+mJkhDPg06qY74OMHHv8epQMyHK3FV0vyDIAeY5DCtc34vjz2vziWMhDlC9
/rRywTkhinWUddoc5gBaeu20qXtCFEW6p20W4QBVKQ+o/CYhClm5VTgjygF6
Q9cWyv4SIl+9ORXtRxzgRN9yZcGgEG1WfpTw8IQDZEaFXXbB/dVBxs/9bKwD
DCxxf3FWSoTIf+YZ+Z92AOX/R8F1x1PBRmFSyMooq7IiJCOzhPckRdbd9xIi
s0mlYWZFKkklIlFoSZKkUp+koqyKCtGSZN57iRDVd/rz/Nz7vud9znOe85xf
dL9qRY4wn5h/r54kJ7D+97s3rxfFede+s07hNJ73u0YtBWOVF8oZvAxXyFyu
ujxYhE/kKuv867Jd4dYJWDoyG+fz9b0mebmuUNXxKHmxIOrDOfVZB/Jdgd9z
xuDvBM7HlOZXrpdd4Xrc20LXQeRndGTe0iJX4A2cfEPt4pH2YJ3gPzdcYUXR
oK9pA480eb+1enfLFZ4WtO8cLeWRGmq8eMkdV1h7xD/b5xTiucbwfeJ9VzA3
CNWRQH6k3pC47fSfKwxaaZ8zYPJIgNLAMZnHrsA4NfvgOzMesUqs82976gqi
/VWzChR5ZP5IofX5566gMpM0avSbS4Y84+X9Gl2hWSCzSbGHS5489+bpvHKF
adVHA0NNXJJtav2c2+oK1byRDIsHXLLngvLF8jZXWDj8yjS8mEscJSbDIzpd
4fD4Ss+l+VyiHvaWDp9cIam6eepSDpdMfi3TE/7qCsT9WDAF41eUtNmNva5w
L+l8YDt+/+qDnR9ODrhCLW3+5xfvuCRG26mCw3WFsu2DGrzZPGLwd86Wr+Ou
4LPw0Kow7Hfh7V/h2hTWM78kKh33sw/vqpVCfiMeEho/PXH/LrfNHTUVpMC+
WVodLViPlJLIhl+zKWDk9VGjQAn1Udm9sFqUAumKS+pTDflkdZJ5dJIEBXY0
TzWIreUT2VE5trM0BT55zEs/zeCTAa8RA9n5FFh93OpziQ/qxYtmkXYFCjx+
IV44vJVPssyKP59fSIHERzZDw8HY3xeP3PdTpUDXuV0hHPS3DpJBp3SXUOBu
0Kv6/1byiVq43XbeUgooOSyO/6nAJ5M96nZ3llHANHtwQ0Y/j1x52DUOxhQ4
HjAobcDCfUynslnYnAL+Xp22CWI8wk7PvNK4igICoVeiWx5ziYHAvthT1hQ4
8sPyaVMUlwjvoLu7raFAoVBzzCJrLvnYZmisso4CzNalfazZXHJnraR4jwMF
ml+/3z7dOkxSbg58veZMAdUvJxRDbwwT/4XPH4ZQKaB21FpoFs5Tq8OXzpgx
KUD9G/C3qWiYyP2ID57mUGDvddnojajfA5t87B97YL60m0b1eF9NvbXaYW8K
SD3OUtZOR/6YL5xy9qPAn7ZvFt58LtmdP/laNogCA8MpjU5UHlGLuJ2QG0yB
udfLn5nNRTy+pXn676GgX+w8vwDxekkLNlu2nwJxhyfj/Pxx3v3nJMUPp8DV
uddGpI7zyUFd3e93oilgZpXClb3FJ+wzwtWRcRQwaHC/GP6ST/QFe86uSaRA
WP3UH+/v6Md2Pt4tcoQCU3feRiwY4ZOu9lzHphQKhAuyF0w38km5XdSS02kU
qJnzcI5ePp8cK3WfcUunQISaZ0zdbj6xTJ5f0nOOAmv+lHYvn4N8GRtJKsrD
9zQvniWfySP93i+9dxVQQPhuXDxXg0fOWhyVmSmigB+3Ua7cFufb5U282BIK
/PWsDkzrHiaV802a5pRR4Lmaf+LVo8PEKUHk+tE7WJ/a/B1jVsOka6Qzed59
CnjWala7Tg+RnT6lgekP8X3XVp8Mrhsif5oP2SlV4307RRpSME61dtfIfUIB
jVcf5K0XDBPVYn2BJXUUKFtjrZO8a5iUKs/6eKWeAtnJuamsNpzHR949WN5M
gf1jz1u32nOJb2DMAfO3yK+CwaYxnDc/3jBYD9opUDmofyXxLo8cWqtjAl0U
EFm8aZyijPVQe83d8BX7zfOowH8n+cTixKXG5l4K1Pfkxy/H/fP57/AixgAF
llc+kjiM/sZ9h2ty+zAF5j/SfHBLc4QMvNcI9BrBfll+qrnAYYREbphY2z2G
eDgIWG/zx33nXoN60CQF9ixOzJ9eO0Jyll74OziN/H5w1ShWYYTon9n7Yddf
CsQSFYuJr3zyKa7wQ4QgFXIW3c1NLeIT7fupztZCVNjx0GQ8cQef3NP2W1Yj
TIUSsH9/+SWPCHi7ZB0SpcK12s27H9jzyIYMC1F7MSrEbqkepmJ/vZ8t0dsg
SYWUSl1W15NhomH1k5k6jwqqYz+oi+jDZHvo5ydUGSq4T54p2zw0RMqL6o3l
5PC8zBtH5p4ZIjNfyi++nY/3ZS0WX+86ROyU8qTPylPh1Ce24TBjiKRQj8Rs
VKRCR+rQZMdV3EcOh3IXKVPBfpa5marUMFn8yMvr00IqZO37rOsRN0wCf9o3
XlxMhYWi6QtmCXBJib7xan9VPM9nzdbAw1xikyOs1K9BhZbIZO9Vl3gkqZV/
+LomFTaGp4/8xHq9FOv8uXMpFe7y7gj+2cwnirbPAox0qPD75CI7O9zvfMJv
vhnVpcKFmBdf/Hr55Gpp1to7elTIbd/9bRbu8yPfE8oO6FOhN1XLrY05QixV
g9UtDanAs/jpdT12hMSz3dJmjKhAu1ThmXZhhNQft/1bZUwF39/L6uyjRojc
s+XBcaZUkLw6vV0A903PGfkPa82p4KioovNZaYQUmgg6C6+kgr7dygxN9NND
2wYrn6+igrTOzW8q5/nELP+t7rHVVKA43rll6MYntdJFItKECjEcnYKMNB6R
ckjf3wJUCDhdKnFQAPUy5uC3dFsquLy1oWjt5ZLcii1Mjh0Vbk2Mim3nDpPv
w/QnSuup8FnWvFF5zzCpf59qNcuBCkPOS65JTg2Rkrr6OwMbqHDOkbY8/CTu
I+XChq1OiMe789peNkNk/0Xbqw9cqLD30k822Yv7TepB9UIKFThs0/JHr4aI
TWRldgoN88s/ZdtEkD9bfsrtY1DhPNVd3atqmAizjI97sahgujjkjsEGLhlY
Eyy8nkMFnfrJZ23or5oNimIM3KnAMJg8+2ofj5wR1djz15MKNblm3QW4b4aN
ew1+34T8fBYg65DLJ57dWf6vfPC8CE+HbdgP8PLth3u+VFCmDVVyNEaI5kMZ
zkV/KvzINDEPdR8hotdcXh0JpELQh0Hd1YdHyNCZIxv2bMH8+brVigkj5FX8
s5qN26iw5LKboI/XCLkdImi1dgcVahdkiG03GCEZntZ39IKp4KVb0JExwScR
G8IN5u+iwjsB8yKPSvRbS0bUvoVSIZL8qp8w5pOl0vrZTfsQD7HZ6cvaeUTs
9xa5igNY36Btn7IceYTbX5iSG06Fh9HW4hnVXPL63ec5hyOpcHkeo3Ubzpfy
J4tiQqKpkJBz/6vT02FyttRtkhNDhbOOKy5scBsmUefTd0McFcKaCwfXzQwR
n6OvBnQSqGCRur6p4yP23wEJf5lEKnRKH1nurzRMdPwdPkwlUcHKdv8rp4Bh
IkE7xO5OpkLTsZLkddXDhGdd/bL+KBU+HA/pfK3NJS3LZhxup1Dhjann+/VZ
XFKhsLLmXCoVzjTZTXTI4LweuVm+4xQVhIx5Cv7oL30/Duqz0qng3XD82UU7
PlnfoH3FOoMKZlcOZpyNRb95z09t6VkqVExMhHTe4xPJS3lZUtlU0P6QGyA2
xCf8k52yE+eokLxrsKBNcYS8OaiQ8uk8FXRjn3S8NR8h97Yz5jzPo8LgZ0sx
CdTTHLcTB0svUsGfVSGePXeExK5rmDhbQIX+9toA3z70P8Yiu+MuUYH5lbrY
+zH6E9W1A1uvUKHr0d3b58/gvikR40e/RoWpr6JLVwfyidRUZZfldezvddpD
3qZ8MvrtJ2vJDSo8u/1zYjX6q8pHwQ5jpVSo5MSKNVugvy8uetxVhvXWVzxq
0M4l8Vm9ls/KqTA6KXxsTwyXBCZplN+oQDz5RjmNhugfQzfpZ9yjgofkIXPX
wWFi4JN9+WAlFQZkf7VoTQwTWZd3qkEPqfDNb97alwu45Ocq2SxKFRU0zLR6
ThIu6VjqKruymgpzI9fmyIdyifKZOVICNVRYINpnfKuISzYK/Tf3+RMqBEoE
Wtn0oZ5/0hN0q0P9M5cfeBbCI8quX2dUX1ChcI7yjpEKHvF4mD35vZ4Kebbb
AsNxf+g6O5d/oBn1SSHQMhTrt0jk8SB5RYVFv47Zx6Af8doX9l2kBd83M/WA
H4f74VfDry9bkf/EYK1WDp98pH3/mPmWCgeKI0LqMFapzn3v3YZ6/mu2td1Z
PvE2YL/T7qBC3O53Ucw0PrmQI9nCe0+F4c7rO20T+eSz2LOmu13IF5VlPpsP
/POPUS9iPlIhfFZ2hEQQn2z+bvLM/jMV+mYXRl1CPchnDVbP68b5oCaRcBr4
pPtJ/sO2r5h/1s6GNXp8omG88V7eNypsbfx5QGUBn/hdkCkP+o79N7LhsvFv
3E+iYq9PDOD93cU2jEIe0Ry0uPJoiAqZ5SMXLCJwv3Dn5R/mop4rDYXU0nnk
ct3lXAqfChn3N7xn2/BIr9mmbIVRKmxqidzxzpRHlhYuyPj0A+u5TKl1liGP
BMk2nbwyToVtz5zmvljOI1djDx0PmaCCrPymJnEDHunjrj5iMYX6JtbmX2jM
IzpePw79/YV6I5vh42fJI1sbimLrZqhwYinPR2YdjxSt8o068Qf5/LK2IwTz
GbiiFMYRoEG9Qcm7Vb64H8u/DlWdRYMR4b9Vmnt5ZPuh5JDvQjT47/GE0pfD
PDLkMxF4QIQG6TNTUVG4by5/WeJL5tJg64cfCtfreWSndeAmEXEasDJTVqR1
oz4pvWVlStFA4bZ4/F70qwbJKTRvaRq8ft9xRBXxDP651kVblgYLNrgsWqvG
JyX+0w48ORq4VEydKF3GJ7yWMru7C2hgHiTcYon9ZLRmG8Qo0ECi+WhrhRXu
DzfVreyVaPBGb/DnNO4jpYs7LOYtpMHFFWbRPRtQD46lmbQtosHji1E/XFzx
+7/sDfNUaCA4YnFBicYnu7f8XRakRoOB7zn85XQ+KXtXsdRQgwaTa39/240/
H7UL1phYQoMvbksS2vD7xre1VB5p0eDszVFvXwc+CVX/oHRYmwZvvbZpT5uj
Hz6RvoCiS4MSmfAdUpp8MvbbSUZBjwZsi4WGM/P4xHSHkOSn5Ri/nmJTf/LI
vveVolcMaDAmwtsxgvvszwpdAQtjGuy88OWrSxjW23dK4KcJDUK/d23ZRuOR
jVIvBO+Y0eBVScXaIeSDROXZWXstaKBu2VedIs4jVQFbhExW0SCzyzLk9zCX
7JJZOXvUkgYhO8fm9b7hEo3/RObcssJ6PRQ63I3z4s2Wtjm7bGgAwvoNsWVc
kjT/irAh0EBjq/k7G9SDldX7RbhraOBxyleO1OK83b5e9MZaGsxvTfS+MsIl
OQryc3eso8FlqeMP5NG/uz75NlfPngZLy7Q1jrPRL4bcERtwoAGtKWf3n+M8
UqacKH7NkQbTKxfEsup4RH6PpqS2Kw225ww9zl+M/nfxmGQvhQatvv+5v16F
8/HFE6lLNBrE8W+qVmK/Lt93ep4/gwZpDvdnte5EvVDzk17CokHXs/NFGYf4
JK3RWKabTYMVBvKzklAvbMNmyV50o0HMs7Fq3WtYjyUtsj4baSC32fGnXAX6
8ZcX5VQ9afDA0iew9D6fuEXunv/RiwZ3F/fkmRTyiZj2mgXnvWmwPLn18MhR
PnnYIi3vuRnxibSiR+D+Gnzws/xCPxoUJq+qDKKg3iwrVXjvj/ncqFD3MOCT
lrcxilmByG9981vT4uj39VWVFbbRYP3uArlvx7D/2rnK77bTYM+57HXr0U/n
HKpaeGYnDX7P1knym4N4GqUuYobQwC4ULqbUcYlAl9diud00KAsmO4VPcEnZ
YX2Vlj3It5+7xES8uMTf5LfKyb00uG92TqPMmEvkPzWqUvfTINksWWeBDJc8
P5qjNi+MBkd/xVBmqXJJhPkO9eZwGti4lJiXOXHJ8u7VGscjsb8Gs4KzY3Ef
Pi6+xDmaBptPb2lNfMglaas6l4jH0OBZ3ulXy/5wie23Is36WOTHBu8thnY8
MpYWoXUkHmMubbU+1tutT0lbJIkGYn93Fi+TQTzT+7VrD9Ngic7BvEYzxJPc
10k8QgPutHqrqDviOZisa3eMBqknwEMvAvHMdFsmdJwGhp32K/7Vs8VWR68m
lQZNnn0Wobf55BB3Qi8ujQbjla9s2PV8Yp5dtxxO0UCkeDTO+j2f9K3L1P97
mgZTTX0Cm17wSfZIoEHVGRpc6f+jOYLfdz5vbhidSYM7LY8nY7P55I+DsJFV
Furd83mOBdGoJ2NvjaazaZAxeebuhBf6kwuXVlTmYP//dqnSQv2Z77zPODyX
Bp98p2vfK6K/LJhvOnGRBg6+ru9tL/JI7Wxz0lWA582+O7GGySNygRzHx5do
sDdtx6loMR7xqQtjXb5CA9KoKlf6DPcTnWyfY9doQHctm4nH/WT6yIPtu67j
+bs40kdoXOIw2LWfdYMGvrUvst8u5ZIM5z9xljdpwPQUzFm/hku+3lA9rnqL
Bnot+gL5AVxiNG/N2dm3afDyo8i6x6e45OAu34L+chrocqQEfZBPDa8TSpor
aGB5c+642iweUTS5dP/2PRq4RZ1YfHoNjwSm1z49W0kDv5+JT80P8cjt8e8v
ox/S4EPYlVPxz5Gf95b12lfTQM3X/tmwNp/kKDmPLK+hgc+T2qp+ez7pj9g5
I/MU8V9y9vK1AKxPV6rIxDMaxHISH+9HP3fIulS2q44Gqs+d7xVm8snr3NeL
H7+gQYPgHZeeLJz/Aj90LjfQYHSlTCsN5/2OzfNNjzXRQNFk8w5uPJ/crzEj
u17SoI95/Y/OHj4R1uQ4sl7TwNp66bnITXzCTAxjWbbSwMJ5zbmtqNdc+wfb
Z7fR4DjF39pBgU+srnXt72/HeSUXxLv/i0eOiP2Ja36P+iKaOJNfi/O8Cc6e
/Yj9Xh8ytRHn4x4D34LozzTYFSToE4Lz+tGJhBLfbhpcX1v1sBbrKTFSeN++
hwZt7QJy91EfN9Jrny7vpcF+jf33Hv3gkiu3v7+U6aOBwJmpLzbTXDI2f27n
z37Ux9U+3GYRHrHdv6y3c5AGntrzT08o8siJNqeR6mH8/FVjIWOc910rd85c
4tHANKZIfnA9zuvsVJFjIzToV9i4OxHze+r5ejFrHPn9wnpPTR6PyFaN6lhO
YP8NDj0Qq+YRb9X5pqpTNDB2FO5O+MwjxbFmZPY08qFn5/d/fw/76wvbsX+G
BjeVyk5ewnnlsDaM1fyHBl4PTQbnq/DJmcIsn9sCdNg74+AWiPOte86D7Wdn
0eEDl5W3Wxfna1DX/ujZdNC3l3ttqM8nB5//jvMVpoOq1gKjXEM+adBVPW4v
ij+/8eXvf0a4Tx+Ds8vF6GB8UYSZ/u/3YYY2F8hI0GFq0vSTLn6+3CWh5Kck
Hb5EuNQcXc4ngjcL73fOo8M+ZpxHrc6/37eufVotQwfB234LeEuQf7u/v7wk
RwdDT0FzZcy3v0W08+gCOhSvn7jhjfU2N13WG6JAhzLjI9878H2HzjiNMJXo
cMX23plLIsi/nztmVi2koz4VCtKQD1Edc4/+WYTnLzK5s68H/dnDywpPVOjg
xw4/xGjmkYi4z8bOGnSQa/fecT8f+eIfXS2tSYdvXeo3BVJ5pHm9sutbLcxf
SyUhGv1gmO7dzixtOqQoWk0c3cIjGhLMrZt06ZD8ySYn1o1HGrn8nxp6dOjX
CzhzC/e7/a+PH/q+nA7Hfope2054RK18mWyxAR22ryG0n+Y8Up9Rl7fLiA5j
7QcaT67gkb3h/vpmxnQIWLDYYD/6RxVPwQdTJnRYkGMS0mLEI89tch2qzOgQ
dWxT/lxr5LP66nfxFnTwlfA8tH0jjyya3e5nv4oOilcCd5VgvrW9e0fEV9NB
RjEuweA8+v/iEokzNnSgH5UOM+tFvqU6ZbsDHZxGlK4Vz0H93t2nrWJLh6v7
TiyYQbxrzDXWXllHh7Door6dlti/So9ebbenw9tTtj++oD+Tn/HYZLSBDp6W
tHv3OHxS/XFycMyRDnGXelsK/Phk2+Mz4fed6fBq66TGRpz38wuNRQ660kHA
ebL27F4+qUp6mW5LpcMs8e0LNMP5ZMvWHRoidDosS9t05Ng2PpFznlvawKCD
rh+lWQDnS5XBZes0Fh0yUqwEXdfh52XWNjA5dBCqrM37iHx7+C6q98NGxOPh
vd9puK8F3lfam+9Jh8hTgU7WrTwinVMhGLSJDgkf7OuOFPCI/2b+Iv5mOryw
NTI54MAjUnbHi8r96JBGjonxVHjk3tJlK8MD8PtRX1Jhikt859Y9sw6iQ+6Z
LeVrcN+TGPJjzNpKhzp9FekHOF8rmgW+1G6jA+P0tFHAFS7xuXU++NgOOkzL
+jak3eLi/LScoQTT4Uk61dS9Bff7/W1H5u+iQ3ePge7oJJdsct+r0LEb+9Nu
4lmkJo+IWslcOh9KB/6wVKQIzh9PQafqpQfocHyy3sXkAY8I93x3GQyjg5W9
dVIdn0dKaw913ozAfjFz+qUlxyezU6p+rjxIh9faAbOj16M/D/Y49DuGDtoO
luslUF/daJMyNXF06NN7tfdYKJ/MMj2Tl5SA/UsXq0hI4pNieWN9p0Q6DI/+
PJ+YwSfsqebKeYfpoLc/lRjl8tHPbHd4k0yHhQPiKz1O8UlRlei7s0fp8K6J
dto1gU9YFy/5eaUgHuxcyZ27cX6vSp+2T6VDy2j7PqYH7nuv408bp9HBIbf7
+IQt8mWWzxORdDr0yBzd9V4S53e2q8foGToocz89K8f+HTe2/tGVSYe5ES9X
aZbwSKyf8pKyc3Rgjn9f4IH+q3Za9EHOeTp81+3MO63EI+LpE/TDeXTY3zGY
sgD1nLq8d2D3RTpw56wfGW3G+fv0TbxnAR3ue7v/ikB/3eX5RNn+Eh1ebmgV
L8X9WX38VtmKK3QwXWnhbCiE8/T4BcdF1+ggsT4/Vm8J6q/WiW7h63QoLzz6
9yneP/pfdMRIMR3m3XypJLmLRyzYO2S7Suig/vtFwtxzPFKTtMH2Vhkdxrf/
jZEe5xER1ZXvz5XjeZTh1Dnor5zvLt2TVIF8KQmIeLWUT05RFojtvodxo9XW
Lav5pO27UL5HJR2Mwk0MabjPLIodXbX+IR2uB8Y8nu+N/kbxy2ujKjpUSv33
SBr39SulL7curEZ9efRs/9zNfDLkUCUoXEOHm4pU6VOIv/GX4iz+E9QLaWup
rww+ORB+bkXnMzqES311tHLEfpI5+uJZHdbDl/R+tUF+FIVtLn1Bh7/3tE20
jHG+2AZNZTfQoT01spCC8+T4e9bJxCY6ZBWxKu/gfqgobvJ442s6vOfecpzH
45FNBeru61rpsCfeUtvqNY8UrJYeMXxLh8ZOwcCkctyHW/8kK7fRQVNrI+dk
Fo8Y7BhWm9NBB+rkucIC3F/3zu66x3tPBwX7/vGdsTxyP6ee+r4L+SVPXfI9
kkf+mN7ve/qRDkG/NS8Kof7ZNV2JvfmZDrwNrb43MT4SkKGY3U2HHbbr4pqj
Ud9/Hyo91EOH31ucv1gn8Mj8jFCHkF46LKqa+771KI+4G/h+du+jwxohdqdP
Oo/k1lLD7AYQv9+680txPvdsItKGQzhv7gsrJRfziO6E/lUlLs63eq+j1yt5
JPjEIpjNp0PoqanKjhc8Uq4t3s4doUNibAD7ZQePTD2aCun4QYddzhQSM8Aj
h/jv8kom6KCUeNnkljCf1Cc/s8iaQjxfSnkb47ybp17+MmGaDs9zdIM2oj4z
7+cHBf+mw60bv62FVLG/aCf/uv1FvnhaLRRF/nzuj8lcK8iAN4Pvutfh/NWK
DzY0EGIAr/n0sXMrsN+UveoU5zDg0HRB4gD6+dIyJ28hEQZYma5UV8D9jd54
J7xJlAHffe9oj6L+j31TTc8UYwB9oXjpNeRjxt8jJZslGBB/su6VIcYrlcae
60kxINTg2u9w/P57401fx+cxIH9cZYsQ3hfl/Pz3IxkGbB6ckrXF/FQCjRWP
yjFASlG7/YIynzyOyTFmLmDAL7ldeRul+MQ/S9hFRYEBmo+SvIpRz4Vv7wrq
U2RA7WmTF1f7cb9ufB9XpswAiGzZuuQVjzj22uVELWKAvXhF9vq7PDL0t6Ri
vQoDLvNUJlOxXqlKSq+l1RjQWTnotf8IjxiZJAy+V2fAuYnHyXv28UiL8/Cc
S0vwfZYWd3/4Id8COWohWgzINf7l6MfCfTf2seUqbcTz4fRWDZzv97L0WEK6
DIj6kZmXbIv7/e0zIU3LGLDMPepcqzOPzDT+PZK5nAHt/R37nqO/y+3dWrjZ
gAEGDVsfTSNfQeBNlZ4RA/5TzzTszuSRbiWbjvEVDBiTa9rcdwf5YHL1xyMT
BhydTrmw9y36FxdZqaNmiE/GodI+1I9tsb22KqsYUB+nXBW3kE8ksqlefZYM
WJowUWCih3p/u/JAmRUDdj4+7KKI9aM2aZ6KsmFA+NG7j7vR3//oTS1eDwzo
GG3Q2oD7eYbAVK20LQP2cIfz56CerFT2+/J+LQMct95xagvCepo0TReuY4BQ
dZJO3xasp4uFfIg93r8u9ZEC6otK0EWjVRsYcNpWIIz5zw/EijsJOTGgPDl8
/gcn1KfsfQFNzgwQWFjjOY56Mrv8U0ymKwPGv2it/ob+8XLThuzNVAbwfZo6
JtRRX77fLtejM8Bru3x1hCyfpCgn9z9iMSAgZr3wIvQvBqajQkc5DJiyyTwZ
Uccjr1w8VZjuDKhao/ZsRRH6o6DalSoeDBg6qvC0A/3c/DgjRp8nA1ZYrW+c
vZ9HKrKzd5ZtYoCoQOUuax/cd8tnJ0f5MEAtZJz3mcEjv5qC89f7MkBhq0ah
gAfu99/bH0r7M8DboJdfFMAjNoJr294HMCDsXGXFsVAe+ax8Y6QwiAFnMzYE
rMN9K95UQSJkKwNsZ/Uz9mB9tVzjlq7azoDum/LKl1EvngcNgtBOBljTx74H
P8F6xrE8moIZsHDXk4/sTh4pKddN27yHATeTNjtSUQ+ozaeL9PYi//JXmh5G
PEa//346vg+/rxOv6oF+OV1wy6dHBxhQJEKddxL9vPnClqkj4QzI/nFXlG/C
J457mEpOkQzcvxZfO4f7r9eLdyslohnwICCu+7U1n+xSc3drOoj8qiip6sb4
0IHOA6mxDIgsKVrXiZ8/2+yVSYlnQPXgy5QG5FOx1ucK6UP4Xol522stsN5R
vu9eJ2K/nTbU/4L3tbb2jJ86zIDPzdKOJujPepcFLWAeYcCcqgH5d5jfr7h+
0wXHGLB4KjWyB/2/hhE3NDMV+Sg3q+aOPOZ/eNdptzQGJFo8vHwb9W/Dx9Ey
pVOoTzNnT54S5RNPs30t708zoH+vRdsu1IddKRMj585gPwZdN+oYw/75Gi7j
lcmAjcmyrQGoF2ctZ4xUshiwSTFfeMG//enkQeqnbAb0xNt3RLfhPtgnsOtC
DgMCVzNn7r1EPSAJJzbnYv7T1DkfcF/uzZhzU+MCA5Zs7Kf/qfn3+62Hm79e
xPy92kYMqtA/rhPjFhYgvrIv4w6i/mvkpEgGXmLAH/Vtyr9Qj8x+SOlrX0F8
AuWMiit4xMHxpHPfVQbIxY6G5WDseVFux7UiBjzZ2vb6JX5+1+SZY9uKUa/n
LV3igOcdoihe1ythwKuex+tm431nL2fXD91kwMC+qe9/MZ/rvxcN3LjFgEdP
t154jvOmipk3N+Q2Ay59E+nUwPe1XFfXNbqDfCatM4HfMH/3pVvK7jFgfrqO
ayviJ3Xr6uHQSgb0fgp2Pj6XT9RF9a6YPkT9a7kbYob+xKHCsLfiEQPMnvtf
rsV54ylZNifsMQNeJAm67EA93+VvqrXqCepnYOFIOM6bQw8q7H49ZUB62Oaa
V6j/mbKr/B/UMuCDs0kFwxz94tYHCVHPGeA+srb3O86LqmrrAut6rNeY2fe9
yLcWheqaPw0MKA7YqfEN+dgbbNv9qIkBE3/X12sj/349eyoY9xL5XxylWoV+
RHKxvbrtawa4anwx9V7GJ2p7X4BQK8YhcRXmqCemDU4+T98w4EZVWPYenJ8O
Gs0xie9QT1aIZ9ui3/QMp+atb2fA3DvVRW2z+CRBm/XxeScDXm+i3Tbs4pGM
g22/j3xgQIK6d6Ez8qHorftip08MEJfcNScG9bpqeZeVxBcGsFd4u2gVIt4J
mzybuhmw3uW1Yjb6h973nyNTe5Af0dsWmaCfmVrhd47Si/n0CSlAFI9IHPlW
Kd3HgFLxG/lzUZ/UPge9f93PAJao98oB9Dsvh1bPvj+IfFEO1Sk9wSMHp+YZ
XBhGPagP/KRzkUf0hXs4h3kM+Gb4QeMr+qku2XtxwSMM8KD9YQfW88gx1ZTr
rB84j/Sf6Jp+4RHL5T5vrcYZ4FC1xqZ+Evm0TlRXfAr5v0PqyeL5fGJP76KP
/mKAmP7uoCSs989NpVEdMwzIqwkYdkR8L20/dLn6DwNS706dWG6KfiTM7dUV
ASaUqdxI4mH9hBKX/0qdxQSjM4qdHnZ8UnZSQHP/bCasX+dWtwTjzblvXLyE
mfCGWFmHA59IX796wE6UCdSW/KJQ9BOP7kZd1BNjwor5Om8t0Z8EP6U2yEow
gdLv5/tLn08Wv9Ycn5JkwrJ2B8MvWnzS+GFS5cs8Juh8jr+itphPIgcaHZ7L
MKGL8m7REO5DyyYu7Lkph/efO6gSJsYnydIbaqMVmPD1elqSM/pTi8WL+f5K
TPD6InfG7wPWS3dEyXkhE6zfWhXlNvLIGfNna00WM+GcoH2y93/oL9dm7VRW
ZUKCmK+CItb/B2VnpqA6E3ZfL/vKRvzzPdc87tNgQvS5JQeT8ee0rQsGX2oy
4dbxCo+T93hEYH///LtL/73PcCEVz7sZ/59Nrg4TVkfL6uY++ff/253ckriM
CVB6xY/awCOSOQGndixnwqDYRJXFGx55eHXVQ4YBvtemvk/9I49svyPZa2mE
+eoVD3X04b5f82WehjETnlf3temgHoZ1HvHjmzEhTNTkvze472v3eR1vs2DC
cbe4lHJxPnk3tuJu1SomsH5Z/tTDfk8UFP5yaTUTRg7KZ/mgnzeVei923JoJ
lecvrLZX4pOvyiWmewkT1pZbibcswn1FO36TxxomXP00d80Y8mWNKTvZdi0T
znwKtcjX4BM+LCvTXYf5TT2JeY37Qp7Ln05peyb4vb81EYb64bqxZc6kAxPY
UWMf07T55HfgZcNPjkyYEm4dktXBeRMa4V7rzISq23cCfuHPPWJdE264MuFa
aYWRHcZixzVupFOZQBcyGeYiH+5n/XwXSWdC33YP0WmcL1su1wv4MZmg7/Cs
ZRvqgcLt3GWObCZ8e/Qp5Sr6p9pHe5gr3Jiwo2e9qwW+V7ND+epfDyZssAo/
tVcE59k37uteL8y3P4yyXYBP4kdrppu8Ea+SFzz+KI98Ed9OyfFjQoj4iMTr
dvSfWZXTvgFM+K+kMOFrE49Maotd1Q1CPOd8rJR+yiOzK9yZ/C1MsHQslT6O
+7y03TWBu9uY0NMXEn8E+bOoZbI4egcT+p16JE1u8oi2j4O7XTATDuWHy5Zd
5xFjbuYc8V1McHTe89gO/YRN1Pdbr3czoalLwu4kzg9HMYtNZ0OZkLTd6MUF
vI99NknMex8T7vW+2rq8lUd2lmv5DYUxYY7rHK/DP5Aftvvm3Y5gwuImtoMH
6t+hV08fhEch3wuj78ogP3KG/OaLxDJh7iL9BBOs99WI29VNcUzY051+0wnr
WS4qtDM9gQnG8cctPqD/rM6gK3kkMuHi4Vcaj1GfGzTzn6kfZsKBx2tYLSuR
b2Uju/uSsZ8NDGdxUd+7YY3KzaPYzwNpqmNr+ITbnFa/LwX7g3+6XpWg3nt+
3m+Viu/Vkg5KQv0XHjRcIpTGhHmaI+3DqD8y4TEvX5xkAtNPa3y/wb9/v34Z
mXaaCbJSZwXWIT90zqjocM4wYeenURKN/DRdEvxmcSb24x/vw+txHsCt/2J7
zjLBttOp/jnuH5wmz47dOUy4b0qVN5/mEV+P4sSVuUzQElhoGo77WnD/9Iq/
eUyoqalq2POeRyIOOH18dpEJvT983+7Cfk2ac+5oSgET3g28sKvC/j51esCc
cYkJLzLe6OTf4pHz6pZfla4wwWF3q0LyDdxnbh458fkqE4ZEc5RDsd7l1h2r
rxQxYfSb0fElt3mkukGnb2cxE+Ku+Q3tR/1odA9LNy3B+mjkGK5/xCPt3+tg
+ia+tzNmYyD64a/7FIYf32LCqcIsqWu4H3GFgrKSbzMhX0tw8QfM99fJinWU
O9g/gbMUX6IfkC1h5XbdY4Jz3Lizwm8eUbG65FhQif1XaOoQOxv1s37s59aH
THD65h8ZhPpp7mZXYFTFhImF542WSmO/956mTDxiAnnwd/gi9o/z3q/T/z1m
As/aKmMu7ndus0yuHnqC+jsW3eKG/PFPi2c6PWPCBRH5DWboX3eptAjI1jFx
ElRdysH6RBWr32h/jvNgiczr42p8cthyt3tePROqa1u/imL/nnpePSewEfsl
lyjPwziXLV22vJkJjVTnunz8fFGP96YfL5lQEj9lX4fnVey5KVb5mgk3is/+
jMX7agT+VsS2MiGzX17lLebTlOrqZ/+WCUV164dfYL57W3hKpm1MaOhcGW2o
iHySP/lKrQPfcyme+U8fnrgbH5bsZMKMmnnoEOrltvOt1r+6mHD7/kyCBPJH
5svesd6PTPiUm2e2Af3UPU35662fUX+yPDoCEE/hYjfFGz1M+Ou7onsV7nM3
eFPNWb1MyAv7b13TII8wTc4lJvUxQXPSbn9XN49M77eyCh3AepPxlnSsX37l
h1HvIeRTu4OoBvbzhj8HrzlzmeBJupNv4Lzir1HzWcVngvaVQOFNyIfMxMfy
S0dRX2vcBtg4X2xe+DbJjqFeH/7RfLeaR75JzD70dxz5MDl78hzyKYV6yXJo
AvsrKWHP6cc8YpK+fqR9igmzIq9MmSO/37d9v/Jsmgkbc98+XvWOR+IWHtlU
9psJZ5erfHDHfHW8ly3I+8uE4m61LBrO1/29O+LDhFigZuA9QcP5s3iZ1KqA
OSx4/U3Uw1SCT57uvMmjibDgfPfE9WHcb7bfol62mcuCHr26K244b2THRzz1
xFmgq7Rlgor1vL/ytJyiJAvK5ldevo364xNlWj97HgtWbtLI8cb9QrT6beyI
NAtSmpZIm6NfuCl0wOKjLAs+XOQF3cd9hG2vyK2fzwIrzRLFGvSrf47eL7wr
z4LGgB1VH3DeXGre6FGoyILeL7/EdfF8Z9kZmZPKLPgt6LjlCfLnB+v88+hF
LDguFravGfmRnWUTs02FBQqinzJ3Yv59anFDazVY0HTEpmAa633CX6PASJMF
8+uWPto+wyPmV5+4L17KgvTgwQYTxOfDoL+0mA4Liu7uz8tC/A4ZCtf91GUB
c/rUum+Ir17oleiveiz4qLDulgfWt6XCwfSVPgveOvbVW2M9w3/1Dzw0ZMEs
pX2nt2CsZnPs4rUVLJjLdPfc94xH6uKWu2WYsCDCItb6F/rX4GdNUglmLHiv
fDTuHc6nBXNDnoVYsCD1WBd8Qz49dJaO8lzFAscnD379Rr75pd0y3rCaBZkq
/gbjmJ/YG3q/mTUL7E8vGctBvrp5nGHPW8OCnQHSejb//t4v11xyxpYFl7eL
ZwwI4X7f3fakz44Fyx6mJBfj/uayNDzi7XoW/JFX2euM/ntsq/KKGgcWjOZe
PlCG/XTuxoPvJY6I37xnN2joR21HPHPPObOgRjA4jIH74YDpH2ayKwtiOiPv
T6J+nwzLE99HZYG0Nv2mDfKlaMqtzo3OAjxmhxr2c02EbIIVkwWeL2SsCzHu
nG6wUWNjHC6UXY/xWFTiLyE3FjzXSR1Jx1jij03Fd3cWBDafyJmDsVbM5O4G
DxYE+2x+p4rn2wiU6d/0YgHFcl35d7yfHbe9/5Q3C0Lj3y7yxfyCZ2ld2r8Z
8U/b8ygd8z+c8NFnox8LGqi3xJOQHxdmn11kE8CCm+eOPWzE/fZeIq1dPYgF
Tk+3RB/CfngtLJ4+ZysLHBS0xxejfgwcfkrp38YCWrHfoWvYPwuPWtSVBrNA
yvLXmTLUa1Pxkfj0XSzY9sfHyHqCR5xTimzC9rDA9TfnrOEIjwRI+v/y2MuC
s/1/JK9hvQ6mLq4g+1nwIH19SF0v7jfz2nYvCWNB18PjnZexvjfT0vRFIlgg
2mnN2fyJR57LOPYPRLJgx0hQiBT648+nhC41R7PgmPvmDzWd6G/k/vMpi2HB
dw1qnR/uSzJn9i/KiEM+DzXNPdj97/eTjNrDEzDfbW25J3Eft83sP+2VyIKC
ANMD+zA/D8UCyprDLNCYt6z39xSP7M3yFNc6woJ9e+ZnH8T99NK5l/FDKSyo
FA3zf43zp2rREZtXqSxYfMp+w17E791521+301igz1G7/e//9+WpzNzJPIX1
NSETptifohfu7I5MZ4F4YOxiTdR7NfUQfe8MFrAOV+gWoZ6sytfptz2L/RAl
GFCGfpW+pLtwaTYLwoO1ruiin9xWeM5HLIcFhtqz6YWoB/FarEXc8yyY1NO2
7sDPn7ss1f46jwUZqws943D+lGs/P33nIuIruZncwH2k8WocJauABdOvsrjB
yKdvuqvFoy+xwPg/4eIO5MuforFanyssmLgkWCqI+RveCLLRuc6CU6aytz/g
ex0M1H+J32DBp1usgofCqHc339/hlbAg7m/TyhL0a+FG6btbS7HfVDfbnkA+
nLrlon+3jAXtVdsHLX/ivmos0p9djvoldXA0CfXmye3qwoMVyK/8kMp/f6/T
ZRrh43sP6xWf2x+B/mbsjsmi9ZX4Xjr16QGMJSyG23QfssDUVLPdEj+vde/y
ackqFiQU5zveHcJ5ssqHMvKIBd/ay5U+ctFvViqJv33MgtKihZ65WN+Q1a21
956wwEPte9w33EeSH6bE5zzDesQMp+fh/nnBer1NbB0LNFNsw++iPt6v+jvl
94IFu/3aMo6h3zZ4bLpSu4EFF86sW12M7y18snX/QCMLDux5MdCO+qpUm1t+
oxn1Q/+OlSj69dTnraO7XiGe+T0vjbB/ZjeIrjBtYcGCR43zxhHP8CbrkIlW
FkD5u+v/+o37cs+NyrcseNzy5dYk6pF/y5XB6Dbk+4Wtq5yRXx1vunTXdLBg
0O/Y1Qj0O65tMltmd7Igd0DvQQzq1dOO9ZfrupAvrouPcrC/V3VF9hz9iP3w
wO7UH4xLPpZquH7G+lhUP9iN9dX88s1HppsF1/0lNpdgnPVVOe/NVxbMbFjG
LsNYqpfyIfMb6q3iM14kxgl9hxZ6fGfBhhGOmBjGkwP33VX6kW9FDBlPPD94
mJv5ZYAFaRl2wnswn6+8Je8Kh1iwa6lT4Bjm7zbqNn8LlwUn1FkpSfi+5rHj
dD0+C1y2TzwfRDzuTU003/rBgpxNe4c8UF/0Z5ZL7htH/ddd8CUa8c7/s9lp
5QTq1/rozDV/eURRMPPI9CTiJWsveRH79bhQY13VLxaoL9lcsgLrO0tYUDh+
hgXvfs7kiSHfwkTN7db9YUGedXKALfJpWGx7vKgAG67/TCvkov/0lbxQ3SDI
BvkT1/qWoF60zXv7J1WIDQcFXILGcb91lhWzps9hQyav5sle1Jea+SRygQgb
yuqFWm/hfLJQ2Hu/XZQN34MMU7VQn4qVrk2cE2NDvnfRqhufeURj0Uczbwk2
GNyTdOrsQT+kIrdXQ4oNc9IMRLNQjyTUHcq+zcPz9/ZYNiN/45dE86/KsGHo
e1rYZnzPhFaZwQ45NrB6L29d+YtHupctuj4qz4b7vw2PauB84+jT+u8osuGF
9CxBDezPRsMk7XBlNiQelGmSQP7ZGj8IsFrEhvQvD46+xX3qrim/4O9iNrzS
OGgegn5xuYVWd40qG4ys7lH//X/l+as2qiWpYz7TuwR7sL4KVic2bVjCBufS
4qJWrH+KzdMcCS029L5auTAd41lrpt6/XMqGjPyG+UIYH1hroHRahw1myy5/
1MLvD63z47CX4Xuvb0+ehfzwdTh7Rmk5Gx6aM1vzkB9tjk2tXfpsiLb2XjgH
83F2mSV7wZANnxYngSX2hwV9R+pSEzaocRffMMP5Xcy82NhvyoZQxrJISXyv
Bued2A1zNlDPc+e0Ix4SnnDYxJINUTKLklvRDyyaX/dykRUbbnw5r6CH+Ok3
uigK27BhQjjCRQr1yebQGx9UDbgy+iiLhfuoq5XHtfY1bNifZrpnmM8j3mNf
Rh6vZUPLguannVifXcVbLK+vY0P5sp9RWsM8EuvPi0+3Z8O5uYGHmlGfTi7a
3xC9gQ1xebOediDf8t/MyAU5saHn+j3NDRiXpSR4Ul3YcPuzW9pijJ/YiV1a
RWEDc9beUTbGb2bShjVoeJ6IxaoxjHvKFcwlGGyoXWXP/oHnj+/IPTjOxPcx
cwkN7xfW0qr7yGbD00uB/LnId/kP1+c9d8PvZy3avwj1T/uMsdutjWyYn2/4
KQv5tNLl/oVsTzbEfuphs1D/3P+rXbHThw3bqo5ZqaDebdvnEsH2xf64Uy+k
jv0Xof+mhvizYa9Y2vAi1Luc818YslvY4Mk82teBelfM2pIzvRXP/zXjlYx8
+0+S19OznQ2z5C6PiyHfmp/t02/eyQbLiGW+7ljPj9Ez++6GsEEvMoK7HfWA
Z5ZQdWE3G9r1dmStxvoLcOeKHA1lg3Qda0UNxtKX0yih+9iwdln5giH8vPom
hbOeB/A+mW3dyXiesXzu53XhbNiw3WtzL+qJbbOmrmEkG7bnL7gghfn42xhX
CsawwUQz/+YA5r/3571Zg7FsCH5k7nQH35dYQpzexLNh1D7oxwF8/2UVl67L
SWxwVfvbrIv43H3XqpmWjPw49owqifg9T924M/woG4STNxnYID/a13+545vC
hqszHwRbcB71/wn645SK/VKbofkB+/tXBXe9WRobvhV3nO/vQ/8asu+Eyik2
tEWKWqbhzxdqz7SJpLNhx7rLlAdY7+Wf4tVGzrDhd6NHvA+eZ5U5d+v7TDZk
P14qtBf550JJu/UkC++bEnnch/dvElH4VXyODT4lt7JKkb/Bj87bZpxnw+67
ZkcfIr9jDmgei8ljQ2rt7U8zqJdphtdbt1xkw3i+yJbNOK9v5d3zX32JDdPt
RmHLEI8aDrmheYUNKdPjvl+wn1rm1Y5LXmNDB91t5xHU5691zjYTRWzo7it6
0o/9NxbTmvS5mA1NDyLd/vFh9sqNL1+UsGGdSOb8IuzXBfzPCrdL2bBw3grZ
jViPpVeDfHLKkH9tJxq+Y2zuw72aWM6GgnBXZTrWryCLH+pawYZNvfml6RhL
t47aKNxjQ2n8Q5+7GB+UGJ/7+T4bKhcUKVZiPLhu4s3VB6jfQQ8lzmPsFjOV
t/s/NrwNFrjrg3Htveltlo/YcDjx/rs5GJuM/jYTeswGq/TOkH//3nBBT0Cw
sYYNR+wS6ycxX6mAWY3pT9lwzChizwaMI3NnZ3rV4nle0ikUfF9fm7Dv0uds
OP2gZlwW38+WmavPe8GGo0o1h2uRX08cxSfvNqAet6U0hyB+Rockn8Q2sYFy
iLVvPuIrPiHjLvuaDYHZtVebUJ/CjOZrdrZg/Xc8+kXQf/RulecVvGGD1G/R
zHdYL0aBYuWOd2xY0C7nnYP+urpLOdGsnQ3Xfqg+P4f7u4H8YuqfDjaoJk9W
fcT6n6OoLqzrxP79fvNY8CiPiB5R7z3xgQ3L2R53GKgH+2uW3HL7xIYvn5u/
nUH+fJ3WilL/gvltN5j3GGOqmY79QDfio+e0OxW/XxW8TPZ2Dxs0Ln94XIH8
17u6/ENkLxveXFAfMcB8zn4xuGrXxwbHLTWKg5iv8MIVoZIDbPgVJHfhI77n
83GzuXnD2O9cjv859NOudRZvgnhsqJm9VxAQnwcClnlGI2xwSjou/g3x07G0
2jY1ygaPLuXkBMQ3I9TGrGaMDa9tpdPmYz2EboDAsZ84T+RmNp/E+u3qtW1g
TKKeSy3Z+wPr+1F1XcaiX2yIKM5J+rffO7nbb/42jfNc3Vh/DerHvVMblpf8
Rn3Z3C33T3+WNjpN7P+L58847d2G8ek5rjVEkAPh6/9o/fu8AKEeFxXiQO5k
7rYRPC84jO72ejYHLip2fI3GuPMWc0m2MAfOtzsd6Ue9cxhkc31FOeASHp5r
gXGFpvt9PTEOiC6vuLod81uyyePQmDgH8sbkA45g/mmZXpT/JDnAOeZTlY7v
2y7m+81VhgN9b59nH8L3t6/1L1WQ48Dz3euid2P/rY8OjPw8nwM3Q+yueCJe
tyu2rL8mz4Exx0mqI+Kpxt8ms0eRA3JRR8YDkG+puju7LJU50GH468ApxH/a
N+SK0CIOtOhKf6pHvduSs3tP42IOLNhQGiGD8bu3odZnVDkQx88afoX8XDtv
v+gmdQ4YnZxXWoB6UeoQ1rp0CQc8lC/zc7G+KvERuTxNfN/QUpHaaR459iBq
672lHNjPTuhbiPE248xVYTocKH5/cdYlnL8O127NXbmMA4+K0g95Y6yt1tgx
occBk6mo384YC2f2XrurzwF5kaPJwRh/kxSMOGDIgdcbP9U+xfjpoYWOFis4
wPsZ0UHB8wumzZQnjDmg2KYmFYX5xO+hDlSYcuDox5kWR8x/c/+2yv3mHGiu
3HBVDd8HPolHzVdy4N7Qj416iMcfl8plFas5sOw/aqkn4vfh6Ztf+6wRj4CY
znDE9+FqXr0Z4cBy/+/5pxH/CF3N7XdsOfAlp2L0GuqB+wWb1fvsOFAVGq55
Huu3UsFd3Gw91t/yhGcE1lchNbRzzB7xWLCPY431/zk79Xr5BsRDxFK6G+O3
kVcj9zpxYFjVqNEf+VI+WuNk6sKBp1fPL63B+NTWDwvHXDnQOXtNKhXj3Z8n
Bm9TObBx6s/6W/h9Kkf2YSidA4d/nAnm/ft7meblKSZMDlxdK5/5b/5JrrP3
/MHiwIOWS7mymN/Qg83Lb3M4MOeyTOFf5FeDcdTMHncOnPH1nu7A9xVdy2g0
9kC8Xm3SuIzv35LZsKNsE553TdJvKfLJXqrXao8PB5LGd3R/RTyXJgpIGvty
YEW4YKMT+vM5M8ofRvwwX3dNjW6sR88esxu3AjiwcuPq9tNYvyf9lOjdQRzI
ePS8bCvO13yfbS4rtnJAWPRj4XOcV7FthxaPbONA15MFXm2ob96uecOlOziw
p2HuSkWMbZ7d/29XMAc+fZ7vcgz1aJHVm+NGu5DPkW2WRhhPl3G9+LsRf5ad
vjDG73XnGpSGIl9/FH8Vx/j+hSV/QvZx4JVpcwXB+KyCTbPhAQ5Md3Xl5mF8
INUtlxfGAX/VU6t08T72nNDgmxHYD3orX3VgbBZ13CYkigP77lV4lWC+839c
kTI8yIGatLz0AtTDH1trPnJjsB9UVn+7g+9r+dxVUhKH/BhLT/iC+niLM3Ew
OIED37yTd2ogf9OaZSgGiRwo8aIJX0a8XB6u591I5sDJexVNbxDP5SabH+08
yoHTbXW3KxBvsaLIE/opHAgbz10Zg/ztV8vwHj7OAYP2jneA9XmeWWp44wTi
d14qahLjK1INf3ec5IBexWWdAuR3UuK3l8tPc6DN4sxPa6xvwMzfvKF0DtiZ
S6r9m192ocq7ijNQPxRWCq9CPlTlJTmeOsuBn4ZFjdkYr2wc1QzL5kDq7pg3
HzAum9z01yuHA3XKqmf//tvftBo61uZi/70u5/7G+CrNolz3AvIjSzg/FGON
gwWp8/I54Gwurnjhn58smrd1vADxzJ1uvYH5ybdFru28hPwpbaddxPzThPoW
P77CgcSP8m7/3itmxJy8fI0DwWJ7+pwRj7/Jy2/suYH6/CxjIgPxjLhz9rDb
TQ7c+GhsJ4V4j32Z7WtzC+OxzPFUrFef5Qd5sTvIj6D0yHc4D32DNozwKjhg
eCXs+C30z12n7zS8vceB6mXzbKvQX7Or1S8/qORAzLEOnR3ox14PHY+9+JAD
Vo91f3DRjzsr/dp4uIoDut/G75RgXLsu0GxnNQdS7LPeX8UY9rTMY9RwQHVj
j9Z7jCtzbQZWPsV8e6Se2+B5pg1FT1VqOeC4qmjHP/9YMiGfN/s5ByK2nnZM
w/t1NBPCB15wQDPim0ko+r8CKo/xqoEDvmcHL+3DfFWiPQwqmjgw4yLXcRLn
99lrdaI5LzG+8/HVY3xfyqwL/wW14nxSjg61Q34LG0qcdXnLAWprweMk5HOs
R9gekzbEp3xJVw7i8+twj7NSBwe+Hz+RfQ35vK+cqv33PQdCRr6ev4p85n9+
KPitC+eVj9mtM4jvNkndrvqPHDinWvp6B/Z3z6ozFaWfOeAmedZ8GdZjU6Dg
yYxu1NP9Du71GLef2rk9qocDv/pNfm9AvtMfdazz7eWAgmyPxT/+Nw6uU3Po
40B+4lRYF8b2imW/9Ac4YJqnd2oA4xo7lbdyQxyYR3d41Iyx1e6jN6eG8b6/
JiWHMa44//PIJx4HvJz6k+ZjbFTv6/9shAOQqiIwgfkV/Wy2uf4D+wHO/E7B
/DWXrFY6Oc4Bwa26QrPwfUpRcs2eUxxQ0buTfQnxSr8ac9V2mgNSt6fkv6If
kno7GK/zmwPvFW3sFiO+swyeWowJuMFf3Q93LmO9ojYayb6f5QaWduO0OVjP
n0k5Q49mu0FZwSuNf79vueu2aN0lYTfwdi2wX4j+f/DT3ovHRN3AqWx27Ofv
PBIo8SVyt5gbeA3Iyb/tRf+00oXNkXCDhYIbPmzCeGPAfSNrKTeIORE3kobx
m5Na4kuk8bxK1tGfGF8nklv6ZNwgNFszKhbPix8ee3pDzg0UNu5KMsL9w/1c
l3roAjeQanN5NwvvN9rw9OBKBTeIDnrv9ANjkYnrnb8V3eA3n5v4G/P9WHh6
5RNlN8j/2zK8CN+TIuA36qKC911JWJqMfPQrcaTIqbnBzi1M7Xrko6WncXG7
uhtcXO7XJIn4yIgpz81d4gbKynlarohf313BQD8tN7h9+KxLEvrVRwH9NTra
blAUom90DvHOkHutytVxg/8rOPd4KNMoju9ObFuRS0rS7ZMiKtnIuMQcKzGM
lS46wgyiNa1SVjUYKenilmZFbMuIbnJLF9cu2mxJ6EYktxmKhKSSJLNn/vx+
Pu/7POf8zu8553n/eSu2vHLlkz8D75YKrxkgPLQQn1pM/rQNynwpWI4QsE2m
/4h4zrzjptaGCJky3j4P+f+AaoKSJhkhxLQtVG8gfiDYMlT9C0K/XkWNMdU3
Q5flfMIYQbKoIzuUeG+D7uWNq2m9XlHzOWJO1PTJWkyEyUucWq8T6xiNbGs3
QwhsUPfMIR5ra6vMtkBQnMhgRRE/jftvHn8N6bNnz2UW8SXz/DBDawTV6M/j
Eto/sudU00cW5fsovZFP7JYsNCmzQVjR9qN6M8W/wtZPdMAWweFjoFQ+7xQ+
OA3a2iHMrXF8fJv0uMrRvlTvQPX3GjrhQ/rFjDEUTzki6MVseqBL+npf6vNx
5yDsPuiyoY/0n65Qrt3tgiD6wb0lkvz4uuisIMcVwTjg3SEPqt9NXkzjro0I
F+7olTtQP/pLec8qk80Ib7sV1TlUb34FJn51Q2AvKenhkx+AD/23EeHN0DKv
C+SfWZpL2dFbEVaeSOMoEg9UqVxgeyJ41snWxJLfqoK/MFS4CAnrCzJTic8s
7OA18BASh593K9PzwfX3b6b5IOi7ZDvmELOFBVq8bQjHSs7e+Z32W2iQsm+x
P4JJk1q7HcXzpSni+dvtCJMuhnxhUbz1R/yNCgOIvacu2ED5CCUmfeaBCIf9
RAP55MeNiXPtZTsRUgbspYOkh4GVwrmqIITWylvJpqRXc+pzL5c/EQxUmxZU
k/8K11WUa+xFyKnkjfxM+h/9lKXZsg9Bd2pIpjXVxysrNkQsQMiY32vqSvUz
WR/81C8Mob1VNDqH6j1twt3QQIhQzI6HJ8TSXJu49xEIdaw/rgZRfyl11++9
Hkl6W71ePEqcOFnNLuwQAitwblYA9aPy4TaPkMMIhuO8b9Xy/tl2OXjXEQSx
Wu6DKdQvVR7ujwk4hnBktCBF3k8trq/N9I0hP0sa2cuI/cRqJZ5xpHfoXQ0l
4sTY9jq3BIQD4Q8j6uTr783tXp+I8IAdxt0tX99b8M1RhDAlakb3Z4pnOsdO
3S4JYV7STyd5xOZMdX1WMkKnZ2sul/LxW9TBMj+NYDm4eWId5X9COc/NOA1h
0xSu/0LSp3RUsHPFGYS/s2prh8ivXV120XrpCIyCDpvbpK9ZeUeR9lmEXvGO
6gD5vD2fVz0zG+HlRMaEK82rhJOhHSrnEXq+a/PXU71Kw9eNTLmI0NEsKeZT
PaXbZygr5CBwo5pdssnPyhs6dSYuI3j/6m/LIDazyrcYzSO9N/3AjCM/+C4N
cx0uQBCo5vdtJ06YYR/QfwWBMxgd209cOjEj8s1VBJ2GrdZiel/6tjO58zrV
z9IDwmk/5cb8vJZiOn/9ks1CisesMuxeQymCmyuzM53i9c21b6kvp/ieOw+0
UD4JKRofqm8irDKKdDCkfKWBBfNvVSIka003ZJA+Shi+uuRf6m9Nj1L3k35M
WwdOURVC4cEO4wHSN15LGnq+ms7neBnjHtWvRKHwpLiG+pNzkXg2fW9J34df
TKtF+MRs8Xan7xmlVw63k+oRmuoFuQfpfsi8P7Mx4QmC9cf6xXZ0H/Itkr47
9gzhg0mwVRlx/D+FjKgGBHQ/zdCm+1PJMaGW8AXxUNEiPrE0mG20rxnhRuqs
zCxiJe4s+90tCC9y3V/eJ2ayu7x2tFI/fZsvaiT2NbkS4teO8EzH9mu9/P9f
CyLiuJ0I2X3nblwjLp7qmIVSmndMrb5oYsnnWWUbuuk8z5Gx1srXl3Q95rwh
PXxXvP9I8ZnWXnmzrpf652+u91OIfUoivkMf+d3E2dhIHn+Wo4ZlP0I+1/D0
ccq3OEFz2epBhLFTK3MKSQ+JoNtm5RCChodaaifppeRXhPrDNI8TL3TqEZu6
HAjS+YSwfKxdlET3AR8Lp6PzRqi/i6O9jInjl8xO1xxFiJrz9dJs+f1B9fU1
tTGE8yPD6W7Ekm9FNdPGaX5NsrRkyNfvOSBRnEAoyeP7r6L9TZ85jcpkCMqb
z32RUXz/A1G5sxs=
        "]]},
      Annotation[#, "Charting`Private`Tag$799#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxF2Xk4Vd33AHCVJFNoohAVGUqFkpKzNKCS3DNcRKUojahkeslcKcmQZK4Q
CSGJUleRZCwqGSoks3uMGdNvn9735+sPns/jcc9ea6+19vFsuSN2+NGZPDw8
Yugb89PI9u5WHp6VwPP3q49zbLAiVadIftoXnceXul9ZNe3jeS9jRA6oTPvB
Y79FiX2q075U8uP7cq310w7DN1/6vUx92sZa4sn72zT+93nP45a+rt44bbFH
J5NUczb9bz1/ctKlXTZPW6I7d87iI9rTvqCu3RiirDPtI72TJfO7sGmb3M3z
qWqHaeOuTyzZpbrTnpQNONbC2TZtO0+v0b6M7dPWDNQsKQjeMe30EyUFYX47
p+06KDmickJv2sO79dhvD+lPW8s8WPcny2Da1ZIxJ4vUd017yX2f/GTF3dPO
bVI2NBLeM22Zj302jr3/s3pYcGp8k+G0Y3gHVUMK9047R3dtvV+eEfz5+0Vz
kvIbh0FtH4z859uaV8UmU/ZB4X+u5xVqKxM2hjtT/7q9Fy+U1DMG/tF/bXn1
fZeijzHsLv3XdQpG4psKjOFP2NRfd3C3+GuOGcP9yJG//pWjxKOpxoJIhcq/
1lyzbMnikywQ3tIyxdg5foHGyF0W5DZHjDFOV4y0vPaABc8PtI4w/pG27Pqy
TBaopOUNM5ZQT8x7nMuCK8fGBxgb5Sq36RewgHTxpBl3up6ZFCtiQZzCmV7G
vlszxBvfsqAuY1E3YxmeQcX7ZSwYCb7QwTjv9QbMvooFHnaePxmTfs7U5hoW
nIte3cKYq//8FG8tC3alnv7GWPtBo2PnFxasCDzUyNhfYMqrsp4FxbFq9YxX
VsDt299YYBJ49hPjc6pH4t2bWBCoWVfNmHPDJ/1ICwsS4iTeMxbqT8jTb2XB
0O41FYz348VFq9tYsDh0Qenf/XrcXiXWwYL4hLJixkML5jb86mSBCMuokPGN
2j39Bb0sGO168Jxx46Yzk4k0C8KH3Z8yVo4MnHOtnwUa+8UeM3aaeCRuP8gC
bI1lOuMiiw/S1DALeHSOPWAs/nJAcfMIC2zElyUwPrRsgcayMRZ0tPjFMh5v
Zu/unGRByAuDEMYG252pyikWuMPNa4zDEiIsH/Pg4H/LyZdxy+znp27PxOHL
nR43xutsGh3deXFYX9TjwPhiyW+vI3w4SPXZn2ZcprTsuj4/DqrhZ60YH+s5
HC8mhIOE99t9jLP3+qT/EsZhcEhgJ+MZjxLyGubhELQ+SetvPYgWFxWI4fB0
4toaxtFn26sS5+OQpZIh+7c+qvkbri7EwaFeaD7jjRrKbXaLcTgne4uX8Ydf
pye1luKgmTjeOoXsVjf36pQUDs7vOj8yVsi/v7hQBoeanL5Cxq5eTWqGy3HY
fn1eHOOV1u4Foitx8FAUuMa4Um+J0Sd5HJqf1FxgvFyIPHFQCQf9pBx9xuXc
vl/LVXDg085QZez44bpv+2ocrj6BBYxLb72Ns1+Hw8CRmvrfyA4u1ms2qOHg
VZT8nLGMxYznY+o4FMHzSMbn5LZ89tbEIf32GoKxFO8XK30tHKo3YqsZF7c5
9AtuwUFksfgsxktS04XCdHAIlo59MMnUQ+CeSDNA+Zo334Wx7dmOVTLbcLjl
XLaT8euNy7cn7cSBKrX+PIF8WpLz/pQ+Du07uRGMF02aH1y3C4cDEkL7GZ98
FeaSZ4hDbpBE1TjyggS1OReNcDjm5ObD+OWlqpvbjHFgl0apM55vODejjEDr
tV90aYz5ver9rUEUDq1RPasYHxfbXkaaoOcdPl80ipz/2a3t634czrSze0aY
esmTdLhngcMi9blOjEWjc2bYHMQhIXPRxC9k68N9Un2HcShZKNs7jCyy43pK
thUOb3nO72ecq6C8yeUoDv+oeHKGmP7ssSJmnsBhyfkO20HknEqe5uKTODTG
YLkDzDzMjLG9dhqHnRsNRvqZ+nSs9V9gj9ZfOJvsQz5o5rC47iwOdiG29jQy
v7ZYYsx5HOLvvfPgIlvM2FOg4IQDXehzvgeZr7V9b7czDqbdk+xu5Ixi34ZH
rqi+uk4pdyHzBrz8tekiDieKPWPamXlpa+772wPVr6HKljZkU9ao2GsvHAy2
1xS1IqcuUluzxw+HaJ5T4c3I7LHKZ/Mu49CR/u7rd2SexlMGH6/gcGNOytxv
yNTdRKsDAThcrr4nWo8cqXVzQj8Qh4uG3Nxa5KYP3qFqQSj+0Yvan5DlT55V
kQ7BwZArFlHN7PdMy8I5N3H4Oke7vIpZf6SR+UAYDqHeNjXlyMNqWwcbw3EY
jfzw8B2yp9WSFVlROLhv7X39mqnPCf7n0TE4/Pz0auwlsuDNEfxyHA5r/VYN
P0M2Xt3WdfYuDtLaVzJzkG8VffS2iMdBzV9YJYuZfxaFS/QTcTisGn0gDVlu
ODNrfRIOOTlVO5KZfMjfaOF7iEOakKBMDPLAC3fX/lS0v3LZs8OZ84l9Wrwx
HQel3iUBQUz/c/enFGfgYCUtmOzP1P+lXdsys3Dw21ho4o08Z9mm+qhsHJq0
C266Ihs+VTh3KQeH2MMCpueQa9tn3TN/hvr77hrCkulHzwEtvXwcNtn5ubKR
j0g0f1j3Es2bk4vnGDLzPqPqxNICNG8ElGhA7jF4OYPvNQ4m3WaKG5DVmlMj
+gpxWHXaLlaRmecuUesb3uDAj4UaLUWemeJ8OOMdqt/K0LVTU2g+b7MZiyzD
QZEFelzk6/VUsF8FDpLFllZfkavP7VCyr8LhiKGzUxmyhKD6q/0f0PMyxs7m
Ih+MlzPbWYNDquEm3QTk+C2i/Ws/oXnRbVodiKx6uld2dh0ORzMUyg4hO/A2
5tL1OOiFEgv0kPOiS43rG3HY2LezVBl5SiOvo+gbWk/iyY/CyDsqkjwfNaF5
8s1Rgv6NztOjtyQiW3DwXWnoWolc+ds3w7cVB6NTjQ0Pkc1UjzSZdeDwSuPO
Ukvk2GJj5x1dOOxZ9iVpI3LrQUx0bQ+aXxlpNwSQlUbWJEtycbgyYljYMInm
2Q0p4O3DQfsYn2QKcvYqwS/cfnReHQDrC8hjnDG7ukG0v3e3X9iK7Nv3OS59
BIc3lX8kCifQPL7yRjNiDMVj1LbZE3meXHaVzwSav+uughYymXfPxvY3+nsI
+9k7jvqHFfzH9A8Oz/PlHsQgN3V6hG+fQcD2Wd89DZDlvW3Xqs4iIEFZSY47
hvola8+hWXMI0PVaek4RGS9/4lLBT0DwXunSwlF0/v9cdjNcgACVzOQjZsib
JIdKVEQIeH2Vb/zsCHp/Uzv4Y3geAYXzXbcO/UL1a1jymyNGgP+4zgo75Fce
0WrkQgL67jyW2DuM5mEE316ZxQSE/Cy99mgIzZ/H9jYdEmh9bpMz5yLvbtsR
7SZFwJYrtztjB1A9/knP0ZMhYP+DM1r1/TQnUFLyg6gsAdcHtfcKIFcb9s5O
XEHA1oXuEno0qodjJrJ28gR8mF0ga8xF54Pnq81aqwjIGp0TvqcXve88DrOr
UCZA4tnY/IXdNGey/I9/+GoCymXGjzR3ov1tO5FwWJWAi8SwcnQHep+Q1Kkb
Xk/AyZeX5tf9RPujnjzIUSfA5LXHDLNWdD7vFRe5uoGA9/kXZxS2oHnk2bZN
RouAC+KX7u37juZ5pPGBjs0ELLIvTLT9iubn42dOWdoEzPWugnMNNGewLTBV
DwgQ7TThk6tF84VnrFh0GwFBIvc/lXxE+V5i1Vy/nYDn2y18jKpRfvdqLrLT
J4CIeRvQXY7OY5u767R2EVDq4xY/9Y7mFHgK7pm1h4AruYGC7cVofmd/9wg3
ImDvsIi+SgHNuV+xK/KwMQFvy32cvfNRv7Y/zlbBCdi1tuliQi7NCVhypZND
EVCiWj+inYH6TWNg1lUTAljafV2pD2nO+70WMqQZAaqH36TX30fnq9c6osOC
AMFGvpOW0ei8iow8k3WQgEvxpFrGLXQ+ZPNecbMkoFdx0dPUIPR+1P4lX9Sa
ALIlMjTch+bozNheW3+UgFYfxyZ3N1SvS9L6E2wISFf3yfjtgOrVyEtB6xQB
xYk+lVnWNKfEphtmnSGgW9mqqMEc5duLMq+wJaBGP8DPD0f5zVYKOnwO5avn
S4mODprflaEpKg4EGE6eTtRRR/O3/XfR8AX0eUtF4uNWofexpdVj/i4EVBmM
nD4qgurvHCm55x8Cku/xK07x0JwD7z5vEnIn4JOkRF7DAJfj69TgFOhJwKOk
cautH7mc25UHwvd5o/wtM9idWshF874pR9SXAJcUhfANWVxOTU3rcMhlAjwO
WKfYBHA5bco2C0l/tL+3JrkTTlzOuFenxsJrBLSnb7F0OsLlLF/HPR8eiOrz
kq5xpzqXs/GyfahpEAHD6yYWv1rC5ez6NpAlGUIAnwxf1DYeLsc+YKQ/KoyA
23eUOFPFvRzfHy5iB8JRv+3YV7YwuZdze/PkOpkIAuiahKM3LvdyOB089nei
CTh6ewXXTreXU4353DgcS0DU82dbMpf2ctpuzX60/A4ByoH9m2YM9XBEdgpw
E+IJWLeoOc0utoezPDpA+Fgiyt/KE8IH7Xs4GwZF1qxKQvUeLcEzgfVwLO7O
P/0ghQD3R/2XG2q7OfajYddOphIQgSsmdcd1c3z3STxUSUf9e8Hfa/vRbs7D
31JdaZkEaGe2Raa2d3FeknFz7R6jfok7xGuT0MWpfiintO4Jys+poJJfB7o4
42YKx7NyCfDbqbJS9m0nRyQz+fL5ZwR4HTY95uHYyZHjV0nSyCdgWZhGNLa8
k2OQs7Yth0OA7Aq9Sw62HRwL4azZzq8IcF0TrJAt0sGxt9aQ1ypE8UoLvx5O
aeeEi2tZPy9G60/TalOobeO02W5r4VQQcLrPf+PKiVbO+JuiGV5VBNzks40o
d27lCEvry237gOr9eptTVf8PjkbZHsuijwQ4OflWF3xq4fisor6VNBDguMKz
baF1E+fWxdrf/l8JiHyipjfm9J2T8slMes93AkZa+ovyZb5xqn0OWlS0EKAX
q77vK6uBI9tkU/+hkwC5IYVXstQnTlXPFt68bgJ+ObwSsI6r4Vwcm6d6p5eA
Ew8ypb2bP3AaxXO9bPsJsEm+odV8p5xzeye/kuAYgf7f1c/mZj7niD5MdtrB
T0Ksq97GNNsCjPPU7a6KAAl6McpNS5WKMNsi4zJxIRKump4qba9/i5V/HZVp
nkeC72EBLT+ZKuyK6K5i98UkzNSTP3b6n8+YprR0n7UkCTcjZr4NlfuCtSn1
SxouJUHkWX1LyMs6bMf2iDNLljFOWhDY0IjxOHYueKpAwjX1jWpihs3YI+8X
OrGK6HlySnVxw83YwRvBx/2USZCunWUeH9GC5Sdr5ROqJHx+we6f8+EHduqJ
cNvmdSSkGb/957x1K7bkdfO85WokCO/arnt8oBVzbvC36ttAgnnh1bzVUz+x
VR0HrtdqkvDbz37HSrc27PPQ+qcvtUjg+FbHjA+1YRoi9QLXt6J4Hs6nHtW2
Yz+WpGs4YCS4yKbuf6nbgYWs8j5orkvC3RNG95YkdWB9oJyltJOEkBx/9e3W
nVjc3qkGUX0S5LPnN7HzOzGj/dWzRw1IKLymI6Mn2oWlnnc1KzYkISBjLpuV
2oWZexr5pBmRMGd5ELtvqAsTuL487aYxCeXXxi7ybO7Gjt8v5bEiSXD78/Xr
VF43tvhxrPJuNgm2V/7pWj/cjRVzzpHrTUkQ0tt459CaHmxl3ZLkP+YkTBzD
v68L68FqfnI/tB0gYc2DUP5Fb3ow74HXExWHSJCSSqKdB3qwZsFT+6KtSPBp
Sll2XK8X64l4NnHkKAnBoglKoSd7sdFVAslKNiT888RGri+gFxPd8YDn6UkS
ioRC7UPKezGp6tFU99Mk8P6j7PSnsxdbZWlgtsOWhG8m80p7Z3MxHbf2zA9n
SXA6J3LnlhYX2y2gefD2eRI8lQLTzrO4GPv2JYFDF0iYkYuVSx3nYmey5a16
nEk4WZQoyBvCxZy3XZj32JWEnEq82zyRi/m+L3ru4kaCoN+YzuOnXCy6x2rB
HE8Sqr5HxYfUcbFk18cFFV4k6F7GvdQ6uVg2/6wzN31IiNoveWHGKBcrW3nv
jdxlErzz1jux59PY56z+sx1XSHT2Sn2ll9FYC+jKPLpKAjvOzf+7Co2NWzQ5
ageScHlqkdBPXRrj6167YlYQCR2TIYsFDWlMzMWj6l0wCZmzPGWTKRpTDJNR
NAkj4emMAV0rGxrTWGH7UTqcBO6n8ouBdjQGmS88W2+TsCr/9dw9TjRmUmFR
dzaahBMTqj7X/WjsiHmq36ZYEm5nzCyQCqAx286J9X/i0H682pyFh9DYpdlR
VwPiSRigVFzexNBYSGjXRiKRhMB7oSKC8TQWI7f5h2QSCcbr1Jv4k2kse2vd
lqQUEr6/0VbTzqSxgjLFjjOpKN5mjxTnJzRWbuZ8UyOdhKzcZeQ/eTT248Li
3leZJHwoKNrRWEBj3Fk2EVcek6A9e9tM3SKUj+CcnfuekLD9R6SR01saE0+n
YhtzSVjkn+l0pILGZLQTd8c/I+Gn0+Xepe9pTLl06NeJfBJM7uSsyqimMd22
0H0jHBL6eNbl2tfSmKHDj4kXr0jgj3mcdqeOxkxnqif7FpJQMVlrlNVAY/Yy
1Tzib0kwGN5V7/GdxtxS5dK+lJCw5+zeaqyZxi5vPmsWV0rCuo6Q0vYWGotl
i2atrkT5nlL+NvSTxlJaDx0crEL783OluUU7jeWceyTw7AMJCi9DYzI6aKwi
0MhK/xMJ98JiXVZ005hDNS2pUYvyl3BCxbyHxqQWBb+XrUP5Ofl9nmcvjRWa
qV0WbiChTHYhN5RLYydjaraON5Ig9tSgJJxG9dDsMNT2jYSFKzKCAvpoLHfl
ooc1TSRoCmxXPt+P6ifVVCKtlYRsI8OFkoM0lkaPVUa0kbDjWHB7HTKpHuV3
qYOEd6/VAm8M0diEo7b2+S6UP5dXDzcP09i9Z18HDvWQUJpXat6AvGvq4gND
Loo/DtLO/aKxPl1ZS60+lP/b6uozRmhM592RCvEhEh7Oae6cPUpjP4V4ff8M
o/6wvy/kjhxgnLi5Z4QE2Z2NBr3I6jf1+r+MkeAq/pXXZIzG6mvbk95MkEDI
EHeeIXst9T+Y9ZuEKdkkB4lxVO+HlBfG/UH7Yc17zx7Zse20t/MsCvYO3c4X
m6AxaWURraOzKViFLWabIxedeUSz5lCgfF435Q7yqUzj+zpzKTCrPzvWjCw+
3G+hIkiBSky9x7JJGsvbFDpfQpiCwPmvL5ghW7pplPLOo4BeyJkXhPxolpPm
N3EKfiR1fxtEZutLcEsXUNCUo2gm95vGpq7mJTxdRMFx/uI1hsiJlfvNEyQo
mEwU83NANhSfFAteQoHlaJVvJPIgFVPiLkXBVk8L45fIkRE6HidlKHgfWMrf
hNwh69WzfTkF/d2DedJTNHbDenn8upUUNJwJ7dJC3phcaCatQEFXwoXzJPLX
bmtRAUX0fL+jlmeQfdfyvf2lREFmRkGdL7LK+ST3HyoUvA5KGo5Ers4x0Hi/
hoK65s8lj5Blda7dfbCeAt5kl+ZPyG+9VpveUqeAGz5/dzuy7ZsKEZ8NFJTs
P5Yxgrxwrt0bO00KOgd3rpjzh8byDUXdLLQoSPwdkLEQ2SooU23XFgqqr/Ps
X4Es8BHv3LCVggVBlOY6ZFPzMPY8XQpWKES91Ef+E7tReHIbBVjyrYs48v2W
2sKOHRTcVf0Ta4G8V8HF9ZMeBYdtFZWOIQ+dWLL+tQEFIl/eydshR6U9b0/f
TcGQMn+ME/K2fovYKEMKDvJ73PJADnaOE7xgTAFx6KZcIHLKmOlbU5yCWa47
km4iv3YV99EmKTjEc7cikvl8N7/xWaaonhZvFL+PLDSlk9NuRoGCnsfmh8jy
HqNny8wpGL4etzgDme11qjPkEAX8k0oz8pBtZ8onOh6m4Oh+WPAC+bLPN8v9
VhT0VZ3oLEDO9WN9kbOh4MmNeO5b5A98gjdnn0D7tVlMvgy563LRvs6TaH9+
x66uRF56VfNthi0FD20L8mqQNQT7vW/aU5Cev3nHZ2TDgBQd53PoeW5JD74g
HxW2Hjd3oEBrp2RPPfLFQOkczJGC6CJa8CvyrXm1Z1c4U/Dr+mmh78iPgoLW
zHGlwFYglm5CbgqZlVjpTsHEiwbrVuTR+S8sszwoEHOaNf4TWSzMUeqWFwVf
kySd25l8h3eGHvBD+78ZNLqQzSXi9+lepuD3cJZDN7JDhIWgvD8F4tF293qQ
E6OqvHsCKNgsPK+Ui/xSyl/nfSAFjV8uFNPIn2O2jT8OomDA1zG7D5n/zpOz
/9ykYKHsjeMDyLJydmsO3aLAJFt53SCy1j3Fzm23UX/Sx3sYn0yIshSIpuBn
Ab5zGNlbnpLixlCQ4navhXHUfZEvH+IoqDje5/gLuTzZa19EPAVWzjGXRpB/
Km0RdE+kQFBoYOYo8lTKULFlEgVGPuudGa9Ns9FRfEjB+GLBfWPIBqpy44Jp
FOxoOJzJ2PJR/RM6nQI8SlpkHDkkc++ap1kUfHh14ynjFLU5nZHZFNiU882e
QC58XJBwMYeCCCMxI8ZDT9Sl9J5R0HuutYaxkGZvrVI+hf5/Xik2ydRf7v1Q
4ZcUBLl17Gaso2W5r59DQZXaES/G7GeSgp9eUdBm+iqbsd2WmuLcQuSyNT8Z
X8kP8I5+g/pJ7bH4b+S8l3/GrN6hfvVbcIyx6iuNTavK0H7/eOHPOKHwhGNX
OQX6pZ4PGQeW1AzYv0frLXvWyZi3jH+9RjVab91hvilkl4qtdiM1aH75essx
tq5O6navRb55kWBc97FRSbeOAs5T25OMjWrFjvM2oL8vWunJWKvxn9ar3yhI
slZIZpz+LWO5URPK9+ngZ4xXNv+0FGuhQODIjHLGIm37vob/pMBDT76HsU+H
71Lzdgqef+wfZzzalWcm04n6IWGI/w/yD3rF54QelP/9+csZmw6YLjjOpWBn
xE1VxpVD13GVPgpqPpYy9y1Y7thIZeYgBWlyDkaM10yuFr4wTMGnQyMmjO9N
Hd6zaYSCpzxjloyvzyp/+3KcAjI/5CzjmXwz+LwnKfB31XRh7My/ccfOKRQ/
97wn4yPCdwrKZrDhySHOdca18z5NBc5iwzvtr6GMDcUFtuKz2RDulxTBWHOx
Q94XfjYU7SKY+yssVfLBSJQAG9QWbmXut7DlUt82HBJiw7LBH2mMheQMsn7O
Y0NZj2MOY+8V7n3JYmww8zvxjPGIfJbq6fls+Hxs5UvGLcpSDwcWseHK6hlv
GJusYXU+kWCD/UelEsblay+tclnChl8Wq8oYP9Xoi/8jzQZegxTmvg9brSnf
8noZGwpo9Zq/+dHaL3tJjg1SfFHMfSEWoFMULSTPhrRMfuY+EXParioZqsgG
R/bU17/5MLgdJrmaDTMD/Jv/xr93pvidtWxYHpjT+jd+/HSggjobNuy+0f43
XpPPAmkbUXyXpbr+xmsBl9U3s4GuP9rD2Ejb/MEXXTbM2Xujj3GwlGOZ+y42
FF6oHWT8cTKodzmLDfESZ34xXvT14bwSUzZ8Sbgwyjg6ppkQP86G3Al8grHc
wcW3LZzYIFIm+ftvvN+9ZfvD2BDq+/e+F9toyU32y2aDt1YIcx+MNV3fMDeu
Fz0vuPevrz13O5GrYAK17ZN/fTy87HTWQRPQcvx734ztOL/EPvWWCQh0/OuA
mXde2NSYwPHJf/0xWF5whagpOP57n41lGS5NrjQwhY7/fGOO2E5XL1OY/M8t
p9NlXhSY/v99Obaxeg+K63/+P6/XVdw=
        "]]},
      Annotation[#, "Charting`Private`Tag$555#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJws2nk8VN/7AHAkqSRRRGRNSJKQbPeZfTBmplK2LKGokK0SCiVSQtokaSEh
LVRKidKmQkhI2hTKNoNEsvye+/n++qfX+3XPvfec55zznHPuUPfauW6LmIiI
yDJJERHyf27gJSsRES0Q+e+fsGLrUE2h9bMloDQ+hf8EFfvDxxbtO7wUzMf+
56H0trbnIbqg/e9/9istPy/ttgym/f/9h001Wj9oL4ev/+/824fkrwgNgPP/
Xr72xN0HToYQNPm/++Orvn/RWLMSkv//fclz5q5K1TeCmP+/fmqdefyE6ioI
k/7f/YMMbQX9acYQfut/1/lrZPNcOo1hq+vkf9401rI5uc0EGpqn/Vfe7+GF
RZUNpiD77X+2NDm0OfzZajjJPvhf+Xk3t181KDGDG6Ub/3e9WWZZ7pk1cKDs
suh/8ZgquaGy1xxK5+77R5ZXX8yiXz9jDgZro/+SbrNs/mBZYg72VtojpM+4
+u6sbjSHi85rfpNeFzEivmnIHJw+BAlJ30qseJstZgFuv037Sc85m5DRM88C
JtpKekhvz+NtWaVuAY2f+n+SrrqnYBhpaAEac9s7SGu//DJWSVhAuPLZdtJx
TVefz+JZwK6xBV9IE8OrXTMCLCDk3p9m0pniItrtURZw/c71RtJjclVC3SQL
qDrYXE/aSTP1YfA5C5D/HveWdImRU3xpgQXEnllcS3o+VW2t6AML2H9L7T8H
r/25yOaVBdiFDf1XXs2ZI9pXZwGZ/oX/Pa/W81ZnaosFrMoR/e99+/zmVxt/
tYDPW0T+q49+UHhRS5cFPGcltJL+uKftdJTAApL2vPtM+kg0RKmNWECh4Z/v
pM0ScjY/m7QAp/jJX6S7kiVZfhKWcDl37L94nj7try8lbQn0nJFR0vSsunm3
FljCmosi//Xf0BXjkfUqlrC+VUaC9OXr6W0jWpawsvzWbNJr744/OadvCYkp
3+eRFnnkeZUwtoQVoYULSd949izpu4UlxP2arUbarVonJIFmCQGiojqkpRqT
HJfZWcLt/kRD0g8+Ci3frsP6bM1eQ3phz/0ZCl6WMLsoxJ60+eisEbNtlqBy
3dORtOt0t06XIEsYEb29mXSWqujzrP2WIK7tsYe0loPNAe1zljBNQSWXNHPz
uWD2ZUv4MrOpiLRvYJ/n9nxLePrF6xHpgsPHiRv3LMGyKOkd6TenvhvUlVtC
5UHhJ9K9l00WDz63hEjxki7S0rcS5syvsQT/vY+EpFc8+jBu0mgJ77Lc/5Lm
v17W6/jREni3RzGgwoqQ5n0f97ZbwnVjzxmkT/x4+/rcL0tQ9touRfrOgPqD
R0JLYNv2ziXdNBma/2XEErQUH84jPTL7RbrolCXkbyn8zwsVFx7WlLCCC9Gn
/ytvrr19D2OOFWx6xJ9NetOqsq2+863g2Kvb4qT3gfTGxEVWMCo8+++/eNl7
Mq5pWIGtpOZ/9X/sUmxco2sFLzR7vpFu9xXXEhhaQUrGqzrS03ZtlJtnZgWn
rbLK/ovvgTyxVYQVLArlXPkvviljAw5MK9AreHjkv/yRyfm2294K5Gub/Ukn
5mfVpTtYQV/pcbv/4l2Cfe5qBX+ufdEmXf2UerPNywrWh0ROkOOxv+5k1uQ2
K3CK3ZRLeu7nzmNqwVZw18uT9V9+GD3i7xNtBQupybsm0WHTP7nGx1tBY174
NNKnZFfY5R2zgsiPT45OoFv03+n2nrOCtYq0Y+No982LukLvW8GTHqrPGDom
MKDpVIUVvHKVbviLvhRZ8fzeCyuoeffXmvSPU945/xqt4Po7DZVRtET23RMq
bVbwj9+ROoJeemvGQeK7FfzSOjyT9PbX1zYfHLCCoSV90n/QSc0T/CujVjD7
RkzWMPr6Dx68nML6TztpRrp24NKKXxLWUHo74/NvtHByaPFsaWu4uYGdQnqe
FFN6+QJr8BSKc0kbKaZPcJWtwbxnlwppB+3u3iBNayiOhakh9K5Vlm1petZg
lzH1m/QmU8GX1JXWcFmi7r/r9DWXvyebWcO/zUVq5P36lhu6kghreLPqjxPp
+YRkzxGmNZTHtOaTHqc87D9sbw1TJ2Pmk/X9Tg8cjHewhpDavrOkX7PU/8S5
WsOirI8WZHuLbRv/HvCyhlePW8ZIZ9gnTMRsswa/wrImMj4H+Oai0UHWsOTR
97dkPLev7xPft8caApdGd5LxXrvxomTkfmvYsjdN6R+Zz5zXS+09ZA32ygM7
yP5T2yQhsycJ6/PeopXsX+Fmf4XQDGvYbB1/iBxPLT6qi4IvWcN9na9byPH/
2Ldh8c48a3h9iu4ghk4JMNPeUWINy9unXMTRBnvFTbwbrCHvzKs3kmj5qHtm
mz9Yw55XaUMz0ZP7t1t6fLWGkoDdyrPRNXF1NNd+a7i1uXzbHHL+JhxkOQ9b
Q3D29CPS6MwjpnaO49aQIBtcMBftn5q5bv0sAnR79ryZh3Y4wdu4dh4BH87s
fCFLrp+nxVx4CwmYVrPhphw5v87edbNXJaDe3vvgfPTsTL/NdtoEOGQ1EQvI
9Txr0Rab5QT8qBv9Rrr1Uq0fy5iAlPUavvLoypxYf4YFAQceVVSTLrhqHESj
ErA9c6OMAjqtoCuUYkPA6dpoQ9J7r2fsIfgEPN3rp0fa85Z9pJUjPs9+/z/y
fvZtkWgLdwLOx7+8RNqw5PaBNVsI2KK6bxHphaVb41f7E2DLkPEl6yNSpnjE
JJSARzUr/qt/V3n1sVURBGy8VhNItq/2SfTxlbEEDHpp6ZLtL3lmdGrFYQKq
Y8qKZMj89LIjfXkKAZfmhEiS8Yt/nZ657DQBTY6flpLxDqyxu6h7noDndvHS
ZH9sqJvMXppDwKFGvRdk/2k1+VzTLCagYcCuaBq53nxQuKleSoC4nk43OT5+
f3xdrPqYANOoiAlyfD39ZvhgUS0B2a8yTwjQXn3jVXLdBPRezo5vRN9/8Wc4
fwDvL1jbXE3uPy4KNeAvAXfdm02fk/NLN8TaVBzgR/jDkBIyP8gLHEQlAaya
dMJvoovE/HdUzwYQrjb9nEeWF/yMPTMX4MyV1NLLZPm2LelecgC16lcXnyf3
O1XtN5YrAFz7FK2ejna96/F8VAlA0jG98ARZ/nLbx6eLAaRqzbpSyPLJzoPJ
GgCqE6WTSWiXyCZJF22Aff++zziKnu63XnWJHsDf2LoFR8jyDnUmwuUA91tO
rSHtQrHnPFwJ8PXZQCxZXtzgtVe8CQB/9++xY+ibSqy9a9cAcHZdu36cLD/j
WYqyFYBZavWF02T535DbBQB/nPIeZpLlvz4qK6YDrHzsUZNNlq8xf7ePDWB5
s0itkCz/4N4vNgdg9IpK0V2yfK6xyHw+trc1JewxWf5EkfyX9QDvml+7kPEW
jzFYXuAIMKZYz/lAXnfWcQEPgLxqsXdk/hFnXgma7Q0QUT4/kZzfN400Epq2
Atw7Peg0Cy0upXzHPxBg61GrBnJ83xhNf706BKDEpdFpMdq5Y8E3sd0AHmJn
rmqR5RvSRmr2Apxye5yuR5Yvnyt9dh/AbZ3FEyvI8teStHxiMf4qfzKMyfLp
My1WHAJ4LtWjb0aWj4tfO3YY4ObkN09zsnzwNL/nSQDqtl1NpMXdY/anpgLo
1r1/ZEKWt5046XoSQGHH1U+6ZPnVEde00wHkHTTjFpHltUaeDJwDCDCwTibb
c0MmrKXsAoAglRfSh+13nhD2J2QDUM4Ym1WQ8egOmL7+KkBWyzp6IvpGU/ei
xdcAcldpStqS+9envka/bmB7NknHTU0KKqbd+sG+U4zjwWq2xVX0jczNHtEl
aM2P4RZop8TPu2wfYH919cvumRBUiO12TVpQDsBNX6FxYRzXM6+Wy1+fYH/1
bdl1+x+W520ovfYcgBE1WFE8huUtG97ufgUQ3cFwz/grqCjU4XVSanA+SDkr
bR0VVDguqB6Xqsf22y0Rzh3B8mI2ci2N2N8XlRtShrF8/3Pd7BZsT8+lgI9D
WP4jFQLbAGIVYgUdA1i+qmLjmq84/rdne6kIsPwdywDxHwDr7u2Qv9WD5S+V
HnyLA3Rxs/Dp1y5BxYPU5RecewD0VC5cEXwXVCyOufTgez/Wt02/NvULrk87
FzQFDALExMfMLG4VVHS6Jw6MDAOknNOzsHwvqLDlTkgd+Atwp7SqUfYtxssq
WEdqAuD0DT+OXJWgQnZ5B+20CAV0D/ekzX8sqNit7OyhJk6BpCt+RzpLBBWt
s2siCmZQwOr6oRlLCgUV1v/gtPFsChgeWcYtuCCouNx9p6hcmgLnl14qZx7H
+d6qU8OWpcCNO4cYhTG4Xr7K/NmwgAKfhqfuHwjA/cN9GXE3RQq0tAUa+Dri
/iAvTrVLmQJhakr8Hivc758ZNQ9Wo8Dlxvbik2p4non33/hPkwLuYr+XtU32
V7jv/hp8aCkFzhKh2stb+isqtzgcm7uMAqaslX9/XOuv0N5QlXfWgAKbh+UL
p+3rrzhCt3ymaUQBs6nHOYq2/RX9q259uW5CgdrHJ9cWSfdXrNPU+rd6DQUi
zj91OPSqr+KubLp8pSUF1v6zyWft7atYKCZlxAEKBO5ZEJCj3FcRNRBt30Sj
wFWlZdfoxb0VX78O+Xmy8H3JNUvqzXor6HW+cd22FHjDz1YbvtFTkVfx8UIY
lwLJv9r0Nsv1VEjd5D2cXEuBTYtdf9X4dFcEZT1tOryBArx+L1G/3F8VjcdW
D8o6U4B79YO23YefFWb7rs05v4kC+vOW/bz9u6si019Vd6knBWLXtGcN/Oms
ENl0gl7kTYFFdpnmez53VPjYzfC08KWAdlPh/e/5PyqqzCMjn2+nAGth5blZ
Tt8r9PUEp3mBFCijJ3qPd32r+C3ZXOO9iwIXOAGPqjd8qnAatf3VF06BP8uD
A/8++FBR1lUuHh5FAd/LF810qt9XqDUbqYnFUGC/hrL72031FXEvci2SDlLg
SmBTx72wVxU/7yo5yidQ4GRq2dOUuxUVnCvJIRePUIBdMWH6ePRqhVzc7vw7
xylwOvXTvIPbyojdod3PrE9RYM8MP4mNXlVEq5f716p0CsikDz54BPXEZQpT
4dMFbM9Y+jkrtY+ExMoHRr7ZFDCPfvghrPULsV3NgDuQS4FE9QtrPZe3E0ZT
Cw5Nv4H9FbOq8dz6TuJ0f+LFlCIKrIhraj+18icx9mnioeJdCjx9N/yG0fWL
cK8Jbs6+T4EFr38fig7uISrLOgaXl+F4NVJKi6/pJbQLnaXvV+B8UNN/rfi3
jzhyrkaX+pQCRpWzDaIH+4n+IxRG9QsKeK9ZW5RyX0Csi7jrufE1BWbdD43b
vERI9DZWp+rXUsAgIaQ9bamQSFjx47FYAwUopW+Ku6WEhMaRf8KW9xQoTtlX
ch/vL/shq37zA47v8P61YSYCwpHQW3voEwWy7GZkzM3oJwbPUmJdv1HA+VjP
+cfCPiLpt1PRyg4KdMROn7pH6yOW8oK+zfhFgd5DzKbezF6iMj9h3uderN82
37M/p/cSm8QvUO4IKXCmSkfkREIPMeJeEnzkNwWEOitWzY3tIdJKay55jlKg
Xuwna8PLHkJ/fke96TgFaIPJY9P0e4mXgeOic0SocGD/kO7sa72E1ys5o+/T
qKC8uMs0h+gjxjWXeZXOoEJ4k3nZnh99xJn91LSU2VS48bGM+fREP2H0wbly
y1wqlBuYzolmCYjqVcGDFnJU2Gzll3fwr4DwTT6sIatAhR9wqKN5rZAQ+3Vh
3U8lKlD9lnMOnxQSmbR7B8oXU6FWayBQpUxIrM6qLT6pQYXFL473MFqFRMNo
R/t2bSpIPDPvv9kvJPzXT8hS9KjwvStdy/yvkJhxYz5NwYAKJ+elawyiL0vq
h/atpILfuNpL2QEhYelNy35qQgUj8eaLYl+ERPMjl3dn11BBv/v9unXPhETI
wpBpQVZUmJ2x8++DS0JCKjRxFZNChTNDF+s37xYSV2sueiszqODj9TdhvamQ
oOrcPzHIpkL06KuwwA4B0Xbg7dMqDhU+aopm9bkKiD2fOoey+FQoizk7Jvm+
n5A1m9Tc5UAF9om9u89t6CcK0xY42DlRIar1iMOm9j6C1acfp76JCt9imiWf
R/cR7Sz6nREPKthI58mOrOwjoi67/qjxpsLOhZeaLo33EgoTIfNzfLH80Nfw
n+29RLHjEXrEDirwwj+7S5j0EZziS2H8nVRYmWFse7y4j+iSKs3RDsX6HV5x
/BW9nzjgW9c4vpsKDee+NiR39BPKlV3i7yKo8Kq8+/b2ZBzve+S3RB+gQkeL
5/uOQBzv9ctPbYinQrXUguNJD3G86zOeLzuC8SwO22kwheM9YdOwaDLeL6ut
+c10gCj7Frqk5TgVIiGdJaQNEI6WRzfcOEWFDfM/K87QGyAGT18+FHeWCnWf
ngepThsgkgZK77qcp8L2tZatLvVCYimnvsPwEhVsvVVfKp4REpW5PxfMuEIF
nf10Zs9GIbFJVIT5KY8Kz0r3V0TJCYkRV4XdtwupcFnD1k3ugoBIKzHITbxF
BaHxykenFwkI/XnMJo87VNi15xS7/lI/8XKHm4TpfSoo9h7UucbqJ7xehJlK
lVHh+SKpjWWG/cS4WtLW9goqxLbOkNm7rJ+I+PPuYu5TKrTGrSg+adpPjL5Z
9HH7SyocvRejnszvJ3Zf8l6w4g0VHEWlLzXt6SeGdl/jDdVSIaXa9V9mQT8R
xBlKvNdAhZlaug4fOjG/qFs8i2yiwsAeszEnPQHRXf3aTPwzFer9e/WqHgkI
v8uyoVXfqMDoGla9KSokOve4XE/qoMLek9n/ejWEhI/95S7+Lyr8erFqkE4V
Eu0a3eoL+qjQfmo4stZdSHiOrtz0QYjxm3uo+8YeIfG5Zu/p87+xPxmqOipJ
GL/sJ3WbR6lwwuPP7i3nhMSH8JmztcepkJF9yLAvR0hs5K5ldE9Roe9wR5xp
npBo1DwbfWMaDbyeqZr/wOvr/n4tDZlBg5A9z/ZQTwiJulqd36azaSC45+zM
DhAS3Jwgg3/SNFh8bJl/ONaveu99vwpZGpzvGroRNV9IVGmxP7GUaBC7anjz
5A4BwRxLUZBaTIOWi49b58kKiGdvm9fWqdMgb1rNg3cV/QT1imrSySU0mIxb
uDolvJ+oiPB94aRLA7O3ol/WEv2EJf+miMpyGpgwsq80y/cTD5aMmH8zpIH3
wAPKafN+wuyf9a4rxjSozsx9WYL9U1IXf3ObGQ3+iP+V+1LZTxjn1v5abkmD
o7tvZZcsFBDFkfJagwQN5L7ZhObtEhCGa93dS2g0eClVoPz3vYC4rp2bHsGi
gbLfwYh+JSGhN97XYG1HAwtNvwUv2UIir95kzjQeDZhiNcFFIUJC++o+1st1
NDi3VOz6wGkhkRP1PPboRhr0uoVQ1TC+GuvmlPFcaKCjm5h674KQuLh0wx85
dxqEdRS9gVQhsXgi07BlMw3mWyRM3IkQEucafmzP3EKDqKkabUNPIbEwT/+K
5zZsr+q9Lb8oQuL0vrAvWgE06DysrrxMXUik6Yg7XA/D+nfXujEeCgiZSbvk
4HAa/F0eNDQnUkAkvztRZRJFg8ClwtexICCk8j+KjUXTwPOFmOVafQGRuF/T
qvwgDcIzA1zqNQSEhMOOPQcSaPCtZ0c6U11AxOneLmIepUG2eMVH6lIBITY1
1jMrhQZitEODBsYCIqaRqv02jQZPTFRHeLg+TOYf8TxxmgZbns2/U+0hIKKi
GzIcM7A9G8Zm3I4SEGMOSu8XZdHgw+8NNhOZAiJcz2vu10s0aNobV3CmQkD8
mcq3yblCA6Wvy+cHtQuIsPcDB/3yadBY0/JOTUxI7IyJHRXeQhv6LFyD8yXX
6fHqsDs0uKYOd1NX4HwwnNo9co8G44svNm+2EBILZlqXRDykwS6qk5EzQ0hw
vkUNT5Rjf/ku2bHMXkgcLH1oHFtJg5Hju+NPrxMSD46PhYq/oIH9etP13huE
xMC2NbcTXmH9Vp5s2orWoYYPzqqhQc6cnZHteL+H0r2VyXU0OOEusm+nNfbP
4HDQvEYa5B8ynPFDX0iIZ4cKFD7SoP7O/SVzJYSERWSxwbnP+P6GNU9MfgiI
kPUDAYvbaRC0Sj/EG/NDwTLD65c6cPzVzFgykS4gvk3b2av1iwZWj72qOOEC
YmHb9WV5vTifPiQ8SNwkIPh3ercvE9LAz9NhXgNTQCQkLSu4MYTj80rhjfmE
gCj32f5r5QgNLCOtpKdvEBDDlvk6d8docFJQctU9GPPngp++ZpM0eAFSp4Vp
AsK7T/vqQ1E8YIfpFwfi/ibj+ZZO6+l08F/hNRH+VUDUn89ZUilJB8eqD4fq
xYWE5O7vPgwpOqwWV79npSgkCK5GTtVcOkgqvk9+he3frb35u50cHWKaVoZU
YnyuT17QeCtPh6aIVJ/9XCHxo+nz5nVKeP+owg47VyGhfFPl0nsVOhyKULSg
OQqJ9Qmbvjqp02HCXU9Fhy8kjnicU23TokPl7ZgJdyauH6tb3T108Hm7rB+6
mAuJv3MVs9qXYflVo6yz+H7Dn46ftqygw5Eii5cXVYSE7+PTyr+M6MBIlL8x
PkdIZKW/d/U3pUPKxTXPd40LiPdB888J1tDhevCXkvpPOF9s1reGWNHhwPbD
+9WfCAiaepriH6BDmMk7yYCrAiLib53TXjodeMEO5TdwfSqqn5s+zqJD99OH
c6ZfFBA/87nN0XZ0OHgwsVoyR0CoHjgmP41Hh6eqH5KcrwmIjS7VG+LX0eHR
/EUq8XdxvhrNPjVzIx2uhn1MnVspIJ7Psm1McqZDQPBhG/86ATHeflhOxg3f
32k2NQv7w/jhy3UnPOlg0h7yaoNQQOw4IZEm70MHocLfEy4iuF/awag/64vt
C7p3yEYS1wNanIzKDjqs2JJ8qgzbL6P8lHcxkA5a+7kmH2WEBOu3aIpmCPZf
GiXbGtff/dVQm7uLDvUbwp59xfx+Nyd6jt5eOtw91eNVsQD3D1HlnOtRdPAs
6B7+iNbcMHHUMIYOxv1rtlugXZZbvrl9kA57jQK6O/B5x6dHzlqdQIdsY72r
nfNwvfhUavPgCB32y+28YDdXSIiUjB62SqbDzmctfktwv706eXXV4+M4HmsT
7q7B+ufUKyqnnqJDVtkWk2bMB7ILxnd6nKXD5EwP6R1jmI+cPj81OE+HIbPt
5lICAdF/7rHC5EU69MptLRj+LiA2fbm8oyaHDvP0lNoTPwiI1xqHKjLz6JD+
a56qDsbXbKuvnH8hHSIm5tnqVQmI3HwbX4tbdFC/duxnO/b//L5lD2fdocNi
Q2XpczhfDxhKz229R4evqv32qZh/haFCr/yHdJBLzb3t/FRAuN1rKAmvoIPR
HuM3JTX4vrE7s9hP6RCSo9d3Cd9vZn3GXeElHeQPeYmc6cTnP3eVKKmlwxOD
649Lsf8OSFq7HGqgQ5V++Eu1GUJCaKd2w6GJDuvzc2//wfi4p4iJabXS4WJ9
VNUYxrO64ceGoU8Yz4/V0QMYf3P5l/mV3+igql18+w06zzl/4ngHjs9+i8R1
skJC/vzRtZt/Ybw9i1404Hg4+DXgimEfHRz8C1ISMN5CTf7fKSEdhg94Dd3C
eLv7Gtm//Y3z4dRgnBbu/6sL5l/KGqUD8+bWV197BYR5/5/fAeN0uP9sl5va
NwGRt/ID20qEAc1Tj3duaxIQ8rseZkqJo4vueVhgPOLunxd+nIGe4ekvgfEe
/BdNvzabARHu+hZjbwSEJ+GVHjGXAVWZN3/+qhcQtQfovTZyDIgZKfoXi/Gz
fKENigoMmNc7/YUPrhcFM2ee/KnEgL6qUYnlWJ+F9j1d9xYz4IvJ02NBfwRE
fGqNRYIGAww+jwdsxvj+fnczZaM2A3qvTn53nS4kNiukfV+ixwCpnrtzh2YK
iVqXsNXDyxnw0rFKaxjjY5m18eizlQw4MHSFHiQtJAq+mX05YcIAWvaKhc/w
+sIli1Z5r2HAcGCZexj2T7zfRLyRFQO0QvdJnpuF77v2pVWUgvXVN7fegPH1
EjwxqKcz4FvF0NFKfH+dUc6Bi2wGvGAfni0+TUhY745v2slhwErVjSkWWN/C
Uj89gs+AQVb52QX/BITShO1+aQcGqCxokV6C7TsMyxs+OTLgZ4H61/IhXE8P
ztW+7soAXRs1zw60z8uBvVEeDJA8HJ707LeAaJjVWGPnzQCbidPFNng/wS1R
X+TLgJb4alH3UQFReDx9V/d2Bhxfw+V14fxSeh/xqjSQAQM8k9aqCXzfQjeV
xBAGBCRVzAjB+v1xJYKddjNgaajEVSkcLz4X1J8vjWCA7OTaDTnYnob2aYoj
+xgQmVh3ZS62F7Q7/V/EMqBh+vp19egb26oenzrEgHgdDdsgXC/f37ykqJXI
AI7MypLv6PHhiJDiJAaMGcWHmOJ80LJ0wH0UA5jT8+l+aLsDy7XensD+H1h1
aC86pEpin9sZBkg4+SrsQGdIf33fk8EAz8QyT2v0E4dSg4gsBrytCodhfP7P
jLQEycsMSGHDjDT03G87vp6+woBz7edbpdGmSxlrluQzYOaVHKET1tctYHHa
7UIGUGofqJzC9TDu9kg35RYDFv34uvMVtvfa3zpa3W0GTAny545jPBqIgkz3
ewzIu3FFcxV67NDB4d4HOD4rXt8Ow/OAevUmbmQ5A6yavia9wHiyZU2vzqxk
QEdnt6YBOshprkj6cwYkFGsMeU4JiDNZP520XzHgfMDCf9mTuN7/eFJ0p5oB
9ovmyPDRHXrnZtHqGKCfX8mlYnmp4DDv+nfYvwPOoWb4vFX37Ms8mhlwtDg9
tRPtMqG9oL+VASsu5V3IxvrE0kQCoz4zgBdfvc0X65uX+OHFrHYGaP96d0wX
21f3tlj1bAcD2DLCwm/okQVJ4Ut/MYAvlngmAeOxeNOW+ru9DIiOl42Qw3gx
L1vr0YUM8F/ybeZ+dMBPhYMNQwwIfXbt5UP0SYOBj54jGI/UHlsV9MOw18aC
MRxf/n8bHfF57Q+yj+2bZEBb9MiZEHzfLNF9nbPFmDDHID5sF9ZvJWsjkTGd
CYmUtNd+WH+nYyvSdWYyYamSpu0GbF/MO8mBEikmaN5dezgB43NVsd2GIcOE
N8tO/dmL63+tx8PL7+SYcGDM71cajvfhKyf/bVZgwgOl6uPtOB+UewMchEpM
MA8X+bVnBPcDRqzr+xcz4WNegFM2enu4msQcDSYYb9m+YCWWP17+1/3cEibE
P11iPom+L/7unq4uE669apScxPz51bZQ5r4+E9Y9D3uogfN5xvFD25iGTBi4
cLjJDetj0Oxe2biKCQ+NmiIv4nzbqGK2yHs1E1IyNB99xPrv854XNmDOhCFG
BPn3CUROfnd1tDUTfN9lT8Sg3wieLpGmMmFbh27rT/Sgyfn9mQwmfJuu0nQf
rRi1u1nPhgl3Nrg0OaChkmdYymHCsdNpO4twvPhK6iay+ExYstDlURq+L5kr
1v5+PT5/x3qKE9bnU+udE4MuTJj7USv2EcZLXD25N8adCdaGHffDsH36vr6M
uV5MuOnyMtMa27/+OmSd38KEGdKv92hjvCKGFEeWbWMCJUdq0BTzT0vOaR+J
ACbsOdwYr4423SjX8DWICboUvyP70CdnpOKYYML5t7sWz8b7B+9LXT8VzgQd
W1rSEzR/e6JSUBQT7B5vXHUG33djkcRh2xgm3N5i/DYW67N9/5TXVAIT3J+9
puzAeFetiKr7cJQJXipGbx0w3trfRq3upDCBZWFlq4vti0vbdS35BBOOmjpm
HEa30wYXbjvDBCXpfc/D0Zjo42nnmGC1xq6Ug87K7RlSucCEyHUd5TPR445+
m0cvY/9UlLy+i893ntlR25DLBBtlH64juuTBZsvrBUw4eaFs1jDWZ77/5/yE
G/j+w9e+nUKHqLgqeBUzQSVONw/QdbXNcZYlTJiuaDD6D+NtEOMwKP+ACUe6
+x170Ukr6z0GHjGhdkpbkYrlu9vta948YQJRvNr7Jpp98rV57nMmvH/7Q2Ql
vj+XwcqLecWETfcWMJ6ixUeeLnCtYcKNo9+0vbD+j50fCee+Z4Lw2OeoO9j/
i2ebu3e3MEErO0PGA8dHVFnJm2dtTJDtS9kkhuOnNWDVmgtfmXA3TmcFD22m
eit37w8mdOmntoajT9fpz3f4yYTytXLJmeT6G5sfa9DLhDUmtd8eoNet0hZI
Cpkgx41Ma0Tf+nF50/chJnwx14zoRkufVn39aIQJK+5WH55A+7MyV6f/Y8KV
OP1H0jjfX48uvBIyhf0TskFFFb204JSs/TQW3DP3u7kCHecqG7N0BgsWHKSF
UNDtUil9orNZcCLyl/RmNJTPdm2TZgH/7tKMQ+isnYerSmRZILnl+/RC9Lja
dNPj8ixYxm369w7t0hCbvUOJBdMvpclPoOVNIverabDAtY3Rzcd8FNY50jO2
hAUm4Tm5EWT+PxPm/F6XBSuktpzMRhvaDLy4uZwFzmn3l79BJ48FGB9ZyYL8
Y22Z/ejea92XfExYkBC2U1Ua852tm+9cYg0Lptwt2MvQedI/ohStWLCu/4+A
gZZ47Nk9BCxQt6gadkP7BH9yrKWz4MduLhGKrtRweZ7HZgH32LX7h9BqjU1G
BzksuP/8mMMp9P5D6y+68VlwymeN1GV0m2ndHDMHFjRx0r5cQ5v/5ETKOmH7
xreLFqPTz7762evKAr9llfdvo4dtmRtferBgUC9dQF433TNUk+LNAkOBxORN
dHj2RYaTLwvOsDX1yOeVvrV/pLaDBaFCzVJyfzD2b8z4VyALtq+6IchEW+jk
FRaFsOCbKkvmJDrKYYNWxG4WeNx55nwE/ShGLJMawYK+ORXTY9CThTflZu9n
wf7ToqxdaOLDpqPvYvH9NWLlO9Ex02dNyzzEgr8VHeLb0U9W3ovwSWTB2I1/
+7zRYu4+g/rHMN6XtZpc0bQj87YPp7Lge1Z9yTp0XEn5t0cnWfBAmahioZ+3
73COT2dBWuzN2+Zk/Ocq1nMzcfykX1lC9g/L4gVb4SILrs1UrVuIPuwb+vhL
NguuNNb6T0O/OqFmlneVBbF3DBZ1YX/PelxzM+gaC46yz+g9Q9v1RixdcxP7
L/SyYxY6aaHOBdHbLHg36/W03Wjp4APJaQ9Y8Gltaqwqmnd+hYRrOY53C+7K
QRyPqa/a9mlWYns3Fys8Q8tqrA6484oF0g8WWvuiFd712DW1sMD7xEDoS5xP
TlPpT7PaWHDQ3F/6MjpjGdPC9ysLQuyUrkehleMu6o12seBk+3ORlWi3W/aX
H/ewQOmVp9ksdFbbmGKigAXaf33HnmF+UDPZMFNpBOMVEua+EL15s1hs+xgL
WNF+t+5hPrl87OZowSQLCndTKx3QWp0zf1pIsGFWkXhPIuYfnTPlL9wWsOH0
tfOR/Zi/tj3dYa2tyIZvSqykRHSBYGFJvzIbVvjrRy5F67NDr0RrscGu+JZi
MObDgDA1FbYOG4LNuPmK6BsXa07K6LNBwuDvp2e4Hhj+XRp3aRUbjibM3qeJ
Dl7y/t+21WxQSf7wrwnXj+K1B0KNLNjQtmK/zTG0cUGb11MqG7hVpjQx9K6m
xNajTDbkqu1qJNefErHV6xxs2bB7nz4Rh17jepzSsZYNNfM1HGXQxkdMyv03
4Ptg7vpPuJ4ZlH4w/+3EhtcdZgqFaA0FDeNpnmxwVJU7zkUrM1/cOuLNhtD4
9kUaaIVd25fL+rLhDf+v0sgw7ufeFWurB7LhpFe+9EW0hJhjdl4wG4iL7Y9C
0aIr/6ka7mJD8V6dkzbocY8LmffC2aC6LPufOvpPMk2RiGLD3yJHzwk8Dwgf
dZ16Ec0G960aBm3ont6jstyDbEg5WVRbju5cZJjyPp4NLvIxV6/8JvcvjbPd
jrAhqfetwnF0697wwz+OscG7JWd3LPp9nvJ0/+P4/N/lMnvQdc2PY4dOssEh
sFduL/q1xJbJiHQ2LPk8V+Yg+pnJzEixTDYEKU37Rj6v3Of6SOIFNlSk988h
33f/xNqwedlsUPqTJF+Gvl05LEzPZUNyZteuJvSNgbMBagVsKPGTuzKEzlOz
7r56nQ3WvD4VOWxv5v747yV32JB5JvTnRnS8uUJTYyUbVq/XNXuDjtn2cN2m
F2w4cD8vsBMdme7x9vsrNvQlxm6chvHf/XIaZ0cN3r8ueRvZH0F/rlYN1uH1
/h4tOnr7Eg4jopENP/6aS2xD+zgIn4i2sOG8+bfDx9HuB09aJ35kw715dprl
aOdis4cyX7D/O/XpArTDt7bV6e1sWLhYulIHxwtXJvaOaicbdHQbHQPQbGLJ
yqu/2PBscX5RCZoa+Oq6QR8bEqk+EeI4Hi3PB+iVCNmwZ0fkuo3o1dXzrlr9
ZsOTjsH6a2h9PZeLnH9sYJ2MlPTE8a7tPKncOMmGiHPVTY/Q6ocvn3UVs4Ec
t0/7VXC+yHd2p22faQNDQ/n3vqCnLkUeOqxgA612ud4uuF9oUDy//dkqGzht
VD+wEef3tDs//p1ZbQNbvBITH6GNufrHdljYwBFxixRZcv0/8PCmLM0GqKZf
6WQ+ce358NtznQ3sNF5vvQnzUdIh9XjjjTbQfGt5zBl0ueo2BUkXG3hX4mHe
jFZzGF1zc7MNRDZUPnLDfPejTD56IsgGzL8Tp/0xny5wdJepD7OBdvH95jfQ
zIErl3LCbWD3Ci/zfvSeo31G4VE2MGkevFofzxN5S0ye2cXYQMDPHb+3oD9U
RG1QjbOBVS1OnenoWS7POgcTbCDF9XniK3RA8vqZGSk28O3X+EctPJ9k6ZzL
CDhhAwrGmgv55Pm9sn0Z5YwNzNnuoxyBNhoJ5v7MsoEEkcAHb9B/PFJPmN6w
Aea7Y8G78Dy5dKxZa1axDTiJhDAvo51OqpZ8umsDX6JEZN6iH1TdaIl7ZAPC
m0U/luJ5tcfrzzanJzYQvN/s1Hq08oTVv2XPbcBiz8v4/ejolTUq76ptIJ+G
52n0rTfzb+bW2UDvcNrwKLp9yyaIaLSBtuIP0qqSQkJOJKfevgWvl6+m0dD0
jB4v9TYb2NXn5bAFvct41e/fX2wgsCxR4hA6tzbiUNV3G8ie6ax+Gd3sVymf
2WUDolWiwWVoyWmz8nb22MDrO9Yv36HXnF+7hibA9ki5jHeht68++1p+yAbG
KauEo+hz9V9du//YwOj1Y+/EZwqJ6h06fY/GbKBjk/upWeiJ6UH7j0/aACMp
0G0O2uDivblbxGxB5JRSLGlP86mLZhK2YDF9luts9PFGppHULFsYeqBgMwNd
GZj89MscW8ieXFMgiv4t2eRwe54ttJ7f3jaG71+SrdIZv8AWuqanmA+hN1pt
2eOiaAsh7p5KPeiE5kJJAxVbuJNtpP0dfT/491lRdVuozFb0+Ir+Ndty2Xst
W+hZcXbfJ7RS7sGyPB1bMOz4y21Fi9Mq11no20KdhPanJrTgi8ivmhW24FMa
8rgB3RpFRHuusoWCGSWPa9DPFPcvGDK1hXvK27Nfom+UlF07ZG4LaSUf9R+j
z67/R1lobQuf0p3U76HjhGtaCii2EDzlxixEBx4LD7Ri2EJpQtSLLLST3j3x
OrYt9Ns0ax5D014OZ3hxbGHG9wvMvWgDH+OVwzxbKNyvsMwbvVA09GXCelso
S7tQb4sWyypyU3K0haVwytoQ3WcuHCp0sYU3t/Uj5NCVYQFqDZttQVZjW+o7
HF+F8wpLfLbYwi9Fz2O30GdudHNG/GxB/uT680fR/j999yoH2YLiz/J6c7T8
Jq+Grftt4ULNtKZ4HO/baI5x/zJsoePTCX9ZnC8OX08pJWfZwvCcixpdOP+s
9zXeUrtsC6oiubUP0bL31n5i5NtCEDPN2wc9vj41tKXQFk5YGP9Zje4S1s7c
ccsWdG2cGmehy/Q4pqn3bGGW2t7q65gPcl8eqdZ4aAvfz/qu2Yc+7vPK6265
LewPc/dio7dmMVNan6NnX7T/iPlGRpbyU6sRTXvAGsF8dP+rHoc7xw5q5ywu
k8L9Svzo2d5aGTswn+MDBZgf18vMPMabbweurc4XWeh+oquGv8gOrt9akRGD
+5UlF7J563Xt4MycdYfbMf8OlsgK3+nbQWSrrcxu9OPa2FQHQ7yevHflDPSm
SY/6DavtoE/Zx0wO83mam/J6J4YdOMks+C6P64fnrqNDLWw7uPZw8f4zuH4t
PzZ2wpljBwkXrdQV0VVlLY0u6+0g44J6rTquj6cbWbs+brSDqMNGv/OHBIR3
b8mCTS52IJV2ytUMPbno1Ea3zXaQ19wdvmWQ/PsP8ZFPPnag5P0sShR91i70
jLufHZRr3l96aQDzfeTaFo+ddrCt4RG1h/w9onWOi9c+O6C3DLKvCgSE2WDU
WHuMHfxau3WHO1piVm+Gd5wd2LvdilNCX17z+qPPUTvQ0574caYf19e1a6I6
kvF50Rv1ndBW2/KUt6bZQaDykZaF6FmxCo86T9nBXL27/h/6BERLeryb71k7
cAkYCzqLpjtOefrftYMNFY6X1vQICNmdgaJ99+2g+fXTovZuAfEl/tOlgDI7
SEtt+XEUHVHysD3wqR1kz7mu8O0Xrre1egcFL+zgjv00XvIvcj08qxn02g6O
4RHVGl20INwnuB7jMcuXc+2ngNi/vEt8sNEOKFMeM3egOYyNV0Ja7OBAucZv
A7SS23PG0Ec7WFM2YjjSJSB+hhl3hn6xg9DDpq1P0SVJ2fG/27G/H9JFTqEP
5sgu3dVpB3LfT+ZvR/PLYl8O/7KDeYFXGujoxY1C3919dqCYMRWgidZwnKZC
G7ADN9FKVXG0duuChrnDdnB3G+XFr04Boeemk9A2ageTqz0/NKNXfDW3zB/H
91VVzKxGG3vbD+wS4YCc1+F7T9FmnR65VHEOVA0aLylHW24LcZ0ryQE1D/vj
D9DQGyfTNpsDjenK5vfR9J1nnufN5cDikq2bS9A2g/kRu+Q40Cepyr+D5u4q
W0FV4IC26WKXIvS60dof0os4UMNp+VaI3hj57ezHxRzYYXYtKRvtMjnEzdPg
QFb/yROpaPdYCfFd2hxQzbp/MRLtLa5YStHjwOGYP6pb0H4JywKlDfC6pmSK
Pdp/lrXmx5UcWKQSFWGCDjrGb7lqwoGW50URKugwGe9jYWuwvT2NhhLo8BO7
qBQrDuglfKAJOwTEPvnDI3MoHODv2ePWhj5wNqOwlY71Xam99A06Xvn65qts
Dghg6bEK9JELFfJhHA6YqS+YcR+drNHwBvgccL/uWnoHnXblR8wcBw5IGJ6e
XoI+ozNi0urIAdEzQ9QydOa1mT25rhzYXPuj7CX6ooHyxVAPDiQselPUgs4p
MtgA3hyghOeuFaDzjCmz5vhyoLnvadlsrH/hvfUVH7Zj/wh3iBmgi8y3huUG
ciB5a5+uC7rkUbhuaAgHXkw6FKagH8DRz8RuDsyUrxt4hS5/ev6EVAQHjK9r
mkri+Klk3mJ/2MeB2Q1XCmzQbzjvi0MOcaDMfqy6AV33tsuXSOTAh4xb1Qtx
fDeuG1OWOsaBCV/zPHd0y3uphpZUDujfLDuTjW5zUk24cpIDJksLGzvQXz+u
tAxJ58CTX/JFi3E+dbjTB6wzOSBUo3A2oPt9trm2ZHNgr5TfnDL0YFekzJWr
HDi13DeuF/1ne/Lz4GscePlH3XkRzt+poNsrZt/G+Gmfd9iFFv/9/EdzCQdk
JtcbXUJL7mk5m/MA+/NBQUs1WmbfxDTrSg4sjZcWqmN+mC8iUzrrBQfGb/Am
7dGKBzUCm19xQDYmVCIKvVjCRDOnhgOZT3gXCtEaiayWoHoOlAcMOH9Fa0u5
HLN6z4EFv16XK/TifEvxp876wAGmRbvterSBbPRIUxsHjrGm/E+gV506Xpj9
lQPs6a0HWtBCpXNbV/zgQJFmRLRaH3lezVF72IXjbUeNYihar/DeyYZ+DsTT
pZdpYf5Te/opSnSCA493+azIxfz5md1lekzEHs78eX17JubfzFqhcKG4PbCS
BSoBaIXWaVsMZ9uDWc4OF0PM19IDuvYeivaQv4X1OYXM77tXzehRtgf5IxYp
X9GJ45ZPdqvZQ/S5/P7luB4wDzAjxbTsIdVI2LwHLS7JN0leag+rX3QYkb83
VR5zFiguswdX49DfIri+xMh5518xsIfjtgaqgLY+6++90gifJ/JsQyT63+Ld
Ko9M7MGig1dWSJ7vcqKb2Wvswcd5atNH9G69xOONlvawIKr70wxcvwZNMqf3
0uzhj0g2ww196+GVij0sexBrasxMQAdQbu6dZmcPC39ybxajf3Iq+5TW2UPX
omsdc3B9zG14czV3gz2USIdtJ9DeTu83GznbQ2Ti6a1haLXPnxeVb7KH6ecq
1O6gP3v/fG/jaQ+yd+UiRtGZvwZS3nvbwzKmnSgFz18uO//ZbPa1hwKDtsJj
6PcR0uXhgfbQ9m2D+CpyfRZZGC4eYg+Fhz87HUXz49WNUndh/efHaHWhq48b
516Nsoc+xZUDV3F9r8xzSW46Yg/BGxf3cnB/EGPgw/ZKxvr3dhiXoq3vBIj1
H7eHRcs0B7RwP1FaEbN7+ll7WCrUlRlF72YcMTyeif2ZtWyJO+5HjN+c6Fa+
aA+eTGmFJ+hB/vmcvGx76LZmbFSbxPg15bobX7WH/qgFmyPRgZtuLXxcYA+l
hrHDb9DL2ksb7G7Yw/xGUb0FeJ7L7atmet+1h71mXw5moH1Cm0QE9+3h56py
djNa4++XBxFl9lAU5caTxPPdefEhg7Sn9iDKtfWyQqcNX5jY9hLHZ8DC9U7o
+E5ONeWNPZxXeuRH/n4YWJW7baDBHjrFXIOuoL1K15u9arIHilqjfAXasUBk
xqVWe7Acn6R+IH+vSHLJ4bfbw5HMM3tlcD9mvG9GqE6nPTRq+asaoHUD71BE
uu1h52etaHv0Yo/NMi199kDT9XsfSH4P40t/uTmA/S9evCENLUF5eD1h2B6+
HpTQvY/+t9IvyuOvPdz77fC7HS3UWGC3esIeFPLU5WXJ86dcpeJcUS5wSywt
aOgW8Z0/O8W5UHXr8Uzy+1zN8KJ75ZJccHVrW1yALmne5RAowwWZ/PlB83F/
WVClocmczwXz8IzXNuis0rcDKgu5sOKsVeF+dMI53ZQaVS5QY4qe/CC/fyY1
uV3R5IL1QuMpOdzPBu07qL9vKRfMVp43oKB9Ag3/OSzjAm+f2Wx/tJPHp1f6
K7jwx9vD8SSawz+SLr6KC03rzT6VoimU1b5tplzIn797Zxva1OiHyR1zLixU
VOj+h9bTPC6eZM2Fi3VaqxbifnzxfOt33lQu+P8NsViJlpvec8mCyYWhAHYH
Ey3550yQnC0X3s8UbtmAHu+kEz32XNjhLyq1GS1sHpjzdC0X5h69RtmO/lGV
1ZaxgQtltn17g9EtpXbXQpy5UORywGAPuqZgdK+tGxek5tZ9ikRXnrvC1tjM
hWCLBskYdEnSOoUxHy7kzJFcGYcu2DfVUe/HBcOfnk2HyfN5YOGdfH8uTFjq
7kpGp3k4H4wNwucpcYLOoBP4Euucw7jQz4t9dhkdRbmttjKcC/eenZS6hQ4y
8hRIRnHBT+bFngq0j+ac8q/RXKiVNdQnf692nv8g6f5BLszZupfZgeZO93VN
TeCCXn3ch39o6h85Pb+jXEh/oN4/n/z9uOvxKJHChScZZQcM0XotAS8VTnAh
LXDuUS568Sul04LTXGgUC71I/v4t9+Clz8sMLmRoFh87jZa8FrbqQhYXTn7M
1ysnfw8/py625zIXtJJOTOtC/9gXeUG7gAuOdWlR5PmqJVAncPI6Fz5tKlfx
Qdd4vLdsKuJCYYGu6DF0CWVF66FSLtBsXp1pRSdfl7pt94gLD7PnK06gtyh2
H533BOPl1dykhOc9y0MvfZqfcYEY+fnHBD1/IMfqfBUXzh1d6cRF9246IO9d
zYX7xLl28jz5tMpDoFPHhY8a0gm70RnGVlX977hgp+tPxKNDLipdutPMhesa
x6RPoG2lRvdGfOSCxy1zkfNo9fD36+ALF+ot9HVz0KPfi5dJfOdCW6/Y1Tx0
HS9VvLoT6xcScYJ03sOAT8e7ubB0Gz3nCjp6qV2JYz/2x7+o7ovk+f6ETorK
IBeYrXENGeT5d2q63/dhLiwxeFRNvl9ix3fI/4v1z6m0S0J/anqsuHOCCxIH
8yrj0HeoWYPGojwYuLsqex866UbkmzFxHsz6vmDTHrSPknPOY0keOO3VcQxB
W8Sb7ouX4sHL4tmdO9Gyg3IbOTI80D5ufjwY3e02YCA7nwdfbc1Zu8jz9Kva
GS0KPNjQfVwxkjzvmxR+Pb+IB646xTIH0UGXEku9VXmQqr5SnzzPs+f4pulq
8iB3toT3WbTaXvoOgTYPbnU/y75KxuuHOv2uHg9Cma2N5PeCOv6UcqQBD659
edH4Cn21rG0YjHjgtcU1gvx+sV/nQa2EKQ+CWlJ3/CbjdfLM1eo1PFjETmyQ
monx8V/n7EThgfm2+14E+nPzCqPFDB6o3Jhd6oS+S5sz+webBzeLHyUGo30W
VZXt5OP1FxcGLqAtE66cMnHgwa8bVmV30HJDBwL/OfLg7+rNO16iu909WU9c
ebC0/2poE/n95rWVWoIH3m//uuMrOsN00V+ONw+CHV9m/UQHXx6tl/XlwXhL
dkYfmi3dVNCyHfvnXMpnAVot4vbBrEAeKFscDic92pG6ySeEB8t//9vfi367
NtBEbzfWZ6+/TBc695GdtHAvD3a9mLf+C3q/rm7X3X08SOuLCsOcRmw8JfE4
MpYHX/rN81+hl4v+SKccwvrJtwU/QIsHPAmekcgD9T+uL/LRbS1ZtjVJ2D+S
SwzT0XfoUZonUnmgme+hGI8+est53OkkD16dbuwLRXspr36/OB2fH+ei6IU2
Pzz/xo9zPFC8RpNYi5b9PRBfcIEHUxveLKKgf3m89QjK5gF9z8EyI/TjN4Vm
pld5oGZaSddGp68+Mm+8gAedhS/3qKB1c90FMTd48CepdWAh+sH8VTXTi3mQ
kKB9Qh5td3DGtSN3efB8nO5Oum3g4+G5pTxY7faUS5YP8Ly19WQZD7ac9nNW
Rk/WxtEVH/PgaHSEvwY62cpZI+spDyjMaUF6aNXC5SKaL3lg9FGeaYy+pST2
+eprHjx1X/iGHD+Q2PRQvxbnx7Gp9xx0/UjB2aJ6HujM4Ja4kvHYGr3H9D0P
DGh3vvijhxrXb3jYwoMxu8j3+9FxNJ1V0MaDxFnJtONk/6nV99t850HcNQeD
EvTqlCvVtZ082C1jOE6Or6qJvQXru3nwbmtdZwva2Z97uKWPB6K9wrPkeOpu
1djqNsCDk7kHnv1BR9qM0Np/Y//FPlGcNktISN1/o+47yoPk7izFOehM7YtT
Pf94sPGi/AZZ9PJTYZ+CpnB+N89fsgD9JTbnU4QoH9yaL0STXlqazLGaxoeU
7Ceb5dBBwvCHU+J8eB6z7q00+v5Sb71KCT7c3/+0YQZaxMP+bJwkH+REfkVN
Yn1sTq+WZM3iQxH1+Y9BdFqN+p6ZUnz41LVuaQe6VVyq880cPhyP4vmS41XD
8o9D8lw+3BGVqHmK3hH69Sl/Hh86XmaI3yTHY8FrIzk5PqwYDr5Ijs/xb3cu
vZ/Ph9/jb/Vi0XTFCzLp8nyovGoy6odO4idGuyzkg+YMMw8+WqXCze3LIj7w
3oQ7qaK3/mFVX1Lhg8TcV+nk99cby40sfFT5UND0qFqI+eSPj3KBtjofjLRi
GB/R1pkSir80+LBkz18e+b0z/p0w4ZoWHxxurX5cgn476+OfAG0+rNtmM0Xm
94XU51sMdfjwbekiJ3J98Nx7s3FQlw+3Y3pbyfydd+ss7e4yPmh8OXCczN8D
XQeL9yznQ4YrRJN/z2iuGqhuvoIPC9LML5H5/MBGp9RxQz4cCl/bT+bX18eo
U+VGfLA3YTqS37vlnusHxhrz4fpw/YvD6E3j8p9opnwwfVamnkz+PeoqUY6E
GR8mg4JUT5Pr3/aeB1Vr+DD6SbaMXG9MLr/XPWrBh61ZCbnk99kXMgUzZAhs
79lLy8n2SrNP7m4APlh8OLD0PZlvo/d3nKRif3++tYz83tzVt+6pIpMPZUNP
pk2S9WtNthRj82Gx0pA++b37xsvXd7tt+LBqfekHcr6m3ZFY8c6OD4MbnO6R
/bH7EjXvoT0fyr1u2S9BuyTvV8/h8UG2yOOMDto68kFG0lo+nDY9H6xLjhe/
P3K71uPzPeKfLCXz/QajY24b+PAlxTRMk5wflEAJpiMfLhR83k/O/1qDgmgD
ZxxPqW2fZdHFizpH5V35sPxqw1kJ9ClJjZCpTXxY6FTxaATrHz7s1tPlzoed
p2eodZLxbD/rU+eJ4+GZ+po6NLx9/+m+Fx+0zlbS7qO1yuY5XvLhg9/jtFPk
92zJfPu6xK186HXrSyT7q/dUok2IHx8Y7ftifNG3d4pa0vz5sLHFSMQAfXqT
1d1lgXzwValeOw8dYbPXYH4QH56cebxqGPc3VM0BtY5QPmjv2+H2BP1/Hdx5
PFVPGwBwFZUtS1JalQgRoULiaZGS5e73iiRKEbKUJLKnsqTsEpXsJLJEkhCV
KERCkpClnz2k4n3m/fP7uffOPWfmmTkzc2ZGRlgxru4CBXLijOMz0Hz/ziwv
vEiBs4y5hEj08MDD4IRLFLjGYUf4ohtaungCL1PglNXDh07o/Mq1Xuc8KdB5
R3fMEh3zmDPD9qJA4MixCBba426EE/hQ4I+D1z0DtMWND4Oyfpg/GWxJXfSB
iwInRQIooC9gJg5o2ZOHvvy+SoHZRnFPsl5RgOrP6r6G/5fscYl8PrKn/P3b
GxSoiXjifwDdKP/30JNgCrTOi7H1Sf9upXrFnVAKtDl+fUAl6x+5z+/2D8P6
vc9uxVH0lbGcfLvbFLird4pjhbbsHFJkRlCAy25W1B59sHZL6p4oCpiYrxxy
Rcs/tZKUiaGApWrsVW+0YHJi7LI4ClytK3K+TtYn32oXnb5DgR0DD26HoT9e
WRn89S6Wn9GTq1Hop2fpPK8TKZB0zlfkDjqec/PK4/sU+PceZu+ivXVrp2OS
KJAssFcwEX1SZYmTTzIFjvb5rk1AH9qwf9AmFeu/vjYX+f1WAS8rWjoFgswd
okn5LPtd0qGZSYGUALPXpH873jvFlMqmwLz9Vh8/dEujynv+HAr48KX+O48u
eeFwaPIxBeRilELI/SdkZbzsyMP2Klx60BjtG9un+Sqfgs9XtgHpT+u7mCtG
PaWA3n6j9XzobRZxKVdKKOAmc0xiFPvfooYtG06XoudgWzP6s4yRqHo5pie1
/Mtd9OpInmVcFRSwFc0S8UcfXfSc93Ul3l8jVNmi275uXcCpoYBXpspHDfJ9
o+9/N7zB+8t3TNiENi2Nm/nxFvO3XsJfAN2BjfbFenwe+GWY9eB4Y+2Sl0PY
ycPx6+WkRrI+9YLbjyWNFChsDcgi64sTvit9f99EAf7qzsh8dCf1R2d0MwXg
Qv/KdDK+K09oO/6JAnWmrf/uoY9vY7Vs+UyB/yYcGuLQ9+IFG0fasHzKdS9F
obv4XtUVdVBgodLDlnAe0v/0eOPVifnNz1N9m6yn/qH6Sq+LAidm72wgnz9g
DpULdWP597cVRaC7Kx+UfvpOgQ9Xp4+T8dgmlaNPE3spYFfq2Ef+z+qeSP7p
HxSgr49YmYh+uOxNjtIABXrOPKhOIuNHD+/M6UEKxByqf5+G3jy0K/XFTwpc
zO78ko0+ZTLyIHCYAkZbXYryeMj7npQE41F8fsm8kCpC9+0wj1s5TgHh+Y1D
JWiZhyuivk5g+7P3xafn6NOidbdSf+HzoF68kIz/0rz9Q85N4/NS4C6zHN0/
vPv6rt8UWCZCv04+lz024T8/S4HMD+ay5Pc2tRneNX+xvpbWVD0l41MNS4+b
cxS4nT68LBc9mCrhxuaiQuD5P9dS0fLiDS4bFlJhdpC1Ox591v/auR+LqHCF
Hqx6E501rnM2h4cKL5um/Mj496fFtPXFJVSobXHY74hWeP8I++VU2OsyHWxO
1tfusTZfwk+FBw1nvY6ghyWamdHLqDChVje0Eb3tWjD1uDAVdlyzTeFHO0zt
N9wiSoWlKeESkzj+H2nMO1C0ggpJhucyK9HKe23BayVezyf33Zlk/iFno5ae
BBXWrF49fhs9GhSm+mktXk/8/UIr8v1ZPaXE9Zjeb31VQ7TTmXn505JUME2t
ziPv5/JaCmWUNlHh8b5oayn0+AGHTdNSVAjex+UjjFZ5Ir3+hTQVUsw6IrnQ
Lhu/SARuoUIhl7Lu+CJsb29GrDCWo4Kt14eYXvTkvyMiK7dSYYGRcFQbWs1u
keBXBSqIcjr2NKAvtJUsTd1GhVPUz8FkfXbhIWfuc8pUyF/ic7kSPVUox7VL
hQqe+TpzZWR9neVvrilVKgRsHhQuRR9d9mZBwQ4qpGU2XS1BC5TELDy/iwrb
rY7rE5edOrNIVYMKY6smxMn3HUXUucc1qTBwZvWyF+hNz5fw5GpRYfC7dE8F
+uOZTzyO2lTIK3hpU4O+Kpa6WAmokJP01/4dWr3cdcnwXip86GguI9c/ePbg
0uz9VLB+81buEzp+pTivnS7GS9tJjw60UWUv71Y9Ksia1fiT9dhc5wr4Bg9R
wRn2iPah81YH8KfrU2HzZPWvAbI+sJohcMaACoub4ux/osWdNwtuMaLCeHmM
93/o1+smBfuMqbBwSsyf2P1N5bJkKv6+OMSKfF/hQrjQSToVvDkvBQfRnZJW
wlJMKkjOvjxP/i/snYpIN4sKoXa8oeR69rktFL3PocLl6WBaOykvqUZRi6NU
OKPQUNZE3se+v798gxkVdIr+Nb5Fcy47iXUeowKX0tjtcrLee8veFXePU6Hh
jE1uPrq0UVjc7AQVOr4eeJaCdrjSJb7GigruAhIZ0WR9o/zjlW0nqfBXd/eD
QLL/oNlrVaw1xpdN81tX9C7FDatX2lLh93ZzJp3kb+vw6pazVFBWvyC0l+Sv
f9maSHsqqMkcT99G8rPj2LrlTlRof7V8Bx/Jz0DF9Y3OVIh9eNF3hux3UP23
/tZ5Kqz+tm6QrOd7fSNeUsiNCjUrlfjfoN132m2sv0QFIzONRc/QCt27N4Vc
poL9oyzRR+jOEH4pA0+MT7ETjAfoMI12KX4vKrRev94Vjd7Xm7H5rTfmn/il
d6HoyTB36eu+VHjTc1o+EJ2ipS9zyJ8KzznqvD5oTr/EliVXsXxktM57kPWF
EQNbqgOpoJC1y5CsRy3VKZYNuE6FJ133xYgdhq7JHQiiglOaDf0yWjKaI78o
hApRfYsnPMn61X2yWytCqXC7vv4zSd9/eHqrTximf8t46Cp6Z1yNAtymQgR/
1tIQdL9utOJ8OBV8nKaFI9BxY9bbyiKp8ONf2Lc7aIO7O5U8o/F6E7xYD9GP
J5uV/8RRIXrR0YhCtOW95O0l8VRQ1f/LV44WM7igcimBCg+HC8NIfrolialN
38f2jt9zVwe6mnunTkcSFbRC9Op60cut2fovkzEePlbUkvW0FjVuzJRUKrw2
beSbRj+SjbMISqfCtWbWqTn0n+vPzjpmYvzV5RST/TeHhjpcmdkY74f3DPKi
owzmfDRzsL16c1VMEP09e0PIhlwqHPNdFUjW5yoL7Y3hfkKFOm+n58RXHC2T
BvKpUGUoVUm+X9vg96i+EPMva1MaP3qVanLxk6eYvylu3kvJeoOI6qqYEiyP
qAkr8v9Pfv1471mK7alaq/08Xh8Xm7fdsowKe+7fLv2NNnoq36dXToWjjqed
JtDxEgZjChVU+Ny3KeYnesDd/q9IFRUWndm7juSH/57Hoh01VGjk1M42oxsS
Gta9fIPtiY5oQT16PdeEbEotlqfJle81aLsTYmpBddhePZwufIkurtih4/ie
ClafWcdL0Ys3s/WZDVQQmH3P9xTNCHBjajZR4UufWW8++n5frMWGZqwPw1tW
PUEP6z07y/2JCnMDfLeItdI7XAdaMb19qW8L0Nf55nzq27C+rv3+oBjdcnZD
yJMOzH+G7aYX6M11EBPTSYWbYVOG1WjnbZZJnl1UAE0zmffoFzf9Hll2Y32y
iU77jBYYe1is10OFi59a/x8PR2nVVQp92H68vx1E8iv1yY/3Iv1UmJS82rSQ
tEdivO1TA9ge3+joXk7aK1f5vvYhzA9G+isZ9M1PR8bK/6PCiyrbr2S9b4e6
/d/kESrwVvxYTEHLx4UuCRrD9rYkS9gaXWXWsI75iwpUHacVZP3y7DeW/sBf
LD9NyTry/Dq0341ZP4fPw6Bbzrz4fIt8GGvxhIsGX2aOxW4gz8/THa6e3DTw
k6XNHUZfef3Px3IxDUZfXeYzR9fKbQjRW0qD1xLDO5zQ1j9PJIkI0MDBTjyN
zPfnG/o9mhKkQYayQMtD9IKch8XtQjTYwi0//gRtJFxdVS5CgzdcFIeX6Hin
H++Tl9NAUzLFvQ490Li0/cYKGswZXL3dSt4PqMn3nVtJg4RG8ffd6IYpu78a
a2jwb3el3C+0x2feG3NrabBvU9ifv2iZ0pSVletpsKD5szs39i/cfbpUDDbR
YKfay2myvmfzSc9y4c00WJHfsn01uv7gaqNmaRqICZskk/7JJgGGjbkc3u94
qjt53/BueHRq01Ya9Jx1FdZEuzaE+P9QoEGooK/WftL/zJcXzdqG6dk7rTJE
v42qSXRUpkFJtnMpG33+0knFHSo0yE3+rW1F+rtmC579VqXB9MIr+efQr7UT
DpXtwPxx1FDyRDtv3N3iu4sGtOLesiDSv+ZutdLToEFT+X9zd9DVfefH+HfT
gPXEOpP0N1dnPRKI1MbyWMCmf0RXhR6JMwEaFOk7aw6Q/pVT/5b1+2jwV995
7Tx5n7Fz0/5UXRr4LHMMUcT+vJ3Eiw9n9Wiwo+jgL120+F9Tc+XDmN6lxXzH
0bYvIy8VG+Dvr1Pmyf605Qa8j2vpNJD0fbJ5Hl22LWVPGJMGpiaWa1bj+OSM
yP5aBpsGuyN6XqmhS1s8+r4cpUHONXoO2S9nXSxx/oEZDfRlvmT5oIXjCxec
NqeB81Kxjlgy/joxunb0BA1iXzXcqCbjqwMhGflWNLiZ90ainYznZOTVL52i
gWt81bVhMn7krXm15zQNeL6UvOPC8bbATyv6Qhsa0EdaO8j4u7Ce61u1LQ3e
J3rnbSTzN7l3HYLsMB609A+T9WV8EZp/jR1ocLWSJ3EPmW93/XRdzJEGMytK
n5D9y+Ym51d+dqLByObH1xlkPkBLJPmuCw0iuET4zNF56x+pWF6gAbevxzey
ftFswZFymYs0aF1fFmNH5vd7fhgOuWF+FFzaT+bnH1f7t+e402C+dmKKvJ84
mr7R5rwHxnfbmzfuZP1ecNmU+hUaSN/KaCLz/Y8cTP3/eeH1Si5T9Cbr66gz
IhU+NPjjPTzsQ9bLqUUmXvWjwZrnXipkfiJLXEXxSAANSnf2C5P5Jtbv+hKh
QPz9bP9DYq6Os4c+XqPBrSvvDpP5poyypS0xN2hQc+d8HTHzfrLVsWAa9Pt9
3Uvel8RpRPzRC8XyFzhWQdzV4BuuEkaDwPBjHDK/JW3rtHXdbUzfPnAFma+y
XWhRuSSCBoOLD/BeJ/cbZ2Q6HkmD78XX4Qb6l8qeiY5oGgzfS34VRObHarcG
1cTSINKe5x55v+BttVoq7w4NGlMfbQsj81d/lj6Lv4vleSDdjsy38UdM0wIT
afBjTfMImf+Kqvroa5aE8Rj/2Z3M13SYVa7WS8b8fFfKIutFN/7KzdueSoMq
ExfJFLR1yD39tenYPv14XppO8kv6ZvfiTIz3u+XLstHjzz3dx7Iw/ZzDMzno
XSw70Y5HWP/W1pjnoT2Gj2ZUP6bBuc/SSvnk/cnVw/ty82hgvl1vRwF6yQb1
tjv5NIhhdhoRGxTJOF8tpEFUdK0J+f5t4xV8Tk9pEB7krEbS+/Rj0QPTEho0
yAuXPUKv9R7XOFhKg95fwp/I9Vmu+tagXIb5JX76RBJ5f/L4vc2achoM+HXB
HTIfdahsweIKGvyU9DS9hVb5lhU7WkmDCzuKRUh5Xrx0Z3v7KxoIiDg1kXgr
Fbnx5lUNDWw4OSnWJH4y3E48foPtaSVvIInvQ/tO/46rxXi/9dYZ0CFtzFsB
dVjf7n61lUc3Oh+Qc3xPg/2ub5xFyfwov+rLow00+HrxRhhZ72uetNFEt4kG
q75FvutAJ+0WHlNqpoHJUNn2F2T+wu4/SZ7PNLhxQkmMrB8+z93xdKSNBt0F
3b/J/FBx/FtKWwfGQ+xrU7Lf9kBdqndOF5bnpZiFA9jemGyz7DLpp8Heqz5L
96ITqiluBwZpwNZo5VtB3kea6wgr/aTBQYeipH7S/t1cC9yjGI/0a7rkfaz/
aEvio2ka+J8yUGvG58XjvCPHFy2hw89jG9aS/Uu0dwWX6pbSARaZByuT53Pv
hohoPjoYhP57RPbPqEtMvt66jA6fO35/TsPn+UuveBXGCjr0z8RR/luA+WPw
H0+yFB3+/ONmkP2N563Zkuek6aA/JaWwDi3u/VJTYwsdpJxdE97Mj+gcfRJ5
rk6eDof/8/7aPTei0y2h/fnXdrwe91m3hf9GdCb6QrMOAh3HT7aawr9HdKK4
flcL76ODqaFqRtjMiI76aqtvbfvpUKmpfEsE7WG4S/ycHh0mIh4lr5ge0eHO
/+oVbUQHp5ubIxR/jeik1B2OO0Ghw+n9WapPJ0d0Dv14kr+VRoeHirlfDqCD
V18beMGkQ9Dnsa8nJ0Z0xHyU6f1mmF4Iz2TF2IhOYVycfZ45Ha7K1xieQHPy
ua95WNBhar1l6UJ0/I/WUuGTdOjbMG9nPDqio71g/6e2U3Q44n1hw+zIiE7X
6uyxh6fpkNdalEPWZ0ob+chonKXD+RulOvzo16eHYJE9HXhFQfrl8IiOrQ/T
tM6BDi0zcfmX0I/y5cJOONNhlfj7G+P/jejsXNP4+/olOuy64jvAhdZ3Zkgc
uUyHsQePV9X+HNE59qZFXcCTDl/D8/dHo/0vtl8M9aaD/x/Q24GOqT8WbexL
h0Uv8HGGzpLuKhT2p0PAKL9z29CITlNTz6/bgXRQOvxD/yq6T/70CsZ1Olz6
tvPfMfSsz4DaiiDMr3CO4S6yPkt52CU6FMsrvqlzeBCvL9AxnBNGh44Bvu11
6MOd43kSt+mQcPXevmy0Y/D02J1ILB+D8M/OaP/vl0SORdNB2aXZk4OO0fyr
vD6WDhpbhTfAINkff4XyNY4OC/aafJBDv+jncrwXT4fow7PGK9CNOn43TyTQ
ISPY7u9CdF8UT86me3Rg8WRxTwzg9f4XWP/9Ph0EpoWv9qKX6fINP0yiww8w
TmhDb4oPFrROxvIRUTjbiN4xsUxxSyrm/x1VvjqyPlX/lkF/Gh0s3jjEvEWb
3V9ul56B+T2ySqUW7TgTGWSbRYcyf+Z4PdrfeFXm1kd0uPmhd7wZHZMS9/Zn
DsafgJxfFzrz39rB7Fw6rN90MWUYXcZI5D33BMsz/uh+LnI/mRvllAvokKjS
d4rcX9/Ch4fGCumwX6tu5Tb0rInMmbyndChV0bPQRy/LTQt0KaHD3I6J/bbo
jUu3pqqV0uHXzWdVIWi149nVv57TQUu9+Fs++lChUl/hCzo8Z6+M/oo2E8zj
cXtJB7N3U18EsTwdT6pJa1TSodByc68OOlpU4+SzajpUcVHX5KAzbJ75ebym
w9b3pklD6LLyPUl73tJhtvnV4a0YT30O+7pf1NGh0ZHL6gl69lXVAp/36MAb
1/6gBdfpbdzXQAfpeGOVg/+R9VNHLKo+0uGU8XHLbrTfFmbn63aM14/Cbtux
fkh2nW5rGKCDPKdw+1+sb+9/7uYuHqLDUMS+UbPxEZ0rv4W23fuPDjJr2bOl
6A7Rpz4OY3RY0yVy2R3rc4zuUjn+33SoM7Jf8QPrux6tgzY+S4eXM2IB2mR/
lvljj89/6RA4b30wAs1w43xI5WLA3pddhRpTIzrCmWkXDyxlgEgEj7kDti8v
ijzub+VjQGtalXAR2qGKUisqwICP49eWzqHffZlZ/02Igc8fnbGr2D5dEz5c
7bmSAa5fUw9fxfZs17p1oyclGED7ejygAt0nNyZhsIYBF99+tv6HPrA/1n71
BgYsvyenf252RIfLdUCsSIYBh+fEBHX/jOjk+D7XTpBlwO2GGl43tPnNW2cC
5Bng8sriazq6NE2jlL6NASv0NWd4/47onC0Q7NNUZoCqtYucOnp1xTehTSoM
EFvzTOgU2q39utXoDgasnjd8W4Le0n8s5NMuBjDao/2+o1smtxeVaTBAYvbX
Rz6y3m1ZG1/IHga8Cz82w0B/X/1I7bwOA+507fa4iL69xdfcdC8DUh+1Kceg
R0E+T06XAeYTvB1N6ETDuXZhPQboV0lmDaONjjbyzBxiwM9NNy2W4PPgn3WK
0ld9Bmx++69/HTrLxd2k2oABlEMn1FTQpt5GftlGDHC4snByP5ovZFN2BIUB
FtrZ1nR0cexUy2UaAzps5q5ZoM+kvOWyYjCgaXLI5Cx65ZMEeX0WA2ovtbW5
oKtfODO2cxhwoD5PyB194d3BK6uOMkA4enrOk+yX/Lw6bd6UAcUdbble6Kbe
4Ya+Y5h+Il2N2He84k/dcQYE26tGeqBV5qOkC05gefNvjLuI/sZ/1jjeigG9
/7b4OaJ/xpb8sTzFACmtc1pn0DNb+NLkTjPg2G1BN3M0d6EJY/QMA8JUK+jk
foQPpHMV2TLglyTfyEH02saZLE87Boza/rbVQG+xOGRywIEBc05ig/JobY8f
uQ1ODLA3lvXlR+vz7TKPcWFAwYu53llyvkHMVb7jFxiweIJaN4C2z5e2+unG
AK+Vr35Vo932XRB64o739+9dRAHZn/+h6tklDwY8sNVweYiO/2kltsSbAdsD
BiP90GnuT8rrfBig29arcB6dv3SRfYQfA/oXHUw7Rfa3R9EkTAMw/k7RlMh5
BrWbH7zaGIjpea/pP4JuyRtz6r+G8fLhjcResv8f9q7PucGAgFC/jl3o4fqw
txeCGbCUV0RNGT1r1uWqFcqA+Kz1WvLoxUNKUovC8P+4LZbJoEUueb1/cwvr
04uLFVLotUveXw4LZ4DZo6/2xLKR62XZkVgebz9ISZN4lnL4uC6aAZrqW3/J
kvMGcp9798QwQPCg+eg2tIGOoGJmHAO0XSgbyfWw68w+O8UzYEDmQj65XkvT
rAD1BAbwfdv3xAjtMPBn+3wiA/YUFk8eQ7tfPNL56j5+/tnywjmyf4Xnzo3g
JKzPTZuVSP7dDh/cSU/G+vyYKhGLvrtR87tEKgNyZAtkc0l+7vm8OzWDAeKb
ua/8IPlZK9tvn8WA6jHr+zxYvu9M3CLUHjFgbD9/sjT6+4WV/73MZcAS639i
JN6HF52OvfaEAQaW2yEMPXurUNe4AONJrKqzEC36iJnQ8ZQBUdbeo0uwf7Ze
K1k/qYQBn/VurlVBy7+dnLIpZQB3INe2Y+i9feHG0y+wPtEkLQvQjusbuURr
GNBntzNPDft7Hlkbs1tfM2CKe4/oEXSgppNJ4ltsP8TOqJPzgBJYwnkK9QyI
vXb3UjA6o+e4+cR7BjipGZ26jy50zuEraWBAj/z1pwXoulAjK71mBnxd6rqj
g/QvG0ck1D4xoOqCRPII2S8tfuuD5GcGVIgGDy/A/miliUqgYDsDrjXLTIii
be827ZntYMDspcyITWiRb+cn+zoZ0H5eukCZ7C/aLJ7Z1IXt0aJ/O/egj58p
OlHezYAjmnz/9Mh61SzOquweBuiJpw1S0Nkjv+tj+xgQeqPmOxvNUL0TcLWf
AZ1hC+vI/so/rlpaLoMM+K6eE3Qc/aDky/jxnwyYaRLht0AfnruSbjCM96f5
Q8GcrHfdK2mhMcqA8Lk7rSbo6ICX4jLjGL9POqdoaO03lnWikwyoOe3vdBjd
K8DtP/8Ly98xUZVcbzAlWfPnNNYP9Sg5sh5XNeLgWOtvBrxcqrl3Lbrt04/U
V38YwPPli80Sct7Mmuvmef8YILrVPoLkn+xx+RWJ8ww4zr8ki5wH8f5BbW3Q
AiaI5SzLKES79tn5ui1iQrTslWuR6HXyyzRO8TDB4r4aOKGr7HNGqEuYsKF1
ybvD6LO5lBRtXvx9TJPsBrTorzGzrfxMaLEQzezGeClWD1++SpAJkp88U7zR
Fh5qb7mFmMAn6KVP9q/nLLq4q1OUCdt3f4tTw/hk6a0afivGBKXaMweLMf7n
bhQ/LBJnwqpS7iFSHw1E/4rcWs2EvFUXcqXwedUv6fNz/yZMX1BZuQSfpzdP
bkpS3syEC8ueeS1H70yrNFknw4TjigJGZ/D57K+0uGZKjglrMlOBB5/fktpB
99O3MyG2fEPNSuwv1PgocKJU8X4c+HRZ2J9weFW3zG8HE2x2sQXDsb9RaiDs
YabBhALlQ3y8ZHxgGskS2ou/H8gIGsP+zHzCTsG/+5jgrMRtpYhO6f5U2X+A
CZu/vii2xf7QpM3q7RWHmGAQXO85hP2xW26J/BcoTNjmyH1XuB/7W785NRwa
E16dN4iwJvtF3EX9tBhMGN7+qba8D3/vETC7iMOEtyMSa/16R3QE5rQLf5gw
QTjItnSoB8cbXjNOtaZMMHRvzzRBs3zODtw+zoS14qPHDn7H+1konex6Au8n
bjjjVfeITqBfp8VRKyb8kNOwOIK+xx2zVvsUE84VHmd++jai8zSA2rrxNBNO
Ca1Is0E3LOaP4LFhQsbfZqeF6MHAKuMBWyZkpfG8vt81orPmxq6axw5MaDI+
Yzr5Fdtb/jHfCEcmqOh9y0lFGwRnaLs5M2HgTciLE+hTgidnTc8zQVrmT/Am
9JXQdYU6rkwoyXQyGOzE8aDQJycpNyYwtn96/RSdExamuMSdCaXh5cMh6Nci
+gODl/H+rL7l2KC7bi9Krvdkgvwiyz9H0DPLn1vkeTHhRI9UmRpaJNJ1bZQP
E2Sf83yXQsuLK7de8mOCYOUWugR6X/RA+LEAJgx9V5oSQ5uuSjLeG8iEjfMh
eeLo87Fm/NLXmVDVmWyxvpOMJ8VrlgYxwfedSPdWdPKd974/g5mgT/XYpoMu
W3td+0MoEz58X6nAQbfc3Tf7JAzrh/ril67okfV/C6JvM+Fa47WmOPTSewVO
lyOYUH9zu34VWnLjOcXjUUxI3L1cYAKt8UB2YF8MEzhrx7m2YH7RpLofysRh
+fudF7FA2z68Y8EXz4TRo/QtCWhfaeba4btMGOttbu1C30lZ1tqQiNeTRbWT
xfJ6l+ZjHJvEBL+hEP5qdK/cbn7PZCZohEwvXIvlO5cxWW2RivE6cyDfFa2U
fVpbNpMJ84FX5DUxXg5t2zjLn82EA9dv9z5AW+S0FYw8YkJAYO1BYYy327mG
ikV5TKi4sjBqBp2hsmQgLp8JM21bs10wPiuflD+8UsgEtvDV8xPoyQLVtQdL
mPBCfZviAox3gV3/fZIrZcJB7Z0KZH+V9NOUcMEyjC8xv6mNWD9YJRL8zS+Z
sK60aykL609x2fxvqzdMOO35snsG69e2l2rqW2qZsHjMLvY+jl8eVtq4Dr7D
+A4SizfC+hj6umnc8QMTkrQKfAuwvp5sTB3y/MQEzZPNnoU4vl/WZ/wlupcJ
+yz7BzywvfDr919j+oMJxTGWrtbYnswMFpusH8D0jFda0LG9+T4i1fLwJxO+
f1Ib34n986e/p+tzJ5jgoqx7TBLbO0vBe+W1C1hAOdNllrZoVOeTUPNc6CIW
1AoZFiiS/QSifHtoPCwQl5ZRIO8Tdq08X9y6lAXB/Ut/kfUPAhsP5fUKsUDO
8Jjpe7KeRspzNE2EBW/7eZbTlo7qTEvnbbNbzoIonsYvZL94t/zazHFxFiy6
3iPzkXdUp0htNGl+HQs2y6m1VPKP6ijsku6u2MCCmvsGF3cL4PNL46jk1Y0s
eL0/fF0uOli7Kl5AmgUK9jOTkYKjOgv3/m57L8OCTK2I79zLRnUu7t8mES7L
AiZ/N80JbXkoJlJCgQWpPBc09wnh/enXNXUosmCwUOhCCtrAcKHoPSUWJN15
XLhEGO+PZhcqo8oCQbWNbeXoLMb9dwNqLOh9tdVvlcioziZ2C1/2Thb0XKp5
aYcWMINAVU0WGLIORvGJYn9ArOb9Wi0WLN3r89cErfjOcNVibRb4PU/pfYjW
9v9ogVECx37GqQ2hjbRM01v3ssA9LrFOYTk+/ye/jb3cz4ITkVZRNmjHrDOa
mbosuD8v4nof7X1yxDdCjwVKySeYH8l5m2tdaz0Ps+CD8cP1C8Uwvz7+XX76
CAuc1rQ8l0fnBfuZUQxZcPNtlqQRuvIAX7KGMQviBCWU7dAf/4b9t4nKAuNc
k+/+6J78lTsF6CxQzTdWikH/sku48ovBAofaLN4U9GJp6ZpOFt4P32rbR2jx
L5lCrzksuPhvr34uekukCif3KAsmKtqSyefqhsX34sxYcErmsTv5/SEeGPAz
Z4FUSfZrkr7J8+rt9hYsCB3rvxWAtr1g6M6yZEHHkkUfyPW5K36s0DnJAmdW
ahC5/qDeo/xy1iyI/3Woldxf/N1vdNEzLBg3Y1QsQGcxz8T/sWHB1vWOnCbM
n+eCIz09Z1nQ4HYpMxFd/+qCYr09C+b/8663Rnd6/r1QdI4FKz5Wt8iiR3b4
ld1zYsH5waL2XiwfrmHeJTdcMD/+G5i6i95ovjLG7CILAupXVM5j+auIJ3Tp
XmKBF5d9cTp6X/1mOaXLLLih5aFrjD6prVKywIsFdJZTUQjGU8p6w46Uqyzg
7vIK78D4LGpp2hx2jQUhEyolp9GvQ4/aX7rBgrs2V16NYHwPzJ2eOxLKgtMR
Q97TGP8KX30lxyJZcGmjsvcQ36iOVjSvTVs0xl/EU/6TaEPjsNzKWBYUnPsJ
7Vi/HF7c3Rd1lwWOu/1vVmP9y018enJ3Mgt8d8kKRZP9KhbDaQH5mF81AQrU
haM6SbGjLkaFLIg9OOlDzuMQbhrXXvkUv//8ZBLpTw7pTn9Me8YCCSHDLxew
f3VvK9eCdxUs2HmpvP0y9oeWnVr4LqKKBSmmH3qzsD90OYE7+lg1C+omFTO/
Y/vDEuFVHHnDgq/dQu2WsyM6/NMiJqINLChKn/DMwvbMTVlsc3sjC/reONkI
oftsxEeSPrLgVnrV1ktTOP7oWB2woxXzs4edcOIXtqfi6yhzn1nAWlwY2oX9
pTvGG9bUtGP7cjbynjXZX1ghlcv5ygLZMMXD17D/9P2PtMfGbyzgyRTpl0JT
dsjqDXaz4JXjj6fV2J8qc5AXfdLDgvfjc0WO6K1pCl8u97FgXXBS50Z0zLdt
aQf6WTBcIivVhv2txWu2uwgOYn2YnXKLRbswVLVbhjC9TZEtx9FdITt4E//D
9nNX7A5FtFHNro+nR1ig5atnvwD9jEszUXkM4++ey8kObN9lNbVsf49j/fay
nH+OjnLR3lExyYKmku8bUtCLsoEraIoFvL9skyPQjn37aukzLEhTlrO/ju7c
oBu1dpYFtK0yNH/0ERO9E71/WHC9yEQxAP309mGFR/9YkCP+qjkILfPuyLTr
PAs6h8w2xaDDeYwqdBawYbuL6s90NJcOJWTpIja8/FX7txzt4EbjNHCzwefy
c6kv6PZchlTcYjZQh7crzaEPDbGGLZeyYZ7B/VOKzF9vNineyscGjWVfpY3Q
Uuam/pP8bAjnP5rqgQ6LPmb8XJBN1vNo5qDP8ln2GomwYdyzu2AD5nfr/pOP
Vy5ng1Rzj+Ix9EFP68tdYmyIsH3TeBctOWor4ryKDd7ii95uwfIMlbPv0FzN
Bjkl33RH9B/Lc6mL1rLBiKb18Rm6pdllT+QGNnxc8Fyag/ER9MzD5qkMG+zr
LLwfYDzZqkRruMmyQT7h0atf6EPpubzq8mzIoJrfJuenLo7uSy9SZMPUipK5
MbSvM2WwUI0N59SWcO/F5++JAdsS151saGA8PB6OBouAGzvV2bBuRdOnHvSc
YYl84W425E6x7f3x+ewut/lswT42FNlPHMvD+mByT3v3hQNs2ECdiPiNVl9p
wr/jIBtitPy/aGP9meIOzcw/zIY3Sp7alejmy2mXzx9hQ8vHWtmFWN/yxyuO
qBlifk4GvNZGO3VNDz2hsKGwO6vkMZrCFi11obFh0j3tby85f7JeIViVwYb8
mn1PV2H9FdTVM5tgsuHsrojvh9A/n51QeMJmw+6zl1xdyfyJisdfZxPMD9FQ
2/vojPSodyqmbDhWs+XZG/SZ6Fq7PHM2LHOrPC2K4ye9ZX1azhaYPxPfK8j8
mUwAl6CKJRu4I/pcyPmlPH9XfxmzYkP61qMXyHxBj/OO7NxTbOCva2v3Q1cO
GHs6nWaDyxlmTiw5T8zC1nC7DXq36u8stPcn/3VjtujII1XP0ceNEv97bMeG
zfHNa9+R+ahXxc8dHdjAK3xUuJXMX2l9DFF2ZMMv4eTsb+g/ecPHRp3YENhd
xD2AbpPj3fbYhQ3Zj0tkhsl83j2puXMX2CDNGJYeQ8es1K5Xuoj5nX5ccBx9
MZSTMOKG8fqz4/coGS/yuDjkuLOh8e2RBeT3OzxCtM95sGGP4Q5Nkr7YROoy
pSvoyR/PyPunCZuKzmEvNvy2P5XQhm7s6nj0yAfj24gy+wGdy56+4uDHhrma
z/2v0GH1IsbbAtjw5USOXzHZz6ursGH4Khsscvt7MtGGpQdHsq+xYb3IL5m7
aAXVEy/sb2D9M563DiHzlRmXbyoGs+GByckyMl/4OvqxUvZNNpywPr/GBH3A
ZbVjVhQbTDckXyHzd2WJV/Vvx7BBKK4r/ReWr/q78c1ucWxY2aH54itaUbr2
8/4ENvw4KaSWT+bjqLvy5e5h/J890JKA3nQlKVToAdbH/PlOct6b+KfL+9uT
2dCmpBZ5Ah22qH/dy1Q2JM10uZH5Kz5lxkxKOhv6DpspaZH5P7PyxuBMNnw4
t6qBzLfNX1PIds5mA22d2YXVZH6rICaQk8OGrbMqKvzoyW/cltq5bEgOctr0
D+PbYZmT1uYnbKiC6xajZHyu+UWcrwDjNzhqpAdtefrw2EghGy7rfepsQ3eE
F9Q2P2VD0Oh6rUY0q3xjyrMSNkiofFxei274GeJ9v5QNS04NO75CG0jMHg0s
w/opNmH2El2ta73DvhzjxXfiaxkanBuF6BV4v7I3uIhLErQH1auwPuxtrSRW
q82oWl/Nhn+uatrk94+mxRO5X7OhkuVxgqQvu9nv0uAbNnBJBG8l/59EGaF/
qGXDzpsn48j1rfc03VZYx4YK5YcZ7eiY9Jql8e/x/p6HsfvQoi2q330asH58
k7wzjg5eeO/56SY2TDTzOHCR+UslgRjDZrzexQU1QmhvUzdn1U9s+PvYKUGS
zHcG9hhIfGaDF5v5nwr6Qj5ly3wbG4wXX0g9SObXu0oX9HawwbPIrtgUbSso
1/G2kw3fSo6KOaPNrRfciupmg+Lk75MP0K237c969LBhqauveima9uKzrmUf
G7axG4U/ofVW5c0qDmJ8jj32E8L4U35refLVGMZ/54cD19EZU/XamRPYXvQe
E00n8+NSuyVu/WJDqxYH3qAlPJbXm/1mg0ikujUfjm8WbqvaNcnFgUUpbs4h
5DzTo8qibQs5QE1obs9GT12N//mCmwMH53tm69BDX8/fD1rKATM/vquLsX/z
8ZY0v5QwByTl9+zeh87UETzTL8IBpedUFjn/1Pe/yars5Rzovf9R1IyLnPdZ
dUV9JQd6ds7Qz6OXTGe2/1uF6XXnNXmhOx+Gq1euxu8ryHXfQAdzWY0brufA
Wz7dO4loq0f6xsslObAqtl47Ha1pppLVupEDC+51WuahRfhW8yZIccDQson7
Gbq/aIG1lTQHbmvbbapEvzg1UCG7hQPT53YVvyXnsS1v2DAsywGbZxMvG8h5
qi+fejyR5wCnw3RfK3r/uXuf3RQ4EP9DTrMTvXrdtZ3a2ziQ88ct/Tt69O25
8EXKHHi+vTKMnC9c48Yefb0dPw/9OvqTzKfK6BiGqnJAfXL+7Sj6wkeZDPoO
DnwXyZGcRBv4LlsisYsDa1j1E1NoKeUpq051Dmh/DT/4Gz375Ut5kiYHHtpd
W/MH3RD0ap0NluVxgzLHv+g0jWz3bdoc6Lu02YicB+v1I+LThA4HjLReFRGz
Ij3Uivdy4MHJlFxixf0nb13ZzwGT2GVAzD12ZHi/LgdqSrxPk/TaE1SP8Opx
IFmvSIH8X57BmrT6QxzwepkYQa7n+uxCngh9DuwWYT2cRlukDZ4wMeDAzaEN
J35xkfUpjWXrjfD7O858GCfn1XKXrOkx5kCGe/4Umc/szb3vlk7lwHpe3zaS
P6XHrzc70DkQ/qbbZwBt84xz8zeLA+kPZ1S6yfkGNvCzjMMBmTcRh0j+i6+U
Pex/lAMXCwI12sj8pvP0QiFzDrwI0nlFyk9SPsp18ykOhEk/UyhHT3/ybBqw
5sDjcUYliYf6gFPKOWc4kHvKzLKIzId/UxvUsOPA790mdY/Q9Jtr9ebtOfA0
LvtBBlp+D/fDqnN4/YdkwlPQrTFNx4xdOKBwaro5AZ1z8FmJ2AXMzx1jSnfI
eQ6TD1a2ueL1BuQWRZPzQR/cOJ/oxoHQFw3nItBqFOeGk+6YX0Uv2bfQ/HMm
2+Q9OLBZsMApFN2duTdoxJMD3QeiXgShn5rI9ed7cWC16eL919E3l4jouvtw
YJxl9u8qumT8i+l5Pw74SCsU+qN7vmQ4OwRg/dErLvBFC725eP1MIN6vVdRf
ch62Zv6Be5bXOVDv3nWD1LeTiSJFZkFYv5Prra+Q9G901rFCOMDn6n3dk6R/
IbOHcpMDwrEbR8l5hT0Wbn/0b3Fgud25GOJlBrqiuuEcmB8q8yLW2CUqpxPJ
gWNdC5KIT276qqMRzYG8xe/miEMFs1iqsRzo3MO5SdJ/OuNmr3iHAzdyQyjk
/79/1/Xfchfvh4dHm1zfsveidzYmcsCloJZFrl+95GvumvscaH9pdtuHnI+R
nPV6RRIHRuNeDJL7DQm79FUomQNBztpHSX50Wy8X5E7nQJLLgHUgWpDWJTWX
wYGrwxPT10h6e7I1Z7I4kDD5I5C0NyHL9c78fMyB99tTg0LI9c0t9+rL48DC
/sqx/5fPQFdkVz4HGnT/7Akj6TVnZ7UVckBKwMOWlKd6uXvlx6cc+Fdx3uk2
ub5Mvbb6Eg7obtc0DCfpR4mNvS7lgN9zoxnipz7fllSWYf2st7En8dFt92j9
83KMVwWvVGIBzuUdRRUciDtRfZ941/5DBrlVHJiUqGATW25bYZVZzQHlidYX
JL1gie5Lya85wC+e007+v4g7JyzxLQe2H01KI9fXPXI5NfYdB+QXiG4m1y/Q
fqgsvJ4DaVPFR8j97ape0RzyAduzpBfryPsfy9zuocBGjOeKnBgSf8HxOQt9
P3LAV8n3GYm/okAPCY8WDtwpjw/wI+k7H1Z2beVAoljLFCk/AXNxPcc2Dlid
cRMi5b/r8Pdjth3Yntkc+HCRpLfBM8i8C9tX+nNjB/J+iU//Aacb2wMNpqgN
+tsv8WJaDwcEHMb9rdA73z3uO9jPAS7V3EA2+dytZ6/SKAe87TO9tMj/nczl
yI1zILPFYPcO8n3jK+ekJjF+WzU/KJL/k151d+UMByD1cfJ68n/CvU9EZjmw
6+C9aXGS3p/ct/x/sX2rztUVIun9uPKNZ44DHyJV45aQ9BqPzMzP4/PLYR0X
OW/+f7g31Zw=
        "]]},
      Annotation[#, "Charting`Private`Tag$658#1"]& ]}, {}, {}}, 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "0"}], ",", " ", 
      RowBox[{"t", "=", "0"}]}], {85, 0.3},
     BaseStyle->Directive[Medium, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "5"}], ",", " ", 
      RowBox[{"t", "=", "0"}]}], {85, 0.1},
     BaseStyle->Directive[Medium, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "0"}], ",", " ", 
      RowBox[{"t", "=", "80"}]}], {30, 0.3},
     BaseStyle->Directive[Medium, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "5"}], ",", " ", 
      RowBox[{"t", "=", "80"}]}], {45, 0.3},
     BaseStyle->Directive[Medium, Italic]],
    "InsetString"]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{Large, FontFamily -> "Times", Italic},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["\"r\"", TraditionalForm], 
    FormBox["\"\[CapitalPhi](r,t)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{824., Automatic},
  LabelStyle->Directive[
    GrayLevel[0], Large],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{-2, 2},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.732120721287938*^9, 3.7321209953158627`*^9, 3.7321210436200705`*^9, 
   3.732121076765875*^9, 3.7321211817742786`*^9, {3.732121265362341*^9, 
   3.732121303085821*^9}, 3.7321213811172276`*^9, 3.732121411256861*^9, 
   3.732121494475114*^9, {3.732121600895742*^9, 3.7321216295321836`*^9}, 
   3.732121685382924*^9, {3.732121764564793*^9, 3.732121791409246*^9}, {
   3.7321218344437127`*^9, 3.7321219067484026`*^9}, 3.7321219839809475`*^9, 
   3.7321220232642636`*^9, 3.732202165962304*^9, 3.732515118947076*^9, 
   3.7325163861924686`*^9, 3.7329503895174503`*^9, 3.7332065175485487`*^9, 
   3.7333699037776656`*^9}],

Cell[BoxData["\<\"phivstbh.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.732120721287938*^9, 3.7321209953158627`*^9, 3.7321210436200705`*^9, 
   3.732121076765875*^9, 3.7321211817742786`*^9, {3.732121265362341*^9, 
   3.732121303085821*^9}, 3.7321213811172276`*^9, 3.732121411256861*^9, 
   3.732121494475114*^9, {3.732121600895742*^9, 3.7321216295321836`*^9}, 
   3.732121685382924*^9, {3.732121764564793*^9, 3.732121791409246*^9}, {
   3.7321218344437127`*^9, 3.7321219067484026`*^9}, 3.7321219839809475`*^9, 
   3.7321220232642636`*^9, 3.732202165962304*^9, 3.732515118947076*^9, 
   3.7325163861924686`*^9, 3.7329503895174503`*^9, 3.7332065175485487`*^9, 
   3.7333699043193464`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "tr_", "]"}], ":=", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.638", ",", 
        RowBox[{"97", "\[LessEqual]", "tr", "\[LessEqual]", " ", "100"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.63", ",", 
        RowBox[{"96", "\[LessEqual]", "tr", "\[LessEqual]", " ", "96"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.62", ",", 
        RowBox[{"93", "\[LessEqual]", "tr", "\[LessEqual]", " ", "96"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.61", ",", 
        RowBox[{"89", "\[LessEqual]", "tr", "\[LessEqual]", " ", "92"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.60", ",", 
        RowBox[{"86", "\[LessEqual]", "tr", "\[LessEqual]", " ", "88"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.57", ",", 
        RowBox[{"80", "\[LessEqual]", "tr", "\[LessEqual]", " ", "85"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.56", ",", 
        RowBox[{"77", "\[LessEqual]", "tr", "\[LessEqual]", " ", "79"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.54", ",", 
        RowBox[{"72", "\[LessEqual]", "tr", "\[LessEqual]", " ", "76"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.52", ",", 
        RowBox[{"68", "\[LessEqual]", "tr", "\[LessEqual]", " ", "71"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.48", ",", 
        RowBox[{"60", "\[LessEqual]", "tr", "\[LessEqual]", " ", "67"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.43", ",", 
        RowBox[{"50", "\[LessEqual]", "tr", "\[LessEqual]", " ", "60"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.39", ",", 
        RowBox[{"40", "\[LessEqual]", "tr", "\[LessEqual]", " ", "50"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.3", ",", 
        RowBox[{"30", "\[LessEqual]", "tr", "\[LessEqual]", " ", "40"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.20", ",", 
        RowBox[{"0", "\[LessEqual]", "tr", "\[LessEqual]", " ", "30"}]}], 
       "}"}]}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"rr", "[", "tr_", "]"}], ":=", 
   RowBox[{
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{"fsol0", "[", 
       RowBox[{"tr", ",", "r"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", 
        RowBox[{"r0", "-", 
         RowBox[{"tr", "  ", 
          RowBox[{"g", "[", "tr", "]"}]}]}]}], "}"}], ",", 
      RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"t1", "=", "0"}], ";", " ", 
  RowBox[{"t2", "=", "tmax"}], ";", 
  RowBox[{"npts", "=", "100"}], ";", 
  RowBox[{"dt", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"t2", "-", "t1"}], ")"}], "/", "npts"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rttab0", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"i", " ", "dt"}], ",", 
       RowBox[{"rr", "[", 
        RowBox[{"i", " ", "dt"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "npts"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plnum0", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"%", ",", 
     RowBox[{"Frame", "->", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm0", "=", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{"rttab0", ",", 
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"(", 
        RowBox[{"b", "  ", 
         RowBox[{"x", "/", "30"}]}], ")"}], "]"}]}], "+", 
     RowBox[{"0.01", " ", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "  ", "/", "c"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plnlm0", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"nlm0", "[", "x", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "100"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "83"}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", "[", "tr_", "]"}], ":=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.52", ",", 
       RowBox[{"90", "\[LessEqual]", "tr", "\[LessEqual]", " ", "100"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.51", ",", 
       RowBox[{"80", "\[LessEqual]", "tr", "\[LessEqual]", " ", "90"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.496", ",", 
       RowBox[{"70", "\[LessEqual]", "tr", "\[LessEqual]", " ", "80"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.47", ",", 
       RowBox[{"60", "\[LessEqual]", "tr", "\[LessEqual]", " ", "70"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.43", ",", 
       RowBox[{"50", "\[LessEqual]", "tr", "\[LessEqual]", " ", "60"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.4", ",", 
       RowBox[{"40", "\[LessEqual]", "tr", "\[LessEqual]", " ", "50"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.3", ",", 
       RowBox[{"30", "\[LessEqual]", "tr", "\[LessEqual]", " ", "40"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.20", ",", 
       RowBox[{"0", "\[LessEqual]", "tr", "\[LessEqual]", " ", "30"}]}], 
      "}"}]}], "}"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"rr", "[", "tr_", "]"}], ":=", 
   RowBox[{
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{"fsol5", "[", 
       RowBox[{"tr", ",", "r"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", 
        RowBox[{"r0", "-", 
         RowBox[{"tr", "  ", 
          RowBox[{"g", "[", "tr", "]"}]}]}]}], "}"}], ",", 
      RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"t1", "=", "0"}], ";", " ", 
  RowBox[{"t2", "=", "tmax"}], ";", 
  RowBox[{"npts", "=", "100"}], ";", 
  RowBox[{"dt", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"t2", "-", "t1"}], ")"}], "/", "npts"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rttab5", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"i", " ", "dt"}], ",", 
       RowBox[{"rr", "[", 
        RowBox[{"i", " ", "dt"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "npts"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plnum5", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"%", ",", 
     RowBox[{"Frame", "->", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm5", "=", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{"rttab5", ",", 
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"(", 
        RowBox[{"b", "  ", 
         RowBox[{"x", "/", "30"}]}], ")"}], "]"}]}], "+", 
     RowBox[{"0.01", " ", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "  ", "/", "c"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plnlm5", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"nlm5", "[", "x", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "100"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", "83"}], "}"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"rvstbh", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"plnum0", ",", "plnlm0", ",", "plnum5", ",", "plnlm5", ",", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=0\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"75", ",", "35"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=5\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"85", ",", "40"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"10", ",", "85"}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<t\>\"", ",", "\"\<r(t)\>\""}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Large", ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Italic"}], 
      "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", "Large"}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<rvstbh.pdf\>\"", ",", "rvstbh", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "1000"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "2", "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7285693482200084`*^9, 3.7285694362695055`*^9}, {
   3.728570902598668*^9, 3.7285709670437765`*^9}, {3.728571145450674*^9, 
   3.7285711597658997`*^9}, {3.7285712231489954`*^9, 3.728571224918455*^9}, {
   3.7285712625442533`*^9, 3.7285712843641224`*^9}, {3.728571497814863*^9, 
   3.7285715553167505`*^9}, {3.7285715854549365`*^9, 3.728571674574784*^9}, {
   3.7287953212028804`*^9, 3.7287953405320263`*^9}, {3.728795429715681*^9, 
   3.728795450455661*^9}, {3.728795531463853*^9, 3.72879557275636*^9}, {
   3.7287956062020025`*^9, 3.7287956075359583`*^9}, {3.7287956693809047`*^9, 
   3.7287956719111814`*^9}, {3.728795742228427*^9, 3.7287957701863112`*^9}, {
   3.728795828337367*^9, 3.7287959224548054`*^9}, {3.7287964955330095`*^9, 
   3.7287965554908543`*^9}, {3.7288047763767786`*^9, 3.728804790843066*^9}, {
   3.7288048546867685`*^9, 3.728804861199115*^9}, {3.7288048960072517`*^9, 
   3.728804911070068*^9}, {3.728807354029251*^9, 3.728807387170859*^9}, {
   3.728807474967089*^9, 3.7288075188568435`*^9}, 3.728807587000412*^9, 
   3.7288101472408686`*^9, {3.7288101819324183`*^9, 3.7288101850659437`*^9}, {
   3.7288106152723646`*^9, 3.7288106349956975`*^9}, {3.7288107222599697`*^9, 
   3.7288107315378947`*^9}, {3.732202242593388*^9, 3.732202346473916*^9}, {
   3.7322024822455645`*^9, 3.7322025630557003`*^9}, {3.7322026376755233`*^9, 
   3.732202683501772*^9}, {3.732202766544985*^9, 3.732202846216401*^9}, {
   3.732202888936929*^9, 3.732202914124773*^9}, {3.7322029585541573`*^9, 
   3.7322029757057204`*^9}, {3.7322051186060314`*^9, 3.732205174886158*^9}, {
   3.732205246230208*^9, 3.7322052471748514`*^9}, {3.7322054792562313`*^9, 
   3.7322054867406216`*^9}, {3.732345926554165*^9, 3.7323459339189453`*^9}, {
   3.7323460715848927`*^9, 3.7323460746878815`*^9}, {3.7325141797560024`*^9, 
   3.732514217839935*^9}, {3.7325150530693626`*^9, 3.7325150574147043`*^9}, {
   3.7332064178151407`*^9, 3.733206419109907*^9}, {3.733206468716299*^9, 
   3.7332064792808824`*^9}}],

Cell[BoxData[
 TemplateBox[{
  "InterpolatingFunction","dmval",
   "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"98\\\", \\\",\\\", \
RowBox[{\\\"-\\\", \\\"20.556119676892468`\\\"}]}], \\\"}\\\"}]\\) lies \
outside the range of data in the interpolating function. Extrapolation will \
be used.\"",2,30,1,33530088491112252583,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7333699076804037`*^9}],

Cell[BoxData[
 TemplateBox[{
  "InterpolatingFunction","dmval",
   "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"98\\\", \\\",\\\", \
\\\"238.5384101278891`\\\"}], \\\"}\\\"}]\\) lies outside the range of data \
in the interpolating function. Extrapolation will be used.\"",2,30,2,
   33530088491112252583,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7333699077924833`*^9}],

Cell[BoxData[
 TemplateBox[{
  "InterpolatingFunction","dmval",
   "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"98\\\", \\\",\\\", \
RowBox[{\\\"-\\\", \\\"196.98671954996954`\\\"}]}], \\\"}\\\"}]\\) lies \
outside the range of data in the interpolating function. Extrapolation will \
be used.\"",2,30,3,33530088491112252583,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.733369907849099*^9}],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"InterpolatingFunction\\\
\", \\\"::\\\", \\\"dmval\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,30,4,33530088491112252583,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7333699079161463`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{
       RowBox[{"0.001454689842919846`", " ", 
        SuperscriptBox["x", "2"]}], "+", 
       RowBox[{"79.23378576440021`", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"0.015486661750698282`", " ", "x"}], "]"}]}]}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Nonlinear", {$CellContext`a -> 
      79.23378576440021, $CellContext`b -> -0.4645998525209485, \
$CellContext`c -> 6.87431760706327}, {{$CellContext`x}, 
      0.01 $CellContext`c^(-1) $CellContext`x^2 + $CellContext`a 
       Cos[Rational[1, 30] $CellContext`b $CellContext`x]}}, {
    1}, {{0, 80.00002683508293}, {1, 79.98754215171627}, {
     2, 79.95002551834482}, {3, 79.88727351328878}, {4, 79.7998962621927}, {
     5, 79.68728792933135}, {6, 79.54905208878203}, {7, 79.39072649061244}, {
     8, 79.21202656673003}, {9, 79.00834296109461}, {10, 78.78489038772435}, {
     11, 78.5360684716522}, {12, 78.27306708145974}, {
     13, 78.00659043637087}, {14, 77.7059716940269}, {
     15, 77.38605045528355}, {16, 77.08589988508841}, {17, 76.770490632275}, {
     18, 76.41433894795594}, {19, 76.07650945521475}, {
     20, 75.73485256165375}, {21, 75.33292146239624}, {
     22, 74.9641748417494}, {23, 74.60636840778757}, {
     24, 74.16894460209974}, {25, 73.77650836433354}, {
     26, 73.39446735851027}, {27, 72.92733482019504}, {
     28, 72.51984001409912}, {29, 72.08058289562389}, {
     30, 71.6091191345897}, {31, 71.17801219361161}, {32, 70.6697671771588}, {
     33, 70.20376730787233}, {34, 69.71219925067743}, {
     35, 69.18658573979071}, {36, 68.70279579991171}, {
     37, 68.13294642026477}, {38, 67.6278985699994}, {
     39, 67.04310374165243}, {40, 66.53404494950327}, {
     41, 65.95527058127507}, {42, 65.40966411254728}, {
     43, 64.8195538362795}, {44, 64.23516603927015}, {
     45, 63.63507859943238}, {46, 63.00294383408422}, {
     47, 62.37126550045142}, {48, 61.72527152054655}, {
     49, 61.054154362204436`}, {50, 60.381539567626135`}, {
     51, 59.69904136208295}, {52, 59.002219842216164`}, {
     53, 58.290917086518995`}, {54, 57.56610259237467}, {
     55, 56.82638908827609}, {56, 56.06902834815441}, {
     57, 55.29557778691384}, {58, 54.51368165362354}, {
     59, 53.72039356679387}, {60, 52.90867754686977}, {
     61, 52.09108564515219}, {62, 51.26019215813786}, {
     63, 50.418779088620795`}, {64, 49.56713455395256}, {
     65, 48.70813359494074}, {66, 47.838005072477195`}, {
     67, 46.962857717550825`}, {68, 46.08133568986447}, {
     69, 45.193217839132274`}, {70, 44.29600271596473}, {
     71, 43.394730931297985`}, {72, 42.486236994071035`}, {
     73, 41.57433674893116}, {74, 40.658371337359455`}, {
     75, 39.73840089799927}, {76, 38.81498725759823}, {
     77, 37.88905341582544}, {78, 36.961645232630964`}, {
     79, 36.03120059578433}, {80, 35.099564039250154`}, {
     81, 34.16613901386293}, {82, 33.23185477936497}, {
     83, 32.295579655561056`}, {84, 31.35919903310098}, {
     85, 30.421383353255397`}, {86, 29.482294112111713`}, {
     87, 28.54280938156308}, {88, 27.60265934006084}, {
     89, 26.661432743535478`}, {90, 25.7187681295233}, {
     91, 24.77271752920334}, {92, 23.825282779563747`}, {
     93, 22.87647021608247}, {94, 21.926329681672517`}, {
     95, 20.974957870195944`}, {96, 20.022524427691998`}, {
     97, 19.069239530324126`}, {98, 18.115136264190507`}, {
     99, 17.16022698642081}, {100, 16.204211477395674`}}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`a, $CellContext`b, $CellContext`c, \
$CellContext`x}, #], {HoldAll}]]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{3.7323459394040737`*^9, 3.7323460789790783`*^9, 
  3.732515061356659*^9, 3.732515132117921*^9, 3.7325163911136217`*^9, 
  3.732950394107498*^9, 3.7332064838287463`*^9, 3.7332065386940427`*^9, 
  3.7333699081398096`*^9}],

Cell[BoxData[
 TemplateBox[{
  "InterpolatingFunction","dmval",
   "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"40\\\", \\\",\\\", \
\\\"149.97111213776168`\\\"}], \\\"}\\\"}]\\) lies outside the range of data \
in the interpolating function. Extrapolation will be used.\"",2,37,5,
   33530088491112252583,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7333699142540417`*^9}],

Cell[BoxData[
 TemplateBox[{
  "InterpolatingFunction","dmval",
   "\"Input value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"41\\\", \\\",\\\", \
\\\"104.99166366507814`\\\"}], \\\"}\\\"}]\\) lies outside the range of data \
in the interpolating function. Extrapolation will be used.\"",2,37,6,
   33530088491112252583,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.733369914610286*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"FittedModel", "[", 
   TagBox[
    PanelBox[
     TagBox[
      RowBox[{
       RowBox[{"0.005437795866070269`", " ", 
        SuperscriptBox["x", "2"]}], "+", 
       RowBox[{"79.5412717727446`", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"0.018949734653905058`", " ", "x"}], "]"}]}]}],
      Short[#, 2]& ],
     FrameMargins->5],
    Editable -> False], "]"}],
  InterpretTemplate[
  FittedModel[{
    "Nonlinear", {$CellContext`a -> 
      79.5412717727446, $CellContext`b -> -0.5684920396171518, $CellContext`c -> 
      1.8389803968913419`}, {{$CellContext`x}, 
      0.01 $CellContext`c^(-1) $CellContext`x^2 + $CellContext`a 
       Cos[Rational[1, 30] $CellContext`b $CellContext`x]}}, {
    1}, {{0, 79.99981915210086}, {1, 79.98954584713958}, {
     2, 79.96160750019168}, {3, 79.91198171510118}, {4, 79.83950216685606}, {
     5, 79.75164082329961}, {6, 79.64681219845126}, {7, 79.51662706507845}, {
     8, 79.36538987515254}, {9, 79.2007764507417}, {10, 79.02017827372235}, {
     11, 78.81410294877485}, {12, 78.58659494182155}, {
     13, 78.34992055494895}, {14, 78.0945136220549}, {
     15, 77.81299007091002}, {16, 77.51511894696192}, {
     17, 77.20592419446481}, {18, 76.87937988786366}, {
     19, 76.5319878624207}, {20, 76.1653732944606}, {21, 75.78663504024559}, {
     22, 75.39575703413819}, {23, 74.9883113780598}, {
     24, 74.55994897990729}, {25, 74.11469317820331}, {
     26, 73.66026893428935}, {27, 73.19514672686782}, {
     28, 72.71359163481726}, {29, 72.21472676876525}, {
     30, 71.70454422125997}, {31, 71.18353310763956}, {
     32, 70.65242374302626}, {33, 70.10830616545378}, {
     34, 69.55437336815545}, {35, 68.98425663944882}, {
     36, 68.40233115905252}, {37, 67.81958234153991}, {
     38, 67.22112246870624}, {39, 66.61707162875861}, {
     40, 66.0063787784883}, {41, 65.38118295769208}, {
     42, 64.75756342748166}, {43, 64.11655770441189}, {
     44, 63.483545418432136`}, {45, 62.831589377111925`}, {
     46, 62.1871102555293}, {47, 61.52561857869696}, {
     48, 60.868636315760874`}, {49, 60.20608817109577}, {
     50, 59.536961915236624`}, {51, 58.875674943399126`}, {
     52, 58.19598089760599}, {53, 57.53503623133016}, {
     54, 56.85374760650579}, {55, 56.18374234093647}, {
     56, 55.5116849338701}, {57, 54.83069146703194}, {
     58, 54.16823643189608}, {59, 53.4835711870498}, {
     60, 52.81914310400836}, {61, 52.143998346377174`}, {
     62, 51.471201904795656`}, {63, 50.809099688699305`}, {
     64, 50.130654802600816`}, {65, 49.47794610915683}, {
     66, 48.80074396389542}, {67, 48.14567402878186}, {
     68, 47.479519062085835`}, {69, 46.820003670898814`}, {
     70, 46.16669180121064}, {71, 45.50536945896703}, {
     72, 44.862733961953275`}, {73, 44.20133355600918}, {
     74, 43.56659258078609}, {75, 42.907690365397286`}, {
     76, 42.27976287666332}, {77, 41.62586529634028}, {
     78, 41.00405045520569}, {79, 40.3552578449524}, {
     80, 39.73886101386123}, {81, 39.09671332517339}, {
     82, 38.48539903952718}, {83, 37.85252171158715}, {
     84, 37.24391456875337}, {85, 36.62456790623828}, {
     86, 36.01467727937852}, {87, 35.41415872727445}, {
     88, 34.80115984971083}, {89, 34.21798008141178}, {
     90, 33.609713097810605`}, {91, 33.025607571072136`}, {
     92, 32.44479696084074}, {93, 31.85184400548125}, {
     94, 31.288091832001832`}, {95, 30.712943139407887`}, {
     96, 30.138517735318224`}, {97, 29.590271352767292`}, {
     98, 29.032916567399266`}, {99, 28.4718200630758}, {
     100, 27.934899366213294`}}, 
    Function[Null, 
     Internal`LocalizedBlock[{$CellContext`a, $CellContext`b, $CellContext`c, \
$CellContext`x}, #], {HoldAll}]]& ],
  Editable->False,
  SelectWithContents->True,
  Selectable->True]], "Output",
 CellChangeTimes->{3.7323459394040737`*^9, 3.7323460789790783`*^9, 
  3.732515061356659*^9, 3.732515132117921*^9, 3.7325163911136217`*^9, 
  3.732950394107498*^9, 3.7332064838287463`*^9, 3.7332065386940427`*^9, 
  3.7333699228839364`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6], 
      PointBox[CompressedData["
1:eJw11H9M1HUcx/EjuHn8WEiTZE1FQBRI4IA7DuSA1wHHrzuOu+P4dbZlLCoh
Ahfxc8IJBQoedinlNDYFaypJRSI1xG4EghSGIITxQxzkTFB+iRNUiMb7892+
++6x51777vPPxyElU536CofDSV17//+y56MFfRaHo8G6ZoOvhaxO+KzGkTkw
fXhb1POCmYf6yqHXbzxj3oiR45t1XgvMm1Dwd0nZiylmO9RFvF3vNMG8BfbN
DRdM7jBvR3jx+F+GHmZHvB/68IfDRuYdcKyaPBfQyLwTGRWO84paZhc83aZ9
nG9gdkP+m7LldB3zbvRn3q/zyGD2gL3pM6umJGY+BmQBKcVSZi9cuTvbHOvF
7I2SlkPln77B7IPhlX/L/zFjFqBvyrx/w4yaLIQosq9aMcDsCydxqkVTK7MI
NV5ZrTe/ZfbDRV/uyz8rmP1RmuekbDzAvAc8c+6ToGTmABySOWcnBzCLoXhk
ZS11YA5EtcZV6sJlDsKx0303n99XkYORlyPRv/s7MyD4ZGfu6EWyDjjWzyuz
0LMugTzf7bsTGaxLID2u5M7JWA9Bu5349PJu1kOwqfsnrxIe66EwDBYe9Hyg
pB6KcQ9v37Y2MicM+e5j3e61rIfhNa3fLqeDrEthk9k/I9KyLkUmb8bwsYD1
cEzODy9aWbMejp78dEn0rVjqEZiuqs/ZpyPrIiCM+vXMZ56sR2K4paBxYERB
PRJRMc3lj8vInCh0VYxFDfJZj0J08lPPgjsx1KOBkZTWSB1ZFw13//c6xM6s
y2ApumqV0yWnLkPK4tZtnfvJHDmWHhinBnisy8Hbwi8a+EZGPQbOmRvURgl5
7T8HesXDwpFo6grsELZWxmaTdQq4HO748bwl67HYO2u2HHM2ivrauWe/1p8S
kjlK+NzOHv2qK3LdUML2qpP9OS1Zp8SS7avG0KmIdRuVKO5emAoqJHNUqH4u
Eu63IEOFIfMrb7WcDKe9CpAb0yacyUYVitRWlWWNUtqrsXzriGlgEBlqZF0f
Gi29EUZ7NU5E25RKNWSjGn72DVOlY6G0j0MY96xO9QEZceB+f1L3x1wI7eOg
xyR/cyF57V4RSAzvrJiS1+69eVFj6bWjEtpr0P65tWWYLVmnQU3qcNqlGtBe
g8urI/oBZzInHh9O/5b7ZG8w7eOhjz3SeTc9iPbxaPmi6ExuYSDt41FyPbBq
sUJM+wRc5k/fizgVQPsEWLw0OR93YQ/tE3CpyZVv8rM/7ROQtjTZ29vhR/tE
1Llnt0j7RbRPBHfFQbtv3Jf2iViyc5lzeiSkfSLc8joHv1wS0D4JWjnftZ1L
RhK2x1c1/GLjQ/sk7IpcMuRv9aZ9Evg1bbVmrl60T8bIvY2CCAEf/wG22LEs

       "]]}, {}}, {}, {}, {{}, {}}}, {{{}, {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwV1Xk01PsbB/BJ1sqt7CRNmZSOmxlcoeX7yJLGOvMd+Up0k2VUylgSIVvk
ZydbieHK2s8USeVa5pIy0YJIlCyVLY0iccP99MfnPOd1nnOe85zzvM/5bHU9
x3QXIZFIN9D7VbclL/2Vp8Y/wFVMJb4/w6FWUnOLNzsfO1/+wuCX+Rcqi3ay
eZhNYmrfHHK6/ugx6aRarJvfZfTLrVSOpzi7ERPQs47NIofIr9xf4TZj8loD
B74hZ6aZHfiZ+Bi7fapwaAaZtz6h+UfwU+zuuglTIfKThE6LOc/n2BHlavY0
sjB63acL5S+x0ewlqynk0Gae5jy3C+u42jYzjrxGBD8TkPUKy1JUdPj0az58
r/yW2It91PoYMoqsfilnhhPdhwUN6Z8cQr5dv09PGNyP/W4iteYdcptR1IMp
z0Fsgq6b04NcsU827A/ee0xXJj6iE3mm3y3fv3wIU2tz2/UMOUxFcvgrdwRL
YuXVtyC3PHBcrZM7ilHx5ZLGX/s4VlA4WR+wOxnvmQ+Rs7JsPL8kfsKazbUm
KpHf6XOv7I4bwxhjGT2lyJSemTLv6HHsvm5kVOGv/eQypiaDJzHMaEQtA1mQ
2s8Z8/yC+ZwUOAUiX8nObEunCTF6mZXVOWQtNnZUlyfEdlxjLnkg+0qkXvQt
n8FiZSa49sjLZnoNQu43zKfaclobuUD+rU2K2iy2Of/L8HZk0w+XB7VzZ7GR
UKXsTcjx0b2kc1lzWGfHgok4slJzsMnnxHlMUoxU+LoDh7o09e6EtT+wS89f
XGtHdnFtd9OK+4HJqu5kNSEXrVKLOR29gFGUTkuWINOA/2Q8+F9sYsgikINM
r5ew+ei5gg0l5ZxdbEf9Fdc5BeEKZiCdJzeOnEA+/kx9HwnUNkv79CL7uz4M
YLWQoN9d61A1sulHn5aa7lVwWC34vCfy8Oe3Jy7MrYZiekUf/ykOPUnxNSmG
otBXEdtTgSzQNpQqCxUFia2vrmQgV3Gu3u4TE4OgzY+k2cgRc/QVIwVxCEkW
z5FCJi/V5i7pS4LFSGjNAQEOcnnuQvmLklD8+KYUBVkSkzXd3SgJcgJzWSnk
L+FnJ10OSQHtxHfzzjYcGkS3GzU5rAG/e5uoJ5Cd16X1Rl5YB5pfRdZwnuDQ
Ia0vJeq8AVblVr8nWnHotJTJfhayAYLOTh7eg/w6blojJ3cDMPT3+sojj4qV
mO4e2AB02e2kl49w+LmkGE44bYRsTHejGfKu6YXvtxxloFnlseTWFpSPZ/Wj
9kfkICsnkFnKxyFp3TU/8nk50BkT5ochX6WfF5nMkIMt7Vm3WMj5rbvJ4a/k
oNKes5qEfK8h36mcJQ8Tf7NL8CYcPlRGdC4zFeCUnGLbdAMOB5PNmkpslYCf
RA6arcMhnH63rPOsEnRWR5U2IzeIqacvJSpBrE1VThqyUQjJA29XgnGzAL42
sq5X3doVC2W4v6Vcw/Mhyr8JzeHIQRWQUU2zENzHQXxedVr0D1XoNS8VnqhB
966K79VmqUK2A81JEznSe7HpqJ8quAoLY4V3Ub5HetNv31EFUpGJRhjy/Is0
w2O7N0P33czgzGocxsolL1fvUINhKbfwujs4uGsvStOkybBhqVei9/84WPXH
3lRSI0NyyVWjVGS9WPn9JG0yUMPYFEtk0UHqmed2ZCC5OG1uuIVDYZKnwPsq
GbqWMoq4FTgMfu6OKd+0FVjmRVJEGQ6Ot3gr6ru2QeuDPIOUIhysNd1nFA5R
oGiBF6lxDYfF+IC6t0cosKWax+7OwaF0+vLlIg8KkFti10cii94tVtaJocDQ
3635A9k4PDwwZmz9iAILP0oFSVk4aLBOp0WZbAcT/mHLT1dxIF3i6AoxDZg1
ThHxSkb57g4NaDPYCXLVAQW8KBz2yuziiV7SgstBsg3jHjh4/pt24yZBBU5k
p5aBOQ7nWj/p8qx1IDBg40ybOg7/Oyq+femMHpSlRE/qLTLh5OOLHjS2PuwU
r/zCec4EvoQy47SjATxctLB9X8AE2sbwzHF/I/BuZNR7nmHCn9/2a9mc2Qcu
fYqLbfpMKMh7pDqfeADe9hq4Vf5gQHWSUX8nE+B6QvKpxloG+D/cb3fDyhii
HM5lPghkQKPg5tc4p4MwfIXhnbmbAV6HDOu9CBN4W/Had/qjHeSW0mpOnzKF
ONNkD16GHaR+q4/wCTQD9WN6vccP2sHH8oDzbF9z4N+z42qO2EKLeVp2ZOQh
cPN6+dvF321hle2b4eRwCwgN7LszF2oDJON7q7hBh6HyWqFlcrs1XFGct+6M
pYPU6Mi8i7g1+Bw9+c98lCWE+FNqjC2sYChCzw3LsIIOKaVb3f6WIJee8yau
wBoKYqONFbh0KN6wK+jxdRtwTFn8afbqMPB9t5jtqLCFNnJ8y8tZC8gjc1X3
s+zg3JRIoe0WC6gPWSSxX9hBl/pvq6Pph2CrpcRPdQcGcI7SuxaOm8Pd55rx
fd0M4F7vsVmJMIOE1mUq2ZkJHvTlKcMkU0j3Gz/15wATwk70iAtLTNB/q7Z+
myMOBn8aMr40H4QyTTGB/3scbg3U3vAWGIP47CplvgsLfu6QtREMApRQ74Tl
fWLBLtrMQncjBpqu5TZL3vZQJpkY2tW6H/oPP6iyn7SHicEepsT0Xuj8K/h3
zO8IiCUT9ZpThvCjmrFv29cj0ETXpoyuNYCV+741MWcdoCCgSUr9D32wpJqb
hcw5gAdvW5PaHj147KztddqPADUHfnHYMR2QOcmuuxFAwFpvgexelg64sAuk
XwQSMJDqe3PeUge++8pW6YUQMEU+s4ezVwcoV+YXl6IJUFTI2eShogPhVY0J
KZkEUG9EbHR4TQMjCbvbNQ8IUDDoU3Jg0SBmXZzIWB0B7zqKQ5SsaPBy4z8s
lQYCFgf9174xoQFbVW8h7B8C6HXvyp11aZBFUzpo8ZQAPa1L3z1kaDDr9L7r
zQABK/cKP0e8oAKcUNaQHiQggmArmz+hQrwH8wI2RADv+nG/NU1U2MZpUS36
QACN4FWl86jAiCl1955GnvZyK02iQm78UG2+kIDkQabE2RgqjKWorOn8SoCp
ivgb3TAqhF9PqNSfJ2B9c9b6Jm8qtHMfkbwWCLBzHvCNcaeCYvEy8/q/BOjk
1IpbO1PBtWLPzY4lAnYmHnsqa0+Fyts+8ysrBAzbLje9saLCfybYhGI=
        "]]},
      Annotation[#, "Charting`Private`Tag$1775#1"]& ]}, {}, {}}, {{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[0.009166666666666668], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJw9y39M1HUcx/GvohMBDZgH3nHJz9CJCAHCcSi8+Hn8OrifcGA0xR2/HIcQ
OBC8vvKrNAbmFBetGhVrVCPRIMkuDpSJwyH+AcqPMXBIMEFAU5ZEVuv96bN9
9tljz8/LNbNApd/IcZz+n/vvy85Gm9Kt66/V+E/LYeMjouua/80hVerz6tw6
syUCpfVzGa+YbZE2k5D98wvmHYhsEj8SLTPvhKt5/V39PLMYx3xW82ynmV1w
clNQXeYDZjfUFpTWjN5l9sBHhqFP4nuYPeHlER4p+pF5Dx7eruw718K8F9sW
9wv1jcz74Lk8UWlTy7wf3JdntlgWM/vC8UpJx+oR5rfxudf3E95yZj981n+x
VyZh9sd9030HGzfmANwcniy7ZMV8ANVLRqnumYociOiryQLNKHMQNvdmGNHN
LIHOMixg5CvmYMRmbHdL/YBZiqbh5ofhecwhyCq+Gns6kfkglA1hFd95Mx+C
1WGd4NdtzKEwBLfAcVFJDsNMb8uG7gFmoHm8KrmnlcwDdi1rFU9rWQ+HHV8w
duoY6+HIVze88Vco6xHovOA70C1kPQI9KuPW4t8V1CMROTU26TlI5iPR7s+J
jN+wHoWusLOVOTzrUXCODpDrdaxHo/y44km5L+vRWHYraivZwnoM/nhrdWjG
lEw9Bv1+8prCPDIng9y5UfrckXUZ/EcCS2U3k6jHYmB3XZlPAZmPRVHZ9M6j
Itbj0PfxJq8bt+TU4/DT/PCbDifIXDweLS7MCoSsx6N88oBdxa1E6gmoPc01
yfLJfAKCPi2drHZkPRF/5mpmjD0J1BPxck0g1OSROTm+Np7q+1DAuhxpwy6t
j03x1JMwIdW3jeaQ+SSIfdrOGuxZT0ZVsZ1O8Usc9WTkCZwvns8mcwr47lpI
6LIlQ4FdVvUp3qZY+q9AyDXJbWMW2ayAsltV1GJP5pS4d+PE9BGTjPZKuNSn
T7/IIfNKWBz23pMiIJuVaNDEPfvBHEN7FQonLewMBjJUGFDJEvuEZF6Fl4rt
TrX90bRXIda91c+nmMyp0f5cFH3PnQw1Bk3N6eKhKNqrEaxq66rmyWY1fhu/
61DmTeY00Ofmvr4wGUl7DarS94mO1pF5Da67R9W7hpLNGtzxe8/gvBhBey08
565dlnxBhhbpndoHK8lkXouskysrUxvIZi0uvR+426IjnPYp2HtlIbsui4wU
zB0v7pt1IvMpsK7x2mE9CNqnoMRjyklWReZSMS/QOS1JyEjFk+GpIvuxMNqn
Iql9JtMcRzanQvitdWFVZyjtdWh0Wn1c4k6GDh2za5vFlw/RXofVsnck+ZZk
sw6jZ8T+d0oP0j4NT5eazmuXQvA3UaemVg==
       "]]}, {}}, {}, {}, {{}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV1Xk8lNsbAPCxU9wso6hJthbdCpF7uV7vY8uSbea1vLaSJVOaCpFEmYhc
O2UJGWUpushSabJLUdJFuSJaFH5KU8hSzO/0x/mcz/f8cc5zzvN8zqPifZzh
J0ihUPLR+DWrpixfv6rUYvQhwWN30TsC7oprbGIxC/Dz/qfW/HJLWEXRNmYl
/odHV8l15Ay9MQ+p5Lt4M8tp4Rpyh1agvyizCfe4piD8yxHy/Ht8ThveLkjt
4iBnppsb/Ux6hO++YmFdgFy5JrFtIfwJ7hVaE5OP/Dix13LOvwePLnU5nYvM
i5EcDyv7F6eD7rYc5Mi2So15Th++4mSVlom8SpA4GpL1AscoWbUZv/aH7xUz
SQM47roxPRVZ7VzO18CYQbw2clgjCbmqwVCXFz6EP0nsPxOP3GkQXf/JfxRf
M3vcjo1cbih3dk/lG1wmS64nAvnrkG/BybK3+MH7PIkw5LPrxd9947zHhXXI
ChZye72r0O68MXzT+Lt1zF/xuJarB2Z9wGmDpX95I2dl2fl/SRrHm+zf3nZC
HtHjXNwVP4GrWjgL2yOrv/x6kxUziX88KCpj+Ss+6uVPU+FTeLCgoqs+clfa
UOCE/xf8JXtNkQLyxezMzgxtHv6G6vd4DfIOJu6mU8nDf0otlIgiB4mlnQkq
+4pviR5In3lLwIq5biOPM4MrGMRu7kIulH9tl6o0i0v/83xDE7LZhwujmnmz
eADT/WkNckLMAOV41hw+SOp45CErtIWbfk6axynSi3pHkLnpav2JqxdwahGd
74G83/up7474BTxMcJptj1wkoBQbELOIx/02W6eDrA0tjyfDf+BtbNPBhTcE
WDeI2X305+MqM0ypUGRtvvfcWh4fz36S/9MbOVH5wDM1Qwr4e47n2COf9L4f
4thOgZJv3JGtyGYfT7TX9QtAbsL5tP5RAt59fn0wbE4IJIXs8pSQXyYn1KXq
C0NC/R8sUeQuTX2Jm5HCsLHH7NPnEQKqAy9VDYqIwCH97lkuMnvOmm+wVhSq
7tVqOiIrL9/NW9YTh8cbB2xDXhNAverHkz8jDgMjpwVIZHFczmxXkzj0yDN8
DJC/RB2b2m8hAVfel2qvDBPQKLzZoNllFahUSy6ykT0l0wfOh0mCGmVMJ3yI
gG4pPQlhT2mYlnros3OQgN59stnPIqShYSaTLY78X/z0lpw8aWB+Mibf/0fA
mEip2a5haahL2KaVjfxzeV0U6S4DJtYH/l4ZIGD79OL3W66yEJ99e7LhJaqP
Zw1jTs5UkJA4vF+sn4BkySvByqFUiDilc2Wwj4BL1qGCU5epUJgvllKOXNCx
SznqBRWY/X3X7ZDvNBa4lznKQ8CL38PTegn4UMHuXWGshf6Vg0MS/xJgkmLe
XGqvAKrsioiH3QREWdfe7D2mAAl8VV4KcqOIWsZykgKU38jd5IZsEEE5RDxV
ADtqYfXnpwToHOau5lsqgqf47psyyOqm2i7OJuthI0X1lU0XAaLztGnhPTRY
3OLnmtqB8l2dMKDpSIMnmQZ0BvJ51lKzWzANTFOcRKjIK+8HMqpu06D8o++1
zIcEzD9P1/fYtREsbbdWZbcTMFEmfqFmqxI86NChpbYS4Ke5JKUtpQz0nMq9
No0E2AzFFSsoKYPPPbMefgMBunHyGEVTGXLUo8RrkIVHtY72OCjDnRvfExWQ
ryX7d7EuKcObUMORUS4Bo5/7Y8s2qEBJs2jxgXoCXG9V8tW2q8Kcp/KQWi0B
thp+X9daqEOfVlpV0w0ClhJCuK+d1WHy3MCUH/KN6QsXig6pgxu1891qZOHa
EsXdserA3MAVcikl4L7RhLHtQ3XwT9WT/V8xAVscA9KjTTcD7U6Qr9B1Aijn
AnV4+BYY4jbNCeaj+u6PDOn8cxsIZfSn6aUS8Jfs9krhczuA0z7OfX2CAP8f
6fnFpBY4cEo3uNsScLxjXKfSdjd4P4c4+W0E/O0munn5qC7svOW30+gHA3we
nTmkzdSDOFH2e6KbAS1iivQA1z9ByH4PpSCPAdoyUZmTJw1gNjw4t82HAV4z
2A67o4YQV2SVKfc7AwqvPqTNJxlBYdHw772TdKhJNhjqZQBM29fkyJbQ4eR9
zCHfxhhG1r0faPGhQ1NX8bd4dxNorDfyzlagw2EL/YbDpCkssa1ML/U4QN4N
7bqAI2YQG/lbaWKkA6TNNLBPnDKHS6au+6y2O8DHspBQZtBeyJx4TWmptYf2
venZ589bQP0zlWfSQvYgYP/qXUqUJTRGxLJCXO2AYnxHgHPaCnpbvT1Uqmzh
4rp52944axgZmwqKmrOBE24+rfPR++B7hvSYlLkNvGXr+uKXbcAruerpMFqn
ZuS8ii+0hWbrmvUd7dZQIr399KNcO+gtqTPrkLGGlqBN5lvL7eHxpHP+QXsr
uKrMoWGODrDD3K5y1xVLaIhYojCfO8AldyMFm0kLUNkn9lPNhQ7DKX0vWrZb
QG2PRsJgP3onxnxoX/heSOxY0VL2ZMDK3e7m+kZzyAiePOI1zID7vjz5DbLm
qN8qrVF1RX1LKX6n4VEzuKkh0nUS/ZvCOV7F/zwwBdFZAcWW/Y5g/YEaE7HR
FEq1bp+9Ou4I9ay65xWhJqDhXWa3zHICxxLrzU6DxjBkVV/tNOUE0W583n8o
T73Xw3fiwc5wzMvkN4EHAAs1dEPVb85QMMn5eMAQgH8vqC72mAvgi0n+3Uk4
7NPaax4x5wJO0eZp2oVG8MhT83BAMAkerW208pcYyPowufkhJFzLsQmx6cNg
P7NQ6vkpEoYWz5l86cHge5BctW4ECXQje0P9TgzUL84vLceQIGLMujvCxSCq
uikxNZOE/Pno9ScKMTAQc6iqqycBl1u3qpKFQaxkvOAEl4SUTlbJuSMY/CvT
6ri+kYSijn9a6f4YMGm6i2dbSUjWd4hY8sIgS1vBxPIJCRnhn5Y9HTGYdX/T
92qYhKeckYusvzCAg4pbpEZJqIZHts5/YpBwiBGGvyUhIEM7G/ZgoBrYTiv6
QEJaO69RURMDeuwNP9Y0CX5HRzxHVDHIS3h7t4BHgu9QDtm3CYOJ1PWrer+R
oOhXONRJQ/fJTazQmyeBU7B4hrsWQ+c+pBxeJOFy5c+cO3IYrCtZYeT+ICEx
u8q4RhoD7/I/iruXSaiKPBZ8WwqDiqoT83w+CeaRKZq3V2Hwf3SghgU=
        "]]},
      Annotation[#, "Charting`Private`Tag$1866#1"]& ]}, {}, {}}, 
   TagBox[InsetBox[
     RowBox[{"m", "=", "0"}], {75, 35},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{"m", "=", "5"}], {85, 40},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{Large, FontFamily -> "Times", Italic},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["\"t\"", TraditionalForm], 
    FormBox["\"r(t)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{863., Automatic},
  LabelStyle->Directive[
    GrayLevel[0], Large],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{10, 85},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7323459394040737`*^9, 3.7323460789790783`*^9, 
  3.732515061356659*^9, 3.732515132117921*^9, 3.7325163911136217`*^9, 
  3.732950394107498*^9, 3.7332064838287463`*^9, 3.7332065386940427`*^9, 
  3.7333699229569893`*^9}],

Cell[BoxData["\<\"rvstbh.pdf\"\>"], "Output",
 CellChangeTimes->{3.7323459394040737`*^9, 3.7323460789790783`*^9, 
  3.732515061356659*^9, 3.732515132117921*^9, 3.7325163911136217`*^9, 
  3.732950394107498*^9, 3.7332064838287463`*^9, 3.7332065386940427`*^9, 
  3.733369923319832*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"m", ",", "q"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "2"}], ";", 
  RowBox[{"q", "=", "0.02"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ff", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"r", "^", "2"}], "-", 
     RowBox[{"2", " ", "m", " ", "r"}], "-", 
     RowBox[{"q", " ", 
      RowBox[{
       RowBox[{"r", "^", "4"}], " ", "/", "3"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"ff", "\[Equal]", "0"}], ",", "r"}], "]"}], "//", 
  "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"ff", ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Dashed"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"m", ",", "q"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "2"}], ";", 
  RowBox[{"q", "=", "0.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ff", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"r", "^", "2"}], "-", 
     RowBox[{"2", " ", "m", " ", "r"}], "-", 
     RowBox[{"q", " ", 
      RowBox[{
       RowBox[{"r", "^", "4"}], " ", "/", "3"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"ff", "\[Equal]", "0"}], ",", "r"}], "]"}], "//", 
  "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"ff", ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", "Blue", "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"m", ",", "q"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "0"}], ";", 
  RowBox[{"q", "=", "0.05"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ff", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"r", "^", "2"}], "-", 
     RowBox[{"2", " ", "m", " ", "r"}], "-", 
     RowBox[{"q", " ", 
      RowBox[{
       RowBox[{"r", "^", "4"}], " ", "/", "3"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"ff", "\[Equal]", "0"}], ",", "r"}], "]"}], "//", 
  "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl3", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"ff", ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Dotted", ",", "Thick"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"frvsr", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"pl1", ",", "pl2", ",", "pl3", ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Orange", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"4.719457358797734", ",", "0.04776041092172534"}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"4.719457358797734", ",", 
            RowBox[{"-", "22.182839278382062`"}]}], "}"}]}], "}"}], "]"}]}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Orange", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"9.20813798538092", ",", "0.04776041092172889"}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"9.20813798538092", ",", 
            RowBox[{"-", "22.182839278382055`"}]}], "}"}]}], "}"}], "]"}]}], 
      "}"}], "]"}], ",", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=2,\[CapitalLambda]=0.02\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"9", ",", "6"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=2,\[CapitalLambda]=0.0\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"8", ",", "20"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=0,\[CapitalLambda]=0.05\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "10"}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(1\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"4.5", ",", 
          RowBox[{"-", "10"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(2\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"9", ",", 
          RowBox[{"-", "10"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "20"}], ",", "20"}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<r\>\"", ",", 
       "\"\<\!\(\*SuperscriptBox[\(r\), \(\(2\)\(\\\ \)\)]\)f(r)\>\""}], 
      "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Large", ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Italic"}], 
      "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", "Large"}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<frvsr.pdf\>\"", ",", "frvsr", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "1000"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "2", "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.728900364911577*^9, 3.7289004970162*^9}, {
   3.7289005465593185`*^9, 3.728900576801895*^9}, {3.7289006462675457`*^9, 
   3.7289007794800615`*^9}, {3.728900817486784*^9, 3.7289008675449977`*^9}, {
   3.7289009147211695`*^9, 3.7289009272281995`*^9}, {3.7289184092278414`*^9, 
   3.728918412571473*^9}, 3.728924333738494*^9, {3.728924501908654*^9, 
   3.728924541836608*^9}, {3.7289248798115635`*^9, 3.7289248842683597`*^9}, {
   3.7289249925687857`*^9, 3.7289250007042193`*^9}, 3.7289250658386445`*^9, {
   3.7289253594634404`*^9, 3.7289254011655717`*^9}, {3.728925496133546*^9, 
   3.7289255835329943`*^9}, {3.7289263776573286`*^9, 3.728926390336296*^9}, {
   3.7324452575071373`*^9, 3.732445285408451*^9}, {3.732445330269391*^9, 
   3.732445342289693*^9}, {3.7324453780638685`*^9, 3.732445545103252*^9}, {
   3.732445575906972*^9, 3.732445774388095*^9}, {3.732445816430108*^9, 
   3.732445912096741*^9}, {3.732446239193615*^9, 3.732446279695995*^9}, {
   3.7324463674663134`*^9, 3.732446379364646*^9}, {3.732446412357808*^9, 
   3.732446424553502*^9}, {3.7324465485866394`*^9, 3.732446568222881*^9}, {
   3.732446601327086*^9, 3.73244663826294*^9}, 3.732446678651456*^9, 
   3.732446726032914*^9, 3.732446757544647*^9, {3.73244681175449*^9, 
   3.732446818917113*^9}, {3.732446860876133*^9, 3.732447136900488*^9}, {
   3.732447177410813*^9, 3.732447221450418*^9}, 3.732448388427226*^9, {
   3.7324484202533407`*^9, 3.7324484460661*^9}, {3.732448480840858*^9, 
   3.732448487495632*^9}, {3.732509776276637*^9, 3.7325098164902816`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"-", "13.898559023849826`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"0.`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "4.685975998159706`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "9.21258302569012`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.732448364113158*^9, 3.732448448466877*^9, 
  3.732448488397247*^9, 3.732509822821656*^9, 3.7325164082683706`*^9, 
  3.7329504091694994`*^9, 3.7332065392431555`*^9, 3.7333699235165043`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "4.`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.732448364113158*^9, 3.732448448466877*^9, 
  3.732448488397247*^9, 3.732509822821656*^9, 3.7325164082683706`*^9, 
  3.7329504091694994`*^9, 3.7332065392431555`*^9, 3.7333699235650415`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"-", "7.745966692414833`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "7.745966692414834`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.732448364113158*^9, 3.732448448466877*^9, 
  3.732448488397247*^9, 3.732509822821656*^9, 3.7325164082683706`*^9, 
  3.7329504091694994`*^9, 3.7332065392431555`*^9, 3.733369923607442*^9}],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVlnk4lF8bx2fGkmWYYYYsM2MsIWuLiqLnLltkS2hTJNW0CSVrZY9Qkqyh
IkWRikLiVLJEIhSl8rMkkqxli/e8fz3X53rOOfe5t++5Fd1O2h+kkEikFjKJ
9P9vxjk3wZXuMRtXrBodWeF+r7K6lWu1g3uEGDvYfZMnH121WFMZxuX6EzL1
rruNpVOrMlCcggA3mni7pWnakppXddzI58RfhVSiQeSlfdh0aVXrHC9xVCGP
iCJb1Am11FUt+dyj9kuhjCCeV95XCO2ouvkmy+unQj1xYoC1zrVvoKrwQfTn
4zqfCBfnBdnykL9Vh4mW1GHvXuK89SeWSTAJefQv7y0uHCRcWB+nVsbxo+59
nUIv6gcJxVB6q08GP9reEaXztm+QqDCiXios4Ef6DQP+/XJDxEzIm6yFt/yI
7+FtuvSFIWLQXcBEVlwApQQpbvR1+UlcjXvEMYgVQC8YsqkG9F+ERJpqmVqw
IBJRDFf7pj9K8G6yowfMhFCd4RXdc6ajRPFlsfaQ7UIocmfmOrb9KOFUV3xN
0lUIUeJLzfccGyVSPpf6LvUXQrMLw4c/ZowSoVk3mwvzhdDPLse77yhjxOvk
74eZVGHUmKK2HDWOEYOiDe1VtcLoYrHeSpfOMaLDI3txeasw2tK8yWChf4w4
Lp79+OJXYVS9xNnCcHGMOLR2oEJ3ShhVnIk/UrpynOiyseAJKYmgAoeZvKKk
cYIlZ/Zy0l8EXaI3aNx0nSCIukfplUqiqGwdu8TGY4LIGt908oO2KOrbd5KY
D5wg1v+kbu7VF0UbChgOO5IniNLX6wc/24iiHxbOZ8WaJoi5L3t2WQSIIuOw
X+/8N0wSf2oVMqXeiaLpKZqPvfQUserqRF2AJxUps90WF5WnCF909ZReABXZ
mBRHF6ycIvQt/zPqDaOi2wk7M4Ws8XpvtIabTEX2ujdrK8OmiK2Ou5qXPqei
At4qOc2xKcKuIOLmgqAYcvvsUMXX+IcwO6vj/ChBDImk/3fCq/MPMfVfvPTP
NDH0aLcH69v3P8S0+DJf2WwxxPfpgn85+S/ha7ROd8djMZTTUb7aa91fgvfF
J9WpVQx9b+fe/XrrLxGqIWx1SEIcHW0eji/znya+JppPN0eII8l4f0LtwjRx
hNWUgWLFUbmt4Ehi4jSxTc9VLPeqOBJ9p7DV88E0offZytb+pji6/9ZeQK1/
mphZnDi3okIcjbwp9U+0myHKJ0YS+UfFkdfrcLeTarOEVmTqNMOOhjh9ZoJ/
Vs8SUtekJ/c60lADRTg/CGaJp50hOlm7aWgZxI1F75olrhzUcF9ykIY6y68F
58TMEpEcyd8e/jS0qSg3s/P3LCFdYHI4/QYNjTTxNrvOzxJ7nUIadt2mofRf
Gt+/C80RSiHk87R8GprSeKA9qThHsELHP7o+pqG8208rxB3miEjd5x7pr2lI
Ir3uk3HpHGEoWCbn9YOGKssunntTPUcEaN0ezRmmoWMdVkrbWuYI9bW3VZtH
aei1VMuRfUNzxLbuZU+pMzTkH9857ceaJ7QCGCaX+enov4gh6cLgeeLL5dZf
7xl09NCTul3G4h9R0jl0ZpkuHTWmMfwLnP4Rjitpkh0r6Oh7tVzWZvd/xL6P
jQ8iVtGRnOzyn8fP/yPmDSanWtbQUfgL07AXJf+Ia8vUXugY0pGT5PnHR5UW
iEMarVMz5nTkaRjZuai7QGjcDpHYa0FHFw/FLSYaLRBDeZ4bnlnSUVV5+taq
nQvE/pcCz3nWdKR+oLSXcXmBWNHbFhNlT0ezj8cYz+cWCOOnBxY/76Ej5tdp
A3vhRULZ4NLOUWc60hEiuQ5ILxI7k6caFvfS0QFn8fsSqxYJr6wIfror9odf
0+QQb5EwDhB6P3UA+6Oz6uiczyKxRM1Hstedjki7DOLjwxaJ9heGpxoO0tGa
AvOu8sxFgiU/nhJ3mI4yHd1P09oXCcXjGRc/HqWj0vPH0nJ6FokDphd6M47R
UWueNzIYXSRk3BfdXI7TEf95EHwkQIINHuUdrSfoSIJpkhpEJUGi1qXmSA86
4uSZa5kzSLD6g8S43kk60m+1se/ikkDOwKYk1JOOTHn2/blqJKB4pO1U8qIj
+3+Ofl46JPCJeK7+HPNxtb2ZgoZ4/9wj+z5vOroZeGxoxQ4SVM0k906fpqMV
SHj6wl4SnGclsY/60BHivyvw7QAJdq+5rv4Rc3dcHzfOkwTsXc7FOWdwft6H
6vSdIYGv2MG1Ar50tCitaLjhLAlaRBix+zFzbuzdMRhNArvZhWIxPzoq7Jtz
h3gSjKXFRe/FbLQ8zTs5iQQX/nPTy8PceEI/eOQ6Cfpq1J6MYnZ+9CHONJsE
fuERND1/Ohr+czr9eh4JnBKXbTqFOXADI2/iAfbn4cOthZjTqm2rb1aQoJtY
O7I0gI40hEdapl+SwOho2AUzzGXWsd9s60lQInlo3hPzlgSNX7nvSKC4Lto6
GXPHh7rZf+0k+CeVEliGmSd/WMixiwSHdDZe+Ij5r4uA9P0eEsiAmtcY5sic
bGW+QRJ4b100WBJIR9KDm1bu/o35inePDOZc7e6ND6dIUHFV+5gq5jXe56yE
5kkQz/zSpou5+glrtwuFDK3SOtw1mB3myg8/ESKD0Ne31msx9xG7fMRoZHAY
ObJvNeZT4X9D3aXIcJ5aZK+FmVJ/Lf6ZPBnGjWw0FTEniOllSiqR4XHd+A8J
zEr27+8dUSfDidVWsQv4vg+TPMuQDhk8TIWlBzDDZ/HapWvIcEOwM7IBc7NC
QZvHBjJcqTr67R5mV/etPa83kcFr5gQ3CvPvu4O/WVvIQD+XYOmK+dyvC/9O
2ZDh646ofXqYxVepijY4kGGkZdGZH3PmmWoZpT1kmPTNM2vG+dF+5qbqv58M
JtJrWSmYKxZJes2HydBe5vR1D2Yrk6xNah5kMCqqiJPH3BVlZHvuNPbngqzm
R1wPx95+dm4PIAOTpvD0EuaLTjJ+YRfIIHd/OGMM15tc+pOIT3FkSL0lO3sd
c943h6srE8nwSKTM3ARzHe9K4bcbZLAtlS+PxPW7s0C3Yu0dMjztNe1WxDww
9rY+roAMQVZFs6W43gUDRfo3lJOhmSdN+4z7I6nq7ngCIoPlkkCRQ5iX8ZuT
hmrIMFs6Nj98io5M4sLkU1rJUDo+WD+C+ys0a37b5DC2p9W39CXuT7sVpV6a
E2To/SfXqYuZ8+LUFbcZMlhJSlWl4n4u7xlqbhagwBMzgfn9uN/Hl3XaFnAo
cPLlS6tqrBfoSeLJPhUKbPu1YMbAfMnc7rK8JgU2jvGO7cP6onGktil6HQX8
jILXDPLoyO1+ifUhOwr8FfzyXzPWpxVGXicynCjwxfcOkDEvvNWKa3OmgK2J
7DttrGdpv7MbNx+hgL5C8dlANzp6vyphq0IoBQrXsdYM7qOjTWUeFh2PKfAu
R+Wu+A6cb0uNI7RyCrDGwhwoTjhfn/qjzBAF3rvlbxh3oCO/eee64kYKqL9n
Pa/BelxEbDW/0k8B2kPHG5tt6Ihbo2ZquZQPklvqIyNN6GjEqdc9hM0HbeYB
ehuNcX0MZIaXKvNByD5r9fFNOF/C0tWqK/iA47O+34ago3grfmM+Cz4QvORU
99kA63FrN1QE8IFfcGy7sQ5+XwYrbwaE8IHGunZ2lhYdCZMyKAZRfHBg/Af9
jwYdSWrvqi65xgdL43XnktRwPi+0mD8o4oN5vXOzOVw6stzw0ubWdz6InXXy
HZego6vZ2c5R9vzwOkZ/eXEPDcmUhzw328UPD84Oyuz6SkPXm104Aq78EOVn
nT7VSUO5/+S7Q07ww/Yz/1ykWmiodEfigcAofhiBNwqjlTTUJRpx1KOSHzyO
pa9kptKQ6ulDfg4aAnBCRTtcxZyGtNd/2561QgAueoI5azMN6ZF26g6tFQD6
xWM/qUY0tDnW4vt5YwFwoeR86VhFQ/tytBzuOQtAeOhUsjyHhpLaxnUplwXg
prx3h/WEOBJYc37gwYQArJ0wMfVKEUfUub8vZ2cEYHRl0uGoBDwfvfDMNCUJ
wrzB6xspeD7iWrs5fqYKQrB+0r6cYHFkeND0laCqIHxykdQ/whNHp6+JZu3d
KQjtB0L78taKo76pZCfR54Jwl+ptzWgSQ7c2rT715ZUg3CYWllTViCGXuKbL
D94Igu/zkH63KjH0SUWgfnuHIDRv9JO8WiSGWrZ7b7g+IQhFFbGnruF5sPKh
FVdbYwkMDn+wVXEUQ8knyEM2yUtA5k5scEAbFVn2Hz2b4CUEHxwifWMqRJHZ
WeX7Jn5CcGMF59DZx6Jos1TXpz/nhCD2lPA2Xr4oWm9qrb8nVgj0JkWWLU8R
RRq3dSeU7wgBOr1KcMcpUSR6cJJX0iUE6fUDjw6qi6LGvrMOHebCMN8dLeAS
J4Js+uI1ORwRiNffzjIzFkZDr9yC6wpEgbkp4XJTsiDSkfjANnYRA4fZU9t+
OfEhEWJqf9eEOHR9cbxBI5OQ+a/df5Uc6UCOIPsmrpuu6njpTt6tJQG5oW1r
cpeOVpVEVe/jTkmAp/W1AOPd3VWHBHy6m5okIbidxTWLvE0c8A4soaYxQP/h
lX2NWj2E7mHNJqv9TDju6VBZ7jZGvJPUEvUxkAKqjlLLtMMs8awwNF2LTxpu
tR6/k7GZDIFkDbvGL5j/2MxqxgqASFfAFo/ipSCz9bfCZLQw9OcqJmYFyQB1
a+1QLlkMEtVl+cscZSFfbfpB1Ro6xKcdqt3PlYPJrEDqpXQJ8D0TeipIWQ7W
31a9k3FDAvbZZyokq8rBwo3AjrzbEqAl8sG3UUsO9hlu+/v0gQTU+5uqrzOQ
g92mX0fyX0kAZZdKNNVeDkZKncSHhiTAZ2mP5dMwOdBbamlRtVYSnCf+/WmJ
lIOh8NmhvRskweSdbPZwtBwE5GzrmyYkQfLCtjnFeDmg8/F/ULaQhMI/6F7s
dTnIDes6a71HEn60Z1HdSuSg6cVjxZFzkrA7cW8TdUAORD6EI6dXksB6LCJ/
bEgOule9z/1QKwnfWp4erv8lBxf7lSa2NUqCO02SHDkpB0+Ewh+vb5cEj4s1
qxfJ8hB1WDOm7bskhAbrpo6x5GFh/UoHNWEG5B0nu3+wl4fjyRba6ywZcDym
sEjPSR4M0ydbODYM0Mnf8y9hlzykNTyOJtsz4NFASZKtqzx8NZxTK93FgAq3
o/V1J+RhXv30h0EeA5p3tuo8i5KHSjGdIudIBkyb3J7JqpSHxOnPIyeeMyDo
WVZY9Qt5YPHrzAYgBpBWpYkNVstD/GKhd9grBixRuKy4qkEeKEezbkXWM0B6
xs+i+iO+/7ePLxzbGbC6wCr1x6g8TPLXy0oNM+CJsrmy2KQ8iJBmJz+OMGB9
2qaClX/lgbOiWi5pjAGbL6x9EfBPHmzWnTHi/8sAu/3cQaoIC3K8Q27dITPB
Q2pSf6UyC1ZsGeYTlmbCeMzIS0dVFvSZNoadl2GCD2XQKmA5CyZtvDTH5JgQ
9PuL6ytdFqDfVoOvFZgQU18b5WjIgvlysR695Uy4eza9w9+RBfrSfF9UNzBB
a/KaW+ZOFjgQge9tjJhQdDR++OUeFtz4fLvRi2DC0x0RJKobC4I2mtbcNWZC
zcqT6pkeLBgtp1z5tJUJvf2b/V5eYMGwgnPS1j1M2JzVdEsjBt/X75mO5V4m
3Ni5+23CJRacVrn/crMLE/Y1eCkduMYCvd9/WhQPMOFT0Y1GvmwWdN+XIpKP
MsHgqNbfY7n4fJd+94PHmZCiXKrYlseCiit3T2p7MMEp6d2ZnCIcH26x+j0v
JrwPXOCaVrLAudO309mPCSvXXNxa8IIFvIazH2f8mRA/InVG6jULSjteZccH
MsFmv3ZDfwO+n3ZR+r1zTHhj5uwT2ckCTwOnsqRwJryUKK+vncT+t3G1ictM
UGwwndSdZsG0xuoy33gmBIe3cFLmWEDV/Nqfd4UJG//+OMWjsMEhNEpq7ioT
yruWcoTpbJhf1nfWLoUJsknZW7wYbAiqPFXpmMoEP1vdU53SbCgevxPlkMaE
tS/N6vLYbCC9OFu48ToTHt3x8bbUxMyy+F2dxQSJ/eSMRzpsuME8qpV0gwme
cnG1cqvYUERV7XK9yQSduBzWT302nu97L/TcYkKc2Qrz7YZssFqqcC41mwnD
i8+8nhHYXhjvs0UOE/K9W2tizNhQKnOtKuk2E4S1XMYmLNjQyH4Aq3OZwOsf
kne2ZsPwXxN2PWbVnRQvLQc21OnafOm+w4QIiUvpiTvYYFI6Ve52lwl9b2Rr
5nezQf9YyI8vmG8ZrZR/u58N18fy1FAejqeNSNicO7a35+E1bj4Telx6h5bz
8H+3nyqBmCleFfY7j+H7rZl9/w6zcui18kgPbP/l+QzOPSaYXPVQKvFiw90n
7NDDmN1zzC/2nsb+B/qcy8ccXsIdl/Bjg+EG9fgBzDk1M7sgkA30Lx+KOfeZ
UP3x/QuPc2ywW6I0ZIu578e95RkhbIji5GsHYuafDb/SEM6GNlPa2RuYVUT3
zcxcYMP9fWPtVZhNWOv2q8fgfAiPrunE7K5Nr3e6hP3Nzk8bxhy+cXBFxBU2
qFsi8izm27YvUx4nsoHb+Y5HLsD94ppO6klmQ8eg71sK5u9ep3n0dGy/zUl7
Aa8XDLNu3pjJhuoHIpETmFUTVfVP3MT+2a1s78FsdnsxKz0Hx9+SJ9OI+dCT
jiVv7mD/Rq2sH2COrH14cjqfDaN2QV6xmHM7Ln5ULcT+Gl4NPYC5ZvAA4fgQ
1x+hc04P8/dZwzthxTheuYP7F3G8BKnStEdPcf4D9mtWY1Zj/z7TXY7jEbGy
IxTzFp26r+KVbPC0mTq4ATOPuGlm9IINILfl/S+cr7v7t0un1bKhOVrQCDDX
eWudq3vDhmnPO2u7cf5/hAl8//MW37dnk0AAZvXcpyXb23A+lzYsTcf1suVp
PDv0IxtUGL+clDDz6o5EFH1ig5/gyf3ZuN7yhuQdxf7D8fL605SA6/HN3GTF
hj5sj6GtTcY8RG1SOTrABiqfqvURXM8ausGTNb/YwLOqrFP9f72f6rsaPMsG
oWbpY064X96EP58r/IftDf2+moD7aeha0oEvJA5MFhkfq8P9plm6ZfX6JRyY
T3okr5jJhPvz999PMDiQWEiBSNyvjWKR65WWcqCtZ0nqZdzPwxyXW3ZyHFiB
dOMScL9rbZLwLuD+f/9ao4gkJhRE+Egc1uYAy9jQj52A1xvuDY1YwQH0WsNm
Jv7/+msykb2aA/RSzeEmrDf5bsz2bgMO6B3d4Hs4DseXeJyy24wDo+vdoq2j
cDz/pAn7W3BARfaJy99InK/C0IBkKw6EG736mRaB88+yd26z5wCYdsi/C8X9
MDOqYOPCgdjoqPSfQbj+izrij7txIN7f+Jsb1kNlHiLHHOSAnZttTSvWy1sf
LvfWHuNAjp+iz60zTMh6rHNnkx/2d4IpNXGSCWknjuusucKBUtOcnS54Tvqk
4pC1PZEDwYvWFSexvst2baB7J+Pz71lm+mP9T7EUHS/M4IC6xFSr/y4mXFPL
L1HPx/GwF3mtuQ3r838DhqxXOF7j20q24/emOeVdwfoaDpA+GQ/MGjKBZveU
s6ueA/psG+/09Uy4VBlJSnqH9zc4XKxbw4TY9GXVtC4OmAg/D36vyYQLjge2
8k1xYDqoOiAbv5e3bLucD05zwOFj74dbDCZUWDh61M5x4K6f/Oo0On5Pjcyv
xFAUoOJR2zdPESY4q2p+ZNAVwCTL/cnzfwxY9XfcTUUT/5dNfPK+hwHWY8dO
R+ooQMfe+/fsvjGA97Mv4sdKBZj3eeZZ85kBGd8+3L2vrwBBtvn7UtsYIFRX
PqJnpgCJMdo+Xa8Z8DUlNMB0vwLor2n63pbLgJmEuZg77grA77nds+kWA5hx
pzOEeZjX7k6tymSARcgh9NZDAc87r55HJTGg+IiloFOQApyebp8tiWDAxfWS
CYeSFcBu5+F0fzcGrOm6mXfhLbbHPUePl2IAXYc3/aBZAaj5mv1NdAYMn9cx
72hVANfzr2QEqQzIUX7Wp/5JAVRCChL2UrD9Y20Kb74rQJGCUUzRiCTMBvFt
FSRx8TxD3dv3WhI6Rde+2CLLhcbaQ31eHpJQo5f6o0uOC4Zcv6dPeZJQvHee
5sXiAl3hQ8qUmyTEP3i5L1WBC3ol24N27ZCELdtt5weXcYH3bcv5F3jeLE3j
rYtZxYWd2wY20GmSkLI8veDtVi4Eb7MsS7ojAZMTZrfDrLmQUnaocAueh20r
x68b2HIhdlT392iKBAhut4y9bc+FLfRSM5WLeN4Nmjl6dhcXmt9Ij0sdlwD7
dzvUtQ9zIX7ynrOSjgRQfZjZsaFc6JpZFl6XT8d6htI2h2N/bm5JNLpFh1fC
xxOmI7jQJvwz8m4qHQIyX4W4R2P/Q70FXaPoMFjr7WoYz4WgmmYJx4N0qJFr
YQ9ncOH+smZvBzYdzqO4lK1lXECDkupKojQY+oISZ8q50G0hN9P6Vxyc5ibi
71RwAdoGg7z6xEFr7e5oPsSFUeWQsJPPxaHjnmrAsxou3NBq+HTGQxxWJVft
0WzjAmkmWrGgUQy+nxjjiP7G+5H28Rh/KljLO95+o6IIwZskXt25KgwpfTpo
j6oi1tuEVc+ChKGvQOjzsJoioIO2Cc8OCkMQVNBpmorQXbdHLGydMNw/qBy0
fSXmrs69Wp+EQKRozL7LCK/Xv1bbKy8EtSaXSCNOisBtF8pE8YKwyaN2j0Q0
/n994MUSgg9mOwbNqi9i+7emdrZy+aDYmLrKN1YRSKfuTUZS+EBVdpvQl8uK
YDcWwcl9TQFq9afiu0mKcCNIKvCVJQU6ZEfEIAefV3/Y5rQdGTxfM5FHFd6/
dUvPXMICkcVyU2mcUgRXpyXKO/6bIlRe3Umy2aMEJCmvZ/R3DUS89kuN95VK
4OpT++iEz1jVoQn+lnoNZfCkDlwraxJAbg/HudGXlWH0Wb/l6y4JdDx0+7zl
FWVw/Zl3v+GfBPLZXvyRelUZkPtsZC9HEkVN+VyKT1KG6dMbn5jvl0SFBjNz
yRnKEKXifKbnuySaebH4IfcePv/nmbUHpxgo/j01rrpWGXhF/knPFaRRWvYJ
XmS9Mqh7KVnNbZZG2aebjLc0YPupfHxbD0mjJ9Lxsw1NyhC8JjOCWyCNunYz
eK3tykA/cdUpZ8NSpNYra9zTqwx+AiU/JZ1l0IriAE5OvzLYha0q8w6WQesj
Ps8cHFAG0u/mxr4cGWSlllE0OKQMIFL6cfGXDPI+xuWMjSnDDWGDKYkQWRRk
GDLzaEIZVlBeH+fPlUURYj1tp6eU4UediLVwgyxKeZAdMz2N7+O5dJellBy6
Fcx/uHwWr2dHx0Wul0P3th3cHDSvjOc/EcN2FzlUrFTD3riA7VHGeGsj5FDl
hOrM4iKOp12iTH6+HPofnDjgiA==
        "]]},
      Annotation[#, "Charting`Private`Tag$1948#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVl3s8VF0Xx2cw0zDDIVKpRKOUO6kUtVeuhZFcIklSufRISEJKUi6hkEKi
QkooicLTww6VcomKkEq5FCLSZBhm3vP+tT/fzz77nHV+a63fOkfZ46jdIREK
hSJOpVD+v2ad9qDrHozfoqM3PqZzsLC6/p2StZOSD3Ja9/GW95K4GuGL6igl
pVBUYrbBxUQ+oyYLJy6nKcWhtWvPTlmyCmp8Nx8/MrU8A90I2r8tildR847v
nTq+vAAV3TM9zmhrqJn38Zvq6PJKtN8/S27Z2c6aW69vBIwsf4XSVi8Ktur/
XnP/QdxHX61uFB+bZ//3zFSNF2rL+BnYh341CjW8TlOw38CavrL7Q8iPk/c8
JkYM97p1MZ69GkKBF6k3H6WJYfvOWK3m/iGkW76U9f6OGDZo/B46oDCMuh4l
ZPx+KYZFH96Wlo8ZRp+O28flz6Ph9HDlLSf2jaD7rPCnQ+do+Jns4oyN0qPo
xPmNAZ+C6VhC+ZzqF4NxlJd7SC7MgIEbjJK1T5uNo9SoQLPvpgwc7Zy9YZnd
OGq98SLScicDiyRVWOz5ZxzpJ5ounfRh4BnBT68PWeMoxzCts+kaA4/0ON59
IzKB5L6n+eXMMHBTuuoa3DSB7EPo0h2l4vhCmb7uvq4JNPt1pkCsWhxva926
UTAwgSZj1u9Y80oc189z3W4knECvY6P+dfgijp8GJ/lU6P5GSm5BS/SZErjY
Ybqg5Opv5O70kCe3XwJflG5Uu+U+iYzOpa/eR2Piyg3Lym38JlHI3LZytjQT
97sdRbMnJ5HzkeykHgUmNiyWdXBKm0Q0XYO16jpM/GO76ynJlklEbFNdbeTC
xCZRo29CDf+gvrLJVo0iJuZxieN28lx0Ic5McbsFC7OXeQiFbC4y/5AakWbL
wjamZXHFulyUvyROu3s3C99Occ5mcLjIIdb9pJEvC9tp33pZHcVFbhOva4OS
WLjYW09BfYKL9EQuSpd1sLDHR4ca0aa/qFOx+c4RF0kskfn1SEDXX5RVWOGs
7CGJS138ln4Z/ItmH4bUv/KRxKLdMaFV1CkUrx7cxAuRxHmdVWsDNkyhH22e
2W+uSuLBdqW7n3Om0K0RRUv3Vkl8uPVnUmUoD0nYD2NJQyk8PykUqcbwEFv2
UJPzVilctYM+lprKQx+sy1LSLaQw881yK/8HPCSl2brjr70ULmq2o6kO8NDT
m3Pxar5SeOx1RWiq7TRa4KjNCr4mhQOen/M4qjqDnk2MqmeMSWHFfnP637Uz
SEa27pvqpBRuFBG/Fw4zqOzyusaiKSm8EhIn4nbPoPHS3zoZFAJ3VV05kxc/
gyx8mnfMyhB4a0l+dtevGeRdLvZxRI/AYy3exu6zM+hL44PCT+sJnDmqNjjI
4KOCrbzi55sIzFV7oPlHmY/WWu23CDEmcMHtJ0+lHPhoZcflZq+dBJbJbOg2
qeCj041hqv5HCFxdeeH063o+WvqBL/Pcn8D/dFqv2NnGR5LGClrSQQR+vqDN
x22YjwbWafNjwwgcmtTFC1k6iwKvVP4QiyHw1/PD8vfPzCIRfVuZVdkEvphX
VKWfOIte6t9Z8PkmgQ3r/Nz+zZhFX1IzrRJyCXyFMnm7oXQW0Y65WjfeJfD2
k3z9vv5ZpHVny613pQR+6M+yX7R9DnHHzqVLPidw0zXZ0OJdc6gi/Hq140sC
D9Yr3DA+OIc2DH93TXlFYIXFa0Z8I+aQ90EFkaFmAp97Zhb1rHwOpbePjjE7
CJw9Yl2wq24Obdyf1zH1gcAVCxzejLTOoatNF9d3dhF41MdjifzPORRlLHQL
/kTgXfMjHh1eIUDqhTZ2q/sJ7G8U3SXUFqB7+nn8JwMEvuCZKEzdLECDWZrL
jL4TuKYq06rGWYAuET0NysME7u7PCXDwFCDBQqp91AiB/0jdSxs6JkCrKS6O
XT8JvPpARZ/sJQF6cPROrccvAhsn1ogXXBcgyalMzavjBHZ98kJ7yz0BWuVW
L109QeBkZvtJ7+cClNBYgkYmCVy0rufW3FsB6mwLih//Q+AX+/pepvQK0Ncn
vjuGuQSeeTQh+x9fgFTYPPTvFIHlPvM22okLkfvdeN8UHoG1GBT37/JC5CRp
L+M2TeBtevOiw1WESMLORktxhsAHXKWKZPSEKDT4VN1bkk9HL3ibj4QoL6y3
9SSfwOklS3mGHCG64HZi1+JZApd2sxXbXIRIY4WxQyHJTWLqpp7e5P5zeK07
R+ZLS+8w/zh5ftuxiiKSKbs3JiVFkfcv7FJcKiDzFwWPVyaTzx87NhdB8rpi
i56qbDI+aWOHTpJtP9iI2BaR8c83Za8UEvgwddfqgUohUvkTetiT5HPqe23C
XgrR7fK+NddJznY8GES0C9HXXZH7X5BcEfHPtbxvQtT5wU5mgOR3BYF447gQ
JRg4b+SRPPYudLBlToj4IcldQpLFIoBeSqPAqgzBBJ9kGTnTjHAWBaQybpz9
SbJigYWGhSwFSkKC4ttIVt9iVSOjQO4bnGIVkmzwzsauR4kCqz9U0kJJNvO2
G8hXpYDAUe2EIcl2c44hAVoUSCprcf9Nvt++lN1Mo3UU6PmdX5tFsq/q3my6
EQUGpR9d30xy6FN33TZjCtyTmhxrI/WL3nmwPnM7BTR+ela6kJw66OXkaUsB
7wKp2Q+k/rdO/jOs40QBd/Phx9tJ1sHivJi9FOCpl56qIvOHxe7SvhyggE7+
8AZlknsT+5US/SkQ7lwc3UrWg//bs1r9wWR8SRuWLCZZKK9sZHiKAuZ79XKd
yPpRvLnXaSiOAglloYmP/xL4fj//ICRRQBG9+NVB1t/mNdcC065SwNYtymyU
rE/X0o5Es1wKpLjsaOT/JvC1+h31t56S5y214OYYgdXEx9p4tRRYFCbc7D9K
4EpOwpcdryhgumWr9nqyXzo7Gmbm2ikQdk7+Z+4QgeWHtuq6/KKAG4Pxhk72
Z75m75aHXFKvnr3e0d/I+gk8bc2YpQDLXIXL7yWwA7/K6zGDCgYdIkMNZH+n
SOpnz19BBfoYfdMw6Q8r7N4W+qymQrTXV7/F7aT/XPWvxFpUuHtcI23LOwK3
Li9+72dIhYYdcrWH3xBYSm8Vs9GBCmf4apGWpB9lB9cvWrGHCrOLL+xcQ/qV
5r8eq0L3U0G+efcCQS2BrU1vbFX1o4LGhOWJuGrSP3YtComKoUKTTlCeajlZ
/5mPz3cnUsH0j5P0Y9L/Cr44XNZNpYKLddHRTSUEbvBOvv/lJhU8qvIZKwsJ
TD8pMWBYRYWxxG+5kaS/nr0xu/PPTyp8mx8c4RxH9otORYD6JBl/ss8jx2gy
X8+OJXtMU0FBn462RxG46ttwaytNBET6N+2VPUXg3yu7dhQrisDnX8nla0n/
9ygq53jaikDTk7/teQ5k/WwOOJK1SwRsAsLPzSPnh6BZI/G9qwictim84M4h
8/krt8nYhzx/TCyba0bgt3opVsvPikDR4bzeQnI+ba302975SATOMDLbt8mT
+lmq+RBVIoBnSwXS8wnc0z0Qa47J6+WCIt5IEjhk1rWhrEkEoh9MxGjTCFyC
rCySB0TAPLm77CQ5P5VeqJpZLhQFCu3AadMWKUx51wtPw0RhW7FNa1q4FD43
VH0rLFIUxh6G+JYFS2FxSpbIxlhRqFJacu+5PznvNXfXl18RhRajV+IvDpLz
N6bN4kGJKHT4vXbZYi2FLQ1rbXIGRSG4yt1EcrEUvpyb6xprJwY/fvVoqdyT
xIuqIv8z3y0GqRvlZt7nSOLrrfsUae5icHi0zjMsUxLnzy3pjTwiBhcvJ6jk
JkjiCqfUAydjxaCiq1bX108S9zDPH/arFoPrnLqUHm1JvCrIM8RBjQYp72SP
rr/Hwpqbvtjf0KHBeqd2O5kcFtanOGsPr6cBIy7e9lsGCxsnbB+MMKGB0VR7
hmccC7vlaTgUutKgZ+7bAZ4XC199/1tb5BINZh99agc2C9PWRXx/MEmDp3WO
uodSmJjFn6qdmaaBpWSxvWgcE89/5p9tRqGDBG36UloEEytxPBw/suggJ/Tb
lePLxEaHzOroq+jgtuydwlZzJg66wryx15kOb0XCI3OnJHA/N20X8z86GAXY
vuDbSeCcrWuPfaqjw7mFyUdDLCTwvsSWSw9e08Fbe9+JIUMJ3K1Ce2XfSQdW
WW7OXRUJ3GYfaHh9kg5YusUrkyuOqx9aK2mqzYOGhXeL7K6I47Qj1GGbtHkQ
4hqgxGhiYMuBw6dSAhigj51LLsrPw+an2EWmIQz4sw9leDLmYeMFPd1/TzPg
+pV067UzdLzJjGOwJ4EBRbU58ws/0bHabe1J9h0GPGXLL5XLo2PmoT/e5T0M
uEkNVWnSouOm/lMOnRbikKChzXxvSMM2/UnqiooS0Ltlr46JvigervM401DM
hHT9zQsfDc7VaMl0LDPZJwlY+xbtl9VkjQTi7u+ZlAKlyOrUpnW9NRajLlMr
HKUBH/zyWlDZjjprD1JdNGSAsnPdGtFVf1B5bL2bElcGbN/kt52+TAVP2vHe
lpb58MP9ZVKWlwQcCDxZzromC+knBioC82VA20u9xXq/HCz17rjD3CkPb+Zr
MI9vXACskv+WlVYsgX/vn83UEJUHQc1jj2XxSnCSqmbb9EkezsoYH7K9yQaJ
nrBtfmULIT0rjHf2/SoYyFdOvRG+CKq6Bh7IzqyB1NWLxSodF8PN3opPPy5p
QtI1z5f7lRRIfRQuLIvTAZfUvS2s7wrQmcm2G3DQA57p7ekb1Uvg8+Jkqcy9
+tA3YBxSG7MUTu1IWjjotB5yNusuad6/DFpRkoH0ZQMoPn9cxktTEWIc95q7
/reJXA9YiXIVYeraerGAcSMgP28KYpqXg2PgBZ31PgjS12QWN1spwdIL45wN
gwARODHdqlIJTNbVpeYbGQNniePt1yrKYP9Mt9kw3QS2+r3cIxOnDMIt3J68
QVO4sdRDpYmrDJeuWp91cjUHlbo7V232rIDAdD2t23UWkKRZq/a2egXk/VRV
u6O5HTwnxdpeqbFhW2TDvd3PLMHj4W+luEtsCIqWj99pag2+Z+1nLZPZ4PtB
b1LVyhqO25d9YF1mw8vpX0rCndYQyz1+MekqG8pKrZsf7LOG+xun+WlZbPDk
XvJROGkN08+EHfmFbJCt3lwiV2oNSW9ZifUv2VDquj44S4kD13KPeEe/YsOF
bt+UBFUO5Aa1mGxrZMPzNaZB4VoceCyfNNPYQsZj1B7rZsSBHhdZ73ftbMjX
i+SqO3NAtW+xybc+Njh5UD6NXOKATlmYYt4AG679NbH/fpUDm85/nD70nQ2W
rqsv9WVxwFo1q2RomA0dme+cPhdyIPAfJcWJCTY0jDzS+PSSA+FGkdOlk6Qe
TMGbzy0cOC/57X0Qlw3qsz8MvrZzIP1BbjyPxwY1u1t7fvRxIOeMmFfVDBvM
n/gtGB3mQOHOQ8bhs6Q+oz2pvyc4ULbixbItAjYUcUe6eDwOVE+umiZ/IEHQ
ktkvFHLgf47j2oE=
        "]]},
      Annotation[#, "Charting`Private`Tag$2005#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {GrayLevel[0], Thickness[Large], Opacity[1.], Dashing[{0, Small}], 
       LineBox[CompressedData["
1:eJwV13k4VN8fB3BLqShh5s7YDSPr3JCSspyPaJMkS4tEJpqKCi0kSRHaELJV
luwpVLLHWEr2fSkqDEKEbFn6+t3fX/O8nnOf89z5nPN5f54ry7xk7sjDxcV1
gpuL6/+/z72ZfBoOD/RrtK9fMHFT1KtspZkcpZ1Dlq/C+tMKOforn0p8abTr
iPeJKzIv5EWCobnZ/F130CzfAO2GBgU9Zz+SWU27h6LOH62XL6QjxoRD0Aor
GKloKmhVt2xG3wRj/1vuDEVPJM1zLTW0kHzKOq3FpSdopd6+v2+rPnLWu3ph
XiYaxWcpPV5daIjetfUmzRg+Q7nC9HTW/D606GTSM8WKQ5lVH8IiWkxRPHfP
vfndCcixQajuc7I5Mqp/vGmu8wWK1OKeVdU4goaj9pbNnEtCw6GNllcErNFD
h38200vJyLC/1zVhqy1qXTobPimTjn6vnBxqLTiNrlVJq0+8eYnWFllNlxqd
QeJhbbXjhq9QfCRZR2r+LGKqAO8vVhYKqX0gq9JyEfEseTbOeGWjAw9zfZ3/
uaC2Xiupmd1vECrQ7L6R7IY8XgkU/Ol8i0xbdRzK1K8h49Ahvj/x75C0ydCm
eZIHkvQos5w6l4PKmTZjHH5PxDZ0n5xYeo/E85Uf9Wl6ozXd/YrjMgXI99Du
71sKfFEX+8PVseEC1L0wppyy4IdepkRV/HpTiMgfvn6bNvRHpm6mdqOGxUih
8+RXqblAFLGuMOInqxSVkEocUpuCUI67sdtlUTbqejf6bEYtBD0b3S427cVG
E9lxa+4sh6CLTSKsP7vLUM/xpXn7pFAk8uwzz1RnOYopSDqhqRaBlgRz0110
K1A35ydzm3QkGridaDYZX4ESq1020kWiUC7LO3biXCVaemT5g702Bllrbt35
e+kjyiu3GeHRiEUJNXGuv2SqkcKh4uCy3EQ0E/Ve5cfDahS9ee4/odNJaA+r
ltOyUI04fzcxDUWS0RjvvFVhaw1qfW4Sa3Y9BWnrme68F1CHnFe7C/CfT0dN
Wcs8ihON6Ked/57e9iwkgtbZbtjchPqlczcqH8tGOgrhOwMcmlDDwbDHLZ+y
UdBM+rRncxPKGBDE3NPeoK2P2x2ZGc2IKfn1wKqb79CtGoaxhl0rYnl9MaU5
5aG0N3kKGU9aEf3JVJj1RB5qidrFu6muFQ17yVmuupqP5FnHikV3tKFk3r75
ZL8CVMPrt5mL1I4qaoPiZN4XIYpet0jjpw5UMfRc5QLORplZ97qdN39Fga/k
2WdtPqJRkdGHxvZfkVR7x46bWR+R4jVjfaXwryjFuDJdnfcTitcVSOAsfEWl
J98aXHn1CYVWPzxj/bEbZX8ToF/g+4yucYKn9tp8Qy+3aPyR6KpBcQK1vsK7
e1GVTWP/hutNSF/vho2PbS/aaDBzyetVE+q5qLptwr0XZf3bVbijtwmJtjwY
qnvZi6Zlp53i9zWjx1Em+wOF+lDs8tVAKakW5LupQXCluw/JFENGUxtRF9Qc
PebGQXe9rqcPe3cirhdzhd0POEjyrRhtvLATRa2S7KlJ4iDGQXmW7nwn+lx9
Rjq9g4NGLT/uK3LpQkqWyy8cdw4gg3j9wB2sL2j4rOKr79yDKIRydL8Gsxud
D71Z0hQyhIQtli52BP9APLMvfpSmD6Fbf8u/bWr/gWKOfubKKh9CKbcyg+w2
9KIaSZLho5khJO5heo1l0YtUU9Oq9h/7iZhhCs4afb1orKi1qVxmGAluLaW8
5O1HFweVOTmZIyjSWDxc0GEA9dp+WVtWPYIGiquT4oIGkEVX4Ob6gREktd3q
2omCAaRd+/P6oPgo0jXjMbTYOIh43yQLUQJGkVyEVcuuD4MoyktW393uF8rK
vaIuKfsTlZHEoncIjSM5J52me2tHEb+sn+IP7Um0Yd9r3FFlEn3WfazmvXsS
ncg65rjJcBL5H4vdLmU+ibqO7nafPzGJeELy955wmkSvn5Okmh9NosX/xlid
zyeR0ePDFOs/k+hXj1VaI88U2rgldrC0ZArVRSkqs+umUGxIYWqFwzQKEqpV
STg1jbIH3cVHBuYQs9uylLduDmUfbVHssV9Brh/9mJcUFxGWcjE61HkVvHFZ
byG6/x/au8Y4f53pOki44TSqfpQLrN2xGivBjXAnbvnwzBg3nLXtrFrNEgGu
1l4o9uSFmjNSn8EOA4UrZzwsVVaD63GOtEORKAzMRh4R+MAH/dlS9kVzEmA8
eP5mqOtayHbJTrcPlAHTgRBVaWl+COxaeZARIAujFUyfz68FQLydZ0lJhQ6b
hTukDO02QGb90lPVn/LAj2bte6YFwcvlTa2ehwLsHbeel7MSAqNhnig1shJ0
lTtwWzOE4ZWUnqfafWV4H1hpS5sVhlC1isSOShVIM64VDfgrDJ9imfxd1SoQ
s76lZXxJGLD1c94dDSrgE/JjTxGPCPR10O7VdKmASdTi5iNCIiDp6c8JGlOB
/lT1lQeqIrBFcFupP0kVBKuexc3bi4CshKEr3U4Vzqy+2tvQIAL3gyaOh46p
grhMdedSswhcNvE47j2pCg3aUo1K7SLAlny+nzWjClrOHz/c6RaBJUONGbVl
VeBrxZ5qDRP7bcjUeybAgOT4XKtYbhIcCjNY/K7MgAGdvzUXtpIgSce+duU0
A6KsTMpjtpMgoa5Aw5/FAJNL8QVVO0lwovXjgXVODMh5sS9N1oAEupzdYavd
GOC3Lvpu+0ESFKdN7+i4xQD5zh2gxyKB2TvWto4YBpx2u/F+fQwJKoOEDxk2
MEBry/f3ys9JsL5kXZ9JMwP4/0DunngStDk3C1i0MSDblS/PJ4UELi5n5a2+
MmDZ5XH+zFsSHMxpw9WHGBBxKbWop5YEMrmvuOEfA6qdW8te/SNBuMKm2AIl
HJ4xtMqruciw/CY701wVB5exqPIhXjLovt8tOYzjQHG2raDxk6Exd4VvrSYO
TKeRynAKGZj6dYMSejgsn1up8lIj1v2e0ELNcFBjqTaY2JPB6fTkjowrOHw/
J3PptQMZQkpPH1q8hsNDZ5KQ4FkyaGQYthtdx2HEdelw40UymBdfVaq7iUOi
V237YS8yHG6qSE30x4Ea6vTtSCQZpm4W9l2OxOFTuJ13XgwZjice7fCIxuFK
pIWMaCwZLKwHSNef4tD8TMf+SxIZ+Hl+2DnF4fAgVWDwxFsy4JTKWUoqDivF
GWOn6smAMkx/BbzHIbM07lFZExm2LWsbQR4ONuVhm+XayHCkCi+ZzsehoOqG
C+crGZqN1QRMinG43HJgxnGYDO/z9lSUlePw8+evpfO8GLhJUz1KG3CIGP3x
rJYPg1DHyXdKTTgYjbfqMfgx4JnzH37YjEPCn6Jb40IYiDvVaOxpw+HEvwe8
LtIYZKqk/7vxBYdGEYbA1R0Y/A12MPjTj4P+hQsjT3UxyLqrZjnPId63KrOq
HGFQk5XWPz+AQ5CXhp/QHgwixy3P/xrCwWRI61+GOQaMPtPRp6M4FINHd4sV
BtZX9sZ7/cKB8bSgYOEYBsJNRmXHxnAQMNO9tpfIDaVD0zq8v3GoKTCY6HfC
wEw5/AttCoedZN/6dZcwKBpSft1D+OXFygx1N+J5ozXdYX9wuEffe9bbA4Py
i1v1ZqZx+HszcE/yDQyc9Q9feD6Dw9muavk6bwzI7w5NGMzisO+RSZ/YXQym
VAN7veZwyP/5qBQCMdhY9PAAaR4HxV2Nz1kPMFhatZYrmTDf/GHr948xeO05
o1v4F4ePp462msViQL0TXJuxiMPWoqg37gkYrE3W2iu5hEMS9jU4NgmDid5L
SwGE/WpsTMZeYvDqGm314WUcZuRjVUiZGGTMWB/JJHz61o+1O99gMN36upPv
Hw67tjI/BuRhoB8jw0wn/DYoMTGzEIMufOXMNGG5kYHb7R8w+HHDI0z7PxxC
DRVOLbMxMMScBj0Ic8ey9OmVGCzo5FrnEHb5myZpXIWBAEd7apRwr/nooksN
Bvczm1MkV3Awe636JbKeOL9p2+v7CbPXXMgracLALr/kjCthdWbmk8FWDGg5
Dc7hhOOLJy6v78RA9pDzvbeEhaga5ppfMch/caWwlvAtVzd1628Y7L9e+e8H
4d+17wRv92JgZKp9eIKwrcLsWCoHA2XTV28XCDf4aNU2DGFw58iyzAph/W73
9NkRDIZneSP/78xtBQGS4xhwOcdiS4SlQhYdDScx8ElPiZ4i/HBUx+j8NDF3
zOZpHMLLRjflHs9hUPH2fHojYee4Eq78BQw02r+q5xHuWVj5/n0Zg+POsu+j
CZtYGnxYzUWBLd+pW90JF2XeecrgpUCJQWTGIcJ8JlbikXwU8Kj0lpMhfHhE
MZqbnwKeuvUZw0Q9n/kvUp03UCBIuNLoFeGf9PqIDiEKBOsnjZ4jvKUsDjMg
U8D5cGaMLOGbtm7hGVQKyDnJmbcS50mKpob6SFPAkbK3Tp6wrdao0C9ZCuyp
vnqvkrgf6a3FwVabKPDiI7+hLWEkyHykwqAArmYXf4u4X/cztq5/okYBrSPR
+msIt+9b82BlCwVcd6o1BBL308n3VWDbDgr8WrHNvb6AQy7t1hqkR4FHmi7r
Roj7zF1y2D8dKLCpunaXOeHIv3O+3nspwBYyOSlC3P/+J9U8I8YUyHw9oH2O
6Bdc89ltC1Pi/9zJmigg+qnigsEtJSsKDC+WcPYR/SYoQP4v9BgFJOWuSAQQ
/Xg8bcjr3wkK8Afq0kuJfp3of+DZwqRAzllOpCTRzxLHOq56uVAgAvOoejiO
w5nZtJmhyxQ49TFfI5rIhzehNy4fdqfAmGWhVRyRH3vraa4K3hQgNzSURo0Q
ebjLybnpAQWaLtXVo0EcSn7o/doZTLyfXUqeGJFP624KnU8OpQAlvNVonMiz
uLz3LM9oCtwfGda73YtDLYPrtHwqsa6jZmPTTcybmpa+oJcU+G3YIcz7FQd7
VvKphdfEfkV7LRO7cJhPMLZtyKHAmat6V5racaBTnxz3KKeAX6FRc08jDje4
VczqvlGga1e/XxGRz0NGAl0KfRRQ2lj+l7uM6LfAMbvbA0S9Nriv21WKg/zG
rEtavygQMvNkLrMIhzrJrcHxfykg7cOXo5ODg7S2fsMVEhXIFnYnpZNwCLwh
c6SRQoWXJ7is/yXg8KeE67uyOBUceKU/txPzpmp3xfh3GpXom1/jbsQ8crHY
t2H/Zip4KN0g2YbiRE6am0jtp4KnxRPmrDeRx28129xNqOB/yV3tvBcxP2bJ
Ni2HqNDkKLqri5iPTl6dTgFHqECLicbjiXlKvm/zYOo0FRo2RDR9P0ecV/KZ
mo/eVIhyF/lGtsCBv8dz38UcKsRba2ab0XDQck/fEJxHBTMfxyK6FFFPka6W
rEIqBH4xjZsUI/J337aTU2wq9LhoDruTiP3eT7heqafCLs90fV0+HMqCHJ56
DlGhn+POFTPKAA8D09/+oqJACT71JTqTAUk9Xu9SJUTB8+iekMSXDGh0z/D4
LC0KHSnvOlJSGKCQuZaXf5MoeHwZXRsTy4BW8QrqIw1RiPokX74liAGbZ7Yb
hBmLwqjmk9uqzgwYTJENj/MSBXGK4rQynQFjfn0LvD6iMHnx8ckFKQb8YSbY
nfUVhWX1Z9/YogzgkpFV1bgvCiqez0W0BRkgHkkrL48UBZ+828uf/qqCWYDM
5OBbUfDi4ld3qFOFYpaUCWNEFMKLlXkCLqhCxe5vb0LGRIGnefSgBUsVaujP
qbMTouCX2WFKtVeFzh+SnA9zohB7dJWDv6Uq/Dkq6XlolRg07HT359JRBaV9
EmluMmLQdc2Wi8mnCuFKYqsKrMSgTiPsaGWECtjYKqRyjonBHU/lvf+CVUA+
XNNY0EYMek7HpG6+pwI5KwdDTjPFwPPzUrbnDRVo67gjKXhJDGjCO+Ly7FSA
dHds6+lAMeBxc88pV1CB0L5Sxw1FYjCwy2Lt+ixlCIk5U2VPE4ct+WI+PalK
4H7tzmUvujj4+fs07o9TAlvzWJlIBXH4VI7rZ0UoAYO/w72OQay/D7/EvKsE
1dd3K23fIQ6nIsnfzzGVgOe4/L315sTzqiOVi+JKcJXab5znKw69FUK+JH9F
sA4/2bD+pzjkn5qjRBgqgOQ7fgmnUXE4RlYSFtJWgB/NeazqcXFwqXq5zoeh
AA4bRbj9Z8TB5+inYQNMAS7e/6S5wi0Bfp+3rT44tAnu+KhFT0lKwNpDCQM3
/TdBujO3Q4e5BDSd/vlEs1Qe/holL8SVSICQpsoWbWE6eBXF+VaWSUBUpWIR
/yo6cG2J2TBSKQFbB690tc7JwRqZYNkttRJg2bv94/4eOaAseOyv7CTWVw9J
VKbIgeZrk+jhSQk4pbbBfnKHHFzEZrQ16JIwQO20IB+XBc7gLo/yAEk4yx9y
oH9aGl7oaUjU20tBmsVDL01i7r++e1WYhUtDiOf1KA/HNRBgdfoA76w0cKnr
1E3dKkTbehLSA+plwKVzPsWLIsCOUn76uv4ADZpOaTpp7Jdk32I/ijpQQAMf
J7OyChlF9kEJq+QaeVkYTpvNWvBRZxtcrDohfE8WfG7lu4nFbmPHSTLl62Zl
YdIhLV67RIctX5EaYXpCDtr8G/0SVxmwQ/BylZYSOQg3dlVoZxqxz0yvaq4m
vts8h8My79ntYzPf/KHdC6YDH4fS+dvJhO18x2LZ+DEdjL5eiGB7m7CvWuR0
rg+jQ05/33TUYxN24OzVoJAIOpCfugSdzDNhZ+5YWIp8Toeu2ydYWrwH2Qtl
Kx0pGXTIX8VsUXx2kB3Ssv5RZRUdYkqNOSKtpuyYxAtn/avpEM7iWiocMmUn
Xmkw3FdLB9poYPe5RVN2LiVksbaBDm+3ui53yx5i91iTzra200HLV5cj7HqI
rcgRM+zn0GFdwpoC5loztnqOp3TSIB3sfTfZXBAxY++8273g+JMOM4quF29I
mrFNFJ9nj4zSob3fiJOgbsZ2c6JJT03RIS6piiZ63IztpXt74e00HYLe6prp
nzZj393Q33Zllg7ljntnWBfM2FFZiQ/+/qUDq7Hl2cfbZuwXPqtYhYtEPbZl
vlh4YMbOOOy4y2uZDvPxbTIaEWbsHLlPUvr/0QGCp8nO8WbskmmFhZUVOvx+
lH/n5Usz9v8AvH/qMA==
        "]]},
      Annotation[#, "Charting`Private`Tag$2048#1"]& ]}, {}, {}}, 
   {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{4.719457358797734, 0.04776041092172534}, {
     4.719457358797734, -22.182839278382062`}}]}, 
   {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{9.20813798538092, 0.04776041092172889}, {
     9.20813798538092, -22.182839278382055`}}]}, 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "2"}], ",", 
      RowBox[{"\[CapitalLambda]", "=", "0.02"}]}], {9, 6},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "2"}], ",", 
      RowBox[{"\[CapitalLambda]", "=", "0.0"}]}], {8, 20},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "0"}], ",", 
      RowBox[{"\[CapitalLambda]", "=", "0.05"}]}], {2, 10},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     SubscriptBox["r", "1"], {4.5, -10},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     SubscriptBox["r", "2"], {9, -10},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{Large, FontFamily -> "Times", Italic},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["\"r\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SuperscriptBox[\\(r\\), \\(\\(2\\)\\(\\\\ \\)\\)]\\)f(r)\"", 
     TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{726., Automatic},
  LabelStyle->Directive[
    GrayLevel[0], Large],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{-20, 20},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.732448364113158*^9, 3.732448448466877*^9, 
  3.732448488397247*^9, 3.732509822821656*^9, 3.7325164082683706`*^9, 
  3.7329504091694994`*^9, 3.7332065392431555`*^9, 3.7333699236639814`*^9}],

Cell[BoxData["\<\"frvsr.pdf\"\>"], "Output",
 CellChangeTimes->{3.732448364113158*^9, 3.732448448466877*^9, 
  3.732448488397247*^9, 3.732509822821656*^9, 3.7325164082683706`*^9, 
  3.7329504091694994`*^9, 3.7332065392431555`*^9, 3.7333699240764427`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"m", ",", "q"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "2"}], ";", 
  RowBox[{"q", "=", "0.02"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ee", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"9", 
      RowBox[{
       RowBox[{"r", "^", "2"}], "/", "2"}]}], "-", 
     RowBox[{"8", " ", "m", " ", "r"}], "-", 
     RowBox[{"4", " ", "q", " ", 
      RowBox[{
       RowBox[{"r", "^", "4"}], " ", "/", "3"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"ee", "\[Equal]", "0"}], ",", "r"}], "]"}], "//", 
  "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"ee", ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "12"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Dashed"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"m", ",", "q"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "2"}], ";", 
  RowBox[{"q", "=", "0.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ee", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"9", 
      RowBox[{
       RowBox[{"r", "^", "2"}], "/", "2"}]}], "-", 
     RowBox[{"8", " ", "m", " ", "r"}], "-", 
     RowBox[{"4", " ", "q", " ", 
      RowBox[{
       RowBox[{"r", "^", "4"}], " ", "/", "3"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"ee", "\[Equal]", "0"}], ",", "r"}], "]"}], "//", 
  "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"ee", ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "12"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", "Blue", "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"m", ",", "q"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "0"}], ";", 
  RowBox[{"q", "=", "0.05"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ee", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"9", 
      RowBox[{
       RowBox[{"r", "^", "2"}], "/", "2"}]}], "-", 
     RowBox[{"8", " ", "m", " ", "r"}], "-", 
     RowBox[{"4", " ", "q", " ", 
      RowBox[{
       RowBox[{"r", "^", "4"}], " ", "/", "3"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"ee", "\[Equal]", "0"}], ",", "r"}], "]"}], "//", 
  "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl3", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"ee", ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", "12"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Dotted", ",", "Thick"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"envsr0", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"pl1", ",", "pl2", ",", "pl3", ",", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Orange", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"5.780228136200256", ",", "76.22552335711194"}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"5.780228136200256", ",", 
            RowBox[{"-", "58.19473809774257"}]}], "}"}]}], "}"}], "]"}]}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Orange", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"8.124460043941761", ",", "50.938543479466006"}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"8.124460043941761", ",", 
            RowBox[{"-", "58.194738097742615"}]}], "}"}]}], "}"}], "]"}]}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=2,\[CapitalLambda]=0.02\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"10", ",", "55"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=0,\[CapitalLambda]=0.05\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "72"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=2,\[CapitalLambda]=0.0\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"8", ",", "100"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(r\), \(0  \
crit\)]\)=\!\(\*SqrtBox[FractionBox[\(27\), \(16  \[CapitalLambda]\)]]\)\>\"",
         ",", 
        RowBox[{"{", 
         RowBox[{"4.5", ",", 
          RowBox[{"-", "30"}]}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(0  crit\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"7.8", ",", 
          RowBox[{"-", "30"}]}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "50"}], ",", "100"}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[\(r\), \(0\)]\)\>\"", ",", 
       "\"\<\[CapitalEpsilon]/4\[Pi]\>\""}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Large", ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Italic"}], 
      "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", "Large"}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<envsr0.pdf\>\"", ",", "envsr0", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "1000"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "2", "]"}]}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.728900364911577*^9, 3.7289004970162*^9}, {
   3.7289005465593185`*^9, 3.728900576801895*^9}, {3.7289006462675457`*^9, 
   3.7289007794800615`*^9}, {3.728900817486784*^9, 3.7289008675449977`*^9}, {
   3.7289009147211695`*^9, 3.7289009272281995`*^9}, {3.7289184092278414`*^9, 
   3.728918412571473*^9}, 3.728924333738494*^9, {3.728924501908654*^9, 
   3.728924541836608*^9}, {3.7289248798115635`*^9, 3.7289248842683597`*^9}, {
   3.7289249925687857`*^9, 3.7289250007042193`*^9}, 3.7289250658386445`*^9, {
   3.7289253594634404`*^9, 3.7289254011655717`*^9}, {3.728925496133546*^9, 
   3.7289255835329943`*^9}, {3.7289263776573286`*^9, 3.728926390336296*^9}, {
   3.7324452575071373`*^9, 3.732445285408451*^9}, {3.732445330269391*^9, 
   3.732445342289693*^9}, {3.7324453780638685`*^9, 3.732445545103252*^9}, {
   3.732445575906972*^9, 3.732445774388095*^9}, {3.732445816430108*^9, 
   3.732445912096741*^9}, {3.732446239193615*^9, 3.732446279695995*^9}, {
   3.7324463674663134`*^9, 3.732446379364646*^9}, {3.732446412357808*^9, 
   3.732446424553502*^9}, {3.7324465485866394`*^9, 3.732446568222881*^9}, {
   3.732446601327086*^9, 3.73244663826294*^9}, 3.732446678651456*^9, 
   3.732446726032914*^9, 3.732446757544647*^9, {3.73244681175449*^9, 
   3.732446818917113*^9}, {3.732446860876133*^9, 3.732447136900488*^9}, {
   3.732447177410813*^9, 3.732447221450418*^9}, {3.7324487209814367`*^9, 
   3.7324488433043704`*^9}, {3.7324488771066704`*^9, 3.732448995647726*^9}, {
   3.732449099180475*^9, 3.732449119782267*^9}, 3.7324491566635075`*^9, {
   3.732449189504729*^9, 3.732449277864894*^9}, 3.7324493367930946`*^9, {
   3.732449390287715*^9, 3.73244939197258*^9}, {3.7324496035287576`*^9, 
   3.7324497071844406`*^9}, {3.7324499941602173`*^9, 
   3.7324500446320286`*^9}, {3.732450082168991*^9, 3.732450102167808*^9}, {
   3.7324502149549007`*^9, 3.732450250322981*^9}, {3.7324502946424417`*^9, 
   3.7324502954617577`*^9}, {3.732450495539658*^9, 3.7324505663271303`*^9}, 
   3.7324506035589457`*^9, {3.7325088693004837`*^9, 3.732508952552853*^9}, {
   3.7325091487719283`*^9, 3.732509166399034*^9}, {3.7325095249584026`*^9, 
   3.732509556804166*^9}, {3.73250959829231*^9, 3.732509602516425*^9}, {
   3.732950425372259*^9, 3.7329504412678165`*^9}, {3.7329505297834177`*^9, 
   3.7329505388184166`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"-", "14.496210769415`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"0.`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "3.9097068170522813`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "10.586503952362719`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7324467590238824`*^9, 3.73244683961917*^9, 3.732447095906169*^9, 
   3.7324471375546527`*^9, {3.7324471955494223`*^9, 3.732447221853221*^9}, {
   3.732448854315997*^9, 3.732448878101791*^9}, {3.732448944493336*^9, 
   3.732448996624737*^9}, {3.73244919715204*^9, 3.7324492785241284`*^9}, {
   3.7324496479866905`*^9, 3.7324496666901846`*^9}, {3.7324496976033096`*^9, 
   3.7324497078725023`*^9}, {3.7324499977904077`*^9, 3.7324500450656404`*^9}, 
   3.732450103873023*^9, 3.732450251704363*^9, 3.7324502958902397`*^9, 
   3.732450606452917*^9, 3.73250916712729*^9, {3.7325095321596026`*^9, 
   3.7325095585925293`*^9}, 3.732509615503917*^9, 3.7325164091222563`*^9, 
   3.732950409622801*^9, 3.732950442124386*^9, 3.7329505449384794`*^9, 
   3.7332065400455236`*^9, 3.7333699241034594`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "3.5555555555555554`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7324467590238824`*^9, 3.73244683961917*^9, 3.732447095906169*^9, 
   3.7324471375546527`*^9, {3.7324471955494223`*^9, 3.732447221853221*^9}, {
   3.732448854315997*^9, 3.732448878101791*^9}, {3.732448944493336*^9, 
   3.732448996624737*^9}, {3.73244919715204*^9, 3.7324492785241284`*^9}, {
   3.7324496479866905`*^9, 3.7324496666901846`*^9}, {3.7324496976033096`*^9, 
   3.7324497078725023`*^9}, {3.7324499977904077`*^9, 3.7324500450656404`*^9}, 
   3.732450103873023*^9, 3.732450251704363*^9, 3.7324502958902397`*^9, 
   3.732450606452917*^9, 3.73250916712729*^9, {3.7325095321596026`*^9, 
   3.7325095585925293`*^9}, 3.732509615503917*^9, 3.7325164091222563`*^9, 
   3.732950409622801*^9, 3.732950442124386*^9, 3.7329505449384794`*^9, 
   3.7332065400455236`*^9, 3.733369924153493*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", 
     RowBox[{"-", "8.215838362577491`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", "\[Rule]", "8.215838362577491`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7324467590238824`*^9, 3.73244683961917*^9, 3.732447095906169*^9, 
   3.7324471375546527`*^9, {3.7324471955494223`*^9, 3.732447221853221*^9}, {
   3.732448854315997*^9, 3.732448878101791*^9}, {3.732448944493336*^9, 
   3.732448996624737*^9}, {3.73244919715204*^9, 3.7324492785241284`*^9}, {
   3.7324496479866905`*^9, 3.7324496666901846`*^9}, {3.7324496976033096`*^9, 
   3.7324497078725023`*^9}, {3.7324499977904077`*^9, 3.7324500450656404`*^9}, 
   3.732450103873023*^9, 3.732450251704363*^9, 3.7324502958902397`*^9, 
   3.732450606452917*^9, 3.73250916712729*^9, {3.7325095321596026`*^9, 
   3.7325095585925293`*^9}, 3.732509615503917*^9, 3.7325164091222563`*^9, 
   3.732950409622801*^9, 3.732950442124386*^9, 3.7329505449384794`*^9, 
   3.7332065400455236`*^9, 3.7333699241937876`*^9}],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVlnk8VO8Xx8cSQkWhbOPOmIxlkrIr7rHOTEpK1mwRCdlCKF9LqGQXKrKl
kKV9IfGkDclSQgtRlCQ72f3u7695vV/33GfO+ZzPOfehuPgedOMkkUgdHCTS
/3/nTH2umfum6Nn4+sWb+7bVxh2ly7fK+eB1lMfX28mVde9GBzwT5f7DV+an
itPEauvG7xsmeMsl4RbNImaneFrqosWmpOzlcnHnLcdm/X/21L19s2fQQq4S
Z4ctOUbe/Fvnmx/cuF+uFr/i4CJQIbdc9zwh4ek+uRY8+HbPW3m6IKod/tQs
UNqC//uP86n/ZUFUw6L3Niq14qmHxO/7rl2HDnMeIV3f0oZfE/d4ET+8DlnW
LlJlyO24tE1rvG7pBrRHY4fHZoUPeJpOzhnTBGGkKpczyYt34XReS7O0byJo
DU8A72/Pb/iiesJLATFJNMSO2DBV/A3nbwpdp2kgiZoSEzYvD3zDHyoc6NP3
kURv4j+kn9/eh9fFysvPvpJEFzeOXs8p7cP9f/Q6fTophUSosi9fXuvHu/nO
+V9slEZy+onconE/8JMPx8wslDHEjjgS+9DqF16b5czLmUpFO5OfmxQE/sKb
FisC7xdSkVQehS8x7Rd+ccIwwPIBFY3X9scfbfmFH/vhQPHqoqLMlSMpm0yG
8JQf6916pGTRQLhLtr/6b9zf+IVqb5EsijzjenebyB/cIKG+3KqUhjwTXgSI
7/yD9y0G3pesoqFDObJqa8z/4JyLY0fbG2iIXvPj0deLf/AXau1v1w/RUMui
a81FrhGcvSugvn3rViR1+uib35MjePylCZnQ3K3ocahbz432UfzkPzv1QzFy
6KaeV5fE5Ci+K4/Dyz5dDmVy+bcnbxzDCwrrqg4WyqHgxDOvQi3GcCHPO8Vr
kRzSKEiv2PdxDH94+d/v/AU5dHigrzbMexwXNJfdEexNR58FNiRT/SZwXwET
21cG8ujgqLCgQ+QEbpMjYJa+Xx41tYlcyEqZwMfXTZ3bby+PqjMkzgrencAD
i7na04Lk0VUZuVOzExN4FflMv1GxPLJT1XVqOjmJZ7nX7bHhVUCf7Ly2B5ya
wkPLbJZNqhVQ/Hemd1bcFJ49ULeo9FIB6XjSSmsypvCTs1/uc7QooJzQHirv
gyn81Yloq4h+BeR8eb9YzvgUvlw1Hv+CVxH9+qi6/Or4NM5zdrLX74Aiuuwg
pPMnZBp/nkyRcLFTRKzBkWCh89O4UvtTmpGrIro1fWPc7uY0LhP1ouJzoCLy
2bRlYOz7NP5Y4NCjA1mKaMZ8qUncfgavrT3T6/FJEd3s7ubFvWZw1bikqmP9
isjK+aHR0bAZvHS6Icz6tyJ64utTW3l5BteVvPhw7bwiOpPUd9fw4wxu5W2s
XrVZCXE1v7x8wmwWhz1zJcYHlZAwM9H9OfzD3x8/M0muUUJGpTW40oF/uK7+
vsm6eiUUIjCyJePIP/xGynrf/Y1KqK91z1uP6H+4+EjgL+1OJXTHhk9F6OU/
fB0rX1B3TAmZe56dd2TO4cf6M6aWpRkopvne+wbrOfy479nH52QZ6Iny97Kd
HnO4sOZ+cZICA2FT4MhzYQ5vjhytrVFloPHTK/UVTXP4j2eZ79xYDJSSGJqw
tG8ej8uK7wrxYaCXYyVu7o7z+I7cjaF/Axho7kC3XpvPPG56tv2z+SkGchbT
nLiePI9vvP30148IBlLJm7Y0bSee2/G67UphoKMctO0P++fxSnVOE7lLDHTZ
1YJPZnIeF7EemlvNYiCS/L3qyY0LeEySV09EHgO13fGVuXpoAVeiHei7W8FA
3Jvy5rjcFvALWXnJm+4ykFZQS/uJoAXc0H+IevQBA+Vrb4vRz1zAmzovrrRX
M5Bf/fDQUNcCvtHYrqnvNQMV0STqDw4t4GOf7n2qamSg7jh2ds3cAm5S6fst
qpmBwLRkX4r4It467tbV285AQh1u9zQPL+Jjei+qm78Qz//qDx/yWsR1uaZE
NvUS5/OQqQGnF/FOCw1Rdh8DtWt1ppZnL+J+cpNCMQMMxHnwXmNj2SKeqv1H
6MJPBtrplcTx6+kivnNxri58iIHSrpn4U74u4tnyLmoaIwxU/4haqjeyiCdW
slbm/zLQVOtK3+GlRXzfZrvIijEGOsT52DxTagmf06c++jFJ9Fcy/fx9xhIu
Uuzj4z7NQA/UfFHb7iXcRV14qHuGgUSP0VUEHJZw75Q0+cQ5BjKJ5PKQP7GE
u14Qnm6ZZ6DgK9/yjMOXcF5uejxpkYFu3nva5ZK4hLOPyP2lLDFQ59usDZHX
lvDdFkdlVJcZiGfwJPNaxRK+uUdDVm2FgTRX9kdUP1vCt1nMLNBWiX6q8I1N
9yzh6/9c2d5J2oYa2ANyG0eXcCVT9dRMjm1ozgU5bl9ZwhVF6G0mnNuQ/Jmc
zL3rl3FelXejPwm2zQhpOU5exvs+xY0Fc21D8ZWHeM4pL+P/rj3omCW4+o2K
XpHeMl5u+yTfnXsbGu4TDH5utoxH7JqxfE2wxMJQRa/jMi76onVWdM02tGfT
q8FFn2Vc7XlFrCXBYYwCafGIZfy59Sx3LMG3jMMtNZKX8VfzwqeKCP7iaJto
kbeMH/Py7L1PsGCI+iu/28v4zHNP3f/z7lTh5cS6ZbzbNSKzkGDvW3/VylqX
8Xw+sZEognNeNHo3fCPyfXINDhDc/PVG0eDYMn63JS5TiOClmaivnKQVvHba
YLyOyJexwVEEE1rBVejG5k4EO8jr7NXFVnDd+xxVo0S9SfpiMXYqK7iW5ijD
h+Bau8mnp2AFzyqMquwh9Bo92TJ1yXwFn1NXA12CyYm3lO45r+AbzkYMJBB6
m92Mc231W8GrvXuvNRP9+K/OJXskcgWfknvns0T0q7Jb78Pa1BW8S6PRVorg
bxMSAvSCFfxWwIEjDKK/QgL/DIzuruCvOX6eYxD9B9qHsCPPV/A79nxtUoQ/
8q0uDmf3r+C5fzlb3xF+avM9Rq2aWMFNbw3EJxF+47hgaNfJsYqLw7EA/B8D
uTxdbBSiruJ9kX4t/oRfZTHv0liXVfz15zcc4qMMlNBLKUj0X8U/NPh+CCXm
YTan63JG5Cpehp6MNw8zUIO44fkbuau4X+h5sT2/GMh7k8SxV59XcZ/Mdnb+
Nwb62N7q+O73Kq7ntO1+eg8D6aXEWn2cW8WtguZDQon5PR83VxggQIIYKQeq
VBcDHeY6mhatQIK/Owbote+IffddL4lnBwlOGe+7Y/SW2HfPxePjtUiQ90T9
5rMGBlKObI1KY5IgQEvmR9wLYl8t6/gXupFg77tXPcFPGOjGrLB5fQEJ3EDl
WQuxvz5/HDE1KSWBtGg1JTyHgdY/fMNsukOC5s/5YuQrDBRyMhx/X0eC5Gin
as00BtozPqT8vYcEIxLt9KazDDT6u24dpwQH+BWxk08cZSBq49W1cRQOGEpk
rjFxZiDrkqA1/AocoKQesV3YnoGQu9KysBYHBH58WBphwUDpPzJHKFYcYP1V
OeiZPrEve0681U/jgB+ha71qJYn+KwSIelzlgDTLQn5rMQaiBQc7JRVywD32
OdU+IaL/GyKmPt8jOJa67eUaBvoNKZKBHzjgwBv3TR9GldDVonteN0U44aPC
uNmGWiUkNPHoYbMUJ5jZjvy5+1gJxek+XZ2kcQLcPW9gfFcJBXS+SMfVOcFf
+pe8XpESMuX7+LTbkhN0RrxVQi8ooSWvfwICWZxg4n+vT+wAEf9k0XJHHicU
pZTGv2YroSFuUr51MSesa5qROWaghDqu8akVPeYELR4l8dOqSqiiVdxet5sT
kGpR7qiIEnJU3V3uK84Fga9V63g+KqLnC5F7O7K5oE1Ge1h4jyLqEA+Y9b3O
BYJpSVVR+orop5ZrvkAZF2yWZdUOaCkiwVPG0wbVXKCvWR0QQye+91Nrc+52
c4Frf+YHRW5FNPwn7U+SKDesRJ/rFn2qgER6iuLZydww1/kLQmQUkNxShtpg
JjesDp9ff0hUAWlLnuuNzOWGvGqKp6yAAnK0Pb7zSQU3+Mild+bMyqPSj9s+
yzVzAz+PVMdCszzSa3mkwL12DaSt9/7udkoeedQ1NNRGr4EaLeXzgi/oaF5b
iKoWvwaqdG+kXn1MR/EPrE+Xpq6BAH7TFalyOior/bntUv4aaC88ILh6iY5G
07nTj9eugZMJb9ha7nQU6AEOIgtrwD7Y43kUDx1FCj+ZOO7PA5k9HUkxenLo
imuxhKgzL1TfsVAYSaAhb9Mt9QwPXpjn2tkcEE5DeqoXjhv58QJ537a8kRM0
9J3T68nJSF7gUiENVpnREKNQ2ep9Pi+QzPgcnm6godq+h6nJ/bwQZpXi6ZAs
i344vOTjd+WDsDazAu1YKtpm0z+74rYWWC9rhNX2Yqh3an8LsAUgvOTZAarF
ZjT5TVxFzHIdYNkaQvW/eFFKWdgxa+sNgBp5Roc2VeNyG/j2hWQLwSW/NWZX
nq6FR36RZUl5wrD+i3z08m5J6NiaznsgbSMUhdjOcxTTgHb2g7zDlU2wOY8d
de4CA7TNv6nlZYtAE135hIX2Tujxi9VLTBAFu6Do09kT6nBP23bdq1QxMJut
2Ck0ow1iVm8+lcRuhl51WnV9oS7g30mp9YFbIFBHEvdPAbgi5rFOLkQcDh5R
tvnoYADRucfPqXtKQPX82i7JMUO41nL5dZKfJNRsfv6kNtQYpKqAKyNQEi4a
9W8+EWEMOdeH8OwQSchf/8Z1S6wxZIdoVRVHSoI+afyJW4oxXKF2l6EUSeC+
sST+5aYxZARvTp28Iwl/hjYj5Q/GkEjOPGw1IQm+AV0fjiuYQLhP+rh0gBSk
FErU335rAnvqd/T0BkmBc2WsqlqbCWwRa2vMC5UCb2/X0IcdJvDgmeB1SpQU
hOSOhVX2mMCwYJzl1hQp4Da/gIWNmYBNWUg1o1IKWLRBs+CNTFAbcojZNSwF
D6wPTE9bMoFz95Lf0l8pKG9sZQvZMaEt+arDswkpaGsV1JR3ZIKXZpcGPi8F
CYGS7fvcmVAYZ/7bgE8aRvT+vPMNZoLQVkOzPXLSIOQQu3tdJhP+HJHfYusi
DS2fsID890yw8/6i5OUuDeepy+SrnUxoCE7Cwz2lIV7LNCr5MxNuXJx2LwiQ
hsqIA/YnvjPB6SF6+DuaOE8hRm5mggkf+Gwtwq5Lw85N+3t3CrHg6e0LSdkD
0qC1+M3Jks0CxerdhRVD0uDCG/UT7WXB5ZdjD+tGpMFuNfU93ZwFQZ8se35M
S8PCqZG2X1Ys2M5FZTDWkMHkyTsZlaMsuG5V3VizlQxJSQGt38JZcHF5mLvX
nQw21Y0VpRUsYPlfarjlSYbvTt1c++6wgHtQN+GUDxk8d9OERu6x4L/mlE3C
wWQofyBhKP2EBX7ZGlSjWDJUvljTbVrPAivtaPzWdTI8OrPxd9dHFmyqUOI6
VUyG6ITVYvVuFrRhH18blpFBg7NkMekzC9h88mY998iwcvG5jdo3Fuzuemcv
VE8Gu7Ctt9lDLKAGiYcF95Gh5DtrOmeeBd+G6nUNB8gwOcbJeX+RBTn23hxC
Q2RQ/nI/+uUyC0SN6s6XjpHBhT+y4xMHG/g2uWV9XSFDh/fh/96tZcPonTsP
DKRlwOSI0IauLWwoo9mFbKDIQHSK3b7rEmzwuMy1+ytNBhocL331lGJDf4TV
iyCGDNz6bTr4R4YNHWZL7SW7ZOD8lTHXh3JsqB5hjq23kwGbSEuNo6ps0EjK
iW9wkIEBR+Xlr2psuLd9Ymv0ERngIbdTD2iwoTTgqv2Mhww07beJVtJmw+W5
kcYvp2TgZVSObYkeG0Su6rtlnJYBM9GZnkWcDSm7Mkn7I2TgkeenO3v02XDu
P1yzPk4G5KooOp8N2RDMnVZUkiEDYkulBYjFhskbP3GXK0R+boePjLLZ4MPc
9UXymgz85Dd12mzKBrf4AeHkIhkYvl+17vA+NhwS0owIui8DahVZiyUH2KAq
9dXWoF0GyOdumDvYsqHymcrMYocMbBQvXtG1Y4OiU2zKw24ZSLkh3SR+mA3U
QuU38n0yoDehfLfeng0b5aPUNozJwPvb2nGfnNiQ1PixtWFSBpwpu3+mObOB
30vRK3pWBhbaNS2YR9jAUfmhYGZZBpojuk0LXNgwJ57O68ODwd6ovnBxNzZR
t+7HPXwYOK5rEygjOPDpr0I6PwbND7dlarqzYdx+t17/Ogxuaf7O0j9G5Fvx
U6B2AwaYG0WgjmDvlZRPV4Ux+Gl1JkDTgw2/8gYDD4licOnCXlHx42woGk82
2LEZg8s7ru6NJthFX0dovTgGW7yf+v4kGEsb6BmWwCDtffYZY0829H5PKnsj
hcEwkvPPIzhHVTu0iIxBmCXTdJpgu5gfJlEYBh1+Q3xGXmzo3Kr1XYeGQVu8
lVwHwQPt3oYgh8HLAHaduDfRr/CCImN5DB7YxbFtCSYpdq4xVSTej3epTyN4
Qyf/MXMGBqMzO+mvCSZH4w2Wyhj8p703aIpghnKgwmEVQp9rnLckTrBB53NJ
vPNODFREbtXvIpgV1/PHTQ0DiV2ZNVYEW+3cuM9LA4MWW4kML4KP9ppU+mlh
cNXlAjuM4ID40xuCdTDwmFTviiY4SuOO3+ndGNw0D9gVS3DK94H2SD0M3H1T
TkYRnJskrhoHGFj96T9ziuByHbNLFw2I8wSeHDpGcPXP6JkUIwwE613nzAlu
SHtslWmCgVCZupsawZ16I4+zWRikrPvvsjDBA8OYeMEeIt8vCclDRH1TmZZh
N/di8PX2XWYVwZyG8V/KzDCIfr+r9izBQmO1u++aY2CvFjbO/L8+2VPXHh3E
APyfflnzf32Y8qtPDxH6tu4Lf0borzNl7/zcCoM7EPHeh2B2Xurz1zYY9Dpd
6xYn2Mb0NbXZDoPIkzMJtUQ/3f8tnG23x8DAu2PEnuDA69sHOx0JvwzGzUwT
/ojef9TkqzOhx1bbojiC84rf8f06ioGZW8LvTMJvlRacniPuGKiZxISJElyz
qvF2wgMDnduNNxMJf3Zb5ycueWOAth977Un4+SfXx1EOXwyenLF40Er4feb2
WnNefwxe1zzcqUzwRr6TGzcGEfV/JHV2uRL+fFB8cvMpQn+t0zNUgpWdv3ZI
hRL5FyZdPUbMk+kT4yx6OJHvTJ5nDzF/MR5bpHRjMZB6qd4Z5sCGNJF94Qbn
MOAZNOxMJeY3H0X1Mi8Q/thBMSkk5vvZlj/5BxMx2Mnv6Hmb2AezDc+2emRg
wJBzCgmzZAN30GTciSwMkryO3bI/RORHoQ8FXCH4ppOGlgUbtoem3Aq/Rugh
oHjgizmxXxVct6ffwEDMwM64ndhHZP70oaBiDI5Kbh2+tIcNH4brC2xKMciZ
N7t3kNhfeuVUEXIFBiMabddrTNiwafv3uZIH//fP32Y2sQ9r1Y7U174g5uXF
L32mOtEf0dTTBa8wyGfxC5UT+1hhFqnFvCHyNbnTw7+TDZceY8XstxiMj8b5
PFJmw3Gdvosd7zGg3TxIf0Un9i84WQ73YzBQy1iqJb4PTVjy+nc/MPC+z/eg
XowNERx1b24PEvP7yZSJRNgwXE/WCfqNQUjbv9kSITbUGfeSSROE/1o8dqnw
scHT1GFIlESB/F9/D4vMsuC51eHT+mQK0OTU+WTfseB1mmjDXowC9oG0L5Qm
FjS3tIrYUCnAnUrCxN+woNvEqNJHjgJP9jZNjSMWjGts689WpgCp/5q/8QMW
kDevmszqUaDo5bhaxBUW0Cyq0jn0ifir6DVXJnFfSD7ZJ2hIsHhUdmQaC9R5
h0JlmRTY28bH6XqRBXv/tZWb76cA1Kf4NZ1hQVhX4cYyJwrMhe7RpTiyIHKT
g9OjIxR4sPZqtrwdC+L2by5/7kqBhscx6+SJ+0Xqm4vG3ccocP4DG9tgxoKS
x4Eha/wowLfrUGW4Lgs6s0x6nSIpUMNl1v5JggWqNsOlIgUUUBEqZIa2MqGv
Ic9suZACWGftpvdNTEjQtpwaLCLqsZi6LvuaCT8l0O7HJYQ+9e957tYw4WpP
RqvtHQrsvlWcGlhK3Odc9Wdy64h8o8ov5UQR97kTl0GhlwKRW9n8TgwmhPfu
GxTuo4CUhkH6WzkmKO7nil/oJ/ToNE1VoTAhRsXnw9tBChwSz/3+Q5QJmlOG
7j5/iX6REi+NrZhAbsjYxftLxPma8rxXWk3A+6xJl64kFbjVuW5SvUxgLr79
l5Q0FaQmWr5WHTWB2DT7uUUyFfqC7sWxHYn3CwLEq6lU8OPVVzx4wATa6nIP
ayhS4Xzb2Ak+TRNQXZr9pqxNBRLF5T0PhwksBBYPyVhToeQ/RVudZGOIO7Nz
fsWGCs1Broe+nDOGTTHP1vbaUWHvtG5wYKQxMNI/KOY4UsHZXIuW7G8MjndX
vbe4U0GI+XnQzcIYnv+1nhAKokK3zosfmaLGcN6db4EjnQo1io1fZ9KNwK1R
OndtBhWKzvaT++ONwIChaiCcRQWj9oDG+igjWJxwiMeyqaDilWJ63NcIfMLv
S+DXqVAemlFusMcILC857jpznwrjTZfptBVDoNY/ODP7gahPAycnOBrCM+kj
q8MispAfXtGJcxgAPPRfbBWThRSxRyEBs/rwcm/0vwdbZAEpOwrl/NGH5tPX
x/6TkgWtcQWxjo/68PXT4LeNNCL+/cjOrlJ9WMrwRDqqsoDFqHjSzfVh1/rA
qPgDssAoKY/vyQCoWonjUkySBdKvya2S/HqQNEFJ10yRhZK5SkruX11wGaih
GqfJgsoCw4q/XRf4myb1nTNlQV7J2iw3SxfsMxwjM3NloXtd1rP7srqwoqSx
zHlbFoDNU5ykuRuMbAdnv7TKQp+780LHPh1ouW84nChMgzttotOyqhoQrftg
MHUTDcapOnzOwhqg8YbWnyFKg7a5e5ExY+qQ+3lN9zVxGvR9ORgTV6YOJzga
XlVQiPjdi9I+VHUQ3L+34N0O4rx2/c5XAmqwZ/iQzbqDRLzClY3Hm3fAK8z9
dUIaDbBY7jwRPkWIeWxZ0M+/FSIj1u1K1eYDe+pXx8OJWwGzuHXFfIiKFh9t
l1TilQOVtOG9Ns810Bmu380Z/8mBFuPJupOPDZAYTfvIVhIdIrVzGbSbpuiU
j9U0fygddoeyzi2GHERSGkcb5E7TASVEOHYkHURo2T/HIJwOl4XS/j0qOoj4
ExONwqLo0H1pS8iVtoMot+zlpd8X6NDX6jz+Qd4CvR7aqd5wlThvu3I59sUC
ibhuCI6toYPNfO47eaYlqlKU3lNQSwchHVt5PUdL5DipSH6G6GBU33DRIcgS
lUSZvJ5+SQdz2TtB1dct0a78cLGj7+iQn8Yj8pdkhVx6/jwy6KWDfWqZj+Yz
K8R7Yz7esY8OcPyI82iHFSr35nUK+07835HY/26PWKHZRSrvvZ90EOwQZJtL
WaN4CTtryhgdiuq7LQXPWKPt348p6U4Q72s/+y1yyRp1lAat2kzRoUFz9Sm9
3BqRtVOLU/7RQcQgi+b91Rq9IOWdLp8n4s951V2btkYeDeX7GxbpQHpzpeCT
oA0STKmWHVimg0fOkXcyW23QXeuGf6urhN4fOY39dG3Q/wAVt03U
        "]]},
      Annotation[#, "Charting`Private`Tag$2127#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwV1nc8Ve8fAPBrXkoZIXte93LvCS3RF8+j+uqbBslMlC2b7MvXSCp7lGRT
KaEhpSQeEoqMKFIyIsLXzrrD7/z+Oq/36zzndZ7ns85RdPAxdeYkEAj8HATC
/69rx73zTHxS9a18fONNfLrq4pwoqp1kb9BgV36nW+5R/cfZMfck8r+AMJ53
P128rn7+2eFET3IyUNB0Oh7M21EfI74kc46cD546jw77/Rqsb2sxGj9DfgQi
CvsqI0v+q/cpDHpvTK4DExH6D++TWfUNiYmvT5I7QInnh0YWWQDVTX1t31ra
AeztjlQdzhJAtf9QfryndYKu9wFX9fm3IRtOe8IdiS7wftv6J9Opbci8jqEk
L9cNdhmlsP88EERGWrvddqr1ADuj9TM7EoXRXnLuIhH0gQDtD0USQ6KIh9ef
+Nt9CLQUK3UGikqjyWORgkv3h4DWG4WiG1AafUhK3MkaGwKEMzJV6Z7SqCW+
J+OaxjB4ML81D2uSRgkis3dyS4eB4XJ7WJ+fDBJVUm5qyhsBr2S+OPO3yCKy
QRK3WNxPoBfKyfLGFNCxSPsrzy0mQJWV+zaVJCW0J6XBsChgAgR4TsQ25ish
mQJFvqT0CXDLqhqYPFFC83Uj8U4dE4CjxjhSt0cJZbLtU3cYTgL3IgeylYQy
GotwyPHb/xtkcgqL5hYoo6hwx6e7RKeB0fZUL4tiEnJPfOsvuWcaHFF3M2Y+
JSGzXOV9PCbToJicEZDeQEKU2p8vvidMg6jCkWspwyTUwXCsTeCaAT0vL3xt
l1VBMnSnlt+LM6CLPiFpdlMFVYc6D97rngWqx3dK3gwhoxJ9jz6pxVlgw8yN
9bhKRplcft0pInOAPJTloZFJRkFJ4e9Cz8yBOJ2lsshnZKRVlFFx8vMccDbY
s2LwHxnZjA3XhXnOg/t5X5+ctKWgga2CKUq+C0Dv2se6aA1VZDorLGAbtQD8
PSVvE3VV0Ycu0eu3UheAQcy32bB/VFHNTanLAk8XQMmhRgGqvSrKlicHryws
gFRxKZGHaaro7F698x8uLYLJLUuHds+poq9nPTT8g5fAQxUjvXO5aih+9Kjn
rbgl8MtbuOrnPTV00J1UWntzCRzqm+K3eayGckMHlYhVS8CRp9dUslENXcgy
Fs+dXwIH+yKte3+poYnPe1nvLi6DQ6f1Dh7ZRUVZtkIHp0OWQW4iufj9fir6
Z3wmSOjaMhCfUPytr09FD5fvzZ8tWQaX1k+Jrp+iIu8dEmNzo8vgbUbMUJkP
Ff0xYX6QPPcH1OYbH9v6iIpK+vuJwOMP2Nd+tjj5ORVZXHh+xCnsD/goETLA
8YaKXvp41z3K+gNcBH9PVLdRUXjy8NPDn/8ADf+7wQ6TVMTV3pTldWoFSG2P
dn8qR0NVZ4o+p9uugMe7HlXtUaEhp28RIi89V4Cr53+Dd2g01DyllciZsAJ0
jxZ/NNemoXj+0shbLSsgwn9ccc2EhoSPJrk0wFVgXdCdpxVJQ0dKawHt9CoQ
COqZpV6hoZCtMxI37VfBqe9ZpwQSaGi406jNLWYVRFp6H8zMpKEnVnyaQk2r
IJ3vyNvmchoaqznAH9a7CmptHOKVK2lIQtZ19OfYKgjUP3LBq5qGokbe3ajm
WQMZlabarQ00ZOJ+ed3u6BqINM++nf2ZhmLbKz+1Wq4BBZXPX84P0NBL9dGy
PW5r4FRsj5LIEA0pLEE73utrwGpBakJvkobm6ezGig9rQC6uV6FynYZSk0IT
mSfXgV/2otU2SQw1zT1wdrFbB2wHl5g7MhhaO92v3+W9DiRf59WQFTB0QfzA
wp0U/L6kpeUyGUOaBcvmx7vXQVD6skH5Xgw5cZA0no+sg9C+2JGHWhjKcjzD
J7+4DgTK+1MydTBEUK2sWRTZAN+52iT2Awx1PfGRzzbbAJreA9+Sj2GIe0fB
GpfzBijVuLrw5ziGtAM7ur0CN0Bl1KqY0SkMFersijXI3AA+3UoJr0wx1Jtz
zrasZAOQuge/9ZphiI+doCVWvQHcLpz7a9ACQ76NU5OTfRsgZ9dd8vOzGLpL
kmo0ndwACR5elbHnMNQfdyyndm0DbNHZOGFghyF4/MHJVEkGqIqxexRtj6GA
ij7yhhoDDLP3B/I4YuiBIJHgdJABsrd0GwU5YUio17nygA0D1HSdVpJ3xZ//
z2DKzIMBNpoX80+74e/nlVPypzPAWWL2V7+L+P7lN6xTEhigP+3op0h3DHVr
f0krz2GASy6Ma3QPDHGaVr5/X8YA6lees5w8MbTHI5lj4jUDEGcDNXW9MOQQ
667D3c4ArEJdRQ5vDKXnGfopfmcAkXz+rme4G18olerPMIDh+HddMx8MLXWy
h22YDJAV9MJ1FDfp94BEqAAT8Jlmmtj5YsiMs9okU4YJbgWHr7bgjpXOuPYM
Y4IjE27n5P0wVLXPB3XpMsH2IptIJ9xjJ4+v/XeCCdbvml24hVvMlaK51ZYJ
OJbObFbjNoziclP1YgJKgvW5ZtxBt4cK/o5gAk8v5+BG3CWVr/sckpig43aw
STnuL223BKPymMBYKHXiMm7e8UtH8yqYYK7rke4x3AfYxpE1b5ig4luPMRPf
n9tOrLrvIxPEa24q5OHO0uSbWx5kgthOzSc03K3Hxsgis0yQ99KNdR8/75oD
stNgM8Hn6RI+Edyq4bmZJ7azAO3idPdFPF7WN0M6LsqxQL6mlvVjPL7xj8x4
r6qzgOahq/mjePxrWjT17+qzwGjejyIu3FIbkxU/7PD1ewtHt+P5M9rxbpzh
zQIPvbYorOP5DsOKZCUjWaB3IUy6G6+Hb3bWSWcKWCCm3/uEkTOGBEL2v/N9
zAJ8fy1GT+P1pJsmzEqqZ4GyCXpgmAOGct++92wdYoGT8sWZ9ucx1P793t3x
ORY48VC/6ZUthph/or9zEtjgYuTI400bDNmqHjyhp8AGbOLBBjMrDMklPaRV
XmCD9HStdmUTDJ0qiXPs9GWDWG+eqd8nMfRvvUPOTBQb3Lgx8C4P76+hBamt
lCI22F5/q7rDEK9Pi4SpnBE28E6yvWyui/enj6vSqwU2MK2xS7uO9y/H9cNn
v3BsArPdLrZleH87vGa8F1LaBJWsqxovNTGkrOBZesVhE/wQ3Fm7ooyhxB+K
RUl+uEMIuj34/FjJ7cu6GbUJuibEvxbI4vmSPHztXv4miO374M6/E0OeO6Rc
3w1sAl32qRlZfgzZcDmlx6gR4He3VtcTU/i8GtVP5t1NgPOaMTXUXzTU1CAZ
H6+Nm+1GXR+hIfWozuj0owTYXP7G3uUrDRFYB/2KnQmw0fiyekwLDd1bETZp
LCLAmcpIWF9IQwOfZ44blhLg9gF+l4IcGtr+vOXohycEqEBseOCDz+uQSxHg
Uz0BSlx6cWUYn+dG85Pqo4MEaJX+Jo8riIZmf9dv45TigHyzuobGR2lIe9Cr
zSCdA2pJEUKZg1T0SM1fzC0bN53K+vsLFZGCgs4nF3NAFODRE95BRUKCkUsD
lRzQfffuoMo6KvoNU6UDejigSHfbDb18Ksq+W+lRIsoJa0r1tHqsqYjpsbp1
6y1OGIZ2bGHi32P/lwzz3QWc0GGPcPfcSzU0yU0otLzPCT/pqkx1PVJDvXl8
++5Wc0Ij6TQRm2w1VNEpeU6vnxMms4N1U3zVkN1e3XIfSS7obRezHCSphho2
ok705nDBrMvX/xy2VUW9kv4rPne4oNM3tf3PT6uiX9qOhVvLuKA+j/4ucUNV
JBD89/KhGi4o2tlgeF9dFVks8ec+7eeCVn8dkOfdpKCp6fTpZDFuSA366vwi
l4JEB+/GH0vhhgKBjGMjbWREZt7cN57JDZ22i2cdqyMjHemrP6LyuWFz6N38
oidkZGd9cc/LCm5Y2SzzWeEmGZV+3jVAbueGUjr0CRtbMtLveKHGzc8D9aPm
ipqmVJBbfWtrXQwPRLeee11YJ6F1HSGlffE8cKxVtWT7FAnFV1nSS9N4IMnT
Q6digITKSn/tulHIA5f5zvu+fk1CsxncGRfr8PU5m/IyESQU4AZtRTd44DCZ
HDfLxP8vhV8uXPTjhb7dfN5980rotuN9KbELRNgVQip/VaqAPI9LNGJuRJjK
l+Tw7YYC0t97/eIRXyLcV/+rYipSAY1yery8FEWEfEVeXJ/MFRBWrG7xqZAI
Z7Tel74lKKC64edpKSNEGGXp0+JcIod+2jbxbXHkg3yXfkrE9EqjXVYjK2xn
fijUVuWg3SiGckUAO8GLHyqov1N5ki6GtnzM5ZEM5IfXZq9+ITqKoUkDK9G9
sfwQXiVxWHKJobu0zt2uxfwwRKImLOCQKJLarPXs/MEPTWosNstqRBBvSdZo
geUWGLVSlitFFkQ/low74LGt0GSsn3dPCwdaHJLUFDffBoej/wQsnmCB1LIw
V0tLQShkaury8JokJAvynQzJEYISRTeVO4+S4QvfqLLkAmFoNW7fFf1NE/aq
ZBBPp4tAN5ZawPNqLUi63KNqe3sH7F+XIAXd0YM6JkP7CnJEYXsb+6N39CE4
6HtFPylRDGaHl6ORvYawUsd627s0ccjtduhvsX+NoLhFy9cHV3bCfbaz7VJv
T0EwSkhrDJCArjr3HgjcPg1vi7ttI4dIQuK4Qa0WyQzG5F+8ut9dClZddrI4
cM8C5nVkNSf7SkPK7SZFoyhrGOGdMS/rLwOF+yaz2/zPwWl7VQlrB1nod/a8
mcOZ8zCBNcX9w0UOKrlsmHIct4c1M0fntp+VhxoDAdoOIw7wi4r26EGSAtTP
+FERF+kE3dQcNTLuKUCBFCGndFMX2GBhQzeQU4S71U+aT4q7wb1WU6WiRYow
ieQ2a7HDHXpeNuzTk1aCJMLhzB2bHvCaC98GR4YSjFqjy+5c8IJvZO03p0SV
obY0IicJ+sJX7DguarIyrHsjbWwi4wc7nh2eShImwfrH1/or/vGH7xRcmhPT
SdBhPa64LeQSjK02LxrZogJznwj0vMoNgOeUvtvZJKnAuOlnMgajgZDxQkOa
RiRDDAv0yJEKhuFcv9tv/kuGH5ZnDrw2C4HiJB17FQIFKkYc1HKpDIXB3hbL
W0IpsNYsXoHAQYcyWk6tZDoFYtO7vCZ56RCx/HIPRVCg2ZNx624BOtySlHQk
LJoCR5rTdtyToMP8sqYbv69T4EfSd6KZJh02T+7Z35pNgaw7Osud5+lQ1FEw
6EotBRY/3vkd1NPhK6qsUVEdBebLGtB039Gh3SJV7g2iQPOaf6V02ujwQbRh
83ITBbIjtb7u66PDvwojxJ0+UqCUblbf3jk6dBicfnHoBwVWBJP6jeXDIfHe
erzdMAXv51RVC5VwWO5JPB82SoGz1sKStrRwuMJQIlb+ws+7emrA80A4jJc6
a6k4R4E2DrWDGcbhUGPUlaa3QIGEPR/UC8zDYW9p4KbVEgU6ac7Il9mEQzmd
tPupqxRo+8pztMk1HL4lFNDL1ylw+XDbs09e4dCttdy4lUGB/7D0VEYuhUOB
1BrlMRYer/EmrfnQcPjUsnV1c5MCSczzk5uR4fB/zZ3jpQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$2170#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {GrayLevel[0], Thickness[Large], Opacity[1.], Dashing[{0, Small}], 
       LineBox[CompressedData["
1:eJwV13k4Fe8XAHBZspb13rnWQlxZEwrFe1oJce9YsiUpEpJKtrLGLaSQZF+K
ZAlJiuR7iUKIJFJ2SirZs+Y3v7/m+TzzPO+cOXPe856RdjqPO7OysLBYb2Bh
+f910dgznXY+Vj8gzDbr6xquxzhNVXgv74l2KfmHCC7wo9bJUbcY+SDUklMw
ED6vhgpJX7I+pzEQ6VnlufWlfWjq6YGbHvK30IrZmpzuvBkS2/7p5Xp3PLov
Pnn3+l9rpOcXpd6Ulog4Ow9P9C+dRI5v9fPiT6agntPXuTN9XVEYeVbCXj4D
uW/yl2GbP48+lJk3xc9noan3+9g4dLzR6V6V8L/d99HWvXZqNn/90PwGLmRf
lYNq9UYtA7WCEGP78BIz7SEa42DQXyyFIoxeXS4X/Ah9bHfDkikR6JFf4vmo
kwUoeyA6yNH3Bnr31mjMXL4YdT6t5cieu42KfYVo9uylaBueeeUmdzzyjQ5+
fGu+FDlipxOrtBMQ11Mb19nuMqQr8Ofdz4Uk1P7mTYNc01NEHxagTkakouRe
DVnrqnLkqD+1bUgzAymybu6vTqtArYlC+cZL2WiGdGXPn5jniDxX01IU8gC9
3D6eJB38AjXqtdpwUHKRCb3OnHGyCn37aVmU6vMInc/yaTKTr0EWZ9uiLWdL
kHb5iHwY9h/ibb60U2utFLGcVthvy85E55vV1Kq4ylCT793Mm/NMxM5kUXu6
uxzZZp63ne6uQ8v3Fmzs518g/e3ykVG010h/qdapQrsKyTz9+ly26TXaYxLF
4A5/iX6+OUKyqqpHfOzhJik7a9DVSdn2qrQ3KPNI+2jJ31rk6Nf7z5z0Fhn3
WlrqV9ahg6xxKr9j3qKtO1y9GoNeo03kf1FbghsRz2amwntSA8rQ6zkUfrIZ
mTo0CTy41Ihqb958eVS+DenEbZE+PPke1Ux8buHNb0PK3R16j8LaUbUhtb9J
6T0y31ppck2gA9mxnmR5QGlH75tTcnU1PiDLmhWZLVIdSC0QDhcmfERGu9Rd
se2dKGsX90TA28/IcKzby8etE3Fbs47Q/HqRQUKQf1dhJ5JlFo0EKH1BB2fe
Rd1R/Yj899r5NCd9RfrFLo/5NbuQ+FTuVovbA0hDPm2GE3WjVYPnvEvzw2hn
1/4Vl5ButHbUe3XFcQTtCP/B9qa2G1V+tWihto4g1eFdpPCDPcj4RfmLpUej
SCGjYzeL0WfUe0kpLNzzG5IgcwYuWnxBMzZ/hWTVJxDHxoucP9wG0FyLpPH0
kWk0fiSYfzZvAAWVrQdKx0yj5pib2NroACLdKO3saJ9Gb6M679xQG0QlTNOX
ZTYzKFpo8kFa/iBKco/c531hFonIyNbXpw8hxulukV8v5pH8vhh2EmME8UW3
dtnkLSNs5A5XSg4RdzOvu+/yMuKKSOHb8noEhdrtShY2XUETjXki21lGkdHS
jci3CyuohFa3TS9gFLEnb9olYbqGtB3/HnT2HEMbh9SUd/GwwJHgkxHPrL6j
X7L6ElnrrLDzdu3hbO/vKGn6Yb7gDjaQyJTmion/jmK3Kin858gGUzVDUafb
vqNXl6s+t9axQeK/k7HCh8eR6sB+rcpIdhgNdEq9oPUDPaaZDTJlNkLI1VNP
VER+IpVWi3u2odzw3N+5L7djEj1cP7Li7CsAD/Xdu8VmJpG2Va5cQbIAJLJd
6Lgt9Af5+04eFKgWAJ+Yqw3+5n+Q6jNHw/0bBGFX9p3HR7v+IAHe8cK9MYJg
NzpYE+AxhWR7T1AiCoWgl5f/tozXNFq4dbhKcwMJPtu6q130nUVs19rDAvjF
IGrYwOMeYxZ9OJEwrLxbDHTdtuVX351FHg4b0YqDGKT598lwls+i/zqcO38W
i4Fjkhk5bWoW6R3iKRGnicP3Lo21hrNz6FB1s2HpPQmYp602i9rPI5qLV8nV
PVtA0CDGpRb+opS5dDtONxkQ+OhctttuBQ0dcDiUobQdZLd65Ec4raM7KQe8
B8x3gHbfuXf74jfAq/n3P3EFTahdDjH5mMoGXqUnlTmytcH1v8bGmjAOqPiR
qVPBpwfJp/LESI6ccKnOUTrvLYCK9dDCP2duuHPg6L9GowPQP2vWBkd4IYP9
bMNM/iGYGRDdQbbcBBldpJCDOoYQWxhw5tgxfsiv9z5GKzYCeX6uo36pAhDw
ZXwQHzKBCq+QwluZgtCvc1ojWtIMPsrd4aTHC0GI/Z/k9FAaHKFStM8lCsHM
M2daYAQNahTSXSNThIDzz9Nu20ga5CvlNdXeF4KLLxto/HE0CFJ/Gb3zqRCc
HpUrP55FAwW9EX6Rj0JwVTrV/1YNDa5aaFC6ScJAruGoUF+iwbZrnQrHk4VB
kfpEg/cMHazL2NRd0oWBZ1XmNXKjw80hDZ3z2cKww6bl+YVzdJhHCUdC84Xh
JlQ0tl6iw5tVC7fcSmGISj9Fcwmhw1mfT4W/PxP3HUrUsWQ6FJ/9rBokJgKL
2tnLZxvpMJzEvfu6lAhYmb/YZ/CODlijDoqVEQFOt9oi6TY6hMinmN1XFIEG
ivO31k460Edsvd7oigBty+pjtgE6zNl/fbLZTgSkJ2xeDc/RQYc2oJmZKgL6
Aun6jlI4VI9z/HbKFAFr08YjT7fioB+qnCv/QATWaBXpbLI4HCzzJxUXiIDS
8SVKGhUHUxGRhepKEdjJP6RctAMHpx7D573dIjCvbmdgsB+HaMcyHbIICR5m
P9hy/BQOm5d6pj9jJJBIEx+3dMYhNm49P12cBIsbntYan8Ehsc5ETE6WBNYZ
u7JV3XHI2vZ9WWMnCfg99AbbL+JQPi5eTaeRQMcy50NEKA59XhH6MTdJUJem
JZ6bhgMLkyl5P5YE9s+z6x0ycNjGv7pakUCCXzJWL0SycHB7fPHlYBoJiuI8
Ll9+gMPijxPamo9JkLSRayNPAQ5Cp3R3fmklQc4n08DAChx2lV0WnOogwcHA
Q8+Xn+Ngs+HJFPsnEqxX5ZC9K4n4Mqklqv1EfIOWe+2qcVD5KqIcNkkCrjd+
w8u1OBha/pHbzk8GlvPssYEtOLjnKHLoC5Mh/PIR7upWHG7NOo/iGBnsjz0K
W2jDoSvu6/2rW8jQ3k7zONFB5LOtaUu7Ghl6TUI+s3zCgSHJsT6qQQapH82C
W7pxyPeA/qXdZBB1ctit04PDFM/zNFkgQ4XKHzjZi0OgQY6oL40MfNVRvCH9
RLyJA4vRFmTw6p52DxzAoX5MrCfLmrDAs4c+gzjwhMclNjuSIU6/I9t+GIck
ZpCw1AUyUJY73BfGcCjTsdnUEEeGLDkRnRO/iPzORKUl3CXD4JMLk3y/cbhb
UK10OpkMLRZaYxWE/cS3GrFlk2FGUer2+iRRT2vfGPtKyeBQVZx+ahqH0mcU
smA5GS7/8qXOEpb2NModfE6G4L1rw0EzOLAPPH4d/B8ZLP46fo+axeEd05ul
po0MKgVXJr3ncdjr//B2zAcyZPwivx8jXKzeI3X8Exki9Eo68AUc4u/v0Vvt
I4MGTGtK/yXWszvX8m6IDB918uLCCF8WzrRLHSPDg46LXIOErcNZA3R/k+Hu
uxN7by/i0LxXk5tnmgyVH6LmBwnvmXdO+jxHBv66fqbqEg5Fj+9R8xfJoJV8
Is2PsJRLU4XfKhnOswkyagjHSq0cMmTBIOvYwhWWZRw2dCt3YewYWCcJXdUn
PGoQO1vBi8GbA8vxxYStWOrCGPwYtGxqzh0k/PbFrKCVMAYrYZ+rNq/goH1B
LlsOw0CURbFdm3DB9mM75sUwuBVTPeJAWGL4xn/1Uhi4DcTNhhCOSakyTZDB
wMGyYC2D8D/8V98peQyaljlYKgl78Uqd01Ak4mPkLLYRHn5ttsqqikGMXcTY
IGHzq6HRH9Qx+Hg9r36ScL3mU7H7Whg4NXAnLBLe9Xs0/4IOEb9/Af0f4Ue5
ZJ19ehhoV1xfWScs5mDYKLAPg4TdmbfXCN8kBxwbPIiBvcsk71/Ca22F30oM
MSixuuj5i7Dn9b7LwSYY2DRSn/URHkT8HGY0DN7J8/Y3E8YXIUHKAgMskvL9
6f/jKb0oO3kMg4Unxm1J/4/nbE7ZKzsM6vmz4vwJ50l/2hdzAgNGtYCaFWFK
L2eH/SkMBgKTclQJR8XrOCqfwUCmQX2KlfCqkfufFTcM9pR84u8k8n+OLT3o
nScGTPbQDZmE+1+2bUq9iMFvHcXXLoRp3izpbj4Y5Hi+wxUJ1ynvVNYNwMDV
83jxD+L7a4ydeskdROSrtKczhzDZ6u3nRxEY9Kq7e28mfHhvDjhHYmBi0XS7
hqgvX5nQPOkYDLyVd99zI9wzqXs5JQGDJLe7ThVEfXJ3YV+tkjAQrC+WsSKs
+3Juv3AaBoZV299OE/Weer1Y4OYDDLp47jyTINxyLtrXMI9Y/0feSiGxP1bN
XfvZC4nv5eEutZuww1aZosAyDL4KGs7AHA5bK+8anK/FoCPeKF2G2H+0zIvF
Sg0Y/PNrio8l9mdohBlpvBEDL78wy+Upol7o3COO7RjUlA/r1v7BIXfiahA+
gMG9Mh4zCWL/f2q3Gds8gsGiMK+fK9EvNj7fZfLuGwY91185lP7EwfXalOjB
SQw0v3ge15jAQVHi9DOtNQxM48794PiOgy3rPokZFgps53ZvUvtGnCfjkteK
2SlQIRh8zJLoR7/Ku2lUPgpcN8Z87ozgUHLU+BdFnAJnElQZX4j+NqihYN4l
RYGmMa6sYaL/CYhxVMXJUID/nZH1WB8OF7/VXOdRpIAVj0Ja3xccNIN3yq5q
U+DhCUXdZKK/OjvzR73YSwG3y3ICgUT/TTT+NeUNFNiT1+Bt34XDX+xhzW8D
CkTabh7e1IlDVamo7YAVBSS7HEh7iH6Ohlni6rwpoEX6KfPqNfH84Bmpdj8K
6Ku0MXTriPyJjxb1XaXAfaf4qDImDuGWbxsXwylA33LrTPwrov80xrCo3aVA
B+WnmiBx/liViHmlPqOAUGHKK658HBRM+P49qqTAsjv/b9U8HJbG16IrXlEg
+oj3HbNcHNJkhvI6Gijw2/q1bkg2DkN38wY4P1HgxFa8MCMZB4+rmmbeC0Q8
EwUdrTeI/iwq3xe6TLxvm69uCgMH/grM/fY/Chwf7J5yDCf6/59lRsFGUaDF
/tzTF0y8v1NtzSBZFI7eC2aN88Eh7Iip6tHdomDU+ZNrxAmHZLLrJnk/USjX
RtlSu3F4IUEznrwiCpWkCQ4nTaK+ZbQjK4JFYdP0NaUsdWJ/qnFxGFwXhQ3J
Y6V8ykS+DR6tnkkUheCw+TMPiXkkwW/8Z365KLQ2D93v5SLOz17XZpVpUeBz
mMV2dxHz0iCNa2FOFFaF3M+0ddCh9Zv24ZpFUbjkpbfTkZiP+Ga56kxZxEBI
VVH90ls6RPPmV54n5mxpvpREq0o63Nj749ETFTFYD/IXEkyjQ1jG2etabmIg
Ts/EDx2nw347l1+mnmKgOV+t9d6aDmyUU3TXi2KgUcpphFvQITzOXjw1QAyk
VOqWDxjTgRFuVsISTczlfawqXdp0iHTT6n5XKAbWVmsWRUJ0iN21ger0Wwwa
ldfTRWtpQJtdi74yLQYiWh/F6l/SQLB0eSphXgxwsd8eZypoEL99rurtmhiY
NJhFJBXS4I7Ed1OVzeLA/itcK+cuDRJZW30WVcXB2y6D84QrDdLbkt7c8hKH
m4dHlo9y0UCiEtjueovDwUPUOkVWGqQ9GEepfuKw90JeDMuiGaT6aVfmhYhD
i6H7suKAGSTL9BQyY8Uh5LhrZnuRGdz1weJmSsWBK2RaxfaQGcRIJdpZTYvD
NhfWcX13Uwj0vDMleVEClCeLLwtEmoBRnXpf/2UJKDeITRQMMAEKub0p018C
EixHetjdTaD8Fd8D6VAJuCnBV1JrYgITfAxLuVgJCAkMl0zgNwHrQr8q5WLC
meND9+KNQXP8ePieCQnoMX/cvxRjBD9PKlBsnCSBvSucJmFjCLYeX5TcXSRB
5DLbsd8HDaHR5xYKdJME0I/PLdphCLnRcy7ZFyVhB58I6wKnIZx4xnz2I0wS
mM3DPE+fGUAnl415wANJoNQ8nmjfZAAvSyJvpY5KwqND8ypepYcgem2Cvd9F
CraNnzf6+mo/GF5IaCxwk4J684K58of7gX1M76avpxSEL5DeX729H4JaYoUF
faRA4cH99c+O+8ErdZfMwQgpKPWwedXEuh+sdMJQwQMpaBG2xgIO7AOZy6IB
PoNSQOEN4Zo9j6Dql8GfzbZbwHWZRk3s0YZPctrDutu2QtYKh9WxiG3guv2U
2p3crcDU+/jMxnMrs9bK7so+KWmIfVa5orBlL1PDeiJfJFsaBPCyl5xnjZge
1w5364nLEPPU8/pOpjnzhgvX8oY7MsCVd0bAdM6W+Ury5PqEiCy4NpTdmus5
yaz8x2BTvCULOD51LuOUC7Pt6YGJGMFtoB3Ffyqkx53ZsNXlzc34bcQvnJL3
kREvZvhzy+whHjko+sEkMX5dYtrLfHWwi5GDFKlsg16GL3OlQk1ciVMe0mLS
TkTuvMK8yvaj5W6QPBy88mJIWjSYSd6mc1KOhQrtR63+vugOZfp6Ws3x+FPh
Q1PSvLFCOFNi1+lG+StU6Nanr23UCGcy1y6k7Q+kAovb48gGvXAmT0zMwYBQ
KrhnCWocNQ9nZhTWJ/yIpEKB+ocvjKBw5pvxnVqNKVSI/VO0JacrnClyit8n
oppK/Fe9N4hmRDArFSWNsmuo8PhchO6LuAimAzG4vmJSoZ+XrXE8LYL5KPTw
m7l6KqQbSVVYPI1g7skKJJ9upULPB4uZY4MRTKe+nxX7+4n41ucZfHsYTM7c
pSiHQSpU5LT4XzrMYBZ5cJ4IGKZC+acEoX46g7mwIsNZ9o0KGVffaNe4MphR
YrbHpP9QYSHYyL0gkcFUGz6jpDdNrN9mmK16n8H8mH953XqWCoeudIZVPGYw
pXTi8mL/UsEl1N64o57BfM2SeaVoiQq8R+s0TrczmK6NRWaNK1Tgs73WvPyF
weSLrZIdXaNC3w1zgbvfGcwnxxr/rq9TYbzpG4fGLIP5P8oxxzI=
        "]]},
      Annotation[#, "Charting`Private`Tag$2213#1"]& ]}, {}, {}}, 
   {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{5.780228136200256, 76.22552335711194}, {
     5.780228136200256, -58.19473809774257}}]}, 
   {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{8.124460043941761, 50.938543479466006`}, {
     8.124460043941761, -58.194738097742615`}}]}, 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "2"}], ",", 
      RowBox[{"\[CapitalLambda]", "=", "0.02"}]}], {10, 55},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "0"}], ",", 
      RowBox[{"\[CapitalLambda]", "=", "0.05"}]}], {4, 72},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "2"}], ",", 
      RowBox[{"\[CapitalLambda]", "=", "0.0"}]}], {8, 100},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      SubscriptBox["r", 
       RowBox[{"0", "  ", "crit"}]], "=", 
      SqrtBox[
       FractionBox["27", 
        RowBox[{"16", "  ", "\[CapitalLambda]"}]]]}], {4.5, -30},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     SubscriptBox["r", 
      RowBox[{"0", "  ", "crit"}]], {7.8, -30},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{Large, FontFamily -> "Times", Italic},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(r\\), \\(0\\)]\\)\"", TraditionalForm], 
    FormBox["\"\[CapitalEpsilon]/4\[Pi]\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{890., Automatic},
  LabelStyle->Directive[
    GrayLevel[0], Large],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{-50, 100},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7324467590238824`*^9, 3.73244683961917*^9, 3.732447095906169*^9, 
   3.7324471375546527`*^9, {3.7324471955494223`*^9, 3.732447221853221*^9}, {
   3.732448854315997*^9, 3.732448878101791*^9}, {3.732448944493336*^9, 
   3.732448996624737*^9}, {3.73244919715204*^9, 3.7324492785241284`*^9}, {
   3.7324496479866905`*^9, 3.7324496666901846`*^9}, {3.7324496976033096`*^9, 
   3.7324497078725023`*^9}, {3.7324499977904077`*^9, 3.7324500450656404`*^9}, 
   3.732450103873023*^9, 3.732450251704363*^9, 3.7324502958902397`*^9, 
   3.732450606452917*^9, 3.73250916712729*^9, {3.7325095321596026`*^9, 
   3.7325095585925293`*^9}, 3.732509615503917*^9, 3.7325164091222563`*^9, 
   3.732950409622801*^9, 3.732950442124386*^9, 3.7329505449384794`*^9, 
   3.7332065400455236`*^9, 3.7333699242468214`*^9}],

Cell[BoxData["\<\"envsr0.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.7324467590238824`*^9, 3.73244683961917*^9, 3.732447095906169*^9, 
   3.7324471375546527`*^9, {3.7324471955494223`*^9, 3.732447221853221*^9}, {
   3.732448854315997*^9, 3.732448878101791*^9}, {3.732448944493336*^9, 
   3.732448996624737*^9}, {3.73244919715204*^9, 3.7324492785241284`*^9}, {
   3.7324496479866905`*^9, 3.7324496666901846`*^9}, {3.7324496976033096`*^9, 
   3.7324497078725023`*^9}, {3.7324499977904077`*^9, 3.7324500450656404`*^9}, 
   3.732450103873023*^9, 3.732450251704363*^9, 3.7324502958902397`*^9, 
   3.732450606452917*^9, 3.73250916712729*^9, {3.7325095321596026`*^9, 
   3.7325095585925293`*^9}, 3.732509615503917*^9, 3.7325164091222563`*^9, 
   3.732950409622801*^9, 3.732950442124386*^9, 3.7329505449384794`*^9, 
   3.7332065400455236`*^9, 3.733369924636241*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"f", ",", "qq", ",", "m", ",", "r", ",", "tfsol"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "0.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ll", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"imax", "=", "200"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tsol", "=", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], " ", "-", " ", 
        RowBox[{"2", " ", "m", " ", "x"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"ll", "/", "3"}], ")"}], " ", 
         RowBox[{"x", "^", "4"}]}]}], "\[Equal]", "0"}], ",", "x"}], "]"}], "//",
     "Chop"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rmin", "=", 
   RowBox[{"tsol", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rmax", "=", 
    RowBox[{"tsol", "[", 
     RowBox[{"[", 
      RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"rmin", "=", 
    RowBox[{
     RowBox[{"0", "\[IndentingNewLine]", "rmax"}], "=", "400"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dx", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"rmax", "-", "rmin"}], ")"}], "/", "imax"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"r", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"i", " ", "dx"}], "+", "rmin"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fp", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"f", "[", "i", "]"}], "-", 
      RowBox[{"f", "[", 
       RowBox[{"i", "-", "1"}], "]"}]}], ")"}], "/", "dx"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"e", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"r", "[", "i", "]"}], "^", "2"}], " ", "-", " ", 
       RowBox[{"2", " ", "m", " ", 
        RowBox[{"r", "[", "i", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"ll", "/", "3"}], ")"}], " ", 
        RowBox[{
         RowBox[{"r", "[", "i", "]"}], "^", "4"}]}]}], ")"}], 
     RowBox[{
      RowBox[{"fp", "[", "i", "]"}], "^", "2"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"r", "[", "i", "]"}], "^", "2"}], 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"f", "[", "i", "]"}], "^", "2"}], "-", "1"}], ")"}], "^", 
       "2"}], " ", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "0", "]"}], "=", 
   RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "imax", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"etot", "=", 
   RowBox[{"dx", "  ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"e", "[", "i", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "imax"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"r0crit", "=", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"(", 
    RowBox[{"27", "/", 
     RowBox[{"(", 
      RowBox[{"16", " ", "ll"}], ")"}]}], ")"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", "=", 
   RowBox[{"r0crit", "+", "0.1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ft", "[", "x_", "]"}], ":=", 
   RowBox[{"Tanh", "[", 
    RowBox[{"15", 
     RowBox[{"(", 
      RowBox[{"x", "-", "r0"}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ftab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"f", "[", "i", "]"}], ",", 
       RowBox[{"ft", "[", 
        RowBox[{"r", "[", "i", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"imax", "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sol1", "=", 
   RowBox[{"FindMinimum", "[", 
    RowBox[{"etot", ",", "ftab", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "1000000"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "6"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"etot", " ", "/.", " ", 
   RowBox[{"sol1", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tfsol", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"i", " ", "dx"}], "+", "rmin"}], ",", 
       RowBox[{
        RowBox[{"f", "[", "i", "]"}], "/.", " ", 
        RowBox[{"sol1", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "imax"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"ft", "[", "r", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Blue"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl2", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"tfsol", ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"r", ",", 
        RowBox[{"\[CapitalPhi]", 
         RowBox[{"(", "r", ")"}]}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Blue"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"enminexp1", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"pl1", ",", "pl2", ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Orange", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"r0crit", ",", "1.1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"r0crit", ",", 
            RowBox[{"-", "1.1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3.0254378003997098`", ",", "0.22974236844612195`"}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3.8545388518030097`", ",", "0.22974236844612195`"}], 
           "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(0  crit\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"2.8", ",", "0.5"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=0, \[CapitalLambda]=0.2\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"1.5", ",", "0.9"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(r\), \(0\)]\)  > \!\(\*SubscriptBox[\(r\), \
\(0  crit\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"1.5", ",", "0.7"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<r\>\"", ",", "\"\<\[CapitalPhi](r)\>\""}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Large", ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Italic"}], 
      "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", "Large"}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<enminexp1.pdf\>\"", ",", "enminexp1", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "1000"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "2", "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7291618389961042`*^9, 3.729162300269265*^9}, {
   3.729162430960935*^9, 3.729162436205023*^9}, {3.7291626598061953`*^9, 
   3.7291626695897727`*^9}, 3.7291627472911563`*^9, {3.729162792690287*^9, 
   3.7291628791225996`*^9}, {3.729162915516889*^9, 3.72916291734268*^9}, 
   3.7291629477517567`*^9, {3.7291629822473264`*^9, 3.7291629933329287`*^9}, {
   3.729163023618*^9, 3.7291631175637493`*^9}, {3.7291631684269104`*^9, 
   3.7291631868587604`*^9}, {3.7291632686500845`*^9, 
   3.7291634179469194`*^9}, {3.729163490937042*^9, 3.7291634960367537`*^9}, {
   3.7291635330819583`*^9, 3.729163543348522*^9}, {3.729163590142251*^9, 
   3.729163792290221*^9}, {3.7291638319433823`*^9, 3.729163842590516*^9}, {
   3.7291638765569496`*^9, 3.7291639043825855`*^9}, {3.7291683369439144`*^9, 
   3.729168353743918*^9}, {3.7291714796140685`*^9, 3.7291715105685196`*^9}, {
   3.729171544168502*^9, 3.729171641997052*^9}, {3.7291716851364775`*^9, 
   3.7291716922956924`*^9}, {3.7291722936788177`*^9, 3.72917236067975*^9}, {
   3.7291726023895116`*^9, 3.729172647176037*^9}, {3.729173034358032*^9, 
   3.7291730853698688`*^9}, {3.7291731891276984`*^9, 3.729173207777796*^9}, {
   3.7291738411962543`*^9, 3.7291739582747526`*^9}, {3.7291739950634136`*^9, 
   3.7291740911657953`*^9}, {3.7291741238382263`*^9, 3.72917437934755*^9}, {
   3.729174417461994*^9, 3.7291744485001345`*^9}, {3.7291744913132296`*^9, 
   3.729174620057006*^9}, 3.7291748291951094`*^9, {3.7291748644436536`*^9, 
   3.7291750217861166`*^9}, {3.729175052225199*^9, 3.729175058188723*^9}, {
   3.7291751245921097`*^9, 3.729175138551297*^9}, {3.7291751836741076`*^9, 
   3.7291752467803526`*^9}, {3.729177369499606*^9, 3.729177400656593*^9}, {
   3.72917810818503*^9, 3.729178119959456*^9}, {3.732451939515376*^9, 
   3.732451940510079*^9}, {3.7324535962634335`*^9, 3.732453615672557*^9}, {
   3.732453671059699*^9, 3.7324537541323433`*^9}, {3.7324537870656652`*^9, 
   3.7324538759560194`*^9}, {3.732453916745533*^9, 3.7324539184578333`*^9}, {
   3.7324539731777925`*^9, 3.732454006152108*^9}, {3.7324540412956424`*^9, 
   3.7324540711551757`*^9}, {3.7324541147480917`*^9, 
   3.7324541993664837`*^9}, {3.7324542326957464`*^9, 
   3.7324542336995726`*^9}, {3.7324542707196083`*^9, 3.732454284068573*^9}, {
   3.7324543348029547`*^9, 3.732454360943626*^9}, {3.732454399591921*^9, 
   3.7324544214161596`*^9}, {3.732454452122567*^9, 3.7324544854448647`*^9}, {
   3.732458194202567*^9, 3.7324583165451145`*^9}, {3.732508768668183*^9, 
   3.7325088213737364`*^9}, {3.733049434225415*^9, 3.7330494506322603`*^9}}],

Cell[BoxData["2.9047375096555625`"], "Output",
 CellChangeTimes->{
  3.732453657250653*^9, {3.732453743194398*^9, 3.732453754614379*^9}, {
   3.7324538652706356`*^9, 3.7324538765078363`*^9}, 3.732453919035737*^9, {
   3.732453994450653*^9, 3.7324540066888065`*^9}, {3.732454063379016*^9, 
   3.732454071773216*^9}, 3.732454144639916*^9, {3.732454178149027*^9, 
   3.732454199851924*^9}, 3.7324542347508316`*^9, {3.732454336327881*^9, 
   3.7324543617387977`*^9}, 3.732454421823947*^9, {3.732454462565344*^9, 
   3.7324544890604353`*^9}, 3.7324582301936445`*^9, {3.732458285971466*^9, 
   3.732458317931507*^9}, 3.7325088247385387`*^9, 3.7325164101425943`*^9, 
   3.7329504103022532`*^9, 3.7330494692175465`*^9, 3.7332065417232747`*^9, 
   3.733369924755834*^9}],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxF2nk4Vd/3OHC682CIMkQoIoVEpoqzSiORDKlIgyEpylSIUJIKmVIpTSSK
isjsGBNJg6lkpsz3EplC3336vH/97h88r+dc+5y91tp7n+3Zy46eMrVfwMPD
44R+EL9TthuV39Py1OP5+xnBV+bTFsufScD+n7trw0rkzrz65+kytnTa9vJ/
fiE/Nm6yrPafH94K5BT11P3z5WiFH7eXff3noE/xx6fJbf8cvmB/Tnhy5z/v
CXbm0d/c888PVjuF67z48c+F7zRsokz6/9khrN9duWLwn6m5CrVOypx/zj+1
RINiP/LPucKL5Sfujv6zlMaklhj35z+fvyZ1krVh/J8Tf+qU3T/965/XNm3c
YF888f/7U6Pe+G568p/1MKEoW6Ppfx7/oXG6Jm7mn0/dN3Jt/PQb+/P3w8UP
rzda4OEzi83/5z0Nu6IXys5h0//5sdebLP/iOWzgP09LwJfhg/NYwX9+t7/l
2papeUzpP8ff9MLuRP3BTs/9zwsNyjdRlvKA/uT/bL6jprvgNA9odv3Pbw0i
a1uKeMDj0f+80Whv7iybF9Y1z/81c43FUPIRXnCmz/51k6C5tMVrXji98+df
92A9cZ6MBZCQ/OmvR1w8RGKtF0C2ve1fqzwqaZZ6ugC6j4vNEz7ZwH//yeQC
WN+9cIawUJxqVyqbBOVenEnCOTamKzKWkeB9CuUXYdam7jfrlEjQ/GPtGGEb
WQ/HbE0SNOwQHCWcTqEw128iwYHmaA5hct+NZwWGJGj1SxskbFktb4TtJUFJ
pGEf4aep2ZySwyRQvLS/h3D90gCM5ECCh+KyXYTnwndEbDlBgv4DeDthE9ev
ays9SfBc9EgzYZ+uhxfo59D9nG2aCCeYOdXtDEDPJypVT7imXE3u2iUSdCvc
+Uh4QuO3R81VEize+bGG8DWXQ0udw0iwTKy2mrDMk7IKvggSdOVmvyW8UyxU
ZPcNEnzcbFhO+O6MZM6n+yTQ17bKI2wqUflo6yMShM7VZhOmb3QNy00kQfiP
VVmEPf0qjj5MIUF2/M0XhJXunTJanIruF5OUSrirSFz7ynMSKM3fTiFszOPC
5/oKfV9iVcLf+C0Tm+rJIkHk8/L7hPM3lXbtyyEBwx27S3jlRZEcKCSBa9vH
GMK8VPyoYCUJzn7Hgv7mT/64UVAVCdpHc/wJu2wX1p56RwKXW7RzhJtDjvF1
fCSBuqu0K+GIlIVTZnXoeQ5+P0F4e3V+V2UDCfItfBwIZ7IEc140k0BUjWlF
2Ekp75FsKwnEjHkt/sbPyC7sZjsJmr7jxoTDwnOO+veQgKp6bRNhh4VH+HZz
SFBoIyFHWFKNNVU6QgIpiqAk4c+mWV2aYyTQsMgVJozFMHKkpkgQ9Flqwd/8
Zb56FDVDgs0qDVPzyKkNB8OocyRoDF/HJSwmmnGUw0sGk+DOZsK1WtZGR8lk
CLZf+ZFw0D6qdiOVDL+bmBWER28f4CtikUH7UXQa4WpJUk7YYjJEqWz1Jhyg
m/aIV4wM6/umnQhr2liGeS4hw0jZSmvCCfefHT0oTYbvkp0bCR8otjD6tIwM
5/QPKxEW7PyjtVWODPbftkgQ9l1uzqesSAaHUIXJOWQ1/fnJB6vJUJEl3kO4
3za5a5EKGUSc938kvPfxbPasGhnSVj9JIrxm5eOjNRvJ4B+TtZOwSV00Vx0j
Q1PWJ1XCp89f8L2ziQx6xxmihF/WH4p12kYGW++nHbPIH/2NZT/vIIN85IJy
wiOrdF/qGJLhwjOzJMJrA5dU003IIP0t7xhhUyWG5WlTMgTxF24j7NY02d1k
TgYfnwg5whnKDXNJ+8ngquzf8htZvfn62q22ZCCXqW0kbH7pfFGqPRmmeb0E
CXuoOhsuckTxH1rdPUPUU7CBffdJMhx9/fgi4fq1Oj8NTpEhUtdoD+HxFgX/
DFcy5OfILyWsoU65HXiGDAbpSi+mifi0ja3o9yKDBWh6Ej5zpSvD5BwZIr6t
1iH8uh2vkQ4gw1MsPG8KWSvUh6foChmsdw8/mETep3U8bEUour5B3JywV5fl
krBwMlgJBpEJ52hrrLOORvE49dJ6AvlLt2xJ2Q0ysJ5tJBOeChcyXn2LDDLL
45N/Iet85x6buUuGr8b2veNEPUS0jR+5T4Y3j68HEvbZ8D6w6iEZuA7CYoTz
Ip/euZVEhuUj93XGkDfo2X/QfEmGRR31BqPI1v1m1vcyUDz4mstGiPqJ2dxP
ySKDlyddm3DBgDSpIZcMqnnKC7nILTf4IzYWkGH/yBtPDvIszEkmFpGh7df7
+mFk3ZvNmu5lZBAWtQwcIubvzVVlzRVkmDzsXDuIfH4422TzW5SPTPHFhIv0
bzgtfE8G2b5t4f3EeBzZfe9FIxkYEjMrfxD9cwoIM/xKhtVL9RW+E/Hveenb
+40MgZ8CJXqI8flloZV0JxmcOgx7OpErTTcb5HeTwVCClNNBzH81bjqWP8iQ
7E0LaCfGb0md6PVBMiyxlRlsIeppA5m2mkMGSoVu2DdifsxaN/FmhAwv7+Qu
aybGc8qN+vlfZHgW/US6iajnSMtIFx4KZFXLHfpIrFfskAAmiQLfu6SDapHl
g3NOJVEo0O5xO7aGiK+PuHEbkwJ4rFTgW+Sz4zt1ffgo8FU5wfINcpSLj5KI
IAV+5d0UKyfW56PfmMaLKbBJ8eReHLm7hTXTL0qBx+eDPhUgz+/d2H9pCQUU
6X7qecjrDOMrC6UpQH29JDkT+aH6oSDlVRR4vVJOM5nIX9p19yolCmQevFWd
SNSXQvFR+zUU2JwwsvEhMr/ksk3x6yig48fNuo2sGLtHVUcLte9bkXsDeYvg
BekGHQo4mLXeiCTqi9w9x8YoUFEa+TEE+cZ54eHkTRQYKv+xOoiYD6b0W7Zs
ocBdneF9/sg/hhLzfHdSQM6yQsaTGO8NDmeHzCggseaaqg2y8+6bDiF7KeDe
VdlliRxSVWkht58CGoPye/cQ9VG4cp21DQV28Tie0Uf+qrVfduowBQ4uXCK1
kRi/6VeEYmwpoBwZ6rsOeVXSwMg7RwoMvlMylUPeKiPRcewEBVZu210mgXw4
zvADyYUC1SfE24WQY8NT0za4o+eL1mLwIJPOujg986NAX8Pi0oZ5Lg5fe+4s
CaCAvHsUpxrZd4PV+ysXKFBY6/kaR574s13V8TIF5kwzGcnIakeLjjRdoYDz
FquwO8inytdFbwulQC95/m44cl/Isgm5SAp0RmjvdkeWG7ypEBNNgWgeTp8d
8hEj/v2kWHQ9sWnWArl54e/8zjgKNOU/99dEromrD7yXSIGF4WSbkTn0PjBn
8IrvCQX2ColqtSJvPVTS45tCgRpNbZsq5CLZ59utnlOgQf6m733k35fkvKtf
UqDeVMPhCrJ2X9xTnVcUAI97F9yQ01Mv84nlUCC3uVxjMzKHf17vch4FHvrX
FKxEXuXqcXqigAKeJSqW/MiJGkfq6ksoUPnUOqFxFsWzaP3tyHco/gZ4zAHk
zzLp1Ty1FAi0+vNKG1ngosLsqY8UUOsIvbUYOWT7okPGDRTQ5fW/+O43F69I
uRpR2ESBb361ronIC9i8pUrNqL5sdX6dQz73cViO1U6B24JbguWRc9Ts9vp0
UiAoXdpregbVQ0zz5f5u1N6ZS5XVyC77Kwcq+yhw9UXGJkfkw10PXgb9pMDT
OEpT6DR639oi2jU2TgGGquqQCfLXpDBh20kKJNtO1wshm57wObNplgKvxskf
r09x8evvR568nEfPf6gg2wC5Zs2xr9K8VCh5z1lKQt46brZxnkIFDdVx2slJ
Ln5hb7WzM50Ks7qFBySRi3LgfguTCsuLWquqJlD8/ZQX5AtQgTK7IFICeRWV
9vasOBXC7Atu3Bzn4ke1cCsJSXR9v1mEHPJtx7PcIikqnF4hTE4bQ/l/1ytC
laPCLSHp+y9+ovlz9v7TFHkqGOcP2Ssin1Hep2ekSIW9wqU98aNc/Pv1t/Yx
KlTYdZe57swIej8qCZjWWkuF+aKZ6K9ctJ7+1A77pk6F1QdKqzWRS81TMpfr
UMFSpKa0dZiLPxC/SkrXp8LPmHvejQNoPjHYfNN8GxWiRB5v5EUW8J1ZNbWD
Cnf9ee/J9qP5vs3JFDOmQlGuUJ9RL1ovBWR/dJlQwf/SQymLH1x8GL55B5uh
9u2nwk2/o/kywfDh+31UUCjeEqnSzcVj6kkarlZU8PBNN2N3of0PpeDtIhsq
7EkIednWwcXXOyqNWNlS4fvc9ZOH2ri4qDIfNuBMhVVsGdOyL2g+t6n4HHaa
Cs9qTztqN3Hx4Ot+DmvdqeAotW/BvQZUL6PDYV5eVFgsdMJE+zN6f5ZNWiZ5
jgrZmeqFJz5ycVtzmyzcjwoqOZZSYbWonl/XtlAvUgE7sb03thrtl/qCTz+9
RIWFTaaf/d5y8U3iGNk4hAorTmRk736D5sNzL1bfCKOCZMaYXHoJFw+HCB/Z
W1TgWSrwcE82F3/juoO/Mo4K0ts7U85mov3II55HTvFUuPDmsVpgOto/UVyr
0h9RIUZ/zZ71z9D7oKbiQYvHVNhY6hHV+wTND8c6R6aeUOHIy54U90S0n6je
IwZpVBh8G6AmG4/eL38zUrtfUGEqVXJE/zYaL0ql2OUMKji8a5PQu4HWq+tq
x2qzqbCgo6gsJxTtB8yFX1uXUmGHUItBnDcXP+i8MLSuHNX3sqCTmR4of8EC
Rw0qUfsdfFsenuLijrksfu0aKni6+MUN2XHxks+Mnue1VCg7+D5n+yEuvmSI
lrfiE6pPuZ/VLvvReJEiOwg3UmFm9R9bcSMuvkJ7wcarX6jgejBc4PY2VC97
eIR4v6F6sDSYbMG4uGrQbCGnHTlWmZmylotH948vru6nwpqz/PLCQlx8aMHY
IAyhen5vIXiGgdYrydGSbA4VrhntPH6VB83PxsPOj8eoIPUtz69gmIPvdhzU
l5ygQueZe6H13Rw8ObBfPHqKCiPin15EfeXgBzK/VwTMUSFyUUzTeBkHf/W+
+87kHyrUvX9yOiqHg7N7O11dFtDg7OuurVWpHLxIvG2pNY0GhwTC08ejOfhy
/0ZPrYU0+Bww3ddszcHP3ao3fC5Mg/v68m7fjDh4ffrnZStEaPBj17Wze/U4
eHBP7XshCRqMPt1v/3QpB2+fq0m4spQGutv2aPqwObi26DtvHhkaPLiUYpYx
M4wP7KxcwZGjwRj/447tDcO4vm3FbzsFGpwba1a/UzKM3/Ut+/RNkQbXOB23
N6cN48YvcL8qFRooWQuOnr0wjGcsymlI1KbBdymzoFbZYZyl8vqZxAYaDAs4
LVZnDuN22zMDo3RpUGTS/y2NO4SL+LxUDthMA2mLNczp7CH8VPRz0uQWGhx2
bVxaEDeEv01N/eq8nQZ2RhH4Fd8h3Kc9+ZLVLhoIvrt1Z6XuEF43lWT12ZgG
hRIR5wclhnAlocdrd+5B7W2r3Hx3ehBv2/KwVXMvDY40H/NNSR/ENz29rSF0
mAYOLWn2d4QHcbJxS5rvURqY3UkU/Ng/gL8ZlZLvtaOBxQ/JwJKiAXyXTqJI
wXEazK/XYxfYDeD73j6ftHdH8Sr8+ljrQT8ucXL01EdPGjzpravyOdGPtwms
61vvRYOhFzcpuhr9uJ1l7hcBPxosjEw0kynvw0//KMvNDabBhsuXyFG1vbj6
Vaqa3BUa2OZPnpgL7cUnlHc+Db9GgyVRsl/Sdvbivp61cbYRNPi2rqq6rPAH
fpn89RxfHA0COvMqJCO+4wbJEuNn79KgVzo9H0UdZ++yOdl1jwYR7bvWszg9
eFR0t3V2Ag10DPdb7NrSg99bztE9kkaDKzG/Ou2+duFH3qi+fveCBlor3Xbi
3l24nJO7imYGDUSLT+yQEevCn6ZPSbGyafDo2ZE/k8ad+Gsg8WQV02C3u72R
nUE7/t5GrJReT4PNJeMXqrhNeMQCq/Xujah9WSWDmvFG3DQpPqP1Cw2cXZXM
4yYa8C/DyxMyWmkgs31LLM9oHd7jqxxk3UsD9+Ukb4uQD/hs3OZtL2doYPgt
YWEhowDP46uU2T1HA/8iE+pFpWzcK8Dw9/AfGmTJR/iMGWTgY/bmL1dT6CDd
tTChZ/YBPqDqsOSJAB3Onb2u/GpXEvblzRVOvBwdYixJy0X732KxOvxVGxXo
UPImP71N/x1mnhqV8E2RDoeaK6oLb7/HPkTe2Se+hg6N5UOMhCWfsDfWaaUx
OnSobZ04ORnRgGX+/Bh7zZgOlaWeQrerWjE3ewvXVXvocED0UHZeYRum+uWr
YZUZHZZnb3vukNaOPSvs4qHtp0MoV+LnDbwDexQy7nTBlg5xrTX+pZ5d2OHf
XluXOdBh3YNDDoGtXZiUy5x0sSMd3Pj0BDibu7HbZtSGOWc68Lh72DVSe7AI
KTHM24sOS36nPtRw/44ZR94VFztHh7PaC8afv/2OscnLxl/70eGkcNXQmMQP
7HK/Ysr4BTqk7Lsq/jv/B3Y+c4Pw6TA67Dar3VPb1YttVCge5o+gg63Nyj+n
Ffqw6dtb3qZF0eFwusaPpU59mIe/kd/gTTqs7HNUzO/vw04YHOp1eESHd+K9
mXx1/ZjBY0Xy10Q67DrcvfM8ZQBbxTMuY/iEDipTX2R8NQewvqyQA2tS6RDi
+uA1FjOAvRU0O/vwOR3ETpn5Ly4ZwJ6cWBojnE6HTJlDN28NDWAOyzLeT2bR
wbkw9NgbbBDb6us7cDyHDuKtr+sDjg1ick3baC15dMg7HTtBCx/EukO/QTFO
Bzty8Fhc0yB2eIqcGVJFh1a7jo7Eg0MYZvbh48w7lG9djyuxvkOY1PPbwydr
6RC+Nu3q9bghrNVWRWFPHR0kGWurM+qGsIKiKf2yBjq4OCWaDnCGsLviZYc1
vtChb/3kG33GMHbgg2WceCsdjF9euu+5YRjTWbU8+1o7HTTTT247YDaMiV0a
qpvrpMN95bU23k7DWNP6QL6uH3SYBJ8xv9hhzDzpacDTETpcn0/qXP9jGFPn
9YyXHKPD0uehq8KnhjEhaywv/BcdXBVskrYxOdinhfVjbjN0yLULUpxZzcFe
nrwn+H2WDtoNJlbzGzhYRKWjsuUfOqhaNCz2MeRgxn5zDhvIDLi622plvyMH
U/5SeTGNygChBSXZPWc4GFs96oE0gwF76tIwxyAO9q5PvpnEz4COmD0nRe5x
sB3mJkY1ogzIiZtLdq/hYAovljjpLWHARL6d1qImDkZlfg9+KcmAV248rvs6
OVgF7l0cs4wBuq4RXU3jHCxxyZZWqhz6vrx2u9g8Bwvy5J/xkmeAypE7Cxk0
LrZ5dYL6wdUMGLA++IJXjIstD3Y2+aDMgPWWwWoCMlyMt1PLeZMqAxSiFkk2
KnCx4tiapBUaDAiIMvO6rcnFdBdMiHP0GJBNYSar7+FiYkoLbsdsYgDX8KhS
tSUX+2nBL7ZhCwPEZcXKltlwsaQUeZGQnQzYuk9z+1InLhZQp3ZDZRcD+OY8
IitOcbEDc3qLGowZcH89M0XLk4vx77EUWm7OgG2SgQqB/lysz8c28u1eBkiN
WlhYB3Gx0sRTgqf2M6DobXQ7/QoXOzN1mb/ABsXTk9beEsnF2u7nMPceR39v
kkGPf8jFcqrKr8yeYEDv1TB+1cdcLGrsIz3BhQGGKofjHyRzsW3b+6kj7gzo
GVvsLP2Ci8m4/roUe4YBHiweSdUMLjYTx0vR9WaAfW+JqmwWF3vBESddPc8A
5dhrnMw8LnZVTP6CaiADTqw2e2FRyMXsNqvxNl1kwL7RVdRWHMUn1uCP7BUG
MHm8NiaUo/7rnvtdGM2Aow7mpvLvUf+PXfaxi2VAclFc2KIPXGxdZPQ08zYD
eA8uFR75iPrf82zS8h4D2iONK13rUf/5c87MP2DAQt50A/FGLnZXu/xXYgID
NBXUSl82cTGT0Jax0WQGnM0wHUtv5mKrXve53XqG6m8i+pNkCxcjd4yP6j1n
wPI1j4a9W1F81PlGrr1iwEshWQ67g4st+6Y7tKKIAYIKX08m9HCxWbLBiZpi
Bkg86clL+87FGlX2DriVMWBNscBw2g/U/wsuffhb1L819YGRfaj/qT7HHN6h
+F47Gu/Zz8X0GoN/sGsZoHEEE9gzgOpD8X7P/joGaEkWbOYOcrEas2e2PI0M
cFecfZQxhOrFL7sr6QsDzPdRb7oMo/h8+tAx1sqAtdadlp84qP9ePK1hfQxw
E+89u3OUi1GV98wrDDLgFIOh2Yhs0PlQunSYAcEpExkHf3Kxzzv1j078ZMAX
2f4XB8e4mMh89MWIXww4fCQ9vBH5QEZP4qopBuBPOP0G41ysa0lwr80cA0Kr
Q4vlf3Ex+Q+N9Ok/DFjhcjAsHNnposKq6AVMuOL+wPsn8s/BtycraUzI/LJe
/8UEFyMVsn6uEWKCQ2S4Gc8UF9vhai1cvYgJtVYC7buQQ1ekrbMTZcIZYdvw
WORF4cZnb0kyoTS2rnzZNBfbt/n+LTVpJmzfE+tvi3x3gptbs4wJIV+vVjxC
ljsUOcujwATLlkUmS2a4mKNw19I7ikzQlaeXmCKnVqphGkpMOKE1vfgK8jrV
+sDja5kgNVmcz0XewitK+7yBCRtuV8wl/eZiIVnHVp7UY0IhVeHOR+Sa4zk7
qZuYIHPP+OkUsvnn/aHrtzFhz7vv+7bMcrFbwU/T6ncwoW3OdZEjcsv637Uu
hkwInKb5XEW2S7i7MMGECQf4xz3fISdbDqvpmjFBr8hFbgB5iKVn3mTBhMPm
W9Noc1zMw6M9lmXFhNTIC94YctDW5ZIe9kzQTr0skoD8dtpNl9+RCcKyulm5
yOznZTbJTky4kHj63AfkGBH7hy2nUH9cbe9NIX+pzio948ZE+/mTTPY8F5P0
p/YIejLh9r3wAinkxN4n8lt9mOClnsi/GbnvztT2dl8m2Jjk5psiK5nsPO7t
z4RLjcpVR5EzcwaepQUxYfJds2QgcsUV5bUi15nwXq8cspFXyZfHXIxkwnjs
/oJS5IjSA1Mj0UyoKdL/9B7Z+vdl/N0tJsx8NGroQi69KSWrc4cJccfWvxtC
VliXFZwUz4SpfaKOE8g/T3YZBT5iwrzt5CP6H1QPDO90TiITjl/o2LYQufCx
wGLrJ0xYPnw5Xhw5pG1ji2Yqav9oubMispTJTaehLCZYvSpq34ocNKRcuz+H
CX09Yod3IfeHlK+tzEPxHTVJMkXOLBmdeoij718+FmqDvMQmxFqglAn5VdKq
dsgBM1LFvuVMyIt1engc2VB912XLKiZcv/VqzB355YeugfJ3TPjdQf/ihSxy
0ttYrZYJBdz7EX7IXYlJi/nqmKC17lFQMLKXCG9iaQsTEnx878cit2XcpKm2
M2HTcLVRHLL+bpUT8Z1M6NVd8y0emT/ESs3rBxN4Tr29mYjsIffzxvc+Jrxx
X131BLm5OGTadJAJlWa8bU+RH09nFSuPMOHk0HTWS2Rm7C65Oz+ZkPKe59wr
5NNq3Zfpv1A+z+orvEbeeEJwd/c0ExbBgHY+8ucWp9ZbJBbo8EhZliNre/Nu
olJZ8EYz/uQb5PjFtxLd6Sywe+t96i2yo3HFCWM+FnS/bsdqkGsHrD7kC7Cg
S/Qxfy2y+uWfaopCLHDaDO8/IM/j0jMkURaMiWpI1iHbWb8+6CrOguquB2n1
yFVTu0raJFgQJkBb24gcs9YnJFeGBeE5rwS+Iq9OqBc5tYoF3Bs6Om3Iofxp
LYLKLDAg6RH//8aGvC89yljDAo19PXkdyKkmmioT61gwJDfK7kZmF/CP39Ri
QXyqzooeZGeF3lyd9SxIiexT+46sMn9zqx/Ggt/Cgqq9yOHHT7OkNyO7Gcj0
IXPrd3wq3sKCoFkXWj+R/2fT1mQDFrgJ1+UPIKvtt/K4Zs4CzevfKoaRo8rV
1ytbsqDshPkZDvLYGjbPh/0sKHktI8Ml6o9aeE3oEAv47706PIK8yO3Gnswj
LGDpjE8S9mh1Ft1rxwI9F98ro8gamVIJt4+z4LMIdvcncqz0pOOGk6h98a6l
Y8gTVz+otLqwoHEuPo7w6yMBeTIeLJjwlQweJ/Ip0PXpyXkWeAlPKU4g3/LJ
u7kzkAVqxupXCE9/jzo4eJEFIpfqewjnFej3q1xhQZ1gXeQkMT5WSr74eI0F
Kze4dRP2iR73cAtnwYsVv9dOIW9weszzOpoFcknwhvDdBr83lrEsoKdosKeR
Z2Fv6PQtFly0urSbcIEoTUz3HgsqjOJqCetVOK4pT2aB6QOl9Bnke6qbftk/
Y8GpuIgewn/uiOfTnqP8Ukkiv5GL3aq3Gb5iQWTJQXfCMm2P2MNZLPhz8/h9
wgE7z30Oz2HBrt/VVYQ3ySjZfC5kwaPdteKzyI+ukeU8illQ/iocI7xgsqV/
cRkLrsV22hIufR/muf8tC7bHeyYT3nKOG9rxmQWB3bnL55Df1PLdsGhA97dO
2kh4x3Kl+OomFnhrJlsQ3lXlmJbZguLNZV8iXCt5OUuxnQVtwf53CJucflx4
r5MFo+Py6YTNRbveh/xgwUCtajPhRieexrk+FK+mB8OE9xVJtbkNsuD5+GGe
eWRreyuO9QgLBBYPyBK2fVXPv3aGBU8eF9sS7qGOiSTNovg9N3Mj7HBgobTE
HxbEfTgaQNiJ13gNhcwGiS+0O4SHzE9q+VDZ0H8j6Qlhl+SrGJfOhjmJuleE
3XZX7v7Kxwbji9+rCY8/+m5pLMiGJFZdA+EzE6TDZUJs4E072EHYJx5Op4my
4brovnHCFwZzIwKXsUG4d4PYH2Qy9uXWhCwbUs47yxAOjpp4cEKeDWyO+UrC
V3XU0y1Ws0Emd7cWYXbYntxqZTZUsh31CId3nCrBVNnwWRG2Eo66nPpJUYMN
CsXapoQXfav+ek+LDc3BB/cRjlXp7xRezwbVVwY2hOMaVvyc02NDDy34OOGH
sveFPu9gQ6nzKz/Cy88WLtluiJ4/w/gC4cTqb8sLjNjgtK04mHCyq5h6kikb
tqorXSe8qkJzg4QFG2wsFaMJp4pZ6EdYsiH5yIKbhF/ikWY+1mxYrW10j7Ca
8Esrrg0b7pwqeUg406HW1u4IG87aiTwmnMPH8jB2YIN0n8MzwsVWQTHLT7NB
40fR67/t6/TqXXNjw81FO3MJ3xI16B/zYINKTkE+4dN1AnoV3myw9LItJmyd
7tan7MsGf8FbpYR3XG+Iij3PhoDFucT5DEza8E7vsYtsmBEpI85vYBPUIxt1
QlB+E4KJ8x5Ybal8JDOMDSEhdOI8CHZ+fcb6tFg2/Brd10h478TZ6+fvsEEv
aM1XwioZuj27H7DhfEz9N8JUF5LOsseofi4YthFuU6wK+5nCBhe3mx1/8/nQ
XOvGKzaot+US51kwXfGODq1CNsRPmBDnXbChiBNXm9+g/AidIs7DYHfpk+p+
H9mQJi1HnJfBdgVcaJVuZkPeqN8I4dlJvsul3eh5roX8JGzVK9dMm2RD1Ykv
xHkcLK9xg7IRkw/qyi2nCEe6fyrhHOQD33XFc4QdBY/tjUjng9HWvX/+xjM9
Vz3uDx/0CVf/tbcpe2GiET8wP3D+eqqv3aokkR+i1X//tZf/q6S23/ywNOXv
+SPs/wB0J7Tr
        "]]},
      Annotation[#, "Charting`Private`Tag$2590#1"]& ]}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 0, 1], PointSize[0.009166666666666668], Thickness[Large], 
      LineBox[CompressedData["
1:eJxV1wtYzOkeB/CZpplmppnpOGmFHrVhO8kluaxZ5ffjICurTXtcIiyFiFw6
SGKTXJJVkpIk2iO3onW/pKd0oUSEnMJWuphuujc19f+fnffd53k7PU9Pz+f5
T//39vt93/p6ld8CbwOBQPD0z2/9z///as4oznSI8H4dBVcX17/g+S9/OQlc
jsmS9H5oPW9x7KMUEJfqrrPnN+CecHS63nO2Qvuep3dh1qPHmezz6WBu8jxX
71M+oz++W5IJO7/s7Pf+xzDg1ou3eiuHqGe0zs+FFrMlZex9T0B3KuwPvffl
z7pgPLMA6qcdrGDvL4STT6BK70An29DjFkUwwiavio33EhrP/lSr9+3ocd9a
xryCmHXBGjZ+MdjZbqzXu7lxkubKgDdwvydPw+bzFo5HzGjR22624+kp4SVw
6hHfyOb3Dn7d1dKst3fCjB9yJKXgPFPXzuZbBl5GP7fpfbZzDu8W/B5Sxsxo
Y/P/AGW34zv1Lp3vmvZR9xH6Dq/RsvWUw7DqOV16hxVfTpv0oBwyvnPtZOur
gMxBQ8jzZD5FvltbASOm+mvZeitBsLSBONsubXXWpE8wQ5KiZev/BP8W7yeu
XHTzoXRbFXx3t1jL9qMa7k1179abD7lj5nq9+s/nO7rZ/tRA3L6VxBbX72+K
bqyBMN3cbrZfteCydimx+n16Xtmoz2Ck/dzN9u8zYMauHr0XSjOtrNdp4OyO
hh62n3Uw+o6DTm//idkB6/5TB2pjFx3b33ro++JBHLky71VqZT18lbNHx/a7
AWTxL4lTw/PtOiwboaJ8ci/b/0Y4uTaeuOBu4f6pnk3QlsP1svNoggOx2Kf3
56qiD8FxX2CdyaI+dj7NUBfxC3GIdP3Qqg3NsPf9vT52Xs1we7mOODKh3vmg
vAW+cXTn2Pm1QIXJNeLEiRv9R11qAbfI5xw7zxZwV5YQX8tvSix0boVXGUUc
O99WMFf9Rpy+cnPh5ppWONLpx7HzboPu0qXEzzpbuk1D2+D0BB+OnX8b5DVF
EpeGb/vmzvB2EBTT8Wg9tEPghNG83hrrjgUeWe3gHLWZZ/XRAYPCYom77m7f
27eyA9oyEnhWLx2QUBlELHHVXknkO+CZB/Ksfjph/70+Mp5ZdcC7fyZ0QvXq
TI7VUyc4aCKIhwfqDGsdu6Dpsz/H6qsL3mAgscOAoPFhZV3gLzvPsXrTwo9z
yogxmfMcs0sL5TsG8qz+tOBhSOfj6vRLWJF5N+xb4cGzeuyGhiGriJcXC+9s
u9MNW2wX8qw+e6D8/hRiX5+QT18t7IF4oQnP6rUHjLdUkvEDecO/3W/vAcf2
dI7Vrw7GbbxEfDj6gKNnlA7G1F3kWD3rYCg8II61k/oIHHohaBBdD63vXqi0
FpHxkjMPRycV9UL+gTE8q/c+uMq5Ed9aZJw1268Pbk/24Vn998EoJT3P7Mbw
Jo2Sg+6oNTzrBw5Mz80nfhWiGnr0KgdlkXY86w8OTkQLiSsGRzjbu/BwPPUN
x/qFh8CrqcTN1wb4F2t4eOZ0gmP9I8A0y3Bi/vz3P06dKcD832M41k8C3CS6
SSzZFFYTHiXAE1l0/bS/BPizn4yMr1IX7P5YKUDztfQ8aL8JsXGQN7GZocLU
3kGIJk3hPOs/Ia4ITSG2eDHvUnCwED/EPOZZPwox91QB8Yi4o1BcJMS3a7J5
1p9CDBucRmzn/fzNCCsD9M6P4Vm/GqDLjT3EDvYmvtv9DDDLaz3P+tcAxQGe
xGqdq8GTRwZ4rWsxz/rZAI/a0+fTcyNiB6tEOCGZ/j7tbxGeLQim9Rz5cuwG
TxH6/nqOZ/0uwuiLubS+l/095+FVEX5d3MCz/hfhSDcpuf8X2bgvVfWKMGqw
OTHNA0NcvHQk8fLWqJYVLoa45dM4YpoPhhhz+Fti7/TXB9PiDDFwuiMxzQtD
HL51GvHGQ2bDRHWGeACAmOaHGNOtkNjffeHNn9Ri3Ns0nZjmiRhzQmcSBw6L
mXvhkBiXRDkT03wRo0eMC/E+TUl5V4kYnXPciGneiLEo14M47Kb5ju9tJOiW
5k1M80eCY8duJo7cu0R5ersE36ftIKZ5JEHP2l3EsXPjkhpyJOi0jprmkwRj
JuwkTjQrU08zM8JjZtuJaV4Z4eUp/sTJ5UOLjnkZoYXzFmKaX0ZoOtCXOPXK
sjUVN4ywaDydH80zI0ztWE58e/uZXgeRFLMVy4hpvknRttSTOH36x+P7F0jx
7pnVxDTvpHjkv+uJsxWWtm/PSdGphK6X5p8Uj+2k8ysoWZFh0yJFy2w6f5qH
MrT1CKB/H55P/FcAyrBYvZuY5qMMn6qDaL1srKjPPybDUc/o52leynDYNLre
iinW+yz+kKHnEbo+mp9ytFLT89GIVptvGitHG6MFxDRP5Wg5/gdaL8+TUjOC
5Phk6FxaLyRf5RhfROuh61TVzAGFcgytnk3rheStHGUB9DnnNbJslYUx3kqj
pvlrjKaDZtF6sV+z5eYGYwyZTOuV5rExZsQ70HrRXTCSPDDGFCdrWi8kn40x
qFNBPDC39swiuQKDBLU8y2sFWkXfoPkS+Y+Jl5YoMPxcGM/yW4Ee9luJhy/z
ye+5qEBP3rdfnitwl9du4lE2l1fO0yow1CSpX74rMWLce5ovrXWdZ5yVqFgs
IfOhea/E2Ao6P3W63dEvJ5WYJe3pl/9KNPP6nRgP+Q6fXqNEz5RZ/e4DFU48
T+9jZ/eUe8cnqTBwZwDH7gcVPsy/Tuw6rMm1ar8Kt73y6XdfqHBTpCmtF83Y
mkmvVfibTS/H7g8V/vX/B/wPEB8NQg==
       "]]}}, {}, {}, {{}, {}}}, 
   {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{2.9047375096555625`, 1.1}, {2.9047375096555625`, -1.1}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], 
    ArrowBox[{{3.0254378003997098`, 0.22974236844612195`}, {
     3.8545388518030097`, 0.22974236844612195`}}]}, 
   TagBox[InsetBox[
     SubscriptBox["r", 
      RowBox[{"0", "  ", "crit"}]], {2.8, 0.5},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "0"}], ",", " ", 
      RowBox[{"\[CapitalLambda]", "=", "0.2"}]}], {1.5, 0.9},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      SubscriptBox["r", "0"], "  ", ">", " ", 
      SubscriptBox["r", 
       RowBox[{"0", "  ", "crit"}]]}], {1.5, 0.7},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{Large, FontFamily -> "Times", Italic},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["\"r\"", TraditionalForm], 
    FormBox["\"\[CapitalPhi](r)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{757., Automatic},
  LabelStyle->Directive[
    GrayLevel[0], Large],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{-1.1, 1.1},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.732453657250653*^9, {3.732453743194398*^9, 3.732453754614379*^9}, {
   3.7324538652706356`*^9, 3.7324538765078363`*^9}, 3.732453919035737*^9, {
   3.732453994450653*^9, 3.7324540066888065`*^9}, {3.732454063379016*^9, 
   3.732454071773216*^9}, 3.732454144639916*^9, {3.732454178149027*^9, 
   3.732454199851924*^9}, 3.7324542347508316`*^9, {3.732454336327881*^9, 
   3.7324543617387977`*^9}, 3.732454421823947*^9, {3.732454462565344*^9, 
   3.7324544890604353`*^9}, 3.7324582301936445`*^9, {3.732458285971466*^9, 
   3.732458317931507*^9}, 3.7325088247385387`*^9, 3.7325164101425943`*^9, 
   3.7329504103022532`*^9, 3.7330494692175465`*^9, 3.7332065417232747`*^9, 
   3.733369925015126*^9}],

Cell[BoxData["\<\"enminexp1.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.732453657250653*^9, {3.732453743194398*^9, 3.732453754614379*^9}, {
   3.7324538652706356`*^9, 3.7324538765078363`*^9}, 3.732453919035737*^9, {
   3.732453994450653*^9, 3.7324540066888065`*^9}, {3.732454063379016*^9, 
   3.732454071773216*^9}, 3.732454144639916*^9, {3.732454178149027*^9, 
   3.732454199851924*^9}, 3.7324542347508316`*^9, {3.732454336327881*^9, 
   3.7324543617387977`*^9}, 3.732454421823947*^9, {3.732454462565344*^9, 
   3.7324544890604353`*^9}, 3.7324582301936445`*^9, {3.732458285971466*^9, 
   3.732458317931507*^9}, 3.7325088247385387`*^9, 3.7325164101425943`*^9, 
   3.7329504103022532`*^9, 3.7330494692175465`*^9, 3.7332065417232747`*^9, 
   3.7333699253910046`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"m", ",", "q"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "1"}], ";", 
  RowBox[{"q", "=", "0.001"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ee", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"9", 
      RowBox[{
       RowBox[{"r", "^", "2"}], "/", "2"}]}], "-", 
     RowBox[{"8", " ", "m", " ", "r"}], "-", 
     RowBox[{"4", " ", "q", " ", 
      RowBox[{
       RowBox[{"r", "^", "4"}], " ", "/", "3"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eemax", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"ee", ",", "r"}], "]"}], "\[Equal]", "0"}], ",", "r"}], 
      "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], "//", "N"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{"f", ",", "qq", ",", "m", ",", "r", ",", "tfsol"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "0.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ll", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"imax", "=", "200"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tsol", "=", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], " ", "-", " ", 
        RowBox[{"2", " ", "m", " ", "x"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"ll", "/", "3"}], ")"}], " ", 
         RowBox[{"x", "^", "4"}]}]}], "\[Equal]", "0"}], ",", "x"}], "]"}], "//",
     "Chop"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rmin", "=", 
   RowBox[{"tsol", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rmax", "=", 
    RowBox[{"tsol", "[", 
     RowBox[{"[", 
      RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"rmin", "=", 
    RowBox[{
     RowBox[{"0", "\[IndentingNewLine]", "rmax"}], "=", "400"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dx", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"rmax", "-", "rmin"}], ")"}], "/", "imax"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"r", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"i", " ", "dx"}], "+", "rmin"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fp", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"f", "[", "i", "]"}], "-", 
      RowBox[{"f", "[", 
       RowBox[{"i", "-", "1"}], "]"}]}], ")"}], "/", "dx"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"e", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"r", "[", "i", "]"}], "^", "2"}], " ", "-", " ", 
       RowBox[{"2", " ", "m", " ", 
        RowBox[{"r", "[", "i", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"ll", "/", "3"}], ")"}], " ", 
        RowBox[{
         RowBox[{"r", "[", "i", "]"}], "^", "4"}]}]}], ")"}], 
     RowBox[{
      RowBox[{"fp", "[", "i", "]"}], "^", "2"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"r", "[", "i", "]"}], "^", "2"}], 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"f", "[", "i", "]"}], "^", "2"}], "-", "1"}], ")"}], "^", 
       "2"}], " ", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "0", "]"}], "=", 
   RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "imax", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"etot", "=", 
   RowBox[{"dx", "  ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"e", "[", "i", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "imax"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0crit", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"(", 
     RowBox[{"27", "/", 
      RowBox[{"(", 
       RowBox[{"16", " ", "ll"}], ")"}]}], ")"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", "=", 
   RowBox[{"r0crit", "-", "0.1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ft", "[", "x_", "]"}], ":=", 
   RowBox[{"Tanh", "[", 
    RowBox[{"15", 
     RowBox[{"(", 
      RowBox[{"x", "-", "r0"}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ftab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"f", "[", "i", "]"}], ",", 
       RowBox[{"ft", "[", 
        RowBox[{"r", "[", "i", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"imax", "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sol1", "=", 
   RowBox[{"FindMinimum", "[", 
    RowBox[{"etot", ",", "ftab", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "1000000"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "6"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"etot", " ", "/.", " ", 
   RowBox[{"sol1", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tfsol", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"i", " ", "dx"}], "+", "rmin"}], ",", 
       RowBox[{
        RowBox[{"f", "[", "i", "]"}], "/.", " ", 
        RowBox[{"sol1", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "imax"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"ft", "[", "r", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Red"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl2", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"tfsol", ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"r", ",", 
        RowBox[{"\[CapitalPhi]", 
         RowBox[{"(", "r", ")"}]}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"enmincol1", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"pl1", ",", "pl2", ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Orange", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"r0crit", ",", "1.1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"r0crit", ",", 
            RowBox[{"-", "1.1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2.8108769438673735`", ",", "0.22454466616582414`"}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.03128685526273012", ",", "0.22454466616582414`"}], 
           "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(0  crit\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"3.05", ",", "0.5"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=0, \[CapitalLambda]=0.2\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"1.5", ",", "0.9"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(r\), \(0\)]\)  < \!\(\*SubscriptBox[\(r\), \
\(0  crit\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"1.5", ",", "0.7"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<r\>\"", ",", "\"\<\[CapitalPhi](r)\>\""}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Large", ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Italic"}], 
      "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", "Large"}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<enmincol1.pdf\>\"", ",", "enmincol1", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "1000"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "2", "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7291618389961042`*^9, 3.729162300269265*^9}, {
   3.729162430960935*^9, 3.729162436205023*^9}, {3.7291626598061953`*^9, 
   3.7291626695897727`*^9}, 3.7291627472911563`*^9, {3.729162792690287*^9, 
   3.7291628791225996`*^9}, {3.729162915516889*^9, 3.72916291734268*^9}, 
   3.7291629477517567`*^9, {3.7291629822473264`*^9, 3.7291629933329287`*^9}, {
   3.729163023618*^9, 3.7291631175637493`*^9}, {3.7291631684269104`*^9, 
   3.7291631868587604`*^9}, {3.7291632686500845`*^9, 
   3.7291634179469194`*^9}, {3.729163490937042*^9, 3.7291634960367537`*^9}, {
   3.7291635330819583`*^9, 3.729163543348522*^9}, {3.729163590142251*^9, 
   3.729163792290221*^9}, {3.7291638319433823`*^9, 3.729163842590516*^9}, {
   3.7291638765569496`*^9, 3.7291639043825855`*^9}, {3.7291683369439144`*^9, 
   3.729168353743918*^9}, {3.7291714796140685`*^9, 3.7291715105685196`*^9}, {
   3.729171544168502*^9, 3.729171641997052*^9}, {3.7291716851364775`*^9, 
   3.7291716922956924`*^9}, {3.7291722936788177`*^9, 3.72917236067975*^9}, {
   3.7291726023895116`*^9, 3.729172647176037*^9}, {3.729173034358032*^9, 
   3.7291730853698688`*^9}, {3.7291731891276984`*^9, 3.729173207777796*^9}, {
   3.7291738411962543`*^9, 3.7291739582747526`*^9}, {3.7291739950634136`*^9, 
   3.7291740911657953`*^9}, {3.7291741238382263`*^9, 3.72917437934755*^9}, {
   3.729174417461994*^9, 3.7291744485001345`*^9}, {3.7291744913132296`*^9, 
   3.729174620057006*^9}, 3.7291748291951094`*^9, {3.7291748644436536`*^9, 
   3.7291750217861166`*^9}, {3.729175052225199*^9, 3.729175058188723*^9}, {
   3.7291751245921097`*^9, 3.729175138551297*^9}, {3.7291751836741076`*^9, 
   3.7291752467803526`*^9}, {3.729177369499606*^9, 3.729177400656593*^9}, {
   3.72917810818503*^9, 3.729178119959456*^9}, {3.732451939515376*^9, 
   3.732451940510079*^9}, {3.7324535962634335`*^9, 3.732453615672557*^9}, {
   3.732453671059699*^9, 3.7324537541323433`*^9}, {3.7324537870656652`*^9, 
   3.7324538759560194`*^9}, {3.732453916745533*^9, 3.7324539184578333`*^9}, {
   3.7324539731777925`*^9, 3.732454006152108*^9}, {3.7324540412956424`*^9, 
   3.7324540711551757`*^9}, {3.7324541147480917`*^9, 
   3.7324541993664837`*^9}, {3.7324542326957464`*^9, 
   3.7324542336995726`*^9}, {3.7324542707196083`*^9, 3.732454284068573*^9}, {
   3.7324543348029547`*^9, 3.732454360943626*^9}, {3.732454399591921*^9, 
   3.7324544214161596`*^9}, {3.732454452122567*^9, 3.7324544854448647`*^9}, {
   3.732457081593582*^9, 3.732457081963682*^9}, {3.732457120555394*^9, 
   3.732457128892007*^9}, {3.7324571686649055`*^9, 3.732457219665307*^9}, {
   3.7324572724092655`*^9, 3.732457293185232*^9}, {3.7324584043048906`*^9, 
   3.732458412766968*^9}, {3.7325084051518097`*^9, 3.732508475488192*^9}, {
   3.732508603211289*^9, 3.732508603849938*^9}, {3.732515670241495*^9, 
   3.7325156730638657`*^9}, 3.732515776925618*^9, {3.7330494589907894`*^9, 
   3.7330494631295257`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxF2nk8Ff/3OHDufq/QZkkSEaWULEloDokQKaFVpUIKUbKkIiUlsiUtKksp
UZG1YlBCWbJLliyV9Y59X76v6f359fMHj6d779x5ndc5Z+bxmCNl7bT7BIWH
h8cB/SL/vtA3/vRIzXULz9+ffnzVe6aQ7PlY7P+5vSwwT+b823+e+DhveZL+
p39+LTs0bCpV9s/RkT7cnI6qf74eJvf7ntT3f75aEXVygtb8z0GUfZlBz1v/
eZefA89WnY5/frLGPkj99e9/zv6qahVq2vXPNoFdZxUKev6ZkSVXZq/A/ef3
TmKq9BP9/5y1SEh29OHAP0uojqmJEoP/fClA4jSfxvA/xw2qf3x8ZuSfN9Rp
apzIHf3/6ylRrv06MfbPW7CFoceMJ7DZOfKHwJcskuEVHZ7AJv7n4d+qZ0ru
T2Kd/7PSx7wzuzZOYen/s9NjY+faiilM5H8+stmYcs5zGvs5/Z931ewIWyA9
g2mP/Oen7p/TLufOYKNN/3liKdT3HZrF5MP/89d9jQG647MYX8rsX0fddcce
hM5h+SNTf73A8JM2fRkPRG4e/Os920vaP5zhgVmBir8uMgwpa8zhgQ9hp/9a
09gia3oeL/BRNsySls6pqdytxgs7NsROk+asN+99fpQX1gfjE6Qv/lk8UXWe
F+JwjzHS/Y+r6XMBvHD79JFh0vJeKrfCI3jhna3DIOnje8MXykfzQnGKbD/p
RyrDkfhLXijRvdRHum7+nuXm6bxg8O5YN+lM4c/rsnJ5wUqp9jfp++Kbtiz7
ygveK962kQ5YPrBt5zdeODt39CdprxUJxj416PMjrU2krVaJH/rVwgsvOHr1
pHeuqTku8osXFtdL1ZCGdUGnDbp5oZQ/p4K04gb9cxcIXrgUJ1RGWkqFxytp
mBfY66W//P3+tMbLemO8UH94XhHphWpZvi0TvHCu8mcBacpml4AFc7ygpbU9
j3QH1nHflU0B7Xvj6aQP5uU+EphHgR8XpFNJ1+hExcQLUCB5i1Iy6c/bLBK+
L6LAppnRBNJbCpVeuQhTwPtFQjzp9O2CKXxLKGAZoRVHOt6oKEtLggJO86cf
kpYsjcuulaTAvD6Ze6QjTXzynKQpMBAvd4e0/67NxdGrKHAST71F2t4ysZ6u
TIH1JrkepNvq/RsfqVJgx56Ac6QP7D/xU20TBZbEr3AiveOQROdJLQp4LXl1
jPSn5skeClCgbSLq0N/8OVJHPNChACN+lyVphWPBY6X6FLCdmDQg/azj9JSN
IQXSE3t0SEvYoH/voICwfoQGaYGTFKbSbgrMqgqs/ZtPjueEIw5S4POUKpv0
zXqkwxRYcNSIh7SMTlaM41EKCJkIjM0i7xWaXadvQ4GIzOB20oOXJF3f2lHg
e6/Bd9K3OnXeLz9FAfPFcWWkc99f1x93okDSEYVM0vtXJgQed6FAtZ55Iunh
oJKqb+cocO6J4BPSq6wXHHnhQYHbqWv8SN9mPXDf70uBPOzGjr+vu2TnfL5G
gejAUk3S+T9aaMr+FPCz8F5LevSVTAhfIAXmJMU5pINF9evcblNAgG9ybIas
lysnl3WEUOC6luIv0lbmr158iKBAPCMwm/R4zjdi1T3k6mfPSYeuGlK984AC
j83nQkl/nlLLd3hCgf1geoL0upi8BokECnTkRc1Nk/XO1yEZkEiB0IqGdtLW
rgzbsVcovktFCklHbDcaKn9LAXWu7U3SiikO6prpFFjaYWdP+svS4MvPMylw
vkvbgPQst5rPJ5sCXZOmVNKRe8d29eHo+93PNE+R/S9/SeS+fAqk/NycSdrm
jpWMUiHKt7RHtqRLNTo127+h/D25NnWSfP0px3dnFQUWiyn6kuYRVCh+X4Pi
k+FoSlqlzdk8vIECW+P2/5pALjMKf8DThOJx6lciabu09NbTLRQIoti4kH7o
P+WwrYMCKz2mR8eRNw4uS03+TYFTAd1ppL8dgMllXRTwL7jkQpq2/prfaB8F
xvu0O8aQT9cIPI4fo0DT0sfxo8i8Amf1t09S4M69HAPSEXp1ROc0BaIE1neO
IOMZj0GeQoXDNg5LSO/pp3Z9oVFBrKn35TBy5yq7kFNMKtiaS24mvfC+Ylvi
PCqUDQxvHyLruTL8prEgFdwfbi4eJOuJb0KJu4AKK5Uv6pI+4ZXnu16ECkOf
FdYMkP3RavfKFCkqiHarv+UiG99NL90tQ4Vrs2fopNvKxc4PyVLhs0WtaR8y
n3b7Z5W1VJiSFKnsQX7ioe9Us44KX22OMkmrpLwUOb+BCouOZqh0k/knfc4u
YyMVJt5uPd+JPHSgfv5edSpMp3+78YfsJ+GaWeMaVJjnKxz+GzmZTuds1qZC
3ZxZQAcZz847Lz8YUcFm1/mJFuR7kpNmh0yoUFCem9FM5uc+q+kZUyq8iz11
sgnZ8ousMWZBhVuibXENyL2UgJGWvVRYMfNE4TuytwYR5X2ACj/2PouvQ05I
zODmHaFCFWW9QzUy9mvpXetjVOD8cM+oRK5e5o1RbajgVnin/xvyTND2YN1T
VNg/dXttKbKp8/cNha5UMD7Wl/4J+dcLrQZbdyoYllsfy0f2bIu+wrpABcUe
j3EcOdbMvsrAG+2H4Pf6d8ibbpVd6L5ChYSY9SsykUs+KckEXKOCHeiappH1
rjp1ruQmFWYSzS1ek9crx8PLHAKpILVFYG0i2a/jPxbwB1NB/MpU63NkA9Fb
wjvvUCF/tX1XNJm/k+KZFY9RvJzcIRR599LCmG0x6PzMXmkGIbM0nQOz4qiw
R9to0U1k14sF1tEvqLBASMHQB3ntIydjoUR0/Oyb8V5kPuQs2XTjFRV+zV7+
7oZswuPI7/yWCstvF6U6kPslJTrekUaFjsK8/XbI77Xz2/ZmUiHRLKrMmuxv
vsKZkE0F4eV3RC3JemDg1vMLqdCVWzujSeaj7Enjq8Uony89+aGK7Ki/aNP4
VypUUKLOr0Nu8Lfl//mNCoU3djVIkP3vxYJxsyoqmEm0Rgkj639531ZYQ4Vd
naaLBZBT+eZnvm6gwqvNjgLTs+h6tfZdjHQTFbiWcrcGkSWNjwfebaGCdlPN
m07kwKBM68sdVHAa6WutQrZZcJR/J5cK9clLvZ8iiyvxjef3U+EUr0VVJHLl
7rS2jUNUcLnd+joAGQtnZ0qMo/ywsR1yQh5NfRsTOon2Q27TrqPIiTWHAhkz
VJBfRJPdjSwqkmLN5aVBxyczSSXkMrWDxtY0Grwv2aohhXx1L2NTLYMGXBot
UxB54N5+/hw+Gii3P8C7Z1A/FadmBgrRQHqRi2UksrdWUgyvKA3Wutyo9EHe
aGUZ6CpGg56Kr572yLGPX1ofWk4DSe9UZXXk/bnmxhVSNFhmK6SyHHl+65za
Nhka+Mks0KbNkPdDe/gVVtNA6iP34Ndp1I+3zo49WUODLDvWviTkrmPP2xav
o0EgJqsZhGzxdDpjWokGQg4TgTuQ1696al2iSYNae95V76ZQvVSFEcoYDZiD
3KFQ5DOXrng90KaBU4HuXnvkN9WHI+z1aHDJe0P6YuRvl02kK7fTIOJadPif
SXQ9l9d6o25EA2sf6ZpM5A0+Yl9YpjRY0xYIFsi717Itz+xG3x+8cccKZJe6
sfa6PTRgc20v9E4QeIpCzcyzfeh8vW/PeSIrN9zesO0YDRg7su9dGkf99tql
nMQTNMh7ZZurjnxO0cFosR0NHAwqnAbHUD75GZ5oP02Dq53v+Q8iV29QHzR0
osERi0cl85CHG+UupzjTwKZ5KPXdKIGrKtPv+ZyngbCXyD1+ZIvmoZVd7mg/
tZdapYwQ+PkbbSmmF2gwtK+32Qw5vQUvWe5Ngz/Pdzy4NUzgarc8eXJu0GCX
7dVzFYPo/kTtZODKWzQQz7cI34vs3mYpFhhEg+rit0d+DKD62aSqcjAMxbvZ
+nBVP4HXt0vnfbyD8sPEeMt25PGghSZrImmwU+f7ikyCwNV/EbaTD9H5Wipv
8+eifAhuHj76mAZWS4WlO/tQ/9Io9SmOpkHN0FM9HeR3IQkPIp+h80mNCejo
IXCNLSfKN76hgZqLxI+GTnR/2mV28FEKiueey7kMZK9wnS56Gg2WHxJasOYP
gX/oXk6tyaLBaHp544FfBN54RyBY8wOKx9WNn207CHwaZsTjcmig2yU/Zt9O
4Fp3Gzae/UiDjDsswrwVXU90ij82FKD9ueghoPWTwC/1ZZjqFNGAtn+PrFgL
gedsvWO/oJQGB7bVlKU2onrs3/nodS0NvrRqqB6tQ+uz9w40+k6Dedew5aU1
KP4db7z+/EDrTdtyZHU1qs/6BQeWt9JgalrL7c03Ai/crWP4vp0GFYvNGQ1l
qP+VuKhb/kb5FCttNVCC6jevSuR2Dw0q150L+12E8kmDxlzDpUGUu+tI/mfU
H9NURj/3o3hxX6y6+QnV84s71bMjNDDH6e9qcJTPIZYhjjx0uJDRl789DV1f
5/l7c6h0KPqQuvRYCoHL+mU6PaPTQS99qvbIaxRfzyUmzRw6WD28xkd5QeBu
wwZanvx08L98RTX2Kbqfc/RcKzyfDrImySukY9D9mvUPjokQHQyyl655d5/A
2xv5JrtE6OB+dsn9sgh0/2Wh2XVNjA5mIwMuH0LR9dsoqjB7OR0KXDQ8JW4S
eLTy4asK8nSITDtuV34e7V/S7bPFa+nAsvrN8nVG+SWXa31iPR0ErHbnUU6j
+29xKe0oFTpctjN+aHWEwFdH7FJUV6PDDub1mI37CVx3/pXlNep0CDhQ7ldp
hvKL1j4zD6OD/TH/Hzv0CPzOpUV9z7XpoG+9PUQWQ/1gfGujri4d3mTYvnqn
RuC/e+PeeRnQQQfLzmCuQvVeY+PWa4bWq5rI+4dG4A4779r4W9DBK+HDVb0p
Lu5fXGgus48Ovv7CUgYDXDwne5XKQSs6KDftoMs3cvHvavukx4/QwbwoT5m3
gosPJ99YGH6MDs09UvoOBVxc/ll3/1c7OhhRciKGE7n4NsmlP21P0eF4wUgO
8wkXP3LfqJzqSIeEJZdiHody8YigxCSNs3Tokq+fMTrPxalujvYvL9JhlZJz
7SI1Lg7fOx6IedPh+fFc2rgsF/fSOFB64wodBHUEDHYKc/HROX1Fu+t0sMmK
mdAd6sOVrHOO1t2gQ9nzA3wNP/twp08qYXq36HDLUelieWkf3ukvNSoTgvZj
fr9j4dM+XKbnrlx4GB3EeT6G48F9+FFjgX3UCDo45yywoV7owxsWTL1vvU+H
l2IY19K4Dy+5X+3zKI4OfjGvb4d29uKsGcO3/PHo/Zu8h/VKe/Fth/M6vF7Q
4UdXnbNIci+eI/1K/8ArOlQX6PkOuvbiU9dkPL68QRaY94aw6MU3dd5PUH9L
h0lV1iruxl48OfE6v2gmHaY8Gtsrh3pwrsDsluvv6DDssrEu4VsPLu987szo
B7Qe9+Vutok9eJzq0arqPDqsiVpHcz7Sg0fkbL4X8pUOEf1xMf1Z3XilZPIX
njI6LHhewBQL7MYFfeWmnb7RIcT0eHa3VTfur7/4sEkNHey2yHtaz3bhF771
yfC10CFdQ/pF6ZouPFPpuIVnKx10z+qa7RnqxIfDG653tdOhHWfabM3qxB33
FXYXdtLha0mUlSZ04kfanry5OkiHJz7KMiXqf/CHuiJtQ8N0mPArly4a+o1/
fxa46NgYHcIFH5UNvfyN7z7leV57mg5qna49ecK/8W3DZpqzdAbqH3feR9d0
4Fcsvjg4sBiQq9/Q4uPdgedkwuNGDgPiiAkX+9Ud+KaLCpT3ggy4s2+9q4Fr
Oy7PYBa5LWFAVsLqaP6RVtxaDT+wVJwBtbvKwmyut+L37NyIHAkG8D9aW2Uj
0oqzvv4RZsgwYBC2Ztgp/sR/3S46Eb6OAevEu+WmAhvxJ0tuUpO3MuAiI4A5
I16N1xvq3N2jx4AjEUI7WmcqcUGvSfnx7QxwTLqZ6PqjAr/UbL8bM2HA/tye
u6/FyvGDsUbRpXsZsMd6sHdlTAEuosCPdTswIG1ypc8Z22DcxKqgMvAMA5Lg
TZ2K6CnM7/ZFmw1nGbDyXXB33dq72PBAX6C7OwNwzpfhNMvXWGV6WSPDlwFv
hNYqzzzJw4Ig2FM6kgFFF1xE1bBK7LPzdoHC+wx4LWgqee1IFTYTwxNjH8WA
U5yrXq6XqrHTdOfi5BgUL6X6k3GvazGDL7tEIYkBYliH9u32Boy2Z1H6wXwG
lMXurJvVasUOOSy4VfWJAe/3bbn3+2krlu4naG1YyACRmbNL8vnaMLssPoFN
JQywE3S9bFrRhpVI0GwW1TJgQiQysHZrB7ZyE0XzZj0DThdXeFs/6MAu7eJZ
yPuDATG0i349/R2Y4tXpbG4LAw437bGgRfzCwrqGhb50MWBt0pHm2qLfWC9l
qAd6GZDPKvcsnf8H0xUfyMvgov3a+Hys2+IPNmrS5/B0iAFNDefK05r+YPtT
fxV4z6B4LKJOmdd2Ym9L2x+MzTFg2dH84B3zu7B5f1qdHSlM2ENVvfZ0exeW
s6R52UEmE1aMiZU+Su3CVlyudVVbwISFv496hnl2Yxciq41eLWLC06WJI97P
u7Hq5EqplcJMiBD6Ibewphvz6ygrXbiUCRIlDRtBvgdrmSmJvbGMCfvXL1bt
292DbRL56sEjyYSzal1yVp49WLdB4UquDBNO9SWfeFnQg209VjB1XI4JqVnX
VO929WAPvT5W/FjNhKYJOR6beb2YyWv8YvE6JmwwDDz7xaQXS1mcWRO3iQlr
ytI7PQp7Mb516S+XajBB1EP9kEF7L3ZcP9UnVIsJalZ6ISqzvZiw5xsFbx0m
OF+aUXTf0Ic5hb2ijukyYf3HY1ubDPqwosTE7w76TIhSt7J2O9qHebY8v3Zg
BxNi81wirIP6sKrxZwcqTZig7TOgicf2YWsXPt1gsIsJZvrjC+0y+7Bm3eim
jRZMUEnqH37b0odpJ9xTXXiECYdjHd59kuViNJPGJC9rJuyVO3vp40Yu9nlA
QvbPcSZ4cGTeauhxsR3qccIfTjKhWTF96vkxLibY9DtI9jQTRn/xCz5z5mKV
3quZIY5M6FIdDF17mYvtLXo1duIsE4bkSj50RHKxpacHnL65MkGkvMh/2VMu
1iyo0rnZnQmVW+0Xct9wseOWWfWCF5kQEJAbeqyQi535/TEryw/FJ2mbyxjB
xZRvMpRkbjDB99Fltt4EFxtVMEgICmDCZEXgCV0KgXm5lt0/FsyEX6bVpfsX
ERi2ZMGislAmtAeE1bstJTBKtlnApjtMEDiu8cxEmsCu075f4L/PhCuskVQl
JQIzfL502O0hE6wiRa101Qls3g6r022PmPCiGR6IAoGFhrUfzIhlgnDXUMd8
YwJ7tIKrdTSJCVjSqVzX4wR29LNi+tfXTMioWxVYcZLAZOzPrtuYwoSq7wa+
s44ElpA8LsGXwYR1zhy5SncCczDXuOuaxQQXbazywkUCU5y4KPjzPRO+OxTE
TPsQWDpQedJy0X61dK++cZPAPDq2uS//yITMrWqX7wYRmKa/f/+NAib09rWo
XQklsPxy/larL0x438x+MHCPwEqtRPNZ1Uyw8+hzs4wnsGDKgc1na5lw7fP1
K3YJBLb7WVRKUz06/ivhG1ZJBFbftyI2pYkJw23RijMpBPYg5MTSZT+ZINRy
MSQ+jcCsVJ+HXW9jQk70LcfNmQTW4aVw9eAfJjxY2V4ink1g8ZJnpj93MWEu
d6jaAScw+08p5zb0ovfbqdsm5BFYP9+mE4wBlK8tqQOdBQQ2fV9H780kEz4m
/ywOLCWwd/yFkjtnmADvHF67lBOYu7fRVN8cE85Q7By2VRDY0Ik9b9bQWdCy
+ZBkRjWBvamvv/mFyYIUGd+DlrUE5mh06MRJDgtCb7bM/akjsG5FG7F4QRbc
6Db60thAYM9ju4e3LWRB+8c6jk4jgdkIO5V3LGahljr6614TgbVOuV1dIcaC
HYtO20r/RPH4fIMbJcOCfO90t4QOAotQFyjWlGNBQWhecPIvAtuTGBr7YzUL
cgvMi1/9JrDykAd7l6xngd/IkvmBnQR2iyapnLmBBfL6EhWOXSi/3OL4LVVY
cNP5jsj2bgL7fDApP1ydBWJrBN3aegjsavmGKGVNFgiHpa6O6yUwHZ10t8ot
LHibanjHqo/AsuXwtfN1WTDvK19iDpfAUge/RQSYsKAk3b9RaYDAXE6YO8vv
YoF90A/HPGTF+u9GxWYseMzHemo4SGAvs9t4mPtY8OIRb7HxEIHZKdr+eHoA
fb5giWgRsmxsT5quFQv63haUag0TWIz/sP2VYywovsgnLj5CYEem3LdJ2bBg
a5U86xqyhOPM8lw7FvxsYVK6ke+ZMWpmHFiQE3wo7fkoyjcJUczDnQU9Tae7
p8cIzCTk4RLRCyy49HbxcsNxVF80qeH0iyyIfC12Ohz5etfqF8NXWHBIk54j
OUFgugdf+YZdQ/sZkj5mjUwpV7JS8meBzY6zb2OQL6VqLDoTyALeu0vnL51E
9SCX2ycQzALfLPNmM+SJe7pFSaEsCLY0uHET+dxl44s9d1mw2a/n8wDyKcPD
f2xiWDBRYDz4Ygrtz9PVtO9xLLAod+OpQJbnGZY0imdB9cGhV6PInWn++9cn
siCioWPZlmkCK5pv5hb9igU1CV9HDiPHn1oWviiZBZ22fQ+9kW2kUkrH0ljw
vd7KNwd5m5dX98lMFlwJnqv9gSxTp8dsfMcC/VbfFePI7bd+QC7OAmlnzmeF
GRTvcVqqfzE6v9D164OQMbPyb5NfWSDu5aUShyzx6l7f6TIWBC08dzYLuenY
OrldVSzwquN714r8IWd868caFjTd/lU2jPxwyccjqvUs2G3VqsacJbD95Zb3
lzSxoO6YmoQ8srr8ioyAFpQPQcz4zcii13qrZlpZIOTRdd8QuW6zD3/bbxYE
yjyvt0Pe8yzBO6Ef1YPSFeXHyMq8rlHiQywIOZMc9RJ54UHsXdAIC7boz4vM
QK5YUD3kMonWJ9C8owz5zelH839NsyDZ/IvAd+TgQjsFyzm0Pstyp3Zkk4sz
Nho0NhRPxouPISvUF/omMdjwaM2gI88cyh/l0CfL2Www3a3rwEb+2inbQBVg
Q5Z8hocY8vY9psYlImz4ukNNQh1Z7rWY/RYxNmxs+bMMkBmcX35vxNmgL3+r
WQ+5APfIDZdiw96ICy/NkOPEdJsYMmy4ajL1fh/yVVeBSXdZNojv/H7nMLLO
mljlQ2vY0Gm8M8keeYWfg2m5AhsiNtziOiHztqo5aCuyYWi/C48rcm5EybOV
qmzQVK15eAlZizK6hLuFDZNttPbbyKJrKffCtdlgk98jF448aC4gqqHLBvmF
qlsjkZ+9kBX2N2BDkexG6hNk7yqlO+t2sIHm3pMQi7x/ZsviGhM2xHnMrYtH
FthluXDFHjbsComtSELu9DwWUmTBhhGxj4NvkPPjnOY77WPD3KajI2+Rz49f
F/hgxYZc07exWcjNjzM5FifZsM3BN/8jcmbxpxvTp9jgQuTyf0YOHfrGinVk
Q1p3tE4Rsp5+F6P/LDp+Z9LpEmRJ55FrEefZoGN07lgZ8uR9XrqWBxumfIX0
vyG/5i6h3rzEhk8tX+uqkG+Kyl5R9EH7p6btV4N8XEeJt86XDQWWu2XqyPhE
GM5J32BD+mzuhgZy/VoXprLD2KC0uy66hVy/7XXP4xFsCOs93PQTWSUkbIJz
jw2FDzrmtZHr73g5ZvmIDZu3pRh0kOsXyDw/+4QNPw3rLX8hP9z0aSQulg1n
KlIP/EY2vdU4NPCcDXqvJfQ6keXTO10iX7KhT++kQhcy7efwwJZXbNi6+hdf
NxkfZf7+gLds+D766XUPstQPrd6VOWygROQ94CJP0wxPleSyQa7daBuBXLvO
otvlIxvOuxztJH3zimMnXsQG/LWc+AC5/kRPW5uvbLCX3plEekut3+95ZWxw
DyU2DZL5sfpxx74qNrxoOgNDyCVmL4/x1LJhmX3GB9LPLma0PatnQ5WHjsow
GZ+K8p9DTWyArkahEXL97jxNgZ1sqMn9SD6/wRgKu2bletgQbazBO4Zs2Bq9
PL+PDdcN9luSrjTYaj06yAbFy/yTpIVnw3yDR9gwqtWsN04eP6UjTn6cDVa3
yoNJt4n5/bGaYYN5jbf4BLJseS1rYo4NfJ/PWZG295WTD6NwgKU3EEV6sKfo
dCGTA2HXW4UmkanZfIPrF3Kg9fxsD+ntzgcXfVnMAeGOh+JTyLdWJqkcF+FA
Zs1JI9KLg0zcIsU58Ee7Opb0Xp3HkUrLOVD9OLSU9MNRIqtEigNrzfNGSMsc
DpnmkeOAF89L7Wlku0Vtyx6s5oC28pUTpBMLlTDVtRzw06b4k1ZRrPY5uYED
9V/WF5PW5RVhVmpwICruptYMsn+a7arTWzggfnjUknTJyUwDhjYHvsiccCa9
p3Lfrc16HLhg4hxNOtIvIal6OwcqQyQzSTdunipzNOJAwtPRUtLHYx8uiDXl
wA1HNfL5J/bcsk9Jy4wDvy4kk89HsV6+LXvqzDkgNd95Gelz51oi+A5w4J1T
I5C+um2F+LkTHFh2SsSbdNGEi5aAHQfGKGeDSM979dHquT0HFGW2PSQdLnwi
utGJA91Hj6aTrv+Sln/ehQOFKmn5pMUvMzrmu3LgAG8Y+XwYi/sTL7vNkwN7
6LMdpDsfjOu3eHHgYlgYQXqtqcFJj8scmPv6cYJ0amb3y6SraD1A5Z8j++0N
hQ3Ct9H+JR9eT1pe9lO4bwgHFpm92Eg6OH//eH8YOv/iZC3SB6eu418j0fHU
WUak8+9KSKs/4ADDb/8u0nIqaX7PojjgbXiOfL6ODZ5uM/aJ4YDaAgb5PB7b
y/ZI5sah41X62JHOfioodDCeA9SbJQ6k/Zs1GzcmcsDtRY0baQnTu/a9aRzY
OdJ2g/TVXoWyfZkcSFtHDSLd5f9pQ+E7DjRfmQ0hnZo3MB6NcyDlbgA5X4CJ
WfkfFMznwPwvy6NIe09K5Hp94oD1VNgT0kbKO65bFnPgRbEkOb+AvSlv6/70
lQNW1zTI+QZM+LSHiVIZB1QvbU4i3Rb3TIi/igPRc50ppN2FeePyGznQZiGV
Tbo55S5TsYUD+C43nPTWnetORbVyQOVkJjlvgQn4H1By/82Bm5Wz5DwG1pDr
P7G7hwMG4pPFpJ9OpOUq9HMgyPF1KekzSu3XWSMcqIuQJuc/MM1T83e2T3BA
U+BANenKRvumSCofSBrJNJCOEoqMO8viA9rt7EbSdiYFp0z4+eDKqtUtpJWv
DyqtXsgHCzbbt5KexZdPUkX4QPC1bzvp8A2e/lmSfPDrrOEf0mtiq4Wd5Pkg
lT+EnHfBEk03rhtV4YN65WhyHgZbN3t320WMD8INtPv/xu/lxEGaIR9U7PYh
52kwpX0HzgXs4YMAthM5b4OppkrE3jvJB+o/vcl5HGyTYFtF/CU+UJHLJ+d1
sC0Fdus/PeeDtuxocp4H071A3PpZyQcnk9eR8z7YlZ6sYB+pebCe+3ceCMs9
cDV8xZl5QL/6d14I01ry86da9jyIHe//63e1GgrGHH5YJvN33ggLOVuRxz3E
D09C/84jYXbzbS2Ck/kh6b95JexMcpby/Tl+KPpvngnz2D1vQZyxAIj8N++E
jXe2HMiLE4Dh/+ahMPfLb581TwmA7H/zUtj/AbQA+cI=
        "]]},
      Annotation[#, "Charting`Private`Tag$3009#1"]& ]}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.009166666666666668], Thickness[Large], 
      LineBox[CompressedData["
1:eJxVl3k41Psex2dFjOkkojgp6tSJ5JBTTvT5Vjottg6pmyhHKEfKLWmjTQuu
LhFJSBtXSUnHEpM49uXYkyXZGcv8ZmQfM7/767nz/ePO88wzz+uZmd98v9/P
+/36PbPc9aSdO4NGo5VTz2+v//8Q5jcUGIW7N0YCaxGzsvx9NfyPn0Ac74Pd
U8suyNOx+kfM+5cQNzW0g/myT/Z+BqTN6OZs1R2Enadg/FJ5NoTq932vksmX
fZ4Hc/1Z5RbVQ3DfU7/j04EC4Lts2NV3f1j2/b/AR3NSfsnPI6C8xHTrmE0J
9DSUWS1OH5Fdrww0dmt3OKiOwrWK7UlKFpXQfKXYWOI+Krt+NdTnTHZbPB+F
i+Y/3ojQqgWXd1d9V/SOyn6vDhiNtsmFagLIjFq3QftePdDvcoOykUD2+w1g
49DqaOYhAOGoCf/FgiY45WUcZn5LIFvPR/jeo0zt3FMB6P1q9mBjaDPMbjhq
c/W9QLa+TzDV2BpV1yQA94St1sVyrdDCvjVUMSSQrbcNKp8PDPMkAng4uZP8
7Wo7XJk8HDjKJWTr/wyLzOxT7ywloNXGNr1D3AEGXFFiiz4h208nnE/SuDxq
SkBIw/N0k9xOWHZ0czCxnZDtrwsY6ld+kuwhIJl8qeg/3QV0yBxcd5CQ7bcb
ft0b3BDvRkCRXvqRQpMeUJks+cXRm5Dtvwc2xrhy/c4Q0L3/bZ7C6V5QVg/V
pwUQsvPog6zHZ/LY1wkgA7PUbF/3gXPTXa+IEEJ2Pv2wKY91/3U4AVqv352I
Gu2HNfsr/uUZTcjOawBWPvX4d/EDAkzbeaVtawYhKYujUpVIyM5vEOI0H1QG
PiNgn0LBMp1jfJhZo1M6lkLIznMIVv7u5L80jQDf9UXnjz0bAhf91B6lN4Ts
fIeh2rvpcv6fBNxxKa1P6x6GrPE0L/McQnbeIyD6fevR4DwC0kIr9Ca0R8HV
64cvSfn4/EfhmfHfUzGFBFRmV1/f5CyATWEO4a7FeB4CEJ18bS1XRsBgb+3n
q7EEBAdoJNyswPMRws9ORR/6qggIVPhDs9dLCHDzXenKGjwvIQiD1OJ31lHr
SxjecUtRBFbT7ew9DXh+IkjlOyWZNxGQuN7bd02KCNYuC2EtbMbzFMHBjtKQ
uk8EvKoQJFbvGAOetmXwhVY83zG4U73YdH47ATwXn2qf/jEoKk/ihX/G8/4K
aQYHV9G+EFA1KZpZeOMr+GxROnOoE8//KwyV/hiV2kXtN/T0D1m649Disdxj
uBvnYRz8jqhma/YSwNeZsHMsHIdoWzWbzX04HxNQttP6i30/AVPZfpclLhPw
NDJL3XkA52UCNAZaYxwHCZCznX6RSE6Az5nbs1Z8nJ9JKLyvV7l+iAC1vvOf
tiVMwufEyHCVYZynSXiqvqG8n2Ldi2LWgNkUTF86N5I+gvM1BWyVJV6+owQY
LQj4KaRtCra+zn1lIMB5m4a7aqKlXRSjZKnz2gvTEJpxSD2UwPmbBoe9rmPr
hATYml8JqdWYgQLJW1a1EOdxBnriYxOOiAg41EDPOp01A8HrFnPGRTifs0C3
RVGXxgg47hnYs2jfLIR721xifsV5nYUBnS75QIovkqzv3o3PwrZo45OSrzi/
YkhpchCcGqdyFXXTzDlSDDMlF/J6xnGexcBotuDumSAgRk/Bk2Y0B6pKn9Sy
J3C+5+A7txaG1iSVl4LgqCe1cxCRFs3wn8R5l8CZJYboE8V/7lcq/PWkBEoD
YnsNp3D+JZDRkbroJsVFo6ECvrIUfO4dFjdP4T5IwXMtJ/OHaQLqA7mat1Ol
0CjyP3ZqGvdDCttU+4xyKe5aHL7D0JKEPu0RY/oM7gsJYQVVQRYUC18t8G3g
k9Ace8L6xgzuDw3Ftp6O+4ti8vGuPZssaEh97fYwcgb3iYYeXFi52XSWys+J
kP7QSBryXbf7g88s7hcNuUQK9JIo5ppW+nd001BC1aHollncNzoKsycXKomp
fLE4Cw2N6Kjwo332L2LcPzqy2c6MPkaxVo1VytWrdJQu1/b+rhj3kY52XWzZ
lk/xitjb0FBLR4EfkMmgGPeTjtoUkh/Pn6Py6P5304plDKS+URJrMof7ykCq
/Ah9R4qNDOcf9zvJQCufLnMPmMP9ZaDcPxp/e0ixqdiWUfaegXKS95H5c7jP
DDSXWnr+C8VbSsJjFnOZqH0iv0oyh/vNROPyB5iaEirPd+oMvJyZ6Eax6eoN
Etx3JnrYmbDdjmJbJ5XivFQm0o067H5cgvvPRCkFY+E3KN6/yv4gd46JxEG+
dfES7AMWcvwuZd2fFB8aixQdtmShzjxxRqUE+4GFAlZc9uii2J3XeCs9loWq
K4Q2kxLsCxa6t+29r6KUAO8gtaXMIRZ6xlH48r0U+4ONbno8uWtIsa/9vrd7
Tdkonacdt1WKfcJGQW9qxPYUX1x6b3dSEBs98q3JcZNiv7CRqT+z3Zfia/zm
zqlmNvITqhy7LsW+YSMrRY8jkRSHvNU4u2uVHDo0ptfwSIr9I4fKjI7kvaL4
zuUDyg/85NBnxw5dnhT7SA5ZB1pwKyiO2R37ZKRYDtEsVa58lGI/yaE6u/iA
booT1dpMN6vJI/1zi5QEUuwreVTMuaU/Q3Fyp2ZtmJs8muuv7GOS2F/y6NjL
qF+4FKe9cPLoypBHDKGPgQaJfSaPYr1ripZTnOkXP2fEVEBO9op0PRL7TQFp
XHbuN6aYt6Uj4rqdAuKt6TlrRmLfKaDVb+5mW1BcxNH+8eMjBXR6qfULKxL7
TwHZMcvt9lJc2Xw4f5VIAdHfPEs/SGIfzkPC124VrhQ3PE50OI/mofqUUw89
SezHeci8W8/Yh+JW767hirB5SO1E+y0/EvtyHlLe++GhP8VdG3WuaX2Zhxoc
2AHXSOxPRZR7umx5EMV85hGNEwaKaDVTOfw2iX2qiLLFWeURFAv/fpKWH6CI
zi26X3uPxH5VRNvEZ5PiKJ6632uxoFoR5WeoWj8isW8pLtcueUax1G1lm6uW
EjLINFv4nMT+VULqgYo/p1EsZ+jxz7deSijsrJbhGxL7WAnlswcYmRQri5Pk
5XKV0NjQu1c5JPazEjoYX7OBR7FqyUD8fkUOmlpgE/eBxL7moIaUwx1/Uax1
Z/X6lAMcpFOymSwhsb856EreT7QKinWdPCtm/8NBZ+g+3VUk9jkHWZprJddQ
vGbVcxeraQ6qyzpqW09ivyujsTy39sZveRkbmozfoYwk4xk2zST2vTKyYl1I
bvmWF57ebSJaGa1lLx5sI7H/lVFiQvKCjm95CTquu6VfGTXnjq/oJPH9gIsO
rH60vJviHfYvcyJMuKiq8bZ8L4nvD1wUvbe+ue9bXpYKbHuvc1FvukfUAInv
F1xk1ei0mf8tL3yDfpNGLrI0k7QOkfj+wUWy/x/wX6mef/Q=
       "]]}}, {}, {}, {{}, {}}}, 
   {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{2.9047375096555625`, 1.1}, {2.9047375096555625`, -1.1}}]}, 
   {RGBColor[1, 0, 0], Thickness[Large], 
    ArrowBox[{{2.8108769438673735`, 0.22454466616582414`}, {
     0.03128685526273012, 0.22454466616582414`}}]}, 
   TagBox[InsetBox[
     SubscriptBox["r", 
      RowBox[{"0", "  ", "crit"}]], {3.05, 0.5},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "0"}], ",", " ", 
      RowBox[{"\[CapitalLambda]", "=", "0.2"}]}], {1.5, 0.9},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      SubscriptBox["r", "0"], "  ", "<", " ", 
      SubscriptBox["r", 
       RowBox[{"0", "  ", "crit"}]]}], {1.5, 0.7},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{Large, FontFamily -> "Times", Italic},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["\"r\"", TraditionalForm], 
    FormBox["\"\[CapitalPhi](r)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{813., Automatic},
  LabelStyle->Directive[
    GrayLevel[0], Large],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{-1.1, 1.1},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.732457083200183*^9, {3.7324571744858766`*^9, 3.732457220357705*^9}, {
   3.732457277985631*^9, 3.7324572941477757`*^9}, 3.7324584139218693`*^9, {
   3.732508398157129*^9, 3.7325084196926365`*^9}, 3.732508497222074*^9, {
   3.7325086107202034`*^9, 3.732508634028514*^9}, 3.7325156383706145`*^9, 
   3.7325157787727966`*^9, 3.732516410787896*^9, 3.732950410835605*^9, 
   3.733206542653473*^9, 3.733369925698224*^9}],

Cell[BoxData["\<\"enmincol1.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.732457083200183*^9, {3.7324571744858766`*^9, 3.732457220357705*^9}, {
   3.732457277985631*^9, 3.7324572941477757`*^9}, 3.7324584139218693`*^9, {
   3.732508398157129*^9, 3.7325084196926365`*^9}, 3.732508497222074*^9, {
   3.7325086107202034`*^9, 3.732508634028514*^9}, 3.7325156383706145`*^9, 
   3.7325157787727966`*^9, 3.732516410787896*^9, 3.732950410835605*^9, 
   3.733206542653473*^9, 3.733369926085428*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "v", ",", "m", ",", "f", ",", "g", ",", "gamma", ",", "h", ",", "h1"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"VsG", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"Cos", "[", 
       RowBox[{"Pi", "*", 
        RowBox[{"f", "[", 
         RowBox[{"t", ",", "x"}], "]"}]}], "]"}]}], ")"}], "/", 
    RowBox[{"Pi", "^", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Vphi", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"t", ",", "x"}], "]"}], "^", "2"}], "-", "1"}], ")"}], "^", 
     "2"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"V", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{"Vphi", "[", 
    RowBox[{"t", ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dV", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Vphi", "[", 
      RowBox[{"t", ",", "x"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dd", "=", 
   RowBox[{"1", "-", 
    RowBox[{"2", 
     RowBox[{"m", "/", "r"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"qq", "/", "3"}], ")"}], " ", 
     RowBox[{"r", "^", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "1."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"qq", "=", "0.001"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pde", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{"t", ",", "r"}], "]"}], ",", "t"}], "]"}], " ", "==", 
       RowBox[{"g", "[", 
        RowBox[{"t", ",", "r"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"r", "^", "2"}], " ", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", 
            RowBox[{"t", ",", "r"}], "]"}], ",", "t"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", 
            RowBox[{"m", "/", "r"}]}], " ", "-", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"qq", "/", "3"}], ")"}], " ", 
            RowBox[{"r", "^", "2"}]}]}], ")"}]}]}], "\[Equal]", " ", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"r", "^", "2"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", 
              RowBox[{"m", "/", "r"}]}], " ", "-", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"qq", "/", "3"}], ")"}], " ", 
              RowBox[{"r", "^", "2"}]}]}], ")"}], " ", 
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"f", "[", 
              RowBox[{"t", ",", "r"}], "]"}], ",", "r"}], "]"}]}], ",", "r"}],
          "]"}], "-", 
        RowBox[{"0.5", " ", 
         RowBox[{"dV", "[", 
          RowBox[{"t", ",", "r"}], "]"}], " ", 
         RowBox[{"r", "^", "2"}]}]}]}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "parameters", " ", "for", " ", "initial", " ", "conditions", " ", "and", 
    " ", "boundary", " ", "conditions"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tsol", "=", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], " ", "-", " ", 
        RowBox[{"2", " ", "m", " ", "x"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"qq", "/", "3"}], ")"}], " ", 
         RowBox[{"x", "^", "4"}]}]}], "\[Equal]", "0"}], ",", "x"}], "]"}], "//",
     "Chop"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rmin", "=", 
   RowBox[{"tsol", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rmax", "=", 
   RowBox[{"tsol", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ee", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"9", 
      RowBox[{
       RowBox[{"r", "^", "2"}], "/", "2"}]}], "-", 
     RowBox[{"8", " ", "m", " ", "r"}], "-", 
     RowBox[{"4", " ", "qq", " ", 
      RowBox[{
       RowBox[{"r", "^", "4"}], " ", "/", "3"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"r0crit", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"ee", ",", "r"}], "]"}], "\[Equal]", "0"}], ",", "r"}], "]"}],
     "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], "//", 
   "N"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", "=", 
   RowBox[{"r0crit", "+", "4"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tmax", "=", "300"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"time", " ", "for", " ", "which", " ", "evolution", " ", "is", " ", 
    RowBox[{"run", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "function", " ", "to", " ", "be", " ", "used", " ", "to", " ", "specify", 
    " ", "initial", " ", "conditions"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"h", "[", "r_", "]"}], "=", 
   RowBox[{"Tanh", "[", 
    RowBox[{"(", 
     RowBox[{"r", "-", "r0"}], ")"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"bc", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"0", ",", "r"}], "]"}], "\[Equal]", 
       RowBox[{"h", "[", "r", "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"g", "[", 
        RowBox[{"0", ",", "r"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "rmin"}], "]"}], "\[Equal]", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{
       RowBox[{"g", "[", 
        RowBox[{"t", ",", "rmin"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "rmax"}], "]"}], "\[Equal]", "1"}], ",", 
      RowBox[{
       RowBox[{"g", "[", 
        RowBox[{"t", ",", "rmax"}], "]"}], "\[Equal]", "0"}]}], "}"}]}], 
   ";"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"Now", " ", "solve", " ", "pde", " ", "using", " ", 
    RowBox[{"NDSolve", "."}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"solution1", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pde", ",", "bc"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"f", ",", "g"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
     RowBox[{"StartingStepSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", 
        RowBox[{"rmax", "/", "30"}]}], "}"}]}], ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"fsol1", "[", 
    RowBox[{"t_", ",", "r_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"t", ",", "r"}], "]"}], " ", "/.", " ", "solution1"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"pl1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"fsol1", "[", 
      RowBox[{"0", ",", "r"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Blue"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"fsol1", "[", 
      RowBox[{"140", ",", "r"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"pdeexp", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"pl1", ",", "pl2", ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Orange", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"r0crit", ",", "1.1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"r0crit", ",", 
            RowBox[{"-", "1.1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"45.08550879902812", ",", "0.28471155605625387`"}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"48.2431964664803", ",", "0.28471155605625387`"}], "}"}]}],
          "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(crit\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"39", ",", "0.5"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=1, \[CapitalLambda]=0.001\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"30", ",", "0.9"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(r\), \(0\)]\)  > \!\(\*SubscriptBox[\(r\), \
\(crit\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"30", ",", "0.7"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Pink", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"rmax", ",", "1.1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"rmax", ",", 
            RowBox[{"-", "1.1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Pink", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"rmin", ",", "1.1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"rmin", ",", 
            RowBox[{"-", "1.1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(min\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"rmin", "+", "2"}], ",", "0.5"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(max\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"rmax", "+", "2"}], ",", "0.5"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"rmax", "+", "4"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<r\>\"", ",", "\"\<\[CapitalPhi](r)\>\""}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Large", ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Italic"}], 
      "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", "Large"}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<pdeexp.pdf\>\"", ",", "pdeexp", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "1000"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "2", "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.440343318050982*^9, 3.440343335174198*^9}, {
   3.440343954426652*^9, 3.440344079288424*^9}, {3.440344111239764*^9, 
   3.440344153391365*^9}, {3.4403442638648157`*^9, 3.4403442658708153`*^9}, {
   3.4403444277655773`*^9, 3.4403444728283052`*^9}, {3.4403451314288473`*^9, 
   3.4403451525854073`*^9}, {3.440345255399871*^9, 3.440345256653204*^9}, {
   3.440345549039094*^9, 3.440345549411985*^9}, {3.440345665236713*^9, 
   3.440345730615518*^9}, {3.440347099513795*^9, 3.4403470999756804`*^9}, {
   3.440347273627829*^9, 3.440347297102314*^9}, {3.4403474446180487`*^9, 
   3.440347444887137*^9}, {3.440347553999758*^9, 3.440347554582301*^9}, {
   3.440347648274666*^9, 3.440347649649682*^9}, {3.44034815611342*^9, 
   3.440348162836142*^9}, {3.4403510508468447`*^9, 3.4403510564932547`*^9}, {
   3.440351283509272*^9, 3.440351284673645*^9}, {3.440351505194418*^9, 
   3.440351505751803*^9}, {3.4403516895349293`*^9, 3.440351690221718*^9}, {
   3.4403520553994923`*^9, 3.440352055949613*^9}, {3.440352364869234*^9, 
   3.4403523656749077`*^9}, {3.440352710743471*^9, 3.440352715383593*^9}, {
   3.440352855092409*^9, 3.440352856609003*^9}, {3.440352944113796*^9, 
   3.4403529445994473`*^9}, {3.440353063036189*^9, 3.440353066969317*^9}, {
   3.440353131695092*^9, 3.440353132810112*^9}, {3.440353539400908*^9, 
   3.44035353991505*^9}, {3.440353784068842*^9, 3.4403537847234364`*^9}, {
   3.440353886425819*^9, 3.440353887206834*^9}, {3.440353962165592*^9, 
   3.440353963385013*^9}, {3.44035433426245*^9, 3.440354341044758*^9}, {
   3.440382572885765*^9, 3.440382601193759*^9}, {3.4403826352911673`*^9, 
   3.440382651971136*^9}, {3.4403828928307133`*^9, 3.44038292194103*^9}, {
   3.440382972060815*^9, 3.440382973691491*^9}, {3.440383219880061*^9, 
   3.440383220188291*^9}, 3.440388912184025*^9, {3.440392749186441*^9, 
   3.4403927632854757`*^9}, {3.4403932565524*^9, 3.440393257032229*^9}, {
   3.44039404742419*^9, 3.440394057635522*^9}, {3.440394132959209*^9, 
   3.440394133380011*^9}, {3.440394287973477*^9, 3.440394299683331*^9}, {
   3.440394865746216*^9, 3.4403948662011414`*^9}, {3.440395347435363*^9, 
   3.440395353941449*^9}, {3.440396896979377*^9, 3.440396897283546*^9}, {
   3.440397085826139*^9, 3.440397086003705*^9}, {3.440397636001041*^9, 
   3.440397640140102*^9}, {3.440398650013434*^9, 3.440398652487363*^9}, {
   3.440400109759059*^9, 3.440400110119989*^9}, {3.440401916006363*^9, 
   3.44040191642025*^9}, {3.440401975244379*^9, 3.440401978137501*^9}, {
   3.440402023595797*^9, 3.440402023897964*^9}, {3.440402061474593*^9, 
   3.440402061969021*^9}, {3.4404021104964457`*^9, 3.440402111028873*^9}, {
   3.440402332051016*^9, 3.44040233213554*^9}, {3.440402400211454*^9, 
   3.440402400585311*^9}, {3.440402435852507*^9, 3.440402436337797*^9}, {
   3.4404025523330307`*^9, 3.4404025528665037`*^9}, {3.44040260392873*^9, 
   3.4404026074092503`*^9}, {3.440402661590295*^9, 3.440402662425815*^9}, {
   3.440402767418865*^9, 3.440402767833325*^9}, {3.440402898423253*^9, 
   3.440402898870707*^9}, {3.4404031280066233`*^9, 3.440403132423325*^9}, {
   3.440403274267805*^9, 3.4404032808159943`*^9}, {3.4404035577689743`*^9, 
   3.440403558159069*^9}, {3.440403790498576*^9, 3.440403790704541*^9}, {
   3.440403905975658*^9, 3.440403907261259*^9}, {3.440404206144492*^9, 
   3.4404042065829287`*^9}, {3.440421326077724*^9, 3.440421350482567*^9}, 
   3.440421427249237*^9, {3.440421525663785*^9, 3.440421525805192*^9}, {
   3.44042174551206*^9, 3.44042175348748*^9}, 3.44042195881705*^9, {
   3.4404220419939327`*^9, 3.4404220444966307`*^9}, {3.4404224069256897`*^9, 
   3.44042241469423*^9}, {3.440422559516698*^9, 3.440422559746435*^9}, 
   3.440422795315393*^9, {3.440422976558793*^9, 3.440422977779873*^9}, {
   3.440423203435357*^9, 3.4404232039774923`*^9}, {3.4404235261953173`*^9, 
   3.44042352651441*^9}, {3.4404238604484253`*^9, 3.4404238662871933`*^9}, {
   3.440423985270007*^9, 3.44042398542034*^9}, {3.440424188287215*^9, 
   3.4404241913809557`*^9}, {3.4404245529072742`*^9, 3.440424558375958*^9}, 
   3.440424725108691*^9, {3.4404250889023933`*^9, 3.4404250891867237`*^9}, 
   3.440425260930058*^9, {3.440429363387292*^9, 3.440429363719138*^9}, {
   3.440429548795231*^9, 3.4404295567968903`*^9}, {3.440429938591707*^9, 
   3.4404299399699783`*^9}, {3.440430236649435*^9, 3.440430237103668*^9}, {
   3.440430502981848*^9, 3.440430503804281*^9}, {3.440430857091939*^9, 
   3.440430861500222*^9}, {3.44043109646212*^9, 3.440431096843398*^9}, {
   3.440431479427122*^9, 3.440431483026308*^9}, {3.4404318572307377`*^9, 
   3.4404318585079927`*^9}, {3.4404342486322536`*^9, 3.44043424883004*^9}, {
   3.440434554215577*^9, 3.440434554641974*^9}, {3.440434786782304*^9, 
   3.44043479509126*^9}, {3.440435235164381*^9, 3.440435235476252*^9}, {
   3.440435977237875*^9, 3.440435981753771*^9}, 3.440436356863564*^9, {
   3.4404369365974503`*^9, 3.440436937417512*^9}, {3.440437626229784*^9, 
   3.440437626356223*^9}, {3.4404387449711523`*^9, 3.440438748584197*^9}, {
   3.440439083183692*^9, 3.4404390845246143`*^9}, {3.4404395737474747`*^9, 
   3.440439574231786*^9}, {3.4404402710795527`*^9, 3.440440271457418*^9}, {
   3.440440610484453*^9, 3.4404406106951942`*^9}, 3.44044101682065*^9, 
   3.440441580561702*^9, {3.4404418816938753`*^9, 3.440441881851255*^9}, {
   3.440442065830852*^9, 3.4404420670363293`*^9}, 3.44044228225957*^9, {
   3.440442319923561*^9, 3.440442370146221*^9}, {3.440442438434514*^9, 
   3.440442438959957*^9}, {3.4404425691065617`*^9, 3.440442570713394*^9}, 
   3.440442700226551*^9, {3.4404428563636293`*^9, 3.440442880323395*^9}, {
   3.440442993210907*^9, 3.440442993631317*^9}, {3.440443078282702*^9, 
   3.440443078783576*^9}, {3.440443186815901*^9, 3.4404431882969027`*^9}, {
   3.440443307974893*^9, 3.440443308516556*^9}, {3.440443402799127*^9, 
   3.440443403314721*^9}, {3.440443530056448*^9, 3.4404435312841473`*^9}, {
   3.4404436784424267`*^9, 3.440443683360579*^9}, {3.4404437528124027`*^9, 
   3.440443753623651*^9}, 3.4404438447663307`*^9, {3.440444009830844*^9, 
   3.4404440107943487`*^9}, {3.440444090240802*^9, 3.440444090737048*^9}, {
   3.440444213940843*^9, 3.4404442185345573`*^9}, {3.440477902633522*^9, 
   3.4404779030178127`*^9}, {3.440478043206875*^9, 3.4404780891067657`*^9}, {
   3.440478190227631*^9, 3.44047819033776*^9}, {3.4404782244000483`*^9, 
   3.4404782246459312`*^9}, {3.4404782699366627`*^9, 3.440478291716771*^9}, 
   3.4404785849518642`*^9, {3.440479219225108*^9, 3.4404792226707783`*^9}, {
   3.44047966683029*^9, 3.44047967307477*^9}, {3.440481050107141*^9, 
   3.440481050608829*^9}, {3.4404815088134108`*^9, 3.4404815094186163`*^9}, {
   3.4404824648002768`*^9, 3.4404824649634733`*^9}, {3.440484474271562*^9, 
   3.4404844816132393`*^9}, {3.440485480394197*^9, 3.440485480678494*^9}, {
   3.440485537481791*^9, 3.440485537695066*^9}, {3.440485738416356*^9, 
   3.440485739479335*^9}, {3.440485924415592*^9, 3.440485924951992*^9}, {
   3.440486125176729*^9, 3.440486139138191*^9}, {3.440486785011632*^9, 
   3.440486786263644*^9}, {3.440487530005006*^9, 3.440487530224859*^9}, {
   3.4404882472575283`*^9, 3.4404882488714247`*^9}, 3.440489351399211*^9, {
   3.44049001041739*^9, 3.4404900144990273`*^9}, {3.440492447425617*^9, 
   3.440492448144065*^9}, {3.440494076927733*^9, 3.440494077253209*^9}, {
   3.4404963693133802`*^9, 3.44049639323251*^9}, {3.440497023222076*^9, 
   3.4404970234220753`*^9}, {3.440497892748982*^9, 3.440497911268965*^9}, {
   3.4404984328070793`*^9, 3.440498433854129*^9}, {3.440498854241128*^9, 
   3.440498855052868*^9}, {3.440499194017233*^9, 3.4404992009419117`*^9}, {
   3.4405000476868067`*^9, 3.440500048162043*^9}, {3.440500137930613*^9, 
   3.440500141899137*^9}, {3.440502097141325*^9, 3.440502097984365*^9}, {
   3.440505618233419*^9, 3.440505621773724*^9}, {3.440505897350922*^9, 
   3.44050589770186*^9}, {3.4405065889640512`*^9, 3.440506600346896*^9}, {
   3.440596010348529*^9, 3.440596020585471*^9}, {3.440597490189447*^9, 
   3.440597506412489*^9}, {3.4405983441042347`*^9, 3.440598344550253*^9}, {
   3.440599186578393*^9, 3.440599187976913*^9}, {3.4406002202288713`*^9, 
   3.440600224874878*^9}, {3.440604000982497*^9, 3.440604016543305*^9}, {
   3.4406051233806143`*^9, 3.440605124880014*^9}, {3.440609251976664*^9, 
   3.4406092531230907`*^9}, {3.4406133022322273`*^9, 3.440613303685656*^9}, 
   3.440651892386544*^9, {3.440666595689765*^9, 3.440666595860647*^9}, {
   3.440668238500766*^9, 3.440668239430932*^9}, 3.440669940078938*^9, {
   3.440671657941163*^9, 3.4406716599471607`*^9}, {3.440673387765501*^9, 
   3.440673387987843*^9}, {3.44067545279249*^9, 3.440675453189474*^9}, {
   3.44068040206837*^9, 3.440680403343207*^9}, {3.440684021562902*^9, 
   3.440684026978074*^9}, {3.440685607296962*^9, 3.4406856389252*^9}, {
   3.4406928063154697`*^9, 3.440692807695128*^9}, {3.440692873539167*^9, 
   3.440692884990885*^9}, {3.440694828212016*^9, 3.44069482971561*^9}, 
   3.440695633424654*^9, 3.440697226385783*^9, 3.44069769862743*^9, {
   3.440698073079298*^9, 3.4406980746473*^9}, {3.4406986238984203`*^9, 
   3.440698625627392*^9}, {3.4406991500801086`*^9, 3.440699150960322*^9}, {
   3.440699617710065*^9, 3.440699619162195*^9}, {3.440700145490555*^9, 
   3.44070015002771*^9}, {3.440700460364429*^9, 3.4407004617323103`*^9}, {
   3.440700974264613*^9, 3.440700975449999*^9}, {3.440701435345468*^9, 
   3.44070143630905*^9}, {3.440701948823514*^9, 3.440701950656539*^9}, {
   3.440702406866591*^9, 3.440702407208247*^9}, {3.440702780155225*^9, 
   3.440702782431883*^9}, {3.440703423634321*^9, 3.440703432434855*^9}, {
   3.440703929317148*^9, 3.440703945384172*^9}, {3.440704310617535*^9, 
   3.4407043114936657`*^9}, {3.440725926575803*^9, 3.44072593222338*^9}, {
   3.44072598966994*^9, 3.44072599155595*^9}, {3.440726032645597*^9, 
   3.4407260336510973`*^9}, {3.440726143338626*^9, 3.4407261501786137`*^9}, 
   3.440726242924822*^9, {3.44072630888048*^9, 3.4407263163038397`*^9}, {
   3.440726400033889*^9, 3.4407264456593027`*^9}, {3.440726545414695*^9, 
   3.4407265465771933`*^9}, {3.440726672693717*^9, 3.440726699707382*^9}, {
   3.440727409229673*^9, 3.440727410219985*^9}, {3.4407277124556847`*^9, 
   3.4407277252056007`*^9}, {3.4407278215549192`*^9, 3.440727828816475*^9}, {
   3.4407279167248993`*^9, 3.440727917441413*^9}, 3.440728010858446*^9, {
   3.440728169323475*^9, 3.440728170118329*^9}, {3.440728250990934*^9, 
   3.440728251415514*^9}, {3.440728357745755*^9, 3.440728362055809*^9}, 
   3.440728488548244*^9, {3.4407285764244013`*^9, 3.440728578230842*^9}, {
   3.4407290262422743`*^9, 3.440729031321587*^9}, {3.440729207363257*^9, 
   3.44072920994375*^9}, {3.440729738849389*^9, 3.440729739353747*^9}, {
   3.440729967338523*^9, 3.440729973933997*^9}, 3.440733526001029*^9, {
   3.44073363169422*^9, 3.440733631919252*^9}, 3.440733752081717*^9, {
   3.440733873238571*^9, 3.440733889883608*^9}, {3.4407341002238607`*^9, 
   3.440734100567829*^9}, {3.440734485906351*^9, 3.440734487702057*^9}, {
   3.4407351128031197`*^9, 3.440735124839538*^9}, {3.440750690771163*^9, 
   3.44075069421621*^9}, 3.440755341071093*^9, {3.4407554025917463`*^9, 
   3.44075543996629*^9}, {3.440755477881936*^9, 3.440755478505507*^9}, {
   3.440755517299801*^9, 3.4407555223463593`*^9}, {3.440755554126151*^9, 
   3.4407555545301*^9}, {3.4407556152480164`*^9, 3.440755616014701*^9}, {
   3.440755851053203*^9, 3.440755854955987*^9}, {3.440755907509799*^9, 
   3.440755908011156*^9}, {3.440756033538426*^9, 3.440756034698578*^9}, {
   3.440756118675273*^9, 3.440756118825117*^9}, {3.440756382020224*^9, 
   3.44075638246325*^9}, {3.44075646065548*^9, 3.440756461460733*^9}, 
   3.440756537505382*^9, 3.440756603687607*^9, 3.440756854899613*^9, {
   3.44075696530265*^9, 3.440756966225875*^9}, {3.440757009084384*^9, 
   3.440757009465592*^9}, {3.440757142599505*^9, 3.440757143721815*^9}, {
   3.440757218836918*^9, 3.4407572223844337`*^9}, {3.440757271631589*^9, 
   3.440757301186064*^9}, {3.4407573904765882`*^9, 3.440757419451907*^9}, {
   3.4407574579793453`*^9, 3.440757458978622*^9}, 3.440757502410162*^9, {
   3.4407575389768963`*^9, 3.440757539151062*^9}, {3.440757615723152*^9, 
   3.4407576175767612`*^9}, {3.440757687939364*^9, 3.4407576882208242`*^9}, {
   3.440757756767679*^9, 3.4407577575168743`*^9}, {3.44075781328915*^9, 
   3.440757813885035*^9}, {3.440757868308099*^9, 3.440757868633897*^9}, {
   3.440757903996949*^9, 3.440757907739984*^9}, {3.4407579626972017`*^9, 
   3.440757980305233*^9}, {3.44075801518832*^9, 3.440758015616858*^9}, {
   3.440758050193096*^9, 3.440758079422089*^9}, {3.4407581586570187`*^9, 
   3.4407581593088083`*^9}, {3.4407582527471848`*^9, 3.440758256694807*^9}, {
   3.440758548729333*^9, 3.440758559400756*^9}, {3.440758930162154*^9, 
   3.440758930457423*^9}, {3.440759078791011*^9, 3.440759093018518*^9}, {
   3.440759158333864*^9, 3.440759159251129*^9}, 3.44075925086803*^9, {
   3.44075930195391*^9, 3.440759303198431*^9}, {3.440759338383183*^9, 
   3.440759339028388*^9}, {3.44075938679769*^9, 3.44075938761775*^9}, {
   3.4407594355857077`*^9, 3.4407594447736893`*^9}, {3.440759508065971*^9, 
   3.440759511583109*^9}, {3.44075971523209*^9, 3.440759716757875*^9}, {
   3.440759910749794*^9, 3.44075992410975*^9}, {3.440760025983938*^9, 
   3.4407600262164183`*^9}, 3.440760211701703*^9, {3.4407604899283533`*^9, 
   3.440760491262689*^9}, {3.440760676044561*^9, 3.4407606761870537`*^9}, {
   3.440760772400709*^9, 3.44076077284101*^9}, {3.440761126477508*^9, 
   3.440761126752555*^9}, 3.440761229497438*^9, {3.440761854612076*^9, 
   3.440761855824004*^9}, {3.4407632587937107`*^9, 3.440763259157584*^9}, {
   3.440763813297613*^9, 3.440763813622672*^9}, {3.4407639763520727`*^9, 
   3.440763991494767*^9}, {3.44076411001245*^9, 3.440764110409156*^9}, {
   3.440764276985332*^9, 3.4407642786613617`*^9}, {3.440764442024845*^9, 
   3.440764443114778*^9}, 3.440764938740316*^9, {3.440765256099031*^9, 
   3.440765261827124*^9}, {3.4407653268259277`*^9, 3.440765327234779*^9}, {
   3.4407655635403843`*^9, 3.440765564312241*^9}, 3.440765620828917*^9, {
   3.440765703151119*^9, 3.440765726871459*^9}, 3.440765825015386*^9, {
   3.440766028263256*^9, 3.440766029353798*^9}, {3.440766204386888*^9, 
   3.440766204857259*^9}, {3.440766521983227*^9, 3.440766522469702*^9}, 
   3.440766568190959*^9, {3.4407669552577553`*^9, 3.440766956469116*^9}, {
   3.440767122801959*^9, 3.440767124905675*^9}, {3.4407674798148603`*^9, 
   3.440767480292695*^9}, 3.4407676077733183`*^9, {3.440767742798276*^9, 
   3.44076774355435*^9}, 3.4407678687017527`*^9, 3.440768118176277*^9, {
   3.440768231951798*^9, 3.440768232999069*^9}, {3.440768591743848*^9, 
   3.440768596101253*^9}, {3.440768667626151*^9, 3.440768667926798*^9}, {
   3.4407710080050488`*^9, 3.440771011454505*^9}, {3.44077109557611*^9, 
   3.440771097122945*^9}, {3.440771170126073*^9, 3.440771170573442*^9}, {
   3.4407713256311398`*^9, 3.440771326153799*^9}, {3.440771639250958*^9, 
   3.440771639440825*^9}, {3.440771739702067*^9, 3.440771741269269*^9}, 
   3.440771838383092*^9, {3.4407719346597967`*^9, 3.440771934932726*^9}, 
   3.440772032330637*^9, 3.440772217772912*^9, 3.440772363647244*^9, {
   3.4407724454517593`*^9, 3.44077244589782*^9}, {3.4407725590933123`*^9, 
   3.440772561620887*^9}, {3.440772657305236*^9, 3.440772657672076*^9}, {
   3.4407728581439867`*^9, 3.4407728595002737`*^9}, {3.4407730286021023`*^9, 
   3.440773033287315*^9}, 3.4407731277449293`*^9, {3.4407732392121773`*^9, 
   3.44077324046633*^9}, {3.440773424916244*^9, 3.440773425291024*^9}, 
   3.440773547375122*^9, {3.440773766583061*^9, 3.440773767304294*^9}, 
   3.440773921265873*^9, {3.4407742265242157`*^9, 3.440774227098176*^9}, 
   3.440774421316259*^9, 3.440774689802146*^9, 3.4407748592012377`*^9, {
   3.4407754042384377`*^9, 3.440775404829742*^9}, {3.440775686390314*^9, 
   3.4407756895653973`*^9}, {3.440776057834445*^9, 3.4407760582817097`*^9}, 
   3.440776535724325*^9, {3.440776710353714*^9, 3.440776710583283*^9}, {
   3.4407768053861427`*^9, 3.4407768110674973`*^9}, 3.440777044065083*^9, {
   3.4407776391893044`*^9, 3.440777643833082*^9}, {3.440777874053228*^9, 
   3.440777875098472*^9}, {3.440778027427165*^9, 3.440778027838274*^9}, {
   3.440778363503125*^9, 3.440778364426244*^9}, 3.440778779796257*^9, {
   3.440779120852686*^9, 3.440779121474915*^9}, {3.440779334302713*^9, 
   3.440779336585292*^9}, {3.4407800993606358`*^9, 3.440780100382416*^9}, {
   3.440780209576522*^9, 3.440780213461257*^9}, 3.4407803559237843`*^9, {
   3.440780468412697*^9, 3.440780469195984*^9}, 3.440780591802696*^9, {
   3.44078076029815*^9, 3.4407807609509487`*^9}, 3.4407808664864187`*^9, {
   3.440780960846121*^9, 3.4407809617019157`*^9}, {3.440781270052834*^9, 
   3.44078127260497*^9}, 3.440781361991029*^9, {3.440781429812202*^9, 
   3.440781430688768*^9}, {3.440781494949285*^9, 3.440781500713979*^9}, {
   3.440804760819291*^9, 3.4408047829228687`*^9}, 3.440809489823731*^9, {
   3.440817905815929*^9, 3.4408179072043447`*^9}, {3.44081927011178*^9, 
   3.440819276709383*^9}, {3.4408193646737413`*^9, 3.4408193811995773`*^9}, {
   3.440829781130167*^9, 3.440829784926035*^9}, {3.4408321065520363`*^9, 
   3.4408321355468397`*^9}, {3.440832183215911*^9, 3.440832194583231*^9}, {
   3.4408323058556147`*^9, 3.440832309435601*^9}, {3.44084042307714*^9, 
   3.4408404234207487`*^9}, {3.440907145192284*^9, 3.4409071775573053`*^9}, {
   3.440907553166774*^9, 3.440907569363228*^9}, {3.440907623742757*^9, 
   3.440907625140221*^9}, {3.440907750787221*^9, 3.440907752482176*^9}, 
   3.440908247767774*^9, {3.4409085597532454`*^9, 3.440908565287046*^9}, 
   3.440909046866537*^9, 3.44090918909452*^9, {3.4409094181060047`*^9, 
   3.4409094182815247`*^9}, {3.4409095303273373`*^9, 
   3.4409095357746696`*^9}, {3.4409099644880667`*^9, 3.440909966315406*^9}, 
   3.440910376267284*^9, {3.4409107317924633`*^9, 3.440910732678639*^9}, 
   3.4409109449830427`*^9, {3.4409111058816223`*^9, 3.440911106749332*^9}, 
   3.4409112204611473`*^9, 3.440911339591527*^9, 3.440911428824684*^9, {
   3.440911637738502*^9, 3.440911638778844*^9}, 3.440912022901803*^9, {
   3.440912207727064*^9, 3.440912208430613*^9}, {3.4409122512258387`*^9, 
   3.4409122788834476`*^9}, {3.440913375479993*^9, 3.440913377052876*^9}, 
   3.440915224798225*^9, {3.440918902416058*^9, 3.440918902629871*^9}, {
   3.4409199334653597`*^9, 3.440919937262743*^9}, {3.440920056528638*^9, 
   3.4409200629349813`*^9}, {3.4409212722831297`*^9, 
   3.4409213019809723`*^9}, {3.440921341182356*^9, 3.440921341668985*^9}, {
   3.4409224425296717`*^9, 3.44092244496288*^9}, {3.4409231397989883`*^9, 
   3.440923156983446*^9}, {3.440924334493032*^9, 3.4409243359295692`*^9}, {
   3.44092517298888*^9, 3.4409251734862423`*^9}, {3.440925813831859*^9, 
   3.4409258145389853`*^9}, {3.440927281205917*^9, 3.440927288027616*^9}, {
   3.440928562420518*^9, 3.4409285731066933`*^9}, {3.4409289452630987`*^9, 
   3.440928945594316*^9}, 3.440929242892076*^9, {3.440929559389353*^9, 
   3.440929571769121*^9}, {3.440929884557341*^9, 3.440929885241407*^9}, {
   3.440930322991521*^9, 3.44093032388727*^9}, {3.4409313765197783`*^9, 
   3.4409313766854477`*^9}, {3.440931908858786*^9, 3.440931912274253*^9}, {
   3.440932208165736*^9, 3.44093222089102*^9}, {3.4409326685093718`*^9, 
   3.4409326693728333`*^9}, {3.44093306620844*^9, 3.4409330669734373`*^9}, {
   3.4409336189671593`*^9, 3.440933619461121*^9}, {3.440934047232636*^9, 
   3.4409340531591988`*^9}, {3.4409347610094137`*^9, 3.440934768395623*^9}, {
   3.440939907901038*^9, 3.440939942686817*^9}, {3.4409399835512867`*^9, 
   3.4409399891746798`*^9}, {3.440940144001968*^9, 3.440940144977664*^9}, {
   3.4409403304885607`*^9, 3.44094033793978*^9}, {3.44094055297591*^9, 
   3.4409405531891413`*^9}, {3.4409406948799973`*^9, 3.440940696156687*^9}, {
   3.440940882385741*^9, 3.44094088288002*^9}, 3.440941194201391*^9, {
   3.44094144349338*^9, 3.44094144570918*^9}, {3.440941654550425*^9, 
   3.440941662229402*^9}, {3.440941780644814*^9, 3.440941780773079*^9}, {
   3.440941888421983*^9, 3.440941888636335*^9}, {3.440942017885086*^9, 
   3.440942022418281*^9}, {3.4409422086653852`*^9, 3.4409422148080463`*^9}, {
   3.440942419658125*^9, 3.440942426446149*^9}, {3.440942547608715*^9, 
   3.440942550544117*^9}, 3.440942688096797*^9, {3.440942842842547*^9, 
   3.4409428430087357`*^9}, {3.4409429775038147`*^9, 3.440942978481661*^9}, {
   3.440943106152787*^9, 3.440943107149851*^9}, {3.440943231282133*^9, 
   3.4409432377997093`*^9}, {3.440943343370748*^9, 3.4409433442342443`*^9}, {
   3.4409435471868258`*^9, 3.440943547833598*^9}, {3.440943650487074*^9, 
   3.440943651307344*^9}, {3.4409437886679373`*^9, 3.440943789727317*^9}, {
   3.440943954369143*^9, 3.440943957674076*^9}, {3.440944148444467*^9, 
   3.440944151476503*^9}, {3.44094422801952*^9, 3.44094422905479*^9}, {
   3.440944342799567*^9, 3.440944343123361*^9}, 3.440944429933837*^9, {
   3.440944546242352*^9, 3.440944552042816*^9}, {3.440944610942449*^9, 
   3.440944612666799*^9}, {3.440944685523115*^9, 3.440944686058153*^9}, {
   3.4409447544244337`*^9, 3.440944754767915*^9}, {3.440944845851164*^9, 
   3.440944848196705*^9}, {3.440944912461772*^9, 3.4409449136578913`*^9}, 
   3.440944984515894*^9, {3.440945055080386*^9, 3.440945059154009*^9}, {
   3.440945169307538*^9, 3.440945184046665*^9}, {3.44094523550694*^9, 
   3.440945236009592*^9}, 3.440945307674018*^9, {3.440945375466083*^9, 
   3.440945376274362*^9}, {3.440945437844462*^9, 3.4409454384362993`*^9}, {
   3.440945505523974*^9, 3.4409455114909477`*^9}, {3.4409455628068542`*^9, 
   3.440945563639908*^9}, {3.440945618351687*^9, 3.440945625643443*^9}, {
   3.4409460191780024`*^9, 3.440946021399156*^9}, {3.44094625035411*^9, 
   3.44094625598453*^9}, {3.440946439115449*^9, 3.440946447536706*^9}, {
   3.440948099895216*^9, 3.4409481271830997`*^9}, {3.440948837297954*^9, 
   3.440948837613347*^9}, 3.440949350688271*^9, {3.440950489579235*^9, 
   3.44095049063142*^9}, 3.440951015147161*^9, {3.440951480779653*^9, 
   3.440951482278911*^9}, {3.440951975134005*^9, 3.440951975649982*^9}, {
   3.440952253181665*^9, 3.44095226707635*^9}, 3.4409549749388847`*^9, {
   3.440996504061792*^9, 3.440996505004614*^9}, 3.4409983818462954`*^9, {
   3.441004621965727*^9, 3.441004622641376*^9}, {3.441007393622072*^9, 
   3.4410074085803003`*^9}, {3.4410080278927727`*^9, 3.441008030434578*^9}, 
   3.441010200333618*^9, {3.44101170940269*^9, 3.4410117102695713`*^9}, 
   3.441012837306617*^9, {3.441013846741473*^9, 3.441013847622764*^9}, 
   3.441014583916048*^9, {3.441015005793407*^9, 3.441015006028454*^9}, {
   3.441015323626739*^9, 3.441015326744307*^9}, {3.441016615009953*^9, 
   3.441016618449739*^9}, 3.441017759785121*^9, {3.4410179583050737`*^9, 
   3.441017959069236*^9}, 3.44101811812703*^9, {3.441018201542304*^9, 
   3.441018204079524*^9}, {3.4410185997167177`*^9, 3.4410186034408627`*^9}, {
   3.441018948099134*^9, 3.4410189483705482`*^9}, {3.4410191025901937`*^9, 
   3.441019104731723*^9}, {3.4410192298029337`*^9, 3.441019230202571*^9}, {
   3.4410226734174767`*^9, 3.441022683552211*^9}, 3.441023026183622*^9, {
   3.441030069280191*^9, 3.441030070628849*^9}, 3.441031827040421*^9, {
   3.441031896984304*^9, 3.4410319306791763`*^9}, 3.441032091441777*^9, {
   3.441032178181304*^9, 3.441032179098733*^9}, 3.441032304858975*^9, 
   3.441032386963067*^9, 3.441032905330524*^9, {3.441032935875977*^9, 
   3.4410329418945227`*^9}, 3.4410330805600157`*^9, {3.441033194080776*^9, 
   3.441033195344315*^9}, {3.4410332278791723`*^9, 3.441033249161148*^9}, {
   3.441033837699716*^9, 3.441033866336162*^9}, {3.441033963779009*^9, 
   3.4410339648939867`*^9}, 3.441034078790902*^9, {3.441034545326394*^9, 
   3.441034546059219*^9}, 3.441034582733103*^9, {3.441034682427507*^9, 
   3.441034705587297*^9}, {3.441034794779459*^9, 3.441034798478519*^9}, {
   3.441035352701309*^9, 3.441035357299436*^9}, {3.4410354342394333`*^9, 
   3.441035440100721*^9}, 3.441036355690316*^9, {3.441036415670377*^9, 
   3.4410364160358057`*^9}, 3.441037725717999*^9, {3.441085304018021*^9, 
   3.441085320843631*^9}, {3.4410853618535357`*^9, 3.4410853655162373`*^9}, {
   3.441085518224328*^9, 3.441085518485836*^9}, {3.441086105838336*^9, 
   3.4410861061000977`*^9}, {3.4410863027695932`*^9, 3.441086316213006*^9}, {
   3.441086402328533*^9, 3.441086418121985*^9}, {3.441086644372477*^9, 
   3.441086645018242*^9}, {3.441086999408255*^9, 3.441087005119079*^9}, {
   3.728472822011175*^9, 3.7284728257643914`*^9}, {3.7285349133349714`*^9, 
   3.7285349246723185`*^9}, {3.728535074859301*^9, 3.7285351443534355`*^9}, {
   3.728535193778981*^9, 3.728535194639188*^9}, 3.728535616230976*^9, 
   3.728538554566987*^9, 3.7285392038875804`*^9, {3.728539417621932*^9, 
   3.72853944303121*^9}, {3.728539492158229*^9, 3.7285395107756367`*^9}, {
   3.7285470891666594`*^9, 3.728547131008901*^9}, {3.7285471935220733`*^9, 
   3.728547234495304*^9}, {3.7285512089028234`*^9, 3.7285512603072686`*^9}, {
   3.72855129085433*^9, 3.728551291659278*^9}, {3.728551330986642*^9, 
   3.7285513391955223`*^9}, {3.728551404866458*^9, 3.7285514060917263`*^9}, {
   3.728551555286549*^9, 3.728551563004476*^9}, {3.7285516914290686`*^9, 
   3.7285517849655*^9}, {3.728551820819051*^9, 3.7285518535686803`*^9}, {
   3.72855189262118*^9, 3.7285519034632497`*^9}, {3.728551957731491*^9, 
   3.728552062031654*^9}, {3.728552253614727*^9, 3.728552254820014*^9}, {
   3.728552309806958*^9, 3.7285523108873024`*^9}, {3.728552354445943*^9, 
   3.728552360156331*^9}, {3.728552411584811*^9, 3.7285524370161*^9}, {
   3.7285528637964582`*^9, 3.728552896842569*^9}, {3.728553002986219*^9, 
   3.728553003864786*^9}, {3.72855338352632*^9, 3.7285533853441734`*^9}, {
   3.728553417388114*^9, 3.7285534723031816`*^9}, {3.728553527440812*^9, 
   3.7285535288207693`*^9}, {3.7285535900080547`*^9, 
   3.7285536197169724`*^9}, {3.7285536854923906`*^9, 
   3.7285536866657453`*^9}, {3.7285537300099564`*^9, 3.728553731148662*^9}, {
   3.7285537700161095`*^9, 3.7285537711101665`*^9}, {3.7285538341036367`*^9, 
   3.728553893194241*^9}, {3.7285552093638277`*^9, 3.7285552587864175`*^9}, {
   3.728555300358652*^9, 3.7285553529701586`*^9}, {3.728555404101031*^9, 
   3.728555405254345*^9}, 3.728555510062384*^9, {3.728555613500394*^9, 
   3.728555614648271*^9}, {3.7285556780067787`*^9, 3.7285556784474416`*^9}, {
   3.7285557284346533`*^9, 3.728555729507533*^9}, {3.7285580012705793`*^9, 
   3.7285580016647596`*^9}, {3.728558065853027*^9, 3.7285580663288684`*^9}, {
   3.7285581489936337`*^9, 3.728558163161347*^9}, 3.7285582633231153`*^9, {
   3.7285584455908957`*^9, 3.7285584460756683`*^9}, {3.728558548457099*^9, 
   3.728558549501811*^9}, {3.7285585821654944`*^9, 3.7285585833104057`*^9}, {
   3.728558626060732*^9, 3.7285586270704527`*^9}, {3.72855875592943*^9, 
   3.7285587596397657`*^9}, {3.7285589039976583`*^9, 
   3.7285589151688385`*^9}, {3.7285590438769503`*^9, 
   3.7285590851662483`*^9}, {3.7285591755430555`*^9, 3.728559186838088*^9}, {
   3.7285592599671803`*^9, 3.728559260325694*^9}, {3.7285592977721863`*^9, 
   3.72855929927701*^9}, {3.728559434719554*^9, 3.7285594595991926`*^9}, {
   3.728559527295236*^9, 3.728559528379007*^9}, {3.7285596161284*^9, 
   3.7285596172263317`*^9}, {3.728559802916152*^9, 3.7285598081563807`*^9}, 
   3.7285598975111604`*^9, {3.728560002042655*^9, 3.728560004359962*^9}, {
   3.72933106959278*^9, 3.729331070022953*^9}, {3.729331116850924*^9, 
   3.729331120876458*^9}, {3.7293313713676224`*^9, 3.7293313958738537`*^9}, {
   3.7293315050220423`*^9, 3.7293315062968483`*^9}, {3.729331609014065*^9, 
   3.729331658841589*^9}, {3.7293317491374993`*^9, 3.729331773266816*^9}, {
   3.729331829094395*^9, 3.729331862919915*^9}, {3.7293318971282187`*^9, 
   3.729331915516407*^9}, {3.7293320506378903`*^9, 3.729332052412283*^9}, {
   3.7293340101235433`*^9, 3.729334010630491*^9}, {3.729334045798092*^9, 
   3.7293340461020145`*^9}, {3.729334091723752*^9, 3.729334119371684*^9}, {
   3.729334163232913*^9, 3.7293341635983734`*^9}, {3.729334194537732*^9, 
   3.729334239629202*^9}, {3.7293342793554544`*^9, 3.729334410411455*^9}, {
   3.729334557281477*^9, 3.7293345637429247`*^9}, {3.729334601211804*^9, 
   3.72933462648796*^9}, {3.729334663979486*^9, 3.7293346643296204`*^9}, {
   3.729335673066291*^9, 3.729335754739402*^9}, {3.7293357946432366`*^9, 
   3.729335795221011*^9}, {3.7293358274164553`*^9, 3.7293358286640816`*^9}, {
   3.7324577626137733`*^9, 3.732457763854003*^9}, {3.7324578339037604`*^9, 
   3.73245786189216*^9}, {3.73245791368293*^9, 3.7324579154631433`*^9}, {
   3.73245852986228*^9, 3.732458582397168*^9}, 3.73245863235063*^9, {
   3.732459056390216*^9, 3.7324590824972577`*^9}, {3.7324591493425035`*^9, 
   3.732459149939453*^9}, {3.732459183376394*^9, 3.7324591838374996`*^9}, {
   3.7324593724848075`*^9, 3.7324593740367928`*^9}, {3.7324598021887627`*^9, 
   3.732459817506647*^9}, {3.732460764954314*^9, 3.7324607841908693`*^9}, {
   3.7324608271191483`*^9, 3.7324608779094296`*^9}, {3.7324609093731127`*^9, 
   3.732460928809545*^9}, {3.732460963490472*^9, 3.732460984737932*^9}, 
   3.732461067806819*^9, {3.7325152191368713`*^9, 3.732515252678094*^9}, 
   3.732515463840207*^9, 3.7325158620867677`*^9}],

Cell[BoxData["40.62731876989103`"], "Output",
 CellChangeTimes->{
  3.732458933767927*^9, 3.7324590279997954`*^9, 3.7324590959638596`*^9, 
   3.7324591273400335`*^9, {3.732459171327054*^9, 3.732459200776598*^9}, 
   3.7324592558716416`*^9, {3.7324593026155577`*^9, 3.732459314372755*^9}, 
   3.732459345718452*^9, {3.7324594270802608`*^9, 3.7324594851340656`*^9}, {
   3.7324595330611014`*^9, 3.7324595396301413`*^9}, {3.732459665761177*^9, 
   3.7324596897636595`*^9}, {3.732459734016345*^9, 3.732459779604754*^9}, 
   3.7324598260570908`*^9, 3.73246079616238*^9, {3.7324608379793577`*^9, 
   3.7324608854307394`*^9}, {3.7324609180476694`*^9, 
   3.7324609329100676`*^9}, {3.7324609690010777`*^9, 3.732460989295963*^9}, 
   3.7324610725734696`*^9, 3.732515267623798*^9, 3.732515390904784*^9, 
   3.732515464586693*^9, 3.732515583197426*^9, {3.732515869188197*^9, 
   3.7325158872305326`*^9}, 3.7325164112121596`*^9, 3.732950411102784*^9, 
   3.733206543053627*^9, 3.7333699261734877`*^9}],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxF2nk0VdEaAHBzmoUilSRJoqJQhs7nzveKopGEkFJCxpIMoYGiUQjJlBTK
GKobKmSe58wz9yIy8/bx3ur5I+u37rH3Pt/37eGu9jZTG70LXBwcHC/RP/jv
on2cVFdeDuBY+hlhLnj+WXRcz/PPClXdn2x28P/zuymLzN0uAv/8Yn5vWl+g
8D+ndDdLL4aL/nOin9/ngIXN/5zz9O6n1PsS/xwCv6J/MyX/eWXrglbaoNQ/
W06F3d43Jv3P6SMaRZekdv3ziBktiqyw+59zC0jKZfvl/9l7FaFpvene//fX
XX3XI23f/9s/sPxddZnCP/O4pu9e7FL85w2cG8dv9u7/51cTN8l1iwf+753P
fnvzKv//+cL3HOu2qfyzgdlhD3uVg/8srOZDlVE79M+U28Uvsk+owsIi/sNm
hnz/ZbanXhVm/mcWX+He12fVgPU/x/3wknVvVoOy/9nU+/COc+fUwfF/rne5
YS7brw4GC/+1zrXUqEkHDdgw+1+78/3is57UAJ4///WHl62WXTcOw1zjfx12
yXEdYxkGe/z/a1+llZlJzzCwerOwZGtmIvXbWgBtybkli3TVJcucBFgeNb5k
8TOspO7nAIXNrUveUcyTEFkLIDIRu+QVhmeP1G3WhBsRcwtL7zf4cXClmSbk
3VuYwx3QdNy73EsTVmysmMG9r2hi8/NoTfhmcGESN2cexXIyVRPKOEUmcFdm
vUjT/6EJknNyY7izlL81+ZZoQmmB4AjuyOQ+zs81miBi6D+89D571skMt2iC
88viAdz28Yd0xHtQf0kFvbglWdo7pVmacKDwQRfucgVTjj1/NaGPg7N9Kf7H
h4YUZjThjd3G1qV4Ojo1KC1owmPhjS2492T6JmvwEeDhnR/1uHmbhF9priCA
59Ortbib58L9yGsI0Eb6U4U7VXzXdbogAb6FHK/A7Qcp5tobCNB/zK90Kb+m
Grq6YgRY0xxYhFvVO1/jpDgBBC/aFeCWfr7qwGkJAgh0F//EvS5WV1ZfkgBe
qezvuOfSAyXOSqH2Pd7k4u7Lb9pwTpoAY4d1v+GurpdYbSxDAKgd+oL7W/8F
7vOyqP+dLtm4X6wcYZvvIcBLY8t03JSjPIVWygTgNnn2DreiCZ1pfZAAK/Z/
isO95Zp/mq0qAaKLimJwjz8RjXQ4TADXtG+vcEfVyt10paD+Jaqf4PbvvXbN
jUYApqBlAG6XqfSLHgzU/+N+P9x6YponvHUIYEOP98bNYXRS/sEpAgSfEnLE
PWQdst3/DAGEvwzbLtW/e+vGRwYE8Ln93gp30mtLvmdGBDjoV2mG26j7VutL
CwJktIYewy0zWf2k8BIBaDy8Wrj/8MtRJi8TQC4FI+O+J9f4Xs+GAA8kpA7h
Pn5YwcTjGgEmzxQqLtX7sXtCifYE8F1zUA53ir2yy/LrBDiWf1Ect5vPQ3kV
F/T8te0iuGkvutrMXQkQscZoDW6ht2rPnrgRIFaIxIP7d9YT6jcPArwY6Zle
wOutuH9m+DYBqkQpbNz2vyFxkw8BEltMunDzc7GFne8T4F7RjxLclUKUgmg/
AhQ1rM7FHbYj7GblQwKMMFan41aka3XIPyFAPlEuDLfhozdJXSEEeGaYdhG3
dOSCqWAYATKve+vjHk05uQFeEcDu5TQD95067lsvowhwa3mhHO6P4iYMvfeo
PhOeDs4ju+7LmHdPJEBn3u5G3BTCmo8JHwjwRpRegLv5wmeR5WkEcH8xH4k7
1lmoSDmDAFu57wfgvnb/spt5JgHu7r59Ezdfgmg38wsBLvhE6uIu/2oTNMwk
wOfD2Wq4X5b/1NqUS4Dz36R24N437pDs9JMApuKFE3PIM7zFF6ILCDDkPdaM
+4fI9o2VvwjwO4+eh9tArcJdvowA1fYGD3FLacvsP1tBAIr8oi1utpF7z70q
AnzVijuOO8u2Nji9BtU/mUMBt/dtee2uOgJIs/bx4z76zJtDsBHVS4Pu71lk
sdimFKyZAGfrTVJwJxXeF3vZRgCncA0D3C5NbSUFHWg8KjxyuEnDKp5/uwiQ
4hw/N4PcKNDTq9tPgPQrHiG4ec4Q0vjHCDBh/CR/GplRLbN63TgBzG0vPMUd
cGzthY1/CTAss8wItxi9WVh2hgCH+wPYU3h8VJ0ctLiI4Bxyiwu3U7ph8XEe
IsgnPM6bRM5WJEoZ8hHh83tBL9yU3QLVViuIEGgvNv8Xr5fN8fv9BYmwZz25
aQJfX4Me+QUKE4ES++sh7l5h587wDUQIK9p2GLfdatLTJDEieFzqfDGO/Om+
7GDGZiKEnhXTxD3Pu474TZwIQyXZvX/w+bbQMlYuiZ6n/pLDXeryndEgRYTL
OjO/xvD5Mhkf2S5NhLf5Yha4z9g/numXIULsyhULo8jhbGe9MVkitEvFPMHd
dcUofkaOCHWF+dtxy/aRuLj3EuH6sGXUCLKt+W6DlQpE2Hn/53LcaW3rkoX2
E8HPxsKKjdeP4dTyzUpE0MghFLGQoeH3eSkVIqzjOC6Nu7ji3TolNSLkh3eV
DyF35JKvnSISQYit/LcfX18wuUIjMhHGA2SUcF/NFtx2kUqEM9rfbfqQp1Ja
y521UHuD9+t6kNfE3NgXfJwIMXqxVzuRT2wzuff6JBqvot6dDuTgMErb29NE
OE90D27H6zVQ6FHWWSKoBvsntuL7w90EdpMZEYTNNz9sQvbgfkbtukAE4qHb
9o14/bu7vBq6SASnKRu9BuRj16lH56+gfPCHT9UiW1i2J4o7ECFphUNzBb5f
9jTk6TkRYVu0pXE5Xr9mlfV3rhOBpL+qthQf/7k8LrYrETJtOEKLkDc3ZYts
d0f1dVF4oBBZ80yq3GlPIiyeM9hVgLdf817Tz4sILh3b9H/i7evFnGL6EOHD
rpTr35ETy8Ku/LlLBC6rR065yFVHAj12+qJ4BdrVM/H2qXfjA/yJIGL5yyIL
OUHNcsH4BRo/IS0uEV//Pp0XehZMhDl/Ud93yH+VDGQKXhKBz2z8dBzy4X1a
evsiiPBq/ljGa3w9kZKP5XiL6netpuNTfL96vSP7wDsiHOY0fheAvHGrePml
BPQ+VZMFfvh+vHHtTPlHIkTYDKd74c+vHtV+nUUEn4o9YIcs6tdvWvOZCFtn
W55dRdbg73BeziTC16M5+Zfw9ZOr6vW1PCJcbJzJMUKOdy9Kj/lBhMZM7jv6
yGVzeUUN+USA4ehtJ/D2JlMnNIvRfDMQqKchqzskrHAqReOHYhYB+fxozNb4
ciJMxXPVqOPtDQbSBWuIsMIrim8fPn8uBRhR6ojA5pLT3oXvb9137V0aiLCX
87K+JN5e2/WwjhYi6G1b8UkI2eTcteQNbUQw2RzNswrZp9Eyn9GB/v6FXyMX
3v5p02a3LiJ0xD2Qm1pA7VcbjCb3EGGL3gXlYeQx3eN8vX1EcDzgMNmOLFKm
tWnTIBFomWPWtcgmhepkLzYRrh40vPUV2ZuiZJAxSgTe4YF1ychv8+RtBv8Q
gbxa7kwM3t4X8eDjU0RweML9xxfZK5ljeDsnCQQsuHbqIUuG3ItV5CaB7UlM
kISc6ylgoslLgtv9UXFKyBy6ElVGy0mgs86sSATZjY1lBq8jQdZm4oO6ebR/
1+XbxQmRYI9opONP5C9fj8plrCdB5IXLw6nIcw+NX1VvJMH4cj3HR8gucu4+
ayVJwJllflwTWUx4GSYuRQJfzwRxOeTMWf8pOWkSZD7w0NqAPPUr/ApDlgRn
laoT+ubQeSpZeoe+HAmmZ59WlyMrhyT+vriHBH+X6WOfkB0tv+r6KJJgnUMz
0xtZWJey8tkBErwpUP5uiZx6sPR7pDIJRmd+9WsjH5c45fbxIAmIuXw7FZDH
lv1W+aZKAlM1K6IQ8hP2hdFSdRK0KuuXDc6ymQp1w/Eth0mQdkzkXB6ybez8
llkCCULaGxxskAX8feqWk0mQkLdvmoic5Lj6sSgVOW7EXgSZRdrCo6xFApeH
U2rZM2zmlU71AdvjJPgUdfL2xDQ63xd9j3I/SQKuK867cpDjk4+c8z9Ngp6U
W4F+yH2ehuXvzpKgyjY8bDOyhYRreo8ZCRY0vyjtmUL7PT+P7cQFEvxcf6yH
NclmxrD9dvFcIkHA7P7FBOSury9Dt1mRQNDtr+xO5PPnsm8bOpDg2ldeV+6/
KN9kovoVJxLcxAbvpE2wmRFyRRM3rpNgG6e/6QXk37ONl164kmCqV1Xu6zja
z0JmdCq9SdBPfLFL9w+bOWyvkVZ7hwQzHtO1I2OoXrQ9NjXdI4HG8gfPHyJH
cPD1dT4gwdW/IvlfRlE8G2k6ff4kOLnl/OQx5NwUv9ShRyRQMrBOaRtB+XlY
Kjb6hAS1ox9rrZC7LNZ5TjwjgQEz2mOAjfINJ3qnA0mw3/LyUT1kPrEX2gtB
JJC8J6OczkL7R8lmsWVhJHi+PmOd3TCbabVfJkU0hgROb1oEPg2g/XPVlY1b
3pAg9HP3p4V+dJ7uSXDf9hblS+JiPSB/CN5/RDaBBP5CufwZvWi9WjzcrZZG
glcPZF0vdqH53eCpBRkksDh0R+1OJ5u5IeX7R1ImCS4t/mS86mAzD1ow3LS/
kMDtkfIzZhs63xWfFDH+QYKJ8Jelyc1s5urYoFtm+SR4XBW2KbwJ7b/uTZ0X
C9H8UZlp82xE3ycUz3+wLSFBxEj7O4V6NlN3VfQGxzISOFzXEJ6vRftld4/r
jQq8Pi5nMWvQ+SbYin67hgQV8q/P7apiM5/bJSXdqUP1cqPiVVkFOp8eGVvv
10CC9uSpt1fK0Xl60bnjaQsJrHZ8cfAqYTMfXPC6GdNNgiKvyIAd+ej7CPaz
/W0vmj+jSfVXf6D9RXQ5LbGfBOxVL1Ti8tD6X+QvnDGMxme6rmCEieoppsIl
m02CejmWedUXNJ/chNuZoySwq10zG5ON5qNiSELBBAmSRoPUN2ag+lzZIlQy
SQKJAA/2p1Q0n7u3ulRMk0Bz54l4SjI6nwTFUBrnSUAgt/LLJqDz6sKH1kFe
MhSGyZcuvkbzpYGXezM/GbLzeXd9CUfrS4qB9JEVZFC7E3jZ+CU6n17iufp+
DRk2O+gU6jxjM38R9B81C5DhDn97W/AjtN9vSUxZJUSGfe7eVT8eoPWo8vSM
lQgZwriVfmV7o/31/fstYRvJIL4zxM7LA51n7nBqlmwiw2KT5uGdruh8qfbu
rrwEGXxe+vIv2LGZITELwiwZMowLVavlGKHxeRw/KL6bDALmr7cR9dH4DOLO
6siTITfI1Pn5cTS+tXqRiQpkiBG4ER5NRfvljZi9NqpkiCAWjRySR+e54zN6
r9TJQDxr9muVNFoP5Y86lR0mg3Wk1liEOPq+1jH1eS+RDN1Jq1151rKZQUeO
MEa0yBB1d2VEHovF5N/5+qqEDhmwDWFtVj0s5nXOv4+OHSODyCbBe99aWMwz
6a/qPpwgA2GbrsPpIhaz4NH4TNspMkgN9BU8yWExD16hi6/TJwOFuRh9KYPF
FJX4Y37tHBkSvM7cqnrNYt6bod57bUyG0hUD4iaBLOZUdei7ivNkKK8Ofurk
y2LW36eMKViQ4aAxX87eayzmiz/B7mPWZDDN93I8c5DF5CtlRUpeI4Mvh/SR
TBkW0ymO+FPPngw5h/f7e4iymKfODa9KcSaD0aIW576/w8yfKoR9nTfI0COx
d2pN1zBTWfDFcSFXMiQ+kOvVrBhmbsiHEHsPMnykqM4+ejvMvPP6+Zeo22Rg
f4nJjno2zPx7c6CtypsMZ+rb3026DTNr9z3beeA++jzmhewx3WFmYEhv6vhj
MuzPlrl7eGiI6dla5Lr4lAxHLD3KP1QOMa2kPpBWBJLBY0cOt+GnISYh8Xr1
1hCUH4GpOG3PIeZwzvJxRiQZ9DZwmJevGGLW87GyT0aTYfhqj3bS0CAzV6vS
yyQWxWfH2rDokkFmUE2IkFM8GVZZPBzPejDIJPXv3v86mQwS9y02jC8MMPfu
EZh9l0qGr6JvwjrrB5hi9uO56elkCNfzCs/+OMBkz33WK84iAx/XMvG1JgPM
EAEdu8lcMqxpe9ydmNjP9DmpqMr1A/X3xSj8iHs/0zZkA9fqfDK0Gyxsf6vT
z6RItT6WLCJDsppAtF9/H3NUxfajdhUZOFKSvl9f28dsdj1x40wNGS7G1tr5
1/Qyf+Yc1DSrI4Oxs/cVCOllhmpxVlxvIoN0N8fXy1t7mTTjJyNRnWSoZSn1
u4r2MPdHO31K7CYD6bxYi0hVN1O838Ajs5cMVhtOJSk/6Gb+sdsuUDZIhoIe
E/3J6S5m+J3UvTN/0HzVT04+kdfJvF8UNMnzlww0ClW65Von00HgFnPtFBni
TZirf4t3Mhkh5KM75sgw5Bj1Osu6gzmRUGt9jIcCJI7pfLORNuaRmqmEWGEK
ONFgiGzexNywia3YsoECE0nLDig6NzLbTLozhDZS4IqD+6+bdxuY9kMVOR5b
KPCjUvLx7Yg6Zgj3uxoDaQqkZCs4T6VXMfsUzs2vOUgBtt6g4UaRfKaPf84R
57MUKJCxoBS+S8N0qjMqEs5RwPZth21uZyYmKpZ4qsuYAlN78sInRL9i72NC
THTNKdD4KtElWT0Pq/5s77D7KgVWubNyvbyKMMnBHaGtbhTIb0/NJDNrsKF9
m7dt8KTAaZsh3sPptVi6k2DsES8KKN7z5J+Or8PoXItJmXcpsHlTxi+jhw2Y
7cb6vKePKCBT8PnE8/0t2Feq7yA1Ej1/8MAMdaYdc3FX2+IQTYHDmteuHj3X
gSllDOlExFLAnPzUOflrB/Ze+mjyVDx6/uJHzmuunVgwr/CNtykUSPY8+Mm7
sgs7ofEjviaNAhw/ZfMokt2YgKNTM+cnCnBSkjfo2nZjd7rqMYPPFNBMKnCg
LuvBHPLC+Fb+oECzHfk8/7ZebN+szkGVfJQfgdbR02a92KAix2WzQgq8V9ty
nj+6FzONNC3JLkH5WX4/N1SiDzvqufOZVS0F9nBMRq5f1o+tyKz/EVSPxlMo
HTSk3o/9HLk/+b2RAl8ZnnZa1/oxdZMhgy2tFBgx/Z6XUdOPyWIft5X2UuDe
OOb/5+EA1uNkenymnwJ+Jf37Pn4awF4nCvlID1HgnbOxjEzHACYq7tTnNkIB
S2Mx3nMKgxjvvGrS3mmUD8vEtKicQezbgaG2s7MUqBAsvjXUMYi5WoUJ3pun
ANfH9VbS3EPYWNOiYxsnFdbvor/1hSGsLeu7+uMVVLho27t9f+oQFjrmaP1l
FRVOHjgTqVw+hJ2W3RnRv4YKhjZvKs8NDmGlwfe5CUJUqN9zxmTX1mHsfoWq
kvV6KlxRX8itVRnGSMuHLEJEqDAlerI98+gwln1d59fYJiokYM4q+28NY04f
FmfFxalQN3f5TOWTYUyx74O8lgQVXqW+5ct8M4zFnRZ6HCVFBZv2W2+ty4ax
QOX60yfkqbCrcsW2iQ0srLhedM/ZvVTIueqdpyzNwrhu6vOYKqDn9yX/nDjA
wmyYjR9slKjAJSr3dPoYC4s9v+mukwoVSt63iZONWFgzt+G5W4eoQFcODth0
hYXRaC3L/TSoUDlWY+DkxcLcBra0PcaosF02FDgDWFjaA6P0IE0q+B6x3CYV
wsIkK1pNY8lUyE23f344iYXN6ndk52hTQWNxWdaWGhamOCf5pOAoFa4zdCXQ
/oVdCje7VKZLhZZyFUmhHhZW3dEl3HKSCrPH+V/UTrCwxCu9V6fOUaG15OAx
SUE21rVahrRoTIUOi6COIFE2JvbhkhifKRXE5fwcnmxlY3fH+38KWVAh9uOh
lmXybMzk1tDWvdZUsL790jWAzMYCt8r/VbKlwrLng2Q1LTZWnHO1WN2OCmot
x4qzjrGxQ3zs6wwnKphGZqWonmVjtnF7j+pep4LSEetiDRM2Fsuw3XHGBbWv
MbhO7AIbEwwYrbjghuI9X7XdzJqN0RQU46w8qNCopXSm0o6NuVXZudnfpkJG
UMT9rc5sbFBkXNbzDhrvB8EjZ9zZ2PeIv16h/lQ45s+hZOLPxmYIKgZRj6hw
YNzvRvNjNrav23lf/BMq/K2Xijv8nI2F7ZpuzgikwvkPfzd9esnGnJJnlarC
qeAx+1D8+Rs29v6E+qrGCCoYLdS+PxXPxjr/una0RVJh09ykME8CGzumtuDP
iqVC37u1PVLJbGzXd46+5UlUqPrdreefzcYOXzx+U/0jFdrs5nYOf2FjJ1bE
rrFJoUIeR4rJoW/ofY5pKVVnUIEtcG536Hc29vRPWAFfFhWG2vbyvf/JxuIC
R84e+kyFBYlmD88CNlbZ/Px2+DcqzJnx+s0XsbFe9771FblUOHfntElMCRub
k1R7y/2DCgRhE1WsjI3ttGwru1RIBf2NclStSjbmOiG7ZX8lFXQCdz6tqmNj
j4NufbhQTYUeodN3xRpQPtTKiUG1KL9cyXdON7KxCk/Hy/ONVHjQ9pya1szG
pNd8y8jvRBa6sWdFOxtT+yioNdNNhejSktmVHSgeJy78luujgqKqTjhfJxu7
GbKC98kQFXjfGTj1drGxcumTeoYTVLAssd5h1MfGugvfdPtPUuGyGr+VfD/K
l9XM9ZxpKmRfH9CZRN6R8uqV9AIVzAMzHtwcZGOqp8YU9TlocGxbjoLyEOpv
mvTTj4sGJqa+y4aQXbCBoRE+Guiel8mms9hYQIe6x/blNEhK9S0ZRY72CRA6
tZIGZS6cLs/ZbCxLpiP23moaXLWeqz4wwsbKig6oZq+lwWehwpEy5C7ruyXD
62gAnkktFqNofOsaTSSEabDLZJ36MPLaNLlxvQ00cGxx3mI8xsakzrjf9RGl
wcbtoTtKkA/NVoh9EqNByenN7ip/2JhOuFTiwGYaGLJYeuHIN7oKq49uowFb
+yiv6Tgb87+7+dLt7TTojiiWZyJHy9rMpu6ggfk7P/ONE2ys1FZYUkyWBoTL
i+4/kDuFLqYdkaPBW7l3kSJ/2dhUeibNfQ8NLvO8OHoRefu8kU2XIg0cpKtT
F5Gv33/7OVGNBk6GNEORKTbG/8JvPFuDBiv1ZUgnkIOir8oVYuh9DmXGBiB/
YiqEdhJpIHSDZz3XNBubnsi8KXqEBrlZzVO1yL7coSk7dGigtGdafPkMWj/W
uQ0qHqOBeHLWFlVkVTnCWe0TNLg07PMzCNnF9JfqbUMapCx+9aPPsrEVtu/t
AoxQvG8ZEuyRQ275x4ea0ID66SdPKHJ2kJ5YhjkNoqxNPg8gH4k9oPfdggZ9
w2KfBObYWHPKBt+KSzRgfMorVkK2ypnK+X2ZBtZfn8/pI8+VNk4PWtHgvG2s
vivyg+bPCtPWNJjr1vgdiLx5INyS7xoNFim2fh+Q1XnNGiQcaeAiHnS7HfmW
2uCnk7do0FXY81N1no2toZeMmLrTYLgh1PEocvipJBlbT/S5daGvGfLXa/ZB
vj40kGtp5fRFXngz68x8SINk+bM/ypH901qSigNo0LkgcaQdWTyP2dvwmAZ3
kw5dGEXGfnudHn9OA1GTMGOBBTbmIbxKZVc4qt8jqu10ZAFJlrVyBA1MNY5f
Oo0csbc8lhhJA+zsw3Bz5G+MZxuMYlH9mE1KuiFzem7++ySRBumCiUUJyE/8
F+QjPtAglHFodSayZGjbhYRkGhRLvljzHZmQEV2Tn06D9Tv3nGpAvj0slzb3
FfV3QEKEc5GN8QwXBi9+owHfOS7aCuQ7QxZuXHk0CGHYEISQ+Ye4zXh/oM+p
lXybke8PRlD582mwN2zf5+3IKwY15FYW0sDeKFZEFvnBQKPAmiIa9N4Kgn3I
j/qFG4XKaBCXw8utjizY//HrhgoaKMsbRmgiP+vTidpYRQPa3h5BKvKL3ntW
W+towNLycdNFDu+eW5BtpYHYqtxQc2SJ7uBO+XYanNTmW2eJHNmlXLCvkwZ/
JuItriLHdNo+Vu6lwbmTC1mOyO/bu7YT2DQ4ELoo7YO8p92TnzxKg5GK7h/3
kD+0iQ9T/9BAihCg8wA5pfVMuvYkDfyFTSWeIme1FNP0F2kwdXSo4RWyeoul
vCEnHW4uyjZFIn9t5hM05qZD7UObohjknCZoMl9Gh5KmDpd3yAUNqVdt19Lh
fOtZiXRkRoOunv06Oqy/OhP9Cbm4nqXsJEQHM/Erm7KRy+pkOFxF6CCb9eQ3
E/lY3Y8ut410MMiI2J2LXFlrWui5iQ5Gb/Ze+Y58onYxwXsLHWS+nA37iVxb
E/rk7lY6sF6r5RYgn6k55Oy7jQ5V5olmv5Abq2vPPtxOh5R1muwi5JYqgR1P
d9LBSlu9oxS5q8I7I3wvHQRc8kjVyBYV20JfK9AhP+iRdw1yX/lXj+j9dBjM
1siuRR4sm6LHq9Bh/lDqmgbksRKr5jSMDseqgk+3IB8v3eTWpUkHqbo7V38j
p5b+2ipEosOH7B83W5Edy2TMbGl0sP7idbsdeaq8q19WF8Xr7irNbnz8FU/9
9I+j8VWlb+tBzqwgyN87SQfL+po53C6VEbbd+nRYpaoc1Yc8X2U4+cqUDlFR
G9IGkY2qVwaXmtPBy0HUegjPV3WW6rwFHVwTvkoOI3vUiLoZXKHD0Y8n3VnI
bTX5W+9fpcP7AOudbGTNWqecDBs66Ki7FuHmqqvmWe9Ah6KCd8tGkc3qvGKJ
TnS4vLfzFe7vdYo0u+t0WPZR9cAYslR9e3+ECx0cslsTcPvUP/Irc6UDj8Jl
0T/IPfWY/IIbHZ6lmLrjpjSwSuU86bBad7QDN3/jEUFfH1RvypYR48iWjbMp
n+7SobQqZAb3r8b4k7336WBM+aM7gezXxB9M8qeDmEjwFO41Ld+3LgbSoXnH
sMwksnWLfY58MB08A5/Z4C5rkTQzfEkHzaOQivvRb4/YzFd0KOaeVZlCFmpT
l3eIQ/Ft2Lh7GtmhbbA0Mh7V+yt+c9zVbSG2Fe/pMOTk9xJ3YPtUyp6P+Hzw
5JtBFu1MVe3PpMNt7ssluG90mjWLfKZDxqgq/v+XWGOnoBvlKx0gfnTXLPLL
LtucqFw6PNSWvY1bvEeOZlREh6CB09JzyDPHrvhfLKGDh7YxA3dN9ttq2zI8
XwFXcX+Q7hNzqaDDS8ZAAO4Hj6XPe1XRgWvn7kTcl+bM3zyooYOP1vxP3KSL
UcPP6+hwsWxZK+5ZdQmXuCY6xGn3rJrH59Mbo28fW+jovF4oiTtZMIwvu5UO
V4x5DuK+3LfxaUknHdJkXprgrn8q9H5skA6/nDnf4U5d0B2bHaaD3Jfjn3EH
WD46yDtCh0ul8iW4KdjqHyLj6H1qHgzjThvg+60+R4fDcna7FvB8nCRLURbo
cFLDQwW31Tevy0c5GFCjq0LGLRXIMXmehwEiuxOMcT/RnFl7dxUDIrN4H+O2
fn/w1KM1DLh89V0obrqIc2iwAANqv62Jw80x/EfmvTAD6q6t/4rbJmhYs2Iz
AzpXaPfiZnDL3WsUZwCdvWIUt7T15dJOCQYkKDyewf2b2GvwV4oBK+unVy0i
H2G32W+SZ4DnQa29uGUMtmZJ7WVA5RVDFdzcP85x7FFgANfzQxjurJDGB6DE
AI3VZ3RwB/JurKKrMGD+VPBJ3NdsT288fogBuf6xhkvtUapjLmgwoEVe6jJu
no+CQ9YYA/bseYbf78BaN+kqXtdkgJJumdNSe6MlX33JDHBpibmN285wFe8z
KgNevYV7uHXyGVphdAbwno95iJs3LL8uSZsBPljRC9ynxmu+TBxlwGDk+jDc
cVpdUWp6DEibEovEPRM5dt/zBIpPfWPs0vvPcNjmn2KAWMcJ/P4LFq679tRq
fRSf3HtJuEfitqgfP8uAAgWnFNzPTqvytxozwHHGNQt3TyKNJWXKgCmJQPy+
DXaQ73T1ZXMGSDtfwu/jYL7nLmR9sGDA+q3j+H0drCnVPuLvJZTPU4d+4HYz
e2R1+yoDtvOP4fd/MEnBhINr7Bjwl+cFfj8Is7TpKd9xkwEG+XkluD8Ub7XU
8GbAB1+RYtwnbqorFd5jgKDpdCHuyV36nCcfMmBr05Z83CH1jiVtjxngyxuR
h/vw3SfBVoEMiNF/xVxcWj8i3JODGCArcGNp/B1KSRemQhggwAP4fSHMp6tI
wfsVA8wV3uH3hbBatUaRX68ZkLzsbOpSfp/2za+NRvnVX5uMu1iT99fLOAZw
P4xIwG07si1wZwIDTn0Jeotb6NVh05SPDJhdeXAp/unaZ/dg6QwwE/4Rhdtg
znnmVxYDJlUeLuVrIf7Zz1NMBnzv71rya/2PTzryULxmduL3kbCxD8zrMj8Z
sOyhxBvcJP5SI+sCBlh0ZC71F2jcTEr9xQDVOM6l8fSlD8jOFDPAW4DvI27V
NdMCUIbiUVWThvvBhWWTPhUM+KbosfT+vz+vbymqQvGdEV7K315hqbx1tQw4
4RW9FG+PK4pvT9ej+fwJq8RdmQsBYY0M2CY81YRbSuyoY2czA/LftPbgdrp2
7uyuVgboiS3/g/s/WEwN1A==
        "]]},
      Annotation[#, "Charting`Private`Tag$3195#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwc3Hc81d0fAHArM3uTvffe63NdGlREIkmKMoooOwkNHioqq0VUFJFRSuta
ZSVCIiqpFDKzkvh9zu+v5/V+3Xu/33M+53M+Z3ieR2bfYaf9DHR0dI+Z6ejI
P1u16TfErKGDXOWbqCna9vomgWUFOlg40wry6E8uaUPH1tPBRqHMBVu030/X
sr8H6OCS5Q3T/eiZaKnYY4l0wHNbTioBHcP5w/5vIR2E/5mvvoZec6NU9FgT
HRjXn5d6iD6vG/5j6ScdvNVc8W5Fi7y0eBjNRg+M/QtXPqPzXdecXFKhB8mC
N++n0Wqjrx2j7ejB+li4BgP9FO1BTLrkUgA95EudLuVBW3J7/IpKoYe2Vd1A
CXRTntyTP8X0MLG865gyepv+WGLUa3rgNo0b1UF/eFXh8ucXPXiPNLSaoH12
RstFcTJAguicFqAnxijTixoM8DAhQckWHRHLRovcygAG28/UbUTT8b49uxjE
AIfp63js0ck3s90jUxlgK/cNmc1oAUMv5cX7DBD6RZ+JOKdJaT6igwHOJVo1
2qGVd03WL0zh+5JVo8jzyserLkTwMkJ79Vpl8j7TuNg9CzqMULV49wtpTwPf
eo0IJ0a4wBFaaYbeepvz7/wRRuDan1JkgO41etcUfokRQn/TujTR+1quZc5X
MsLo+AUzJfSYh49PeDcjPMvTnZBEr8T/Xg0TZIL3d6S816KTBJ62zRkwQYO5
vTmJL29hwtWwHUwwcHvN+QWMv/xrXqOwLCYQHCl8OYi2F9IOChVdA9rzUrml
6OyiQwNHJJjhzOeKT1ZoWQv9ohkLZgii17mjgy5u/xtxxJMZXAaCQuXQL2aT
+Y/kMoPX23JNFvQ3y7t2ITIswPn4dm7u6iQt6G2wyDSFBT6JsZecQi94Gw8H
72OBgndzogFo9v8a44NvssCxgCFDQ7RO1/fHhxVYIdvhq0/3yiSt6Giba/FG
VlAT3xz8FC0r8HB++CArlKiUGdxEC7ic0vesYAWRGom1Yeizcwe7Lr9jBedP
D1X3oNdkOh95t8gKVSYHJe3Q8z2yZZut2MBWre2KLDoogt0haR8b/LER0uBB
/xCeGa8/zQYRwU8KV/5N0rwe951dvcMGv07s4ZpA97rVqpm9ZgPBNSY+n9CO
f+60hE+ywdrH7Pfa0c2X0/wr+NiB55Pqz1r0kw97ClV2ssPtuis2d9G6xzas
3x/DDpEB//nmoIvFtb7fyGWHYAW2U+lo+WdCpwbq2GE9XciVFPQ1jxVZkWF2
OPvvcdFJtOC/77XObBwQGRPzIAZ9/nqbV6o6BxTnLleFo5ktH662OHDAQqVs
eQj6xKdrOcxHOUA7KyEvEL0Ye8rCOpMDRiR3nwlAB0sdGjhezQH2J/J3+6FH
aM7Hqgc4oKN8Vt4Xvc/LTGxulQMEB+72HUB/oJOr1pZbC7lVbyLJ58557G6H
1q+Fgt/Kq+T3rykz84X+azHfTPwPom2G+jK+nl0LhoVWlUHoZwm1+lJla+Hh
qknfEbSB3N0u9661oLV5tCcCXVqfdiRzfi2IKbwvPI5W9Ink7RTlBKfTWzec
QucweZVxWnDCoLZfGYmP8O0NDpu8OKFJnPXTJXSardbEqZOc0N4x2HINzTos
dK6mgBNsesNCCtBxZ1bUlps5oVFS8nUZ+o/icIvROCcIezC/e4oe9X3Iel+P
C5yWTvV1ob1ZrxeO7kDvedQ0iB64c2q9YjQX9KUd2ELyoW3E+dT1Gi44vVfo
Hzvmz/pkM7m+r1ywfKhWTAz9QlWuToCFGwzGrCtV0GUHZ1ZTtnDDXJ2qCcnH
i+Npx6I/cIOCYUNXKrp48UC1WjQPXJZO3C6H8+HFuh0lOck88C353UFddCfY
5vFe5YGcdZkXKeilJLn/Fp7ywM6C40xe6I2ig271/3iA7mGY4XX0sMnORfd4
Xjj+tPwgB87Ppd0bf7Vd4AW3leEffGiuBKNByOcF31RldzG0QYtgk2I9LwwE
c0uooE+5d2bNMPGBgbw+43q0zDF7o+QkPqg5z5EVg9bPNVX7l80H7SeOcJ5E
b6xXkQq+ywf7hwQC/0MHc7Cy7Gjhg+KJ+O8ZpF5cbeiRWcsPotIbikrQnbTK
lvR1/PAptXxnJXr4a/4LFg1+CGutHX+M5lSPLxjfwg+s92Iv1aM9nlmEV6fy
w/ho8JH35PmD6gHqN/ghxTZOeoC0l2mdZ24ZP6TvulBG6lvx5iXb02/5wV/o
bdgIeX/wiMniF36Q+JxZNE7en96rcXAG33f2bA1Zn5YGqgS38QuAd6tP6h8S
H/oCtgY5AWjfTrfxH+m/QsY/Q30BmL1k8YUO6+vGwKPf17kIwOlgs4cs6Kx/
Wg9/ZgqACHPIF360cfk8F1uhAEznvUgVIvXd57mfyiMBUPiZJCWKFnltty7g
vQDsyS34Sta7xyd4w5N/CED6RQ4RafROvd72ogUBeC3CoymLvnJl/8kxYUGY
vGS+qkDWl63qHzmUBSHU9vwTsj700/82VDcWhPAfna4q6JiH1WmbNwpC6THF
96rodf5xo4fcBGHgZaGxOvrZug025/wEYcwiMkYDvbuDM6ckUhBEGZ7lk/Vn
5WT3QluSIKxrvlysRdY/o6vbJrIFYUO3aZY2Wa/H9hZz3RWEe19a9pP1+HOO
8hqtakGwk4wU1kXHOU16OjQLgpLI0XvE0sxVjw/3CcLxsgl5PXRNdQxf2ogg
fOKUjifeG0g9VPZHEFzPW9YSM8iwv+pgE4Lru/u+Eud3d0hNiwrB+QWxUWLr
pKwoXlUhYE2ke0f81cyzS8dUCLj5Xt8iPjUpr+FkJwSXz9XuJJa/OXbmiLsQ
xLxRnCXtadhRMXgxQAhcoqmhxD7sUaaV0fj5otcH0h+mF1bpXclC8HtfiyLx
7RDmid9XhGBLxOudpP/rFdo2CBQLwY3Eh0dJfIZ7L+XpPxWCsIPvQkn8zpx1
/7u9VQjKg4/vJvFVBBmXsH4hOLOZTpPE/9XvH6UZY0LgubZimIyPb2Epa9Vf
IWhl/plIxu8Ol/mzeXFhYBc1P61I8q2OQUhYXRhkGtiH5NEjYc2HjcyFwbDi
hbIcWvXjDrlID2HQbLcOk0LfKw5J/nNNGLqsvgkIozfvMf4mWiIMNgP/WgTQ
43yrFqbPhYGaMxrIh9aMPjsd/VEYIt7WHONEl20sdFuWEIGtRpx1ZD/huBxY
sU5TBCr1/UdWcT5M39dfa2EpAu+SCunI/NAVrqMd9xQBV+UddGS/Ufl9QHE1
RwSChWwcRtF2N/T8j5eJgGys2ONh9JB7cvHfWhHQMcvj/Yrm6zDSXvwmAuEO
8l/60UeeXDSZVhWFst/xLG3k+akbN3+tEoXjN/6M3UOXGT8IaXwjBgN0X1p8
SP35zf7AdlAM9r48ROeFHizZO18/LQZyQnOau9A8ctzHagTEgf7gmshtpH5w
BpyqdheHnNkLtRZorSGprOJhcUhTvasugC5NSXmWurIOdvPLPonFeipxZbfc
Vy4JiH5frhaGPntHK9lQSgI+Xfp17yD64Msu149WEpDKzjjkhlZeFf+tGi8B
r5YstPTR2ZwTO2MvSABT+0tDNTTLupqat3kS0HDnzXZZUq+Nfc5H1kmAa1fY
ex70zSP3VF4xSkKAiDfHJK4PfPGxaaICkuCU4dk/jE5IdVw4JC8Jtwv9Gj+h
ve7NNvDbSsKeJ3Nzb9AdT16p+bpIQq73OZNGtFVz9sUn+yXhYtiDPhq69H3A
H85wSXjDdu16NVpy2Nxr7xlJWGmRPlGJPjfL1fggUxL4P/oeL0EvM3zRYC2U
BNPo1KxCdL/U6b+ljZLw3a9P/Bo6e2db5jKrFGTOpW06g2bxy/3nICoFx/Nt
18ajw8NDfG6qSIFyIPvXY2iXS4K6dnZS8PTPpaYQ0r+23W1ZKVJQkjzi4knW
U+mFeFEWafDeYZpsgo5V8jKgckvDozs5XAboKs3mn4eEpYHzpmWmNlrB4qpD
jZI0CHyxL1ZCM7lbSfhulIaZH3GdgmjzvXc60hylIbk5ZQcv+qgf76knbtIQ
dORGz1r0UPjXUU5/aeBKf9fIiBaL3ZxjFCINZUonjVZxvXc6/XDb3ihpSMhz
ubGErr2U+PjBf9JQ8t+4+zQ6NMfY69xFaRDe9nz9L7Ty3RGWA1elQSjozMx3
dH/llfuWt6RhNmVWm+wfz7+wdxUukQZP5X++PWiPEe75qA5p+DX1QPMRmme2
5rpTnzScTM3wu4+uXwmxVRuShnqWLcWFaFWB7vSB39LALp+7I5vs7yyz9ayE
ZYC6HJcRjb63aVO/sLQMfN9+9sBR9J7tSwlTyjKwaX2y6yH0K3+PzjxTGRg4
MHPLEx0VyhkdTZWBptZ1LG5o9RMvZJw3y8CVukfp29CX0qVDmDxlwNA5ysIW
vT73rcjHAzIwclPR0wq9dDeh5uFhGfgT7/DQhOyfad+4fePx+wy3ebXQAi0Z
j6ySZWC2akFcFd3YvX6PyCUZ6Czm9lVAa47eKW2+JQOlLirN69BDszt35JfI
wG7n5m8i6IxV9pXoKhnQLfOzE0RvZH9225kmAzxussu86GWBwC3qTTLwQmrp
Lxf6vpTkHNNbGahJ6bdfS/azqu3XPvbJgEpW9jgbWsggzqZqSAaCon8OsZD9
u5XOr/NjMmB+5IAGMzrGbuiS76wM2J1Je8OE1na5ZAb/ZEDL8VUjI/rrHpuv
Isyy4FPccpv8PjNgLnmaSxYy377p50DbhRXotgjLAvv4hX086H8nXD/kS8vC
6o9cA9J+n4xqle26svAwb1OpFFrkRsBbdTP8fG28HYlHa5F41BobWWCesJRW
I+eHmuNNVS6ycI69zMcIvTpK8RWNkgVtWZ6XZHyuQMutTzRZGNFe9v+PxJvf
d/Vckyz8+XFUOo3k23dGd4u3sjDas70mEx2fbMF9bUgWvjJ+unuTjJ/HB3/7
MVkwvxIxSs4roVoRDUu/ZaF33ouB7Jf9usuidq6Rg8OTEwVkvzxUsKWblUsO
eHcZq5HzjkfUqOZjITngZJcKf4XusU/8z1dKDlKmnp1sRTtIyn8TUpYD1nWb
HTvQTVM1lq+05UAnX7m3G21dv/tymIkcNKZ2CveR80LG0m95azmIez/J8RFt
6Je1tdtODkZgaznZj5eZ6t896SwHNq7fmb6R+cD5llHPA9vn1sv4A33rc6Dn
kI8cHJA8tO0nWqKCvfpCoBwE3470/krG61QhPyVcDvTvisiR+cjjahM0FSsH
Bsw7M3vRTMvH5RzS5CBEpqbsNTr2jVjsSrYclMU0+5D+Ld541FuSJwdnDuoO
09BjttPn1lbKwZWcLYcq0J2pPovN77D98vqbSLw376N3jvokB0y9faqpZP7p
55Qo/5CDPRE7+ZLQ1X3v9yUuYv+fi/OQ+at7L/S5Ib08sK6s6JP5ey+WV2SY
TR4GPRZiyPy9IWffZiMuD58lrS/tQYvN/1CalZMHjna24J3o9KZTCTfV5UHH
uPWsM5rrqsxHJwN5cI6+OrUFnRj4wojBUh6ebz6WvxFNB7sulq+XB90V57tU
dDTf4i8vB3ngDZvlIPN79lv6Bh43eYjT4nprig56pJNP85KHy1TdVUP0z//e
LAf5y0PanjfX9Mh88zjoKnlEHvqbVcq0yflJk7WiLVoe9u3dZ6WJdqG/vfb4
SXm4fd3fUR39poviq35WHobO04+Q+rCx4FNtf7o8rP9UzUVcF3lsXcp1eeB7
8+uVCtrcXiTCtEAeGk2eCZHPqyQevh0plQf7TC5GMl+0p7apX34kD2IzKWnk
+UV1E2c21shDwNyVevJ++YyULwtN8uA6tPuGDjlf+iqbF76Vh4jb/emkvyKm
LzN3fJAHR27qf1vRHJ9X7B+OycOcsJslOc8G7+ozbv8tD4aVe5vJebXnfaXC
yF958CwoajhHxqfDb3XdWgX4Ksv5q5Tkb11nxSl1BcioWSc8R+Jzu0B0e6AC
uP1XteM/XG+aZOKZg8IUYKg1feoqWiNn1+/E4wqwEvA2uBS9mMnT9vScAvSa
idJ3oc8nRcfJlSpAUy9HoCjuF2aZXAItqvD7DJ9sVdE747XcXV8ogM9H5xpT
tHz0N72UNwqQ4tMY5Y5+cnDrj5kJBRi1fCCfjpb+qdy9dkEBqmUeaeWhT/sw
1iquKkAY/e/cEvTo4McSYFGEwc0vgqrRjrsfX3HnVoTwDfcyGtBVfRcTQ4UV
YVI0jasdLb4jMPS8lCK0D53o6kXHdW7Ye0dJEX6+ev/pC9nvbJXdWqelCP0X
JTeNoDe3LpsOGClCrMnw9BC6fMN7pXkrRSiyCx7sRws1lAvwbFSElz2/JLrR
MXCWXtVREQzjOytb0UPPDkxQ3RTBzu9DcR16gwmlf7eXItbTZW7SXj7d+QcX
gtGT/9neQkeWduQVRypCnM2i2mX0R9Xi8y/jFIHmFHPnHPqOnJffnzRF2Hei
MpXs9ywFW8T3liuC7whtmzX61oVbrMeqFcGh7ZisAZqN68Rceq0iNBiKf1NC
dzPrtze9xV2/T60fJ9p/8XqC9owi9DBy0Ppw/Owia7z/LCnCnv45l9do9cUh
mzpGJUgOeLCJ7M8mFpRYtgsqgbxuSnwBuj3C7uc6SSXYdVh16Aq5T1g41Pxd
UQlGFXN7yf3BkYXylAhjJbja3fic7K+cI7oPAUUJZi4ZNB5B6y/Mb2GzUwIj
0cGrAWihCFGtTiclEObw3uiNXpg347m6SwmeP6Lv80D3hntOe/sowf7pGztd
0U/m4zrVA5VgerTmnRP6avjNyrkwJUgSiHBzQMfMv0x/EasEkou+vzajd4f/
DEtMVAJBodqr9mjLeXZXxzQleFurG0wsHa5hLHpZCTanbf+9HU0/7yA6lKcE
DQXM4aR9Q2FHloqKlCB10wVhsn9smEvvP1qpBDZjBs3Z6DNzfdfXvFSCn+4R
Uq1o37Dl2DdtSvDM0+nWd/TGOUmvrB4lWBHo+kOH8eeY85ZV+akETvPiXSbo
tNnxgs0cykBnFrK9Ah0SypMkKKAMSm96wt+inWZ1/T+tU4ZB7/L+KbTgbIRa
sKYyyF4V5hXB88GV3/Rll7Ypg7b7ITtX9LGj8hc83JVBI9Hy8wFyX/F7/REF
b2X4V+ZlF46W/J2i/yhUGda6345NR9+cEaz+kKUMCuO395Lzzakjxldu3lAG
eCJR/AF9YMb92KG7yiBe9vrkD7TyTK7FyhNlaJjhrCPnL7YjdZKN9cpgKE8T
5sDz2ej0t9XU18rw39ivAUFy/ptWqZP5pAzv0uKzyXnyXMjmm6PDyvDTeiqO
nHeDpoNOVU4qw1jPzDNTcr4LubA/ZlEZDC7YrLdG60xXrrelV4GAgMOSFDRf
SI8SF7sKDPtZ3yb317NTi6zv+VSghSZ+gtxfvwsWH80VVwEZZ88H5PxbNWXR
6ievAu+cqraQ+4mTYjmW19RVoCZaYpCcTx1tVsrb9VXgSvn3P+R8Opr1ItvQ
VgWeduwZYkZLWFkdYDqgAud7OHzJfc6oX26fURB+PmvA34Ouuri6+WC4CtyN
mEkkf39wHKbpdZ5RgVtf68fJ3ydOnQP6G4UqELfd6Qa5j9r26EZo130V4HD+
fTqWjMcXup/Mj1VAvi82+ij6sX7tm8AmFfjyvLhyN/q0p4x1XocKHH79hc0Z
7ZQU/7C7VwU4IxQubkT/6qdcMxvB729w26WPrl6Tz314WgXUep1KVNFntBhO
5v9RAbdzB51l0NIn6/zZ2FWBie3jM270+D3Zj+Z8qpBt6ZxG7s+f9CQ4Boup
wltX47JVzDdnVarRe1VVKKyze/WV1OftN4vY9VTheYdXwHv0r+OMkpZmqnCg
0lT3Nbq60PtCCFUVRqWvq5H6d+ZtPdNte1UYLur1JvXP+a9cZK+zKjAerf9R
Tp6ncGqMw0MV8j5X1Bejx7d+87TyUYUXdzf+vU/Wh0ibziOHVIEbLn0m9T0x
/5ZtQagq6HJpriP1ePtrpuq+GFXQ2tiTP4OekHqZC+dUYerqvrvkflG20TaQ
q1QVJMvO1tqjJ6duD1KqVOFeyYg6OY8/E2PeHvYC+1e7ZTkAvSPolenAG1W4
GuJxMwX9n+AG1qJJVTgcs5G3Az3lvfGmrY4a3BK2lt1N8sklvdnBRA2M7p0T
DkILbRic3ElRg0eZf/tj0RaqkeZB29Qg7EVjaS66Q7xhX+RONfhTcb34Prnv
4eT5L2GvGoRfS9lOI3//mSp8lxmiBgIWdUkfSf4N/f57I0oNxg4dYPxF7kO6
rGSL49WguPIz6xL6fdX7INoFNWiXfZAuwDBFC7gjl9F8WQ0yzpVzyKBXLh9+
2pWnBv81vJlQR8sfZ2H9Wa4Gl2YGB6zRj4KcNWeq1WDyn8yHzWg7r9zty7Vq
cFZTRnkH+tO2sWjmFjXIe8fm6Y4OoRrl8XRi/1MMa1zQTAYnG8U+qAHLhfQQ
R3S2Yvu4/JAaPFR8E2mHVhMRF9AaVYOl968HqOgXbL6mJjNqcM6p6pY52ulv
hRd1SQ0uWo6810d//7VyZguDOhQJLR0n7V3bkdm1l08d1uXTW4uhc2uH/hwU
Uwe3Vd5gHrRupaZ0uKw6RG/W0GFG78x8dShZVx1GM4PPT2F8fiXyXUo3VQep
S0Nm38l9YJRndY41Pk9jPKcPXeAxv6bSSR3sh8/drSX1RFYxt/+IOuithLen
ohMFjrz8Hq0OW8L3KJ1EizG/GJtMUAf2ibnj4WjKiIsx0yV1EFYw30zy4fz9
02/VK9Xh7WU4TO7XZPLeLhg+VYe4ivQX5D71wUUJSUq9OjT8qnIh9bE/7GGA
S5c6HKu8EkvqaZAv/YU9/erwbf6ezByaYeeWR/5f1eFzlLLWGKm/5t8ZY3+r
w0760KJe9FMNHdWkv+rQLuyrTPJzq9Rxx4uMGtBJYdRpIvdbPM3h1zg0gOv0
UGsNOoxB8HoBvwY8CPCne4JmnfWqLxPXgMT39e/I/fe17/dGnshpwNDXL07k
73Fa7xe5X6ppAK0yNPYuuq7JxrBdTwPe6Icm3ke/fd7rmGSuASrH15lXk/uu
ikMHKbYakF18s5rcl69cS79RuUMD9l/OmiDrCedF5aeH9miAVPWHdLKerEt8
9k7BD7+fUfFlFm0a8o09O0oDzj6/tYkX47PpQKTCtgQNMD7ltY3Ez23XWmBP
0QA6gX+95L4z3FY/LOaaBqQMPrF0RFeInvrsRdOAv+f/mWaga7lElkSbNODz
FwaxQjL/GO8JdHVogFjlG9lq8vfZ8a5NtkMakJNWc4rMN9U6uQcqazTBpKdy
iyLmk8mjR2+GODWByUDeyhi98Z79yFUhTTieZkpH8vtA5lFJLmVN8PblfnkI
fTOgPmnGThMOONJUStEVe1xvFjtrwpi3q99zdN32sec+HppwouKUzGv0oCX/
755ATeBOSx34gZ7UK+RMC9cEy1cJrbNk/iqbKW86oQkfrlpx0zNi/CTbrRmS
8P0PGXLXotfxe+9+mqYJiWvcjgij1VgXIkIva8LiXMtZEbTpv+SLGvma8Kht
1VsQvWlGsmS4SBNcL/Wc4EW7/ahozK3UhNUYnx/keb4D64fcnmlC4SbOfBZ0
+NsPy7wvNeG98olH5P2nXwUJt7Zhf/NLtf5i+9KfMuie6tEEzdhOPtLem2WZ
my0+a8J48R7/X6T/t1V9539owqDqGvNv6I5Up2t+fzTh6TvPqE7051PDVTIM
WlB5NGi+CT0RFf32A7sWnBCyFaCR+e+Tz7xlnRZ8DXzsVoQW32kow6ygBSwb
Pl7MRatubTGjaWhBtsXb9HQyPsYzwTpWWrChxlwkFn1qrXW/4D4tsOjJNCb1
6UQxf5JJgBas6DOk2qKj7b7r7z6iBfVTR5dM0YeTks7fStCCK4uaOmT8A5Tc
zZqStUCY7unadWifV2o/xy7i+3jaJPjQ7kztFL2bWlCbYUW3ivnjcvPGxI5i
LYh+RPkyR/YX1keuRldqwfEQFuFxtG2c4FxtvRb0HuzNGUCD1I+8761aIH89
cbWb/D3lxeOtbN34vOPmnW1og93Jf9UHtGAqdUiiEa29vOuO4zctsJUzGqlB
q13VcAn9pQXmh1+ZPiX3+6ar9NmzWtBW8lOkitSfvo7Sp8takFGXv/IQzWX+
tuQwgzbo7gw1eIZO4TA9Fc+sDVY0puU6NGt/vvsldm1YsSne0oJmjA5lecSn
DU5OqbEfSP3c9PFjk5A2/LWIdv5K/j4jsv7BBzFt2PfvQw5ZnxYfCe9dkdWG
MmO/BDoynnNPntjqacPaSfkeUs8PvZS74GqkDaUModVkPo2kn/X1N9OGxa0B
Qzbob3qeAueo2uB3+snobnRfCH1Qt7M2FNC/FLqI3kEJsBl21YYXX774k/Hv
5ukSW9yF37/8qfUe+s39W43iPtogpbznRiO6YXyDjHeoNtjaLL1aRls/L1sI
jdQGf6a612yYz7Szom/OxGjDzp0Zd4XQT9TGootOaYPRtEGbFtror/O2Z0na
MCCZw2yOftDyTOnNWW24kb95eQP6vv/57ul07P/QI4Y9aHWThSLGy9pQrvSB
OQBdxOoVL3hdG/Jq+UpD0Uq9Ta5KedqwHOY7E4u+VaijaXJbG0TuMb5JQstG
XGGyv6sNrUOmZhfRuesZ+z1KtMFTMUX/KpnvQofKg8q1wTRZ73Mu+sr37sS4
h9rwvi02jPhd1d7ekWpt2DsZFJOD5kmaUHZ+oQ3X10z/vYbevPNY1LM6bfCu
6Fm8gk5UZW1RaNSGJ9Jqkdnour/pYqmt2D9e7RMZ6JXXMgcX27Wh66c7P2mP
SU7p073d+Lzqbabn0aGHzda29mpDlvPPP/+ReECTh/5HbYhxkHA7jR7ldSm5
/kUbfogL74pD730QtDV4VBt+u9/xC0NfO/03p29CGzzsTeIOo3t3JE1a/9aG
QJmYHf7orX/y0gSXteEWj567B/q/Fs0vsXQ6oLbDP8MF3XD1qc5PJh0o+d1e
tBVtZvmu8wmnDpx12xkHaOWTrIJeUjrgbqt8XQ7tvT1jf7OcDgjJmAWvQ+co
yFbpKusARcx8B6mPgk1mrmt0dMDUYl0EqX+Ol5sKgwx0QNzwC40OfTbAZfG9
iQ5IMbkbLWE+MXAevlxkrQPZktvbxtEWn/6O8G/QAYct7H9IPY+8n2R63F4H
rLV6A4fQD+IEU4YddKBvG5vuR1Lvt+X3O2zXgXc+Dfa9pJ7JaalXu+kAzwbW
2i6yvsw+jZHdrQP2/Hez2tF5Lze2pezVgT/qW961ogcy30nM7deBJ+cbF9vQ
wn77gjwDsH2J5/RIfXUymXzRGKQD5fkHenrQ59ljuHWO6kBXy8DHfnRzP6vX
lQgdEGi2X/+F7OdKMsoYY/B9J79ykPZDrCx9YJwOVBoVqZL+VUmb51v9pwOZ
RWLepP/T000zd87pQPgzgVCyPqjXu1D5LurAmR9Dr1nRN/cf/vbtig6kUCyo
ZD1KK8pXTL6nA7uC1zwxQfvrsxV3t+vA/uEBuwR00giHi0q3Dnz+TtmWgi7I
4Vo93qsDjfeFt6Sjh1gFnJW+6IDzhnqeArTHR8m/UTM68C3tjVkTOvqizO03
8zrAr+K+twN9eYO8g9xfHXjh8X57L7qnXOXma0ZdmMlQuPQDPXtAfYsMqy50
KM50T6D512kthK3VBYPjxZ1zaN23OnktPLqwkiGQtEzy4Yy+vZSgLtCauKcZ
mHC/ZmY0d1RUFzq7NH2Y0OemTHKbJHSBc5pthfjebfNNErK6YPR60W4NusXd
6neIIv6ey3QL8U9u6+uvVHUhpk2NhZj5pc0GcS1dOMBvd4z8Xj56w/RhPV1w
OaRxjxFN1bK72mCkC08P/3eNvH/ft822oua6sM9ezYEeHXfZYTIQdEF56+Kr
VZLfW50u19ng94/8Yl5BP2N0oQpv0oUdoyJ8pD8fHruOH9yC7y/MH/uD/hPo
nlWzTReqftZkLqANe/eM+bvrAk/paNAMevu5fRkvPHXhD0dl/iT6qPV+K35v
XVjz6MzDX+iyewGXnh3UhcLJzWeG0arxYWbcx3Uh4QOTcR96o2Hkd+94XTB2
jGt8R/YbY9Gpj0/rQvftQqdOUg9d4r7uPa8LoglRAa1oCdWUlAe52N6uT0wv
0Oafzxmw3dKFvgS/nido9/S0z7vv6EJ0skDNI3TmSoYeS7ku0J/xGikn9boy
++Ouh/g8xpta99FdflcTy6p1QYvO7uo99IxEjs6aF7oQtClGq4jUy64b/Tvr
dEGRa8tkIVoz6ebp0le6kHzwycfb6C0WBVqMrbpwQY6XneTfoZk7fa7tupCZ
J/mPfD+5sPjkvS5dyP73Tpo8745HqQZ9ry6YptYfJe9r5C1/7zKgC0pZu2dL
0UwxVWqr33Sh9AxL5AO0CHOvJNuILnQ1F1iT/qin/eHlH9cFbi1+LdJfl1vm
i4pzuhCeJ+JbQ+bH67qGrWv0YEPSfYU3ZP3a8e2RG5sejGye7niLfjO4pngf
px5Eq4ekkXgvzG68EC6oB0fSqm0+kvGQaN+do4DfH/m3eZzMp8IpxzsqemCd
uuQzjQ7W4bOp0NADQ5fmeDIfLtu6qL4y0AM+hh+1/0h9D+yfH7fVg+xhe3ku
zL+VheWRhU16EJMroMaH5k+Q/Ei/VQ9+mLcqCqHNM/fWC+7QA7M7JnMSZL68
+JFqcUAPCp4/e6yOzt/IdnJDgB68Fo/X0UZXdaqGbwvSA46LZml6ZP54bPbf
dUQPziRrdRmiPw0HeuwP1wPzA0WLJuiZ4FSHw9F6sE+LadUczfK3zDoqVg/u
Zbxcb4led7rT4GSCHrDrOLcRa3PPKp87owf3R7v0rNA2lwXXZSXrwSlmumPE
bnJG3Hnn9aCz48pN4kMlbgzFF/WgX+1IKXG8UfTcg0w92CXheY04s/bqzxdX
9EDRA4KIi+yf9zfl6EH5R0YF4hfvPr3pzNeDW97Xasn7O/fQ1Q0U6MFBNmZb
4uERmYfDRXrQ+NamzAK9dJR6Z6pUD1z1fZiIuVZ8ri5V6IFecbg16Z9c0pnz
TI/0IAwyDpqhjfnuxHM91YNW8c9xpujN15pDRWh6wMwTdZLEJ7Rs7S71Rj04
b2TnYoROMtXcatiqB9R9XxVJPK81OFCgXQ+676eO6qNf9l5U2v5eD6YSubbo
ooXoRWeP/dCDfK2SPDJeP8967v04pgeMRmeZ1dBPRG69sZzSg2P7Vg6ooD21
te7S/9GD3l5RGUV04R5bz0R2fVBjtimUQkePJbf+5NKH/JV2QUnS3ogOYzt+
fRBbuXd2HXrq/C5+znX60NHif1kUXSeWFxckrQ8qPBRdEXR6wfB4u7w+6M3t
6CP5dUBXfZeOij40v+ZPEyTxeBHSdFFDH8amelwF0Ox2jwxmdfTB9rfuXuKB
d8v5Lob6kLPc3U1cutea55GpPgQLUdzJ7+PGE4+LWOnD9NCvKWKnqLbRKKo+
lJXaZJP3ya/hd+vfoA89vcUOwujmdTm6OY76cPYSxy/Svmt3vuaubteHFyN5
7aT9QfoqnHt36oPc0skaMTTf5gc/5Pbh5xoijaS/7sdart09qg+C3QWOMmh1
Fh52jkh9cGKeTZQl8+uiS8ShGH2Aue6XcmS+FA1u0zqNv3e8sY3Ed6xvnvlh
pj44rvt6nozHi/3moUJX9cHvSvAgGa+06fgvEbn6UOU8ra2J1mfjfGZ6Rx8S
fL61kPkWYywXUlOtDwt82xoN0Fsb/D7JvNCHx4sWcyQ/pB1L7U/W6UNW1n4x
Y5IfviaK61vx+12l60m+Zf+OvVTYjuP37589yceAEw10bN36oND41YbkqzkH
e1BArz4IHI7X/n8+Zzn0tw7og77EP06S/4OyGRs1vmB7tyQMEFeUfnh4/rs+
/H2c+Yr4lKm03NQIjncwzzniHa/2p22b0AeWJyY2xMpOxf8qZvThoPHeX/+f
Px+nAgQW9KGao/808Wt/w96wvxivTDpe4ty5Y7bvV/WhxVr7PGmf747Bv+OM
BiA89I6FWOuRTQUTqwGw5C6Hkf7QIjmldHkMQLNeU4f0N7Ev5N1GAQOYiJqJ
JfPLwbQnZY+IAYRnF9aR+Hz+m7N4VtoAampDNch8K/RgvH9T3gB0FNxdSDwP
P/fd/0TZAD5sbg0l8V6N1e78oW0ANG+Ga6TeSTHUFVtTDODAhT9ZWugf+xT3
7bQ1gE8cPklk/O7XJ4sEbzKAwIahoxpoq9POp69vM4DtkrMWZPz3sH73XNxr
AHPTO4tJfij5bxLkPmAAYLQ9XgE92VzSqhBgAIviAjvk0SdSwo2djxjAL61H
/0j+5XKx8pUmGECwF58Tqde+hw81NZwxgF7Fl6okX7U6OmL7kw2gZKRujTh6
QdvAYOa8AZyhD/tK8p124fIY6yUDeJ5t3UDmQ+LMvzypLGxfD9c8mS8Ozvvc
DK8agKTzihux8INXXFtyDaBjuy+NzK/PAmovvW8awMU5NRXiwrDUY9GFBmC/
pJZJ5uPhnt86F4pxfEZtmIlXs57lvKg0APYV9Ul+Ej/xrZGiDQZQteD6mZfE
71iFpnaTASwwlXsR3x8Q+r7+tQEcP978lYfEL+fzttBuHA+LwAluEj+ZELX2
bwZgXVLETda3XKX0T6fWGEIpj5kjO5n/yeu4f7MZwuU58WY2Uu9/3bLay2UI
31U6rIiryh/esBA2hN6I4wqsJP8FLN8WixvC7qqBSyyknoW/oheTNoTFrv4V
ZvQbs/f75pUN4b/OlGayH9yes+eSj4Yh3G0rVCb+QPezvlPHEGRkTU+S/aGX
d/AsGBpCCv3fXrI//P5yUf6+qSHwjt1UIQ5QjneRsDKEwDeToWS/OJXMdiaF
agjfNK8+IfvF8PELVX82GMLNiqO/6dDLDmI/fDcbgonpv+9k/5hQkS/c42gI
wSEJnWT/yCqottHGxRAMlsSqyfov8MHsrrSnIfy6Oh76l9w/+ew+2HfYEK7K
bimaJ/uzyBuTdpcMYfVQgCrZHw5+UJauzjKEyJ0hjaPoAxbljkrXDKH2U7vX
CPoIQ105421D6Pu36T+yf/zv7Nejz6oMwW3MoWoQ/fiG4qLGB4w3pbmoGy3U
fI+OV8YIKpPYQp+jT3AXJwcoGMFbyy6xZ+ifLncFGlSMgI6XpY7sn54M3VaO
0DWCKq5rvI/Rnss5jh+p+PvCqQcV6EKtCzfuHjCCX7vEWO6gjTPDwPqeEWhR
QkrI+Tdv4GjL1TIjqM78tOkCml3uyPa5B/j5+6+DqeiB+0F+d54bAURXc51D
xzX7pnG1G8FH+YGDiejm5Z2DH6aN4NTSX6sYEh9vy7ijRsZg+eAnky+6OnaX
c4KZMYj+mPywn+wHr0QqXrAyhmxqQaUPOb90VLwu3WAMo3kJgfvQ2yyVREdd
jSHpTvEaT7L/3mnza3GXMbg6fPxNzstcYXtpLF7GsMbp5Pdd6NfFV/cr+BnD
w93+n3eS/Z8oT4VXpDFstHxIv4P0X1/j9OEYY0gR4hEg52tmRzu32DhjGGeJ
Ut1OzttnTq1cTTKGIOUX3k5omF20e5+N3zfmZ3cg9xXcQpLD14zB992AJTmP
r6jqTc/eMIbfMusjt5Dzx97ALL67xnApDP7Yk/uV9i9ft1Qbw/q2DoNNZP8+
ulLl8dwYMh+mX9hIzmdr1iUfrDWGK8//myH3LRXmO7T/azYGfx7HhvVoXrej
jNltxqD73taAOPhoWk/BW2MorHpYbEv270UtMQ19xrAysfmuDfrcyx8OXR+N
oWwiW5v41yCT3NAXY7jvcuc5FW2/LDM/9d0YapLOORIXCVs1r44Yw7FZ9xFr
NJuexzWuCWNo55RLIvbbGnVYYsYYYpwW1YkVT1cKmi0Zw9pTAv9R0KdvdPzc
tIK+HgfE356OP3VjMIFbpjYr5H6C+p491ZfZBJS5jtQR588o7QtnN4Ha7nXn
iOm5bA1Oc5nAZ1dXT2IvlX2s6XwmUBeob0j8wuZEf76QCZwOSuEllvC6Vlou
ZgKDURUzVuiYY9XxNZImYGnz7APxh8ye7e2yJrBhldZMbFLxW+mTogkMfO+m
EWe38fz9pWoC+035nhMv/NR481fTBGRtU2uJdzDZ57HrmUCYk3cb8UMpv1BR
IxPQKb89SCxgdnqDspkJjJcF/iXWcXuVft4Kn/+KV4a0b2sYy9As1QTsk185
EAdc3Ki1a6MJDN++m0iceP+/mNrNJlDwtLeJ+NbrlmalbSZgsy+En8SvZoRD
+LyLCdyTveBL/JF5i8/sThM4FubyknhJ7ny5u6cJBNf0/388hCntKzX7TOCr
MyWHWN+TZ7OSL8bD76YoGV/HY9sunztoAkfEpXKJA7MvDv8+bAJBQW81SX4k
P+zScw81gYvW75uICzoF4msiTUDTdUsgya/BtVni5+JNYOfp5Xck//6p9Pr9
Pm0CVI+gKyRfxTaIVu1MxvaP1PqTfHaOv+qoeMkEku8fV7Ej+ZozcP1slgkw
akuIkflw9qnE2MxVjMfkWqHN6Fdzuadpt0xgadcmbTKfvvJ96VS4awJsSa1b
yXyj05aVPltiAkoTrFGOaNOAW0/cqkzAJVtimszPkk93Jqcbsf3c/Ufc0C1/
R8zdXpvA7CO932T+D4uoJb/oMIEXp7jiSH2Qdi6RT+kzgS3bb9JIPUlvLN8p
P2YCQ/dv9pJ6VP5tpiB5EuN5359G6tUbev3Zqd8mYCDmXknu61jMq84/XzYB
Vm2W+kB0dNmT+h1cpnBvOPNkODqr7S/Pcz5T8A189C6SnM9HzT3lhE1hqvqC
wTH0uDxtcVLKFER0KyXJfaHX5XqN/3RMQWjNluxk9PqE11lPt5uC4y1f/Xy0
W6i65ns3U9D7WKtDzucHD5xtmPEwhbEnNDNSv9PsNk+r7DeFCOeaMHLe7ud7
bZcdZgor1UcSnpL432z9F5ppCjyqoazkfighQy097YopbHq82tmPzkhMUb2X
Ywr7JnYVfSbrx0F7168FprDh+okT5P5ojX5r2bZHpnAGVOvJfcmVhhZvzV5T
UBiRv0f29/eqVJc2DZjC/ZApCjnv0O4kp+0fNIUiLpNvZP/+7azd82s/TeEX
vfhWsn/TcmkR4vhjCvpL8w8B3fC9ufmHqBnka/5t8UdPMDdr5e0yg7Ho/icN
5PcDOVJ39pgBf1xWYQvZH1SEct/3NgNzLsacDrI/95SefHbQDHhvhBUOkPNI
VURp7zEziB5PUplD2x9Q1OC5ZgZpu+ffKK2Zot15eVL1xIAZcBVcKrmI3nfK
UmH3bnNIi5wwD2fG9dbDOPXpXnO4pNXMGYtu0dP9I3rAHFitX308jdb5qtDW
E2QOX8c1ozPQdNacYY5x5lBosnj9Afr6an8D9aY5HHr52XcG3Rsd5aM6Yg5c
res3BLBg/jsdfZM0bg5r/0onh6BBNdD4x7Q5zBk1NkSiC/u81t5aMoeB1krp
RHS48cYHEmst4Jnjz8CbaP55ISZeLQtYmpM0/oDeGvLg5kKoBfiruvxnxTpF
W5Ro28ERZQGdQx2Ctui8lu9sUsctYOv+5Sw79KyccPD60xaQab/ruAv6Sk+U
eUaGBWjIOr4OQA+bWb3TrbKACOmguEvoE8wtzEELFhDkM/vkI1q5cqg6/q8F
HDaN4hxiJef7v4cyVi0g/0aWyzBasVq96xmLJXT31LZPoF8fTM3lELEEmcw7
R1bRIm+3G981tgSbI0H3pdhwPb/62f9blCUkbuqy8USL2K3Lcoi1hANKzon7
0CcW3RqeJFhC+Ip/2wH0VpdOyQsplsCxI+fAYfQY18sui+uWcPyq78c4tGJC
kUVWjSXsoU7Q30af1/4RwPDSEiQcJSruouc+yWUHNlvCyS+Hg0vRDWbXZ6id
lvA1sUDsMXrfXGrh1FdLiKLWmr1GX/cL47VjsYJPuy39FtFMwhWWDzmsYGCO
22OFjfy9Z+KgNI8VKOoZHGRix/ok6/dqXsQKZsyHP/Gge/vdj91UtYLzaWN6
amhIzrrDpWUFzD88xXTRhcbd76L0rICRnlnOBB2esUXb0dwKNI/uy9mAFnCA
78tbrOCedIjLAXTMvxg+PycraP+Wsz8I/bW42qprhxVMXxzMCUdXsOpdubvH
Cnr25/2XiHaoU3DYEWIFMqenpYrRyQYc1ffTraDvx/ihv+juxudWzJetIP3D
Uy1mDjxPuAe/8rhuBc6vpJR50Q9i33WxFViBy+Ffz5TQnxpzJ7wfWYFxRO9Z
V7Syu1PYk6dW4Jh5m88HffQX0zJPjRW4XbLtDkaz8gawvWiygoxPg5wpaD13
fXmRD1Ygtn40sA4d+2u4KOiTFTz92fK9A90Ue1nn5ZAVlNwZzPmM9ry5Ynlk
zAqWyjjf/0Mn/Wra+XrZCjoVhA9brJ2iBdFKN9RwAwyxLGU2oy+xsqaM8QI4
eYbuHEA/3rb3jZAAgMPxIz6TaMZv/C6BIgBcPQIuQpy4H2CN2icmAyDsol3o
i67bRj0eqgvwUf+7sggXnqeuXKvJ1QeQYZw5rYVe+22OsdUQoN/jsvoGtGv4
nWQZM4CA7C8uEehfVziz31ABgsfiePrRwt/eVyi7AGwvnmu8z43tyaq5oukK
MFK+q7wZ7WZ/N0F/J8D3epnur+jsimgn2A3QwC5eL8KD8yFeYsZ1P8Coo4jv
abSYpLdOYhiAUqBlox/vFE3SbeL+9wyA2+mHdm3mx/0Sx/ussSwAR9nqoINo
TxrtxPRlgIe1ay4ko3MVLzj8uw6QL96w1ISWntObFCgAmBsvV1kvMEWTvRil
aVOFz5u7zwGCUzSF10wl+T0A4gxr6eSFcb8St7qtuxdAm1eSjoqWN1iaX9MP
YFznc28vWjZnEvw/A/CGdS9cR0sGf+jW+ontf5XdzyuC80n+XdTeUYDDDasv
NNDr+tolL/0C6F5dUdmEFrd+6Tc/BdAzV3QyFi0iULb87A+AlnTT8yF0VlNR
3sRfAIqX3Y4ltNDx2+ulVwAe92o68IrifBm+knaSgQJ242+3WKAvXckweMhE
gcuJ2zc5ofkc0j4MM1PAr7I27QCa9/FpeTsOCpjNJ06cRacdims+xkkBURPv
pRw0j8yxoBJuCnyu1bAoQ3MlBz/mEaBAnibFqQN9zvLgbmshCpgXPDT/jF77
ez9DqAh+/+G/w+Nodo9dm9+vo0DXnSNyLGJ43uPZMc0qRQEWiTXZfGjWl46Z
pjIUuCr3SEgCnRhlb3ZIjgJVIyWXFdHMmusHryugP7KJa6FPD8HpdiUK7OH7
kW6IZsoyU6VXpQBz/m56C/Qpe8N2XXUKvORNcLdGM9LphPpoUuDmg/1X1qMT
HqiJZmpToIlL+OkmNIO/4otGXQoUGOdX2aPjJWS8/+hTQMuaN3Ezmq5TnFXN
iALLGYcUiU+cESrxMKHACY+n5+3QK6a8TufNKKD7mfHJBvTxSY4FmgUFGsbs
86no5ZvM16atKLDJ6DLFEn3MjZ4iZ02BA7XTF4zQS2uXv2+3oUCckcc50r+o
2vnkM+spMOk6qEH6vxg2rfV4IwWUXRIDxdERqr+6R+woMGLssZ4bPf9pOEp8
CwUObzhUQY8Ov/RFcosDBXL3NRbPYPznNgzUx26jgEFgnPoQOnS5x6/MmQJz
JSWaZPxmy95yDrlQoEfX/94z9NH9ryv43Sigr/82txA9I9roautOgb8RrIwX
0CFvapfDPSjw4YFhRyR6KuFZ3h1PChyaS6LfI0r+fwjlYxzeFBjID4hSRP9k
NzcQ2U+BbXYdbWzoIZVXsfK+FJg6fL5wDPO3x/cDr8VBjO/Eud4idMcZn12b
Aimg03dFMQndcnvilsthCqj/+vPDG/3iK4Nx0FEKfNI3qBRCP2Y4Fx8dRoH6
E4qV4zjfKmSEW89EUCD4J5NAPbpgj5pn7jEKcLq+H/ZDp/Y7n+o4SQGj6YYd
N4RwPVj62DZwmgJlER+/+qNPifoJjyRSQPqO530ddKRrTBH9WQo8n2Kbfor1
wKvrVoduOgXe67iWPMF64T6jKWaVie/LbHgaht7OW+1tn02BDvULPzXRGx3a
5r2vUcAnVvL8Vaw32q1z6zJuUaDmbGnebr4pmuroiQN5BRRg3+JrxoaWZ2Mv
K7lDgT+1sT0VWN9ENkhSX93D+buylZEOTV+/3n/hAebXHo+BeKyXy186Khgf
UeBue6qCBHqebtcydzUFEkMe76jC+jtqeThV+TkFuBV89g9hfe98kvVw50sK
rCuGH9K4Hrzuk1nd34j5O/VKthjXl1eLxRuPNFPgYPc2fj30E8Oa/uQ2CoRs
PGtmjutlfsVP+mfvKHBOjIlPH/czR4tMtkoOU8B9xHT3/+9bnsbaSP/E8Xp5
6ZUM2u51vansKLbPGej+Y8D6OLFFSXGCAoHa7l/Iv8/VobOPTnOeAmyP29LO
kv8+qzq5woLZGlZzdlefn5mkibW037FitQaJZntV8elJ2pp+gVwKuzVMv5rV
vzk5SRtYzkmx5bKG9U5F4gW/JmkpUOmzRcgaBLv+uUQMT9J+NvYL7Va0Bi4f
N/pNfZO07l5pzj3K1nDpjFdz6vtJPG/uZ9yrag1bp5K2db6bpGVxTE36aFrD
eHdfhV3nJG29A1PzIUNr4O9+Y8zWOkm72aN+LGa9NThYPP1d+3SS5vn9+Oer
B6zB3qd+dtuVSZryQvfFZj9r+MsgvetX1iTtN6v6+oUAa7A+0NGVkDFJS1L/
cM/psDW80vyldyttklZ51DCaLdIaloN/rH9yZpLGyjApEPEf9ncxs87qyCSt
XNLLzumeNRgkRHQbbZikxWg/+nei1BqiN9YVhNlg+6y5ykvKrIGF4/dEOQXj
sf+ZMNtDa0ijitgomk/SmEtEvtOeW4PzCFsLnc4kzd3s7QmNdms4bN1xN11s
ksbkZv2QdcYaaiuOag+PT9DsupU5eWetYTD5RuWOsQlaqiP3ftF5a3g7MWjb
/HOCJrZpQEB1yRrUGHL4H36doGmbhofaM1ChL/ZiXVHfBM1jXZHeeT4q/C5v
Oqr6aoKWn52WkilAhRsJjW0t9RO0HwIRX3OEqBDlmGF6uHaCdoTT5tJ9MSrs
yrvV2fBsgpa08nGmQ5YK6RYqJQWVE7SHg7wV/HpUiE8qcHfNn6AteSyyrTOg
Qsa7djabGxM06Pu0V96ICn+ctq8a5kzQXr8t5jUwo4Liy1u7tK9M0IbqbEN2
UKngcVxXPeziBE3ZSr3Z05YKzB9bvbLTJmiBT/lkfDdQYUQxSLj+/ARtsfJz
R4Q9FUYjPQq1UiZoXLejtC87U2HZ4fZF/1MTtO0yXkl5LlToYhgSaUuYoF2+
vn7wrisVslnO7DCJn6DJZ/KnPdlFhRBmk1T12AlaAN/Sj7rdVKCGb35XGTNB
u39+0Kp1DxW2Pm/yszk2QTNNLJns96aCVKE0R0LkBC2OMX3Dt/1U+FXctU8r
YoL28kR07i9fKrR/z7w8HDZBc4zc4PDvIBXkP4fpHj06QTvg/6VUMpQK6pcz
B1kPT9CSh/vqncLx+23mq78D8X3enb1nIqkgOx//b+zQBK17sGX8STQV3hTf
Z5o+iP3dXc8wGUOFNMFDFozodf1PheVOUMF294N22YAJGsXtgbprPBXoFN8P
Ofjj851u76CdpoLFiIdCl+8ErbT9+sHfiVRoFP+UqYLu2pwZp5RMBTbdpnfn
DuDzm89n7DpLhXPepxzo0Os2JBalnqdC1kEDpfj9OH4NJ2j1aRg/M+UTPGgf
SmT3wkUq1Bq8iSz1wXx4ETyilkGFs76P9HehS8z8V/ZkYTwbznYKoTsf7+VP
v4zt38Me8sV7gjZv4K7cdJUKTHf+aDxFi1U6WSxfp8LtPDXFW2hLbXsn7RtU
CJc+GnYNva+E6uuTTwVGxlxD8nmiqnlM9i2M/6HQk+T39wr1L7wuwPGkvxs6
hO6Q1yigu0uFJYmPMqL4/tk8haf6xVQoEMjM24MWlZLs8CvB+B8wZqtCW14T
+n7tPhWur9IHrsP+7RPlXuoop0JKENPgRfSZTBbuNQ+oMCcjFSqK8Snmp5M3
qaJCXt4fkzJ0R9qiceBjKtg3/wNXjO8s5/SWvCdU0GR0yuLym6CJpIzse/eM
CpcSujb1oC1YhyLYaFRwieXxKcXx2nf6w1mLWiqEHbSeysTxPMPQlRdST4Vr
RhsXUnG8i060Vt1+SYW7J2/EXcb8aF+ub+1rpILVJ++LlZg/IgsP5iivqXD1
3yEv0eAJmnloCXs4bvDtL5XL7A+ZoO2dvi1V1IHP3+ocVnsEnzeWuYnvHRX8
WPXbijFfzQcjrw99pILA4s8n6zH/vXaHVAgNUmGfFX2GEM6P0x/8G+2GqOCg
p+L/78QE7U23+3TFMH5+7PgJNpxvXs3mticnsV64C78ZPDtBO7XewP3RNBV+
+Cpcs0idoN2t1zg89psKJ/LMy+9emKDNPJe87LxIBbfj0oz3MydoJyvoxuXo
beCT1Btt/7wJmuyVpAJdRht4n71lkv3WBK0unseLssYGaj9+KH9cMEGj2ybd
5clmAy8WOFON7k3QYietqi/z2sDymG3c80f/q+DM42L63jheWiRREikq/JKk
lGwh3/uUmblzbykURRFJaLeUJEWUslRCm0qhJNGqKDpKJO3aSJsWLbNKaCG/
M3++X3Pv3Oc8z+c5+zl85KcbGCy/lAF6Bf5+r+qxvpSmE+qaDAjRf7NSpomP
XkyGj+lqMXB/TjPGrhXr/0OSK63DAPs3Cg8XdvKR97GSHcGGDGCPbS8fx/Wr
V9pftUlTBlxU2i2+cYYAKYQHt85gMiC/ove4+CwByvKedWMByYBZXhzZWgUB
4jPUJNebMcDgrRN5YoEAufYaD3tZMaDguu679uUC5LzYv+DbIQaYr7jyZIAl
QPbxExYfLzFAJzjmgulFAeKd3PKsJYQB43OK1SpxexOw7fzCL6EM4J61esC+
IkDJYtKDvdcYsO6J2ZrVNwSoz3nOhZ+3GNA38UEhKUmAvMF6YDyaAZk7tB53
puD2RTVm21QsAxI79FvmpeL2r2aR6vREBiiV97c4PxYgtzXaeQtSGWAb/yPm
WqEA/ZVzVVF7yICDjOPlfkUCFP7tSeCSRzge+Vm3970SoOy4NeY6TxjwMTTf
TOyNAI3++69/8zMGzLw45ZhfI0DBny+YQSEDjLZZyZjWC9D8vPIcxgvsf0r4
rgy310bOdMC2VwygXPKGE3D77l+9S9nhLQN6FQufZnUL0Ky02HOHKhjQr+U+
2tAjQEmBX3qPVDKg6VnPxm99uD9geDDbq4YBt6h++75BAdoh92C+dx0Dxm5p
yNUOC1BP/zf/Mw0McDsUvP8R7m9IxrlRQc0MaPk0PX2tUIBun8jKCmllQMDH
3UF9uL+iZT4y7+pnBjzwJN8F/xAg9r/TPTc7GLA6vNol4ZcAff5UxI7tYsAd
dYPSOWMC5JL792nCVwaEcfrcfMcF6Nrhi2dT+xlwmyj+oPJHgNSId18fDTBA
1/RAiLXoPqMFM9hPhxhg+sMj47zo/oURs6e5HAZc2K9smvRPgOqrwpUKeQzY
X1h4bbeYEB1MbfArFmA97GlcWCq6jy1A6Sv6zoDdMm1Rovs+lAzjn7z/ib9X
F1/UIrqPZGbH3JrfDChzC8lahvtv6/s1/BrGGZBUlqvkgbmixLG7eZIBAz07
5bMx28amstr+MkAqsuotR7T/9/hgZuc/BsRez3QQ9Qf9zFbO7RVngvj3R1I7
ROtryzzODEgw4fvx21/9MN+Zyu7iSDHhd5GNumi/q+xnKYlFMkyw2VfPEO2H
8svbq2Uuy4R/GaabRfO3w9ezKH85JhiF3zQWitbbjkq6Z85mwrsgiWDR+uYH
0z2R7QpMmHlNc6dovXaT2tM8ublM0FpZ3zNLtJ77e1qr8TwmKO9SOy1i1Y82
E27KTOg6unu7aD33SmamWqIKEx4sE2SL1kcnQsRNahYy4WOyX7voey4Hdzv9
VWPCJuMUZdH8cdvmx5f1FjNhY8L89EpR/3e+2ON9S5nQnBjRlC2aXxZa117X
ZEKP+fM+0X5HnapH319pMWFx24olovnz+NQpJb42ExxvHGgUrcfJnrcyUl/J
hMd1OczVovLvTbez0GOC1bjJm5mi8srvvPd0NROuhAUqvMT+VjmTqu+5iQlR
Ku/cRPvXY83NaaEZtu98xKV00XmQ5Snuiy2YcL1uQFd0Hs1X/Ffk9u1MWOn1
Zr0J5sEvdP75nUw4y+6Qn4vZtuBua7Y1fn/GFbOPWE/vI0cnuncz4WpuaNVl
zEaulPqcPUxQvx56hhSdZ2UmmZjYMeHRM6dVipgXLP7hdHwfE2ZxqkoHsT5D
J8jQFAcmSCrNlBWdRx1rSnjccJAJteWtX15iPpr1vVbciQnd5aqyIv4UxhpZ
7YzLc6vo8AfReUunO/McjzLh/cjhV6L/e/6f0CjKhQmpjvs7lEX3oagw7cvc
mLA+xzRCdD9KzI+4wBEPJmic/RwnOn8mXcu/t/Q4EzQ/u3fL4PL5pG99t/Mk
EypuOPSI7iv8FhQ7FOSN3w+A1ddF58X28eTyTjNht/bzFaL7Bt9tMDXoPcME
2e3+WsY4P9YrxljN9WfC9FXrzz8QnTficny2BjAhq+DI9QXY//MrIP7keSYM
tG+/F4s5JOX2q/tBTBhsalJYhuP36+xwd+MlbJ+Ng7Zo/6PzbkJS8jIT/vRU
rnPC+msxuLV8bRgT6sRNLipLCRFr5hDtdJUJMWErbD9hLujf4nHrOtZrl9R4
mrQQRccP5I/eYEInNzrFA4/PLnRV+f+7yYR5S1bK2ojmazWzGbLRWG+qfNIc
j+dMn/o2acQzoXJwK3cfHg/q/bBP0ElgQv62N8l+eLy4wMjEaV0SE8hCzXcP
8HiSVzpjlL7HBMuoNETg8egnaX7xrgdYHy8mFF7g8WuZ2ceLB9KYIDbW/IfA
49/Y5vi5PhlMIA6k2fjg8TdjaOWalFwmHN27bU+QuhDpr1KYfJzPhNcvChsP
L8b5d3K0rKAA53+cs/jupUIk+PNyZ3URE9y/Snyw08L5oWBx4ncZE5r2Dub8
XiVE3zd45WxrZEJHrKORsakQtftbn7FtZoIpMzi8noHjVWpkcqiVCZ/n+0S4
k0KUYCbe4PuFCXZDJ1a8Nsfjc4co4f1eJrQH25m+shGipJB8/YkfTPBSO1vx
wkOIwqpif0v+YgJqLE9JPy5EpxTOIfkxJpy+9Hdj3Cmc3/FMy2V/mBD48GZm
k58Q/XzS4rFdkgXHQ9vcxEKFyLx57EmaEgtcxUZ79qVgPSwUGHbMZ0HdQ0fD
uw+EqPtAf+FcFRaolW+Obngomj9uKD2vxgKb4w4pkk+FyNjwPatQA/8fmVY9
LUeIpH1LqnhLWDDyq1+Jl4f9IfG4ea8WC9yTg2ZfeCFETlTK3hvaLDjkU2mu
/VKIVkXEdFXosKCh8ERZQYkQlapeGlqrz4KY5V8uXXqD67cDfh6uq1mQ4FLn
VfpWiKzTvH6krGFB1CKtxu4KXB+s3vd3thELqh4e2FdWJUS5p62CmJtYsMNr
KQTVCJH/K2q6vzELXA7Eyi+uw/qUgGu5/7HgfIJefny9EMlT6+cMAQvipTYu
/N6A9RKuG62xlQUeWuwNSxtF920tXbibyQKvxS5iek1Yn6oqyddIFrTH+p1S
aMb5dUB+2RuKBTWpbjFVmMXSpDLGzVjAKL59cl8Lrt85k6sMLFhgEjum8hbz
rdUjec7bWVCxJvKeeKsQ7T89aJS4kwWjj+J1FTFrv+p81WjNgn75F0Wv8fMj
05pNZW1YoLN8C1Me80t2VQXsYcEmDdd5Bvh7weGl5qftWNA570HvUmyfRVNh
w5N92F67rV4DH3F+qD7d3eeA31dPvHgOl6/H4cEXVUcWBM77y+urE+0Pjz+w
w4kFTnqpl9VqcX3Diey/7MyC9NXVBsurhQhWX3YpOcqCrWcSGsQ/CFHTy5On
VrqzQGX4TtkKHI+kaS7jBz1xvAOaZU+XCdFR9oGA2OMskAz+sOk2EqLJRvNQ
KR8WrGwxjGPg+JerbJ1l7Iufz1D+1/xMiMIdNkad8MO8N7bYKFeIlnKWJXQF
4Oe55lMnMoSIa7BoyfwLLLDvWjVJp+H6xEcxzfwiC+y0pY1/Yr1S0/5lvbjM
gqGO3JrSWCHyUvn05mYkC3bZvX7HvITbU4da9ocoFiz3rzMpChAiydTyGrHb
LNjpmrhL8owQxRjktLrHsWDPnjmXF7oLUQl5hUPeY0GRrX7wESvcngVuVjv1
gAXPdpjOL8L5uK6Qa5GcxoIL3xw6B5nYf1qWuWMZLFhluHFx5wYhOrJfrE/z
CQts1S0M0wxweaJz5u3IYkELi/F3kbYQxUkpnXmUxwKl5swtD+ZjPW95m9H8
jAV35m2bQrg+U/D2aRd/zgLf4Dpj0fpqSN8nYu9LFkx+OzJdo1+ATr1JlJ75
lgVz4jm1/fECZDBpYbShggWbc3hs7VAB4hiKuRyqZIF4rqfJQW8BcrznWFNc
g+3vmkFXWgqQ5YXlt9xaWJCjKzdzRFKAdIicJbUDLNhfnCLrd4qPvvk4Wk0M
4fxfcKRlAx5PpjydG6zFxfGvRMn6O/F4S91nMEDIguH4q6/bDPhI6u+mLP1x
FsR9mmHm852HXq/ldttN4ufPeorZ9/CQv1uiYuhfFvxsLxW/2chDI1/+eXeL
k5DJN/T8W8BDT+fmPJSTJOHxwpK0tY946JiZ42cjaRJiphW+Kr/DQ5oX5848
LENC48ok34xIHuouKje+IUtC4qGK9adCeChhxNvjlRwJE7Z/6Nv+PGSjszx5
aDYJeUfPJs48yUO1cWESpnNJULKUieAf4KGwhk3rPOaRIDfthGCXLQ8xZnCd
45VJiGaNKchs56FiX4sPIwtJ4DTLVxDAQz7Z/ybV1UkQLA12KzHiIcPBbD2z
xSSElI+PnlnNQ+k2c2/c1yTBVfJHYMz/eCh6/Scbaz0SqiKGTgpm8FD1pwWr
7PRJON4fcMZEkoemnd0j6biahAeLPPsfTnGRJ2rL9lxHwvUo3+N3f3ARm90x
4+oWEtZe05DL6uCiyT09xaXbSNjocub5mSdcZPhnadR7SxIuJoS13EzjoqNJ
h47W7SBhmuGzpc53uaipp0+pYxcJgz9uvJofyUWywcs4vTYkzNeud/p2mYtM
ljuXDu8hQT1vN2d7IBf5VqbFfLcjYTtnRryFDxc9dR1wH9tHgj9bParVjYv6
Zmkz/jmQ8L15SU2vIxepZh9VlXbE/mHK1WQf4KLtOx8J5ZxI+DFjvnXZfi66
PDr0bq4zCS+++4jp2XNRSbROoupREiqRBNFly0WjRq4nl7iQoNLe4FhhzUU6
Xx5T2m4kwMjYo0ZLLjpwjquh70HC2whr0xGKi6I19H6t8yLBoYxpMWcrF1WX
ulcbnyDBuODUkPpmLprm9PTe1lMkkNZRejMMuWijtMCX9iHhQLfKhpLlXOSV
rm+5wxfbE6Ooo7uIi9Jor2W2fiTMsmxYbyLPRe3c7Mn9/iR8UihK4ohxkWLE
94bDASQ8LRZ/ofKdg9irDdPdzpNwJtnz94suDgpoPBFwMoiEksUanKJqDsr3
zrP2u0RCn7kJNfM5B3GUR3UuhJDgHNQpiEvhoKVFa8VDQ0kwlY0d3hXGQbb2
3q3hV0jQLDx2epUnB5Un/7qYEE6CrcFNmx9rOWjCdMPe+5EkFPZ4b0NKHGTQ
f9ogI4qE/LIZmkdGhlHiivH2wmgSej2uvZN7OIyaqjbmlcSSwFixMIR7bhjJ
eviFvY0ngamjruy2cxj55E6ua0wiwevhxlOKo0Mo09pYri2ZhOCeTWrqpUOo
95d/T/c9EtzUpexuXh1C2zdPhfPTsD/mhfwLXTCEQjr+O/wznYTYFffKv7cN
opeBgZv/ZOB4rWzuuxU/iFaUiw3OyCLB7MsO7wNzBtF/R6zOGueQcOxGeIJe
2QCylk2b7ZmH9XL2Yn6Y5wA69mQsJeUZCS+FD9e5qAyggO1m65oKcflqazzf
om/o5o/E99JF2P5Hu2x8HL6h9Gih3caXJEj+yhKWDfejj+23g5Je43wIFZf5
9qsPDQQOzmsoI2Eg5gLddboP/Vm6+ZHEWxIybsckXP3Zi5Yf6647WknCasf3
kuYDPcj/p47amo8kWKmv4RendaMbseeyDzeR0NXP6omR70Zpm+u3xraQECm8
4/KE04kaLni7/G0joTR0cnmZdzvSmv26sKIX+8tu5qCUdSuq19q10/4nCZZv
DG1/fHyP+isf9of/xvmvn1zfJP4OTbhN+JaOk5DS8fkkS+8NWpZ3967WFLYv
dk5D0O8i5EcMc4XSbGgbzPVu+l8k0rQNvBy8gA3zKhydrWPKiY2TDarPVdkQ
HNG5lWVZQVgkaT4dXsSG0zfLbU9KfCDO9FU2WS5hwxG3zQw1hzqi1ktpqaoO
Gx6ws40W85oI37BHL59uZsPR16yCVdWdhEzM1dHiLWzw/x0c8qmni4h94K5b
SbBhPC0z64tfN/EcrU7o3coGSelMRtPlr8T4zxdnF5izoXXZNsWK0F7iikRC
3jILNqRZ+YSHSvQRqnMCOIbb2XCVvrhqmn8fsUnX1G6bNRvCn2S3/jjcT/g5
ftgUZM8G/Tb3ytJFA4SsV+aJiP1s4Dv3PjK8NEDEnwvPSDjAhrfaLncUhwaI
4tidqoVObLBTj4iSeDxImKet3VnuzAbOicSC6TJDRHve/CsNR9kwTfy97kHH
IcKtdKy00wX7g0wtli0aIv7Uto1z3Ngwi3XN4N6sYeJa+8vV4x5sWHgufPpe
62Fi0XDSMenjbHDI19rlGDtMGEsd+rzYmw3dm44GhSzgENWKzDmrTrOhhT77
KN+aQ9gvXk5tPsOGVWuTamzCOcS5zZznu86xYYz29tea4BCzqRqhYyAbpgj7
t0d0uUTS7ixtrwu4vD/3B1L2XKLk+MnYK8FsKBP84qg94xIWgbvqYy6zQTmQ
t21FJ5fovLZBJjWMDXTR0dPSUjxi6uHkaXSdDVsUm4Uu5jwi/FlHVnUEG6p8
iu1mufMI9Tdo4PMNNlzzKCwuvMojntanaAzcZEPC5rP/+abzCKLzos3obTbo
nTWj973hEfWcwxHisWxYv+PjGe92HnFgnKyYHc+GU7dGYup+8IjzSnIbViSx
4YVp3P1gNT6hsJTvsT6ZDRWH3Ef+6fOJZP36tK332PD12aLhMeATBltyO7c/
YIOnhpTM+e184jV9a/7+NFw+yO5+sJ9PbLf1sXBNZ8PI3bSFp135RPdh2xDf
DDbkNJl6Sp/mE14nN5UEZ7LBIP9SguMFPiF+YdGvqKfYf/59Lneu8Imo8Cm9
5Gw21E/TevA6ik8sTeg+/CSXDcfbVir0xPGJ3EdliUX5bLgT/MFLPplPmBY+
aK4oYEND0p1ztql84mN5yKzm52xYK9XQVf2ITzh+PMrsKWLDMRmZVf5P+MRI
F31O8BL/361Fg97ZfCKIp/vsTwkbgvb9OVGZyyckeZVx/16zIfTF3tyAfD4R
wnUOmPaGDWab9q/MecYnZLgSh6TesuH5suA/HgV8IoyTTMpUsMFGILS5WcQn
ZDlbdGdWsmH6r/k3/N/wiWvDbQqzq9jwaOC71uxqPhE5pNQ2tw7HXyx315Z2
PqE4lFMyvwHnv0TJr95ePnFr0OK+SiMbNggNpZkcPhEzEOqm0coGrYAjGaxx
PpHU/2dKp4sNfsZvH2crCojF/XG9el+xfe2DkbcWCIh7fevfG/Sy4cY+eZal
uoBI7fW6sX6ADY3eymetVwiIzK99/zMVsGGT+YeG/i0Coqijmr3nH47v59qS
n44CwrjjmJ69OAXyf43ydh0RECXt0ooOEhSEykSoPHYVEKVf4IvTdAo2Ntt9
33hKQLz/nO/uJU9B62it/59LAoL+vGPnyTkUWNgeOaIWJiCqP/HX+8yl4Prq
snqj6wKirlVbzF+ZghYbTfkDtwVES3NC1GUNCu6Jp744kSogbJs3nr6yhIL+
5XdKOekCoq2pxe76/yjwK/wouTtTQHQ0Kiy7uZyCCd7ZxEV5AqKv4VJhkj4F
htSOaO/XAmKkxq39GUFBoH2+Pt0mIKxqFwb0mVCwxe9zTFaHgMiv/aAxl0FB
9JLkObO+CgjvOu1DXmwKZCQYI08GBMRYfd+Qzg4KPnxqdvEexfY03Ly6x4qC
nFXOOWG/BcSLBlO90F0UbH1fmhA5ISD8PiZ79e/B9s7xub1RTEj8bbT/fdeR
gslyr+4XUkJif9PMuFonCiQVvoxPmy4kSpqKNv11piBcMVnCVEZInG9eELDX
lYLdVqR2sqyQ6G6u0Ahzp6CUscipZKaQMGnxKS30pOD0udaP9XJCYlprk+S8
UxQsqv99u362kDjUejFtqw8F1kck5r2SFxLlrYbsE74UVB0bXJSgICQ0P30d
SvajQNjxdvYE5uBPkVfr/ClwSPvKUZgjJL59IvSmAiiwHc07qYqZ9Zlfq3uB
Av+Iq7OVMT/8nOhld5GCgoOs5dMxy7SZK14JpuBsnO5KDv6/Y22Tec8vU7Cg
uirsDeYPbRm7BsIo4Cl/zI/ErPNlz+9513B5WEMaVpivfpGJY4RT8EdwA2Zi
5n4p3HQyEtsXP3X9BbbfvN25PSWKgmVf+ef3Y37SPi+g/haOV+SVmxO4vLM7
yjX+RVMwVWNsEo7Zo+NkqV4c9seGCGlVzHUdSw/Z36FgVFLqYNIsIRHZeT7t
xV0KpMNc6qKw/+Z2G+udSqdgEP0IMcL+PtXNqb2XQcHCRKfe6BlCoqk73qsh
k4L94X0fv+P4RH8dy1uVQ0HRieZjd3H8FvTmbxp6QUGFapH5gKSQONN7qF35
JQWauRoLjDC39SoGsEooyP7zwyFMQkjc6fMqvV9GgU9Z0Fb9aUJC/Zsue38V
Bec2JS/U+ScgJra7hh+poaDx1b1h8SkB0Vz8qMmrjgJy9tec7j8CIltrUNWv
gYIng5YqFZMC4toNrYMXGykY/nm+9TfW39E/Tg+vNWN7Q7kXwjEzjtzn3W7F
8bR6/EEP8+KPX9fc/UyBk7JURvO4gJg0XuyX/oWCkA0KSiGYWx7uf53Tgf0X
2jD2H+ZcxUTp4i4cLzV7hhjm8HNfzMu/UrBh0ffOyjEB4TKocrOmlwI6WOPJ
HcwsK9vPLf0U5E7vi/DGvKQkWqN7QBSf9042mP9oNx8eGqLAe5uUtAnmTzfn
Zo5wKPirlEQbYs6f2jEyyaPg351L0isxRxyLNJISUmA5p1BWxC5NtQGzRyiQ
0zmwTPQ8i5j1VnmUgivCX0sA89IMs5lLflGw/ub+SmvMU0pXduiMYX2uke7x
xNwW+D5mzQQFqfkyBjcwPxuW7jT+Q0HlFXPv55gjdzE1WVMUZITdP96P2e31
RRdLMRoS84Z7lHH52SvLsm2n0eAuoxNsiVkzWuz3QUkaWNb5itcwi4kTW1yl
aYiaYjFqMH9xPXfxlAwNfZ9WNChi/0eZTMhflqNhxvYTjY8we2Qa7Y6cTUPL
4MacCcyU8umEOAUaDpG7ii1wfMV4P7QzlWjYn7524T/MnrE8k4ZFNNzZamnj
+xfXrxK6oW3qNMyv1uF+xqzl4VLbu5gGqw5VfWOsn86tA3t/adIwaPv7nDjW
l7mg++RCPRouBSHWVlw/ae/VKNLUx79n7vA6gVni7T6xVatpCP5VVZCMuSi+
7Rqso+GG53upCczRUiqN1AYaGmXi32qKC4njXjYqVhtp6DikOMcCszarKfXw
Fhpev1tXdgezZI4i14Og4Wbuu36EuWvhDkNfExokfg8p9GAuConwvbCVhrqK
xcum4XyI/l5TcoVJw5ons6UWYz5hLyd1i8T+cA27tRmzRQVtlkjRMD6U/twa
s45h2I00MxqcFrbauGKWSqxozdpGw+G+rj2BmHePNr/6aUmD4KzVuSjM6WZ9
9zfvpIFWW7XsHuaJeyNhF6xpOD58Yv1TzOYTYl4Vu2mwX5kXW4A5aYf87ll7
aAjvWrG+GLMwXc3Yyo6GJMvWSRGbiukujdtHQ3lSwufnmG/ZbJLpcsDft7cp
y8H87Smbr+mI9TPv7+M0zEbSNk0uTjTUfyuIiMF8Zd/homxnGnRm/T12CfOX
/JPJv47SsNE3d5M7Zl25oBBjVxo87UBqJ+aAQ5FuQe40ZKOcekPM9UVJO997
0tCpVPdQHvNSxSdGs0/g77/ZGDeI/XvqWLG69SkaKl5dLnyF+d3rSsl4HxqW
KzqoRGA+5vmtftlZ7P/RDcrLRfF4N1rgeo6GY2TtTx6Ot5y6RGJOIA3Fdy0S
czBnV2sc23KJhi1Oc6f0MU/TXGV5MYSG1Q6+W1qwvqzPGq+rDKVBtzzxKYn5
94o94ruuY/8c116pjvX43+WoOLdoGt7o79LMwHqO7EwOzI2l4Xe763pZzD3r
sg6PxWN9blib6oLzIbivavWluzTkpx6TNhDVT5vblD+k0GDg0loTjfNT++bg
X/kHNPRfdE4Qx1xtIvXhTjoNbbpXgwZ+CQj1uLnZXzNoYK/a2eSE2Uu4JHr5
ExpOZs28N/xTQJSRBv7uWTTElWjr+GGee/c/x7wcGiJXNz1Xwuz0y5w9nkfD
wPsV6cW4/S/YZreKKKBhcqf7AS/MMqnHlIKf0yBXZ2K7FvPeP6cnPhTRsCuy
W2kG5kyrkG6FVzRoHdyuI/yB66OMW+92IxrGUhM2czBvn3Y/M6EU59t5uclJ
zCl7cqJ63tDQO7JHRxO/P5KNfLXf4fyZNhR/GDNDpna/x3sa7n+Z0ivDHO3Q
zsj/QEPRj7GmzdjewYJhnYlqrB+9SzeaMG+aPa4AdTRsm2j0Dsflv3Z4+u/g
Bhqkz39+4Ir7L50v53VUNWJ/vPDb6YH9p6+k+WZOCw058ZVvYrG/z7saPrL5
RMPMtZsteTgeH8sgIrGNhtnNnfYeuD3SVLX07m3H+aB/21kUX5/j++xWdNEw
6yw59g/H//8IS/uw
        "]]},
      Annotation[#, "Charting`Private`Tag$3233#1"]& ]}, {}, {}}, 
   {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{40.62731876989103, 1.1}, {40.62731876989103, -1.1}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], 
    ArrowBox[{{45.08550879902812, 0.28471155605625387`}, {48.2431964664803, 
     0.28471155605625387`}}]}, 
   TagBox[InsetBox[
     SubscriptBox["r", "crit"], {39, 0.5},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "1"}], ",", " ", 
      RowBox[{"\[CapitalLambda]", "=", "0.001"}]}], {30, 0.9},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      SubscriptBox["r", "0"], "  ", ">", " ", 
      SubscriptBox["r", "crit"]}], {30, 0.7},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   {RGBColor[1, 0.5, 0.5], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{53.74345066819551, 1.1}, {53.74345066819551, -1.1}}]}, 
   {RGBColor[1, 0.5, 0.5], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{2.0026773905721935`, 1.1}, {2.0026773905721935`, -1.1}}]}, 
   TagBox[InsetBox[
     SubscriptBox["r", "min"], {4.0026773905721935, 0.5},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     SubscriptBox["r", "max"], {55.74345066819551, 0.5},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{Large, FontFamily -> "Times", Italic},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["\"r\"", TraditionalForm], 
    FormBox["\"\[CapitalPhi](r)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{795., Automatic},
  LabelStyle->Directive[
    GrayLevel[0], Large],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-2, 57.74345066819551}, {-1.1, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.732458933767927*^9, 3.7324590279997954`*^9, 3.7324590959638596`*^9, 
   3.7324591273400335`*^9, {3.732459171327054*^9, 3.732459200776598*^9}, 
   3.7324592558716416`*^9, {3.7324593026155577`*^9, 3.732459314372755*^9}, 
   3.732459345718452*^9, {3.7324594270802608`*^9, 3.7324594851340656`*^9}, {
   3.7324595330611014`*^9, 3.7324595396301413`*^9}, {3.732459665761177*^9, 
   3.7324596897636595`*^9}, {3.732459734016345*^9, 3.732459779604754*^9}, 
   3.7324598260570908`*^9, 3.73246079616238*^9, {3.7324608379793577`*^9, 
   3.7324608854307394`*^9}, {3.7324609180476694`*^9, 
   3.7324609329100676`*^9}, {3.7324609690010777`*^9, 3.732460989295963*^9}, 
   3.7324610725734696`*^9, 3.732515267623798*^9, 3.732515390904784*^9, 
   3.732515464586693*^9, 3.732515583197426*^9, {3.732515869188197*^9, 
   3.7325158872305326`*^9}, 3.7325164112121596`*^9, 3.732950411102784*^9, 
   3.733206543053627*^9, 3.73336992930564*^9}],

Cell[BoxData["\<\"pdeexp.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.732458933767927*^9, 3.7324590279997954`*^9, 3.7324590959638596`*^9, 
   3.7324591273400335`*^9, {3.732459171327054*^9, 3.732459200776598*^9}, 
   3.7324592558716416`*^9, {3.7324593026155577`*^9, 3.732459314372755*^9}, 
   3.732459345718452*^9, {3.7324594270802608`*^9, 3.7324594851340656`*^9}, {
   3.7324595330611014`*^9, 3.7324595396301413`*^9}, {3.732459665761177*^9, 
   3.7324596897636595`*^9}, {3.732459734016345*^9, 3.732459779604754*^9}, 
   3.7324598260570908`*^9, 3.73246079616238*^9, {3.7324608379793577`*^9, 
   3.7324608854307394`*^9}, {3.7324609180476694`*^9, 
   3.7324609329100676`*^9}, {3.7324609690010777`*^9, 3.732460989295963*^9}, 
   3.7324610725734696`*^9, 3.732515267623798*^9, 3.732515390904784*^9, 
   3.732515464586693*^9, 3.732515583197426*^9, {3.732515869188197*^9, 
   3.7325158872305326`*^9}, 3.7325164112121596`*^9, 3.732950411102784*^9, 
   3.733206543053627*^9, 3.733369929603854*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "v", ",", "m", ",", "f", ",", "g", ",", "gamma", ",", "h", ",", "h1"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"VsG", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"Cos", "[", 
       RowBox[{"Pi", "*", 
        RowBox[{"f", "[", 
         RowBox[{"t", ",", "x"}], "]"}]}], "]"}]}], ")"}], "/", 
    RowBox[{"Pi", "^", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Vphi", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"t", ",", "x"}], "]"}], "^", "2"}], "-", "1"}], ")"}], "^", 
     "2"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"V", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{"Vphi", "[", 
    RowBox[{"t", ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dV", "[", 
    RowBox[{"t_", ",", "x_"}], "]"}], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"Vphi", "[", 
      RowBox[{"t", ",", "x"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"t", ",", "x"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dd", "=", 
   RowBox[{"1", "-", 
    RowBox[{"2", 
     RowBox[{"m", "/", "r"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"qq", "/", "3"}], ")"}], " ", 
     RowBox[{"r", "^", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "1."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"qq", "=", "0.001"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pde", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{"t", ",", "r"}], "]"}], ",", "t"}], "]"}], " ", "==", 
       RowBox[{"g", "[", 
        RowBox[{"t", ",", "r"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"r", "^", "2"}], " ", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", 
            RowBox[{"t", ",", "r"}], "]"}], ",", "t"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", 
            RowBox[{"m", "/", "r"}]}], " ", "-", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"qq", "/", "3"}], ")"}], " ", 
            RowBox[{"r", "^", "2"}]}]}], ")"}]}]}], "\[Equal]", " ", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"r", "^", "2"}], " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", 
              RowBox[{"m", "/", "r"}]}], " ", "-", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"qq", "/", "3"}], ")"}], " ", 
              RowBox[{"r", "^", "2"}]}]}], ")"}], " ", 
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"f", "[", 
              RowBox[{"t", ",", "r"}], "]"}], ",", "r"}], "]"}]}], ",", "r"}],
          "]"}], "-", 
        RowBox[{"0.5", " ", 
         RowBox[{"dV", "[", 
          RowBox[{"t", ",", "r"}], "]"}], " ", 
         RowBox[{"r", "^", "2"}]}]}]}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "parameters", " ", "for", " ", "initial", " ", "conditions", " ", "and", 
    " ", "boundary", " ", "conditions"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tsol", "=", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], " ", "-", " ", 
        RowBox[{"2", " ", "m", " ", "x"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"qq", "/", "3"}], ")"}], " ", 
         RowBox[{"x", "^", "4"}]}]}], "\[Equal]", "0"}], ",", "x"}], "]"}], "//",
     "Chop"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rmin", "=", 
   RowBox[{"tsol", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rmax", "=", 
   RowBox[{"tsol", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ee", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"9", 
      RowBox[{
       RowBox[{"r", "^", "2"}], "/", "2"}]}], "-", 
     RowBox[{"8", " ", "m", " ", "r"}], "-", 
     RowBox[{"4", " ", "qq", " ", 
      RowBox[{
       RowBox[{"r", "^", "4"}], " ", "/", "3"}]}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0crit", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{"ee", ",", "r"}], "]"}], "\[Equal]", "0"}], ",", "r"}], 
      "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], "//", "N"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", "=", 
   RowBox[{"r0crit", "-", "3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tmax", "=", "300"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"time", " ", "for", " ", "which", " ", "evolution", " ", "is", " ", 
    RowBox[{"run", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "function", " ", "to", " ", "be", " ", "used", " ", "to", " ", "specify", 
    " ", "initial", " ", "conditions"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"h", "[", "r_", "]"}], "=", 
   RowBox[{"Tanh", "[", 
    RowBox[{"(", 
     RowBox[{"r", "-", "r0"}], ")"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"bc", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"0", ",", "r"}], "]"}], "\[Equal]", 
       RowBox[{"h", "[", "r", "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"g", "[", 
        RowBox[{"0", ",", "r"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "rmin"}], "]"}], "\[Equal]", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{
       RowBox[{"g", "[", 
        RowBox[{"t", ",", "rmin"}], "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"t", ",", "rmax"}], "]"}], "\[Equal]", "1"}], ",", 
      RowBox[{
       RowBox[{"g", "[", 
        RowBox[{"t", ",", "rmax"}], "]"}], "\[Equal]", "0"}]}], "}"}]}], 
   ";"}], "\n", 
  RowBox[{"(*", " ", 
   RowBox[{"Now", " ", "solve", " ", "pde", " ", "using", " ", 
    RowBox[{"NDSolve", "."}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"solution2", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pde", ",", "bc"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"f", ",", "g"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
     RowBox[{"StartingStepSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", 
        RowBox[{"rmax", "/", "30"}]}], "}"}]}], ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"fsol2", "[", 
    RowBox[{"t_", ",", "r_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"t", ",", "r"}], "]"}], " ", "/.", " ", "solution2"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"pl1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"fsol2", "[", 
      RowBox[{"0", ",", "r"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Red"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"fsol2", "[", 
      RowBox[{"60", ",", "r"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"pdecol", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"pl1", ",", "pl2", ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Orange", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"r0crit", ",", "1.1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"r0crit", ",", 
            RowBox[{"-", "1.1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"37.76935889205098", ",", "0.24761183008672516`"}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"21.844177706670074`", ",", "0.24761183008672516`"}], 
           "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(crit\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"43", ",", "0.5"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=1, \[CapitalLambda]=0.001\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"13", ",", "0.9"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(r\), \(0\)]\)  < \!\(\*SubscriptBox[\(r\), \
\(crit\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"13", ",", "0.7"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Pink", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"rmax", ",", "1.1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"rmax", ",", 
            RowBox[{"-", "1.1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Pink", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"rmin", ",", "1.1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"rmin", ",", 
            RowBox[{"-", "1.1"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(min\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"rmin", "+", "2"}], ",", "0.5"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(max\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"rmax", "+", "2"}], ",", "0.5"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<t=0\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"r0crit", "-", "6"}], ",", 
          RowBox[{"-", "0.5"}]}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<t=60\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"18.5", ",", 
          RowBox[{"-", "0.5"}]}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"rmax", "+", "4"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<r\>\"", ",", "\"\<\[CapitalPhi](r)\>\""}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Large", ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Italic"}], 
      "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", "Large"}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<pdecol.pdf\>\"", ",", "pdecol", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "1000"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "2", "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.440343318050982*^9, 3.440343335174198*^9}, {
   3.440343954426652*^9, 3.440344079288424*^9}, {3.440344111239764*^9, 
   3.440344153391365*^9}, {3.4403442638648157`*^9, 3.4403442658708153`*^9}, {
   3.4403444277655773`*^9, 3.4403444728283052`*^9}, {3.4403451314288473`*^9, 
   3.4403451525854073`*^9}, {3.440345255399871*^9, 3.440345256653204*^9}, {
   3.440345549039094*^9, 3.440345549411985*^9}, {3.440345665236713*^9, 
   3.440345730615518*^9}, {3.440347099513795*^9, 3.4403470999756804`*^9}, {
   3.440347273627829*^9, 3.440347297102314*^9}, {3.4403474446180487`*^9, 
   3.440347444887137*^9}, {3.440347553999758*^9, 3.440347554582301*^9}, {
   3.440347648274666*^9, 3.440347649649682*^9}, {3.44034815611342*^9, 
   3.440348162836142*^9}, {3.4403510508468447`*^9, 3.4403510564932547`*^9}, {
   3.440351283509272*^9, 3.440351284673645*^9}, {3.440351505194418*^9, 
   3.440351505751803*^9}, {3.4403516895349293`*^9, 3.440351690221718*^9}, {
   3.4403520553994923`*^9, 3.440352055949613*^9}, {3.440352364869234*^9, 
   3.4403523656749077`*^9}, {3.440352710743471*^9, 3.440352715383593*^9}, {
   3.440352855092409*^9, 3.440352856609003*^9}, {3.440352944113796*^9, 
   3.4403529445994473`*^9}, {3.440353063036189*^9, 3.440353066969317*^9}, {
   3.440353131695092*^9, 3.440353132810112*^9}, {3.440353539400908*^9, 
   3.44035353991505*^9}, {3.440353784068842*^9, 3.4403537847234364`*^9}, {
   3.440353886425819*^9, 3.440353887206834*^9}, {3.440353962165592*^9, 
   3.440353963385013*^9}, {3.44035433426245*^9, 3.440354341044758*^9}, {
   3.440382572885765*^9, 3.440382601193759*^9}, {3.4403826352911673`*^9, 
   3.440382651971136*^9}, {3.4403828928307133`*^9, 3.44038292194103*^9}, {
   3.440382972060815*^9, 3.440382973691491*^9}, {3.440383219880061*^9, 
   3.440383220188291*^9}, 3.440388912184025*^9, {3.440392749186441*^9, 
   3.4403927632854757`*^9}, {3.4403932565524*^9, 3.440393257032229*^9}, {
   3.44039404742419*^9, 3.440394057635522*^9}, {3.440394132959209*^9, 
   3.440394133380011*^9}, {3.440394287973477*^9, 3.440394299683331*^9}, {
   3.440394865746216*^9, 3.4403948662011414`*^9}, {3.440395347435363*^9, 
   3.440395353941449*^9}, {3.440396896979377*^9, 3.440396897283546*^9}, {
   3.440397085826139*^9, 3.440397086003705*^9}, {3.440397636001041*^9, 
   3.440397640140102*^9}, {3.440398650013434*^9, 3.440398652487363*^9}, {
   3.440400109759059*^9, 3.440400110119989*^9}, {3.440401916006363*^9, 
   3.44040191642025*^9}, {3.440401975244379*^9, 3.440401978137501*^9}, {
   3.440402023595797*^9, 3.440402023897964*^9}, {3.440402061474593*^9, 
   3.440402061969021*^9}, {3.4404021104964457`*^9, 3.440402111028873*^9}, {
   3.440402332051016*^9, 3.44040233213554*^9}, {3.440402400211454*^9, 
   3.440402400585311*^9}, {3.440402435852507*^9, 3.440402436337797*^9}, {
   3.4404025523330307`*^9, 3.4404025528665037`*^9}, {3.44040260392873*^9, 
   3.4404026074092503`*^9}, {3.440402661590295*^9, 3.440402662425815*^9}, {
   3.440402767418865*^9, 3.440402767833325*^9}, {3.440402898423253*^9, 
   3.440402898870707*^9}, {3.4404031280066233`*^9, 3.440403132423325*^9}, {
   3.440403274267805*^9, 3.4404032808159943`*^9}, {3.4404035577689743`*^9, 
   3.440403558159069*^9}, {3.440403790498576*^9, 3.440403790704541*^9}, {
   3.440403905975658*^9, 3.440403907261259*^9}, {3.440404206144492*^9, 
   3.4404042065829287`*^9}, {3.440421326077724*^9, 3.440421350482567*^9}, 
   3.440421427249237*^9, {3.440421525663785*^9, 3.440421525805192*^9}, {
   3.44042174551206*^9, 3.44042175348748*^9}, 3.44042195881705*^9, {
   3.4404220419939327`*^9, 3.4404220444966307`*^9}, {3.4404224069256897`*^9, 
   3.44042241469423*^9}, {3.440422559516698*^9, 3.440422559746435*^9}, 
   3.440422795315393*^9, {3.440422976558793*^9, 3.440422977779873*^9}, {
   3.440423203435357*^9, 3.4404232039774923`*^9}, {3.4404235261953173`*^9, 
   3.44042352651441*^9}, {3.4404238604484253`*^9, 3.4404238662871933`*^9}, {
   3.440423985270007*^9, 3.44042398542034*^9}, {3.440424188287215*^9, 
   3.4404241913809557`*^9}, {3.4404245529072742`*^9, 3.440424558375958*^9}, 
   3.440424725108691*^9, {3.4404250889023933`*^9, 3.4404250891867237`*^9}, 
   3.440425260930058*^9, {3.440429363387292*^9, 3.440429363719138*^9}, {
   3.440429548795231*^9, 3.4404295567968903`*^9}, {3.440429938591707*^9, 
   3.4404299399699783`*^9}, {3.440430236649435*^9, 3.440430237103668*^9}, {
   3.440430502981848*^9, 3.440430503804281*^9}, {3.440430857091939*^9, 
   3.440430861500222*^9}, {3.44043109646212*^9, 3.440431096843398*^9}, {
   3.440431479427122*^9, 3.440431483026308*^9}, {3.4404318572307377`*^9, 
   3.4404318585079927`*^9}, {3.4404342486322536`*^9, 3.44043424883004*^9}, {
   3.440434554215577*^9, 3.440434554641974*^9}, {3.440434786782304*^9, 
   3.44043479509126*^9}, {3.440435235164381*^9, 3.440435235476252*^9}, {
   3.440435977237875*^9, 3.440435981753771*^9}, 3.440436356863564*^9, {
   3.4404369365974503`*^9, 3.440436937417512*^9}, {3.440437626229784*^9, 
   3.440437626356223*^9}, {3.4404387449711523`*^9, 3.440438748584197*^9}, {
   3.440439083183692*^9, 3.4404390845246143`*^9}, {3.4404395737474747`*^9, 
   3.440439574231786*^9}, {3.4404402710795527`*^9, 3.440440271457418*^9}, {
   3.440440610484453*^9, 3.4404406106951942`*^9}, 3.44044101682065*^9, 
   3.440441580561702*^9, {3.4404418816938753`*^9, 3.440441881851255*^9}, {
   3.440442065830852*^9, 3.4404420670363293`*^9}, 3.44044228225957*^9, {
   3.440442319923561*^9, 3.440442370146221*^9}, {3.440442438434514*^9, 
   3.440442438959957*^9}, {3.4404425691065617`*^9, 3.440442570713394*^9}, 
   3.440442700226551*^9, {3.4404428563636293`*^9, 3.440442880323395*^9}, {
   3.440442993210907*^9, 3.440442993631317*^9}, {3.440443078282702*^9, 
   3.440443078783576*^9}, {3.440443186815901*^9, 3.4404431882969027`*^9}, {
   3.440443307974893*^9, 3.440443308516556*^9}, {3.440443402799127*^9, 
   3.440443403314721*^9}, {3.440443530056448*^9, 3.4404435312841473`*^9}, {
   3.4404436784424267`*^9, 3.440443683360579*^9}, {3.4404437528124027`*^9, 
   3.440443753623651*^9}, 3.4404438447663307`*^9, {3.440444009830844*^9, 
   3.4404440107943487`*^9}, {3.440444090240802*^9, 3.440444090737048*^9}, {
   3.440444213940843*^9, 3.4404442185345573`*^9}, {3.440477902633522*^9, 
   3.4404779030178127`*^9}, {3.440478043206875*^9, 3.4404780891067657`*^9}, {
   3.440478190227631*^9, 3.44047819033776*^9}, {3.4404782244000483`*^9, 
   3.4404782246459312`*^9}, {3.4404782699366627`*^9, 3.440478291716771*^9}, 
   3.4404785849518642`*^9, {3.440479219225108*^9, 3.4404792226707783`*^9}, {
   3.44047966683029*^9, 3.44047967307477*^9}, {3.440481050107141*^9, 
   3.440481050608829*^9}, {3.4404815088134108`*^9, 3.4404815094186163`*^9}, {
   3.4404824648002768`*^9, 3.4404824649634733`*^9}, {3.440484474271562*^9, 
   3.4404844816132393`*^9}, {3.440485480394197*^9, 3.440485480678494*^9}, {
   3.440485537481791*^9, 3.440485537695066*^9}, {3.440485738416356*^9, 
   3.440485739479335*^9}, {3.440485924415592*^9, 3.440485924951992*^9}, {
   3.440486125176729*^9, 3.440486139138191*^9}, {3.440486785011632*^9, 
   3.440486786263644*^9}, {3.440487530005006*^9, 3.440487530224859*^9}, {
   3.4404882472575283`*^9, 3.4404882488714247`*^9}, 3.440489351399211*^9, {
   3.44049001041739*^9, 3.4404900144990273`*^9}, {3.440492447425617*^9, 
   3.440492448144065*^9}, {3.440494076927733*^9, 3.440494077253209*^9}, {
   3.4404963693133802`*^9, 3.44049639323251*^9}, {3.440497023222076*^9, 
   3.4404970234220753`*^9}, {3.440497892748982*^9, 3.440497911268965*^9}, {
   3.4404984328070793`*^9, 3.440498433854129*^9}, {3.440498854241128*^9, 
   3.440498855052868*^9}, {3.440499194017233*^9, 3.4404992009419117`*^9}, {
   3.4405000476868067`*^9, 3.440500048162043*^9}, {3.440500137930613*^9, 
   3.440500141899137*^9}, {3.440502097141325*^9, 3.440502097984365*^9}, {
   3.440505618233419*^9, 3.440505621773724*^9}, {3.440505897350922*^9, 
   3.44050589770186*^9}, {3.4405065889640512`*^9, 3.440506600346896*^9}, {
   3.440596010348529*^9, 3.440596020585471*^9}, {3.440597490189447*^9, 
   3.440597506412489*^9}, {3.4405983441042347`*^9, 3.440598344550253*^9}, {
   3.440599186578393*^9, 3.440599187976913*^9}, {3.4406002202288713`*^9, 
   3.440600224874878*^9}, {3.440604000982497*^9, 3.440604016543305*^9}, {
   3.4406051233806143`*^9, 3.440605124880014*^9}, {3.440609251976664*^9, 
   3.4406092531230907`*^9}, {3.4406133022322273`*^9, 3.440613303685656*^9}, 
   3.440651892386544*^9, {3.440666595689765*^9, 3.440666595860647*^9}, {
   3.440668238500766*^9, 3.440668239430932*^9}, 3.440669940078938*^9, {
   3.440671657941163*^9, 3.4406716599471607`*^9}, {3.440673387765501*^9, 
   3.440673387987843*^9}, {3.44067545279249*^9, 3.440675453189474*^9}, {
   3.44068040206837*^9, 3.440680403343207*^9}, {3.440684021562902*^9, 
   3.440684026978074*^9}, {3.440685607296962*^9, 3.4406856389252*^9}, {
   3.4406928063154697`*^9, 3.440692807695128*^9}, {3.440692873539167*^9, 
   3.440692884990885*^9}, {3.440694828212016*^9, 3.44069482971561*^9}, 
   3.440695633424654*^9, 3.440697226385783*^9, 3.44069769862743*^9, {
   3.440698073079298*^9, 3.4406980746473*^9}, {3.4406986238984203`*^9, 
   3.440698625627392*^9}, {3.4406991500801086`*^9, 3.440699150960322*^9}, {
   3.440699617710065*^9, 3.440699619162195*^9}, {3.440700145490555*^9, 
   3.44070015002771*^9}, {3.440700460364429*^9, 3.4407004617323103`*^9}, {
   3.440700974264613*^9, 3.440700975449999*^9}, {3.440701435345468*^9, 
   3.44070143630905*^9}, {3.440701948823514*^9, 3.440701950656539*^9}, {
   3.440702406866591*^9, 3.440702407208247*^9}, {3.440702780155225*^9, 
   3.440702782431883*^9}, {3.440703423634321*^9, 3.440703432434855*^9}, {
   3.440703929317148*^9, 3.440703945384172*^9}, {3.440704310617535*^9, 
   3.4407043114936657`*^9}, {3.440725926575803*^9, 3.44072593222338*^9}, {
   3.44072598966994*^9, 3.44072599155595*^9}, {3.440726032645597*^9, 
   3.4407260336510973`*^9}, {3.440726143338626*^9, 3.4407261501786137`*^9}, 
   3.440726242924822*^9, {3.44072630888048*^9, 3.4407263163038397`*^9}, {
   3.440726400033889*^9, 3.4407264456593027`*^9}, {3.440726545414695*^9, 
   3.4407265465771933`*^9}, {3.440726672693717*^9, 3.440726699707382*^9}, {
   3.440727409229673*^9, 3.440727410219985*^9}, {3.4407277124556847`*^9, 
   3.4407277252056007`*^9}, {3.4407278215549192`*^9, 3.440727828816475*^9}, {
   3.4407279167248993`*^9, 3.440727917441413*^9}, 3.440728010858446*^9, {
   3.440728169323475*^9, 3.440728170118329*^9}, {3.440728250990934*^9, 
   3.440728251415514*^9}, {3.440728357745755*^9, 3.440728362055809*^9}, 
   3.440728488548244*^9, {3.4407285764244013`*^9, 3.440728578230842*^9}, {
   3.4407290262422743`*^9, 3.440729031321587*^9}, {3.440729207363257*^9, 
   3.44072920994375*^9}, {3.440729738849389*^9, 3.440729739353747*^9}, {
   3.440729967338523*^9, 3.440729973933997*^9}, 3.440733526001029*^9, {
   3.44073363169422*^9, 3.440733631919252*^9}, 3.440733752081717*^9, {
   3.440733873238571*^9, 3.440733889883608*^9}, {3.4407341002238607`*^9, 
   3.440734100567829*^9}, {3.440734485906351*^9, 3.440734487702057*^9}, {
   3.4407351128031197`*^9, 3.440735124839538*^9}, {3.440750690771163*^9, 
   3.44075069421621*^9}, 3.440755341071093*^9, {3.4407554025917463`*^9, 
   3.44075543996629*^9}, {3.440755477881936*^9, 3.440755478505507*^9}, {
   3.440755517299801*^9, 3.4407555223463593`*^9}, {3.440755554126151*^9, 
   3.4407555545301*^9}, {3.4407556152480164`*^9, 3.440755616014701*^9}, {
   3.440755851053203*^9, 3.440755854955987*^9}, {3.440755907509799*^9, 
   3.440755908011156*^9}, {3.440756033538426*^9, 3.440756034698578*^9}, {
   3.440756118675273*^9, 3.440756118825117*^9}, {3.440756382020224*^9, 
   3.44075638246325*^9}, {3.44075646065548*^9, 3.440756461460733*^9}, 
   3.440756537505382*^9, 3.440756603687607*^9, 3.440756854899613*^9, {
   3.44075696530265*^9, 3.440756966225875*^9}, {3.440757009084384*^9, 
   3.440757009465592*^9}, {3.440757142599505*^9, 3.440757143721815*^9}, {
   3.440757218836918*^9, 3.4407572223844337`*^9}, {3.440757271631589*^9, 
   3.440757301186064*^9}, {3.4407573904765882`*^9, 3.440757419451907*^9}, {
   3.4407574579793453`*^9, 3.440757458978622*^9}, 3.440757502410162*^9, {
   3.4407575389768963`*^9, 3.440757539151062*^9}, {3.440757615723152*^9, 
   3.4407576175767612`*^9}, {3.440757687939364*^9, 3.4407576882208242`*^9}, {
   3.440757756767679*^9, 3.4407577575168743`*^9}, {3.44075781328915*^9, 
   3.440757813885035*^9}, {3.440757868308099*^9, 3.440757868633897*^9}, {
   3.440757903996949*^9, 3.440757907739984*^9}, {3.4407579626972017`*^9, 
   3.440757980305233*^9}, {3.44075801518832*^9, 3.440758015616858*^9}, {
   3.440758050193096*^9, 3.440758079422089*^9}, {3.4407581586570187`*^9, 
   3.4407581593088083`*^9}, {3.4407582527471848`*^9, 3.440758256694807*^9}, {
   3.440758548729333*^9, 3.440758559400756*^9}, {3.440758930162154*^9, 
   3.440758930457423*^9}, {3.440759078791011*^9, 3.440759093018518*^9}, {
   3.440759158333864*^9, 3.440759159251129*^9}, 3.44075925086803*^9, {
   3.44075930195391*^9, 3.440759303198431*^9}, {3.440759338383183*^9, 
   3.440759339028388*^9}, {3.44075938679769*^9, 3.44075938761775*^9}, {
   3.4407594355857077`*^9, 3.4407594447736893`*^9}, {3.440759508065971*^9, 
   3.440759511583109*^9}, {3.44075971523209*^9, 3.440759716757875*^9}, {
   3.440759910749794*^9, 3.44075992410975*^9}, {3.440760025983938*^9, 
   3.4407600262164183`*^9}, 3.440760211701703*^9, {3.4407604899283533`*^9, 
   3.440760491262689*^9}, {3.440760676044561*^9, 3.4407606761870537`*^9}, {
   3.440760772400709*^9, 3.44076077284101*^9}, {3.440761126477508*^9, 
   3.440761126752555*^9}, 3.440761229497438*^9, {3.440761854612076*^9, 
   3.440761855824004*^9}, {3.4407632587937107`*^9, 3.440763259157584*^9}, {
   3.440763813297613*^9, 3.440763813622672*^9}, {3.4407639763520727`*^9, 
   3.440763991494767*^9}, {3.44076411001245*^9, 3.440764110409156*^9}, {
   3.440764276985332*^9, 3.4407642786613617`*^9}, {3.440764442024845*^9, 
   3.440764443114778*^9}, 3.440764938740316*^9, {3.440765256099031*^9, 
   3.440765261827124*^9}, {3.4407653268259277`*^9, 3.440765327234779*^9}, {
   3.4407655635403843`*^9, 3.440765564312241*^9}, 3.440765620828917*^9, {
   3.440765703151119*^9, 3.440765726871459*^9}, 3.440765825015386*^9, {
   3.440766028263256*^9, 3.440766029353798*^9}, {3.440766204386888*^9, 
   3.440766204857259*^9}, {3.440766521983227*^9, 3.440766522469702*^9}, 
   3.440766568190959*^9, {3.4407669552577553`*^9, 3.440766956469116*^9}, {
   3.440767122801959*^9, 3.440767124905675*^9}, {3.4407674798148603`*^9, 
   3.440767480292695*^9}, 3.4407676077733183`*^9, {3.440767742798276*^9, 
   3.44076774355435*^9}, 3.4407678687017527`*^9, 3.440768118176277*^9, {
   3.440768231951798*^9, 3.440768232999069*^9}, {3.440768591743848*^9, 
   3.440768596101253*^9}, {3.440768667626151*^9, 3.440768667926798*^9}, {
   3.4407710080050488`*^9, 3.440771011454505*^9}, {3.44077109557611*^9, 
   3.440771097122945*^9}, {3.440771170126073*^9, 3.440771170573442*^9}, {
   3.4407713256311398`*^9, 3.440771326153799*^9}, {3.440771639250958*^9, 
   3.440771639440825*^9}, {3.440771739702067*^9, 3.440771741269269*^9}, 
   3.440771838383092*^9, {3.4407719346597967`*^9, 3.440771934932726*^9}, 
   3.440772032330637*^9, 3.440772217772912*^9, 3.440772363647244*^9, {
   3.4407724454517593`*^9, 3.44077244589782*^9}, {3.4407725590933123`*^9, 
   3.440772561620887*^9}, {3.440772657305236*^9, 3.440772657672076*^9}, {
   3.4407728581439867`*^9, 3.4407728595002737`*^9}, {3.4407730286021023`*^9, 
   3.440773033287315*^9}, 3.4407731277449293`*^9, {3.4407732392121773`*^9, 
   3.44077324046633*^9}, {3.440773424916244*^9, 3.440773425291024*^9}, 
   3.440773547375122*^9, {3.440773766583061*^9, 3.440773767304294*^9}, 
   3.440773921265873*^9, {3.4407742265242157`*^9, 3.440774227098176*^9}, 
   3.440774421316259*^9, 3.440774689802146*^9, 3.4407748592012377`*^9, {
   3.4407754042384377`*^9, 3.440775404829742*^9}, {3.440775686390314*^9, 
   3.4407756895653973`*^9}, {3.440776057834445*^9, 3.4407760582817097`*^9}, 
   3.440776535724325*^9, {3.440776710353714*^9, 3.440776710583283*^9}, {
   3.4407768053861427`*^9, 3.4407768110674973`*^9}, 3.440777044065083*^9, {
   3.4407776391893044`*^9, 3.440777643833082*^9}, {3.440777874053228*^9, 
   3.440777875098472*^9}, {3.440778027427165*^9, 3.440778027838274*^9}, {
   3.440778363503125*^9, 3.440778364426244*^9}, 3.440778779796257*^9, {
   3.440779120852686*^9, 3.440779121474915*^9}, {3.440779334302713*^9, 
   3.440779336585292*^9}, {3.4407800993606358`*^9, 3.440780100382416*^9}, {
   3.440780209576522*^9, 3.440780213461257*^9}, 3.4407803559237843`*^9, {
   3.440780468412697*^9, 3.440780469195984*^9}, 3.440780591802696*^9, {
   3.44078076029815*^9, 3.4407807609509487`*^9}, 3.4407808664864187`*^9, {
   3.440780960846121*^9, 3.4407809617019157`*^9}, {3.440781270052834*^9, 
   3.44078127260497*^9}, 3.440781361991029*^9, {3.440781429812202*^9, 
   3.440781430688768*^9}, {3.440781494949285*^9, 3.440781500713979*^9}, {
   3.440804760819291*^9, 3.4408047829228687`*^9}, 3.440809489823731*^9, {
   3.440817905815929*^9, 3.4408179072043447`*^9}, {3.44081927011178*^9, 
   3.440819276709383*^9}, {3.4408193646737413`*^9, 3.4408193811995773`*^9}, {
   3.440829781130167*^9, 3.440829784926035*^9}, {3.4408321065520363`*^9, 
   3.4408321355468397`*^9}, {3.440832183215911*^9, 3.440832194583231*^9}, {
   3.4408323058556147`*^9, 3.440832309435601*^9}, {3.44084042307714*^9, 
   3.4408404234207487`*^9}, {3.440907145192284*^9, 3.4409071775573053`*^9}, {
   3.440907553166774*^9, 3.440907569363228*^9}, {3.440907623742757*^9, 
   3.440907625140221*^9}, {3.440907750787221*^9, 3.440907752482176*^9}, 
   3.440908247767774*^9, {3.4409085597532454`*^9, 3.440908565287046*^9}, 
   3.440909046866537*^9, 3.44090918909452*^9, {3.4409094181060047`*^9, 
   3.4409094182815247`*^9}, {3.4409095303273373`*^9, 
   3.4409095357746696`*^9}, {3.4409099644880667`*^9, 3.440909966315406*^9}, 
   3.440910376267284*^9, {3.4409107317924633`*^9, 3.440910732678639*^9}, 
   3.4409109449830427`*^9, {3.4409111058816223`*^9, 3.440911106749332*^9}, 
   3.4409112204611473`*^9, 3.440911339591527*^9, 3.440911428824684*^9, {
   3.440911637738502*^9, 3.440911638778844*^9}, 3.440912022901803*^9, {
   3.440912207727064*^9, 3.440912208430613*^9}, {3.4409122512258387`*^9, 
   3.4409122788834476`*^9}, {3.440913375479993*^9, 3.440913377052876*^9}, 
   3.440915224798225*^9, {3.440918902416058*^9, 3.440918902629871*^9}, {
   3.4409199334653597`*^9, 3.440919937262743*^9}, {3.440920056528638*^9, 
   3.4409200629349813`*^9}, {3.4409212722831297`*^9, 
   3.4409213019809723`*^9}, {3.440921341182356*^9, 3.440921341668985*^9}, {
   3.4409224425296717`*^9, 3.44092244496288*^9}, {3.4409231397989883`*^9, 
   3.440923156983446*^9}, {3.440924334493032*^9, 3.4409243359295692`*^9}, {
   3.44092517298888*^9, 3.4409251734862423`*^9}, {3.440925813831859*^9, 
   3.4409258145389853`*^9}, {3.440927281205917*^9, 3.440927288027616*^9}, {
   3.440928562420518*^9, 3.4409285731066933`*^9}, {3.4409289452630987`*^9, 
   3.440928945594316*^9}, 3.440929242892076*^9, {3.440929559389353*^9, 
   3.440929571769121*^9}, {3.440929884557341*^9, 3.440929885241407*^9}, {
   3.440930322991521*^9, 3.44093032388727*^9}, {3.4409313765197783`*^9, 
   3.4409313766854477`*^9}, {3.440931908858786*^9, 3.440931912274253*^9}, {
   3.440932208165736*^9, 3.44093222089102*^9}, {3.4409326685093718`*^9, 
   3.4409326693728333`*^9}, {3.44093306620844*^9, 3.4409330669734373`*^9}, {
   3.4409336189671593`*^9, 3.440933619461121*^9}, {3.440934047232636*^9, 
   3.4409340531591988`*^9}, {3.4409347610094137`*^9, 3.440934768395623*^9}, {
   3.440939907901038*^9, 3.440939942686817*^9}, {3.4409399835512867`*^9, 
   3.4409399891746798`*^9}, {3.440940144001968*^9, 3.440940144977664*^9}, {
   3.4409403304885607`*^9, 3.44094033793978*^9}, {3.44094055297591*^9, 
   3.4409405531891413`*^9}, {3.4409406948799973`*^9, 3.440940696156687*^9}, {
   3.440940882385741*^9, 3.44094088288002*^9}, 3.440941194201391*^9, {
   3.44094144349338*^9, 3.44094144570918*^9}, {3.440941654550425*^9, 
   3.440941662229402*^9}, {3.440941780644814*^9, 3.440941780773079*^9}, {
   3.440941888421983*^9, 3.440941888636335*^9}, {3.440942017885086*^9, 
   3.440942022418281*^9}, {3.4409422086653852`*^9, 3.4409422148080463`*^9}, {
   3.440942419658125*^9, 3.440942426446149*^9}, {3.440942547608715*^9, 
   3.440942550544117*^9}, 3.440942688096797*^9, {3.440942842842547*^9, 
   3.4409428430087357`*^9}, {3.4409429775038147`*^9, 3.440942978481661*^9}, {
   3.440943106152787*^9, 3.440943107149851*^9}, {3.440943231282133*^9, 
   3.4409432377997093`*^9}, {3.440943343370748*^9, 3.4409433442342443`*^9}, {
   3.4409435471868258`*^9, 3.440943547833598*^9}, {3.440943650487074*^9, 
   3.440943651307344*^9}, {3.4409437886679373`*^9, 3.440943789727317*^9}, {
   3.440943954369143*^9, 3.440943957674076*^9}, {3.440944148444467*^9, 
   3.440944151476503*^9}, {3.44094422801952*^9, 3.44094422905479*^9}, {
   3.440944342799567*^9, 3.440944343123361*^9}, 3.440944429933837*^9, {
   3.440944546242352*^9, 3.440944552042816*^9}, {3.440944610942449*^9, 
   3.440944612666799*^9}, {3.440944685523115*^9, 3.440944686058153*^9}, {
   3.4409447544244337`*^9, 3.440944754767915*^9}, {3.440944845851164*^9, 
   3.440944848196705*^9}, {3.440944912461772*^9, 3.4409449136578913`*^9}, 
   3.440944984515894*^9, {3.440945055080386*^9, 3.440945059154009*^9}, {
   3.440945169307538*^9, 3.440945184046665*^9}, {3.44094523550694*^9, 
   3.440945236009592*^9}, 3.440945307674018*^9, {3.440945375466083*^9, 
   3.440945376274362*^9}, {3.440945437844462*^9, 3.4409454384362993`*^9}, {
   3.440945505523974*^9, 3.4409455114909477`*^9}, {3.4409455628068542`*^9, 
   3.440945563639908*^9}, {3.440945618351687*^9, 3.440945625643443*^9}, {
   3.4409460191780024`*^9, 3.440946021399156*^9}, {3.44094625035411*^9, 
   3.44094625598453*^9}, {3.440946439115449*^9, 3.440946447536706*^9}, {
   3.440948099895216*^9, 3.4409481271830997`*^9}, {3.440948837297954*^9, 
   3.440948837613347*^9}, 3.440949350688271*^9, {3.440950489579235*^9, 
   3.44095049063142*^9}, 3.440951015147161*^9, {3.440951480779653*^9, 
   3.440951482278911*^9}, {3.440951975134005*^9, 3.440951975649982*^9}, {
   3.440952253181665*^9, 3.44095226707635*^9}, 3.4409549749388847`*^9, {
   3.440996504061792*^9, 3.440996505004614*^9}, 3.4409983818462954`*^9, {
   3.441004621965727*^9, 3.441004622641376*^9}, {3.441007393622072*^9, 
   3.4410074085803003`*^9}, {3.4410080278927727`*^9, 3.441008030434578*^9}, 
   3.441010200333618*^9, {3.44101170940269*^9, 3.4410117102695713`*^9}, 
   3.441012837306617*^9, {3.441013846741473*^9, 3.441013847622764*^9}, 
   3.441014583916048*^9, {3.441015005793407*^9, 3.441015006028454*^9}, {
   3.441015323626739*^9, 3.441015326744307*^9}, {3.441016615009953*^9, 
   3.441016618449739*^9}, 3.441017759785121*^9, {3.4410179583050737`*^9, 
   3.441017959069236*^9}, 3.44101811812703*^9, {3.441018201542304*^9, 
   3.441018204079524*^9}, {3.4410185997167177`*^9, 3.4410186034408627`*^9}, {
   3.441018948099134*^9, 3.4410189483705482`*^9}, {3.4410191025901937`*^9, 
   3.441019104731723*^9}, {3.4410192298029337`*^9, 3.441019230202571*^9}, {
   3.4410226734174767`*^9, 3.441022683552211*^9}, 3.441023026183622*^9, {
   3.441030069280191*^9, 3.441030070628849*^9}, 3.441031827040421*^9, {
   3.441031896984304*^9, 3.4410319306791763`*^9}, 3.441032091441777*^9, {
   3.441032178181304*^9, 3.441032179098733*^9}, 3.441032304858975*^9, 
   3.441032386963067*^9, 3.441032905330524*^9, {3.441032935875977*^9, 
   3.4410329418945227`*^9}, 3.4410330805600157`*^9, {3.441033194080776*^9, 
   3.441033195344315*^9}, {3.4410332278791723`*^9, 3.441033249161148*^9}, {
   3.441033837699716*^9, 3.441033866336162*^9}, {3.441033963779009*^9, 
   3.4410339648939867`*^9}, 3.441034078790902*^9, {3.441034545326394*^9, 
   3.441034546059219*^9}, 3.441034582733103*^9, {3.441034682427507*^9, 
   3.441034705587297*^9}, {3.441034794779459*^9, 3.441034798478519*^9}, {
   3.441035352701309*^9, 3.441035357299436*^9}, {3.4410354342394333`*^9, 
   3.441035440100721*^9}, 3.441036355690316*^9, {3.441036415670377*^9, 
   3.4410364160358057`*^9}, 3.441037725717999*^9, {3.441085304018021*^9, 
   3.441085320843631*^9}, {3.4410853618535357`*^9, 3.4410853655162373`*^9}, {
   3.441085518224328*^9, 3.441085518485836*^9}, {3.441086105838336*^9, 
   3.4410861061000977`*^9}, {3.4410863027695932`*^9, 3.441086316213006*^9}, {
   3.441086402328533*^9, 3.441086418121985*^9}, {3.441086644372477*^9, 
   3.441086645018242*^9}, {3.441086999408255*^9, 3.441087005119079*^9}, {
   3.728472822011175*^9, 3.7284728257643914`*^9}, {3.7285349133349714`*^9, 
   3.7285349246723185`*^9}, {3.728535074859301*^9, 3.7285351443534355`*^9}, {
   3.728535193778981*^9, 3.728535194639188*^9}, 3.728535616230976*^9, 
   3.728538554566987*^9, 3.7285392038875804`*^9, {3.728539417621932*^9, 
   3.72853944303121*^9}, {3.728539492158229*^9, 3.7285395107756367`*^9}, {
   3.7285470891666594`*^9, 3.728547131008901*^9}, {3.7285471935220733`*^9, 
   3.728547234495304*^9}, {3.7285512089028234`*^9, 3.7285512603072686`*^9}, {
   3.72855129085433*^9, 3.728551291659278*^9}, {3.728551330986642*^9, 
   3.7285513391955223`*^9}, {3.728551404866458*^9, 3.7285514060917263`*^9}, {
   3.728551555286549*^9, 3.728551563004476*^9}, {3.7285516914290686`*^9, 
   3.7285517849655*^9}, {3.728551820819051*^9, 3.7285518535686803`*^9}, {
   3.72855189262118*^9, 3.7285519034632497`*^9}, {3.728551957731491*^9, 
   3.728552062031654*^9}, {3.728552253614727*^9, 3.728552254820014*^9}, {
   3.728552309806958*^9, 3.7285523108873024`*^9}, {3.728552354445943*^9, 
   3.728552360156331*^9}, {3.728552411584811*^9, 3.7285524370161*^9}, {
   3.7285528637964582`*^9, 3.728552896842569*^9}, {3.728553002986219*^9, 
   3.728553003864786*^9}, {3.72855338352632*^9, 3.7285533853441734`*^9}, {
   3.728553417388114*^9, 3.7285534723031816`*^9}, {3.728553527440812*^9, 
   3.7285535288207693`*^9}, {3.7285535900080547`*^9, 
   3.7285536197169724`*^9}, {3.7285536854923906`*^9, 
   3.7285536866657453`*^9}, {3.7285537300099564`*^9, 3.728553731148662*^9}, {
   3.7285537700161095`*^9, 3.7285537711101665`*^9}, {3.7285538341036367`*^9, 
   3.728553893194241*^9}, {3.7285552093638277`*^9, 3.7285552587864175`*^9}, {
   3.728555300358652*^9, 3.7285553529701586`*^9}, {3.728555404101031*^9, 
   3.728555405254345*^9}, 3.728555510062384*^9, {3.728555613500394*^9, 
   3.728555614648271*^9}, {3.7285556780067787`*^9, 3.7285556784474416`*^9}, {
   3.7285557284346533`*^9, 3.728555729507533*^9}, {3.7285580012705793`*^9, 
   3.7285580016647596`*^9}, {3.728558065853027*^9, 3.7285580663288684`*^9}, {
   3.7285581489936337`*^9, 3.728558163161347*^9}, 3.7285582633231153`*^9, {
   3.7285584455908957`*^9, 3.7285584460756683`*^9}, {3.728558548457099*^9, 
   3.728558549501811*^9}, {3.7285585821654944`*^9, 3.7285585833104057`*^9}, {
   3.728558626060732*^9, 3.7285586270704527`*^9}, {3.72855875592943*^9, 
   3.7285587596397657`*^9}, {3.7285589039976583`*^9, 
   3.7285589151688385`*^9}, {3.7285590438769503`*^9, 
   3.7285590851662483`*^9}, {3.7285591755430555`*^9, 3.728559186838088*^9}, {
   3.7285592599671803`*^9, 3.728559260325694*^9}, {3.7285592977721863`*^9, 
   3.72855929927701*^9}, {3.728559434719554*^9, 3.7285594595991926`*^9}, {
   3.728559527295236*^9, 3.728559528379007*^9}, {3.7285596161284*^9, 
   3.7285596172263317`*^9}, {3.728559802916152*^9, 3.7285598081563807`*^9}, 
   3.7285598975111604`*^9, {3.728560002042655*^9, 3.728560004359962*^9}, {
   3.72933106959278*^9, 3.729331070022953*^9}, {3.729331116850924*^9, 
   3.729331120876458*^9}, {3.7293313713676224`*^9, 3.7293313958738537`*^9}, {
   3.7293315050220423`*^9, 3.7293315062968483`*^9}, {3.729331609014065*^9, 
   3.729331658841589*^9}, {3.7293317491374993`*^9, 3.729331773266816*^9}, {
   3.729331829094395*^9, 3.729331862919915*^9}, {3.7293318971282187`*^9, 
   3.729331915516407*^9}, {3.7293320506378903`*^9, 3.729332052412283*^9}, {
   3.7293340101235433`*^9, 3.729334010630491*^9}, {3.729334045798092*^9, 
   3.7293340461020145`*^9}, {3.729334091723752*^9, 3.729334119371684*^9}, {
   3.729334163232913*^9, 3.7293341635983734`*^9}, {3.729334194537732*^9, 
   3.729334239629202*^9}, {3.7293342793554544`*^9, 3.729334410411455*^9}, {
   3.729334557281477*^9, 3.7293345637429247`*^9}, {3.729334601211804*^9, 
   3.72933462648796*^9}, {3.729334663979486*^9, 3.7293346643296204`*^9}, {
   3.729335673066291*^9, 3.729335754739402*^9}, {3.7293357946432366`*^9, 
   3.729335795221011*^9}, {3.7293358274164553`*^9, 3.7293358286640816`*^9}, {
   3.7324577626137733`*^9, 3.732457763854003*^9}, {3.7324578339037604`*^9, 
   3.73245786189216*^9}, {3.73245791368293*^9, 3.7324579154631433`*^9}, {
   3.73245852986228*^9, 3.732458582397168*^9}, 3.73245863235063*^9, {
   3.732459056390216*^9, 3.7324590824972577`*^9}, {3.7324591493425035`*^9, 
   3.732459149939453*^9}, {3.732459183376394*^9, 3.7324591838374996`*^9}, {
   3.7324593724848075`*^9, 3.7324593740367928`*^9}, {3.7324598021887627`*^9, 
   3.732459817506647*^9}, {3.7324598538758707`*^9, 3.7324598637136693`*^9}, {
   3.732459898801547*^9, 3.7324599349479094`*^9}, 3.732460008151903*^9, 
   3.732461108563092*^9, {3.7324613030024395`*^9, 3.73246130980919*^9}, 
   3.73246137703662*^9, {3.7325152989166307`*^9, 3.7325153207185965`*^9}, 
   3.732515906757944*^9}],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxF2nk4FdH7AHCkQiUiSfa0yZayhHvnvas9JVqUZCtFpYjsVNpEO1EqRIuQ
rCFDJZUlW2UL2dc7drL+zvT9fvvdP3g+z9x7ZuY973nnzPO8cnanzB15uLi4
nqE/5P8SNW5934VcwPX3M4jPBY3Mn13J+89bqjuyT63j++fEySNvN3sL/XPE
rGpGd7joP6d1NK6ffyT+z8khIXk35iT/ufDO5ez0q7L/HAVfnzbh8v+8pHnO
OKNP4Z+PTUafVxte/8+Zg5QSJ4VN/zxobxDH2rL5n99/Zmp+26r8zxeX0htW
2qn+//k6ai4HZqj9//jb+BNrvm35Z17fzM3z7eow//dD4KH5XTcoR7bC3H8t
xr161KdrK/z5r618vj584bYNev/rx2M+rJ/z2wD/nwX5ViSf1wDj/3nD3aaL
CzVBYO6/vz/3hDC6ownCU/8d/8srLmE5LVjE+Y+1w88C/ZUWJH/97/ftqYFu
WtpQZvsfa3373Wb6Vhu+GM/9tahusP5G3e0QajL910lNz4mh4u2wv3Xor9nn
SyNyLXSAK/z7X0d9/GqvUqsDeyKu/jVn0RfVmAO6IKGdMUfa+Mh6ZaGHujBc
1ThL+nnRBcWARl0oZHjOkF647vcGjqQeGN9fP0Xa7iJ1nbW1HqS7mI+T5qIv
O7szUA8GgwxHSEfPN3xkxOnBkQhjgrTLoQ8u79L1QLiktp+0zruXolqf9GBT
1JJe0vySt/Ne/9SDus8/OknXens5KPboQWm9YhtpUDyh3TWE/FnuN+lndYeX
Pp3Sg3mboSbSglctWg4voMCl6shG0h7aBulSSymw3Ee8nvSvLt0r9aIUqHU/
/pM0M0L1YIQUBfhjrteQFhkX4xVWpcD3/K3lpL3jBWrLtChwQCj1K+lWi7nE
a0CBz0bEJ9LhSpMre5gUmNk19pG0Ie9wgL4hBbore96Tfp3WsZvXnALJjvfy
STuENL+z20OBFaOmeaTF7es2FFpRwNV3+C3pgBVl0372FGj4PJNOesfp9LgJ
dwrY1HC/JD0pVbZniRcFpHK3PyMd87WDX8aPAplNVk9Jj65d5coOpsDFestH
pB9VqK61ukqBtzIqD0jr+xn8OBFKgUM+/RF/8+GHl969exRQnFl16288Ltwm
nkdSwGznhVDSA6qJsXnRFDgjXnn1b/yvNvK1x1OgMlvwPOlOXey7eiYFej/8
diV9s3vvFXYOBTooFBfS2++56lrlU2Dg/ZmjpK9zYmKCPlFgfNVRa9KaD3Is
7n2lQP+htftIN+tXL35RToG56HRz0uoxvCcrflDAyXGnPulGUym59noKLJjZ
SyMdPKVRM9FEAccEFd2/+bL7qI5MFwUs0ugqf+O56OuikxNovhJrhElvTGt9
GzRNgTUMBQHSVTbTLvfmKXCWuY2H9Pq3StV5i6lwSeDM0BxyhSPrUsUSKuh+
e95N2mvFoe3ty6nw6HFEM+lS5xuPl4hTIcz6bilpD/Hn5jKSVFC5Gf2etExR
wcKtslTo3mOZTfqM9LCz1UYqNMp9iiUtXmmh/UKbCuanrd1Iv/c70ZenR4Wq
5OtHSDsrXnpUAVRg55rvJ51/IYt30oAKjor3KKSd1CqylphSoUZVQJW08K/u
4zK7qLDAYLEsaQdNiUr2fipI+VzlIi3Ypn7RypoKWpnDxCxy1g1jrZO2VDho
/bWJtECPb/S9Y1To2PQth/TrB83H2r2o0BmS4kxa3EgywsyfCvWnvS1IB0zu
+5hzngp+QZ56pHdYVknfCqEC959eftIZC5abzNxA8VxmTswgS74x9jp6lwof
H5dWk+4TLKqmRFOBf1l9JGnzd9zcL2Ko8GrUyod0jjNVRTSBCvMnSg6QvvI5
60pvMhXyt+xeTXr9+ZeUiAIqtJVuDZ5GDlPrOs5TRIVDjLKDpMea1t4/8YUK
W8bm1Ul/1I0eZlRRweHHfP0UslJvnUzKDxQv2bRXpO/cFzOVaKBCcXmJL2m7
sRvPBtuoYHZ8ZBXpr3GlNQe6qeD1q631D/IWc36e4n4q9GfNJJLmSjl/MHqM
Ck2P7LVJRzudFTZajMG65Qu0J5F5V72hZizBQINPe3iCrIdFHGdZIQzenJl4
QVpH3unTuDgGEr/LhEjHVjwdsZXCwGBkW8E4WR8DfsuWyWEQwPnmQrq2wcon
ThED5yrs3Ri5Pq9FPBdUxYBC+32Y9DPtmu9eWzF4fsOMm7THPVO1nXoYhEbK
aI+Szw8z6JgxxWD+jLz3MLLvrO8KJ3MMyh4Vc5FuS3yLVe/BwGWz+oUh5Dd8
W6Ne2GBQbvLWexB5ddapYlEHDIxnzhMEcqDjq9EAJwxslFxsSJu9X2e25zQG
YyOOKhzkTFc738KzGNimPgwdQJaWefxCyRuDxwLUrn7kfh9x3gUXMDi9ae5K
H/I1jSVvU+5i8L40KbAbuab4HbYoEoPr15xTu8j1ZeX66WA0BpoTEg2dyOn+
36v5EzCQvLlTvAN5TuiK1eGXGDyl7trcTtbnOJ3fmckY+JzT1mxDbip+zLHP
wmDl9C3132R9sDI/m5OLwal6p7UtyG79vDNCBRgoGBECzch8wsf58z9jEMat
ktuIvNVqm4J4PQYW6rz3fyL793e+PNmEgT6nSP0H8mf/yC1FrRhEDtoW1iAf
ipujnunDQORtQHYl+XzVSC36TGCwZ4m8bAXySLG9icwoBs+ON3uVk/ne/3l/
6QwG0d3Z3CXIx3CK6y0ugJNm31S+kPnOF5GWxwMgxTNmXIxcF2WoI7IYIH3/
RosPyCfxZP2C5QAeDQtCcsj85uML6RMG2Csho5CNnL3LtlxMFICWFvosA3lB
u4jlCXGAwpgbLq/JeCifuH9fAqDJKvlVErm+PT41fJAE8MpuqHmJfJ/Py05C
DkBBQL7+KfK7XVXxrLUATw8HZ8SQz8uozT2u6wCmvUPOPkJWVm46VbwJQNAp
5XEEWe92Mfzc1QHWuJ0MuILcFfWw4PE2gO+tmP1F5KXtYwtKNAEUry5YG4i8
1+P5NTldAB0r9S2eZL7i3OUmFICVFZ2+Z8j1wndA+BwGMNp2OuIEmU9Ry+6X
MwCqz7ga2iOvaD/S8IcF4CkR22SNrKVcIL3OAID75hPmPuTz+Jl4HxMAn40J
vibIq9p/vtloCeC3LNBFnYxXREGUyl4AoR+LajYj7zN+cX7bfoBVfiML15Hx
eONtDtYAKec5hWLI2kfsddg2AFm2xgbLyfW62kTexBbFQ/3lrcVkPQ2SGt7r
CHDwh6HjxBwaf9uieuujAMphRn0c5H3dnEL7YwDeYqWbO5EjzQpunToB8Fu8
LL8aWULafsvlsyhePPwbEpFzKo1Xh3qi+dXgqD5Btgrexn3HCyBcsrv5LvKD
/oWVj/wARJZ93uSHrPeEk/00AOBrI/7OFblx988nL4MA3Jdx+u2RJXOfu2YG
A8RrlS43RM47eWtf3mUA8Y6HMzrIB+W94f1VgGjvNg8l5OirxkLloQBvwuJ5
BZGl93FSOu4BSKQPriiZRc+vJT8j+iIAZOKMprKRD+F4wFAkgKxZ4JYE5Mfr
b5nNRgOsSE0q9keGei+tBU8A3n/VkDuO3BJqJ8Mfi+7XQKzaAll2bCshmoDu
N+y34kbkgueSPyWeAwQLlhYJIR8+uBCXfQnAvC8QNzmD9ksffoQpJQMs3rt2
6Sdk+dteKsxMgMC9Qy17kN+z7MSMslG+TG2o1Ua2+2M0Z5aDXBZZvxo57rBk
+YF8AM3aRy2102i/JLow07YAQFtJrToTub14IProe4BGybHkO8gKqvgJt08o
vm5YiyHyx9Znll6f0fyqdc7LIzuE36QEfAXYbibfNjVF4E9nbZeFlKP41R4t
S0BeV8qbFPsD4EGi7hLOH3Q8cH5XTS26HqXs+ixkBY2p8YUN6HwVy8oCkOUf
EXCsGUAlVOAnP3KMeW9H1G8Ax0KbkpJJFK/FHddK2wDW1jY9CEGWdq2vUe0G
4ERln+dFjlb47mXbi34/XX3q3QSa/7pv0nf6AfRUbnS6Ia+hFzmNDwIsrXVe
WTeO8lf09UzeH4Azq7yVAscIPOLzyxjONMB9u2S6PLKYXzxbdg5A0vOlVOEo
et50Rt28wEMD1ejJ16MjqB5F3dPI4KVB8dLfyleRV5jdrO9cRIPzcs8mVyML
ZwcrGC2hwTb5bSOqw2h/6RL4xWcZDbSTd/9KHyJwITmfk0nLaaCC9V3VQBa8
5potJEqDiHueNzYNov3MwQMmPyVpYJ6zMPvnAIFfFdozxCdDA3nT0s2ayHxF
O8N15GhAVZm6EdZP4ItU2C3R62jQvsE6QqkP7S9bIfjbBhqc3WnhdKYXPb8j
dBW5FWnwp9+3MrUH1UuuLe4OKjTQPXkrVLIb1Y/0zavD1WjAjnR21u8icJ5j
6/OL1WlwmXfDxPFOtD+oWsO3WYsGj53NRR60E/hM3KKHQxgN9h5/nBDRQuA+
+7hpa+k0WFrvYxLYTOBTS2c6LJjoerSddtg0of3/2SHVbAMaxOn68c43ELin
Yn9NjxENbiXYz+fXE/h4U6fXGlMaWJc/b3OrQ/sf/cYP/rtooBCV+ijrB4G7
z/xwer2bBhnPr67Q/47eF15XLmu1pEFV6ef6L9UEPry6eC/LigYSulOpzyrQ
+2Ffat8SexrwuAYFZ30h8G4BPQ1xRxq8OFt6eKwY1fdNn/wVjtLASGHjd4VP
BP7jaL0wxZkGmeFOz/a8R/vnSw4HDE/QgOFQzr+vAO2f4jlPLU/RQPbQEkHD
fFQP2ni0T7rR4LvNg+qJt6j+8YQGeZ+lwa+9re7pWWi/Ibeq5JInDWxLX3ke
yiDwBJvNhx77oPlKtDvo+ZrAbzTsvlhxgQanij+qxsej/cLUr7LGYBQv+jG3
7FgCv7jaaVXPZRpk32qqSntM4Of2+r7kvk4Dnf5jTTaRaD/usWh0WRgN+jUP
jwuGo/3YvZsUiZs0OJgSxB13G9WP6qcV6ndpkHRWyccjBNXTYRUJLJwGfJYj
a9IvE7iF8Ft74/s0cLWdEqm+QOAGZmXj9g9RfrfGrkr1IXC1kjHJe09R/lys
nfh2jMAVewOOxCTQwPtBjsi0A1q//AKvk57TYM9cosOcDVpP+tKMT69oIO5W
0BdsidbDkefXq5JpIDwk6s2/Ez0Pg9V/NL1G8Uwzdz9sRODcH9jHJtJp0Ow/
KHGBivLpd8WbBVk0KMmcbzXWRvnAdWBm+VsUb6MS09YtBN5LPXVj4zsa/Gxe
8PG0Anr/yYnI2F9EA6uVF2/0L0LvM3Vy847FNDhTICYxOsfBP00mGpz5QoPb
qXanc8c5eI5mQcO1MhpwLB0eBXVw8HRLo3UR32jwqj7koG8jB092rzkZV0mD
RzxFWSrVHDz2TTd33ncamN6VC0zFOfjDyjPGn3/SIEvjZlJQBgcPH5y5W1NH
A7l2f32uRA5+TUV448AvGiz+XZ0yd5eDu73cvkO6kwZ31gTuzHTg4Idy/Zmy
3TT4YHVqdHgvBzcq/aAj34vydYnrzlIjDi7PMd2wnkMDz16hj4aqHFxw/rbU
xkEaLKspmu2S5eB/lteKKA6jeqN9buuqFRy8Yosdl8o4DVq1BdZLjgzgefRn
46qTNOhgvL7Q1zqAP9/d379ligarqHHSWNUAHnDWo05jjgbzkwURjikDuMrb
a28oi+ggxFmT7GE/gEt8/fYc46OD03NGhYzZAL6wQfQxTYAOWG3dTVWdAbxx
5lEIS5AOMyoX6k8LDuAhkOZgKkYH1y2WvYtS+nGPXZNWZuJ02C93sPT4vX7c
zo6ya5cEOm526pOwTz+uc7GYYilNBz+PwUNizH68u7hBzHo9HWo+aDw/W9qH
19TKLrPZSAdKz6D0yVd9eEGP4wJbRTq0Hrpx/UJIHx6xZJBwUKHD6FOR/CF2
H8424/3iokmHOK2uYs6bXlz9sCF+UpsOSkYzdh4hvbjU6bAMVx06fE9vdB20
68VHb4vHulPpYK1ouyVesBeP+6Hk48tGx18pZ7nv68HDuk6f9jegQ+b3NsrI
hh7cezLzaKARHXYyNDZrj3fj5hI0i4s76JCSeCiO60Y3znXIUvn6HhQP5i51
ntQuvP9k1NqwfXQIX13su8mjC68NaF5904oOv9/sUB7a3oWnxBxbdPcQHSY3
9b2xeNeJH+rwa35whA5qSZ1FQmkd+MaJmttfnOhQsG8npfxIBz7Cp8SeOE6H
J3zZVqXiHfgVpfpX5qfoEHYk95efZzue5qbpzX+ODoPN4vGnZdpw/+BQZS1v
Ohyuv/9m4GMrbhDR3uLgS4fybZ59UU6teFPObf2CQDrwuJxfcfXlb5yPhxD1
vEoHrRKTIxXiLXiVCPvz0xA6iAYMpt63acaj10X7VIXSYfyS4yOpq024uqFx
q/JtOgw3HXleW9mIH7z5LKU9ig4Cp54EV+jW4anSh43MX9FBcLBh64ILlbiv
WtZsQDIdKvo7t/sFVuBsumBq0mv0fZ2fx69NlOONjnmr+DPoQCU2uTnUfsUX
JaGbfEcH6e1LHUKPv8etdCsDlL/R4fX5NoszLUE47z56Bt8wHfz9hRpKzlVg
RjUblwmP0uH2+1OV2scrsRs7lzuuHqdDdsk7+ef7qzAJw0ZRxSk6FFWPrdFQ
r8HUdDzcjXkYoFQRuhgv/ol5ZB4s3c3LgKoct71DCbVYrjpD4eAiBhjFro0L
vlCHsTcL1bgIMKDkuL7lrW0N2EHJl1vDVjDAg+u+63X3Jiz2/s2QcFEGTNxy
Vduv14x1iXq2PRJjwCG1ycL9XC3YmWXMOykSDJD/YHRDrKAFuzL3a7hCngHF
Azquv5VasYwW4TciWxkwXDfLVMttx6YOTvJLajAgKzVBa3JhBwZ1TbYKWgx4
ufLEDi2zDqy0MlFYQ5cB7pwhlXW/OrDW96zTexgM0KyqyRHv6sQ2YkpfDrEY
EC4nNkWs68JO5K6QO6rPAOxj08A++y5sMq25wtOYAZ+JgyuH6rowwXgvtcjd
DNjz5Xh+bmY3ZiF3+EqMJQMK3F0ePOntxiKj2S0v9jLgzp36SxSpHkwhXORm
zgEGTB+BbRn+PZjO5SSiwZ4Blx7sy9De2osFLrir3+6Izn89dsrLuhcrCvB+
3H+UASINy3KfXOrFdp7TN5t1ZkCdZ6BL5vde7Mix38nS7gzwc1ebNXbqw651
1n0w92BAJRGl7BTah6XYV9VeOofiZfRm1CW1D5u0/sBD+DKgcIO/ptF4HybZ
kLtqbQADTJSPhKuu6sdo+9KV9gYxQOWllOUqrX7smnn8HjyYAV3uYmaL3fux
5G/RziOXGUBc85SUvNWPVZuEB264xgCL7XHHTZL6MUn9yy9vhDGAU+giLN7W
jyXpHpuziUDxWPjDfwFrAKvKthW5G8mAB5qrXzw8MICNa1ht/PyAAdUC1/Iv
nR7AqGrG5mpPGFD7NFI18MEAZpfEOOoQy4CTjbmqQSkD2GVFPd/7TxnQo2We
2PJ+AKtQUE7geoHyq63MsaxrABuNWZe7LZEB599X3bT/M4CtlpGucEpigPGG
puXHBTiY3erlUxWpDNi0HRprFTnY6LIh05gcBlzY+cEs2ZGDiYf02H3PY4Ct
cJa9thsHo/C1evLjDGj2qRA1D+Rgl3iqY05/YADDzZVOj+RgLwNKMuOLGDB7
yjdIJp6DfZv5UFJXzIDrukvbIl+j8SbSx2il6HzSHaY+nziYnnuSgAd6If0V
JMhpr+BgtkPxMi8rGDCuFRo1UY/G6ws3XPGdAeUvQqflOej7LeeiW38xAF+9
8X2dEIEdtj79RqyFAa+e/dKtESew4PpjxUatDGA2994OkSWw8hqroTedDFiQ
Enx0uyqBDe/avairmwECqw14tmkS2KpvxmvW9KH8ot3LGNFD433RY10gGGB9
6wvxxZDALrI1rLKGGPCJuLuy3YzAXnxQPtU3gq6/3/f2V0s03jvpyN2TaP4M
2kq4bAnswhuugbXcTDh/SOY64yyByUddSVBfwISLGE/zQy8Cex8kdJi2kAkV
45avqv0IjGuXbPUhfiZESfpN/AomsCfaz6+fWMIEF3/nwLSrBIbJqrF9lzGh
ysc56ngogfkT2NtIYSbgPZWUoLsEJv2z+MxzESZwGvtutUYQ2Lt8M6WslUx4
ZtazdNMDApsJtXlcs5oJZ+7J5jnFEJi3UkDwcnkmGNWV2H1+RWASoosxaQUm
zI7IRB9NQYNPh00qrWfCXRcf+cFUApv8+sjZSJEJ8ZK3iI+ZBBbxZv26/UpM
2BNr5LfiLYFpRiU3HVVhgveUzRPTXAI7eyx/V7A6E1yvVf4JwwlMdBd7yd1t
TAgv8TcNLySwdO3yj7GaTPiW7HQ69AOK3+ImrQIdJtA9lbeYFhOYa8Ks1DSd
CWnDgd9kyglMKCz4Jz+LCaJt0gvTvhFYytllt8T1mcA9suDV9koC4zCleDWN
mdBb4V4jX0NgoUrx75imTKBmlgld+k5gSqLKnrvNmFCcwN7W9IPAnNv0el13
M+FasgLmUkdgAiUf4wIsmWCWzbsnrp7AXr4xsQ7by4QNzxKfVTQQWHfQwYrE
A0xYr5Wtu7yJwI7I+mZ22jMhKH7THoVWAlvEx+s65siER6xTl1a2EVg8EbKJ
1wndL3+x6jxye/6Dh3IuTHCzDGnO60D5kbB2j9pJJmS2X9p/qxPlR1jicswV
eWPNVpsuArO1zj1/0J0Je98y67u6UX6wGHrOHkyQ/S0jENeD8kOpZMzrHBNk
xn/Z7uslsKbpeqcIX3T8hRjlTR+BHYya2lF1EcXTcUxCgUNgA26UjB+XUHyO
WgSlIvubBq5puMKEUeev13UINB7Xou6260zYbRokA4MEtqXeYEd3GBPydJf1
5iG/TwtJ77/JhKIfli3ofRJrPyIcNHaXCe0Jxl8lh9F8g0XXn3AmLJ9ynLyG
vEgiwnTuPhOk8PXFY8gbyyQlFkczwWClw+vCEQJz2boxTTwerY/zx+w0xghs
dqnzaqlnTPATOGMaghzWmRQg9wKd/1jwvSbk15FbTRSTUD6dtpbzGycwmpvH
G5UUJnjJdp79jFxl8lZ8ayoTznmYeQhPENjoPLVDN4MJyhmnPj1EDq4LMoYs
tF7wYzrNyGJpH1OZb1H+B1bFykwSmPYRI3/Td0zIKWu6HYXsW2q5yqaICVNq
qx95/yGwZQn3/eyLmfDTavpoMvKjgIa2o1/Q79+KPmxBLlC3fe1axoQrwjvc
YYrAdi19Knb2G7r/T1xqJ5FbOzp9vSrR/AyuCo5C5o10MTz/nQkXuhesJ5Dv
nUlJufQTzdcyxUurpglsvcnwypA6Jjgzd9ymIhvMe7be+cWEhelihVeQrzte
8InvYEKYYVfD8hkCk8I+/X7RxYT8ECkRVeRkcX6D5B4m3EpMsjBFrigJE80a
YMIPm5SVl5Ft4yu9cwkmzG9qiotFHvYX/Y0PMeGGZMf+d8ii6lFJn8eYkFy4
Yd8gcvySXyJlE0xQ1ZNN4ptF671DxrvyDxOMd5xkyCLvux/Prp9lAs+PJcam
yA/mXjf3LWSBnEntgcfIAnULF0jysSDWzetzGrJ3mtV6EwEWlOfMBhYjWznx
nnglyAIz93Mz/chf6ftvNgqx4I/d5Nc5ZB2p5LSlIiw4uHcXt9AcqldVe6dc
VrGgytM6Rw352qtXUtGrWVBZOM0G5KlL3LSyNSxwVzYxM0Ou1028rCzLgv0r
v7c7I0fFz4lyNrIgYndl+GNkgcDd2tKbWXBMO+JsIrK31fMDO5RZ8NHYh8hE
tlpuHpu8hQXZeVcKS5G/9iQUNW1lwXHbUKmfyDofp7sFNVkw5VMp/Bt5tVe8
6ikdFhjt6p8ZQb6ye8r8sR4L6h5E/plBnlQ28/hGZUHGZ6cXC+cJrLZ1Mk+V
wYIe23ElMeT7JiZGg8Ys8NilwrcNmW9DzAnZHSywKljYpoN8jnv85s6dLHBb
9ewCDXlf5uOfry1YsJcxLbUD+fPN0amWPSwYubh3jQWytrOhtPB+FoSNVHbs
RxaXHXE4bc0CQ6PkbgfkK1P6V2JsWJBjqqxwHHmy5mFipS0LLlrdUT1FXt9V
9vCWIyy4mUrknkOOGIkMGD7Jgqa9uTNXkReVc2LlT7MgfZfjcCiyx3PGJ3M3
FsDlXZ9uIe+xHlia5smC/IUXl0Uif9Kiq7V5sYA9N3H+IbLmiojdIr4sSGQK
NDxGFiuGKLdAFN/TQ5oJyJdi7r2LO88C7dQYvRfI4z69LdUXWZD39NnGV8g/
1O5u2HaVBUtWLM5KRQ6P6kofvcUCmymf3FzkoOYS3/k7LOgTX9D8DtlF4TVT
IJwFvnHHhnBkevK5GpkoFgSs5O/4gKw8cvCh4kMWbJsyKy4i46VNc9B4xIKW
C7ejipEHCvlHjWLR/IqMriwh47OIk2v5lAXX+WbzS5HfG1ddOJyArrfgu1U5
OZ/fo0Q8XrIgmhXtUonM7Nm8NeYNCwo7YMFPZFUVoenEdBbIb4wxrUWWcBt9
n5nJgrNGBaF1yMRMnnlpDguqu90GG5DraTESP/NQ/EX9V/xC/ngpuPV3Pgv8
cx4rNiFHCe04M/GeBTpatdCCHGyprsNTxILih/7Yb2TXKDGeZcXo92Lqmq3I
bIXmW/IlLGhcU7S0HXlIyzXVtJoFyVrg2IXc6Gvhte87C8qGeDd3k/NXqE2z
/8mCCyrPe0k/NOauPNfAAtlWk329yJdvdty/8AvFRydxUR/yme9fDoc1s2Dn
eEwKaQOb24NxbSwQmZ8f6kfe+tQjO7mDBatls0IGkKV7rALfdrHAxCVBloM8
cmat0Lc+FlgXnNQlkB9dSledGkHx83mmN4R8teT+BO84Czbtk0gj7S7khy+f
RPXmTuO6YWSjKJbZuhm0Ph4Xc40gazRvWqU2x4I0HsVjpGUVBJt1uNhwaWpH
OemxpB8nd/KywSnf4MYocstwjuaBRWzo0TbrI/1V6/GcIx8bfqf5MMeQnxQe
DfNZyobrrCcc0ibfJ5MSRNkwnWetMEHm8xpC/ZcYGwba4k+TbjnckSWymg0b
uXtzSbv1VxYGSrHha+iUwSSynvpndpYMG4hLIyGkF53LLxmQY8NKkxelpKMW
JH63Ws+GI0EP9P8gOxjGWN3ayAbPLXNBpFVuRDQXK7LBW/t4DulCiYs921TZ
cHEkdt0UcvcW61lBbTYIcu3uIv3Gc/d5lg46v2WhyDSy7zvDxb56bODhpFJJ
LzfUFO4BNsz7Gt8kXRumFC7DYEMSz9Is0rE18mv2sNhw9LFZI2nNw8vXfTBk
A1fxiPwMMlfCwpd/jNngvM2PSfpr37SK2g42ZDm1O5A+5NmtHW3OhgoX91jS
wWGFJp4H2GAj+ER4FnlHTVZlkjUb9F/LbCYtLpG8p92GDQEWHxmkX8VHHd7l
gK5nNvIMaY++mx2Xj7ChcbT2CmnYcvl4vhMbjGv3PSJdk+fmvvkEGxR3bCsm
/Yjn+B/bU2xwz3xQT9rJ4LD//dNs4K+2GCA9XW1yZaEHGw6PpQvNIcv3rXvY
7I/OdzN0J+l+NUk5sSA2OA6q2ZDO9FiRYHKBDac27TlB2pBnPuXtZTZ8Oat1
hfQKg7Ftg1fZoFU0fZd0Y2jf2/XX2dDsZB5D2nV17Yc7N9mg5lxE9kdgOjbl
Bl9vs+FkSfcH0rzxH8u47rHhY/CrctIRaqk/T0SywTRUro10vv61Pv1YdP6O
icXzyN4BulLuT9mwR0dHiLRGVv+OJwls2M3WFCf9ar3Zm8mXbOiXctxA+ugh
rnaFJDa8839I9otg8uGpK3eloPi/D9cgHblQ1OtFGhs+qTfSSVtQil5+z2CD
x47NhqSFzno0cmez4cpmlhnpS+21mFUeG/K1W6xIu3+IXrSkCOUf+/cp0mrT
O7S1itlgeT/dnXSfOtdx+y8on6RsvEjbxdqV5Zax4RlNm+yvwaTqRea7vrEh
6ozTJdK1wkVqolVs6B51v0baLGjDXZcfbLj9bcNt0gJva4vu17Ih27fiHulP
g1cnPtaj8ddZRZLWO9xvJdWM7i9a9AlpRSxVrryLDfFHaa9Id3rY7Z7qYcNW
v2UppGOSRYLX97PhxGxhKmlxaY9u/0E2cHZ0ZZKuttwgkTjMhnP39pP9S1hY
aK3xz1G0vrZk5ZJeOKuTovoHrS8+rQLSBdv6Ww6grcvSkj1kfxTm6xK94sos
yo9jDmT/FDbcMH+2hVsf+D4bfybdkvNR75aAPhAaB76R3qu44UmPoD5kFYRU
kS6PvLqALqIPkrsufyfN5O8/ErVKHzoddtWSzj234+vwGn3w0xgg+78w9e7X
ysay+hCdZ/2L9PO9IrfiFPRhwdv4ZtLhmrV7LZT1gXGigOw3w07h9a9PaejD
ptVrukgbGPziD6HoQ9w5od6/+VLZbJfA0ocVRa/IfjZsen9rbqGpPlCvT3FI
Jzt3nZi01oePr78Mkz7s1y+jelIfHCrfjZH++GT8wsMwfTAXqvpDetNHrm7+
FH0wtNQn++2wivWW5gfH9GGl4XuyPw87d/VFXrKuARxUDCf79zA/3b5sSz8D
4BWo/+vzA0oZM/kGcOLI8F/n/Co12D9vALEL//YHYsNlLo0ZmCFwlP/2D2J8
9SYrrgUbwmn7v/2FmHSnksGhEkNwLfmPb9Omll9eagTcA//xwujinymmRqDw
5z+mXr4d6RJuBOWz/7HHaesDm5qN/tf/iP0fYjxpIQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$3377#1"]& ]}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwc2Hc8lV0cAHB7liS77L3XxV08v5IRWWVEkpRRUkRmpKJBSkUUaRCFSlZp
uJKMlkqKUMom914jhOo95/3L5/t53Oc55/zGOc+j5L9/UwAXBwfHIQEODvz3
lSGn7SFeDqCuqej594/FcHveIr6kxgEbN5SYVHOwGV/dM37E23CAhsZOn62c
bEbwiGf5YiAHrLx4Wn8aeSpOITH+BAf4PxzZncDFZhxaPuywWMwB3ZbCLQvI
vNfuysS3cIDZ8/ClEG4244xx1PDCCAfkKudVvUeWfmFRHSfICTqdqjm6PGzG
DU/eYwtanJDo2WWXgKwz9tolzp4TlIM++DciVx3KlF/YwwlK8acPcfGyGZYr
fH7GpnFC0goODTJyy3WVR79LOeE516OJAGRX0viJ2NecsJc97XEa+UtThfvv
n5yQkFbWX4q8yytOJXY5FyzNM1a8QGaOr52c1+OC/docmzqRoxMFGTFOXBBM
dlwzhMyx8v3p+X1csPDkTjcTObUgxzvmLBdY6QfNTyGLm/lpzt/jgp9kyU/Y
+S0as9HvuKBUtrkd/7/mVtbzOTYX1C8t3ziMfH+i5lz0Sm5IcFLI6kGmJiVu
nzPihgaFEY425EYxG73oTdxwIl69tw7Z6ebyxdkD3ODacCSiDLnTvKMl6gI3
1PMUCOYg+7/MuzhbyQ2Cvo7fjyCP++zaFfWRG+Kcosh7kP8emf53UIIHzonc
sjdHPin++M0vUx74xhexfw3yyuKjuQc9eKAoL3yYA1n19Urzg9k84Lxuw+EW
tP4Okob7ImV4oSwrzN8D+eOtOdoMhRcyWN0bqci+NIZgpDcvqPpb5cgjH/Bz
uhmRywtKqmsLR1C8c0r29hyQ44NdpkcckpGVLUglUxZ8kDM/JxSKXNq2GH3A
lw90Hk9leiDXzaSuOnCVD3qseKR0ke1ObPo+yeCD1x0kMWnk9zKy98L7+IBR
6fiVB3nA8rZ9uBI/SHJLfOtD+bfvfZj05Fp+cJOPFn6HPLeTPBTmzw9OZ7zm
GchCp5qPhBXwAznw2+x15MzVZ53Zz/mBKOqeu4Asf9dDLmyAH8yvUXOOIxu1
Dz7cryYAsUVf0kORSyLeeJbaCUCOw5EOP2Rl8erZoRABOKEyWuCGLO6eTPKt
EIDhAy13Kcinf4W0X+oQgFOk1Cs6uD4ubj7QMS8AhcMBv+SQZz8pl28kBKHF
svoLNx5/tJDzSX9BCN4oHDCH6m1YamrieYogbL1stWkcuXPLMx3aa0EI11N0
+oj86Mv2Yi0vITgT35VZgmwcb2sTcEgIwlhkjuvIpasNBq9dFYKaI2512ch5
Pn+VpYeEYORlq9ZxZIk/g882CwpDH8flDwnIZ6688TurKwx/3kq+OIh8+Gte
Pl+EMGyVOxQUiDyfmGyx7qIw1B704NuOHKawtyehVhjit9QNeSL7+9Fkf/0T
BrG5ewH2yOt/dGX1n14G3jl0A2PkJ0efkRTKl4ECd8YdXWRTldvt3u3LoPXe
Kz8NZPVdMSs/yCyHWA9OPznkfB6/8uUWy8GjUfi2NLLUTVvnDX7LobNdQUkc
WWBIMr2+aDl8FmzOEUZOOv5XZ6l1OVS55mbxI/9WH3ppPrEcBGcXH3MjjwVV
C9wzEQGtre8PL6F+t1PgSvGYhwjcb20W/Y3ccyvZRj1OBBia+5p+Ib8Z3Zx8
pV4EHjW9ymUh26TSVLr6RcAxM6v2J3KdtkqDOP8KcOQlzY8il4dM/UtzXAE/
Xvh+HEDWXPYlvzlsBUhzm4T9QL5e9syCO3MFnHUL0epDPj+RER/3ZQXEPeti
dyMLn4mRrfmzAmaOHv/ThbxOqrwnRlQUnKnJqp3IicMqZZLKonBKe3XAJ+RH
D7Ljq0xE4ebOnLqPyLMnhB02WYtCTLqjYTuy8ZbDsmwPUQiryKh9j1w6H1ir
EycKu1/oibbh8a/xuJOfKgqxK/+y3yB/AOvrK3NFIfBU8eBr5KFdpKzkUlHY
ZaX78xXywkmVU3OPReHTV0EebJE7Ygl7XosCM7Re9yWy0nvO8N4eUVDb9SGg
FZn0i73LZUIUniQ33m1BtpPp2/L8jyhQ38vxY/tYtG00E1kJQ9FB+5qRw3bU
wW35lWDXoDvQhJyccoe0xmAlFHEvBmFn387TPEushKQTO36/QC55k7aGy2Ul
iCZNZmPXTcaJHvRbCS9mLKywP0js4RkJWwkN5d0LjXg+FK957yMrwcdoRx32
wja7n2/OrYSLmYHp2CJHzfvgxkq4cSIlCFu5SP1jZcVK8DL12oht+lKiRf35
SnhKSqRh2zF5nlxqXwlR0edJ2D5iM/eWDawEZ7KpOXaYWX/B4ZmVwCdeaIWd
7P0he4pHDHh6ZbyxcxKfpQVIiIE1+XcMdumN8sOdamIgXPH1KnZd09UIBzMx
aB0Peov9YexMUJ2NGHy9ZMKD5zckkrjVyFMM3I98B+wF41DnwiAxyD8olowt
4uljJRUjBk4ewW+wleIdzFNPisH3ZcfX4PUkXaXq/MkRg72pK8Kx7Z5rKYTd
FoOAF7dfYocJC/B7vBSDx96303B86nIbPyktWwUOvDQaju8HRuXLzDWrQMLh
9l3sof4bdfx6q6CnMkIV58Ny3SNFE46rwO77RwmcLz5PLKJqz64Ck9D7gjjf
wvp09+heWwUPPX6dwE7mWeN7tXwVWFNX8L3F67FxwTrl/SqQfZ3OgfN1oadG
wnWVOHQkhg69w/PjLBJsVBGHAx9XbsX5raSW9ceMJA77llHeYNuFRgyucRcH
p8DFWx/w88/5d50NEIcI0RViuD7Cql3fcEWJw2jNxWjs7D8G1SMXxaHXhMMc
1xP5/qyIYLE4zG+8ewa7c9fTYK0H4uDOyf0DO0Y6uWFDszic9Wo07ECWfm2/
Zs9ncXgwXhmH/fDwyqjUYXGYYxcysL1MOttK5sTh+pD/P+yFoXytV/wScOvU
Iwqu58uXA46NS0lAxpfYfdhUJ91eYU0J2K0UdgW7m3PaTJcsAYzJ0CbsQ9W1
GRvtJOCCvvUo9prdSWN7t0jARpFW3s/IT9bYrk8PloBy+bersbe9W55/J0YC
Ou20dbD/Hvs49+akBKh0VJlg55vnujJzJEB3v40ptuX4jlKR2xLwXKvWAPtb
viavQa0EdB8dUcZO2sTydW6VgGNB90WwFflqHu7vkoBe86kpPJ762kNiGaMS
sPJVahv2jlCrveW/JcAywqcQm0tJqOmdoCREc9qHY9/4+E5hUkYSKlvNzbDX
ncyOXaktCQ1FwtN4vfppvu1GVEm4J7yuGDuZpaq3yV4STtvObcJWLRg/fsBb
Eu7Hus7i+DR6VPSd3yMJd5WJc9i7hGKplXGScMelXAX7Zjgfc/qyJBwzHtTH
8bdRe2MrXioJS08zinG+DHVeuE56LAmv4s9KYauDkvvBbkkQUAvqxfnXND18
N2tcEnz0SSbYQcV3BWoWJaG/gJ6E8/WWCP3J7Gop2P56/h/Ob7sGLkkpXSmo
aiwzxh492LrfnC4FohV5Prjfavd6qMT4SIHbqbUXcf2UlYan/s6TAhc3++u4
HjduJw/I3JGCbdEv0nE9T4j9s6A+lYLoja3huD/ox52ejOuVgjcHHyo24P3I
rnjLkpw0NK+/tuYpsstSaMUafWnwVW9ofow8eY+0zMJSGq5Xa4c8wvuFVAMj
wVcappbb5j5ArhzsUf+XLw1G8QaF95Htr5nsTihH/x/UM3UP+Yd3auniM2kg
y9yn3EUWe2duOD8gDSFBF8tLkA88Ok+Z1JaBvGuztgX4/mftNvbXyECYSLLr
BTw+clV481tZyExcnhmG12daqMq6TxZO+5/23ofcd2fH7PNJWRA8PKi4F1lU
ZUV8vfhqkHq+5m4Qrt/le5JrvVfDs8v0977IBj8UskuHVkPH8yOhjsh309Ke
nP27BjxDb2/XQ5a7vE2lX0QOtnYKFusgn75lkGqmIAd3PWjTWsghL9o9ewk5
kI/beVkd79//Vk9rH5GDgg/fNRRxv17O9Eo8JwfhrO058sj8a+rr31+XQ+dj
IxE5nC/kXWdiGuSAXb8kKItccKBMq4lbHjZlWFmJ4/U5kpghIy4PYq2R38SQ
j551mdurKg9WpnBkJbJf2UzjKmt5CHN93CGCLD9E99txXB5eN1Y3COLne725
uCSgAELPa+9w4OcHX/3jLKMAnAejN+D3uaio8F0FWgrwvfjLuj/I7hckjO3t
FaDZ5Jbnb2SxN9veZKcpAEnmvMAU8pFuA9J4rgKEvWxxYSOzRzlzLcsUgLx2
TSETuY2vKHjwtQIc5RsLGUe2UZw7IsOvCLxx5YmDyIkafqZWKxTBo2K9/ABy
jX7ryF4pRYjrHW/+gaxmketcr6EIEjIitD5kn/U83GMGikA9vpfnG3KmQ2jN
KrIi6IwQnb3IPN6EXJCdIlh/4rvajUzfcetdhosiQFvXuS/IEcErkx9tUYQn
2X1nupB/RPWPLd+tCG9krYo/I8smbsw3D1eEfTvjGj4hb0qpdt0RqwjVOXnD
HcjPLpx4WHVKER4XbXb+iByZT/ZLP68IL8ZcjrYja94e5Q/MVQTfPRfqPyB3
V16+Z1moCDFz/wSxz9Q5eErdUYQpRpzve+R1rUt/WdWK4O80/PQd8q/2O0Ut
dYrQn6qpie0zumI29p0ipFy4saYNWXSm/sqmLkUo1iwoeov8/G+4tc4PRQg0
/UvFjhJUmeAeV4Sfdy50vUHWFv+Y2TOtCNrD645if5VPoVcvKYJh9hgJ+5yW
2UA6rxKc7AiefI28njScFiiiBGdX5z7AnrfMMSGklODzet8T2GUbNnRLKSpB
3Nkzftjb3RaOsjWR8/itsMW2l2q3GimBTFihPnbTbp8P16lKYHqAUMGOjVwe
F2elBLf2VShi6x6uU9q8UQlysj6pY/ed2t+q464EX+OTTbEvZCqG8/gqgefq
zI3YNlffS/cGKoFte08I9sLto/XV+5XgXrDpBew7VSbBZ2KU4DZfZAO2H2Ng
RdARJWhdz7uALf4y6wGRqgS1fVoUPP/mjzbbpS8ogcTvO4ex477N8U3mKsG6
fP832Ppjt+62FqL/95FWxuv7Y8bL48YdJdBbfzUBO+uf0N+4GnSd2fQNe0k8
1FG3RQmiP5Ie4HjdU5D/xfNeCbaQpXVxPP212/J6u5TgT92nIuxWwujnmXEl
IN6tvoPz4ZD9jwtBM0rg+otOxvli6H6BBn+UYHfSvhbsi3t+pU6KKIPqMdM5
nG+7smq13IyVgez+7iTOV+lre97r0pRhwHqNOc7nVyWrY3nXK0M1Z9cItnF9
QkuNuzJ8GW1zx/n/b2xtkEysMiSHDzv3IF+Gl4VfGcpwXEYvG9ef+Kqgf+kt
yqCtYevXj/N3kNvb4r0yNGTmaeF6PZJqsSLvhzLkNNg+wfUc/LE81otXBSh5
2t0jyGbB2U4f7VXgrv7SAO4H5VTS7WObVWAnqSqfhfNz+XtuEx8VaKv39MD9
Q65CqPZcqAo0lDDrJnE9LyWoOGeoQNZ0+IEZ3C/eyib+zVGBVxlZ0r9wfl57
0Hnnugpc2iPzGHvcejJ9WaUKFJqQ52aRP5zdNd/aoQIBsMse96+N/pybY7+q
gHKR/mfsJlL+Hc1hFfS+fN9vAbm267P/iXkVOCTC2L2I16ss8qkZpyq0pNNH
scsSV0oPCaoCa7lnwBLyNRWHN+tXq8Kd2k2bcb+UnR3WmFFRhTEl/RfYmS3J
Rwt0VeHqn8smf5FPhNaZc1mqwvRnDT7cb/c9MLrB8FMF4cL7gPvxyKm3S/t2
q8JT5aYQbH+fEE/5A6rgv8MwC9ud8+ayhGOqsPO+ZD/22/a1QbqnVWFkNpef
E+9/RV+fdWeqgt62U9rYdAfpaGqRKvCVVYRg18hVvx+9qwrvdi+cwjZku+pe
eqAK9uPPirBVs9K+z7Wogs/sWDd2fpAmvfi9Kugmes9gS1NfXPT4ogo5dQHC
XMjC3/46VI+rgmV7qCl22NYuctu0Ksx8pdtif/pcqTa6qAqC1WxPbJrbGTFu
HjXYxJsRhH3tXfC/NcvUoHWHSRQ2n6PVTzNxNTjT0XYMO6RVrstljRpM/AjJ
wH5nPf9ij6oaUDeL5GGbNXyoSNZVg0XOuiLsPMs7V/NJatD25Ug5NufjE6cf
0tHzPvvVYgea+8d+WK8G/H92PMN+XUkP/LlRDehbT7dgGxtKbeZzV4NpgeG3
2Nllk4TiNjV4oRz7EXtJ87UuNUANXrZs6ML2v1kk4xaqBklr/HqxW5SO8O07
qAaVls/7sPXyt06fSFCD7Y5x/djnZc36rqeoQe6O04PY8xdF3zxOV4OEdI5h
7OdnXxSxrqgBe73OCPaZk3FJKnfVIEfT+P/rMzzuoRY1arDk+vv/33sdMfD2
rFMDvYbgAey6P4K24U1qoN+S8ANbNW7AJO2tGsx5aP8/ntTZOsWbn9RAXjfy
//GyDlxazviqBhITfl+w3VgRC51DapCqPvsJ+1GI0/AUUw3eOlDasRVHND8u
m1MDUo1BG3bKLu5n6v/UIKbw60tsl20PL3uvUIfPiXH/r29N1/kTkVLqMLQt
/An2ao/QyDMK6pB0k/QAe8hJ2anBQB3oYiZl2BtfLVF7zNWB2yL6/3jet/2s
MUuoQ9CXS9ewD8FpTm0Xddi0Oi0TW8x4tupcmDq833Y+Hjvm7rvrpTHqIGyz
7SB2r3bpmRdJ6nDjm8p+7FsqfsG/M9Thju1df2xLiZerd9xXhw763Abs3fNX
jhpOqcNt/hFZbPuY+p2/F9Th5s3v4ti68z/WN3BrgFfijAg2c06D301CA+qb
grmxD8zdT4sma8ADi/IJXC+boz/uhbUa8EQ9bQSbNDfrKGivAdr9Sf3Yc7M0
0dytGpDS+KgL+9Dsi8y6RA1wy9vcjL0tauTgiRMakLd/sgHbclbI0yVDAx7Z
FNRhc846y/y4rgEH+y1qsI//6rrC+0ID6hQ1/q/njJmJoo3CmlDbYHACOzxS
9KSEuCb0+zofw940Y7z76xpNKDq1+zC2xEy0Tpi+JkgdPh6NfXmas/yCqybk
WBoFYcdHqJ7z8dYE3WfT/tg+0zYH1HZqgnjpDV9s+ek00oNITViqr3PHLpiS
qP2SrQkvAirXYScfIF8uuKYJnzflWWAHTnnH772tCZRPu8jYmlNXLf4+QuNL
OauHXTap1aD0VROm2FqS2OnhGwvGhjSh8NHECux9k/uSK1maUD52QhDbaLLS
xppTC/graEu4P9awLV4Fq2qB5+DJb9jHZPMt83S1oLpvTye2y/q/99tIWrBO
VuU99lh2XY6ZtRZs4BRvwJYjiECeQC34Wvv2+v/Xg692me/TAoFil0v/3//8
v40hUVpwgVmU8f/9hhgmH45rgf7Fd4nYyenAea1YC5pbZL2wXR9ci2y/pwUF
9WudseW/c4zwPdSCaH1La+yHpGdvQ1u0wPjBQ0Psn91r82ijWqBYxODF3qxt
Zf5ZWxuYplMueP9QdCsoETLRBnqELxn7ZwK3vCVNG9SVTilgH3//nOemgzas
sFGawPvPo5j1Hw7s1YYQ1cwUbOVm61CRu9pQpx9yB+9X7J12BdZGOrDS3XoM
73fH3DNbnSk68ErzzFtsSds+ltdaHeDbMViBbaEdQ9/nqgMcEi/jsVPZxR0X
w3XAy+GpCLZqAr/AyH0dUGBW0PD++mDfZv2pWh1gJBgoY9v7XXVbeqYDB7YO
CWCHW5lfF/2gAxFFy//fn+sEg6iUKR1o4T8dhe11sWlvqrEuZISfapzH8z0h
diGTqgsl+d/vYSfF+tbmr9OFm9O5udhFPrO8lZt0YfNPIhJ7Rln9avcBXdBn
JmljnxA/8GIwThc49qrLYMvy1Y2zjurC+0ZLAey1o+5kngu6QM9rG57D5597
Ke91K3WBeaCwDFvp+vs5s8e6sKpw1VXsqvNy8muf60LYLe7z2N0Hq/e4t+vC
rmt7Y7H3BXGe296tC5JCo6HYXF6OD3b364KMyE9/bE36IHfitC4whNKcsB/r
GWmfXNQF3wNa1thOCgku57n1oM11Mx37h2hrVJ6wHpQ+FiRhH+SSuFK0Sg+8
Kx11sQVm/J6Xr9aDXl1FNey8wbLRRyp6cHbZUXlsg8/zK17o6MG4eqQ0dkPL
erM2Ez1wgjkx7PdPO11O0vVAp754OXZfxd6QtdZ6EJbFI4jNKuY4vuCoByUx
IrzYf/Myr1V66EGNUBMn9poTTzrUgvXA0Qb+4PMYNXxAKCdWD/YHRy1ib9m6
DITS9ODAh6Al7Chr0sFDeXrgoSvGgX+fQm05a3pTDwrXMLmwMw18Sph39CDx
cwwfdoEqu7G4Rg/M2PeFsCtkkr/5MfQguzdnBfYzEekFmRY92P1bVwL7HXeZ
ePs7PZg7HLoa+9s8YXC6Sw9Sz3opYzMn2jdY/9CDaQ22FvafH0G7/o7pgaC2
oTH2ss7FxAfTeqDnKU3D1m5QqdLi1Yex7O7/40V58ODtj+X6kHG60gvbrsxh
NFdSH3aG6gVgB16MkBfR1IeV6/8l/B+vNH5Ks6E+3BfenIadnJS7OYmiD0L+
cOn/+e15fnLKHv3/vpaa/+e33bOgdLM+FC0Lbvo/Xm7jT3f56EOjYfan/+Nj
uWr6U6g+HLiYM///+q/aue1xhj643H+7DuezjsBcdOQlfTi647wHNvVP6nm9
G/owG/ByD/aW4Yrmq5X6AInHM7EzH3MZJ3/Sh5eP7vzELii/uNHimz6clMvk
xvVYcVM7aHZYH44MNMtivzu7KS/4tz6YvRncgL1s1w0+xzUGoJx3ugQ7edm6
bgl/A3issy0M1/vh0lUnKXsMYM+C7QnsOPtB0rYDBnDUYmU+9v6TJ88UHjWA
rgCFV9jePG1rTQoMQDjUQhn3F/eCa0yPUgP4xrXSHNtl3YHcuEoD2CW1zwHb
Okni17PnBlD+5dUBbMOlrbdcBgzA5+fCI2ydXD33yJ8GcP/wnlfY6tR/nDkz
BrBFR74bW6nr3d3HSwYwwxD8vx+K0N/f2c9lCLuKFeex04SpyUf4DGHguzsv
fh8Q6L7hfUHIEHS481ZiHy8RNropYgjHDQbXYHPHRfI/EDOEaWkVDeykDb29
LZKGYLtkY4j9V9qm6ousIVjlryVjx4/cTf0pbwgP7LgJ7PkHUjv+KhvCleb4
9djTHqPLlXUMQfOnowM289ejR9YmhmC4ueR/732hcs7T3BBiItw2YI9mng7a
TTMESs5Ga+zAXb8s4glDKNJO+v/+Aya+4ulWhqD0q9scewd381i+rSHslduo
j/31g8GzcgdD6JB/ooztcyMnu8HZEPY3Skpgd4Vz7vu42RBoKjb/r4fH2j3r
hzwNwTfTZBqv10fRdtn5rYbgfK/5K7ZrH21S0M8QBNaPNWO/vVfYvHqXIZi7
H72LvfHw8ny9YEMIF4s6j93qFBVJ7DWE7R9KIrBt5L/Zu4YZAmsZ7ybsxglb
pZ2RhnDSPVgPe93T8rnIGDRf9we82IzTMm+PHzKEscb2Lzif6D5HC3OSDOFU
UH4Z9iOd8biSZENYxzMXh22+uNn1yUlDeFF7yxq76uUTjbenDWHVrlFh7Hu7
z3yczDSEA+tbT+P81qXMlXBfMgTrRlVb7BIBvyMSVwyh/aTVH1w/hcVG+pSb
hnBBwswHWzn6Mo/DbfQ8wyc82FdtuLt97hiC3Jo9t3D9Xh78eCKp2hD0z5/v
w/2xo2ZH52itIcQFBIRgi55kam6uM4TMvHIWfv89oS3wUq3ZEDp3Vffj9+WG
xUzZs6/QfG+Pb8L++1opZL7NED5lXXg0jRy5n7bsVachnHOTPIC/592DFh9S
ryHsSfF6ht+/x1a637ny3RCiZr7yY++o2ucUNmYIsb4fD+L397yUxfwupiE4
tkvk4/f7To+TrHXThtCT4fFkAu9Xv69nSCyhfPI51IW//516qf89kcMITEtK
P4/heOU+NhrhMYJ3oftejiLTLDs+PFpuBO9bpU4P4/1ghb+KqpgR/E3Q9B7C
/aaPGZEuaQQOaYqr8fcGzWMCEn4KRpB2cyQCf6/Y6ZYV0KpiBGf2PBX6jpyv
plxjrGkEfYVHz+PvhRItNE9eIyNI3H/3AP7ewbV8/6WSdUaQLFnti7/vWXxd
HF1lawQyWSuC8PeVmHsnqQkORsCfl7MVf59hud7odnYzgh+eRXz/f19TMdCt
3WIEDc/bHr/E9TTz+JDyNiOwdQvzbkHuudgh9yvACLaHcbk+R5YK9t/nu8cI
/nlsKq5H3kRh1TXvM4JGm47+pzi/uwX8LkcbwdSqZ8IPkWsU6TeIU0bQLv5x
oQR5crJl6la6EdTJFQUW43x77m4ldt4IJHjFywtwfw7YPzBw2Qh4Nue8ycX1
arZEcrpqBPqjwdnZyLICp1IeFBiBgd0zygXkjJIb6qllRvBYn4s7FflVvEH0
dLkRPJWgaqQg8zk+afapNoI/1hflk5APsTqCDeqMYEV/fNJB5N0kwdKPbUbw
8o9u3zbkk6PC7lofjYB4tJDmiVyUL/IvoRON/4f6XxfkHwLimzW+o/V+eEnX
CpmjTvJP/CAan7DUAA1ZIUKm+N2oERgL+m4h4f7SK78YO2UEHnLb96ri/eG8
0s23s0YwvdjVsxr5kq2qs8qiEXxe4TArhvzpvlbBa25j8Oa2NeXA+8FxkoOC
hDEw83Zc/PQXnb9o5r8iZIzBh/wbXiGnsylXW+SMoVTWO4WB/NKbmA5XNwaR
3favipBHVqy70qRtDOvfyjVeQuZ7sd52tYExHPKiW59GtjKwz200NwaT062v
9iP7D2y0lqEbQ3OzTpMfctIlZ1YoGMNey0fGrshPuN2tpDYYQ4J0oZ0hslnn
9vHd3sZQW3Wzf+APi+GW7p9V52sMWTfvyb5DjlgXQKzaaQxJq39lPEIuL9tz
4UmIMXw2KZBPR367I9RiZZgxKCluUj+IPCEZNhwQaQz0gzWOPsjaRw7SViQY
QwYvX4cGsp1ZzODOI8YwqdShsAw5aDzu7MMUY4iqFfFjLaH+5J7Uv+OMMdwS
b0mvQG4QOpZec94YFF3zt59H7mOkmAtnG4OnfSwrDFlOOy2t6qoxnLQ4w6+N
TP+WbipYaAyOdoF7eZC9MzO+bbtlDCFH9tr1LrIYF/9mmfDfN4ZLi3onjyNX
Veb0bq02hi2H8o9vQW4Pzj1RXovic1b2sSayaPu1bq8GY7hSmpX4fIHF0D9Z
kHK3CcXHtmIwHdnRosiA+5UxiE30GHsgpxaXHitrN4Z1xnar+36zGDyHanT+
DRjDWg49dsc8iyHN1ykvOGoMj3SbQs8h62b8XrlqwhgKRUrJ9sjuhfR59V9o
/BF96pVzLMYefd9xw9/GMKI8tOSPnPjw8FfqH2MwGIpNWYFc9Lqh0YnXBNQ4
A0u2zqL9w2PgwRZBE6CclHeZ/4Xi08db6r/cBAa/2XOdQ56bsTsXJWECUbfj
Z6tnUDzk2rblq5lA7bardq1TKN+L2S63tEzAdePBs2uRw4zE1lfomYATP2VL
1STKd2t37SZTZNbQlpNsFuNuW5TcO4oJhC68mB9hoXh55Yh+sTCBrl0CY+uQ
x0K7ZyesTWD75yebv0+g/j+3NDq3wQTiNSv51JBXHZXv5XQygYy11w/7/UTx
u7jjuYSHCazLTJ98MobqR/FYjYK3Cdz76cPuGWUxdpUU3tbyNYGj/P/KpkZQ
/dQNn7UINAGJMyov+4dYjBt2gsds95jA39Qh0qtB1L8+aEe57jOBn1W5F4sG
UD8aCvUJiDKB9TadRuY/WIypsLPO++NM4NNCvf14H4vBv1i+LjbRBPYPKUmf
+4bOaytmNNOPm4DDinci93pYjPWXJNZkp5qA5/NVD9S60XlVxXzF9TMm8EA4
STSti8U4Yh73q+qiCQhPO1DkP6F8e5Y7UnfZBH7o7Vtl/xHtxw5Pu1vyTSC9
kLPS7wOL8WE7R0NPkQmMNXhd3/CWxRgaVaoeKjEBUY2BAzKvWYyFCKtb7Lsm
cPuevkhbK4uhcvL4GZ4HJlB4vLJjsJHFIIvdOiLyGK2nKNFAakDnlbzWSGmG
CQgGba33YKD9tXzZVt1m9DyX9ZWkWtQfqfpOZq9M4FGs2N2JarR/NjqvhTYT
qPgpdzSpgsV40Xlew+2zCZST4rN0S1mML/5Vsr7dJtAg1DO/thid7352LA/+
ZgKJCWVxWgXofZxTZiZ+2AQWj/FUB1xG/eq0747ecROIbJQPd8xC+Shd+NaS
bQKaNWc2T59lMXwNDW5z/jaBrfU/H+xJRuv7JFJy5x8Uvw3fLEiJaD+0e3Ss
kZME8bpvJ0qjWYzi7da+J4RIIMYaV7ywG/Xf8dRXIyIkeCWVWzS/A803+h3Z
fhUJ7OYGPOa9WAz2ma2rlq8hwVpu3aNH7FA+yl5P2qdIgjXBmY8lCPQ+UTQ0
0aZKAvrxxRe6pmj96sJbzuuRIHk051uLAoshZP/AdMaIBEZN7E5CHO2fHUs3
3M1IMNCuFS4ngPrpxIkEaYIEBzgDKD8nmIxNsW/GYq1I4BToZPf6G5Ohyrtq
S7ctCYbeHr/DfsdktK7JN853IcFco/WFb+VMRt6t/qv/3Ehg8y70SNZVJmMf
SWv5Di8SPFFpvhyYzmSIbawaVvEnAf++C/M6gUzGwOffbimB6H5FHu38rkxG
zU6iYWgPCe7PpP57Q2UyvONf5t2OIMH1vw1hT4WZDF1+USHhGBK8DXHzzJ+a
YPw97x699xAJrK5PO2p1TjBulPS5GqSQwNJK+dVk/gQj0kydkXEK3d/I2VYg
aYJh0xCiO5WO7nchsDlu+wRjvGuWr/oiCcxvLVQpykww6gLokZK5JKgs0U3W
mv7JyJg88j36KgkEA91VKK9+MkiCy59Qb5Hg1uj6DasO/mTwZW3SyisjwV7z
aY1ym5+MTsWci3/KSXCUJXB2XuIn4xBZJby+lgS+9FBpvTvjDKfG4K9KdST4
NsMSG40cZyi63HU41oDmyzvgxKaMM14EUdRtXpGA+UDs79iTMUbOdOKF4jYS
OJrwKnAfGmPsOdzIIfiRBIkdlYdY5mMMkWzn7lc9JCDOPhy8c3OU0aecZaf3
nQTfH1zvJ3mOMirufqk+M0gCvudNtgs8owyPpoAMVya+n6DEPbcRhuam0j8V
UyRQO/qj0nN2mLHQy94jPkeCJMXW4PsXhhlXf8Vbf/6H8ukHv+Ov+iFGkEff
4gS3KfSebJ9Yt2WIYfBgfQWPgCl0PKNKB4wPMhgxyxWMRU3h5SZSxVueQcaJ
rvAOO3FT4EkZd55IHWA4Uz+lbZc2hfaAae6zywYY3xbz508rmgKXKnTIcvUz
in247xWomkJN5eudBQd/MPY/DQp4pGkKAbZZqw/1f2f8SzT8MGxoCnqXxOY4
7/cxFLgaStetNYVvVh/rWtR7GMP+6v5e1qZgVVxRfL7+C+Pe81TpsA2moBqa
qKfq2sUgUjanXHE1BW/nA7bLPD8xtgsM+s7vMIVNGmvWy8y0Ma6KCIjdPWoK
drp7f4Vsy2UE7d/b0njcFMLW2ixNyoYTBu/eJXanmgL96ImIUqkbBOPcpXGB
C6Zwv6vVX0O9lvgmrvNiZ4EpPF3x3gVaXxPFB8/GxxWbQl5OzDLd3e+I/Z+m
jc6VmgLHB1rY8pAPxL/sJ/l1laYQWHRQwHrnJ0JhtVOMTKMpTCnolaxe/pUY
jq/QN2wxhVDFPqPR/m/EvR7JQZvXaH7x6UReZx9B5H9zjfyI4hFLWKtc/EHw
/7MSSOs0hRTdfdXWe/uJtu236q73mIJMQRH5g9EAsV0pXKdtwBQIXaEtV24O
EhpHO74PjqDx1d1cdt19iGD9oOQs/TQFMfKO0xN/h4jDhVy82r9MIfWIcq+U
xQhhyxv0GH6bwvf9r527348QKwJfhXv+QevTr1NdsX2UuKqR+TWZ1wwe78/R
yAwcI1RT16yYFjSDtswMt/DRMaLkZyGxQ8QMNs/duEbdNU4YOuuFtYmZwTqr
lw3/Po0TNferr1lImUHwc9+YjrU/Cbq45fvS1WaguTswrKPwJ9EQ1cQpq2gG
Xh8HzOQ5Jgi7Lifjk6pmoLNVR7F98wTxlvbZf1bTDPjEtEhrrk0QbvnbL+zS
M4PI9kcy6oMTxBeOkecfjMxgwXaRU1mFSfjtDJsBMzMwvBeZa+vGJAZfzKve
o5qBc9KDgMRYJrFH84i7HGEGVpuMcwtzmAQ7VfB4mpUZRJis/mtQwSSiJs7V
/LY1g76Pc4aXmpjEkrPscNBGM5g7b6q89ROTOFpxQ+qTixkQic+ip74zCQEJ
Hbv17mbo/fbaQs8okzgTXRlT4WUGOz4f57rEZBLiX2i3FX3NwJsS/r2QzSQu
0xu7zvibgUkDzTkRWfHqRqE/geh5p6gd19H/F3F2UENCzOBFxntK6jiT0Nm1
LaRrvxnEtSz7eW+YSZQ3DebaRppBwhry/pP9TMJMa9/r6hgz+BkX3ZTyjUk8
SZtdUkkwA7te3z6JHiaxjpmod/6IGSi5pnLd6GISLS78vhzHzaCbw8z0TCeT
cKo8e2ZfKhov/dNdMrr+UUKa0XPGDOIFGI6uvUzCO+Yay/4CGu8B6ZDMv0yi
74umYm02mv+v380cyiwi0OK+i0aeGVi+UOLZYssiDnA13Oe+aQY3HnHY3LvI
Ik6d7o94UmMG8yZc8oUKbEKEFVKo/dgM1p6SCHpGYhOZrjMfcxhm0GuTk3h8
A5u4JslrdrAFxXMi5ap9OJtQj00P7H9tBpdVTn0eO8Ymyrolsl3fm0FYssqP
g1lswtgyv5nRYQbat3Nqn95kEw+vqc/rfUHxzgk9lFXFJiy572nmfTWDzK0D
9e+fsYnGAHMvoX4z0MuKHrF7wybsWxinYobNQF3CI6L9E5t4p233aGjcDIyF
x8YLP7MJj/R3Y25sM7AtKHnh855N9LC2rH4+YwZjy9eKSbSyCf9N3x2MfpuB
lHP8jqE6NjFctfvQ1T8of3PyKscr2MReqamy5VzmkCe81n4dGt9UbFxvPJ85
3EhaGyt4kU3E9HCJjAmZw7RNdrR/Cpv4a5lmuWWFOYSMEYZhEWwi+fqq/U2r
zKF2VnGVpx+bEOLJu0qSNgeJx+OD9I1sQrK1jGOlkjlcEXXnuaHEJg6vKE3d
o2YO56YP2n0RZhMj7rfFG7XM4YLXlcXd4yzi0Y+bmtHG5nDxVH/Ut3MsQkWr
sOKdmTk4hhx2sAxgEaf336Br08yhY67iqzyFRfgu5bv0WpnD1YiVY/ko35rX
XfliZmcOnfFjzjvrmIThqdxdGRvNIWnDN+DMZRKX2i4xR13Mwe/ZO0YCqjcu
yZwYK3dzcCFME1Z4M4kQn4tcV7zMIfL3EP84HeXbjczTs9vM4Ze1Xv46ZSZh
OXpe0sUfzbfvxV9rISZRbHDu2u1Ac6AYMSnKvyYI0aiz2twh5iCXsfcoZ/8E
EfckvcpnvzkIpV/6K/RxgujnOm1ZE2EOwaTdl/xbJoiNG1JbVsSYwwr3yHbN
+gmi+uzJTbsPmcOyJs7MuMcThPyn4z0NSebgX7ZiIezRBHFiTUrgmhRzeFbv
o6f0dIJg+x9jHzxlDhuywg3ynk8QXrePxLWlm4NN9+0y5psJooF1mEfrvDmM
3rJ4o9gzQeiYJZ45ehHdn2HPZ8acIDIPHZLuuWwOP9/2junyMIk/DXE3TK+a
w5NWm5gmBSYRKBire7bAHL4cVUp0cGUSbc7RNSPF5hAtThM1OM4kyBcPwroy
c3h4nDOYG6339Z6Il7nl5qDLti3wmGcSQioH3H5VmUPxkepdlSQW0XNvX/Ct
p+YQV7Jje9F9FmE9u3eKs8EcYs8tyNhMsoi79JBDW5vMgVGq3nZEmk0ktQZl
iLSheNL9g8M92cToikDZ4HZzaB+Rz+ONYhObPHYVPvuM4pN2SKT8Apt4nOev
v7rHHBIYDkmkcjah2u/3MLIPzTdgSnLLKzaRrrV93dsBczirW1D2fYBNzO7f
9lpj1BxMZLMULy+xCb+arR5HJszBaRmteKPYJNG65NX3ZdIciLXxss1qk4Sx
1ZY9pFlziOod2vDFbJLIO+Uxk75gDnfS9Rck1k0SvO/cEof/ovG3uW/uJCaJ
fZKbBdZyk2FAf8Mqftok8dnH9fxlfjJ0pXtYMEwmCShwXjMjTIYHxLy4kvYk
cXvUschRlAzZKY+7neUnCTHDjYbF4mSwXKZxNlx0koiPsn/EIUOG57uvF93l
mCQGntit95YjAzXX870Ri03UbLDeslwdeeeB4rpmNqGQYfUjUJsMLTt0Dqqj
ej/5ae3een0ylPzLkszIZRPeOy2TIszJ8G9wSMZoL5uoTdy6+SiNDCf3xMlG
uLMJ6csx6ucIMtyuiSSnWLKJT+8qXt+1JUOP0DcvhiibMP3ZdvWpAxnKJDlL
D8ywiEz+iQOvncngsp+b26mFRUwpC9l0byYDefzRge1XWISrpYbMmCcZiI1P
hIjDLKLca/3P+a1kML1sRBfYxSJEDu5g8PuRwU+3RTrNnkWEZiSel9xFBnXB
rVK9xizidWlugFowWg+7P/4r5ViETvNDMmkvGWxN7veRBVlE6o8OYaswMiQF
Kpj6zzGJ0T9TX10jyXBw0vHlJbQ/2cmIVvjFkKE82rNjFO0nxSS9lP2HyBDk
quzj/ZZJ8LnYb0lMIoN+mRRtspFJBIQE6aQnk6Gg9It2xVMm0Xg8+W/uSTKo
pP57kf+QSajcuP6+5DQZImsbztRUo/33aV1hbQYZorjrZ2armMT3zu7olkwy
fCq57b21hknAzLz95xwyPE77t7q3lklcXSEpP5RHhgh60/kIBpP4q20yOXON
DBr6lnLizUxim41LI/dNMpx6c1ml4h3aP3eEZovdJsPRglo5Au2fqxNS9yjd
Qfl1sCunBO3vcTnFFob3yfDGR5XpvMQkOisbRYlqMsg/SfY7uYpFmLd973es
JYPj72xXC10WcXHsb43PUzJ82bXItrRhETO8a1JDnqHfWwsq+OxgERV0D8NT
rWTQ4f2xW+Eyi9AveXmosYsMNoux3qICqJ5eDDu395LBNTAq+p4km/jZx6Py
4zsZRLd/27RcjU2USBGt/0bJYC42HXoV2ISgiU+eCJMMUD02ed2RTQQ7xe6X
m0L58O/YzD8vtJ+mVErQFtD1pmNnD4SxiZRr70Y2/CVDbVF13NY4NjHweOLx
Fi4KrLZ4/MwO7bdWn4XOBvFR4Px3potGGpu4MaXhHyVEgVfHJmduZbAJThFr
0xQRCnSPhQ0mn0X1reUvkCmGrpM9col0NlG3/nD3DUkKSIm92Tp4ik3I+eXd
vS9Lgebs9KpjaL87FF97pF6eArarW/y1ktjEl4uf3NqUKUD6IEodimUTlIpp
ja/qFJQPDsKvDrCJnDeiiz+1KZDgk502uodNzI3ovV3Up4C1P5Xm5o/2ax6H
60ImFBgLSt8oj+YrTkux1aRRINknda2iNZsw2tKUeYagQL+2vXUOhU04HeT/
MWNFgd+WMdXVemzixL1Th55tpAA7dFjHUYJNFL5+2arhSoE7Vx6m/EHxqB8V
ljrjToG/6YPOh3+ziF4+x10zXhQA+/FDPt9ZxILKmfvevhRgXV3/t6mVRUit
bftb708BKtc5gakKFkHyFd2oEUSBPUMCyvQbLMIl3vVSeggFJtYf3teSheox
5/zQ9H4KiLdO3QhKRfVW3W7iHUkBsvWlVYpJLKLog/iR+hgKnGM3u81GsYjn
LPe36glo/MVKDhP7WETfsuzV6Uco8Fz/BY0vmEX80eoMnk6hwLH98T3gzyJk
bWVqvFIp0P5kcGfuNhZhtsubu/4MBVTFyi6JebOIzUdyXdQvUOC4W+nQdU8W
EZbfc+V0NgWiLqgEWHmg88FjufGpXAoUbBhis9xZxO1OX7LXNQo8u5JsfhVd
b/p1NYVRSAGngoQW2y0sol/s+we12xTwyd2r9g3dn8NQWfH0HQrsMjX/4OXL
IuQcd4ZO3acA/ztaQCkaH3VP4aMtNRToqz2c3RTEIjxPDPIzHlHA/kCv25VQ
FhFZqO6uxqCA4Zjxa8VIFpHxLOhG2nMK+F3aqSF4iEXc+XqLNdlMgQ5n8ZH4
ZBbxcnGUvuU1BeIWZNbsSmcRQ9I6qXXvKGC5UsXwDjqfKm6+o5rWRQFTFyMN
kRIWYRHGDJ/spYDg2PTtxUoW4Z1uwPD8QYG1ZjcTfj1F/bf5vpfqOAXsvEN9
a9+ziPsDU0WpLApsCbQ949XNIt5ykmbY0xRwZPMdrxhgEWPyB9d6zlOAZ7ze
unyCRfDTa848XaKA8e9jXsQsi1D1mutW4aRCa77o1Ma/LAKiyFqpvFSwqm1J
7OdiE9suxEaxBalQVayl6MTHJuLKHz33EKHC6ud1Zr6CbCL7zaLoUzEqxPEP
Kixbxiaqxui+KlJUMOqVb3URQedZ/sTSU6up8FM0WmXtCjYxocqYZylQwa3b
vsEKXRdax2HjoUqFCyzDpC/o9+rb1154okmFo7TbWcLo/Gh16Gifsh4V+t1K
XvWi/Pe79FzvlBEaj+vqfVvQeBJqeOJZplRIu+ZoeYybTVxut25xp1JhpC8q
IJCDTbQvb/FXtqLC04O3NdhTLIKtLVh+0pYK9ja7ZsPQeXSZnf0fpgMVZrOy
n97uZxE2R19nP3ajAn3dlnNn2lnElkhd/c9bqJBnInd9/BWLCAk83TjlQ4V/
CUeH7RtR/O03TmoFUCGi7Pdex2oWUUAvO2G9mwrveH99ELnLImr0l8nvCKXC
LT6ubJFiFtGiuLfqUDgVXGOeTnlfYxHdYq/tcw5Socm3W7EJ9V8mj+73ylgq
tH3h0OLJQfk6lxbdlkAFh9jG2iJUn6tGx5ePH6HCw7upVncusAj1bodCvuNU
EGo+VSp5nkWQ35RSlVOpsNAlsvl7BotwYAi/tzhDhT2MBnlhZN/7IUFe56nw
hJuVcO4sqq+CV38iL1LBoKchPBz5aJZOZsZlKtBW52QWI2edSNMuy6fCmCpZ
yRD9/lbseH3zDSpQ+xUX+ND5/VGIg2d/ERX2P2ot10DPf7OtdOJvCRWiE0ZO
p6Px9TkLJ8veo8Ja/5oLJmj8U2tDZM0qqSAzSzorns0ieEmvyl0fUNH7dYSE
ziUWIa2uYxv6mAoqbe/PhueyCG3ptN6TDCosxm1Y9wOdL1yW7IXqm6mwM2u2
TbuARVxufLlTv5MKNSJeebF3WERZjfbChh60fisNW/rusQjGrdSMgD4qTMp2
hW5A/W/gtP3TvBEq/CoryxN9wCLmEks2P/xJBZZTgVBwLYsQChcaa2ej+byW
f1bxmEUYuL+UFP5NhazjOvXi9Sxina32HfU/VLD56XBLrYFFuFFSrdZx0qBb
WVtODuVDkM5Y1zZeGnCudbeYf8Ei4uTsw2IFaZDnGe1Q1Yz614oSvqzlNDj4
/Ee5E+rPVzmFrpSvpEFHogLHi5doP57ebfJaggbGETFz4q9ZRONga+uwDA3a
X548Rn/DIj591vLjlqdB2LrWZ5S3LGK09dSsvDINBuLkuIXbWMTS49HTVHUa
vLDf8fYussjdDSoe2jSo+5H9atU7FqF07XZtuD4N4t4by4Wi66Tzgi7pxjSQ
4616dQndzyZ599AtMxo4UX6N5KHneUW1HmqkovHqP62NRePZG6y1qs+SBhvP
3yo3QfWQ6H3q9uI6GkSMiO1+i+ZTaLnhk7EDDWxWc1Gqm1D+G97e6+RMA25v
TTVBtB6tyoLcezbTYLvij3DH5yjf+VoNrm+lgVGH0Y0HDBSfnnyFW9tpkK+d
uchE/e5LReSKeztpcOZJvY7GExbxwleR9SSEBrpNEsW3H6L8I81+fb6fBilJ
U9cXa9B5U+j125cRNBDrbG3dhuoxryb6bmc8DSZiXynvQPE/f9ox/9thGkha
RzoIoveTk/4qZ4aO0eBIas/xNpQvieTfCRMnaFD4V1s6BjlSpC10Jo0GaV8N
BLD3DBRuWzyL1j/9tWcOst+jOEeuTBrE+A3OfUb2yHCxEMyhQeePv/dNy1H9
BarriebRgFjPrVOODPSlNVLXkJv5h6zR883EPiyTL6RBlYGY7S9k3ZHiJdVb
NDAw+pr1BI1XuS7hp04ZDXx6b3BcRvuBdObmHuNyGoSIdeanVaH47tF6Tami
QfzoYsRZNN8FiY5S2ydofa42J7xA+c0eL8l1qqeBx8P4fdNovYaeJaW5N9Ig
+MWzVTqPWMT7UN2Qna9poLI34MpdtL5NVlxb97yjgcSWL8tm0fo/kem0D/9I
A7fayxstUXwqWHeoMZ00qFRZqZWC6uHWi2Pah3toIFSzK6rlGYvIz/WSPd5H
A8rVnT7jqD4yww2E0gdosFg4pP0QxTvVlnfhwggN6su/qiSgejks1z16+ScN
eoa1+igoPyKny7uus2ngN6vOz0Te03q89dYMDYq/uTldQvnkcdD4ds0SDUKH
r3p+RPW00UHg0lMOOtRKLDbvRO8j65S+nmzkoUPIt3VVo8jkucqYVwJ0kCH9
EgtE+an/5lTwh2V0aLTYP9SJrFqwfUuXKB22GqXT16H6k401tesTp4ONgr3+
DWRRZ2HysDQdhp9v/zaPzKv2XYO5hg6qW4YSbFD+LyzUSP1SpMPojpm1acjs
d6f5l1TpcD/ZMrQZeajIf45Liw7LNj2wX0TuOUQeFtSjg4qsgb4GqqcPm0Q+
ixrRwfLJdIQDcovmQJOUKR0cosOSgpHr/tbWyFPoEPDoDSMRuerj2SI1Czp0
EBpZScglJQEXddei+V1MD45GvpZEO25iTYfHozo+u5EveqyMom6ggzzDm/BE
TtMdDljrSIeDbx4NrkVO4nrqbudKhy8poK6NHNV53trZnQ4Rl4kvosj+yZZq
27bR4auorEAvGr+kD/ns4x104Bd8b9CA/NLE+LdMIB0otyfyb+N+IKy7M2YP
HQ5IWwVlIhv1q735tI8OhSGNWceQBx4pmJtG0KHKQcIoBjnnvMz1C9Hoebmy
5AjkjXtWCU/F0yFDLu3aQWSOdcsPuiTR4YpsknsScpUM/7e7yXRY4uMzw/cP
muTYsPwUHb5p3llVgSzbulARkk4Ha0vZ+1+Q316bWfPyHB2GlLPrRdB8jsYw
j2tepIM7P9G+C9nMZYR9/DIdbLWWpXOgfjem8cN7MJ8O3zf6XSlGvvKvu9Gq
gA6cTTeEvFB/dPncoX+jGOXXMp1Xq1D/5LnXlsNRRgcOa5nmT8h7fZ/vfVpF
hwcPizrC0PmM+rRE3LyJDica/qm3f0T9LrMwMeslHZ7OVv2708EibuzNH5l+
SweL0VPGJz6xCME155+Uf6ZDWPjLbINOVH/TaeoreujA8LZ2XkIOe5WSEdqH
8u3xvX0NXTh/Dy+8GqBDrO3mN0lfWERnXOwu7VE6XO6VcTJD58HTmyLenpyg
w3qJwO/fkUE7lDw8SYdrwbXcPj3ofZAz6Ib1LIpPmPzMTeTiLr9lhQt0eDHr
pTaI7H3fO4rrH5oPz5iMbC/qN6fc+vy4LWD7He2d1sgNfk72DH4L4L254loQ
chTZrkpumQUkd/XGH0HWFl0nf0jUAmKEBssuIPcO005+EbeA8B2U6XzkDIbp
FFnGAlSEQqUKkddnG/hky1lA5ssNowXI8/u0mn4pWYBzbqrlVeQyGxVDN3UL
yCKyJi8i+8nLXa7QtoDUXpO+NORVs5I8Kw0sIPii01gictMb0X37TSzgrvxN
dhhy3E2hzjfmFuDmcbLdH1k/gWedLt0CpvouhLsj/3D7W5oKFvDnaVDRBuSL
uvMSo+stgNm3YwMgb+CZOmy7wQIOtnrqUpGXusdHbzpawOYrt/bi35dXDm7m
2WQBMscvSBxG3pX27am/hwWo16tL3EGW3tml8cwbzf9o575vyK+p7ecUtltA
48978pJfUT8Ue7OYsNMCtMSuybgiG481BfQEWcBW7n7HjK+4f9e3UfdagFmX
W0E7slN4VcFcpAVc+XPEJPAbWi+5Nx7CsRZQvqal7h7y9ZeDggoJFuCyaOa3
hDyjIhVmk2IBAQ/kiPw+dH76FEvPyrKAplNA/ofeH4doRIdxjQVUcpRpcQyi
+Ix4nrR5ZAFzwwezdyBTssJo3nUW0KJ4824D8mnm9etHmtB8W6vZR4fQeK/z
7Hv3yQKq5SbP/RpG/c5RTmngCxrvlnBppxEWkbJg+nHuqwUc15Q5V4jcuTmI
qjBsAQ3Lf1y2H0X1yZE0YTxuAWFtrz9cQta9k3PNhmUBcv+VdOfxVHxtAMBl
C5U9SUJSSZSUlO0+d78XEaVkKVkSIUvWZKlEKqGylS2SFBWVREWEVvuaLUtI
Idmy9T7ze//8fu7cOXOe85xnzpy5ZbJT7zs6iPcDr+u0DnwfFXHw/jFKUszv
KQyZw/MX9lcVouuOzjnf/KcD8dT873/RAcvF5e5z6YL1Qce0Tbje31ioXF+8
VBeWnJ+SNkbX2NMv1izThX+Gj675oP1Ej+zpE9KFbtMwpVvoTyevpSyT1IUe
n7MP2tDeklkmstK68NioeMk0WvZdCc8OOV2o1ao4KvJzlOQhM37SXFEXfFwj
lMho6Y8Csq7KusD76KHEIfQ7n/V1Iaq6IG7WwOeMlqw9sPv+bl348kqd7wb6
7VmX4WJtXTiUX554D31S6WJyDeiCcq+LThH69fkC7hmWLpy/LFTUiz6hWlOw
bK8ubDg7tuovWqRj0EnWWBdc5zaGC+Hz3stLS2R2mGL/K3XZm9B2u6RqGYd1
gTLbFQtowV61C+ZWuiDCMS1ihy64pq/hekwXMv1Vja+iBYYCkm466sKVofte
/einN2/uu++iC5viD1uJj4ySrCi5XK/cdcF2T9hGOvrxrS7HPj9d2FW0Re8h
WlJPOs4oUBdKi8o0BtBBM2blL8/pQoRVhYbCKOavaZ1M9GVdWJ7J3JaBHhZ8
V6+TpAt23x9WFI7heJ3L1okr0QX/9Cu8kn9GSZGqA06c73RhxewPBzv0ZOf6
eJf3utC7c6fHE3S5VtI4tU4XvvO1MfdO4P1r8tq9sV5dEB2J2xQxifX8hJeI
3lISzJ3VGeWZwfq9Kk/32TISJH/3Dt2Pdn43clJOmAQW1M7CVHS955aEy+Ik
KJF6tv8fWlP+RMWUJAlsU+2cLP9i/a7J+HNsLQmGaWZnC9D8Qd/kPq8jQf0P
42XCs5jfX83PpCuR4NLJsBsFaIiIyxLcRgLeoQdRPHNYb3c3NPrtIIHKpg3L
jNCCA8Jc/RokGN0fE3Ed7X1zr+o+bRJ8CTiWUIfupEZYFQEJqvUjK5bNj5Lo
4xURG+kk8Cq3ztRFP0zlehHNJsEDDuV6J7S4EfTP7yVB2a/lI9fQAQsBoidM
SGDHfz8lB937oJBUf5AE52V+xZeh9cynnHUtSGDG+el6LTqPb0fi/aMk2Gu8
sL8ZvbrgVKW4HQn+bim+14AOtn84EXSCBKIToSfeowfFhtYNO5PgUfFm2wS0
0dsNRgfdSZDtakKioZ+72QSUepEAjqzpGcD+yMim3Ff2J0GgKbdZKPrnGUlu
rvMkiKp/vDoP4xWhvqzw0Q0SxMuys8cx/g2Vr0i8CSQIGho2uoiWNXersEwi
wevlKS+l0U4/5ffmp+F47jH++3wa8zWwsZ4/E9t3aBI/iF4UDje3ziYB0+mg
4NwU1vN0zW/Pc0lgFFrUkYm+of7LYUU+CZKWrHMzR3dWpozYFpAgr5ScKYFW
NDfxellEAp2m7ybtmE+eP7nnhUtI8FL04J6H6NeBBeccyknAc6dkWRiaT8SJ
/3UVCQ60WP3IRe9Pl44S/0yCljj3sSl0snq1xMlaEjh9CB1i4fkHK0OSShtJ
cGNBsCQdvcN8p4JkGwn+uaoa8eL1B/78nu3aSYI9zzLtTqGrAhO2v+shwYUT
eW870EfSF3U9hklw5HTqjncYjyz1J+9wGQz9E813tDA//1TaGshOkGDmvMKq
PHT4z6rDn+YxnxpN7iZgvB3f6LhFcwCYqxxYzofjEckXl1/MCXBFMEjCHf3U
eGxqgBtA6NP06Xp0ayJbU2wpwAqT6G4VHN/F3jtndfkBOKoL1gShFVTmSxyX
AfhZWky8Q7O9TblvrgDovddGX7IwSnJ9k8ssEQI4cOvX7Db0dT6+y8MiAKP5
Wm1C6BfGx75IiAOo81subcLvdya+FKFIAGxMVtYg8pmrT8zURRLPv5g0poVW
VHGJj5cC8B95+qEdr8/Qu+JrmTRAeu6hkx5ozzeysqMyAJqkNRcXsL/xfH42
UusARtKFvwaiXxnX3aWvB3DdFKM+jfHpSdwy5LYBgD9F+KQDWkWl81TlZoAw
Ab5BNYzvW2Pq2dNqAGK9t6WjcDwHEm+XpOzEz/cqzHVj/VneN8n1cRfA09AY
re3oQ95ZEeu0AEp+BL+vH8f5+GbJFwMdgOKVpdyK6Dt8FiK+OD0scjNH4n7j
fEhcEf+FCnD9SpJKGNZD0b7jX//SAQaL/M7yoDVUSmQ2sADqmPafw7F+nnvj
cfeMAUBNpfxgCtbbe3yfBjMNsb+9l6x3oj8Zb1Cu2weg39G7oxrr+aq+5jxF
UxxfX7VFSfSLuJLErYcAml0Gkz/j/cRM//65nYcB4h8a3QxHzyxGO2la4Pj8
Osyth47P8zcBK4z3eid+UfTu47aajKMAc35axd14f2xZbSBvcAyAx7Jq63O0
7+edAia2AA9Pb3eJQUuGrB0/ZA+wJS/jrBf6xU7eNisHbI9Fsz6KNhscKbV1
BAh/ukJoH3rmVvN9x5MAspvCogzRCUYl0adcAFamRsTYoTW57vt5nQLIaDyZ
F4xuex597Iw7gJKjjPcdtL+TPzvEE8BNJu3Ie7SUjO32MC+AzJKUwQni/XSt
/uqrPgBeS1deVcD+mIfuXHLdD68/4Gcpcf++9ZOnNvkswOPw0awK4v5elOX2
PBSAL8K95DnGr9g12qw4DGBr51XjP2hLeX94ewnA7sxmjm0Y/6RL+sJfrgLk
/z13Iw2tq7Nzpv4awGerIx7N6M4x6e7WaACBrxpHBXA8AzN4qrquA+jyve3Z
g5YxG3nUfxPHs8E/wh79ellz3HAcQJPT3h9X0EfevAn6nQAwNpM1T3jRI8th
+haA2Z0fnufRKRujjRaSAP5xfcz0QkObnwZXKsCEbWyHLbr7qo0s/x2AZNmC
44boYLL+UqEMgB1b5WPV0XKTO0bFM3G80svKV6NLsqSbpbIA8lSHjebw+q0t
ed7IZQPIZb+Ib0OnlTVFKucC3LKxnr6Olo/x20p7DrC00dJpAePzlm4jofcC
ILY8gN2Ctvmrt2j0EkB7me2Op2jOnB3fTYvRN69HR6PTraW/WLwGiAlP+eiG
ponzPD9WAri+iWaYoPsqfyU5vAVw8LCw24W+cKYp1KUcIOAknF+LVtj2xsWz
AmDB/2mTBLq8556pXxXm6weXyg3E+ig2SifoA8bzAx/nbjS3nt+G0E8Ynz2U
A3vRGQvHVlz+AvDT7FWYPdH+E73JqBqsf7ruNsFE+3Y7OmLrsJ5slriXhN7w
iTvnThPAqgHHk53E94P/GTe0AHwn73DkxngoqM9O8XwFWL2LObuFiE/yKDh2
4fzj0HIKJOJn8qM/8RsAQz4+Ogstt7Q/4lMvgKLjuc46tIxbW8O2QYBghmnI
RhyPJIVGv2M/AD5amCkaoaVbq2Wu/wS4EGEf742+ffVDWfkIxmPZ15Db6DWU
dyemxgAK7x5JKEEnTr1ZofgHTb/Q2YmWevAy7/Akxn96xJdwwtFnhy5PA0zp
asu1oyXFH88X/wUg2Snh4+ooKa4qO21kDoBZIcFTj5Y4e5chtwjQkc/k+Yy+
uT112JiDDGrUXbEVaPHviVHnOckQv7lFjmj/euJN9WfcZDC8PiT0Ei1qFNX2
nZcMWnO7qp+iY7guB0nyk+EZ58CHx2iRF6EKesvIwGSXu+aio5yD359ZQQZn
WtgGwsLrzrjmCJHBfJWcGXH8tUYvsS4RMpQ7cbg8QwtGuL0QFifDLZp95Sv0
Vd2TVhQJMtR0pVa8Ry//Y895WpIMMhfs3rWiL9+zvndXCr9vJbB6BC1gaWHQ
LE0GE9Mu4aVYjy8JH/zNJ0sG2wHnSQU037t9sZrryND9gPOBGTrMT1/LeT0Z
UleczclE825ldCdtIENU9weTv+jQHgit3kSG4iunpfZh/eeO01JaokSGhb7o
s9loLo7tp+22kmF1ZmKXA94vzj3dsjpWlQxyH51fvEdzOm58XalGhpt7KT3K
uB7mqFvDt0WDDP2160sm0PPpvLd/k8hwNVugwA/vV2fMlpDXU8jQdf65biN6
dvl8/wEafn/upZkKrj/8SqciLjKwPx5n/UPQM16/t71gkeEDhSJbi/ZR+tkw
pEeGxI4V79fg+mOq87vfmr1kOPk9dMkxtPf1bzJ7jcgwpBU2H46eZLaXBRqT
4fOsUWc6+vR804nH+8nQyHohVoieeFy7oseUDE5fhuur0J72n/LEzMjgHn/1
SD16fHXlIbo5GUpPGc21oN2/lM57W2L7qpf+tqLHzhWnZR3B+MjXPGpCn9Io
YLRZkyFvb+SZavTI8JPhZbZkyGxKKClHDwpoq0vak8FNcPlwAbpnc0WgggMZ
QplxhVnodta+KlVHMojMFUTEoZsc2kR0TpLxeS2u5AK65qKdBduFDFXCZSVu
6A93RzJMT5FBQa3rjwX6dS/nbldPMjxw1Unfjn7BeTXE34sM1wSzF6TReetW
fbzog/m2qYrBj848uuVIyhkylGleZvVgfFMDn917cJYMTWGx+RXoxCTS74Ig
MtyI2aeYS6xXi99rloeQobVR2SQBfe3r/gs158lg5Vr/NRwdMdvxuT2UDJ6t
J1zPoi+sPrFqKAzjl9/42GeK2O8et568RAYuX0GmL9r3UED2kiuY3zoWtUFo
D2/eiRWRmP++KcORaOebUTpSUWQ4/TRNmVgvH38qFbYxhgw7D+/fQFyfdX1G
jdoNMkTbSVqPos3Ht0qRYsmgu0XIWh77d0Ck0FY/ngzbV5mlHkUbqlJzDiWS
weK41fV7aJbR5ynb22RwHJK6M4umuB4Ct2QyBL6133IY11vaV79dCkglw5/1
O8+XoXc9PFkffocMYkL9v/fg+kz146T0zQyMl2h4fjFa6UfQ8bRMMtwV2DCt
j+s7BX6BxzlZZBhd7X7oN1pG8cbfwmw8/1xoXgOuDyWZMtSKh2RIiRAtJp6H
RI9nXanLJcN9l9rzr3A9ujxUranzMRmWUH4tL10cJS0pYzhOPyWDaNTS224c
Y6T5bzV5XAVkiBxZ2rSAnuKwmBcqJMPifFvZ1SVjpB+6p64pvsL8Fyyxzecc
I9W9jHt2+B0ZnvsuNnLzjJE+ta77Z19Jhr7cN8Ox6IqZByyP9/h5amnnRt4x
0stdJV8jPmP9iE78rbN0jPTUVG9DXDX2X0ftWxk693SDa3otGThCnhnS+cZI
WdePvHhUTwZhy9b7peg7eYNLihvJcMrpuspu/jHS7VoP/apmMpwwXKJyEx07
Nn+joZUM6lab64bRUUJhnd1fyWB3ke+XlsAYKWKriOKvDjK8uttqEoq+sPeW
+98unJ/V/J2V6EDnDUU8PVi/byu7ci0bI/lefsQt2keG315jAxpoz+w9hjLf
yTDRI6pujz5SFEiTGySDxzrX2Ai03qcyTfkfeD7Bm1NZ6F0dfNsVfpLBMtLb
sAQtP7J308YRrLdV527VoAX/xaxVHCPDr6upXa3ov0ItYkrjGI8y+XXt6D65
tQLKE2QoeffKqRlds92GY+sUGRoaAz5+RBdT7k1tm8H6F1BwsBCdtf/nz+2z
eL5JXoVU9A277b075slw4KaWUTA6yMu7VX0R80XVZOYw2uliUbUGBwVehjpS
VdAH4zgq9nBSgDujwGwW40HJohdrcVPAI9j+ZBF6a2FEng4vBT4LUY94oKU+
VGeR+Cjw9gQMrUfzfBVPIQtQQJtd5FSD8W+fT75MF6TA6/53rWvQlyHfbq8E
BZIHVB+E4XgPVn6VsNpIgYU1I14i3GOkhha5FUcVKXDFNudeOhfxexF7rmNK
FCite31KA/1wNvuvjTIFTjutUvuM+Re3bGzUbisFQl73GNmjz0mrfz+uSoFZ
U6VNHGhXFf/2E2oU8J48M/MQ85dhxP3eeRcF+jLMPgmj1azZb1x3U0Aq/82b
Ssz3te6Rz9w0KSAqKb35HJrvXP0DD20KjIq3rQL0RIzkndO6FCDpi8YvQXen
W8V7AwVu6zPtr/7D55OndyJ9KRToOZfYJoNOb1I+E8CgQJt2+c1DON8iB9zd
A1kUmA/d0riI89F/5rlDsB4FToQYsHLQx/nnrc4ZUCD1rlunDdpEinzggiEF
/j1vCZFF6265qHdxHwX2JYyt6sX5vVn7I4SbUCBg3fkQYj9EfK+wRsQB7M/A
r8RANMcRU5UrBykgLWGqfRD90zVxfaQZBY5D856d6JagrtVR5hjPbaW2kujy
KAXhGEsKTD4rvciJfpTmyHvjCAVqCz/PjmN9SczLnb9pTYHes00NQ+iLZX/G
42woYCbdNd6P9mjYPZRgR4E7YU1CxP7Ikf6zXbeOU+BXulLfT7TidEPM+xM4
PosOGjPoP3zKjGknHA9FljUftvda6vxfBRcKFIQfmZNGhyu3PTQ5RQHVhm3p
6uj9ututg90xf2hRY8ZomX3hYrmeFPjycckZd3S+5y5/fl8KxL8qTH2BDgy9
qqLhTwGvcy8cutCsuL5uuwAKuARMli3FeHa+jGGWBFPAOKko1gKd9Wlo9tc5
CnRuXK9zEe3ZCblrQilwQ5zS+piI/1jcMXYYBR6soy/9iubjHBX3uUSBkbqn
9tw4vnVijKqMy3h8nqSmEjppQ9KZuqs4Xsp0Mwb6hMbEVo4oCrSreH62Rqux
9XtUYiigMObj6YeeN79z0+IGBTZb22+KQlc6/2VdiqWAX6Lf+wx0TOC++efx
FMg9LqhTgLaMuveoL5ECf/LCT1SiN95ZtBFNooC/EEu9Ef0731QCUiiwuDn2
Wje6+N3D9y5pFKCxY48PoS82c529lU6B2KqdD0fRxkPmqu/v4ufXJUz/oKXn
nvRO3aOATGq42QT6+3L+OIVsHD/nU4/H0U9krPVMHlJA2X/X4RF0gGrBQlAu
Bfgq3hgPoBkUwSc5jylgxdp/qwMtcsDe7mseBWZcIvfUotvti1fxP6PAuhv7
1d6iM33EPu4qoMCqC4VXH6PdLzkF2hVSQG5LBek2WvtW6faYIoxP6ga9UDRv
jmT/m1cUOGRysOMkuub1qfhfbyjwqvGKwD70rZoK/TVv8fzr2/q2o1UnTud5
V1DAgNI2OYLjN8vzyT6jigJNI/stPqDfrVq/uu4DBYIvGXxMR5tr1QapVFNg
eExzjzFaYa/iDotanF82w+4b0KNHgr6H1+N893VSmsH8unBOZW9fMwWui3Em
E/uHj95fkrrVTYGxgBbrGsx3bjPKM75xCqiXZdYr4P1br0FxhcgEBWQ/Ljk8
gff7a/uE7FdPYT1U3VpbjpZit4srzWL8/U/vckRbv3vrrDZPgZ1W59100HfJ
98s1Fyng80ZCQ4xYP2h6n9bnpELntbdzxPrC+7nlp/3cVBAoCoAUdJEaVcGS
lwr/OKqSA9AcjzYH2PFRIalUVsMSzdgi3OAsQAWDqgeKuugr96a2eC2nQmW7
QrQ8unZ9x/mzglT4tr/wCj9aIrXsa6gwFYxTf6v/wfWOpXT2jkhRKnj03rjb
hb4TH3U5VpwKpR5C8XXoAXGf3mQJKsyvmTX4gFaOttK6J0mFlfKtvcR61mMF
7fojKSq0Lg8xe0usNy8pDRdIU2HUeCyD8AKPCLVEhgoV6UdL3xHrq3PTiVVy
VIgHk4yP6PDFjvEaeSpYkDMpDegv/uV6rQpUeDOYcY24HrHp7DvfNlJBcVz0
7C+0mWf07JAiFe50w9wCOnnUx2RciQode9f8Fcb+9Z08kj2rTAWFPVp2G9FK
gzROrm1UMD849V983Oy2mC/bToURy1NqZuhn3SJ5Yjvw+g9mOp1Gz1rO8Eur
UyF6NPxlDBpaO48paFCBv4xTIB/9qfaBiLoWFbZIvKX8RYsaxjjq6FChieEw
LYPjeeiDbymdRAW1vPMUBrGf95bufpCK7XnrX72FViQpvz9Cp8JkXNrDKrRL
keg6ByYVBlX2dk6hZ/K7anz0qTA+UNpnivkmeNdPNWE/5oevwikpzMcD66zD
00yp8Mt+3UoDdEISo/v+ISoc4D977yxaIVYs6qUFFfgKC3m60U6iswNvraig
Idd8VZjI78hu0sejVPhSw3cG0JphOaNfbalQ357Gl0zsr3PdYPbZU2Hsvo7r
R/S7IP+Unw5UkA65XjaNFpi3np5wpIJL3OKIPM6nfb5Mo4WTVFhuGN1igI6d
ULnH40qFo4oz273QX93E/61wo0Jx8hatG2i5X7MHJTyo8POH+fcnxP3T8Vuu
zGkqfNr/kPIFHfG9tczEmwoFXoWJw+hHtnUtF32pIF+2cGMp1oMZqzLO0QAq
MNoftmqhI0zuHnwTip/XpPXHo3Ork07+CaPCiyuskFx0vUFs8KYIKjzee+5F
GVEfmWHZ1yKp4GqzJ/wX8fvD8qA3ZVGYnyFRJzjx/m9H9m2YjsH5crjKcxU6
R8tx8WgcFS7NfomnoOteHBO7kUAFGfK2GTP0lLq5YtUtnD+jHg1uaKl8E535
JCqklm26cAWtq6pvoppKhf5n4eL30TY5VAe7OxjfluMxFegwJe2A+AxsfxmZ
vx9do6CSyXGfCpfjwy+IEuuXtA1FOx9QwR8EjNejV8vK1JzIoYJn7YrsnWib
1UKzNU+o4MAO5j9MHL/i9960l1Sw4lp9KQsteXnIprEYx+d7w/tXaB2+Hh/+
N1ToqS+Lrkdf5KxPcy/D6/FRz+DA9ZXk9NNJ8icqvHYjTdqhtU/nCHh/ocKu
Bzzpwehjv+/KZtdQQdj6ktdtdPZwLFu0EY/XN5dvII7v9k3q6aCC9foneYDr
OWsr9zyJbirwvM1LN0eHtjlW6vVQsd6q9HqivzSY/877ToXgWbVv6ehx4/28
A4NU2BNh7/QSvapaf82aYRxfv7jmauJ877Xp50epECJh+HcKfYGhbl7wmwox
ws5n+XC9eb9M5dTwHyrcfjFxQRL9BTZekJ2iQl+pZddG9PgrmYT9M1SQjM1x
VkVLaK3KDZulwqvCCcPdaM0XQmVF81hfpr6d00UfUedrGV2kwq0MK14q+nwe
x6/1S2hwTy+khY6WTwzPVOOigT//hz8M9NsQYWsyDw0+PLoaS/iYY/zqfUtp
UB3w5i0NzWEsV3+EnwbK/BvOkNGpu7OuuCyjgfsy4zJtNElOlRGwggbR0skp
u9CdS1/8ixCigXXA5pXb0IGjpMIEERqINH3eTPRHprnSI0uMBo+4ZfrWoF+9
NlIuWEmDxOaj+sJoy8zm/neraMDVfNGBCz1/9WhKw2oaOPBtI09i/G57DZj1
rqHB8vy4b/1oLatTouNraXBGIdmkEe2vHBQqJE+D1QZjNY/RUuJLSTIK2B/F
zem30YVzkTPKG2kQvNu/+SJ65kPyST0lGvx5KhtkhvZyfG0cqkaD/M1iOeOY
H26ZC2vnKDT4fSHZRhQtHBnazE+nwan18rWTmI+PvFZESzJp8IzebNWKHqGt
5d6lTwPxnpOr0tBXle++ou2lweOG9cdD0criKj77jWjwUTtDwgl9slf7h9t+
GhzQ0KVooAU+lqcHmdKgz7SbJovOzjOwijxEg5LQyfql6MEQy5oHFjT4Xnz2
yDOcf8flAp5/t6XByUz1MiE0Lx+326Q9DTTtvTKJ9dfd0cubuU/QQJ7neH85
uu/1rdvrnGnQdVn4QhD6fOb6g6quNODbrTV4BC0f+UCI5EaD9YacT0joY1ZF
5yxP02AqWuQUD5qDTtU+6U0D4VU+x35gvUtV/jjp50sDofxXeTVokvj+R+H+
ON4zxkdfEOvfubYTcQE0mOCptklDB/bayGcG0oB/ZfPsZfTajz++Pg3GfJQJ
vueLtkycNay7QANnnw9PTdG/PHWeNV2kQUj6azaD+P7e4DVfwzE/ejVGNdBC
m8pCuiJo0OaXFa9EXA8H72DvFRq4cgrvkUFvb2MZDkbSYE330jJR9Nv8y09/
RtEg90m1Ih+677hIyOQNGhSdP2Q0ifcLLzgw8DeWBlq/6X9+onml4vYuxtMg
ScR/Tz867k9rPuctGoweUxHrJN6nfZaWWppEg3PsCHfi/W9h5tHgZSk0sLvy
gk68H9YLvvNdKI0GLa+Ggon7k/MOxXzJuzg/JmJ/l6AXlp9cvfYeDehqqwSK
0ZHfc4LW3aeBwbMiowL044QdBko5OP5e3v8eoif+6fZrPaNB+2sO0k10aGuI
PhTQYOGC6XbifZ9EfvkTWiENjrvmLrs0T7xv0gvc+wrz49Fp2wDi/fYn01VH
39HgZ1OjwjH0isz4s7aVNPA07W89jE4O+trr8J4GZuKBZiboErVjj90+43zZ
U/SAgjZeniHhVU2DNBd2oCa6p/97gF8tDWQua0ioobkTnNnnGmkw0+gYJ4e+
6fHo0cVm7J9exLlV6I0G4ysvt9JgcuH37RXogg3qAde+0mBLx9wh4nmQ9c+n
53oHDdRrxH9M4Xrgiv35M3f7sb44MO2r0GtJFd/uD9DgMPVXRTE6V5KflTtE
g9OcZvAEXfMxUrzgFw1CR5j3E9HH7tb6F43S4A7N5/E19Hig+Lc3v2nQevHe
4gW0uFpiTtUkDUTJoSlu6LvLOsQ+T9PA8f1Lfgf0rn5Z/9q/NJgVHxqyQle+
tulunMP5feSEvinaLP4uo20B86vPaM9e9JD74MPOfzQor3B8TUf7628R611C
h4PfNvbrogU2uPoNcNGh+25MwW70rcXHXcM8dAieYZB2EJ+38nBJ89Eh1Ha9
gyrx/XzzjQYCdFh7UOLTVvSPq4/YAcvpsPOCuzBh8xPcLg8F6SDWJqhG+APl
cFS7MB28jOS3bkNrrs3NXy5GB7Yvdcl2dPY0Z7P2Sjq4rvS5R7QnVXdo1nkV
Hdzv7pbWQEc8fLg2aTUdmJPnzbXQsxeXkD+voYPok05LINZnxw7aLaylQ8vE
sbUMdJvWgzAVOTqQO8puEus7PQmOB1bydLCUPPZmP/rl2IEvVxXosN+bcd2C
eL6/uyg+okiHqB8V0i5Ef4P375bZQgdPG0qZN9Ff8ywLQxU6/PjWOhlM9E/I
5E7udjo8MfXvikWv9ru77ZQmHeRkPxyqQIfvnzVJ0aaDn5bFMuJ9+4yKkXe1
Lh2OXtkiTqwnW3pmirdRsf0OS6E5dLyBgd6YPh1Gl3qvIvYn+DalucgZ0mHr
0akuIr99l0xF7dtHh3+6fxqI53+z5ynNjw/QYXbBa4cbWlLuj527FR0MJtaZ
5/5XDxKCxl3p0J4wwaWI9YT3y8gdeXc6FGkERhL1yTuLWmHiSYemhi0MJvqg
1a/l+T54/u0K+xzQEpWQ6BlMh0u2W8yz0RfTbr5KP0eH+mMaLUXoqTM/uusv
0CElxuHBZ3ST6o1NOy/RQTdh0m6cWL8mDjydiKbD5mUW98hYn0O6Pgb8u06H
hmcVPqZoZ4XHNIFYOihs7c52RFNyfRtkE+kgmJ6idR39q5R/Qu8OHWbKBgWH
0bShLTvS8ugQGyYpk4P3k21bhecePKXDdakbXJXEetFz4u3z53SwW6IG39Cj
88Umn17SQTzqovkyvD8lCht6TL+lQ1mo8gUK+reG25O99XT4fPhtxHN0e8AB
P7NGOoTzPXV6h64o3U22bcbrPSV7qAF9W39Jre9XOmRMu7PH0ayjMWPpvXSY
/tmyeyvef3dkeL/I7afDFup+eR20zJB5cOEAxhNq5/XRfzzWC1cP02GgY5eT
Ezr54tNts3/osKuv0y8Tfelj/DT3FB2cuhVnnqJPC599IzSD+dXDqVaG1kuk
G22Yp4Pp3h0vO9HqXZtXqS7S4ZWO199htJyCYJcmBwOEXyo2zaAnc5pc93Ez
IG+eqieC64fu8Ze7LHgZsIm8sl4a/UEjZdGejwG3zqu3b0I/Czhf4SbAgB0F
2UfU0KmlDpFnljPA8GnGfm30ZV6DgxcFGeDqee4pHe2tryoTLcwAaVazvyH6
WJT491uiDHi/xi31INqgcSYnU5wBL7PMZI+gJdaMqnVIMGD6hvtBYr+y27q/
QGw1A0JHR7efRGdnftXWW8OAfuXwPW5oz5+1pcFrGRDcb+F0Gq2tVsUokGXA
XeWZUh80r+/rj7/WMUDzsamuP7rm1dN9CgoMONnS0nEGncj1oNF8IwPsB4xT
AtB27DTzaEUGLEouhBDeei2uq1KJAS5vz4USx880XLVbVMbP3afv+6FLpS4M
7dzGgFeC7aPe6Ahrf9eT2xmwdWatGbHePpDp9idtBx6/YVWfK1rm53HfFnUG
PGNG3nRED263WhDcje33PXe1Ref57D9H12SArf92D0t0wCv20gBtBownLyP+
Hh2JwQVX8nQZMLu2hNsALcTeJTIEDChYrXGLgm6JVI6VpWL8lSqcdqPvNMiv
OUjH9hPaupXRu6yFNpSxGdAh57ZVDM2RyZP9V58BFXDflIcY7+G5raqGOL6k
hq4pzI8jPoO7k0wYoAsljBZ0aGSpgY8FA1Rb6q7dRBs2FNTmWDGAQVZaOE88
z0jlHuw7ip/feLPBA/3wbqK1sR0DFh77Ne1FNxR7nt7iwoCyn/l/uIj85nT6
e+wUA/ZdVfH9jfPlBMs6MN4dz6frQulCz9UbhPN4M0DHXep2MVp+eMPtrkAG
PBZzP+6H/qkqvU4ihAFKBUc2OKKfe4tmGpxngHrzjg3E8xmb89+jwjAG7N/W
N7UH7ba6pex6FPY/uT1gEee/5tEvrA8xDFBO0X7Xg+a+W/6Z4yZ+f3Xja6Je
xKk+aXZJYMCUa0r9dfRrZsQw8w72Rzz/szraP0hr7ekMBmTwsTvk0OoFPw1T
MxnAp34tZTn64UajvJlsBtRrhm3/jvXJ4QhHn0IOA1o2r5urJ9arsU9WGj9i
gF2e3klify+BR9zvfj4Dqg5aqqahD+i8y258xgChKZOz0WhhL+/2JS8YYHCS
59g5Yn+yr4VkXsyAfHH2V3v06bIk3mXvGHBeg1N2B7GfN2e4W6MS48l3NXMT
eliNw8n2PQMcLuSkSaNt7th8LvrMgKhIq1XE8/7aNrF/A9U4/scjT81jfW4R
eacqXscAhR7mDqJeG4VsuuHcxACSbOm/TrRAYcu7+BYGdD+TE2hCV4xdmi5v
Y8DmP7TzRL0PUdTa/LudAV+3HXV+h9a2/mm+tosBiR7lFcT7tpm4pCvsbwxI
uzV8/Tk6v9rwtVcvA4KiTjY+QiuRnqz7MsCAdzeOFxP7jd+9bfbPDjEAxFLs
k9FpuWKhG38yQO76vYgEYv39vfy5yQjmX8YtlZtoSRnvwcAxBlR/e7AvGl1v
uknqwTgDsmSkp66iI6+26DdPMOBEFFmOWM/rvbt0lmuaAafngmvD0TwLmo+2
/WVAaqfB8jB0yc6f3RZzDPi8+Xt4KDrAOUk0fAGPX/7+xgW0RoYh7ek/BqS8
t9pJePzrP6/uJUywWxNwknCu2JN7y7mZoKs7rUN831HfpnU3LxPuiSc8IvbT
Fc6LLbPnY0KG3tpyov3ul+Xa0QJMMPNTDiKu7/a4l+ur5UyI1zvUF4k+pLQp
dUiQCT63RaZj0KI2LbUrRZjQmZHzMg79JeESF0WMCStXHlJLQl+q1VR3XckE
Kx3BY0Q8afw/jyeuYkKAajqbuH9zkJPiK1YzYd/A4xFiv6jI1/DD+BomHLWL
N3lJrAce/5uTkWGCS/MZnzK02uBjFX05JvCW7jlKjPcvWZujPvJMkJA4sayF
eF9wSCw6XYEJ3rZGZ3vRdtfK31ZvZIKD+qrSUbRspdfEnCITsuj/5BeI9cCu
lkMHVPD4UxK7pDAfP7VIbrXYxoTChLfVimjOM4e5bbYzQfXhP6Hd6FNv2h6f
UmfCaGSqvxmaxergv6zDhFshmXdT0YE/1nZHk5jwyXZK/in62ZUjz+PJTJg9
oaNcRcy/2i6bTDoTNHMqq3+j5w73FJXuZUK/tMk7PZy/avPyMVVGTBDdNyVo
gz6RbHui2hjHI6bouR+6oadPvMOUCUayvyuz0bknB1xmrJig7nfiJR/WG+uz
P2W3uTKB4SgzdgodK6sype7GhLOZPI4B6E+lLp+0PZgQVdWfH47ewzvqq+fN
hFZJy7upRL3K2mZk7IvxrmrXfYjO1HPbYObPhF3LtkcVoEWv/a61D8T4vD0D
n4n1xna1LOdgJuyWuxfTjA6s9wj0PMeEiDtw/xt6eNWEUshFvF5+zy8TRD19
uXNJeDgT8gRu5hHvs80svZojI5gQDDtX82J9Lk+dOn87EvO3XWv/SvQsRcM8
PYoJ76BktTRatd9HNTuGCfdvcLHl0cfDXvA+ucGE9Bnpr5vQSZv/thfEYn+V
bT8oE/X/45781/FMOOPqLrIdLeDqf+ldIhOSzZUf7ESDcNHRT7eZ8O19RYwG
2jtvTr0+mQl+TyrK9hD3kwPay9tSmbCGU0BTC907FdDTfYcJGmEffxOWSnj1
YiCDCToV9wYI79NajBzJZEJLR5ok4YsduvaTWRgfe8VzxPmKg4K05rOZwNSX
kifaG19XIsKVw4SpZx+ndqA3l3MM8j9iAqdq6odtaF2H/We0nzCBe0uG62b0
AYFMwVP5GB8r201E/x1zZtLSnjHBjRIxuxoduE9fvaGACfJ9riPE+9Trf5Kq
eF8yYTp1mcBSdFbsmMWeYiZ8/v33wDzGv6795rnkEibwm6sk9qEHggZX1r5l
Qt3X6ExiPOflte5zvWPCWpMA3g/oTY7d1SfeMyFIeeEHkR8Bk0prd9QxQeX9
9nBndHT82cf2DdiftyGuFkT+aNVQ45swP82t+fTQtSFeTgttTJDscYjciN4o
WFJQ2csE7W+F3PmYz1pPRPVn+5mQLbAxj9hf3XfAvlN5kAnPfBd/HUefSRTg
ifnJhJJNVq/XoqN0rOLLR3A8ZW9mzRLvq7ofbZkeYwJfLutTC/H+aaOpieUk
E4yHLtomoPvf3+uPnGbCd2fpjQHoWedZ39K/TLgrOfqGeP8nLLx3+cQc1se3
sqZM9Ib8lJSNi5g/sop8qmjNg+NqhzlYwHz6+C9RL/b9pVVc5mRBS9VxFh/a
/nbc4dfcLCg7XCc8Q7xPJv34OcbLAl8BZRdi/+daj3bwen4WWK/a4dWFzgi9
JnZwGQsYW5xudqBfKvZkhq9gwQWPtK3E59Ufd2oWCbHAf3DChahnfa5hn3+J
sCB37Skgzjcr0mYtJ47tD+dE/SH2d54pT5hIsGDeh4f5j6jvZkFhoZIsiNyZ
zl6B17dnrlbqhRQLLvU+DliLNkxWyP0hzYKYeJ+32xaJ/XEf8lpZFggVnZuj
ov363jcYrWPBXr4yXnPifXmY9Ilz61kQf/NJqTs6Q+nU3NMNLDhc58F3Gf3F
TVxeSokFigObM4jfs/SKOTwzUGZBluf8g05if/95IStoKwteS6fdnUevXzhy
qk+NBSc8ln7SxPH0vXS/OFeLBZtTPr4pQvPFXZ4o0sHrbWptb0XHZ7govyex
IHuLWM40+sWb7bd7qdjenPaYJFGPPos1jNFZ8Hv9F45N6Ja2yWWLTBZMNHPd
J/bT/04WnpE0YIHr2LpzhugIrtv5GwxZwKu54qY5WkokcFhtH17P32Iu4t/7
Z8tYrwcTFkRXXi0hfo+jqUyx2HuABbJJga/90R/2KFw3P8iCsz06v8+jzZm8
Hx3MWMATvGvvFfSPA4OcXuZ4fSO3K6+j/W0+aJ6zZMENesDBRGL/0u2hx7Uj
LLAwKhtLIZ4Hz0Zm37ZmweqbxpEZaKXLbj33bdDu3IrEfn9RvIlUgR0LTlWI
eN1HG2TuNCk/zgKF+JlPmcTzYr5ERO0JFkgV2WxKRzuXzpR2OmF/17ZGJxPz
+Uvb32FnFvjcapBKQF9pL97+15UFC3ezamPQ0j+SHXndWRAy6FJxGf1wOjhN
zBPzd/Qn/wW0No9tq5wXxuNLeM4Z4n4iShfZ6sOCkYrNZR5oS7lNbC0/bO/X
JitifXxWa/iF6Vnsn5y+oylakP15zCaIBVbG15boo5MPPlJ0C2GBEoPmRPye
47W7Z3xEKAvY/MtnldCGQaY1cWEs4LxxnCmH7ryiwXf3Egvq7uFCFr14b87n
zVUWJBYpbiR+/xH5rOPRp2ssyH+UkjWC+SFT9magNZoFu3ir5DuI+2VNmuzA
dRbM0J6sq0OTOs8fmriJ+d1WyldFvJ8Ztr+2JJ4FjaUv2l6jrf8yKwUTWRAh
tjThOXqMV+nfmtt4Pdmd1EfoYPHlGpuTWVBcBW1ZaGH5EdddqZg/b5ebp6NT
t9VkUu+wYEeKYEkyWlUnr3NfBgtEy1bw3UKX6N2QOJKJ+Xfjq3I8Ue/MvA1P
ZrHARc5GMRbdbW920TebBax3eX9uoN08NV+HPmTBxQbxMMJLQqSnYnJZoKcl
3kY4JnJRJfUxC0AxqvcmWv52t31OHtaHJ+8T4tB5998mvXzKglsBHuMJaEpB
RmPlcxa4HyvquU28/yq/uKLxBQuGxGyPphLvs+pO0Hte4vyrKrfMQI936Z0d
LWaB8NfvX4j+nvul/Gz+NdYvmfB4Yv+D+9f7hH8lLCjlfTDwBH3x5/FAzjIW
GLilXSTid2k4lclXyYI7nb+vlRD1e0i8Tawa41/YVN2EFh168lqilgXp2w8l
t6NvDBqmr65nwZvVacT/706KGwh3lm3GfKloFSTGN7l/flGpC+OTfpT4e2Qk
uf6EXpVvLGjn+XODG32nb1eVai8LYrsfcRDvAxT66h/u6GfBV38efX703V63
6F0DLNCKjHIj9mM29q7w3jPEgrl2GdcV6KyebHPtYRY8qMoDIWI+9jBJpF8Y
PynnY8LE/PjWt54yygL9smOdhLd+C+Gj/8b49x7dKoJ+3C3zi/mHBbvPLZgQ
VusuqtWbZEGDL48h4fwus+d7p9FJHusI7+yaTNz3lwVmf05WE+d73hkTtH+O
BZINYE54d+c2u4MLLMiUsy8nrudlxyfW4X9oZxdhwtodjiqWS9ggqLyMLEjM
p3Ze0aNcbLDp5jtM9Afa06eO8bBhjM6wWI4u/Qpf7Zbi8SFP9Yj+U752vHHg
Z4OZvomSALq8zT/DaRkbBuQUF4j1ZVXrUxc3ITZovywI50XrtRqbeIqwoa81
islD1IOWkV3eYni+Va08RPwNWy6v8VuJ7VlHVRDjU92syBGwig1ZvvevEPN1
X/O7vsDVbLggw2vBQaxHmmzeh6xhQ9Ub50f/cHwPNP3LubCWDZtHoyuJ5+em
xtsxYbJsUD9bOLWANmvc4xOxjg2Xj3PoEG5raLK4up4NP/kPJ86jLRs8IWoD
G757XxUk3FEvvOH6JjYEF5MT5tBH6nP4Yzfj9WtM7SHcXac3Er+FDUt7+cdm
/8v/gbpbKhiP9OKXhPtqLxQkb2ODY/z2BMLHa9fdTtvOhngn9wjCgzWvgzN2
sOFVgvNVwk41Fvb31NlQ83EhlfBw9Qw7W4MNiWt+lhF2rr65NWcPGw47/Jog
PPJFTeyxFhvcU7LUiOtx+1I9nafDBqGVL4i/r0Qa/+zc/ozEho6qB8TfYyLt
/7ImsI/MhujpDWpE/55++SArRmOD08U7SYTFq/1KyQw2LBxVFyLi41WtaOvG
YkPFVSd9wk3VzdwpemzouhjoQXhXzcXMzwZsoN8zvU14pqZvSMmYDTc8Pf8f
79rrlw/vx/bfNm0gxqOwlqISbsqG6092HSTsX5fq1n+YDQc4TV4QXqi3nE6x
YcOJfTk+xHgeaViW8MWODWfDojIIv254qblwnA0Bb3OqCcs2OrZvcWTDkYjS
GcLBjZKB5icxvrkVQkR+dDdWyl5yYYN17/A6wuQm79KCU5hP2s/VCN9p2mD7
3Z0NijsEKYQ5mxu4V55mQ9BwJ/H3tki2zeczqd7YfgLvIcLlzWosD1821Lqt
tySs0PJtKNWfDclthUcJh7ZEXa4OYMPLVS3HCH9vIaksBrLBNyvShjCjdeSL
cggbbsmM/ff5vdYkN4vzbDAdFbYmzNdmIBoRygYt+lIrwo5tc/kvwnD+1P0w
I/yhLdt04BIbktIa9hNW+np4euUVNowMde4lfPkrXwItkg1cXQpMwj+/Fmh6
RmF+n39LImzQfrw9LQaPD2jQICzYUS77L5YNGwQ/bCTs2uFZqpLAhjTvwbWE
qzvkbS1vseGZz5g4YdXOWu7LSWzYsfnfMsJRncGZhSlsmNy2nYvw785trME0
zN/rz6aI8TDp6hySyGDD0I8rvwnndV29TM9kg6f1yl+Exbq1VU5nsaE5wmiI
8Onu4S93stmwR1/zO+GG7kS32odsMB6s6yWs/o0tyvGIDXqbV/YQjv02k7/1
CcbTba6b8KGeg9OXn7Ghjh73nyV7n2oOFWJ+Jx7773i/Xtv2VcUYX/PF/87X
1isayHjNhtzlvP+1p9lXKutVwgYHqvMg4Vt9bqXpb/F6OBWGCc/3ydrWlbPh
X6vsCGHL/i/cSyrZ4Mdl8l//ZL4rs458xPqzat1/+dhYdL/BrZoNu83FFglf
id547Hw9G1QMVf8Rpjmk/7rZzIYr2zFdif1EbTn/rK9sKOt0/s9Og6uvf+7F
/HZr+88t18Uejg+zIT9j4D8/+8HbqT3PhnBZzf8cQ54VCluuB0xt9f9sMNrt
uUZFDxxOjP3XHk9SZfOjvXrwuXHiP+uGxSQ4x+qB7+DCf/Z2t7LY3KUH3Bwc
/33/f6EhPzk=
        "]]},
      Annotation[#, "Charting`Private`Tag$3415#1"]& ]}, {}, {}}, 
   {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{40.62731876989103, 1.1}, {40.62731876989103, -1.1}}]}, 
   {RGBColor[1, 0, 0], Thickness[Large], 
    ArrowBox[{{37.76935889205098, 0.24761183008672516`}, {21.844177706670074`,
      0.24761183008672516`}}]}, 
   TagBox[InsetBox[
     SubscriptBox["r", "crit"], {43, 0.5},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "1"}], ",", " ", 
      RowBox[{"\[CapitalLambda]", "=", "0.001"}]}], {13, 0.9},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      SubscriptBox["r", "0"], "  ", "<", " ", 
      SubscriptBox["r", "crit"]}], {13, 0.7},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   {RGBColor[1, 0.5, 0.5], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{53.74345066819551, 1.1}, {53.74345066819551, -1.1}}]}, 
   {RGBColor[1, 0.5, 0.5], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{2.0026773905721935`, 1.1}, {2.0026773905721935`, -1.1}}]}, 
   TagBox[InsetBox[
     SubscriptBox["r", "min"], {4.0026773905721935, 0.5},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     SubscriptBox["r", "max"], {55.74345066819551, 0.5},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{"t", "=", "0"}], {34.62731876989103, -0.5},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{"t", "=", "60"}], {18.5, -0.5},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{Large, FontFamily -> "Times", Italic},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["\"r\"", TraditionalForm], 
    FormBox["\"\[CapitalPhi](r)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{785., Automatic},
  LabelStyle->Directive[
    GrayLevel[0], Large],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-2, 57.74345066819551}, {-1.1, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7324598787792063`*^9, {3.732459910036289*^9, 3.7324599458922296`*^9}, {
   3.7324600129921083`*^9, 3.7324600412391567`*^9}, 3.7324600904676056`*^9, 
   3.7324601208355217`*^9, {3.732460241664674*^9, 3.73246026315635*^9}, 
   3.7324611519457655`*^9, {3.7324612306181207`*^9, 3.7324612402788005`*^9}, {
   3.7324612720081954`*^9, 3.7324612852682467`*^9}, 3.732461349268618*^9, 
   3.7324614062788277`*^9, 3.732515327166504*^9, 3.7325157429781017`*^9, 
   3.7325159453413315`*^9, 3.7325164336773787`*^9, 3.732950435635075*^9, 
   3.733206566473527*^9, 3.733369949523991*^9}],

Cell[BoxData["\<\"pdecol.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.7324598787792063`*^9, {3.732459910036289*^9, 3.7324599458922296`*^9}, {
   3.7324600129921083`*^9, 3.7324600412391567`*^9}, 3.7324600904676056`*^9, 
   3.7324601208355217`*^9, {3.732460241664674*^9, 3.73246026315635*^9}, 
   3.7324611519457655`*^9, {3.7324612306181207`*^9, 3.7324612402788005`*^9}, {
   3.7324612720081954`*^9, 3.7324612852682467`*^9}, 3.732461349268618*^9, 
   3.7324614062788277`*^9, 3.732515327166504*^9, 3.7325157429781017`*^9, 
   3.7325159453413315`*^9, 3.7325164336773787`*^9, 3.732950435635075*^9, 
   3.733206566473527*^9, 3.733369949813309*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"rdisk", "=", "0.5"}], ";", 
  RowBox[{"xdisk", "=", "0"}], ";", 
  RowBox[{"ydisk", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"mondraw", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Orange", ",", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"xdisk", ",", "ydisk"}], "}"}], ",", "rdisk"}], "]"}]}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"xdisk", ",", 
            RowBox[{"ydisk", "+", "rdisk"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"xdisk", ",", 
            RowBox[{"ydisk", "+", "rdisk", "+", "0.5"}]}], "}"}]}], "}"}], 
        "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk", "+", "rdisk"}], ",", "ydisk"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk", "+", "rdisk", "+", "0.5"}], ",", "ydisk"}], 
           "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"xdisk", ",", 
            RowBox[{"ydisk", "-", "rdisk"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"xdisk", ",", 
            RowBox[{"ydisk", "-", "rdisk", "-", "0.5"}]}], "}"}]}], "}"}], 
        "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk", "-", "rdisk"}], ",", "ydisk"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk", "-", "rdisk", "-", "0.5"}], ",", "ydisk"}], 
           "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Orange", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk", "+", "rdisk"}], ",", "ydisk"}], "}"}]}], "}"}], 
        "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Black", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"xdisk", ",", "ydisk"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk", "+", "rdisk"}], ",", "ydisk"}], "}"}]}], "}"}], 
        "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Black", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.2566", ",", "2.586"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.007683", ",", "2.586"}], "}"}]}], "}"}], "]"}]}], "}"}],
      "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Black", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"xdisk", ",", "ydisk"}], "}"}]}], "}"}], "]"}]}], "}"}], 
     "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "Large", "]"}], ",", "Red", ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"xdisk", ",", "ydisk"}], "}"}], "]"}]}], "}"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\[CapitalDelta]r\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"0.3", ",", "5.2"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\[CapitalDelta]\[Theta]\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"0.15", ",", "2.7"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(0\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.2"}], ",", "3.5"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<Black Hole\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"0.7", ",", "0.2"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<Monopole\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"0.7", ",", "5.5"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black", ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Large", ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Italic"}], 
      "}"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"Frame", "\[Rule]", "False"}], ",", 
    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "xdisk"}], "-", "rdisk", "-", "2"}], ",", 
         RowBox[{"xdisk", "+", "rdisk", "+", "2"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"ydisk", "+", "rdisk", "+", "1"}]}], "}"}]}], "}"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<mondraw.pdf\>\"", ",", "mondraw", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "1000"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "2", "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7324620588649387`*^9, 3.732462102005061*^9}, {
   3.732462164436886*^9, 3.732462204518671*^9}, {3.7324622472129955`*^9, 
   3.732462282019206*^9}, {3.7324623143416834`*^9, 3.7324626742232265`*^9}, {
   3.7324627866823735`*^9, 3.732462833113333*^9}, {3.7324628695857773`*^9, 
   3.7324629014885325`*^9}, {3.7324630870952134`*^9, 3.73246322898166*^9}, {
   3.732463265564254*^9, 3.7324634440656314`*^9}, {3.7324634824686003`*^9, 
   3.732463521335361*^9}, {3.7324635620072308`*^9, 3.7324635845407004`*^9}, {
   3.7324636172479534`*^9, 3.7324637469672637`*^9}, {3.7324637911933126`*^9, 
   3.73246379477129*^9}, {3.7324638264353433`*^9, 3.7324638794006915`*^9}, 
   3.73246446953398*^9, {3.7325026563464394`*^9, 3.7325027123165946`*^9}, {
   3.732516013921693*^9, 3.7325160393900223`*^9}, {3.7326402050226793`*^9, 
   3.7326404111657825`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[1, 0.5, 0], DiskBox[{0, 5}, 0.5]}, 
   {RGBColor[0, 0, 1], Thickness[Large], ArrowBox[{{0, 5.5}, {0, 6.}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], ArrowBox[{{0.5, 5}, {1., 5}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], ArrowBox[{{0, 4.5}, {0, 4.}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], ArrowBox[{{-0.5, 5}, {-1., 5}}]}, 
   {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{0, 0}, {0.5, 5}}]}, 
   {GrayLevel[0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{0, 5}, {0.5, 5}}]}, 
   {GrayLevel[0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{0.2566, 2.586}, {0.007683, 2.586}}]}, 
   {GrayLevel[0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{0, 0}, {0, 5}}]}, 
   {RGBColor[1, 0, 0], PointSize[Large], PointBox[{0, 5}]}, 
   TagBox[InsetBox["\[CapitalDelta]r", {0.3, 5.2},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox["\[CapitalDelta]\[Theta]", {0.15, 2.7},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     SubscriptBox["r", "0"], {-0.2, 3.5},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{"Black", " ", "Hole"}], {0.7, 0.2},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox["Monopole", {0.7, 5.5},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   {GrayLevel[0], PointSize[Large], PointBox[{0, 0}]}},
  Axes->False,
  BaseStyle->{Large, FontFamily -> "Times", Italic},
  Frame->False,
  ImageSize->{558.8333333333333, Automatic},
  PlotRange->{{-2.5, 2.5}, {-1, 6.5}}]], "Output",
 CellChangeTimes->{
  3.7324628345519505`*^9, 3.7324629025455027`*^9, {3.7324631408832345`*^9, 
   3.732463183445114*^9}, 3.7324632294564695`*^9, {3.7324633076046457`*^9, 
   3.7324633600601234`*^9}, {3.732463401196413*^9, 3.7324634208756003`*^9}, {
   3.7324634832171907`*^9, 3.7324635092569275`*^9}, 3.732463585188527*^9, {
   3.7324636634922523`*^9, 3.7324637008281536`*^9}, {3.7324637330720606`*^9, 
   3.732463747557832*^9}, 3.732463795595493*^9, {3.7324638283879485`*^9, 
   3.7324638803546896`*^9}, 3.7324644702910357`*^9, {3.732502652048378*^9, 
   3.732502672051851*^9}, 3.7325027132329288`*^9, 3.732516043339876*^9, 
   3.732516434106595*^9, {3.7326402813856506`*^9, 3.7326402980827947`*^9}, 
   3.732640364623212*^9, 3.732640412174452*^9, 3.7329504359753017`*^9, 
   3.7332065669095063`*^9, 3.7333699498781977`*^9}],

Cell[BoxData["\<\"mondraw.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.7324628345519505`*^9, 3.7324629025455027`*^9, {3.7324631408832345`*^9, 
   3.732463183445114*^9}, 3.7324632294564695`*^9, {3.7324633076046457`*^9, 
   3.7324633600601234`*^9}, {3.732463401196413*^9, 3.7324634208756003`*^9}, {
   3.7324634832171907`*^9, 3.7324635092569275`*^9}, 3.732463585188527*^9, {
   3.7324636634922523`*^9, 3.7324637008281536`*^9}, {3.7324637330720606`*^9, 
   3.732463747557832*^9}, 3.732463795595493*^9, {3.7324638283879485`*^9, 
   3.7324638803546896`*^9}, 3.7324644702910357`*^9, {3.732502652048378*^9, 
   3.732502672051851*^9}, 3.7325027132329288`*^9, 3.732516043339876*^9, 
   3.732516434106595*^9, {3.7326402813856506`*^9, 3.7326402980827947`*^9}, 
   3.732640364623212*^9, 3.732640412174452*^9, 3.7329504359753017`*^9, 
   3.7332065669095063`*^9, 3.7333699501261992`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"rdisk1", "=", "10"}], ";", 
  RowBox[{"xdisk1", "=", "0"}], ";", 
  RowBox[{"ydisk1", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rdisk2", "=", "9"}], ";", 
  RowBox[{"xdisk2", "=", "0"}], ";", 
  RowBox[{"ydisk2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rcirc1", "=", "1"}], ";", 
  RowBox[{"xcirc1", "=", "0"}], ";", 
  RowBox[{"ycirc1", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rcirc2", "=", "12"}], ";", 
  RowBox[{"xcirc2", "=", "0"}], ";", 
  RowBox[{"ycirc2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"sphwalldraw", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Orange", ",", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"xdisk1", ",", "ydisk1"}], "}"}], ",", "rdisk1"}], "]"}]}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"White", ",", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"xdisk2", ",", "ydisk2"}], "}"}], ",", "rdisk2"}], "]"}]}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Dashed", ",", "Thick", ",", 
       RowBox[{"Circle", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"xcirc1", ",", "ycirc1"}], "}"}], ",", "rcirc1"}], "]"}]}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Dashed", ",", "Thick", ",", 
       RowBox[{"Circle", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"xcirc2", ",", "ycirc2"}], "}"}], ",", "rcirc2"}], "]"}]}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black", ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"xdisk1", ",", "ydisk1"}], "}"}], "]"}]}], "}"}], "]"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Black", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"xdisk1", ",", "ydisk1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"rdisk2", "+", "0.5"}], ",", "0"}], "}"}]}], "}"}], 
        "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Black", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"5.6", ",", "7.034"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6.296", ",", "7.789"}], "}"}]}], "}"}], "]"}]}], "}"}], 
     "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\[CapitalPhi]=-1\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "5.5"}], ",", "0"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Medium", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\[CapitalPhi]=+1\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10.7"}], ",", "0"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Medium", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\[CapitalDelta]r\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"5.5", ",", "8"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(1\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "1.5"}]}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic", ",", "Bold"}], "]"}]}]}], "]"}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(2\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "11.5"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic", ",", "Bold"}], "]"}]}]}], "]"}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<Spherical Domain Wall\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "8"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Medium", ",", "Italic", ",", "Bold"}], "]"}]}]}], "]"}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<Black Hole\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1.2"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Medium", ",", "Italic", ",", "Bold"}], "]"}]}]}], "]"}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(0\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "0.7"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Large", ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Italic"}], 
      "}"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<sphwalldraw.pdf\>\"", ",", "sphwalldraw", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "1000"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "2", "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7324620588649387`*^9, 3.732462102005061*^9}, {
   3.732462164436886*^9, 3.732462204518671*^9}, {3.7324622472129955`*^9, 
   3.732462282019206*^9}, {3.7324623143416834`*^9, 3.7324626742232265`*^9}, {
   3.7324627866823735`*^9, 3.732462833113333*^9}, {3.7324628695857773`*^9, 
   3.7324629014885325`*^9}, {3.7324630870952134`*^9, 3.73246322898166*^9}, {
   3.732463265564254*^9, 3.7324634440656314`*^9}, {3.7324634824686003`*^9, 
   3.732463521335361*^9}, {3.7324635620072308`*^9, 3.7324635845407004`*^9}, {
   3.7324636172479534`*^9, 3.7324637469672637`*^9}, {3.7324637911933126`*^9, 
   3.73246379477129*^9}, {3.7324638264353433`*^9, 3.7324638794006915`*^9}, 
   3.73246446953398*^9, {3.7324658575040426`*^9, 3.732465982339081*^9}, {
   3.7324660196075945`*^9, 3.732466037151578*^9}, {3.732466070161057*^9, 
   3.732466247205888*^9}, {3.732466283628231*^9, 3.7324664303280096`*^9}, {
   3.732466461547467*^9, 3.732466606154191*^9}, {3.732466656568056*^9, 
   3.7324666816078916`*^9}, {3.732516053756083*^9, 3.7325160821368065`*^9}, {
   3.733197344892568*^9, 3.7331973467373066`*^9}, {3.7331973925039473`*^9, 
   3.73319743683206*^9}, {3.733197485405594*^9, 3.73319778722265*^9}, {
   3.7331996378184853`*^9, 3.7331997969755373`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[1, 0.5, 0], DiskBox[{0, 0}, 10]}, 
   {GrayLevel[1], DiskBox[{0, 0}, 9]}, 
   {Thickness[Large], Dashing[{Small, Small}], CircleBox[{0, 0}]}, 
   {Thickness[Large], Dashing[{Small, Small}], CircleBox[{0, 0}, 12]}, 
   {GrayLevel[0], PointSize[Large], PointBox[{0, 0}]}, 
   {GrayLevel[0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{0, 0}, {9.5, 0}}]}, 
   {GrayLevel[0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{5.6, 7.034}, {6.296, 7.789}}]}, 
   TagBox[InsetBox[
     RowBox[{"\[CapitalPhi]", "=", 
      RowBox[{"-", "1"}]}], {-5.5, 0},
     BaseStyle->Directive[Medium, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{"\[CapitalPhi]", "=", 
      RowBox[{"+", "1"}]}], {-10.7, 0},
     BaseStyle->Directive[Medium, Italic]],
    "InsetString"], 
   TagBox[InsetBox["\[CapitalDelta]r", {5.5, 8},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     SubscriptBox["r", "1"], {0, -1.5},
     BaseStyle->Directive[Large, Italic, Bold]],
    "InsetString"], 
   TagBox[InsetBox[
     SubscriptBox["r", "2"], {0, 11.5},
     BaseStyle->Directive[Large, Italic, Bold]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{"Spherical", " ", "Domain", " ", "Wall"}], {0, 8},
     BaseStyle->Directive[Medium, Italic, Bold]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{"Black", " ", "Hole"}], {0, 1.2},
     BaseStyle->Directive[Medium, Italic, Bold]],
    "InsetString"], 
   TagBox[InsetBox[
     SubscriptBox["r", "0"], {5, 0.7},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"]},
  BaseStyle->{Large, FontFamily -> "Times", Italic},
  ImageSize->{448., Automatic}]], "Output",
 CellChangeTimes->{
  3.7324663418354445`*^9, {3.7324663991312866`*^9, 3.7324664307874155`*^9}, {
   3.7324664771440125`*^9, 3.7324665028861895`*^9}, 3.7324665329601526`*^9, 
   3.732466623107453*^9, {3.732466660655633*^9, 3.7324666825839567`*^9}, 
   3.7325160850922623`*^9, 3.7325164347754073`*^9, 3.732950436279505*^9, 
   3.7331978412132587`*^9, 3.7331979189244766`*^9, {3.733199711042407*^9, 
   3.733199797659119*^9}, 3.733199946146882*^9, 3.7332065672905164`*^9, 
   3.7333699501602263`*^9}],

Cell[BoxData["\<\"sphwalldraw.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.7324663418354445`*^9, {3.7324663991312866`*^9, 3.7324664307874155`*^9}, {
   3.7324664771440125`*^9, 3.7324665028861895`*^9}, 3.7324665329601526`*^9, 
   3.732466623107453*^9, {3.732466660655633*^9, 3.7324666825839567`*^9}, 
   3.7325160850922623`*^9, 3.7325164347754073`*^9, 3.732950436279505*^9, 
   3.7331978412132587`*^9, 3.7331979189244766`*^9, {3.733199711042407*^9, 
   3.733199797659119*^9}, 3.733199946146882*^9, 3.7332065672905164`*^9, 
   3.733369950402714*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"rdisk1", "=", "1"}], ";", 
  RowBox[{"xdisk1", "=", "10"}], ";", 
  RowBox[{"ydisk1", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rdisk2", "=", "1"}], ";", 
  RowBox[{"xdisk2", "=", 
   RowBox[{"-", "10"}]}], ";", 
  RowBox[{"ydisk2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"loopdraw", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Orange", ",", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"xdisk1", ",", "ydisk1"}], "}"}], ",", "rdisk1"}], "]"}]}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Orange", ",", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"xdisk2", ",", "ydisk2"}], "}"}], ",", "rdisk2"}], "]"}]}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"xdisk1", ",", 
            RowBox[{"ydisk1", "+", "rdisk1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"xdisk1", ",", 
            RowBox[{"ydisk1", "+", "rdisk1", "+", "1.5"}]}], "}"}]}], "}"}], 
        "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk1", "+", "rdisk1"}], ",", "ydisk1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk1", "+", "rdisk1", "+", "1.5"}], ",", "ydisk1"}], 
           "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"xdisk1", ",", 
            RowBox[{"ydisk1", "-", "rdisk1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"xdisk1", ",", 
            RowBox[{"ydisk1", "-", "rdisk1", "-", "1.5"}]}], "}"}]}], "}"}], 
        "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk1", "-", "rdisk1"}], ",", "ydisk1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk1", "-", "rdisk1", "-", "1.5"}], ",", "ydisk1"}], 
           "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"xdisk2", ",", 
            RowBox[{"ydisk2", "+", "rdisk2"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"xdisk2", ",", 
            RowBox[{"ydisk2", "+", "rdisk2", "+", "1.5"}]}], "}"}]}], "}"}], 
        "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk2", "+", "rdisk2"}], ",", "ydisk2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk2", "+", "rdisk2", "+", "1.5"}], ",", "ydisk2"}], 
           "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"xdisk2", ",", 
            RowBox[{"ydisk2", "-", "rdisk2"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"xdisk2", ",", 
            RowBox[{"ydisk2", "-", "rdisk2", "-", "1.5"}]}], "}"}]}], "}"}], 
        "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk2", "-", "rdisk2"}], ",", "ydisk2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"xdisk2", "-", "rdisk2", "-", "1.5"}], ",", "ydisk2"}], 
           "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Black", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"xdisk1", ",", "ydisk1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Black", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"6.99", ",", 
            RowBox[{"-", "0.6689"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6.99", ",", 
            RowBox[{"-", "0.03934"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}],
     ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Orange", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"xdisk1", ",", 
            RowBox[{"ydisk1", "-", "rdisk1"}]}], "}"}]}], "}"}], "]"}]}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Black", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"xdisk1", ",", "ydisk1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"xdisk1", ",", 
            RowBox[{"ydisk1", "+", "rdisk1"}]}], "}"}]}], "}"}], "]"}]}], 
      "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(0\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "1"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\[CapitalDelta]r\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xdisk1", "+", "rdisk1"}], ",", 
          RowBox[{"ydisk1", "+", "rdisk1"}]}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\[CapitalDelta]\[Theta]\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"7.672", ",", 
          RowBox[{"-", "0.3016"}]}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Medium", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<Loop Cross Section\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xdisk2", "+", "2"}], ",", 
          RowBox[{"ydisk2", "+", "rdisk2", "+", "0.5"}]}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Medium", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "Large", "]"}], ",", "Black", ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], "]"}]}], "}"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<Black Hole\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.5"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Medium", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Large", ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Italic"}], 
      "}"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"Frame", "\[Rule]", "False"}], ",", 
    RowBox[{"Axes", "\[Rule]", "False"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"xdisk2", "-", "3"}], ",", 
         RowBox[{"xdisk1", "+", "3"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<loopdraw.pdf\>\"", ",", "loopdraw", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "1000"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "2", "]"}]}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7324620588649387`*^9, 3.732462102005061*^9}, {
   3.732462164436886*^9, 3.732462204518671*^9}, {3.7324622472129955`*^9, 
   3.732462282019206*^9}, {3.7324623143416834`*^9, 3.7324626742232265`*^9}, {
   3.7324627866823735`*^9, 3.732462833113333*^9}, {3.7324628695857773`*^9, 
   3.7324629014885325`*^9}, {3.7324630870952134`*^9, 3.73246322898166*^9}, {
   3.732463265564254*^9, 3.7324634440656314`*^9}, {3.7324634824686003`*^9, 
   3.732463521335361*^9}, {3.7324635620072308`*^9, 3.7324635845407004`*^9}, {
   3.7324636172479534`*^9, 3.7324637469672637`*^9}, {3.7324637911933126`*^9, 
   3.73246379477129*^9}, {3.7324638264353433`*^9, 3.7324638794006915`*^9}, 
   3.73246446953398*^9, {3.7324658575040426`*^9, 3.732465982339081*^9}, {
   3.7324660196075945`*^9, 3.732466037151578*^9}, {3.732466070161057*^9, 
   3.732466247205888*^9}, {3.732466283628231*^9, 3.7324664303280096`*^9}, {
   3.732466461547467*^9, 3.732466606154191*^9}, {3.732466656568056*^9, 
   3.7324666816078916`*^9}, {3.7324668114640737`*^9, 3.732466875740738*^9}, {
   3.732466911078355*^9, 3.732466911958562*^9}, {3.732466949434763*^9, 
   3.732466979401736*^9}, 3.7324670116234617`*^9, {3.7324670988529615`*^9, 
   3.7324671227570295`*^9}, {3.732467158359268*^9, 3.7324671664252453`*^9}, {
   3.732467234736783*^9, 3.7324672549613466`*^9}, {3.7324672859523387`*^9, 
   3.7324673702200165`*^9}, {3.73246742417653*^9, 3.732467440222785*^9}, {
   3.732467674529625*^9, 3.732467761981414*^9}, {3.732467852739567*^9, 
   3.7324678781460123`*^9}, {3.7324679208956995`*^9, 3.732467943487379*^9}, {
   3.7324679902510643`*^9, 3.7324679917173*^9}, {3.732468031865818*^9, 
   3.732468142100271*^9}, {3.732468201540574*^9, 3.7324682598753085`*^9}, {
   3.732502754624832*^9, 3.7325027673039474`*^9}, 3.7325160943574724`*^9, {
   3.732516136791726*^9, 3.732516159450882*^9}, {3.732640458439336*^9, 
   3.7326405296718845`*^9}, {3.732640597313038*^9, 3.7326406665732727`*^9}, {
   3.7326406982213974`*^9, 3.732640774663421*^9}, {3.7326408085700593`*^9, 
   3.7326408492302012`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[1, 0.5, 0], DiskBox[{10, 0}]}, 
   {RGBColor[1, 0.5, 0], DiskBox[{-10, 0}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], ArrowBox[{{10, 1}, {10, 2.5}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], ArrowBox[{{11, 0}, {12.5, 0}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], ArrowBox[{{10, -1}, {10, -2.5}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], ArrowBox[{{9, 0}, {7.5, 0}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], ArrowBox[{{-10, 1}, {-10, 2.5}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], ArrowBox[{{-9, 0}, {-7.5, 0}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], ArrowBox[{{-10, -1}, {-10, -2.5}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], ArrowBox[{{-11, 0}, {-12.5, 0}}]}, 
   {GrayLevel[0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{10, 0}, {0, 0}}]}, 
   {GrayLevel[0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{6.99, -0.6689}, {6.99, -0.03934}}]}, 
   {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{0, 0}, {10, -1}}]}, 
   {GrayLevel[0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{10, 0}, {10, 1}}]}, 
   TagBox[InsetBox[
     SubscriptBox["r", "0"], {5, 1},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox["\[CapitalDelta]r", {11, 1},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox["\[CapitalDelta]\[Theta]", {7.672, -0.3016},
     BaseStyle->Directive[Medium, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{"Loop", " ", "Cross", " ", "Section"}], {-8, 1.5},
     BaseStyle->Directive[Medium, Italic]],
    "InsetString"], 
   {GrayLevel[0], PointSize[Large], PointBox[{0, 0}]}, 
   TagBox[InsetBox[
     RowBox[{"Black", " ", "Hole"}], {0, 0.5},
     BaseStyle->Directive[Medium, Italic]],
    "InsetString"]},
  Axes->False,
  BaseStyle->{Large, FontFamily -> "Times", Italic},
  Frame->False,
  ImageSize->{672., Automatic},
  PlotRange->{{-13, 13}, {-5, 5}}]], "Output",
 CellChangeTimes->{{3.7324668599945664`*^9, 3.73246687616918*^9}, 
   3.732466916192791*^9, 3.7324670137334785`*^9, 3.732467126646875*^9, 
   3.732467168043789*^9, {3.732467242676276*^9, 3.732467255403894*^9}, 
   3.732467321418873*^9, 3.7324674410169573`*^9, {3.7324677331711664`*^9, 
   3.732467762481454*^9}, {3.732467927521481*^9, 3.7324679441353817`*^9}, 
   3.7324680543810143`*^9, {3.7324681135314302`*^9, 3.732468142673607*^9}, {
   3.7324682182803555`*^9, 3.7324682603175497`*^9}, {3.732502739604196*^9, 
   3.7325027678989267`*^9}, 3.732516160485779*^9, 3.7325164355225973`*^9, 
   3.7326405310438004`*^9, {3.7326405995075035`*^9, 3.732640668349455*^9}, 
   3.7326407035499516`*^9, 3.7326407755069847`*^9, 3.732640849934666*^9, 
   3.7329504365757008`*^9, 3.73320656766792*^9, 3.7333699504482512`*^9}],

Cell[BoxData["\<\"loopdraw.pdf\"\>"], "Output",
 CellChangeTimes->{{3.7324668599945664`*^9, 3.73246687616918*^9}, 
   3.732466916192791*^9, 3.7324670137334785`*^9, 3.732467126646875*^9, 
   3.732467168043789*^9, {3.732467242676276*^9, 3.732467255403894*^9}, 
   3.732467321418873*^9, 3.7324674410169573`*^9, {3.7324677331711664`*^9, 
   3.732467762481454*^9}, {3.732467927521481*^9, 3.7324679441353817`*^9}, 
   3.7324680543810143`*^9, {3.7324681135314302`*^9, 3.732468142673607*^9}, {
   3.7324682182803555`*^9, 3.7324682603175497`*^9}, {3.732502739604196*^9, 
   3.7325027678989267`*^9}, 3.732516160485779*^9, 3.7325164355225973`*^9, 
   3.7326405310438004`*^9, {3.7326405995075035`*^9, 3.732640668349455*^9}, 
   3.7326407035499516`*^9, 3.7326407755069847`*^9, 3.732640849934666*^9, 
   3.7329504365757008`*^9, 3.73320656766792*^9, 3.733369950672409*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"f", ",", "qq", ",", "m", ",", "r", ",", "tfsol"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "0.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ll", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"imax", "=", "200"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tsol", "=", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], " ", "-", " ", 
        RowBox[{"2", " ", "m", " ", "x"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"ll", "/", "3"}], ")"}], " ", 
         RowBox[{"x", "^", "4"}]}]}], "\[Equal]", "0"}], ",", "x"}], "]"}], "//",
     "Chop"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rmin", "=", 
   RowBox[{"tsol", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rmax", "=", 
    RowBox[{
     RowBox[{"tsol", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}], "+", "0.1"}]}], ";"}],
   "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"rmin", "=", 
    RowBox[{
     RowBox[{"0", "\[IndentingNewLine]", "rmax"}], "=", "400"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dx", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"rmax", "-", "rmin"}], ")"}], "/", "imax"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"r", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"i", " ", "dx"}], "+", "rmin"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fp", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"f", "[", "i", "]"}], "-", 
      RowBox[{"f", "[", 
       RowBox[{"i", "-", "1"}], "]"}]}], ")"}], "/", "dx"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"e", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"r", "[", "i", "]"}], "^", "2"}], " ", "-", " ", 
       RowBox[{"2", " ", "m", " ", 
        RowBox[{"r", "[", "i", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"ll", "/", "3"}], ")"}], " ", 
        RowBox[{
         RowBox[{"r", "[", "i", "]"}], "^", "4"}]}]}], ")"}], 
     RowBox[{
      RowBox[{"fp", "[", "i", "]"}], "^", "2"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"r", "[", "i", "]"}], "^", "2"}], 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"f", "[", "i", "]"}], "^", "2"}], "-", "1"}], ")"}], "^", 
       "2"}], " ", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "0", "]"}], "=", 
   RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "imax", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"etot", "=", 
   RowBox[{"dx", "  ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"e", "[", "i", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "imax"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0crit", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"(", 
     RowBox[{"27", "/", 
      RowBox[{"(", 
       RowBox[{"16", " ", "ll"}], ")"}]}], ")"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", "=", 
   RowBox[{"r0crit", "+", "0.1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ft", "[", "x_", "]"}], ":=", 
   RowBox[{"Tanh", "[", 
    RowBox[{"15", 
     RowBox[{"(", 
      RowBox[{"x", "-", "r0"}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ftab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"f", "[", "i", "]"}], ",", 
       RowBox[{"ft", "[", 
        RowBox[{"r", "[", "i", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"imax", "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sol1", "=", 
   RowBox[{"FindMinimum", "[", 
    RowBox[{"etot", ",", "ftab", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "1000000"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "6"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"etot", " ", "/.", " ", 
   RowBox[{"sol1", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tfsol", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"i", " ", "dx"}], "+", "rmin"}], ",", 
       RowBox[{
        RowBox[{"f", "[", "i", "]"}], "/.", " ", 
        RowBox[{"sol1", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "imax"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"ft", "[", "r", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Blue"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl2", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"tfsol", ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"r", ",", 
        RowBox[{"\[CapitalPhi]", 
         RowBox[{"(", "r", ")"}]}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Blue"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"enminexp2", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"pl1", ",", "pl2", ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Orange", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"r0crit", ",", "20"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"r0crit", ",", 
            RowBox[{"-", "20"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3.0254378003997098`", ",", "0.22974236844612195`"}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3.8545388518030097`", ",", "0.22974236844612195`"}], 
           "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(crit\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"2.8", ",", "10"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=0, \[CapitalLambda]=0.2\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"1.5", ",", "17"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(r\), \(0\)]\)  > \!\(\*SubscriptBox[\(r\), \
\(crit\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"1.5", ",", "15"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "20"}], ",", "20"}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<r\>\"", ",", "\"\<\[CapitalPhi](r)\>\""}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Large", ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Italic"}], 
      "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", "Large"}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<enminexp2.pdf\>\"", ",", "enminexp2", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "1000"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "2", "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7291618389961042`*^9, 3.729162300269265*^9}, {
   3.729162430960935*^9, 3.729162436205023*^9}, {3.7291626598061953`*^9, 
   3.7291626695897727`*^9}, 3.7291627472911563`*^9, {3.729162792690287*^9, 
   3.7291628791225996`*^9}, {3.729162915516889*^9, 3.72916291734268*^9}, 
   3.7291629477517567`*^9, {3.7291629822473264`*^9, 3.7291629933329287`*^9}, {
   3.729163023618*^9, 3.7291631175637493`*^9}, {3.7291631684269104`*^9, 
   3.7291631868587604`*^9}, {3.7291632686500845`*^9, 
   3.7291634179469194`*^9}, {3.729163490937042*^9, 3.7291634960367537`*^9}, {
   3.7291635330819583`*^9, 3.729163543348522*^9}, {3.729163590142251*^9, 
   3.729163792290221*^9}, {3.7291638319433823`*^9, 3.729163842590516*^9}, {
   3.7291638765569496`*^9, 3.7291639043825855`*^9}, {3.7291683369439144`*^9, 
   3.729168353743918*^9}, {3.7291714796140685`*^9, 3.7291715105685196`*^9}, {
   3.729171544168502*^9, 3.729171641997052*^9}, {3.7291716851364775`*^9, 
   3.7291716922956924`*^9}, {3.7291722936788177`*^9, 3.72917236067975*^9}, {
   3.7291726023895116`*^9, 3.729172647176037*^9}, {3.729173034358032*^9, 
   3.7291730853698688`*^9}, {3.7291731891276984`*^9, 3.729173207777796*^9}, {
   3.7291738411962543`*^9, 3.7291739582747526`*^9}, {3.7291739950634136`*^9, 
   3.7291740911657953`*^9}, {3.7291741238382263`*^9, 3.72917437934755*^9}, {
   3.729174417461994*^9, 3.7291744485001345`*^9}, {3.7291744913132296`*^9, 
   3.729174620057006*^9}, 3.7291748291951094`*^9, {3.7291748644436536`*^9, 
   3.7291750217861166`*^9}, {3.729175052225199*^9, 3.729175058188723*^9}, {
   3.7291751245921097`*^9, 3.729175138551297*^9}, {3.7291751836741076`*^9, 
   3.7291752467803526`*^9}, {3.729177369499606*^9, 3.729177400656593*^9}, {
   3.72917810818503*^9, 3.729178119959456*^9}, {3.732451939515376*^9, 
   3.732451940510079*^9}, {3.7324535962634335`*^9, 3.732453615672557*^9}, {
   3.732453671059699*^9, 3.7324537541323433`*^9}, {3.7324537870656652`*^9, 
   3.7324538759560194`*^9}, {3.732453916745533*^9, 3.7324539184578333`*^9}, {
   3.7324539731777925`*^9, 3.732454006152108*^9}, {3.7324540412956424`*^9, 
   3.7324540711551757`*^9}, {3.7324541147480917`*^9, 
   3.7324541993664837`*^9}, {3.7324542326957464`*^9, 
   3.7324542336995726`*^9}, {3.7324542707196083`*^9, 3.732454284068573*^9}, {
   3.7324543348029547`*^9, 3.732454360943626*^9}, {3.732454399591921*^9, 
   3.7324544214161596`*^9}, {3.732454452122567*^9, 3.7324544854448647`*^9}, {
   3.732458194202567*^9, 3.7324583165451145`*^9}, {3.7325032900766797`*^9, 
   3.732503294022458*^9}, {3.7325033664256434`*^9, 3.7325034015408587`*^9}, {
   3.7325034392307205`*^9, 3.7325034970673413`*^9}, {3.7325161693290606`*^9, 
   3.7325162429111614`*^9}, {3.732516517210326*^9, 3.7325165215311947`*^9}, {
   3.732533611005724*^9, 3.732533612971727*^9}}],

Cell[BoxData[
 TemplateBox[{
  "FindMinimum","lstol",
   "\"The line search decreased the step size to within the tolerance \
specified by AccuracyGoal and PrecisionGoal but was unable to find a \
sufficient decrease in the function. You may need more than \\!\\(\\*RowBox[{\
\\\"MachinePrecision\\\"}]\\) digits of working precision to meet these \
tolerances.\"",2,210,7,33530088491112252583,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7325032962585545`*^9, 3.7325033714667215`*^9, 3.7325034021621084`*^9, 
   3.7325034429287176`*^9, {3.7325034790401673`*^9, 3.732503498192802*^9}, 
   3.7325162030537753`*^9, 3.7325162451284027`*^9, 3.73251643637253*^9, {
   3.732533601505598*^9, 3.7325336138446655`*^9}, 3.732950436958956*^9, 
   3.7332065681955485`*^9, 3.7333699508595443`*^9}],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw92ndcTu//OPC495ARIRkNmQ1FRnJeQiJSSuktlQaFSKQ0FAmlNEjDaGkZ
iURap6G0tEt773GflrT7Xcfn+3P/UY/n477vc12v6/W6Xte5H48jYnT1pOl8
Pj4+PfSH/D8jOCLdkGW9j+/vaxBfcffZo7yxcOz/e+WH09K5Y/H/PE/ul9u3
n9//+QDfIvFb3UX/rDQ6YKFoVvHPgsGial9/1PxziZK+0vmCxn8OVrux+vDq
1n9+prQmdEtu+z/zxRfEbj7U9c/fb4fs6/zT889TObanUxz6/3m4MmGidZT3
z6LrPPmNSwf/2VVgf8e5xcP/7PeZObPv8sg/077dPf09ffSfY+1nx7Vnf/8z
td+z9of2n39+KrR2nnLA+D+XjmWZhY1O/PMV+VVLo45O/fPB7Teo39ymsdk5
8kXgdPfNqz/Kz2Dj/+cfTc07YtpmsPb/c+TSFUMbXGexiP/zvSMn3kVKzGFV
s//zkjgDt4nvc5jq9P+sztklF7mND6RG/+f5m2myDx7wgVnV/5ygUiZj1sAH
byz+57GqJmcPyXkQLjH71ztNB0riHOdBHnXyr9sasY8eFfMgI7L3r71O+/qY
bZkPOj/j/1rgUundWOf5MKc8Nkva33HRjdHK+XDpv3PTpEP2qS/7NjMfbLPu
TZB+M+f1xXE9Bfz4TEdJ9xNNjVekKSCx58kwaalmaYbhbgooXLEdJG1Z4iSt
cYACUptZPNLx6cU6Sscp0C69q+/v/OPWOsvpUCBPcqyL9K7Qq9Hi5yhgf2lb
O2ndQP+9q89TQOjb8lbSdj54ybJLFDAzr2winXJn4QTdmgInruXXkn6aq0C/
ZEcB6dTkX6QvLzQTKHaiwLfEyxWkD2o/XSfnSoElq6pLSAu/TJf0d6eA/Nbx
QtIP07W3H/GkgCy3N5/0aFv/nikvClQm5+SSLty8UsXAjwJXlyt+J22feM1o
QwgFol5Qkkh31jHMa8IokM4v+5X0ybmXVx9FUCDs2oHPpDcr5zsQbyiAnWDH
kn5mbugS+p4CK9RS3/zNt+eYm2YcBYYPqkWRri0X9f+agOL3oYaQVv6T+NI8
kQJfZyRekP4kdOL1qmQKFHuJBJB2P2f/0SmdAprRAV6k9xDlBYcLKCB256zD
33pccrFs4idab91FNn/rT56v5m0JBWTcPa6R7nXY2rmwigKOC6pNSWuHZPZn
VFPg7OcwA9KZWadHrtdRYLGupC7pQLYrX3UzBd5vs1UlTZVaxXBvo8BAv+zB
v/nX+LhgbycFXD6F7SWtEtAgFNJHgT2b/baSHl8vv8NsjAJ0LXMmaZMjhQpC
ExSY/9Fydha55LKRUuEUBbRg8Sjp6PjHJ2TmUSFWYUEj6aW/xLVbKVQQazQo
I+08maT3lE4FJeE9OaRP7+8yH+dQwbvi2jvS300cLd/wU+EoNfsVaZmHAjZ6
i6kQI//ImzSzGLuXLkgF00+6VqS/6gW8eihCBRkhDSnSIS6JOFecCiBZKUz6
4ZvqZm8JKjTIfWT/HW98hVjgFiocD9Npn0GGtbsPrpaigkv80hLSm5R1TUNl
qGBBX5hMevJJYFTMDir87nv5mHRr0rdcyV1U8GKJ2ZAuaKnp+biHCpa3cvRJ
v5AW2pqEUWGzkPIW0ooFQXH5R6igcEEicRpZYjipVO0YFUo2vwogzb+ybrhM
jQpzdZ02pBvPr9pRp0mF9mWpsqRzPBW0DbSpYOUty0/6w+czNm2nqdBXrtI9
Ra7n/Bff+s5SYamtaABps00ptVcNqWA0nmdBWkO9fmrEiAobbGr3kxZ9Jbxv
+gIVbqWOt08iZ+1+mcm1ooKbtO4y0u8MU9u8b1AhR9C+foLcrw8aqMts0PqZ
2YWSNqlEx4kDFW5bpYmTPjataBZ6mwrTP361jiPvENN3W3+HCuIJNq9I06+9
KpC8T4UZjb4FpHn+af0fH1LhWrJHxh/kX2mNC+QfUSFojboV6WjuWvV93lSY
5/kzfwz5SHRwhVoQyufsGa3fyLLF+O+yF1R4U1o4MIosNNYkqBNMhcWdxi6k
ew+s0zV4TYUrJlfDRpDLLoJdWyQVFvr4bSGd7GP4/EIMFYrMDsUNI3s0hTRc
jaXCD+Lp2yHkG/SM2ZE4dL3RGhHSZyVb1trGo+9LjfgOkv3TXsTIOZEKof41
JgRysWBYp3cmFZyXeGb0I98OO3KamU2F5wuOcUlLSQ3lOf1A8dQZqPeR4x2C
91cKqSBg+DCrB1mhtGtNZxEVsm+sGO4m56/n5X22FOWnZ2QFaZUbjdePVVGB
b/KCWifynznXjqxqKpzTvKDXQfaLR5I6CnVUeK3ldK6d3N/hDns2N1PhQW7k
iVbkjFKhecxeKli7N35sIPf72Uwrp34qtAhlXqlHXtdj3j7GQ/VxIXNtHTl/
vm8/OkaoILT7lF41sqSH4e6zY1T4oDbVWYVcv5z5tmKcCj2D7caVZP+S1nmc
NUOF/c9tZcuQe5Jm5/bw0eC65WKXEuQA5chrn+bTYP3igqwi8jw5+1srlEGD
40qHBArI88bjySqnxTQITPOrzkQ2WqHgOSZAA15qQEA62f9et85aCNLged7F
A2nk/JO3teqtogFXV1v7G/LawzWaFatpsPt8fsoX5KIy52zVdTRIo2WyPyNv
7S2O3rOeBrXcQN1Y5DprG6FPG2gQYeNz+i3Zj+et9di0mQZO1fsUopG7V1y5
ukKaBgNl96JCkSMOc+XHdtHA0ENo2hdZqzw+ykKBBlLftCcek+ttcGZlhyIN
xh4WlriT87/5ZrpciQbKf3KZd5EXzz95RfUQDRy1Dc87Iqd7TjRlHqbB6iaN
AFvkNREqWR+P0SBFINfqCvJPmcHtm07Q4HRi93JzZIcU/8gQDRoknApyN/57
3nS6eWnTwGubXKkOsv98V3ULQxoE3/31RhE5LCH2tpAxDYbFvnbsIPezWfW7
H6Y0eJW8sFSSHL9oC0v0Eg2o8ZrvhJHz75zaWWxBA0lTZz8B5MrtTqYOljSo
4USKsMl6DCrLqLKmgYdAlcDYLDpvj08TLrY06EibvtaHPMcnsWabPQ3iajSM
m5GXXrhl98iZBqPuowO5yPvk1snBI5RPm7HVT5FVOo+cG/CkwZ2SBz6uyJqB
172CvGkgD9stbyKbzeX0jfrR4I9RubY2stWnwZVhATSoGl9/8hCyo6mQyonn
NLh5Uy1YDtm3wOJ1TAgNMmbnCfAjv7jtX6YdToPy8NzNkzMEHrUtg48aSYPU
wKqbHcgp/kvP6r+lgd+2dvdvyJ3GycsEvtBgyZGnMdrIg4IdB9ITaeC51vay
AvJUHr+VRTINLr0IW7EWeZGMUdGPdBrU3/g51zqN+k/bo+kbWTSQiZAUy0Je
/yxhs2gODR63ufOFIe+ZZj5wKKDBz8mXn88gH/wgm7CpiAb2jp+uyiOfMNJr
qyqhga73zfcLkU1yP2DbqmgQTb13PXWKwB8/1R7vaKbBApH7OlTkgMPOEk/a
0Hr4FuqWThJ4+GSMFnTSYG6x9ckXyImGM3FBfTSIh5yyLciZAhuaDvNo8KkD
kxqcQPWVo77g9yAN2AffbfiE3Lr1tfmJMRrcShn3kULub/rpPz1OgwBL6eLu
cdRvfP9kx0zRAIghpRBk7sRRUeo8OuicWXSGjiyfPVSbyKHDzi7NzrdjBJ5q
HyG2i58O/6lqTp5EPiire/nrIjpcl9uJj/1G91vB6TMJy+gwcc+3Xg655tQN
5R0r6LB+4P5w4SiBG3I3en0WosP98we2GyFfueW1Ln4tHTZZL4p2HiHw39IH
zGVF6WDwW9aThezQOfbxozgdWm03UB8Po/2sqX8gbhMdmjtuzzwcQvtXUvL8
ezk6fLIQX61EoH7Q3hy7VZ4OWOa6oDAeuj8Levrn7S46mDbPbJwZQPuDMf3w
jSIdgjXpgcH9BH447UPpJqBDw+X9lK4+1F9uGAvFKNHhkfwpnw3I9S35b6MO
0+HOG8UlT3oI3Djg9qjEUTqsOuhvn9qN9o+arGLkMTqElEb8bupC91PJgUWv
Nehg8mFrP6cT7ZdnZkOhZ+jw/pfw6FgLgT8/JrxHRJ8Ookq76TXN6LymlNwN
MUTjDyXbxzWh+yHLnUuDTenQnfNySrEB3f9I9OmtMaNDwqrpbSN1aL81vIp4
eZEOmjQ7sRe16Hw+St/54iodmLvyjH/8IvByviSnVVZ0YBdWpKpUEfh/Xy1y
g27QweHG+p7kCrT/xCt1A2/RQVXjtL91KYG7zIY7PHOhg0fL3msS+QTOTtDJ
XnYf5XtI/qlELoF7X+Lw+z2kw6IvMzkCOQT+qtoq+IknHTaflPf8lIH2g5dE
9xJvNN7KsWgjHPWjQ7Uyvr50WCMY0z6dQuBJn/ZnevvTYUY+1Kn/K4HvN//N
XhSE6mELUwoSCDx3bYym1ws6ROauC7L7ROBVHos6PEPpcGaZ51DwOwIfPt/E
ePSWDssDp156BxN4xcFlCyCWDjKXkpbFPSfwL6KqS37H0cHz7aOuKH/0e6Dx
i7DBFzq4n0k4IuRF4Pop/SJLv6H4I7Ue+bij+8Eg0Q15yXTotLN+WOuK+rv2
421yGShfmVcNa+1Rv5D7Lt+dRYeYvC0mnjfR/BZPKrzMoYPS7f7r7GsE7vnT
VJlRSIejL7/K/2dK4IKHFM/UVdEhYnCnzCJVlH/R64beNXSw1tg/W34A9XO+
GNND9XTom+oLUdtL4MEpSy0/tKDx70ZSz24l8LtBR61N2ulgZeNY3iuG+oOt
s93KLjoIiFR5i60i8I3b+++59NNBvqk4+SET5WeJqPsugg6Fh9PUY2d5+ACh
4zUwRIdnUzPrro3y8E9vswJ1/qDrX5QzwRt5uILY89gt8xnw7qa854JYHr5m
Xml8M5UBTeVGg+9CeDhfE/2bH4MBIfb1NT98efj3IKusOS4DbMor/fSseXik
bXTu54UM2DdptrXQlIe7aTf+NF/CAJrBq+KwUzxcbcnR6vLl6P0pl74rcjxc
ZtCp4aEQA757yxaeFuHhS4oSWhVXM6DcqfmBLz8P/+UmMhAlyoCKkR3G9Z0D
uOG8iXkOkgyoshDv4X88gCs1STG2yTCgT26NRJr1AC6easLtlGVA7d2XQ656
A3iPbYmg+i4GmLmO1mIbBvBCbbowTYEB+YlpP0U4A3js9r0iSYoMyLKRm5ga
6MetBqO2iB9gQPKTEfubcf24VlGDTM0hBkxWs1bSvPtx+XcC8o9VGBAb3W5v
dqUfn7rgBOPHGRAZeljg4YZ+/F6T9qnC0wy4O5x5Xsi9D29LF7TWPMOAMU2G
i6hRH64UVvW09iyK74TKnpZdfficiXZFtxG63jY3YcPWXlxfWXD0qikDQIav
hz+hF0/ZUCXw5wIDdrHogRr3e3G73lOaNAsGXLZw1Lwq3ovXFCy77nGVAaHS
zyN2DfXgu95X+gpYMcBJT9vKKqUH/331VJmIDTn/tUJL1Xpwy99aGvvuMMD7
+9YhobPdeHHV0mvZLgwQ9Hh987pwNy6VWOF97D4DJKIDvv6p6cL77LRK/nvE
gMGavljjE134eT6tEzZ+DNgdbi44IdqJZ7cIXJ31R/VhksbXWNaBi2eVP3YN
YgCrydDhi3MH3uKqWfQkmAHL1JZRJKvacT2O5vG4GAb8OtByN/FCG57cv8Ri
5zu03n8Ez+H0NlyoqMwjLZYBX+5ef/syvBX/5X2ysDCeAc09mp6NVS34ScGT
qj2pDNiiztzvJdaMq4hoHBEtY4DW6uzR9k/VeNT8xeYxFQyg9J263xX7C6e3
lzyU+cUAWUZQl2ZUFZ4VqZ67r54Bn79U6dZ7VuD7tqofPtOJ3s+uGdy1owSX
23ni0NNJBrhK+l57oZiCn3Z8lsA/w4CetfW3jrz+it/OaljvNseA95eFbOcz
4vHcE5fpt6lMaNlVe+X4g3Bc38ztxwV+Jtx5Z/p+UWgo5h6YdURBlAku1vDZ
Nj0Hi2tiJyWIMyHoeHSHx2wuVrn+5GaZDUzYMWa57MmuAmzdp2b2+q1MuC3u
FbUhuBj7kj9TwC/PhLFovyWTghVY69ROtdYjTHAceLn5HrceYyo5pekdYwL/
yTGnhsl6TPJhjtQvNSY82Ta6XKujAbNdemphoSYTShcM8Z+LbcL4Ja1KEs4y
AR/I39r7oAXbfv0byBgygVLeenOY14LpfuP7+MaICYajegFdmq3Y60NePsEX
mCC52cjn2fI2bI/+u5Nu15CXKDSsu9+OGb4eyaTcYMLG6vyJ8Pp2zLV3j9zt
m0xgh1avFtnWgZXczBO4bs+Eoli/HKGKDuy8V2eFnisTrj5WqX4xvwvzqJQ8
9OsBWr/ee1mOR7qwj6usEzTcmWBsUhzs+rgLm46iPFP2YkJebsQ7CYFuzDd9
nY5MIBPiHPlW3GH0YAJSvS7Nz5mgEp32ctOhHuzp8/g471dMcPrDaOY592B+
N5XZQ+FMWCMjUjwx3IMJti/cGRrJhN8sxRStTb3YM40aY40YJpjZR9aMne3F
ArZeTv0Yy4To8WfKCpm92MqgHb3nPjLhXaZs2fBQLxbEmBNc8pkJPXWx06vW
9WEvWn0srb6heH/kdvfb9GHBAV/F5L4zoZAejkUJ9mPr6HfU23JQfjp3G7MV
+rGQ60cdn+QxYYtZsKO0fj8WptZQNVLEBFbGk8n2kH5MLCWS8rqUCZtN9oU8
SO/HXm+ylNGqYMLuujvpi5r6sUgqxf1zDROmTiT+GV8xgG2wKvxiUs8Ec+5Q
jdn2ASy6ya9taRMTtGd0CpvVBrCYpI2K1u1M4Cmk6zPvDGDvLNUGdxBMUHix
upNRN4BJNi5f3TnEBO/jchqPiAEsVrXlyLNRJgT6byxWp/CwOIkb4WMTTCBu
b7mRvJGHbXuqWBI5jdbvYXbT5T087NM8xoz2HBNGEuK7bVV5WHx9oPZXKgua
sWyLr5d42Pajxi4XGCzwNpYtGLXjYZ+/bo1bzmZBsLeke5gbD/vii7NsF7Lg
x+IqceMIHpak0pGyS4gFpyR1xqeqeJjCl9iebmEWqIdIfoZWHpYiZisYuJYF
DX1rGlYO8LDUWbblhDgLPMJVywLmEdi+yxUvYjawoGlNy+QhDoGl1bzM093M
AmfhharPlhJY+mcZsSRpFrR/7c6RlCCw/aKTJy7KsuDy0+V69lIElumV5SC0
gwU7rAMGbOUJ7PtF7Sq7PSywu6f6xusQgf1Y5+CmcIgFQhlHnG0M0fs+xSWp
h1mw8HvP2S3n0ffni62AoyzY6R5x/+0lAktpz4s8eIIFFm84dctvEljSqdW8
HA0WSPQ6XGPYE9jXHMsdR7RYcCzt/qZ8JwL7FL38+3FdFqRX+8kXPySwDysv
cUrOsMAmWPr+Uk8Ce+eedvKkPgsM6o0GZH0ILOqyaYu2MQt8JsGCL5DAXsjE
zxpYsCDb//SzeVEEFhhKV269yoK+ohp9uTcE9mzJf54mViywt/86fPg9gfmM
8gmb27AAG3/7dHU8gT021TLuu8WCfcewgOYEAvOoinpj4cACv30ZJ90TCex+
otpuqzssyBR+aOeXSmAum8KcR11YELNw8fNxnMCcg37/uHmfBW9m/GsOZRKY
vcMLbftHLCiNpuaE5hCYJfRev+fHgvUXam2vFxGYxUfFZHoAC24ZJNYolBDY
RVGf+W5BLOiXbK8dKSUwU+ouH89g9PmwJQt3VBKYkfWj6oVhLJgLcjuLVxGY
YWfjWt/XaH7xvi4K1QT2X65r7LMYFiRqlutw6ghMZ3fN7xXvWJBDt5syqCcw
rTdbFZ/Hono62nIuuoHATniUFwTHo3qxN5cTbCawg+oiPdGpLCDS7+y+1o7q
I+OGzJZ0FmxwGje82oHqSzbX5n0mit9NzMSkk8B2L71K//SDBaM6yke3dxOY
vGvm8e35LOCrki9c2ENg28eW+X0pZIHA4vlmbchS1SliyaUssIyt597oI7Ct
RxZdUqxgQcoR4+Bt/QS2Kcn4E17FApZIi343svgL9v7vdSww83Y+q8QjsJWG
p/V/drBAJhJ7HztIYFbjkkau3SwokNB9fXiIwPK9KecV+1jQK70nohbZISPW
4v0gCyLzPD8QwwRWoXvvmukIC/RShjdajRCY5LCu9eoxFvS4yXgQyI2iNEfP
KRbUOs2vqRslsJ3Jtc6HZllw/o24qOpvAvPWjLs3w8cGhZpzS78g7793xsOC
zoa8KM9gpzECe93x8fnxxWy4OJUW0fGHwKYdHwTTlrLhQrtZoPw4gZ0SPBue
KsiGKNl4k3vI9MPMt5LCbBh1HJkVnCAwg6aG2I41bNh++yhLDznRJv7TSxE2
SOasMnqFbB6tn7RgAxsmhyLMV02i/Qbb07I3scFkHlNVG1mohpXpuJUNIgKq
zY+RC1kJeQPb2HC+4cidCWSpS5yan3vZsI/R1f1lCtUzpaXeFWOD2LmM5Bbk
pudfmhWV2GAslN/KnkbxFp7rfn+YDfIbnK+eRu4x2dlvepQNnc4how7ISjPc
wdXH2XBrooUbgjwimfjH8yQbLGY3SbciH8vxnDp0ig0nyyha82bQ+ugbz83o
sOHDlrj9a5G1vfgZV86yISHIP0oHOXHQRFDNDI3v+L0iGXmR2x4h+iU2FPa1
2pUhm4ssWpNmwYbD+z7s60YWOpm8Xuo6G57tOK60eJbArvd6b+q0ZoNoRJav
OHLh3fOSr2zZYK66S3QnsmP84h38t1G+5IZX/Ydcpdq1K8eZDSc0zJ9eRJZq
T9l724UNVsIqZnbIzUvNDvIesuE+HqsQgKx0Mw3d0LFhXnjajp/IRtdXRd96
xgbua4mJauQ7lrbT4oFs2Ll25ZF25PSLshH2r9hwxUkiZAK56YLXhEQoyt9k
0AfKHIHNmvQfLwtnw8Jz6noLkBUNIsc2xrChVdnxxVpkPT2KasVbNqyjrNy5
EdlB1zDYKZYN/gPgKIOcpCmkUhXPBo055kpA3qXyONAljQ2XIp60nEE+fahv
QCqDDSyvgK1GyDZKKkq1WWxwmPu12wz5y975fTJ5bPAxNnt9HblytwFWX8AG
t+Xb6LeQR+VTnjwoYsMp3/Vyt5Hltt3c21iO6nNNwNgD5JNS5d5uVWzINez2
9kC22iLTsb2GDeWq7Flv5Lj1vZ6PGtmQzheiE4gsJaTftKuHDXaND7dHI6st
T5Zr70PXKzvj+xbZYumKh148NqhMiBbHIr/jL5PpHGHDDOHb+xm5gCPt6jPG
Bu+Y4IKvyL1Mj5q9E2wo0DX3TkLeRFG++2SWDV9f387DkVX4wqv2zeNA9pNK
LBPZbGZucy+FAxM8vlffkSP/fCsHFgfKKp2X5SGL90uu5wlwQMufxyxFPtjj
fitQkANvVMcqy5CNO7t+HlzJgUADdZ8K5LDm0JvP13Dgydq3lb+QMxtm85VF
OLB3w4hBDXJL7Zm1w2Lo+tnCdbXI6yqX5aps4kD1N8PIBmQosxIe3cKBA/Qn
fxqRDYqLLYOlOCB26JdCM/KrPLeVY3Ic8LLwCG5FXpU2czF8Hwd+dBk1d5L5
S2uvWbefA5eX4zldZD7wApVXBzjgvLzudTeye3qgRKAKB1wsbh/pRZbIcPYT
VOWAK9NvUR8534wL1KfHOdAh5V5CejJzR+vjkxwIOiawdwD5WZawBvcUBzYL
inWTlv1OSXfT4UDibtZjHrJ5dunLe3ocCH68K5dArv5hoWt3ngN5y6qmhpBv
5Grl/jHjQPq1/xyGkRflKey0vsSBnxcPjpNWyWcts7TkwIDLYOsIcnv+oMuA
FQcO+84/OYrsXPBr+KI1B+7sEEol/bUwosTUjgN95b0PfpPx/vTA2hzQ+G3d
XaR5P6/HGjqhfOfePDhGxlu83+PMPRQPBx8h/ay04bDGYw48VpCWGifjKfv+
pcibA8KSrdaki8rerj/2hAMZ8ZRk0rSKW5TDARxYV00oTiCHVBhafQ/iQOqC
LnvSeysPt+x/yYGLyyO/kr5RtQzfG8aBhpOFGyfJeH9NSya95kAR/3/6pN/9
anuxMwrlO33ah3R79Uc72XccWJOSM0Jas+64/MYvHNBbKRc+RcZTtz0iIhF9
fqdcAWn3+lVLxZI5wPD+PjT1t956hlanc8CTVrxnGlm/scTweSYHZCnnzpKe
bPxavCKbA6O0L7dJyza7vhfI54ClcFUq6aLmy8I+hRywjvtSR/pii+Yj/mIO
3NVwHScd2ipizqrggEKIgPQMGU9HqvhcAwfYSUPepBkLNqh/akbrnS0UQ3p2
u7e9aRsHGic100kP3DMqK+jmgGriqn7S7e8KZm73cWAkN5lvFrm+YvsmWR7a
X0JeS0nnizOcA0Y4YDXK200645jlW9UxDojecFclnXijpmp2nAMrNtvokY78
/lbSdJYD85cYOJB2MVGv28bignmgYAJpO49v9A4OF9486ssgbfVZVDaAnwtm
wvuLSBtSfz+cFeDC6Td3OkjrbNX//FEQ+Y/1IGk1rR9NJiu5IHV/ZpL03teB
8gVruGCx+hf/HNkPC+cb3RbhQt2KbStIbx695LlNnAtamJQI6ZUH97X7b+JC
5Yl1sqTH2lp9TLZzYSAfUyc9wDmWunwnF97fXKRDul0uoTt/Nxc22r88S7rc
5QG2DeNCyPCYOen8t4MX2/dz4YNO7lXSmeW6z/wPcsFvysCadJzY1oGZI1yY
aux1Ih2l6rfi4zEuHNdpvUf61fXZAyYnuFBwJ9qNtEdWSVC+FhcWO0f7kjY3
tlbxN+BCkUR0GGnDR43XjxpxoTtLOZL06fjDwTMmXPC0yoghrUwRGjO+iNbT
TT2OtOIWF5HlFlxg+16IJ71ds/9Y/lUurOYZfCEtGp4WLmPNhR/aE8l/16dg
Q3GbDRcuhL5II71oxHvymR0XLFPWZ5CeUzLWmHFCNh/IJl3fypjLc+fCqujL
RaSzdvPcK7y40CU4Wkr6jXeFYNNTLojIK1SS9u1KCusJ5EJqoHI16Vv7QqVG
X3FB+a5Q3d/4/B4kzYZzIbs1qYG0Sr+FMiuGC2rntzSTFgzao78mngvqu93b
/+bnMOOmXCoX9l050U06/ne5p8oPLsQIe5PPh2B3w0Mizpai693UJ58fwdQ1
LFKt6rggLZ0/+Dff7+gDLwguaLJjyedRMHdmiPAPygIYkXvyh/RGk93HhpYv
AO/iJPL5FSwbL7NftXUB1OicmiK95Ie4qpT9ApirfUg+/4LpF90U2p+/APxl
3ef+zjdjgR1nHT9cudX41z/jX9dUWvODjfXYXwsIOri3ZfMDjzPz17q2mgpD
yxbCn2V/n8/BPpcp66hdXQgF6f/zQsk919/mLgQe73/+f+jIf48=
        "]]},
      Annotation[#, "Charting`Private`Tag$3900#1"]& ]}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 0, 1], PointSize[0.009166666666666668], Thickness[Large], 
      LineBox[CompressedData["
1:eJxVl3s4lHkbxxmDYcyo1tk22o1ENZQlsbl/lVQ2OuxGK4aELd6GonTQpIPj
Lmo7FwqbrGpUlGSTU4rQWlIRclhn8/zGIIfB+7zXPPPHO9c111yfeWae5/fc
9/39/Ga+8Q3e7k9TUFCoJJ//e/3/B36xcEvVTLj7RdjsVOOl1FQDMv4DegvX
tZj+1A55hy1mrM4Ioaf7Ksfpyb/U8Ty4eM8mq39pLwx2RMzs2F8AiWGf2iUv
+qjPF0FvnKX7xvf9AMrimdjqEhjiKTdOZQxQ3y+H7dKpvlVoEFSvZcwEdFRA
ZuquevvCQep8lZARrHb2MGcI/l7qNuM4/gZ8urQL9EKGqPPXwtZn1yd25g3B
Zh/6ybkxf8O38z4EWIiGqOvVQcDYT1vKjESwPLtFoDCvHhL0wVzoLKKu3wAt
ry+FLwoRgfbIEwGR/A7Y76yHDc+LqPU0gveQT5uzUASTq88JWk0/wJLV9HUb
X4uo9X2EjJISh4Q2EbTG7BPUPGoC2+g9acdHRNR6m0Ez7EXzHlUCSuvWCv5a
3QJewZ9s4/QIav2tcOccvWXhYgLuGH4tuPu6DZ7kmb/3tSGo+/kMnvn9iL+O
gIpHkw41Zu1QeDn02N4tBHV/7dDmvtY42IOAp+49RY7BHTCoMSfphh9B3W8n
dHnqS5T4BGRL6x3+yuuEVbP1pwsPE9T9d0Fgn/uaegEByWnFRVaTXeBYHmLu
EU1Q9fgXQuKqt3slEJDodN/hLnTDqp6i4N4LBFWfbhhK6ulTvk5A5MC1om+j
euDP1Cxp0U2CqlcvPLZtlBjeJiD0XLTD9apeuFm8bqtxNkHVrw+8fdKrWoUE
+FuHFs2d0w+xjaX8bbkEVc9+oDEXPj6VT4B7k7dD3I4BeCcRJocVElR9B+DD
Brcs7gsCNp3cXKRwYxAqmYskuaXyeg9Bl56JPaOCAHvjVQ5HPg9BAhONcCvl
9RdBQPZc1yXVBHArTYoIEwLmmB0wU3gr7wcBgvv2yx7Uke+vVLuZa41Bb9Or
ytUN8v5gCEmOR3cbCYiLm+UFf8DAn9iWNflB3i8xPC/mipY1E0D7NMpZclwM
TicFH51a5P0Tg1ZO/NwNbQQc5w62ds8fhgT/NmPLdnk/h2G/UetZpU4CRiI7
UtOLh8H2yVh0aZe8vxKw8zuxj99NwP76DzzeHglYN/68g9Er77cEduXGeJ/v
I6Db5C3HQGUEtN9H/qo+IO//CNRfj6wJGyTA58jL1ndZI7DSYg27bkg+DyMQ
F1CxcAFBwMeqwtTzP4xCucD/vS+Wz8co3Ois6rkmJmD7/Ec8FxF5vP2eesWw
fF7GIPaQYKBHQsCb4CyO2vkxmK+pbK4wKp+fMQj3WcvTHCPAsTS1tdzqC/iM
vdTX+SKfpy/Qcu9xl9Y4Ac+1LqVGNn6BPp0y0JiQz9c4cON/y5SSbPPLr7zv
j44DrWo2qXtSPm/j8MewEb9qioCcglOcccMJsC2ru5cllc/fBASqRT86NU3A
Yo0jrblFE/BWWN6+Y0Y+j5Pwkv/+msksAWk8fmrw7klw7oqzEc/K53MS5tur
x3oqYDB46MdbQp+CU4fLnxeRLJvXKeBqi/2NFDFcVNrF6ckkudDuTwHJsvmd
gkKzduEnkllu21rTN0mhu0mQvIqGqXmWgjSv5PIlkqOzNqTyBqVgWP6xBJMs
m+9p+Oi8e80PShhmJ1fzDJKm4eDW/9jeJlk279OQeT2mcobkIy7fcRqXz4CT
e4rOTjqm5n8Gyh3XrHlIsvimeev5hhlYWqkcpK6MqTzMwm8uro/3kBw4vCDV
JXwWUsvM1jwnWZaPWShvvmWhq4LhYDozh85SQPt3G6QfIFmWFwXkdTzwWTXJ
wjcqSb48BTSPUXJ9sSqm8qOAbr/K8Y8ieWBEMbg4RwEdkto6dJIsy5MCguqK
DWsZGEw5064cRUUUu8k2M51kWb4UkZZ4tYCuhsFvwzg3YrsimvoqfPQXkmV5
U0Rd45tX1JB8K0TCbspQRJe27Pb8Th1T+VNEe/otk1NIbrkmEq0cVUSRN/42
VGNiKo80FLXKhRFOsn5ZX+0lJxoKDI1I7CFZlk8a0o0ybfHQwOA22CWUXKGh
HFtvkzqSZXmloUfxKtedWRguaH9O3NZHQ9nbM0JekSzLrxKqnBP/eQMbw1uH
Zn6OnRJa6XDUuJpkWZ6VUNyV2KM/aWLQ2NvoyvqN5ErnBe0ky/KthAQnLnge
nINh4/k6blCLEvLc3naIMRdTeaejjWM++RkkRz2rZldy6WjQIiTEcR6m8k9H
JqbCkX6SSzpfiRZF0pGoOTT5yleY8gEdXQwlXjprYZjRKKs9W0ced3jdQNfG
lB/oKPNeilUFyXY2RcKOb5XR+t9LfkzSwZQvlFHaFRWhjy6GcO+CRBSmjAp5
u8vs9DDlD2U05rVuPkcfQ25sHj/1pTLaONXlyjTAlE+UEW86YJRmiAE/zHGV
6qggzqZ7BcpfY8ovKmixXvJWrfkYljVncz32qiBju+cRFhxM+UYFPcl/o7nT
CMM+eib7aYEKmnjoMJC4AFP+UUE0P3Old99gyFyWJtJmqiKtk/m8JQsx5SNV
pPj6qcEFYwwdbsm1oZ6qaOpgXxBrEab8pIoEx4tu3TDFYBR5RVh3XxW1eqw1
ATNM+UoV3YoJjJowx7Drz98TLWZVUeL03gPVSzHlLwbya9hbUsDFcPWfBH7C
VgYy8OAfK7PElM8YKNh3ff3ACgwNU7GuA2kMRNhY2luT+5DMbwz0jX6Fd/pK
DHNNznI3SRjoNIttY2OHKd+pIT0LZ9rI9xhcXE+y7ziqIdWyvD1tgCn/qaFQ
ia6PdC2G+PBjIvplNRTk8/TgFidM+VANSf18Ulo2YXh161Ctb48aemyvHXHP
BVN+VEcLT4x5lm7DoFQVIiy2VUfcE/W7Frlhypfq6Nf5t8989sCAJEGJnHh1
ZDR5f2zCG1P+VEdPj57lnPDHEPH1L/yIZnU09IzfcyhI7lMmSoksUR0+gKFg
va9r01Im0u8I/1nxqNyvTGRbP77hSSSGUb4X11bARLpS/V2L4uS+ZaLj2l1d
gb9jWHF1J/vyWybawqr+nJYs9y8TresznEfcIfftkh9FkgUaiCEVRZzIk/tY
A5k9NnM/VYrhbr9r7baDGgib3Mi0+0fuZw10ZvTnuvFODD1fOQtzyjSQ+TGf
y0bjcl9roPteSbpcTTEYr16fyNJmob35VkaV5O8Cmb9ZKNX0RFjVRjHsDkD8
oAAWKs9+fmbnfjHlcxba2arlpnFNDClJ9q6V+SzU86LDenmtmPI7C5ndORlj
PWcYmp7acE3V2OiY7gPbU37DlO/ZKKztaqFVwzDodCxnR3mwETf73AP7EAnl
fzaqX/8gt8ZzBH5kLhN13GWjvkAH+sTUKLUfsFE0M9QkRmkSkr5bXIum2Qgm
XNONPi0olu0Pmugh43uuZZsZqvZaKEx1JbkCuvr3WRbL9gtNdDr5po6yqhVi
xHASpTc10f6Uc/Gs9yuKZfuHJqL+f8B/AVBgIsY=
       "]]}}, {}, {}, {{}, {}}}, 
   {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{2.9047375096555625`, 20}, {2.9047375096555625`, -20}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], 
    ArrowBox[{{3.0254378003997098`, 0.22974236844612195`}, {
     3.8545388518030097`, 0.22974236844612195`}}]}, 
   TagBox[InsetBox[
     SubscriptBox["r", "crit"], {2.8, 10},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "0"}], ",", " ", 
      RowBox[{"\[CapitalLambda]", "=", "0.2"}]}], {1.5, 17},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      SubscriptBox["r", "0"], "  ", ">", " ", 
      SubscriptBox["r", "crit"]}], {1.5, 15},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{Large, FontFamily -> "Times", Italic},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["\"r\"", TraditionalForm], 
    FormBox["\"\[CapitalPhi](r)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{895., Automatic},
  LabelStyle->Directive[
    GrayLevel[0], Large],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{-20, 20},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.732503296362633*^9, 3.732503371598824*^9, 3.7325034022791915`*^9, 
   3.7325034430578127`*^9, {3.73250347916626*^9, 3.732503498329901*^9}, 
   3.732516203223899*^9, 3.7325162452554965`*^9, 3.732516436496749*^9, {
   3.732533601643231*^9, 3.732533613973258*^9}, 3.7329504370660257`*^9, 
   3.733206568305627*^9, 3.733369950984502*^9}],

Cell[BoxData["\<\"enminexp2.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.732503296362633*^9, 3.732503371598824*^9, 3.7325034022791915`*^9, 
   3.7325034430578127`*^9, {3.73250347916626*^9, 3.732503498329901*^9}, 
   3.732516203223899*^9, 3.7325162452554965`*^9, 3.732516436496749*^9, {
   3.732533601643231*^9, 3.732533613973258*^9}, 3.7329504370660257`*^9, 
   3.733206568305627*^9, 3.7333699513027306`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"f", ",", "qq", ",", "m", ",", "r", ",", "tfsol"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "0.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ll", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"imax", "=", "200"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tsol", "=", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], " ", "-", " ", 
        RowBox[{"2", " ", "m", " ", "x"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"ll", "/", "3"}], ")"}], " ", 
         RowBox[{"x", "^", "4"}]}]}], "\[Equal]", "0"}], ",", "x"}], "]"}], "//",
     "Chop"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rmin", "=", 
   RowBox[{"tsol", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rmax", "=", 
    RowBox[{
     RowBox[{"tsol", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}], "+", "0.1"}]}], ";"}],
   "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"rmin", "=", 
    RowBox[{
     RowBox[{"0", "\[IndentingNewLine]", "rmax"}], "=", "400"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dx", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"rmax", "-", "rmin"}], ")"}], "/", "imax"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"r", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"i", " ", "dx"}], "+", "rmin"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fp", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"f", "[", "i", "]"}], "-", 
      RowBox[{"f", "[", 
       RowBox[{"i", "-", "1"}], "]"}]}], ")"}], "/", "dx"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"e", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"r", "[", "i", "]"}], "^", "2"}], " ", "-", " ", 
       RowBox[{"2", " ", "m", " ", 
        RowBox[{"r", "[", "i", "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"ll", "/", "3"}], ")"}], " ", 
        RowBox[{
         RowBox[{"r", "[", "i", "]"}], "^", "4"}]}]}], ")"}], 
     RowBox[{
      RowBox[{"fp", "[", "i", "]"}], "^", "2"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"r", "[", "i", "]"}], "^", "2"}], 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"f", "[", "i", "]"}], "^", "2"}], "-", "1"}], ")"}], "^", 
       "2"}], " ", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "0", "]"}], "=", 
   RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "imax", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"etot", "=", 
   RowBox[{"dx", "  ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"e", "[", "i", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "imax"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0crit", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"(", 
     RowBox[{"27", "/", 
      RowBox[{"(", 
       RowBox[{"16", " ", "ll"}], ")"}]}], ")"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", "=", 
   RowBox[{"r0crit", "-", "0.1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ft", "[", "x_", "]"}], ":=", 
   RowBox[{"Tanh", "[", 
    RowBox[{"15", 
     RowBox[{"(", 
      RowBox[{"x", "-", "r0"}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ftab", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"f", "[", "i", "]"}], ",", 
       RowBox[{"ft", "[", 
        RowBox[{"r", "[", "i", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"imax", "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sol1", "=", 
   RowBox[{"FindMinimum", "[", 
    RowBox[{"etot", ",", "ftab", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "1000000"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "6"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"etot", " ", "/.", " ", 
   RowBox[{"sol1", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tfsol", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"i", " ", "dx"}], "+", "rmin"}], ",", 
       RowBox[{
        RowBox[{"f", "[", "i", "]"}], "/.", " ", 
        RowBox[{"sol1", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "imax"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"ft", "[", "r", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Red"}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pl2", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"tfsol", ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"r", ",", 
        RowBox[{"\[CapitalPhi]", 
         RowBox[{"(", "r", ")"}]}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"enmincol2", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"pl1", ",", "pl2", ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Orange", ",", "Dashed", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"r0crit", ",", "20"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"r0crit", ",", 
            RowBox[{"-", "20"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Thick", ",", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2.8108769438673735`", ",", "0.22454466616582414`"}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.03128685526273012", ",", "0.22454466616582414`"}], 
           "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(r\), \(crit\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"3.05", ",", "10"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{"\"\<m=0, \[CapitalLambda]=0.2\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"1.5", ",", "15"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Inset", "[", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(r\), \(0\)]\)  < \!\(\*SubscriptBox[\(r\), \
\(crit\)]\)\>\"", ",", 
        RowBox[{"{", 
         RowBox[{"1.5", ",", "10"}], "}"}], ",", 
        RowBox[{"BaseStyle", "\[Rule]", 
         RowBox[{"Directive", "[", 
          RowBox[{"Large", ",", "Italic"}], "]"}]}]}], "]"}], "}"}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "20"}], ",", "20"}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<r\>\"", ",", "\"\<\[CapitalPhi](r)\>\""}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Large", ",", 
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "Italic"}], 
      "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", "Large"}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<enmincol2.pdf\>\"", ",", "enmincol2", ",", 
   RowBox[{"ImageResolution", "\[Rule]", "1000"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"Scaled", "[", "2", "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7291618389961042`*^9, 3.729162300269265*^9}, {
   3.729162430960935*^9, 3.729162436205023*^9}, {3.7291626598061953`*^9, 
   3.7291626695897727`*^9}, 3.7291627472911563`*^9, {3.729162792690287*^9, 
   3.7291628791225996`*^9}, {3.729162915516889*^9, 3.72916291734268*^9}, 
   3.7291629477517567`*^9, {3.7291629822473264`*^9, 3.7291629933329287`*^9}, {
   3.729163023618*^9, 3.7291631175637493`*^9}, {3.7291631684269104`*^9, 
   3.7291631868587604`*^9}, {3.7291632686500845`*^9, 
   3.7291634179469194`*^9}, {3.729163490937042*^9, 3.7291634960367537`*^9}, {
   3.7291635330819583`*^9, 3.729163543348522*^9}, {3.729163590142251*^9, 
   3.729163792290221*^9}, {3.7291638319433823`*^9, 3.729163842590516*^9}, {
   3.7291638765569496`*^9, 3.7291639043825855`*^9}, {3.7291683369439144`*^9, 
   3.729168353743918*^9}, {3.7291714796140685`*^9, 3.7291715105685196`*^9}, {
   3.729171544168502*^9, 3.729171641997052*^9}, {3.7291716851364775`*^9, 
   3.7291716922956924`*^9}, {3.7291722936788177`*^9, 3.72917236067975*^9}, {
   3.7291726023895116`*^9, 3.729172647176037*^9}, {3.729173034358032*^9, 
   3.7291730853698688`*^9}, {3.7291731891276984`*^9, 3.729173207777796*^9}, {
   3.7291738411962543`*^9, 3.7291739582747526`*^9}, {3.7291739950634136`*^9, 
   3.7291740911657953`*^9}, {3.7291741238382263`*^9, 3.72917437934755*^9}, {
   3.729174417461994*^9, 3.7291744485001345`*^9}, {3.7291744913132296`*^9, 
   3.729174620057006*^9}, 3.7291748291951094`*^9, {3.7291748644436536`*^9, 
   3.7291750217861166`*^9}, {3.729175052225199*^9, 3.729175058188723*^9}, {
   3.7291751245921097`*^9, 3.729175138551297*^9}, {3.7291751836741076`*^9, 
   3.7291752467803526`*^9}, {3.729177369499606*^9, 3.729177400656593*^9}, {
   3.72917810818503*^9, 3.729178119959456*^9}, {3.732451939515376*^9, 
   3.732451940510079*^9}, {3.7324535962634335`*^9, 3.732453615672557*^9}, {
   3.732453671059699*^9, 3.7324537541323433`*^9}, {3.7324537870656652`*^9, 
   3.7324538759560194`*^9}, {3.732453916745533*^9, 3.7324539184578333`*^9}, {
   3.7324539731777925`*^9, 3.732454006152108*^9}, {3.7324540412956424`*^9, 
   3.7324540711551757`*^9}, {3.7324541147480917`*^9, 
   3.7324541993664837`*^9}, {3.7324542326957464`*^9, 
   3.7324542336995726`*^9}, {3.7324542707196083`*^9, 3.732454284068573*^9}, {
   3.7324543348029547`*^9, 3.732454360943626*^9}, {3.732454399591921*^9, 
   3.7324544214161596`*^9}, {3.732454452122567*^9, 3.7324544854448647`*^9}, {
   3.732457081593582*^9, 3.732457081963682*^9}, {3.732457120555394*^9, 
   3.732457128892007*^9}, {3.7324571686649055`*^9, 3.732457219665307*^9}, {
   3.7324572724092655`*^9, 3.732457293185232*^9}, {3.7324584043048906`*^9, 
   3.732458412766968*^9}, {3.732503550766382*^9, 3.73250360228238*^9}, {
   3.7325162540986085`*^9, 3.7325162782822905`*^9}, {3.7325163189197636`*^9, 
   3.732516338932432*^9}}],

Cell[BoxData[
 TemplateBox[{
  "FindMinimum","lstol",
   "\"The line search decreased the step size to within the tolerance \
specified by AccuracyGoal and PrecisionGoal but was unable to find a \
sufficient decrease in the function. You may need more than \\!\\(\\*RowBox[{\
\\\"MachinePrecision\\\"}]\\) digits of working precision to meet these \
tolerances.\"",2,235,8,33530088491112252583,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7332065690924397`*^9, 3.733369951514886*^9}],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw92nc8le//B3DOPoekjIqkRBMpJRH3O4VUEgllRqIh0tAQSkqyImQUSiIl
I0J0GyVKZUdkk3luIXv8rrvP95c/eDwf53bd13hd4zwe1wprRwNbCg8Pjw36
Rf6dER3e8LPogjrP359BfPGN0Lulo0+w//eSVyYbSkbT/5lX8fud7C/v/3kn
j6D05e6v/6wxMuCgZl/9z6LRUvvffKz/53INC43jn5v+OXr/eQltibZ/DtVY
Fru+pOOfedI/J6/T/PXP791i1LvGev55qviSSa5r/z8P1WRMtI1w/1lquZ+A
TcXgP3sJ7eg8umDon0Nes2bUTw//Mz37hsn7/JF/Tr46O240++efaf1+Pz4a
jf3zfTFJXq0H49jc3x8CT/P+vfm81gQ2+z9XjBbZPx6ZwCb+55hQx3dx0ZPY
r//5jJK48LM9U9jz//lwhja/Qu8U1jv7n3dtPk/LvjONXZ/+zwyfdRKpSjPY
g+H//LG5ZUti+ww2WvWf44UX/17tNYtpOf3nmzp6L+JXzWGD62b/emGK5Z2J
93OY4ZrJvz7Ap6wYv5EHqiwG/pqyjr7p9m0esDn/7q8zdlcq2P/kgSs2S/66
dn69yRU6LxhuPzpLerS22cNXjhdsmKIzpEUfdSU8OsQLXUaFk6S32g6Up1zj
Bd+xoFHSp1+P7fP15oX06aER0o+plFK7YF5g7OMbJl1nwK+58xEv1Hh/GyQ9
77FowbJEXmjfvJFLWuP3crXJdF4wMZDsI30J1mfXvOMF9z9ev0gL2Su47HzP
CysPuneSTg7YsiW1lBc8inTbSbc3Yam+1aj8I6ZNpN0Ymo6T9bwQ5BbUQHqx
/B45+2ZeiIj1ryOdfkivr6aDF7Jb99SQ3n/NMHFnLy/An4IK0j1xh+1SCV5w
keJ++dvfZRYykn944aBSaSnpbPETsZNzvLDuuVM+6VuvTnmkUiggl9SYR9pw
5xlLezoFOrrk3pLmnjwnUcuhgErS1QzSubMXpn3nUSCy80Ia6TtBlxp2ClJg
R96BV6Slc66Fp4pQwEfySQLpIV2PS/aLKSA/uugpabz1hrGkOAVmeexjSR9h
e4v4LaeAflJwOOkAk6B79uspwLjfd/tvefpLCxbKU0Cia6Un6Syd+MFcBQqo
3ljvRrpFJUdvgRIFsKKYc6TPK+5yf6tMgb17OWdIs2S/JtuqUkC4TcWetIJE
27wcoECiULcp6fcip9WO7aRASrPlIdImAqOnBbQowC8esp+0xxy7zHovBU6s
l4O/86d1ow+fEQVKHxVKkj7+4212hgkFwK1GlPRkpWaPpSkFqHZ+80hLvT+8
+7UVBRLSf07MImfmtrtY2FDgzIkzBOk9GQ7PWMcpsKf0fgdp5/jrDPNTFHju
cO8LaUY0nxLzDAWq3lgUkI4IC7FNdaJAQ/qr16QLvRPf0y9SQOZ9SThpoVMV
N5I9KBD6EzMnnWBjmmbiSQHFe/f3kd5u1tlKuUWBjOOYKuljuhNgfJcCh1e5
ipIe1/R04vWnADdrjkLaV31eTFIgBbKycrkzyK83rJibC6GA6IKiItK71yTJ
P39AgaSnUy9INy7fYmEYSYHexftCSNMW6uQlxFBgufZ8G9KHRpyu6idRYCmd
NjSN3Ns/+XzqJQWWyLZXknbrvPnjaQoFti/1SiMdX/tg22QGBUYMmxxIq3yT
OhGXRQHlmis6pL9+fPFg/1sK+HvGrSQ9mpU/9jifAjElNlVTyD6pe1brFlHA
XvBHAullz6uNxj5QYGXjI1fSWpHdGXs/U6BT5+sy0mHXBM+P1FAg1uP13kmy
/y5Lv3Oqo8DTCn8R0lkXlFkDPyhwfJXdzwnkHw5WUZ3NFLjR+/446d4T57uO
tlHgvqjUGtJTtt4KTR0UWJsm+2scealFyvvaHgqYb/1tTlr2yHuBg/0UqPBz
FSGtZlRn8o2L6i9h8mkM2WI/z8DHYQq0jjxYTzpG/YBI9gwF7jVtK/2DnKJy
zHILDxW+n9O0J12gdCkxlUIF3owsKuk2+Ri150wqDF3ct2EEeXjd69urOFRo
bZbGh8nxWV1S8ZifCj4vqveQlpEctI1cQAWasPihIWQlcVrKImEqJOhYVP0m
+2vR4slgUSpYT1fsI20/H/x9xalwwCNIYRD5+VxA5jUZKkzI82UOIOdMPeGZ
XE2F9dZOLNKfx97subiOCg4vbA37kfuJ5qYzG6hQU8eu60We7hte07eRCj/i
ts4nPa+bec5uMxVaNgyr9yDLt2xgWm2jQvva0Vu/kNUbd+o3qlJBSSvhURey
Xp1xpIk6FW7r5L3sRHYqd9+gv5MKHoMfUtrJ9TP/m7GGLqoPbyQ0k/M/tz32
nR4VeiUK2E3I1VljfSoGVODxt/rYSOYpRdJD0ZgKgdn6y36Q8/Gl4qdXh6kg
ejA3sw55UaK2sKwZFSJfVuz4jqwc65ggfRTVP3tGrpqcHw89h2JsqCAowPav
JPfT8LDtEsep4DUvoakc+co9vFzkFBWqOQZ6X8j19fr8CcYFNB4uv80+IK95
+nQuy4UKAUV2PEXI90tUGaeuUEHhotfdfHL/mm8v9M2dChJT+YZvyf1q0+yS
6zeoECH6KTCL3K+N7i9X9KLCHaMDKRlk/h7my4X5UEEvUyHkFbJ3vtFmHT8q
3JwVM3mBPNLerzIVgNpfFDuRgFy2bsluyxAquAqIVsUiX806a706hgozBScz
7yF3NTBP1D+mQp6/taYfssHcQ8e7T1F/KgXGeyOv0/rkSjynwvjvJXVuyKEn
rDxjX1JBe61v3GVyf/cbvXMwhQqafyxUz5PzqUoq7E0GFcK5p3F7Mm9jWQ9P
ZFFBv2NhgjVymphenPhbKoStH9A3I+f30aup7vlUiD/EbN5Prg9E1Wftz1TY
o2V5T4FcPxaerJz4QoVCtwalNcgLlXjqk8qp0Dy07ZYkOV9dZbvm11IhSyZS
eB6yUUxhf0EdFXx7d+yjkutrkcnwuQYqqLMEJSdmCTyc48VT10IF+8gcr3Zk
mrw406edCnzcccE6ZCf91Hnbu6iQ2bFsVRny7gc/xWL6qGAw2PcjDXlcRmmL
/SgVfuI9jZeRj+mUqYpNoDzdnFl1Ern8tLVG2RQV0s5LfjuMnJDur6fAS4Oz
n5QktyILf5c2aqPS4NY8o2xpZI/JHLP7DBpEZlaELEA22fHrxDgfDV4GM8a6
Z1C+j11zei5Ag3Bl31NVyAreQi5mC2hQlsZDyUNmfcNu5ovSoE8i3MkP+Y3Z
g0feK2hQb1ysIYUc45mF80vT4IVI+hsGsvfzupbAVTQ4pTWzsncavW988crw
9TTQ3Hw/5yUySG7bJSFPg1faHd/8kNdqHbaNVaDBR6V7aaeRJ4PDnyVuoUF/
cGDqKuS2nOwSOWUaVDkGZfAif26t70lVQZ+Haxs1TBF41AYx2RyMBkl/Zrb6
IKt9jkj5pEOD+N9DXdWTBL5qKKdi/z4a5C1fpv4EWWBJw1Dlfhro8utmOSI3
HRff0nCQBnrm179QkIv9VI0sjWjw9Fy2RukEgb96berSbkKD3ke6AX7IHpSo
7D5zGgQf6DoyH9l+be4PRysafNFdkVw2TuD6Bxqnhq1psHKb6PXbyFKPlqpP
29EgYnSf5p8xAi/a9rCQ35kGPbJRp5NHCfyFVV574Hka2Cks7TFEvn/7J03E
hQYXmLs543/Q+NegrxuuNBBxT8tSRN43rWYf60aDu/V9vGUjBL5lpcUdmes0
MNvwys4KmXH20We5WzRYk2s25DqMzmdh7/pTvWkQ0+xZQkP+/q5pntJdGsRx
gyW8h1B++CUPqAfSQLJdOdTjN4HrJERX749A47ciPEaRIPBN3/A/lVE0OFhk
bxzEJXCx0WZR42g0/rusqH0DaH7sXH7YMo4GUx9M9O/0E3jlSbjSHk8D8wi5
y1/7CPztPatIu0QaqD5NiOVH9m2O+emYTIOcBY5dzj3oPMYomB1OoUFT95EL
Ed0Ebi7XKnkpHT2vPduT/Qut51dXWHtk0cDwYuve5k4C/yb6uCuwkAbXJm7j
Oa3oPPBYx4T1gQZZ5i/lH7Wg5+V/l7p/pIHsQ4qCSzN6nya8PFNGg+i+PkvW
TwJXrfi1rOsrDc5s7MrHG1D9zQICzStosP5M5OJTP9B8PN90bl8tDUw+N3RF
fifwsTmvzqI6lDeXs07La9F6cVfOWLWBBuO3fEXDqtH8fuKqsq6FBp8ejr40
qUD7a4UYL6uXBsbX2tMkPqH5bl7o7N5Pg9+aot0rSwh8ec+JjlEuyqeR/eNF
xaj+PNkfO4dp0FbR/ft9AYHL+VptMx+lwbKxfRLXcHReWsRKqh6nwergLxOS
eWj92mDsXzRDgx+vXBKlstB5Pmd2ToWHDiv6PRo9Mgj8gVb82TQKHQ7L9LgX
p6H9yfyPYSyTDrXsP560l2h/8w0Wd19Ah8RPnXEKMQRuvVjVb1SIDjavx9Ne
RaH1L65t1kGUDjPlcmsFwlH9325sMxOnQ1upf+ixewQuqV1/sFqCDj2OQYuO
+KHzVaXHh73L6XBuS6bQujvovNL7LUFFhg7dnctEDD0IvOGCi1jaajpsr1Pe
nXQVrce8kr5r19FhUMlY//tFAu9efMZx8QY6bLoT9/rZaQJ/qs2vNKpMhyBv
J8upQ+j7RlX6MwdVOkwWBKl81kP9bWm6pFONDhtHkoWsdVD9Lz6frtKgw5Cn
YlKjKoEvoBic2atJh5og3s25mwk832+iuVCbDkr1gfuPyKHz3dPdRan76FB5
XZFWKkHgXxQGN6/Vo0Orn131fRECd80Ni4/Rp4Omy+1okXnkftN1J8CIDvvo
Aa/WT3HxMIrXAQcrOph9+fTMtIqLP85IdhOzoUN7cnNv4Ecu/sK+7sVHWzoU
bitdZ/CWi+d/Xc+WOkWHbW/wk3axXPzT9UNbvznQgXtx9lxaMBev2exu6+pE
B8E1yT4uXly8N6KyoPYCHZ6KXNpnZsfFR3SnCc9LdOC/pFR61piLz/GsWrbx
Kmp/3MxIvxYXF7a7fOWuByrPWXrj7Eourq64XBHu0qH/XZ/3r5oBfHeXztEB
P9Sf6hbErfwB/GD4uYCIQDosaAhZb/p8AO2hxX0jIXTQtu7TuXV1AHdOG1zy
+AEdjrBDi79aD+DXbMV260XSwQfidTfoDOBBnx3iEmPocExc8eESoQE8yi2s
0ugJHT7uXuUWPNqPP9tYwEOLp8OGk/UR9Pp+PDdM2NwiiQ7+5nlJKRH9eJfN
WxGhTDqkHL4gul6wHx8U7dyZn0WHNe3HF5/t7cOnSgWcHd7SAf9YsNCuqA8X
VLD++jGfDkvb9d+rnu3DxdrvTp8vokOzomIgQ6sPlwnNWCdVTIejUTqeh5f0
4SrTrNuun1H+NMTLz7ztxXe92pSx9isdZHK/nV7q04vrWZu115ajPMekv1tj
3IsfK3mFbaylw313eRfF/h7c/77ReGcLHVzfXx7u5enBH2h7rApup8O1wCkH
+4Ju/MlkoiF00UFK4in8du/Gs6xmUiL66KB+UUtsZvQX3iYbd0JvlA6v0lWs
hz934f3NX8Kmx+lwBZzu5V/twseCxj4kTqG8eOGWB9Z24fwTe6RovAyQX/Lp
dsS1Tlzpw+8fWXwMmPuzzXwdpwPPu/p0pbIAA0x146P5k9vxXZsOn34jyADv
Xt7jtXrtuEF0/kyGCAOODnCrlvi14WcuByxPl2TAeuGxLmNuC/5UTu74S0UG
RJuHto5F/sBlO1qSZZUYUNLT0a76uB5Pi7g/lqTMgNpuV7vyuDo8nznt/VyN
ARu314nvia7FG1s/JT3TZkB8rVDhzdOVuHCo/e9YUwaMe72T0+YvwiP3LVVZ
YcEARpDyvJT8fFyKWn4jxooBOa63t/p35OIKTluFo20ZEOWWdZf5MB3ft4ex
NcqRAd9NBUTUvB1wz9knrqGeDCgU1e/glSnEOBnGH0RuMYDnOt0v48x7LPAU
n0CINwOWVmUY8GQUY4/qnKOD/Rgwc1exYnDLZywnbUdhYBgD5tcwQ0bmKrCh
483Mu0kMoBWlxoxt+4FV7xKZB8kM4P1UtkdAqwHLlNq78E8KAzLseljPdBux
q02ZSy0zGSDdunQ9Xa8Joxn5b1QsYAAnwNZgN38r1qX4Xqm7CLXnZEKplXsr
VrJgUvVhMQPcvGR0eQdbMb8vtlrMMgYQcoKq1aVtmKimmmlDLQMyQ8avfrXs
wMalzlkF1jNgkqEjIot3YD94Em01G9F4KUbNX7a0E4vOFXZ61coA55eePDVf
O7E1m/tvevYz4JZ42OM9i39hnIVSPsoEA4qt597w2v7CBgjjgIHfDOBSwp7d
fvULS0sqCjceY8DP18mlMurdmOrKyOT1FCbEezZuK9TowZbxVqS30Jgwa/Ao
lObeg/E0M7JDmEwI3gkb7bJ7sPcRzkVz/ExQVNC8mrWmF4u/lFDyej4TvG52
c3PNe7E7Rk1fTixkQoWT69J593qx/Qv31FUtYkLxoe2CuUO9mMKg+09vMSZ4
HFc8qbCiD1v4NaNNTYIJ9lS/KPH9fdj3OysGnkkxwXL+C9zjSR9mxTvB6yrH
hP61JkHxav2YRrM8c6MCE9Y9mW4bsurHpPOO8XdtYkK1pcQww7Mf67lULnpA
mQmH1xnnJRX1Y2VGjKV0VSYsuVz/Zn9bP5a8efuKHDUmiJ6PGvw51485Dz5b
L72TCX0XzL3atw5ghl9/KtRrMkHQLvzBSYMBTOmFkJL/blTf5H7juVMD2JSd
O4zrMiFvzaTE2agB7Gaz0aEyEybcX1Uapjk8gLXni144aMqE2B3B1QV0Lqbx
uPb+D3MmyOWvcotaxMXmjhlVd1sz4c95kQfXt3ExCy3REUdbJuyqCiRCdLhY
7upaoTE7JnSGrPJcepiLXek9dJDuwIQ7mzJSgi5ysfrPIud8HZmg/3T/8rs3
uZjyy5ogIWcmiBtdv8QM4mJ/HA9VrnBhQm6bm2xUEhdz+mOor36dCTrumjyx
9VzsW63w2Q+eTAi9PD4i3cHF5LOqA/fdYsLBtBU2e7hcrO+KYfmRu6h9b5Vt
bvES2B4z4cFWPyakWa5b8IRDYAlq1fNPBDKBK9d71kGIwI7zGOq5hDBhG6fs
sqg0gX1oFXKcDWPCcvcMt8n1BCZdVOXvFYHy83r7cKgigbV6HfwaHI3yQnMY
p2gQmBnfQd2URCa82fk96Zcpgb3tX+iw9QUT1vjUzH47SmBiXyt93yUzoY5v
vs0NOwL7HmhQVpbOhJO4VcM+ZwJTcl7YfzCTCY/mnLzsXQjs/sFKvoYsJvQe
SnQ45EpgBqIGe3vymLCx1tMt0YvAUscWnHLKZ8Jvow/FQj4EJlhf4TNWyARz
joHfIX8C+xKp/4lewoTXdZ4atqEEtnuFvo5UJRPOzYZY/ogjsGeUBScSq5mQ
+GGQvSqBwBgd5d4K35mgSq02PZhEYEXxB0rUG5kwOPlG3TiVwKS8Bbs/NDHh
1IBi44bXBOZxopyp24ryWl+uws0kMHXZA9qmXSjPMteHJHMJLGqeoF1bNxNS
BawWhrwjsCnut1sn+phwVOHW9eF8AstK1St2GWRCnH+fl+MHAlPcqqd5f5IJ
lesdpS9/ITCTa6EZAjNMKHel9e/6RmBuRT9l7swxQVO42I6ngsBK9E4z3Ggs
aPYpLtxdTWDckPSL4wwWLP/UnFVbQ2BCjZNdzmwW+HRuvGf0ncAs7O98tBNg
wW51zTa5HwR2M7l8a5sgC2bce/fdaiCwxJFFCWZCLBgL+nmtspHARjzivfUX
s8B4rXaPdjOB+YQX6ahKsWDhukcL09oJLKWZk5MhzYLF05yJ9A4Cq5ExWKew
mgUJG45kvOgksOVpLRwZWRZYOCyb8PxFYFrjq69Gy7PgZuLSZTbdBHZK3bFv
yUYWOh9qGKr0EFjmp5nPAkosEHe4tqCyl8AaBTW331FmQXgdZ0VwH4HxGvu+
oKqyYKKiyUC3n8D2tYv5jWMswEsihZMHCKxtauv+Nh0WZFksNVs9SGAsDfd3
ZvtY8JE+U/8GWc67WP77fha8fXBLcedvArskfGh+2UEWFA2Obdo7RGCPjkS5
axmh+nBdN5YgF8W0E/kmLFAOoOTBMIEJyDmXZ5izgDXoKy4zQmCbz2WDghUL
6Nu0Ve8hH87mSX1uzQLHx7euTyDHaQbci7ZjAXOTOz/+h8BULF4Y3DmL3m8b
/HTFGIFZxQ0XUs+zgDo9dtcZ2atXRdHtIgsaTxYE5iOXXywVOneVBe4S/uaG
4wQ2mit4c+AaC/Yw9hpHIItTTUbsPFhQGD9Y+RP5eEBXtZkXC87OzCSaTxCY
b42c5vfbLAgKO60QgZwqfiFD34cFBwVb/KuRp59RQ7UCWHDy59sVOycJLCh/
ubFCOAsI2coI9hTKj3yvZ0sk6k/1gjgV5PuR6SmBj1jgtkHl0wnkkItanN9P
0Pskv6UWIot2zN8aG8+CcYU1Yf3Iofr1NvqJqD9kg5uEpwnsgezpvNRkVP6y
lkor5CURW3qPprKAv6/p4U3kCOac6MLXLPgsv4X5DDmq7Z6TczYLUq3+9P5C
jn7wZqXiexbEaJYams6gfDGuH2gvZkGZ9ZXzF5Bjzu25FlyKnpejB/kjP97/
s3b4KwtErJZx85BX5sZT4ypY8GnsAlaNHLfWScGwGvUH/47XPcjxNKrP63oW
zHfrWbtwlsBWO5dlHmtE5bdUqcggJzSHtAs3s+C3jEHAVuTEnDVqFzpYEHao
XvII8gun/YNbCBYEKz0MD0OWa1ok0fWbBaBc5vkUOXlvq07oCMqX24WONOSU
VeefjE6wwHyj+rIy5I331crjp1kwu9WKtw45jZc5YzTHgmMv6Y7tyOmN4UZv
aGyIlqmcGkfevMfG047Jhjz3WyupcwT2+o1syiIOG1imjV38yJlBOPvSfDYs
6PigJ4mcs7szV1mMDfFvh+YBsmpmck/3UjZazze7aCPnrrwkGi7JhtW6SmH7
kfNmOU4T0mzYofqCYYasfro6KnE1Gy68uWBqjfyu/mHp4XVsEFNPOmuPnP9a
YWXOBjYsdOnvO4e8Q2pS7+QmNrSfumV4GbkwoMhVbAsbCt89v+2G/P6kUe0V
FTa8uo8f8kb+uNz1jqomG6JiOcXh5Of3vpXnabPhvIHJxYfk/1NWLoY9bHA7
GEyLJevbURq/S48NEeUp+DOyfYckuMX6bKhZ9Iv7HPlNsdMWHUM2uAql8yQj
pyUseq97mA0D63eUpyO/WnKKr9yUDXZP6IGZyC983hkYWLDhspKtUjbys9O2
rUY2bBi7EqbyDjlKIX3W0oEN3/pOKX9EDo9laLU5ssG2s29XKXLowiN+x5zZ
sLHVTf0z8r0RnqUnXNjQ8D1o6iuyv62hTd9lNui/t8gvR/atffbcwZUNIazq
85XIt7L2b3O+jupbK/iqBtlz7WOPEU827BMe3fId2SPiz8eLt9ggcCE/uQ75
qmuU0dW7KA8i7EsNyE7Qe+5mCBseS9692ILskKr2lvGADXLNP8NbkU9K3aPc
iWBDgPfLtDZkW5ryPb9oNuDXdxV3IFtfuFs3/zEbJp8UFXQiW3U1SQbFscHl
/obXXchHSrySQxPZ8HKdmHs3svG2+j+LX7Ah+/pWkx5kw+eyapHJbPAG97W9
yHq+VZ+j09nQVPkiow9514EVPQl5bIjc+/kql8xHwXmF9flsMLSJkCDIfG0q
cXlZyIZr74OySW8TdmSkfWSDhnxNyyCykleh7uZPbGg+4HX6N/LmUZGQzDI2
qAmvHyYtX5e78m0FG5QEBIeGkGV1BE+pVaP2nnh2chh5bY5NGl7LhkdfOppI
S0dxdrxvYIMv/XfOCPISKxOLL51s6FY00xxFdh6Xs/bqRuNxOyKe9KdA6nG1
PjbMdPDTxpBdC5IdXg6yoW6e9GvS1YdvnrUdZsNnU0HmOLLc0OELEqNs6KnB
jUg3SdGv+U2xYZ5rdz/prW9/eGjOsqH88SPFCeTAgyk3Z3g4MEENciG946ap
rwODA28LH46RjutMjdRdwIG03fwNk8jT125H04U5oO/oIjCFfEjU/EmeKAfU
4lsw0gxtVpLcUg604NNRpC2bfyZ3LuPABeeaEtJZLulpD1dw4GzH2BDpEwkW
OfNWc2DVF3ONaXK+weZ3H9ZyYOeNAjvSYvXswmuyHIjzeHWXdBk7o3RgIwee
Sh/7Rlr+FF/9l+0ccO97qj1D5pna2uiFcWC5UK016ebIzBY1DQ40XRl1JR1Y
drT7pTYHLBZsSibdc2xrv+0eDlxWP/qBtMYM/6CELgc8UxIaSA/LZY35GXAg
Y1scfRZ5X7HflOYhDlw0P7GEdJyFzdyMMQd2d9nLkjYKEGCeMefAscwtB0hn
DR4T3W+P2kMpCyAteEdFjHGKA0t2yj4ifWKF4LJ3DhyQq5pOIi1m8FZG/hwH
vi+hF5M+1xu4tusCB75Za1eSLrtxXO7RJQ6ISs9vIn0tfcEWATcOBFM0RkjX
7v2lXOzBgeiVmbOk5Ttyt7t5ckC3pIA1h9wibL+L682BTR9eiZPWuPgOHag5
ECGip0ba+px4wuVQDghoF+8ifd3p0rR0OAc2bxjZSzr/5KanVx9xIEnT/TDp
ZruAiVWxHJAsaLUkPXusX7fyCQeiAujHSatZxo+uSeSAdFLEWdJmZtS91Ukc
qPIQdCHtetgq2j0ZPZ97wJV0zkGx3bXpHOC5q3yLtPJu/3DPdyg/O3+EkTbR
7BuQL+CAT2xdJGkXjd0aP4rQeH1+FU06czulT6GUAzku3HjSNdssscbPHBj+
ZvKc9IhSbvDtrxxYGRv7krTixovbm6o4oFFclU7aQL4q8E4tBxbcxjNJO69X
6Nxcz4Fbkf7ZpFNkev3uNnHgqljDO9LyYhbNyj0c8E3QKSG9f9FbxY4+lO+A
059IOwgv9g7gcuDZtStlpF8IVCp0DXMgNPpIOelelm/99gkOmC0frCK9lqp1
I3gWje9D+E7afmZuXS+VD0q09H+Qjh/LrgI2H1zrXfWTtHS/nAxXiA/KfTe1
kbbp+vVl1xI+CHR26iD9uCX2YuQyPhiV9ewi3frDVHJoJR/oTTl0k15eI1Ky
ey0fWDYp9pJ+VHpnyagiH3SXmA6QFn83c/KJOh/I5wiQ902wycItbf4GqLyI
ReT9FKzuo8PhK8f5oFJEfIz0m7Kn5bZX+EDOwHSCdGjFT219fz64lM2eIn2w
QVdpTSYfWBmokvdhMMHOPOm5n3yw6PF58r4MNtredu/YZn54czmQvE+DNbYx
50p9+CHYp+WvD+g75Dk38MPKw6N//QGvvCouOw/62DN/vfCj9F75q/NgeMHf
+z2YxdeLYjs+zQMs4z+LFsy7wrdcAHJ6//OX9Lj6mgsCMDTxn4VEXX3aPwjA
8v/uF2GHLx1U/S0yH079d/8Ie12pZbzfcT7U/c/z5VTOJZXMhz//8/8BCjnA
fA==
        "]]},
      Annotation[#, "Charting`Private`Tag$4333#1"]& ]}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.009166666666666668], Thickness[Large], 
      LineBox[CompressedData["
1:eJxVl3s4lHkbx+dkBmOGDnqLUOtcDkWpKPedbVW2SLudpRIdKJSkVGhD6aBs
VDpondISVjqQXatsNoVSSOSsnOf5Oebsfd5rnvnjneuaa67PNTPP8/vd9/f+
/GZmu3itd+OwWKxC+vm/1/9/kL+1HV6P+22KhEPXTS3UqopBygmQVr6cb/xz
Azw6ajpufiYNksYWnrJ78oV5/xGwmsO2SYxaobPx5PiGg9mQ7zKYP/B3G/P5
XHj2y4Hzdh/bAeS6x88VPYfwd7pHxuI7mO//Axqu1TOssBME0fHjexoLIKGS
27w0p5O5XiGUbY9Y76fZBe+MNo6vGHwDjalrXWZ4dzHXL4HDF7cd2fKoC9bs
5AVOOvsOvls15aOppIu5XyncPNGZna8lgfnJNQGsyR+gJufpuTQ7CXP/Mgjd
sblEz1sCqn1PAqjb5WBtJd4+M0LCrKcCDtgJvtilSWB42ZWAWv1KiDPmP1j1
SsKs7xO4E5bbpToJ1J7dH1D8sAo6E3SDT/RJmPVWQ/itpWS3gIIXpTYBfy6r
gbmftqwLm04x66+FPaaGqdoGFCSpzwxIeVUH8QoDZ1wsKGY/9RD88e3owe8p
KHg4bF1s2AAxfv3L9jlQzP4aQO9FyhPPrRRkbWrJXeHVCD4+n4ZuulLMfptg
7+PR5VxPCpJHP1j/+agJfF++/PzsKMXsvxnyfM/Hvw+g4HZsXq75cDPM8n/s
uyWUYurxBdTznIKdLlEQbptqnQJfYRG77VLLVYqpz1dYbdo0wbtJQVBHdO53
IS2Qsfr0jNy7FFOvVoj87dpM9UQKfK6EWt983QqF+jV+2skUU7820Hjv21CT
RoHbQp/cSSrtEGJ/wWddJsXUsx1cU7P/CHpKwaaqHdZhGzogfO7uGz45FFPf
Dig14Scb/03B6sA1uaxbnYBJieMPX8jq3QUvo/nrBAUUWOkssT5W3wXbA2+I
TApl9ZfAerblzjlFFJgU6uZSuhSE+DfOmyiR9YMC48goo/RSClQWKdzNXEjg
/ubeV0vLZP0hcHKv0crkCgrCwiacvSoJcHzLng5VyvrVDVvdd8oZV1PA+dyv
OfdEN4w6Hur/oUbWv24I8IudZ1tHwQmTztqvGj3gusLWxrRB1s8eyPFXvMNp
oqAvqDEmLq8HdPbti37eLOtvL/zOb/A/+JWCgx8qnZ1394LxqgR3Qaus371Q
Log5eaWNgq+6bzXV+H2w1DI0U6FD1v8+YNdfZR/ppGDnsZe15ff7wO+xzap3
XbI89MFg2wdnLYqCT69zYiJ+7IfnJ26ruBBZPvoBEqM0orspWK/x0HmtpB9C
na2WvuyR5WUA5BQVZ7T0UvDG676mQsQAfLg3fdNEnyw/AyBcGXxZPEDBihcx
tf+YfwOuf7Kj6jdZnr6BSqS27tRBCv6aGhUTVPENUqJ/PS8ckuVrECT5wtER
mi32XnBeenwQjteLJV+GZXkbhLGoR+8KRyhIzz6tOag+BONOrcr3R2X5GwKM
uzDl9BgFBkrHajNzh8BQ5wtsGJflcRjk0lL6dSYoiHX2jPHaNQwxHe8jyIQs
n8NQ1Npi4cQioJbh6jyXNwLbxmq8cmmW5nUEdshraWixCURyt2m23BuBt0PG
ewJoluZ3BJRORh/6TLNoo2Nt3OpRiFAJdl3CIUyeR2HIId8liubQ+ytjnDtH
Qd+j9QqhWZrvMTim5jT5Ry6BieFlzmqXx0DHR0MhkWZp3scgSWIePU7zsbUL
NCvmj0Omu8OXTTzC5H8cQlIeizJo7r47pzaibBy45RMLFOUIMw8T4J4gH7ib
ZveeWTFr/SZg6m1jpb9ols7HBNza8HxsGp/A4ThhOk/EwpjM730P0SydFxaK
Q3uvFtGc9oZ/2cWZhVe80v0NBISZHxamm2qtCaG5o4/tlZfOQu1Wc8MmmqXz
xMJU/7yFNvIE9DXH7DXZbHxHvYqMo1k6X2xstXvvwVMg4Lpy0OTkejbuuqtf
v5dm6byxsdrMZkYxzb9594qr4tk4HefDAkXCzB8bVfyST9yhuSZaIlnUz8YE
C48heSFh5pGDD5KfNR+leUZ+W0mULQdLjb65t9AsnU8ORqv752xVIrCxszmt
9zoHDeT6+aU0S+eVg8FqGGQnInBVtT7csY2DcbPNnP6lWTq/XFSdl1W6Ukzg
rXW1Z7olF911P6kV0SydZy7+rj3zyM/KBJT2VdiLLnLRuz1Yo4Fm6Xxz8ap/
4tbDKgRWRZSaeNRwMeNt9GH5SYSZdx5W9hf/EU9zyLMicaEJDz1YZm4rJhNm
/nmYUNvZ1E7z86Z/JXpBPKzoeBZ6fQphfMDDg1WGD+ymEhhXyi8JLuVhw4uL
WTxVwviBh6mirmkFNFta5KY1fieHT3YuW3x5GmF8IYcGyz2idv6HgN+O7HA8
Iod9jn1pltMJ4w853NSYItKcQSDz3CPPmJdyuGHy8RVCNcL4RA4XzymhOOoE
SEa6/eg0PmY9lc+Sm0kYv/DxjdM3x6kaBIyrk0227uPjHlZioKkmYXzDx0sr
KyZv1iKwn3dPnJXNxy1DnK7wWYTxDx8XZ4ywy2cTuGccK1EVCtAsIWjLXG3C
+EiALUbeKld1CDRuvF3i4yTAEVs3J5EeYfwkwIiR6xdv6RPQCrqeVpoqwM7o
SyIwJIyvBGhstujA0BwC237/Ndx0QoC7+IGbi4wI4y951F+gnJJtQuDG+0ue
l9bJo0Lp4n358wjjM3ksaf+loMOMQNnIOfuOWHmc4rtzwUL6HJL6TR71gqKc
4xYRmKQbbLK6Vx4DUxcvsbAkjO8UsCRQRb5vKYG19oHipBUKeJNTuL8OCOM/
BVwjvO46akPgvJ+/hHdNAXddKPdxsCWMDxXwwM+cmzWrCfz7m2+JS4sCGirG
+zxYSxg/KuJXjp/DC0cC3NfeaXmLFdGpd3i13kbC+FIRz5Te8azfSgB7PcI1
zyui7pW+uqEdhPGnInrpfRaccqPP0Zl7PU9WK6LDsuT3vh4ynwpx0pnKge5D
BLJ/cLGvMhJiace7tezjMr8KMfJasM2TIAL9nttNFgcIMSWJv00vTOZbIdZ9
CG51/5WA2Y3N4mtvhdgx/1Rz7G2Zf4X4UEU4hUoi4Pn8J0nvLCXsTvH3O/VI
5mMlNAjN+/H0CwIp7fYljoeVMLYjN9LyvczPSujuJv5zsIlAyxS7tPR8JRx5
de601qDM10r4xzorvolyN+gs+yFcpCrCgow3qoX07wKpv0XIs/Xwfb2qG3bt
QU+PPSK08JkdvvlgN+NzEX7vau2mFN0Ndy5b2Rc+FaFhImUzv6Sb8bsI1bW/
hC1U6YGqLAsTfQUxBuYUzD3t2sP4Xow4aBVrXtYD0xrni0O2inF3p90NK+9e
xv9izJ+uk1Ps1Ac/CY0ljSlivLXEzmBopJ85D8T4bcBV6yx3GC4vMCjBMTGG
Xz8ap/V5Vp70fFDG3cU7TObVGWLRdu20GHtlzDLE5vb98/Kk54UyKjfemCYn
MEf5s5rho3eVcV3hufOij2Z50vNDGZn/H/BfIxYW0w==
       "]]}}, {}, {}, {{}, {}}}, 
   {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{Small, Small}], 
    LineBox[{{2.9047375096555625`, 20}, {2.9047375096555625`, -20}}]}, 
   {RGBColor[1, 0, 0], Thickness[Large], 
    ArrowBox[{{2.8108769438673735`, 0.22454466616582414`}, {
     0.03128685526273012, 0.22454466616582414`}}]}, 
   TagBox[InsetBox[
     SubscriptBox["r", "crit"], {3.05, 10},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      RowBox[{"m", "=", "0"}], ",", " ", 
      RowBox[{"\[CapitalLambda]", "=", "0.2"}]}], {1.5, 15},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"], 
   TagBox[InsetBox[
     RowBox[{
      SubscriptBox["r", "0"], "  ", "<", " ", 
      SubscriptBox["r", "crit"]}], {1.5, 10},
     BaseStyle->Directive[Large, Italic]],
    "InsetString"]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{Large, FontFamily -> "Times", Italic},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox["\"r\"", TraditionalForm], 
    FormBox["\"\[CapitalPhi](r)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{757., Automatic},
  LabelStyle->Directive[
    GrayLevel[0], Large],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{-20, 20},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.732503553010102*^9, 3.7325035688707256`*^9}, 
   3.7325036031808534`*^9, 3.732516279762451*^9, {3.732516328841158*^9, 
   3.7325163401218376`*^9}, 3.7325164372587805`*^9, 3.732950437653417*^9, 
   3.733206569200515*^9, 3.733369951627967*^9}],

Cell[BoxData["\<\"enmincol2.pdf\"\>"], "Output",
 CellChangeTimes->{{3.732503553010102*^9, 3.7325035688707256`*^9}, 
   3.7325036031808534`*^9, 3.732516279762451*^9, {3.732516328841158*^9, 
   3.7325163401218376`*^9}, 3.7325164372587805`*^9, 3.732950437653417*^9, 
   3.733206569200515*^9, 3.733369951909167*^9}]
}, Open  ]]
},
WindowSize->{1350, 685},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 312, 7, 37, "Input"],
Cell[CellGroupData[{
Cell[895, 31, 14543, 416, 715, "Input"],
Cell[15441, 449, 111297, 1859, 559, "Output"],
Cell[126741, 2310, 686, 10, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127464, 2325, 11570, 313, 430, "Input"],
Cell[139037, 2640, 429, 8, 23, "Message"],
Cell[139469, 2650, 409, 8, 23, "Message"],
Cell[139881, 2660, 427, 8, 23, "Message"],
Cell[140311, 2670, 356, 7, 21, "Message"],
Cell[140670, 2679, 4034, 79, 51, "Output"],
Cell[144707, 2760, 410, 8, 23, "Message"],
Cell[145120, 2770, 408, 8, 23, "Message"],
Cell[145531, 2780, 4040, 80, 51, "Output"],
Cell[149574, 2862, 11762, 217, 574, "Output"],
Cell[161339, 3081, 282, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[161658, 3090, 8707, 224, 539, "Input"],
Cell[170368, 3316, 684, 16, 30, "Output"],
Cell[171055, 3334, 397, 9, 30, "Output"],
Cell[171455, 3345, 580, 14, 30, "Output"],
Cell[172038, 3361, 25850, 459, 479, "Output"],
Cell[197891, 3822, 254, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[198182, 3830, 9709, 244, 521, "Input"],
Cell[207894, 4076, 1288, 25, 30, "Output"],
Cell[209185, 4103, 1015, 18, 30, "Output"],
Cell[210203, 4123, 1186, 23, 30, "Output"],
Cell[211392, 4148, 26719, 473, 580, "Output"],
Cell[238114, 4623, 857, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[239008, 4640, 11606, 307, 641, "Input"],
Cell[250617, 4949, 761, 11, 30, "Output"],
Cell[251381, 4962, 17970, 321, 495, "Output"],
Cell[269354, 5285, 765, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[270156, 5301, 12859, 344, 717, "Input"],
Cell[283018, 5647, 18414, 328, 529, "Output"],
Cell[301435, 5977, 487, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[301959, 5989, 42904, 801, 734, "Input"],
Cell[344866, 6792, 989, 14, 30, "Output"],
Cell[345858, 6808, 50078, 848, 518, "Output"],
Cell[395939, 7658, 987, 14, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[396963, 7677, 43743, 825, 772, "Input"],
Cell[440709, 8504, 58257, 986, 512, "Output"],
Cell[498969, 9492, 641, 9, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[499647, 9506, 8449, 217, 392, "Input"],
Cell[508099, 9725, 2514, 50, 853, "Output"],
Cell[510616, 9777, 873, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[511526, 9794, 7902, 192, 392, "Input"],
Cell[519431, 9988, 2224, 53, 462, "Output"],
Cell[521658, 10043, 547, 8, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[522242, 10056, 11915, 295, 506, "Input"],
Cell[534160, 10353, 2812, 54, 273, "Output"],
Cell[536975, 10409, 857, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[537869, 10425, 11853, 312, 639, "Input"],
Cell[549725, 10739, 814, 14, 39, "Message"],
Cell[550542, 10755, 18024, 321, 584, "Output"],
Cell[568569, 11078, 408, 6, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[569014, 11089, 11894, 313, 639, "Input"],
Cell[580911, 11404, 510, 9, 39, "Message"],
Cell[581424, 11415, 18070, 322, 498, "Output"],
Cell[599497, 11739, 312, 4, 87, "Output"]
}, Open  ]]
}
]
*)