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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[   1757578,      41211]
NotebookOptionsPosition[   1751667,      41047]
NotebookOutlinePosition[   1752003,      41062]
CellTagsIndexPosition[   1751960,      41059]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "This", " ", "is", " ", "a", " ", "supplementary", " ", "file", " ", 
     "for", " ", 
     "\"\<Evolutionary invasion and escape in the presence of deleterious \
mutations\>\""}], ",", " ", 
    RowBox[{
     RowBox[{
     "by", " ", "Claude", " ", "Loverdo", " ", "and", " ", "James", " ", 
      RowBox[{"O", ".", " ", "Lloyd"}]}], "-", "Smith"}], ",", " ", "2013"}], 
   " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.575903676045266*^9, 3.575903736056903*^9}, {
  3.575903774434897*^9, 3.575903839040975*^9}, {3.5759143839007673`*^9, 
  3.575914386832574*^9}, {3.576260411229636*^9, 3.576260427758287*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Contents", ":", "\[IndentingNewLine]", "      ", 
    RowBox[{
     RowBox[{
     "General", " ", "model", "\[IndentingNewLine]", "    ", "Varying", " ", 
      "the", " ", "number", " ", "of", " ", "lethal", " ", "mutations", 
      "\[IndentingNewLine]", "\t", "Two", " ", "mutational", " ", "steps", 
      " ", "needed", " ", "to", " ", "reach", " ", "the", " ", "adaptive", 
      " ", "strain", "\[IndentingNewLine]", "\t", "Deleterious", " ", 
      "mutations", "\[IndentingNewLine]", "\t", 
      RowBox[{"Application", " ", "to", " ", "within"}]}], "-", 
     RowBox[{"host", " ", "viral", " ", "dynamics"}]}]}], 
   "\[IndentingNewLine]", " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.575903693543288*^9, 3.575903713188957*^9}, {
  3.575913705201264*^9, 3.575913716952489*^9}, {3.5759137599800386`*^9, 
  3.5759138336741*^9}, {3.575913870668084*^9, 3.575913885186317*^9}, {
  3.5759143894280252`*^9, 3.575914392062284*^9}, {3.575916610228689*^9, 
  3.57591662171346*^9}, {3.576255570227199*^9, 3.57625559178238*^9}, {
  3.576417423366432*^9, 3.5764174240286617`*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.575913914374378*^9, 3.575913929232736*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"GENERAL", " ", "MODEL"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.575913888265497*^9, 3.575913895950186*^9}, {
  3.5759143506974697`*^9, 3.575914378574313*^9}, {3.575914427270212*^9, 
  3.575914431066174*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.575920926457013*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Complete", " ", "system"}], ",", " ", 
    RowBox[{"as", " ", "in", " ", "equation", " ", 
     RowBox[{"(", "1", ")"}], " ", "of", " ", "main", " ", "text"}]}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"g1", "=", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", "r1"}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"r1", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", "r1"}], ")"}]}], " ", "z1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"L", "+", "1"}], ")"}]}], " ", "z1"}], " ", "+", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "L"}], " ", "m", " ", "z2"}],
          "+", "1", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], "^", "L"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g2", "=", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", "r2"}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"r2", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", "r2"}], ")"}]}], " ", "z2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"L", "+", "1"}], ")"}]}], " ", "z2"}], " ", "+", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "L"}], " ", "m", " ", "z1"}],
          "+", "1", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], "^", "L"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqres", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"g1", "/.", 
             RowBox[{"z1", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"1", "-", "s1"}], ")"}]}]}], "/.", 
            RowBox[{"z2", "\[Rule]", 
             RowBox[{"(", 
              RowBox[{"1", "-", "s2"}], ")"}]}]}], ")"}], "\[Equal]", 
          RowBox[{"(", 
           RowBox[{"1", "-", "s1"}], ")"}]}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"g2", "/.", 
             RowBox[{"z1", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"1", "-", "s1"}], ")"}]}]}], "/.", 
            RowBox[{"z2", "\[Rule]", 
             RowBox[{"(", 
              RowBox[{"1", "-", "s2"}], ")"}]}]}], ")"}], "\[Equal]", 
          RowBox[{"(", 
           RowBox[{"1", "-", "s2"}], ")"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s1", ",", "s2"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Note", " ", "that", " ", "this", " ", "system", " ", "has", " ", 
     "several", " ", 
     RowBox[{"solutions", ".", " ", "But"}], " ", "only", " ", "one", " ", 
     "solution", " ", "is", " ", "in", " ", "the", " ", "relevant", " ", 
     "domain", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
       "survival", " ", "probability", " ", "between", " ", "0", " ", "and", 
        " ", "1"}], ",", " ", 
       RowBox[{"strictly", " ", "larger", " ", "than", " ", "0"}]}], ")"}]}], 
    " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.5759142934205112`*^9, 3.575914339372961*^9}, {
  3.5759144012918463`*^9, 3.5759144036792517`*^9}, {3.5759144920361977`*^9, 
  3.575914591384221*^9}, {3.575915459993113*^9, 3.575915726238687*^9}, {
  3.57591659558127*^9, 3.575916595799335*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Iterative", " ", "approximations"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"solve", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"g1", "/.", 
           RowBox[{"z1", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{"1", "-", "s1"}], ")"}]}]}], "/.", 
          RowBox[{"z2", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{"1", "-", "s2"}], ")"}]}]}], ")"}], "\[Equal]", 
        RowBox[{"(", 
         RowBox[{"1", "-", "s1"}], ")"}]}], ",", "s1"}], "]"}]}], ";"}], " ", 
   
   RowBox[{"(*", " ", 
    RowBox[{
    "express", " ", "s1", " ", "as", " ", "a", " ", "function", " ", "of", 
     " ", "s2"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"s1test", "=", 
    RowBox[{"(", 
     RowBox[{"s1", "/.", 
      RowBox[{"solve", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"there", " ", "are", " ", "2", " ", "solutions"}], ",", " ", 
     RowBox[{
     "but", " ", "only", " ", "one", " ", "is", " ", "in", " ", "the", " ", 
      "right", " ", "domain", " ", "of", " ", "values", " ", "for", " ", 
      "s1"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s2test", "=", 
     RowBox[{
      RowBox[{"s1test", "/.", 
       RowBox[{"s2", "\[Rule]", "s1"}]}], "/.", 
      RowBox[{"r1", "\[Rule]", "r2"}]}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"symmetry", " ", 
     RowBox[{"1", " ", "<->", " ", "2"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s100", "=", 
     RowBox[{"Max", "[", 
      RowBox[{"0", ",", 
       RowBox[{"1", "-", 
        RowBox[{"1", "/", "r1"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s200", "=", 
     RowBox[{"s100", "/.", 
      RowBox[{"r1", "\[Rule]", "r2"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s10", "=", 
     RowBox[{"Max", "[", 
      RowBox[{"0", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r1", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", "m"}], ")"}], "^", "L"}]}], " ", "-", "1"}], 
         ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"r1", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "L"}]}], ")"}]}]}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s20", "=", 
     RowBox[{"s10", "/.", 
      RowBox[{"r1", "\[Rule]", "r2"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s11", "=", 
     RowBox[{"s1test", "/.", 
      RowBox[{"s2", "\[Rule]", "s20"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s21", "=", 
     RowBox[{"s2test", "/.", 
      RowBox[{"s1", "\[Rule]", "s10"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s12", "=", 
     RowBox[{"s1test", "/.", 
      RowBox[{"s2", "\[Rule]", "s21"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s22", "=", 
     RowBox[{"s2test", "/.", 
      RowBox[{"s1", "\[Rule]", "s11"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s1m", "=", 
     RowBox[{"s100", "+", 
      RowBox[{"m", " ", 
       RowBox[{"(", 
        RowBox[{"s200", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"L", "+", "1"}], ")"}], " ", "s100"}]}], ")"}], " ", "r1", 
       " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "s100"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", "r1", "+", 
          RowBox[{"2", "r1", " ", "s100"}]}], ")"}]}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s2m", "=", 
     RowBox[{"s200", "+", 
      RowBox[{"m", " ", 
       RowBox[{"(", 
        RowBox[{"s100", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"L", "+", "1"}], ")"}], " ", "s200"}]}], ")"}], " ", "r2", 
       " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "s200"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", "r2", "+", 
          RowBox[{"2", "r2", " ", "s200"}]}], ")"}]}]}]}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.575914473053051*^9, 3.575914489229398*^9}, 
   3.575914866722278*^9, {3.5759152110491858`*^9, 3.575915314009766*^9}, {
   3.575915757383937*^9, 3.575915797285862*^9}, {3.575915846790163*^9, 
   3.575915858588163*^9}, {3.5759166909887667`*^9, 3.5759167055380163`*^9}, {
   3.575917192628792*^9, 3.575917225849906*^9}, {3.575917597450337*^9, 
   3.575917641424466*^9}, 3.575919923162815*^9, {3.575920122289735*^9, 
   3.57592012291566*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "-", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "m"}], ")"}], "L"], " ", "r1"}], "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "m"}], ")"}], "L"], " ", "m", " ", "r1"}], "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "m"}], ")"}], "L"], " ", "m", " ", "r1", " ", "s2"}],
     "-", 
    RowBox[{"\[Sqrt]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "m"}], ")"}], "L"], " ", "m", " ", "r1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], "L"]}], " ", "r1"}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "m"}], ")"}], "L"], " ", "m", " ", "r1"}]}], 
         ")"}], " ", "s2"}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "m"}], ")"}], "L"], " ", "r1"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "m"}], ")"}], "L"], " ", "m", " ", "r1"}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "m"}], ")"}], "L"], " ", "m", " ", "r1", " ", 
           "s2"}]}], ")"}], "2"]}], ")"}]}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "m"}], ")"}], "L"]}], " ", "r1"}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "L"], " ", "m", " ", "r1"}]}], 
     ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.575917645050234*^9, {3.57591803007169*^9, 3.575918059245689*^9}, 
   3.575919923721599*^9, 3.576070361086133*^9, 3.5760712235508957`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Figure", " ", "2", " ", "of", " ", "the", " ", "main", " ", "text"}], " ",
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"r2l", "=", "9"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "we", " ", "start", " ", "by", " ", "numerically", " ", "calculating", 
     " ", "the", " ", "solutions", " ", "of", " ", "the", " ", "exact", " ", 
     "equation"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"2", "/", "3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fac", "=", "0.002"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"exact1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], "}"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"i", " ", "0.005"}], ",", 
           RowBox[{"Re", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"s1", "/.", 
                 RowBox[{"eqres", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
                RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
               RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
              RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
             RowBox[{"m", "\[Rule]", " ", 
              RowBox[{"(", 
               RowBox[{"i", " ", "0.005"}], ")"}]}]}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "36"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"i", " ", "0.001"}], "+", "0.18"}], ",", 
           RowBox[{"Re", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"s1", "/.", 
                 RowBox[{"eqres", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
                RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
               RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
              RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
             RowBox[{"m", "\[Rule]", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"i", " ", "0.001"}], "+", "0.18"}], ")"}]}]}], 
            "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0.185", ",", "0"}], "}"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", "1.04"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fac", "=", "0.002"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"exact2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"i", " ", "fac"}], ",", 
           RowBox[{"Re", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"s1", "/.", 
                 RowBox[{"eqres", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
                RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
               RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
              RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
             RowBox[{"m", "\[Rule]", " ", 
              RowBox[{"(", 
               RowBox[{"i", " ", "fac"}], ")"}]}]}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"i", " ", "2", " ", "fac"}], ",", 
           RowBox[{"Re", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"s1", "/.", 
                 RowBox[{"eqres", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
                RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
               RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
              RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
             RowBox[{"m", "\[Rule]", " ", 
              RowBox[{"(", 
               RowBox[{"i", " ", "2", " ", "fac"}], ")"}]}]}], "]"}]}], "}"}],
          ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "3", ",", "45"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.181", ",", 
           RowBox[{"Re", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"s1", "/.", 
                 RowBox[{"eqres", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
                RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
               RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
              RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "0.181"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.182", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", "1.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fac", "=", "0.002"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"exact3", "=", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"i", " ", "fac"}], ",", 
           RowBox[{"Re", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"s1", "/.", 
                 RowBox[{"eqres", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
                RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
               RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
              RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
             RowBox[{"m", "\[Rule]", " ", 
              RowBox[{"(", 
               RowBox[{"i", " ", "fac"}], ")"}]}]}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "14"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"3", " ", "i", " ", "fac"}], ",", 
           RowBox[{"Re", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"s1", "/.", 
                 RowBox[{"eqres", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
                RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
               RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
              RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
             RowBox[{"m", "\[Rule]", " ", 
              RowBox[{"(", 
               RowBox[{"3", " ", "i", " ", "fac"}], ")"}]}]}], "]"}]}], "}"}],
          ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "3", ",", "30"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.181", ",", 
           RowBox[{"Re", "[", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"s1", "/.", 
                 RowBox[{"eqres", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
                RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
               RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
              RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "0.181"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.182", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "we", " ", "now", " ", "draw", " ", "the", " ", "panels", " ", "of", " ", 
     "the", " ", "figure", " ", "2", " ", "of", " ", "main", " ", "text"}], 
    " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"2", "/", "3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mmax", "=", "0.185"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"s1m", "/.", 
          RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
         RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
        RowBox[{"L", "\[Rule]", "ll"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "0", ",", "0.015"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Orange", ",", "DotDashed", ",", "Thick"}], "}"}]}]}], "]"}],
      ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"s11", "/.", 
          RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
         RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
        RowBox[{"L", "\[Rule]", "ll"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "0", ",", "mmax"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Purple", ",", "Dashed", ",", "Thick"}], "}"}]}]}], "]"}], 
     ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"s12", "/.", 
          RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
         RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
        RowBox[{"L", "\[Rule]", "ll"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "0", ",", "mmax"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Thick"}], "}"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"exact1", ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\[EmptyCircle]", ",", "15"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", "1.04"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mmax", "=", "0.185"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"s11", "/.", 
          RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
         RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
        RowBox[{"L", "\[Rule]", "ll"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "0", ",", "mmax"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Purple", ",", "Dashed", ",", "Thick"}], "}"}]}]}], "]"}], 
     ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"s12", "/.", 
          RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
         RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
        RowBox[{"L", "\[Rule]", "ll"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "0", ",", "mmax"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Thick"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"s1m", "/.", 
          RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
         RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
        RowBox[{"L", "\[Rule]", "ll"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "0", ",", "0.003"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Orange", ",", "DotDashed", ",", "Thick"}], "}"}]}]}], "]"}],
      ",", "\[IndentingNewLine]", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"exact2", ",", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\[EmptyCircle]", ",", "15"}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", "1.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mmax", "=", "0.185"}], ";", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"s1m", "/.", 
           RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
          RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
         RowBox[{"L", "\[Rule]", "ll"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"m", ",", "0", ",", "0.06"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Orange", ",", "DotDashed", ",", "Thick"}], "}"}]}]}], 
       "]"}], ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"s11", "/.", 
           RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
          RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
         RowBox[{"L", "\[Rule]", "ll"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"m", ",", "0", ",", "mmax"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Purple", ",", "Dashed", ",", "Thick"}], "}"}]}]}], "]"}], 
      ",", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"s12", "/.", 
           RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
          RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
         RowBox[{"L", "\[Rule]", "ll"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"m", ",", "0", ",", "mmax"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Blue", ",", "Thick"}], "}"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ListPlot", "[", 
       RowBox[{"exact3", ",", 
        RowBox[{"PlotMarkers", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\[EmptyCircle]", ",", "15"}], "}"}]}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.575914647701014*^9, 3.575914678148344*^9}, {
  3.5759147625956497`*^9, 3.575914763051037*^9}, {3.575914932566761*^9, 
  3.575914939847601*^9}, {3.5759150794441442`*^9, 3.575915090950363*^9}, {
  3.575917663649507*^9, 3.5759176976667557`*^9}, {3.5759177510142593`*^9, 
  3.575917752278453*^9}, {3.5759177866672373`*^9, 3.575918015506558*^9}, {
  3.57591981617633*^9, 3.5759198503792877`*^9}, {3.575920048698217*^9, 
  3.575920051815864*^9}, {3.575920096607885*^9, 3.575920109116849*^9}, {
  3.575920180674292*^9, 3.5759201878236637`*^9}, {3.575920234254884*^9, 
  3.5759202383838177`*^9}, {3.575920952782363*^9, 3.575920999234749*^9}, {
  3.57600016434664*^9, 3.576000193415936*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{0, Small, Small, Small}],
      LineBox[CompressedData["
1:eJwVxXk01AkAB3BpKpIJteVYNGQcqVmRJObrKjHjTjxLLXLlLHJMriZjnD+D
Zob5ydp63jpXKWetFPUqW0g2kSRdjooORat294/P+9ACot2DpKWkpJz+8/96
FxPf+8p+stQecnZYapRmssLYF2XZA0xZjq6iju440yejqGKMNcGMeGVY+50+
xxwv3CG+w/rAVC9nfJmhL0OlMl+pk7Uc8Qvnyyfoilj1mNHXzloHrd/n5p7Q
aWi1pDBaWdpYWCokH9ONIIiKetLMMkagfkDMCN0ajtYG4fFqduAcEF/ijbkh
06K9pmLMCQlPF3We5/vgQO7w5KE2D/zUX2ntmeUPgedISe+UNwb/NBmVpwcj
pKRmMrPLD8XONhcn447AuCzVYC3XHyvCTedVN0Vj5hxXVXnDYTQVCjZ2Dh/F
p1eRI90pwZjHHjfKt1gIhiXV/iphkDeJtI51iccJ2YZ9Z7PCYcx5cC82KRGa
s+paFdOR8KDu9CJKOKi1CaHYW8eA/XqNaOBFMqK3GD8tiD8Kt/Vax2rk0pA8
/ev1vhvHoGLrKf13QzpCVpnbzFLjsFJ74+3AByeRdM2+Ztz6OBZqEw+av+Bi
0H1euYeIx6OH61zo8hnw5irHZN5IQGedM/VnGg862SN3d21IQtHmLr1KdiZ6
p3tu9fzCQYBtk1XyMT4qZhh1DOEJmMnZ65ZlZOFyt4kodyIZi8eVwvrrs7Fk
Xh/appaKruyUJJeuHKjLewzdcEpDjl0w32cgF7YjbN0X7HRYnM2a5SzmQe57
9YG+V+n4XOWo91yeQCLhld1ScBJl7nsvB5gV4EEPuZow4aKif0ynZZsAtkMq
6U73uIh1jvD0bxHAy/X1F5njp9BRJtwuYhUiTTwbVK+Qgfyr1IR3g4UQ5RXQ
rKszMNy017zArwjub1Kf9jnzUJ6iVts2WwSaelWxwyQPEypWp2Q4xRC20hw7
BJn4jb9M9hn1NNS1Bz+qbeVj/LbS/FjpaRTv1nwbepOP8rFn/pu1hPjjatvU
hYgs3L/pcuJDkxCjSsTIxKps5HDX/PMSIlzob+xVPJ+NtrXBBkGDIsQyo5QY
njkIikl9qB8qhgMn0GHHuxwIK19OK82J0U2rPrVTlAuLuun6TF4J3Ev0GrW2
5yGIb/VQQ6EUvVeYjKU7eZA33Z+2JC7FHLuyYSAmHwbNlMHgLRLo1u3ZXCxH
4O7qFUUfL0lgJjbT3Esl8INR+E2fFgn2cbeoLigQ8PXqX+xskyDUW1Hh0AYC
U+fOBOZ3SFBDGf1qQCMgY2m6g35Lgq1+cQPXTQnYRocMeY1IYEw9x33vT6B9
4LbG5WUk7BaEKZWHCUgvMjxoFBL7n2cleocQcNwk4vNXkohrj4rqiCAwFBEw
6yFHojnY3CcngcDnFV+vzawnsetqv5FWPoHtZoZBGnokHGu6DQcLCHAOFpVm
GJDwEbboZhURuJbx5e6UIQlO+Bn1t2ICrv3dpi1GJK5sDJNtP0sg8oifjOtu
En9J+1IiKwk0Cbosmi1JjL5x/q5ZRWCpWf/oj1YkvnWZfOLVE8hbPv/otR0J
aoPurNl5Avf1faku9iQ0JKrT040EVF2v2zQ5kNjGk39Z3kTAP14vQY1NAjFS
426tBKrKiNqTziT+BfNENzI=
      "]]}}, {{}, {}, 
    {RGBColor[0.5, 0, 0.5], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[CompressedData["
1:eJwV13c8Vf8fB3BES0lIi7KSfCWKhHgVfkrDSKUke++IK9lEWZn33mNvd1iJ
SGbKRXt8o5RRScNMUQq/8/3rPp73nHs/57w/5/36fI6krdcJBx4uLi5tbi6u
/z69rVKK1dSUtF02i45MvtivzaS0GnxsWY1JG17Zj7abYD005F7YIo7cmFHD
SVN5aFJ9FiJadoI9opGRsFcDzEkNjk+LFuRi+C6w/hpgUDyX7dpyHN5+rPnm
uLO4rPIs27HlPIhm1n7LGme8NDSptim3hPIj//cp7i5QcHnWYZFphcUVixm8
Mq6YePyZwrxjDX3NwdLCJDfkLfmSl0uzhbFWpvO4tSeWeHz5HmfkiE3mfAHG
ExfQha9U+xYPvC6NGamUpyDjSL2d/QFPDPeahttEUOB6KlrJvs0TV6vHhqpf
U7DKTarbrt0Ln3TMJNViAiB3tDzkxgdvrOg8FvLy3SW4+Q/fqBrxwUatffqv
LgVh6uGpDZUT/phqPpCoWB8G8+eNC4pKFKymxI2H9ofhbo/0cIU3BalrFvsZ
vOFIeT91o2KKgrfu+ocijMOh8ivhaMV0AFLrhBfPfAoHRbojpHw2EEcLDwq1
r4zE/KW9w+zFEIwnODX2q11BrJhL2rBmKLbbJLgbmF3BhpZM3a0BobBeu3U9
1f8KdvNyF6RMhqJeSPnTvzVXoMJxqGz0DoP9TQX56V3RcDFRci+0CYd0iXhk
m0QMXjjcH/bWjcTTHblO8WNXUZo40cu/LAYjLsk+qhrx6NRecilZJgbOIYyN
qSfi8XlcdON6nRhcdT/V/cY1HvJG2melgmPQ96gzTy4zHmVrEl7vm47BmETG
lda5eFQnyb9xGLiKgvptn6ZrE9CY4tDXUhcLfpbArV9i1/GU2vfO1zkRKy8v
Tj7pTYJ5R4pA4NVEWL7Om7f+kISPPw0QxkhE+7GGwZGxJMyerM+L/5wInZ0X
TvTwJGOLcLpdsfN1dPxm/NZSSMatQ6UX3VSSENBU0Ls7OBm896znslSSYbPa
VPPv+hTkNb7g41JNRW7pUMbU7lRUaNomTemmQl+hvvGGRioaGyY3fTiRiukz
jYOuOqnorV+t1OGditEHrfqdJqlYW3vIPL4sFZc17XYqkd9HlN+p2CCThkNR
F+1vs1Nhl1NopiycDtNDHtK94mnwEd/9XkoqHc4f1rq1k+eFZbW6iyinQ7NF
xZ7xTxqyMt6FzxqmI+e9QaiVehpeUteXNcWm45ACZzjiZBr0rsdxHeGhQogn
rbvgWhpkw3yZtlNUSPdbXXeeSMPnZtOgNG4aNvzyd1o/kwb2/B6jjrU0NKgM
xLb8TYPS5R8/duymgb5kT/efFeS4/n4HpnxoSM1w58jIpMPYndIT+oMGa13v
OC2zdASeucyXPUvHjmMbfSrr07Gfdq738TICuroyCinN6Vj8V5PNtYEAx8Tg
jee9dESZ/jW230dg7jtFVvRpOq4bBmf9c4nAmrZTS8VH0lGkF7qnYY7Aeofd
QoIiVDxRirTpmc9A2+qrLWwXKhZy8uhNqzMRl+u7tNmTCsXVzU8KxTMhu+bP
0ge+VCR++aXlrZWJ6/YC//s3mIpjBZ6bVgRnwrCwehs7mYpuYfMXGn8zwT73
dNyqnop7M0r/y5nLwu+JkyHLeWj4YW8YFLUyG0fO/Y28tJQG6RduN103ZcNa
XKFpeCUNEZUlkmoa2TAIcuitFKbhoLPYwpNL2eC1wDr+bTQ0v15Wx/07GyZ9
ErWD+jTUN/bLOczmoNVg4YBEDA3KQrueqy/NxSo75Zk7sTSwnEIvC6zLhbni
WJ9pIg1ZQhKP63bnYvibpm5AOg2hzja+Kz1z0V5g05laSIO+yMemyo+50Crp
7F/fQsPX2os75p3zkKP/54zDNA0lg2IhTt55mN/+/WvcDA12/PefP6PkwXNM
4U/FbxreWq8LKonOw5p8IvfrIg2P+W89NirKw37Htfv2raLjhs2sb8FAHjzO
SucqytARsDqw+dDpfJRYx+TSTOhYs+Go2gnLfIwHvRdMOElHiZRYlYVjPj69
7asJMaPjhVpz/gX/fCTkyeeePk+Hoi3PlUxqPuSfauq/dqbj463YoxOv8sGi
ZW1RCKXDyDqzl2pWgEvylKiNTDo+ubqb5FsVoGasSCWDTUeQn1Y326kAHV7S
Tusr6GDFDtxppRRAt4JisewmHby10rlfaQXIk3nU1dRIR8OKMgft3gKsKlpx
M/oJHbI3G78PnynE1CYXCv07HTbKpUVO1oVYujMlPPYHHVmVyae/OBUi6Ods
86UZOoTLHBtG/Qth8uD0G6M5OriKBSOm0wqRniPZ/oabQB/Vfi33s0Ls8b/2
yl2QQFLgKiUxgyIU/BZJSPiHwMNfM0PZxkWoU+dW37GTwDLKUOrWM0XYNJl+
7K4igRDfW7NSTkWwt/heNapMwM3dumXHlSJoN3AIKbIv9C1rDNXairC5Lk5H
RI/An4MWHifUi/G15KzLRnMCo2YOJhUHilEifDHA8hyBfg9P1ZWHi/FA8fne
fAsCd4mw+bbTxejfWtmx1YpA7FRRgvLFYhD7V5/htiewIX+sXLCyGIm8Wk5m
HgRW1s0ku98qRtn97OUBngT+Plz062wqxpWSHZ5ULwIDv9Zqhz0sRlNtX+zD
CwRKjPc+nvhSjF4NGcUt/gRUuULHH8uU4McnWdUzIQRkRa8+l1cogfWgbtWp
UHI8heRb0XtK4PkweolJGPn/ZoUh2jolaJSxVDsYQeBeJUegwqoE3UsPzCyL
JnDCSnBXQkYJlnW5vduVQEDPb6Pwl/wSrNY3c+NPJLA3TmpWj1kCL5uojx9J
b6xTaflbV4IgoePZyUkEBgXOGrn/W4JmbgGD56kEvJrzvY4KlsJy2anYKYLA
/poXlEMbSrGL79HWxgwCy1l8YboSpQibbDKLyiSQl+6SpKlUitNuTTWrswk8
dVe+8Y9xKark+47w5hFQ2tz2nT+pFG92nJeMKCbvR3B6bhm9FEFjcjHbSwh0
Lt22hDevFC+mmou7SVt/vyr8t7IUur9uC61kEEjuMlYZfVJK5v39Zx4sAt8p
g34P1zDgIXl7TXcFgWYPoZDO9QyIfkDh0Upy/uz0ou9tZUCuv5/3AWkpIwa1
cRcDrjw0tfYqAqay3nVlRgwoRa4LJaoJSIgVtDDMGNA4FFu64ib5vKx9ySmy
YmDfPRsGhXTUvFpvlhcDsp7H9h2vIVDzcvFX/HUGNrMdavprCYR1K3NfozFQ
/P5ou9YtAsda7VZcyWVgem1RTQbpj2zOxuBK8vpa83QN6wiIRF7X8HjCQKLW
adWserL+AW06Lj0M9DmeD/xKusxz+ojDAHm92mXsvbfJ+TQ3O3d+goF58T89
naT9lLcGHV/DRK6wzKWXDQQ+Zbg2tYoykSq0RUngDoHTvLcW9mxhIufPRQl9
0vt6joVv2smEF1vkRhVpxgH63QQVJiadDEw/kN7I+rCEez8TD+eqd4s0kutM
UGD0yBEmXFN/lnmTdvt0n2N+ggnq5VqDLNJvjdaueHyWiT3cAds7SDdJMeJq
nJn4fe8BU6SJgGL89MPt3kxkfNQ2Vied81NbIJPCxFGHAE0L0mGd/yaFRzMh
EPrnQxbpKWXJ5z8SmBhbLlXYQNo2013YOZ2JZ686Wa9IP+etP9mXxUTYm7d/
Jknrei6hGhYx8cXlCG1FMzkfPYY9bWwmnA7MB0uQljmYsUH1JhO3QgarVEmn
s4bPMhqYSGT3KxmQXiqinLn5LhNPaoYWzElTgoPeJnYx8XP8+WY30p8/ccR5
njFhK5p59RLpM8bCVn69TMQZSelHk+66bZn3eYCJ6u3Gp5JJa0izhs6NMNGV
xl+XQZoV/1PqyTgTR2Y13AtIb545YK8zw4TUxnt+DNLxVvHFtfNMXFWMf1lG
er6z55McHwvLeinXKkl77paWy1rFQrqEW3oV6f5MT5c1Iix4hBn8/u+4EV8D
K2IzC9v7ftaWk2715Bv9KcVCasSJh0zSSr3GO13kWZBUPahVRDr/YJbnW2UW
5CQKV2STFmKPVBqpszDef2Z3GukIkT1Tdw+wcP2yTv010tPBIbv3Hmah3htZ
waTtR7p8mUYs/ChVHPAi/dJ4Xa2YGQsCl8fDrUn/r8F65rolC1tuWVwxIn1L
ukxtiSMLiumnv+4nTZvRafhykYXvblZvhUgvt078YxHEwvx6Wbc/5HwGdL3e
/zSSBZlnI5bvSZtnebfcSmHBsOt+AJt0N18jl3wGC6Vn0/MSSGt6LdPJzied
2aHkSVpMJ+deZBUL1QMVCfKkE9hf+GbrWDg0IGKxlPSCiOoh1xYWBuI0qIPk
8zow8qDL+DF5f0vETZJIFyT8fiw+ysLsuWu/3pL9MPbKQ0X5BwtU4SQhxn/9
I/Ge0PvLQiw98OwF0o+ru+3dVrFBJGz3WSD7b64nc65egY3ut5PfeEj/T1LQ
+qEKG+535GNbyH5Nco26P7CfDZXfiecDScvOuyctPc7Gssujpf/1+wkpbdmT
HmycEvMcqSXzIdutOs7Jjw0Xa5+j9qQ/18hOBQaT471rGBUkHXJoTWN+Ahsx
nhu+2ZP5wnIfNJkoZyM1euD7LJlPPHURwbHjbHwqVud/cIPAca7Z99kzbNze
JdZwnjTdwO3wjQVy/JM/a8fJPFR8ayrcK1CGgi02dH7S5tzbmNt2laHuxXMp
ZTJfq49yXrZ6laHPoUxSgczf+TRNjZeUMuQk3FxbxCRwuL8ydyS0DN1fms9v
It3vTXcVSCrD8M/rq3nI/F5JdeGyqCrDCc/bw01k/tsO8ivMTpZhk5y07mdy
fbBvy2n/+KsM0R8XzxqQdihQPvecqxz0C1xfGbkEnO3NYssFyxGhfC/ALofs
j88Fn+2UyqHYk+HcQa4/gZPqxU+9yhFWOWagRyWQwuW8hTVejn+V9O9siyWQ
NjRXS5sph+uxP7Fm18g8uJtw/MpCOarXJI/FXCXrEXUzyFqgAnw5Fz0/kutp
zvLFN6KKFZCwyLwYH0nWV5BKi/SoQP3WF/uJIHK/IHFP8PxoBUT8WmdZ5H7A
2c97qG26AjOq/pFt7gQEusWqZf9U4FegzqdXbmQ9ff1MJ1dUwrvPa8+CC9lf
92WpkdsrcTBG76+2I5lXbtc2s2wrseP2LOeaJYErtYays72VaD/crHbYkDxe
PJrdaVuFdt6TM9HyZL1gtuGBYxXCjulMaO0gUPS6LeWRaxVeFdfdnN5OYJsA
Lea5TxUGYrryz20jnzfKwQtvI6rwgOYjIy5BYLsBVW+yoAo/uoZMnNYRkB/D
t/UfqiAiuYwltkiHkmrqPie7G7Bwtli5k9wPPlV3nhk9UY2WifGeVFc6bquf
Vaecvgni3BKfoXEafJTEWw+dqkHPJr0z5s7kfj5zjeuiTi0uXDXpvz5IhSnP
FuKO3i3oe7oWXtSl4vI782+WqnXwpXHnURnp8K10DT8sWY+HDs7T3CvTURNE
zdoreRtWRp30E2ZpuNY8+YZfsAEXKit8N5Hvf6V/HHOGhe4gr0Pyou63FKTv
qirmW9sIueigO7byKRDt3f501UIjSpQspxd9kjF4+U7ohsUmTO5/8uE9Iwna
acEn+CeaISOdLWvw4jrcC4Vc9N60QE/wRbPhmURMvbLhaXNvRSiRSLO9HQ9/
6jObFx9a0Z3DGxi0Jw65pk+WfLZvQ6nJ6YMRsdcgdNRezftdG3afPyAn/pd8
L296H59peheivsuj0i5Gw11xQqbrxV18UV93+eyDKKi+TjF0PdqOOJqouKd2
JArC7zWsftQO2fs+6nVJ4aAUDxw+eeweAhZ/CJ/vCQV1SYqzQPs9+MQwnYU6
g2Bu9by7W/c+eH07/N9dugSnn8zmuTv30VRWRjnv5I+3S91ePlLugJ+pr4iE
sy9m1jUoFN7owJy6vEyggjf5+zzRUTkODuqfFdtp7or4H4L1XP9wMHT7WFcI
XNF8Lfzsup0cWIlu030m4wqpGtssbWUOzPmjcgImXPB1+TapZHUOGJ1Tc0+j
XBBYzdy59wgHcbLfwhmVzsjgu6kX5saB8Je3wT/4nPAwQ/pTmgcHPVOaB62/
OWJhV1oM04sDt2SD1w+fOsLW3K/7uS8HKj22VxmZjpCvVDPeFsTBIk3ui4uy
IxrONJ7rjuegtTTyi8h5B4yOKcz3J3Ig6TgvnKjjgC2R2TnTSRy8S/kgulzO
ARHlIUNi6Rzw/x0sWfhujyM8B528sjlQvSYw8/OqPYJoN5ZH5XLAd8j8q5+n
PSoUpFj0fA4KHo3Uz5jaQ8hsyVhbMQdcQ1XDc1vsoTfqm/iqlANOprVeCK89
/MM/7vrG5EDLQyOE56sdGKKnni2yOWDJBKTGPLFDH/u+j0gFWb9g06jVtXb4
PxukqNI=
      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJxF1nc0l+//B3DS0JKd2bBJGSlFPCUNKUQDDTt7pPQu2SMlyXqvbBnv99sW
JWSHVISKTylkl4wSpeJ3f8/5neP+5z6Pc9/nvq77uq7X2GrjYWK/jI2N7Sw7
G9v/7p6WsZnq6sraDqKCg1Od+7SZpBr9wer12GTwoa/LRgRW/f2uD6rFccRi
3+suUwVoUrwWgqu3Q7u6/vm53RpgTmk0eVVrIfRMSoD+X330iafkOFcfR/DB
5trFCHPcUGtPulh9Hje8yyrHih3xxvBEsXXeBfw07rZc5eIERaf2xnMJlhhN
orpbSzhjsnWUxKywwoXbUbvaolyQyjGWmkK1Qa5xUmnBBXdwuI19v2N0ERV/
XOsff7uE5/hCsat2w4sBNZsvsiTcP1pma6fjjv0V9wZDA0hwPnVT2a7WHTn9
9V1V70hY5yLRYlvvgRc/JzT5Qq9BziDPv2jAExobTnw59v46XK4OFRWOeMFI
7Ek1ydsX0y9PCRVMXoVGc8XBNaWBsOioXNihTELIpr1rDT4Eoq5LcijfkwTJ
dR0atuxBiP08XZQ/TcJunfoCkeNBUPt11yD/xzWMvGevyvkcBJJko3/enA9U
UjOiQlaG4N/13UM5i/5417LxuaVqGCLEnOKHNAMwGxNS8+hEGISqEw5svhaA
RE/n+EnPMKguZ0+PnQqAYTLj3KqCMKg12RdUegaieOawUqf8TTidUHZ9YB2E
3tNGcr+Fw9Fp/2zI80AIbK7Ufzw/dAvZUZPda1eFg8GbEjW6IxLN2hzXY6TC
YetgI6h4OBKjE4LCG3XDcXZ6xT1zy0goGGmbS/iFo4H/Wo7XvUjkbrj7354f
4ZBrG/uZMhGJ4miF9/a9t/B2eDD2N+MuKmPtP1Q/jsAl19vTe7ju4TXlw8fL
jlG4MtM7Fd4WDYvGWC6fW1GYtH6avep9NAZ/6iOQEQUPdV45v8FozJ0sS40c
jcJKL9M8/d/R2MRHts10vAenByF9ThIxeHQ4+4qLWjRqzO54tHnFYHmD1Xyi
Wgz65u6Weq6LRWpl5wq2XXF4OjE6NCUVh3xNm+jpA3HYZjgyk6QYh8ryKZEB
kzjo1Jb9OaAWh+6y9cqNnnGIfWHKeYN4j6f0sEVkbhyiRO1ryNZxCM6ryBeS
isdA4H95wYlxsE1+cEaFjwxR7tca1uvj4SWu+llCgoyX4UXye/jjEZhY48qv
QoY51tdwisYj8f7HoDlDMmqnYuYocvF4Q9mY+zSCjK/N8psdD8RD794dtqPL
KKhepcTsJ8VDJvAy02aaAm1d0knTnniMVpn6xrNToaTW2fzlczxy/u00auSh
4pMyr9+NsXgo35iZkVelormgs+LWbDw0r3rrTHtR8e6VipIpNxnGrqSugBkq
7Dz+q8rVJcPH7MaKpDkamru3vqCmk7GPera7dRUd4p9JZdYMMhbfauawCdGx
y70xSjqfjFDTv8Z2e+jYNvF1dcITMu4Z+iVuu06HXkVwndZrMjL0AnaWz9OR
cLzd9eJfMtqUQ6y7/t1H74e/QvbGFCwkp9Kerk9AV7dO3vlTFOxYX9X2QDwB
h9+nTxlbUBA19kvLUysBFwN/xcvaUXAs3V1ktV8C9lFCG8gkClr4LDo1/ibg
NNl59/UkChpmlQ8mzyci1wyGpCEKZuwMfUPXJGFvA+XkqzEKJDtdHjqLJKHs
uXzopgkKgguytqprJGGcTd+teJaC/Y5iC23Xk8DDH9uSuoqKqv9WPWb/nYT2
j2uq78tRUVb5Sc5+Lhk+vQMGog5UqPAqdexdmQIb4eC0RGcqWA4BN7gEUrC7
4e0mEXcqEnm3tD5WTQGn/Kf7q72pCHC0vrzGPQXi28t6y4OpOMQ/+LRgMAX1
4iZtjklUfCm9Iv/PMRXv/RYdOV5TkdUn5u/gmYogzaxgrk4qbNc+62gnpWLH
+W4ewXdU9FgJ+GbdTIWIwfr7Ij1UtK591GqUkQoh4+iY3yNUFFnPXU7vTUW8
2CEBnkUqrq33qTp8Og3RGfOvShVo2CBkoG5yIQ0RVnpHIrfTkCUhVnjuYho+
sK/4ekGZhk71qrRLV9MQqedR8msXDTtsloUlUNKg8ogtdUGHhsFHEQaT79Ig
/F5R9PRpGoysEropZ9JxkyNP9aA/DcPOrifSLNOh0rqfkRlIg6+3VkuOQzra
FgQoy0JoYEX0VtSQ0jE7MzBQFE7D8lLJlC/UdMzXXb09HE1D+epce+3udLic
esvGSqdB5mHl9yGzB+gx7zzLrKfBWiU7w8HqARp/yEj5PqMhsSDm9JjDAzxh
Lgoea6KBL/di+fjVB2hj2xwy0EIDWyZ38I944rlXb8ZUOw0fKHY87O3Ec12T
W2G9NET7rFMW08+AtH2ReeYvGl7+mu1PMs6AQdH1vC3zNKwi9cdtNsvAza/7
rOh/aPC//GhOwiEDUZ0To8ELNLi4WlXLh2XgsqxZ8e7ldBy6UGKoXpuBrIVN
vhIb6Piz/5ybyd5MBGtM2gtI0jF+xv5Evk4mbq0QLNwrRccnN/dda45kQniP
ctpZaTrq6IH/ak9nYrkC2Y8mS0fEdMZdlSuZuD1zSG92Gx1Cad/yuAsykfL5
uNIBNTrWPJ6NcX2UCYGy5pu6u+j4+3LRu/lpJsRKt9zHbjp6f/FoB77MBD0u
6LcqEbdZxrtbJ8cysWATVrWgScQ1W8BEq1QWMubu+mw7QIeM4K0OBcUsqAv9
kFmlR4ynGPPo5s4scI+qPOgj/PfMA39t3SyUUcS47x6io6GgiSvfMgt9BeSP
L/TpMLHkVrp7PwuHMupMPxsRecFbmG8sLQuapppRCcZ07L4jMafHzMJ0ACvH
5AQdwo/Vqv8+zgJNRjC+3ISOPi5zI9e3WTDNoGteOkWHR1WahwF3NrqMrYd9
LOjYV9JJOiyUDTMugbzNZ+ngZK0IPLAlG9aL/uvqCKeSnaI1lbPRd0kuYfEc
Ha9dVYq2GWcj46TP5guWdCTa2D6RNcvGAlt05yRhRzNyraRVNip4s7YFWNHB
pve7XdQzG+u97F5RrOlQFq39vjY6G+uOjPxj2hL/z/1jfhUtGx5pDb/k7Oho
XinNsTyVmE8cMz2TsNX3W3x/C7Jh4TTPSbOnI+a5sdp4WzZGrkcftHag40J1
8L7Rrmykn4349IqwQmmJ3mBvNt6uM1HZ40jsf6rQqZ7JbAgIJ6xe6UTHd1Kf
98sNDMQ84WLddKajyo3Xv3kjA5TP13b3E46w1bvZsJmBR+x7wve60CFhxKBU
KjFw1X7YZ4DwhN775DJ1Bj5/cdmyy5WOco112SVgoG3M614oYVMZz8e5Rgws
95JtE3OjY4tYejXjDAP+xbbp9oTHed40ZVgy0N+jrZdLOPSfeneiBwOZW4d+
qbrTUfJm8VfkPQYW1fT0ZTzoCGxRYb9NZWADX3vJecLHamxXh6Uw0GK/9ncs
4cGcJmG/AgYSXPy55wgXpv3eev0xA4c+Kw1Le9LhS92m4F3NgN3pQLoJYf6Q
expubQxc+zGUlEm471qtrlMXA0eeuU6/IJzr/uOofS+xPiPeslOEr9lJm1qP
MGD0T30/7yXi/FmcOXt+koHk56NQJcxtfNvWfI4BIdWnUsaEew5WuJxaZEBW
a2zKhTBD89vlE6uYUBFMzQwj7K2y2ff4BiaRh/n1kggP33d+WiPIRFqFjFsR
4dPLHy3s3MQEjcnXVE+4yY1dJ1uaibfMdpM3hPd0HQsS2c5E8/hpnoH/fV+H
VndXjQnxBRrHFGFh1gAH+z5ivMZIhT+EI/iUDl45wIT/HZnw5V50zPv63Bw5
ykTFtLnIOsIuw8+aLEyYiJwXHuIh3GPEs7rVnAnBVeajAoSPPTl3dL81E+5d
nNJChJ9KMO6UODIxfEck8X/eEfnjpawnE+MZ/oYbCSf/1OZKIDGhuFxai5/w
BssII64AJibG/zpuIBzY/DY66CYTost/dnASnlbZ2jFzl4n0E39usBG2SXDl
cyQzEafzz26WmH/H8rKTHxKZ4EkZifpC+IA7B8Uwgwn91Kz5HsIlXYZdtTlM
8H6QZr4iLLX/vtCuh0woHTNOqCRMZg2ZM8qZ0DvN3cEkvJJfJUG0jonltUaG
ZMIkP9+eqOdMiFXOcQcQHh1uEl/WzkT3xykRB8LPn1xIHe1lYvqnN+f/9ltD
ktV/doSY39bX3/gJsyJ/SrRNMOHVt3HTLHFeIi0jM0v/MdHGudL2IeF/zV3D
citY+P7T+/o9wu6qknKJ61gY9rv4yYmw0YpyVrAoC4vsp6nChGvcV4z/lGAh
tFf42wRxnpW7jbc7KbCgJjoaX0eYN2ekwGgvC2NbZT/ZEQ7m3zldp8OCkaZZ
0E7CP/z8VXcfYYFizO/DRviNsUCp2BkWIjuzPchEfFFndcvHrrDAonmH5BDx
x2kV9eecLwuPBjW/uhK+9vy/fa9DWAi4dLlAkbBFomf1o1gWFsaSjbOJ+BbT
TW4IKWSBgz9z/W0iH6Tf/d0qPs7C1HbKjkUi33x756amMsNC9G3SgRTCe7Z8
puv9ZWFlofINLcKtxS12LutycL/11JkrRL6a70qYL1PMgZHT5d4XRH4zkdCW
OemWg7++X/glbehIcim+4+Cdg2G20Y5MIn+OlshM+/jlIGq3cIMMYf/DGyrT
7uZA1UNAT5LItyzXvhOTeTno3XXo3coLdCx7HOwXMZGD61W9m6+b03Gcbe5z
0mwO/OWiwnvN6KDpuxwpWsiBfYa4qh7hHT2mfN1cuZjfWWLKeYb4f3ZpprRS
LuRuOA/cOElHsUHTmxqPXATbanHyEPXIpm+t4txULn7Tpvp+69JhV5tcP/gr
F2gP0d1B2D5d5WwHWx78x0h81vuJ+mB3JiKPOw+T17tX1oE4D6Ppo7bKebBy
KD16aR8dPlN7M1975EFTfGYhjKi/sWyOm1gTeWjY+KPqrgwd8f3zpdTZPEio
HUyNIeo7ue7u8bCFPPDnM9bEE/WfFvrQ14orH2GyZX7xEkQ8ci6+F9yRj1QJ
t+8hm4j14aZQQ9zyQTqqVSMuSNSHLQ3c58fzYSNiIK1L9BuO3p79tT/yUeDb
XqrIQQdXi1ixzJ98+Ki+5xdcRqzHZW/TqdUFqHeq0xlapOHHMxlKiGwB/LTX
WHkT/YyUy21Rlk0BSlYf2nf+Ow1hpYYyc90FYDz/a2ZE9EdSmeNJzTaFqPV6
E/GhlAY7nBF6cbEQXWtarlmV0JDxX23sK+dCcGnyyA0W0yDNRQ3v8CqEo7LU
q5ECon8j7b/UE1yIxPxdB/qYNMjqU/Sm0gsxczbOlZJEg8I3fN04UIgb2VvW
i4XSoLwrbo+DbRFKgyW35B+n4fVex9lxk2KoDwo/v0n0u0/2mu8lnX5I1Gm9
Y/EmVHgpi9ccPlWCkbNaQfZPKahK2OC8qFuKBpJZ9ElZCkyXbaJX6D1CyOGG
ZD4fMm58tPh6YddjvH3XL+LfFo/LBc5BR7aWQQQss8Et8SjxpSTu3voEO9s/
Htp6Lg63q6ber+UuxxNV52zL5Fhk/7mYPMRbAa3ixnfNLTEgKxVmruCpBHW9
hGPNz2gIdsu+XrdQCXfztmOfFKLRd6MiQGjxKY77WvewyFHQjvczWTtZhTTB
D+sbxiPh+oDXSe99NVJkDJY/P3QH0++sl9W61kA+c25/HOk2rlLarTsHalCb
wdDlqQ9Himkbx6hdLfS7jf68GQoDr4GduufHWggPUpX/SIXi29PPkQmmdSiU
/rXW3jkYrjsmpZ531iHS1nvtfHggdv0Xa+hsUA9h+c6Xw+F+SA9qKF//qh5/
Iu35lIqug5TZe+TksQbMyFd6CH3xBoUj1pGrvgF/si10omy8YGHZ0dJy4Bl+
JdxR+yjqBoefzKr5imeQkdMak5+xR89KlzevVBpxreHnebv+85gVKFd8UNSI
IZ/yS0ZnjkOswNo48GEjBOy4H7YPHcP+I6uvnC9txCW1I3YnrxxDpI9ZxcYn
jSjsnxY6G2MAid5Z/ciaRlxRUP7o9kIfRoydDt5tjbiwzcOKiUNgaOSlHf7W
iM7Vvld/G2ujtfPkM6nJRuwZrLwo5q6FH65/R9mnG/HKfPqCzp190E4xUK6c
aQR5ns/1zjMNvOH4UqX8txFXV+wV3aGhDvZXMj3Ca5swoDD+PktSGTIXWxdn
1zUhfvDho9KgHTi26C35hqsJE1Jfvm2uVARN5ZlzFG8TtB/3cP5RlscOiu3v
ZSJNeHTtlepLEQmcVFor3ifaBI8OX7lDp7bgenOxzlPxJgh+YbSGbhZHwzz7
LdLWJvS5U+NCVgviSxwz56RkE2rkJQdv+/Niw/YTbSrSTciWUngoP7KeWP9U
wXG5JgiYlAoOXF3UjpzhLmPb1gTVFXpoPjqpXXU7yFxgexPY/v+a2vR9Xl5p
yRIlNonaKks+qd+pZbpzyTc/Heh12LXkL5zSEjF7lyyWTK7P1Fyy4c6V9uVa
Sy4+P5I9sH/JPsXM7buPLjn3sEjb0WNL/tQT4WlpuGTdVa4Pb5ksec25HXs/
WCz5/oqHeoEuS355X3I43m3JC0rx4UyPJdtYeLd0XF6yQoG6sbTvksvNKs+2
RC55/Jviv09RS94UkpT8I3rJwXn+/WLkJR9dtt/BI2nJvtQiztCUJecrSrBo
aUvmPcPxrTZzyXrjl6PeZS/5atCg0lfmkhmCp9oXc5b8IeeZF3/+kv8PtzLr
1Q==
      "]]}}, {{}, GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGDwA2IQjQ6qRda5P6wqsVdwVnfzz6+zh/Bb7A1UcreEMXTZ
75BrfR24o8/+wMrUjZdeToDKT7GfUJhxZvqxyfazZoKBvcGtlgC2O1Oh6ufZ
K8zI738RMd3+TSBIZKH9hKfmH/TiZkD1L7EPeM6qeJ95pj3X9cUFtlzL7RO8
9rv/j54JNW+lfYLrLL/0kpn2mjH9h75qrLFP6BD++y58JtT8dfYHGOMYLPln
2i8B6r6+eIP9giu70+0XzoDat9G+4fgdn+3CM+yNwWCz/QMtdoHI7OlQ+7fY
Jyw7skl0zTT7w181gDZstT/As+il3c2pUPdst2c4tXjZ0q9T7IMgFgL5bBs2
Mk+Bum+n/YHrLQIlrJPtH1aBDNxlz2Bhu3Lrn4lQ9+6xZ4iIv8T0eoJ9Ich5
BXvtG2YdL8hc3A91/z57hkX73n5M7rWHxMIB+4ZVJxevl+yG+ueAPQOH5fqi
Yx32HmALDtozJCi6Xs5ug/oPyL/39IIFd4s9yDaglfYM6bzv7y9thPr3sD0D
V/a3fZV19mDvXAfyO5Zvj1xUCfX/EXsGkQPR9sdL7OVBzpE7as/A4rr+8uV8
aHgA+UsSZ7iJp9mnp4HAMXuGDwI/tbZFQMPnuD1DwzbjZk5T+7hdnjxM2kA+
Qzdf3BdRe5DpIuuO22NJaqPpbTS90Ty9AQB8SSJu
     "], {
      {GrayLevel[0], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 40], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 41], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 42], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 43], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 44], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 45], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 46], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 47], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 48], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 49], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 50], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 51], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 52], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 53], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 54], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 55], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 56], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 57], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 58], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 59], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 60], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 61], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 62], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 63], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 64], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 65], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 66], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 67], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 68], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 69], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 70], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 71], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 72], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 73], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 74], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 75], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 76], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 77], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 78]}, {}}], {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5759148879239883`*^9, 3.575915080453899*^9, {3.575918017855448*^9, 
   3.575918061288455*^9}, 3.57591985306341*^9, 3.5759199339068003`*^9, 
   3.575920191428852*^9, 3.575920241786137*^9, 3.57600020042449*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.5, 0, 0.5], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[CompressedData["
1:eJwV1nc4VW8AB3ARKhFKSdqaskpDw1fy01CESlbZs7Izy0ghLu6wKSPjcu89
VxHZEtesSCpSEUW0ZRX9Tn+d5/Oc5z3nec/7fr/vWWvlYmDLz8fHJziHj+/f
1fU8LXv3bmV1s7PmlP2FWWB61xwdqBaFxIuie3yCd2DR13chq3ol1jP9fJIN
72BfvPtsSLUCIusEljW+v4OgIrV2dsJ2hHpLmulvzMb7lXvXJ+vtgqL2+XN5
ttlgftvLc68+gMnkZbWjPdkQYqdFEeUaKMubPXNmcQ5K+tKKsxM0QaHzT0Yc
yYGMzi1hmp42qrrM5k+xcvBu5e0Cp+oTkNG81JFumQuawe1OixQ98L8/q6US
mYvMuidXC8pPIvHtLDXgXi4MJ5/kZiQYwK4060QkXx7uWz6douidwY5i+4+K
0XkQCzgpFnHACMViHe+OEHmwj3+6LlT+LMTniGlFPcmDdMtTHT9hE5TPlrcW
iTLhr9qeZldtDosdzmvdg5no1NW/a8k+B3pbeV9tKhPbHNsbzFLOw0GsZ55P
CRNfHw95M8stYLjWd0RhhIl0geH02wlWSC3980PneD5axbfIp4lZo6/8s5W5
dT6mVjoWJ1+3htYKl5fTvvkw2DPcFOdhAwQ5mA5l50Pg4vCPSD07iIQrrf40
mQ9lvy1XIhrswDzo7/9gYQHMwhyFww7Yw75+33uFNQUoyhheESLvgIsOqd2L
tAtg1zWs5SPshCjJUx8mKQVowqd4m+qLqFqnskJWnIXkY6XWNhqXsKXmh07A
GhacTt9Qtqm9hN05GwPjlFlY6Lyu2brOBcZrDXhTeixs1mFfLXzvim2btHzv
R7IQe3KJrYqcG/x8FJ+JJLMwddpfp9DGDU9N9zluzGOh2eKodOGgG3pY/e7c
OhacLw8Wcj+6Y3iR5BO1SRY6/Y8nKm/2gOj0C6WeuWzsD753levggfG+FBkd
CTYWRgXrcIc90JOaGpm8hQ1OxspBYsQTQXnXNkueZeN762lp4utlvJIOk1vL
ZsOko2JWUdkb1ol/65eUsPHwxfpBjivpgldT72vYoPV/L+R898bxhZsyl3Wy
oTpJ0eH89MHfAfqzgUk2vNc3XGVP+EF0/t5C6n4O3m1WsFXY448GY25riBYH
RxQZOmwff3T57vxrdJwDaTUrafaUP55lvbHgmnJQpjtbyPodADPDcLqcLwcz
vrsGC/5ehfHELjsXgoObso6MwX2ByPDcomZbTI6vTjm02icQec+Cnh0u52D7
3DmZtG+BYKSHm3U2cKDKsyUqXIPw9mm5m0QvB476yheyLIMhou1XcEKIADez
6VBNYDAcQxO85EUIjP+0WtGbFgyNEaHQqUUEQuPjmpd2B8OlGNvslxO41TO9
+aZBCDb77b1LkSfwzLZ+0PXQNSxTvGCncIKATMm5SorlNbxRFtkpp0/AYt4k
Iz/wGu7aBY6KnibwJX+r1kD5NWzuUskrMyMw71tMppFqKCrTdHdccSZwwM/k
vPqG63jzht5fd4N8f8vPXaaHruOEp//hqQgCzbIUMR/L66g5/zNjPYXA2erq
ysK061B3ssg3ohNwn7tBdsPSG8jfNySlcZtAbvTXlyLCYeiuo/htKSbQqC7g
S5ULAys3cRGnhMDQl6XLl2mGIfB2QPyWMgJb9dSN110JQ85/B58KVhNgLaK8
2vMzDDZesgdPNxJoq073rRIPx/huiyJ6Mzkfl6LlWorhWPdgV3VTKwGlpz3G
eo7h+B3qOyzbTuBu7NZu27fh6FDgZFm+ItChoe438iccV5xZQ+d6CPz8pi/j
JhMB+p4HJqd6Cajq+5oEnI6AW+G5hZv7CJRINHbTWiLgG+t9w3OIQAXNtqe6
5CZ09+YrcX8ReK3p6//f85s4luW6bM8EgZkfUStaftyE2Kazig8mCagbFpl2
KUTC+lvM+tzfBGoXC7wezYqErOre10l8XPTXLQ1wr40EanMMD83hgt9zq+zk
m0gYXQpPHiat1alvJiATBWL56sJtAlw0MNJfL4+NQvZI5n2KIBcftIoCbrOj
oPNI5/wqIS6Ef/FkN7REodzl0gIW6SOnv5opC1FArD0ZVCXMRYuUeq92AAUd
1atja+ZzMVqvf6U1iQJnJuuH2gIuFl62XWlQQoGYsvUNLmndrihz8x8UnIq+
bBQnwsXT+J5eD4doeDeJ71EX5cKkgSbmFx4N5bYzC/NJD/w6SmY7GtqtefWS
YlxMnCpNjxqKhutBqzk9pINCXdpp82JwvJIeu3cRFwuKNvInbY7Bq1bbVQmk
Vy2Os852iMHiLyW6h8W5yNM8zigIj4HjYveZZNLb3QXqC/NiYH35YN0I6f/a
3TZWDcXgYuGLglAJLu4fzvV0Vo3F3urjdIYkF/5v+SmXtGIxOkhPayet4X0u
2+1ULAb/PBgVWcxFc45Ul7dnLLo3nXfxIR2j7vbFLzQWkbsS2PmkT3W1Cl1l
xMKKsUa7m3SvYOju0KJYfDwznayyhIvMtLd6YY9i4apEtTQmbbdzn8PNzliE
ZwglXCUt3xYfRBmIxdl8U40M0t9sfiTGjsVCdOSaVS3p4j8nCulzqZB8Ycv/
lrQfg9kUv4QKw75uuWnS2CbYnyRHhS+TeCwpxcXcRxbTqapUFGy6M3cL6SbT
Csl0LSoWvHRu2U86+ucy+axTVDgPsjfpkjaM9DiUY0PFKwPBVeakpdc/MWV6
ks/bMOeeI+nesq2erFAqrKLkRjxIZxrciCIYVPTP+9jsT9ruU9+du3eoaIgr
OhNMWj7kQGVxERXpbZ9poaS/LU96XvqICn6JoWvXSRcVjn0u76RCmvVZ4d99
36MnhaoHqGibPhAXRFq9r2DVwzEqvCmiVX6kBXyFd9fPpWHT8Rssd9KN4tZ6
jUto+JbEs3EgTcmrsm+Ro2G194dPpqQNNGSCHqvSoJH1WfME6WUvvRLbtWjo
r+p1/Tf/1y7t3M5TNEQ4s33+fZ8MYYWmFzY0bL149NySf/O5Hd7X7UmDcBNj
w8y/9dk9MNUbSgMx6NDx/t/6PIZkH4OGFGacQyNp39lxzY9FNKSOz7eIJK0e
b2D66RENtj0PGx1J8ytyPD530uBoXLJFm3SUue2dn2M0LH/f0T9J7hf9XzUV
43Pp6O1br/mE9FKK7POpJXRoJ8zNyyKdXvFMkG8nHbTXTnHapDn7rGK/H6Ij
Yd1AoDTpirJvMu8N6Mhc8KtyiNy/L0tFlRtc6eC+foxQ0hLFh02iWHQs+cLM
ziX3/xrVroEr5XTUyBr6XCCteM/GxaWZjqKJnntKpI8VBocaDNFx53ydSyGZ
nxB2OUdajoFlgqoHM8n8xW47prZgBwOPjU9kmJC+VfCy7vdBBkwzN16VIF3G
/PXyzXkG/kpll/iRef6RrSSQncLAh5JI531k/q1vZRmpLI6DXsSrTm+yP9xX
bu9fty4OlDIVqeWkg1JrLixRiYPt8JHxUrJ/UpN7gyd047BXeEnW2DwuOuOX
sSpvxkE/ve2dKdlXWjGRfMf44/FFoZ01QvafgZhM5D6JeIjvrxjxJm1ByZNS
WBMPibEFI/ykAyLrt4qrx6N1SnW7FD+Zr7C/p7p841GpkiolT/btxiAPptX3
eGgtveazj+znoSrDAMacBFi1HJxdSvZ3wcwOvQYJ0gf3v/hK9ruy/9jYlu0J
KMgNoSf9JLDvspfGd/cE1Pa15rZ9IXDygveLwLEECD1eWlo+QMDvrL9g2kQi
XhpM5TY9JrA/wfTlY+EkWMtqiRi1Efj7fF8Bn3QS3hZ8393fQp6vhn9O2uxJ
Qthnu+nv5PkWo3slVd43CVeDZgImHhK4oxW4o2w6CR1njJXS7hN4onzN8sVM
Ms4/JzrtUwnM3kpPrBRNAevSA5WKZAKKolVPslamQJ09Uy+WRCB6ePKA6wHS
3E9pnDgCxzMvycy/kgKBeca6r6LJ83yxybO9f1Lw0FOk4nUQgUfjyv/dmk7F
GhlH/QJrAqUVbzbbTtyCEGWX0Es5Aj6iflWHz2SA8qEq+UwmBxvvVfwYPJuF
94nZCu6CHPw+aHbRQC0bgtTUVbP2bLhUZbjoiOfCQuRw6r16FrxUVgecWET+
h5t5td0VYyGTMvV45Wg+PBcqXOw9VwCrdyLbJr6x0NKroTyVko+Hax6Jm49y
4Ca9gTj6igm57NG0RityXU9cTL60lgnlnfQ99taFqLk43LPhbB6eqjmMjxrc
xWR1JmcmORcP1IzVvM/cw2BhR7JkWw7clVfWHD5dhNSBeiV9/hxUpSxy+qtZ
jLuFneGftbJhyL8qqVzrPgTu2Xclet+Bf6/JyLmdJZg717FRpjQLHoRT8JG1
pRCfLnpY/ScTRQHxqbvWPoDN9KIZqe2ZiKj61i0iXobimni/XK8M5P62uzUo
WQ7DLI8Mg/x0xClxswUlKnBo24XTl3m3sfTlpqcLZyuQIRTvOM/oFt75lwdK
/62Euqiu02BTKtQZVwxEvlZBuFqhPsE4BReyJB21uquhkLhzx/cfSfjeZclf
e6EGQuZ3tRNcE3E5vt3y2fsarPF9u6NvQQJuGz4RGLKpxX+b1LlqZK4kdWx2
u/bWwvx5qMvijQx8ruyPSjF8CB8tY4/OFhouKH6Va3r2EBsUnD6mGFGx8xVN
10mnDrGrbgj0zMYgM/hRmWhbHeYs5pxeKEuBd/bbI6eOP0LlOP3jIt2biBeg
OYjVPcKcMdPxifthMDnf0dx8qB47c+hPjL6Gwv4Xs2q6vB4hW939JsxD8FrI
ubNNpQH5Ok5XyB9hjEuVbcsqbIBJ5vzd8vZ+5Pj0paObeajcNMmo8vZC1Jh4
KZ88DwbU6F2dll6oigg2llLg4cJ+0+FPOl5YV2SVqq7CQ85vdsiKNV74NG/D
OqoaD1mXukIjGj3hd5epsOsYD96eC1oTl3siWfCeVpAzD3PeRUSGVrijNXn9
B8ZFHtIHPc5V5LhjVokRxnThwcRc/dCvWHdYmXg1d3jw4OcWrulk646txO6T
GwJ4qD3pJ20p5o6ysxWmzVE8fCkS2Rhi4YbRz9tm3kTz0HhZc3nLMTesupZ2
62csD2Pbc1ZJ7XQj+/dqn2wcDw4zQhas+W44xn/Q3iWNh+zl7MqPd10RkFA4
L/Q2DzXKLZpqaa7gbFuXn5jBg67D3u7IMFdIGgl8rs3mIfDjSg1VM1dojXpE
d+Xy8HUyWeymtisuBw8ojTB5UC3z+/pO2RV5S0+3/y3gASG1/XtWuKKnoN59
CYcHoUyPIaqgK/4HsCDE5w==
      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJxF1nk0VW8XB3CZSzRLin7RHCIiia9QGcosQsmUlCKUTCFEunRd8yxDxutc
U8ksU1FRRBlSolTKlKmB97TWu9Y9/5z1Wc8665xn72fvfbZYOerbsrKwsIgt
YWH5d3eyoGXKyUkqGZucDj1UmI4ct1qNoRpe6J7Mu8TCkYGzHz44pNcI4WOw
o0OcQQYUop0XbtaIw7jJX67hYwZ8S+Rf0mP2oadKLEBreyY+Ch0UjdeRBfVo
hXyqbSZyxg82O9coYvcFHeGB3kxw0pMoRIUy/FIeUI6suY+HH5JKM2NU8HyB
t+mq+n0IaiVz0XSO4u3sE8P+/Pt4L5SSd6HmBAgOr0gXyyzQ9FM6zyboYEKW
Z/diSBbS6ttu5FXoIovy/dKR4iwYzLVl3YvRx+tEtwgNlmw8sGyfD9U5ifYV
ZgJdodng89Llu61ojLDu+tEvBdmwi24XCdhjAhYJN84dbdkQaG3X8uAyRXxM
SrgKbw48ZV4mnas5je7ufsMh3xx0ausVWdLPoEaofkAsMQdi9i+bzBMssFt5
e1HvgxyMvRhxy6k4i6A1p+7e/JqDVLYvqSkxVvAPHNvpp5WLZyt37Unis0aM
0uurIVa5mBeyL40PtIbA1kv5m91zoX/gy9MoFxvsnze3+JORC7ZLXybv6JxD
mYC0au9sLiQ9dnnfbjqHhxHx9+/x5ME8yJ4rSNEOgk68f5ZvzkPJvS8bb+45
j4WyRP8+tTyc6/qidp3rAtjdQ26nUPLwFF+jbWouYW42VsOZLx/xmmXWNsqX
UX3HUrRZOB8XjG5J2tRdxtmDscOdEvlYflGkxbreEfaXAxe2aOdjpxb9RuFH
J/D0PTrDuJ0Pqu5aW6mtV/BD7tLf+Zh8zBt5ahXaXIGf8JoG7vv5aDmrIVA4
fAX6EJvyqMvHxWvDhYzPzlirnsfomM5Hp+fxWMmdLrDjkiw/z0rHIb/iG4zz
LuCeZFd4xkfHcoqfFuOLC+bpramsO+gouCc0THxzhX2sqfYxIzomnhkJEGPX
0HK0Y9f3HDpMX1UuSEi6Id+p2ayjmI7H3aLDBU5usLF5siKqig7a4ERhwYQb
vtE+BtHb6ZCZC9UqmLqO9KHD8arTdLiJNt2gz3pA4/IWE58DBXi/U9xW/IAn
Su/6LbdSLoC6RKQW/bon6nJMn+5UL4CAvJUAfd4T3oGaa22MC1CuvVCY/9sL
09duX05yLcBfd9nhvMUb8KY1zjrmFiBkk33ksIIPvrIYBhszyOdrElQ3X/cB
e1tF554HBdjHviSNNu6DPXE+KQl1BZBptiUqnXzxzVuBkdxdAHs9SYd0Sz80
NbQ/t2EhwEh7qlrr4wf+1Znp0hwEZqasNvYn+WHf8/+KJ5cSCIiOauHv8YOn
eoaiyhoCyb2/dobo30RGtsEysW0EOmwbh51U/eEykndG9ygBwYdnqkIt/XGV
YzRCTpPAWe65yFwff/ziXJG9SpvAj9zdakMV/qgiriwmGxHgHr+bZiwTgPxW
o+MiNgQUPUwtlLYF4tN7zcKRG+T7W6dkzVQDUVilN8h7k0DLplC+65aBeLeO
urgjkIBJTU1VYVIgSg+kXVG4Q8CZfdumbfy34Fhef3gwmkBW2NgbHq4gpHJz
VB7NJ/BEic09fGsQxG1eD5QXEBj5wb9hvUoQJj8tjG4rJLBbR+mUiHcQTqd8
3fChlED+itC3B6aCoGansvxHNYHnNanu1SuDoXuIp3VjHbkfx5INahLBqMnZ
tOFwPYG97b2ndOyDIe2/stC5mUARdXeP7UAw9imrDbm0EXilrOTx7U8wjKa3
S599SWBqXE/wiuBteLYt3lfrICCj527qZXQbvR951Ga6CDxc9aSH1nobg6Jt
Mgv9BCpptr01D0MgrfFQh/hKoE/F3fPI6xDcOh30eNsogb+TlI2tkyHIni4z
j/pOQMmgxKxL/A7UYkwPnx0nULeGrW80/Q7y+GdM7k8TGKzn93KuuwO2NfZR
n2cIsLru3jT37g6KrkjYi8wRUOvUM2cTpEBFKY8n8BeBpsjUvg1UClZqsWYt
LhD4pFbilUKnoI/9bQAXCwNc082btrVSsKAyIUMhrW40Zi7JGQr7uPgcyhIG
Wtcp9R/1CgWXTXbIBTYGRhv1vJ/FhaKkxuhND+nl12yF9B+GQsozwECdnQHt
Lsrp05OhCHwWMyLIwUB7dG+/y/kwfO/N3pbCyYBpE43PIzgMdhtPsSzhYmBo
WgO+2WHYWNNTYUF61rAslTIShpDbJ8bWcDPgG+D4ksZ9F3upvK72pJeVbGeN
23kXb44pTlWQFl4TZZ15/i56btXNGy9lIFvleGRe8F20vjAMvUd6nzNbY2H2
XaS2vpYeIX3k5ZXt1SN38avK8qXDMgbsfCP3WLFTUeQj2plLWkxgXNV2LRXG
3IeXfCL94FiW60UZKpQmNCcMeBjwHGANvaxGhWT9pZpbpJXdzmReMaTCkHHq
xQPSHCvKq1xtqPBK9hcdIt1yf12XmysViX56DXzLGbirdOWHRwAVnVTBB7Kk
Dbuecd6IpGLeY8eCGel+jgC5gBIqzm4byUwmnZY0oBPUQEWj9acVlaTP7Vc4
H9JJxZq+qqEu0nueR/uGDlGxIfDKrjHS4zaTsdSfVKyfnhlk52Wg9M+Jwgj2
cPBTZfkFSHtE5jyNXhuOHaU8T3aShhjHYNzWcDR/U/srS5q94eyvRJlw3F6R
Ua5C+qlZ5epUtXBUeL5jP046bGr9nnTDcPDKJr3XJ21wx0X1vk041AS89Y1J
C4i2meW4huP3PJ/FKdL95btd8wPC8fBN97J/TtO/RSEiw8HHomd6kvS5rx8y
ijLCwS01oqdHes9NxarSknB4P1mc1iA9viHudVlDOBSHf2gqky4p/Pm9ojMc
baFLjGRIu2voctYMhSOq87rAdtJKH/KEH/8Mx40/IXHrSLO5c8k1stNgnWjd
x0r6yUprnSdraTB7LDr8nYxXaHa1XetWGqbXDT78F099ZUHfFzI0GPzKNaki
vf7N1diXajQMEL6t90j3Ob5kdBrScNHVbG3Av3ykBH/ocaUhu6dNTuVfPuSG
5vsDaOji2yUo/C8fL7D6QyQNyaWcg7PkeXBfmFH5XEJ+j945qUzSStH6Zl8b
aGCnm9deJ80qUeDyvZMGcf9aVU3SlNO2GVM/aViuf1L2M3keUys7OFj2R6CL
20NiKekCBSvqhGoEYn9c7Gsnz3dl+bjgR/0I0FiInmjSb8p4JZucIpB7TLhD
iPSq0mOmlPwI+HVzLa4n6+c/ma4h74oIbBZY5/mKrD+JYhtHx5YI0E0azO+Q
1iz0C9AficBUrarZHFm/N+kVBQJbI6FnKnGnhqxvqpim/DLpSOyj9HpcIp2c
96b+9+FIWKusGdpAujxn+s07i0joyheJXSb7w2TmXrbMhEgcbvN/w072D+vk
dGOpNVGQsju67+0iOQ+E9g2KiERBWPykAydp38Rah7VSUaD/jf4gSfavxPh+
v1ntKJQccQ7z/kOgM3p9flVIFObF/7Od+df/7t5h0WSNRulgR5D9BIHtvi45
VhPROPV+cL3Te3J+VBt4RS6Jgbli0kPpAQJ5f6V1mlbFYFzBLv0n2a8lPX/+
3LUvBsFibY6XewkoXLuqPOEcAy2HKG0Vsr/rOrh1+/yMwZ7jO5IvtxLwMPHk
SJqNxfdyn9qpYgKHYszevOCKw86SE2bniwgsvlbIYxGIw4DyzbIeBjkfDf7o
2hyIQxcnf3MZncBdbe/EPe5xEODVCTPNIpCh5iNd/isOfHNRXnLxBNok/S27
/8ZDa+K4w0Vyvi4kp8ZW8SZgUNgu4b4XAQne6rZ0oQQUNov8HvAgEPZlTtFJ
MQEnHsiePOFG4HjaZcGl3gmI7PtWtdqJnMdrTDsO/klAi//zM5qWBBpmJI8k
/0pE2Y1wZy8VAmWV73bazibjgfnaXHPyf+M6r0f1sZP3sKWSa4OjWwG2F1dO
DpukY+OJa0l7O+j4fdj8kr58JqQcixg+EnQ4Vt9z1FqZhRObKIcbA/JxVWqz
14kVOTj0IDxcuzEPaaHzL4RGc5FzMW5WhjcPVu95xGbH81FytmTLhHIuHv/X
sPL0aAEeKXS/T3XNwdbM0aQnVgxYhqvX2hVnQ3J/xAE760IUOXzaHzSQhXb5
8zOj+kVILue8ukogC4/kT8m7nSzG0m790ECl+3CWFKo9ZlQCO/+dhu/sMlGd
sOLCokopbEUyro8nZ8CAVTiuQu0BJq/H1MY3pMOz3/Tbmf0PMdiYL+czlwYX
4oKf+pYylEXlpulJpqHEKzpRdssjcGfUbpE3vofb1eM9PCvL8WqyWOoVJRVZ
v88lD6+uQPe7p8sjrFMQtZeRybGqEge/ndS0fZAE/jc72pcvVGL42dYvfDsS
8d6zwkdgsQp9+Q4Osm7xUIr01ucZq4ZkLF3u9HAsHNJX26v11ID7z5Pf5eYx
mOiyZK1zqEVVvVamUkkUrkW/tOz4WIsvMyyXqndFIsWgjW3Epg6xuRKmvT40
rNaykXPqrwNLpYnGyBQV36sGKQkGj9Gweni2ZTAMDhJjW592PMauquGD21Pv
YP9bmvYFrXpEMW5t7o8NRppfQznv83pMWfCMvjAMhFvmgLrh8Qa0z/q927v1
JqLZaOf56hvwcbP6NxvzGzC1eNXSotoIW6WRr1/m3GA3nVP9q6IR3M92r3+7
1Bl9nBc7n0s14f3105xjPucxs65cLL2wCaK1edn+S0ywibDU9S1uQs7szxn3
DGMcVl/qerq0CSYXCjc5HzMGxcOkYv2jJhzar/fDLvQkRAZmNCi1TbDc25ht
v8EIOtnSdlfbmtCQvcyxUUof2Qfp9459bwK3fFF9RbM6XnQYNm4da8J8zYml
wnzqmHL4M7Jkogn66Wd/+Rseg1KKlmTlzyY8WnrtnemHI+hk+1ot+acJczn8
eTK/VbDk+fa+DTzNSFL/fU3S4iC2n3uxOLO8GYufiwwvjB7A8cWrop18zVBo
vRmY5y6HWKnGC2Grm/H2scOAaqQMJKKt51kFm9FcVNcTGyEOw708Qu83NiPB
KPeRX8FuuD8pUq4Sakb06KOD7k93oOHXkmC3Lc14vBZbIhe34GtETp6haDM4
fIx5HPcLY4W4XpvUtmY8lDRb23FRgIx/Kv/ozmYovT7XOFy4FJSfK8tY9jQj
ztJDNj90Xqn6tt+pdeLNYPn/NS48+WvXXqZFSqwSlaSYNtToUDSQZvrWO9UB
u/1Mf+XeJhIuz/Sm5Kj6TAWmtaU5bcsVmS46/Tnr42GmhyaNNeZUmeYPfvJ1
+VGm1YXkKVvUmfYoyhGX1WzG+BLeWysC6g7lHxNs0zzOXH/XF+Jkoc30Suff
q1x1mVbhcigO1mfaNbHPMMmQ6ftSJ2YKTzK9zFxCvteU6UMTyT1j5kxfvrXC
i92C6VeM8Wpxa6bjOYrVfC8y/Sxe9FPkJaYX9kYG5TgybWV6teWVC9O7CTnd
bV5Ml5tUmrVQmB79Lvb3XRjTwv5JyVNUpm/Sb3zYFMV0icrYTakYpj91W2w9
Gse0wKX2RtMEpjVZD9s5JjXj3GPHn/z/Pa70iinkDkhhrheIieTG3mP6fR1N
i57O9Gpjtu91mUyrjbqEdWUxfc1vaO+3HKaz+Y1eLuYx3ZvX6Ly2gOn/AY4E
Xbw=
      "]]}}, {{}, {}, 
    {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{0, Small, Small, Small}],
      LineBox[CompressedData["
1:eJwVknlYzHkAh9uRVDOq8URrlA4qq0PKOqL5EKJhKpOuDdV0/SSRbbQ5owNj
dGwWRdfOdNc08+2gMLWOwqIiT1ZMB5IjpXKN3dr88T7v8/7/mvJ38UJpampq
3Am++9i1DH9Oe6tT0/S2mcvlYih11iXpdkvZ7MaOvD+JGKl5RovudinYtRFK
S+1qMcJfHz9Z2nWfXdDw9ud/asV4eIp9MbNLyU7YrsGLvSKGVuBMbnrXe/bK
q8uFVc1izL2t8eOprjF2fUihykopBjl48D9hlw6kVfs7DekSRIVf9voy3QQj
8SPMlEgJ2s7YmrH6LHE5umaRsFmCIWXa0/GUBVCdcI6+alKAlUzXfYxBB5xu
u2AWf6QAdS5eprktS1C1YlXjvc4CvP1qF7th0grYdpAHpU6FUBjSesuZK2Gc
OTimyC7EtuQP05eMrcLpQ3sNtn0uRKd0vamb/hqEZdyRiHyLYJdv7tiv4YL6
v6nZLlVFqPY75FY1uA7JVg/kixnF0G9jO9JpHFTUa9bXRhaDOy3JoW9oA3x3
npD+1VQM/jQHdTctNwS6dxhsmVcCz0hbaoTuAaXvUJbN8RIELdLwOvLDJnQn
eWoLe0rwrDO94hGdB3ZvwnuBcylcqG7RDnVPGPPHFO8ulMKovbejmbkZW5ku
6iNjpaDPEeetYHmB2e8bbBdQhpfeFkPDet5w7a2RfrlUBtuIrWW7DH2gpHdH
ebDKEcz3GbCZ4YuPvptnOQjKUemkW6FO90PivYyejffLEfFl3+N8/V8QFZ1n
+Mm2AsxzJcJ4hj+eLf28ev6JClgYiIrNZ25B0YJZ3QNvKsCLs17z3GQr+rna
Z/o5UuxoTA3rnbEN0tTVS6MkUgz3FY4WmQbgvhrHPWFyJezjGhN9pgZizx9Z
vDmBlfhtN8Mt/FggUjbV7lJdqoTAx577hB6EhJyWeBlDhleyOt2oY0FQs3iN
kmUy6KlYmqFT+bBeu71ue4QMsppn1w8I+WDt1SkZPCvDU/5hhcnkYFxzzDRP
vyFDw7jqvaUwGKyzwi2qURkMdB/3umuEwH5yvtZPZnJY6KQyOkUh+Ko9O9rY
U45rY3MFw3qh2C+JD12YIEd7kGH+fFEoGtw1WzVlcmRXD9CamGEgv38aLeqW
ozPOZN7RlDCEvtJKY+gQFNjZi+5ohqO9hXZJ5Ehg0WFksfdUOD6487PaIwhm
D0UkOGtRaO3pG+45S3Bzrc3GHXQKLguyjMrOEUSeH9Q/PZXClQPc9TGZZOLn
mMKXTArFBtXZGucJNmcfvH2cReEw98h6qxwCISdNt8WKgm3drJwYCcFHSc15
fzcKojQP1ylygguq2JBEDwo05aSY1ol29nC0qeBRiLW6mJNJCNK+KRRj3hT4
TUajVtUE83m3evIDKDj++ybH4yJB4PgTy/7dFF6HJ41mXiWY4pU9pPcrhYCa
pcbBCgJpaUDdMgGFR7R3rtYNBN+8XnBOxlFozOblKhoJzpQP7LQ9SuHcQ2PO
8+sETjTZYp9ECjqmD2PKbxC88NkzfjiZQmJUcq7gJsHCSZ/T2oQUdmsNjE5p
JnjsW+enElHo884zbpvoQ9L9ZnNSKfhLPDlZtwjM1dlvN6RTaPugIQi+TXDX
T606JoPCOtTnWt8h+B/S6D86
      "]]}}, {{}, GraphicsComplexBox[CompressedData["

1:eJztU/lLVFEYfYiIqZmamBa5lGUgVgqSLXJGpCTaXCAyQyaxktFUQiPHtGcY
aqYN5jqO+zI66jiZ6Sw6Ps3MEEUjU3FrGKImQ5kCc0nqTV1/7D/wwuVy7j33
+8458LlExAXfMKIoKpLdhvNXo/7dhQguYldUwTcnGvEPx6P8lnlgXEwz1lJ5
XQnP7oHrGB7m8KWFvNNY4Vcn8salSLaVBmj46SgODVkciWkl/Ez0mY5XWA21
Er4AX809y6MsZISfj5YyiSrHWEb4xVAKmO1+Pa1I0h30NG0WwdZLP1R0cfN/
JQKTjJ9290lxav5STlFsNaIi1LTb/s3+tfjoyveZS2iB8qyFkXtGPbiWGh5P
tam/AZkOywthq0040T54V10hgXxUpxcebSL9mrGy94FHaQR77/hoIUguBfNE
uztFsJmHDMysT5SrqgGifmfZnajnyJT4xwRoxURPG+zLbtvwt4kxvWpo+ALy
TqHC+3A90dcOrpvV2lxQHfYcmXU1SXsJZmPw+9uEWqK3A8yYNsu3qAZXI0+y
FTvBket0iYpqol8OWU54XP10FYQlhqXAaJ21+/pGJfGjBKWM3il0rsTUyM8Q
bZ0KdK5yKSCjnPjrAmPklMUbEcHB+LKlR1s3qOFhv2G7UuJXDc6OKo2QW4Ir
xw0Fe8B0zqSsNBUR/ww4i5WHTFYLcP5Ylh/3EwN6UvFwPiCf5NELzuNkb1Fx
Hr4FGSr2grl2IDRwQUDy6QPF6Sh0oHORHfN5vVHfB3ppl17tkU3yegVa7eQt
ns+Ae4Yda4HFXMmMtiCd5NcPWuTbnxaYhqGq0x0/NvpBvfdetnG6T/J8Dapw
yvp3XSKi2bTsjQdANWskedGxJF8WT465TIquw2yiJt7X7A0orvDMh1R/hP8l
sJgW78v0ckdb2ZJ44ByLydqaj6352JqP/8/HH278Gmc=
     "], {
      {GrayLevel[0], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 51], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 52], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 53], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 54], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 55], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 56], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 57], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 58], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 59], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 60], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 61], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 62], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 63], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 64], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 65], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 66], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 67], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 68], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 69], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 70], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 71], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 72], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 73], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 74], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 75], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 76], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 77], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 78], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 79], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 80], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 81], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 82], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 83], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 84], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 85], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 86], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 87], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 88], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 89], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 90], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 91], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 92], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 93], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 94], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 95], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 96], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 97], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 98], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 99], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 100]}, {}}], {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5759148879239883`*^9, 3.575915080453899*^9, {3.575918017855448*^9, 
   3.575918061288455*^9}, 3.57591985306341*^9, 3.5759199339068003`*^9, 
   3.575920191428852*^9, 3.575920241786137*^9, 3.576000200858158*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[1, 0.5, 0], Thickness[Large], Dashing[{0, Small, Small, Small}],
      LineBox[CompressedData["
1:eJwVyn880wkcx/HJ7kQPjrqkH0vjOh23KBLu7J26kg2P0pGWLjpCRh4XJZlK
kR9hfgznd1gxQ1IMqy1NRypjdg/XUopLmV8Vdye3uu/98Xm8H8/H60M9ctwr
aBGJRPIg7v/d0BTzzk93OT3omI6nt7cSzFD3Jl339/Qz1c0J1fuUYF3MLn/O
1EbWq6CWhb1KvMjakv+AuQziI7J1FZ5K8E0uLZUyzbHs4Pn3U65K6Dy1lrcx
bXGXuVCQ7KSEyJlsLWLuwBra9Ei7qRLciIhnzcx9UEz/ftpsfAAMF8uwk6sD
UfJW21MdPYCk79sE5c/D4c+LbQzWHYBP2pM3h1tP4LX5hNZnZQpwvVUFveMx
eLix/UOJlQLBBYI3Sfc4EKgUCeOSftgWx1t+kXAeL8mMps3MfkxUJqwyMb6I
YZN2edFgH+bGwlUyThIGH0dzROF94D4prAlYmQIrrYx++bwcZ3QbdlckpyFG
Od1cnC6H6QzFrFydjtRc9+QUczlqtweTXV24mCrTJ4/69+K4le1w5sksiFnL
jdekPkacuqxD3pmNbQaDMcwrjxCs47R9xiAXe/K5t8Tihzh911XwwoWHPYFP
DXljPVB6/WXSk5EHPcsRcSCpB74JJpFJnfm4Zcu5VLThAdanqB45Gv+Klfb9
Fd30bvSqe7p6/AuhY0ApcDzQhfIJa6E1rwhj3yzUGl74De0yu7y0kWKcpeca
Pi+8D41TXUjr6lLo5UtzvuzoBEV/32CnRxnWdr6cSZuUYYfK3eJP93JMqCWl
Hz6XYcmnGh/5WDmEPjZhcut7iMnYn9KSeQXUtoPJJbs6MNBTpJdhVwHq+7iz
woC72DG48pzH4wqsiNzEM7ssxf49r/9ZHF2Jiz0uf5u6SXA2fyaozrAKUrqr
VnfBbeRdzqS61FRB75CDZG6mHV6T8cNyTz662GVrjda3gUqpznF7wwebTGv/
cEoEnojKuMO9inPpNvP9V5tBMVfOrqZdQ0wpK+r07E3kfGc6FXL/GpJZkZWV
jCbUS1rHG9nVIC/+94Q4rhFDSzNUIzo1kMb6absWNaCx70av0fUa+HcJA97N
1uIEPWKptbcANuwBC/7harjF/uy2ZVoAqalbyKwOHzJqzYWtebWwaa5Rrwu5
Aq+CDTfMNgsxLKrvVywpRq+Ybq15IIS0UVQSFcrDW3d+gyKyDv7DdkNl4Zdh
Idz5Vc6SepxzPCDnajhwyHcw3WVQj22SoNzCRA52J1itmjckvPMX3yp9DkJ8
jQwPGxP/e9OGWyhxEJCHFiyphENvzzxzjgXtUJSiw74epEKqES3+JGwNKhPe
BRB9TlGZrQnHD/M8Dj+Q6FqTVlf1w/HjaHKMbzDR9T+/2UphI6otIuIOm+hf
O8iGnY+h+agTK/UU0X2KRzfGH4WjpG+TWTrRI7oZeZpDYAhk3yozCScusG5T
/MDitVgkZxMupYWNOrMQG1ZCmcon3JuVtjneB+IVobptFYR/ullQovHAw0V+
5HA+Ya5Jq9qZgaFJz0+m1YTvxP3hGL8LH+/ZzSXWEd6WaifUOMOgwWLG4Trh
Kq/o3fH2WFu4Sq2+QXixPbtbQ8PGRP1XpbcIl6ertD9SgEjSi70iwiSSrHar
M/0/B4VMOQ==
      "]]}}, {{}, {}, 
    {RGBColor[0.5, 0, 0.5], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[CompressedData["
1:eJwVjXk01AkAx+1gs8+tTVtSWOkai7eOJL6J10F6Gkc5ahbl7o3oYEyMsklp
ttBUQuRN0yDXDA2mOYzxiw6Ms4PNLtrHiI7NlsXaP77v+z7vfT/vax5Ooxwj
qamp+Szl/06g5nKcnGzd3kk73QIC+sA7I907KtGFy3CI+RbfPvwyMhJfJjEF
p/uCxjfefXBhJy6ck1gjVOTYWbljaT+zjUiUuMKpICtLg9yHN6Z3KmIlPlCc
lBnWk/qQat9dFCk5jOCtk8vX1fSiHRPso5LjGB0WXtuu3Yv5FMexisU05IrC
vubeV4LLmh7UXpaFiWKp0XBEN7rYr4aSoll4bNSmtcamCyWiHk01hzysHPDw
UA49gxUziRf+ng2r9NFGfvkTdNqeDxuYL4BorGSX88l2CEXDG4/NFiOKdjCP
nEwgWZcu3h1YCr3tijDXDgWs+KIPY4fKwPRYdqDGqhVz7qHHKc4c8L1Wl88S
LaCJS2neBlxUlBtHzOTKcMpuHcNHn4c+iuzzxkgp7l758txUVY5IcpBado8Y
4W+0ybMzlVjNl45TxkRoMWs1OKyqQkaEi8ZH62ZYclRFj8NroJenvlb/YSNs
HfK2RkXUgoR50vQOIbqcoz+rKHUgVe57/Xa+AY3OQc5nAvk4Z+bd4y+sR6Kt
qXR3gABRxQ82LF4RQHxbP3ZxZz2k46cebrrIhx9p7a1mzwasH7jnN5Nah9Sh
4MkjDg8xaChbGceqRVJ1bMYecyEC1KKcUFMDAYNd6GjeCKmuiV5dXjWyxTMv
tQ2acCQ8P/Ps7ANw5yKLx4yawfzHd2G1VyWu29RwNA1FSPg4pkMVlMN4cEOX
zoIIQ3K6r2AXD29Sm9N/WHyEgzYlMco2Ltzyz1K0p8VIqHsRExJ3D/FlRjGe
LyX4l75O19SMg/f9YSRZvBQHpNt6w1rKcJrdHdbzpxSLFyb7f828izt+nep/
HZWhfuuqS0z7Uhh5H3VKGJLBYXxx1pVUgqlHf+Tc9msBT+uq/ZbGIsT/NG3Z
3tOC0kiGiuR1Gw4vcvfHesshP0Dd8cjgFu5mtDbpPpPDRUdH97KAjTOc3/f4
72tFYjNnOYuWD7Z6brSevBXx6TonPoXkIpiq7OjwUKBqk5GXv9VVRP3NE39t
VmDgnvHIFHLw+tu43md2bdAnCu2+C7qIzyuayGW1bRi8dDl0pW3mkl9irNpI
4MONI9lUKhM5nwyEalsIKP2zBPT9TIizM4JWWBMQJLJMbrgyYSEIL3SzI7Am
K7Wwx4SJCa31FtecCbj0H25vqEkHvY5n7ei1xC/cn3iXpaFAk+/JjCOQlsd9
6nWJgacFP47nHycwsbM8sjOagQWb/CwejcAqjMUH7mYgPPhUhzKJgNCsUBSn
wcDmaiff9QwCepXbqfy0VDQdEoV05BBQXN4c0ZBEh2qKPD/MIhD6Wys7jELH
2vNFxR+vEkgP1LTTt6Pj3IO0kTXXCVSbmdw88S4FXiT3KFoRgb6qeSu/mBQw
btRqZd5Z+rP8+YLhnhRUkS3Kb5YSOO9D2au0SoHRQfUpGYeAIev9l+DRZHiq
klj9XAJzz+XjFvJknM4YtZnkEciwtHScKk3GfeOA7sUKAqaTzW8bmcl4VaFI
/L6KQCnXfu4iNRn/AQM3Vw0=
      "]]}}, {{}, {}, 
    {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJxF0Hk41AkYB3CxdAwlbSo1QpNqM5lZR1Hm2+BZMXS4NtpyFIqZZVkpVFJt
l51EJiW3iaFk0DpmmnHN/JZWCB2KptIlFh1sh2z7PPs8v/d53ud9Ps/3+9dr
HBjuHqSupqYW/nX/uxF+KcLVqxmsv+vaWF5e3RDF1Dn3y3WgU6IyWrm5G/6P
H3Pz5VRoj6SrT+F0Y60g8kuinA51773ElfVf+yO2RKTcDkMM1u5vzLqhomaX
hMrdEHTTK6VSvRtxlh2ZwfLtWDOZpUEt60IzBgS75Dzcbe2rtKB0YWK/9bOS
yYOoGG1EcNFtFPKH71GmHod9Xz6bt7MD7YIHvVG7+bg/OlBrt6odOdJOTTWr
VFwt0M4R97TCNCFKFDgqQNdE+Q6F8CbaGEcC7k5cxAxaylkJtxnV0r7lQeNZ
MAnTTD7BI7BPJ1bm5J0LVgKlfZ5UAdMK6ZtnW/NRdrLW2/jbJnxi/8RztxFC
xzzWniVuQLgsN5yjWwhdq6lLEvbVI5q5ON5tlgjp5TlPMp3qkPf7h1vUwWKE
XI5WlPJlCFRRzMZHriBow88jb85L0WDUpLt9sBRrgo2M59+rBU04mPlnYBlO
ZKcG0X1qwLBKXROyUwzLZakVzJ4qtNvsHht0L4fl0kSBhP8Hamx8bGK8K2DQ
fdC2HdcRyaDWOXlVwnq6c/1s7UrIMmaFTtpfB5PjRrGdKIeHuuEFieMfiFsR
sGLsuRhxvb6vd1hVoVPfd2fLcBmiroUe3mBcjbdyv4VPppahMl5wydq4BuWD
s48y6aU4KRvpoejW4pQdRaYVfwWFn4KznulJ8MIjL5FRVYw08zKh5mwpQikr
6UXTRdC/t6xd+4sUN7Vc8vWOFUIVJzk0f/IGoscZsmOvhWCdO+BOGZZhL2dc
5RZTAG6+3h7HHjmuuxTe0ZqTj9E7Aer13DpcXs5ez7qQi72CjoDOp3V4/nTX
Z5/1Ocj2aNN4uaseVa+f9BsWZEKPs2t1RG896ngLjlpoZmDoxpOkDI8GFHHZ
B7oOpoO7apjW3NmAcxzF7VOtabC6n7IxlNOIenqr6e+eqcg73FSr09oIWtu1
+bPFyYgRPtrg6dqE5Mjk4t+ckiDQSNk9s7EJ4v0NObS04/D1u93S4qDAAcUO
woKfiJD3ItlHiQJG9iVBOnfj8FArrKuVqYTv1v6oiJ5IjM2tNcsXK9E7Sy1P
FhaIRdcCNidUKJFiOFb8HS0Q7A3Tf91+XYkm/bU5Fx4GICl2q2RejRLdN9+7
JrgFwOTRmHNSnRKnW+deijD3x6Yii5DoNiX6N5aNVr/YhiLbq7lOQ0rwHKpe
VU+441anp4I2rASb7h/hHO6Ot9zPL6eMKnHfNbPgkWoLWNkchvSdEgWWp3Wp
TZvRpTEgY3xWwsdAkFc11w1TWk0fLqAQWKjyyWn73hGmwbcmx7QJHH92hibU
d4DrZPSSrpkEzML+uX/sIxvpTEUoX4+A9p7xjI6jwCrBzg/qBgSqe7fR9git
4WlOoaoWErCVFJcqeZbY/2f5+htUAmdODf1ia/09mj5OORFjTID70p/azF+J
gVRRiecSApJNzRIro2WYRd/SxlxKgHL6Vd4tscnX/+foDy4nQCxOdJxRMgdJ
73Sr1VYSOJQVY2dwRgOyk4d95tIJqP0/I4ZvPq4wJ21SGXiJxSTt6dxp52FB
+rc+h0chVqQHpi01OWtDelFWWqNwLemNFlpBtXaky7e/KHzKJh1bLqJbu5C+
4mTQ5uJKuu/hqQi/jaTtp3IrTriTnvHTKpsHvqQvalY4JoSR/uvikufneKS/
mJ87LgonHegb3XI7ivR311ZvXhpPunardFtLEunBIbOJPj5pwyOZWW+TSSde
Pfh4URrpSvvhROZ50s/v+tF+uEB6Pq9d4ZtB2kWdHRKeSSC2oWWMbVIjjT8v
nnY0m8Ca9hhvxbKadaVmJsXpuWRfVZ/CuZpPWu9HjaF6IWnHwSj+nULSew/3
m78WEfCXztMKdahZV6Tv1TFZQuYPShSR35aS/hc8puBG
      "]]}}, {{}, 
    GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGCIAGIQ/Wflx0u+SQn272+/mxA5/4o9hF9gv873U+aJl5ft
f9Vl7SmZXGEfVnTrrZTpZah8g31cSpjclcZL9tUi69wfVrXY+8W0Tqu/cBGq
vsP+VT1b1XrFi/aVL9UMOdb02FcenrvgZ+kFqP4J9hk3zrK9mH3e3ua+f+/0
vEn2LN8NhBJDzkHNm2J/oPLi1QKxs/a7PHmYtNun2XdtTuThf3waav4M+zvh
K5gEdp+yt9pyomzf/Fn2PmzXY2Tnn4TaN8d+ylkRgY39JzDMR9e/Q671deCO
efbrLMS4hHuPQ9Uvsl+34IML96Uj9tL6d1XYGpfa3zkg9/lA8yGo/hX2L6JK
ZqVOPmB/89z34MdLV9v/ypDZr3Z/L9S8dfb3TvY+8xXYbe9j3umY8HSD/YuK
6QJd83dAzd9kn3fm4PMf5dvstdvFgEZstpeIi7i1qXML1L6t9jeYz27YdmKT
Pdf1xQW2XNvtHW6ffv9JeyPU/h32D66djGaLXG//CuRdmV32CjcSV9p0rYG6
Z7d9wwHzF+GPV9qfBIaOlP5ee4OM1ra3scuh7ttn71DlNfnFlyX2IY+Xzj6i
cMD+g7tVmvmSRVD3HrA3aDjwuy9jgb1Ld87z3ysP2jMs8T5dXTcH6v5D9g3K
bb9EfGbYG4PBYfuGJX4TjMymQP1z2P6A5rcjmywn2Cvf/gl08RF7BtWspqvL
O6D+O2rfsMFJUY610V64+cCpha7H7BlOsTe38BVD/XvcniEmbCpnWKB9HDgB
APkbFqqKldnZb5r7fvkxbyAfCkbT72j6HcrpFwCZOK/C
     "], {
      {GrayLevel[0], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 45], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 46], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 47], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 48], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 49], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 50], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 51], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 52], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 53], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 54], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 55], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 56], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 57], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 58], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 59], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 60], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 61], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 62], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 63], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 64], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 65], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 66], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 67], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 68], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 69], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 70], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 71], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 72], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 73], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 74], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 75], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 76], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 77], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 78], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 79], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 80], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 81], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 82], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 83], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 84], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 85], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 86], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 87], InsetBox[
        StyleBox["\[EmptyCircle]",
         StripOnInput->False,
         FontSize->15], 88]}, {}}], {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5759148879239883`*^9, 3.575915080453899*^9, {3.575918017855448*^9, 
   3.575918061288455*^9}, 3.57591985306341*^9, 3.5759199339068003`*^9, 
   3.575920191428852*^9, 3.575920241786137*^9, 3.576000201038186*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Further", " ", "approximations", " ", "in", " ", "the", " ", "case", 
      " ", "of", " ", "R1"}], "<", "1"}], ",", " ", 
    RowBox[{"R2", ">", "1"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"s21t", "=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"r2", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"L", "+", "1"}], ")"}]}]}], ")"}]}]}], ")"}]}], ";"}], 
   " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"as", " ", "R1"}], "<", 
      RowBox[{"1", " ", "and", " ", "R2"}], ">", "1"}], ",", " ", 
     RowBox[{"s_", 
      RowBox[{"2", "^", "1"}], " ", "can", " ", "be", " ", "simplified"}]}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s12t", "=", 
     RowBox[{"s1test", "/.", 
      RowBox[{"s2", "\[Rule]", "s21t"}]}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"and", " ", "now", " ", "we", " ", "can", " ", "write", " ", "s_", 
     RowBox[{"1", "^", "2"}], " ", "with", " ", "this", " ", "simplified", 
     " ", "s_", 
     RowBox[{"2", "^", "1"}], " ", 
     RowBox[{"(", 
      RowBox[{"equation", " ", "11", " ", "of", " ", "the", " ", 
       RowBox[{"Sup", "."}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq12temp", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Normal", "[", 
        RowBox[{"Simplify", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Assuming", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"1", "-", "m"}], ")"}], 
                  RowBox[{"1", "+", "L"}]], " ", "r1"}], "<", "1"}], ")"}], "&&", 
              RowBox[{"(", 
               RowBox[{"r1", ">", "0"}], ")"}], "&&", 
              RowBox[{"(", 
               RowBox[{"r1", "<", "1"}], ")"}], "&&", 
              RowBox[{"(", 
               RowBox[{"m", ">", "0"}], ")"}], "&&", 
              RowBox[{"(", 
               RowBox[{"m", "<", "1"}], ")"}]}], ",", 
             RowBox[{"Simplify", "[", 
              RowBox[{"Series", "[", 
               RowBox[{"s1test", ",", 
                RowBox[{"{", 
                 RowBox[{"s2", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}]}], 
            "]"}], ")"}], "/.", 
          RowBox[{
           SqrtBox[
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"1", "-", "m"}], ")"}], 
                 RowBox[{"1", "+", "L"}]], " ", "r1"}]}], ")"}], "2"]], 
           "\[Rule]", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "m"}], ")"}], 
               RowBox[{"1", "+", "L"}]], " ", "r1"}]}], ")"}]}]}], "]"}], 
        "]"}], ")"}], "/.", 
      RowBox[{"s2", "\[Rule]", "s21t"}]}]}], " ", ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"equation", " ", "12", " ", "of", " ", "the", " ", 
     RowBox[{"Sup", ".", " ", "in"}], " ", "a", " ", "series", " ", "for", 
     " ", 
     RowBox[{"s2", "^", "1"}], " ", "small"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Eq12", "=", 
    FractionBox[
     RowBox[{" ", 
      RowBox[{"m", " ", "r1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"r2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], 
           RowBox[{"L", "+", "1"}]]}], "-", "1"}], ")"}]}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "m"}], ")"}], "r2", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], 
          RowBox[{"1", "+", "L"}]], " ", "r1"}]}], ")"}]}]]}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Eq12temp", " ", "can", " ", "be", " ", "simplified"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Eq12", "-", "Eq12temp"}], "]"}], " ", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], 
          RowBox[{"1", "+", "L"}]], " ", "r1"}]}], ")"}], " ", "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], 
              RowBox[{"1", "+", "L"}]], " ", "r1"}]}], ")"}], "^", "2"}], 
         "]"}], " ", "because", " ", "r1"}], "<", "1"}]}], ",", " ", 
     RowBox[{
     "so", " ", "the", " ", "simplification", " ", "is", " ", "right"}]}], 
    " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"We", " ", "now", " ", "derivate", " ", "previous", " ", 
     RowBox[{"approximation", ".", " ", "The"}], " ", "derivative", " ", "is",
      " ", "zero", " ", "at", " ", "the", " ", 
     RowBox[{"optimum", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq13Temp0", "=", 
     RowBox[{"Simplify", "[", 
      RowBox[{"D", "[", 
       RowBox[{"Eq12", ",", "m"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq13", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"r1", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"L", "+", "1"}], ")"}]}]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"r2", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"L", "+", "1"}], ")"}]}]}]}], ")"}]}], "+", 
      RowBox[{"m", " ", 
       RowBox[{"(", 
        RowBox[{"L", "+", "1"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"L", "+", "1"}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{"r2", "-", "r1"}], ")"}]}]}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Expression", " ", "in", " ", "equation", " ", "13", " ", "of", " ", 
     "the", " ", 
     RowBox[{"Sup", "."}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq13Temp1", "=", 
     RowBox[{
      RowBox[{"-", "r1"}], " ", 
      RowBox[{"Eq13", "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], 
              RowBox[{"1", "+", "L"}]], " ", "r1"}]}], ")"}], "2"], " ", 
         "r2"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Eq13Temp0", "-", "Eq13Temp1"}], "]"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "We", " ", "check", " ", "that", " ", "Eq13", " ", "is", " ", "indeed", 
      " ", "equal", " ", "to", " ", "Eq13Temp0", " ", "multiplied", " ", "by",
       " ", "factors", " ", "that", " ", "are", " ", "not", " ", 
      RowBox[{"zero", ".", " ", "So"}], " ", "Eq13Temp0"}], "=", 
     RowBox[{
      RowBox[{"0", " ", "is", " ", "equivalent", " ", "to", " ", "Eq13"}], 
      "=", "0"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq14", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"r1", " ", 
           RowBox[{"Exp", "[", 
            RowBox[{"-", "x"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"r2", "  ", 
           RowBox[{"Exp", "[", 
            RowBox[{"-", "x"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{"x", " ", 
        RowBox[{"Exp", "[", 
         RowBox[{"-", "x"}], "]"}], 
        RowBox[{"(", 
         RowBox[{"r2", "-", "r1"}], ")"}]}]}], ")"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"we", " ", "noticed", " ", "that", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "m"}], ")"}], 
      RowBox[{"1", "+", "L"}]], " ", "is", " ", "close", " ", "to", " ", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", " ", "m"}], " ", 
        RowBox[{"(", 
         RowBox[{"L", "+", "1"}], ")"}]}], "]"}], ".", " ", "x"}], " ", "has",
      " ", "to", " ", "be", " ", "replaced", " ", "by", "  ", "m", " ", 
     RowBox[{"(", 
      RowBox[{"L", "+", "1"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Eq15", "=", 
    RowBox[{"m", "/.", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"0", "==", 
           RowBox[{"(", 
            RowBox[{"Normal", "[", 
             RowBox[{"Series", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Eq14", "/.", 
                  RowBox[{"r2", "\[Rule]", 
                   RowBox[{"(", 
                    RowBox[{"1", "+", "epsilon"}], ")"}]}]}], "/.", 
                 RowBox[{"x", "\[Rule]", 
                  RowBox[{"alpha", " ", "epsilon"}]}]}], ")"}], ",", 
               RowBox[{"{", 
                RowBox[{"epsilon", ",", "0", ",", "1"}], "}"}]}], "]"}], 
             "]"}], ")"}]}], "/.", 
          RowBox[{"alpha", "\[Rule]", 
           RowBox[{"(", 
            RowBox[{"m", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"L", "+", "1"}], ")"}], "/", "epsilon"}]}], ")"}]}]}], 
         "/.", 
         RowBox[{"epsilon", "\[Rule]", 
          RowBox[{"(", 
           RowBox[{"r2", "-", "1"}], ")"}]}]}], ",", "m"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}]}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Equation", " ", "15", " ", "for", "  ", "r2"}], "-", 
     RowBox[{"1", " ", 
      RowBox[{"<<", " ", "1."}]}]}], "  ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Series", "[", 
    RowBox[{"Eq14", ",", 
     RowBox[{"{", 
      RowBox[{"r2", ",", "Infinity", ",", "0"}], "}"}]}], "]"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"The", " ", "largest", " ", "term", " ", "is", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "x"}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", "x"]}], "+", "r1", "+", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", "x"], " ", "x"}]}], ")"}], " ", 
      "r2"}], ",", " ", 
     RowBox[{
      RowBox[{
      "so", " ", "it", " ", "is", " ", "zero", " ", "when", " ", "x"}], " ", 
      "=", " ", 
      RowBox[{"1", " ", "-", " ", 
       RowBox[{"r1", " ", 
        RowBox[{"Exp", "[", 
         RowBox[{"-", "x"}], "]"}], " ", "as", " ", "written", " ", "in", " ",
         "equation", " ", "16", " ", "of", " ", 
        RowBox[{"Sup", "."}]}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq16", "=", 
     RowBox[{"1", "-", 
      RowBox[{"r1", " ", 
       RowBox[{"Exp", "[", 
        RowBox[{"-", "x"}], "]"}]}], "-", "x"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.575914705435199*^9, 3.5759147597675743`*^9}, 
   3.575914951731986*^9, {3.575915059873506*^9, 3.5759150707743597`*^9}, {
   3.575921027824914*^9, 3.5759210296616898`*^9}, {3.5759210654230633`*^9, 
   3.575921070947216*^9}, {3.575921105422477*^9, 3.575921534272894*^9}, {
   3.575921787848466*^9, 3.575921841446269*^9}, {3.575921914850669*^9, 
   3.575921921177568*^9}, {3.575921964306779*^9, 3.575921970666099*^9}, {
   3.5759220150047817`*^9, 3.575922258316025*^9}, {3.575987386504637*^9, 
   3.575987650789781*^9}, 3.575987682333085*^9, {3.5759880000828333`*^9, 
   3.5759881559037457`*^9}, {3.575988507544549*^9, 3.575988632902361*^9}, {
   3.575988766299951*^9, 3.5759887857345448`*^9}, {3.575988989138207*^9, 
   3.575989029613171*^9}, {3.575989061201784*^9, 3.575989067164599*^9}, {
   3.575989259035741*^9, 3.575989381023056*^9}, {3.5760011508823223`*^9, 
   3.5760011533878937`*^9}, {3.576088721844352*^9, 3.576088764179105*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"m", " ", "r1", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "m"}], ")"}], 
       RowBox[{"1", "+", "L"}]], " ", "r2"}]}], ")"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "m"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "m"}], ")"}], 
       RowBox[{"1", "+", "L"}]], " ", "r1"}]}], ")"}], " ", "r2"}]]], "Output",\

 CellChangeTimes->{
  3.575921921768724*^9, 3.5759219716761913`*^9, 3.575922111049485*^9, {
   3.575922159385482*^9, 3.575922163424695*^9}, {3.5759873915494003`*^9, 
   3.575987402538598*^9}, 3.5759874438113213`*^9, 3.57598858389149*^9, 
   3.5759887895420723`*^9, 3.5759893848174133`*^9, 3.576001155921172*^9, 
   3.5760712301275387`*^9, {3.576088736312149*^9, 3.5760887652576723`*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.575921921768724*^9, 3.5759219716761913`*^9, 3.575922111049485*^9, {
   3.575922159385482*^9, 3.575922163424695*^9}, {3.5759873915494003`*^9, 
   3.575987402538598*^9}, 3.5759874438113213`*^9, 3.57598858389149*^9, 
   3.5759887895420723`*^9, 3.5759893848174133`*^9, 3.576001155921172*^9, 
   3.5760712301275387`*^9, {3.576088736312149*^9, 3.576088765259244*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.575921921768724*^9, 3.5759219716761913`*^9, 3.575922111049485*^9, {
   3.575922159385482*^9, 3.575922163424695*^9}, {3.5759873915494003`*^9, 
   3.575987402538598*^9}, 3.5759874438113213`*^9, 3.57598858389149*^9, 
   3.5759887895420723`*^9, 3.5759893848174133`*^9, 3.576001155921172*^9, 
   3.5760712301275387`*^9, {3.576088736312149*^9, 3.576088765260664*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", "r2"}], 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "L"}], ")"}]}]]], "Output",
 CellChangeTimes->{
  3.575921921768724*^9, 3.5759219716761913`*^9, 3.575922111049485*^9, {
   3.575922159385482*^9, 3.575922163424695*^9}, {3.5759873915494003`*^9, 
   3.575987402538598*^9}, 3.5759874438113213`*^9, 3.57598858389149*^9, 
   3.5759887895420723`*^9, 3.5759893848174133`*^9, 3.576001155921172*^9, 
   3.5760712301275387`*^9, {3.576088736312149*^9, 3.576088765262166*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "x"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["\[ExponentialE]", "x"]}], "+", "r1", "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "x"], " ", "x"}]}], ")"}], " ", 
    "r2"}], "+", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "x"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", "x"], "-", "r1", "-", 
      RowBox[{"r1", " ", "x"}]}], ")"}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      FractionBox["1", "r2"], "]"}], "1"],
    SeriesData[$CellContext`r2, 
     DirectedInfinity[1], {}, -1, 1, 1],
    Editable->False]}],
  SeriesData[$CellContext`r2, 
   DirectedInfinity[1], {
   E^((-2) $CellContext`x) (-E^$CellContext`x + $CellContext`r1 + 
     E^$CellContext`x $CellContext`x), 
    E^(-$CellContext`x) (
     E^$CellContext`x - $CellContext`r1 - $CellContext`r1 $CellContext`x)}, \
-1, 1, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.575921921768724*^9, 3.5759219716761913`*^9, 3.575922111049485*^9, {
   3.575922159385482*^9, 3.575922163424695*^9}, {3.5759873915494003`*^9, 
   3.575987402538598*^9}, 3.5759874438113213`*^9, 3.57598858389149*^9, 
   3.5759887895420723`*^9, 3.5759893848174133`*^9, 3.576001155921172*^9, 
   3.5760712301275387`*^9, {3.576088736312149*^9, 3.576088765264029*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Top", " ", "pannel", " ", "of", " ", "Figure", " ", 
     RowBox[{"Sup", ".", " ", "1"}]}], " ", ":", " ", 
    RowBox[{
    "approximations", " ", "as", " ", "a", " ", "function", " ", "of", " ", 
     "L"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"2", "/", "3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "9"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"temp", "=", 
     RowBox[{"(", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"s1", "/.", 
           RowBox[{"eqres", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
          RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
         RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ListExact", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"Re", "[", 
         RowBox[{"m", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"temp", "/.", 
               RowBox[{"L", "\[Rule]", "1"}]}], ")"}], "\[Equal]", "0"}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.1"}], "}"}]}], "]"}]}], "]"}]}], "}"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{"ListExact", "=", 
      RowBox[{"Join", "[", 
       RowBox[{"ListExact", ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Re", "[", 
            RowBox[{"m", "/.", 
             RowBox[{"(", 
              RowBox[{"FindRoot", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"temp", "/.", 
                   RowBox[{"L", "\[Rule]", "i"}]}], ")"}], "\[Equal]", "0"}], 
                ",", 
                RowBox[{"{", 
                 RowBox[{"m", ",", 
                  RowBox[{
                   RowBox[{"ListExact", "[", 
                    RowBox[{"[", 
                    RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "]"}], "]"}], "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], ")"}]}], 
            "]"}]}], "}"}], "}"}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "11"}], ",", 
     RowBox[{"i", "<", "21"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ll", "=", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "-", "10"}], ")"}], "*", "10"}], ")"}]}], ";", 
      RowBox[{"ListExact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListExact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ll", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"L", "\[Rule]", "ll"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", 
                   RowBox[{
                    RowBox[{"ListExact", "[", 
                    RowBox[{"[", 
                    RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], ")"}]}],
              "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"temp", "=", 
     RowBox[{"(", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"s12t", "/.", 
          RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
         RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lists12", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"Re", "[", 
         RowBox[{"m", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"temp", "/.", 
               RowBox[{"L", "\[Rule]", "1"}]}], ")"}], "\[Equal]", "0"}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.1"}], "}"}]}], "]"}]}], "]"}]}], "}"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{"Lists12", "=", 
      RowBox[{"Join", "[", 
       RowBox[{"Lists12", ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Re", "[", 
            RowBox[{"m", "/.", 
             RowBox[{"(", 
              RowBox[{"FindRoot", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"temp", "/.", 
                   RowBox[{"L", "\[Rule]", "i"}]}], ")"}], "\[Equal]", "0"}], 
                ",", 
                RowBox[{"{", 
                 RowBox[{"m", ",", 
                  RowBox[{
                   RowBox[{"Lists12", "[", 
                    RowBox[{"[", 
                    RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "]"}], "]"}], "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], ")"}]}], 
            "]"}]}], "}"}], "}"}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "11"}], ",", 
     RowBox[{"i", "<", "21"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ll", "=", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "-", "10"}], ")"}], "*", "10"}], ")"}]}], ";", 
      RowBox[{"Lists12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"Lists12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ll", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"L", "\[Rule]", "ll"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", 
                   RowBox[{
                    RowBox[{"Lists12", "[", 
                    RowBox[{"[", 
                    RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], ")"}]}],
              "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"temp", "=", 
     RowBox[{
      RowBox[{"Eq13", "/.", 
       RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
      RowBox[{"r2", "\[Rule]", "r2l"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ListA13", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"Re", "[", 
         RowBox[{"m", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"temp", "/.", 
               RowBox[{"L", "\[Rule]", "1"}]}], ")"}], "\[Equal]", "0"}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.1"}], "}"}]}], "]"}]}], "]"}]}], "}"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{"ListA13", "=", 
      RowBox[{"Join", "[", 
       RowBox[{"ListA13", ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Re", "[", 
            RowBox[{"m", "/.", 
             RowBox[{"(", 
              RowBox[{"FindRoot", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"temp", "/.", 
                   RowBox[{"L", "\[Rule]", "i"}]}], ")"}], "\[Equal]", "0"}], 
                ",", 
                RowBox[{"{", 
                 RowBox[{"m", ",", 
                  RowBox[{
                   RowBox[{"ListA13", "[", 
                    RowBox[{"[", 
                    RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "]"}], "]"}], "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], ")"}]}], 
            "]"}]}], "}"}], "}"}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "11"}], ",", 
     RowBox[{"i", "<", "21"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ll", "=", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"i", "-", "10"}], ")"}], "*", "10"}], ")"}]}], ";", 
      RowBox[{"ListA13", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListA13", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ll", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"L", "\[Rule]", "ll"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", 
                   RowBox[{
                    RowBox[{"ListA13", "[", 
                    RowBox[{"[", 
                    RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], ")"}]}],
              "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"temp", "=", 
    RowBox[{"x", "/.", 
     RowBox[{"FindRoot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Eq14", "/.", 
           RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
          RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.1"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"LogLinearPlot", "[", 
      RowBox[{
       RowBox[{"temp", "/", 
        RowBox[{"(", 
         RowBox[{"L", "+", "1"}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"L", ",", "1", ",", "100"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "DotDashed"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "100"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0.35"}], "}"}]}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListLogLinearPlot", "[", 
      RowBox[{"ListA13", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dotted"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListLogLinearPlot", "[", 
      RowBox[{"Lists12", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Purple", ",", "Dashed"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListLogLinearPlot", "[", 
      RowBox[{"ListExact", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"LogLogPlot", "[", 
      RowBox[{
       RowBox[{"temp", "/", 
        RowBox[{"(", 
         RowBox[{"L", "+", "1"}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"L", ",", "1", ",", "100"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "DotDashed"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "100"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0.35"}], "}"}]}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{"ListA13", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dotted"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{"Lists12", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Purple", ",", "Dashed"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{"ListExact", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.575914986591901*^9, 3.5759150662665243`*^9}, {
   3.5759218725538063`*^9, 3.5759219055188103`*^9}, {3.575987692859288*^9, 
   3.57598776365786*^9}, {3.5759878140304337`*^9, 3.575987913544948*^9}, {
   3.57598795083496*^9, 3.575987956432906*^9}, 3.575988232487468*^9, {
   3.575988391823675*^9, 3.575988403357885*^9}, 3.5759886978578863`*^9, {
   3.575988739498151*^9, 3.5759887595536137`*^9}, {3.575988797290227*^9, 
   3.575988985491025*^9}, {3.5759890861369677`*^9, 3.575989110831623*^9}, 
   3.575989257174407*^9, {3.575989561871442*^9, 3.5759895792722883`*^9}, {
   3.5759896166962147`*^9, 3.575989701199792*^9}, {3.575989747253845*^9, 
   3.575989776731915*^9}, {3.575999890547406*^9, 3.575999894725169*^9}, {
   3.575999924808182*^9, 3.57599998097189*^9}, {3.576000077152157*^9, 
   3.576000127384308*^9}, {3.576000255756241*^9, 3.576000428328157*^9}, {
   3.57600048886066*^9, 3.576000509267893*^9}, 3.5760006782903013`*^9, {
   3.576000710603277*^9, 3.576000774605192*^9}, {3.57600082000985*^9, 
   3.576000825824912*^9}, {3.576000858659733*^9, 3.576000896623118*^9}, {
   3.576000927325571*^9, 3.576000934580825*^9}, {3.576000965988262*^9, 
   3.576001107896852*^9}, {3.5760011696566563`*^9, 3.576001186224691*^9}, {
   3.57600121689928*^9, 3.576001388486598*^9}, {3.5760014214576187`*^9, 
   3.57600148256522*^9}, {3.5760015415013723`*^9, 3.5760015641151123`*^9}}],

Cell[BoxData["0.5329865623631526`"], "Output",
 CellChangeTimes->{3.5760013430676603`*^9, 3.576001392567626*^9, 
  3.576001490516789*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
     LineBox[CompressedData["
1:eJwVjn0803kcwGfmaWzjp5LycLL0Sufh7sUx0edbQlbykh5UzHDs6GEXr22R
9Io5J7RKQ520HqRwmFlrHmotpJTbDiNXh+ykPOSpIh3X/fF+vf97v9520exd
sXgcDhf0lf99q/jyOZ5X8qbxvMg2GlkNjj/EVrGo+4BJKT1CNVbDh2VcmjuV
BSpHG3OKoRoO8BcXV1N5oMhPjtTqqIHUqIyiULOgazBZV/BBBcM9VHMjaiE0
LjSXal+qoPOf7lE9ahmMb85qvFChgieHncMIVBm0svlcvUAVtFcfjF9v3QbO
gvnyXSMd8OLnck/lWzWEWtj5b2c8h9fHYoKzynqAL3nkqh5oh6rp4tD+wVcw
VZW/SKY/hb9ZRSUjvYOgyLiy7bSmDfwL1hA3LGnBjuMkXbXzMcjniCBfMQLE
+LpZQW8L7MgWxS2bf/f181NGUVYzPNz/kSC3nIAaq0bNjXWPwLHyC12YPgm8
AN6NyLGHkOLnNDczOQVUXTvB1mYFNCw2MXlpM2DlIbZttn8AJsGlW6KmZsFh
PDyZSWiCnQ/G+tkZH6Fx6qr5cU09CAOHoqjkOVDsTp61+fMejCW4RkDaPMS/
Gqb4mMjArfKV+SnSAkyfdaw+7yOFXP6g79r0L6BMsJV235ZAd6qfy+TyRdDc
JCmHyLVgLwhbYl5fgo5DLX/Qi2pgs1UU1eoMDrnnXVuILa2CEVyrw+VdOijR
Gx9nsrwSLL7TxLaT8CjaUr370ss7EDjhUxjcgkeuIlqFTFMGSQ17HOJyddHd
NaaKcx2lsLZr5bSLPwHxTTI/48g3QfUlZ3UuRQ+Fl1qvSAu6Didr93ps7NZD
85xnJW33RFAreSa4kqePhLb0qffyEhhonva7sMcA8bKcTnboFkOBXbOnl6kh
4rFl9cdrLkGw8bi1+2NDFNN/jV9RUAg4vVamMs8I5by/FVCdJgQanT6ADyAi
798/3f4kyYeEq2lN3RRjtPd1gyZ47DzYI0bPwXZj1KA/E/o27hz0HxEOuWWY
oIGJY1vumJ6FixWpQSI6CYmlxEF2WA6o3Siz9wlkJLZNCffRzwb9jpA5dgcZ
Cev8jo7Kf4FNs6MTSRcpqHUC16St4MNS7crzQgdTtE8Sto41mg5/JeXvrz9j
irDOQravy2k40Rej8BwxRSqHTIuu+FNQbMAUDfiaoVTPXl+GMhXqvd2qQ8rM
0NrqoM5v7VKg2IIRbkXAUITOSxZBy4NVXkpxvR6GSL/hJNw+HlwKdzDYb4Ah
1+3hLWMqHhRcmxALiRhaejdI0zbxQLDhlAHFDEMttjE0XBEP0kFUq2ODoRP0
4aDRHTxgsV4bvvHAkDXTrDVDzoXhbH9GJg1DVtF458M1XPixslxivxFDjH0c
l7AyLjCnEhnMTRhKyQ6a9xJy4cAJ3boXWzE0+abv9IZjXNghoEY+C8GQZZLM
VbaeC0/Fv9YlhGIo4FHumd5vuBDYNWZktAdD2R5q1r8WXPC3lNb5hWGorNyt
LESfC3DDj/iAgaEcdYQ5dYgD91vuREYwMaT/XBQd1ccB7xGSdCEKQ5+3pDhe
V3PA00kT6RmLIXlnno2zggN3g72kmjgMrXpisS1ZxgH3xBIi5ycMtY73aB9X
caDuIp5pnoCh9Ud5M5a3OPC9LE4qPvS1//FqIvsKB/4DTBsyXA==
      
      "]]}}, {{{}, {{}, {}, 
      {RGBColor[0, 0, 1], Dashing[{0, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQPnU3uUJXZftH9v+eufk94z+121GZ7SocftuZnX
Vr2a/NE+/mT0mu6kg1D5b/YchYeXKW/dbW/c+/a744Gf9ndWx37dxL7dnklB
6xf36j/2kTyLbxhs2WwfHmW0rkjpv7388xaX+eYb7YtXW9tvWsTg0PjA40/x
5HVQ8xkdPnavzd1bt9peLHTr7o3ZTA4dJksf5f5agcGf+Li42uk7u8Ocju5+
dtFZ9rOvcf9cZsrtcMZwXtL7pRPteYuMrC838TpUTuL9/nN1l/166TXbL3nz
O1w1LJczym+17zZKvTM7QcCheuHb772vGu0VHdM7S/8JOKja71t9+HidvUtD
xV/DdkEHA/UFH/l+VdkL6BhKn/sv6MAx06GmnakC6h4hB0sXp5DmhaX2ANCj
kyA=
        "]]}}, {}}, {}}, {{{}, {{}, {}, 
      {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQMtcou+m7y6ZP/e8tc/J71n9gbWoo/Pdpyw52Ze
W/Vq8kf7pOn7nmRKHYLKf7Of1vMu69GKPfbGvW+/Ox74aS/u+pPx+Zbt9kwK
Wr+4V/+xvyS6ake76Rb78CijdUVK/+1fsL6vuT17o33xamv7TYsYHA4pvP8X
Ybweaj6jg+qyQhdrxjX2YqFbd2/MZnJwfJHF9SFtJQZ/4uPiaqfv7A5TDfuZ
w4Jm2c++xv1zmSm3g8Rey+iYQxPteYuMrC838Tr0J7xNXnamy3699Jrtl7z5
HW43q6YmtrTadxul3pmdIOBQddFFNPVno72iY3pn6T8BB+2Xm5i23q2zd2mo
+GvYLuig2sH87T1Xtb2AjqH0uf+CDitmFiq/4q+AukfIwdQlXzB5Tak9AIZ/
kJA=
        "]]}}, {}}, {}}, {{{}, {{}, {}, 
      {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQPVP95Kndl72f695a9/TnrP7N1mph+2fn3Cnpt5
bdWryR/tvbybCwrtD0Hlv9kvXh27IPjMHnvj3rffHQ/8tOdj+RbccmK7PZOC
1i/u1X/sc+3zX9c5brEPjzJaV6T0395h+eLo9Ys32hevtrbftIjBIV5otpWK
3Xqo+YwOe1uuK/zhWGMvFrp198ZsJoc5/XuTN+asxOBPfFxc7fSd3UFog/HN
p8Gz7Gdf4/65zJTbwfjCFOVrhyba8xYZWV9u4nVw7DefzHe2y3699Jrtl7z5
HeZo7Neb3tJq322Uemd2goADu6JgUsvPRntFx/TO0n8CDh+Wrpx2526dvUtD
xV/DdkGHGe5Xe7m4q+0FdAylz/0XdJCIvn37D38F1D1CDs+0J+0tWFNqDwAG
y5I3
        "]]}}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  FrameTicks->{{Automatic, Automatic}, {{{0., 
       FormBox["1", TraditionalForm]}, {0.6931471805599453, 
       FormBox["2", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["5", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {2.995732273553991, 
       FormBox["20", TraditionalForm]}, {3.912023005428146, 
       FormBox["50", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {5.298317366548036, 
       FormBox["200", TraditionalForm]}, {6.214608098422191, 
       FormBox["500", TraditionalForm]}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0., 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{0., 4.605170185988092}, {0, 0.35}},
  PlotRangeClipping->True,
  PlotRangePadding->{{None, None}, {None, None}},
  Ticks->{{{0., 
      FormBox["1", TraditionalForm]}, {0.6931471805599453, 
      FormBox["2", TraditionalForm]}, {1.6094379124341003`, 
      FormBox["5", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {2.995732273553991, 
      FormBox["20", TraditionalForm]}, {3.912023005428146, 
      FormBox["50", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {5.298317366548036, 
      FormBox["200", TraditionalForm]}, {6.214608098422191, 
      FormBox["500", TraditionalForm]}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.703782474656201, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, Automatic}]], "Output",
 CellChangeTimes->{3.5760013430676603`*^9, 3.576001392567626*^9, 
  3.576001490701046*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
     LineBox[CompressedData["
1:eJwVxX081HccAPC7cw8cx/n6VQw1c6x4pYcXQvh+l9hIeUmew3kuKhVSMZpK
4ezaclrCWA9GVp4bxe+Tlaea8SpZ9Uoelsgl4nAltv3xfr2NwuJ2RrIYDMb2
//z/tYL8c0l2xxwjBiUnzq9W0GbWkTeiRb64PrbP6ai5glZQR2ytRNF4ahcz
J8hCQQecWlzUFyXhMe505RpLBS240xKqJTqD5zzdcDtW0CN9Ih010QV8ZYU0
caWvgn70qnecIyrF+vXPtq7LUNAd+yz82KJbuGm7rtXQKwX94Gbg3jWG7bhC
7sXNvjNLPz1YbtMy1oN/7ULZrTlz9NChcI8zpX2Y2VodJAyfp2+8L/B6OfgC
J69qYx7wUtL90T8Vjf49iGk5x1bd/gPtkvcF33zpH2wm88qbIR/phnk+blg+
iv96+1rR4bpAu2cWR1HKN/h6AKt/1zef6Lv+s+wGvQlsHbghA0cs0mYVC26y
9Ek8gmrK4xKW6OPOa+enJ6fwoO9y974tDLi92CROSp3Gtd6pJunPGKDhcXVL
6NQMtj7dvV43lgk7aPnLuJOzOOLg98pPfBbIXIdDRZrz2CPFR7lUzgJ5zPog
nKrE2/TlwW1bVMCy4oVOmuAjtj9xYhnnjQpITg06maQv4LKCWZ0DZ9nQm+K8
bnLZIs7P3h0aZ80BY6nfkviXJZy485RD2jAHvjIIFRlkMYjXWO7BhxlcGGW0
mubvZJJLNu2FjbY8WLHhSeQDAYu4Pvdv2z/EA9cJhwse91lEPpc07pCpCvG3
vU2jJCpkkilPq8RqYPJY9/06FzYxMpXa2o+rQfdCtr5Ei0OKDXpG4q/x4dtq
n02bezkEn+7YnxiiDtU1D6WFOVyClHtjWQINGLj33vlHbx4JMO93t+7UgDyj
ezZ2QlVin+tRWZksAA/1t4ZWbapkbJzWizHTBAanVdySo0ZU2lIS749qgq2b
2wDraz7pn+kyUrukBTE/pzb1aqkT09r5c0cthGBMgvsCH6iTrHeZ21wzhfBy
v2zY8qQGSQB7ybkhIeReT9le7CYgXfXdx0udtKHHUmumma1JwqLzbiQXaQO3
y3M+rkuTRFidnFzFROA4Mz4Rn6tFstaYHzILQ7BUrfuDzFRIDpVcyXx6B8Hz
+PP+jVlC0tpWWOazSgeSn4WDzaiQ5H1XUrMvWQcKeOLiASdtcuEP69ieXh1o
tLe86VmqTaoEq6tYNhQUrAjebcBGJMGQu7fpPAWf2bVUNXIQ2fO71NpXRsHF
3aY8fx4i4cZjnKk8CvJKJqpkfERUJKrlonwKpOZpPC1tRNzKXvEkxRSk4+Jq
5kpEUrjH9QJ/oyA6ekj19SZEFjYaST+0UjCS6RJ82haRqw0ustx2CiIqymuM
NyPCLTcptOikQDx1OFjsiIiZQFAd9icFAckqtU+3IuLTfWCy8xEF7lJRyENP
RJrvjjRfGqCgs+psbYwXItoSzwGrIQpcH8vV1LwROTYdo9I9TIGLXl2tsx8i
R95d28F+TQG+7MyngxHxZ29Q7ntLQfP9spAgMSKXDRe/5L2jwH5UUPcxFJGi
jAS/kkkKbNY+CbGJRKTvakBz7zQF9R52dU+iEOlR75iOU1BgdbiIn7gHkZnP
+834cxTU5rLEOjGI0A4Xw6/MU7DxVlRdVSwi043KQscPFPwLrkc+4w==
      
      "]]}}, {{{}, {{}, {}, 
      {RGBColor[0, 0, 1], Dashing[{0, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQOFIdKXOzq/7H9v+eufk94z+yaW8PlqNr/3czOv
rXo1+aP9QotomZiP/6Hy3+yVd8yvXH2S8YBx79vvjgd+2ofvOP40yoX5AJOC
1i/u1X/sD/zyz7rQzHIgPMpoXZHSf/vwZ5vviM9gPVC82tp+0yIGB7eSZN7a
brYDEPMZHa7efrWIIZX9gFjo1t0bs5kc+OZ8DZ6ryYHBn/i4uNrpO7tDznKB
LXNieA/Mvsb9c5kpt8PlVRv6fOwEDvAWGVlfbuJ1yN89sdQoVvDAeuk12y95
8zsYbs1h47MVOtBtlHpndoKAw7mHJjFLvwgdUHRM7yz9J+CwkC+kz3WC8AGX
hoq/hu2CDg+FdguFiYscENAxlD73X9Ah4eil20v6RKDuEXJ4kX28qfanyAEA
ESySiQ==
        "]]}}, {}}, {}}, {{{}, {{}, {}, 
      {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQPrHkQtPNjwef97y1//nPSe2S+YsmBXet6v/dzM
a6teTf5orxmWMq/L+z9U/pu9i83mPZUtjAeMe99+dzzw035/74QgPk7mA0wK
Wr+4V/+xbxQIqfrmz3IgPMpoXZHSf3vWxgdpXFmsB4pXW9tvWsTgcDhhq4Jw
EtsBiPmMDj+mdl5NtGc/IBa6dffGbCYH3t5Mc3V2Dgz+xMfF1U7f2R28nA5f
eOLJe2D2Ne6fy0y5HRpkfiY+MBc4wFtkZH25iddhDqMGu3+E4IH10mu2X/Lm
dxBx+v5M2lLoQLdR6p3ZCQIOoezHO8I+Ch1QdEzvLP0n4CDenDwlp1f4gEtD
xV/DdkGHIhc39WsiIgcEdAylz/0XdHi2kWV2Vo8I1D1CDpee77ar/i5yAABM
O4yZ
        "]]}}, {}}, {}}, {{{}, {{}, {}, 
      {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQN+81QPTbr4af97y1//nPSe2WtK/KjYpvdrPzfz
2qpXkz/aX559Yc1Hrf9Q+W/268NCNGdXMR4w7n373fHAT/vf4c8mFjExH2BS
0PrFvfqPfa7vKTdrb5YD4VFG64qU/tuXyGudqUljPVC82tp+0yIGhz5FXkn/
eLYDEPMZHdb0NSlp27IfEAvduntjNpMD76ZDmeGsHBj8iY+Lq52+szsIfuvy
y/bkPTD7GvfPZabcDr27Q74cMRc4wFtkZH25ideB6UpqlX2E4IH10mu2X/Lm
d5DmcXkuaCl0oNso9c7sBAGH2EnzJ/p/FDqg6JjeWfpPwGHNioTi9F7hAy4N
FX8N2wUdHjj5W1wSETkgoGMofe6/oEPvk8i69B4RqHuEHA5oHtpR8V3kAACW
JI3c
        "]]}}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., -5.244379490248991},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.912023005428146, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.506557897319982, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.030\"", 0.03, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.203972804325936, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.300\"", 0.30000000000000004`, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.199705077879927, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.015\"", 0.015, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.897119984885881, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.150\"", 0.15000000000000002`, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.659260036932778, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.070\"", 0.07, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.3566749439387323, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.700\"", 0.7000000000000001, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.487387150331708, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.382026634673882, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.286716454869556, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.135166556742356, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.074541934925921, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.017383521085972, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.9633162998156966`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm]}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm]}, {-4.199705077879927, 
       FormBox["\"\"", TraditionalForm]}, {-1.897119984885881, 
       FormBox["\"\"", TraditionalForm]}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm]}, {-0.3566749439387323, 
       FormBox["\"\"", TraditionalForm]}, {-4.487387150331708, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.382026634673882, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.286716454869556, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.135166556742356, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.074541934925921, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.017383521085972, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.9633162998156966`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{0., 
       FormBox["1", TraditionalForm]}, {0.6931471805599453, 
       FormBox["2", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["5", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {2.995732273553991, 
       FormBox["20", TraditionalForm]}, {3.912023005428146, 
       FormBox["50", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {5.298317366548036, 
       FormBox["200", TraditionalForm]}, {6.214608098422191, 
       FormBox["500", TraditionalForm]}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0., 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{None, None}, {None, None}},
  Ticks->{{{0., 
      FormBox["1", TraditionalForm]}, {0.6931471805599453, 
      FormBox["2", TraditionalForm]}, {1.6094379124341003`, 
      FormBox["5", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {2.995732273553991, 
      FormBox["20", TraditionalForm]}, {3.912023005428146, 
      FormBox["50", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {5.298317366548036, 
      FormBox["200", TraditionalForm]}, {6.214608098422191, 
      FormBox["500", TraditionalForm]}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.703782474656201, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{-4.605170185988091, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.3025850929940455`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.912023005428146, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.506557897319982, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.030\"", 0.03, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.203972804325936, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.300\"", 0.30000000000000004`, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.199705077879927, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.015\"", 0.015, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.897119984885881, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.150\"", 0.15000000000000002`, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.659260036932778, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.070\"", 0.07, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.3566749439387323, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.700\"", 0.7000000000000001, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.487387150331708, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.382026634673882, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.286716454869556, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.135166556742356, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.074541934925921, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.017383521085972, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.9633162998156966`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.4079456086518722`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.2072749131897207`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.120263536200091, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.040220828526554, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.9661128563728327`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.8170772772123447`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.7429693050586228`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6739764335716714`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{3.5760013430676603`*^9, 3.576001392567626*^9, 
  3.57600149080474*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Middle", " ", "pannel", " ", "of", " ", "Figure", " ", 
     RowBox[{"Sup", ".", " ", "1"}]}], " ", ":", " ", 
    RowBox[{
     RowBox[{
     "approximations", " ", "as", " ", "a", " ", "function", " ", "of", " ", 
      "1"}], "-", "R1"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"r2l", "=", "9"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"temp", "=", 
     RowBox[{"(", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"s1", "/.", 
           RowBox[{"eqres", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
          RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
         RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"1", "-", "0.005"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ListExact", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "-", "r1l"}], ",", 
        RowBox[{"Re", "[", 
         RowBox[{"m", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"temp", "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", "0"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}]}], "]"}]}], "}"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "15"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r1l", "=", 
       RowBox[{"1", "-", 
        RowBox[{"(", 
         RowBox[{"0.005", "+", 
          RowBox[{"i", "*", "0.001"}]}], ")"}]}]}], ";", 
      RowBox[{"ListExact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListExact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "0"}], ",", 
     RowBox[{"i", "<", "8"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r1l", "=", 
       RowBox[{"1", "-", 
        RowBox[{"(", 
         RowBox[{"0.02", "+", 
          RowBox[{"i", "*", "0.01"}]}], ")"}]}]}], ";", 
      RowBox[{"ListExact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListExact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "0"}], ",", 
     RowBox[{"i", "<", "9"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r1l", "=", 
       RowBox[{"1", "-", 
        RowBox[{"(", 
         RowBox[{"0.1", "+", 
          RowBox[{"i", "*", "0.1"}]}], ")"}]}]}], ";", 
      RowBox[{"ListExact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListExact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", "0.00001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ListExact", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"ListExact", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "-", "r1l"}], ",", 
          RowBox[{"Re", "[", 
           RowBox[{"m", "/.", 
            RowBox[{"(", 
             RowBox[{"FindRoot", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"temp", "/.", 
                  RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                "0"}], ",", 
               RowBox[{"{", 
                RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], "]"}]}], 
         "}"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"temp", "=", 
     RowBox[{"(", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"s12t", "/.", 
          RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
         RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"1", "-", "0.005"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lists12", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "-", "r1l"}], ",", 
        RowBox[{"Re", "[", 
         RowBox[{"m", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"temp", "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", "0"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}]}], "]"}]}], "}"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "15"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r1l", "=", 
       RowBox[{"1", "-", 
        RowBox[{"(", 
         RowBox[{"0.005", "+", 
          RowBox[{"i", "*", "0.001"}]}], ")"}]}]}], ";", 
      RowBox[{"Lists12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"Lists12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "0"}], ",", 
     RowBox[{"i", "<", "8"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r1l", "=", 
       RowBox[{"1", "-", 
        RowBox[{"(", 
         RowBox[{"0.02", "+", 
          RowBox[{"i", "*", "0.01"}]}], ")"}]}]}], ";", 
      RowBox[{"Lists12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"Lists12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "0"}], ",", 
     RowBox[{"i", "<", "9"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r1l", "=", 
       RowBox[{"1", "-", 
        RowBox[{"(", 
         RowBox[{"0.1", "+", 
          RowBox[{"i", "*", "0.1"}]}], ")"}]}]}], ";", 
      RowBox[{"Lists12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"Lists12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", "0.00001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lists12", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"Lists12", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "-", "r1l"}], ",", 
          RowBox[{"Re", "[", 
           RowBox[{"m", "/.", 
            RowBox[{"(", 
             RowBox[{"FindRoot", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"temp", "/.", 
                  RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                "0"}], ",", 
               RowBox[{"{", 
                RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], "]"}]}], 
         "}"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"temp", "=", 
     RowBox[{
      RowBox[{"Eq13", "/.", 
       RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
      RowBox[{"r2", "\[Rule]", "r2l"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"1", "-", "0.005"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ListEq13", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "-", "r1l"}], ",", 
        RowBox[{"Re", "[", 
         RowBox[{"m", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"temp", "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", "0"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}]}], "]"}]}], "}"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "15"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r1l", "=", 
       RowBox[{"1", "-", 
        RowBox[{"(", 
         RowBox[{"0.005", "+", 
          RowBox[{"i", "*", "0.001"}]}], ")"}]}]}], ";", 
      RowBox[{"ListEq13", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq13", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "0"}], ",", 
     RowBox[{"i", "<", "8"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r1l", "=", 
       RowBox[{"1", "-", 
        RowBox[{"(", 
         RowBox[{"0.02", "+", 
          RowBox[{"i", "*", "0.01"}]}], ")"}]}]}], ";", 
      RowBox[{"ListEq13", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq13", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "0"}], ",", 
     RowBox[{"i", "<", "9"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r1l", "=", 
       RowBox[{"1", "-", 
        RowBox[{"(", 
         RowBox[{"0.1", "+", 
          RowBox[{"i", "*", "0.1"}]}], ")"}]}]}], ";", 
      RowBox[{"ListEq13", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq13", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", "0.00001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ListEq13", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"ListEq13", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "-", "r1l"}], ",", 
          RowBox[{"Re", "[", 
           RowBox[{"m", "/.", 
            RowBox[{"(", 
             RowBox[{"FindRoot", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"temp", "/.", 
                  RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                "0"}], ",", 
               RowBox[{"{", 
                RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], "]"}]}], 
         "}"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"temp", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Eq14", "/.", 
         RowBox[{"x", "\[Rule]", 
          RowBox[{"(", 
           RowBox[{"m", " ", 
            RowBox[{"(", 
             RowBox[{"L", "+", "1"}], ")"}]}], ")"}]}]}], "/.", 
        RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
       RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"1", "-", "0.005"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ListEq14", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "-", "r1l"}], ",", 
        RowBox[{"Re", "[", 
         RowBox[{"m", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"temp", "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", "0"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}]}], "]"}]}], "}"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "15"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r1l", "=", 
       RowBox[{"1", "-", 
        RowBox[{"(", 
         RowBox[{"0.005", "+", 
          RowBox[{"i", "*", "0.001"}]}], ")"}]}]}], ";", 
      RowBox[{"ListEq14", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq14", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "0"}], ",", 
     RowBox[{"i", "<", "8"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r1l", "=", 
       RowBox[{"1", "-", 
        RowBox[{"(", 
         RowBox[{"0.02", "+", 
          RowBox[{"i", "*", "0.01"}]}], ")"}]}]}], ";", 
      RowBox[{"ListEq14", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq14", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "0"}], ",", 
     RowBox[{"i", "<", "9"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r1l", "=", 
       RowBox[{"1", "-", 
        RowBox[{"(", 
         RowBox[{"0.1", "+", 
          RowBox[{"i", "*", "0.1"}]}], ")"}]}]}], ";", 
      RowBox[{"ListEq14", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq14", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", "0.00001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ListEq14", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"ListEq14", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "-", "r1l"}], ",", 
          RowBox[{"Re", "[", 
           RowBox[{"m", "/.", 
            RowBox[{"(", 
             RowBox[{"FindRoot", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"temp", "/.", 
                  RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", 
                "0"}], ",", 
               RowBox[{"{", 
                RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], "]"}]}], 
         "}"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{"ListEq14", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "DotDashed"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"ListEq13", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dotted"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"Lists12", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Purple", ",", "Dashed"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"ListExact", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{"ListEq14", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "DotDashed"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{"ListEq13", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dotted"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{"Lists12", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Purple", ",", "Dashed"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{"ListExact", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.576000561423657*^9, 3.576000627578578*^9}, {
  3.5760018700899143`*^9, 3.576001927610024*^9}, {3.5760019903985147`*^9, 
  3.576002223951234*^9}, {3.5760022661080637`*^9, 3.576002390721768*^9}, {
  3.576002460252153*^9, 3.5760026424952793`*^9}, {3.576002676400654*^9, 
  3.576002687230384*^9}, {3.576004072233943*^9, 3.576004098926318*^9}, {
  3.576004140387732*^9, 3.576004199890925*^9}, {3.576004260649116*^9, 
  3.576004303681343*^9}, {3.576004348315958*^9, 3.576004351050776*^9}, {
  3.576004382810545*^9, 3.576004389835308*^9}, {3.576006076461021*^9, 
  3.5760060785756397`*^9}, {3.576006170302711*^9, 3.5760061722489862`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBGIQ3SCyzv1hVYn9pXX7fsk+q7dnqM/aUzK5wn7iqrcS
h9Ia7RteqhlyrKmxjxFtfPV2Z5M9w6qPl3yTGuw1qvu/xX1utne47987Pa/J
fqLX9iNnxVvtIea12HdscP6wUqvN/oAnD5N2e5v9A9d+l269dqj5HfaCGhFu
paod9g5bTpTtm99l7/I55TijYCfUvh77kH0RH2s+ddofkGt9Hbijz37BqcLs
H6e6oPZPsNe5aHYlYna3/YIjChuKMibat7G31cSn9EDdM8ne6vmhaRvVeu0f
/KwDWWjf8dZi/t1HvVD3TbG/tJOlIX5mH9T8efa8E5avsUmbBJVfYq9xNesz
29sp9gtmgsBKe1/3aWHbxaZD1a+zb9U6vHLXvxn2HwJ3AEU22r/94HjJd+ss
+wqw/i32Bns8e/64zLHnuL64wJZru/1OvU0GIlvn2s8Am7fTXuKK0NyHXPOh
/JP2QYU+v4UaltibGIPAZfuFsv+SDzxYbj8LLH/TXmflXu3fZavsGcDggb1P
wvrt/yessQcrN35sn69wM+Z36Dr79DQQeGavXc92e+Od9VD9L+0LD3DyXZ25
wf7sGRB4Y39Z7qxvitFGe9lyL/bX/9/bu5fWve7evdEeAF2oAds=
      "]]}, {}}, {{}, 
    {RGBColor[0, 0, 1], Dashing[{0, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBGIQ3SCyzv1hVYl9pg/n15nVDfYM9Vl7SiZX2LsXrpu8
/mejfcNLNUOONTX2e7ZMvM0R1mzPsOrjJd+kBnuJZGbvLdNb7B3u+/dOz2uy
F/y+Q3bG4VZ7iHkt9p2Nz+Vc77bZH/DkYdJub7PXetAklvO8HWp+h73/tylP
lZ902DtsOVG2b36Xff2tVztEr3ZC7euxN1/6W2XW7i77A3KtrwN39Nnv+f6K
9eyMbqj9E+wfz9eqmZ3bY7/giMKGooyJ9iwejGznrHqh7plkH2+T+oWfsc/+
wc86kIX2fvcOs3890Ad13xT7pSF/d/+t6oeaP88+Ru+T2KInk6DyS+w3H9LV
1i2Zar9gJgistP8s/0Bg8+LpUPXr7NnTQlOm9s+0/xC4Ayiy0f5YfeX2eR6z
7SvA+rfYT1DV27fl5hx7juuLC2y5ttu7Tj25J9Frnv0MsHk77aN/Hj4vu2A+
lH/SPtZuVZ36wSX2JsYgcNle3pbXnEFohf0ssPxN+7bS2bu/TVtlzwAGD+xv
6Zs0rJi/xh6s3Pix/cP2jcGHgtfZp6eBwDP7+VWiVRan1kP1v7T3qyr/e6Fj
g/3ZMyDwxv7s29O1nyQ32suWe7G//v/e3tyheTXznI32AJYO/7E=
      "]]}, {}}, {{}, 
    {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBGIQ3SCyzv1hVYm99S/tssSYmfYM9Vl7SiZX2Dd6tfO6
Nc60b3ipZsixpsb+s/rmlJdLgfKrPl7yTWqwj9nVX+9zaqa9w33/3ul5Tfbp
vg3RBe+A6sHmtdjnZSx5Hyo0y/6AJw+TdnubfUo6n+4/01lQ8zvsD+/4/i8z
cpa9w5YTZfvmd9nL3P3kNatmFtS+Hvt2D+mP/fOB+uVaXwfu6LPPdHQ+431o
FtT+CfbPL8tvOvdklv2CIwobijIm2s/9XlQsyT4b6p5J9n9/Gt/R0Zxt/+Bn
HchCe2X3bZs5vWdD3TfFPnLhuT0bcmZDzZ9nb6D5ZLnzpjlQ+SX2D6Zoeix/
Otd+wUwQWGmvtOf+1u8c86Hq19lbC22M+8m3wP5D4A6gyEZ7S57Di9kmL7Cv
AOvfYr/nTHmxo+BCe47riwtsubbbr+c22WjQtdB+Bti8nfbbO4S3e/yD8U/a
P3q/j+nwgaX2JsYgcNl+lYbsa+/pK+xngeVv2v85qDvH5v4qewYweGCvvcK8
feKxNfZg5caP7feKfZ2xK32dfXoaCDyzN/u+raHk8nqo/pf2h//3mHR2bbA/
ewYE3thHB6QrBkhttJct92J//f+9/S3ljWe+z95oDwCM9gFk
      "]]}, {}}, {{}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQBGIQ3SCyzv1hVYl9mIz7vm/JM+0Z6rP2lEyusL/+77fV
046Z9g0v1Qw51tTY60XPSZq0Fii/6uMl36QGexsPT8v/F2faO9z3752e12Tf
VL50j843oHqweS32X+34nkhLzbI/4MnDpN3eZn/D7tKCs7azoOZ32IufS73n
lDjL3mHLibJ987vsPR5PaappmQW1r8e+WGpzbvVyoH651teBO/rsm5tOVjmc
mgW1f4K98elD9WfezLJfcERhQ1HGRPu5TlN9FfhnQ90zyf5mYfYGG8PZ9g9+
1oEstD919lS+UvBsqPum2JfL7fS7VDIbav48+0Tt97d37poDlV9iH9H761T2
u7n2C2aCwEr7Nyet97EIzYeqX2c/b9OtqoXCC+w/BO4Aimy0/2Pvfe/s9AX2
FWD9W+yXrVesVRVbaM9xfXGBLdd2e+8vG+P1+xfazwCbt9Oem3E2QwLzIij/
pH3F3efxJceW2psYg8Bl+00VO50l566wnwWWv2l/oYp57uknq+wZwOCBPf87
prC5p9fYg5UbP7Zf0BT+hidnnX16Ggg8s199IXbFw2vrofpf2q9Tup60u3uD
/dkzIPDG3trAy/W91EZ72XIv9tf/39vvvNF+KW/WRnsAlYIClQ==
      "]]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 0.99999}, {0, 0.06926798343052552}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.0199998, 0.0199998}, {0.0013853596686105106`, 
   0.0013853596686105106`}}]], "Output",
 CellChangeTimes->{{3.576000562405738*^9, 3.576000624023656*^9}, 
   3.57600269454244*^9, 3.5760042011268806`*^9, 3.5760043990279627`*^9, 
   3.57600619337798*^9}],

Cell[BoxData[
 GraphicsBox[{{{{}, {{}, {}, 
      {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
       LineBox[CompressedData["
1:eJwBIQLe/SFib1JlAgAAACEAAAACAAAAUpyUG3oxFcCSc24vuGsTwJ93BZvH
dhTAXUHHg4ASE8AJaQPu7dgTwJaIIANdxxLA5inyeTFQE8ALwtdIgoYSwBp+
OVyV1xLAeJWHrH5NEsAVVbW7sWsSwIOZNpCnGhLA+WPQvRgKEsBJb/sMzewR
wGEwJjv/sBHAXYMUBA/DEcB3OfeDCF8RwLHRXnTDnBHAzCEkjiUTEcBONDtd
ZnkRwJBb6Xx/zBDASHRBNo9YEcCo4hIaaYoQwC5nVdDpORHA4r+SuFRMEMCv
wkphMR0RwNw2WvzMERDA5rtF+ywCEcASTBst37QPwD7befms6BDArRust9JL
D8D1NokWidAQwKQoFDpuDQzAX2c1kJ0TEMAxje33QcAJwCEAw3y2Hw/Aj+Nz
e0L3B8AabwCqRlYOwCiaVXrdgQbAwxfCo82zDcD9fFEgKkYFwCZlVXAILA3A
uf4uOLE0BMCqrFborrcMwCGnvfx4QwPAzY13PhRSDMAWVbW7sWsCwJuyttQK
+AvANI3t90HA+b8iipbPOr4JwCCnvfx4Q/O/q25QmOCFCMB34ODwQFLtv/Ds
To04swfA7zn6/kIu5r8WE+wcuBYHwFIUgfquWOC/TsN+r6KbBsBNP+Ekw9PW
vxpYRmobNwbAIJqax/ePzL87IDI4weIFwFxBCiHo+Lq/3U1sYYaaBcAU9x1o
vPjkvqL6a6yxWwXAKoL9uQ==
        "]]}}, {}}, {}}, {{{}, {{}, {}, 
      {RGBColor[0, 0, 1], Dashing[{0, Small}], LineBox[CompressedData["
1:eJwBIQLe/SFib1JlAgAAACEAAAACAAAAUpyUG3oxFcBKMFwjCUoTwJ93BZvH
dhTA+nf19EXxEsAJaQPu7dgTwLK9j9OMphLA5inyeTFQE8B9/o93FGYSwBp+
OVyV1xLA9+FAsGwtEsAVVbW7sWsSwIlHHfHr+hHA+WPQvRgKEsBJupshY80R
wGEwJjv/sBHAuK9Dw/KjEcB3OfeDCF8RwHL7X1TxfRHAzCEkjiUTEcDeYZs7
21oRwJBb6Xx/zBDA6UOnRUg6EcCo4hIaaYoQwBT8gIrkGxHA4r+SuFRMEMCS
BRx8a/8QwNw2WvzMERDA8VD+X6TkEMASTBst37QPwDpvrb1fyxDArRust9JL
D8BASld2dbMQwKQoFDpuDQzAYSA/p//wD8Axje33QcAJwDVxhKCv7A7Aj+Nz
e0L3B8Co3ZITACYOwCiaVXrdgQbAjE7EKPWFDcD9fFEgKkYFwHNxYiVgAA3A
uf4uOLE0BMBU3RkKBo4MwCGnvfx4QwPAW1oHJ0MqDMAWVbW7sWsCwJIuz3zw
0QvANI3t90HA+b8Dt5o4/aQJwCCnvfx4Q/O/EHG1bXF1CMB34ODwQFLtv+TC
TV6TqQfA7zn6/kIu5r+9+WEznhIHwFIUgfquWOC/5DwUxTicBsBNP+Ekw9PW
v/ROZjnAOwbAIJqax/ePzL9PY3eg+OoFwFxBCiHo+Lq/NKc3o+2lBcAU9x1o
vPjkvtD/lCX4aQXApIwGpw==
        "]]}}, {}}, {}}, {{{}, {{}, {}, 
      {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwBIQLe/SFib1JlAgAAACEAAAACAAAAUpyUG3oxFcB0EO/KC5YNwJ93BZvH
dhTA8TPo9XCKDcAJaQPu7dgTwDO+RTj7fg3A5inyeTFQE8AlO6q6qXMNwBp+
OVyV1xLATnPJrHtoDcAVVbW7sWsSwNwVG0VwXQ3A+WPQvRgKEsCPcZHAhlIN
wGEwJjv/sBHAgftTYr5HDcB3OfeDCF8RwOlofXMWPQ3AzCEkjiUTEcB6I91C
jjINwJBb6Xx/zBDA2uS7JCUoDcCo4hIaaYoQwPFJo3LaHQ3A4r+SuFRMEMDA
LyiLrRMNwNw2WvzMERDAcrG30Z0JDcASTBst37QPwIqfZq6q/wzArRust9JL
D8APTcON0/UMwKQoFDpuDQzAV6owY/2YDMAxje33QcAJwH3oaDMKRQzAj+Nz
e0L3B8AloYAZifgLwCiaVXrdgQbAYEIXjlqyC8D9fFEgKkYFwAQMWlCacQvA
uf4uOLE0BMCl1AtLkDULwCGnvfx4QwPAgsaK+aX9CsAWVbW7sWsCwDREccle
yQrANI3t90HA+b8tf+l6wkQJwCCnvfx4Q/O/UlvwA51JCMB34ODwQFLtvw91
VRXykwfA7zn6/kIu5r+JRYeRxQcHwFIUgfquWOC/ZfLM7/WWBsBNP+Ekw9PW
v1I3RaZtOQbAIJqax/ePzL+PT06tI+oFwFxBCiHo+Lq/k9bJ1cGlBcAU9x1o
vPjkvjarIYr9aQXAXPgDDA==
        "]]}}, {}}, {}}, {{{}, {{}, {}, 
      {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwBIQLe/SFib1JlAgAAACEAAAACAAAAUpyUG3oxFcB5oHjHp5MNwJ93BZvH
dhTAY8aCTQ2IDcAJaQPu7dgTwLiRW+qXfA3A5inyeTFQE8Cwpa7GRnENwBp+
OVyV1xLAIHk4EhlmDcAVVbW7sWsSwFsOeQMOWw3A+WPQvRgKEsD3sGrXJFAN
wGEwJjv/sBHA0nY80VxFDcB3OfeDCF8RwMRoEDq1Og3AzCEkjiUTEcB+87xg
LTANwJBb6Xx/zBDAco+RmcQlDcCo4hIaaYoQwFVJHj56Gw3A4r+SuFRMEMCD
Mf6sTRENwNw2WvzMERDAN1GkST4HDcASTBst37QPwKQuK3xL/QzArRust9JL
D8CekSaxdPMMwKQoFDpuDQzAHuyd1qGWDMAxje33QcAJwMAuq/KxQgzAj+Nz
e0L3B8D+EaorNPYLwCiaVXrdgQbAoXvbAQmwC8D9fFEgKkYFwN17lDlMbwvA
uf4uOLE0BMBvwQnBRTMLwCGnvfx4QwPA9QXYFV/7CsAWVbW7sWsCwFka/qYb
xwrANI3t90HA+b+Q8QrJqkIJwCCnvfx4Q/O/cT2UBbpHCMB34ODwQFLtvyq0
oJ1KkgfA7zn6/kIu5r9ZjmiNXgYHwFIUgfquWOC/IYXJ7dKVBsBNP+Ekw9PW
v4ZBTDWROAbAIJqax/ePzL/uSK6dj+kFwFxBCiHo+Lq/0SumZnelBcAU9x1o
vPjkvkpVJhqwagXAmV79cg==
        "]]}}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{-5.298317366548035, -4.8551947985805715`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.912023005428146, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.506557897319982, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.030\"", 0.03, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.203972804325936, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.300\"", 0.30000000000000004`, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.199705077879927, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.015\"", 0.015, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.897119984885881, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.150\"", 0.15000000000000002`, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.659260036932778, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.070\"", 0.07, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.3566749439387323, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.700\"", 0.7000000000000001, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.487387150331708, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.382026634673882, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.286716454869556, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.135166556742356, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.074541934925921, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.017383521085972, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.9633162998156966`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm]}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm]}, {-4.199705077879927, 
       FormBox["\"\"", TraditionalForm]}, {-1.897119984885881, 
       FormBox["\"\"", TraditionalForm]}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm]}, {-0.3566749439387323, 
       FormBox["\"\"", TraditionalForm]}, {-4.487387150331708, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.382026634673882, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.286716454869556, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.135166556742356, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.074541934925921, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.017383521085972, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.9633162998156966`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{-4.605170185988092, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.912023005428146, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.02\"", 0.02, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.20\"", 0.2, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.00\"", 1., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"2.00\"", 2., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.00\"", 5., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.2039728043259361`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {-2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.2039728043259361`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{0.1059663473309607, 0.1059663473309607}, {
   0.04370844638960195, 0.04370844638960195}},
  Ticks->{{{-4.605170185988092, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.01\"", 0.01, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.912023005428146, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.02\"", 0.02, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.05\"", 0.05, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.20\"", 0.2, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.00\"", 1., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"2.00\"", 2., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.00\"", 5., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.6592600369327783`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.4079456086518722`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.2039728043259361`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.35667494393873245`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782628`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{-4.605170185988091, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.3025850929940455`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.912023005428146, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.506557897319982, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.030\"", 0.03, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.203972804325936, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.300\"", 0.30000000000000004`, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.199705077879927, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.015\"", 0.015, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.897119984885881, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.150\"", 0.15000000000000002`, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.659260036932778, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.070\"", 0.07, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.3566749439387323, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.700\"", 0.7000000000000001, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.487387150331708, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.382026634673882, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.286716454869556, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.135166556742356, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.074541934925921, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.017383521085972, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.9633162998156966`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.4079456086518722`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.2072749131897207`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.120263536200091, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.040220828526554, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.9661128563728327`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.8170772772123447`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.7429693050586228`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6739764335716714`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.576000562405738*^9, 3.576000624023656*^9}, 
   3.57600269454244*^9, 3.5760042011268806`*^9, 3.5760043990279627`*^9, 
   3.5760061935387573`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.575989393852812*^9, 3.5759893939097843`*^9}, 
   3.57600052568626*^9, {3.576000636436447*^9, 3.576000670130575*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Bottom", " ", "pannel", " ", "of", " ", "Figure", " ", 
     RowBox[{"Sup", ".", " ", "1"}]}], " ", ":", " ", 
    RowBox[{
     RowBox[{
     "approximations", " ", "as", " ", "a", " ", "function", " ", "of", " ", 
      "R2"}], "-", "1"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"2", "/", "3"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"temp", "=", 
     RowBox[{"(", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"s1", "/.", 
           RowBox[{"eqres", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "/.", 
          RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
         RowBox[{"r1", "\[Rule]", "r1l"}]}], ",", "m"}], "]"}], ")"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "1.01"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ListExact", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"r2l", "-", "1"}], ",", 
        RowBox[{"Re", "[", 
         RowBox[{"m", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"temp", "/.", 
               RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", "0"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.002"}], "}"}]}], "]"}]}], "]"}]}], "}"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "10"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"0.05", "*", "i"}]}]}], ";", 
      RowBox[{"ListExact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListExact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.002"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "5"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"0.1", "*", "i"}]}]}], ";", 
      RowBox[{"ListExact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListExact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "10"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"2", "*", "i"}]}]}], ";", 
      RowBox[{"ListExact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListExact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"10", "*", "i"}]}]}], ";", 
      RowBox[{"ListExact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListExact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"temp", "=", 
     RowBox[{"(", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"s12t", "/.", 
          RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
         RowBox[{"r1", "\[Rule]", "r1l"}]}], ",", "m"}], "]"}], ")"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "1.01"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lists12", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"r2l", "-", "1"}], ",", 
        RowBox[{"Re", "[", 
         RowBox[{"m", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"temp", "/.", 
               RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", "0"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.002"}], "}"}]}], "]"}]}], "]"}]}], "}"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "10"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"0.05", "*", "i"}]}]}], ";", 
      RowBox[{"Lists12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"Lists12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.002"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "5"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"0.1", "*", "i"}]}]}], ";", 
      RowBox[{"Lists12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"Lists12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "10"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"2", "*", "i"}]}]}], ";", 
      RowBox[{"Lists12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"Lists12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"10", "*", "i"}]}]}], ";", 
      RowBox[{"Lists12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"Lists12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"temp", "=", 
     RowBox[{
      RowBox[{"Eq13", "/.", 
       RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
      RowBox[{"r1", "\[Rule]", "r1l"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "1.01"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ListEq13", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"r2l", "-", "1"}], ",", 
        RowBox[{"Re", "[", 
         RowBox[{"m", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"temp", "/.", 
               RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", "0"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.002"}], "}"}]}], "]"}]}], "]"}]}], "}"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "10"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"0.05", "*", "i"}]}]}], ";", 
      RowBox[{"ListEq13", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq13", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.002"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "5"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"0.1", "*", "i"}]}]}], ";", 
      RowBox[{"ListEq13", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq13", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "10"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"2", "*", "i"}]}]}], ";", 
      RowBox[{"ListEq13", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq13", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"10", "*", "i"}]}]}], ";", 
      RowBox[{"ListEq13", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq13", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"temp", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Eq14", "/.", 
         RowBox[{"x", "\[Rule]", 
          RowBox[{"(", 
           RowBox[{"m", " ", 
            RowBox[{"(", 
             RowBox[{"L", "+", "1"}], ")"}]}], ")"}]}]}], "/.", 
        RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
       RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "1.01"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ListEq14", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"r2l", "-", "1"}], ",", 
        RowBox[{"Re", "[", 
         RowBox[{"m", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"temp", "/.", 
               RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", "0"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.002"}], "}"}]}], "]"}]}], "]"}]}], "}"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "10"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"0.05", "*", "i"}]}]}], ";", 
      RowBox[{"ListEq14", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq14", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.002"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "5"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"0.1", "*", "i"}]}]}], ";", 
      RowBox[{"ListEq14", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq14", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "10"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"2", "*", "i"}]}]}], ";", 
      RowBox[{"ListEq14", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq14", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"1", "+", 
        RowBox[{"10", "*", "i"}]}]}], ";", 
      RowBox[{"ListEq14", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"ListEq14", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"(", 
               RowBox[{"FindRoot", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"temp", "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", 
                  "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"m", ",", "0.02"}], "}"}]}], "]"}], ")"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"temp", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x", "/.", 
        RowBox[{"FindRoot", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Eq16", "/.", 
             RowBox[{"r1", "\[Rule]", "r1l"}]}], ")"}], "\[Equal]", "0"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "0.6"}], "}"}]}], "]"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"ll", "+", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{"ListEq14", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "DotDashed"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"ListEq13", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dotted"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"Lists12", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Purple", ",", "Dashed"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"ListExact", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Eq15", "/.", 
          RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
         RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
        RowBox[{"r2", "\[Rule]", 
         RowBox[{"(", 
          RowBox[{"1", "+", "eps"}], ")"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"eps", ",", "0.01", ",", "1.5"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"temp", ",", 
       RowBox[{"{", 
        RowBox[{"eps", ",", "0.2", ",", "100"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", "Black", "}"}]}]}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{"ListEq14", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "DotDashed"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{"ListEq13", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dotted"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{"Lists12", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Purple", ",", "Dashed"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{"ListExact", ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
     RowBox[{"LogLogPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Eq15", "/.", 
          RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
         RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
        RowBox[{"r2", "\[Rule]", 
         RowBox[{"(", 
          RowBox[{"1", "+", "eps"}], ")"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"eps", ",", "0.01", ",", "1.5"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"LogLogPlot", "[", 
      RowBox[{"temp", ",", 
       RowBox[{"{", 
        RowBox[{"eps", ",", "0.2", ",", "100"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQXcyvdXv9kleOBoY1d0D0o8yWRyC6PW7eMxDN0dD4
HkR/cqr6CKI/mExetAFIz0hMWwqiny15uRpEr/AQXwuireTXbATR2Vrum0D0
i98z9oPoO5kRB8D6VKNPgOh99yeA6Su62WdBtJJW+Dmw+E21yyD6+vk5N0D0
5vuhj0H0wj0LwbSS3843IDqt9PwfED1f5xPTRiD9O/MIC4h+1e4hCaJPBb2W
BtHyt37qgmijDcJ6ILrduMsJRO+ZeCwKRFcb1KSD6J6Di8H0LYNfBSA6bWpH
CVidinwNiO6z4GoC0f28J3tA9PbLNVNANABhE7vq
  "]],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
     LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBmIQ3SCyzv1hVYu95qqOxppSW/sFM0FgpX3YeVXXrUsS
ofyd9oWHdRZuOFVgb2AMAoftJ5Y3ss3mq7CfAZY/af+p2+dW1K46ewYwuGAv
53v8z7PCJnsTsPrL9vdYtpmo+LXaZ6SBwDX7uAlZJk9/tEP137RX+vdq08vy
LvszYHDH/o3RPd7f53ug5j2wf733w3pF1n6oeY/t498Hqn3vnAg175m9JEOu
kW3sZPtZYPNe2rtOnpR6hmUq1Lw39teTogIM2qdBzftgfz5j1+LZL6dD1X+0
n/IxKs3RYCbU/M/25mKzT0yKmwXV/8VeeZOkfnb5bKh93+zTnk7wN6idAzXv
h33uB2/RV4Vzoeb9tNerOLkjJHwe1Lzf9mLbb658pzcfat4f+/pEk0zmX/Oh
5v2zr1oxledWzAKoeQwO6ZN+aNZvh/EFHKpqD+hoWy2F8iUc9p35OvVm6XIo
X8EhetLSQ/fPrYDyVRzmhGvrLdm2EsrXcMguWLwrMnYVlK/jsEDt8l7l2zC+
gcOcANYfVbaroXwjB/MFL0/U98D4Jg7zQ43UU8/C+HYOHge6vffNXAPluzjs
42VhOc+6Fsr3dJhx/V7SRg8Y389hWpnzB50yKL8h0OFKy34n2ekw+RAHHmtx
QaENMPkwBzdtBY5Fh2HykQ7ti9dZJF5eaw8AzVUI/w==
      "]]}, {}}, {{}, 
    {RGBColor[0, 0, 1], Dashing[{0, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBmIQ3SCyzv1hVYt98j8Z82UltvYLZoLASnv2uWlp2YsS
ofyd9lJu+6YcP1Zgb2AMAoftF8xbt5SVvcJ+Blj+pL1md4f4snV19gxgcME+
by5j+8vMJnsTsPrL9urqKh6cLq32GWkgcM0+qbn4+KE37VD9N+2DNLSdH2R2
2Z8Bgzv2q2XsVxge6IGa98DeaN4Bk8Of+6DmPbZf4/Iq/Fv9RKh5z+wdl/od
dQmabD8LbN5L+8NP474Z/pwCNe+N/fV/7047VU+DmvfBftOXwOJFd6dD1X+0
r9kZlFKjMhNq/md71aSumVbBs6D6v9g/eGV5cmPObKh93+zVFawmOxbPgZr3
w94n8Fbam4y5UPN+2htfOD05038e1Lzf9qI/l2oaa8yHmvfHvrIj9uiEL/Oh
5v2z/7X9IteFqAVQ8xgcppStuqS7DcYXcNg7yfHDHc+lUL6EwzL2NwKcU5dD
+QoOHSZLH+X+WgHlqzg8PsF0n+HNSihfw6Hq++Od02etgvJ1HE4/s+a4JLca
yjdw2P94z8nGNhjfyEGlrCiQ/RaMb+Kwca0G0xG5NVC+nUMQy52pEj9gfBeH
pZ/NNGZlr4XyPR3WTH1S67sZxvdz4E++dUf9CZTfEOhgkSy4eCr7Oqh8iMOd
qV0TS5Sg/IYwhyM2IuKd5jD5SIdCnSt3mj3W2QMAK4wL3Q==
      "]]}, {}}, {{}, 
    {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBmIQ3SCyzv1hVYu9j49y+LISW/sFM0Fgpf3q0N2yxYsS
ofyd9s7X7ed8O1Zgb2AMAoftsw7UMu1nr7CfAZY/aW/lzNlbtqHOngEMLti7
LvrJvim7yd4ErP6y/Z/I+m287q32GWkgcM3+5RtV84SP7VD9N+0fZt4vKyzo
sj8DBnfsedbv2shzsgdq3gN7lfy/Qhb/+6DmPbbf5jL985aOiVDzntn/8fvo
URc32X4W2LyX9rkOTq7OnFOh5r2xfyB72L6ofxrUvA/2h+pYS5W/TYeq/2jf
G/TieJHjTKj5n+1NCx737C2ZBdX/xf5oYarvuUmzofZ9s2cyqu/4M3cO1Lwf
9ml1kyxdZsyFmvfT/vtK8ZnhzfOg5v22L4h4uXNNwnyoeX/svd/6ChyRWAA1
75+9b8HH3qbqBVDzGBykbDeZ8t2E8QUcnHksjf/0L4XyJRw8r5Q9/PZxOZSv
4ODwIovrQ9pKKF/FoU+hzvt48iooX8OhePerwkdSq6F8HYft5/LUji2F8Q0c
jnzaqHtBaA2Ub+RwboL7sV1ZML6Jw5WrPfuUN8P4dg6/lBOOZ89YC+W7OLxc
IXusVmgdlO/p8GlO+eTwOBjfz0Hk6tVCvklQfkOgA4eNzeXJ22HyIQ4SM/6W
cl+ByYc5sPS9lUl6BZOPdNDvjw9M/LPOHgBDBwwJ
      "]]}, {}}, {{}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBmIQ3SCyzv1hVYv9jCvG1r2ltvYLZoLASvtltS2m55ck
Qvk77RsS1oteOlVgb2AMAoftPx5t2fWDr8J+Blj+pH3QFbGPgbvr7BnA4IL9
dm2O9V+KmuxNwOov27Psm5wlGdBqn5EGAtfsXat+zVH40w7Vf9P+r6OHyLma
LvszYHDH/pfJl7zX13qg5j2wfylpsK6Orx9q3mN7ZVt/71kTJ0LNe2afw7Cy
qjxjsv0ssHkv7TM9OB+qi0yFmvfGft+ZmCT52dOg5n2wr+KXNKxmmgFV/9Ge
zexMVbTfTKj5n+2XtOyyUWyaBdX/xf7Ack+pWQtmQ+37Zh/qFWeksGYO1Lwf
9suzXHduXDYXat5P+wRx+1NMk+ZBzfttL5v5S6g7fz7UvD/2fwMSrD0UFkDN
+2c/tz9oh3jzAqh5DA5LVpg93PAAxhdwqF7hohIzfSmUL+GwQWydVt2P5VC+
goPQxL3JG3NWQvkqDsGRN288yVgF5Ws4eJedf1cpvxrK13FYoVYu/H4ljG/g
MF3/wtU5YmugfCOHCl+BKss8GN/EgSnn0qX4bTC+ncPF1XNNjs1aC+W7OHgV
bN4XJrIOyvd0uPPt8pE78TC+n8NO7hPskZOh/IZAh2MSMQqbd8DkQxyOyJ2s
5bwKkw9z6HBRO+b6GiYf6fA4gHmi/t919gC9BAYP
      "]]}, {}}, {{}, {}, 
    {GrayLevel[0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVkHk4lAkAxk3ZdKhkm0ybiFR0mHVubHoHNYjWsWVj6EA2EU80RY0O97G7
jkgytBgi55cszUZ63IU05Za7mVI009AXq6z+eJ/3v/f5/V41Nz+Hk4tkZGQO
LuRb9ylfcXl9MQy0VlaL3BMTvC9jUzmnw+GqXyAO3wrMHfBpU3SOgOBg8PIQ
UwZUgpwYDKMoKJW3aMtkmOJ4h55GGhkLmTDvC3OO+yBlTrE1+Qlgq+UvnW6y
QuB8nsmAYSro2onUAEcHmO6OFmrQeKB5rdztYeyKuBFVD8r2e+Av5k/yvE8j
0kqle0/1AwjyM32Flf7w2mIdqn+jBg13h0/YbAqE7Jkf6KL0OgjKTXZJ54Ix
uu+Scs3xJmQfNzPn86+hwt0vw+BcC/zeSVlpRBj6trVX2xu3o1w92z/nViTm
Tuo820ATQKvXop1rH4MUi34tfZWXKLkxm6pv/icOSWxzBimduOdl3+FCiUcu
xc1Wrr8LNkd5/XrOCQgorzIPHuiBz+Gv61ntiXDTGTkSUd2HbPkXs4G7kvDU
zq7yVcMreDYUrxHdSUZzpwuTqB+Eu2P0Ha8NKWArps6ueD6Ei7kDQyPsmzCP
1bzg+WIYG2eM7QonUqF+Sjkspm4EHSsU3X1s0lC9zuCfjuZRUNXEBZwmLnI+
c+ePPhlDonxrQKZJBtL3evUQD15Dq1Jj8GHqbTg4OnfvqBJCo8yUkRT9N2iC
kt/9SkRgnC52qzfKhNa1Q6sk3De4+MetuqvCTJAUld7UjLeYpceYjmVmoVNo
bSgfN45wvZ8Uau2y4Z+eUZFz/R1+rRTNWK3iwSmSYRd8/T0YeUqbWU082Hcw
g1RCJmD8WTZDxM7BkumzjcKwSQQ1T+sp6+aiJZCSG3j+A2pnsze0DOdiUkl8
kKcjxs6U52ZL/rqDw/1n+1TvidF1f1H4G8s81Am26MhslyBRV0JjknlQ1PVZ
P1UgQZzOaKP1/Xx41Y4122z5iJT4xKYWj7s4OSkbsY/7ETXOj5d2rykAQipe
2m6Ugp4rdY9tLYC6Jffdo2Qpcu1HFficQoyd/z7ZnDYF98ud3fHGRbCG7gHP
m1NgrLMakkwVgW8U2jixehpbVwUZtWUVY2m6Z1dUwjQcIguLHI6V4JgupyRq
+ScwS9uM8uVKwTphdH3btU/wF0TsmXQthcFM1LJeCgmT8hqbyH9LQatdbikJ
IqFo2fPdgCKBMElzyDIOCauf5RZ5rCXwQTW6Su0yiavaBl/fUgk0cOT0HEJI
TKxN+DRNIxBgKKtSFkOiedhStFKVQFv+F+m5NBJXLlU2mexY2IsX3/78kMT7
4pTYdHMC4uqSXoVHJDZn1Udu3k+ANeFL1XpMwjlZGprPJBZsJ2Kc6kk0XrLl
lFsRGFw8zua3ksi2lDvTakvA+MKoNWeAhNPI+V++sAjk5GRFJA2RiOvgHQh1
JaDw8sTjwhESDU0C5rJjBEQ/Dhm+EpLQL9EG1Y1A0ni/2t4PJFZzhPRdpwjI
rOe6OEpIMP3W7izzIuBtwUrxlZIIdjPTNPImYMbrkb9Nkhi3zNi035dAkeCm
RcUMiU17WpSf+hGgUY6EPPuPxG/0WZr92QVfulKV6MsCj7omtct/4T/XTnJ+
foGH6rjG9RyB/wEJXmDi
      "]]}}, {{}, {}, 
    {GrayLevel[0], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQfTesZP2qmSftl3l2GymmrrNfyb/DRPb+Jzjf+tSB
ziZXRge4vHEYf4GiIJxf2qfAxSQgCecLXsjsic9WgPN/3fNulF6sAuezmETw
nZykAecr8L/luHJNB86/rrTbrarZAM7XeygS2lxuBOf3PTKS2j3VBM7/x5a2
+nW/GZyvFjmZUb3BAs6PeNfCN3GWFZw/a1n3888TbOD8pwvDyls32sH5JU95
nwmkOMD5tdzVZdGxjnA+d7BX0t5sJzhfUUdli3SGM5y/Ry0hcWKlC5xvbCFZ
yNPmCucb3b7zrLnBDc7fOp9ph9AEdzj/wFej93N7PeD8FUkPOvTaPOF8kY/v
a69N9oLzOQS5blb1e8P5jUFt/WYLfOD8a6vqV3xf7Qvnb57SrL51qR+cL7rg
JWPXFn84v0FOd+HaiAA4P/nH4k8zriD4HI9Pf+SPDoTzC8V+KrfeQPDnRl1n
bksIgvN7n+8Sa72P4L/+f+cWW0wwIjw1N/iIPEbw38/q+CifGALnT5UVctn+
EsFfpX3L/WJ+KJzf3LS87uUbBF/ulWpyb0kYIv5mrazS/4zge13Ldg7JD4fz
byrd38nyDcHX2RGevLk4As5PS01be3Mngr9QqPT7//8IPgAqhVqm
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{2., 2.}, {0.001165066493400798, 
   0.001165066493400798}}]], "Output",
 CellChangeTimes->{{3.576004314112846*^9, 3.576004324191671*^9}, 
   3.576006648009224*^9, 3.576006713135703*^9, 3.5760068920022707`*^9, {
   3.576007240508185*^9, 3.5760072618260107`*^9}, 3.576007391042819*^9, 
   3.5760077055948257`*^9, {3.5760077902504187`*^9, 3.5760078531180058`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{{}, {{}, {}, 
      {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
       LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBmIQLRq6dffGbKEDJ+++mh56Re5A/+Piaqfv7Ac0otY8
etMvcUAELM90QOCazfSzf0QPSB+xqpkV9W//rq/7Axf1iBww6X373fHAz/1h
zLO5WCYJH3hv+eufk963/Y5Rf1ruXhM6oLB8758K58/73X4kvbN1FjpwKmer
h9CZD/u57FTWl58SPFD14MEHh6C3+z8KrfvJkSp4QKZJmjmh9+X+1qW7z6nw
CULNe7b/DoN7W/chgQMBIo2/1kU82D9VXrVmhYvAAS/7hyqHL1/bL9Drl9K3
j/+AwqxZx7/3n9m/aX+jxlIx/gOpjlyKL37s2n9Bq+PmvA6+AwxQ0Ml6y72K
j+/AGTebSvu0HfZZVhLOzEt4D9RMeyIYEHbcfo2/WbuuG++BmzsfVk8+dcFe
XTKNYfMnngNTTIRvHuq4av/CPJPj+nKeAz4z9r9R/nzTvkB6krB9Cs+B82rq
Ul0i9+x9fx+LvaHGc2DSShHJF78e2H9oOHr86DvuA4c/3vilev6RvaGbO0fw
bu4DsRW2moJdT+zLJx/Mfd3NDfOv/R/xT4LCCTD+N/vy6YvO3i3jPMCkoPWL
e/Uf+yA7jXlMqzgOFK+2tt+0iMFhTvWOjXPMOQ6IQeLLIbzji5/JO/YDtfMu
7xF7yOxwt9H18O9d7AeW774udkqG1UHqzdo8ransUPPZHP5NvW8rUsF+oG1i
tlW1PLuD/LRJRxgS2Q9MhKQHh8/7bLPs/NgPzL7G/XOZKbfDcvugya4i7Ad4
i4ysLzfxOqy89vCJ8ze2A+ul12y/5M3v8PnFXK+Xj9kOdBul3pmdIODgKNbI
0Xad7YCiY3pn6T8BhxS9734zz7EdcGmo+GvYLujwPyb1wZ3jbAcEdAylz/0X
dJi7f630zENsUP8IObwPPrQzbh/bAQAqC1A2
        "]]}}, {}}, {}}, {{{}, {{}, {}, 
      {RGBColor[0, 0, 1], Dashing[{0, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBmIQLRq6dffGbKED3pWKG4uuyB3of1xc7fSd/cD+5qJ9
hRMkDoiA5ZkOGNc5a+75K3pA+ohVzayof/tVzGMDnvaKHDDpffvd8cDP/cck
dPK7JgsfeG/565+T3rf9Ztd1qmbeEDqgsHzvnwrnz/tPzT8rqOIqdOBUzlYP
oTMf9jMdP9pRd0bwQNWDBx8cgt7ul7iQOV0jXfCATJM0c0Lvy/1qnucrwgQE
oeY92194L7/15BGBAwEijb/WRTzYf+CnjNZHN4EDXvYPVQ5fvrZfc3HDO/HD
/AcUZs06/r3/zH6GLYe/CUjzH0h15FJ88WPX/gShioA7PXwHGKDALLbmQI0Q
34EzbjaV9mk77DkT8kQPLuc9UDPtiWBA2HF7Xd3siPmevAdu7nxYPfnUBfvr
OWX2l7/yHJhiInzzUMdVe8sLrd0LV/Ec8Jmx/43y55v2l4RYz25I4zlwXk1d
qkvknv2TMC6l9xo8ByatFJF88euB/f1VcQoNH7gPHP5445fq+Uf2LJ/sBTbs
4T4QW2GrKdj1xP7+h5Ktr3q4Yf61t1No6NiSAON/s79y9tWprwWcB5gUtH5x
r/5j/9R4lWf6fI4Dxaut7TctYnDgm/M1eK4mxwExSHw5eH1q9199l/1A7bzL
e8QeMjtU79H+UL2C/cDy3dfFTsmwOnRMrMiTamSHms/m8Fm/IXtfEvuBtonZ
VtXy7A4nPuXPn+PFfmAiJD04tFyXyvtmxn5g9jXun8tMuR00Qz/n8PxiO8Bb
ZGR9uYnXgddKoyf1FtuB9dJrtl/y5ndo6Xr75e8xtgPdRql3ZicIOHxNEuN/
sJPtgKJjemfpPwGHa6d/OmRtYDvg0lDx17Bd0CE2tveBy0q2AwI6htLn/gs6
7A6dqb9uMRvUP0IOXuXaCw3msx0AAENeT3s=
        "]]}}, {}}, {}}, {{{}, {{}, {}, 
      {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBmIQLRq6dffGbKEDTVon1hRdkTvQ/7i42uk7+4EykeR/
+RMkDoiA5ZkObPp68NOGv6IHpI9Y1cyK+rf/RgZf6bFekQMmvW+/Ox74ub/l
2bvHvpOFD7y3/PXPSe/b/ouMVSFmN4QOKCzf+6fC+fP+V6/nXJzkInTgVM5W
D6EzH/bX7W8V3Xla8EDVgwcfHILe7mee6CenlSZ4QKZJmjmh9+V+Y9V2R2l+
Qah5z/aX/190zO+wwIEAkcZf6yIe7Df5r/jro4vAAS/7hyqHL1/b/3LGqoOc
+/gPKMyadfx7/5n9VodXRXwS4T+Q6sil+OLHrv36y/Zt3tDKd4ABCsRPzjL0
4uI7cMbNptI+bYc9l2+xRf883gM1054IBoQdt9+7omNXmT3vgZs7H1ZPPnXB
nn1q28M9r3gOTDERvnmo46r9C+boycvm8RzwmbH/jfLnm/aNYjaBtyJ5DpxX
U5fqErln3z6Zg8NNmufApJUiki9+PbBfmHOWjfcR94HDH2/8Uj3/yL4vV86p
ei33gdgKW03Brif2D+0ElP/UcMP8az89sviIcACM/81+bXnFu2NhnAeYFLR+
ca/+Y+/jvStEroHjQPFqa/tNixgceHszzdXZOQ6IQeLLgVX17RqOnewHaudd
3iP2kNnB54X8Hucm9gPLd18XOyXD6mDjvlVnbSQ71Hw2B76+juWxVuwH2iZm
W1XLszs815n4sUyR/cBESHpwCDi2XFuPl/3A7GvcP5eZcjvk2oU+sDvHdoC3
yMj6chOvQ8xMqU9Na9kOrJdes/2SN7+DifvMqXkz2Q50G6XemZ0g4PB9843Z
t7rZDig6pneW/hNwKM9585uvie2AS0PFX8N2QQfbm5yZK6rYDgjoGEqf+y/o
oHWotfFeCRvUP0IOzLeeLzcvYDsAAMg5St0=
        "]]}}, {}}, {}}, {{{}, {{}, {}, 
      {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBmIQLRq6dffGbKED0+Z0BwVfkTvQ/7i42uk7+wF7bivG
5/0SB0TA8kwHrtlJzj/6R/SA9BGrmllR//ZPZovcO6lH5IBJ79vvjgd+7n+7
/8ODxxOFD7y3/PXPSe/bfmUVDq7F14QOKCzf+6fC+fP+KVce3bjvJHTgVM5W
D6EzH/Zbrbyw4u1JwQNVDx58cAh6u593Sudx7xTBAzJN0swJvS/3m7+r89fj
FYSa92y/oevXuWEHBQ4EiDT+WhfxYP89PvXvr5wEDnjZP1Q5fPna/rTkd65v
dvIfUJg16/j3/jP7t3x/9eqcAP+BVEcuxRc/du1fdWjO+d5GvgMMUHBD9USA
DhvfgTNuNpX2aTvsmyaqllfO4j1QM+2JYEDYcfvwo2JO2da8B27ufFg9+dQF
ezP5Sv29z3gOTDERvnmo46r9n5o3KzfP4jngM2P/G+XPN+33tinc/BLKc+C8
mrpUl8g9+73OcRl54jwHJq0UkXzx64H9i9awMud73AcOf7zxS/X8I/uupPOX
96/kPhBbYasp2PXEfllH4Hm/Sm6Yf+0vTWQtKPGB8b/ZB65s/cgVwnmASUHr
F/fqP/aG3tcdP9RyHChebW2/aRGDw/SNhzLDWTkOiEHiy8H5a+m16u3sB2rn
Xd4j9pDZQe8z24sXDewHlu++LnZKhtXhwDZT+coIdqj5bA4ntBf0eliyH2ib
mG1VLc/ukMYmrFCtwH5gIiQ9OFw9E5vqzsN+YPY17p/LTLkdVGyf8805y3aA
t8jI+nITr8OCy7HKrGvZDqyXXrP9kje/g8b/dYIcM9kOdBul3pmdIODgf/Oe
VEs32wFFx/TO0n8CDgtDBbSONLIdcGmo+GvYLujQ+dCqLq2K7YCAjqH0uf+C
Dveqfs5YXMIG9Y+Qw4d5qzKYCtgOAADN2k+a
        "]]}}, {}}, {}}, {{}, {}, 
    {GrayLevel[0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVzH080wkcwHFPv00att9mHsZaFDPk6ejBw6/0UuShBw8hJS5dp/V4Kzp5
iJ2yS+hhHnJqV+mRSXlZKr9vkzJUzrSsnDqyrQedx6WE6/74vD7/vecn7dmQ
rKejoxP2vf/vf6Ln9s2dKMzflzr8oZUJVr4bXzFTUCDM09JjHzPh87vnusd3
oKDq4Pk9amFCbaA8fHsyCiXs/YLzUibYTj/RWCWgMPOauyDqHhMI3GZr/gYU
PoUnxTSJmfA0uIYfvRQFsXMYFAmZkIDwI6cIKIRrbIu8tjHhH61odUcZBaTK
5bmEzzawnlOQpfSkgI+x811qsQ0oiF3XVc/IIH2/V81ysYF7CflO6T+S4WIA
+6d6sAbWGONNyTdTONh7wylvkzXkM4zIQfNN4fLwhZV9QwxglF5nTwabwFDN
+FrvHAYIStVtrCPG4CRGRW02DGgsMKTFXCaB1PFCoKrWCloJD1XE3rkQrNJx
9Q+xglm5x58NtLnwNlRCEqot4fOZPIODvkbQ59LvdyDdEjpe8YZv7J8DsnXK
W0V0S0iiB+WOlhgC/VNAhudVC7C99HRm8QMi8LwIPgo/C8Ab/tXXThKguUno
V680Bxt8QiydR4C90rJTjF3mELNGOEiMQsDEMGVRE9EcotoY0k2HDMCk9Ya1
powO6ZWRR8UifWB5BM9SFtEhU+ugSO/RA9u+Ovs0mRkErHzTHj2jC78ZFIqS
481ggOoZcs1DF7q5SxILtTSoWbL01nSKDizL8jG7c5IGvItBfHzBLK5Dummd
Yk+DVa8j6nlF03j9y7EdGx9Q4ay+4w+rX07h7XZXDTsiqLCycxvf0vkrPk6X
VCzXoFB18bm6t3wSNw49fWAkFwVBErnsvlqL5031ixzNUWCzszcXrp/Ahz7O
oJU3KWApjB7b2jyGpxzjpaHhFCgY0irWUkfx1ZXx7ib9ZLgX2vHENXsYp2op
rqsyyKDkvFgQJxzC/VuXZiNkMojbs7q9t7/Hb0k2O+tFmgLn/oQ9dZUaR72m
ln/53QSuHZmlcfoHcI+qjG8zdcZwLuoXRzvJG9ztbPmKDA0J3L9M1FWffol/
4le4GBmTYLfmXAxNKcefS9frlXjNBc6QjzDTth0v54u2VnCNwOy6iTyDeBdn
+SiSa0/OAXVqwrOvRYfw3AOXxn0fG8KItyQpMaoBIxuwubJZIvyhGmibcZNh
W44WCrY5EEF7J3Fhv7oLyz9R7JG2mQCNs485pgZyrLPlbfFoLAEyAxe5+bLk
mMX04hFuNAGQv74uE8bIscs7+8SJawlA05xat0Ymx1qCnFxCVhDAnf4ove5a
N6ar3+LAXEgA7n5OV84uBfZr6qT1w48IuEmKXojzFdiDmpDD/u8QGJ/W9vZe
UmBzVJWvJIMIpOc3q737FFhpZGB5dR8CgvPx0+/DX2AN7ifNSzoRuPL0BDvC
rQcb/eCEptxGgEubcMkO7cGW2WXte1v73Y/b5Fm9owfLievq3FKNQMOggz9R
1INRZGmFEVUIPPoGEXcpSsy1qoXkV/rdD3CI1bgosdS/LbgNpxEIO1awxWyN
EmuicdvdixHopsb9vCdHiYXlogJ7AQKlsbC7olKJnWlMfnc+D4H4c/Y8WaMS
6x2RBDFyEWANHj+kVSgxO0fSlTNZCAxwxjLtxpTYzq0JRPJhBP4DWA5j2Q==

      "]]}}, {{}, {}, 
    {GrayLevel[0], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQXfHp4VXHAz/3C3pN5Vo6ne1Ah8KHN3nHfsD50/3+
Mc858x3O148RlH2/7iuc3+YzaYL61s9wvh4/yxPvox/h/HlsN10uhb2H8+O3
tJZdz3oN5wscla87p/Uczk+tmu06998jOL/o1dPmXJN7cP7vpfkaLYevwvlM
NxNzE46chvMdPl4V0l+0A85nKYjkXnFyoT2Mv3zWit0HxI7A+ceXJfGtaL0E
53/cpmvvcOMWnM8/T6F5oe9DOH/r3z0Chs1P4fw702tffi14CecLnw94c2LT
Wzj/ssFC8aQPH+D8GPE1cVWPP8H5eT4Hds1k+ArnH5yXtufyz28IvpzMPcWX
P+B8j7e3RMqZfsP5gje1Pz77/gfOTxRuexQr/h/OX7/3e2XJNAYHGN+/oTTU
vZ8Rzjd+Vb5bdi4TnL89ybmEcSYznC9UJGb7vp8Fzt+okTfhwWxWOP/D2z6z
+1PZ4PziKJP0h0vY4fxpVxe9+rCQA86f8FyijmsWJ5x/boHwHPXlXHD+mozr
PEGLuBHy1+U5GjbxwPnH7+YL79jLC+cnfuoo/LuND863X6cW5XaUH86P23PM
61yCAJzP8ba2oO4Ogh9SWB69IUkQ4Z+aq+9f3Efw13xtDjyrKgTnp+cZbd6Y
jeADANZRcOw=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{-4.605170185988091, -7.707357763013939},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-6.907755278982137, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-6.214608098422191, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.002\"", 0.002, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-5.298317366548036, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.605170185988092, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.912023005428146, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.2039728043259361`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {-4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {-2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.2039728043259361`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{-4.605170185988091, 
       FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["0.1`", TraditionalForm]}, {0., 
       FormBox["1", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{0.18420680743952367`, 0.18420680743952367`}, {
   0.0972880730145872, 0.0972880730145872}},
  Ticks->{{{-4.605170185988091, 
      FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
      FormBox["0.1`", TraditionalForm]}, {0., 
      FormBox["1", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {-3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.659260036932778, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.407945608651872, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.203972804325936, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659905, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.35667494393873245`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782616`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{-6.907755278982137, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-6.214608098422191, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.002\"", 0.002, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-5.298317366548036, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.605170185988092, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.912023005428146, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-5.809142990314028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.521460917862246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.115995809754082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.961845129926823, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.8283137373023015`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.710530701645918, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.6592600369327783`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.4079456086518722`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.2039728043259361`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.576004314112846*^9, 3.576004324191671*^9}, 
   3.576006648009224*^9, 3.576006713135703*^9, 3.5760068920022707`*^9, {
   3.576007240508185*^9, 3.5760072618260107`*^9}, 3.576007391042819*^9, 
   3.5760077055948257`*^9, {3.5760077902504187`*^9, 3.5760078533346853`*^9}}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5760006543159018`*^9, 3.576000662015435*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.576004036462232*^9, 3.576004036526396*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "VARYING", " ", "THE", " ", "NUMBER", " ", "OF", " ", "LETHAL", " ", 
    "MUTATIONS"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.576008256293284*^9, 3.5760082762838182`*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.576008277813559*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "Calculations", " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Base", " ", "equations"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"f1", "=", 
     RowBox[{"s1", "  ", "-", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "s1"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", "l1"}], " ", "r1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"s1", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}]}], " ", "+", " ", 
         RowBox[{"s2", " ", "m"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f2", "=", 
     RowBox[{"s2", "  ", "-", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "s2"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", "l2"}], " ", "r2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"s2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}]}], " ", "+", " ", 
         RowBox[{"s1", " ", "m"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "system", " ", "giving", " ", "the", " ", "exact", " ", "result"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sol", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"f1", "\[Equal]", "0"}], ",", 
         RowBox[{"f2", "\[Equal]", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s1", ",", "s2"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Equation", " ", "17", " ", "of", " ", 
     RowBox[{"Sup", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"s12", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"al", "+", 
            RowBox[{"Sqrt", "[", 
             RowBox[{
              RowBox[{"al", "^", "2"}], "+", 
              RowBox[{"4", " ", "m", " ", 
               RowBox[{"s21", "/", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}]}]}], "]"}]}], ")"}], "/", 
          "2"}], ")"}], "/.", 
        RowBox[{"al", "\[Rule]", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"1", "/", 
            RowBox[{"(", 
             RowBox[{"r1", " ", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "m"}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"l1", "+", "1"}], ")"}]}]}], ")"}]}], "-", 
           RowBox[{"m", " ", 
            RowBox[{"s21", "/", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}]}]}], ")"}]}]}], ")"}], "/.", 
      RowBox[{"s21", "\[Rule]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r2", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], "^", 
             RowBox[{"(", 
              RowBox[{"l2", "+", "1"}], ")"}]}]}], "-", "1"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"r2", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", "m"}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"l2", "+", "1"}], ")"}]}]}], ")"}]}], ")"}]}]}]}], ";"}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq18temp", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Simplify", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Normal", "[", 
           RowBox[{"Series", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", "s1test", ")"}], "/.", 
              RowBox[{"L", "\[Rule]", "l1"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"s2", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}], 
          ")"}], " ", "/.", 
         RowBox[{
          SqrtBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}], "l1"], " ", "r1"}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}], "l1"], " ", "m", " ", 
               "r1"}]}], ")"}], "2"]], "->", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], 
              RowBox[{"l1", "+", "1"}]], " ", "r1"}]}], ")"}]}]}], "]"}], 
       ")"}], "/.", 
      RowBox[{"s2", "->", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r2", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], "^", 
             RowBox[{"(", 
              RowBox[{"l2", "+", "1"}], ")"}]}]}], "-", "1"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"r2", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", "m"}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"l2", "+", "1"}], ")"}]}]}], ")"}]}], ")"}]}]}]}], ";"}],
    " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq18", "=", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], 
        RowBox[{
         RowBox[{"-", "1"}], "+", "l1", "-", "l2"}]], " ", "m", " ", "r1", 
       " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], 
           RowBox[{"1", "+", "l2"}]], " ", "r2"}]}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], 
           RowBox[{"1", "+", "l1"}]], " ", "r1"}]}], ")"}], " ", "r2"}]]}], 
    ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "using", " ", "the", " ", "result", " ", "of", " ", "Eq18", " ", 
      "temp"}], ",", " ", 
     RowBox[{
      RowBox[{"we", " ", "make", " ", "the", " ", "simplification", " ", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], "^", 
             RowBox[{"(", 
              RowBox[{"l", "+", "1"}], ")"}]}], " ", "r1"}]}], ")"}], "^", 
         "2"}], "]"}]}], " ", "=", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"l", "+", "1"}], ")"}]}], " ", "r1"}]}], ")"}], " ", "to",
        " ", "obtain", " ", "Eq18"}]}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{"Simplify", "[", 
       RowBox[{"D", "[", 
        RowBox[{"Eq18", ",", "m"}], "]"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], 
        RowBox[{
         RowBox[{"-", "2"}], "+", "l1", "-", "l2"}]], " ", "r1", " ", 
       RowBox[{"ds12dl", " ", "/", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "m"}], ")"}], 
               RowBox[{"1", "+", "l1"}]], " ", "r1"}]}], ")"}], "2"], " ", 
          "r2"}], ")"}]}]}]}], "]"}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "This", " ", "expression", " ", "is", " ", "equal", " ", "to", " ", 
     RowBox[{"zero", ":", " ", 
      RowBox[{"ds12dl", " ", "\[Equal]", 
       RowBox[{
       "0", " ", "is", " ", "equivalent", " ", "to", " ", "the", " ", 
        "derivative", " ", "of", " ", "Eq18"}], " ", "\[Equal]", " ", 
       "0"}]}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ds12dl", "=", 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"l2", "-", "l1"}], ")"}], " ", "m"}], "-", 
      RowBox[{"r1", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"m", 
          RowBox[{"(", 
           RowBox[{"l2", "+", "1"}], ")"}]}]}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"l1", "+", "1"}], ")"}]}]}], "-", 
      RowBox[{"r2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"m", " ", 
          RowBox[{"(", 
           RowBox[{"l1", "+", "1"}], ")"}]}]}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"l2", "+", "1"}], ")"}]}]}], "+", 
      RowBox[{"r1", " ", "r2", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"l1", "+", "l2", "+", "2"}], ")"}]}]}]}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Equation", " ", "19", " ", "of", " ", 
     RowBox[{"Sup", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ds12dlx", "=", 
     RowBox[{"1", "+", "x2", "-", "x1", "-", 
      RowBox[{"r1", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "x2"}], ")"}], " ", 
       RowBox[{"Exp", "[", 
        RowBox[{"-", "x1"}], "]"}]}], "-", 
      RowBox[{"r2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "x1"}], ")"}], " ", 
       RowBox[{"Exp", "[", 
        RowBox[{"-", "x2"}], "]"}]}], "+", 
      RowBox[{"r1", " ", "r2", "  ", 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "x1"}], "-", "x2"}], "]"}]}]}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Equation", " ", "20", " ", "of", " ", 
     RowBox[{"Sup", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"If", " ", "L1"}], ">>", "L2"}], ",", " ", 
     RowBox[{
      RowBox[{"then", " ", "x1"}], ">>", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x2", ".", " ", "Then"}], " ", "ds12dlx", " ", "is", " ", 
         "approximately", " ", "equal", " ", "to", " ", "1"}], "-", "x1", "-", 
        RowBox[{"r1", " ", 
         RowBox[{"Exp", "[", 
          RowBox[{"-", "x1"}], "]"}]}], "-", 
        RowBox[{"r2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "x1"}], ")"}], " ", 
         RowBox[{"Exp", "[", 
          RowBox[{"-", "x2"}], "]"}]}], "+", 
        RowBox[{"r1", " ", "r2", "  ", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "x1"}], "-", "x2"}], "]"}]}]}], " ", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "x1", "-", 
          RowBox[{"r1", " ", 
           RowBox[{"Exp", "[", 
            RowBox[{"-", "x1"}], "]"}]}]}], ")"}], " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"r2", " ", 
            RowBox[{"Exp", "[", 
             RowBox[{"-", "x2"}], "]"}]}]}], ")"}], "."}]}]}]}]}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqsimp1", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "x1"}], ")"}], " ", "-", 
      RowBox[{"r1", " ", 
       RowBox[{"Exp", "[", 
        RowBox[{"-", "x1"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"If", " ", "L1", 
      RowBox[{"<<", "L2"}]}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"then", " ", "x1", 
        RowBox[{
         RowBox[{"<<", "x2"}], ".", " ", "Then"}], " ", "ds12dlx", " ", "is", 
        " ", "approximately", " ", "equal", " ", "to", " ", "1"}], "+", "x2", 
       "-", 
       RowBox[{"r1", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "x2"}], ")"}], " ", 
        RowBox[{"Exp", "[", 
         RowBox[{"-", "x1"}], "]"}]}], "-", 
       RowBox[{"r2", "  ", 
        RowBox[{"Exp", "[", 
         RowBox[{"-", "x2"}], "]"}]}], "+", 
       RowBox[{"r1", " ", "r2", "  ", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", "x1"}], "-", "x2"}], "]"}]}]}], " ", "=", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "+", "x2"}], ")"}], " ", "-", 
         RowBox[{"r2", "  ", 
          RowBox[{"Exp", "[", 
           RowBox[{"-", "x2"}], "]"}]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"r1", " ", 
          RowBox[{"Exp", "[", 
           RowBox[{"-", "x1"}], "]"}]}]}], ")"}]}]}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqsimp2", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "x2"}], ")"}], " ", "-", 
      RowBox[{"r2", "  ", 
       RowBox[{"Exp", "[", 
        RowBox[{"-", "x2"}], "]"}]}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.5760082789348392`*^9, 3.576008734283696*^9, {3.5760091883833303`*^9, 
   3.576009196769308*^9}, {3.576009363589726*^9, 3.57600941591335*^9}, {
   3.576065554296463*^9, 3.576065556028007*^9}, {3.576066296156602*^9, 
   3.576066308943536*^9}, {3.57607027923909*^9, 3.576070327821074*^9}, {
   3.576090139145873*^9, 3.576090207596891*^9}, {3.576090641668557*^9, 
   3.576090703316991*^9}, {3.576090800839381*^9, 3.576090837579569*^9}, {
   3.576090892215864*^9, 3.576090911806761*^9}, {3.576249691436943*^9, 
   3.576249825682226*^9}, {3.576249863927588*^9, 3.5762498733104486`*^9}, {
   3.576249914392577*^9, 3.5762499329562883`*^9}, 3.576250474769226*^9, {
   3.576250710569368*^9, 3.5762507485467443`*^9}, {3.5762512748145514`*^9, 
   3.576251276705488*^9}, {3.576251753226365*^9, 3.576251834157612*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"eqsimp2", "/.", 
      RowBox[{"r2", "\[Rule]", "10"}]}], ")"}], "\[Equal]", "0"}], ",", 
   "x2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"eqsimp2", "/.", 
      RowBox[{"r2", "\[Rule]", "1.5"}]}], ")"}], "\[Equal]", "0"}], ",", 
   "x2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"eqsimp1", "/.", 
      RowBox[{"r1", "\[Rule]", "0.5"}]}], ")"}], "\[Equal]", "0"}], ",", 
   "x1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"eqsimp1", "/.", 
      RowBox[{"r1", "\[Rule]", "0.9"}]}], ")"}], "\[Equal]", "0"}], ",", 
   "x1"}], "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.576070332843999*^9, 3.5760703461208467`*^9}, {
   3.576071263011056*^9, 3.576071282952128*^9}, {3.576071321307897*^9, 
   3.57607139861967*^9}, {3.5760758535996532`*^9, 3.576075874990775*^9}, 
   3.5760895111226873`*^9, {3.576090217495578*^9, 3.576090222935041*^9}, {
   3.576090718720215*^9, 3.576090796564196*^9}, {3.5762453752155933`*^9, 
   3.576245386179051*^9}, {3.576248279961319*^9, 3.576248312025867*^9}, {
   3.576249498351529*^9, 3.576249547539214*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NSolve", "::", "ifun"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Inverse functions are being used by \[NoBreak]\\!\\(NSolve\
\\)\[NoBreak], so some solutions may not be found; use Reduce for complete \
solution information. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NSolve\\\", ButtonNote -> \\\"NSolve::ifun\\\"]\\)\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576248427415759*^9, 3.5762495502358522`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x2", "\[Rule]", "1.4191633399120043`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.576070346886818*^9, 3.576071196744837*^9, 3.5760712455270844`*^9, {
   3.576071327130662*^9, 3.576071352697125*^9}, 3.576071384403607*^9, 
   3.576075877095079*^9, 3.5760895117768173`*^9, 3.576090316636735*^9, 
   3.576090722892655*^9, {3.576090774328197*^9, 3.576090790527533*^9}, {
   3.576245379843223*^9, 3.576245386538869*^9}, 3.576248312649806*^9, 
   3.576248427419197*^9, 3.5762495502413816`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NSolve", "::", "ifun"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Inverse functions are being used by \[NoBreak]\\!\\(NSolve\
\\)\[NoBreak], so some solutions may not be found; use Reduce for complete \
solution information. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NSolve\\\", ButtonNote -> \\\"NSolve::ifun\\\"]\\)\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576248427415759*^9, 3.576249550305434*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x2", "\[Rule]", "0.2126538695820518`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.576070346886818*^9, 3.576071196744837*^9, 3.5760712455270844`*^9, {
   3.576071327130662*^9, 3.576071352697125*^9}, 3.576071384403607*^9, 
   3.576075877095079*^9, 3.5760895117768173`*^9, 3.576090316636735*^9, 
   3.576090722892655*^9, {3.576090774328197*^9, 3.576090790527533*^9}, {
   3.576245379843223*^9, 3.576245386538869*^9}, 3.576248312649806*^9, 
   3.576248427419197*^9, 3.576249550312088*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NSolve", "::", "ifun"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Inverse functions are being used by \[NoBreak]\\!\\(NSolve\
\\)\[NoBreak], so some solutions may not be found; use Reduce for complete \
solution information. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NSolve\\\", ButtonNote -> \\\"NSolve::ifun\\\"]\\)\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576248427415759*^9, 3.576249550424499*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x1", "\[Rule]", 
     RowBox[{"-", "1.6783469900166605`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x1", "\[Rule]", "0.7680390470134656`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.576070346886818*^9, 3.576071196744837*^9, 3.5760712455270844`*^9, {
   3.576071327130662*^9, 3.576071352697125*^9}, 3.576071384403607*^9, 
   3.576075877095079*^9, 3.5760895117768173`*^9, 3.576090316636735*^9, 
   3.576090722892655*^9, {3.576090774328197*^9, 3.576090790527533*^9}, {
   3.576245379843223*^9, 3.576245386538869*^9}, 3.576248312649806*^9, 
   3.576248427419197*^9, 3.576249550427628*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NSolve", "::", "ifun"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Inverse functions are being used by \[NoBreak]\\!\\(NSolve\
\\)\[NoBreak], so some solutions may not be found; use Reduce for complete \
solution information. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NSolve\\\", ButtonNote -> \\\"NSolve::ifun\\\"]\\)\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576248427415759*^9, 3.576249550539229*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x1", "\[Rule]", 
     RowBox[{"-", "0.5318116083896121`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x1", "\[Rule]", "0.39165871526656815`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.576070346886818*^9, 3.576071196744837*^9, 3.5760712455270844`*^9, {
   3.576071327130662*^9, 3.576071352697125*^9}, 3.576071384403607*^9, 
   3.576075877095079*^9, 3.5760895117768173`*^9, 3.576090316636735*^9, 
   3.576090722892655*^9, {3.576090774328197*^9, 3.576090790527533*^9}, {
   3.576245379843223*^9, 3.576245386538869*^9}, 3.576248312649806*^9, 
   3.576248427419197*^9, 3.576249550542081*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Middle", " ", "pannel", " ", "of", " ", 
     RowBox[{"Sup", ".", " ", "figure"}], " ", "2"}], ",", " ", 
    RowBox[{
    "which", " ", "is", " ", "also", " ", "figure", " ", "3", " ", "of", " ", 
     "main", " ", "text", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
       "taking", " ", "only", " ", "the", " ", "black", " ", "lines", " ", 
        "and", " ", "the", " ", "red", " ", "lines"}], ",", " ", 
       RowBox[{
       "and", " ", "coloring", " ", "the", " ", "black", " ", "lines", " ", 
        "according", " ", "to", " ", "the", " ", "regime"}]}], ")"}]}]}], " ",
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"r1l", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fnlocal", "=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ds12dlx", "/.", 
         RowBox[{"x1", "\[Rule]", 
          RowBox[{"(", 
           RowBox[{"m", " ", 
            RowBox[{"(", 
             RowBox[{"l1", "+", "1"}], ")"}]}], ")"}]}]}], "/.", 
        RowBox[{"x2", "\[Rule]", 
         RowBox[{"(", 
          RowBox[{"m", " ", 
           RowBox[{"(", 
            RowBox[{"l2", "+", "1"}], ")"}]}], ")"}]}]}], "/.", 
       RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
      RowBox[{"r2", "\[Rule]", "r2l"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"point4", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.1"}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point4", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point4", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{"m", "/.", "test"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point4", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point4", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{"m", "/.", "test"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point4", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point4", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{"m", "/.", "test"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point4", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point4", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fnlocal", "=", 
     RowBox[{
      RowBox[{"ds12dl", "/.", 
       RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
      RowBox[{"r2", "\[Rule]", "r2l"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"point3", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point4", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j"}], 
                 "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point3", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point3", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point4", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point3", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point3", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point4", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point3", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point3", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point4", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190", "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point3", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point3", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fnlocal", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"s12", "/.", 
         RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
        RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"point2", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point3", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j"}], 
                 "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point2", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point2", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point3", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point2", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point2", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point3", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point2", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point2", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point3", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190", "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point2", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point2", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fnlocal", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"s1", "/.", 
           RowBox[{"sol", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
         RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
        RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"point1", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point2", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j"}], 
                 "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point1", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point1", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", "j", ",", 
               RowBox[{"Re", "[", 
                RowBox[{"m", "/.", "test"}], "]"}]}], "}"}], "}"}]}], 
           "]"}]}]}]}], "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point2", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point1", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point1", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"Re", "[", 
                RowBox[{"m", "/.", "test"}], "]"}]}], "}"}], "}"}]}], 
           "]"}]}]}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point2", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point1", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point1", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", "j", ",", 
               RowBox[{"Re", "[", 
                RowBox[{"m", "/.", "test"}], "]"}]}], "}"}], "}"}]}], 
           "]"}]}]}]}], "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point2", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190", "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point1", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point1", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"Re", "[", 
                RowBox[{"m", "/.", "test"}], "]"}]}], "}"}], "}"}]}], 
           "]"}]}]}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"liste", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.8"}], ",", 
       RowBox[{"-", "1.4"}], ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "0.6"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", "point1", "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", "Red"}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}], ",", 
       RowBox[{"ContourLabels", "\[Rule]", "All"}]}], "]"}], ",", 
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", "point2", "]"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"Purple", ",", "Dashed"}], "}"}], "}"}]}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}]}], "]"}], ",", 
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", "point3", "]"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"Blue", ",", "Dotted"}], "}"}], "}"}]}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}]}], "]"}], ",", 
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", "point4", "]"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"Green", ",", "DotDashed"}], "}"}], "}"}]}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}]}], "]"}], ",", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", 
        RowBox[{"Min", "[", 
         RowBox[{
          RowBox[{"0.768", "/", 
           RowBox[{"10", "^", "y1"}]}], ",", 
          RowBox[{"1.419", "/", 
           RowBox[{"10", "^", "y2"}]}]}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"y1", ",", "0", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y2", ",", "0", ",", "2"}], "}"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", "Black"}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}], ",", 
       RowBox[{"ContourLabels", "\[Rule]", "All"}]}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.5760087376812696`*^9, {3.576008770196473*^9, 3.57600879594984*^9}, {
   3.5760092078313503`*^9, 3.576009291507906*^9}, {3.5762491119653*^9, 
   3.57624913960455*^9}, {3.57624963353955*^9, 3.576249636834998*^9}, {
   3.5762506666831493`*^9, 3.576250672279826*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindRoot", "::", "lstol"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The line search decreased the step size to within \
tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find \
a sufficient decrease in the merit function. You may need more than \
\[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \
meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/lstol\\\", ButtonNote -> \
\\\"FindRoot::lstol\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5760088258951063`*^9, 3.5760090433256617`*^9, 
  3.57624937670418*^9, 3.5762497333516083`*^9, 3.576250965858943*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindRoot", "::", "lstol"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The line search decreased the step size to within \
tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find \
a sufficient decrease in the merit function. You may need more than \
\[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \
meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/lstol\\\", ButtonNote -> \
\\\"FindRoot::lstol\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5760088258951063`*^9, 3.5760090433256617`*^9, 
  3.57624937670418*^9, 3.5762497333516083`*^9, 3.57625097217927*^9}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJyFmHtUznkex6Ow5F7GjBiXRSPEVEx0+PyGyFgr95TrFklrardYjMgMhQnL
mmHiEJFLNTthRYqNVi65JDGEUo/uenp4uv6qx9qzv8/3d37v5+zZ55/veedz
vj7n9ftcv/19g2ctb21hYfG6lYXFf87/9TOtj5lh4/6IWDc/9txvvyOftP+u
E/r9hCSvukUlQrecWht6uKRM6PF311lbW1eq942ubuhd8gbu1wv9359B6PB8
+1yrhzVCb6rdV/xVbL3qT5rn6faxjap9/6dDmxybVH8epaZMD20Wuq9/WkRE
RIvQGw+tDescalLtK+yz9rm/B38sJOTCGk/mpf27TmjmxZp5sWZe4j6Fl/Z+
PWn9MQjNvFgzL+GPwkvYK7yEPwov1syLNfMS9gov4CNh3CAX1ngyL9bMizXz
Ys28xD0KL+29etL6YxCaebFmXsIfhZewV3gJfxRerJkXa+Yl7BVewEfCvMK4
QS7af1dPbXzpIL50EF86iC8dxJcO4ksH8aWD+NJBfOkgvnQQXzqILx3Elw7i
S/CRsO5gXmHcIBfWeDIv1sxL3Kfw0t6vJ60/BqGZF2vmJfxReAl7hZfwR+HF
mnmxZl7CXuEFfCSsy1h3MK8wbpALazyZl7hP4aW9X09afwxCMy/WzEv4o/AS
9gov4YfCizXzYs28hL3CC/hI2LewLmPdwbzCuEEurPFkXtr79aT1xyA082LN
vIQ/Ci9hr/AS/ii8WDMv1sxL2Cu8gI9k1texb2FdxrqDeYVxg1z4Pjy53mv8
MQgt6r2iRb1nf7jesz3Xe/aH672iRb1XtKj3bM/1XstHwrkH+zr2LazLWHcw
rzBukIv2fvXU9kc99Ec99Ec99Ec99Ec99Ec99Ec99Ec99EfBR2K/LDQ/A8wd
BuirBrM+hnUa6xDmmVkcASc8tfOqgbTzqoG086qBtPOqgbTzqoG086qBtPOq
gbTzquAj4dyMcyHOPdjXsW9hXca6g3mFcYNcWOPJvIQ/Ci9hp/AS/ii8WDMv
1sxL2Cu8gI+EewXOzTgX4tyDfR37FtZlrDuYVxg3yIU1nsxL2Cu8hD8KL9bM
izXzEvYKL+Aj4d6FewXOzTgX4tyDfR37FtZlrDuYVxg3yEX4A6eYV9kfnlcV
LeZVRYt5le15XtXykXAvxb0L9wqcm3EuxLkH+zr2LazLWHcwrzBukIuwh1Pk
o6JFPipa5CPbcz5q+Ui4t+NeinsX7hU4N+NciHMP9nXsW1iXse5gXmHcIBfh
D5xiXlW0mFfZjudVLR8J3zVwb8e9FPcu3Ctwbsa5EOce7OvYt7AuY93BvMK4
QS6s8WRewl7hBXwkfPfBdw3c23Evxb0L9wqcm3EuxLkH+zr2LazLWHcwrzBu
kAtrPJkX8JHwXQzfffBdA/d23Etx78K9AudmnAtx7sG+jn0L6zLWHcwrjBvk
IuzhZF5w8g/fEfGdDN+B8J0D93jcU3EPwz1DYl6s/88chH0e+xjWaaxDmGcY
R4JT0I1uOXn7s8hukc+RA0UXaIlNoXtPSsd3RYvObUZXRS3IU+tcr7zEk1fU
vSA7Ji4z0LlB6D21I667N5uo+5NDwc/uZ4u/F6dmPp2/O4ciR9QdDhpuoE7S
yD9aht+niQ2Fgy07NYj/t0POsi4+DuqeMevW1my7Ng2UeDG45fGAK+S3Ke/C
wloTjU14saBpxBOz91hPz2c7+laaaJlPzrOEKQX068M3R8ck6unOhmmuH3m9
pK5jS6x/eKrOlWs67nDr8Ujd+6ZbdL+2JreeCjx2Za6uLVLrbePE1n2LCik4
4O2OdmuraI+HPj74+6dka//PF98VmWjenBCny48KzPZIJ0P1waRnJmq3c2qu
73Dz9zt92LjMwrPqXv7R2KUnrY998G/BoK6VrYpFfq7IivcK+raQXEZWFU9/
oNbFqwP73nt300RrTRN0MZN0lHdsXHTh0XqqnDI0pDpafU/iuPZbvyJ44eRy
8j9zNuPNijKat7fPxf4FOuqdOqDToAulwi5s4qRJf/IuFefmzc4Tzu03f68b
usQ12c2/nnblBg47PLWYuv3UPyclVa3TvdfX3311wUReeyti91lUkIfVJ3Ep
l65T8urgkOZ75eK73XW+GOblW06xq50/nmx6ThYddr4J3VJGi1PcQtq6qHN9
9OkxcTFHC2lWkfPmSI9ywTnKuGrn9y7lZNt4dqhlYoHqp811N92geuoZ0H51
5MQyOv+sJTjtlNo3sob83HvNcRO9/O152u5aIeK1MfzwgGmzy8l767QzPjbq
HhEesSTQrqCOnOPfLT+SXEFb7kg+nvvUvlO1+JBt/B4TZTjmWdbEVFJIufNn
o9LrRBz5Lm12qtpTR43X507wufuG4uY11wZuUvvUoN2xuvUbTbR477F/hT2q
ot80dTz608o6EVerW3UZMXfsB53R9/2Ab/R0a+Rrh6hAE+3yX1Waf6PKrM/9
vL76h5SVJur898IuCYNr6JPOmdtdfxdHf+6ws22Jnbqfll6b7NqvZw3N3LQ9
on19LiW5bXY9uLyaHv4+O9JOrqUiP7v0aGt1fw1Z++vjy21qqNxmVK+4vAJ6
uanX50GNRhFvwwN7FCe8MVLZrecbDHeKKbJH/NeOxUYRF0GOXg3fvjDS8o6x
UQfyS8imcEJT7H2j+C6rfMd18083UujcdsNu760Qee58ZFGDR14teXf8NOVv
F4zqe94vt2PszxgpIvaEb/uNlXTEzelYaLSeEhw3Jl8O+BCPcnZORrRRcPYb
MHN29ygj5VpOLSuaU0VXC03xzd8Yzd4bRkVefu0590O+mbL6pKw00o0l/Vr+
UKengU8unbXyNgq7AwFNB7Y6qPv/Mr8HwTGX3hGfurB3V28Oeyv6ZVqSbfHX
483356tpyVvS/Vpof3ifqo8/r6evKtL1AVIz/XhizJeD7tWZzb2zL2a8DCxr
osF5IVlHj8rCn2wH24SoBzJNcnQpdNp2jh5bpX7hflcW3/vTXaa5j+/I9CLR
2qXR7gnlR8/cGn5TFt/3dNr5ddU3ZPrydvqpoNmvyKp0g83O67L4vqmdFs54
mi7TtmMH2nn3e03e+cflqknqXtd2zuy9eQUNFOffbt9pV5ksbQ+7BVyRxfc/
84877XenyiSNnjbwx16ltG6dNCR/ZoOYDyzvRbh3vySLeGibOeta52SZsq58
ev6XXeWUtGfJiu3nZLN99bORkp/HkQbyqEj4bn6STBlfOCw6GFtJQxNP3b+V
KIvvP+RQ6ZSV8TJVH69x6hpSRTdfjd3/8KQsvv+05+tM40/I1LBu/l8dOlaT
09jiW8+zZfF9g7qUV3dbL9OrJ3VSt1HvqNWM8w+3zZHFdzzR2t4qvrmREhNq
/3K4pY6W3nzbz6Ws0ez9gL8f5if2y38DsIajbw==
    "], {{{}, {}, {}, {}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], LineBox[{364, 363, 362, 368}]},
        RowBox[{"-", "0.6`"}]],
       Annotation[#, -0.6, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], 
         LineBox[{365, 369, 371, 374, 378, 376, 383, 381, 380, 386, 388, 393, 
          397, 396, 395, 394, 392, 405, 407, 406, 403, 402, 401, 411}]},
        RowBox[{"-", "1"}]],
       Annotation[#, -1, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], 
         LineBox[{366, 370, 372, 377, 379, 385, 387, 391, 398, 404, 408, 412, 
          413, 416, 417, 420, 421, 428, 437, 449, 448, 446, 445, 443, 442, 
          441, 439, 438, 436, 435, 434, 433, 432, 431, 430, 429, 427, 426, 
          425, 447}]},
        RowBox[{"-", "1.4`"}]],
       Annotation[#, -1.4, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], 
         LineBox[{367, 373, 375, 382, 384, 389, 390, 399, 400, 409, 410, 414, 
          415, 418, 419, 423, 422, 424, 440, 444, 450, 451, 453, 452, 454, 
          467, 464, 463, 471, 481, 480, 479, 478, 455, 476, 475, 474, 473, 
          472, 470, 469, 468, 466, 465, 462, 461, 460, 459, 458, 457, 456, 
          477}]},
        RowBox[{"-", "1.8`"}]],
       Annotation[#, -1.8, "Tooltip"]& ], {}, {}}, {InsetBox[
       RowBox[{"-", "1.8`"}], 482], InsetBox[
       RowBox[{"-", "1.4`"}], 483], InsetBox[
       RowBox[{"-", "1"}], 484]}}], GraphicsComplexBox[CompressedData["
1:eJyFmHtUznkex6thMc20bhNTMVHLEMaGxv3zMGKyLlGUg9xDljGckfu9YdaQ
kQwNpgtb07odyxrKpUIjRTfkGvOQSj0ennqqp3pae/b3+fzO793Zs/3zPe98
fPuc1+9z/Xaa/dXEeXY2NjbPbG1s/nP+rx/rqp9924zII9Z1d8bv6/rdE9L+
u150w/BTAebpRaLr40OXHyoqFj00c6W9vf0r9T6v19UuRWVwv0H0f3+Mojc8
6ZrfJKdC9PrKiBc+sVWqP8njE1rE1qj2nQo8anvVqv7kJZ0ft7xO9CfByWFh
YfWi1/0UutZhuVW1L+16M2JEA/hjo0MurPFkXtrf60UzL9bMizXzkvsUXtr7
DaT1xyiaebFmXuKPwkvsFV7ij8KLNfNizbzEXuEFfHQYN8iFNZ7MizXzYs28
WDMvuUfhpb3XQFp/jKKZF2vmJf4ovMRe4SX+KLxYMy/WzEvsFV7AR4d5hXGD
XLT/rp7a+NJDfOkhvvQQX3qILz3Elx7iSw/xpYf40kN86SG+9BBfeogvPcSX
8NFh3cG8wrhBLqzxZF6smZfcp/DS3m8grT9G0cyLNfMSfxReYq/wEn8UXqyZ
F2vmJfYKL+Cjw7qMdQfzCuMGubDGk3nJfQov7f0G0vpjFM28WDMv8UfhJfYK
L/FD4cWaebFmXmKv8AI+OuxbWJex7mBeYdwgF9Z4Mi/t/QbS+mMUzbxYMy/x
R+El9gov8UfhxZp5sWZeYq/wAj66Rn0d+xbWZaw7mFcYN8iF78OT673GH6No
qfeKlnrP/nC9Z3uu9+wP13tFS71XtNR7tud6r+Wjw7kH+zr2LazLWHcwrzBu
kIv2fvXU9kcD9EcD9EcD9EcD9EcD9EcD9EcD9EcD9Efho2O/bDQ/Rpg7jNBX
jY36GNZprEOYZ43iCDjhqZ1XjaSdV42knVeNpJ1XjaSdV42knVeNpJ1XjaSd
V4WPDudmnAtx7sG+jn0L6zLWHcwrjBvkwhpP5iX+KLzETuEl/ii8WDMv1sxL
7BVewEeHewXOzTgX4tyDfR37FtZlrDuYVxg3yIU1nsxL7BVe4o/CizXzYs28
xF7hBXx0uHfhXoFzM86FOPdgX8e+hXUZ6w7mFcYNchF/4JR5lf3heVXRMq8q
WuZVtud5VctHh3sp7l24V+DcjHMhzj3Y17FvYV3GuoN5hXGDXMQeTslHRUs+
Klryke05H7V8dLi3416KexfuFTg341yIcw/2dexbWJex7mBeYdwgF/EHTplX
FS3zKtvxvKrlo8N3DdzbcS/FvQv3CpybcS7EuQf7OvYtrMtYdzCvMG6QC2s8
mZfYK7yAjw7fffBdA/d23Etx78K9AudmnAtx7sG+jn0L6zLWHcwrjBvkwhpP
5gV8dPguhu8++K6Bezvupbh34V6BczPOhTj3YF/HvoV1GesO5hXGDXIReziZ
F5z8g++I+E6G70D4zoF7PO6puIfhnqFjXqz/zxyEfR77GNZprEOYZxhHwmnm
58czj9ZcpwGr3H6x7XCZyvpdjJ4x6zy+K9r0HfRe/5Q9Bere9PJT15cn1L1g
dk69m6l3tei41u6xT2qttCjR2upow235veeJcbump+WSyXPv0p6uRlobOKvz
mpO3KLJg29cb3q+Wv/vgYUyGXUd1z/AOirHPsqum3Ppljn5/uUjfpAyIMVRY
aXhbv30Z0+80eo9NSzSXJpVayWtxbt2WFoV0tu+cmoRoA3WovzJs8tzHFJRy
Z8bAu+pceWjrbVPoBXXv+611nPOY3CpKPB0fsyzrd8mHQH1q6qyPn9HTpN5B
n98op38Mz83z3F1AWYeOJLX73Ur2/exs7s8vbLRH3t9QEzL+vpW6pQc9i2na
+P3ueUhtz+n71b3cv7ZXytPDVVRhPffgUOlzyc8BV967tWjLM3I2uPxUdEut
i1v9Umoi0q00NmrvqYlf6snR0a5u8bv/7xxgPpP7g/qexHE96Ef9zhk9S6il
ad6SC1OKqexUZPomo57yzmV175L4UuyKDCuS8nxfyvm1S35Lz+2N3+sObD5c
4ja3iuJ3zbftOOYF+T1KHeafpNbpbKPtiK1nrdR69q6352tL6Fs6YzT/MY26
De4Zf/BGiXy3SxuSz4ydWkK56dlRY9weUWXm1h5Zm4opbUZoUG9Pda5PG+GS
+WDlMwrts6ZbzrAS4Rz/YHzD/c9KKCV3o9vmqEKxD4+yPC90qyL65V7KryOK
KfLJ4Q1T4tW+Ebt4SKZTnJW2tP3G0bNfqcTr87lmD9tJJWSacFDv3ErdI2b6
2szr+dhMqfYrUqPOldKy+nyjYY/ad662Hvxqwm4rFSTklU6LeUXDz8b0b3XJ
LHGUPNqlzUfhZko50S7ws6wy8l9yt/aD9WqfKrw9K9ttnZWu3BzYZEduOe23
Xbyler5Z4urYyY/nRPQ30+Lswu4HVhmofHJRiyEhVlru1Kbm2qXyRn0u8Uhk
u7kLrWSKt75Z1qWCvs/p4j144lEa6nPcmOis7qePnWefKXSsoPuGoaujq/LJ
9vjM+VHBr6kwfm9kr+pKGlQ0qOVke3V/zb5//eTSphVUNfLLPq4PC2mky9rj
rjUmibfm5niXqWUmOtg5bmVyxgvy7dM/7c5zk8RFaR+HENdHJuo8Me9xxpMi
euKQljLklkm+S+XqRVPrL5toTmbfA1E/lEqeb804+fBgQSWldqsK/eSsSbiv
mHhjV0KCieq+uBwwcN0rClg0Lq55lIFOhqf4TFtgpRZn3zQddsAknHs8HuWw
+W8mcvKpfd1mUjnVdwxLX7Da1Oi9Ibev/sM6/3d8j7Wv/GihiRyetvoxwmwg
n1Pu3YMCTWLX7s4jq293df/f431hfNm5t8Rnyxk5l9p5vJF+eS8y/E+dhjTe
n69fLfVfOaeeKkLKyx/2rqJRowZsGqurowsRp72OZZobzb0uUZ1WfVpcSxlO
r2buj7aIP/2+z7wadttCL74ocwzcfpq+zW02eGimRb73yK+69LidYaHgKX+2
6eJyl479Nd97VbpFvu/K9iOal1yzUJFzt+Eb/J7Svbxx4WGpFvm+oR7d9+Vc
sZBDcO2aYNfn1OFas5Cb3upeF+600XFbYTUNDtjmV9LfQgtCzi+ZddEi39/D
fZvdtqR3f993c3S000vyCuj1fvyEapkP3H3SPOx/tUg8dN6xfWGzf1koetLo
gvM7S2hC4vKGjactjfbVo0Ge5VWHqmnnrst3fU9Z6Lvy6B1xsa9o8VP3tinH
LOo+u8TRe1aihX6Oakhov6ycwtvtDrvxd4s677gVHPY6YqHAN7Ghnh+8poI/
eH14N9si3ze5l/v6Jqve6bFtmgzq95ZKg5fWrPa3yHfct67V6D11NTRtmyHi
t3oz5f7Tku9arO7D/wZOYpFs
    "], {{{}, {}, {}, {}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], 
         LineBox[{364, 363, 362, 368}]},
        RowBox[{"-", "0.6`"}]],
       Annotation[#, -0.6, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], 
         LineBox[{365, 369, 371, 374, 378, 376, 383, 381, 380, 386, 388, 393, 
          397, 396, 395, 394, 392, 405, 407, 406, 403, 402, 401, 411}]},
        RowBox[{"-", "1"}]],
       Annotation[#, -1, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], 
         LineBox[{366, 370, 372, 377, 379, 385, 387, 391, 398, 404, 408, 412, 
          413, 416, 417, 420, 421, 428, 437, 449, 448, 446, 445, 443, 442, 
          441, 439, 438, 436, 435, 434, 433, 432, 431, 430, 429, 427, 426, 
          425, 447}]},
        RowBox[{"-", "1.4`"}]],
       Annotation[#, -1.4, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], 
         LineBox[{367, 373, 375, 382, 384, 389, 390, 399, 400, 409, 410, 414, 
          415, 418, 419, 423, 422, 424, 440, 444, 450, 451, 453, 452, 454, 
          467, 464, 463, 471, 481, 480, 479, 478, 455, 476, 475, 474, 473, 
          472, 470, 469, 468, 466, 465, 462, 461, 460, 459, 458, 457, 456, 
          477}]},
        RowBox[{"-", "1.8`"}]],
       Annotation[#, -1.8, "Tooltip"]& ], {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJyFmHlQVFcWxhtl3IgyijGiAmKMTqCihERjonKaCVGjAwguURFRQ4zLqBgU
4m6VImbijrsiGaLglmjivhsH3AKugFtcoBFp0OZhIzQNtOPUvHNevY+aGv65
9cHxeur3znq9x08P/6qBwWAocDIY/nP+rx/H7JTBbkG3iHVtbuiGrt89JP3f
TaJf/fXAF5WRRaLr0uNjk4uKRQdkfevi4lKq3dezzNah6BncbxH93x9F9MKH
XXOcb1SIXvAy6cnnqVWaP6dCdzVNrdbsve/41nSr0fy5dfJ4SGytaK8JpxIS
EupEz98aP69FrEOzL+n6e1LQK/DHYEQurPFkXvrfm0QzL9bMizXzkvtUXvr7
LaT3RxHNvFgzL/FH5SX2Ki/xR+XFmnmxZl5ir/ICPkaMG+TCGk/mxZp5sWZe
rJmX3KPy0t9rIb0/imjmxZp5iT8qL7FXeYk/Ki/WzIs18xJ7lRfwMWJeYdwg
F/3ftVMfXyaILxPElwniywTxZYL4MkF8mSC+TBBfJogvE8SXCeLLBPFlgvgS
PkasO5hXGDfIhTWezIs185L7VF76+y2k90cRzbxYMy/xR+Ul9iov8UflxZp5
sWZeYq/yAj5GrMtYdzCvMG6QC2s8mZfcp/LS328hvT+KaObFmnmJPyovsVd5
iR8qL9bMizXzEnuVF/AxYt/Cuox1B/MK4wa5sMaTeenvt5DeH0U082LNvMQf
lZfYq7zEH5UXa+bFmnmJvcoL+Bjr9XXsW1iXse5gXmHcIBe+D0+u9zp/FNFS
71Ut9Z794XrP9lzv2R+u96qWeq9qqfdsz/Vez8eIcw/2dexbWJex7mBeYdwg
F/392qnvjxbojxbojxbojxbojxbojxbojxbojxboj8LHyH4ZdD8KzB0K9FWl
Xh/DOo11CPOsXhwBJzz186pC+nlVIf28qpB+XlVIP68qpJ9XFdLPqwrp51Xh
Y8S5GedCnHuwr2PfwrqMdQfzCuMGubDGk3mJPyovsVN5iT8qL9bMizXzEnuV
F/Ax4l6BczPOhTj3YF/HvoV1GesO5hXGDXJhjSfzEnuVl/ij8mLNvFgzL7FX
eQEfI+5duFfg3IxzIc492Nexb2FdxrqDeYVxg1zEHzhlXmV/eF5VtcyrqpZ5
le15XtXzMeJeinsX7hU4N+NciHMP9nXsW1iXse5gXmHcIBexh1PyUdWSj6qW
fGR7zkc9HyPu7biX4t6FewXOzTgX4tyDfR37FtZlrDuYVxg3yEX8gVPmVVXL
vMp2PK/q+RjxXQP3dtxLce/CvQLnZpwLce7Bvo59C+sy1h3MK4wb5MIaT+Yl
9iov4GPEdx9818C9HfdS3Ltwr8C5GedCnHuwr2PfwrqMdQfzCuMGubDGk3kB
HyO+i+G7D75r4N6OeynuXbhX4NyMcyHOPdjXsW9hXca6g3mFcYNcxB5O5gUn
/+A7Ir6T4TsQvnPgHo97Ku5huGcYmRfr/zMHYZ/HPoZ1GusQ5hnGkXCqDVy7
+94Hv5Hh131Vg4Zm0ganr9vljTiI74qG5o6FTYOjb4tudGSXe9BObS+Y261j
ZI/uNtGf+Qw/k1TjoNFZ3rZvRmbL7zfO3ek+p+YmbVl4JrhLK4XequvT9sHj
q3Rmesf1ZY1t8v/uGTnlRtGftT1j5ZD7NeEGG92/2To1bPppCvM+lrG8wkE+
eRN/Lp+WU+89tqrC6hxS4qDg2svZL1IfUvtpvhmPV1io6LDN1j/+AaXsjen8
8KY2V664+5FnpyRt73vqumDzO9eqaL8T7ZscWyD5MLNNZNODfR7R7mmPvpwQ
baHsG4dfpG+8QxvOpLVZke+gF3GtPt5zuP77p6vnkZdn7zgo/MSCxYGnC+rN
sce23WoSF/GMht+97WQO1t55nu0IzzR9VEQnS24uKTGYxT6si+V87pbX/n9y
6MqAtELJ3/LFU2deW5pPW6/+pe7Dq1rdXPvxnP6FFxxU9vWeuDHBJno2YNOY
O5u1uXlVizELNlwpppxopWG7KO39qTSgpOWiRsU0vFHirjHDC+nnPr1Sd898
Kv9uWV6/Dq18nsrJv+8ccPZiaFQVje05a93fQp9QYt/T/eaf0Op2txnTEg8f
ctBFyixaeMFMrUeVuw7OvkA39g5yf2O7Wb6jKf3c/fHeZjp/qbRnzZAHNK3g
Up+J84upu1PWguD3tDl/nO3tD0PGP6bUJ8rcda3Nwv3Rs0Zuy13M1CllR4bB
7ZHYt99ysDd5VpFzu8J1v/UvJr/e55PGpGl9ZKhHlXu3VAeNW310TluXEonf
dM84vyajzJQbcTtwYTNtr8jdmd/yRF4lKXGzIpaeKKGC9ZFDb6zR+tCriKDe
A1Y5qPD5lsV/Tyulpt94+o8/UilxFe3snX4hsZLurx7o1fD6MzpO0Rey52l9
q7LroVd1cx0UM+n76YlXn5O/5+ps13GVEmcZSwLTovwqqfesKx+siLdQdVVd
o9aTHFSaf93df+fzen3vZLOBgzwmOshpxPWsNp4VdPqaUnIuMo3yg8xZUW7a
vpo9f9eyqBYV1OJPzaKXuOTSvin+3a9NKaPUgwFuPpaX5BZ7fpu5gbbP9vzu
yg+Xaq1kbZbst9D8iFJGnYpZpVglnpJnhPoUmKw08OmnNf0zn1DJl/3iO/xh
lbgIHzs40+OWlZqG3A1bZiqi04vfjBmZaZXvsverisO9jlrJ//GJnodWlEje
38yoCP/22kv6vjh5bfN9VuE+t8H9cEqxUkLcjU33FpUSuf9y/rNtFvJLjGlf
PsFBwz8tm/dqlVU4h/tM/rxgkZUaB+bQyBHPaZTHcvfKGGu994fg7SXzNg1x
UPy8LYMDoqx0znIsaU21heIrl8UcD7GKXVC+Y/PbnbT3gOSxyev9DrwgPlOT
Gy/K8SqX/vm7Ict5gn/9fTrBZXPzP8bWkeuL98v6vo77QxVeXj8F1NI1v26+
Hhcq683Bl3pF91hmqqGxS0bnTEq2iz9b070+mZRlpwn/CN5R2+kgDRv2vu3d
y3b53p1cZk/df9FOvsOWn7rnn0fPHSO7js+wy/cNO9LfmnneTken/KtyfcRj
WuOkxE05a5fvm7S0b5O9p+2Utz9n48EuhRRxIOHy7EBtz6tzG3n2XJ6N5uS+
e/wo2Sl0RUWfoBN27X3oxyt3Rh+zU/bxlMQsr6fkO3XyLw2DbTIv7OplPldy
yC7xsDK6YtHdX+00v+2bkZ5rzRRjP9U7cr+93v667QuXiTPW2KjHht5veP1k
J49/ThoU9zoP12y6dHvzbrt8/8K5SbN80+1kqd7ba96s56Tcun9g+492+f7D
HJPTa3+wU7znvtgA1zIaENUmISPbLt83onOnnOqZdnIuKKy+FPiCcspXlncM
s8t3nJ30XoitqpqWtoxzeadRFWX5Zr+VVKjtx/8GzOiQ9A==
    
    "], {{{}, {}, {}, {}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Dashing[{0, Small}], 
         LineBox[{364, 363, 362, 368}]},
        RowBox[{"-", "0.6`"}]],
       Annotation[#, -0.6, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Dashing[{0, Small}], 
         LineBox[{365, 369, 371, 374, 378, 376, 383, 381, 380, 386, 390, 388, 
          387, 394, 398, 397, 396, 395, 406, 408, 407, 404, 403, 402, 412}]},
        RowBox[{"-", "1"}]],
       Annotation[#, -1, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Dashing[{0, Small}], 
         LineBox[{366, 370, 372, 377, 379, 385, 389, 393, 399, 405, 409, 413, 
          414, 417, 418, 421, 422, 429, 438, 450, 449, 447, 446, 444, 443, 
          442, 440, 439, 437, 436, 435, 434, 433, 432, 431, 430, 428, 427, 
          426, 448}]},
        RowBox[{"-", "1.4`"}]],
       Annotation[#, -1.4, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Dashing[{0, Small}], 
         LineBox[{367, 373, 375, 382, 384, 391, 392, 400, 401, 410, 411, 415, 
          416, 419, 420, 424, 423, 425, 441, 445, 451, 452, 454, 453, 455, 
          468, 465, 464, 472, 482, 481, 480, 479, 456, 477, 476, 475, 474, 
          473, 471, 470, 469, 467, 466, 463, 462, 461, 460, 459, 458, 457, 
          478}]},
        RowBox[{"-", "1.8`"}]],
       Annotation[#, -1.8, "Tooltip"]& ], {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJyFmHlU1NcVx0FRY4yaJnElNQc9glsUcGkTNfenuCFV1IhLjKXVKko0uESx
RhOrcYtiWnHfWNSiBZVTcEEQwR3FiDtxAWSGHYbBwQEGGWpOf/f+zu87p6fz
zzvfmevj+nn33eW5zQqZNKeJk5PTC2cnp1/X//Wx/zViwvsj7hPr1w/9d3ls
ziH97wbRjcPjp1pnFopuiAlderCwWPRnmStatWpVpu03qLL2w8Jy2N8k+r8f
s+jvczweuNytFv3dq/AC3+gazZ8U/2Mto+s0e7fs3vV96zV/7icnjV/6WvRH
c1PWr1/fIHr1/tBVbZbaNftSj1vhIxrBHycFubDGlXnpvzeIZl6smRdr5iX7
qbz0+5tI749ZNPNizbzEH5WX2Ku8xB+VF2vmxZp5ib3KC/goGDfIhTWuzIs1
82LNvFgzL9lH5aXf10R6f8yimRdr5iX+qLzEXuUl/qi8WDMv1sxL7FVewEfB
e4Vxg1z0v2urPr4MEF8GiC8DxJcB4ssA8WWA+DJAfBkgvgwQXwaILwPElwHi
ywDxJXwUzDt4rzBukAtrXJkXa+Yl+6m89PubSO+PWTTzYs28xB+Vl9irvMQf
lRdr5sWaeYm9ygv4KJiXMe/gvcK4QS6scWVesp/KS7+/ifT+mEUzL9bMS/xR
eYm9ykv8UHmxZl6smZfYq7yAj4J1C/My5h28Vxg3yIU1rsxLv7+J9P6YRTMv
1sxL/FF5ib3KS/xRebFmXqyZl9irvICP4lDXsW5hXsa8g/cK4wa58H64cr7X
+WMWLfle1ZLv2R/O92zP+Z794Xyvasn3qpZ8z/ac7/V8FOx7sK5j3cK8jHkH
7xXGDXLR76+t+vpogvpogvpogvpogvpogvpogvpogvpogvoofBT2y0n3MUPf
YYa6anaoY5inMQ/hPXOII+CEq75fNZO+XzWTvl81k75fNZO+XzWTvl81k75f
NZO+XxU+CvbN2Bdi34N1HesW5mXMO3ivMG6QC2tcmZf4o/ISO5WX+KPyYs28
WDMvsVd5AR8F5wrsm7EvxL4H6zrWLczLmHfwXmHcIBfWuDIvsVd5iT8qL9bM
izXzEnuVF/BRcO7CuQL7ZuwLse/Buo51C/My5h28Vxg3yEX8gVX6VfaH+1VV
S7+qaulX2Z77VT0fBedSnLtwrsC+GftC7HuwrmPdwryMeQfvFcYNchF7WOU+
qlruo6rlPrI930c9HwXndpxLce7CuQL7ZuwLse/Buo51C/My5h28Vxg3yEX8
gVX6VVVLv8p23K/q+Sj4roFzO86lOHfhXIF9M/aF2PdgXce6hXkZ8w7eK4wb
5MIaV+Yl9iov4KPguw++a+DcjnMpzl04V2DfjH0h9j1Y17FuYV7GvIP3CuMG
ubDGlXkBHwXfxfDdB981cG7HuRTnLpwrsG/GvhD7HqzrWLcwL2PewXuFcYNc
xB5W5gUrf/AdEd/J8B0I3zlwjsc5FecwnDMU5sX6//RBWOexjmGexjyE9wzj
SDhVLLc0T85Mo7ar/fZ9lXyVUqPIEPrFGXxXdNp0bPqcqCa/iB51bF15Xr42
F+y/UDQjbkyt6JnjX/U90qyRpnW/3q/jrZvyfWlh7obnHe7RVWPIktZ+Znpm
/eL08exM+mSaeUV511r5u8YJAT5HR2pzxrjSmKAOnWppRP2Kifa5SfTO9qXf
rGu0U1ZJypPHyY8d3mOvbxrhOa7aTj9+mzXIbWsudfIc2xB+zkT96tMyxhif
kXfHZR9UlWt9ZaLn6YSbVdrctzZ/w4VORTW0bcHbvdNz8uU+7HD65JbZ+IKm
WYKa5y2roOptbkMLnLMpNu7TyQvL7eRywhQW55rnMEc2zPyDKTbfTmGXclf1
dTPQ7+4u9U9J0PrY1hf/tKJxXzl5tQtPHzpSe+d5tbbqH+E9C8k9PT3z9tsl
1PJJfHHANaPDu8eshunLAv5dQxEdfe+4T3pBE/q1PfQ6W8ubiktql+QsO2U/
urB6c4723nT1RPLB7CfFtCx8zWy/kzl0/M6cNsP7GB366uCtXSbuOfPGrmlU
0t88tfepAz8H9118o4g6lq88PCnaSLZ1ewu8phTJv3Mdc+Lx/g5FsvL3G9zD
XJ1Da6go6rdZv7gX0APn2g96XdXy+qmYQ37LUu3UfnRmf99VJbQ4NLKiq0sm
+UTO8V05q8Th/ezTUdfi3yt+ToEDji++8FMxRTzOcY0fps0BP0Yu/ueZATW0
0udK77YexXQkPMnPFK/VjckLgx88iLXT1Itzmrhnlki8Bg/2ybeOKqGxPn95
ub2bNkdsyht273CZlcqKh3/fP6KUPBvN0cMOaHVnzegXpvt77FQzPLSj/+4y
GjwzrWDybavEUUWr/CcZ+6y0cMnDLUfOldPsHT1Hf7hRq1P3gvbHLFhvp8Sn
uedfPK6g3Kl7LT0WWyWuFpX4h380zEp5/wo9f3WDiepP9chIXGynhZHtBh0I
dpzvU8JaWbe/+X3vgRk/v/xNNV0asilJyY+hCcNWnVzSQptPH9nvJ/g3qaae
u2qXXvB4SDnGfXVFsyopannZSb/GVzRqjve7rjUWiZ+Bjb5Zz80Wmkx5jaMb
cinwzkCvKqNF4iNwdWTuzmwLzfK1XnJOLaC/785Ku5xlkXNuuX5rj9TrFpp3
alCLH0oKyad8d/PA8xY5l+Q+d5WYOAt5BzXLcdpcKvd8dqePq3Y+f0UxNXVH
wqIswj3/rRU7n+yw0N5ztWlPfyij7r2a7b64xURp6V5n57/5//cbP2F+pw0W
4Wzre+PMx6EWavHN4aijMypo7a3EzplBFof3hoIbkVvMX9qpqsOIusApFlLG
T7/m89pEzY2DhiwaZRE7L/fv/N3ba/P/o8o71l1xL4nXLdVuqb16Vkm9nHRx
yoJFUxzn59N3q5zT5zXQpk4Bc5t711DitnfO3lde04DnecqKLKtD31v+x7kL
i4vqKWN8ZUjnvTbx5+b8LmHV122U/pln9iKnRHJOjW9x5YpNzvtZt6/bDr5s
oxm9j3gP/vwRTbT6D2m4aJPznVE47/NJqTba9a3fwneD8qjrT6+c30q2yfmO
/bJdxO+TbDTPpXvwnn5Gmui6PMZZ0ea64X4Fydsf1dLqgS7BT8lGf44LOZt/
2ibnXxZ7vUd5go2u3PZq2sajiOJXdtnRyr9W+oOmnbee2BJvk3gw19a1/+qk
jRZ8fzBh6J4S8rnZzMM51uYwr7Y2BiTVbaqlQSP7r0k4ZqPZow+HpcWWvfk7
a6YNO2qT8y9uZg++HG0j32Vn2nZbWUH3anbOGxthk/MvTay8veeAjYJyQlJm
v19JG93n18zMsMn5PvMIfF4ZYqMbfQJqQya+pOjzV772HmeTc7y9oKh5hqWO
zue/F3GxdQ0ZN0YfWvtCm4f/A1unm9c=
    "], {{{}, {}, {}, {}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
         LineBox[{364, 363, 362, 368}]},
        RowBox[{"-", "0.6`"}]],
       Annotation[#, -0.6, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
         LineBox[{365, 369, 371, 374, 378, 376, 383, 381, 380, 386, 389, 388, 
          387, 396, 400, 399, 398, 397, 394, 393, 406, 405, 404, 411}]},
        RowBox[{"-", "1"}]],
       Annotation[#, -1, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
         LineBox[{366, 370, 372, 377, 379, 385, 390, 395, 401, 407, 408, 412, 
          413, 416, 417, 420, 421, 428, 437, 449, 448, 446, 445, 443, 442, 
          441, 439, 438, 436, 435, 434, 433, 432, 431, 430, 429, 427, 426, 
          425, 447}]},
        RowBox[{"-", "1.4`"}]],
       Annotation[#, -1.4, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
         LineBox[{367, 373, 375, 382, 384, 391, 392, 402, 403, 409, 410, 414, 
          415, 418, 419, 423, 422, 424, 440, 444, 450, 451, 453, 452, 454, 
          467, 464, 463, 471, 481, 480, 479, 478, 455, 476, 475, 474, 473, 
          472, 470, 469, 468, 466, 465, 462, 461, 460, 459, 458, 457, 456, 
          477}]},
        RowBox[{"-", "1.8`"}]],
       Annotation[#, -1.8, "Tooltip"]& ], {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJx9XQV0VMfXD1IcijsUK06LQ6Fwg0tx+EMhUCxQoFgpVtwqOAR3SoMVDxAk
uAQJkixJIMQ37tndJBvdfOm8d++cuVs+Due889t5b2auzLWZ91J/yrwR0wo7
ODi8LOng8O+V/3NpNKDg/yNQsYFwoPucf/+zdiNhrTma8EfxQwJhW/6//1II
7xTPmwk3/Be6pBG+LvrLINxPDJhFOED0n0P4JzHBPML6P8dP0fnfVwNhpFdt
NxJGehEjvYiRXsRIL2KkFzHSixjpRYz0IkZ6mdwcPyXH/6ZTXlV6DYxeA6PX
wOg1MHoNjF4Do9fA6DUweg2MXgOj18DotdfT/5ajpJNfkV7ESC9ipBcx0osY
6UWM9CJGehEjvYiRXsRIL1t3jp9ah/+tpwY7utR2eVXla2TyNTL5Gpl8jUy+
RiZfI5OvkcnXyORrZPK1tzP/vQ4NdnLjdCHmV6QXMdKLGOlFjPQiRnoRI72I
kV7ESC+zm46fsqP/bWcMdnrJ5cbpQsyvSC9ipBcx0osY6UWM9CJGehEjvcwv
OH7KT/y3HTXYrTuul1xunC7E/Ir0IkZ6ESO9iJFexEgvYqSX+T3HT/lBpJfb
TW5X+LrjesnlxulCzK9IL2KkFzHSixjpRYz0Mr/u+Ck/j/Ryv8DtJrcrfN1x
veRy43Qh5lekFzHSixjpRYz0srjF8VNxDNLL/R73C9xucrvC1x3XSy43Thdi
fkV6ESO9iJFeFpc5fipOQ3q5X+d+j/sFbje5XeHrjusllxunCzG/Ir2IkV4W
dzp+Kg5Fenncwv0693vcL3C7ye0KX3dcL7ncOF2I+RXpZXG146fibKSXx2U8
buF+nfs97he43eR2ha87rpdcbpwuxPyK9H4qj0B6VWz4VFzG4xbu17nf436B
201uV/i643rJ5cbpcuRXbb5uulz8dfl56feH0e/iNpdI+r2/eDCOfp8tHkyi
37WriX7X6Law39Ppd40PVvp9h+g4m35vIMbJpd+1edkA549XFJxKl423O/Ln
VLox3vQH3o/abqP5YL84T2z/1JXPg/frwP7h/DgdOB6Xq0r3Cbpq/eR/8nd+
Ve2UDa6Jazbrx43sAPan6YUvk8cJwtiO/XziPn195PD7HDkdjF2OnD7tZ292
n8TYH9LHx1GxF60LVR5hLD/xZ/oVSL/j/dgfriPVvsh21a6E0f3YH647HIe3
ox3C3/F+7A/XKY7D29Fu4e94v9qficbh7WjnVDthov7QDqjjyHa0i/g73o/9
od1Q437ZrsaLFrof+0M7g+PwdrS76jhW6g/tgBqHynY1frHS/dgfrmMch7fj
OsTf8X7sD9cnjsPbVf/sZVfnQjlrP3vCXHFDMNNjWV9AuarrOIL1I/NxlCP2
K6aVH0P98PwV5Yb9anxNpH54vodyUvtNpX54foRywX61fqR+8XwC5YD9avdJ
/8Xjb1UuOK70bzxeRbliv9p9Ul94fIfyxX7RTmI/PB5C/cB+tfts9Jxq3zyY
XD30eQUQRjmiHeVYPN4onDDKUe1HYjE99yjCKEfsh2ONz/GEUY7YD8ca35IJ
oxyxH441PpkIoxyxH441PloIq3I02WGN/xmEVTla7LAm70zCqhwz7DD6McQo
Z7UfifuK+eURRv1Q7YUX80cGsheoL6q/8WdxZSDdp+pLmN0V7QDeh/qi2p1I
5uei6T7UFzUejWP+JoHuQ31R/Ym8qnWFRGYHTHZXtAN4n2oHLHZXtb5hZvpi
f0U7oNohK9kLflXzaSvTl2y7K9ob1Q7JfBb5ptYZzUx+biyucCN6EeN4iHnc
o/oBL3oeMT6PWPU//vQ8YnwesZpPyPvVuMdCWI33Zdyk+jELYbwfMdKpxmte
dnEVj4sQq34izi7OUeMG+7xLfd5kJxfOZ843zhdON/bPMeotjod6ieOp/tKf
MI6HGMdDrMYDVrZerXZ5JI6H/lC1UzamPzZmX2w0HmJVv2zEV8QqH23EB3V8
M9ld1W5Lf63NO5/pu8xXsD+tH5RvPtlP9HuIkS7V7plYnGUif8PjWZyvGidG
0/NqHJSgj2dmdh7/ybxJXX8ODqr9eMT0EPdJLNTO8nEH1b48YvbJwOyTgdkn
A7NPPC8LZPYpkK2jQCavQDaekY1nZOMZmX5FM32KZvZL7o+p+ZuDA2Kkg9sb
HhcjVtezbEd/qK4vmXeh/LGd73f8/3I02PGR84nz4VN5GGJej1ftC+4/Wdl+
k5XGV9uNzF5Fs/WRwPxvip094vVyXL84PmIcX203MvsRzexNAmE1T7KxfSMb
iztsbN9Btqt5r4XFlRZW3/cg+8T47IjrB+MH9Ad4v3Y9p9uVfIoX8X6014jV
383MPptpfjxOwvFuiPtC9N9jyK5hu0pXPuUDap0gjuybWmeQ8bua1yM/0V9Z
dDueSfJGPqF9Fd0W5DmI1XWQwOociZSHIOb7oRiXon3Whk2l+Wn8kvkqj1NV
O2BhfLaPM5CPKAfkM/an5h1pxA9e9+V1EPR/eMX78Yr3I8b7eL6D+on8RTkj
Rr1CfdH4F0v6js9rfHQn/UX9Roz5La5bTX/fk/6hXHg8gPG31h5E46PfxvtR
LxFr48STfiJ/UT8Ra1fpz/GK+qPqEdZpUknuuN5wvhi3oJ5ivIF6rPEtgvnT
CFrvGK8gRn5pv/sRv1Cf0B6pdl+uN40fGXZ+CfmH88X+VPsu+cP1CuWCV5Q3
3odY3Q87QfEd2rP/zlO4P5b2Atenuu7keuX7LGr9NJ3FnbJOiFitV+Yw/gTQ
+lDrEem0HtT6gQfzV+4Un6K9U/OeABaXWuzsJddfbR4yP0Y9QHr5VbVrMj5F
elQ9kvvnqN8of8QoX7QPml5HsvlZqV0j20jjob1T4458Vp8y29VNeN1Cjbfl
+uR5INoHTc64n8rzD3u7quYPsbo+h+jXWKIP17NqXzKYXExMf0x05fvWyBd1
Ppks70f7628XbyBGO4SYxcmOLP9wxHkiZnGrI+qRirNY/JVF+o7rH9u1+Z9j
7S6E1fhd+g+cN/oPlIc2Pz7eR+avAu0w8k31dwEsX8Y405PiLm123oT5PpGa
D0p7gfqJ8lDPO0WQfUI/wP0Lrn+cD64X9BeI1fphPvWPGOeNGOer9pdKGOeB
GO0JYtVO5rM4KJ/FayZar9pVYu0+XA+IzWz9+TL6Amn+SBdifp4Q54vyQ6y1
Gxh9AYx/gYRVf55P/h4xyk/lX7SdfUOsnmvMpzgWsXoOMJ/4qPZnZvdbmHzT
CKNdUsfLYPN1Z/x6wNaXG8MG4r+6bsx2fgnto9aexuKzdBbH2SgOwfHQbyBG
/UG7xeMULe5Ffy6x1m8u6Z3qjyRW/WKmfj+et5JYGzfTrq6N8lDjMOSHxa7u
jOsd/QHOF+2qJhcPol9bF9d0OeSzfAvX6TuKH7Ed/Sv2j3aU1y3Vc4luTL88
7OI+9dyXGzs/4cHm5cX004v6x3WK/WO7es7Mi51f8Gb1Rn8mD38WPwZQ/9iu
nv/wp/7xftX/hVH/iLF/tBPqeZUwdu4sjPrH+9V910jqHzH2j3YG+8d27B8x
9o/3q/FyHFufcUxf46l/bMf+EWP/6j5iOsVnaj0lifpHO4f9Y7u6HpKof34/
X++I1XxM7kPyOFet66SxvCmX4kf1nKKF5acWNv90Nv90u31JXBd8H0itu9jv
86j72vb7OOq5OPt9G2xHveD7NGq9wn7fBds/te/C86dP5Q1ob/CK61aNPwMI
47pAjHqMGPUOMeqJGp/KeFa1Lw6OKBfEqn3Jp3mivcX9BqxvIMb7tbwim+wx
zl+ddxhhzB+0/mX+r+ZBviQH7Tk/Fv9aKf9U40Qb5ZE4fxxPm180y8+iqd6i
1meCyL9r9ART/qPqTT7lq+gvEaNf1+RjofwL9RfXgcbHQFZHCqY8Qo3/PIgv
eL8a97lRPIjPq/GuB61jbEc9RYzzw3WI80Os7gd52p0L4fuearznRfPB5xHj
82q9yZPtf9mfW1LrwbKuovrDRNIrdf8rgOUrvjQe10PUY/V8r8zPeT0N1wH2
j+3YP687ol1S6xWRTH7ynBSuJzU+iWDxRwTpBfaHGPUf5a7mSR52+QX3l9iO
4yFW/U4itXOszSeVxddyv1rdTzrB8jIPhr3oecTqPognO7/gTVjVIxNh9XyH
L92v1nflfqdaRwij51V9NZNeIFb128zir3SiX80TPAnj/Ph+rVo/iSCMclLr
84msfzOodQ4zs3uynqX5D2n/0b5ye4/6p9q3R8xePWLxsIMDO6/roD5vYM8b
2HoJZO1GZn/k+3jIF8Rc35A/OE91X8GbtRsIq3G33P9BjPqgPm8kjHxU5RPN
9gPiCaP9UP1PMmHMr9X53SL5afN7R/4W1wNi5BPGGYjV85cxlG/hc4ixjq3W
u+T+mjae3D9T42kr5Z/a71YWp0p+IN3q+1TJrP6SQljz38msXpPC8ksLxUcY
B2nyD6L4AOnA+Wj0xFOejVit18v6j/Z8PGGkh9d5+H4Nv2r9JrH6g5nVB7KI
31hfV/OFdOK3xr90Vg+Q59PUfWW5H4P5gvr+Tw7tz2njyfhIPedqY/uB8rwM
xq+Yx2N8iljT43xmbzHeCyM9Vf26PE+o1qvjSH6IVf8i91PV/NLK9Ej6PZUO
bxYve9N8tfn72O2Hqed50gir+xEmlgdLrPrXaNJbfm5U3V/NJP1B/Wb1cYf/
9lv0/oqDuo92gtVfHhF9qp/LZf4hh9rV5w30vOoXc6ld3Wf1ZfWZQHpe9aO5
1I7PY7s6vpGeV/1uLrWr5ywjWP0mmp5X/XQutePzqh2W+1z4vOrXc6kdn+ft
6jmWHNJTfg5etc+yHqCeB8th8ZXcH8L7VTuTw+KdR6we4EHrBeWo5vve1I5y
UvP5APa8PIeF9kG1h/Lclbp+5Puq6rmneGpHP4NYPUeSResS7RRiXk9Q6w3S
36jrU9bB0I4hfYiRPn7OBK/q+VIZ36l2NJDt1weR3VDjsWiSN9a31fMk6awd
93ulP1f3tbOYvqXT/eiPkP9q/I7+00TyQozt2jWV5YuYj3wke4v0q/4iSJ9H
DK0bHB/lr9r5JMIoL61b+d4NYpQL2if13HkcGy+OxkN7gHVz9IfIR8TqOXB5
nlTjP+5nyn1ktf4nzx+gP1fPYdjYOSh5/lU9zyvrJeq5vkziD/Id7STqmbqf
kM7iTguzO/a/4zpT11cWXfnv6n6Nie2nyH0bHucgxjgHrxg/YH/IP+wH5Yfy
wHhLo1Oe+/hUXVg9x5fC/KG057wf9XsDObQ+1fMvVqKD2201PpNYlaf9e5Ao
X67veJ+6rqOJDtR31d/JfTZ+5XETz7v5OSduF/m5J37unL+3ofIhw+6qxjny
PWPEPO5V5WLvd9W6vMlObup5Piuzy1Y7P6/uC5nt4h6M59T6HcZ38ry2Wl+U
+T3KX203UDuuf7WeFcieN7LnjUyO0UzO8vy0ai/leWj1/EECteN6Uu1hCtsP
kuefkW9IF2KkQ203ElbrZWlsP0h+j0OtF5ygcbSrG60nbbxzlNdjPKGeX3Sh
PEObhyfFTUiPek7Ag/wVjoN+C+eBGOMztU4WwOxCBPlx5Ad//089DxPD3tOL
tnv/j/tdLke+L8f9BK5TdR9bvs+nxt1WOznxfTDuV9COqvve8ryqGvd7Mn/o
xerHL9i5UV+7uAL5rPHHj86n4e+fqjtrcsN9WPk+HY9DkM/aFc+NyfgH+Yp1
Ce0++f4cPzem2sdUZs/N7P04eT4Sn1P37+T7thiHYnyL8uPn0NRzkVZaN9iP
Ws/AuB2/w/FA59N7WlcanWEUX+L+lybHcIoLtHbMP1Av8f1k1F+07+mszpJN
ebl2zWXnKfIIY3wRJPoP1ecTQxjjW218jFfQD0is1odkfU67L4PFL/K8rVqv
k/Uy9by4fF6bj/zujRpX5cAH8Tt+f8ad9Fzj72uqQ6NcUK9RLqi3KBfUU5QL
6iHKRc2TTKRXKBfUC4wT8fwNztdd9/NoF3E94zzVc6Yyj8PfUW/U/U0j5Ilx
cT9Gxo+o52r9JpfWn7rfnkryUOv3QdSfJge5/tR9V6xPynhZ9Tcf7fZjUQ7I
d7Qfav0e+Y/1/VS6H+et1vfl/Zo+pDL/aqP9a23+NpoP8huf1/iZSvNA/mC7
Ng+0U/EsjsV6r4nl8XmE1Xonxh820j81rosj/qr7ifkkf21cuT+P/SFG+tEf
I73oZxCj3FHf1PqG/P6Pev4kieyUuh8WT/xFutTzAHEsrs4jfmj6aSP/o/I3
ltYh9oNYPZcq+afRITHOXz2n4eCI/NTmKfmrvr8URvQgvYhR/jieuj+B+V8O
9Y/jI1brIfI9dcQoD37l73ny94J43P7S/ccfmr3zAdP3+6sdaHUVDh//Y8+w
E/5QbniVuqZQL4hqez7E6BkKb7t8/WFT5fewf0rsrtuLIuHS199ef38xEsLS
ygQPOpgE75a+CajXIw4KHXvr8F1VE2Q/nGSb+S4Jdj+uvmveRAts++3XnQFt
TdA4dvKXu8+kQ71/HjW0LbfAzTLnbtw0WcHtTWn3Bk/TYWCbtAHBXbKht2VU
/37lMiHwf92CCm3IhYBqRz/+NCYb5i/7fW7j1zaYujXmcNmKrlB6RfciLcf6
Qnzx9VmnBz+DkeWmDrq3Mhi6V43uM93LF4Z4Px7YdHgErDtTantmSjAsqDF6
3s8RMTDjSLXZfTZFwD5BTyJsjj67Y1vtWAgR46XCrG9jZu84ngpFBD3pkDep
df61OLNOjxW2CnrS4UtBTxY0EPRY4ZagJ0enJwsGCHoK8rgZTZ4WC5X65Zhw
Z1KLEXeg9VPvJosSPkDN1yPr1/nGG+6cW3azSIlwmDRx6axLEwJ0/kaBn+Bv
OBTtfqzQ3pbxOn+joNkfbRqH3kuGHqN+65drTdb5aYErYnyTPn4G9BL8TNP5
mQnvBT8zYK7gZzbMEPRmQv7Rf+nNgxWHV/zu/VTmpWhvkrt3iSllsun8yYbC
gj/yPG742z0J4yrL/eiVZYtva1gU9wUTYVFayMrVE8w6vxMhWMxH7qc/Pdbi
/fWmsVDdY0P3zWdDad1jfFC0RtPyrqcyIXZJu7RzK+T7ZX6CnoJ4QdAj60se
vxd5VmGdFYp87zM+q00ajIi77nzgdCas65ob9mBVCEx27LfmePNYWifDzg0a
29HLBNMqX162oqc8z1104qAFO5MSYLl3QN9OJc1w+P7N1RP9EqCO6cGzoZPM
8EfL4IU/OKdBix62Hp8vwfFz4I4YPx9+f31jcR3PbPD/4fCqu13z4Vuhn0G6
fsbAVSEvi67/mdBLyDNe1yeTHp8FQtvlxt47Q6OgdfEWJWfPCYItT3O/2OUU
TfZl7dT1v37dxQSZQj/idH016fLPhiDBb1l36FkxIi75rg1+GFYXti0/Rnmc
c+PED4uKXKG8IrVUcGPXCzkQf27HtYoPCug5ebDD4FMPyY+cuVm+QYmmtynv
KBVlirhp9YGBuj+JWzP876YT3pKcPUa8Ptj43QfKO95sqOMxtx7W5+NhnTnz
56Ac+T261NeXQm+4yXzvdNfNe7/cJvO9TpN8mw58L/M77X6Z310YdfXUi/Yy
n9tYuv66NSdkPudzpI9XxWcZcFXX84vifpm/OT/aNqFTeZmvwa+5nZNXynzt
aaf7q0JfviS9b/XVhhKFN/nrcouAH85OH7xrZiStg98EfbFkl88KemS+NE2M
J/MhDWP9Lgv+EPNPh1l6XlKr9azKJxNk/rKijP/JH2/mwLIRh6ydXsv1eTnp
wJiXC+X6rD3g8+mFn8r12VvogxmanQnZ+3F1IpRNbxDgNMIMjudHvPbuEwpT
/zq3uvRz3J9KA9+OLVdUKp4FJ5feDK6wMQ2O1Zj905pD8jxC3RfDnp5sYQZn
YW8TdP02w9IDQ0fYdgbD5XLbewclRcO6rxvfep5h0ddXJoRXuT24v1OCrm8m
COl4qcs4X/l9o8/bfNF5S6FsKL0kcuP4qjaoOGred0mQDWXEfG1Q5Mhn1h+t
2eD66Pf1WSXzSe+mBba7tDsuFsrc2x/ZIDAUso5f3Tq3Ip53CIEZLn9t+m5M
LGwX9t2i+ytZR9viWrzdWqMVmrx4tz4xU37/aczjXmvrNrbA/0qWfJfcxUr9
/TX6gNvsvfI8+gJh/zIht0y1nsfKF/Dn/JZW4QdN8PLhwMJOtXLgyRTb9het
8mG6kHeOvn7y4bzp8NUe6z5CMWH/8b34QPBxj689/3g0VHIotnLrwQBdrlHg
G/t0wf+GfgTnNUnjvxseBWnrH+a+OxUIzYW/iIZWA6pEbJ8ov+e4qVt6sOVW
HFyOvO/40iTj2bvCfpn09W+BOCEPWfeoNmxCQ+OwfHhavXV8+PlsmN79yuJf
7tvg6/VHKtZYGw/fxLytUnekjH81+22DZLE+5X5Nu7ToMXenZoNvjRmRQxbb
oHVkoYob6sbDj+ujyhs3mKC62aFkz89zdCzfL/ln4anrxQr490P0rt2rnXPg
+z/6NUheLOOpM6I9Hw77JnxX7UI8HFn+8UKLVyYYHJ9+cvPoHDgocD586VAm
u2aHx2RnnVyae35xX35vfXHgNy0bbJDvZR9o9GrYT1VlPWS+U+arVXVSaV0U
XtNj4t/TMb/NgMZCXzLIL9xOql21Qk+sU+RBtY1pn031uAy1Tzwv8vgzf6g+
s1cV/1MvYWr7pEH/ax4K7/t6jsxb4g/fR5Tw+qVJJFy+XtyyY1IkHFzUqnKx
QUngZztQ7aM5FiaHTjzcJCUV0vq1/Lbhb0mQWuTsV4M6W2B7/4mt3Uub4Lem
5gfz16bDtZ2mUflH0uHMzxuiblXKhl7uXWIaxlih897XS0LG58I7/7qveq17
CL0SxjUts/8jXMlr9/W1KB94cu9+56Eh4fDFznuTZlczQqnhkWvDCydA34/D
frt+NhraHVx8qvmeFNg4e9Gbfm9SoIvoryAP/bj+1/6tzfD2dtVSRU5lQF7D
qkd3PsoAi5hfDmwW88uCtWJ+BfwIBEtPp6OwceXqn4/eeQf/q1VjaHroLTjv
WWFvzJAP0NXN75svvnkLv7Y8lHLnVsG6/unz6PoPP8BRwY8omFixR/3Ke8Og
zsW/3cqtiYM8wY8oiCs+YsL++QXxkphvMlQd3HXknpcWcBf8MMF5wY8Mfb4Z
8EbMtyA+yn9Ves6vmTBB8DcX0r+4krqlsif4fO56u3V4EPRqsPLhh698oazg
RwTMahhx1tY1AsYIeSXCTsGPGADBj1SYI/pLhSmivzTIFfww6/KygovgRzr8
KfiRBQ3nnHn0cZQVqov55sBVMd8sXX42eHL5/dULBXHj2uEfoponxUGv1cX6
5Ne8A2Gvas1sOeI9VGk7veaIFt6w8+t6Yyd2DQOnJ5umRg4NgGtL3VaeeR0J
I86NGd21Szh8eNj7hKnALqxMi1u24VUUfFb6vWcXcxI8+r3ck6qmZHB9k/fH
9M0WSPtxWNqlhybobOlbc7NvOlS+YqyeNTIDvv82oLvv9Gw47dfiXJ0jmRA/
qYFP5qVcmHJ92bTrf/8N99Zv7B1RsK7ifE4nVGj7DIpUvbh1UWQgdF6e2f3Q
XV9oOGpmwvqCdRb99njsxPURMDd6a/uqZxOgTI12Zc9WiYWX1Xacv1Swzs6K
/lMhUfSfBl2zF3brGW2G1b/9NLVOVgZ41733dvrX6VDln2vpPQrW2Q+9ik/Z
vNSqzz8HUsX8s6CtmH8eJCeG58zOcIOBZwz+xUv6QeKHkaHdjp2DCrvyCzd7
9g5Oz6hysO15F1gz131+0VU+4N1i/e7v2jwF75KFf3VO/ggP/6zy7PmxR/Cz
yTln2KEAaN10eqXOd99BmSGVJi8vaYSLoy+dX7zQACGCv+Ew9dT7EV8ViYDR
YZ3+KftVAhzrtuLY6x+M0FjQHw+/pcxcsmRPDCxt9vLN6AcpOv+jYfCRnM9f
V02BaMd+YUUnpELoBOvmhQvS4PctB373LZUKLwR/0mDJtB0Lmp0yw/x1jnUP
eGRAVSEfM4wT8smAYxcb7FtQoGf7vAw9jYNz4FvBvwxYI/iXDS3f/dRsX4He
NUut5VdsXx4YBD+zoLrgZx6UrtWlvNMTL9jbxfrFwVYh8Kpm3VJprV/A2C8b
DfJICALvYz187hd7D/OF/CLg8rF2Q8rc9QMfJ9eXjUtEQLspT9uYT0fCHaF/
iVBvSvf51YtEQs3k55VutUyEMUIfC+I+Id9U6H3Oe/fkPbFw9FCr2msnpsIy
oZ9J+nzNMCNtyq1/miRBmweLL548Y4bXYr4mKC/mmw6eR7OTs4JS4bHwb2lg
FvJPh/ZC/lmQELOlUq956RDTasS0ShuyYJ3gZyZ4Cn7m6vGUFX4V8VQOLP0z
68HkMg8gNnBnkwVjP8Bvo/9q9ri5D9To5NS58P0w2CL8aThMebF67e6IOLj2
+x+Fuw2KhvMVK54KXpQM2dXPf/d2foren0WPZ8x6PJMBbZZdGe+3KwNqC3qy
4bGYfyY8FPPPhWcCp8ETgTPhzqo3ndukucPfN/rvGVzeH2KnXv6q2+PXcGzA
nJDQ9qHg+GRFWOtiH6CW4G8k9BX8DANHMd9YmCX4FwVTRLyQBJfFfJP1eMai
88cEfoI/6fp8M6CMmG82HP/fjJeXB2bCYSEfee6rxPgpCZHrvSn+6SHiy0xd
3on682b45sXF3JcFeJlbiWfGxWaKF7T4Mh++8TCkbHIuiDdKbuj8Z4ANmhsu
HExcng1Vqv+SeGeHDQJcRrWxZZ6kfGVIxelnOmyW+Xb5Bf866JWU3zy5l+r7
g8cjeBRX4/aB9oFwTsRXBj2+MkK90pYGV6cZYajIzxKgp8jHovX6QYpen0jV
86k0PZ82wzyRf2ZArqgXZMAukX/l6PWPLL1ekAcDBxyt6/zsGcXhCe6/fN+7
BH7/IgLuzflh0bUzeI4sESLdUw/kdZH5QkmH9ff6vpbfN93jusn07JLc59fi
CzyvkQWDBD9kfpA3x/LP333uUv7mNSe8Xc4ib8rXtPgwnPKxES6niweY8H3t
ZAgZPn6waXU8vF48MSX9mgn2iXhI5l9avC7PORQS8ZDcH9st5iu/T6nNX75P
ra03CywV68MKZRzLJT4owHFb77e/1yoTnMt+/tmy/UH6eoqGg4EpdUIPBMGm
jePqxXeM0etTibo8zDCkVSWPVx0L8q7ILqem7jDDZJGPYX0Z+Sf/vsBMUd9I
0+tZWdBZ6F8aVBX6lwkRFTol9n2XAMlvwp79YjPp8pJ/n+Ph3zcPGvOD4GjS
vZCEmTEQdmji/XnTgvX8NRoqL3D06mGwgPm+qRL0y4TaIn+z6HVGKxQ5lPxz
l4oJMOnQmbU1C/o/7DxmVVRBvqOtDxu47t04YXqtbNgg6LHp+a2sJ9ff8m+B
ZTYsHZM+v3h5A1wIfDO5Qv1rOv/9YZ5L614Xxr6ivGhl4J34GcPfUz5uFPom
8+8SQt/k9+CHC32Q3yH0EPom82lN/vJ771p8LPPlEh2DIxY2CoFHHYcX6ZAb
Ayt3DtieszYEbo36+qejs2J0+tJ0+jJh3QXnEs/bpsFqS7Nx+wv4tU3Uj8Lg
rqiXxcHo54VaFR8QCrGrI5qs2hZL+xVa/SUTjt/ftGDJHfk9C29RzwzV65mx
kNr04qlMsMAboc9WiMpY/mxJQT73tHer8osOWaFp7rJr42rI/bGHLRYe2uEe
An5j6s/8ck0MVBb5ZxqUE/lnJu2HFBP5jgnalLjic+x73I/JhC9EvTAHboj6
Tr6eP+bAKGFv86GZyBey9XwkH3L1+vPp83dKVquSD61Xzytxz/0jjHI6uGds
n2goe+PU5tvDPkJva4f3YypGQ8pshzz/zkHw86NSDcr0jYZjjYZ+7haB5yqi
4YzrtFmnbsdB23qRK4eNMMEwIU9ZP38t6jFyPyOp/bkOztn4voEJ7rxq0iz/
ebyeb5l0+yLPmSxwNkSsOm6BH/7Z12HodSuECX2Q74to9jFbr0/hebVsGCLq
bzbofKTQ/I6GbGjb/Xqea6QN6oj1gec+82m/UquHxcCe9XuKuneM1/NnE4wX
6zte1z8TPG6ZPfXJX3K/57SoVxT4LVGvsFG9vtu7zw53/UF+5+oXka/bIEKs
h3jaf/lC+Id4aCLsuQlShP7k6PqTD9nR71OcxuaQ/CYK/c+h/Zkdwh/k6M/j
+/7xen3BRHmihvPBKvqT38cZtqRqq+9qB1K+fyG55bi9nT0pfz1YsuviYEdf
2KXnr1Wq9SxaqA9+HyMBvhH1shjd3qTo9SyZv2r1MJm/vhL1CQt4Cv5a9flY
aZ6bRD1K7o9r9ZwsvZ5jg6PG8MX9Gn2EXu0++Dt0ioKvXZ06BFgTobLw32Y4
k5HRssLTNHD99s6q8AL7Wv3V6LZFnTdC2TenZ0yu6wMLuhQJm+0aB+2EPqTC
104vyu+YFgbFYkZea709Vs//Lbo+WmGS0L8cXf/yIWZhsQcB/QNhxopZOQNe
RMFw03yPhhXD9fnI9yqT87PWLZiG7xN6QUeXuq+KbgqluqajqA/J7xP/2cjz
XfBy+V1XfxGvyH2bGU6LynUeJs9V5qy+d3z8AfmdIq0+Js+TafU5ee698oAt
pz2sHyluuTDn+8zG5eTfecvIX9HjVtsE8is1RD1P/h2sK6I/PIdt1uu9GSTX
6WJ+uK+eBZlifvJ7VuMDL6cOru2r88MD1jTqVWXfxQ90vsdZ1NPk+Z6Ngh9R
4Cb8bxiEi/2LODqfo9WrkvXxk3X9lt8J0viRAdv0uMFRzFd+F0iLB/P05z3h
xBy/b8Ic5XdTNH5E0PkWEPLC92Vi4KrgRyrFUZq85HezNHnJ8yTZgh/4vSIr
bBbzzaG4qo6Yr432TTX5xOvr0AN6Xmg7LaDle+KXtr8h+RUXezfHdjuS4q4y
bYfV6z84jta1Zt+SKO7S/Bl+F8EEQ4W9TIftOr+0+qLk12fC/+SSPGs4H3fc
cVB+33tixpONDe7L73d//2ThzI8/y/NBWv1Snv8xiv0dyb/ion95PudAt59P
PE+R5xxbTLndPqmzPG+jzV+epxkk5p9H6+/in3GGaxG+0PN0O4c3ff+Bt5m+
Gbtc3sGxUv/cOJmxHb713ew8b4APHJm9YOCW/k/Av+LY/MJzP9J68fNZbs1b
FAD7n0+Y+6H/O9hh6O468EW4bgcNUE7wNxx2Lx65xvbcCO+dpyYFJeE+vRFG
Cfrj4db9KNd+TgX28UJ6hcZrUshvLhf7WSmQ3/SzAuuVCvXrbW01fkQa2VFt
/ysNdg0esrHCxgL72dv//ppDGbT+NH+SATf2hl0YV8sKAVtnRL5olaPvO2TA
XsG/bBjg0cxxtXMWzHK7sjh5cR6tz2aCn3m6fnmBpWa52v1KhMCkcqMrfvj4
HKptzoLGN4LIXmnyi4Blot7uB1dEvV1+ty9G6F8iFBP7WxF6PTxRj4Pj9Pgl
FZqL/YBYKC/im1Rd/5Jgv5hvQXwt7GkSnBD+VP69heZivum6P0/V/Tl+lywd
Bgv5Z8EEYb/Tdfst/z6Cxs9cvf5s1fcDcqBl5hSXzbPvg6XHj7WCG32AkcPu
trqe7w114vu43XANg4XCX4TDdGHv42CfiA+iYbPYL0vW9xdS9P4ssFb4K5Pu
rzL0/YwMPT7Ihk5i/pnQRsw/V6cnTacnE2KmdR+Q1c8dJtepu/FmoB9sHBPb
sf6c13DuUk/DQIdQKC32G97r/I3U+RkGX4j5xur8i4Kewh8l6fNN1v2tRfdv
Jhgj+JOuzzddn282VBLxZ6a+X5MLOYaTZcNHyX3+iKHfJPnvkH+nb6D7sZHd
rPJ8rtpuYO0GasdzItiOWH3eyJ43Uru7vo6wHTG2Y30d2xFjO/o1bEeM7Zh/
YTs/nxuRcLzab3Pl+VzERIfSbiRM89QxzUvHOD7uU+P4iLEdzy9iOz/fO3BE
8VUJvpnUjvkoYjwHhxjjLeL/uLXvXbpJ+XZxdDt9ufld2Q5R15x6Sfl+36DC
L93neUv5+pS0Jf0o5Xv8Woc73rsCqL1i230NHftK+S5qeGFdm/Hh1N5xebP+
Gz9I+R6YDaeXJUdR+7gnHrMNs6R871738Xq8Jp7aV5UdsrNWnpRvuG1qaplK
Ur7DW6SOc+sn5Vu40fJS5wwmascrtu/u/+Tw21ry90UL163OCZD8bzyn7Ndp
zhkwfMC9BUH77gPy/0gj32kbS/kQjnbPvFjr64+E97uWy/U/G074TtLxevW+
jSYc1rFdn5lv4gkXXfN0ptukFMIb7rk4l87aB5dvzokc3lV+DxDx2DJua5uW
D4XhQ3+aNqFmJGFrz1sR7UtFUbzJ9Q/tJt6Perv06aszk/YGQ3apRVO6lY+F
7mfKlSvbJ4Aw3s+v77Ia309YEkYY1wXal/LlatfY80sq4c4bSrTOu5xK6wn7
d9Kfzz7XoO3WShcIN7Gs2byuhDvhHW99Qopve0G48dGSH6YNfk24wrKtnfcm
+BF2mtysQx+v99DD98Ct7EF/03hFJz595pVwm/CJA5ccp9Z+Rriyb4vFpe6/
JVx2YuDcPXOfkzze9nBxCHbyI1zD133AvDUhhNtcnfNijSGC8P9y85NeOMcS
/rWPS8VKBREC4qH9XGpdfJJKOPynwAuGshbCv+xo5GgdnU54u/P0CV77zTBA
15fgxcPKl69rIYz6mx24IX1UKxvTZxv0DHZfvHhDFvWH+Szi2w0GbNy4PBuu
6Bjlt6Zqq1+3+5kIf3/ccUqT/SZY3adO9JKb0t45KfrwiGEDYdQD1G/kNz6H
88HnEONzaruRMOo1YrTHiNEvIEY/gBjtMmK0w4hxPWGetuHAnO+K7b7H5uNG
+Kt2Zya++dmX9AnjL8TafVa6f5zOn40/Fl48dmQM4RbFAhwr/xkDmQNdWkVO
zKT7Bwn9yWT0xJM8kur5jhw5T9qDhD0H/phqs7cPGIcXemBsP/ay1CeUN+at
iIMjnr32q55CeKs1+dhnR5MJc//Lv0eL9g7bMS/5suSisSd6ptH4BZmU16mh
aXb6jXqLuO6X1WoevS8x1hMRXx4w6fyjEnmQJ/pLpf6+E9dUu/5n3Og6tXVk
DvMXudDH0KPyNwtNdD/qD+IOTe95pzeQ66HT1czDUbukPJA//Prd/VVdr7xN
pPH8XczepQ9lMX+WRfYW8zDkH9bTOxQfUHjhvOu0fvH+S5d3HzwRFUF4Wt35
w8s/NBIufrdvba90+b4U0kP1B70/XL9YH8b5Y943s5Zv53XFpLxwHwP13dl0
vO3o9xLj/NVzrVI/1HjOSniLw5s/fl0svwesrn9/5j/DCGN+gxj9JWLUc7Xd
xOyJhd0v7fPeAHdnxzhpX6c3HnDoftVsZh9OEDbG9V/weM8Zwr7rXXr/0+ci
4R5V8lcvb7uRzUf65xErumyoVlTi8+ufLo/NkfZlgfAfcj5Rx9dX/Xawvf/t
8PiLCaErPxI/s/T2lz2Kt1p60JPuz6gS/2RZPW/CKH/kI+JbBzuc3fJ7POGZ
F8cvv1NaxnOQ9X2nBYVSCZc44FWhXkP5nieul45i/ch4e81tY40/+8n25+97
fF0qWGLUj95zz3aPGS71ZX5+m6W/b7TCxBWBtj79n0p/PMyl//Xn7wg/Mrrv
7JcURPi323OSEktIf362iEPFjodiCL8e5NJxdSvpz7OEfZb+fPO8wPslzkr/
Umd3oxGtzGlMf6R8VHsr/e3KOMPv85tL+zH+9cFRfXuZYOzPw9K7X7f3v52q
7yuf2/kd3f9+Y6W4fY9iCDdZnFh1RjcpP/STZ8s59P8w+w3N51xmfuCuF96E
jxxoNMc27gPhtE2NvmycHEDYsqeR0/P7cr0d29ao0/iN4YSrhbqvrjAiivDj
9+5OJ2tJf9216QDXcZFyPcbUG7Am+UI84Yk/Bz7/e3Ey4dKzAl07OUp/3kPE
N3K97hPrUeJ3hRxKHnot128zW36Gc1spj2livUp/7yHiIYk1++JOuHu7AR9z
rz+wi1f+276lE57aM8HJY1ca03/Z3tI4oePM6/J7wNh/UzFfiWsLfcq00x/y
s4r9lP5snlgPOcye5sK8QwdOtP9R+rddkS2ercySWLPv0t+p/kfi7mJ9SzxM
5GcSG8VVYu86J17sHSgx1g0RH7xb2bX3bAvhjOntk0ODzCzeld8HQX5U2hzY
t+71q+QP8XkfMZ7sf7HI/2R/wR9joyY7ZrH6hZvENz8U7z/JjdUzJF7Rqtnn
dy/fYvURL4nXdNjb/1cvVi+ReLhHcI319d8yfvhLPAJ2dwz3Z/USiVPnVfIf
ef0D3Y9+EPEa85W5kYXD6H5sR1yn0OHPLYnyfrLLOnbt2ntXqz2RdD+2I+4x
8Kv2366OYvofR/j5Bv8bi5vE0f3Yjnjargff/1ZB+gv0y4gTX88Iun8rie7H
dsQbg0asfPN3MuvfxOIrWR/AuEfVX1kvQL+vxocWNn4600f5vVtcLyhnxCg3
xPR+n46Rr4iRT4iRbh6/4nkKxPzaS/hH+R0ZXC+bhL/KtosfcZ8G8YHw7RdT
usvvtaK9qzlxRdxjN4kfjDGZzLdlPIJ5Bo5X9PocQ63jEvsK+ywxjhfxyzXr
2qnRhHv4Bbd89pX8Xqs6vsRYJ1P9rYxv32dsOjXhroXZO4nHKfmrG/nXswvv
vUjJ3kq4X7cLexbNfED2F+9H3HBDkX59ow4TrvhH+UKnvjhFuNYMHxfr93cJ
H/qsVKPF66T9SM7ftX1Rw07S/uy4VbtQW2lv/mm4xjL56BHCQzsZmld/fJLm
j3qH8w0qHbXtXdMnhJNa51QaPNaHxsf7EVfd08zpddRTwqP7bq1YzucZ4WGJ
H1p5L/MmPKnJENeJpaT9ckkuP9h9lKwnByaerPflFGnvije75Z2a+1Suf7e8
w/G3ntH8cJ1g/xz7jr+VsbSaL+GFHX4aUaOsH+H9q/IWTzkWQDjz5He1Hp2V
9tGl5IV5SUNkPdv9zyUBrn7Snr5qvPZKqYa+0r7/9Pe+PwrJ/nk+VDclGEp/
G0z43rPth861CSH8c4kKk7InhxOuX7tz2+Yx0t4GHvK5ufoXWT93qHW4Qafs
UBq/6q2T2Yf7BRP2zHsWVqNxCMvHIglfdVz7ZEjrCMJFWo0z1z0n8Z7hf2/o
lRZFuM+0l6N/+VXa74rVchxKDpL1etfRYdedt0t7f+nLqL+qdYyQ8uyfUXn0
Sfm9WcwnIhZmzhrS5y9an27lqqb8leJhFy91nLT1yxEhsv7//NiCjxfqS//w
bu4Sz0nPYwi32PnnN8c6yefHnf1i4KH5cn8gMbZofsZV6R+sN0omnB0n8+2h
H2v+EPtC4m0iHkolfHvn6IfVL8rv02K83eBsxLmel9cRDvrhwK+doy8Rdojf
9GO9ug/lfsGBpzEtj11j+wtehBtNLH636cLHhAesuHTZredLiYvHrzhx1Yfw
HFOLYh77X7H9CH/Zf48zp0+FyP2MOcNW/JXQR7a7HCjn2f7DR8L5m7q8Spn/
Xs4f4wacn++r1M5FggjfMB6PXzkrlHCyqC+FE3bddqnUw4FhdvlZPVGvkXiQ
uErsJuo10p+GiHgsHQbnD33mFreL6gOrBsQ/mHfkH8LLG7VLGOf5hLDJff26
NanPCf/R6N69+3+8I/xwzvRNhsN+hL3djcVHnA8iXNph8zvnhyGEt7iub7og
1ki4+Ysx23LMEYQvJ1UZ7LEshvCQivFuvX+LJezb8czPRcsmEl7gtOL91mpJ
hDHuRXz1Qubayi2kP9Lqf/b+ma93vn9H+0hKvOfgoN5vYPY/kPVnZPZXfi8X
5TutUZ3eO3vdoPnTvqKOn7qPaZ8U/5q1GwifmzMsokTND4RpX1HH2au77B18
LIw9L+VR98Wr23vbRDF+yv2XnhUnhoY+jiNM+4o6nu5kKtJsdDJh2lfUcSff
OT/92O+m5P+wwMZ3C90m/GeXdmOOzZT5H56PQP6Mzd308KvGEjuJ/F3ik0UW
dfcJiCX8t1g/EoeJ/QEZH6nxsZVwzcueFZvNk1jLJ+X7ary+i+9PIvYX9QJZ
390t/EMS61/Gy/eKnX6+1SbjYW2/IRt8Xo053mabrDdp9XAZn91qdS/Bc7OZ
xcOyXuok+CXrGxVCW5w/v8O+norvryMuLPxbAuHewp/xfCGLxf8y/z7v+/nJ
wTfTGX0Sa/lsBssXMvT6sP1+jPr3CbLs4lv8niB+J4DX5/F7Nqq8TWy+8nuu
+HwlwS+5P11h1vSlhwtF29ljrDMgvin8ncRXhD2W/MLvmyD+c/PKNUUbm5i+
yXxLq59nUp2a66/2vOxPy/fTWb3ZwQHtCeoP9l9I1MfzmH+xUfyr1bej4dmg
4lNrzo5j/Ii347cmbyvjr8Tpov4g5a/Vb6xs/lZGn8T4PRvEU0Q9SO4/4/l3
xEHC/0nsJ/JXibV1YyN+Yd0d9avK26KJbqdCCOO5NMT3mzd419lH4jpbviux
6nA48882ph/yezFoH+tvvJSSEi73U7C/df94jN02IYiwZ8yMlCLPglj9R/JD
qw9l0P2L9udtPHU+jPkjub98auL9Ix9+TGX+SeITbaedu3VHxnP4vRNsbz/m
YreQz2S99eWZ4Y/qZ6dCE7EflWpnLyt1XVz6Wl3Z/ypRn5V/T5fXxzT5yvWk
+QUblK5qvXP9qcy/X752dpv9XQjFy1m43/ogt0lEdzNMju+dt9cs7SHq94L+
LReVcouh8ZYWfbon0jUTSq7e6nZ6ov3+2YKy3cf5lbTfj+D5JN9/4+c5eH7L
41FeD+X55/8BP8EiaA==
    "], {{{}, {}, {}, {}, {}}, {{}, {}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], 
         LineBox[{2027, 2314, 2001, 2313, 2002, 2315, 2446, 2117, 2003, 2116, 
          2004, 2118, 2168, 2392, 2041, 2247, 2248, 2249, 2042, 2112, 2111, 
          2110, 1988, 2114, 1994, 2409, 2410, 2255, 2256, 1987, 2089, 2090, 
          2492}], LineBox[{2445, 2262, 1995, 2261, 1996, 2263, 2024, 2274, 
          1997, 2273, 1998, 2275, 2025, 2144, 1999, 2285, 2000, 2115, 2026, 
          2473, 2474, 2464, 2465, 1989, 2086, 1990, 2477, 2466, 2468, 2467, 
          1991, 2082, 2083, 2078, 2081, 1982, 2367, 1983, 2246, 2245, 2254, 
          2253, 1986, 2449, 2044, 2427, 2045, 2495}]},
        RowBox[{"-", "0.6`"}]],
       Annotation[#, -0.6, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], 
         LineBox[{1922, 2265, 2266, 2264, 2268, 2267, 2368, 2277, 2278, 2276, 
          2280, 2279, 2371, 2287, 2288, 2286, 2290, 2289, 2372, 2296, 2297, 
          2295, 2299, 2298, 2373, 2305, 2306, 2304, 2308, 2307, 2374, 2145, 
          2146, 2119, 2121, 2120, 2147, 2416, 2074, 2415, 2075, 2417, 2053, 
          2405, 2055, 2403, 2054, 2404, 2056, 2486, 2487, 2478, 2479, 1992, 
          2087, 1993, 2481, 2480, 2484, 2483, 2176, 2142, 2022, 2140, 2021, 
          2141, 2493}], 
         LineBox[{2375, 2327, 2328, 2326, 2330, 2329, 1939, 2332, 2333, 2331, 
          2335, 2334, 1940, 2337, 2338, 2336, 2340, 2339, 1941, 2342, 2343, 
          2341, 2345, 2344, 1942, 2125, 2126, 2124, 2127, 2432, 2434, 2433, 
          1943, 2394, 2395, 2393, 2397, 2396, 1984, 2450, 2049, 2428, 2050, 
          2451, 2048, 2414, 2073, 2412, 2072, 2413, 1944, 2143, 2023, 2494}]},
        
        RowBox[{"-", "1"}]],
       Annotation[#, -1, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], 
         LineBox[{1949, 2350, 2351, 2233, 2376, 1973, 2377, 2352, 2353, 2234, 
          2378, 1974, 2379, 2354, 2355, 2235, 2380, 1975, 2381, 2356, 2357, 
          2236, 2382, 1976, 2383, 2358, 2359, 2237, 2384, 1977, 2385, 2360, 
          2361, 2238, 2386, 1978, 2387, 2362, 2363, 2239, 2388, 1979, 2389, 
          2485, 2066, 2471, 2067, 2472, 2058, 2180, 2070, 2092, 2181, 2182, 
          2071, 2411, 2014, 2364, 2015, 2365, 2402, 2424, 2052, 2258, 2259, 
          2260, 2084, 2088, 2060, 2488, 2061, 2497}], LineBox[CompressedData["

1:eJwVz8suA2EYBuBfxKFBwhWItauwZecGHBZYsaDEeSG01ZY4tEwbEqSkKBE2
dlwIe7bEisTzL57MO+/3zfwzfeMzw9NNIYQpBlIhvLWH8E6JMmdtIWzwIX+S
UOFCt8mX/M0Jp9R0GX7lv/g851zpcrQ4o5Wa7pK6Lk+nrou67pobXZFuXQ8N
3R0N3S6D8hD9ZMyzrLHOvfke+2YHFNihSIoJO5M8yk882E1YkpdZJG9eYIsV
9z/mc3KaWRaYpzd+q+stFarxvXarlOUjVkk4ptn+qOsYI5Q45NV+1iwX/yee
zzYdPJu/8A88LD27
          "]]},
        RowBox[{"-", "1.4`"}]],
       Annotation[#, -1.4, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], LineBox[CompressedData["
1:eJwNz7kuhGEYhuFXhbOgUNuNPXEK/zCDSUjEvszYJRL0Ko4HFRUahZ0GJcYa
Egmu4s71Pe9kir9yqJDkSyJiUHulER1lEbtsZZva9W1vs0LLypRHZLXl/eW3
FT4y4SmrOawRPdlpnrGGoxrTs93Nc9ZyXBMq2j28YB0nNaUXO8NL1nNaM3q1
s7xiA/Mq6M3u5TUbOas5vdt9vGET57WgD7uft0xxUZu+cYmfbgPePzy0j3Ss
Kq3r132Nf9zgibq06j93bjnvZrXo3u50f+C+faAd+x+RLTj/
          "]], 
         LineBox[CompressedData["
1:eJwV0Dsvg1EYwPFjai11azcGK+pD+AT4CKZOJDYjShDRRiSE0sY9iEvjFhP9
ImpmZcTvGX55zvs/J+/75gxOzUxOd6SUSox1pvSeTanNNjscZlIq82n9xR41
jrVlvq1/qNPgVFvh1/qPozjLubZGxjeynEXjQlsnp3VxqV0FbYNerY8b7ZZr
rUpeK3CnNWNP22RIG+ZBe4w9bZcRrciT9sy9VmPceoIiq/ZHzUWzzBIHzmxp
/cx6HjAr5CjFP5uvvNGKe3B+wcwzTyHeR3fcjfM9cX/mfrybhvMVs23OmR9m
06xS54QXWvwDM1Y8UA==
          "]]},
        RowBox[{"-", "1.8`"}]],
       Annotation[#, -1.8, "Tooltip"]& ], {}, {}}, {InsetBox[
       RowBox[{"-", "1.8`"}], 2499], InsetBox[
       RowBox[{"-", "1.8`"}], 2500], InsetBox[
       RowBox[{"-", "1.4`"}], 2501], InsetBox[
       RowBox[{"-", "1.4`"}], 2502], InsetBox[
       RowBox[{"-", "1"}], 2503], InsetBox[
       RowBox[{"-", "1"}], 2504], InsetBox[
       RowBox[{"-", "0.6`"}], 2505], InsetBox[
       RowBox[{"-", "0.6`"}], 2506]}}]},
  AspectRatio->1,
  Frame->True,
  FrameLabel->{None, None},
  Method->{},
  PlotRange->{{0, 2}, {0, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.576008831933613*^9, 3.57600905300801*^9, 
  3.5762493855104713`*^9, 3.5762497420716457`*^9, 3.5762509745568743`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Top", " ", "pannel", " ", "of", " ", 
    RowBox[{"Sup", ".", " ", "figure"}], " ", "2"}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"r1l", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "1.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fnlocal", "=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ds12dlx", "/.", 
         RowBox[{"x1", "\[Rule]", 
          RowBox[{"(", 
           RowBox[{"m", " ", 
            RowBox[{"(", 
             RowBox[{"l1", "+", "1"}], ")"}]}], ")"}]}]}], "/.", 
        RowBox[{"x2", "\[Rule]", 
         RowBox[{"(", 
          RowBox[{"m", " ", 
           RowBox[{"(", 
            RowBox[{"l2", "+", "1"}], ")"}]}], ")"}]}]}], "/.", 
       RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
      RowBox[{"r2", "\[Rule]", "r2l"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"point4", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.001"}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point4", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point4", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{"m", "/.", "test"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point4", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point4", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{"m", "/.", "test"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point4", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point4", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{"m", "/.", "test"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point4", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point4", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fnlocal", "=", 
     RowBox[{
      RowBox[{"ds12dl", "/.", 
       RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
      RowBox[{"r2", "\[Rule]", "r2l"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"point3", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point4", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j"}], 
                 "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point3", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point3", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point4", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point3", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point3", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point4", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point3", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point3", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point4", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190", "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point3", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point3", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fnlocal", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"s12", "/.", 
         RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
        RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"point2", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point3", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j"}], 
                 "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point2", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point2", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point3", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point2", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point2", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point3", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point2", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point2", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point3", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190", "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point2", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point2", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fnlocal", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"s1", "/.", 
           RowBox[{"sol", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
         RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
        RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"point1", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point2", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j"}], 
                 "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point1", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point1", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", "j", ",", 
               RowBox[{"Re", "[", 
                RowBox[{"m", "/.", "test"}], "]"}]}], "}"}], "}"}]}], 
           "]"}]}]}]}], "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point2", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point1", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point1", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"Re", "[", 
                RowBox[{"m", "/.", "test"}], "]"}]}], "}"}], "}"}]}], 
           "]"}]}]}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point2", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point1", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point1", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", "j", ",", 
               RowBox[{"Re", "[", 
                RowBox[{"m", "/.", "test"}], "]"}]}], "}"}], "}"}]}], 
           "]"}]}]}]}], "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point2", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190", "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point1", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point1", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"Re", "[", 
                RowBox[{"m", "/.", "test"}], "]"}]}], "}"}], "}"}]}], 
           "]"}]}]}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"liste", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.3"}], ",", 
       RowBox[{"-", "1.6"}], ",", 
       RowBox[{"-", "1.9"}], ",", 
       RowBox[{"-", "2.2"}], ",", 
       RowBox[{"-", "2.5"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", "point1", "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", "Red"}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}], ",", 
       RowBox[{"ContourLabels", "\[Rule]", "All"}]}], "]"}], ",", 
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", "point2", "]"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"Purple", ",", "Dashed"}], "}"}], "}"}]}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}]}], "]"}], ",", 
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", "point3", "]"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"Blue", ",", "Dotted"}], "}"}], "}"}]}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}]}], "]"}], ",", 
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", "point4", "]"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"Green", ",", "DotDashed"}], "}"}], "}"}]}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}]}], "]"}], ",", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", 
        RowBox[{"Min", "[", 
         RowBox[{
          RowBox[{"0.768", "/", 
           RowBox[{"10", "^", "y1"}]}], ",", 
          RowBox[{"0.2127", "/", 
           RowBox[{"10", "^", "y2"}]}]}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"y1", ",", "0", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y2", ",", "0", ",", "2"}], "}"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", "Black"}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}], ",", 
       RowBox[{"ContourLabels", "\[Rule]", "All"}]}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.576008799984593*^9, 3.576008819633733*^9}, {
  3.576008854326235*^9, 3.576008861831676*^9}, {3.576009306737485*^9, 
  3.576009322123445*^9}, {3.576249038797895*^9, 3.576249047057747*^9}, {
  3.576249212371817*^9, 3.576249216173634*^9}, {3.576249663150963*^9, 
  3.576249668202217*^9}, {3.5762506501399*^9, 3.576250658888886*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJyFmH9czWcbxxMapfzYKC1tQimJMKzhOhHLZlIMk9YeFllRyvxoYVti+RGt
yQipWYqWSJHWlJImIUk/VNTpx+mcOp2OOk7nR2c9r+d73/fzvXo9r+f80f36
dG63y9t1X9fnusdvCPDw0dfT0xvT9+Pf6//69O6JW/G2SxkQrSl3i7GJqAP+
90KqdQvT1ii8mqnWXtoVfK5ZRPWCh7uNjIwk7LzZHUqL5jZ0vpTq/3xkVO+v
s3k2qLSL6n3d0U1LE96weP50Sxqa0MP2j6+conZQs3jKsrOWB2uofm/Tn+Hh
4Vqq98buCjUJ7mX7xTbF0S46FI+eAHMhGq+EF//3QqoJL6IJL6IJL3oex4t/
vhT48cioJryIJrxoPBwvup/jRePheBFNeBFNeNH9HC/ER4DzBnMhGq+EF9GE
F9GEF9GEFz2H48U/Vwr8eGRUE15EE140Ho4X3c/xovFwvIgmvIgmvOh+jhfi
I8D3CucN5sL/nq38/BKi/BKi/BKi/BKi/BKi/BKi/BKi/BKi/BKi/BKi/BKi
/BKi/BKi/KJ8BLju4HuF8wZzIRqvhBfRhBc9j+PFP18K/HhkVBNeRBNeNB6O
F93P8aLxcLyIJryIJrzofo4X4iPAdRnXHXyvcN5gLkTjlfCi53G8+OdLgR+P
jGrCi2jCi8bD8aL7OV40Do4X0YQX0YQX3c/xQnwEuG/huozrDr5XOG8wF6Lx
Snjxz5cCPx4Z1YQX0YQXjYfjRfdzvGg8HC+iCS+iCS+6n+OF+Aj69XXct3Bd
xnUH3yucN5gLOQ+vpN7z4pFRTes9p2m9J/GQek/2k3pP4iH1ntO03nOa1nuy
n9R7Ph8B9j24r+O+hesyrjv4XuG8wVz457OV3x+lqD9KUX+Uov4oRf1Rivqj
FPVHKeqPUtQfKR8BiUuP95Eh3yFDfVXWr4/hOo3rEL5n/fIIccIr36/KgO9X
ZcD3qzLg+1UZ8P2qDPh+VQZ8vyoDvl+lfATYN2NfiH0P7uu4b+G6jOsOvlc4
bzAXovFKeNF4OF50H8eLxsPxIprwIprwovs5XoiPAM8V2DdjX4h9D+7ruG/h
uozrDr5XOG8wF6LxSnjR/RwvGg/Hi2jCi2jCi+7neCE+Ajx34bkC+2bsC7Hv
wX0d9y1cl3HdwfcK5w3mQuNBK/WrJB7iVzlN/SqnqV8l+4lf5fMR4LkUz114
rsC+GftC7HtwX8d9C9dlXHfwvcJ5g7nQ/Wil95HT9D5ymt5Hsp/cRz4fAZ7b
8VyK5y48V2DfjH0h9j24r+O+hesyrjv4XuG8wVxoPGilfpXT1K+SfcSv8vkI
8LsGntvxXIrnLjxXYN+MfSH2Pbiv476F6zKuO/he4bzBXIjGK+FF93O8EB8B
fvfB7xp4bsdzKZ678FyBfTP2hdj34L6O+xauy7ju4HuF8wZzIRqvhBfiI8Dv
YvjdB79r4Lkdz6V47sJzBfbN2Bdi34P7Ou5buC7juoPvFc4bzIXuRyvhhVby
we+I+J0MvwPhdw48x+M5Fc9heM4QEF5E/x8fhPs87mO4TuM6hO8ZziPKKcX/
o7fCChKhrVDzXFlXQ/MsszYhsXlBLdPVPmeVthKo+yFywpWKW3gO1fspdURo
sE5OddUfVTsjJiipXp+5edsZUy3syq3PDG7Mgd13s37NkctpHidON1iw3/oF
6FlFFPeqq+hqHVe/si2oBL5OeD9TYq6k++1HZtVXFYqpvn7Q3FPSIoeC0d7L
VrxVDuorw5e6ZIjBfn2L3bgjd8D7otUg19GsLq/JLdrWaMbOk3yzpXXjKC3Y
D+mp+PNFBTx/sPP9qGo5vVfm41YLsxsqIW1j/II59fVwfmGF15f2FbBdN04/
yLIGLo0fen3ICCXdP7vTcUOyt5jq1HvOYUOfyGFVU7pn7ql62Bg/aeBPk8RQ
5qhS9JpVQsM8Y4fu4axP5OzXxE0zYedN8yrSszXWwlDJBYGB6hWMVk+OHnxX
Tu+54mHkez8GPId1gfmp8XqN8EjfKtqtsxz2rpp2LXRfAywYsuyD0YOVdP8M
I6f41q5Wqmtdd8x+cFMOd4ZvjHgiaIK6D1LXnb7SCsVbx3m7D6+HHfExZecM
Wd96aS299c1Adl6d9v7l1re0cG6P2czoEyLw6EycXZvxBNwsJbdvaBtBm+88
S/yHHFYG1/51qrL/e+Grj7LqCovKQKE5cepBeROc9DAUj1AxX78cLv7mc7CV
6km3Ev62jZOD65nCrV9fFIH8mMwg1rIVnl41r/rmZiNINBPFzoNZX1UMXON7
UsnOe5QZU/u7vhZWKg8Y+vm2wl9pwwq+21ICdY8bHS4ea4GDro6avONyWic3
THH6bknHY2ifNGP35nARVAfcDVFL2Zyxea1uuujtVjD9IMnUKru13/vcXZfz
iRMPyqE2JcLQ9EwLDEgbtrlex3xR7DnwutrOzvvFxe24l1YDOyJMHl03bYPq
VzpbUU4upAzfVVA/QAyN7pkVNaFyeg+D84fO1W8vhFkJ2sKSAjEo4rx+fiZk
c8+6nElFjqdF8Lzrc+/ilRKQdZmau4ax97BRUy59dtNfDgarp20SdreC/hXT
9E4V82lR+4w/vtXAzivbp8oYodRA0KGyA4sDpCCzafddaBgNy4VJXju1ElCK
n0wt95TTPlLoNdLB8O8ssPulN/1qehuEz5pXE1vJ5rAd3r1Ljo4RwbrylGeL
o9th0YxhL36ubqHfG1zOXF3n0RdfYOnPywa3Qe4ise+obuYb91ccL79awc4L
uXzi4ztyDSzPyJysLWiHJcGdQbOd5bSPfeUe8MnknqMwY0WKXOIjhZh0wSD3
EjYH/nLaef7AyBYIc9xuVni4Ayo3rrYondxCvx/TcDQoZq4cfEck37Mpbgfd
b/Mrf+tgvtV1mFHWyYfsvEap6sMt7RqQnPz1wPoC9v4UXXdyWd7aDngx2u6N
lbUcFHm+C+f4sPeBQU/M580c2QVF0Vbzz9x/Cb4d+smPRB2waFR15us8Nqe6
B9ufX61rBnOzl8+WJrO6IBgSYzxev+/cwLaCsccbYWd1uL1BZP/3mNSyCL+a
cXKwfWh5eq9X37/XIOnH6WLmu0e5L0rY8l9/32fJ74SZiDQw0KtGG3K3GyIe
1x1rjv8brGp0+amVnXTV82zSszvU3e/9w2KXxVfOG15ApGXUkeUbu8EpxMXB
6Vg55I9PyO9d09lv7o6SnTgb+0YGi02CRMbfvYYPLSJjPe+wOcBu7Zc/5Lmy
/aa51rYh1zSw1WAV3K5X0LgLx060t/tSQfmnlC794pMl3eCuH/TVoKlsnp9t
dj/00yEdsGnNHBs40eeT19xOswthc8Zhzxh/Sa4Clrzs0XPZxOblyq9txlgK
emBQjGF7p48ETEJLMlKuKWleOoQsyp44Ugn+lj8++ZcDe284fvrS1JbdGohI
P5S/u5XlzXbVlC+qvlWC38GWAIvdCqjqjlysk6j6zfN+qhtFfq5iiN9QEXPk
oQpuv7kQIh/SCG2xm4qtQlT0/zuxoaY+5D0V3NM1n78wtu/+G4hEEhWb/89G
+WYse9Z/jvJ0cogztlVQPXj9gULRPA0UW1yaU3ZfDampTjFh3gVwNFU0of13
Nl8P8P6+8tAXaoh/sPByokktZJzprv7jpgoG//r9nIfJ3dQHii9fb8+58go2
tKc47XNj8/it7c6TGxQ9ULCyu0g9lc1xM0c7JvvvZ3/+WpvM/6lWDT6lXoY3
XrN5f4ZRYPj09SxP7jevLXkZqIaiuUW9kX15p59zQ+BxTw0hc19efFPD5sOW
uJa9i3PYfFmdc3TA4Ww11Akcs2/v0cDnevq7Jt7oghJlkvH8Cg3kZcZetP+d
zUsVsYc7Hke/pvqjYWYzar5Vw/vnHhXov9JCfpNh2DK1HG4mVr0T5dd/fnhU
09VT/aGc6s3HWt8NtFfD/e6kDNG7OlhbCOmrOmTgEeAR9XRHL0x2809LmML8
9Kw08akjV2VQGnnD75xGBwqbRN+fapmfjypekZRZpYIHZXtvXlAzv2+x7dPb
z3p0EDk3r63ldRuUJlR//LSI+X/5zKvWn17Tgdm2Ttco6w6YMO9olkk0mwdE
69sMX+3RwdbrRq/H/qWifjMwtOftpmzmj4dfPtt4+AdVv/3Y7+H8wv0M+9d/
AJq7WI8=
    "], {{{}, {}, {}, {}, {}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], 
         LineBox[{363, 362, 370, 371, 380, 381, 390, 391, 402, 401, 399, 412, 
          410, 422, 420, 432, 430, 441, 449}]},
        RowBox[{"-", "1.3`"}]],
       Annotation[#, -1.3, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], 
         LineBox[{364, 365, 373, 375, 383, 385, 393, 395, 404, 406, 414, 415, 
          424, 425, 434, 435, 443, 444, 454, 457, 456, 455, 452, 451, 465, 
          466, 464, 462, 473}]},
        RowBox[{"-", "1.6`"}]],
       Annotation[#, -1.6, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], 
         LineBox[{366, 369, 374, 379, 384, 389, 394, 400, 405, 411, 416, 421, 
          426, 431, 436, 440, 445, 450, 458, 463, 468, 472, 475, 483, 481, 
          480, 479, 478, 486, 490, 489, 488, 487, 485, 498, 499, 496, 495, 
          494, 503}]},
        RowBox[{"-", "1.9`"}]],
       Annotation[#, -1.9, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], 
         LineBox[{367, 372, 377, 382, 387, 392, 397, 403, 408, 413, 418, 423, 
          428, 433, 438, 442, 447, 453, 460, 467, 470, 474, 477, 484, 492, 
          497, 501, 505, 504, 507, 509, 511, 513, 515, 517, 519, 526, 525, 
          524, 523, 522, 520, 528}]},
        RowBox[{"-", "2.2`"}]],
       Annotation[#, -2.2, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], 
         LineBox[{368, 376, 378, 386, 388, 396, 398, 407, 409, 417, 419, 427, 
          429, 437, 439, 446, 448, 459, 461, 469, 471, 476, 482, 491, 493, 
          500, 502, 506, 508, 510, 512, 514, 516, 518, 521, 527, 529}]},
        RowBox[{"-", "2.5`"}]],
       Annotation[#, -2.5, "Tooltip"]& ], {}, {}}, {InsetBox[
       RowBox[{"-", "2.5`"}], 530], InsetBox[
       RowBox[{"-", "2.2`"}], 531], InsetBox[
       RowBox[{"-", "1.9`"}], 532], InsetBox[
       RowBox[{"-", "1.6`"}], 533], InsetBox[
       RowBox[{"-", "1.3`"}], 534]}}], GraphicsComplexBox[CompressedData["
1:eJyFmHtYzVkXx3OJEZIMhUFhSjdj3JoxWIeJRGLGJaVyHZehVxRJ1OQSSYgY
12oiZRiFiEoJYSS3lBBOTnU6pzqdfrqczqXzep/3t/ee3+p5n/f80X6+zm5b
z6e11/qubbl03c+/tDcwMOj5+cd/1v/1aQ2Km93LqRCI1hbNOmod8R6E30uo
1k9OdW/yrqRalxTof7qyiuqJjzd37dq1mp03tk71VWUNOl9B9X8/SqpD31u/
7Pi8geqQxsMVLgnNLJ6sWcldElrYfssSO81wDYunMPOmm7+W6kErsnbt2qWj
etvJwK3G/q1sv9w6/7CTHsVjIMJciMYr4SX8dwnVhBfRhBfRhBc9j+clPF8B
wniUVBNeRBNeNB6eF93P86Lx8LyIJryIJrzofp4X4iPCeYO5EI1Xwotowoto
wotowouew/MSnqsAYTxKqgkvogkvGg/Pi+7nedF4eF5EE15EE150P88L8RHh
e4XzBnMRfs9WYX5JUH5JUH5JUH5JUH5JUH5JUH5JUH5JUH5JUH5JUH5JUH5J
UH5JUH5RPiJcd/C9wnmDuRCNV8KLaMKLnsfzEp6vAGE8SqoJL6IJLxoPz4vu
53nReHheRBNeRBNedD/PC/ER4bqM6w6+VzhvMBei8Up40fN4XsLzFSCMR0k1
4UU04UXj4XnR/TwvGgfPi2jCi2jCi+7neSE+Ity3cF3GdQffK5w3mAvReCW8
hOcrQBiPkmrCi2jCi8bD86L7eV40Hp4X0YQX0YQX3c/zQnxEbfo67lu4LuO6
g+8VzhvMhZyHV1LvBfEoqab1nte03pN4SL0n+0m9J/GQes9rWu95Tes92U/q
vZCPCPse3Ndx38J1GdcdfK9w3mAuwvPZKuyPCtQfFag/KlB/VKD+qED9UYH6
owL1RwXqj5SPiMRlIPgoke9Qor6qbNPHcJ3GdQjfszZ5hDjhVehXlSD0q0oQ
+lUlCP2qEoR+VQlCv6oEoV9VgtCvUj4i7JuxL8S+B/d13LdwXcZ1B98rnDeY
C9F4JbxoPDwvuo/nRePheRFNeBFNeNH9PC/ER4TnCuybsS/Evgf3ddy3cF3G
dQffK5w3mAvReCW86H6eF42H50U04UU04UX387wQHxGeu/BcgX0z9oXY9+C+
jvsWrsu47uB7hfMGc6HxoJX6VRIP8au8pn6V19Svkv3Erwr5iPBciucuPFdg
34x9IfY9uK/jvoXrMq47+F7hvMFc6H600vvIa3ofeU3vI9lP7qOQjwjP7Xgu
xXMXniuwb8a+EPse3Ndx38J1GdcdfK9w3mAuNB60Ur/Ka+pXyT7iV4V8RPhd
A8/teC7FcxeeK7Bvxr4Q+x7c13HfwnUZ1x18r3DeYC5E45Xwovt5XoiPCL/7
4HcNPLfjuRTPXXiuwL4Z+0Lse3Bfx30L12Vcd/C9wnmDuRCNV8IL8RHhdzH8
7oPfNfDcjudSPHfhuQL7ZuwLse/BfR33LVyXcd3B9wrnDeZC96OV8EIr+eB3
RPxOht+B8DsHnuPxnIrnMDxniAgvov+PD8J9HvcxXKdxHcL3DOcR5bTwm1k7
X1SmQoH1lOxfTEppnqn8ryb1OsZ0hV3M6b59q+HhoLFPZxacw3OogfvscwsN
dBzVd4JC3nYeoqLa2+t03BYzHZTFjWmZ3DUbwnbGnJ2t5Gger1le5SvZ/Qa+
cjBPrtr8mq0e00xuby0A38TBI1f3U9H9K9a99O55XU71wgvi23sqOOiSbHe8
MKAI9F+kGPrHy2HKbHez0TE5UCudftG6N6vLJlM8XJabs/MmaY5MdDLVgXEH
1w1OZa/g5GVby9ElHL1XE363SR8wswTaneiU3zroIxy6O9NxZXAxxGbuD3ax
LIWgbZ7Ju3uo6P7E9SOjPWfJqb5yecyN6wUcWFq/EB8OKYPFT1a8MDKXw7Hn
GWk/9SuBXn4yzcserE8Msf5NntqdnWe9uTaoS3cdxPkvza7TiAE0I8rSczh6
zwcPfXpa9bEIIg6aPJwplsCJ2D7NhcFFEBP8fWlw6Ee42nA/7khHFd1/4c+D
u8wqZFSfv159IPwaB16nIgKivSrAc+lyB99jMujVz7L1YY8yONpl4INtRqxv
LTu53be2PTuv2bLc+VFnHbS7ZDHQIqQKqk57KmNsnoF+onzvFG05nLgir0q5
wMF1WYqD3Kfte+Eqq3KbPlMK4d5cM9f9xRWQezzhzqEW5usnXf700SRQRrX/
5K+SG05xULS9oJtNRhXMj1+9flQ3GYzsNH7Mg/RycG/n2mGwIeurFeO+Deur
Yucd90iMDW+vg6LEdd913i6D2Unj3rw5lQ8Hz4hF+ful4Hr8bJ/oKI7WyQdm
FvFbDz0BrevDo4bhVfCXQ3hmiILNGW7mP4t7GMrAdvrdk+s3ydq8zxlIbgbo
dnBQ8nbusKUnpGBolZeYq2e+qDrh4svRtey8ZVYuARN1WlCOD1EOta+BX1Vv
/sy1zYb87zzPKg3k0GHO7ZvZWzh6D/36ZqZK4/Ngpn6N5qc8OSiKNo7xkLC5
x/ZAIqgiquB5N8mCmiXV8EdH90jdOvYe9iIZQk//ysG01Au+5xplMKSkaGyh
mvm0XFN/M/jIzsu7VZRd36yFYtfCa7mhChB593f7ISkYvO55Ozq1VsP9wCxp
tgdH+8hD42P2GfPSodL5bqNFWg2sHlb71rKEzWG1p+LcrnSugqFPTNa4xNVC
w5eJHdUPpPT74Yf7rHo+m4NlZwq+3GFYA+lB0RzXwHzjJfHaFsdX7LzpKlFA
PKeF1JGRGy/l1cKyW5ty7IGjfUwUVXxsksVGCN9hddtthQKejZB7ljxmc6DZ
TCfpvlApRHlfnGtxpA42pMn1lX2k9PuOf2ZIj4zlYG1Pcbx7fi04Z0/YvbOO
+dYZFc22g/5xnsO19Xun12rB2yzwx9bYf7w/Rc9w9PKog6/DI5Z8PZSDg9vM
5+5bxN4HJiQ8GnamUwMYH32/asjrDxApi+1lJauD0D3NPltz2Zwq+/D2x6n1
lWB/Mz11YTyrC6afLOPT1PVQ3fDY9ue95TBXt9RaFdb2PUaZkvRU2p8Dj+1T
xyR718FIvWx+Tznz3SGN9V4Nt9n/9/ibSc11Ui0YvStKLstuhFuWB+4PLPwb
sjfnp+qK6+mq7OCc5LKzsc37h2ZlYcnKCW/Bqp8qpWZxI5xYJc65sqMITpUa
uw6YU99m7s7wtzY0avo8L8VEXkkN/gStfaNWOuawOcDx6pJFbtPY/vLqBTqv
y1pQrUotaPehicY9eE6knZlXE+XvPOrvhjdTG+F6PHfP357N892L3UQ2hnUQ
e77V6PjBZoiYbLzziy1szth6plQTcrsJXr/Y37v/L2xeTiy5McF2Ygu8f9Kd
y11ZDdo9ff+YmKqiednpm5/y9hmr4HD05JCwEey9YaGRz7z8zVoYr7I7ck/K
8mZxk2n+2E0qSNgozjwW2ARpnpdmrKlWt5nnb6Qd/fDOSQ5XFnuUnc9Xw++a
UxXXjMpB/djq0b+C1PTv7evcvmjeQDV88pWGhvavgrfKjFG91Wz+/0v/Zs28
wrZz1OQ7Ny8lD2uiOniX3qVgvBZG3Bn91POBBmwr5l977nsPxEu6Ru5NZPP1
l5a2XP2Cz74412FAaa93sP+J64m6dDVotzXkzD3fSH3g98t9nkWdE8OiJ9FT
jGaxebw07utvuzW3wNmQC36vHdgct9o8xqVHKPv96n3nXqfrNGDvvv/V4k9s
3s+0iVh+diHLk2U3t2iz/DTgbLIhetKyxs917FPjhjwNpDvG1xWXsvlQGVcf
+jSLzZdfLN29yC9TAwlJFeXiIC303q0p3Xz187xuPs7C7pUWXDtu8jNLZPPS
gAynOUsOf6K6YNqqHXc3asBib6hmkFgHg2UN79LUHHybFeQzdU3b+eHyni3P
Ar7nqB7vs7hgvr0GxkdNNdX318MHb4d+zxVK+EFhaVEe0Apc7/drw+yYnzZt
mjRgeIoS7GF+4E6tHtQmN6xd3jE/P7pB2yX2tRrsL3r6/aZhfj/HB0yTWvTw
aFy7dm4NNRC8Nijr0kPm/zM0UYZml/UQ/n5UZItVHVw9MPyW9BCbBx4tMO5e
F6SHvy3v26hvqanfPNq7++qUDOaPu4XZdPYPU8O/AWgcIf8=
    
    "], {{{}, {}, {}, {}, {}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], 
         LineBox[{363, 362, 370, 371, 380, 381, 390, 391, 402, 401, 399, 412, 
          410, 422, 420, 432, 430, 441, 449}]},
        RowBox[{"-", "1.3`"}]],
       Annotation[#, -1.3, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], 
         LineBox[{364, 365, 373, 375, 383, 385, 393, 395, 404, 406, 414, 415, 
          424, 425, 434, 435, 443, 444, 454, 457, 456, 455, 452, 451, 465, 
          466, 464, 462, 473}]},
        RowBox[{"-", "1.6`"}]],
       Annotation[#, -1.6, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], 
         LineBox[{366, 369, 374, 379, 384, 389, 394, 400, 405, 411, 416, 421, 
          426, 431, 436, 440, 445, 450, 458, 463, 468, 472, 475, 483, 481, 
          480, 479, 478, 486, 490, 489, 488, 487, 485, 498, 499, 496, 495, 
          494, 503}]},
        RowBox[{"-", "1.9`"}]],
       Annotation[#, -1.9, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], 
         LineBox[{367, 372, 377, 382, 387, 392, 397, 403, 408, 413, 418, 423, 
          428, 433, 438, 442, 447, 453, 460, 467, 470, 474, 477, 484, 492, 
          497, 501, 505, 504, 507, 509, 511, 513, 515, 517, 519, 526, 525, 
          524, 523, 522, 520, 528}]},
        RowBox[{"-", "2.2`"}]],
       Annotation[#, -2.2, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], 
         LineBox[{368, 376, 378, 386, 388, 396, 398, 407, 409, 417, 419, 427, 
          429, 437, 439, 446, 448, 459, 461, 469, 471, 476, 482, 491, 493, 
          500, 502, 506, 508, 510, 512, 514, 516, 518, 521, 527, 529}]},
        RowBox[{"-", "2.5`"}]],
       Annotation[#, -2.5, "Tooltip"]& ], {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJyFmHtYlNUWxtG8IYniFQ1EINEEL1iZBLompERLUFITSUREEFIqb8hFuXg3
UQKkUCwEDSxvIJgEJJpgHC9pMDICgjAIzADD+CkwVyfOc7699/kWz3nO/MF+
Xma7Xf5ce613bWv/L7029DcyMjLr/fHv9X99XoX/uHSUWwUQrRN7pkw5VAfC
76VUG1wvf9a9pplqfVbY1lPNrVTPv7vTxMSkjZ03p1Nl0dyOzldQ/Z+Pkuro
uimVAx6+pHp3V9KzRRk9LJ4iz2zjDDXbby2x187QsngqCgs8tuqotgos2rdv
n57qXSfDoky3vmL75VPuJLkZUDxGIsyFaLwSXsLfS6kmvIgmvIgmvOh5PC/h
+QoQxqOkmvAimvCi8fC86H6eF42H50U04UU04UX387wQHxHOG8yFaLwSXkQT
XkQTXkQTXvQcnpfwXAUI41FSTXgRTXjReHhedD/Pi8bD8yKa8CKa8KL7eV6I
jwjfK5w3mIvwe7YK80uK8kuK8kuK8kuK8kuK8kuK8kuK8kuK8kuK8kuK8kuK
8kuK8kuK8ovyEeG6g+8VzhvMhWi8El5EE170PJ6X8HwFCONRUk14EU140Xh4
XnQ/z4vGw/MimvAimvCi+3leiI8I12Vcd/C9wnmDuRCNV8KLnsfzEp6vAGE8
SqoJL6IJLxoPz4vu53nROHheRBNeRBNedD/PC/ER4b6F6zKuO/he4bzBXIjG
K+ElPF8BwniUVBNeRBNeNB6eF93P86Lx8LyIJryIJrzofp4X4iPq09dx38J1
GdcdfK9w3mAu5Dy8knoviEdJNa33vKb1nsRD6j3ZT+o9iYfUe17Tes9rWu/J
flLvhXxE2Pfgvo77Fq7LuO7ge4XzBnMRns9WYX9UoP6oQP1RgfqjAvVHBeqP
CtQfFag/KlB/pHxEJC4jwUeJfIcS9VVlnz6G6zSuQ/ie9ckjxAmvQr+qBKFf
VYLQrypB6FeVIPSrShD6VSUI/aoShH6V8hFh34x9IfY9uK/jvoXrMq47+F7h
vMFciMYr4UXj4XnRfTwvGg/Pi2jCi2jCi+7neSE+IjxXYN+MfSH2Pbiv476F
6zKuO/he4bzBXIjGK+FF9/O8aDw8L6IJL6IJL7qf54X4iPDchecK7JuxL8S+
B/d13LdwXcZ1B98rnDeYC40HrdSvkniIX+U19au8pn6V7Cd+VchHhOdSPHfh
uQL7ZuwLse/BfR33LVyXcd3B9wrnDeZC96OV3kde0/vIa3ofyX5yH4V8RHhu
x3MpnrvwXIF9M/aF2Pfgvo77Fq7LuO7ge4XzBnOh8aCV+lVeU79K9hG/KuQj
wu8aeG7Hcymeu/BcgX0z9oXY9+C+jvsWrsu47uB7hfMGcyEar4QX3c/zQnxE
+N0Hv2vguR3PpXjuwnMF9s3YF2Lfg/s67lu4LuO6g+8VzhvMhWi8El6Ijwi/
i+F3H/yuged2PJfiuQvPFdg3Y1+IfQ/u67hv4bqM6w6+VzhvMBe6H62EF1rJ
B78j4ncy/A6E3znwHI/nVDyH4TlDRHgR/X98EO7zuI/hOo3rEL5nOI8op85R
x9+BGTmw6nTw7RcDa2meHW1eaZ6ewPToiR82rTBvg40eb17atussnkONBknc
86U6jurz3AcN/WxVVKsk5Xbh4/Sw2mB6MXPY73BY8VHqNCVH83jNiddeDt1V
DdmJoYbU0Md0tfbzCduw6x503V9/ym+Ciu4fL6ueIs+TUz3d1f687zMO9oCX
d3OUGPwv5NjJf5DDrRK3qwXJ1yHGSvxg8hhWl78qGxnkY87Oq2r/yMR1pB5q
ZR/eLGqogpgzynwjCUfvVVa0R9A4kED7ibizdlMaYdGemjjnoEdwJTsl9rB1
LVyK+tUqariK7vf6acs0yRI51emV14ui73FwvMLy4IvIBnD0LY3PGCsHC1//
GZsnSCCwPmDt38NZnxDBuelnh7HzFk74In7QMD1k3l9iMVn3FHTSgylh1zl4
U1tnd8+dvb+RPB5oa7jNPRTDhklVdgtqpfDJOG+D7WYxyJfKC76PboQhhxWz
DgxQ0f0PZ0THzpPKqPaptJy2IJ+DSYG18Uv8nsGq/dWXJcdlUP/+bwfFwxtA
vVwZEjGU9bEd+qnSuv7svJLI7Zllg/Xg09/+vaqIVlj9Vc/okyMewPlBxZvM
dU0w7lS1OPgXjtalSpu2wJHTKiAoq2rCuUfP4EjS3xGxaubrzz0/ndq4TUb1
oZgFi8+mcbDwi36GP4tbodth9lMbYxnMrQodW/FrE6yNkbRaDmR91W6D+t0h
Knbecd2xBXH99WDrXLh55IHef/eITU02rneg0k3Wqj7aAn9Zfxo4N56jdXK0
uWt30rL7MOjOXWOr/a1gFnM0K0TB5gz7jfkBCf1l4LKtxt4vRNb3fc7FcCBj
DwdKJ6O0zSdaQHNh0/0iA/NFW05UVk7qYOe9rnqw3kmvg4yxg08vcmyHm2t1
HvYrimGxrcPnt43kcNf9G9m6CI7ew7GKyNlWK0th/G391yGlcogqLlznKmVz
T3LyR7Ne9cb9pDBdezOgDWIrNm203MTew7Zd2xfwXggHFyxMWk52yWDl0X0v
7mmYT7s5XRw6tZGdN6vMRdPWo4OCb+/+0L23t86NMdWs/nkjvHjv5IwvX7WB
W8+d9Z7eHO0jlbKceT3nr0JFnDh7bl47vOEVunyIhM1he+tfHVs7oBXCrYNn
2mZ0QLB+1rqEP1rYO4C8ZKffUg58l6wxxA9sh8a8/WfbXzLfWJYad2ViFTsv
/Z3bulROB99m/zZcUtoBUd4JK3Lnc7SPxajagz4U+4O3R2blhkAFbGsA+6K7
bA70CV/vI41sgYgFu89rvusEJ7+fHHrMWuj36W+t2zFhDgeesz7+3P9OB7hW
rY3d1cl8a15Orddr/3Xe8s7l6xZ06OCAcxo0JLL3p2tPPH7a690JAdESv3Rb
DhY3px7R+7D3gYSQEw1bjF7CnJC9R4Kl9ZC5vTPDRdYJ9SXeiWtusDn1wdBr
uQs7mqG+ICr0TBpH7+Fn7iGO/VTPwc1MoU0+2ATSK4PTl+3u+x7zZPS1qf5v
cGDncKM8d00n5DodTTWWM9+d/UagXlzC/j6VpMiytUUHyQ89XH4s7IKbhtuh
uYZy+CS38HL4o+d0vVEw7ztxbFef94/Ud5a6e9nUQHT1Tu6lb+/3wdLyikgx
9EwTz0xc9rzP3F0y+UrxtC4lfPEkWtYT+QLUgyd9O+U6mwPMI8+dHOXO9u93
don1yNFB0s2r6me13TTuZSM+3vfIu5vy/zE7bfj0hV3ga2/1s7UDm+fnBTs6
Le7fCeOvJH9ek9ADllYRSzrD2ZxxsHG15K2Sbihu+rTgyHo2L6d/bXYl01kN
VZLTkyeEtMHF6w6rMy+qaF6u2mc0R2Oigh1Daq6nzWbvDWO2eZy9ulMHj7VN
ydbNLG8kiZaF8TtUUH/g+tsTw7phdpDZTSe5ps88b28zxPF3kEPP9q1qebkG
TB9uzH/btAkuTFUnTd+pof/fqcWL1BEWGpD2RIUfmNgKHdyWWWUqNv8HZn2/
4vu/+85RKf+qznl/ajfV4Zn1VTkuOsiKc3oxuEwLbZJhdaNSbsGN1llBcWfY
fP318yzFwc+00L352JGgSU9gj/PQqoXXNHCruS4kL7uL+sAV8reuXjrxFPp5
GjZ3L2HzeMQIdfXcHjV43onn8qazOe6uz+DyQ7vZn//Afsv8FL0Wgq3K4wM4
Nu+/Fnpxzy+rWZ54Ff158tBXWgjT2nn+5d8FjaWNNemlWjgxM8f4XC2bD79p
LrBTF7L58ruAlWL3Qi00mSZdsovQQZlN2FDI7b2nLt/oh1XpYIfFVc3LM2xe
aknbq/FNfEF1vvR3SNmuBbOUkbkhT/WgcXtp7KjurWemFd5ZIX3nh0EHim+5
z+Wo/rliTuYkBy3s2Rj6+hILA1QXtrw7qEMJG2YE/mG8/RWsunBs4vv2zE9z
Xh8XV19Qwi0T59JRul7/7FQdbV/L/Pz4U7FW6x5rwGHA3CaFhvl9m+fzix+r
DJAU4z12fHc7dA8YtWn8n8z/pyeYp7teNsBveRNXZkzthHxZ4T2PRDYPRPqr
HoyJMED5mLrh2cUa6jcPW9c0OeYzf+zvZ7ZrZqwG/gERmyOe
    
    "], {{{}, {}, {}, {}, {}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Dashing[{0, Small}], 
         LineBox[{363, 362, 370, 371, 380, 381, 391, 392, 390, 402, 400, 412, 
          410, 422, 420, 432, 430, 441, 449}]},
        RowBox[{"-", "1.3`"}]],
       Annotation[#, -1.3, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Dashing[{0, Small}], 
         LineBox[{364, 365, 373, 375, 383, 385, 394, 396, 404, 406, 414, 415, 
          424, 425, 434, 435, 443, 444, 454, 457, 456, 455, 452, 451, 465, 
          466, 464, 462, 473}]},
        RowBox[{"-", "1.6`"}]],
       Annotation[#, -1.6, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Dashing[{0, Small}], 
         LineBox[{366, 369, 374, 379, 384, 389, 395, 401, 405, 411, 416, 421, 
          426, 431, 436, 440, 445, 450, 458, 463, 468, 472, 475, 483, 481, 
          480, 479, 478, 486, 490, 489, 488, 487, 485, 498, 499, 496, 495, 
          494, 503}]},
        RowBox[{"-", "1.9`"}]],
       Annotation[#, -1.9, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Dashing[{0, Small}], 
         LineBox[{367, 372, 377, 382, 387, 393, 398, 403, 408, 413, 418, 423, 
          428, 433, 438, 442, 447, 453, 460, 467, 470, 474, 477, 484, 492, 
          497, 501, 505, 504, 507, 509, 511, 513, 515, 517, 519, 526, 525, 
          524, 523, 522, 520, 528}]},
        RowBox[{"-", "2.2`"}]],
       Annotation[#, -2.2, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Dashing[{0, Small}], 
         LineBox[{368, 376, 378, 386, 388, 397, 399, 407, 409, 417, 419, 427, 
          429, 437, 439, 446, 448, 459, 461, 469, 471, 476, 482, 491, 493, 
          500, 502, 506, 508, 510, 512, 514, 516, 518, 521, 527, 529}]},
        RowBox[{"-", "2.5`"}]],
       Annotation[#, -2.5, "Tooltip"]& ], {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJyFmH9czWcbx4v8OEqJRy1iSpiM2pBN0/WdMuyHopXHb2tmGoVFpLKRSEJY
bUNK+ZU2JGVTbf1Qm1QKJf3OUadzqtPppNPpnFM9ntfzve/7+V69ntdz/uh+
fTq32/V6d93X9bluK6/tK74apKenZ/r6x7/X//XpC4h1G+PyBIjWlblGTzta
C8LvxVT3L7y1UrWuiereq3v8YpqaqXYq3GtoaNjCznNoV1s2taLz5VT/56Og
+rvaaU8NSl9Rvb/rTOPS+G4WT4brNVF8D9tvVTFDO0vL4nmS/vsyPx3Vb27O
CA0N7aU6+NyeIGO/PrZfNu3hGZd+FI8eh7kQjVfCS/h7MdWEF9GEF9GEFz2P
5yU8Xw7CeBRUE15EE140Hp4X3c/zovHwvIgmvIgmvOh+nhfiw+G8wVyIxivh
RTThRTThRTThRc/heQnPlYMwHgXVhBfRhBeNh+dF9/O8aDw8L6IJL6IJL7qf
54X4cPhe4bzBXITfs1WYX2KUX2KUX2KUX2KUX2KUX2KUX2KUX2KUX2KUX2KU
X2KUX2KUX2KUX5QPh+sOvlc4bzAXovFKeBFNeNHzeF7C8+UgjEdBNeFFNOFF
4+F50f08LxoPz4towotowovu53khPhyuy7ju4HuF8wZzIRqvhBc9j+clPF8O
wngUVBNeRBNeNB6eF93P86Jx8LyIJryIJrzofp4X4sPhvoXrMq47+F7hvMFc
iMYr4SU8Xw7CeBRUE15EE140Hp4X3c/zovHwvIgmvIgmvOh+nhfiww3o67hv
4bqM6w6+VzhvMBdyHl5JvRfEo6Ca1nte03pP4iH1nuwn9Z7EQ+o9r2m95zWt
92Q/qfdCPhz2Pbiv476F6zKuO/he4bzBXITns1XYH+WoP8pRf5Sj/ihH/VGO
+qMc9Uc56o9y1B8pH47EpSf4KJDvUKC+qhjQx3CdxnUI37MBeYQ44VXoVxUg
9KsKEPpVBQj9qgKEflUBQr+qAKFfVYDQr1I+HPbN2Bdi34P7Ou5buC7juoPv
Fc4bzIVovBJeNB6eF93H86Lx8LyIJryIJrzofp4X4sPhuQL7ZuwLse/BfR33
LVyXcd3B9wrnDeZCNF4JL7qf50Xj4XkRTXgRTXjR/TwvxIfDcxeeK7Bvxr4Q
+x7c13HfwnUZ1x18r3DeYC40HrRSv0riIX6V19Sv8pr6VbKf+FUhHw7PpXju
wnMF9s3YF2Lfg/s67lu4LuO6g+8VzhvMhe5HK72PvKb3kdf0PpL95D4K+XB4
bsdzKZ678FyBfTP2hdj34L6O+xauy7ju4HuF8wZzofGglfpVXlO/SvYRvyrk
w+F3DTy347kUz114rsC+GftC7HtwX8d9C9dlXHfwvcJ5g7kQjVfCi+7neSE+
HH73we8aeG7Hcymeu/BcgX0z9oXY9+C+jvsWrsu47uB7hfMGcyEar4QX4sPh
dzH87oPfNfDcjudSPHfhuQL7ZuwLse/BfR33LVyXcd3B9wrnDeZC96OV8EIr
+eB3RPxOht+B8DsHnuPxnIrnMDxncIQX0f/HB+E+j/sYrtO4DuF7hvOIcjJs
+9CnpCwRykIntUZcrqZ59nvVcfdw0xqq/xEoKrCa3QKqz5fbf9r1J55D9Xx/
NCy/NriTatM21yzbqWqqT23uPiKy6IUr22yHXo/LhNR5ebM1KiXN47wT7x7p
7awEky2wK6zoOV27nM+k5kARaLbMczgzQU33g2mVftwjGdUffXPDa3irEpqO
WtiYFz8F2zB9lU2WDPaMq++0sf4Tlvt2H840Y3W59VJP3f7x7LyUSxH/LB3T
Cw2PDGtNHz+D49pd9bdrlfRehV04mH0psQK+XrPiwCNdA+xbdM0jqrYcNG/k
VSWYVIPR/kbttdFqut/b37g65WsZ1eM+u+lh9FQJKnWp8eGEBnhPPK2mfIYM
RsTfT7orqoDYhevkW0xZn8i9FzAudxQ7b39mZNYPxr1gGZNmcktVD3PHpcSN
yFfSe66s+nWK3qxy8PswtKBbIYbQ7tKpX/5WBiVzNv/1ccALGPuTve2NYWq6
f9md+b9a6aRUf5XROSQ5XQl65q6WlXMaYYl/Vkt1ihTORfjubhU1gEO6b6GJ
Eetb+kVJE7uHsPMma5anuYt64b25VoWuIc2guZ88wmB5CWQ/XuMzRa8RXLj9
395JVsKJXcNO9Jwa+F54GWb1aIKeQP6J5uji0kZIX/3D1ngd8/WmhpKklAgp
1dHJ86qV8a//PtlezbvPN0PVqKZi1ylSeFjo186lvARRyjmz20NZX90zM/Hc
OC07z2CayN7YoBf0y/5687NgKTS1RMrqOh7CpidJ+VePSaDkrRDvsDNKWieX
bO/MypAUw26DvGt2B5vBo0/yTWgHmzNmHFv//RwLKSw+6mp7tlQ64H3uw2VW
HsVHlbDD2dznTrQEeoYszHHVZ33e2aOCm6lg5/k6VE2+36eDg1EZJ57OaoVo
l6DnDumZMDr8UI7/YBmc3Vm0cev3SnoPT45a9p5bYh442R0JnpAjg1t9W594
NrG5Z/nNioJDMc0wd43jbqVrC3gu+EQcFsbew+I2qQdxO5SQGH761kW1FD5f
tLTCTcd8mqxPkzmrkZ13/lHlkd09OvB/vn1jWNjrOrfpgl3k4gVw3jHtiqWu
Bd5dHOTvuUFJ+0i5SVT1+7lpcNrzzm9eya3wU1S5m1kVm8MWP63T7LBohpjR
363aeqoNjO75ue+skdDv5UEmJ108lTDP7opzxaBWOPC+1ZhgFfON10SOuRMr
2XmHH4pWWL/SgceYosyK3Db4cfmmhtMuSvaOUJK+pNXGAfZ2+DfLvpRDx6QN
J3MfsTmw6pQJrD8pgYqNCVNjwttBlX1BZT5dQr8vmCm9V+GohIAAbx+9B20w
3uZBvFEH860hixz0e4vZeYZxq/cWyHVQ3pjodDycvT899pKv/WtlO0w94jN+
1XQlHDuQLDNezd4HJAukPzv0d8LNjmGx/o11YDb24jmRpB0mRf7tuP4+m1PL
nNs2j+xvgs06c2eLeFYXAqz6giz7OmDo4MDQkIiX4C1LMt0QMfA9JuaY9Rc9
k5RQnOzfe3pNO2TbPdzyYwvz3W85i6Y/yP2v/+9essJHqoNlI7z7K+90wba9
13/5YG0BfDTe6ZlJVQddLzlVpboEdw14/0j4pC3baXAVtBVdLQlb0wVp82IX
TvYtg/HNfeXiHR0D5m6nm+EvBvcoYE5A4tD7fp1w6K3iSE0WmwOaS+Z3v/yY
7R9zfYR//m0dTEj9Zc3fDSoad/rwZ9tPu6sof+PEC06Xnbug3XZCYKIdm+eN
bg8KWDW0HV56p/q4RXRDe2GjT2IgmzMiHX6ui89Rgd1Pfvsivdi8nLNzdGHQ
/B7wnXheOmNrC9wc98ZY9Q01858Xz3quNlbDcCPzguv27L3B6fOkxIn7dODy
w6PLSgnLm4bUdpOQXWqw/yOjui9ABYny49EbJJoB83xBU3ekZL4MzL69NMQg
XwMlFUNj9M1eQndN4JzS3Rr6976Rbs7lWGhgpKdET2PdDBN31ohHdrP5v+OD
s/kj6wbOUQa71uUstFVRHXG0bMIoJx2YZ22UpWRrodAtSn7XIg/Mufkm3EU2
X89YsSTskLsWBm1LeDDZpQbOzEyKtb6rgavegXMfXO+iPvDCR2PLTuyrB3nt
SZu2j9k8nuZ108e6qwfcnaae87Zjc9zKB+vmj/ye/Xv1horpDX1a4PT2jumX
s3m/4+I+z4VrWZ5AQEn96J1aWFzpHqW3qQvyvx0VZ3xfC2kHQxY51rL50OWV
/ZeOmWy+BGP7u8EZWoBtTWuzAnTgULTUxvDOK8iz2uD/4pkO8mPzFisus3lJ
3WEQsv10J9WyK7MTbvtrYes7I4cfru+FIbHv2CSoleAZuuTGY5+B84OlZHWx
2Twl1ZvMo+xnz9RCXXBcyGPLfgivT857JVXAH7Y1Kz7Z1QeBSb9L499mfnr/
p7lnNyYpwCdo2II2TT9YTxe1c8+Zn99REZ24olIDOauaDvr1ML//q1P/iDxV
P9RaLn0jS9MKFpfXWqbmM/9vvnll1fob/VAkuljn/XY7SL/weDHkFJsHbF2n
HDsS0A9PJU++KPtDQ/2mW+CVQfeuMH9ccmpHoe6ABv4FXpUVpg==
    
    "], {{{}, {}, {}, {}, {}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
         LineBox[{363, 362, 370, 371, 380, 381, 390, 391, 402, 401, 399, 412, 
          410, 422, 420, 432, 430, 441, 449}]},
        RowBox[{"-", "1.3`"}]],
       Annotation[#, -1.3, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
         LineBox[{364, 365, 373, 375, 383, 385, 393, 395, 404, 406, 414, 415, 
          424, 425, 434, 435, 443, 444, 454, 457, 456, 455, 452, 451, 465, 
          466, 464, 462, 473}]},
        RowBox[{"-", "1.6`"}]],
       Annotation[#, -1.6, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
         LineBox[{366, 369, 374, 379, 384, 389, 394, 400, 405, 411, 416, 421, 
          426, 431, 436, 440, 445, 450, 458, 463, 468, 472, 475, 483, 481, 
          480, 479, 478, 486, 490, 489, 488, 487, 485, 498, 499, 496, 495, 
          494, 503}]},
        RowBox[{"-", "1.9`"}]],
       Annotation[#, -1.9, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
         LineBox[{367, 372, 377, 382, 387, 392, 397, 403, 408, 413, 418, 423, 
          428, 433, 438, 442, 447, 453, 460, 467, 470, 474, 477, 484, 492, 
          497, 501, 505, 504, 507, 509, 511, 513, 515, 517, 519, 526, 525, 
          524, 523, 522, 520, 528}]},
        RowBox[{"-", "2.2`"}]],
       Annotation[#, -2.2, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
         LineBox[{368, 376, 378, 386, 388, 396, 398, 407, 409, 417, 419, 427, 
          429, 437, 439, 446, 448, 459, 461, 469, 471, 476, 482, 491, 493, 
          500, 502, 506, 508, 510, 512, 514, 516, 518, 521, 527, 529}]},
        RowBox[{"-", "2.5`"}]],
       Annotation[#, -2.5, "Tooltip"]& ], {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJyNfQd4lEXXdiiCFAFpAoL0DoJ0EDgBadJFOkjvHakqHQSkRDrSBQEjRTB0
kN4JJYSQQoCETSE92d1sNnXzhXn2nvnnrPzf5/Ve1/PemXlm5szpZ+ZZKo+a
3mdsbjc3t4YF3NzePfl/m6p9nfO/G6RjX4mDz0599z/WbpLYaI6U+IX4Q6zE
jux3/yVKvFG8b5G46ju4KVniM2K8FIk7iwnTJA4S42dIPFksMEti53/u76Pz
v5++EoNevd0kMegFBr3AoBcY9AKDXmDQCwx6gUEvMOhlfHN/Hx//m0711On1
ZfT6Mnp9Gb2+jF5fRq8vo9eX0evL6PVl9Poyen0Zva5y+t98VHTyJ+gFBr3A
oBcY9AKDXmDQCwx6gUEvMOgFBr1M79zfp4f/Lae+LnTp7eqp89fE+Gti/DUx
/poYf02MvybGXxPjr4nx18T462pn/lsPfV34xukC5k/QCwx6gUEvMOgFBr3A
oBcY9AKDXmY33d9nR//bzvi6yCXnG6cLmD9BLzDoBQa9wKAXGPQCg15g0Mv8
gvv7/MR/21FfF73jcsn5xukC5k/QCwx6gUEvMOgFBr3AoJf5Pff3+UHQy+0m
tytc77hccr5xuoD5E/QCg15g0AsMeoFBL/Pr7u/z86CX+wVuN7ld4XrH5ZLz
jdMFzJ+gFxj0AoNeYNDL4hb398UxoJf7Pe4XuN3kdoXrHZdLzjdOFzB/gl5g
0AsMellc5v6+OA30cr/O/R73C9xucrvC9Y7LJecbpwuYP0EvMOhlcaf7++JQ
0MvjFu7Xud/jfoHbTW5XuN5xueR843QB8yfoZXG1+/vibNDL4zIet3C/zv0e
9wvcbnK7wvWOyyXnG6cLmD9B7/vyCNCrY9/3xWU8buF+nfs97he43eR2hesd
l0vON06XO3+K6TaFO/nkRV3E/4l28tGbpoj/E+/km7+z3ewcL9TJPythHKO/
TY5j0GeX42wQHdPlOFXEe5lyHGMehxwH68ITjNFxqGzHOtAP47H33TnGfOiP
daMf/s7Hfd/zPfO4Yb18HL0dcmF3WTeeOl0H5NPgW/Z7/86fGIf7n//ebzWO
wccUEttd7Y3LPPw9vn6+TvQ3/h7G/+7Oxzfkxc70ys7GyebrcYdccnmBvENf
eTvsAOQY/TEe9EOPy1U77AbkHv0xHuRCj2P92XzBUk/QH+Nhnbr9UO3gK+Qc
/TEe1gl7w9uxL5BL9Md4WCfkiLdjX6D/6K+PZ5b2m7djX2Av0B/jYZ2wf7xd
j5cdsj/Gwzp1v6TauR2G/EO+ON2QF+wb5EGQkf3W+fc7kk7Ih563+TvnjXPy
w0/SBXnQ/Ueos18STRMdXkk6wH/sA/hrDIM8I4x0O6jibNBlPG2SDvCHx6Wg
C3oJOsAPHseBLuO9NEkH9p/HPaDLGCdD0gH+8jgBdBnzOyQdsF+wG+L1sxHS
/gAb+3NJYvDPWFeMCzZG85EY/DP2J8EFG+sJkhj8M9ZtdsFYNzD4Z+yH1QVj
3cDgH+SYY6wbGPwz+JHqgrFuYPDvtPh7ugvGuoHBv06CriwXjHUDg3+6fT4g
6Qa/dH+i4hvwG3Rz/4LxgSE/Bh+yneuxMf31YviG3CfIh66/3sw++8p9gnzo
9tdfYug/9kmXD5u0B3ocZWJ0hUn9xT4CQ/+hv7p8pMt91O1vrNRfXT4y5b4A
63WYDEk39Ff3kw6p/9BfbrfAT71uEsby4DhmD71c4jysD1jfb2/ZHxj9eTv4
hXZgtIM/aAfGvOAHxtXttT+Lc0Ml5k/wCRh8AMb8HPM4icc9PC/gcQyfB1iP
C+JdnrofiJf7z/WM8+V9eoL18DyFxz18Hr3dLDF/6vGNlflDVzl7n5xwuXif
Xr4vr+JxFF+H3t/G4ir11P2znemrq55wPeByz+X8fXL2PjvxvjyRx218ncCg
B5g/YV90bJH+FViXI7v0j8A6XzKkfwPW7Zmq4+J9vU6dweq5VmnfdLm6weQG
dXS7bNf54Oam27cbTE59GZ99mT30ZXIczOQgmL1vYu+r8yrdfrm56X7cl9m/
YObnTcweRjK9jmV6k+gid3hPlyt13qLbMzc3HqfzvExvNzH7GMnsSizT20SJ
wXdgxLE8rvj/y4WvS5zA8wCe1+l2LZbZjUSJuVzqdXgrq1NbWR33/yq3rnLG
5YrHKTwP4XkjsH4uYmfnBnZWV7ezurOd1WXtrG75f9U7Xxe94Xryv8kpj6N4
nsTzVmDQBwz6gEEfMOhj9Lhze4x4S9/XOBe7auhhkuyvx8NhMj7F+7DvwEY7
5BZ6Bj4r+4l8ARjrNPwB/JCF1QX85TqRjwGDT9g/3d7YZX4FDL5hP3V9z5D5
kr7eRFYfsUmsn3855N+B9fMTC8tTLSwehN1Q68d6gPW4DP4tXu4fxkE8jrzP
2KdsieEHdbtjlvxDfqnrrU3yE/kE+Am+Yf3GOtT6kE+iv66vVrYffpJeXX4z
pLzpdZ9QOQ6vrwBDvhE/AIN+Y/4kSb9e/4iW+yam+X/qK8DQD8QfwLrdVvsH
/YWeIX/GuvS4LInJq03uJ+aB/kP+wG/wCfPo9SIz84M2FufbpPxDXiC/kA/I
J/RVzyPMcn/0OpxZvg/6dPuVKuX4nHjvtZR3o3+UlHfwDf2N9peyv7Hvb2V/
g9+qP+QL/fV6mLKPRjv2X8kr7BPkFfqsx5vxLH63svgWcoV6QZhcn14/4Pl+
JpNjL3ae52B1NjOzj2apr+CHbg9tUn8NrPob606R7Xp9O5zxW7Ub++3N4ncf
do6t4nnoK4/jwCfwD3IIrNebVfyv66dZ6if2UfdvZpf6hF4Htsh28BXYWOcB
qdewx7yOZjzvsPzDV9Kv2zMeZ2Uwe6TOqY19uCTngz3Q63aJcr/0+xdxsr+e
v+J8KVXW24Bhj/Q8MF3qizGv0h/oIeytfh8EdblkaS8Rr2H9kHd+HqnfV/GW
7cC6v/aX7cDcr/C6HT+H4ec2vC7Pz1153sDPafT3zS52mcf1vM6hj29zefK4
mtcd9Ps9XtJuAev3RbxJ9zfeLN7xZ/GQP7u/ESrbgdGO/UQ7MPfLvO7Jz6n4
uRY/1+Dn3jwv4udY+vg2l7iQ5yW8boN2/J0/edzP6yR8/2HngXX77y/bgfV7
B6HsXDxUtmO/0Q6sxy3Rsh1Y9zfxsh2Yxz36+2aXcz60A/NzI318m0veh3ae
F/I4HZjnVWjneRfiFW7fYaeBdb1ySHsJfwH/BvqA9XhGnR+K5eTEX8A6n5KY
f06V/k7Ps2NkPGE81fmhfu6l7BLiV/hz0A0/qdf9zDI+QZyBOBR+DlivZ6RJ
/6DHP2o/4P8Mui3Sf+j+1CTjKeM9Fd8Z7Yp+/fw7U8Y5wPx8U1+fWdpF/R6o
F/PnB1i+esnFb+n3PLyYvz/A8qFLLnZZv8fmJeMBvA+M9/X1uPpJ/R6kt5z/
rDNe0e91+Lj4Af2enbecH+8D433uh/V7ljy+Vvkh6gHcz+j3+PzlfHhfr/8G
MXpc/ZJ+fytUvo/4DBj6Cz6gPzDkF3wx9sf1XBT7hveB8T72Ef2xj8CgW7fz
/kx//Fh9J4iNF+ryxPugG/1BNzDsEt4Dxvs6nWHsPD9M+hO8r597Qb/fyv6w
a8A8bgD/gHV9UPUFrEOXD3XexrFenz7A4udLDKt7R7pexUp+oj/4qcfD/szv
+rP8xY/V44LYeKEu+4r3wU/0Bz/1ey6u55Z6vhEm+2Mf9fVEuzzxPviJ/uCn
no+5nlPq98zj5BN+jOdjev59R2LdLliZXrve29DzLqtLHgj/zOtbwPCvwLA/
wFgv/DjWq9/j8JMY69XrfWEudav33RPBevX5LKTXY2wSY716PTFNYugPX79e
5/KTGOvX89UwibF+YKyf183ed08F6wfG+vU4Jo3lxxnsfdf4TM8TXeMrPU9x
jY/++/zxBvP/N5g/5+2+rN2XxQvBzN4Fs/7qey5uD43u6vsnbt90eb0hMeyX
3u7L5D+I6VewxNhn/X2TxLqd5vcgrSzuVXUbYL3Or87TgPVzYis7n7K6PPW8
GnljCptPYV1PrCxvtMr9RT/sLzD2V2/3ZfoaxOxBsMTYX/19k8TYX11/I13y
Ct0exErM753p52GpLG9IZedjqS77pJ+Xpcr91edTmD/1vFrVq4D187VUqffA
el6o+IF+4Iden/Jl9iOI2bdgicEP/X2TxOCHbt8iJQY/dPsWKzH4wet/PI/T
x3v/PT/wQ89/U9h8KS77CAx+AIMfwOAHMH+CH/p+qfxX/x4C+XGyzF/1ulq8
07/g/Emd8+r6nCnzP72+D5wl83tj/1U+a/A7W9YFdD2Il+/p9Xa7CwYf4V+M
9xIY363O/VTngfq9HatLHZTHQfq9LD8Xu63fwwpyqdvxOES/NxDmYmfQzu2O
np/DLvB7BLEucgv6jfWoc3dg9MN8+LtBj8KgR/8+D/URtf/A4Cf6Qa+BodcG
XYmyXvG/+S1jHlUPh/3R8/ZLMs6B/dHr1z7snmkw04Mg9r76LgF0oB32B+3Y
R37uiXZ+LqqfK7rWnfT7NjZpn/R7CKrOzeNq/b67TdontPM6Lo9zsb96XeOS
jBOxv3qdwEe2Y3/1+nIQe98k27G/ep0sUrZjf/W6mfpuQ4871feYaNfthvo+
U69fqzod9pefW6Id+6vXr1NkO69z8zwB9h3t+v3zNJc6LY/TwR9jnxySP7Cv
wPx7SPTX61YOyS+063Ulh+QX2sEv/d5zpGwHv/S6cKxs1+/xOyS/0A5+oZ1/
J6PnEQ5mzx3MbzlYPc0h+YV2/dzGweIsB6unOSS/0M7PnXldHP6P9+PnAsDv
y/P0vF6d8/G8Xj8/uONy7sTzZvgTYOw3+Ax/gHq0Ma7C+nfeMdIfGP1iWP00
htWToXe4D6PupwLDnyGe0M8ZICepEutyHO1ybsPzavTX67bZch3A/J4uj/Ow
Lv0cR91j5nE+9pHfk8J6dDvnkPIA/up+xyr9tx632lk8YWV6l8H0Rn23pO+P
+l0HvR6dxOhU30/odZJMiXV5UPceOf2IP4AxP9aP9ennI/DLdhln6PFduJQj
7Bf2hY+H+zNYH+jF+MZ86h6V8VTfZ+l2Wv3uhF5vxz1T9V27bk/V91uw47zu
qd//UN/fQZ+xDqM9TI4DjPf0dlWnxnqAed2T1yFgn7CfmF+vR/qy+nAwazex
+m8kk/9YVndMdKnr4e96fK6+9+K/BwI6dHtvccn7dHsi75+58Xojr2PDrxr8
gnzGS78Oe2jMj/M3pa/wW9AHPa6DfUqRdtnYx00yzjb2+ai8vwI7Db0w2i9J
O6nHdfEsTubf+9mYX1dxFfYD/gp6ZYxz36XOjzjf0KPn7J5cqNQ73I8DH/Tz
AdxTiXK5B4j81OiXJP0Pvz+qx9ew5zZpN4z1XJN2x5jvljxXNvbnqfR7Bv3P
pJ8y3nsh7ZTx/kt5bgw+wg+Cj/o9ItjDZGavbHJeyAX2Vc/TE536kCr3FfeX
MC/uLyEOgD/GvIFinCy579hH8A/YkIMAaT9Rn9DrxRFSP4y/x0pszBcn9cNY
v0ViYz4L8wcvmL2OlOMZ61XjGeuzyHGN/uFyXGBjX1Kk/hpyr/RZv1/5jJ2/
m+S+gr/gD/gFvQS/oK/op9d1zko5NvgTKuUUcoj+0H99fcFsfepeP78PinqM
Hv8kyHbIk36fIFHuF/Zbb4cdt7u0Q0/wPl8P5oc86vdksH6rlHf9HhT8Q7zU
J+yT/h1LuLTD4D/6w25iHmP94dK/YH367+AkSHuD/cL4uP/K6/76vVuF4X/h
x061qtZt8ED1O01pD7tsiVugftflXmqXzR+GpdACn8sdO6wNpwfRcau7LfWi
lH4Xg4pWNpPnfL/XefOH0uof80xpMslKD66Py9NzRzh9sq+7Y+ApG8UXTKu5
vS7OLbPp155Nv2x7KoUGrqpbOSP1LfXqXb/RUvsdWijGj6M5rb409fndj54W
rnXmjkcS/ftweN2IW68oWcxno4NivigqK8ZPo3k/Z2723ppEbaJeVznQ0UG7
H3ucL1nLRtuKuFf5baP6Hv7OKJOH/4kIKr7gY99Xhy5RzNHZpyq2j6HuZs/L
BYr4UBFbvsAJfgm0bfmjfLsbBdHRm1s3LMy0Uom+a7uHXo4gH7GeVBoaeWLr
96YEGvXFzM6xAel07ZPKr767aCaLWF8WfdN60vRleZKptu2Cb6kr6ntt7PuX
Yx6fGLTuBGU647eT2+8OX9XR6txPKx0W9IVLP9guMnPn7dQ30m+vnl85fECF
WPpr88q5pTIsVP70X0tOXgujJ2J9Fuf6cF8hkwJDB63wCVDfTY5p8OvVImux
/ky6KtZvpbZi/1KpxZ4KM2v3TpDy/NmeSXMXjIugMmK/rU5+RtCbUVt/Wb5D
xa/5jtX8+2Fd9XsQdQT9Kt6sWfHwTw1qqd9z6Dahxe/zL6I+95am//Pg1vXu
Kt7K5V9iQORWFU9tTh8aXTBExU9trr6d4NHCSsNb7C2wMzOcBj6917FNoJ2y
60ZN6fNDPA3/8Mf1AQ/s5PngRp96lRPop3JDJq2clEnVhucbYulppRXfFPaq
9F0mzf/b2iPkgJUC1y1ttCdPNnk493mUeD+b+o8dWXtbMTvNWvX6U09TOL10
xjvbfWa4m2ereOdS2TxjW+VXv38wQ9Cj4p2tYv0q3jn3VeJHfWeqeMfYDxWv
GPuh4hNrvZsVM0tY6EmJfvPmnDLRJ3P7deh4OIVKHf7hWv5A9b3QHaGvFjqy
c6//xEQLtUksFNF7Ujg9DmuY4bXUTsuWNvw8zCPeOV4mRf5y5NLFQVZ6knfj
oiV3LTRxboE2wWXCydKj6h/3B9nJ68PPV05tE08H852bYi+v7FvxK9W6/L0m
k+WHmRRTYVP1+vWsNHj2pqpjU5HXqu9vPP7KznWvcTyVEuvPpALPWofmibM6
15NK3oK+BHok1pvDJ7HeCKc+mp36iP1U3+N0t67acCy3hcYv/uLCjsdvpH1b
I/QlzKm/KU79iKHzYv/V9zrTWpc7Y9uSQoc+7p+7njWGrEIf7XRI6GOcU/6z
aa6wNylO+VS/l3LlcVvHqgvZVHNXr6619qZIe7f/xNlpV3unUBlBr4XKCX7l
2AEhv3YaKuQ3zmkPw6hnuzP38r4+Ku3FhZXpFZe0/oNKBOw7Uq2MnSzlam6t
elHdt5/g+W4/lX04Kex5jNSbao/f2fMce1/k+ZCf1uXI8WG3nO2Jk/n0xBFT
Xy3aH0f3en290f2EOj9ZKfTDQpahb3dd6Rjm9E8p9Kxgp/ox7eJoZ2TRyoM+
CKcxKZ9s3hV9jP4S8pZCLYW8xdFXr3q+/dctZ74KEwu3X5Mz3+9pBz/6J5OW
RRzc+sNWdb6yqH3wuW/mWKmYaeoL32eqXnN2wPgltz5LpYstqptG5EuQ9mu9
eWONj+/EU/xvwWd+aafqN41XN6ucnGNHz+24WfVa33AnvVaaIegNp8tCP9Xv
rhr2S+XHHwj7lejU72CnvVK/02jop8oPXwt7gfsAFqe+4l5FMsUK/2KiRvtM
3/xUojvVWvD1hqGlop3je1O328GnD/2pfndg6Y539Kh71QfFfqh8oqjwT5HU
MP+uj1qMvUGN2+7I/GdcLIWWsvT6fICvU34SqZZn6R3Xfgp2ynuyU94jnf4z
jfoI/5REK4W/zqDwEady/dnd4pTvLKc/TabT3009OCf8LRXo7nm9wh/36eqx
7HtX5sbR0ujU2pVTnpPDfi9l+Yok2ta1wqxT5UKoTIchnz4qbaPPe5/KHfdP
FHVaE0+l/0qj+PDY6hSbRMP9F48Z/qWDhrVa1HX1QhsVomrFv9kVQXXKr5i/
dtE16rzsbLOd9WOo3vRxHwSOfkr9nnYZEnY1gTwbre05afULCvq7mW8rS479
KTFpxt0JkWROfzd/Kr257HFh0PpE8ihf/BfPR+nUfF6x6U+LWqiUWE8WlfQc
lCtlYDJ9LcY30V3LuP5L2myjad7vxo+kt7lL7/Erdps2lgxeXK9PLF3efGJ7
5rFntG/0O/oTqeUAv1CPpy/JIuZLds731klvGpUR4yfRXxMOHjcPzyDPhwc2
lztgoc6C/ixKEPQn087e9nu/ekTRRx9++Fu97x7S1R2/xAdWiqfe22ptrfVt
AJ1f3qhPVUcaTXt5zm1pezOFPLw1d8oGB22u3rX6Az8b/VzxHX0OWrH8HX0p
1DYy9HBi3WwKcJTN3pZjxw6W6vt9rRgTzZs6pt73A/6kwMPv+BVOLd+Y/lwR
eI4ciRvj8xeIpi+2tooc1/QxVW75bv/jKeRlu387UiBVafeOHjNtaf6Of6HO
9dso5H5At0X+0TRK8C+dRgj+menesMhtMxe8pSQaVSFXxXsU8+f8SxeLxBF5
PQ8o3uR5TpzyQdLS3jly1iG90qGBr+n49e0lvU3JtP70/qDw3lH0tGCdliXn
pNHkqqM3Xsrxe6MazPJucSWDMjsfqxqax0q2b//97rv8DvKYYjuTt4eNmrba
k7dH4wjqOeQnz1fJl2nJw+s9QgZE0sOUJ6nn1t2kwcsb1N52O5rKT/zq1P39
PnRI7EcMnVy/rmNCjC8tEv0TaHTG+Mwhd4Kc60+k1Ir/eCwp+pJ8xHrM5N/p
TpV5c944159MHaos3NCn3lvnelKoUlDM5AI7Y+iooCeVOr7wmfJ9TlxTbk/P
ZYd3pNPpM6te9MjxS+6CPznxuuBPjt8W42fRJEFvMh0T7yfROrEfoc79sDnn
j6bRxRPfrIl00MM633lm37NR1NQZUcOGm2jt0F6HW1X7ngqdy/2RpzmSftj3
0/hOL25QPbetX5iXx1LGSNOCMxt96cjBEnUrFEqi7sn57nQ+m2MP4g/1Grcn
mWYXrlXvbHYk2Zq1mH2iQRoNezdc8SRaMmRpPr/5GRQ9K/FhlyEWKrnkwW+p
17No4W8thk89mEwLN134cblnOC0q93frCZNP0YHgbvsetoomny9+Pxno8KZr
1V7fLPUonqodnb3fUTWAzGJ8M53a231Ol2qhVFyMZyN7w5lXXnSJpjb3h15u
1zedDr15sPxsMzNdFu9H0Lxjvj+n//ovhQt6Y2hymx0xG7r4UH5BbwKdfXK5
cdWpQfSXoC+Zqv2YJ6xqcAR5C/pSaZygL4FGiP1Lp/ti/8wUJdaTRX0Evck0
8Oua/VuVjiLPqI/W/TrlLi0Q9MXRnpV1i7544UePxHhJFFim98Ap2a8oSbxv
Iy9BTxSVFvSk0RKxP0nUQtDjoN8FPer70tOpIQmNm9tppZCnTKq8sW2X2tus
NFLIu51Sfx3Y+VpO3Gjos5VOZjV21A8LJ++6btmfjlP54uaXu6d1yPFvg2OO
rg8oFUHnqzfYvD7ATgcX+PhPbJVAL6ddP+c/MZPmrkovuuiElfo2bXP82es3
1OFJRvuWW9ZQj7bd7cNy9A7+Z7aIZ1X9zIivVb3LiI+U/xki9OsNeVedOqFZ
yxU0QsTHVvpLxNeRzng61RkvJJKniAcyabf95+9rNU2mT4V+WGjy5KJnduXk
RXNFvGWhSyLeMtFZQU8G9W47IbZJBSuFCP+q6M8t4i11X2Cz79opHdtkUtre
3ecjcvKmasJfq3j0nDP+8Rfxivo+3Mhn8HsYVvr9hmnrHu8wpz5mUiehz8mU
Z+TozuVeZ9LE+rM3X7xhdckfit8ccLffaNQbkD9l0i6Rf1qd/E4ld2E/Eink
k6dVnnZLpTX3br4yjUiQ9aQOK89md1kYTxV+vH2g8FNVDzLyWzsliHwrnrqK
+EPdr6kh6FX3xsYIebJSppCnSLos4lEr9Wy2b0vv1hE045e0zplHrHTsaMla
LStGOONXdR5k2DcLfSbsm4m6dp1f3auShe7dHpXh9dDktG8pNE7wL9Zpr7Mp
S9hrO10Q/MumbwX/7BQ1aCWl1gynhXs9Lx7ddYaeiHg+m264l9k+826KU56z
qb7t+Z3YNTlxt4h3LE75DKPpmwt2zfDKsUMDV3XoaA6jHT8fC2pb0055D/7Y
7concU79QB06zjme3akf8XSjWHK5E1vDaEC/0ttGFfiHuud+mMu3fBgVbhFW
tdCyI0RC3+xOfYujkUKezXRMyLOJqueKdJvoYabFjdt6VfJ844yHUyhZyHcs
fS32J4UeiP2JcebTFlraoP3FS7PDqOtvwfHNUtX3ydPeTC2+ZI2qVxn1Ejt5
i3oJzh/sFN43f0iDpDiqZfdzTFyZky+s8t5a0t9EF4Q+qt8Dmyb2J4WKif2J
pTjhf8Mp+17/4d18TlNP9/FVT+XkC+PKJr0+nB5LW3KtyNEntV/nZm0aUvyE
qncZ8WImfW4N6NpypqqHXWrt2eLIbtd4/JjIx+xUUuRjqF+m0tq3dWvdKJlA
mwW/rBT7xzt+qfrYV8Pf5RvhNFLsl8NZP7HRfcFP9XusM4pMC0poqe7Znv99
U5Wlw9TvqcaK/DJb5iX7y/aetL5CNM3dcbX/g1+86Zao98RT3uErZs+L9nfq
Z7pTP830Orpa5wdJql6Rq/G5ySWWq9+nLCnyW1WvaJ7/Xf5rk/WKIb3f5Uuq
XhEv1qPqFUtEPK9+n7GriPcjZP1gywA3R/OHKh+ZLuhVv7do0Kv+nQSjv6ov
GOtX+cpQsR5VbzDmV7/PlCjWp/S9hKBP5TdG/oHvqWKc+qjyYyPfV/bG2A91
b8bIV1Q9w+Cn+v2nZqK/uhc5SKxXnY8Z8pRBBY90rJH02uLkl8VZjzI527Op
gGhPcfJL/d5zCzG++j1ngz+qfjJG2L9setKv4Jbdv6bQKqF/2RQh8p8U+mDo
z6fbRYVRhR7TH1Qrc5SaiPwqjNxObFj8/YUDlP/v9i8qJZvpefLh7sv+eeO0
z2ZKFPb5DdUQ+ppCnwp9jXHWI1OouVg/7EMKLRb2IVbK0a7LrR2t6j1w6n8c
lTG3v3eilb+Uq5HLx3/cfniIlKPUbwO/aewXRZPEPqdRpVmLHo3KTJLnTx3+
LWY56oHfd4yggXXLnPHMf13y1fbnyT/GeT516k0CfdnqeVzqwxeSL2NFfVDd
Wz52/dSH+08kyvr0xA/+KG2rpM4302vHeZadpP59g28WF/xy0sqdzv6RNHv2
kSDzjttSjlY+TGu61vxMys3jYZ8trlAa32Ek5+QJ7+bDOV8aZYrxk5znRRm0
XtSPLU76s6iioD+Z/BeNPfzVxSjyyDtpnLn0I8q6a3+wrns8bdkyKLPgyQB6
sTPaPatEOrmVX7HzwiAzZYb9NLbTYQdVHVv6au44/D6IgyYI+lKotajPZFOD
8k/y9liUQnvujkwZmyeM+pb5MKxRgqdTbsNpyK1Cla/GnHfuRzRdzvekyoor
j2WccqTUusF+ywNlXJUu+Ke+kzfqu+q7bIN/Zrop/Ndb+rNOoW7/rLhHEcKf
xtHemkcSYsY9d/qjJAq/8Lj5wrWvnfWXZGot6i9RznpfmtPfJjn9Wwb1E/VM
K1lEvc1BEaL+Z6OGcUdWr+keQTcbPsrT9toV+nHRk6flZ0bS6jfza0yw3HTG
k9H0w+tPHuz383HuRywVyjNy6J0Kz+gH0T+Bbs5oXaJJWpDT/yZS360/HxrY
/qVzPWZaLup5b5zxYjKZhT9961xPirP+F+OsX6bSHhE/JlFpUT9Lp4KiXmim
VoI/GfS54I/FWS/MouuC3mTn+0nO+meosz0njxbzq++wF4+r1nXuFXV/c0TH
emdnTh4m7WLZhWfmZPys/t0av97ZeTaMV/+OS4Wwqj2qrFP/zof/8rPT/4iJ
lPL78dqpL3fmV/K7T9QDcU8zi5r6ZbuF71C/j3DkeeVBvjfUd3Ojir64sv6I
+p3K9B0bawWlqd+vr1Q6+HzTokqeJol6oJKn/qIea5b2IGN8pwNj3uLeXwy5
vyP3Mx9pD1ZfeXExq736zmSdqLep+8V+gr4EaQ8Wiv1T9+CLCHrVPY5Wdzrv
7FDmrow7Js/psu30ST9p307mnxrS6fkrad8qC3rU+XsTsT/Kvg0W9Kj7E0Ua
7qn4S9ssGrDZ3r7aR5cJuOI806Dg8T4Sjy+Q/4+p64IkDnxUKmXxwDcSZ5b2
LHc/JkLiSiNaUfGFMRJ3+Ovh6CFFEyVu8kODDr4+Zonv7Jnvn1I2WeKBN65P
+HR0isQxkQUz6FiqxAsK9V0/xpYuMX/+0Tfyn+OrsiUO69Uy3n9DTn5xueTB
DlOsEpc7ead47eny9/Pc24/26fPvzFTaMKnjHzcjk+h02rPAo6XDye1insQR
o8wSf7J8SqWCt+z0429Zvxw+FiVx6XXdPly0O5q+a158xoZTNuq5eer3HU/G
00+Lh0yucVFhzF9gh/fHlaqaJV61duGSvDXMZO9w6m3sx+k0a1uelYkHrdT1
7L5v29gt5FU9Yv8nzcLkfNArvM+/H+fvV7hwKH1351fy/f69Jo/9rpyix9L+
QliTghESQ48xfkJU3uyUU2r9MY8mvLx6QWHoNeYr3dy3TpmbhyTeUb920csn
L8jx2xyr0mh9ieMS57MuWbvsw7NyvAMbLpTP1chL4mXnA/N3GeElxxvglbU7
5sJdiYdfelV2eeUncrz9T56+zu9xX+JSewsEju3xSI4XFneoUvVR3hI/W9J0
W5cfvGX/sj+ub7Et9rnE346s3bSjd4Dsf3H1vKCDz/0l9upDW5q98Zf9Rxf2
WlqrWIjEj9NqXI2dFyr75/10d5Xm6SESL7L8My08dyjV6XN8wuzAY1Leiv7+
ZVKRGmclLv/D7GPtFt+XeGfyuIL1hj6SOODxsIqNw59LvLXwwJ6evgESVx65
fMLtD0MkntHrSrc9P4VKzJ9bfus9I/KjCIkD24/LSvaMkvj8G9OWBr9HS5y5
NrVy2y/jJX5ZZ86F+Y0SJAa9h/uHnhnzq8IHvuywuf5WhR/s+/7F8crREt9Z
4X9ubs1oOhDmODe7pJfUp2VjN0/xW6jw6G1dEoZ96y3xtwGb7hVZrfCPr7pc
a/fYX2JL1tTjO6IUvjV9agE/S4jEn3X5OmNrvlCJ8+X6uvapteESt98YXDHk
N4XrdA3ukZmTTwGPezG1Q626CvPnmqpuE2deVrhlwuJunSubJR7Q7H6nVzUV
9i5+/9XkSVaJowcXD8o1U2FHP/+njY8el/r/8cUrK82n7kv8TeLywmsdzyXe
tdSzX4WqIRJbfhn3JKBquMSln6VaK52NkrhV+bVlJnWJl/iEl8feQfFJErcL
CGi4qJlV4mcZlW4eWGyTeGylSf3u3rNLvC305wdXBh8m2N9zu2M6+IXclfhg
6I7JC0o+lzjh+yuni7R8LfGuZeZFPn+HSXzVe/kfZdtFSRxWsvS9Uc/iJM7b
oG/Kc68kibd9u2d1eoZF4lrzI8tV7GiT+OLuBse/8rBL3P36fJoQkCbx64jr
T9dVypQY9mhm1ePLvhj6RmLkV8DIX2EfgCHvwHp/X9bfl/VX7bhvhHZg/X0T
e1/VDbi+cn8A/4P+kD+sG/zFuoCxDr3dJDHmAcY8wPAzwPB7wIgngXHODIz7
qfr8NyT/sF5grFdvN0mM9QJjvcBYLzDWC4z1AmO9wFgvMPw7MO7HAoO/uL+l
888i2z1Pbtl5ICJW4r4iHoiT9yF4/LDjdNN/fTar3y8Bv/X4IZ5OtF11bXst
B7Vzrifd52iBOj2yJf5X6JPCXbvXamFdaZH+wdExs9i+PQpjfr8aS/8pWNVP
zoc4GfQhLkb/K1l3Q8vWeC3xyVcJ665v4P44Sr4/un3skEub1ft1gxb1tL1U
+rJifO65g759K3HDfEHuJVer+dumDWz+fa4kiSPEU42H+qOxrxnMHrruN84X
MB/yHIzPf3dM1x+Hiz3K2yWlZP9DYRLr99W96CNnvIz3gVGXknHBqYC7hX9Q
GHVHyMPSJQe3BHVUODBzYly/Qoqf1fJsK3EkWb1/+H6zC1UCVf999+J/nd5d
YfmdpbM/9APtoKd3lY9ntZ3uI/frVp0qz1o8Vb/nKOUpX72afaNjJfY42e70
qBWJLvHJ0FuXpvhOipX5IuYrcvBgVtc8SSr+EPRaJEa9Fvh3QY9qL3kovobD
I1niJgGTVm4uuVfmK2teDR2ZveqQxPdW+lyq38DB8iOFQX+p2hd8kjJvS/rn
H7k0yOO7l5KeJiPWV+/zOpKGvwib9fXjC/L9EmVtea99q/Il2CvsB+wT1hvs
vJ8D+dou/KfS94rl2n4+K0TpN/JdyGftvCGtv1ui8KceHQs3PagwifhB6UOP
HjNHHi6e4WLvdX/jxfyLN9MHf4nhh4GhV8CoHwBDfvR2M/NPVtbfxvyVnfkb
L+ZfvJk/8ZcY6wXGeoGxXmCsV283M/9kZf1tzF+peAf2BRj3j/j6dfvhLzHW
D4z1A2P9ur2JZ+1mibF+vb9NYqwfGOsHxvr19bm5F9H6K/s5s2ChMf9MVPL9
fFXZiNCLCkP/KufaXdQap+K7WhtXt9zXXP2ensyHZsx88IlPkks9AfcbgW8I
+6V+L0/PB1zrCbDTwPVN3zWbeEZ9Zwv5++BS9zIlE9Jc/M2kzdcG/vyxicWb
JuaPFH7tGJ1UuISqRxS+3Km8t02tf8RnM74pdj1GrqdP3aTBXp0tEh/1K3qo
x3kzm0/l9xWqLbGO3LtHYXevP0/WucziVy+J98y6cj8xfb3EA9sc3zpn4jUW
36p6Qumkzb/Oqdpc4p2DlwZsanOD+WtvFk8r/LBQhMezWrcktjXMKNFj0FMW
b6v6wpqEYj3O9lXx/TaKOD3kKxWvc3/foMz2Ypktnknc9mbF70IWvmDxnKo/
eBQ4Pj2+p8oHQp4WcMSPV/EL9BDtHAfsenp+8SyVL5RstL2qeyf170BCXqOD
Nyf2eesh8bPIXqNPDL4mMegG7j2q/fUdzW9JfOrnh+nR3zyVGHQAz7x5u/Zw
92cSZ3xi/mrB3BeqHudcN/ClfjHfm8e8lLjK8zWdVj16o+INp70Bzj07/+vr
t0wSd/qswmSf4ZESwx4B17i8I3ehAW8lnjT+xK9lLTEu8QKPz4p9kuFWoLvK
r1r8VLvLL4Eqf+K/7wZ9jptXqXr8gK4Sl8tb7dDDz28w/6vqGQU7Tlu8YLRq
77/l7K7UL30lxv4CPz4dvLp3f9W+r0Zw+JoRwRJjf2V839nN1/Sjap/9Mnub
R3uTxKAb+OSUTesv9lLtv1XfdCnAL1Ji0A3sd6aaVx6Tav93WrXQSuNjJYY/
AE51nPXvPlu1h547m3dSWqLEOx8mdu23e620b0Mrp0ZG574lsf3A763z13gm
sXvT2z/v6PpS4lths99uPafy0ah6+QuHfP1W4sJzdzSs9VLlo7+FbD3Sormq
f9QR8Y3KR/+tVevJ0vsqH+0p4hkVD5R/WuZ0yem7Vf7X9mGt/AG3Vf3jnzWv
ShXzkzj+qxM1PJu8kvjT2Ojme+qp+gc1WTA08spbiUcvLLK0wTeq/tFBPFX9
w1/4M5WPTjg2at4HeVU8YORvKh5YZ0ve1XObykc/E/GeykfnLy6d51yhOzKe
TB7y+6RqR+9K/IHviQdT6/hJ/NW12YuqpSvca4xfCbderyRe32fH3bOfvZa4
+08LPr/fMkziSZZhqw/uV3jGrSLfFn/4VmKPL83H4htHSbzlo/3zhgyLk9hr
xfKnze4oPPRo2Z595idJHCfOHxROeDIqdO51i8SLxHmEwkuSj36/q6BN4mLi
qXBxEW/bJT4gzisUPtim7fbw3WnsvEThZqNW1S4QmcHOTzJd8gHcZ4D9h97p
9sdM1T/788sT/56R8niv5s42w3+9JvGhU+UbLqj5SOL6h81v2015quL3uEYj
e58PkHhui9Jf+G14IXGjq3X7zZym4u0RYyu0OfXijcT9P7zyw0W3CIlX/H1i
ZOYUVf/58Zvee/NsVvG4p73dyo7ZMRLv3Wm60b16gsQP3f2OeGxU9aE3My9a
HwxR8XqqOF9R+smfayZm/lBsSDKLl1Q8X17kK6qetF3of6rEf4t6qMJBA3td
jR5zQerHq5Lr7MvnXpY42ydp5o6MxxIv2Z6/c+NlPhLfSy+fe/iBQInv1663
4fbhIIl/ufP7oflhKj8oMMwz7ujYNxIfL9r4wfU5ERLX/7PVxza7wk8H3k4o
+GGMxN8kPWzado3Ctv0DSvTdmSDxnJbDB68qn8jsgcovjPqomdkHlW8Y9VJV
7zop6kWq3jVDxNsK82duUb9V2E/YL5WfbBH5qMLjhD1T9bEaor6rMOp/0J8b
H3/Z/euGTyRGPRC49qftE8/+Gygx6oPAF/s33n0wKZS9b5L49b7b1+KXqfNS
1A+Bc0cPiGhWSp2fop4IXKNRTIElfya45Ou6/VDnq8iXdfthlRj5vV5vUOev
qLcADxb2UZ3Hoj4p7aWwj+p8FvVKaS+FfVTntahfAp+vGXLocRuVH02pfGrR
j32TWHym6keN4ptV2bJV1SeM8xMbix8Uhn28eOap980lKp/xeNln4eM/TE59
zpT6a8hzlsz3DHui8ifjfENh3d7GM3ur8q1qzvtywLifpucbKr/C/TNgfM+r
x58W9d24tl92Fj9eYvKb7eI/zjrv92E+1Av1+qH6HUG9PqDsn37+4eam5yNu
bno+gn8v/oZcP/RPzy+CWbuJ5RMqnof+6P1vsPqRL9ufYNZuYvG0ilcxvjx/
c+qjHk+7uen1Jzc3Xq/f++bXvxPbKnkx7gOo/Zs9+Y/tq3I9l3hctwdfNZji
L3Hq9BL+354JlDjfhrjax7oGyPGPiHp/GJsvgtWz1XnAI1EfV+cHPhUO3N/W
1cLq2wrPm71scUaQwkY93SLXs3bL0AnzHS/k+FGzTtuXjo6UuPXzV/Xufq7w
D+J+hZrfNq5JQshLNb5xf8JKk4V9UPJ+6+Mlp8+/TmH2QMm/cX6qsFFPsbvY
B1OnwR+MPu/L6hkmVu8wsXqByp/5+ct+cb6tMO6DAi/5qOfGT7MSJW4s6rWq
feBfFbvumqH0/ZA4P1fjNRf5ZQIVT0jMqt9D2a9fRDyjsHFerOjVz/OsVHx0
6ophdyx0hp2/lIwN/STitJKf0je79EjqHU9tlgeeazJcjV/QupY2bXIdv+au
Ml77Z1ld7A+vF/P6DD9v5vkxv6/C9Z/Xk/4HatqTQA==
    
    "], {{{}, {}, {}, {}, {}, {}}, {{}, {}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], 
         LineBox[{1891, 2085, 1819, 2084, 1820, 2086, 2283, 2088, 1821, 2087, 
          1822, 2089, 2284, 2091, 1823, 2090, 1824, 2092, 2285, 2094, 1825, 
          2093, 1826, 2095, 2286, 2097, 1827, 2096, 1828, 2098, 2287, 2100, 
          1829, 2099, 1830, 2101, 2288, 1969, 1831, 1968, 1832, 1970, 1987, 
          2251, 2252, 2040, 2041, 1779, 2253, 1780, 1957, 1956, 1961, 1960, 
          1964, 2318, 1930, 2271, 1931, 2339}], 
         LineBox[{2280, 2059, 1799, 2058, 1800, 2060, 1881, 1982, 2275, 1805, 
          2067, 1806, 1966, 1884, 2323, 1932, 2265, 2300, 2301, 1947, 2303, 
          2302, 2266, 1924, 2312, 2326, 1939, 1792, 1953, 1935, 1936, 1880, 
          2039, 2038, 2175, 1879, 2277, 2050, 2051, 2257, 2258, 2052, 2053, 
          1788, 1944, 1952, 2340}]},
        RowBox[{"-", "1.3`"}]],
       Annotation[#, -1.3, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], 
         LineBox[{1894, 2107, 1837, 2106, 1838, 2108, 2289, 2110, 1839, 2109, 
          1840, 2111, 2290, 2113, 1841, 2112, 1842, 2114, 2291, 2116, 1843, 
          2115, 1844, 2117, 2292, 2119, 1845, 2118, 1846, 2120, 2293, 2122, 
          1847, 2121, 1848, 2123, 2294, 2125, 1849, 2124, 1850, 2126, 2295, 
          1973, 1851, 1972, 1852, 1974, 1997, 1976, 1853, 1975, 1854, 1977, 
          1988, 2254, 2255, 2044, 2045, 1783, 2256, 1784, 1959, 1958, 1963, 
          1962, 1965, 2319, 2320, 2272, 2322, 2321, 1925, 2337, 2343}], 
         LineBox[{2281, 2062, 1801, 2061, 1802, 2063, 1882, 2069, 1807, 2068, 
          1808, 2070, 1885, 2075, 1811, 2074, 1812, 2076, 1887, 1983, 2276, 
          1815, 2080, 1816, 1967, 1889, 2324, 2325, 2267, 2304, 1793, 1948, 
          1794, 2305, 2268, 2314, 2313, 1795, 1940, 1941, 1933, 1937, 1781, 
          2176, 1782, 2043, 2042, 2055, 2054, 1789, 2306, 1921, 2269, 1922, 
          2307, 1919, 2315, 1926, 2263, 2298, 2341}]},
        RowBox[{"-", "1.6`"}]],
       Annotation[#, -1.6, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], 
         LineBox[{2282, 2065, 1803, 2064, 1804, 2066, 1883, 2072, 1809, 2071, 
          1810, 2073, 1886, 2078, 1813, 2077, 1814, 2079, 1888, 2082, 1817, 
          2081, 1818, 2083, 1890, 2103, 1833, 2102, 1834, 2104, 1892, 1984, 
          1835, 2105, 1836, 1971, 1893, 2332, 2333, 2327, 2328, 1796, 1949, 
          1797, 2334, 2329, 2331, 2330, 1798, 1942, 1943, 1934, 1938, 1785, 
          2177, 1786, 2047, 2046, 2057, 2056, 1790, 2308, 2309, 2270, 2311, 
          2310, 1920, 2316, 2317, 2264, 2299, 1776, 2338, 1777, 2344}], 
         LineBox[CompressedData["
1:eJwVz0dOglEYhtGPieIq1InbsCCWkYoFmDIRG8gWwAb2Hhm4HlvAiu7ALZg4
0MPg5Hlz782f/IOFcqaUiIgsP8mIGYZ7I1pU7RrL9qyOaJste5uiPaej+syO
vcuKndExfWHPrrNqz2tKX2nY+6zZCzqubxzYh6zbi5rWd47sYzbsJZ3QD07s
U0p2Vie1w5l9TtnO6ZR+cmFfsmnndVq/uLK/uabS/bZ2CBL89kTcOr/ngTue
eOTP3Y02qXX/w/v+vogBhvgHsM4x6w==
          "]]},
        RowBox[{"-", "1.9`"}]],
       Annotation[#, -1.9, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], LineBox[CompressedData["
1:eJwVz0c2AwAUhtFngm3YTvQog4gWkiHn6EEyxQ703hNtEdiAid4tQBmYuQb3
fP8bvprMYHKgIiLSfFZGXFZFzHHOLBes8cM3X8xwVR1R1DP94JR3dzs5u6An
esyb3UbWntYjLfNqt9JvT2lJD3mxW+izJ/VA93m2k2TsvO7pLk92M732hO7o
No92Ez32uG7pJg92I932mG7oOvd2A1326P/fusqdXU+nPaIrusytXUfaHtYl
XeTGrqXDHtIFnefaTpCyf/kDYy461w==
          "]]},
        RowBox[{"-", "2.2`"}]],
       Annotation[#, -2.2, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], LineBox[CompressedData["
1:eJwVz0dSQkEURuHrRNyGW3Li3ImICgaMqIvRHShgwoSZXYAZI6zA7w5Ona7z
qv7uNz5VmSiPRMQkuqMRJ4WIU+ziCt2xiJ6+z9Mo4lU/4Ce9zjMo4U1v8LPe
5FnM4V0/5Bf9iOdRxod+nHt5L1ewgH6+Iff0Fi9iCZ/6We7p57yMKr70i9zT
L3kFq/jOf8g9vc1rWMePfp17+g1vYBO/+m3u6Xdcwxb+9Pvc0x94GzsY6I+5
p3e4le/DHtro5aZvQ+d/jJpC5w==
          "]]},
        RowBox[{"-", "2.5`"}]],
       Annotation[#, -2.5, "Tooltip"]& ], {}, {}}, {InsetBox[
       RowBox[{"-", "2.5`"}], 2345], InsetBox[
       RowBox[{"-", "2.2`"}], 2346], InsetBox[
       RowBox[{"-", "1.9`"}], 2347], InsetBox[
       RowBox[{"-", "1.9`"}], 2348], InsetBox[
       RowBox[{"-", "1.6`"}], 2349], InsetBox[
       RowBox[{"-", "1.6`"}], 2350], InsetBox[
       RowBox[{"-", "1.3`"}], 2351], InsetBox[
       RowBox[{"-", "1.3`"}], 2352]}}]},
  AspectRatio->1,
  Frame->True,
  FrameLabel->{None, None},
  Method->{},
  PlotRange->{{0, 2}, {0, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.576009195726976*^9, 3.576249151417144*^9, 
  3.5762498408043537`*^9, 3.576250870683075*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Bottom", " ", "pannel", " ", "of", " ", 
    RowBox[{"Sup", ".", " ", "figure"}], " ", "2"}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"r1l", "=", "0.9"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fnlocal", "=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ds12dlx", "/.", 
         RowBox[{"x1", "\[Rule]", 
          RowBox[{"(", 
           RowBox[{"m", " ", 
            RowBox[{"(", 
             RowBox[{"l1", "+", "1"}], ")"}]}], ")"}]}]}], "/.", 
        RowBox[{"x2", "\[Rule]", 
         RowBox[{"(", 
          RowBox[{"m", " ", 
           RowBox[{"(", 
            RowBox[{"l2", "+", "1"}], ")"}]}], ")"}]}]}], "/.", 
       RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
      RowBox[{"r2", "\[Rule]", "r2l"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"point4", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", "0.001"}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point4", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point4", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{"m", "/.", "test"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point4", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point4", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{"m", "/.", "test"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point4", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point4", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{"m", "/.", "test"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point4", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point4", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fnlocal", "=", 
     RowBox[{
      RowBox[{"ds12dl", "/.", 
       RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
      RowBox[{"r2", "\[Rule]", "r2l"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"point3", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point4", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j"}], 
                 "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point3", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point3", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point4", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point3", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point3", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point4", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point3", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point3", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point4", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190", "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point3", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point3", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fnlocal", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"s12", "/.", 
         RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
        RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"point2", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point3", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j"}], 
                 "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point2", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point2", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point3", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point2", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point2", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point3", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point2", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point2", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", "j", ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point3", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190", "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point2", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point2", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"m", "/.", "test"}]}], "}"}], "}"}]}], "]"}]}]}]}], 
       "]"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fnlocal", "=", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"s1", "/.", 
           RowBox[{"sol", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
         RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
        RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"point1", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point2", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j"}], 
                 "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point1", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point1", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", "j", ",", 
               RowBox[{"Re", "[", 
                RowBox[{"m", "/.", "test"}], "]"}]}], "}"}], "}"}]}], 
           "]"}]}]}]}], "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", "i"}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point2", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point1", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point1", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"Re", "[", 
                RowBox[{"m", "/.", "test"}], "]"}]}], "}"}], "}"}]}], 
           "]"}]}]}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", "j"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point2", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point1", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point1", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", "j", ",", 
               RowBox[{"Re", "[", 
                RowBox[{"m", "/.", "test"}], "]"}]}], "}"}], "}"}]}], 
           "]"}]}]}]}], "]"}], ";", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "2"}], ",", 
        RowBox[{"j", "<", "11"}], ",", 
        RowBox[{"j", "++"}], ",", 
        RowBox[{
         RowBox[{"test", "=", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"fnlocal", "/.", 
              RowBox[{"l1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"i", "*", "10"}], ")"}]}]}], "/.", 
             RowBox[{"l2", "\[Rule]", 
              RowBox[{"(", 
               RowBox[{"j", "*", "10"}], ")"}]}]}], ",", 
            RowBox[{"{", 
             RowBox[{"m", ",", 
              RowBox[{
               RowBox[{"point2", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"i", "-", "2"}], ")"}], "*", "19"}], "+", "j", 
                  "+", "190", "+", "9"}], "]"}], "]"}], "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", 
         RowBox[{"point1", "=", 
          RowBox[{"Join", "[", 
           RowBox[{"point1", ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"i", "*", "10"}], ",", 
               RowBox[{"j", "*", "10"}], ",", 
               RowBox[{"Re", "[", 
                RowBox[{"m", "/.", "test"}], "]"}]}], "}"}], "}"}]}], 
           "]"}]}]}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"liste", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1.4"}], ",", 
       RowBox[{"-", "1.8"}], ",", 
       RowBox[{"-", "2.2"}], ",", 
       RowBox[{"-", "2.6"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", "point1", "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", "Red"}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}], ",", 
       RowBox[{"ContourLabels", "\[Rule]", "All"}]}], "]"}], ",", 
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", "point2", "]"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"Purple", ",", "Dashed"}], "}"}], "}"}]}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}]}], "]"}], ",", 
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", "point3", "]"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"Blue", ",", "Dotted"}], "}"}], "}"}]}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}]}], "]"}], ",", 
     RowBox[{"ListContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", "point4", "]"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"Green", ",", "DotDashed"}], "}"}], "}"}]}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}]}], "]"}], ",", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{"Log10", "[", 
        RowBox[{"Min", "[", 
         RowBox[{
          RowBox[{"0.3917", "/", 
           RowBox[{"10", "^", "y1"}]}], ",", 
          RowBox[{"1.419", "/", 
           RowBox[{"10", "^", "y2"}]}]}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"y1", ",", "0", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y2", ",", "0", ",", "2"}], "}"}], ",", 
       RowBox[{"ContourShading", "\[Rule]", "None"}], ",", 
       RowBox[{"ContourStyle", "\[Rule]", "Black"}], ",", 
       RowBox[{"Contours", "\[Rule]", "liste"}], ",", 
       RowBox[{"ContourLabels", "\[Rule]", "All"}]}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5760088841298237`*^9, 3.576008895180922*^9}, {
  3.576009329953022*^9, 3.57600933514616*^9}, {3.576249064407618*^9, 
  3.576249080092655*^9}, {3.576249679008692*^9, 3.576249681020369*^9}, {
  3.5762506235211983`*^9, 3.576250630377842*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindRoot", "::", "lstol"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The line search decreased the step size to within \
tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find \
a sufficient decrease in the merit function. You may need more than \
\[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \
meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/lstol\\\", ButtonNote -> \
\\\"FindRoot::lstol\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576009215471468*^9, 3.5762491712041903`*^9, 
  3.5762498602283697`*^9, 3.576250664303814*^9}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJyFmHtU1GUax7mYJYgkXtBQ8VKiaUrBSqvAMxah4A1bxCRRQyXIFk4ioJGE
IhsaZoaaSppZ5t1EifWCaKGI6RJ4RVkRZwIZhJkB4QfCDMSe/b3P7/y+nD07
/7znCw8vz/nMc32Hhce8vdTGysrKbG1l9Z/zf33aV30b1MfvBgltvjVrm9v6
clL/Xse6443jc6WwKtaW/Qmxu6qqWfteW2lvb/9YuW+CsWVQVS3cb2D934+J
9aflbje7lTSyTmrKqAzY26z4kzvrQI+9TxX7YaVj2sa1Kf7cOHt6ZqyZtWtE
bmpqqoX16syET3rFtiv2NW5XM/w6wB8rDXIRGk/BS/1zHWvBS2jBS2jBi++T
eanvN5DaHxNrwUtowYv9kXmxvcyL/ZF5CS14CS14sb3MC/hoMG6Qi9B4Cl5C
C15CC15CC158j8xLfa+B1P6YWAteQgte7I/Mi+1lXuyPzEtowUtowYvtZV7A
R4N5hXGDXNS/V051fOkgvnQQXzqILx3Elw7iSwfxpYP40kF86SC+dBBfOogv
HcSXDuKL+Wiw7mBeYdwgF6HxFLyEFrz4PpmX+n4Dqf0xsRa8hBa82B+ZF9vL
vNgfmZfQgpfQghfby7yAjwbrMtYdzCuMG+QiNJ6CF98n81LfbyC1PybWgpfQ
ghf7I/Nie5kX+yHzElrwElrwYnuZF/DRYN/Cuox1B/MK4wa5CI2n4KW+30Bq
f0ysBS+hBS/2R+bF9jIv9kfmJbTgJbTgxfYyL+Cj6dLXsW9hXca6g3mFcYNc
xH14inqv8sfEmuu9rLneC39EvRf2ot4Lf0S9lzXXe1lzvRf2ot6r+Whw7sG+
jn0L6zLWHcwrjBvkor5fOdX90QD90QD90QD90QD90QD90QD90QD90QD9kflo
hF9Wqo8J5g4T9FVTlz6GdRrrEOZZlzgCTniq51UTqedVE6nnVROp51UTqedV
E6nnVROp51UTqedV5qPBuRnnQpx7sK9j38K6jHUH8wrjBrkIjafgxf7IvNhO
5sX+yLyEFryEFrzYXuYFfDS4V+DcjHMhzj3Y17FvYV3GuoN5hXGDXITGU/Bi
e5kX+yPzElrwElrwYnuZF/DR4N6FewXOzTgX4tyDfR37FtZlrDuYVxg3yIX9
gZPnVeGPmFdlzfOqrHleFfZiXlXz0eBeinsX7hU4N+NciHMP9nXsW1iXse5g
XmHcIBe2h5PzUdacj7LmfBT2Ih/VfDS4t+NeinsX7hU4N+NciHMP9nXsW1iX
se5gXmHcIBf2B06eV2XN86qwE/Oqmo8G3zVwb8e9FPcu3Ctwbsa5EOce7OvY
t7AuY93BvMK4QS5C4yl4sb3MC/ho8N0H3zVwb8e9FPcu3Ctwbsa5EOce7OvY
t7AuY93BvMK4QS5C4yl4AR8Nvovhuw++a+Dejnsp7l24V+DcjHMhzj3Y17Fv
YV3GuoN5hXGDXNgeTsELTvHBd0R8J8N3IHznwD0e91Tcw3DP0AheQv+fOQj7
PPYxrNNYhzDPMI6Y04zgoKpTb0gUsiHI7lFunVLHlvjPSN9npIGLnk9w3lHC
8dDomUD1Qb/TXxP75W71VOzbhx8YWXKwmTQ93gq+t+k87hFWv735eHrNsXba
49da8L4mo8v7aPeBQ3tEb66lqF7JGamWMo5Preur1ba292hKvF34xV/1bG9/
P77blJHN1CMwsO1w3B2O3/SSzR3O1depzIeKpHilrixv3DGhOa6dIl0nOi+s
0dKvPxwNLcoooZ1f7I7ce0vLduT0QcPtn7Rk57n7l7rKm+R7y8HO5F5Gs+JS
bLyvSbQ8ae6efd20nG9Vx1pDCzY85FP8fHfTjLLf/R5RRfew0Vc6Kjgfd3sd
9p95/wGNuxOz0+5eJWUmx34akvqgy7tZm8uAwme3SRThEVYXfrdrXZwfYXGx
9Vbq4nSPvISo0DPk/GJizWzfhzTf584TrY/Ev8/xeP/kO1IT3fxgs/MzqRUU
U/qV0/FRyt+f3VZVO8G6nV7Nflo7NEF5Dz0ZPD3vYl4lNU7Z8tOP7zWxn1/c
rkiz92ui/oPCzhb4VdKRmsjF++8qfexypNkx7pKFRkXYur5S/ojrQ2TYoTHj
szvr9vCrp/5wb+LveerU3ZHj3m2kmneMh74pq6aG3FXPbFyv9MH25c/kbUuz
0NgVreGZH9dQ1IwdfgHpT/h7/3DbieDRvZ6QS4wmQHuohjZ67XnxozkWcsoo
t0y30Xfpo4uHFZWYplroxtXQpStdamlEcezDBocGjvN+Fb3WdqyqJ/uLafOy
v35MjsbxR4M9lb6bE/WW64xnLZQTETEoYaqB6rI8Rg4vMNLB4oh3tnspe+oe
j0WT3mwzUrqTd/UIr859Jc4uIKHVyNz3LjhxyP+pkYb2CzUGva2jx9uznq3P
MzLHQVbjgy7+ZKQDW2qD/1WtvDcsHXEhsHuegQq1Yy+XrjYyp8kjexY8H2ak
tO6zfaxu6WmIT3JiL30d+Y+IOe30bzMNnuz1c/EEI3PoXXwle65Vpz+xpT/0
mlVLdys3pazVK+8VR9w2bd5/10AtkbNzX9DU8f//0u/78HX5ZhqwIOnsd1uV
d4yga3aafHcT5U1dEdR9zXWar//8LyHuynvBqG5rzz83wEQDA8P6Pg5S3gsK
9baTztzX0iHHTduKnZX3hMbSifXWBiP9vuSg98pkZQ68cKXYK2y1mdoOrhl5
ap1E9dl2W+vX5tHYDbl9Gv2V94p7X2e89nmyxP9fv+hGj3c/kWh/ygy3D+vv
UktieOrNBIn/X9ilIQ62sRKl5G/tbWyooKODC567HK3k0aJltx2+i5Ko8res
byd88wfZ20SFZ514wv1tjO/f1uvrGyi+vHqjv3crdRj29V+0VOLvc3Ldlzmu
70k0suXDhsJLjyjziO/KSvsG7ofRJ50cBg4yUcvlvdk1y8wkeWh77HpX4u+3
ZWbgxAtzJNIuHNgzQacnS6DrmmInZS7O0hdpEmdLXd4H1rx3rs25upmKzg++
N2maRHVbbp/uqO2M651nXFv8Jf6+F6es6tPbW+Lv8xNnv2SLp0RLxjf6Wk0x
krSwLiPfXeLvwa7S5ue6NIl5pyVedne/2kQn569rnffSEyL3EIe8/U3sh/Pr
twIzGxupKrMq+mRSM0mjN3lPNyh79cshjkdfCmilh6ePFg7I6qDTx05nD21v
5fr3nOf5XZ9Vt9IL8y4H+G5X5q6w54dFLTdbyG3jtHHffNXKc8GQBXrHH15o
5b53N/61AfHXzBTYt8XNyfo3CrHEWX92VdlvstJpuPsVM8Ve+N5nq3UZ2Xqt
/rh0oZk8gv0fWCc004+hgcOmFCr7z7HvRx+5f6nzvhv5X9U5aimsX9KW9+cr
+8jDXS59reeaaZVPw9GGomZae2Ja37aLyr7ksu/qpqRfzTS294LvsldWUnr/
3EFeo5T9JWZOXsXrfc20Iu7G4aj+rTQ4JyJn7y/KfhX6SumPTuc796krKX9f
4lFN5WlLPnKpVfbCpBFx89vzO/fHkiHrp5W3UcjiCJ1PnrKPnYjpXbzsnJki
Hgzfc+djPU16HDk5Yr+yJw2/XnA+NqONymx7vjy5UNmXVs1yPNZzokRzklri
r51R9jnvAwG3+pwy08zoYZ+2RNdSRPIxbcY8ZY9YV3Z8+sx/KvveUpvob5Oz
zXTpum3pP17qjLdMB03+SWX/23o/xabiuJl6j/bYc/uwkabZJo4dc1ypA083
nCs9U6Tsq0NX7PhgabqZssvP3fZc1EjF2pxlM9cr+yLGF9YPnE+w3/8JsGtc
Qw==
    "], {{{}, {}, {}, {}, {}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], 
         LineBox[{363, 367, 365, 364, 370, 374, 372, 371, 383, 386, 385, 384, 
          382, 381, 379, 378, 377, 390, 395}]},
        RowBox[{"-", "1"}]],
       Annotation[#, -1, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], 
         LineBox[{366, 369, 373, 380, 387, 391, 392, 396, 397, 401, 400, 402, 
          405, 406, 410, 411, 415, 414, 421, 430, 428, 427, 426, 425, 423, 
          422, 420, 419, 418, 417, 416, 434, 435, 433, 432, 431, 439}]},
        RowBox[{"-", "1.4`"}]],
       Annotation[#, -1.4, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], 
         LineBox[{368, 375, 376, 388, 389, 393, 394, 398, 399, 403, 404, 408, 
          407, 409, 412, 413, 424, 429, 436, 437, 454, 451, 450, 447, 446, 
          456, 466, 465, 464, 463, 461, 460, 459, 362, 458, 457, 455, 453, 
          452, 449, 448, 445, 444, 443, 442, 441, 440, 438, 462}]},
        RowBox[{"-", "1.8`"}]],
       Annotation[#, -1.8, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[1, 0, 0], 
         LineBox[{472, 467, 471, 469, 468, 470, 496, 492, 491, 488, 487, 484, 
          483, 480, 479, 476, 493, 504, 503, 501, 500, 499, 498, 497, 495, 
          494, 490, 489, 486, 485, 482, 481, 478, 477, 475, 474, 473, 502}]},
        RowBox[{"-", "2.2`"}]],
       Annotation[#, -2.2, "Tooltip"]& ], {}, {}, {}}, {InsetBox[
       RowBox[{"-", "2.2`"}], 505], InsetBox[
       RowBox[{"-", "1.8`"}], 506], InsetBox[
       RowBox[{"-", "1.4`"}], 507], InsetBox[
       RowBox[{"-", "1"}], 508]}}], GraphicsComplexBox[CompressedData["
1:eJyFmHlUVfUWxwExc8goUYtUtJRrTiCZpGL7LtB8Dij4HEhxDshUzOCJIg4Z
IIloiPZQTBwgMMshywxRgdJUUBzCIZ6gXL0x3nsEORfhAvnWO/t33vmy3nr3
n9/6cjfn7vU5e/z1Wbh8aqCdjY1Nva2Nzb/P//VpXp3i22XMTWJtLZzype7z
YtJ+bxC6xevYTHmOUeim9PDQr4xlQr+bv6pjx46V6vOGm+t7GKvg+Sah//OR
hF5frPvd/voTodfVJT4af8Ci+pM1JaP9gaeqfZ87AxuHNKr+3Dz98+RQq9DO
QVnR0dFNQq9NDo/sHNqs2lfo8hLHtIA/NnrkwhpP5qX9u0Fo5sWaebFmXuJ5
Ci/t802k9UcSmnmxZl7CH4WXsFd4CX8UXqyZF2vmJewVXsBHj3GDXFjjybxY
My/WzIs18xLPUXhpn2sirT+S0MyLNfMS/ii8hL3CS/ij8GLNvFgzL2Gv8AI+
eswrjBvkov1ePbXxZYD4MkB8GSC+DBBfBogvA8SXAeLLAPFlgPgyQHwZIL4M
EF8GiC/BR491B/MK4wa5sMaTebFmXuJ5Ci/t802k9UcSmnmxZl7CH4WXsFd4
CX8UXqyZF2vmJewVXsBHj3UZ6w7mFcYNcmGNJ/MSz1N4aZ9vIq0/ktDMizXz
Ev4ovIS9wkv4ofBizbxYMy9hr/ACPnrsW1iXse5gXmHcIBfWeDIv7fNNpPVH
Epp5sWZewh+Fl7BXeAl/FF6smRdr5iXsFV7AR9+qr2PfwrqMdQfzCuMGufDz
8OR6r/FHElrUe0WLes/+cL1ne6737A/Xe0WLeq9oUe/Znuu9lo8e5x7s69i3
sC5j3cG8wrhBLtrnq6e2P5qgP5qgP5qgP5qgP5qgP5qgP5qgP5qgPwo+evbL
RvORYO6QoK9KrfoY1mmsQ5hnreIIOOGpnVcl0s6rEmnnVYm086pE2nlVIu28
KpF2XpVIO68KPnqcm3EuxLkH+zr2LazLWHcwrzBukAtrPJmX8EfhJewUXsIf
hRdr5sWaeQl7hRfw0eNegXMzzoU492Bfx76FdRnrDuYVxg1yYY0n8xL2Ci/h
j8KLNfNizbyEvcIL+Ohx78K9AudmnAtx7sG+jn0L6zLWHcwrjBvkIvyBU8yr
7A/Pq4oW86qixbzK9jyvavnocS/FvQv3CpybcS7EuQf7OvYtrMtYdzCvMG6Q
i7CHU+SjokU+KlrkI9tzPmr56HFvx70U9y7cK3BuxrkQ5x7s69i3sC5j3cG8
wrhBLsIfOMW8qmgxr7Idz6taPnq818C9HfdS3Ltwr8C5GedCnHuwr2PfwrqM
dQfzCuMGubDGk3kJe4UX8NHjvQ/ea+Dejnsp7l24V+DcjHMhzj3Y17FvYV3G
uoN5hXGDXFjjybyAjx7vxfDeB+81cG/HvRT3LtwrcG7GuRDnHuzr2LewLmPd
wbzCuEEuwh5O5gUnf/AeEe/J8B4I7zlwj8c9Ffcw3DP0zIv1/5mDsM9jH8M6
jXUI8wzjSHBaGOSSEOYl0/yVQ2aey6oWcbag9Mcp/j5m+twtaYl7bAHuUTaz
/CO9+u2zkPx0eFVCxQUaN+zRSvO2avricEifz3xO4h5hUxbdx+vCt82UMj5j
9E81U6kkdUlMVIo65yVsdJBeHFVFq9dd3Nrft0jE59J7b7whn7xDxrjbIw22
FcK+/Pr4G/U9LFQVFOvyQtItNd+HjavI0t0k92FRh7zC1Loy97v9zk+e8TDT
Kx4775RSoZtc0/Xd6zQtu2zH/bOlwm7Xd+FNGdtKKcc5WX9QX0iu65x623Qp
oriU557P/lWmcUkTHzoZH4h8e7V58B6X5Q/EyX+/KCVPfsdoJB+vXR4Vt++L
fHQ7eHWS88wS8myaV+PY2Ujufs2+ib1LWt2bhS8+Py0gXqbLlUVzPD9pXRev
JK+I7DpSrYt9U2OubT56nJJWdGjj7fOAQhy7z539liy+H+Vh/HiCqY6qt/v/
IW27T5FdPxipc1H//7lF2W4LWproa92QqpeD1fvQiwsDaOKlR1To7PB1N/86
4efZ16fOTvSso2VpH5zdP+kRRRwpP+JzW+1jQ4/mbf3xlybqUHRhUqff/hT1
wd52Y/b+I0a6Z3dq0KkBdeI971t4q+m43xMKGVqWmvSgjI69VNcmYJPaB/c6
bCqpjGmi4OTawTHhFRQd71o+K7pWvPdzc3oaJ7StpeVb13h4ZlSQx29nXus1
rYlcw2y+HFvbuo+WDDpzYNK4Jmqnu/vZoN5VVDQgMP2MbY163xE5+XD5isfU
5pi7U0hyJXX85NKbQ9zVvrsr6IuQU22bqP5cql2mt4mmxwQ1P8wxU1zslaDY
oeqeGvlhzqa0ejMdMHv7tbgaqCYlYVSwxSy4b243tldcnZl+3eby/TuzDHRr
7HTn6NNmwfHMkl1HQg+b6eOa0DtjJPW+IWPgpuSCdBMFR7xU0C7CLDid6/XP
Q939zVQcvMv43r/Kqbt3/zlvVlXT6LBOCR3+sJLr1KiVCe5mweG1nfue7G8w
kV1Xn1ETZ1TR10uP1uU9VO8rqn/40u6bQhNdWdyYmTqqWvz+AL8FCc05Vro6
s/vQJV+o9xivdnk7/lNXiXYNznvthZgbNHfW5D7dXdX7AseWxKRD3SSSetr/
3Huael8wvPp+cklaKcX3WBsX1k29T/CaUR5wUDKT3bbVu+PWqXPgXruo9Edr
rNSuwH1gVJRMToHmD9bHniXL7M9Sro1V7ysuf5gpz9ggi9/f+5PbDpdImVYX
5/rulu7SwNsFd74Kl8Xv5fVOa3v5E5lOlyc0U+19ChwdcSM+RM2j3UcN/oGL
ZfLKjZ65as9Dmp6fkj3+eK3obz379hk201xD+2si1jqNbiDP4pGj+wbK4n0m
Xe6SbZgvU+Tkj9omnv+TfLt2Dr3Wvkb0wzfXlOc894pEAxwC7lmXWsnufHLo
3NmyeL9VbXbfXTddpg26brkZhnJ6embKFEcHdS522H745gg/udX9QL/Sk/2S
jBbKStsSYZkgU6exJ3IHVVfSZnNUzon3ZPG+83V/HLo0Shbvs1NqZcH3w2T6
tr7wRd04M4VOWWu/2k0W72HRDv/rp2NlwbtHyXzbk5frqDHKtmiASy3ZT0xb
Mzm9TvjRK+Zc8L3aJ1TiY/Vbsd5C/Sw7jUeq1b06uyVx9Z9/ayBdsKtu+PEW
mu+4JL2lqUHUvyz72PwZZQ1UXEOd/ZPUucv+1o1MnfXZPPrWrA/DtjeIuWDG
opAR/3BqEH3P6OHuEZJvpbTfQ3YMtrtMSXsHDVmfp+43BTt9evW/ZKWX805s
L7ctIvmxc+GVeVby3jjdvWKlhepPlQ6ki+r+M8GYFVV43kq2e5636+RQSvPm
jDPMClD3kZO983s+nmGl4rBv7nUssJCLo7e15ld1X/p0y/tjVuZaacPFdmn5
qx7RPMu2m7r+6v7ie8pta19HK0mbPeM2dmugMXffWbM7R92vDhf+PrzDOSsN
X9Z20aq3yqizj6dL+yp1LzTXJ199+EsjxVst3QKLG2mY7daot8+q+9iGjDkb
F5155r/fafvfIsqp0ffpVt/0/9qTYiq7LkhspMLRyxYOvajuSxVtLbl/HyHT
Ujtz7S+Z6j7nXh7h1PGUlR4PNOxtt7yKMoNGLIt4X90j6veYUsf+pO57dlsW
ng3/wUrfD9ixeEe/Z/N4bvvQzBPq/nfr228abh2z0shrofWlz+qgXdLhEa8f
U+vAldsOuhNX1X31gOO19e9vsVJWwIWlH81/Qonxa+57f67ui38Bncg+Dg==

    "], {{{}, {}, {}, {}, {}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], 
         LineBox[{363, 367, 366, 364, 370, 374, 372, 371, 383, 386, 385, 384, 
          382, 381, 379, 378, 377, 390, 395}]},
        RowBox[{"-", "1"}]],
       Annotation[#, -1, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], 
         LineBox[{365, 369, 373, 380, 387, 391, 392, 396, 397, 401, 400, 402, 
          405, 406, 410, 411, 415, 414, 421, 430, 428, 427, 426, 425, 423, 
          422, 420, 419, 418, 417, 416, 434, 435, 433, 432, 431, 439}]},
        RowBox[{"-", "1.4`"}]],
       Annotation[#, -1.4, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], 
         LineBox[{368, 375, 376, 388, 389, 393, 394, 398, 399, 403, 404, 408, 
          407, 409, 412, 413, 424, 429, 436, 437, 454, 451, 450, 447, 446, 
          456, 466, 465, 464, 463, 461, 460, 459, 362, 458, 457, 455, 453, 
          452, 449, 448, 445, 444, 443, 442, 441, 440, 438, 462}]},
        RowBox[{"-", "1.8`"}]],
       Annotation[#, -1.8, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], 
         LineBox[{472, 467, 471, 469, 468, 470, 496, 492, 491, 488, 487, 484, 
          483, 480, 479, 476, 493, 504, 503, 501, 500, 499, 498, 497, 495, 
          494, 490, 489, 486, 485, 482, 481, 478, 477, 475, 474, 473, 502}]},
        RowBox[{"-", "2.2`"}]],
       Annotation[#, -2.2, "Tooltip"]& ], {}, {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJyFmHtUzekax3cxCOO4ZpCEcpcRwzB49qFBMhiSDstlhGE4x7gUjiiX3MKI
DIfIJaRE7kcTZnJLk9tRUYT8uqn2bu/4baZ2u+Os83ve3/p9W2ed/c+7vnq9
61mf3/M+z/d5289cOH62vU6nM9jpdP9Z/9fPtiJqXDPPx8TamjH2586bX5D2
75LQ1UMTJlmmFghddWLZkgMFRUIPSVveoEGDEvW8fmUfnApK4Xyj0P/9mYQO
ftE5vfajd0Kvlnflex15r8aTNDbG4cgf6v72T7tXuleq8Tz+5cqYJVah281J
Cg0NrRJ61f5lQY2W2NT9xZ1/3+VZDfHo9MiFNa7MS/vvktDMizXzYs28xHkK
L+35RtLGYxKaebFmXiIehZfYr/AS8Si8WDMv1sxL7Fd4AR895g1yYY0r82LN
vFgzL9bMS5yj8NKeayRtPCahmRdr5iXiUXiJ/QovEY/CizXzYs28xH6FF/DR
473CvEEu2r+rqza/JMgvCfJLgvySIL8kyC8J8kuC/JIgvyTILwnyS4L8kiC/
JMgvwUePdQfvFeYNcmGNK/NizbzEeQov7flG0sZjEpp5sWZeIh6Fl9iv8BLx
KLxYMy/WzEvsV3gBHz3WZaw7eK8wb5ALa1yZlzhP4aU930jaeExCMy/WzEvE
o/AS+xVeIg6FF2vmxZp5if0KL+Cjx76FdRnrDt4rzBvkwhpX5qU930jaeExC
My/WzEvEo/AS+xVeIh6FF2vmxZp5if0KL+Cjr9HXsW9hXca6g/cK8wa58Hm4
cr3XxGMSWtR7RYt6z/Fwvef9XO85Hq73ihb1XtGi3vN+rvdaPnr0PdjXsW9h
Xca6g/cK8wa5aM9XV21/NEJ/NEJ/NEJ/NEJ/NEJ/NEJ/NEJ/NEJ/FHz0HJdO
8zOB7zBBXzXV6GNYp7EO4T2rkUfACVetXzWR1q+aSOtXTaT1qybS+lUTaf2q
ibR+1URavyr46NE3oy9E34N9HfsW1mWsO3ivMG+QC2tcmZeIR+El9im8RDwK
L9bMizXzEvsVXsBHj3MF+mb0heh7sK9j38K6jHUH7xXmDXJhjSvzEvsVXiIe
hRdr5sWaeYn9Ci/go8e5C+cK9M3oC9H3YF/HvoV1GesO3ivMG+Qi4oFV+FWO
h/2qooVfVbTwq7yf/aqWjx7nUpy7cK5A34y+EH0P9nXsW1iXse7gvcK8QS5i
P6ziPipa3EdFi/vI+/k+avnocW7HuRTnLpwr0DejL0Tfg30d+xbWZaw7eK8w
b5CLiAdW4VcVLfwq72O/quWjx3cNnNtxLsW5C+cK9M3oC9H3YF/HvoV1GesO
3ivMG+TCGlfmJfYrvICPHt998F0D53acS3HuwrkCfTP6QvQ92Nexb2FdxrqD
9wrzBrmwxpV5AR89vovhuw++a+DcjnMpzl04V6BvRl+Ivgf7OvYtrMtYd/Be
Yd4gF7EfVuYFK//wHRHfyfAdCN85cI7HORXnMJwz9MyL9f/xQdjnsY9hncY6
hPcM80hw6hFRb6zrP2XK9HM3+y8wUM/TO2o7rXgk8mWGbeCGx5tSyf1Ubqfj
TkW0Zlr/XSesN3Fu17ku+NW9b1QJ+Vi9zDQwgWI2zHb8aU8xzVj8/vDzDdE4
t+ou2nc4u6eO6vtCe128GxZsI8vRRZ39snNouvfokYvid9KsD+u7bTM9E/lu
f8Huwr1N2WLVufzr2ZBNl8mcd2Zn/dsWcr1Wnpg+PKvGe3CzdVn3fFbnU1r0
vA61XmbSV3a7t8VYc8nHfD54mC1D3JeAK/VGtFuaQeHtm8ruL9R3wEWlKwa7
jraQX2pq201nY2u8x9ZrFdgpu6+N7Ac6mj3qqO+vIePXRKS0e0pRPi5u5XUt
Iq7+0+sVNAyTaeL8hi2+2feEcuIz+hxvqda9A1P7l+SWVFHHJYtdVuW/rjEn
3CoOmnz90jv6LODlghlhr2lx/zr2/glqX2kznKo+i66iJvFznW7+lk+NmxZu
XvDirfiurn8Z7uu67i0l1Tt2psXBvBp9qOM53YLCKVX0+6HLQ+/ML6SCmZfi
XB6Wi+/u/3xMnNS4nE5npvb5c2EB3erlPmelt9q3rrUdVf980ypKn5lzyv3I
G/ry8LCmF46ZRR7Yha2/u9XPRF0eXpVm5r+hZkUvFp0tt5JrefGhm6fV94Zg
b9upr+eWitXz1F+DH3ip7w5DLp48l+pYSjH3XqVVRhrE/3MqSNsRl2KlWsNP
nkx/ps7hd3TTR24JLqHQgtHrm0eXkVd4kHnnLHXudHLz/NvuKUbq02zw/ZLk
Q2S98CxqY1f1fWDQ7i0Fji2NdKNn9fa5EzNp/3iH8IYlBvHdLOX789LvGqi3
bY19bstcin546ZMtxw013ls+BM+v5XP7DV1uerdHyWIDFd/acqnPhHzymyEn
/TzFIL7DpldPigKbGOhVpCFw7dEiKgrLO/bQwSA49x3w0Di2toHcUkYGdWz0
hjJanwyJv19KNyZNiM0IUX1Vsm1pn+9WWenX/fdXz52pvn/M6eIf6eVsqOG7
fBO7nc3rYaXYSfXiuwSUUcTefvE9K1XfmnjApY3paSU59+qanl4l09Vm5mH9
Am9TWvjWr55UyILXzhsDHbLeyzS6UYnrrJdP6FyenXsHsyx4HZHGeemKZYrc
fvXt5Iu5FBqd6FPSRp2zEpuMe5id8Jbsrnb6Umr1gbyTA6MaFcqCp/QPafva
lzKVdOlsG9Q3n960tHxqSywX/aZ0etZ35fPMZN17MSMgsYKSPnzhuO+5LPg2
HDdr8/ksmdIurHOt9i6kIadPnt1Xrfry5D/auyQ/kgXvXWVjB0+4K1PrpSf8
B48pVvvexld7ll2W6XivQp/1t2WRh8Mb/bAr8qpMjUdt2TpiVCkdKOjq9yJR
VvOgduyze6dlwT35eTdDXrT88TuXjZXCy2iNzffwuCOy4O51zWPE57Ut4vs5
plgskxxl8vSlgjWT39HBmzPjpjaURVxbfznb5lzyH3S+96JVEaZqOjf1ivmJ
g+rrfF8djUuqqKDMWnUsKR/rRTuKD+1yvELUN+fk7m4BP1SQodXsvLvZqs+Z
cevdytfNq2iEnUdmnX4Vog/X6mcfGXdF7Vs9G9R3dtpppaSUiVKj1o8oJmht
45RwdZ7407KF7eK2W2nimGlLR87LoYTXLW6Xeav+Pnf/KMmvq5VS/TsV36+y
0MGhQyKnb1fnj98KW7XoGWal5t23bbYWv6bvK/yzejup80DYnZ/OR9T9eP6u
b1M9R3+gtKqlgcVb1HmlrceYrMMbrXTvyLK9zh0LqMPj8TlN89V5S//j4FSP
65V0afKlL1asrqA73qtXzt2ozjebHAYMd1hvJe+EQS0bXC+ib26b/55xTJ3L
PnUJj6g7r5IWZth/O3SAlVrkRG3MWldzHgqc9iBjdX8TXQ/5en7sx7+H2IVl
+tR9Q4uf2aKeT1XnFr+A0REtfCvp6rCY76dFWMnj8ybLBoeo85R34rq1Z4Ks
tLG6TWxORik9mlXtFhGk1oFmqwo/MS63kry9r/OOECN5uoX/mLNcvffZD5rs
cw6w0hLzYym0qozORxd7tApQ56/XK9MtHXer8+G/ASh18HQ=
    
    "], {{{}, {}, {}, {}, {}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Dashing[{0, Small}], 
         LineBox[{366, 368, 367, 365, 364, 363, 376, 379, 378, 377, 375, 373, 
          372, 371, 383}]},
        RowBox[{"-", "1"}]],
       Annotation[#, -1, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Dashing[{0, Small}], 
         LineBox[{369, 374, 380, 384, 385, 388, 389, 392, 393, 396, 397, 400, 
          401, 410, 409, 408, 406, 405, 404, 403, 417, 422, 421, 420, 419, 
          418, 416, 415, 414, 413, 412, 411, 425}]},
        RowBox[{"-", "1.4`"}]],
       Annotation[#, -1.4, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Dashing[{0, Small}], 
         LineBox[{370, 381, 382, 386, 387, 390, 391, 394, 395, 398, 399, 402, 
          407, 423, 424, 426, 427, 428, 429, 443, 440, 439, 436, 435, 446, 
          455, 454, 452, 451, 450, 362, 449, 448, 447, 445, 444, 442, 441, 
          438, 437, 434, 433, 432, 431, 430, 453}]},
        RowBox[{"-", "1.8`"}]],
       Annotation[#, -1.8, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 0, 1], Dashing[{0, Small}], 
         LineBox[{463, 456, 462, 460, 459, 458, 457, 461, 485, 484, 480, 479, 
          476, 475, 472, 471, 468, 467, 482, 492, 491, 490, 489, 488, 487, 
          486, 483, 481, 478, 477, 474, 473, 470, 469, 466, 465, 464, 493}]},
        RowBox[{"-", "2.2`"}]],
       Annotation[#, -2.2, "Tooltip"]& ], {}, {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJyFmHtYzekWx2PcKoMZDWaOJo0jxOTMcWnwZG3kKBPRGB2UkltTxpgjuhiF
LlNHek7DTNHByLiT5NLFdRS5nREphUP8FLHb7dLutnd1zDO/9f7O79tznrP/
eZ+v3ue19mevd63vem39vvZY0tHMzOxVBzOz39b/9WkN3TWzt3MhsTYVuf84
OO4Rqf8uCd02Kd2z3rtC6Jb9wat2VLwQesLNEEtLy1fKeWOqG/tXaOF8ndC/
f/RCRzwafLfT7Tqhww1byl1TG5R4zrofME9tUvbblgwzOhiVeArPZM9YZRLa
ZunZ6OjoFqHXpQR/22NVq7L/5eAbW5zbIB4zDXJhjSvzUv+7JDTzYs28WDMv
cZ7MS32+jtTx6IVmXqyZl4hH5iX2y7xEPDIv1syLNfMS+2VewEeDeYNcWOPK
vFgzL9bMizXzEufIvNTn6kgdj15o5sWaeYl4ZF5iv8xLxCPzYs28WDMvsV/m
BXw0eK8wb5CL+u/Kqs4vCfJLgvySIL8kyC8J8kuC/JIgvyTILwnyS4L8kiC/
JMgvCfJL8NFg3cF7hXmDXFjjyrxYMy9xnsxLfb6O1PHohWZerJmXiEfmJfbL
vEQ8Mi/WzIs18xL7ZV7AR4N1GesO3ivMG+TCGlfmJc6TeanP15E6Hr3QzIs1
8xLxyLzEfpmXiEPmxZp5sWZeYr/MC/hosG9hXca6g/cK8wa5sMaVeanP15E6
Hr3QzIs18xLxyLzEfpmXiEfmxZp5sWZeYr/MC/ho2vV17FtYl7Hu4L3CvEEu
fB6uXO9V8eiFFvVe1qLeczxc73k/13uOh+u9rEW9l7Wo97yf672ajwZ9D/Z1
7FtYl7Hu4L3CvEEu6vOVVd0fddAfddAfddAfddAfddAfddAfddAfddAfBR8N
x2Wm+ujBd+ihr+rb9TGs01iH8J61yyPghKvar+pJ7Vf1pParelL7VT2p/aqe
1H5VT2q/qie1XxV8NOib0Rei78G+jn0L6zLWHbxXmDfIhTWuzEvEI/MS+2Re
Ih6ZF2vmxZp5if0yL+CjwbkCfTP6QvQ92Nexb2FdxrqD9wrzBrmwxpV5if0y
LxGPzIs182LNvMR+mRfw0eDchXMF+mb0heh7sK9j38K6jHUH7xXmDXIR8cAq
/CrHw35V1sKvylr4Vd7PflXNR4NzKc5dOFegb0ZfiL4H+zr2LazLWHfwXmHe
IBexH1ZxH2Ut7qOsxX3k/Xwf1Xw0OLfjXIpzF84V6JvRF6Lvwb6OfQvrMtYd
vFeYN8hFxAOr8KuyFn6V97FfVfPR4LsGzu04l+LchXMF+mb0heh7sK9j38K6
jHUH7xXmDXJhjSvzEvtlXsBHg+8++K6BczvOpTh34VyBvhl9Ifoe7OvYt7Au
Y93Be4V5g1xY48q8gI8G38Xw3QffNXBux7kU5y6cK9A3oy9E34N9HfsW1mWs
O3ivMG+Qi9gPK/OClT/4jojvZPgOhO8cOMfjnIpzGM4ZGubF+v/4IOzz2Mew
TmMdwnuGeSQ4DTkVbxay20DrchdfdvSpoqvTTQE5e2+KfKmYOdfFPOMKeTzY
dqjzw+e0omb8lbZNF3FuN8tcO87bYckrGpC6t+zWml1UbPT5slfhS0rPzD8d
WvADzq1mhQl30me8r/i+moNLPiuJbaXTn2akBT0upTmjI3okPr1AHXNGO8cW
l4h8j86++4FVtxKxjpp/1vs7+1PUUKTPHPGwnvIGPXg2z6u43XtwUqvxyQkf
iT6KebtHrH8hJRzpHPpHR4n8iiIbW3yVd76LRsmjcn4hDbi2cFnqNOUd8EV3
+4YenvU0qtvekyc7ZrZ7j21eXLbzn06t1GjR0KFv6X3xvVw61j/KHVtCievP
NazsUS/iCnZNj/tTvIFKRieujOl0j3b6nzA3DlTqXso0P/ey1y30VYy3ZcHZ
p+3f/1YmnepxoI6mrOh5uY/PU7JcdNL5UI7SV8bNqHQZc7iFeu9MmHMtvZwm
XdL4vZ33WvyuSVNGjqjwfE1b+w3t2/r8Wbs+5BAe4T3Ur4X2r8q1T0x+Tpro
uE9bwmrF774hc39TbF4NXcgO7RlRWEFBF7Izij5X+lbkrvDz1/q20Dcn/mrT
sfalqBc/J93VHo6qpIwHq5/NW1RDBbOkIe5PlPeHotYJQQPLtPTlnKysD5cq
7zf+XlkWiaeqyWHg0TFrEpT3iSTdqW0hwVoab9TFeS6tpE8WeJknayup34i0
Tm71JjrY1ZT21ijl/aL3ssiy2E5asRZ4jNr+w23lXeP0wtrnV8Jfkaudbf07
A5U5foPFlPvBN02U8/H1lPtLlbk+cGqQX5/rVdQSYFGalvgLFXodyTp3pErk
hVVkbuSJqCq6mLf3mMuU+5Sc39iWv6Kq3XvM8YAD084PryBvZz+ttWMVHR2S
Xzw2/CnNHu7SaeCwKvG7Bga92117VUvdrDIGD4lSfNOxkqKNlyNMZOeVvsav
vErk38y4v9dNta9q56uOb9qUl/qxiRImvRVYEFRNVh0mznzSrPjSC0++KMq8
Z6Skfa17NBUGcnWbnHU0K5+GjjOfHi0ZxPfbHSOFXCszUMwHCdKgyHuU2u2Y
VFpqEN+vps/Wa+vuGMgyd9OczOInlPOv29a/dFbmqEynQVPHfv+aQgI/ubjN
rpHWW5e/vn3LoHzfeDfL7lcNlPJivFOvGeX0ZH3p+XOHa0U/cfBYMf+SVw0F
De115OT5ZtJPMbcNvGwQ+VTctUp345KBjmwZ9nSJ43PKnpVpZdek+G6n+jXv
7ckxiHwau9bve+NxA63au7Z3i89Lce9q/Z03pPsbqM/1qKjgYwaRF4n++W2e
+wykj7Ar3z5XS+8NiBhesccgfhepcHuJNskguKfENvv/utlAvcJMnaQd1VRA
D/ziNhkE92aH5MRirUH8fkOXTtod1VJHVsHrAmqj6uj58AE+jg3K3B4/eVYX
j5wm+sOBS6WxdW20YPTcWSOXK345d9+OW3EdFB93xW3a7DnVzWSWuPnzlDf1
wfPZ5uWhO5tFPUv5tWeOt28zuRTUbLQuU3xN6vXadz9sNtG5HU5LW75W8ujO
lMlFbm/+P7cu9mkVDdXUWn8m3mZEs+jLbl1/Dkw7ofSxZNeFOts4E62Njdsa
c+Y2Re4Z3FEfYKKd0o1Bd2z09JF78q6KWGXemNxr9vLj0SZafGaBfWb+v6ku
8dq9bpMV/x+2ur9Ltq2JfC9MP3tfW0+tPQ+Uh0cr80mi9STDyI0mip24cENY
d4kWnAsvm9dbmReuNP/YVmky0tMz1tHvezdSiavjPyw2KvPMV002iw+Gm6j/
T4/t+jpVkPu2sU0LHirzWF5x2urDJ4305xrzrl6bmmnLxYnfxoW3n3/62YbE
l1hV0enQG1veWWuisL/tS5h49wV9NoEsvHYoc5zn+JH19xYYaVCOb/U3b76n
TWRGjDFMmZ+sIimv/I227xIRe8PwguLqPR5lfqHMNb6rchbOcTeS47PvrA4l
mOh65LJ432Bl3krevf+n7N/ieeyRt6hcS/v+Mjog67/mr30WjWUT45X57z+I
I+YS
    "], {{{}, {}, {}, {}, {}, {}}, {{}, 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
         LineBox[{366, 368, 367, 365, 364, 363, 376, 379, 378, 377, 375, 373, 
          372, 371, 383}]},
        RowBox[{"-", "1"}]],
       Annotation[#, -1, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
         LineBox[{369, 374, 380, 384, 385, 388, 389, 392, 393, 396, 397, 401, 
          400, 404, 413, 411, 410, 409, 408, 406, 405, 403, 402, 418, 420, 
          419, 417, 416, 415, 414, 423}]},
        RowBox[{"-", "1.4`"}]],
       Annotation[#, -1.4, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
         LineBox[{370, 381, 382, 386, 387, 390, 391, 394, 395, 398, 399, 407, 
          412, 421, 422, 424, 425, 426, 427, 441, 438, 437, 434, 433, 444, 
          453, 452, 450, 449, 448, 362, 447, 446, 445, 443, 442, 440, 439, 
          436, 435, 432, 431, 430, 429, 428, 451}]},
        RowBox[{"-", "1.8`"}]],
       Annotation[#, -1.8, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {RGBColor[0, 1, 0], Dashing[{0, Small, Small, Small}], 
         LineBox[{464, 454, 463, 459, 458, 457, 456, 460, 487, 486, 483, 482, 
          478, 477, 474, 473, 470, 469, 466, 455, 462, 461, 480, 490, 489, 
          488, 485, 484, 481, 479, 476, 475, 472, 471, 468, 467, 465, 491}]},
        RowBox[{"-", "2.2`"}]],
       Annotation[#, -2.2, "Tooltip"]& ], {}, {}, {}}}], 
   GraphicsComplexBox[CompressedData["
1:eJx1XAlYVNUXRytTS03NzDUXNM2s1FJL86JmouaSlrnlvvxTUVOzct/L1BJc
0qzcLczUSHBfcsEF1xFQARUGRHZmgJkBhJk/3vd+53bPpF/f9/px3zvvnHvO
Pdu98+qPnNx3TGkfH58Xy/r4PLryf0G+3Ur+OyV0bCEcGxbw6D82biVsDCcT
jpF/SCfs9jz6l004UD6fQ7jhIxiURzhU0nMS7ipfWED4tqT/kPAEyWAxYfOf
3+Pk/O+rhTDk1cethCEvMOQFhrzAkBcY8gJDXmDICwx5gSEv05vf4/T433Kq
qy6vhclrYfJamLwWJq+FyWth8lqYvBYmr4XJa2HyWpi83nb633pUcvIr5AWG
vMCQFxjyAkNeYMgLDHmBIS8w5AWGvGzd+fF1uL1jWGDU+9bH2KnFSy59XF11
/VqZfq1Mv1amXyvTr5Xp18r0a2X6tTL9Wpl+vf1M326jo/b3PCWWbn9+Z7eY
ZC875XrkcvIr5AWGvMCQFxjyAkNeYMgLDHmBIS/zm36P86Pcz2SHRf89sYdF
BGfuvBg0Md3LTrkeuZz8CnmBIS8w5AWGvMCQFxjyAkNeFhf8Hhcn/tuPKj/z
TreHRe7JseJK67ezY93ZXnbK9cjl5FfICwx5gSEvMOQFhrzAkJfFPb/HxcH/
jhMWL7/C112tvz2Vi7vmeNkp1yOXk18hLzDkBYa8wJAXGPKyuO73uDgPeXlc
4H6T+xXgB623nguMSxYrkl6rfSAwz8tOuR65nPwKeYEhLzDkBYa8LG/xe1we
A3l53ONxgftN7leAn53/ZkbMpHRRt9xXe2JjnF52yvXI5eRXyAsMeYEhL8vL
/B6Xp0FeHtd53ONxgftN7lf4urteL/b8+IYFXnbK9cjl5FfICwx5Wd7p97g8
FPLyvIXHdR73eFzgfpP7FeCmy3b/FFYib8e+5W/4/ssuud64XMD8CnlZXu33
uDwb8vK8jOctPK7zuMfjAveb3K8AH/7T8Wpsibw3ZvQb0+1fdsn1xuUC5lfI
+7g6AvLq2PK4vIznLTyu87jH4wL3m9yvcDvkeuJy+PFrxUnzXuzSN0Tkzouo
2igwSWyM/bZu16kRosaFT9tOapgqqvt8div0TrRoV8U25EBopnjjQvhzvqXi
xd7m//j5+NpFvyoD3wpYnSQ6SfvLFTMHpw8Ma5QqIqU+HOLn7XPmeg5kirEb
f3YFeFzinvObD30b2YXzxP1lQf6FYmqt64n+k3LFMum/i8STfjVnBBxwiDrS
n7lNewmhKxQBbMynm4/7/fdz8fS8/HNQkuB0MA48Uc6fg+nHRfc/7sr54HR9
/vNfvJcceB/Xmy73Vroa9ud57N/5VY8rbvGK9CdOU58eNv9WNv9bWb2VSHQf
c59p7y5+nx/nm02MH5dHqs83ge7jGPRWyfudXu/RcYTg9uAv/yeV/Nt/2wvq
hmi6H/QMu8kkf8jH9XUfT/fr9OzkP/k4/AT4wv2gZ9DPJb3xcfgV8IX7QQ92
Dzn5OPwQ+ML9oAe7hZx8HHYHvnA/6Bl6K2T5uRrX84Fcuh/0Gkj+ikhOPg4/
Cb5wP+hhPUBOPq7HtwivPhDkhL54nwRyQB+8jwA+Md883wcfeA+vQyEX3sPr
NMyn4b8zRGe53l30Xp5fYf7wXp73Y37wXp4XYz7jpf93iHzp/90C/kBfj0eE
7k+OCMmG54F53zUvbLwnw+T/thc25tFGfgP4KxmvEkSUjFd2Gjf4zRHyEnbf
Cxt0Hab8aV4YchnznkU4UdYrWeI7Ge/yadyYtwLzavfChh6Q/+V6YUM/brJH
2BUw7MaQI5zmF/YJOwOGHRl/j2TzHU92p/ubdDFJEr5D86/7k0zCur0nkj5A
F3YIDDsDH9AH6MIugfW6LoP0A7q6P7LT+gAf0Bfo6v4sl9UnOUxfDlovwFgv
4AP60/WS4xVn9DgSQvSAse6A8TyPQzp2EMbzPA7CDnjc0eNCND3P7YjHNR07
CON5YDz/OLvB88B4nj8Hu8HzOlZxCM/z+3lcA9b9XCaj721XOn076Ql2pOcD
uSxe5BI9YB6HdP4cXn4Y74P94n16Hhst9DwznrC+Xl1EFxjv4xj2D8ztDPFA
9zduej+wbo9uFlfdzD7dNM/Aun26yR8Yf8+n/BD+E+vT4NPD1ovKJ0Hvx9Gj
ygb5OMU+WQ95yJ/BbwPrfibLK58BP7gf/k5fT7xuOcXWl4+P7i9OsfWGcQeN
6+vPx0f3JzzvtTB/ZGF2ZmH+yML8USzzR7FsfmOZncSy91vZ+63s/Vb2fiuz
n2RmL8nMnyUze0mm5/U8NtMrrwXW16e6H/FOXz/ZbP1k0/3QP+7neRbvF8Mf
QI96/m9h/ibWy3/wPFfP7x0UHzHO+5msTvUBxvt1/xMr9HEr80fJXv4G8Rbv
5xjxFZj3p7BewQ8w+NHHrcw/JRPW91HcbJ/BzfaH3Hx9+XE7gD+AXwHW+6NH
yP8wPVN/AePG9Q8zD/NQPhZm5he6f82h98Hv4e+gh/wSWO/Leyhf1v0V4rja
b+D5sF6PYD5c5jxkif1yPN9r3cM/gg4w35f0NfM4Qx7o00bvM+RV9Y6e52UT
1v21qrf0ejKV9IX3wp/r6zyf7BrPYx6AYQeG/IVecZWvQ9z/vnx/MfHJ6ylg
Yx7CyD5gP8DIr3l8RL6K+gbjut/LN+kkkP4x33o+jXpSxTvEZejL4MtG8w+7
BD/ItzHfOp/ZhPE+gz9V/2K+IQ+np/snG/GLv+v9eRfL573zct0fbaV8Q48n
yv5hn/r6dLG6SF319Wej+QK//Kr3T1wkv16POsj/6PXlEeYfw0w+PMQ/X89c
/wYfKk+GXwH/8EfAPM7DvsCvvi+dzdaV2v8A1vcbVH8J9OB/9LjpYf2DHJbv
ZZL9gm+9/s9ldQfPP9X61/OIbC++YVdY99AL7J/nm8hHYe98P0z3S06Wj0Yw
/xHN+tHUV/fzNfMlYL1P4OPH8lU/vS+p9itgX7p8HhanEI8dZH9YXxhHPNTH
gwgjXwE2nsujcbwfdGF/ej83keYV862vw2i2PiNpfaI/xf0b1ovx93CSH88D
I77r8V/14eHP9fidwejZCENeXg9hPvT61sPis53s37AnhQ157EQf8w5+dT4T
vc7RgT/jqWtsn8PC7OM2m49Yr/WrP28lbLiz+4SNx5MJQ8/A+nkwD8tLPLQe
gfW60EN2ob8vjMl7ks13CGHIp/v7bNIb/AfsWo/HDsoXsF4M/nKZP1frAfrk
fTPEP8RZg47CBh30JVLJvxr00gjr8TvfvB/nbBQ2/Hk+y79VPNDPv2A+colf
xDusN72egDwq/4b8xnrZb+rBw/JXNd+ID3reUcDtn/wf9KrnsSHMno6wvCSE
1WEhJI/ON+wtgtljBNHHuuJ9Iv1cSgTbT7vG/GyE176ILu811p+JZvqLZvnO
ba8+lb5fGU386H5U9ZX0eBJN/OB+vi+m77/HEz/wG7xPpp97iSd+cD/4wbi+
Hx9P/OB+vu/D9/nAD/wU79Ppfewk4gf3gx+Mgx9g8IP7eR9e9y+pbL2lET//
vc+XSvzgfvCDcfADDH70fRb7Y/oqmay+9O6z6es/k/jR6wyVl4MfYPDD6XN/
CKzXK3Ymr53Jq+Ij7kd81vd9sgnr+WEe8aPXr07Cep2Uy/KoXJYX53rVlbwv
o8+ng+WzTjafDjafDpZvcD9WSFjvh0TQOLC+HxNN48D6OZl4GgfW6/ckGgfW
6btpHvRzSi6SR6+PXVTPY76AER+M5x4Sfbwf9IFBH8/jft73Asb93A/r8ec2
YfghYPgBYKxDYD1+IL+3s3En5TOQF/EUdSD6D8C4H3Ed+Siwvo5UvoI6kNej
0IdxzTLnKZ/0DzszrlbCBh+J7ByN2peG/BjX7Xgr0Yedgj4w6BnyqH1Z6En3
S+FsXYWTXoHxPtg93gcM+oZdRxKGHej1SyS9DxjvA8b79Hm0MrkTWZ2SSPEO
78M43geM9wGDLtYl3ges60ddYce8b6jnS4ms3kxk86PiHeoVPA+M54H1/kQG
3Q+M+/k4/L4+3zaW/6u8Ud8P2ErrBHaq4wivvFDvW4ezfvE1tg6dhHX7y2H5
mIPlWw7iD+sR7wOGXen9xDte+2PAoA8/q8fPAha/HtI8YxwY/t3gM5PqEUN/
Dsr3dX9wiuXPPj7svJmPfr+F2VUso2dl/kD9/oPrE/KDD2DoSx+3EMY61+cz
ljDWpf68lTDWka6/ZEb/EM0X9Ie4AKz3Q+KoXjog6d0ljKver1H7C8Z7bNRv
1PNBF9WLhp5VHgj9cj8EeXW/a2V1tJXiCrC+b5BNdTTinXFFPz+d3o9+uX7O
F+/LEXHymkAY/MJuwS/vn+M9wLBrXY4cVq8X0HwiDuv5poPmE+tCr8+drO/p
JHp6Xe1ieaaLrdNMis96X9zN+rqqP4V8w5Arj/IJYMPOlf3o+TXqPoV1f4p+
tIvVP2q/EvkZ/D7fT9DPcWUT1vvPdlqfGAfW+Ylh+ysuWn/6/lA+zTvsjfVb
ffS4stVrHxf0Ma7HnVMkH/y43p845dXHDDPzNozreV04o28h+ogLfF8Z9DGu
07cQfYzzc7WgD7/E96lBX99HVfvGoI9xnX+1DwC/zve99fPQiYx/K9HX8xA7
2R3ow+74PjroYxz0dbt107i+H5pO9OFf+Lle0Nf9j9onB33+PN8X1u1I7avr
+rPRVT/fYCN/C/p6/89F/g709XPBqq4APb1OdrH9JRf5HdDDOPdLup0XUvzW
/a2F1aPXaFy3s0LmHwqYnRRSfMA44jWwfi4F9Wwa9SeBeb3L/a6+n+di/Lko
3uF50NP3PQuY/1LntPT9Ojflb/q5uwIW11T80vvbqt+tj0OPNsoP9HOABcy+
HHQ/4h/mG+sG8Rz7Hfo6V+OGnDYaB8a6BD3oT7f/JML6edlU9nwqPY/1jXlA
fISdAut9HDfFfWN+3JQX8f4W74PpfR470ePrjvsF6FPv/yus9/MdzA/lMj+k
zgcD6+u0kOjw87u6fWaT/vT9jHyi87hzSbxO+Uiet483f19jp/mB3Ru/h3KY
58PdlF8Z8/b4c6v6+WKVZ3C/qduN+t2F3id0eV31cyj5tB5BT/d7doZTvc7l
wk5hl7jq8SaP1l+YmccBQ2/oR6EfptuTsgd9/91B9wPz3zfwc3e6XXj3dTkd
ftV/b1Lg5c/4uUH9nF8a3Q/++FX/nUUOs+tM9rvlDKKHvAL5nl4HnSI5gfX9
8FOsbrKw+y3sfgvrv8TS/cB6/yXWqy7T6VsZfV63JdP9wHq/Ipnu1/MVdU5I
7y+ks75/NvN/2ayOUeOwI30/Q53fhN4wT8B6vyiP9YvyaBzrV9+fUH0I7ofg
p4BhH8D8vBLm17iGsD7GH6zOdLHzZUEs7oVTXIL8wMiP9DgXSesA86P3oa+R
X0Eezu2M7ytiXeh5cy7ZBTD44vGF2wnf19LPFeeQv4HegXV/ovwR1zPfh9Hz
pXDi25A3guXzF0w+H9B86udYo0kuQ94o6h/odVE267/YqF8Dvwy9QW7j/iSq
V8GX3qdPJbmN+1LI34MvfV8tk+wMfOj9OzvLb20sv81h5/fU76mwn4DzC+BL
71cgr8R+Cs5n3Dfzwet0zsGYlxjqFxkY585zKd/W+y12yp+xr2fYSxHroxQT
Rn5m0MfvsVDvKKz3b1R/zKDnZPmGOv+on4dL9zqvofeR0N/w9ku475akAz8c
RnZi2NtlsgPDXm6S3o2/x5NeMe+63lJJT8jbcJ4D847zKOAnzMy/wL9elzhp
/mG/+n5hCs2Hfj7FSXJhHuE3gQ2+4UdtdD/kw/26vNjPUNjgy0brXO/3oG9g
Y+cY7NRfNPSk+l96f0rVufr+jIfkNJ5T2ODHTRj9W7zPwKq/qZ8Xiyd+gMGP
YecOog/M+cO4nIfBJn9V1P4j+oXgz/Bjin+9HlLjeB5Yrxf570oyvfadgPXf
JabSutL9Y4YYP2BfvX4t1O9j95t0Bi5q+KS1udoPyfht4royX6rzX3MvhTZp
dhL9+kzR+p3Ae+s3qr7T+aExnx9LsouEj98PXvOnVaQuv7g044UcMeGlplEX
g7LFjfP9z5z5Lt+0I6doKZ/3iIfv1tzQerTS57M+o4OjaiSI958PH1qlp130
DIquM+cvh1i5M+237Z+7RdXpb31dNdUhnoka8sdbwW7xw9S/ap2vsYH4uHOn
/uay0XtMO0gUQ8sMOrWjgkt8Mm5B3rnLHnG8XPPPn485SfPWesFbG9b9cJDi
TOPqRxb8HHjd1HuaaHY/8W72qis0r5OD7118LSxGYN7uLl7XtnzALfW7qXFr
9gTPU/E+LHLymOqD/xXv9zW+kVP5X3lhndLfDc9UvyNsvaXR951qqXheZcDq
zwq+VfH8/NlJ9caNVvF76+y4h3UsKn4/9fOHh3e6L5jvfyC6D++5835D/K4y
Q6zP+Tz7S/97FOcmd+pRe0lrFV+Dlt/xu3I+heKU8T4VD9Mrluqyz2kT4814
OLdV95uRQsW7ibYTi2e+6BKDw757IeCuR6w/XX946WUJ4nSntiO3LbaLsptu
Xb4jEsXsfVVrVB6eI15OGZ/T2JItnpX6zBf3pP1kiRRpP/ni2LP7F/eoZRX9
pf7s4uHz5apvGuEQaTE3fg982S0W9s5IztrkEF9Lem5RRtLPFjMlzhcreg0+
OfLZTPFWQL694Qcu8c6xc78MmVVif3Wzr85t5xHjnrqwscbMeLHNf+8wT2m7
mD7zh3aHnPGilRy3i6Py/VniY/l+lzi68pUeoVMSRF65Y57VN+2iW4MPqrae
7BQj7k8LmPx9yfrus3n+1fFOMbPl9vyCNzziUsJzbyw44xRnpPweMWTxBevR
9k4xYezlQQ9Ke0RzEeUbergknpUunpt12yP+3vPLyREdj4oxb7y47d3n7gtn
cY9DaW9eE999vevc0q2pwm/VlNJzBt4We061z7j6ZpYYFzPkYp/r98XsXftq
/rU7V6xsmJ21YVSaqHi1YHeUwyGq3i1X+4UzdtHh5RXX635bKHaW7rfnnQp5
4mqPqFGdrxeJns8HD5lp2yYin7n6XI1zVpG1cFrTzl3OicrTRrw1cuADUbPr
3TutzkWK2r/mDvwjPV2UTy79cnj6HfFn6c6isINNFLl3DPmiZooIb/+IXp6o
7992wfHdGaL/iLrOcTVdIqLHfcuiTTbhXDPu2xWjCsTQKa+N+T0lR3xz6BG/
D0Xmmi9dl1o4RPW7j/gtFtNrf/3l1dp/m+9LFC1m3e51PC1YBDVcVDbwlUQx
cFDHnLFLvxddA4eecD9lFTP6F4fnfXVGzFrQ9ckdm5PFxbcTniwMOSXOxT+a
n2Txzbvbdj874obYcvF2k6yW6eL119f2qDTXItKbPpI3TVy9es7x65I4EV51
Ys82Z7NF5P5Da7ZsjRX5Hz2SP1s0n1n2zIhxD0SZfv4RSdPzRMjEBVUTHcli
U26nEvnzRL/TP6XsKkgX678M/LTccae4EVq17avfpouWLz6ab6e4tuve+ro/
5IjjJxsu7NvnoWj98s9+w/rniBFTHs3PQzH0apNmnW/liV73Jz7/5YZicUHO
V57Ik/NVgkOe6rXiZoTo+GDJ3Lw5KWLQIk+jyNPnxf6J1ZrHHH0g+n318pQB
z90Uc3s9spdMkdvPd8jspVHiZuhvHzbsnSEKpX7ixVmpH5sQyf47Kv5xV8z1
1G4XNsUm6kh9JZn6yhXvHW395bUHiaKy79jLMYdyRKfAizueFqkidckjfhzi
f3K9pJjrxSFsUn92UUPqr0BERczI+fiqTZwO7LjYf22BWHjo5DL7zFyxW9pL
kRgv/UOuGCT9w0NRzxp6aFGHE6KB/6WfQqfdF1fLB7VplXdNdJb6TRPVfwmb
f/bFGPG/GFti1/VZIip+XjnHG8ligHw+V+Q3rfJah9Nppj9wipeGbmyXkmsX
FSX/hWL/wqTLz76bJ7ZKfovF3xLbTP4LRGzvwCn2GmHitpyvJLHgUmD3Ov0v
i2L32zMmJqSIxV8FZG2+elPUk/xlmv7kvulPcsW+HzOT/vg1VYRLeR2iWPon
u8lPoVj5dt/g07tyxWw530Vi/YHQX8cM3ip2y+8rlvjBIGdB8b1w83uDD8SS
2JfeD1wTKXLk95MyxLWA935oeOiO+T06m6gov8+WaH6fLUe0kN9PSjF/L+wQ
R+X3q2zm96sKRE9LhxOeEr9ufC/poRjos33EzRlHRHv5/aX7YlTQyvr+pa+J
YYMXLvDxTxM7fUPGxzS+LZbI719miV/k95bum8/nipOZlbb5d08TBfJ7G07x
hPy+kl3UlvwUirXy98t5Yo/kp9j8np5VLJf854iykv9s8/5883sZ2eb3nfLN
fqbV7GfmmN93cprf9/CY788y34/nM83nXaK3lNdh8usWyfL98eb77eb8OMz5
Ud9NeqX3puMDf0kQBdKerCJd6g/5ZLbo0jV3fZkv80WzsJf2bSl0iLnXWr1z
4bBb/CX1nyDOSf3bRem5Q9Pm3XQIv6Cp03/70S2m35zWKXZMgnB5ejarNs0u
1m39bfb2eiV+IuxImUvxbtOeS/Ivac8u8dXnNa7kVMY5opL42H3Anrh92aJ0
ujNl+K/5Iu5AqzHdV5TkOVtGn6n+bEn9O/ZRvqHOjcbJfCKB8tvKMn9Q/XeP
T/iy1XWzxaTwP/u3/zhfdPmt+fAWS53iTWnPHrFGxv94qnsPTtriV6owU/SY
U6tl7imX+f2tBHN+7WL4G8PrT/lK5fvH5Pw6TX14RMVdrj7l/ucUz2/66YZ4
xSMGpR0IWf4n+hwesXP93GfatnSKTQU73h2U4xazl2xoXqOLU5QdtTTvlzIe
MbfJR+/YP3KK+dum+L9ZzSN+zR07t+o0VR+8ds+3zdo4lX8fkPmW+v1bXN8T
az+deNbkL1kcbffk8//E3FD58eUmn/bzxFGe26PgoKvddvQ18sREmR+pfsEX
Mj/IMPODkjxHyoN9wZJ4JvMj/M65WGS/su2ji/0dZj7jFo2kPhNFKanPHLG9
2xepQfVtYnUlv1lLHuSLM5bth6dfmC+avjTfWf5qgujToviFKaPjzfmxmflU
pplPuMSgA302+xQ7RTepHw/1u271vv1qhawk6mcVr5/wYf/5qdSvqmct/mJT
FZyTK/FnMh/PpX7TOZnPq/50uqwHCimvnS3rgSLq53VttuqnlO3ol4aLCdMb
nGjRRvWHVh3bnzjzgur/DJb1htpnnifp5VGeWsnuPty7nOrHbKvm33N6X9Vv
eVPyi+8POsRZya/6HZvxvkSx9+3apRuv+l0sXzLlzPvlEkX3jz448VTtZcIv
t8es/UkJ4teVjfbHxpwWU/uNzvLMUN9bqi/nJ1lUH9imoU+VG2Ldz84q3cqp
7y29J+VNEyPTB08Mah0njt7/tk3QxmzTX8SK8VL+bJH/Td95seKB8Dna36/K
cPRdks16K0/UvZ60zdeSLtbEb7K0Dlb9P6P+coq//1o8Y/CsHHGwaUvXvHbq
+0jPyfl5KN6Lvlx2/pk80b3XrGXbF6Mfkie2yPkqNvmJEKFlupY9MzhFFLe8
VuW1gPNi35XSqT9sxHnCaNNeMsTZP1b0bTo4Sliqr61wu3kG9ecM/dhE5Q5/
bTwy766YI/Nr1Z+rLPnJFa/KfD5RVJD5vPoemKE/h+gt7TnFtOc88jPhUn8F
Zr5sM+sF9T0uY76KxDBZz+Wa9dxD0b/jJ6vbBB4XNXcd6j+h732xbWRh8/jz
10RHqd9UkZ5X98upmbfFuPZ3NxXPyBJHZD6fbNYTuSJR1hsl+YNcnyV+StaX
JfmD5L9Q/Cb9U574VfJbJIIltonNEueLentbdt8xMVREyflKErVmj2zzpeeS
cA1/uWWDkyliwLWopJ7bb4o6kr9Ms75IMv1HrvhJrudUU16HsEt/YRcPJD+F
YpGsb3LFLDnfReLhU0fOfF2gvpsXbvkm8P1w9V3ji71f2bvsX/sr+riFjVto
PNa0W4wD689b2fNWGkefAuPAGIddYxwY4/C/GAfGOOwe43y/IzF9c/Ulk9R+
BzDk0MethEEf/WPQB8Y4/D/G+X5I975Pz02PzKdx1MvA6A8Do/8L+n9P/t+t
DiP/ofFZ4+cHl51+hMYbXBwQ+lfUdRpP2b142ppS12h8wpA57s6FMTT+hgg+
2rgkj8P4INe1hhMqKf0dS0leOKRRAo3P9Rvlv3+L0l9Ci69/21GS92F86zLH
xOJWSn9PzXrmUlZJnMA4rhhveuYXW5u4LPq7o0KF2K6vKv3tLLP+O7+SvBHj
37TsHzDxCzX/bZsl1B5TkkeeN8drfrLJs+q4mn9cP+x2fGrcjycE5v8X38gx
y8pfJ5wclr+n1usxhNdvr1gUHZxA+Gjm5nr12icTXnw8aPQzBT+KfQcDkj5s
p37Pq+N4L/tB/tUybFU1294isarfyIWhk/YRHtRrZr958y8SnnEoIef66GjC
J3uUaT962T3CT05e2+lh/yTCTQ6+PO691BTCH5Q6vHzlrEzCbRs1HpBexk74
YrfJaZX65BIeMung7Dc3OAhnBZWqNNCq+J1/oPuWOc0KCVeJW91q6/QiUWFY
7KS1k87TfFztGORzpyQ+ANeIDOs2ef5dwi3+Drgwv8T/A39c5Mm8UOLvgb/u
ElSlqiuDcO+uQbX2lPh7YLx/p8+ds+HH3CKy9e+fP1khQ3Qz9TN18OybK6tn
EoYd9C8Y98UJfzezD7eou8a3b/OSOAP66LMBr7sdNtov1SH+MjH8a1yr5woK
bHbCRQs/tR6dXZK/d1l6vPk65T/AL+wE/gj04Y+A4Y/0cSth+E1g+Elg+EVg
+EFg2CPkXLwhoEeZNcfZ+0IIr5gce6JssHo+spRPuY0lcRG4idvjHN1SzR/6
/ZB/x/d7y//TXa2HbU980eH6bYXPa/7fJQ7L9ZZF+sP8on8KvLbu95d39c4m
HHW0yeY3xmURxjwA33474ti0NBuLN+r7CFjf58zxL6o0frfWxnwxskq/5YUj
s73sCf1W4JmdCjeUjVUY/VbgZ8d1frV5Sb27L7NazyMzHxC9XlXSQt5bkuJF
/0xk3cSfPA+ZvysSnaoMu3fvdCrdD/0DZ67d8M0ot5r/7HqR/fpNVhjz0Xn9
vQrP1s0g/EThe+2WllHzO3nAwOV137HR+1vui+ozI6yA+ecCmk/0q996ulvp
6ZNDab1Erjwy/5vYLMavsh+8D3n8iu2LmkxNUfdj/cAugdc4Xt+6uuF+wpWP
flw+c/A/xA/yRtQrPP7CH1O8rPPX00mB6vsT+nqLFty/AyO/BYY96f4kk43b
vfwZ9pOAw2Nu//Z8gcI26Y89YuoqXz9Xf+WfOt0JmzFjsYOt362Eran+U0+v
/V2t30VB7+3qsodwx2qeebNaLiPcS/rbPC/+aj8X4LbtnEP6gpzAn0c9/H3E
sTTCf01bN+tBZCrpY+ML7Q/E1Vbrb/eslMDQp9Xvsikf6/j7bzvvqvwsoM/s
Leld1Ljnu3cuZU+5SRj627x8xfEPA5Q+n7f2yq81ySWGzY51d/E/q+JLnyD/
0PM3CJ+yhgV2zYwjvORwQGZGWRWfgp/wqdK6pA4CvvxBUOt5zVV8Kuge1Dxp
mHd8muUfOnRhpPodErd31M3A9S9llylTSa3Pg2lzIvcNtYsq95rt3r3K6rV+
X+rdM/XU8geE7+0LeeHd6SmE4ReCK/r435p4hd7/R74ndvWFa4R/2eAb4B50
i3Ded76NGmfdJpy71nfw+RPK3jd979tmyLIEwtXvhc2rXFJXAZ++GTZ4Ry0V
n9o16bZ9UJJaDw/qdZufVVJPAQ/7PPb8tpK6C/iZ8bHb2/ip+NVR2rdaLz/K
eKxwmLmfD9yhVbeYotCTXvEOegA+MexKbKO9ecwe1fi1MzPD3BvU9ypA78nQ
AEutzQrnS/3neekX61z3N8qfV5X2+ZD5nyKxTuafyr/Ht27V5bMraYQN/6iw
7n/zKZ5ukOtNYSO/VtjIpxVu1m5Jt1Jj81m9pvLXDptb+MaU5IvAfRdXn9Q9
P4flV+q8Oeaj6vLY9+uG/k3xAM83l+9T9I38XdFbcOypsa6S+ojlT356vRlC
z3/4ffkythf2s/ozhHC7JwZXGDNO1Uvw88CHJ/Ra+/NHl1h9G6HqpZ3OF28W
XSV+ME7580sjRmUNukS475TeV761XGfzGU248fmI1fG9brJ6OJrw8Pubooob
3GbxQdUDzvpRM8v1vUn4p9LTq9dyxRB9xCngts2/mnTo7Xiij3HgqHYjK51v
mMDmO55wvZiihJ7tFJ7a/YN90RVUfY84CDxkRvnVpS8lEX2MAxcszmtVOew+
0cM48HsNfyjz42WF162+G/nS5mS2nlV8mX/i5wM9hqYSfYwD17mydMAg/zSi
h3Hg/02s3yx+mMKH46YU/K9lOsuXMwlvL/t63BpbJtHHOHDH6jXmbIvJInoY
B14R+nfvpjkK3230RN2QM9mMfzvLv+yMf4UHeBq883YnhRfIeo3Xn2r9/iT9
g6qnkZfp+aeqDzEOnNZw4qVPlytcVdaDeWw+HMw/ONl8qHpztoyXCu+Q9Z1a
x/B3WHfAWBfAsFtg2BXPJ3k9XvFRelNHjbeR9bLKd3HeAjhr/dEbln/hTTL/
eKjqe7M+AN4c2HVRxFiFL8j6W92PegGYXwfL+rxY2F1FUaMeff8X8TC70u7E
6k4WD1W9Fj8h9k9LBRWvjKvC6GMB49wg5mvsYPsTTfsrfE/GI+/6DHoCbtC8
fa+d5dcRXt1yerFjRTDh2HefCNxU6YTCr99qdCXiANlnmkwYZxO+cfibugNn
7aP57nusoXN++62ELcsnvXb+462KnmknwK13PTfk6/JnFW6xs/LI3ecJnxwx
pvnMlGuE57d/a8czr1+h939+u+kH5d84Tbio1Mr615depPcnV7Vcfe9WOOGl
55J+WXc3XK2Ple1rDml9mujDboFHP3jVdSX4BuGkXa4PT8+MIlw2b9mMZyvE
EP72jRO1Xmx/i/gpPe/tyT8eVf3a96um3y4cp+JJ+58r/LV/VaSqR50vrL+z
OpL4s9zq1P/kCQvrH8cT3vP1h34jrsQRfu3d2hs/3nSXcNPON4ddXZ9A+LOE
z1t+vE/Fnx6Vhx5smqD6xat2VGq4csU9NV+vtSx8P/SO8hfftkuYfPCOqj8m
jNvUNymW1YtJhPn1yLh6ObkJiYR7rvhs8YvNkgmvfOXJT37tpPqXFz/8x+fu
QhXPMmrVDPthgIpX44b/sSVjYiLh3hXeqLZgUiLxF+LuMn3qYvV81k/9Gr1c
7QHh58bsjrmVlkLPLw9+N/wtzwPC0/qfevuij+rfRXe9tf7IC+r5Kkn3u035
TcWjN/d08NSfo+LN3pyraXMDMwj/uOmjoVVXZxC9wlXjjz0ZrPqzaTLfVPX9
0OnTOu4pqb9xfyXpD9X3H1B/NAhO/KPTvoWE44Zu+Lpt8l7CPmnfjatX9x/C
YRvOPnh1037Wb48g7Dvs6WNNpp8m3G323n0hnS4q/HTa7K1/X1f1oL1ZmSPr
L3nVf7Nl/0Vhm/TPqv+2RfpfNV5R9mNUfFoo800Vf1rJa57o6el9LiR1NfUP
5nZLOzn5l12EZ/m2Sh8UfoawPWzRwvm284S/8T1+/MQ3Nwj/EzD2O8vPUYSv
hVmf7rs7jvAzPstvjP7nLmEj37cSfuXCJ98/zEkkDH7Pyn6Biq+fyHxA5c+p
Ml6r3+Pg+boXLh1e10L1S43+nne/k+8XoZ+p55M+Pvr9FuaPYxk9K/OH6vsT
0O8Y3zrvBXY+QPyCD+CzYZ+8mZl2mY1bCP8R0CexbM1bhMEHcOG8d9b13BTP
nrey+blPGHwCt4kMmDCu60Gar4F9YhsfK3WYMPazaf1EXrK1fSKOcOPjnwwY
WF+NH7JuTpsz/h7h0Pxqiz794C7how26LVs263H9XBfVc19cDg5a/Z3C12U9
q75HweM3zgvr/QXVP+0h/afar5kh6at8cmTqaf+GiSp/NK6Foom0V9WfxO9y
IE/V8WO/+rmU6m9c+ODpUTUnevcrYbfAh6R/T2f+nOfjBSz/ddB8PJ2T43vw
hsKjJP8OVi87WT3tNPuv3vsL+u+6VT7la55v5/tB+D2Jrj+131VW8qe+x4Dn
12yoGP7mrRjCq/YuGvr84dte/hC/vwIeIv27whWk/1Pzg3P3wEm/D/eZ3FHx
Y/RDVD1i9KPziW/Ii/lKlM+r+RSyf6D8K9axji2svo5l41ZWDyez+iSd5ffZ
hLEPAoy8Fxj7tcDYnwXG/iww9mcxHztkP7yYxSO3mHfYWuPbrkr/F252fL38
He/9D8P+XMw+Fe4j+y3KHo1+lYvNr4vNv7Iv/I4A48dl/0vtk+K8OPB8GQ8V
biHrT4XRr9btS/1eRfevan9D7zc5WT/KyeKDTfknW9sNrwxQuNScrXU6L7Kx
+KHw6i3pe8ddUrhrtYXNem9RuFH4m51WVLOLJ+ef/Sxk+AMvf9hA9mNtLJ9Q
8uL3HsBvy/XgEUXm868P6VJpf4cc2k9aUebilwN25IsI8/7Pngnqs7+86hej
v8/78bze4fsjfH+e1188X/s/KObKDA==
    "], {{{}, {}, {}, {}, {}, {}}, {{}, {}, 
      TagBox[
       TooltipBox[
        {GrayLevel[0], 
         LineBox[{1527, 1855, 1856, 1854, 1858, 1857, 1948, 1864, 1865, 1863, 
          1867, 1866, 1951, 1874, 1875, 1873, 1877, 1876, 1952, 1884, 1885, 
          1883, 1887, 1886, 1953, 1894, 1895, 1893, 1897, 1896, 1954, 1717, 
          1718, 1693, 1695, 1694, 1719, 1989, 1657, 1988, 1658, 1990, 1636, 
          1980, 1638, 1978, 1637, 1979, 1639, 2059, 1659, 2051, 2052, 2053, 
          1666, 2056, 2055, 2054, 1640, 2057, 1743, 1715, 1614, 1713, 1613, 
          1714, 2063}], 
         LineBox[{1615, 1716, 1547, 1986, 1655, 1985, 1656, 1987, 1631, 2033, 
          1633, 2000, 1632, 2032, 1583, 1971, 1972, 1968, 1970, 1969, 1546, 
          2005, 2006, 2004, 1701, 1698, 1700, 1699, 1545, 1924, 1925, 1921, 
          1923, 1922, 1544, 1919, 1920, 1916, 1918, 1917, 1955}]},
        RowBox[{"-", "1"}]],
       Annotation[#, -1, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], 
         LineBox[{1552, 1932, 1933, 1828, 1956, 1576, 1957, 1934, 1935, 1829, 
          1958, 1577, 1959, 1936, 1937, 1830, 1960, 1578, 1961, 1938, 1939, 
          1831, 1962, 1579, 1963, 1940, 1941, 1832, 1964, 1580, 1965, 2058, 
          1649, 2047, 1650, 2048, 1642, 1747, 1653, 1672, 1748, 1749, 1654, 
          1984, 1606, 1945, 1607, 1946, 1977, 1997, 1635, 1851, 1852, 1853, 
          1664, 1667, 1644}], LineBox[CompressedData["
1:eJwV0D0vQ2EYgOG3okeHEoNINSKImP0HRhaDxkYXoYkaWK1+hYQ/gYW5yoLE
R1V8JCRMvpVIud7hynme+z3n5OQMFMuTi6kQwhzrbSGMMsZ9EsIDXTTSIYxr
Ezzan+jmR5/SCjzbX8jxq89os3zF58nT1Be0Ek37H70EytoSaRL6tBaWzStk
aadfa2WDTda41Oscc8KglnDLXTznijrz7Lpnjxw9DGlZ9qlS4Vq/ocaBfTqe
m6tUOIydVT2V8a007N8Max28mz84iv+BT4r6tusOW7zxyoh+xjmn1LigRKd3
/wN1fD9D
          "]]},
        RowBox[{"-", "1.4`"}]],
       Annotation[#, -1.4, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], LineBox[CompressedData["
1:eJwVzjdSglEUgNFno+twAdAZCzBVaOOPgoNAwQJ0CY61mAqVsAExN84YCIqo
DegO0KV4LM58977X3PHSdrQ1EkKIiI+GUCPGGRWqbPLLDh/cjIVwy485xyer
nJNgjwceiWiQpMwTz6S5YI59mrRY45J5DmjTYZ0rFjjkhVcyXLPIEV3eyP7f
yRLH9Bi6+V03uDfndUqnmWHXPqBAnyJfzPqr67em9I4TTlmm7n1FJ3SSP/Nd
L50=
          "]], LineBox[CompressedData["
1:eJwV0D0vQ2EYBuD3ROp0oE19RGiERsSCf6FhITGx1mLQ1lcIYSX8CCM/w2gT
LBhYDCSEhKmquN7hyv3c92lOTlqq1OdrSQhhmZM0hCnKPLeH8EIvjUwIs7Y5
XvU3+mjaF2yLfOpf9NOyV2xLNPRvivzZV2xVAgmD9oQ19zopWYZsbWy5t8mR
p2TLsOPepZseRmwpB+5DBigyauvkyH0c38swY7Y8p5zF5zzE38hbecc9Bf2J
PS70fflIlXO9JsflBJN06ddscMUmN9T59Xw1/h+yyU/8fv1dTstLOSM/ZIuO
rG8nR4F/J0Qzfg==
          "]]},
        RowBox[{"-", "1.8`"}]],
       Annotation[#, -1.8, "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        {GrayLevel[0], LineBox[CompressedData["
1:eJwVzztLwlEcx+GjRWItFlSLBtZkDaVlN3N0l6ClMZp1aAlcK4Q2i2zoPfia
7GY3bTGXEnr+w8P3x+dMJ3tSP6zFQghHVKdCeCDPBZdc0U14o+DuM+CbR+2Y
TfeQH0Y8aadsuX/5Y8yzVqPojtsJJnnhjG09aaeZ4ZVzdvSUnWWOHg129Xm7
wCJvNNnT0zbDEu9cs69n7TIrfHBHSc/ZVdb4pM2Bvm43yPPFPWW9EP07+iN9
OlqFFjfcRv/lH354KiQ=
          "]]},
        RowBox[{"-", "2.2`"}]],
       Annotation[#, -2.2, "Tooltip"]& ], {}, {}, {}}, {InsetBox[
       RowBox[{"-", "2.2`"}], 2066], InsetBox[
       RowBox[{"-", "1.8`"}], 2067], InsetBox[
       RowBox[{"-", "1.8`"}], 2068], InsetBox[
       RowBox[{"-", "1.4`"}], 2069], InsetBox[
       RowBox[{"-", "1.4`"}], 2070], InsetBox[
       RowBox[{"-", "1"}], 2071], InsetBox[
       RowBox[{"-", "1"}], 2072]}}]},
  AspectRatio->1,
  Frame->True,
  FrameLabel->{None, None},
  Method->{},
  PlotRange->{{0, 2}, {0, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.57600932315938*^9, 3.576249279363566*^9, 
  3.576249967051244*^9, 3.576250772575759*^9}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.576251886997694*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "TWO", " ", "MUTATIONAL", " ", "STEPS", " ", "NEEDED", " ", "TO", " ", 
    "REACH", " ", "THE", " ", "ADAPTIVE", " ", "STRAIN"}], " ", "*)"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.576251896923129*^9, 3.576251936789297*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.576254537168494*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"For", " ", "each", " ", "case"}], ",", " ", 
    RowBox[{"the", " ", "base", " ", "equation"}], ",", " ", 
    RowBox[{
    "the", " ", "list", " ", "with", " ", "numeric", " ", "solutions", " ", 
     "for", " ", "specific", " ", "parameters"}], ",", " ", 
    RowBox[{"and", " ", "figures"}]}], " ", "*)"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{
  3.5762519389616137`*^9, {3.576254539865901*^9, 3.576254592074382*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Needs", "[", "\"\<PlotLegends`\>\"", "]"}]}]], "Input",
 CellChangeTimes->{
  3.5762519398370132`*^9, {3.5762524427978086`*^9, 3.576252443874668*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "obspkg"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(\\\"PlotLegends`\\\"\\)\[NoBreak] is now \
obsolete. The legacy version being loaded may conflict with current \
Mathematica functionality. See the Compatibility Guide for updating \
information.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5762524455241327`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Usual", " ", "case", " ", "with", " ", "only", " ", "one", " ", 
    "mutation", " ", 
    RowBox[{"needed", ".", " ", "top"}], " ", "right", " ", "pannel", " ", 
    "of", " ", "figure", " ", "3", " ", "of", " ", "the", " ", 
    RowBox[{"Sup", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"eq0n1", "=", 
     RowBox[{"s0", " ", "\[Equal]", " ", 
      RowBox[{"r0", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s0"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", "l"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s0"}], "+", 
         RowBox[{"m", " ", "s1"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq1n1", "=", 
     RowBox[{"s1", " ", "\[Equal]", " ", 
      RowBox[{"r2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s1"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", "l"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"m", " ", "s0"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s1"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"95", "/", "100"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep095p2s0n1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"solep095p2s1n1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep095p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep095p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "12"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep095p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ml", "=", "0.056"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"soln", "=", 
     RowBox[{"NSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq0n1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq1n1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{"s0", ">", "0"}], ",", 
         RowBox[{"s0", "<", "1"}], ",", 
         RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
    RowBox[{"solep095p2s0n1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep095p2s0n1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep095p2s1n1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep095p2s1n1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1p2s0n1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"solep1p2s1n1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "12"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ml", "=", "0.056"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"soln", "=", 
     RowBox[{"NSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq0n1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq1n1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{"s0", ">", "0"}], ",", 
         RowBox[{"s0", "<", "1"}], ",", 
         RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
    RowBox[{"solep1p2s0n1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1p2s0n1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep1p2s1n1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1p2s1n1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"1003", "/", "1000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1003p2s0n1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1003p2s1n1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1003p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1003p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "12"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1003p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ml", "=", "0.056"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"soln", "=", 
     RowBox[{"NSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq0n1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq1n1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{"s0", ">", "0"}], ",", 
         RowBox[{"s0", "<", "1"}], ",", 
         RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
    RowBox[{"solep1003p2s0n1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1003p2s0n1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep1003p2s1n1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1003p2s1n1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"10047", "/", "10000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep10047p2s0n1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep10047p2s1n1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep10047p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep10047p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "12"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep10047p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ml", "=", "0.056"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"soln", "=", 
     RowBox[{"NSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq0n1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq1n1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{"s0", ">", "0"}], ",", 
         RowBox[{"s0", "<", "1"}], ",", 
         RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
    RowBox[{"solep10047p2s0n1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep10047p2s0n1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep10047p2s1n1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep10047p2s1n1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"1008", "/", "1000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1008p2s0n1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1008p2s1n1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1008p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1008p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "12"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1008p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ml", "=", "0.056"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"soln", "=", 
     RowBox[{"NSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq0n1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq1n1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{"s0", ">", "0"}], ",", 
         RowBox[{"s0", "<", "1"}], ",", 
         RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
    RowBox[{"solep1008p2s0n1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1008p2s0n1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep1008p2s1n1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1008p2s1n1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"102", "/", "100"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep102p2s0n1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep102p2s1n1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep102p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep102p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "12"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solep102p2s0n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s0n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s1n1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s1n1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ml", "=", "0.056"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"soln", "=", 
     RowBox[{"NSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq0n1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq1n1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{"s0", ">", "0"}], ",", 
         RowBox[{"s0", "<", "1"}], ",", 
         RowBox[{"s1", ">", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s0", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
    RowBox[{"solep102p2s0n1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep102p2s0n1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep102p2s1n1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep102p2s1n1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "solep095p2s0n1", ",", "solep1p2s0n1", ",", "solep1003p2s0n1", ",", 
       "solep10047p2s0n1", ",", "solep1008p2s0n1", ",", "solep102p2s0n1"}], 
      "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "Green", ",", "Blue", ",", "Purple", ",", "Red", ",", "Orange", ",", 
        "Brown"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\[FilledSmallCircle]", ",", "\[FilledSmallSquare]", ",", 
        "\[FilledDiamond]", ",", "\[EmptySmallCircle]", ",", 
        "\[EmptySmallSquare]", ",", "\[EmptyDiamond]"}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.576252808874558*^9, 3.5762529442982483`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJx11gs0VWkbAGChyyApMZFbpSIklyGUT4xLISIVuZRJKpRcSsI5jmvCOZzL
Podz48hlkhRNummqcSm/chkJY5RfF5JBJJfqb+Y/vd9a/1r/u/Zae+39fd/7
vnuvZ69vrwo84REkKSEhoTpPQuLv8/+GgZ3a234zVSTaRie3Dbii/15vQJNK
buzKRl900Nhr04YyE/TJyUsnpOOQeNwSWbW/pdr+cQzNlY21uQbaoLLfR3c9
sg0Xz7dDytTlqu/fRaCGmzVZC0Yd0MNC9bHByGjx+h1I5HvZ1ufZaZTbRHK6
G++KpDrs1/lrxIrzuaPtsSO3RE5xyPC4aN7t+R5I1sNH7qx3gji/J9IevuMU
rUtGjA8LAtguXsh+h6mO78pEcb09SL409FcrKQqaSTh2O4q+D0lfpw7Vv6CI
6/ugFKmLmbzrSShg4WOVXd37UWCvpaNbSrK4Hz80xk164OecguqoRqcNVgWg
GuerW6xlUsX9HUAWS7LD999PFec/gha2xTUn1WWKx8ORweXKiUIuDZ1dXuH4
IjYKHTcaVzF2zxXPj0GfP5ie6iykozOD64wWlceh8ge907rlDPF6MiI4n54q
xDGRVZ9bFnGcgvQybJc9VmeJ8yUjdwOCKOGw0M3tcpJ6aalIZrov+/kkS5w/
HT22j/rsaU4gi+rGU7WCDJTlFryi6yAhrpeJrLwNb6TGEKhGI+Xtrpps5MMZ
3NofT4jr01DXxaoXElEE4v6mVRlxJAf5F0/ICn0JcT+5KIwwDDC3IFDP9D8F
UeHNfv8FsoS4PwYiryfeaLSzUB7nn0D3dKiP/ByY4np8ZHdxYu6SLh0N7/r7
TgGyKPOa11327X0VIbueeAXPB+eRTKcofKtMCep3b5ML+C1FnK8M0ajlH316
EpCuL/X+pE45yrZntaznnxQ/Xzl6Nc+x26stDP0/76cak90TKmPBu5lGnOj6
Fgp4v/bwY5v/vRTwvqc84LVzTjp4X7Ts8FliJAO8XyzsDPp+NhO8Gx3dsrD1
UTZ4lyUcfv3pBxp41x2K1JEYp4F3o7yitER+Dnh/qBpB99+aC95bVZYmkFpy
wbvRwFPPYG86eP8klffvnV108P5bw3Cs+S4GePeqnls6dY8B3h/+1Rtrq88E
70bahTlVNCZ4PyZU6n78FxO8k5aQNBfuYIH3NUnqYesXcsC7iqJ1i0JHHnif
eb2m3FWRC94DfpVqsB/jgveG4I9dFhk88L7xumy391888H5Ul8w01eeD9888
P71RJz543y3jIUdx5oP3N+GSlMOb+eC995Zf0TJFPnh/qppuZ/0nD7zTV+ux
lbg88N5J41Tu38kD79HG7DeUD1zw/tp3srKWyQXvLb7f3VIw4IL3Xr+KAY87
+eC9tNc/psWSA96p1o4xZz1Z4H17cyIxtZ4O3lHE+p7PTCp4P0GvMzSlpYP3
vCaOSoJrInhPNf3w7snlSPC+bkYUvawsHLzbeLG8ReQj6Jv3tJiJjSZxZPDu
e1iua6lhCniPFlinnGKmg3d148W8hp3nwfu5nlRzKicLvPeudrc3YlHB+/iF
8rDxizTwXhayYIgbnQPeb40zKRH6ueDd+FLzVV57LninOSwsTQyjg3dpncj3
U7N08D5w6MnbGDIDvD/wXsMwnWOA90pFJbW14Uzw3ul3TWtlLxO85xe7+9bb
scD7brW4V7eLWOC9PZJSS5IgwHtQnmVLwl4CvBd1Up4dm8beqwITx4yu5oP3
khgFYmkf9n5v9P1T5woeeF/1i75ztCUfvOvc0RXtZPDB+8H0nmaVBux9OlFk
XNeNve/bXvqTWgf2nrpTx/XsTey9OMj1xNZs7N0y4s3sfE8+eA+/VuwyKsMH
7wZNSRFXrmPvJKnxxZU+PPD+PKlToDSJvS9xVfbtScPe2QprWtu/ft/fvFNt
4uqlSNi71YPbRabnsHfJvbpmzbuw9zPOIYbZHdi7fueJpH212HtCxugK61Ds
nWTso1XUir2rCKY2X6rD3ve6VBfZ6EaCd+qZ0su0cxTw7mnenuUilwbeTalX
il32ZYB3HbP1OrJfMsE7PV1AC7SigndJk1LOAhYNvPsEVGTcPZkD3vspupID
ZrngXUu+eNvFQew9zT/Udm0WHbzPl6gvFa1hgHfRzO+89xUM8O6dtWJT0iYm
eB89cFn5bBkTvJNH2mOeqLLA+1BXqoxLCgt7T+SXcgex9zKKtfpuJwK8t72a
VzFagL3fOLdxtu8D9s43X1RVnZYH3qV9plNIJlzwvvnS96xOLx54zw7ax/5B
jQ/ex6oWCm8JsXeTAX7Pi/fYew3FfbhGSwDeE6Qmh2UNBeA9xzpJL1NbAN5X
L71zInG+ALx/CewPNu/A3q8WkTg/srD3im35cjd3YO/1SV6uP05g72Hl73pt
Gdg7Yult7dLjgfe5uEvk2VvY+/DJ562n7bH3+wedLisWY+8lp3yyRkqw93j/
ck7VUey9Ndj8Ycc09s6mO5n9/Ax7b/Gy7aiLx96DosgX3g5g7/KZy+NnOrB3
BeltXw8yeGebKb+wkk4D79tCD8wVy50H755maxUUlLLBu/y5dWcKHWjgPbR5
2+ScRw54t7rL1u7YkgveZbsYi53l6ODdUrnRqr6eDt53Jb/aohzOAO81mm73
vpNlgvf4UHfX+xwmeG/Se9049PV/9pt3t+qwtE42C7x3v0zw4ckS4L3Wmtql
dZoA7y9SzPes+oMA73YXgxNtrNjgHdm3/WsRkw3ejapfM8YG2eCdEemVE/h1
f/7mfWXfS5/k4nzwXut2nz9lxgPvXkXkM0fs+OD9qrr9KGkKe5d+rSnnHyoA
7zcUnrl3XxGAd7e5WQqnDXsfW77VXfUp9u6tul7UcQ97N/8g4/WGg73rK32h
xh0UgHdyT4i2/EoBeDfuqotiN2LvbKWDNr+E8MF7V+HizTXz+di7bEXgNQJ7
v9E2ZE2s5oH3svupA6tLsPeXh/qs6sexd/XO2356A9h7WSnLlMzG3vWkVEnB
WjTwXjIcZqIudw68a8RUkeYLsffBZKmBXJko8P5Dv8lYyyT2vvyfYIB3+4kY
k/MBTPCeddtAftNxFngvDs2tXr6bAO8buHeVDNXY4J1zaPdh72Y2eP8Su1HD
IpQD3pNFMcaKcxzw3p7tF7qHlAfeDZXifu+dygPv+pKrN6kH54N3D+sLkdaP
88G7k+MjZ9ONXPAeYKIZ2vB1P/3mPckwSVPYwwXv3aMaTS4beOCd3XXgtGMU
D7zHp3rvnb7BA+/BA8++3Jnlgff4tcO1Ly344P1JSOCm61F88O75eMTaQVUI
3pXCQ5UvFAnBu2ZTuycxIwTvRU+MlbQNCsD7zKdAhq1DAXhnhx8d2eFSAN6b
d6v5p9oVgPeBOJs/ZzcWgPe1e46s6FcoAO8cPdPl/x4SgvefHc6lOdQKwftz
j6EjizOF4F1rzWCqtJcQvB/QPnyiVUUI3keGByynrgnA+0jj7PZXRgLw3mee
7qBXygfvhOmSdz+p8MH7HzTGjiuK+eD9kLqWnGQ9Ad4pXSptbo4M8L5o/yJB
bhH2XrZqbtGOJux9qGUiSF6TAt6bnC23f8/C3o1mlD42hJxE/wEvdCbk
    "], {{{}, {}, 
      {RGBColor[0, 1, 0], 
       LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
         19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
        36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47}]}, 
      {RGBColor[0, 0, 1], 
       LineBox[{48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 
        63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 
        80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94}]}, 
      {RGBColor[0.5, 0, 0.5], 
       LineBox[{95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 
        108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 
        122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 
        136, 137, 138, 139, 140, 141}]}, 
      {RGBColor[1, 0, 0], 
       LineBox[{142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 
        154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 
        168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 
        182, 183, 184, 185, 186, 187, 188}]}, 
      {RGBColor[1, 0.5, 0], 
       LineBox[{189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 
        201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 
        215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 
        229, 230, 231, 232, 233, 234, 235}]}, 
      {RGBColor[0.6, 0.4, 0.2], 
       LineBox[{236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 
        248, 249, 250, 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 
        262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 
        276, 277, 278, 279, 280, 281, 282}]}}, {
      {RGBColor[0, 1, 0], InsetBox["\[FilledSmallCircle]", 1], 
       InsetBox["\[FilledSmallCircle]", 2], 
       InsetBox["\[FilledSmallCircle]", 3], 
       InsetBox["\[FilledSmallCircle]", 4], 
       InsetBox["\[FilledSmallCircle]", 5], 
       InsetBox["\[FilledSmallCircle]", 6], 
       InsetBox["\[FilledSmallCircle]", 7], 
       InsetBox["\[FilledSmallCircle]", 8], 
       InsetBox["\[FilledSmallCircle]", 9], 
       InsetBox["\[FilledSmallCircle]", 10], 
       InsetBox["\[FilledSmallCircle]", 11], 
       InsetBox["\[FilledSmallCircle]", 12], 
       InsetBox["\[FilledSmallCircle]", 13], 
       InsetBox["\[FilledSmallCircle]", 14], 
       InsetBox["\[FilledSmallCircle]", 15], 
       InsetBox["\[FilledSmallCircle]", 16], 
       InsetBox["\[FilledSmallCircle]", 17], 
       InsetBox["\[FilledSmallCircle]", 18], 
       InsetBox["\[FilledSmallCircle]", 19], 
       InsetBox["\[FilledSmallCircle]", 20], 
       InsetBox["\[FilledSmallCircle]", 21], 
       InsetBox["\[FilledSmallCircle]", 22], 
       InsetBox["\[FilledSmallCircle]", 23], 
       InsetBox["\[FilledSmallCircle]", 24], 
       InsetBox["\[FilledSmallCircle]", 25], 
       InsetBox["\[FilledSmallCircle]", 26], 
       InsetBox["\[FilledSmallCircle]", 27], 
       InsetBox["\[FilledSmallCircle]", 28], 
       InsetBox["\[FilledSmallCircle]", 29], 
       InsetBox["\[FilledSmallCircle]", 30], 
       InsetBox["\[FilledSmallCircle]", 31], 
       InsetBox["\[FilledSmallCircle]", 32], 
       InsetBox["\[FilledSmallCircle]", 33], 
       InsetBox["\[FilledSmallCircle]", 34], 
       InsetBox["\[FilledSmallCircle]", 35], 
       InsetBox["\[FilledSmallCircle]", 36], 
       InsetBox["\[FilledSmallCircle]", 37], 
       InsetBox["\[FilledSmallCircle]", 38], 
       InsetBox["\[FilledSmallCircle]", 39], 
       InsetBox["\[FilledSmallCircle]", 40], 
       InsetBox["\[FilledSmallCircle]", 41], 
       InsetBox["\[FilledSmallCircle]", 42], 
       InsetBox["\[FilledSmallCircle]", 43], 
       InsetBox["\[FilledSmallCircle]", 44], 
       InsetBox["\[FilledSmallCircle]", 45], 
       InsetBox["\[FilledSmallCircle]", 46], 
       InsetBox["\[FilledSmallCircle]", 47]}, 
      {RGBColor[0, 0, 1], InsetBox["\[FilledSmallSquare]", 48], 
       InsetBox["\[FilledSmallSquare]", 49], 
       InsetBox["\[FilledSmallSquare]", 50], 
       InsetBox["\[FilledSmallSquare]", 51], 
       InsetBox["\[FilledSmallSquare]", 52], 
       InsetBox["\[FilledSmallSquare]", 53], 
       InsetBox["\[FilledSmallSquare]", 54], 
       InsetBox["\[FilledSmallSquare]", 55], 
       InsetBox["\[FilledSmallSquare]", 56], 
       InsetBox["\[FilledSmallSquare]", 57], 
       InsetBox["\[FilledSmallSquare]", 58], 
       InsetBox["\[FilledSmallSquare]", 59], 
       InsetBox["\[FilledSmallSquare]", 60], 
       InsetBox["\[FilledSmallSquare]", 61], 
       InsetBox["\[FilledSmallSquare]", 62], 
       InsetBox["\[FilledSmallSquare]", 63], 
       InsetBox["\[FilledSmallSquare]", 64], 
       InsetBox["\[FilledSmallSquare]", 65], 
       InsetBox["\[FilledSmallSquare]", 66], 
       InsetBox["\[FilledSmallSquare]", 67], 
       InsetBox["\[FilledSmallSquare]", 68], 
       InsetBox["\[FilledSmallSquare]", 69], 
       InsetBox["\[FilledSmallSquare]", 70], 
       InsetBox["\[FilledSmallSquare]", 71], 
       InsetBox["\[FilledSmallSquare]", 72], 
       InsetBox["\[FilledSmallSquare]", 73], 
       InsetBox["\[FilledSmallSquare]", 74], 
       InsetBox["\[FilledSmallSquare]", 75], 
       InsetBox["\[FilledSmallSquare]", 76], 
       InsetBox["\[FilledSmallSquare]", 77], 
       InsetBox["\[FilledSmallSquare]", 78], 
       InsetBox["\[FilledSmallSquare]", 79], 
       InsetBox["\[FilledSmallSquare]", 80], 
       InsetBox["\[FilledSmallSquare]", 81], 
       InsetBox["\[FilledSmallSquare]", 82], 
       InsetBox["\[FilledSmallSquare]", 83], 
       InsetBox["\[FilledSmallSquare]", 84], 
       InsetBox["\[FilledSmallSquare]", 85], 
       InsetBox["\[FilledSmallSquare]", 86], 
       InsetBox["\[FilledSmallSquare]", 87], 
       InsetBox["\[FilledSmallSquare]", 88], 
       InsetBox["\[FilledSmallSquare]", 89], 
       InsetBox["\[FilledSmallSquare]", 90], 
       InsetBox["\[FilledSmallSquare]", 91], 
       InsetBox["\[FilledSmallSquare]", 92], 
       InsetBox["\[FilledSmallSquare]", 93], 
       InsetBox["\[FilledSmallSquare]", 94]}, 
      {RGBColor[0.5, 0, 0.5], InsetBox["\[FilledDiamond]", 95], 
       InsetBox["\[FilledDiamond]", 96], InsetBox["\[FilledDiamond]", 97], 
       InsetBox["\[FilledDiamond]", 98], InsetBox["\[FilledDiamond]", 99], 
       InsetBox["\[FilledDiamond]", 100], InsetBox["\[FilledDiamond]", 101], 
       InsetBox["\[FilledDiamond]", 102], InsetBox["\[FilledDiamond]", 103], 
       InsetBox["\[FilledDiamond]", 104], InsetBox["\[FilledDiamond]", 105], 
       InsetBox["\[FilledDiamond]", 106], InsetBox["\[FilledDiamond]", 107], 
       InsetBox["\[FilledDiamond]", 108], InsetBox["\[FilledDiamond]", 109], 
       InsetBox["\[FilledDiamond]", 110], InsetBox["\[FilledDiamond]", 111], 
       InsetBox["\[FilledDiamond]", 112], InsetBox["\[FilledDiamond]", 113], 
       InsetBox["\[FilledDiamond]", 114], InsetBox["\[FilledDiamond]", 115], 
       InsetBox["\[FilledDiamond]", 116], InsetBox["\[FilledDiamond]", 117], 
       InsetBox["\[FilledDiamond]", 118], InsetBox["\[FilledDiamond]", 119], 
       InsetBox["\[FilledDiamond]", 120], InsetBox["\[FilledDiamond]", 121], 
       InsetBox["\[FilledDiamond]", 122], InsetBox["\[FilledDiamond]", 123], 
       InsetBox["\[FilledDiamond]", 124], InsetBox["\[FilledDiamond]", 125], 
       InsetBox["\[FilledDiamond]", 126], InsetBox["\[FilledDiamond]", 127], 
       InsetBox["\[FilledDiamond]", 128], InsetBox["\[FilledDiamond]", 129], 
       InsetBox["\[FilledDiamond]", 130], InsetBox["\[FilledDiamond]", 131], 
       InsetBox["\[FilledDiamond]", 132], InsetBox["\[FilledDiamond]", 133], 
       InsetBox["\[FilledDiamond]", 134], InsetBox["\[FilledDiamond]", 135], 
       InsetBox["\[FilledDiamond]", 136], InsetBox["\[FilledDiamond]", 137], 
       InsetBox["\[FilledDiamond]", 138], InsetBox["\[FilledDiamond]", 139], 
       InsetBox["\[FilledDiamond]", 140], 
       InsetBox["\[FilledDiamond]", 141]}, 
      {RGBColor[1, 0, 0], InsetBox["\[EmptySmallCircle]", 142], 
       InsetBox["\[EmptySmallCircle]", 143], 
       InsetBox["\[EmptySmallCircle]", 144], 
       InsetBox["\[EmptySmallCircle]", 145], 
       InsetBox["\[EmptySmallCircle]", 146], 
       InsetBox["\[EmptySmallCircle]", 147], 
       InsetBox["\[EmptySmallCircle]", 148], 
       InsetBox["\[EmptySmallCircle]", 149], 
       InsetBox["\[EmptySmallCircle]", 150], 
       InsetBox["\[EmptySmallCircle]", 151], 
       InsetBox["\[EmptySmallCircle]", 152], 
       InsetBox["\[EmptySmallCircle]", 153], 
       InsetBox["\[EmptySmallCircle]", 154], 
       InsetBox["\[EmptySmallCircle]", 155], 
       InsetBox["\[EmptySmallCircle]", 156], 
       InsetBox["\[EmptySmallCircle]", 157], 
       InsetBox["\[EmptySmallCircle]", 158], 
       InsetBox["\[EmptySmallCircle]", 159], 
       InsetBox["\[EmptySmallCircle]", 160], 
       InsetBox["\[EmptySmallCircle]", 161], 
       InsetBox["\[EmptySmallCircle]", 162], 
       InsetBox["\[EmptySmallCircle]", 163], 
       InsetBox["\[EmptySmallCircle]", 164], 
       InsetBox["\[EmptySmallCircle]", 165], 
       InsetBox["\[EmptySmallCircle]", 166], 
       InsetBox["\[EmptySmallCircle]", 167], 
       InsetBox["\[EmptySmallCircle]", 168], 
       InsetBox["\[EmptySmallCircle]", 169], 
       InsetBox["\[EmptySmallCircle]", 170], 
       InsetBox["\[EmptySmallCircle]", 171], 
       InsetBox["\[EmptySmallCircle]", 172], 
       InsetBox["\[EmptySmallCircle]", 173], 
       InsetBox["\[EmptySmallCircle]", 174], 
       InsetBox["\[EmptySmallCircle]", 175], 
       InsetBox["\[EmptySmallCircle]", 176], 
       InsetBox["\[EmptySmallCircle]", 177], 
       InsetBox["\[EmptySmallCircle]", 178], 
       InsetBox["\[EmptySmallCircle]", 179], 
       InsetBox["\[EmptySmallCircle]", 180], 
       InsetBox["\[EmptySmallCircle]", 181], 
       InsetBox["\[EmptySmallCircle]", 182], 
       InsetBox["\[EmptySmallCircle]", 183], 
       InsetBox["\[EmptySmallCircle]", 184], 
       InsetBox["\[EmptySmallCircle]", 185], 
       InsetBox["\[EmptySmallCircle]", 186], 
       InsetBox["\[EmptySmallCircle]", 187], 
       InsetBox["\[EmptySmallCircle]", 188]}, 
      {RGBColor[1, 0.5, 0], InsetBox["\[EmptySmallSquare]", 189], 
       InsetBox["\[EmptySmallSquare]", 190], 
       InsetBox["\[EmptySmallSquare]", 191], 
       InsetBox["\[EmptySmallSquare]", 192], 
       InsetBox["\[EmptySmallSquare]", 193], 
       InsetBox["\[EmptySmallSquare]", 194], 
       InsetBox["\[EmptySmallSquare]", 195], 
       InsetBox["\[EmptySmallSquare]", 196], 
       InsetBox["\[EmptySmallSquare]", 197], 
       InsetBox["\[EmptySmallSquare]", 198], 
       InsetBox["\[EmptySmallSquare]", 199], 
       InsetBox["\[EmptySmallSquare]", 200], 
       InsetBox["\[EmptySmallSquare]", 201], 
       InsetBox["\[EmptySmallSquare]", 202], 
       InsetBox["\[EmptySmallSquare]", 203], 
       InsetBox["\[EmptySmallSquare]", 204], 
       InsetBox["\[EmptySmallSquare]", 205], 
       InsetBox["\[EmptySmallSquare]", 206], 
       InsetBox["\[EmptySmallSquare]", 207], 
       InsetBox["\[EmptySmallSquare]", 208], 
       InsetBox["\[EmptySmallSquare]", 209], 
       InsetBox["\[EmptySmallSquare]", 210], 
       InsetBox["\[EmptySmallSquare]", 211], 
       InsetBox["\[EmptySmallSquare]", 212], 
       InsetBox["\[EmptySmallSquare]", 213], 
       InsetBox["\[EmptySmallSquare]", 214], 
       InsetBox["\[EmptySmallSquare]", 215], 
       InsetBox["\[EmptySmallSquare]", 216], 
       InsetBox["\[EmptySmallSquare]", 217], 
       InsetBox["\[EmptySmallSquare]", 218], 
       InsetBox["\[EmptySmallSquare]", 219], 
       InsetBox["\[EmptySmallSquare]", 220], 
       InsetBox["\[EmptySmallSquare]", 221], 
       InsetBox["\[EmptySmallSquare]", 222], 
       InsetBox["\[EmptySmallSquare]", 223], 
       InsetBox["\[EmptySmallSquare]", 224], 
       InsetBox["\[EmptySmallSquare]", 225], 
       InsetBox["\[EmptySmallSquare]", 226], 
       InsetBox["\[EmptySmallSquare]", 227], 
       InsetBox["\[EmptySmallSquare]", 228], 
       InsetBox["\[EmptySmallSquare]", 229], 
       InsetBox["\[EmptySmallSquare]", 230], 
       InsetBox["\[EmptySmallSquare]", 231], 
       InsetBox["\[EmptySmallSquare]", 232], 
       InsetBox["\[EmptySmallSquare]", 233], 
       InsetBox["\[EmptySmallSquare]", 234], 
       InsetBox["\[EmptySmallSquare]", 235]}, 
      {RGBColor[0.6, 0.4, 0.2], InsetBox["\[EmptyDiamond]", 236], 
       InsetBox["\[EmptyDiamond]", 237], InsetBox["\[EmptyDiamond]", 238], 
       InsetBox["\[EmptyDiamond]", 239], InsetBox["\[EmptyDiamond]", 240], 
       InsetBox["\[EmptyDiamond]", 241], InsetBox["\[EmptyDiamond]", 242], 
       InsetBox["\[EmptyDiamond]", 243], InsetBox["\[EmptyDiamond]", 244], 
       InsetBox["\[EmptyDiamond]", 245], InsetBox["\[EmptyDiamond]", 246], 
       InsetBox["\[EmptyDiamond]", 247], InsetBox["\[EmptyDiamond]", 248], 
       InsetBox["\[EmptyDiamond]", 249], InsetBox["\[EmptyDiamond]", 250], 
       InsetBox["\[EmptyDiamond]", 251], InsetBox["\[EmptyDiamond]", 252], 
       InsetBox["\[EmptyDiamond]", 253], InsetBox["\[EmptyDiamond]", 254], 
       InsetBox["\[EmptyDiamond]", 255], InsetBox["\[EmptyDiamond]", 256], 
       InsetBox["\[EmptyDiamond]", 257], InsetBox["\[EmptyDiamond]", 258], 
       InsetBox["\[EmptyDiamond]", 259], InsetBox["\[EmptyDiamond]", 260], 
       InsetBox["\[EmptyDiamond]", 261], InsetBox["\[EmptyDiamond]", 262], 
       InsetBox["\[EmptyDiamond]", 263], InsetBox["\[EmptyDiamond]", 264], 
       InsetBox["\[EmptyDiamond]", 265], InsetBox["\[EmptyDiamond]", 266], 
       InsetBox["\[EmptyDiamond]", 267], InsetBox["\[EmptyDiamond]", 268], 
       InsetBox["\[EmptyDiamond]", 269], InsetBox["\[EmptyDiamond]", 270], 
       InsetBox["\[EmptyDiamond]", 271], InsetBox["\[EmptyDiamond]", 272], 
       InsetBox["\[EmptyDiamond]", 273], InsetBox["\[EmptyDiamond]", 274], 
       InsetBox["\[EmptyDiamond]", 275], InsetBox["\[EmptyDiamond]", 276], 
       InsetBox["\[EmptyDiamond]", 277], InsetBox["\[EmptyDiamond]", 278], 
       InsetBox["\[EmptyDiamond]", 279], InsetBox["\[EmptyDiamond]", 280], 
       InsetBox["\[EmptyDiamond]", 281], 
       InsetBox["\[EmptyDiamond]", 282]}, {}}}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 0.056}, {0, 0.03378519211102676}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.0011200000000000001`, 0.0011200000000000001`}, {
   0.0006757038422205352, 0.0006757038422205352}}]], "Output",
 CellChangeTimes->{
  3.576252988808923*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztfQVYVGnf90i3gLF2d62dWNjd7trdrdiIgIIKil0oKIIotiCCioKChR0g
CoqA0iUdM/N/53diODMMuKv7Xtf3Xde7z4Mzc+bMOf/u+z4jZlksnLdslsWi
ObPqDVo9a+XCRXPW1Bu4YrXskHoFkajCQpFI9LmeCO9J9pb7h2T/p0X4B0dU
vx/JvFTWyc/P37558+Zxly5dstu0aZNBdnY2vmkUGRn5rWbNmhWkUmlZ56iL
xeLhPj4+uGmfwMBAfG7MXNbkdy7bPDw8PL569eoitaiGDRuK1HF+k48fPzJX
bvT7YGsVFhZGNG3aFN/Nc3Z2rvnt2zcWbKNfvawG83N1jvoMmUWNfx/SVU5O
Th+aNWsGKPFeLzc3t56QfUYr9+7dO8Lb2xufwALbLVu24L2aRCIBHfFe1Tlq
LMC4uRzoJv/FJTV7hISE9Lp//z4+4fItwsLCOFr85qU1wDi8q5aQkHCnf//+
v3nVcpj2q5fEe5P09HQwFO87hYaGnpo5c6YC0zTv9+rVq2pSUhI+gaXvW7Zs
KdIo5zv1MiH95WuNvH79evsXL14IOP/vr8VR0DArK6tIU1NToKDlna+l6rta
cXFxmgyC6vWio6PlaDb8PdAgMjn6+vrMp7oKXEioVq2aRnFxMX+rNFNTU/6S
Kr8rhwv/+loceLvXrFlTPT4+/reuxcHFG5G4WrVq/YNr6an6DhZ82YEDB6C4
OAZcm/4eij0fPHiQq6enp4IDKZUrVy7rkiq/K4cD//paHHhtX7165T516tTf
uhYHV/87d+68/vPPP0ddu3btH1xLT+V3stc6MTEx0E8lDvxrsDizqZuXlzfR
y8sLPvX4/PnzFY3R465du/IiqJ+TkyPULJXflcOEcq6lrfI72XsoPgepunZB
QYFcW39+zfK+U28YFRXlOmvWLKFR+tfX4uAacvPmTTCFwbnpT6+lXxauNb5/
/16opaUFvw9VBb4iRXas3rNnz9jLly/jU7+AgICt1tbWPIgqv+NA1CwqKlLy
5OVdS1/ld8QGX0N9fX3xfpKnpydA/Z3rwZKAfHhfOzY2tkBbW5tn7b/GlRO9
2S4uLv8C13LpttHe3p63dqL6CqwAd/iozMbKygp6xF1SV+V3HLpQ3ecdOnTg
JaWc66j+jtPbhUePHoU5ia1du/ZgPz+/Jr93ud5BQUGIRRD6AuvGv3g5jgkV
MzMzv9atW1fIhF8FDeHT9xo1akDYzkybNo1TCca2DGZvxxOY+asj+J5LZ2oy
L1qyAI1kjpD5g4TgVcYTElyKP1WWuTAXoZLUiVq9e/dPT12+/93df3jqvhXv
TghPrcYbdtEYEfMf99sGnz/TVmvHnOcdHM/h8JUxjg8rpaaSLksCkdDi6qg4
9n/n/d95jK6xYlan5KseIRTy/wXo/3fe/1vncaJUm3nRaP+CXuDbAm3SdlpF
q7qo+EVnFcd+57ymQgg037am1sy33P9GX6WrKi/1vwtGkSZpCsHYaE/2rDsa
pHCe32CZzRf81/kpPVVxnkaVZErG99kGxcYTvchL6C1YNdbA12L1Ip1cPdID
7YVXqcPxSgCRnDjMeQPLPa8EeuF5LP7qEjVSY8EmYk8aUAquYg2xNs67MYyG
/QpctdhLVSAp7fdb7secb/LZRA0nI0QDeBwfmH/7sz9j3aaOmlQidbk++zpZ
i6yZn66uuZoqf6jMQy68Uw1W+jUlRZLzF/+6iJ/If4b3a6uuLazzug4ILCr9
O41+XwK+iG3UbfjfcTSiieMmKiI2QAih7viwi2GF27S2Kdxq0ohJpFGgociA
AUKC6AyK8o/KtdOzw2/S5o1dSmrFDE0UMDMr0c0PzahZnkmGCcBX0Fwts5jg
GFxl2lm/xIim1DSyETWSCxp7BSZ2etc6rxONWDKMVtZdRSbh1cZckV7VKMXM
9U63Hyf+QX8Ua5BGCam4y4y+cbWIXE3/Js/+Xci7aj+yEDm6rfY+qnAZhnAx
dTNbMSzmGM2ST8joriwdwK7c92Nb0PUJHeiBeS/yHt+R3vZv8mOb6Y4/E18n
qiuLbZmS05F5a8ATC8p0dCEtfDDn1gzyn9CSbNSsWN5W2Er+42SftTZf8hrn
pV4K9vDWX/sLYfecRJMUb9WBeWvIULVVfkcS5euQTmJFvIbOfTUw4fmc7rRf
tJy53UHRMnoysEX48ZGW2uICMRdjc2KgqUHFxWvJwQH39Q2ZuCm9SrEJEnDV
NGvPosgEohVk74eI/Gi15m4yEaUfWfziRKHv1C7k07A/BVboQz4GA7MuTR/0
R3KihGOPqMbvFKz/TSGbqxevod27m1JEBJCzv7TxmXj1PnUeudL8Y5HTt9vs
/YjO9f6b3g5pRNcnt6JnQ5tLH85qRgnrDMS+y5uFfHYcm3BrRT9b6d2tvA8T
1fidqu6/qfZymG0hW1vu1qJtBy2TPp6yb8KLS2mr2o5lW6VUSj0/uWhy3rSe
6+i9eRM60mkkIyKH24+hN/2aRJ5bOK3+j5Rvex957TEoKsjV4u5QXhVUX+V3
svfl/MZQoXIq+1tB+/Y1ow8fgM1h98WP1mcf2vmmDbWBDeDjASEmeuMu0aX4
6lT9skWAhcRGy4r8x5fSL59z407r8hiUU0XUUfmd7JU/zmXz/GHmjz2mpVCA
hIEgsXgVOTlpCgxFaS1qxbKjahIleU2kiR+bUBM+iL5+atkpejSsOR0SLeW1
N/31Xx1mRQT7yJEpp1inU1bdjz/OAq4tREa5hsddivG+Bw8sjcAnBCVlKk5L
Fh/Y/IRqVG33Glqjm0dMSn3w3MoQyhphRAHzm9D7oY0otn/tlK9T2wQ9PzBJ
j8ennHKXSVnlrn9VBhMg5Lp71nt8etidunMMklagCor60oJ5a/RHIiVeGkfj
wptT866P6TGOyqwORXu030w5C7Xzry9qe9/Hca7XLSfrUzeWn3V4cmm/ulQi
kSP2K0Wtf1xQ0ixB6rTTjDf4BEDLtN3NWKQmn6Wz8K87NtAGnXxijIvZy+Cc
4hetOlPSKoNsj6U9dj69fACIaIuLC3ljoM8jVU4hRr+s0tW/KdAImHXx4Pig
n0ofWx/SqJZACddG0aj3LakluMkZykNuy59S5iBjSfjyahlnVvQeE/3ynsiY
xaU6S1WF8o9ayd2v7R3F3B2Bdpmmlb27/rQzdCapKlXdvplkIkcFOGqYlUWf
T7W1pcK5Gnl3l7SOuLBlbNOMxK8iE6EHVufLSky4p8b8q1k1SZoMCcX9FA0g
W1nTqPmNvvkMp+Gwkgg4eHv0/EFu8eOmZvRjlU7apZU9zwc4bwTzTBXuyNeR
RJyVkr1TR3UqrAW1KD9mYouYGjNP0ankKlTFeitt1SqkQo7W+11XvqK0vqbS
2FWm6e4re696e+esqPI/ujU4LLx1aTbXZW9dK47ibg6hIS/bUbs/X9NrDnGj
Hz8o6lgbByqeoZETurRpgsfagb3iP72o8rO7a+HuIDWfQPDWQHBTzQpSks49
QSeAs+U22qZRTMW8C+gdGpRbFNKoD+Wv0oy/adH74fVds2rkZiRX/Ud4Q2PL
JzmXv9SJoZhbA2lgaCfq1OodvWOjOK2DzsteS1N7VpakrjFIOL+234GH5xw0
JeLiP4R310bxz8LRkbl78qgqj/AexT8m1SxTsWqUIL/gGB0D8ht20A4h8sYZ
GRR1uJUTFU/WyPmwon7qmdXmkyOf+rGapZDr8ZpUfmDL/lCj/hf6EtCP+j3p
Ql1ahFEYh22fx4H5RffqDqTiFepfH6zvHXnecnTrtG+RNQS3E2nhdnH7aznw
V0YCnGFMxmVaxkqs6xQG7lC4xYfpMJBe60AO6mISc64TJd/9R5eHS5O6VJNm
r9X9dN1y+HX/w6uMC3OzuKRMGMynHKxsLbAsmrykl06QWVnVQhlCeAJAahpB
ESwNtEHySKeWh6logmZO7Jqa8WfXDdz80tdFluBKOX7zsb0VBdlsp7ubAYY0
uF8vp7xrG3kwVIm8EIxScG6yIzsud9Dq+/BeQZF/zeEkWaoe9dqyV6K7xYCB
cWGP6whvr7NFGmSL3JnPSn8EDx3WLOVDyk89FWutjNq9pJc/jMiIOaqToSM0
vmDCwUNLI6Tf29WUFq7Teh5gN/7ZFbtpdbNT41ml5fNj5Hdv3y/5WyE/DjDr
n+RY1RH5nVAHQnpQD0VQWE9RUS+Xch0tyCKhmqTGqr15RyNWLrHI31B346pT
4Z4ABcr0aWeLk1Q4WisvzaLKx4tWo0/ed7PVERcV8k04Fh51pPmSe33MGXj4
HF/2HqkgU9LRKIssRixZBvmT/5f6VP/MNJo25ax3Jo0SMeUJstG0pNWiPZtd
ticUXq8+niQL1SM+W3VPdF8zYM6HkGsNhMzRvZB8eLH44aCeDElC+ptRUJ8+
3p4jPJEiQmFA7LJNgwFLFpzoMYWmfG5ADQbcptug9YP9PS9SUO8+8vTp5dAm
9KBvL2n8zJpBoXsmfz27cXjH5K9h3PQFV0TQGRzpF8Wzx8tr4iWD3GwJKMub
DfWyLAYbbBnDSsEtIbRxWEtr+QCUIbe1mk3pfKdv07T9rS1u++5dXCk/J7OR
EBrd4ezgmUjGDn9Zoivl+ze8OcnRJ/2ys2S22KnRKJIiYcSedaSOcFVchL77
zPpXyvmK1H9iS6eH5/Yi6GoshERr1I1rxQwkNiIrcJc0RMWA5KfWhAVCE9Ya
B2HIVu6lvTBkfK4gS8PoueXYc9KHI1vQIXUm4SjeUWntp8jV3aZ9euzbRAES
l7DZu9lqmwhhyCdaIdongKRsg6LNkqPLE3qCcMV3KA2t+5W+svGrTpNPHyll
W7UDVDhUW/Jydc2s6Nn1i+LHVH+RYdU98MXBSQrFUS2PiCm2wqInbRTZC4Dg
3Sn/v5KiGRctG2ZR1v7ltBzJ41/n6Tyb4uouP7X/h/hO1YFSyQL1d+n2nd9e
sp749qLNX63Tv0XuenKZieoVy7Ratqlb9gECyZqKTh42Uz5eCRhzCGagDMaw
pgXfcfHtCG/yjqlDdU7OoTkm6ZTOAqiHQCZ4ndkjaWLrahLJeg3PL66LE9wt
Bs4Pf3BZGI6z0fxvllRUDVkysqPifNb0ayLDZfxJmnGl42Hz96mRjDJc25Z3
72UGNGziolE9nuIvTKAJSHx7B1EQywTtrk8fS7IdTKypaIRWVtEmU7cnbhs/
n9s0krEWrTh8/9OpRI5XKi+pUeLCpbEN6s7xOJnPH+PtY5kBq7gkcpp/nI4j
MbDdQluYdIsTe9i2nY7rkyWPqvaQSpaoP8py6ovQ8YbfwRWIJFpz+P7qEJ6u
HEnur5zrMNkOXTYZl7qt0r4G6Z/TuctnGZKhUIYRCIkk7E+afaAPD3pST6g9
4lGWhzrVEhIofHnzW9L0dqZiyQbNw98vbPjmsW7Ixlc3XRGhtOHR+sVJNC1l
tBSLNFoKRRpIhVQiZUNuxt1+21NzDx+ClBWQMZrK3lsTyc1WmYUGBxEOqklI
IuLEdYSfd3HBYcOVVDxGI1VsVWXfq4s7vruvG9z3e8QzUVsez1+c9yqFp2L9
RlOIJ7yu14WJF9n6uUgDUQ3/HVRSVUCRz3LRLJiCYTOvjKExSCm1ShyD++ap
MZLX1dtKxMs1bucfGernd2Dpg+uOc2vmZCS147H7xQGvUsJZ3oAU78FZ5Bg+
aiJY4n9bbrSSxfJKGNofXkyLUZePq0W1xlyhKyLWP+k0/vSJvq+scUGa1dGo
WLJJa3uyrx3Mj9OjC3s0JBJxex7p/2SMSq2c8zlzuuPMhjA+JOIFOPB4HyZE
E15DpefNYcVIOZlA6lwxkzJZnLUXnD6WX3TGYJa0eKLGd4ltLavwm4eT3db0
Z6okHXmEf3tYifMd5Yz8aMkjrs0iOyYqGie69Ofb11zrQLVjZ3HURJW4VAzE
STLc6Z1l/T9IPtVqKpGs1LxUdHriubsnN76+ZDupcWZSTCfF6OKjMyNmdMB8
GZ0zn0RWvW0QXWiUYylYCVNH0QelASadUFUt4mKuzqFPpRlrTZylud30CyWb
dSwyAg++u2g98VTgaWu94sL8zgoA7U2/wgL00LR7/i4dq5vBdnYIMjT+ocNN
Z9k85CbdRFfu6mgajazKbTpND+pNvVGx5QGDQ7JxsMoqvmY4TiqepBktsW+w
9PN9jxS31f3mfXhwpasQME0/sldoPvvQzuGca/u5e0xlCYIgEBABMkCoU+JC
Xs1rGyqJqVNPLFmjeVp8ftaREE/7L56bRrRLiY3opgBIANn0AwCFxaN0xX+r
X/CnbYM45msKySPnRWqJZQe/0kzJdPN22s4U7VhSGBjnZ+QLrdMwvxuSXCt9
B2lBT908yRa9BdmPXR9f3TnT2/8Qk/V3F0Kk7Uc7GdJIIic0oWf9O4bkbR7A
j4rxDhckQv5WqEVaSw7RIY4ig/3ID9SAOUbBh9UNI1QIdfPz6NCNJX5f99bd
1zwhPB0m+sSGuaniAKNBEvE0zQiJQ/OpcaHXE89YDFj/yv80nG0PBbg0pUVs
JhEk6k1+osG0RrSbKotSmLyGpZg6bOOa3bSb+ZTEAgVAABAAA4Aslw1G+HhL
5akn/mTJSfJfVe5KEhtUL5as0zoovb50+7Nrh3mX2JMFhquH8U3ykvxX9u9a
keO4kEus7+Jkqe89uve0M7FakVDCOrCMZx0+c+cb4LoxT6ZNoC/m9elL/7r0
2bwBBcqy0R2aG/MTFjT4K//NpVu++5bAk1XPzUzppQAV34IvKcVyZvf2iQFy
f8NHgcik0O6oF03RonhFBl4eS2NBN9bM6uO60sjejeiQ6Wza138EHaw6iz6a
NcHFH54ZcCj27Pqhjo8v7YObEfUWck0d7X1lJyBLgT3bv3nBOgGOc/Bocs7F
KXLuU2NqjKoBmyrrJEf81ZUcO01iuLa7/WR617dxlNOfe1PdVgwYHf0qsC8L
gKCaRtbqDI/jVtS6tM5xlwQmSJsjWQAFoErHfIopYRDKRamVqBJeGQbpyv0F
nVi7MBUdcenx6vOZSx+ssEzi+1fbD6fWzYZRFpkLIWCimqL0TlWlryu0u+0/
YDda1vxAEc8EoCr6yqINVIEyWjc4zqKt2/rtW4oZX+ep5HGbFtLoVaZptMw0
KndJy6LYsbUiX9mZzY4IuS7qVwr3goLFRpKnal2ubh79zqLIcR/UWKeE5quc
yIn59LmE5uA+cpuBt+gWe3M9/Gqd067iAmttO2lee7186RbdK69PLlzz5pY7
LKzFm1tntry4caK/gsqigMfQf7v5Zpk/+ptu9h5CtqItjMrqqGBApCIDkPTD
8jIMYCHRr/ntGz0d1zm2ONigj7j4L+0v0l0N2hXHvz5x38021W1Vv+Exb+7L
U15FcCzp/jaF5PuRWXe6LBo74pF3ipAhiJYZhnxSzRC2laQ/4eIFae5svXOS
1HpVCiTrdY/R1QVtMr59hDv0uOtiWSk/J4NPd0UDhJDobJXeY8oA5C8axNgz
KJONaGvaDlOmqMcBc3w+zZcz6B37U+UqL88wTK6ghsUCp4vA4cLsCVmFZ3Vm
SorMtX9IbSoOocibUyKf3Ew6s2YA8nHREAVX5Jp+arW8wshVGXmVFQasvMr2
v0N3HnWjbgLotJXjNdStUXRnOMiB1iMkhFJGVn4ojqrUtFC8UC+YjpnVL077
6hLkZvPBy2pcq7TvUaKhCvSypsCtbKVvgBlf7QNg/qcHMeGkEvPQZOEgKhX0
7FpH6zhI9GQRLTlsXltYYKdtK8lro58n3aK3joJ3Nc9I+MJzEdwbJtQqbQDy
LHLdJLJTswQQvi5DS8p9rJnQAEcACc+l1yzhELzA7Ct7dU7Fm0ZEUPjQ5l+K
Hur3Li4epxMn3Vm7PcW/4Jk2K+LhddGIUsBEhZsPp4ui8eQrGkZVRUnyah8L
jCaqraWCT3Z1mzbEB0XJbzWppoUjOcKry0Mr3RLlX3TsiDR/no67JLVW1TzJ
On13ujC1SnFOKuI+nmkjBZCpc+nOAdEy2c1G845aVzVTmPDqGfudQTZlow0J
OuEVn0VswVavalISBYzrl1lwQWeauKinTpbUxmg8hV1slpEQDYadDjy1FQwb
peCD4FRL+aAAUT+5w9YtJ95io1+mDokMGkx1mU2za8dSrMiQZRti/4wRxg/E
UcZN88Xz9UPpSKc6lBmDGiTYNvPjQ2/RGAWBhkdlQHpm3pGZ2npm3ok+9mY8
Kpy1bkmcBasDek13IzcuFEe0iWZnYB/qA5Fi4dDTy80ll0WzC/IcdLeK81ro
50q36G+lQGvD4oIc8CnswtYJ4NNYFpT/ndqbqnEmLkRnospbaoPlEVyAWb9w
2+ae9eKixZAxVgvUMVOy7IBMcvDpEYsxsAS2wBrYs70EvY7PnlFs39pRRY90
exUWj9ZNoB3Vu1PsQ14e+KxkHIfx/0b1TdWUk0iA8daokx5SW42tjEn1NJsk
y/QlvIZyGGM4A2EXU55hh9E1Uc6AoCE6gOAxbUuO0TJak6XdNkneYt1TktRq
VXMkFoaXyXNsRSrInPHxkQ8vdBM4tP+bVbWqlo2ql+BpRtHBua+adacbMisU
ZtaCqoiSeTy5k5FwMiULfLpfjrqz9txYuGLlj8zEfD4NqRcdTc8HdkjLu6w3
pbiom0422RrMpFenwGqwHKxvnhH/ZSKP/3+ynlXVok3mPE0uCxDYOc7DqI+6
Rtced+VmNQNLTMmck3QSJhfmlgk12MtVVJhMXCnah8nEzdu3U9Yow3vFUUZN
c8VzDN/SwdaNKe2TspCL/uLR/U8Wj5axQlJQVw5/33J8mTaVIwBEGqLNzB/d
Yy+JLENovljjbsgMx54WzWTMwy1ZYGQhcszfoLNXnNfYIEe6xXA3+a/RJEkR
JBtp4vSPj2+IJvE4/1elvHIGsFgD5q82RDjdJnO6Q/He58xwLxYRdRgvGDHm
0x0W5zZv6A38C/CGULCabAjXlB4zuq3cD4TK/MCn3o2lOzQ3ZSQua9afPt8R
SjV4LprM4/yfVPI43quYzWLwvZxyaB6ThcaY1wFkCFP5BI7DFyqLvmWDz/RZ
dIu9AHokMF985ZkxX6zVNmDSyS+9G8i7vniNMmvIkNFr9BmoLpBFQAjkp/D4
/nYhjytfqB7Z0hFxJEk+O2wlWYrsEADTJpE9VRKlQqlZnqlvsyTLA8toGfPp
ZokVs7IhG2QssGLGGZTBjWnpDbx1i4qfmXeTZc9zmOz5kCx7jjBriuB17oeg
67DWiPCmsWiWPdWlw4ZUxcUJ4WZ9ZVZ0LH2SpQ22bGMVSYxhCe0xeICchQ9A
RazR1VVOH6Cfs13I5XsNqoE4kDFGLOD6GAA7sWCuOHuhgYckcUglcdDgZtJg
9V50vn2viOeLx7vdcykRyumlgj8thq8PZTkWfL3sPbKbtgmvEjkw003IpFRY
yshr6TwCHXqYC2aVDTt/pm9+9y5971AjIeeq/pTi3OYG4ser6z2VHO/i+cN1
QdinNaNyfVf/eSrolDUzxDBDAB6bGL/NX9VJIZ+QWS9V5RLWkKmu0rLQlgpn
MVPAQWkgszd0eOliSdY0w6vFUbpNMosnVUr9urXhpq93DuEM1CYhAdueXTuC
gHGmEFBdAIrpYu+o5SulNmoKFkdeRuHoqTJ8vcQi3PotvYWKKn/PctpA5tMo
pn2dlKxzhvOLCuoZpEmtKp2hK9OMqOCH1fMbx2/57l366tK2SX2+f3yONH9W
KSCt6d7W97SxZUHyuNoUZd6QAnv3BYCIdhiHyAKpENEuPEpHL7L8BnwXx9N4
wIhW49nJNFmehlRkzjGSaQTtW7lCmjXO8FZxuFbrrKLhpqm0o9I4CmewNEuI
fIXpjNArdtNbpMd/5qsApYFFIWCINMIv/2EVc8bbQI9k3gbeG2UW7o7qW2zJ
FpAwn86zVBZCum4X7WLiFW7ip9ujR/SlXf3MDFfjVUV51SomSzb+4Ufug6tT
djwgsXrh44xm+Iivb+4Lm+GzS0GIAsGHNy0nyvi9VEGNZO51pt+pRB5CtGSh
G6gzijxLIER7GhCi5SmA0AARlMPatfRjmFFw4UvtLjlFfSpmkJ3xQnp2tAKR
tFZOelKQ9+5593z2LECnbL6yVrMaosGYRrh7Ll9h5Ygp3r9rRa0Ya+/OgoPu
ailw2JE1A1m8TB87NMlOPVLJsijL1DRBvKbmMzrWEeENzhgV/ToIrh4DYmpS
qWSBkFB6rNwFbn2bs6orvRzQntHkp306MwoyXeTWLfQRk1dwwGH8cPl+2s98
Oq0IHKJsAKefQzk8cChRyzIeyuxb8XnhE61eeUUdDDNouzGqWhokKYZdORTi
uSvac+OI7olRbxaVAg5nyrzIpqKECbUp3dyE0nqbyiKbgbysQTE44NCPhvNg
Vru5lgYOuTkDHDuPatDu5UsK79A8N3l3lR2F6UbVvouX1P5E+xt3ou+hOAM+
9M1F278v3jm2DjX+xaWAgxIwi4dCa/RmxAwsRbrOiRmiONaGabhPpamo5PBO
w7kEPsQ5gA+1WyF8KK1Yb91KGd2MP+Q/0BlYUNzMIIW2Vz5Evkv0qCgXZ839
EHyVb88sVQkfEykEVujLl6PY1xKxY+HTxMx0KU9ytATI83/RX5iYAZAYhROx
M4IGbd7IorJObQoStlU7VJikVzu+eGadeHKsPpCimDAGhPO647wBozSwKMtU
AolPbxMGDZAeVmOJyNtomfnr8Pq52ES1k2AcyOGfAmkoC9Zpk50dZXQwjsq5
oz+qoKiuQbx0Ww0vujjRlPLScFa3xM9vIIaHgz13Mu5ueSlvrH2bTg+QpA+u
RJl9KtIHUTOyEtmgWmQWHEycs1JwIfJW7EH2u5bv6T0P4+o9tIeBkTVDlcpK
1PBti7AwetGlfdE3y5quBXG6DROKx9dOox2mU+itB76HXm96edMFeo7yvWhl
KSrjnY30rnV60sSm8kj5ce+upUVVE/qD9iBSTegTIwqsymtiEpfHAGVVBgP2
d6aqEi+Ix7pduyi9jUlc1g3DvwsKqxl8ldrUu0en+9amH7FMupCbkXzXx2nh
fW/HebWz0xNXCYHX4IFHaVUSqGbOWk9NofW8e8zciyEVa3XUMWaGoBkjxCIH
1UEbjwiCNiDCDAuyvzdR1deK6Nk0KXZ17QsFn7WbJxcNqgHyr6LHTmokZcZh
hse8eQC/tPW5z3Gmbr5aiIU+jwWE3S1hxlo6rLaEuTTq5xD0zaLt9IcokfHz
rP6rr9hH+553oA5M4XeX6qAOKT9m+hjw2d8Zy0cwEdbeFg3gk0HptgpWRXFG
DaMklo1f0dG2LSmZWQcDN7rvodduOP6eCZ9eWgghNxBCriPJLxI/Mukpy1Ea
UKpZJcYQ4y4yAZp0zzORmYNloyUMPqHxBBoL6W7H4oaYmQ8H+QYxgn95yMji
UlE+uxnVu6Fyglfg1WraDgrYoEViZt82LKx4eXnb5Cu3jlqYFuT8EK1ViQjj
7vKdOlHmHGNKmFONYmbVlWsCWDJR5AU2cFxAGoIebZkNdna0WwPnQaeRMSBz
UDUAwJoj7ENEfqsHh9HnXg24zqe2+Pug2n3EUcH8ZVGnhmFfFBZ0UbSeRYQt
fBoyxX3Bf+BMdFKPzlKbCjZyKw/VmCE6TRoiMSNTVcoJwVkMdGFBjy2gBUgq
kMd0f0gPeVsgDyTZNQ2GiHY/tWhc9Hldg0uSlD5VpcfUFiEPjfHvNPemdAfT
ejAqzM/xvHti0/sL1kzNVLSBRYPttBpVy/2Ruj302mGggIC4Xlbqd8Rs8W8a
DaaHou6M2Eab1aOboiEQMKomSkRkWaWcUH0LK3yInbA+8F5f6gtLBcnC4iB2
kYAR5ued582j5C5VPmdcNZ6Vm2dskijdXC03un+9rKvjezgl7rDcSA/sOydF
v8f4z7EHHnZIojey8P+n20/+wW8/Wdb5uDEaw1qS4iKmRiYzLgjLPZJOLpfe
rjCAgkVmDKm+mNUn/xIRHn31qpzrPBejGlJD0AOr2kSbWVrhOzQKMQuFaT5w
WbOIithZdcMJFy5QQv1q+Z/sG7vmRum1/l5kVucbOdR8l3uo3dNQp9E76c76
4Bf7J4R8OTwcY0Pjvry4y136t2vFNVRt9ljWJUd+fX0fSQHTQOdUHct/wj85
mmUUra1CcXNrUdyc2hQ9sz6jHZzFhe+uxuolyAADywSQrLBqdnxGz07PoBlQ
Cud5NK/tK3rFS3CtuDjyHjGCYobWeZ/tazAxr8DY+IV0a4evtLfuyOIPPjzb
IOl3fJ0Wf/NYN7hl+vcoS448vzzYqbC7IpUx2MnSsOLa17fcmmQmMsvzG2Um
xULVYDE2SB12ia/WGst4iDiz2hQuaq5sy9mthERaSCdftKf2ve7TfaExZz21
FgZnprqTO6Y0IGIItDHPzJKJKUEvO3CAUutXyorc3+hATqx+s+jiAY0TaFe1
o3RjITJknnt4jXdfOwipfN9vEc+QzsvJ9Yt7BGoKt0GUn8eSx1Q4RYmBGbvQ
q4xFkoWBO6BqINWAL7cj6WOFJhQq6sS0mQ9yIb7AW3Alpz2raTWoU6a3YIN0
LbQmUARD3O8/iAYNu0E34BO53hbs3JOuXejj5CahuQF6I3IKKxs/ldp3/kL7
6vel6HvcqKthUX5u6BX7ad/d1w5GXaFOdloC+LuFp9gvbluoKdy2UH6eirlT
Pnzg5k51snOnVZUG9+9F0TPq073efYWKBpw4KiE4KHc8jE21NDEZjuwtpTJV
3ruSVjb+RJ/4FB+lDKSWqU0qpUafqLc9K8mwQXjxmNYJ5FDtIN1cqk9FORzI
2kgto85tHuVx96Tl7scX9zb6kRQrH3CQE+s3txfUEW4vqOp8buU7CBXkvXs+
vAtikQfk2jOOVtcuSB5Zi772qSv3ecyGISLHlef2JnIbhKh2emzSrIVQfJ4z
OWOBBQoIKA2hUFCXha7vvXv0qWljydvlrQNzg/UGZhdVNXlMjl0j6UCjXvT1
PocEVg5C+WDLJ35+dpvnMF9nseKpVU7h3ORf7f5HZSx4Zm2dPownSPZ3VOgt
PkyAUj5IGzNKGlJBwffxXZQne7p48bkTZ8PkPhClHhjzng/ogYitGukpJwc4
2jCKorDeCxkQqm0oD7HLuHRN09LIZfZsim9fPf6be80NWRmGtV+JJ3dMJIc/
9tCt1bpULF/ajKAUq9Lu3Ni7CNWgbTz9fnEzOz3lbfsYBqk4nz3dmA8fQMLl
7+6e48OH7YUBVidpzZzI9wtGysJua2E+JQwcueWjmN9BSrXoCB0pRS226q6j
nJsgd0HFym4TbcI4CbtyWEfGeEqoXa345ZZ2N3Kf6fXKKKpZ+RHt7faBDjXr
RnGPODMDY4zgN+30qr4r3gV4MosbtwsjSGPeaQA3m2fex4QuP4Zs61DGEmNZ
lF+RsmYayd3bOtEuRJLAjZttwCIt9JSQS6lc0cU2yFTmLKjd8Iu9uVV+unW/
fiXfoUPR8YlO9qqyNDvHoNpD8QKzJHKouovurNOh4nxePCDdvn4HliNvQXnE
XhjpM75bGOnzvrtchzRNdIYpwHILULHcqVxby/bYNFEGHe5DPghywLVsAzJQ
OcXM2hNdNNBlsRil1Kqc/8Kx/bns9wZdk4saVH9E+7u9p8MtO9O3p5wOa6Am
gdrEjqdXDiIg2qGAJcNZ2X93fZ0W8VaZLwolJHVpI92mZkWfzBqzZWZRYz5K
YQxj3dKGEVWXbo/okYjt3eubplEaFudDi5GZBZuRGUIUeJNS+Q3Hwz9fv6Zn
HTvSm4ltPiBFyM43qHxPsrJfCu2qvI3uWTI5J8dDeGGs9ET1CPkzm6pz9K8I
zPJPLuneW+afcQSYoagZn7ewAcWZ16JvM2rSE1n6yU90yHh4/1Av1n5xvo6H
EkN+r/+kP7HyfYoHeShoITs6pI2RapRokfsAW2yIgO4UE9Sy1KpYVq0JPnXn
+vWUXL9K9pvDbZx/RBq1iytuUe8xHez6mo7+2Y4SXvI8Rb0MPhVtVWR6DkKe
GvNWG2fwVpt3dtelZ0dLsoZUZJwdN7XHmJ4tom1UUxQP1WRXqqojqlRWOQXV
ZDcx00YLHDsRvGpLbWGw0TZFi5gpT7HXMlJVnpp74gRFNWpITxZ2eYnyVE6h
gYmv1HIY2LyVgqzRK+e4jLwCjhFFHiQ5u4WmyERoZnNdlvbgzWzFwrzsu+Rm
fjXj6EymBQyOp083YbI23slzISS3HFZPucrJ10WU7S47pKuDZBcToFjT+LUu
1UUBAo4LC3swzccuJlU5rJ3SsXJ0+InmTpmxFVtFijs2e0yHuz6n4x3aUOIb
9RL/hRDT33f/UkxL71FAW2iB81yWdEeEAAuMsD2A3JhR2oLEDnUkIWo9KX2q
Cd0X9WKSVGG5i0VbW1mFMTq8fiftRGVapVlmZ9u1EeOMv0gXMQeC30BJMC+J
Cp+IXSNpUGZJbHsFy9xv+k2uS7eNSiGHyhsp2B59CYEPWhh2/xIKMUveB3ox
lspJQdBVmWh8gwIncuN0Wmya8m5qH0qbbqpswFBzZZHXUrZDqBSjbcZKvhZv
sJVFgF1jZqAqfkGOj3AQa23ReMArViKis83u1qNXXnEtzavdwid0oksLSua2
XtD4I+9HGtYmIpxBv3qfAiF4K/7kmv2MS7ePrmVia4G9+563qGFZ9s7bfYRX
c5ab93tRL6EUAHMUN5mdGVVJAbskV6NUU561nMoxCUZ8kU1AWCA0TCeNXWip
UScmhq6MGUMZfYxfYbaCW5Mg+T6o1kZxkIM6Sfmd0zTQVIMhgEFAxLy/lMn/
7Llp1PPLdlMR5eMob/wuSc+Nlxk/I0rvYyIvod4VmYu3qm/rFB8aL+LoICzC
H1lEi2DOEbYKlrmVKRV1yiNJqRIymiUYtxEuoDsxl+YyDUj8giWPHrrwsiCT
0iqZSr1tR4RmXDGeLc7uW1F8TH0xM5rg/+eku9Jt5hyJYApO3D+zDR4A+dfB
UiQKubZrNtq5vH/gpeVs+skllGpeid6Zt2ISyde9/5SpcgvcJOB0vzMidgWp
DmJK8FMoLsi/oTtAksVFE9JSSkHUyiNRWcKkSs3KuHIpKsNdI4UQq5N8/zmE
WfBUjIVTFWpxu4TBNSNq/lq3Lt2ePSD2k1vjbcnfqrSLFjdu+Jqc/sxL71Ej
5mObfqukTk6oW6opemhwATHKIaG+ajPjbrL/lr6/54UzhB5LpMbEXzqZye2b
SG9XGEhpZqaMsEayxuvHNiNmxr6NovHCJPu+FbQCISTSLG7VKTYDQ0Kqyomr
Uut/cownL389TPaCbELygpSor6DiyZ2nLSRvqdiPFXQT9IWDzczoXbdW2XdO
9D+f+bjioB9iI1NXsp/1mfY1QHTrmXZ+9oc724a6JXktgmojOrB9dv0oljrB
OIiOCInN+EkQe2jMu5C7N5wW8ZkK/CRvGVLyFtSmb/1rMe13tIUEBpJZO8Au
xtQEuEKRxwwkv2MI+vOzXMkVMRNPhp3raT2qccJdThAfoNwvPA8WRjlRyNMl
XVT1lEnI71VXioTssmDTyikpTIacVK2q5MLeCY9ktmJmRr5xdV/p38N96fTQ
T3Sg8QD6fFveA5D9CmYAq8SeXrWfDjcDd3NUYDTYHqzhSFm4wTtZ/CG6uk6e
I/MLxxhRrHkdypmuLwszGEdbNEvTvVZCnJgjXSkvi6O3B9AAFjMNUBOO4dRM
mokoUqCmML1CAoLokGlE2Dyx8HMsN8HxfyRv7MrTShiSWLN7NwptdGH9hC9f
3OpbJ37/o12UuHHjY+S2IJkcqsCDapO4QNgN4DLkS7J4s/vKt1yGfExoZpmq
HJYpFp5c1DX4usOchj+S+XKVLiIUjBIU0ULNTwWLWtO36bWQSH55XX/0M4+O
e1GyFbErUzSUQVf7hcO6qqhf6hi7kFJvsJ8fhbVoQYGj+mTeOdXfI+2p6eBM
cUXTw7Rz8Ts63MqXzg5tSOlRnLXl41DM3kB2nlzdMWNy5NOb0C/RcQVV5O2e
zCLm5MkidUQycrsniFeQAsTRrFoFxfP1s+OHNXG/NvWKS+Rs+9BOnUjEBv96
jSIj6cawYRTVtGGxu/PUB5lXK85Mzzepfk06afR58vwrhvbWwWgVW9bRAoMu
3j6+Lv30yr7oEzf4kfINouwsBFCHtxX4BF3o9+3DU95W4Bhnm1Hj9KYVIwJo
a78wyfxWP5yNLCyKHPd/q1kTdTZis1B9bFa4e80aVHfJdcesjzFudbZ8T6jR
/pOkSbPd5LkmkRz/cKDbaw2oMJsvdmIHJayQfHnZdjJcg0K51LmUgKG74Hdz
/7KXl7ZNPv7Aw46vVMGwoRWCwk4m7agYTTb1JDRTLexti7/nvjzxHENUqOCy
1QB9JKWzXVzoe40adHH++LS7buankp5XHSpju8keclj9mE50hZ1sRUnv5CuW
uQA91W2VueUL35Mww8Jq5QkhsMzIIhrdz6/YTQ255jBbxgNnBB4cvEhYMP6f
TfYGIEc8ra1+MnnOxmBXM1fUA2Lq1EF3hdSYrfrU5QVG/LEtVP2ujx/Tky5d
6KlZ56JTZ2behUCkFlSqcVE6ZfwJujQ3nnZXn0GvT2NOjJ+krZ+V8h2zYsiy
0CY9Xdrmnb9zYoOCf+YSjGByNftBO4xA4QTaUS2JJlSN31199wLPY1lwCSJu
izk5mOvYtFrhMRYsOkZCdKrHx5P71KkMKw4dWRL27VTNzXFJtTp8kDRrYU0X
tsaRU61j5LPAhPL5jUIwgoJQApzY8MrvFNOGcxOSnxm9hZIiJJYJ9gyhEywR
bC0koJBKIJhHC3Vff1s+9OL28a/LxsdE+FQM0hHl82smYFkx+g/hd940Lzn4
tJlz/IvqQ9MlJpXtaffGO+TW/yUda8fUqrjtgSDsmESB2cQEmHspEULKNzHq
2Z2iE4u68N6Iq57zvhzjFTlkp29DgVZYjv6ueGG71DmVrpaNg7Gq8sSKffso
slEj8hk/vMDFa/atjGvGM1MLK9U4R9Mm7SafNUnkWHU5PdmPlFXAB2y6CD6s
eXPbndFZDxaH/7Rxrc03rlWtVuJkmyEXqgYI9ZPPrO7/9MqO6fBB6iX81gyj
wy260Lcn9uS7MZ/663xa1di3HOE1UlXIwODtbvc1rxNcq22KSa7T8b20ZWsL
uuqI5oYnXZqE6VGOvyhoPLy2a1bI9V2zYbk8Odr8Zq9aT1WvWtW6Js7GgjJw
5HBDWPs9KTL0Vkn4zcb9vDQ9JJfuz8i5Iz6H07zmVx6M2ft62p9v9qxeTTmV
9PO32Noy28+xYyKGZRU7im01bBIf/DExTWJaeSs5WV8ir3ERdLBpP/oSwEm/
JsQF8g3xQdUd4iQ6x5Hov3kaYNlroLR5C4FPGBqER1kQ9uAyYyHUS7wKusb5
tF1nN91ac46O/f1U0rlLxk7jncd95vtkbTHc57xuXjrbvzeY8sjji3RrBRsm
z+YngbkRzRivuhZb6ZY1AqzN9GA7irqclKAWjyACg7wQWC+eBP/Jo/g4spS5
DEqWIizkM2L+4oh4ZtNLF2bxgrRa9dijtXfw/S6Jhdqefq8D2D2N2PEtTXQh
js+fT6mVKpHPluEvpdF96sui1wfmvUQa2QkjG70VH2znQ57D61PGF475sNnY
pQnMl5e7LvCY/2IvWUfhEXhUeq9pwcoR/eKCvCcyuzs56okfpgAqFWT/4JWC
85bD6aMPdAFCHn6x+RZ2NyD1/C06jvJNj9ixBAPUc44uXMhQwGnjqvzdvmvu
ZZ6ouDY/c+Af0mMVFuGXsf4d5+ZKF+iNoohr7JpsDewmispNgCxPg2++xBPg
v+wPq1oiJSAEYsCxX17ePRxydle263KzC3ec1/OKwBECg4eIrhZ/8fLDhhWa
LCHuHe1bsu6CHWE1rB0byxACbnD3xjWF9n4b76cdM90U8bXpgDSpaaW7ZGv+
MH3ssKKoOs0DpIv6YcErbxBQ3YKDQwl0Qfj9y4xMXOZJ8p89Aq7s3a3lS4pg
lronRL1BQ3BYzNsQXknY03RRuj1F12b+FX7+rTSgQn/5EjiZFXy1q63nw17d
xRxBKmJw5/DixQxBHDdaFG+9bf0w5XBl6w+RzYZnSI1Nd9DGDfPoiXMG7TC+
QWeH8ZOSGyh4Bx+2tU2N/Yj1HCiMY+7iKk+T/+p5bOXuja3LU4VXGbiz7+7r
BvWQUUjuR9hz9apSThIC8C20w/ZEzFxbsZ26FWzglyf1J2kVF0petW1Lf50/
T+oqAtt5bIQFih1asoTRJcf1FuL193aGxh+qbhce1nxcprSiyQFatmwShXoi
mnpMJ7uCEyh/OxXdtMArs/sAV1VH7opaCUQKO24wInWNJV/ZK7fkGEM3Zn94
eC3OY/2QgyHndkI6J0Y9v8U4CU5m4PP9aN5gXcrL+xFj1OrmpSGuGSHGw/SK
cosQEKoKL+Yw/5pic4yDS5eymK6zkKy8v/dlzME6Dh9eNZsk85xVTtHMmcPp
hQ+yBXjPsRR+mQnnZb9G+A6/hQiXY1+HlK/hmH1Hkxf9f29BOMmt8YKPmffh
wVUk6K3Sv0XhFezjcOlJMQ+SaWyV5vQh3IpsbHxo+PCXL9vNsQm0CkTQqAoX
dr2OEXDZv3w5i8taC+mikCNvIg832vvhcbMZyeIq1S7S+PED6dktkOs77amx
gJ4fK2l/6ChXZ5pkJH21f3r1EGZDsHL0hgAXRf7I/oIwaJPvsqR7xHmrcQvD
gi4y/OE2zntPh1oepc0L7WjTpmSqUuXvnHPeKQ6VHWadd81RGfvNYBGSmU05
Qg7r1tKsx67h7462OvwxqMnc+OLqdfxo8OD+9OgOkmP0c+DVkcpxa6wVZikJ
M/9Rb1PdVpuDOQhTfVUixBsfTFjluSztPinqqZ/cQ3MILabQw1fp/Gh8GkY3
bryjVq22PrC+F7zBLITf7FuYmfAIYaerfStWMAghTZ8S6vHp+fEOxyNvNVr8
tbBukxDq0WMQ3fPfQvdt02iX6T7yW1GZclNY2ZDXPXSLiwqg9VgFB9ViaH1T
iI2eEBveaNy+6bQ44czagUKjwe2iZEd3NyHEOkA3l2ED6Qia33S9ZKcDliAc
tlycEWxn5le4TmvfS/N26Yg92SkCVZmlMW9PlHEd+/Lyl4cu3V2+eNdf8TGv
SZtX1LbtSPK5Dlp+oz01z9LlyYhOuG1sXYPcbDCifvbuyc3tU2I+MEVAvzJx
5M0E9gw7F3Bi4/Zn147wZoLTLOQfCCVt6R4T6e8i73VJVLXq/IjjQWm7THdx
0VXxOo09m49tZ6MrdqagkqqMs3dQEDmtWsXGG7LX4a99YgPc+rnFXKhj8S67
VZeP1KTJ33T+3AR6fwEF0FvkPpDpqLMIMmWXa7cOr8YeEx73TloqlF3KRhRC
DRMyNPZNMMrPqH+9ljmmEmYyu/agp4vyA1ra8GO2ki3WXy/WXcPtp6guWa/m
ONvXJVHAOUVPMKRMDpviPFX5a4axMUOJAe9vx984O+wshqVeZrbr85Xq1p1L
J070o6gAeIsXdLw9lmlz279BPbGcBXZm3Wt/N3wWVnX8S9lQbd7ooLyT47K0
B4TFNei0tSwV9hAJqIB3KCxgsR6oMOTLzQjsqyzS5JaVTBR5yfnK6yq7d41O
WVUGPiFlxcUA+ehGL/vPqNknuFTb/CS1y1CZVP2xkvbu7UBxzxHIIy+dRO88
4Ti4raIHxIU/+Xh+y5hLt4+txSqYu0KG6wsZjj+QB5MX0Z4bR767YDPR+YH7
diW3bwifC997kq7PySU7PYym4RvHcAsX5Qjp6d7Onhj5YjYwUDa+LOcrq+Lw
LDdXScriyueFeSauJ7FWs30V1naKzLhXxYOKmtP3cMQEKOwspacHkWpxiKNm
e+HO8fWR5yxHD4p7/yiwXMRHfX0V5O13eNVdnz0Lwr22jrMPvXpY7v3ZDcl0
MbnBG2M8/+lNTJvhhXZaNoh5MgMrjh5z/YpYpVEeUKaIM6rAM5pLu4zA6dT+
lV5Jb1UYpJxb4v1HryaWDSj+M9JU5JiwM/BGOiVxEMQbYo4+KDNIG1Qu9tB1
7Ft35c6RtemnVvX1vVmi6xz2RmgToKaCwjNI35g+fcqIMW7j4T/F4/PLBhN8
rIc/V2Zj56dPuWfDaauS8rZvX0lCd3W6yNuKH3ZGu3K+YVN3WTapxvyrRZ97
NwjwHHBykzhwF1zvYfJdjLILtw0POjswbD5+h1ai7v2gXDyF6px+emWf04Gn
rNzvuVgy6sySTxeb1KAQuYEcd+DJUVPIwyOeqlffJra0jrBt6hG9qZ4nnyAX
btDaE9GjaQrCWJGGCuPWpUzOVynLuMX3qP5FdvWtyqKPOxZ+618/N0avebGd
xlbm+U3xY1vESPbUu0AXJjSitEh+jysEHfBn8GtoG4YIqaL4hEiu08Er/rMr
26edDXDZ/P6C9cQz91y3MBLAORKQ/gRdm4vHUNmQlRUixneSVn/6ew5y41mY
bWPgmN7cJJHTgtJK3+XfGD1GFY5tXpByJXrMavFh9eVCVSj01JoRItnYE8Hr
ncyx43I/NO7wRbqvPqqu3LZRqDysfBtwFikBJvARz4geKpt5jgQwATAYC8Pu
X85xWdbDuDA32yXIzVYgHOqGVJiFlAcr8EVqzBMw1CPS53eT2lTYyi2/ZsgQ
saWp3N4LH8oiJ0P7MgXjjxHe3qWEwmq7jSRjrrGq2putJLpvg4SPk3tJQ/r1
hM5kJQ1vWFmSmnaWLk1G0fsdHWk1mCL9mCyTExAsyMcaZIwPo3L5uGwB4Wpo
Vs9vOEMoMl1X9ArwcVp4SuYF5Z6BpY6BB12e8pEONmEmUeFN6L7ds7CO0yV2
aluEUPucG+4+xvuKmCWMhpD/IIgqRWpVthVZeuig0HxWgsx8nNjkFTOCpKI8
J47vWyuCmjbdEbPhiEfw1GMvpJYd0HtHFHOZzo/FLK08t+SeMFA1LysNO5gh
OcT4+tOf0ot3KOFeVuNQ8QPtNr3wc2EcCksvU0QOWCvMyBGxdQA9ys1NSq3a
oviYBgN1wRHtVV6xE9eo9JKurlRWqtakTAHTVml5KotSkxZXlZviDHtjh3tu
fd2k9yr05dcS5r7W6+Yr2TliLe128KZ5I1JobOVo2lsPwsXtksT0CVDjg8bt
eXzBidlhMfSn1OId0ANvx7nfPNYPRr769eyGYSiacdQyBLWqUXYC+IT9Ehl5
ln2zk9avj4up1T3Qv89O7MCe9LjqSHeXqYHPtnfkZUI911Jvz/c2NVLu9+pF
KhPBemWSS1dOLhXmatT1a0LZM6V1IgemLKykp/gc51zL9kfOiOr0wpx5HGj0
59nm96R2fYPoVG/kJagIYcUEIwWs2HVJ+vLuxeXtU0AaFAGe/4yQTJd3wufn
t59c2TEDqhrlaTlq9ZvbHojeoaqsPBvwMRzsWDbZGZymq0zmiA1NBtKtW1+o
fn13mjp1Y5H97u97auxhpUIn2aGKo9/MwYmqSFGW5lYuP/iRP76KdRY6uJQq
WfcePUJSNEnzIguJUd42XXvpbcX4qPCFVteX4nadrtGeUUfTF254FdVxfJB0
Qe9CstWKJafaCFjVgLVIk9FtQWCAOSa+mFY5PzvD+b77dlSKUY5g6kgvyqY8
V6o9FXjKWqbgrhhId7/rsiVJ9ipXeG4XSbAXoSr6UvwDHR1o7dpwat48/Evz
ocwOwWzKoP1wX3cvZSLANTDbmXMijGXwqogqh02vbOIzbkbRRenKia/EX9xn
1V6nUmb2huWwVxJbtTJilQH1eZeU8WFs11CpBbPXsjN5zztPF/9CMAdm2FPA
Rj7CFha6cATWBNuhIpQ9GHJuF/MgrFfK/ptjAKoPMR4bhyGBzz+5pFvjH4mx
aIExNoTrBw2iKH+EzEfoxiLOf+thG5B7ZN03M6xiNyawEiATcKafa4tPYcWh
2ztxIYl6wUbtPcnNq6S8a9WKlKP9JYcOKZgX+QP4BCVQVceUlMAQ11GlY6oU
44eJkSR3uh5vuU0z7Sru+vS88STpwQoKbq/AU3tmhnSkycn4OZZH/BddbyMN
e/uSLNuh6wGSLKJnR5hpDc4R8Y/dUCrWjYh5cx/jI/BpKJe8+ZliMCZpcmQo
03mJOr9p5M2b+5cFeu+ej1EJmCSONaPpw1WMSDSnlHC+tcGk0nTzZl6qbm3e
IX4828Q6J0B/RMTBpgdZlLXxwK3jVvMTlUmDRqZIRZCh5DOVqG9UlhYwXFG6
hdv06RTWsoUgZq0Cxdh5bv0r8TZ1lYqR921wo0+JC8xkymEG5chOGtagieRj
pBUF2tiQvdUDmt7zB40y+kAHm2GYjbFV6ozd0hDaLdgsjk7CAiR05Giwhz3G
t7AyCzr0lmXS720ris5qRNOmTfEdmvI1v337huOqztdQIQ6aJXZy6btArw9e
VuN/yDwUhEoeZrPb1hkgn0ETCqNYvDzidQ+tXh0R03RAjH+d+Z2lT0M9kyat
lFpXsGZNpgFjMpVa+PGtq6eomn9Y5eREZYgGe1iPP4wkFgNEylcJb9FcwPbq
uJnrhllJj/Z0KxWmZ+00tPv+qMY45VA03dNkcaG0v7YnTZq0LObANbfg6Se9
pbtGoG2IJgBKs6iUgg4MDbhd35XtJFRsdPTrQGzXAzXDdBXqt4zveccx/3cn
EcB/vKuWkJBwp3///mWdXjbvmbkqrFG97n94df7Jxd1k8c37rS98nPlEQr8k
Lp5LL04gDYfF5tmP6KQlvX+PGt93qlHjDbVpszbcwUccoD5IqGXPnDs6+7sO
8mLNQ2WMFdPfovNCsXg6tHPK5wYNSjE1rlYtrOUudTxPV5eSq1YRMFyd1oj2
fNra2IP7xOh+5o6KOyU2qvOOnPihjcJTl8j1Pi9pcN2hEl+/rXTPGoHAflq3
/BYtGfiD7I0e0clu1+jcKKa2xsYs6goxC9cMVbbO6B0Mjn3/EEEIZqHwVAt+
9bboPScI/37egrPkhllZWUWamgwzVZ2nivNcI2P8lxcBKEOeD3DeIHMd01F8
lg9psWyvygelSCORZD+lE52RSvKREmoOqLuh4vmDjIxCYzqNy7fT2QYCxzyq
89ebo22Oqgq8uRZ2yq7Kjssv7E8QBDEaEIV5V5xT5p1wVmCt7PDoh1eTbpwa
dpGPx1RdGfGaNLCCOcd+g+LXGh1ypYP13Wj69NUxey6eCZ7mfF3qMBLjf6gc
3qdTvRD3QKfRcmGzcSMm+iSlPTlknxG5oM+AXbyHxbwNRglDWL2XM/RXH3nF
m26Z1DMrr37+XHJF5rLmSHPjSz9XVE7QQu+RGPmakTZ2/ykNoA6GIsM+TDcW
qzNBVyU0nraRpeVGsrfPjKnY+qt/3QVXpaNHV6WkpItx41cqF3uY9yo4EO9Q
3YnPWcHgB8493QUKWZtRyG2qI1RlJY0PrT7SSbxqXU7u0Cp8kpb8+a8uQVKr
PnDOkMFttMXyOG2e/5aOtM6gncbhdKj5ZfIai1lXedGATViNhFaa76ihV4vk
Aqt88PinmR8f+eBsYR8ijGfrrz7hq/+dO3fQ8h917RrT/1Z8wpcKtjLzQdxk
Br9bhQya3RFeVmOZNhG7FVetv+ndOaSLq+nRHn6HKhhnGGbUSg0oOxva+YLa
t88gY+NoqlfvSNSiPXl2utuZ2O1Vk4nHfBb4KGdu4lvqQ+HHlTmshgOiWqqY
V3xHY7D0UIVlQiF54dZ+X2hqpyFMFC87XnRJ8+/P0gYNUSF0odOzD6cv3vwk
qsuUldK9e7dQkK07XZnqStdmIfwNIZceV+j8GOzbxm1pr2xczRIiXz66tnMm
5qxBIRQpcPwTz69/vdExZ1cbRkVFuc6axXTXy97hQVH1uC4H5OZgiOeuWI/1
Q2BPWcZ2daRbFqgrQEyn02s3NKyxD+gdsu//gLb2vE07BmAaXYfy851p3rzL
NHYsivl5wbqDIqRNm+2mNWtC0nqMYMyrjJJeFyde3JW/zmrNo92PJLfVFJgX
+7D2xMCPfeYrq+xTz857fSVDh3tFTdzEjIbIvpO8U2v9UtKuQxxNqfU2e0X3
8M9LhjvTuXk3yIHphsHzo8Y6gcIuIElEqxiB4B060x/Wg1cxJcOpbDxR513/
2v904YnFXTD2sP/heUeh4ZRz7Fd2m0CMPOTmTaYNXjs2NrZAW5uxg+VcS5F1
XFI+KTLUH8UdZhaSVTCml4jmHaIe4Aw36E/ug7CXDT/Qw0dDvFtUg18UNcJ4
wHraufMZdez4Nb5u10J/rZFSaQW1XNLTQzknLc20EVOIxZq6S6bzMOyXTiYm
mVEVO0jtKjBbPee/0+ngLxk0JJam1n5KGzoH/7Aa9il2Qb+b0p3M1lu8FcQd
V9K+vQfJdykGpLB/DAbGb9OZARj2gI03LG0EhaEqNiJDewK7YE6KfOqHQEBo
BCN5Fv3qhha9g4KCMBiLlAXzX4yVVXF+ORyCKZQp/Czm+T3cpsF8kML/YV4d
a9hTaVclR7pt0ZqS3oIkLLmCbFh/Vx/+DoeUlXAH+W1oQJ8/O5KFxfb4zYcu
+491nij1umBPGzcGkVXv0+Q2w/PHiQVvYlcOvyFllUTIBVherM1D+x2grKAn
+zB2gxFumDVEGRh4KDOQ1FMdSDb4kRKHx60nu63ph7H1TsnRYfJAMprljaqc
nw3lNHA6EhEoKP7YIiAzGYHtGVFix6hCFtkbon17kS6Mr0K5yZyD4iWc6ayz
Pq0af0yVFVNFEJyLhm0TSv2IliWapdG0rx7G51GCQzFwFr1yrUcZ0bg2uwF6
xbIsCkRh/OcXAahrh1x3mI0GinI4pkAXhiysI9FwC3S1OhHkvo3XA3Yvw0bK
ogRezaMXzgiVECW+oaNtkAkjasRgAYq02H6X35hQgUyyV3hkUHEP+a9GlW0k
RVyfQy9PosKGayJWKSZbjSja39CbPEfAKZwg77kwuIBFXYV4sPysqEqL0UjF
K9ZtY1UDEnh+zYVQk7mHZ6kUF5ZAmm1T4iIwAoW5WPmyXXaDHV1ghzXSHSj+
+V/0/rwfeQzGdA3kBwtUishWUxajy8yXSE9CNmqQfPyB2YjMUOoDpdzp8lQM
XGKbDVWYGpQWAPypUgyM0GIo8s0lm7+xQadcMb7/TDG0eZmyfu59DCGzwvKb
P9hzlOWCB1NQCJKDLlARRm3436rUddaEGSszUyjncEZTPj31k8m5OVYODY19
G6Is5z/Hko92ceWYsxuGYaMWebbHbk2gqRJLlgLGqtJafnYZNQ5kkphMxbPN
VIlc/E8ljt++7s/UuI94NhnamaKeilGFcjoG3PfJIgms7/rhurwnVldhYxae
/Sk/u6sWH1uDmp4BJzbBRMJUcnZPQfY6l9Y8+bYYsm8w3gLgMk+t6C0LceZi
A8BSBkkIEQMQ91gkIa34rfFADQXJaF86xlKlEODNoRDPnTdvHliOCX8s1XN8
fHEfh5OCJUgtm0KsbGrhaQuYNjvw8LyD8A5tVdshIYtwJ1lUwTyAJPKc5ahb
vvuW/pkW+1FOjR8/uzujndgyOMJry9gq+VnpCtrZgjmn0j+hB2g6L/zB5Z1P
Lx8AOFj1uO7VrdPTPz66oUCQrJ+CxPMc45dQSPBdrkqq5KbRz5Ucn/WLC/J9
/A6tQGsxx2WZGYY/sGaVF+a8siEzVVQhPBM09fQq8yu3jqzhIVK4O9tbrfJP
CQdsMd584OE5B7jb55ftphwMOeegIy4qKCXhPwVTX6hzeGyJLOSeim4ofI7y
7XlLqgAqG7tUVgb/ZwQGeCdl99v55MoBoIFtnGRW/zhfIFGlH/nK+spGChWF
J2GmBbuS5bos68EEpty9hIs4FWBThdM/PcYCWUUZ1/JYByHCSk08Bzn19Gpz
/5v7lnVO/vK+FOvEZbOOcwO45NJ3985jFzMsm8EoU5/v7O6dqkBQRl1dhTCq
Oqam2uvgWYNCjmL7dtQvjwSf3QnMUMPBHr6Ik+ETVHFUUjaSbHzTGmrUPD3+
C56dBNnMcl3eC3YDVSKhLIFuTTKTYlQhXRYxVB1XJacy1bXY+OqmC2alMCia
cWplnw9eVmMv3z66Fk2+UrwjVkJ/gltToe7ht3+mxn708T+4UoZjTyxwQW8X
qj405l2w782Dy5XxrZabmaIMa3nHJ0c+8cM1USyFjkBo0AfLkDnJs3dPWoJT
HZJjwplgTRW7GOg1ysaruorfsNepjwm6tW/8z7jfc9mCmVPxiYWdsMszbM7i
sMALiIEQIp+9e2Lz4rCgCxjLNinI/YGYd1548OXLt4+sdXhyaR/OBc8QHaL4
iz0WUFgN9Nk9H8fxFDnQVJm2JXzRLRt+9lg95d8aFeXlwIfLnMwxbDl3y3fv
EmzxgtA+yc2iPzaCRdUrzmP9UMQKt333Lpbp99+eMlxA52UyJZVpxQ7UXVTD
pRifsemVsrGryxobRYaUbJ+rfMF/dbxMZlcsm1iNVPxG/R8eY65QpexrM/8O
/mffiyr8DzptmCo=\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Case", " ", "with", " ", "two", " ", "mutations", " ", 
    RowBox[{"needed", ".", " ", "Second"}], " ", "row", " ", "of", " ", 
    "figure", " ", "3", " ", "of", " ", "the", " ", 
    RowBox[{"Sup", ".", " ", "and"}], " ", "figure", " ", "4", " ", "of", " ",
     "the", " ", "main", " ", "text"}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"eq0", "=", 
     RowBox[{"s0", " ", "\[Equal]", " ", 
      RowBox[{"r0", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s0"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", "l"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", "s0"}], "+", 
         RowBox[{"2", " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s1"}], "+", 
         RowBox[{
          RowBox[{"m", "^", "2"}], " ", "s2"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq1", "=", 
     RowBox[{"s1", " ", "\[Equal]", " ", 
      RowBox[{"r0", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s1"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", "l"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", "s1"}], "+", 
         RowBox[{"m", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s0"}], "+", 
         RowBox[{"m", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s2"}], "+", 
         RowBox[{
          RowBox[{"m", "^", "2"}], " ", "s1"}]}], ")"}]}]}]}], ";", 
    RowBox[{"eq2", "=", 
     RowBox[{"s2", " ", "\[Equal]", " ", 
      RowBox[{"r2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s2"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", "l"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", "s2"}], "+", 
         RowBox[{"2", " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s1"}], "+", 
         RowBox[{
          RowBox[{"m", "^", "2"}], " ", "s0"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"95", "/", "100"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep095p2s0", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"solep095p2s1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"solep095p2s2", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep095p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep095p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "12"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep095p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ml", "=", "0.056"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"soln", "=", 
     RowBox[{"NSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq0", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq2", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
         RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
         RowBox[{"s2", ">", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], "]"}]}], 
    ";", 
    RowBox[{"solep095p2s0", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep095p2s0", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep095p2s1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep095p2s1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep095p2s2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep095p2s2", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1p2s0", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"solep1p2s1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"solep1p2s2", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep1p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep1p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "12"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep1p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ml", "=", "0.056"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"soln", "=", 
     RowBox[{"NSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq0", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq2", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
         RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
         RowBox[{"s2", ">", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], "]"}]}], 
    ";", 
    RowBox[{"solep1p2s0", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1p2s0", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep1p2s1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1p2s1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep1p2s2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1p2s2", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"102", "/", "100"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep102p2s0", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep102p2s1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep102p2s2", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep102p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep102p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "12"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep102p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ml", "=", "0.056"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"soln", "=", 
     RowBox[{"NSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq0", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq2", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
         RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
         RowBox[{"s2", ">", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], "]"}]}], 
    ";", 
    RowBox[{"solep102p2s0", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep102p2s0", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep102p2s1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep102p2s1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep102p2s2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep102p2s2", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"1003", "/", "1000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1003p2s0", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1003p2s1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1003p2s2", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep1003p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep1003p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "12"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep1003p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ml", "=", "0.056"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"soln", "=", 
     RowBox[{"NSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq0", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq2", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
         RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
         RowBox[{"s2", ">", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], "]"}]}], 
    ";", 
    RowBox[{"solep1003p2s0", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1003p2s0", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep1003p2s1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1003p2s1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep1003p2s2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1003p2s2", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"10047", "/", "10000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep10047p2s0", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep10047p2s1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep10047p2s2", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep10047p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep10047p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "12"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep10047p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ml", "=", "0.056"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"soln", "=", 
     RowBox[{"NSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq0", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq2", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
         RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
         RowBox[{"s2", ">", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], "]"}]}], 
    ";", 
    RowBox[{"solep10047p2s0", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep10047p2s0", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep10047p2s1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep10047p2s1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep10047p2s2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep10047p2s2", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"1008", "/", "1000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1008p2s0", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1008p2s1", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1008p2s2", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep1008p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep1008p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "12"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
           RowBox[{"s2", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], 
        "]"}]}], ";", 
      RowBox[{"solep1008p2s0", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s0", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s1", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s1", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s2", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s2", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ml", "=", "0.056"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"soln", "=", 
     RowBox[{"NSolve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq0", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq1", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"eq2", "/.", 
             RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
            RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
           RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
          RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
         RowBox[{"s0", "\[GreaterEqual]", "0"}], ",", 
         RowBox[{"s0", "\[LessEqual]", "1"}], ",", 
         RowBox[{"s2", ">", "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s0", ",", "s1", ",", "s2"}], "}"}], ",", "Reals"}], "]"}]}], 
    ";", 
    RowBox[{"solep1008p2s0", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1008p2s0", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep1008p2s1", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1008p2s1", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
    RowBox[{"solep1008p2s2", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"solep1008p2s2", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ml", ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "solep095p2s0", ",", "solep1p2s0", ",", "solep1003p2s0", ",", 
       "solep10047p2s0", ",", "solep1008p2s0", ",", "solep102p2s0"}], "}"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "Green", ",", "Blue", ",", "Purple", ",", "Red", ",", "Orange", ",", 
        "Brown"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\[FilledSmallCircle]", ",", "\[FilledSmallSquare]", ",", 
        "\[FilledDiamond]", ",", "\[EmptySmallCircle]", ",", 
        "\[EmptySmallSquare]", ",", "\[EmptyDiamond]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.008"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "solep095p2s1", ",", "solep1p2s1", ",", "solep1003p2s1", ",", 
       "solep10047p2s1", ",", "solep1008p2s1", ",", "solep102p2s1"}], "}"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "Green", ",", "Blue", ",", "Purple", ",", "Red", ",", "Orange", ",", 
        "Brown"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\[FilledSmallCircle]", ",", "\[FilledSmallSquare]", ",", 
        "\[FilledDiamond]", ",", "\[EmptySmallCircle]", ",", 
        "\[EmptySmallSquare]", ",", "\[EmptyDiamond]"}], "}"}]}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "solep095p2s2", ",", "solep1p2s2", ",", "solep1003p2s2", ",", 
       "solep10047p2s2", ",", "solep1008p2s2", ",", "solep102p2s2"}], "}"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "Green", ",", "Blue", ",", "Purple", ",", "Red", ",", "Orange", ",", 
        "Brown"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\[FilledSmallCircle]", ",", "\[FilledSmallSquare]", ",", 
        "\[FilledDiamond]", ",", "\[EmptySmallCircle]", ",", 
        "\[EmptySmallSquare]", ",", "\[EmptyDiamond]"}], "}"}]}], ",", 
     RowBox[{"PlotLegend", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<R\!\(\*
StyleBox[\"1\",
FontSize->8]\)=0.95\>\"", ",", "\"\<R\!\(\*
StyleBox[\"1\",
FontSize->8]\)=1\>\"", ",", "\"\<R\!\(\*
StyleBox[\"1\",
FontSize->8]\)=1.003\>\"", ",", "\"\<R\!\(\*
StyleBox[\"1\",
FontSize->8]\)=1.0047\>\"", ",", "\"\<R\!\(\*
StyleBox[\"1\",
FontSize->8]\)=1.008\>\"", ",", "\"\<R\!\(\*
StyleBox[\"1\",
FontSize->8]\)=1.02\>\""}], "}"}]}], ",", 
     RowBox[{"LegendPosition", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.4", ",", "0.1"}], "}"}]}], ",", 
     RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
     RowBox[{"LegendSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.5", ",", "0.5"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.576252446787365*^9, 3.576252512387289*^9, {3.576252688788103*^9, 
   3.5762526919638767`*^9}, {3.576253003347872*^9, 3.5762530671961517`*^9}, {
   3.576253164960812*^9, 3.576253274251041*^9}, {3.576253324975308*^9, 
   3.576253326271247*^9}, {3.576253420761471*^9, 3.5762534218766813`*^9}, {
   3.576253461983445*^9, 3.576253511254648*^9}, {3.5762535600705023`*^9, 
   3.5762535716188307`*^9}, {3.57625360771836*^9, 3.5762536451431837`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NSolve", "::", "ratnz"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"NSolve was unable to solve the system with inexact \
coefficients. The answer was obtained by solving a corresponding exact system \
and numericizing the result. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NSolve\\\", ButtonNote -> \
\\\"NSolve::ratnz\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576253574122532*^9, 3.576253647248045*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NSolve", "::", "ratnz"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"NSolve was unable to solve the system with inexact \
coefficients. The answer was obtained by solving a corresponding exact system \
and numericizing the result. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NSolve\\\", ButtonNote -> \
\\\"NSolve::ratnz\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576253574122532*^9, 3.576253648778624*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NSolve", "::", "ratnz"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"NSolve was unable to solve the system with inexact \
coefficients. The answer was obtained by solving a corresponding exact system \
and numericizing the result. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NSolve\\\", ButtonNote -> \
\\\"NSolve::ratnz\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576253574122532*^9, 3.576253650471438*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NSolve", "::", "ratnz"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"NSolve was unable to solve the system with inexact \
coefficients. The answer was obtained by solving a corresponding exact system \
and numericizing the result. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NSolve\\\", ButtonNote -> \
\\\"NSolve::ratnz\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576253574122532*^9, 3.576253652057621*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NSolve", "::", "ratnz"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"NSolve was unable to solve the system with inexact \
coefficients. The answer was obtained by solving a corresponding exact system \
and numericizing the result. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NSolve\\\", ButtonNote -> \
\\\"NSolve::ratnz\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576253574122532*^9, 3.576253653663197*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NSolve", "::", "ratnz"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"NSolve was unable to solve the system with inexact \
coefficients. The answer was obtained by solving a corresponding exact system \
and numericizing the result. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NSolve\\\", ButtonNote -> \
\\\"NSolve::ratnz\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576253574122532*^9, 3.576253655204845*^9}],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJx11AlQU9cawHFkL5XHolSpEqA+WVQQC7IoekC2oqTskgAhECCEJZDkBgiL
ARRDVRAbUBBlsWERFEUBqzwFxLKKKILyKkvFVi37prEFaWtr+O7Mm3l3MpO5
ufeec3L/vzm6tBiPUGkpKSmFVVJSf3//72Fkt3Hihfnn6LRP56UJwoO9H8+3
oJ4+LfE16sTeoC+9TbZUmqLNc4vsAoVlyfVdiBrtIZtFU0TvK+ceE2k2qO6s
5yGxkjr6eL8dyklxn52vWI/aG25myc86Ip2M6cMXX2ujj8/vRzz3nRHkgU1I
eD/lq6ZDRFTkoLNhYV5fMp4benMnf7TdehvaHi1adVvOA93d5M+0OGgiGd8T
BZwbPEou/BLliuWp+S7eyHLqrdG1WTPJfAfR8SCbbiHRAi3yI25zc0hIT0Gx
6+o1K8n8vmh/WqJYcYM1oir0aLo/80OUFn/jnzP2StZDQfvW904GJNmg1uwd
8Ua6VCS+qMndXGsrWV8gcjSplq0b3ycZn4FUBmb4O25+LbnOQg/bvxeLqr1Q
0torTqOJXLRLg59xwo0suZ+Hzq8/5CNyoaCEMb0dipeT0VzJzR98yIGS51NR
logst78rCO3+yTUrL/ow6hhL94xYFSwZLx19Wn8xXywXghqcV0tvzRCg/Krd
GgYjIZLxv0GnivLeE7NDkVVdR1xj8XG03Fx+cFqLLpkvE9lnUXkvs+joJuHo
hPvNkyg96Wph2gu6ZP5TqH1dvlUBIQyd/0GnhsP4FlUr2buL7MMk6xEiq+1E
1p2DYWjw938mRE8nkztaPpx/XF8umvtBXcrDMQwVnP3nQIRJ2/kMw5X5itCc
4JcJkXIImnT/+5cLyDoz/sIO6yDJ86Uoo/ZZ5c57fkhpQMTao1SBXllZbK03
9ZKMV4msLB4tGgw5IUP/7Ja3BpfRG/3nNFk3A8n/u4y449XG/WvWoP/nfYSS
0KJy3BGteJc6032oatwNrXhfo1e2QDHzRiveXRVb5/TukMD7S7ppTkOrH3i/
L/3J8xFWAHjf02+m+1t4IHjfaKyjc44fBN7dm10NGEk08E7e+zKREBIM3qNq
z/qc3x0C3ku8Goa/kA0F7wd05oRpTaHgPWI2N9k0hg7euT4vbLG1YeA90ezM
YeeaMPDuoPsHMc+OAd6NLu2c1XrIAO/Nnw+OpHuGg3ejsfoDAb3h4D2026J7
rooJ3gW1lABMiwXe1aYUhUtSbPD+oKZSta6EDd619WQ4xSoc8O5WP3+vn8wB
747OpJzUDA54T1s9vy2yiAPeWf8aUur9jgPeZY4dN/w5jwPei/dNWaxL5YD3
t3XXB/0oHPAuu5T1bvcODngPF6Qav3vPBu+LwVd9c+6ywfs+uZd2Yyls8P6W
lKl8xZIN3vXC1D0TJ1ngfd47ZV7IiAbvDs/aNhswIsD7r9uGNPbJ0MF7vPYS
85x7EHgX5Q2YUO6SwHvap25O1c9dwLvWZiXZd/eMwPs2gZ1tcfJ68G7jfYYs
SmWgFe/Dh8X1iioh4L2nWLOabB0M3n1mSgpkTgeD93Rt6zZlpxDwPtFjTBWo
hYL3UhovYP9IKHjnqzfNWpTRwftC3DTyCw4D7yHe4p6BdQzwPqxbVFjbwgDv
ywlqB7xCwsH7yxhhsv1yOHgvbeA+Wn8yArzzazz8gtdFgvfbOu4brpyNBO8j
jOY+nkYUeP96KeW05Yko8K52LFeDtBQF3lucXQIt6UzwTuguuLKjmwneC07k
xjUmsMB7awRXwMhgg3epifRX1jYc8H5nZ+tSRSMHvJvrpRZ9o46B94Efy8r0
HTHwforoUJYdiIH33l3R5u10DLz/GWz/7yP+GHgf7EPt39pj4P1H4r0Jgi4G
3g2VpVKfL+DeSaNyYrNG3HuAp9NhyzQOeOe//8Sjfw8HvIvLwqo63+DeDclF
2xvKce/dHjoGxl5s8H7NoPhch0wMeD+2vORrN4R795PPoFWQcO9Tj3m3pE/i
3tuIUQ5eqmTwXm/56uFrcyJ477B0GNz1hTF4l8opj5Eewr37uNSV2hhi4L3g
AYUatokF3idrmPFKqkzwniKM/dI5JxK8Lxs7vf9KLhK8P1cTrDOYjwDvtp6v
DjUSIsF7SedCZ19UJHh33fbr5pDuSPAuZ3hpOM8sCrwHPFW6FVgSBd7TWVkP
21czwbu1/KW7n/CY4F0YXDGoOcoE75m00l98naLBu5aASoitigbvx/c9arZW
igHv/+1L1fiOHgPe7br+8KtoigHvW8x/0a5WYoH3Koph+2tTFnhnbGwI7znM
Bu/+rZP9Y3QOeO9uDkmol8bAe+hPF2SNIzHwzjGaEZZU494JCas+n36Mew8R
Pxl3GsW9KwzdeaY/jHsvvuEleNGJe+9oP922qgr3Hn2vd5GfgnvfLnozOXYA
A+/DFtJZR1Qx8E7pH+py68G9e9eUGxkIcO+VpPLe/1hywDuP7Dxa8gr3Hjj5
zNb7FO6dZDw1FEPBvaur8jW+0I4E72fyB2cbjuHemxd5zVU1uPej/DXyuXtw
7+WTj3QcGbj3J6O6SbtIuPcJ7qaZJnVN8K4qa/vhkwrezYfCbTwnk8G7YjIz
s3ZjIniP3OzIzP8tHrx/V9BUq0+PA++UxQPCQsdY8B5/3puQmcwF7423OJ1L
Mxh4N1qbr6OdjYH3r0/NLbgRMfAe1e440PBhP1rxvrVrcpuJPAbe892OLPuI
OeBd+cSVGM0ZDniv+6rPzXKaA95/nfppr/o8B7yrpfsmsX/ngPdqk1DVaBkM
vI9XUhNIKhh4J6wiV1dtxMB7Du80f3kLBt6bhVZbV7di4J0433/eyY4L3u9n
HRDJn+OCd9HjLpuiXi54tzl39ZLXFBe88xUGhOQFLngXu17sq3/NBe8/3yd9
L3jABe/svhNjFhVc8L4heRO7Jo6L7+9HNnyP7eGCd69s6aO33uPej9AyBSn1
uPeSvv7tZxgYeK+xuuJX9RkG3n1y9590aca9vzitnyYO5YB3A4ptlIoiB7wb
ariOH1NggXfPUkqeuQj3/tppXRZrHPdOzKeKn77Bvd/znLoRfwb3nlLIjdjS
iXu/sDAjsm/BvZvpf9gd+Lj3lfe60kvNQnmorCIFerW9fYM5Bx2CXsMO2dR3
ysnQq2D6gj9vUxL0OlqtTZCJSoRea61vtic8TIBea9q2to3aJkAvTdeIgt7b
POilaFHodNGaB732mMaetG2Kh16zMb4nXO3ioVdrvsBAuiMOegl9n5U9cYmD
Xk9TFZ7G9sbi+5Pup08ue8dCr6TOARLpRy70SnvKnqb5c6FX45/N55tGMOh1
3bIwpo3Khl68JjsflSIm9DKNfkAb8mVAr6zOjjatdzToZazbVfvopS/0ok3t
FpftdIVe1zN+vz5tYAK9hn3LR258tgGVaqiaqtygw3v9C1xEhgE=
    "], {{{}, {}, 
      {RGBColor[0, 1, 0], 
       LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
         19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
        36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47}]}, 
      {RGBColor[0, 0, 1], 
       LineBox[{48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 
        63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 
        80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94}]}, 
      {RGBColor[0.5, 0, 0.5], 
       LineBox[{95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 
        108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 
        122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 
        136, 137, 138, 139, 140, 141}]}, 
      {RGBColor[1, 0, 0], 
       LineBox[{142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 
        154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 
        168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 
        182, 183, 184, 185, 186, 187, 188}]}, 
      {RGBColor[1, 0.5, 0], 
       LineBox[{189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 
        201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 
        215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 
        229, 230, 231, 232, 233, 234, 235}]}, 
      {RGBColor[0.6, 0.4, 0.2], 
       LineBox[{263, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 
        248, 249, 250, 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 
        262}]}}, {
      {RGBColor[0, 1, 0], InsetBox["\[FilledSmallCircle]", 1], 
       InsetBox["\[FilledSmallCircle]", 2], 
       InsetBox["\[FilledSmallCircle]", 3], 
       InsetBox["\[FilledSmallCircle]", 4], 
       InsetBox["\[FilledSmallCircle]", 5], 
       InsetBox["\[FilledSmallCircle]", 6], 
       InsetBox["\[FilledSmallCircle]", 7], 
       InsetBox["\[FilledSmallCircle]", 8], 
       InsetBox["\[FilledSmallCircle]", 9], 
       InsetBox["\[FilledSmallCircle]", 10], 
       InsetBox["\[FilledSmallCircle]", 11], 
       InsetBox["\[FilledSmallCircle]", 12], 
       InsetBox["\[FilledSmallCircle]", 13], 
       InsetBox["\[FilledSmallCircle]", 14], 
       InsetBox["\[FilledSmallCircle]", 15], 
       InsetBox["\[FilledSmallCircle]", 16], 
       InsetBox["\[FilledSmallCircle]", 17], 
       InsetBox["\[FilledSmallCircle]", 18], 
       InsetBox["\[FilledSmallCircle]", 19], 
       InsetBox["\[FilledSmallCircle]", 20], 
       InsetBox["\[FilledSmallCircle]", 21], 
       InsetBox["\[FilledSmallCircle]", 22], 
       InsetBox["\[FilledSmallCircle]", 23], 
       InsetBox["\[FilledSmallCircle]", 24], 
       InsetBox["\[FilledSmallCircle]", 25], 
       InsetBox["\[FilledSmallCircle]", 26], 
       InsetBox["\[FilledSmallCircle]", 27], 
       InsetBox["\[FilledSmallCircle]", 28], 
       InsetBox["\[FilledSmallCircle]", 29], 
       InsetBox["\[FilledSmallCircle]", 30], 
       InsetBox["\[FilledSmallCircle]", 31], 
       InsetBox["\[FilledSmallCircle]", 32], 
       InsetBox["\[FilledSmallCircle]", 33], 
       InsetBox["\[FilledSmallCircle]", 34], 
       InsetBox["\[FilledSmallCircle]", 35], 
       InsetBox["\[FilledSmallCircle]", 36], 
       InsetBox["\[FilledSmallCircle]", 37], 
       InsetBox["\[FilledSmallCircle]", 38], 
       InsetBox["\[FilledSmallCircle]", 39], 
       InsetBox["\[FilledSmallCircle]", 40], 
       InsetBox["\[FilledSmallCircle]", 41], 
       InsetBox["\[FilledSmallCircle]", 42], 
       InsetBox["\[FilledSmallCircle]", 43], 
       InsetBox["\[FilledSmallCircle]", 44], 
       InsetBox["\[FilledSmallCircle]", 45], 
       InsetBox["\[FilledSmallCircle]", 46], 
       InsetBox["\[FilledSmallCircle]", 47], 
       InsetBox["\[FilledSmallCircle]", 263]}, 
      {RGBColor[0, 0, 1], InsetBox["\[FilledSmallSquare]", 48], 
       InsetBox["\[FilledSmallSquare]", 49], 
       InsetBox["\[FilledSmallSquare]", 50], 
       InsetBox["\[FilledSmallSquare]", 51], 
       InsetBox["\[FilledSmallSquare]", 52], 
       InsetBox["\[FilledSmallSquare]", 53], 
       InsetBox["\[FilledSmallSquare]", 54], 
       InsetBox["\[FilledSmallSquare]", 55], 
       InsetBox["\[FilledSmallSquare]", 56], 
       InsetBox["\[FilledSmallSquare]", 57], 
       InsetBox["\[FilledSmallSquare]", 58], 
       InsetBox["\[FilledSmallSquare]", 59], 
       InsetBox["\[FilledSmallSquare]", 60], 
       InsetBox["\[FilledSmallSquare]", 61], 
       InsetBox["\[FilledSmallSquare]", 62], 
       InsetBox["\[FilledSmallSquare]", 63], 
       InsetBox["\[FilledSmallSquare]", 64], 
       InsetBox["\[FilledSmallSquare]", 65], 
       InsetBox["\[FilledSmallSquare]", 66], 
       InsetBox["\[FilledSmallSquare]", 67], 
       InsetBox["\[FilledSmallSquare]", 68], 
       InsetBox["\[FilledSmallSquare]", 69], 
       InsetBox["\[FilledSmallSquare]", 70], 
       InsetBox["\[FilledSmallSquare]", 71], 
       InsetBox["\[FilledSmallSquare]", 72], 
       InsetBox["\[FilledSmallSquare]", 73], 
       InsetBox["\[FilledSmallSquare]", 74], 
       InsetBox["\[FilledSmallSquare]", 75], 
       InsetBox["\[FilledSmallSquare]", 76], 
       InsetBox["\[FilledSmallSquare]", 77], 
       InsetBox["\[FilledSmallSquare]", 78], 
       InsetBox["\[FilledSmallSquare]", 79], 
       InsetBox["\[FilledSmallSquare]", 80], 
       InsetBox["\[FilledSmallSquare]", 81], 
       InsetBox["\[FilledSmallSquare]", 82], 
       InsetBox["\[FilledSmallSquare]", 83], 
       InsetBox["\[FilledSmallSquare]", 84], 
       InsetBox["\[FilledSmallSquare]", 85], 
       InsetBox["\[FilledSmallSquare]", 86], 
       InsetBox["\[FilledSmallSquare]", 87], 
       InsetBox["\[FilledSmallSquare]", 88], 
       InsetBox["\[FilledSmallSquare]", 89], 
       InsetBox["\[FilledSmallSquare]", 90], 
       InsetBox["\[FilledSmallSquare]", 91], 
       InsetBox["\[FilledSmallSquare]", 92], 
       InsetBox["\[FilledSmallSquare]", 93], 
       InsetBox["\[FilledSmallSquare]", 94]}, 
      {RGBColor[0.5, 0, 0.5], InsetBox["\[FilledDiamond]", 95], 
       InsetBox["\[FilledDiamond]", 96], InsetBox["\[FilledDiamond]", 97], 
       InsetBox["\[FilledDiamond]", 98], InsetBox["\[FilledDiamond]", 99], 
       InsetBox["\[FilledDiamond]", 100], InsetBox["\[FilledDiamond]", 101], 
       InsetBox["\[FilledDiamond]", 102], InsetBox["\[FilledDiamond]", 103], 
       InsetBox["\[FilledDiamond]", 104], InsetBox["\[FilledDiamond]", 105], 
       InsetBox["\[FilledDiamond]", 106], InsetBox["\[FilledDiamond]", 107], 
       InsetBox["\[FilledDiamond]", 108], InsetBox["\[FilledDiamond]", 109], 
       InsetBox["\[FilledDiamond]", 110], InsetBox["\[FilledDiamond]", 111], 
       InsetBox["\[FilledDiamond]", 112], InsetBox["\[FilledDiamond]", 113], 
       InsetBox["\[FilledDiamond]", 114], InsetBox["\[FilledDiamond]", 115], 
       InsetBox["\[FilledDiamond]", 116], InsetBox["\[FilledDiamond]", 117], 
       InsetBox["\[FilledDiamond]", 118], InsetBox["\[FilledDiamond]", 119], 
       InsetBox["\[FilledDiamond]", 120], InsetBox["\[FilledDiamond]", 121], 
       InsetBox["\[FilledDiamond]", 122], InsetBox["\[FilledDiamond]", 123], 
       InsetBox["\[FilledDiamond]", 124], InsetBox["\[FilledDiamond]", 125], 
       InsetBox["\[FilledDiamond]", 126], InsetBox["\[FilledDiamond]", 127], 
       InsetBox["\[FilledDiamond]", 128], InsetBox["\[FilledDiamond]", 129], 
       InsetBox["\[FilledDiamond]", 130], InsetBox["\[FilledDiamond]", 131], 
       InsetBox["\[FilledDiamond]", 132], InsetBox["\[FilledDiamond]", 133], 
       InsetBox["\[FilledDiamond]", 134], InsetBox["\[FilledDiamond]", 135], 
       InsetBox["\[FilledDiamond]", 136], InsetBox["\[FilledDiamond]", 137], 
       InsetBox["\[FilledDiamond]", 138], InsetBox["\[FilledDiamond]", 139], 
       InsetBox["\[FilledDiamond]", 140], 
       InsetBox["\[FilledDiamond]", 141]}, 
      {RGBColor[1, 0, 0], InsetBox["\[EmptySmallCircle]", 142], 
       InsetBox["\[EmptySmallCircle]", 143], 
       InsetBox["\[EmptySmallCircle]", 144], 
       InsetBox["\[EmptySmallCircle]", 145], 
       InsetBox["\[EmptySmallCircle]", 146], 
       InsetBox["\[EmptySmallCircle]", 147], 
       InsetBox["\[EmptySmallCircle]", 148], 
       InsetBox["\[EmptySmallCircle]", 149], 
       InsetBox["\[EmptySmallCircle]", 150], 
       InsetBox["\[EmptySmallCircle]", 151], 
       InsetBox["\[EmptySmallCircle]", 152], 
       InsetBox["\[EmptySmallCircle]", 153], 
       InsetBox["\[EmptySmallCircle]", 154], 
       InsetBox["\[EmptySmallCircle]", 155], 
       InsetBox["\[EmptySmallCircle]", 156], 
       InsetBox["\[EmptySmallCircle]", 157], 
       InsetBox["\[EmptySmallCircle]", 158], 
       InsetBox["\[EmptySmallCircle]", 159], 
       InsetBox["\[EmptySmallCircle]", 160], 
       InsetBox["\[EmptySmallCircle]", 161], 
       InsetBox["\[EmptySmallCircle]", 162], 
       InsetBox["\[EmptySmallCircle]", 163], 
       InsetBox["\[EmptySmallCircle]", 164], 
       InsetBox["\[EmptySmallCircle]", 165], 
       InsetBox["\[EmptySmallCircle]", 166], 
       InsetBox["\[EmptySmallCircle]", 167], 
       InsetBox["\[EmptySmallCircle]", 168], 
       InsetBox["\[EmptySmallCircle]", 169], 
       InsetBox["\[EmptySmallCircle]", 170], 
       InsetBox["\[EmptySmallCircle]", 171], 
       InsetBox["\[EmptySmallCircle]", 172], 
       InsetBox["\[EmptySmallCircle]", 173], 
       InsetBox["\[EmptySmallCircle]", 174], 
       InsetBox["\[EmptySmallCircle]", 175], 
       InsetBox["\[EmptySmallCircle]", 176], 
       InsetBox["\[EmptySmallCircle]", 177], 
       InsetBox["\[EmptySmallCircle]", 178], 
       InsetBox["\[EmptySmallCircle]", 179], 
       InsetBox["\[EmptySmallCircle]", 180], 
       InsetBox["\[EmptySmallCircle]", 181], 
       InsetBox["\[EmptySmallCircle]", 182], 
       InsetBox["\[EmptySmallCircle]", 183], 
       InsetBox["\[EmptySmallCircle]", 184], 
       InsetBox["\[EmptySmallCircle]", 185], 
       InsetBox["\[EmptySmallCircle]", 186], 
       InsetBox["\[EmptySmallCircle]", 187], 
       InsetBox["\[EmptySmallCircle]", 188]}, 
      {RGBColor[1, 0.5, 0], InsetBox["\[EmptySmallSquare]", 189], 
       InsetBox["\[EmptySmallSquare]", 190], 
       InsetBox["\[EmptySmallSquare]", 191], 
       InsetBox["\[EmptySmallSquare]", 192], 
       InsetBox["\[EmptySmallSquare]", 193], 
       InsetBox["\[EmptySmallSquare]", 194], 
       InsetBox["\[EmptySmallSquare]", 195], 
       InsetBox["\[EmptySmallSquare]", 196], 
       InsetBox["\[EmptySmallSquare]", 197], 
       InsetBox["\[EmptySmallSquare]", 198], 
       InsetBox["\[EmptySmallSquare]", 199], 
       InsetBox["\[EmptySmallSquare]", 200], 
       InsetBox["\[EmptySmallSquare]", 201], 
       InsetBox["\[EmptySmallSquare]", 202], 
       InsetBox["\[EmptySmallSquare]", 203], 
       InsetBox["\[EmptySmallSquare]", 204], 
       InsetBox["\[EmptySmallSquare]", 205], 
       InsetBox["\[EmptySmallSquare]", 206], 
       InsetBox["\[EmptySmallSquare]", 207], 
       InsetBox["\[EmptySmallSquare]", 208], 
       InsetBox["\[EmptySmallSquare]", 209], 
       InsetBox["\[EmptySmallSquare]", 210], 
       InsetBox["\[EmptySmallSquare]", 211], 
       InsetBox["\[EmptySmallSquare]", 212], 
       InsetBox["\[EmptySmallSquare]", 213], 
       InsetBox["\[EmptySmallSquare]", 214], 
       InsetBox["\[EmptySmallSquare]", 215], 
       InsetBox["\[EmptySmallSquare]", 216], 
       InsetBox["\[EmptySmallSquare]", 217], 
       InsetBox["\[EmptySmallSquare]", 218], 
       InsetBox["\[EmptySmallSquare]", 219], 
       InsetBox["\[EmptySmallSquare]", 220], 
       InsetBox["\[EmptySmallSquare]", 221], 
       InsetBox["\[EmptySmallSquare]", 222], 
       InsetBox["\[EmptySmallSquare]", 223], 
       InsetBox["\[EmptySmallSquare]", 224], 
       InsetBox["\[EmptySmallSquare]", 225], 
       InsetBox["\[EmptySmallSquare]", 226], 
       InsetBox["\[EmptySmallSquare]", 227], 
       InsetBox["\[EmptySmallSquare]", 228], 
       InsetBox["\[EmptySmallSquare]", 229], 
       InsetBox["\[EmptySmallSquare]", 230], 
       InsetBox["\[EmptySmallSquare]", 231], 
       InsetBox["\[EmptySmallSquare]", 232], 
       InsetBox["\[EmptySmallSquare]", 233], 
       InsetBox["\[EmptySmallSquare]", 234], 
       InsetBox["\[EmptySmallSquare]", 235]}, 
      {RGBColor[0.6, 0.4, 0.2], InsetBox["\[EmptyDiamond]", 237], 
       InsetBox["\[EmptyDiamond]", 238], InsetBox["\[EmptyDiamond]", 239], 
       InsetBox["\[EmptyDiamond]", 240], InsetBox["\[EmptyDiamond]", 241], 
       InsetBox["\[EmptyDiamond]", 242], InsetBox["\[EmptyDiamond]", 243], 
       InsetBox["\[EmptyDiamond]", 244], InsetBox["\[EmptyDiamond]", 245], 
       InsetBox["\[EmptyDiamond]", 246], InsetBox["\[EmptyDiamond]", 247], 
       InsetBox["\[EmptyDiamond]", 248], InsetBox["\[EmptyDiamond]", 249], 
       InsetBox["\[EmptyDiamond]", 250], InsetBox["\[EmptyDiamond]", 251], 
       InsetBox["\[EmptyDiamond]", 252], InsetBox["\[EmptyDiamond]", 253], 
       InsetBox["\[EmptyDiamond]", 254], InsetBox["\[EmptyDiamond]", 255], 
       InsetBox["\[EmptyDiamond]", 256], InsetBox["\[EmptyDiamond]", 257], 
       InsetBox["\[EmptyDiamond]", 258], InsetBox["\[EmptyDiamond]", 259], 
       InsetBox["\[EmptyDiamond]", 260], InsetBox["\[EmptyDiamond]", 261], 
       InsetBox["\[EmptyDiamond]", 262]}, {}}}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  ImageSize->Automatic,
  Method->{},
  PlotRange->{{0, 0.056}, {0, 0.008}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.0011200000000000001`, 0.0011200000000000001`}, {0., 
   0.}}]], "Output",
 CellChangeTimes->{3.57625358578067*^9, 
  3.576253655422435*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztvXVAVNkbNz7SIFKi2N2xGGuu3d25dnd3IaAoiiJiNygiiIiYIAaCiIGK
iQEq0iEhSM7M887nBtxh7uDX1ff3z+9dF5i5ce5znq5z7uBpK+fOWjRt5bwZ
02r1XT5t6dx5M1bU6rNkueKQZhmJpMxciUSSWEuCz6T4yP0ixf80D79wRPyz
OfPHXC83N3frhg0bRl64cMFu/fr1hllZWThT7+PHj7FVq1YtI5fL1V0jdrzB
7w+rKZVKB125cgVz6Xb37l18r88Ma/o7wzZ++/ZtfOXKlSUakXXr1pVo4voG
79+/Z0au9/tg6+Tn579r2LAhzs06evRo1djYWBZso/86rBZzuyZHVIZ6kvq/
D+kyR0fHiEaNGgFKfDb48eNHLSWuWLpnz57Bly9fxjeQwHbTpk34rCGTyYBH
fFZ3jdhxliuM/uuwGiweMKciXPyRIbX/uX//fpd79+7hG4Zv8ubNGw7Fvzm0
FvgBnyolJCQE9OrV6zdHLYUXfodapmlpaeATfG7z+PHjU1OnTlXiBe17Xbp0
qZiUlIRv4JTXTZs2lbDQlBU9p/gserzBT8cTP6epdub/eawhvr6+rZ4+fSrg
pF8fi6NIue/fvxdoa2sL9Ehp1+uInasWExOjzUxQs9bnz5+Lpln390ADC2aX
LVuW+VZTiaoJlSpV0iosLOQf9c3MzIy7TU/0nOIvf5wTR/6wcOKlDCt+rhTi
/vJY3Kx3rVixonJ8fPxvjcXBxavQmGrVqv0PYxmInYP9WuTs7Az9gmOYa8Pf
m2LnoKCgHwYGBiKETTE3N1dHWNFzir/88VIIW8qw4udKIewvj8XNusXz58/P
TJw48bfG4uDqFRAQEG5paTn00qVL/8NYBupQVyM6OhrapARhfxkszmjo5+Tk
jPH09ISjcmT27NnKqji0ffv2PGeXzc7OFqpi0XOKz6LHG/x0PPFzpRC1lLF0
1cEGtcfNXFM3Ly+vSFf9fMzSzmnWjYyMPDlt2jQhA//yWBxc/a9fvw4iM3Nu
+N/pUCUuLi5fR0cHzhk0CuYrUSbv8t27d4/w9vbGt563bt3abG1tzQ8rek7x
WfR4g5+OJ36Om7J2QUFBCT/rP8EG32PAtWvX8Hm8u7s7pv4740GBghz4XP3r
1695urq6PKv88lw5Vp5+4sSJX5hrqXhbt23bNl7JS2orkRbU5l1xGysrK8g5
P13Rc4ozoscb/HQ8fXXjATSoqrDWrVvznFzKOOLnOD0199ChQ1CfX6tXr97v
xo0bPwer1OG6BgYGwvNE/AQs1v+Pw3FENc7IyPhSs2ZNIVH/K2hwluOqVKkC
5j09adIkTmQZ3dePfRyPYOanhuD8T0JwdZ8r8cZEMlzC/FeVOa5TJyqKNls7
ZIdbOpxhg32HlSRJLa9FiPs1h/mQTxEYHEtKhJpaT+SY/v+77v9317FSYmCS
m86Efcb52T9y/Se2ov0a85nLnMssousjm+fYWGyyTAxPZC/nGJsZKVdPrs/w
HMd5bxtT4//Hef/vOpHrTITHNGQy6hCa8zzt3wWT5CvqLHFd8nb1poeu5+WP
BjYka4k1c6niL4X1aUA76s+84DnSU5X76n9IT46tSlUl2iJ6z1IEkrYix9r9
xnUWzO9yg69cltO5ruPoZf965PtvM3oyoHHqiUMt5QFjm5Cz8WxmJvsNZ5P/
8OZ3j3Rz15XmSSVK09HCqArnkiokU3JCJaokJk//X8yoIjsjbVmBLGhvZy96
3aMBHWwzhJnBgVbDKbx3AwqZ0UTqN9FS/q5/HfIb0zQhaNxoi+REGWdDuRlp
Y9R6Hz8yw2JW8jJURiJmoJjffzEfDXt+uvVJZqNjRX6jmpKNhhXzXOsym8lv
ZNM7ZwYf1pUW5nv677Hef32pr4ZcJtdWeWTzly+JH/p2D+rBP1KmQRqOy2hZ
8SObs8zZ8hk98xlGw3LGLJ1IIQOa0H7JQuax+ySLMp6PaT3tXfAVjoW55+jg
Oe0ePix6Dj89MTZkfrM0NGgfSqFXB9LAT7Wp9q391lbyOwPb0bmJ/9Dr/vXp
a6/q2REj/7r/cPd4AxVO7xQcrKRTMTNmbOaBIrzC/GZdO8POQRQU0It6fahP
9e32hpzIfd2jBQUurCU9M6v1hC8Pr56+5bz91NXFZ3c+vLBXUy6TqT5e4Wsr
PR4ThuAJVb/qrNl4q1yvAAoI7EpdAd+ME9nu7273nE/v55jT6TktrgU6LjAs
yPuBK0HbPQ88dzPfy6rAMPjyZaHR0uQlpXQU1GGJ3P86XQ9tT+3DLcly9Hk6
f8Bvha88brg5XZ9fP+Pcws5tkz+/lpiqPPPfs2eJk8+iZ4LQwmeqzpsdoGwZ
OclxMqw1tcYPPvd5HpCY97p9K3qxuJLs1OzWW59f2qclk0klZirPnuLiQhxb
q5JcQ918q7HP1pCRbIwneb5sTs1DOlJHzN/8W4rs4/VOiyh5pqH8wpxmry5b
jaqbmRzDRSbss5lHa//KbCuzTKZVSIUTz9AZgARqg+rQ8qe851yllP5mFLq4
Wq7LvHZT34dcLkNyeQX2oSy8OrhSLzeXcXVX79jBfFZEKVTK3Ndto23KkLDa
2FC7gAqmnaSTkXWprl9f6gv2x5lRwV6J+S9at6GYJcaFZ2e3unj70PKKOd+/
WQgh0Rx05QoRVz7DoxSfNJu9elUk6xz76QhFAP+gX9o+okdCSHTzKG/eQToI
eYfcQ/5xpmp8rCzap/USypqqJ781r17y2eU9+n19HVL51yBhmVILkJyeRJO+
l6NyR2fRLOYky8tmrZ7S04hG1OiHARnw2k8/h3IW76W9MdWomvcIGgEFiONa
hYV03nXCFfrWy4zeLyufe3p+O8fQ87vLFublVPk1yHTY6zBycgWqAAhZEpkw
J/TAljzi8M9lCk2Jr0yVz42jcc1f0ktWzehM8XNJKHjavB1lLtHL853X4rW3
9ajWKV/eVvs1aHTZ6/YspaWuk2lyMcMYs48p0CZGc5Neuh7+Pm1FrRq+o3cs
FLr1Pn2Uxns0XUZ5E3RkzxZW++66qNPKF/6nGbmtrsTGiMtWOjgwoDxv0YL5
XD41lThPqdx3+g6sdw2kQBYCI+aEUb2PsqjomjkNqf+CQbS05jJZ+bdV2j2U
P2LJlUNXDgy7Kk/pZk5JKwzTvRb/E3Btz7za31PiaqpojRv9+rGTZhWo5sgL
dAEiqZNP+ewj2RNG4NXzo2l0hsnlCTRU4suYPBvtjbRcsnvwg8spi732xhU+
btSB8hdpZQUtbJZ8ZkXPSR9Cr9VWeWRo+/bsIw3ZY+D0YuFkNDvz0QRKaYgv
+QZ1ps5RdajOUucC5xDHzh4U2LVbkev0bEAD+d3u3Sm2TzXp56XmKe7Lu7ne
PWllnpuVXkfl0RGNGgkfrV3rM31ONyETiH4xy7N6jQFBL5dyZx+hI+8aUsNH
baktbIGmlKSM32GtYaPi77zo3jBnX4MFn86tG9wr9u0j1qRxVNeE1gIYiRYW
CtPI6C+UJos5j6W7Nm+m+H+sEmXPmX2jb5tsyTbRgiwuD6bBjLbisvSOLque
l/SE5H5jmuy/f8ZBv7Agr74SNIPYQrmEkQAxOeCgKWJ37h9DKxl7rk4URTkv
okXfzMjs+Aya0eQNveHMgd6Ya55Z+fv/mkYPhzek/ZqMk5Szo8LaV1FruoIz
GvwnaG70o34ldaiEzYhr8zwKHWK3ntZXSqAEDhr95q9fyqId6jrLs7qVkxeu
0foetLKp9P3EKpnJY2uHZNl2u/t033gut8WBpMODxP8HoABS2WI9Cv0QXYNq
wF7n86ZJmWsXOZNz2WzKZuEoa56SQjdtegfLPzepLZct04yKtmod6blxiI//
gRXOIed21stM+rrjoTfjWCnD83MUcTIM2YXjMv0EnZCw+SUdISMDWJ6RWagM
dfLzabfT8q/SO5V6kXSy5vestRVu3XWa8dl93eDBX14wVW6hv9VICVFQYwAs
sm5dOjJ7dpEaY7WV5l8v6EVqeSpf8wt9kWSxpDJPoRQrG7IBG0MBdL9DdzjF
q/fvhbN5Pw6bLaf8vrpS2Tpt34jDMxJPr+ztEHrBCQ9vriLX50ePprEeHsS5
ZJprt9P2O92pO1wqSQpzzEDMtImxLwdE66dh8i/ra7nJv7UqL5Ot0gpJ3d0n
1HfHlFAf+6mWqTHvLZUwwEv2/gULmNnz/ghnMYDpBx2ow64VtEIIQ6K4eYMH
JuRhFiT9yvHxdHttj0eyVzWay6WzteJyN9c69fj0hqTTK3rPfXPvgoZcLpO0
+DWW4UhU/wN9KNQiLaHDpOS6xZUwfdy/K4NoEJibgxC2x3HbsmSpt8loKhyq
lSvbYLA35sLGqHPrh7jfPra+0o/MVEmrX4OQRaG2VJM0VbQQC5Vm+VRKXbWT
dgKtPPRFuoG5mwUPFJnmdjL/h105W/mPfwyksrXaHtmuEy8GHF7x8dzGYb1j
3j6U/P2fwBNVSzEsefEZigIycGwmzQSv4zvcXjjdrPej3yH0AUUvruEjj6lX
XSZdpB1e6NDK9vUVZ5B3y5NLB6HBJW3+C3SMqnIfT+OBIPB7NEtNeHYzjtNx
KIT3DajBEidyMkmndFbV6iO/cGdB9zfSEPPOcuk4rTTZ5vIrUu8efOSzbfK9
yw6zGqUnfOaSAhxAurwmsF+zhjKNjGjt9u2oXzGywMUsmo3f0luIvWU4hUs+
sZCA/yAQKeZkfnE4DUc0AOFlXSpT3t3Hj0VGYi4vXjhrmJVF+zYtTCs8pT+T
8nvoFMg26O4quLJ6b6jHzoQzK/vwAYSkvYraIKbjTQ3qOFUCRfmxHtUDXiQf
isUZ0uHfh/rAVm/dQBuqf6WvLJsZMw5mGcXn/pIbtFTipHCu0/568YLmHj9U
+GOtwV55WjMzqWyljr/8aL+Znx94RZ9dO/BkoIsNfBZJx1+DksWp9u7ltPz+
P/SPkoJ7w0JrkUiJG7bS1q/VqXpwJ+o07hydg4lgZbbcsKs+BeQimapwMbuS
v6QvrZQ4pI4rHyB7V6mxrHC6TozMrsaYrJc+vn4Hlr313DyqS/yHp5JO/wVK
TeAtuyyVVatlwtnZdAqmYLj2UMuH5tJcGBDO/jOZprToYS3oSY+/KbBXF3rc
ow196Fqftmuvy0uYo/CF7+9Z+eLm6WTXFb02Pr12XEdWWCDpLABXU53bX74U
d+c5i0rDLMqae4gOQWHDS4ZtN86gDNbwloVXKP/UtQ5tNVtBTr0Gk13FpRTZ
qS48n+DTfQ6GX7Ad73/NaQETRXcVopBJEUFYHrZrR5cHD2YEB65ChVLUC9uE
pAOjtX8BLQC2LoykkT1u023IDuvjGkA+tmzdmCsP79m0yFU9iNRc90bReyzt
4s+sGDAu8rF/918jKYct3gl61YyawZNGHCQJYdEhZnERbEOk7najbojgbKzI
qmosxUrKsfcgqFxwaL80a5bhOen7Sg3lD+bVyEtqU1UarNWNbpTpJ7swqc3J
wJO2Jvk/vkt6/BrIbK5Sc+YxOgZZqBZDMZL7rKoraYE9x9AYgMeraIDN2cqy
Iy56U/zoyvcLHxt2kBX208n/vKbiyy+OnU7k+cyOf7vm7x9Pp/x99dOJCfBx
JT1/DUSLYv8FIJmmUZokWNz0PmxH7Zq+ptesijfsGBJCr4c0jSy4pDNalt9W
L0++Ue8sef5buzDtS8DVPfNSTi/vtejVHY86mSmxm55ePdbrp4C1DgsrUrJs
ZVGivXcxLQapYS2KyHqHHaNRBEXYr6E1uXqkJ2qFWRIbNXnzhvzH90nNO6y7
SJ5d2zBHutTwkfxg25aU8GxQ9IugyHMbhp65c3yTU4jHLqE3rArxienTWYg1
1aMSkgDGVKtz/FgOgEO6cB/tgy2Mq0JVMBPoIaGh5mZgDEfs9JxJP/LW6jrK
Esyr5BZOKRcnt68ynCIu1sxKjb/kf2D56/PWo7vGv2dkVClT2VtlGkUJCbFp
VCpFK91gjS7SRiO8yfvSUBqaZkqmbhNoAptOI5mEzaAYGmVmkv3GNYU5U/U9
pO/LNi4oGKj/XW5rtJJCHAxlednrn10/AZW5KtzfFYmKAf8JSqGaQiawyz26
J7nG8m+HB/QAagomHvm5qafoFPQpa2eZCGSx8175977lHhSE6HYtLOigly3f
bHiEfGeb048URNPvPDeNOB9wZE217LSkQSyAEos/3YeO46V2fGuox4mIyOjw
GvJeF+oC84u/RpmU6cuerhFN0Ru30BYoSvystyM7HGNNpiFGG+/uTnHdqnzI
vaI3UprX0OC7bK3xbTrZowklv6manZ7kGXB07QePjcP7xLwJHcKh5Y83YpfW
9qxZjBE4gBBLZPlVuITNCuqCL8EJyJv1vEW3lGzE+WJLCw6BnQDH7FtIC5EO
ZXPPht3v3KHX3ZomZx8pu0yaWck0s3C+WSQ51u1HH2+AfZe/CHATegBDObT8
uZ5ksX5grWI84BPjnYvhgUtE2m6iTXm6pKtWNbmx+ILbBHmGXGcYkzHkHNdB
7rlkvKFleDjdGdI9K8vKcJc0plyN7IIxJmlkZzafHh/QIllh54QPz155WY+5
7Ld/GTKBw3mE/Ol2Xu6YUiut5v+IFzaIEA/1WFzoNHtFr6CaoaIft6E2UNlI
ibG2uXxpgQLCGbdpEwqyp5b1Knyta5lX0N1QoQLL7Sa/5SaUm26Rk/kNqUME
q0zOYySPoz/dGcsdU+pKZXCkLfBNhYVJHjMl9StjWo9L1HpbFZMoCal7GDWk
qYA5mGkuuDETi1Q6PHhAu1csl2cNMLyXH6zTo6DgL4N0uZWpL50dUo++fUSW
YeHrO57CsHQUj6lS+hvL/VKfKZXS41mCnWYeO1bETkV1z2KkFSlgICGpIlXc
vpbWQqSOsYa/pOuHNC+sKGoMRVaU9XZNxGKlHx0MwrMvlx1XmFvdMFm6yuIV
7WvWjT7fxR3tkj69euq9dcLNa3vm189Iih7D46mURkHTX2rYJDXNkv+rKqrF
qhhkUBDN4gfpCSVGOsiOhRRiyRwRsq1Q1cwVrCoyVorQgnoUR2jbyqzPiBvW
NJF2WEynZyc0SC4rn5udcfTema0IgUdHhQVIxvEY+mN9j2r6DktBkJIVZ+sX
TOiKdFy+DumI1jadWAmFLpp0mk57jaJR0NXgJFFnmA3sjHpFBbAhI19OwV8u
ZIzw7GJlSPlZkLiZEcE+yGag5g43cjyLpxrKsxh7ySMXzS0qZK5Timbdw4pJ
7U/0CQkg5E0zjcgIVgYZZA2mGqep5AdzwANJCgNIb9o2yS5826M57TebzsS9
+ytOo3edGga69DyJ3pWWKV/fPbhkPy3w8q5ZTdPioiYIgWdaWfbeWHwjzqHK
nvOzR6eJsSlXlhfqP/xDJKmi97azihmOf+swCoOVRTYcCdUT02n60Et0yeAH
/WBbI436+vnR046tcpMWVzyXH67TRpo1xqAwcEgjebBmF/Jo1eVt2IIx5rmZ
GcjNx7it6T/xw8NrSCexWrso/yuXyRkaMFUXiXX6VhMHMpekaIro8jrKaglI
BVzwchByijGXDTslZG1636SbB+bTfESwaNBwWEkrEaeAQVm/wqhrYCCFdO1Y
mDS14rW8h7pd8gtrGsTmr6uRG7q63mXZ2SFumafmhUWtHfPhrm3vuDOr+2Fq
iKfZSifvnUCMPb3GeDG8pck0WWnTGskOqiRJ5EPFYT4+JGFrAZrIpRdV/8Vq
7lasqkG+BCkoJHgQmEHf4jqmdMSyhFH70FC63buHNGlkxXs5gfr9CgoqlI2W
LqudQjvMD3/xWjP8y/PbuBLMBKZ642k9Gq7eVKUZ9I3yi5Jbl7FmZqDFzWCy
5DQPfY/bt1k5byRuXeGbSjaxUCO9N/8AHbjZm3qjcI5r5xymw1XiKI5bR2Pc
8tkzujpooDylj3nYd79yo/JzTYy/FM6um0HbjLfQnY2QZVxp9fTq0VN3Xawh
z6vD/Vyswq4clUxTAl2hFlRBn1QMOl+K4kA34JkJRQYIMOwcwG3zmB4LhWMJ
K3IlZYarXCMji9oiLCWySXA4IWKoQ3OWwlRhbQjlltRO5SPSfEyn5X4vV+Fr
4fja6bTN5DBdmVOZshhLDhmZ9i7EFzIT5r11IurwRXUtbrKsCGqB0zy8xnrx
jXz8fFdJHITMxsy3GYsfdAogNID7LKqOF7J4KWncUa9Ad8WXmlQTuQyQGJ0o
rJbXrxsZSacnTaK0lqafE90tluSkGFRPKOhfPYm2V7xIHsMbU8pbzqDoYkIo
BgX77pwBBacU5E9XmiDyglIbTRt+gtrMBy0aI/HkJwcNwfa0GfA2lv+HiBBn
ShJtDosKgP/3E3oC3c6j4lZP6tniOT0X6k64v0dnzaK0pqZxX09U35wTq18v
taBdpWjaXuMBHe/Qkb6GcHPTRiYaZjnWbXWRwpPMVuLQUW+83uRv0dmixKFT
JC6kJZEqqQd2VrolVTeoMNmVXJFNEqXg1GJ10e8G3YAaB8UhfFDncGdFDStH
SuRonBctovR6JimRB+o65n7Ua55Z0MjsHW1r9I72NUSuhp8uIsb5b+6eh0u7
K9RrD0PCuUIFrzXw49WPwlqwBjNjHVqtrBB5lcKWKHWFOh6GE/4kOuuY3kZ2
0jq8jixJXtbCG6FFAX1S0PngZswfeNiykTYCL8APriz5KBYNBsghO6xcSWm1
TDMiHBody32p1ya7sJpJuNy2RTztqjyXnhxCfMgvp4h//xRZamQMm6TFR80X
IkETfMxbuVK1Umt2+qhjChUqgjW405iHKM3ZqNQALA3TDXcEHib6plBnQffR
0j20p91DeoiMLDvHUqtDJunppHAFKb2qSfZr26aeeY90O+cUlDd6It/QNo3s
TTfRPVtGL3MIqPIjPRmVyi9n1w0a8enZ7YUqfhbUMjN1TY4FSqgp3ntspcwC
qM6cnEbT+FAMPMvhQBssoOLGdBdX1VyxkBcL5M+h8LMMyRAVCTR0TXEhl3of
6SO3gEW0HtX20SNab2dHKdXM856vb3EtJ0i/b06+kdET2bK2qWRf/gBdm1+R
spN4EUESZc1zPxckVYqKkYvUI4fnDoGKK+IOtmSoi8atz7WolpBD4Dqr5Y4u
7HRK6nT+GmTNeEmBhgDGgHUEvWjIgGsuacKMwXZg811M+Fku2Z3R0Djx2dKW
gVk3DYf9yC1r+kw6vU0cOVTxovOjEPhycacWOu+QbkNBDPnpJSpY2Hlz1c0C
W21bjkU0aYNkK1mwLCIa3rctdgnRmfe8BbVAbw/8O2DlJ5riH+busiVTxMAT
JAdlZ98hNGSNPdn/c5/uM2kjVkEZFvVt20qs6KakNx/YyreW2ZTzWb/pi8KR
LT+SY71AOtW1PcWEcihAAQtJbhTN+399FbJMBQWDPlz5EHiq6yl1xpwxDWxZ
ThdZUSHg4GM038FI81qSJ7K456IiJaxbpIf6CVwF+PxQJhgV5WVkHoEu1n5o
AccI7lCZRtjQklVDA99e/STfXMaGIrvWLRnMpntazn5DB5oMpveXWaRoQyQg
GhARpNOZyuNyFcwseej0EM4A5wUoicjo8+dZzdVJ1X5McCM3kA9cILAfmrAn
wA46e0qKjUCUtHFMRcmoQd+vHWYrs+VRZ4a/CY9xxS7ahZQtuBhAIKCE5YK1
hw+Gc+jYwLXQ5nD+lSJMVntqG2dk0MYtWyipckXpp3m1/ehTlzq8VMni+laf
LX14AuaLl82Rn57eRi7B49bRddWz0hJXqqC/dXxYfMiJjic4xtSkTZItVFUS
r7Yk103VfwH6IafoFhaSAi1fKA/Dg+OPgVy8xiqZ5BXTdD85Zjr8Il1E0AFW
GO9O7hgfNXLA96YJNcnRJ3347s9aUkssU3BaQkvA+hgLosBoQU5jVEhOJrv1
6ym5UgXpveVdnqR4mC9ITzRpmJ/dx1R6WHs+EhLv/Douvia3H8hjGF7BrauO
896c3zy6W9z7sNUqGJ4S7hKuxOAlPARG87GlW62SXouGOLIPzqN56JyBKuOR
g3i+ZLyJln2oe4FxZY4dmU2zhf4xHofAWXCdPs6jLQXxKJyOnatoFRyWQVfo
CrLOTBDEGuXyVWNjac/SpZRcuYL0zuruj1POmS9ISzRtHFPQoOZl2js4l7bo
vf88onOaz5iujonbN66jIEZzI8qGg5niurzn0pe3zjItwWuEfrWOwtUmZEOA
yX++3v869rXHa5mNhk1perRfacjUKalEUPeGZyZQfpgrzAMaXQSHkQ0EKtDG
KDiM2g2E93VTairwwPm+eUkfFkm1P32iw3PmUEol80L/jX0eKZC0KDWhfJOY
wrq1vcl5RCrtKH+cfGcc/eE7/8HjPSPtKWBN0NO9Y5y+X12Fph2kJhAmM01j
64QBlS7SLSd8p/vyAVX8rsq7pj4/9RyIKlWvjigNU795mJs2AmTXyZMpqWrF
wuvW/R+mupdfmJJg3uxrYZ3aHuQ8NokcKp4l73/r07cPBoX5uehqZEyF4u6/
kz+/UUy7L1zw9klRLyUb2GmzhTN9YaAsXPWW5FDRYVXIzhBm+rzPIYjFRH0O
ttBWFkkLr1GjKKF6pULfbUMepribL0pOqPBXTGHNmqdp36Q42l3FhzyGNaOk
V3zoO+RL+D1USMzysjOPBJ2x4+Omye8fXJVsFIKsFPrih01VasY4VnMsmoUG
B7EgluIhZtibh9iDhRidDlcHDqToujUKvB1GhKa6lV+cFF/RMlZaveZx2j/j
C+2p6Udn+v5NcU/4rXMgaBf9D65AF8SBYHd7y9SYD+iC2KTEVnxMK8Ttg+Md
jgu0mU5Jbcaz1jkWuJ63btGd7t3pU8PaBZ5OYx58O2O2JDHeomWstFqNw7Rv
zntybnCPTnXpRNHBXFuiLtQo2gXuXnGYfTzQ1VapBXiTUDvo9o30i/xhZ2AH
6NwvjL+gJSuU8RqiyKKtUcWjkkU7zfp+gBqhAfrx31o2znffPz4E4CbEVWoV
J61SXaH7Fr6kg80f0bG2vSnqJtfWDegu+h9aiTLZ8M/PmOYPYe7DShgy6nSK
Do5m4mUkSBVH+JwcL6STRaJHtjBjXlpYh3PAfLilJYW3scw/c3hi8LfTZkvj
4yq3Bux7yHnpYzra5gUd+msIvfMtQyTnluwDxq2PLx2ADt7w7NoJJpLZIrRi
2nw6HT/sCkMNtdZMALFoOQ2FWSzNetewIT3s0i7f5fiUoDQX06WxcVXbxEsr
V3Ug55X36GQX5CTG0atzqIpwkCLrMuX9gytQhC53T22u/CMjRWInhFSHTb4U
Fq6inTttyMrqdMKkVXLbMla8tSiRnhAAayIWAiU1qZhyr3eXvBMu04PSTpku
i4mr1i5eVrmaPe1dc4PO9PtMTrWm0fOTcLlYdtCCmkIaDD/4vF0Fvqs0cGAI
dezoT336eGSMnSP3L9OPy4C9t21w+mv16kzHABrGj7IRnrqoJG+Lrl3mUaNV
0bE12ifIKlXdQns3epPHiFjaXXUBPd6vQ9J8Tqi0gazTd05uAvL+/fjoBpPC
shcCpwvgPlHt2gdp3rxA6to1mDp1ismrVldmq2HFC1OyQwWHpef2JIZ07Mhj
rtzkYFc2LvCX9KF93OpPZ8kiuiHpl+uhN8WanDafJa9/oelX0INd+lSYw4MF
bgPXIUgAFzKppp1CsPQA1j3q0uUJ/f13OpmYfKXq1RMKK1WXvyvTCBjhIPP2
GOH5pkkT6nLvHkkOs6OjLcJ3yBDCApO7K7o9lX/qVluhEBRxi0T7R/yAuqek
XjOTaWeFoqwHm03QghxDnr1vHlpVI+tbwi4VgBxo5cpC0tL6QjVr4q8f9e2X
mWDUkPwkfVmLowWxHv32/NvJrq6EZUUHmLuNdPPyaOqpU4yovmzenKwPbU5w
9xp/MdPTaGZ+Zq8K8sNl5mGAz35t5+TLZ+tuo1vrTCk3jQPtr28xH+5e2TX7
mfeWf6EoHVVAO0+jR/8gA4NMMjLKIGPjfTELd8juaXSj95IGLK608rbqbm0V
9zTxS82aigjyqYJYDGgVk5Jos7U1xVWpgsQ9rfXaHnnrTE+X1KvlJ8dmV20Y
IW/U+Bo5DnieNrR7YWSNRoHyOV3t6NZ6FjQmSwpjgjz+nLf3vJn++z1C+PQB
nzeNGPGUWrVKJAuLG9SvH2B8Evv3MEqSVAQ9eVbDmvUF+/cz1pgrJ5rAYkM4
vpmZ0aEFc2Ur/R1evDj2177YwKrjE/Msqj+Qd+gwjS6cdKbri3Joq/5+urag
GmUyjedrKXg7p0lg/tD8xxtqpntyr1BRG0CLANoH1KEDJHYF7dp1l7p1yyF9
/Rf0119ZXw0bFxNbmyc2Ov4TKlWihu/ekYRlG6YJA6rwVs+eBOm2srfJ23TL
NiT2QNVtUU/rjP4mNat4jQYMGEM3PY/QldnIw+0m/+W7yH8FnEDHgusr8dea
7m4WJl0Qcty4vndRw/TEL/uEwJcFsMLs7DJydIygRo0g0Sk/zGvIH5dpS8mS
Cgy6OXYt2KK9BZtUIAsGf01TZD3WVlYflc3OpvkHDtD7Bg0YaznP7eD33X7L
b6bvN9n49l3jYZkyIxM3mjBhCIX4upDPlG+0w8yObq+vQD+S+Q6GZt/iItGo
1Tbp82s+7IYpRRYJE8MEDyhNahPZ2mIyYdS6dXsKDV1H27Zdp/79nRQBHXjI
5eGUQ/RJUhtqh+ehByc6nMBCGFLXqGfLzqj616+0Y/VqdKmQx9ixNCHALcnF
Z4pPxhHjVa++NuufITc22UcLF/al537n6MK4FNppbkWBNhBMjiT68MuhwvAN
vpRihh/BXGCyFS9unmGc2oNKU1pCTk6YUixVrdqVAgMX0P79oBXoFE01aiTn
VqghjyjTmG5LevBTUij9LYvOOyeqnRIbgWoK3QXRxXUs0o1RW8SUkytUYFAw
/qF7lN+ZvmcU7sOSVynNuqfKy5e3pU2betGbADi+ieRgsYbu25ej/O9804/Q
b+eq85eyTi7ufOze6S3QCoeFszbUJKkUs84nHZ01ZG+vQTIZjr2iZs0u0+DB
OP46sWlPSpRYCBR8iFPHogBG1I9jJ27BNyEyP3qS3CJDT+wa3TGengzXgnsX
Htgnmxp26tXzwy0Of71UfeHbzMZtY6hadRChJ72/dZ3c+seQY7Ul9NDJgAp+
cAaiyOOHBoYmhkaeEXHfh+lxPiJUeWwrMXEOFBcwbCZra18aMuQz1aoFZRKb
WbUJRUgYc8a7/5fdB7sPv3xR+hM6V1DXs4Rl4NE1alBAr1406rJX/rIHjqFf
nGo6vrvTcF5kbt2mb6hJk6l06lRv+njzDrl0/0ROtWdT2BHGaWC3IdGBQL46
bzMG2X/YRNhCsPZRlRlCAAUzNAFn76XFiw/TnDkwRBDUyMy6LWX+Gv0wv2tu
A9zgrPMrftHfD70JToTns5ZVnWJO2ffa5VKOz5hBPR7f/m4fsCbg2y4zu2dP
Ws6KKaxWC9p6KF26NIA+XAuhEx3hRU6hcBcmJ8ZOSo9POkAusQ7Z/pH3PmGI
oTo5eByCyemDWX1o2DCIKEQXYmtNmzeH5HTsedelm8tt1x6ufMcRLBa0CrOV
B5vaMIM/F+LYUcWfy9xmZH/JY6jHd8dy1o/etp2SLKtgAcPQle4FDqMInzA6
0hoRCO8XsxPS58t1sLuwv8y6mRJRCOerCWf1mti+Ml5/YVZvqXFj2GT4WQdo
/nxcoyfLzX9zoMmBYRE+Efysljg5MUszIE8SNqloBuUC58tvXt9PZCURdQdT
T5VfkS43MYV1aEHhzzETzAgzwwwRl+irWjgk2VxVJgBis9eyE4DQwkTD+QF3
w8HGsT6R/pEfnes5C7aNYTShf58+TLpPoiWiHRewkooq8SZbW8JSTqyWXmNv
T4sD94bL7mr04CynrjRcs+Uh6dyFdelTJJgNTAfm608fr0vYzUCYNCFmwpu2
M0KNqM07G5FUt+5y2r2b+S4gC2y3wsPsy5MFs8M10BFr7tvf5w0ovxFVpYQE
SjM1JbHWIbaOawZHZYKbG6MecCnWqUJtdIh5EHPq0tRLGfbG274nDqonf9qz
NRzmb1Gj/r4tt+05j54chKqAyuhOn+8YFIcX0PbgQfAik8lje1Qlf35vdLEt
nLnCHO/6wAuuTx8+MCaWvZ5RQjtp1Sqg8w51745gB3Lc6FtEUvLOCjsrZ8Vn
Idf42amWU520qDTctWXjRlE0stV/M6AMqAMKgUqgVBGc5y14vP/xi0N/HYo6
Wmf71c8DF3yS1a4TS+OrBqT1Gh0W+fdYH/mS4Zm0zQgGBp0GBsrh0DeXZd2L
HFN3Ho1/uoe9FDTyztZxmjEDR+BsCeUsiDp3/kD16yv8C72ltGfPLlqxAqje
7b/c/8O++vt4Kxa7u+ruRikRKWobLmewih6LIiFbkDHIGmQOstc+JjTm5KVp
l9LsTe1v3u693T+rz4hvZGYGuFpTWBiiow0UtBVeCbyTfXR9ISdzTL5g/MfH
frBe524dWwclzyXNSu98N/yVzvfiHaf1hDtO866dIy1b1oDev4eN4Lwl3nw8
orZtIck7aPVqnN4o32Ln7TnCk/N3kMUs1dFjO0IqIqBE7ufagAGUYWxMp6ZO
ZfSwQhnkzX98gGHDjwfr7fKKHLUuXGbZ8j01aAASmlB6elNKfn2ULs/6QXYG
B+nqvIaU+k7CxUqcHi6Z0DjPI/D3O+V11G3qzDEm7yiyOVJJ0QldHoNnaOLE
LDI0HEhXrzqnLrIRJiZvnOznCc8CnAQ/6P4//zArCMf8kntsjvaFfQsXUmr5
8iA/E7pjCWG72IexSLl/22G245rfgL3emSOmpVL58ohue1FAAOwzDMBNOt37
KzlWh8u8gwJWayKSk2gysRz/KC4XAu+K77UA3zIpGi8e3b/fdK+jbqtl7WKb
ysg9g+NiTINZ4JfDDdKj3NyiVifW/unBCjG2lXs61lYFd+rE6EWYGbFIkl2A
oin01Tmf3oLncWQjljk6MkkSEFChsQgNacZ5GQxfhx+yPPThQH0n13eT7YKk
nbvGUZUqCFSqUUwMfHW08kTQ/kbI18LP0CZZAbclRFHSE2mnoqSnN4/qP7Y7
tNjOxwJkr6XtbHqQVVh6l2jo0K20gSlyILOds1V/K1B872SXk3CWObFA+P3i
r79IrWLor5bFq/BJ7pIBkkIC6dLQocwidbcJE6hXQACTVG4b+yj2uO8M39Qd
5Xdcujb0qEv6lCVANPys0XT+vDYVFCDBsp1urUV+7zydHw17xu1gVK4g90cR
WFxfAO+uIhN5ItDVhknj+vC4/2NbN4ttSyxocl9Ezs5C3FekpCRMrCOFMMt1
kah3857gnbLTfCdknRuO97AU3oi4PeuvlrEr4TqxaA2ZwNlHjhCK+2DueU8O
PkFA+n5fA+cjr2c7XZUOHArVggREE3rDLGNvS7GP3OnCeGQvHejmypqU8YXb
p0kps1IiXYQ4Fc2Zvjy6/9iyArENgwXonkcH2dQHt2RlCPn6RlGdOoaUxfea
6Q155/suYVelXfW+ffzGl315Vwx4E0N3T7Wsrq+O1RH/Xxg1kokrOTfFlN+1
qU3c47hjl2deBrtf8B3puv/bAqt31LBhOFlazqVDhwAuYsnR9OY8XPyP5Fxv
IT3axyRDuHCsZB6o1vfUON79R4MQUyS6whJAEM1MpDNsUMCuU9c7SdOmwUNA
GYOPCcAZb/c33n/m4sSLAgdrrtehFKEymHX0KBXtCCemfTurZdIq6pj0a63q
sqh1dTyE8Sri10IbrS0g0p4XS0+6FU6Ykkampmfp33//ofvMWnKsJMOiWlQh
ETOg+gTbyO2pUbLii0Vnzy5s/TfVdVmPoqTZVRVk/UtnzwqQpbue7OxgnsBW
vNePKPuDc31nLnGmm2pf3sFxx7JEOAX4OTR3LmNX4DeJinK7X+etnatW0YOO
HYS8ZQbe2nh1y3PZTY2+JeNhfP7maTYXiSC42NBCeCqK4XBl0RNwii5NtaTE
cG6qfOoJ0T0whLqdj/+hFQqV6iW5roKpQXTlihBTMPCgTTxVrlyVYmPxVL4o
zbtOyLwXYYEz6Dd79xYKYKns1Uy9i4VdKEuwnLE6loto2kj2ZVVNFZZTmEW7
3CC93nKbMjYckg3olqRnknvFJcOlFy8jnwgIetCn25fJfXAC7aoEf6sSZSWw
6yJ1kKQ8e/v4hrgzq/oh49wzNuIRZPWGCv4GELuSjBdLcFYjioiASIJqG2gr
kxXnnSIumy70iWAzNNRKnGbR9NWZ8wbq0SnkQ+5ePdRMSvLlyWnT6HPtWgxf
shgz/xlbZsUNbJCWObIW3e/RiZ70aJOYMMYSToguSfNQ80QpGakbLF3DMTb9
p9sjLuIxMqKhPtunut05sUmpeK+K3k4UHCxArxnvb0LrwcNHRqQmffnCu0Qo
9gO679vKbWuR8DyhpJ3AdQJbAZdm3sGDKrgtlX2r/BK+ywnpJ8Q5kuklWfrA
ovmyYKdOXoJkvl1OsH4fZm0LS5iyYOUCd+3Jb2Rzmx2jmTNdMyYvCozoOneb
PGAd2Bht6lfIfVBP+nSL285ADzafty9jop7cROggTP/5qSC+Az14wHxjR9Bf
SPv2gZ/rUFQU7//s8VvqN/6l+8tEBwuHOy7dXUoG9czuRprMho2aVjY2tH3t
WiYCFWrTkpyNjX9KjbuMfwn7Ys/QwzGFP6iC/fgqlQUSUIGXAKYfp0QqFt8T
H1oMCYjuNUNuV2YjdjP+8rzm0IqypJSNdI/pj/iLEl9AOSN4Rn94A0p9z6FT
G/sQwLlFkhmVRsaO3VahQnN6+ZL5xi5A1p1Dhw/HULVqyFLxhl9flpOPggzf
Ooy8AAp1PMYYl5TTL6O8vFT0C1YklsSaUEcI9ZCYXPwvx0TUuhhl9NXJCsKZ
fF0dod2sRCskux/vaeNWkjQ52/S3pO0w3SH3L6OUX5Y+1WybI+tXNopm1onI
m28ZnTq11Wb5XWu0G1wgz5H36cQ/qOWspvs7IEccpYzzc7LgriHlhr/4Lrmr
QqnGxObXuL2bdDxpzBhUsOGQw+M4kDp/ExiJNaHlYELFdBNf70B15uC8eUyc
HFOtGsVWrVokNuqI8z+wvugxkfGM1BECxXXsvFpSdGaePCa7cbyfFzs9Q7Hc
/oPTHQ4+/9aip8xOYxOzXPdCow1H5bNmQ1w4Dx/pJrjNcGvgOmMN2U66uYqv
brPWmVlcseD1XWZJPYQIwiS5JyAJQxGzYodmMrm6JlClSn3I3x8OTYkMhSb6
IZslvUpCwqakEmNGKZE/B4sj9cARBKmjP0gQIzELjZJ7WOvWKoh3XLaMpri6
yJ9Zt+T0ln6GjfHuhcH7nku3aG4uqbNwhfxOme7czMvlheu2TZJWrBJNk2rc
z9rU91HU2nGH6Pzcq7RzoA3dsZpKz08F0cnOaGuEe16L0j9zyojJn46KenoL
RuX6dedFWF3K7b4klIxKlJAgQKImhokmxxp5tEVXosH81oymPTVukyvb5czG
SYa8J9WZgoLQRoOeKCPKzBSaeSy43Ri0JQhFb1b96fHqT510abD2yHr75lys
dxNuvvKhfn162qqVEn0UgSxhl0ohfZDvQ9dJSRr9MDAQpc/cw4fkLzc25+ij
Cfp0+hCchNZUTmlbfN9ebnv8g8ojSwrN/bP/7A9PtuwtO6zBdP188as521m+
aDH8ICu6a8P7QrvIdkUUOdXJJ1uda3R2wFB6dwkJLSRqOXppTX93/9Kb89aj
w7ztJqIwzW47xrVKmvJtcSAZwiWmxqQ4A3Jl0HZjkAh/0X2SS1v10LNdSLZa
OIblLuiR4srfhkIvDWOi0gsSIg97IH3++oeR7SaskO/a1eez/8dipWiI5Dbf
powfoQiWJGcxKbWsdtjkYs0aktrWmzcTK4FaPFXOjRvH9Fexhw34w2i1dpky
RYVgoy54yR9vbVMKsSqn25vYy7ZoiApXbFjVoVNfnQrLs9O1xfeCV9ot3ska
Ng6mDZ3e5i5oGZs2qelN2t4b3SGY13YKWLuMQh3D6ZBlJO2tG0wnO6HJRyKW
CGb309LGRpJoKY0/s6rPzlDvvUwi+IGQmjooczWkd+9AzWb06hWECY/UQEui
RBsEQ0kErglEO4Bce0k00AWsAY5hkzB6XejevRQyN/eiUaOMKSODj5yVYxlN
+NqvDjY7KFjlxxQnWiY8SxBo1Ao8OdVJ5iqHnRRs1+lGmo2p0/Yda9NQ51d3
vF7kR4ZKEgGZAk71chPAYM6QyUZD1HcrDNDqJ9uvsUgoa6/cm9m9lTVuivpw
eLTl4CfBfy+zlW9iGnQFRgrBDBrSIWb5tEXHjbwnYAMT1KaBPG6LSWQqUG1X
au95KCSSflEyncs/wjThQbfItedtcukBEyjRRJ+aRBNPQp0ANJIwRGIjIsMt
tHGjMy1alEwVKkDe7Gj9epwZEHXtfcFt7X6Y9bMXLaesDHUILu4kFusoZ1Sn
j8cwj5Lyxy8fYC/TEj/MGEwYUUZSDFhJgV4u6QtEPG40YZdsxaptketOFNpp
beakpOUJ2fSZnnRgzB3a0j2INncWSgmUC9bTIeeB3qoo2lsHpgnlPVFJ4TwF
xDbI3yMJUlQvfaxEBN7MgAZ8IQ6mCIICXSclG02Jhpysy0h0CslG6wdtNcgm
u7I450D+K4tJUY4fCj4f/D/0AqIQCW/93/izdxEvNZS/ey+UIV5goAaLVoPq
FQsRPPuSglXyWIa9Mcvo1kUrSc1KMv2zYy0PNUt+lXz626SlOXZs3eD9hQbr
kuQVLcDwt6hnT6foJbt9g4fsWijft49nejZvq7uXbiwGstPJ3uQ1HWiKmmoN
yohm7Au3KbK6ZP6MiPuXsDIeCRXUsCRhSgTgjQUIAMwgPQMJgI4C1yORINGA
mZHoxtDuat9pW7kssjOEASogW21/OtNnM91V4GEr3d4g0WQMEQ8GW00pLzRI
eIYFJSZakY3NdypXDh00w8jHB7lbSCAM37HUmWsKgrV7AHPnvMd5li3ILtgQ
tDVIaqtpKzFmMFxPTK3gjCL+sJUHKGIPwfF7p7qcck2cvCr3sN4ypmLj18Xu
gnzkqNM0aRIENy9et9Znv1pzd8hXr0G514ZuWwXQtl4l5QAUQRiJv1hOCazA
QT5EV+eKiQGXTRdL+Q+IfnUfKf87V3bPQcr/mdBx0+NVEh6M1CweBsTDFwRx
uG722pT+CQ4CNBM2e+BcPIYrlGH4GxYJfkUA9eoFhkOZGT1u/en6dSQTTgVN
PbFUvofpBxYjwfhX7q8K7LRthCgPP2p58JjvTN/CrVrWwuPPj7Y4GBTReab0
gOZioYZn+mFk9jtnRB+/ybiQUEfhjcbMkR0+ilz6y+jmA/P9dIa8ljdthjbS
2XTkSEt69gyw86wD9hQIhiP5LQPHIYmIAheq5F3pSyCzhI01BaIZf2yHgWoL
FrKg+sLt5StcCMATHD97yG8pSsSM5me9LB0YHOQvUeNZR8HbUHjAadZLsBTy
/GrasQM8/pjatEH+AM7YBRo5El0u48ndHV0IlhQeXpIQR1NnreN59orfoH3L
5I5qj8OaCX3zz69qDVot2+GAZ0K7xEVXaQ/kfpVXr36UZs2CVzGB3Nzg0/OK
l2c5Tpb1gVlMvxXFPwVjv6KDzcCG6NtG5zAq5hINEcbnjKNQJZUsJWBR9lvP
zSMTTq/qq3CNfZHzfSEqBICAz6zB2kMz4TtXA8dpxEU3yK3fW9rf+AxdnFhi
IspKiS0pthaaC/TIQBF50NixiFSzqWxZtB8BeR+pXj20K4Ejz0WPW/3E7++N
UBRYg2FPa9aEUvv2vtFDFr71a7zsurz/ABAYZRb03mRHl22cHmwy+KW8+V+7
aflyIH0WHT1ajz5+RMqCR7o13dmsTuHgrx4V5mKzyFA61h5KB64qWL8zRQcx
rM7u+FZWSdMojvDVCPQcwgAji4I+MIVN8JW8EmJbV4hthC7wTdFsyigTNibU
BdZBbfyglAypC6Xj7bEuki8xKikfFtX1Sup/vgSAz0A/spqjyMsLJVSUrUEG
WG20H2MpByrv+IzuDdgNJBRm0rFj0NVIP/PriYRjq3tmsfLQA6jgHF9yH4Jc
RyZtN8LeMnDykDEUU+lsWqqsmE5Bl8L163sXpbou67n/vvuOFqlf3+Oc5LUK
okFf6HKEHfBo8Jl5DFcGQgluIr04A1pfpbMDmeWMxDb+cGrNVN0Ef+k4q8tM
AQ8khf/h5QXIQvF0IH24yjt/IPpzOtxiAr10Y5YM8HCxG+oZ8UJfUuB1pYUF
ftf2LoTAu98+uv5gsNt2YflBCUuMBua5/196edaTvMbgKcbFnIjFStD5WKCI
XS+wREit0HNrJkubKJchMcCET5HPVFh2ZCSh8WB0V1HITqxcgeLH88XYg431
jYRyyMsgwkTs0RLhaTXyyUW7idgBjMNLUSHgjQAH3NpTQIlHMChmZ6/HyyEg
9CbPEWhphUP8lA636kAxD0r4AT/RhGqRUvI+nh48otZTkB2y7D50btgxujzz
GR1uCRmCdsL1J+nSNHQ/iFkIdndzAzE5OhTktu35hS3/IlGCtXA4/kEtc8Ai
oK0Xk2U5UA87wUCG0V4E1wgW4RKdG9qckl5uokBbgabipy7RUEaPGMqYJ5bQ
coJjhjZ01wrdejPp6TEoZwg1PGhQB4K+mB7uBXV4rVpFWV7EZMZSoUKizm0Y
EuW+YYiP/8GV9TMTo3l5UUUJzxaYM7pP8J3d+7Acjy14rygPPqUjrUAmePFo
csWGb4D7BF2ajmCDWQSooXau5krHOAOFqjjmP5nCXSEv2F8NoRwUBvKMkCWw
CeQWxV+eH9TJkoWqLAltGrYuxwa48WdW9XV8cH73tPf3Lwtl6aMKfnhip9N2
EziKICyLHzOhZStazKU4s4Nurh5Lrz3wHcUk4AzrpTAf6B5EwgnkUAkd8pif
RgCd7iUxRhYdhxHFIoEgIxsNGFRwJIZwJZ/JcGOw3zHsOvqDgFJ2DZkILqqp
Nzt4yV+w787pGaeWdLV6euVo4/SET4zZ+SwqM9Be4EpQDI9kFaOhGAL4y7FJ
Xh1Ki3KiG0taU3wYCKvRi6ICJNr/0Nf7OIxIBLeJeYRqJ8W21xuXJgCmeT++
h1zaMS3NZWk3pxAPBxBXqWYtPkkLyk4EeXjbVEvVfxFSWS2E7MY8xupYEBYf
e3cjyeR/be+CZS8D3EqqdMkXUQhbUMJz1Od5CEepJzCCeOwjj26Iqzf2Lekb
8/oBQ+A4UQ3gQV5jETPyExz2cyxryaXMfgMwTUG+O2cqxGqzEpaVnqTFu4qw
y3ja8NKxhM/d4949eeizfcoHj43DFI6okwqW4kWfgIVdUEfD1GMHn51CPHcp
RGAm9rlCZQpiwL1IS7hIHrKPBG9RvnxQ6R4Ls9wo6MzWCzcPr0I7pMK5W9ww
PeEzjxbVJ+ATVBxWajEqcqB6fwBn0Fx5KNhtG2TX89bRdWAoIVpSRZ8AX3UE
vfVmnjBAvSG1Crt65GjQ6a3o1joYfHa73WOf/ZmqHgayp0Vee++fGyWUYO9d
dpiJrN5T7y0TOiRGvuBRkqkCMNgQuW54VIxs9S5dreMp2LAbCL951Wk+krdC
lHwXZRTo4bqUFtlbPaMgwMQ6gxi3NQOwr3yRGOWIjghXF+5t95+LDybuffPQ
yrfnrUbdu7xzlor4iD8B2TP4At1+Lj7Y6BBbEn88t3GoqPjkCp/A0BUWHIUi
bkcotbKjGGIXXo+FMiLwzmzvKlUZDhoVZOReBGSoTla8Ag6vRrYR7S6N0uOL
ZEWqwhiwwN/I3qzI4+yoynolZQUZfZiC87eOrAEEQhzIVJ6ALVVgmHkdK2HX
o4ktbtbe9PTaMcgIWs4PKxzQbY8u7pcQKyUlx0VrD18uZcZtL45i7KGOfZOw
6gp75HRK/PC8iCeEY0uq/N94LQj63Q/OmzdvrIeHx9rt27f//eTJE63iWaDV
E/mrolmwL2srJ6YNITuT34dezTy5pAtMEBpmlfiPXb7Lz+ZPr4TCZ7x6oH1o
KPOGYdO0tDR08Atmg5kgS1pk1tkX4xmIaV4k/BQBxnjshTvvTeB5LAtmJqDH
TaC01Uemv/TeDcXnuCpVqujk5zPv2zTKzMws1NLSEvZez6Gww0zJsY24Jh8Y
/SoYZvOjx4ZhwlW+DMT6PMS/v9xHlz+caGFhgRengK/AT89atmzJDsVg2rJ0
CwHwzt4+vhELzKG7tysESagMlcH+/WUzRWDf6Nevn8+wYcPw/VPt2rU7hoSE
CPGMaBXbHHDvnBQ1QOMiH/shTwaLafvE91Dfr29CwB1CXmdnzE+glMUoxr/6
Cgls9B/WunVriAn/kmlAjtUbjIRaiuuZOpkpMdhxP+vkok4KX2U1NCXPJaxk
GvHg/rH1G1xsiAUG9mvWrGGWhwnWziBZhM57bj9lFXPRIzbiCV6SChFslRId
oXBNDqhwSRHUf3oZRF8/P78Vu3btah0WFiZkkRPkO30GPTsuaareFGGfRlT/
sW/jRoXRYPYUKGGOmRuMVWwotqYYT6/cuW1dDUpyoLZMWnjtxr7F31yW9UDZ
tEF6UnSRpJurDIfEIBJzksbibDHu4xM/lJh8Fc4O8pFKLolwTG6ZM5PzUPyH
VhOkTBijXK90aQerQdrhwI6NfOIviokKSo9hUgaK/7DhFdbJMJxdl52COh8I
BQJ+DyK89pRFOmPkRMdGoQI5U2bsOuLogQOE1rUID6sRr89bj8GzlaWmiujY
QE9R7bW2OHsDxdeu71uchJc6Pbt6XFQJKg/PGC3Ffyhu76NrC5nv7PBlS7pB
V27sX/reY9Pw9c+vnyyJcRb0qircglSyMeVlcDvj6wkpiteoAcX8hjubw64c
YU7UEgzDjMKuHNIX0gl5zXUKQLJPLuw0+UPoVWUWq6UCiCLcZpd7cZsOCemy
5fGlg9evOy98ctFuUr2MpK/Kk1J9OTtyKsw37oWuQjo0yEiMBvu/9LIdi24Q
dox6oogRjsEjG+8nA0Jmvw3yxltEi3lOdQxs6SWYk/bxwNO2yadX9MIbdZR5
qr7KveAn5hu3baKQMPBUoCZPBLrYqIqv6ljge+ZbZVU68WO1Sf78RpVhGqiM
hZQl8417M5yQTtiqTBH+9cD8mNubqNyOQJv5ZqFKGoAC1LrdPrGRaehVM8Zd
cukmHIMnDaYAdfBPQmS4MmlUx4CWFExDG3sd452NeImoMmmaqtyLQFt4LzJQ
eKmsKimaimpStGoUhTdsxlsbKzAQ20KOlUnQTFTd8P8x6oZ7jSnPIsAdliOj
mYAdw1J0DIRaOCIoH2kLWQPb9SmCHjt2jBaiY2C7q6IxTFVZwv32cSyNHlik
9ZWH4dUbyoVFPrqJKmtAUhEvKVhjQzFrtFAhDZLtzDdTZdbANx//gytAHmXW
UB2jKOnBoQRqEK/0BEqhfYpZo6XKvWhTF94LLRh2ceuk3aHnHZVZQ/VebNIh
uFcL809VSBNyNUXoa/Wz2zShsbEFHqss8Lu1yj0o0gnvwcuwsQV6afcgrSdA
rSbeH//Zfd1gZsM45p6/Ve7B7jDCexBKQ9KKn6N6D+O74BvLBpqYOgrUzIpj
5p42gnuYW7grZ0UEXVSeeRuV0ZktS/GN9SK1eJmBaQEGmNvaqtyGAg3zrZyy
mCD6VUaC6r2oLzHf2CqutlA8Hl/cNknB43vYe9upv7esqkwAMemnlnZD9qNY
JlSfjyqCcAyhTMx9c+8CUKYsE6pjwLMRzgEyAUuKTbTRwVwsE6pzwItPhfdC
JuDYwzl0vu+xs1gmVO9lXJNivGvWzUiOUcQznYvVI/dC9GrFKpYpz0nYFCOj
Yrl7MWe4SMXswd3757e64VYmTHZ1dd29fPnyVTt37px28uRJDYHuZJ8sKdKd
HJAo/2L/fREg/++8DFUrw9jY2CQ9PR2RUbqJiUlpQLIcVLR3vlS3UPvK9KSR
DJwduKv/3NtJOQDxsjtkSPDGVgT5PwdQW/ztGkJs/snMCDNuaGio9ebNm/HC
3ZnHjh3jI2G+tsRAyeR42SSH+LuQlUH8g1kQ/Pz14sULMPOFkSNHgtjs04pe
KvuH98/QwkuHgQnkjK4NwHJt4dP+cMZBK9PICJu05kEac/T19ZWf9qffwzjx
zJkzgAYQLHFychI+jfk8r/TPkjL/B0rqCUY=\
\>"]],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJx11Qk0lWkfAHBLUb7SppElRQuSsRUSPSKKobInWxQJSbZwU9fFzZLlru5q
NxFSmJKxjZTKVFoQiihlG9Kk5SLTzHfn/5zznfP9z3vOc973ef7Le87vvK+y
zyl7XzERERF5URGRv9f/DU1zxbFBfXkkHhX87XKHLfrv/RZkb5raLihzR966
TtpbSvQQ3250urnmmHDfCO2T1pVVKQ9AsyVTT2x9TJG3wPAldX2I8Lw5Sqkq
qx9vDEWttTVpEu8tkbhun5HOjghhvjWa7vCW1888g6ht5/c1xtoiQuhTBeO7
0cJ6B9Huvgj2kjcEpBVcIFq30B7dXfxJbPnbWGF9B0RoGdXxaj+P6J8kvFg2
Tsh42SmC/xOisJ8zsipCAaTKOCQ4F1AXTjuEnh6U/317MknY/zBSGaarqrrE
Iy/Jh3J2PW4oIqpOMKKYIJzHA934ULpSvDcB3c7QOaOp7IWcpemxo5RE4XxH
kJXcSY2lZmRhfX80Eed2zO9TqnA/BE3lWoglLstEBJkrewdiwpEeJzj0Xg5F
eD4KVYQMc7wfU1H0yGadRWVnkZSG3636X2nCfCK6sVU0LSuYjnb2H/i+ktDw
jGvygmm6sF4CUgp+36HswkC1VkvENC6QUbaKhpg0lyGsn4T2WLakx99moB3V
dyMbclJQlZdDj3EPQ9jvIoo/U61j8IKBapQSx+xq0lGbUqXxwAOGsH8mslaV
nN15jYF4LeuvhvpTUNvgnZYPFxjCeaho0jpX8qQDA/V+/achaltx9mavDEM4
Hx0Z/G7IMn9ARxz2P4F8Fm3g9Amown7ZKMIlkW1WmInG7f5+koe8G6TeFr9N
FeYXIgPVpQseiJKRVFdBiInUJeRb5VNWEXpeWK8EqT/eNm++JxSpu2c0T6uV
oRsFY0MmjvbC9ytDNA/W3qFyY/T/vAs61QsaE2LA+1H61QTLVSTwTsuzzNRL
TATvP+Y51KmbJ4H34sI1/qoZKeC9LT9ox9uUi+BdQO6ec7dOB++bHvsuJ/Vk
gPeP+85uVc3PBO82Chwtlb0U8K4WODBa2EcB73xr3RJ6ABW8a8vfnD09TgXv
IfZznDBfGnhXOFdZzuqkgXcFE53KX0zp4P1At2RzbCEdvJ8L2x+YLMYA7yWn
xzrc3Bjg/WjorUq/CgZ4Hz3kadutxwLvV6gsQVI7G7znN197ZfqaA95lSWfz
93C44D3XznFq4XIeeM9W0PaSd+KBd+mNNwjscB54lx9m9FtH8sB72wGxlC4v
Hnh/2UX6cHY7D7w/jz80QBBwwXvNO7L8kWtc8J66wc9X250L3tkPXGoyZjng
veIZ7eYzGge8Kz/Oui2/gQPeX+VXx+0vZYP3g0cItgaabPC+wnBYmxjEBO/V
PNGVKxxo4J1W7/tow2wGeI992N0kM5sE3tGBozOytXHgnRq5K0SHHA7e34d8
s2bNOYL3NY4GTakmu8G7qRPTtYDoj/717vfDC4mg40TwrlSy9GTLgkTwLhM2
MyPqkgTeD1gQu5XnUsD7K17t4aztaeBdix50kbI+A7zPLC404vpngveEifj+
eXUKeJcILq+6/5wC3u+2e8gqR1HB+/Dp35q9pWjg3cLtzHsfCg286xoVZ7Gl
6eBdnOploRdPB++befdvqb6ng/d8HSrZwpkB3l+PDuUbXWeA9xqrRcHc5Uzw
/vqdZtQ7XyZ4J0ZMu6VdZ4J3VPFWIlSJDd65bqc3rinigPdLbTXnnhZxwfvH
5NnNpbY88H5Y0/C683Xs3ZRlu+vPSex9Z/RHCYuFfPB+r++rU9cc9l4wc2ho
Uz/2HiChiH4qx97Prk3gBwXywPtupbbceQUeeNebezP/pQl7n+hIah5344L3
g+nbVm2awN6PSx1vqYzC3geZXXHRs9i7ZbfzZ8MY7L3j46rKF5ew95s9fvps
IvauFhmmYrc+E7yrS/8SR9FMBu/FhPttar3Y+0lLndtOpdi72KkO7qS6E3gv
vVnh0xuMvbvYVBeaqoeB9zbbx4l/RJLAe+fqYPvHr8ngXe+E7vbL8ingPf/n
yzkO5RfBe8P4WmZiZzp4v3BXIyzwcCZ4b/Qrb7DRpIB3tv8IcWgEe+//s/Go
D50K3gOGxywfatHAO3GGtDWiAXsPq3nIWmdGB+87TBVVDeuwd3L8pMcbTQZ4
L3EglK9mMcA7gyUSyJjB3jXcR2OWujLB+7FizRrpa9h7kvO21tULsrD3xvbW
dPss8M6yflkTU4y9R2Z3H6Eoc8F7umOdtLcsD7w/l2U0yV7H3u/HBJlM/cAH
77pB/XJ1VnzwXrBrwFDSFXv//TfjMgMbPni3fqh0v0yND97rf1DyCfyAvSdl
5l26UIa97x2i5Z5wxd4XuxV9EQiw9z5SbO4dKva+ZJCqvUyFC95PWNYr9pdg
7w97zYplNDjg3fjy2r6An7F3XQPNyhf3sPfsQAdGAQd71+swLBnQw94DJ1eU
tVth72avKzwWTmDvrXNSPfFN2LtWkZGkqTn2vlPjlPayVOx9+YLd3y8ieB96
XmTp94kM3v84bLmndyQFvFd+bBrlvkgD78/Gf/xcvS4TvJuQD3yrVqaA96U9
4S5MUSp4n07Lao1spYL3wdavjjeiaODdjLLKcZ0cHbz/Z03jtfBSOngPWqUT
+USHAd7dVtSrvSxngPen1h7b3qxngve5cDG5L6lM8O5qln716yQTvB/3mpsv
tM0C72Jy8SvZRVngXaLx9gOPL1ngneLwzdXfkgXeM/6cTlDKZIF3g9MmxnaN
HPCuUjFS26rAA++9nZI2zwTYeyGl4NEVMh+8R789ZULowt59lCW6XWexd9Yd
HfKxeezdKrkqsfwd9t7LpWx1qcXelwj0pwwIfPBu27d2Emnywbvn0/nY2ifY
+/7PgYoxJ3ngfZDR/uunb9j77HZPnaNJ2LvcL29q6qS44P1KrJZvJxl7f5Ts
X+09h70HTQ7o5izJAu+3wsRjrj7A3lu3yF3VPoy9jxGSGlbGYe+fPZ9Mv1lJ
Au95+cTVwyPYe8mlganWcOxd32T39KFm7F3mn6CD9ztd4+Jj7gzwziXV/9T2
/f/9r/c6Fe3er+ZZ4H0De72trjgLvOsyPY0aLrPAe0903jMSYoN3Pflj6wQt
bPBOZHu8uG7CAe9VwRd3XS3lgHf7L55bQpZzwbtFxIlP2ie54F3zo0bQVDMX
vJ/r1P6NtJIH3mv8ysuo7jzw/mjk+avKPB54V5T2rfQc5IF3k2rnkHklPnj3
XVt1a9KFD97j0vQcz6XxwfuPE/Z9k4188N5votB6VD8HvG924zW3SeaC93ur
pZg5e3LBu+PPSy6FeueCdxZSDog4ngveU6sSG6Ldc8H7o4Hs8/57csH7PuUz
4SIqueD9lZzKB+JEDngXq0MdNqk54H2/nH5zmWIOeK/wjrbzL8wG79dEshuH
N2SD90f7FrMP8vjgfSDWmHhRmg/ePRWZ9l4EHniXWLpzbeBrLv6+bzz2zGAv
F7zLf91UvHERC7znd7JrZdLo4H1TW8k9yxHsfaGagPpqfwp4L0m64fmei73b
JHC06PER4L1pgaqZu6YzeK+bNZ3KopihvwD8kDn0
    "], {{{}, {}, 
      {RGBColor[0, 1, 0], 
       LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
         19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
        36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47}]}, 
      {RGBColor[0, 0, 1], 
       LineBox[{48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 
        63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 
        80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94}]}, 
      {RGBColor[0.5, 0, 0.5], 
       LineBox[{95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 
        108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 
        122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 
        136, 137, 138, 139, 140, 141}]}, 
      {RGBColor[1, 0, 0], 
       LineBox[{142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 
        154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 
        168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 
        182, 183, 184, 185, 186, 187, 188}]}, 
      {RGBColor[1, 0.5, 0], 
       LineBox[{189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 
        201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 
        215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 
        229, 230, 231, 232, 233, 234, 235}]}, 
      {RGBColor[0.6, 0.4, 0.2], 
       LineBox[{236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 
        248, 249, 250, 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 
        262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 
        276, 277, 278, 279, 280, 281, 282}]}}, {
      {RGBColor[0, 1, 0], InsetBox["\[FilledSmallCircle]", 1], 
       InsetBox["\[FilledSmallCircle]", 2], 
       InsetBox["\[FilledSmallCircle]", 3], 
       InsetBox["\[FilledSmallCircle]", 4], 
       InsetBox["\[FilledSmallCircle]", 5], 
       InsetBox["\[FilledSmallCircle]", 6], 
       InsetBox["\[FilledSmallCircle]", 7], 
       InsetBox["\[FilledSmallCircle]", 8], 
       InsetBox["\[FilledSmallCircle]", 9], 
       InsetBox["\[FilledSmallCircle]", 10], 
       InsetBox["\[FilledSmallCircle]", 11], 
       InsetBox["\[FilledSmallCircle]", 12], 
       InsetBox["\[FilledSmallCircle]", 13], 
       InsetBox["\[FilledSmallCircle]", 14], 
       InsetBox["\[FilledSmallCircle]", 15], 
       InsetBox["\[FilledSmallCircle]", 16], 
       InsetBox["\[FilledSmallCircle]", 17], 
       InsetBox["\[FilledSmallCircle]", 18], 
       InsetBox["\[FilledSmallCircle]", 19], 
       InsetBox["\[FilledSmallCircle]", 20], 
       InsetBox["\[FilledSmallCircle]", 21], 
       InsetBox["\[FilledSmallCircle]", 22], 
       InsetBox["\[FilledSmallCircle]", 23], 
       InsetBox["\[FilledSmallCircle]", 24], 
       InsetBox["\[FilledSmallCircle]", 25], 
       InsetBox["\[FilledSmallCircle]", 26], 
       InsetBox["\[FilledSmallCircle]", 27], 
       InsetBox["\[FilledSmallCircle]", 28], 
       InsetBox["\[FilledSmallCircle]", 29], 
       InsetBox["\[FilledSmallCircle]", 30], 
       InsetBox["\[FilledSmallCircle]", 31], 
       InsetBox["\[FilledSmallCircle]", 32], 
       InsetBox["\[FilledSmallCircle]", 33], 
       InsetBox["\[FilledSmallCircle]", 34], 
       InsetBox["\[FilledSmallCircle]", 35], 
       InsetBox["\[FilledSmallCircle]", 36], 
       InsetBox["\[FilledSmallCircle]", 37], 
       InsetBox["\[FilledSmallCircle]", 38], 
       InsetBox["\[FilledSmallCircle]", 39], 
       InsetBox["\[FilledSmallCircle]", 40], 
       InsetBox["\[FilledSmallCircle]", 41], 
       InsetBox["\[FilledSmallCircle]", 42], 
       InsetBox["\[FilledSmallCircle]", 43], 
       InsetBox["\[FilledSmallCircle]", 44], 
       InsetBox["\[FilledSmallCircle]", 45], 
       InsetBox["\[FilledSmallCircle]", 46], 
       InsetBox["\[FilledSmallCircle]", 47]}, 
      {RGBColor[0, 0, 1], InsetBox["\[FilledSmallSquare]", 48], 
       InsetBox["\[FilledSmallSquare]", 49], 
       InsetBox["\[FilledSmallSquare]", 50], 
       InsetBox["\[FilledSmallSquare]", 51], 
       InsetBox["\[FilledSmallSquare]", 52], 
       InsetBox["\[FilledSmallSquare]", 53], 
       InsetBox["\[FilledSmallSquare]", 54], 
       InsetBox["\[FilledSmallSquare]", 55], 
       InsetBox["\[FilledSmallSquare]", 56], 
       InsetBox["\[FilledSmallSquare]", 57], 
       InsetBox["\[FilledSmallSquare]", 58], 
       InsetBox["\[FilledSmallSquare]", 59], 
       InsetBox["\[FilledSmallSquare]", 60], 
       InsetBox["\[FilledSmallSquare]", 61], 
       InsetBox["\[FilledSmallSquare]", 62], 
       InsetBox["\[FilledSmallSquare]", 63], 
       InsetBox["\[FilledSmallSquare]", 64], 
       InsetBox["\[FilledSmallSquare]", 65], 
       InsetBox["\[FilledSmallSquare]", 66], 
       InsetBox["\[FilledSmallSquare]", 67], 
       InsetBox["\[FilledSmallSquare]", 68], 
       InsetBox["\[FilledSmallSquare]", 69], 
       InsetBox["\[FilledSmallSquare]", 70], 
       InsetBox["\[FilledSmallSquare]", 71], 
       InsetBox["\[FilledSmallSquare]", 72], 
       InsetBox["\[FilledSmallSquare]", 73], 
       InsetBox["\[FilledSmallSquare]", 74], 
       InsetBox["\[FilledSmallSquare]", 75], 
       InsetBox["\[FilledSmallSquare]", 76], 
       InsetBox["\[FilledSmallSquare]", 77], 
       InsetBox["\[FilledSmallSquare]", 78], 
       InsetBox["\[FilledSmallSquare]", 79], 
       InsetBox["\[FilledSmallSquare]", 80], 
       InsetBox["\[FilledSmallSquare]", 81], 
       InsetBox["\[FilledSmallSquare]", 82], 
       InsetBox["\[FilledSmallSquare]", 83], 
       InsetBox["\[FilledSmallSquare]", 84], 
       InsetBox["\[FilledSmallSquare]", 85], 
       InsetBox["\[FilledSmallSquare]", 86], 
       InsetBox["\[FilledSmallSquare]", 87], 
       InsetBox["\[FilledSmallSquare]", 88], 
       InsetBox["\[FilledSmallSquare]", 89], 
       InsetBox["\[FilledSmallSquare]", 90], 
       InsetBox["\[FilledSmallSquare]", 91], 
       InsetBox["\[FilledSmallSquare]", 92], 
       InsetBox["\[FilledSmallSquare]", 93], 
       InsetBox["\[FilledSmallSquare]", 94]}, 
      {RGBColor[0.5, 0, 0.5], InsetBox["\[FilledDiamond]", 95], 
       InsetBox["\[FilledDiamond]", 96], InsetBox["\[FilledDiamond]", 97], 
       InsetBox["\[FilledDiamond]", 98], InsetBox["\[FilledDiamond]", 99], 
       InsetBox["\[FilledDiamond]", 100], InsetBox["\[FilledDiamond]", 101], 
       InsetBox["\[FilledDiamond]", 102], InsetBox["\[FilledDiamond]", 103], 
       InsetBox["\[FilledDiamond]", 104], InsetBox["\[FilledDiamond]", 105], 
       InsetBox["\[FilledDiamond]", 106], InsetBox["\[FilledDiamond]", 107], 
       InsetBox["\[FilledDiamond]", 108], InsetBox["\[FilledDiamond]", 109], 
       InsetBox["\[FilledDiamond]", 110], InsetBox["\[FilledDiamond]", 111], 
       InsetBox["\[FilledDiamond]", 112], InsetBox["\[FilledDiamond]", 113], 
       InsetBox["\[FilledDiamond]", 114], InsetBox["\[FilledDiamond]", 115], 
       InsetBox["\[FilledDiamond]", 116], InsetBox["\[FilledDiamond]", 117], 
       InsetBox["\[FilledDiamond]", 118], InsetBox["\[FilledDiamond]", 119], 
       InsetBox["\[FilledDiamond]", 120], InsetBox["\[FilledDiamond]", 121], 
       InsetBox["\[FilledDiamond]", 122], InsetBox["\[FilledDiamond]", 123], 
       InsetBox["\[FilledDiamond]", 124], InsetBox["\[FilledDiamond]", 125], 
       InsetBox["\[FilledDiamond]", 126], InsetBox["\[FilledDiamond]", 127], 
       InsetBox["\[FilledDiamond]", 128], InsetBox["\[FilledDiamond]", 129], 
       InsetBox["\[FilledDiamond]", 130], InsetBox["\[FilledDiamond]", 131], 
       InsetBox["\[FilledDiamond]", 132], InsetBox["\[FilledDiamond]", 133], 
       InsetBox["\[FilledDiamond]", 134], InsetBox["\[FilledDiamond]", 135], 
       InsetBox["\[FilledDiamond]", 136], InsetBox["\[FilledDiamond]", 137], 
       InsetBox["\[FilledDiamond]", 138], InsetBox["\[FilledDiamond]", 139], 
       InsetBox["\[FilledDiamond]", 140], 
       InsetBox["\[FilledDiamond]", 141]}, 
      {RGBColor[1, 0, 0], InsetBox["\[EmptySmallCircle]", 142], 
       InsetBox["\[EmptySmallCircle]", 143], 
       InsetBox["\[EmptySmallCircle]", 144], 
       InsetBox["\[EmptySmallCircle]", 145], 
       InsetBox["\[EmptySmallCircle]", 146], 
       InsetBox["\[EmptySmallCircle]", 147], 
       InsetBox["\[EmptySmallCircle]", 148], 
       InsetBox["\[EmptySmallCircle]", 149], 
       InsetBox["\[EmptySmallCircle]", 150], 
       InsetBox["\[EmptySmallCircle]", 151], 
       InsetBox["\[EmptySmallCircle]", 152], 
       InsetBox["\[EmptySmallCircle]", 153], 
       InsetBox["\[EmptySmallCircle]", 154], 
       InsetBox["\[EmptySmallCircle]", 155], 
       InsetBox["\[EmptySmallCircle]", 156], 
       InsetBox["\[EmptySmallCircle]", 157], 
       InsetBox["\[EmptySmallCircle]", 158], 
       InsetBox["\[EmptySmallCircle]", 159], 
       InsetBox["\[EmptySmallCircle]", 160], 
       InsetBox["\[EmptySmallCircle]", 161], 
       InsetBox["\[EmptySmallCircle]", 162], 
       InsetBox["\[EmptySmallCircle]", 163], 
       InsetBox["\[EmptySmallCircle]", 164], 
       InsetBox["\[EmptySmallCircle]", 165], 
       InsetBox["\[EmptySmallCircle]", 166], 
       InsetBox["\[EmptySmallCircle]", 167], 
       InsetBox["\[EmptySmallCircle]", 168], 
       InsetBox["\[EmptySmallCircle]", 169], 
       InsetBox["\[EmptySmallCircle]", 170], 
       InsetBox["\[EmptySmallCircle]", 171], 
       InsetBox["\[EmptySmallCircle]", 172], 
       InsetBox["\[EmptySmallCircle]", 173], 
       InsetBox["\[EmptySmallCircle]", 174], 
       InsetBox["\[EmptySmallCircle]", 175], 
       InsetBox["\[EmptySmallCircle]", 176], 
       InsetBox["\[EmptySmallCircle]", 177], 
       InsetBox["\[EmptySmallCircle]", 178], 
       InsetBox["\[EmptySmallCircle]", 179], 
       InsetBox["\[EmptySmallCircle]", 180], 
       InsetBox["\[EmptySmallCircle]", 181], 
       InsetBox["\[EmptySmallCircle]", 182], 
       InsetBox["\[EmptySmallCircle]", 183], 
       InsetBox["\[EmptySmallCircle]", 184], 
       InsetBox["\[EmptySmallCircle]", 185], 
       InsetBox["\[EmptySmallCircle]", 186], 
       InsetBox["\[EmptySmallCircle]", 187], 
       InsetBox["\[EmptySmallCircle]", 188]}, 
      {RGBColor[1, 0.5, 0], InsetBox["\[EmptySmallSquare]", 189], 
       InsetBox["\[EmptySmallSquare]", 190], 
       InsetBox["\[EmptySmallSquare]", 191], 
       InsetBox["\[EmptySmallSquare]", 192], 
       InsetBox["\[EmptySmallSquare]", 193], 
       InsetBox["\[EmptySmallSquare]", 194], 
       InsetBox["\[EmptySmallSquare]", 195], 
       InsetBox["\[EmptySmallSquare]", 196], 
       InsetBox["\[EmptySmallSquare]", 197], 
       InsetBox["\[EmptySmallSquare]", 198], 
       InsetBox["\[EmptySmallSquare]", 199], 
       InsetBox["\[EmptySmallSquare]", 200], 
       InsetBox["\[EmptySmallSquare]", 201], 
       InsetBox["\[EmptySmallSquare]", 202], 
       InsetBox["\[EmptySmallSquare]", 203], 
       InsetBox["\[EmptySmallSquare]", 204], 
       InsetBox["\[EmptySmallSquare]", 205], 
       InsetBox["\[EmptySmallSquare]", 206], 
       InsetBox["\[EmptySmallSquare]", 207], 
       InsetBox["\[EmptySmallSquare]", 208], 
       InsetBox["\[EmptySmallSquare]", 209], 
       InsetBox["\[EmptySmallSquare]", 210], 
       InsetBox["\[EmptySmallSquare]", 211], 
       InsetBox["\[EmptySmallSquare]", 212], 
       InsetBox["\[EmptySmallSquare]", 213], 
       InsetBox["\[EmptySmallSquare]", 214], 
       InsetBox["\[EmptySmallSquare]", 215], 
       InsetBox["\[EmptySmallSquare]", 216], 
       InsetBox["\[EmptySmallSquare]", 217], 
       InsetBox["\[EmptySmallSquare]", 218], 
       InsetBox["\[EmptySmallSquare]", 219], 
       InsetBox["\[EmptySmallSquare]", 220], 
       InsetBox["\[EmptySmallSquare]", 221], 
       InsetBox["\[EmptySmallSquare]", 222], 
       InsetBox["\[EmptySmallSquare]", 223], 
       InsetBox["\[EmptySmallSquare]", 224], 
       InsetBox["\[EmptySmallSquare]", 225], 
       InsetBox["\[EmptySmallSquare]", 226], 
       InsetBox["\[EmptySmallSquare]", 227], 
       InsetBox["\[EmptySmallSquare]", 228], 
       InsetBox["\[EmptySmallSquare]", 229], 
       InsetBox["\[EmptySmallSquare]", 230], 
       InsetBox["\[EmptySmallSquare]", 231], 
       InsetBox["\[EmptySmallSquare]", 232], 
       InsetBox["\[EmptySmallSquare]", 233], 
       InsetBox["\[EmptySmallSquare]", 234], 
       InsetBox["\[EmptySmallSquare]", 235]}, 
      {RGBColor[0.6, 0.4, 0.2], InsetBox["\[EmptyDiamond]", 236], 
       InsetBox["\[EmptyDiamond]", 237], InsetBox["\[EmptyDiamond]", 238], 
       InsetBox["\[EmptyDiamond]", 239], InsetBox["\[EmptyDiamond]", 240], 
       InsetBox["\[EmptyDiamond]", 241], InsetBox["\[EmptyDiamond]", 242], 
       InsetBox["\[EmptyDiamond]", 243], InsetBox["\[EmptyDiamond]", 244], 
       InsetBox["\[EmptyDiamond]", 245], InsetBox["\[EmptyDiamond]", 246], 
       InsetBox["\[EmptyDiamond]", 247], InsetBox["\[EmptyDiamond]", 248], 
       InsetBox["\[EmptyDiamond]", 249], InsetBox["\[EmptyDiamond]", 250], 
       InsetBox["\[EmptyDiamond]", 251], InsetBox["\[EmptyDiamond]", 252], 
       InsetBox["\[EmptyDiamond]", 253], InsetBox["\[EmptyDiamond]", 254], 
       InsetBox["\[EmptyDiamond]", 255], InsetBox["\[EmptyDiamond]", 256], 
       InsetBox["\[EmptyDiamond]", 257], InsetBox["\[EmptyDiamond]", 258], 
       InsetBox["\[EmptyDiamond]", 259], InsetBox["\[EmptyDiamond]", 260], 
       InsetBox["\[EmptyDiamond]", 261], InsetBox["\[EmptyDiamond]", 262], 
       InsetBox["\[EmptyDiamond]", 263], InsetBox["\[EmptyDiamond]", 264], 
       InsetBox["\[EmptyDiamond]", 265], InsetBox["\[EmptyDiamond]", 266], 
       InsetBox["\[EmptyDiamond]", 267], InsetBox["\[EmptyDiamond]", 268], 
       InsetBox["\[EmptyDiamond]", 269], InsetBox["\[EmptyDiamond]", 270], 
       InsetBox["\[EmptyDiamond]", 271], InsetBox["\[EmptyDiamond]", 272], 
       InsetBox["\[EmptyDiamond]", 273], InsetBox["\[EmptyDiamond]", 274], 
       InsetBox["\[EmptyDiamond]", 275], InsetBox["\[EmptyDiamond]", 276], 
       InsetBox["\[EmptyDiamond]", 277], InsetBox["\[EmptyDiamond]", 278], 
       InsetBox["\[EmptyDiamond]", 279], InsetBox["\[EmptyDiamond]", 280], 
       InsetBox["\[EmptyDiamond]", 281], 
       InsetBox["\[EmptyDiamond]", 282]}, {}}}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  ImageSize->Automatic,
  Method->{},
  PlotRange->{{0, 0.056}, {0, 0.03203932686358185}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.0011200000000000001`, 0.0011200000000000001`}, {
   0.0006407865372716371, 0.0006407865372716371}}]], "Output",
 CellChangeTimes->{3.57625358578067*^9, 
  3.576253655456414*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztvQVYVFsXNz7SJYit2HmNa147UMTu7u7uDkosDOzEQEVRDAQFRFKwGzGQ
7pKSnlj/+Z2AM8PAfe/1fs/zPc//u++LzJw57LP22it+K/aekXM3LFm4cu6G
pfPnNhq8bu6aJUvnr280aPU6+SX1SiJRpSUikSiikQivSf6S+4fk/6el+AdX
VL8exfyqrlNQULB7+/bt411cXGy3bdtm8OvXL3zS7MePH/EmJiaVZDJZefeo
SySSEW5ubnhoPz8/P7xvzgxr/DvDtvry5UtinTp1RGrhTZs2Fanj/hbfv39n
Rm72+2RrFRUVfWvZsiU+W3ju3DmT+Ph4lmzDfzusBvPn6hz3GTaLmv8+pWsP
Hz789Y8//gCVeK2Xl5fXSLh8hmuOHDky8sGDB3iHJbDeuXMnXqtJpVLwEa9V
3aPGEoyHlxDd4r8YUrNXUFBQ34CAALzD8K1DQ0M5Xvzm0BpYOLyqnZSU5G1u
bv6bo1awaP92SLw2zsjIwILidZdXr15dmjNnjsKiaQb07du3ZkpKCt5hST+3
adNGpFHBZ+rlUvqvxxrl6ura6e3bt4KV/+djcRysnJOTU6ypqSlQ0Iru11L1
Wb24uDhNZoLqjaKiokqm2fT3SIPI5Orr6zPvGiqsQlLt2rU1xGIx/6ifVatW
5YdU+VkFq/CPx+LIO7h+/fo6iYmJvzUWRxdvROLq1av3P4ylp+ozWPCVx44d
g+LiGuba8vem2CcwMDBPT09PxQqkVa9evbwhVX5WwQr847E48jq8f//+6owZ
M35rLI4uc29v7w/t27cfff/+/f9hLD2Vn8l/N4iJiYF+Kq3APyaLM5u6+fn5
k5ydneFTzy5atEjRGD3v3r07L4L6ubm5Qs1S+VkFi1DBWNoqP5O/huJzlKpr
FxYWlmjr349Z0WfqTcPDwy/OnTtXaJT+8VgcXUMfPXqERWHm3PJvx9Ivb651
ExISirS0tOD3oaqYr0hxOdYdOnRo3J07d/BuwJMnTywsLS15ElV+xpGoWVxc
rOTJKxpLX+VnxIKvYQ8fPsTrqU5OTiD1d8aDJQH78Lp+bGxsoba2Nr+0/3iu
nOjNc3Bw+AdzrZBvW/fs2cNbO1FjhaXA6vCozGrXrl3QI25IXZWfcdOF6r7p
3LkzLykVjKP6M05vl5w+fRrmJLZ+/fpDPDw8WvzecKb+/v7AIoC+mHXzfzkc
twhGWVlZ0Q0bNhQuwr8lDfApoW7duhA2x5kzZ3IqwdiWIezjeAYzPw0En3Ph
jAnzS0sO0EjuCJkfSAh+y9eEBEPxt8ojF2YQKg2dqG1IyP9666qjIT7Mrf1Z
AqsUZBaUEKjxt39uvzrkPHNv31LCdQvy6azbctfoIw3tWyV9yQDh3Ei1eV8g
Giti/uOGbhIRQRaWdrlvOtvdwOW7Y+2Cq6Wnky5LlEhopHVUXPt/9/3/7z4W
p+toSoulWWHjOpDrxM7Mxw8m/EWfzFvkWFe1bZ/8IZnVc07XmBG6P6fn/9fN
5v/d93/XfZx0Dfvh9ZU8J7YhK7VdzMeWlSzIc7z8vdZ2F+fxzpx01Wd+aXR6
S29xV6E2aR9eS2u7qRi4q4prv3NfXeZfPd5uj4r+EJDyen53OipaRZYiSzou
WkkvBrWOsh+1QVtSKFEgWPPTn/QnMxj3vzH36J7KJ//XVNdi/jWAu+jxPP99
xrTlM2Xrm6y+svrLpv6+Mj+J08r2dKPZEPJVMyU3g0H5N2YNqJWaLNVQoL5Y
kzSF1G/dQ3tYb8o+Un+k2wMZ3TCdQp+GNiPXaW3p9bBWsnur29DnDTWKHq9o
8yDh9Jwkr9UDrGU+FtyK82N7DJE7T8F/XV/SS3Zsdor6sDuBR/vcps9mLehU
l1EMs092GkvvB7YI8ly6XlsiLjryzPmQQXFhnkhLQUxqpFIqxswyEled5EzO
ApJ1BkQ+iZRaae0izwmM0DHDckLnenOCIyurnDnTwCjFmmLdPD3Sg8AJCNTR
y6O8yJXr1lHwsNZ0QrSCl4as95M6z/321E1hJAU+lkgCM9xf7HDtPtLH0NbU
Os1y7EpyntGTPg9tTrHm9XO/jm8X9OLQVL0Khytdmk6svFaSkWzVUTqaUqvY
JMdnoBndWdoqyn3t8GveR20vua+6fuCFy1F1mVRa/rBSNVIrXZWO7LBgrftw
Gv6xV/ggScjw5nR98Z8uz45sxKfCFdEXDMtKpjpWokQ+mX/bMy+1Bj6mxwl1
qe7Drdd20NfptenKog4rwr1vVCmzFNmGhTWKtEirZCnYEbS1iqjIbgNtiDch
E9+ri/fQ2yV1pVcXdeqWFvVJZPw/rsOf7FjNwyjs9V/014ORkjEx3mazyW9F
o5ybS3vVzctMFVVlx6rHklSJZHTUY5UHM6ZxhLEaBkSsgLUQTrQ1O/ScS3Qp
rTpV33Io8XzhR9OO5LqsZaj71vF64qICUTV2aBaw6ajJpDIH13muECpm+HUm
66j61+r8ogiG1THKoqwbU2jK5zbUZoWbe6Asekxtclr8p+Oz89vlJMqqsyOz
hkwXenXz9uTbrOBzo+P1xpobixp8aADeslS3YqnuGUzBUY2o0amltPTUw813
KWpeVZl8iRaHBd4W1RSOrQHlklipW/FjcytPk8ZPUuQ1GwjoqEtIstOarJNr
Ua0x92T3P7oP3Eafl9cUX1ncpW9S2NtaQp7oTgi9HVpko2WjQPXUkVNJo1BD
UQfYmEWnfizFBvSlvj5mZNbmS0Z8zosu5hS8on7GjVWmjXPSEmoLV1NncLhn
eJ6tni2G/rlw3ApSE6sJ9YAZmc0Q6Iy7Q3dANB5pGvI0VRpt1pAeLmv+3s1q
slFR/q86Qnuk1TvmaQxGnXHdM+XrH/THj2bUrMQusZlLXViTs4toUXhTaoqn
7fLa85xSJ1eR3Vz855WgSzugqxybhaK8+fDj5yBErEEapSvXhKWy/Qf68KUV
tbo2naYbZcmyA26PPEaJiw0lVxZ3Xv3Z53o94XDMWsU0zGrLCDEnyuyKCUWZ
nZIuzMtqe7JPrUE1ZjqSo0HuL0rz7jSFvq+uVnhlabdBcaHPuekLx5eoSzWF
45dVFZYmXdiZR0Np6Muu1LVpOIV3CHufK/7WtQ29WmGS5rTWrE1GQgQf3wmN
TFnDxS5FZUAH8J635LzR2bOVtmoWU/EK75PfKH2YscxrafP3rtaTqxf8yuTz
kJyAaJBYvJEOHMCDHgZN2uY+WjxcVokqKVgk9nEGcPxCM5NejaqZ+ZAPPnW9
MfkGZc/SFbssbufkd2Er7CYXyorq/k4d6J/Uh7gyzHo6eLAlffuGOVnf2/k2
cZ99HZaLqha/BuuagSqKNQsqk6hAh3SSjfDbZodsJ6LouDsdV1HqCoOiq0u6
bH//8IKoCT+z3ymW/JMiCjeznWRtDeuHmVmetEiV7Nijzs+srNixM9Mb+cBN
RpXkr4eKPGid5kEyFmWsO/b4XdHLtr0pcq1x7pUVPcdFvvNpyk2qoqKCvsrP
5K8r+BtdhUKE/Gc12dv/QV+/YhYnry57FnryRGt+Fk5TaariLFhLr1c3gRLe
dXqwsww0C5vQQvZuVd20a+v6d06L/tKMn0UFiXkdlZ/Jf/PXuQQZf5n5Ya/p
KeT0oaMkkaylw4cxGa/AQbtrpUqTfxmQQbnyxo6oN/EW3UqpU1wnen2fQ2Xg
4EfzFmHXl80yyc1Mac7Pp4IUuE552XT+Oku7tnA+yplxdijG/pZrx1jwog/f
fHUGzfjWklouf/TkUXnQ8+GNcZe49JiowqSxcXlJ43+UTGbHYjDV+SMLPuMd
ADk3m1IDqjgbg/6+5BvdkBqeXEbL4LBw9da1DY70bLgCBM74MJmBwCUT+jcp
4f85HcsGFtqYzMWDcz+z99MTiToxMwFcFc5CQ7uQCg+up/VAi4M9yZNb8aWu
p+Jl8T1MKGBxU/o8rBnAd1r0jHb+b45N5XK0ogpzl/rlZXv/SU5TsDLXj0x7
jXfwJeWqiAHz0hCuPqQttb01kSZWS6d0zrDSg5NjPahgrI743fIGKVc3mHu4
7dkkhP/cvFivpZg9VSul5PbxCf54h4CwXBPKqrmGmpSkm/bT/pSaVBPIgB1G
1zgzgxIu/rGDxIs0sp+s6PjRxXpyg18/kxTCuD+E/rYkScv4273DAvHaY4hs
aLnmj424NBpFURRgn29/6t8wmqJZCrS6v3teWBzQzIzy12ml3Ftneufx6Y36
4sL8tsKHqvNJWAZOqLGgok9gSEa2IRlWjIy02acD5GPu6w/SQfCCe/oWp73R
sviuJrK0dQapTuvMbF7fPwX39GcFT2deqSPZDMZXjJtYJdConkZpLuNp/If2
1L5tCIVwT5cbNvI5NMid8kfpFoWvqvvzytr+k8Nfe7X/u6dr4enBPaknD2QA
eErQMBt2awx7SA+BpfZtps1QLu6htVKSKe184y0kXaCe/mpth/hrm4b8lRod
2uF/mjKAa8UM5wQUhuj0EloS0YSa9AmkQDYDozUg6Em+5GmjflS8ViPCe+vA
V3f3zEQM11H4dG0kxjfY2TFPTxhT9wVeIzHOpD7KFfVK7JO7vaAXYc2p+cW5
NNcwm7K5J+89vyVCltDZRPpro274ve0jnHzOb9MVFxeykbkQvX+zb3maH5lJ
iJRrgEUaGmISW1qQRWIdqjP2Lt1lH6YNpXhp2+MeFYzQLUxaWyPp+oaB2989
dGCgT2fBE1mAzKwYwPXjgTQQa8mn0rintPhO34G5YTRrJROX3dVqHB0pyzpn
soEkc9UTv21sl+K43nxs1DvfLsIpMU+IO1rvgMB8aCoDYWYZJexnCCKWnaST
CCIWnaWzeM/VjbTGet3NlT6tZ0rStWofX1oNi76+dUSH9NjvXcs8Me1odWvh
ExEKCZ/ILF8hyy1hFIBoCyHGsx7Uo9kP+sE9WRvllFNHl36XJXasKy3apPXK
e8/k4Pv759bMz/nJ5dr4RBMSACBBaqNm2SQjIoOjIKcyVRZSsPEAHeAo0FLm
x/VpNA1Lyz1cDtkpxKrdbSoYolOQtaHqlzsW4y77XbKAmRR1F4qujoXMz/LD
97UTmVA40KxvdvDIIX+kfU2ryFCz1l2TNycKLOIY3/prqPTXuZprSTJbPTZ+
258J1zYN3vDRy7En+3AuFkcW4dPn5VMUYvEnvc1T7GraoSrASLMqQ53HPmXC
bboN0eMp4CWeMx2z717OkQab9JFJ16oHf9s/Si5vA4fHfHraS0iEOpPL8+1n
xhDByrcGXiNxDBnPMCZjVY4zh/nXqGYKpThPoknfW1CL4e7kfmUWzQoakDmA
T1SpSyR0bc/0z7LEP+tKJZs1Hr08vvDHjR1jmNizt3AtdG+knFqJ1ISQFQ+c
RjohI8yvh0pzks2SgkcijD+0jtbp50rzUeI74b7cgy/xVU9Lo7CdLW9QwUDd
/ILNhn5eh+b7uR1cxESpfRRIsSQ/i1sZZxczpASZ9/78efkkg7xfUoh1iZ1R
tTKZrARC6+FBoCY9ntEzXGXyvKNFrnL7BFZr0zrRoSILg70kmakelWHROvS2
xYSzgVdtNaUSsaivUEV0R7B9nyL5Qz3ldlPGl095OwT8rzLg/MlyZqoTOYEz
BzbSRt18YgQYwhfzYuZEijRrTJHmDSnCrAn5mfajvTpbX4Rsnp54dePglSG+
N0X9hKRojXa/L2ZIsRLtwgxIQyQGKRXZDZYKDTDl3hgaA6cEq8/qii4EUPbD
tBmdqDqP7M1H0vGac+l77xbgUqFdixUD4768EPVXIMIhdN5BNgcpQp4qjFaL
7AVEqDQd6SwR06/RNSCLvVtoi04BFXC4NzF8Rney6zKVkbuDnaZRSP/m+TYN
t7f9GRslMlN4+LVv061LHo6fraI9goerNAup7MPrJFKi6ygahSQjFJV1/dpT
H9zKJs9JbWTnGi2UWarL0X+lldKHk9p3jv6WIBqg8HDr9J32IsF/d5+MPQFX
yz0ccil8OCObKezDZ12hK3AStttoGwAGO3NdKOhZq0XxssBO7WVR66ukilfU
LkyZViMncUpTx4Qby2aGPX+oSIQmQlA8XJZauebJ78vs1Ugq5VsVII4Vwrx4
lhqTeIp3G0EjYMo7v6E3LCt0a6Sm0rdVLb1kWZ2qiKVbtfz8j8xKu7JuwIKv
T+8B6e58635eZM5S83t5HlUN1bheQcsx46XCGzWXB1R8wKRa4BPYOfKpapsd
tAPZdXaOev0DfKUFBwx2kniE5k/Jrhp2H+7aJVzdNOSK30WLZtkpsftf3GHC
Cn6a/2njMScoKocUTFMW16TB8gsnCvhpqlSpOHaa9eIoDhgAcLnjO3rHTlMf
ttLq8K5MqU8Vc5lkoUZw0dG+t3zObXp913ZmvdyMFIWgZSA313/bY6tbMkHu
p4JxmGiM7lQZ/9O6qj0Qh4ZqzQ3qRb1EMaUoa54DOWA5ASCxnFzBTMcoK4te
LOv2VhbfpJ5EulnzSM79TW/v7J5+1ddhp46kuGgoP7d/2W2qpTw3xayRlkLW
CGIhk8rYOIBx6fGHTA7xkIYP/YV2QqWWRrCcQvLfczANft+BOiA6ZsMz7Y7v
31HmZuMzsvzeugXSHXqrkgIdIMGAOKLh/HT/ZWtnmekqJpU0hdOFE3O+Nek2
GwmINIGa+M9giYCIVEKGH6XLuvAcncOyooaCJLaIm+SK88cLxNf1Z8rEkzUj
pHuabf7y+EKy44aBg+M+PxON4Cf5L1s6y8hrRS2RDESzVLMqBWciTcAz4d8j
vORXkg8vBTPVQAyPcOVtJ+qEKik7SR25apD7iuGR0s81/5RIVmvekjhOPvf0
qk3oLYuJsEUj+Xn+J72SahXcz/mPvY5bQnkAyEuw39l+JSCQH4OPbBVCoq/s
pJTLFEtO02nUDrbvpt0IE7i5Nw8Lo8TFdVxlmW2Mi6XbtDYU+B/xf3Bw4QPP
E2srFxfkjeLn/tvNiezcKmrx0yqBeNtFtgwIGS9yaf/pg7Qi28ROt0w0hMoY
0hZsF4nONOfr4iI7nW2y4kFamVKLqlPT3t2Pcto6EskTNZlMOloBYJTQ0UAU
w8NNoBuN/9FwfFZNL1jPKZaOXCTo4sa56RJ/QzOpZK7mK+nRrgvCg10Qn0yI
ePtkrAJBRzPuWDAExQ2rJ3k2sI9XsK0lEI9GKd6AlgsJUtD0EHaYDu/pfZYR
GSnHSpwNN4mPp7CZzV9I4xuYiKUbtQ7L3NfufXnveKTTtpHt0+O+jxPSpOlB
exT6Ltxo3wjOGyhAsJIUBEuEPDClX4hOkmpT7ZXH6BiCJX9TMmWCJY6SIV4e
svwNuidkBV10C2Q79KYWfXB29zi+2tft0GJEKuMVKHlCVgNAQZF4hJ50kpqL
J9kM5kZiOjgcZ9JMrAVUgCVCY5QruSL/fGkOzUGmixUTXSQKD1huzJPc1J4u
lYzVjJXtaTAw63vgN+ed444F3zigIZVKRBOED9d+SPuG4eFi16bjZPaV1gTk
bhvKN4FyRKifX0ALUONk3n0oBQwIBKCjpv7kz6YcdYD9Xk//65s0tGpbsWS5
tpvs0sixse99YHSB/yYpPNyafHYychFrXp8izJuQV79BVF2UxsRF3MMHeZEX
oyl4947lGAzAmiN0BFAYJp/x5BwF3Z8/p+x5hrdlmc2Ni6TbdDZS4IHN7z0v
x13bPLRncvjHySwFXNKNbwJg85usqaKNIrvxQS6sE9LkTSAV42mAvCJ2E5DG
X6/pNUyxtzmZo1mClWZDYUttrazkAp6bWw7tLSo+rLVRWtxPO1tmaWQujvBB
Rgz5OBRtpigQxncQCPyF+uPzA0v9BUeYwzyah/YW5t0rljCk4I6tpJXIkCFW
YjlZmUkw8jW9NSJ71PSCRvdKEz816CcRz9D+KLNv3/lX3Cch7hFNVVgwdB4I
lYbtPBA5dfr4VsKZBmbBAvsQG4yz/ksDhau4elQPqSbjDMpgb9Uf436vmC6L
5pC/yJS8RINpg8hO6lZ1ZJF0ve5Zureof9K3V4hh1330viaazlLCJry02Ker
M90VcavruWyy2y+FSdFWXC9EayK2CZNJhyOdB1vbK4iCWKVh+qsyYsZ0oNdm
f5G/eV96ZdaFwkyby/bqbt2afOvi4i8BdyC+TAw7Q0gEA1iKMv6qJftQqdNj
j4EHURjnm/wUFiaoVG4376N9gCr4zUAV9n49JoSONG1Cu6uuZ0Jo25prKLx3
U0ww4mQXa96bzyzDhvzCZcbS52o9720fE7Kh2M4ewsZ1Hw7xII+StXjKsgFt
LGDBw2E0rHEkRbIlVt0O79+T+OWgLiU1xVOdxtKH/n9k2LXc/sDz6Hp4U9Gs
smsgFChr0U6ork7pGsBlM2sQwD68SiZlQgggDBAKtmqju/q4vbRgg4E9Bc1s
KE7pXEf6VMOUPCoNkbrM7HLg+e1jTBJ3toIo7iJ/RjnI02wIsn70wrQ73RGN
G/nsQRq/BshHrzhOx5l3fiwF067TdSgGFARFSXb6elUyM8lz8uDMovs6k6QR
o2oWRW+reY3uTH8af3BM8esZHfy+nxqPMHqOkAgdC5mvtYI+IOdhJbL4ubcq
k/0TLAN8BPPOh6UDmVZYjncdqWOXV/SK5YQezFfa0OqvJGGGfxRIFusH0rm+
Nu/dTjj4X7EOv7F9NJArAui5Ci7kYsaldSX6yKXdeOSlgDK1FJemdhIlibzZ
MWBEd9iQDdQGxhXCKmK5w7RPbttnK18jnWPSX40Nc2U7DCzJ16JWQXa6j9uh
JaAMhXQ+7FWgTmcHBXAJQbUS6vDb8/JgBhNy5SpkVZDh4iGfu2ok2DeAAvD+
/mgajdiGZZyBPFCkwNF9MgrlCygu7qf7U7a7Wn+K8kWhBTnz3a/un9QVFxfw
4eo8BRKRLASJaRlbm9Mz8x7k36+f+8XhLnzCkCVRE+1fZRCrm2oIBz7CT1dm
RdzMx4cyBhu/lIRVbpUvnl/5JZ3uakI58fO+BbkCNY2Jeu8nWiTUL6aQG/vF
dJDc866m86IFpCkqLkkb6qoGaQxuclP9mQW4z8kZCmF7dm6V5G/RPSr51dAo
V7bd4AB5bdSTFuWfenp97xdniwktM5OjF5eh6IXf4s2MxtuKtiNvpkyRSvD0
gOURFAGJTuXPOSWsHxtLr4f8lV7gijXspZtJu6sMpzB3lKtQeUClEnZoSRmi
Yk50PFAi/A9Fw0pQhG4pjro7lsaCJTOu0lVX9k9bh1Io6AXcnn2ZLiuAOY4o
eQRA2YMMX4i/67fOFc8xek8nOzSgrJheSeEfACq2vXvEFJmWKggUvIqCZUB7
NAjjwAU7uPqdcTQOlR/m3V2WgbCRR1fRKngJFE8ZdMNKkZ48/KDja1aI87br
HZbkmBjlSLcZnST3ZdokKVwW6ncr6eqGQTARy4XEMOlZhgjkh2PMGlC4WVPy
M+0PbrlfGe7MgD22bK2OTQtgB0q2IpdSvwUqgXnR8gDIKTJkKWr24weF9Gub
lv9Ad1JxcXe9bLIxmkiht4AeLvldtnzvYjMVPYYrWIr+zyT8VDV2cW0uDLi1
0bQSmkZAFnnwIYGEcAsBiDnehdgJ32KFBtKKTmRICCTFiJ3xVCcnyhlSOVjy
XbdVrnimUSgda92cfoYht/nmju2Maz4OO9DJupKb8f+J3J+qfi+RYMaW4Reu
yqw1LJgZO/WeSmoiKa+o3IxH36f7z7sTW0u7yc6Y1wfMGrPnZowMw6WFc4p/
7TSQS10t4yzpNuNLdG+ODokLBsR/fYm80eqQJ06ruRn/Nzv2VW1JVy+dYl+K
DMh9/0dvchcNp9DeramGKFVpipBhFLV6P6WnIif28ZBdyDBkGTLNuDlunvjT
sJ7NU/PdIMudGVmeQ+8vQb2RF8M8+yaGvV3Dz/M/2ROvauO3YJ4vyLKbJHRc
O9Sw6GW/rnKPM4Y3b6wxV0f6C+6QeXe11J3DeqBQgiYfWBUR2/ijJ1cTyh2i
Hyj+rtMmRzzNOJyONG1LKSHwizefnNv64t7e2QhJ1vLz/E92npezvbq0h0x+
/xPRgF9WBnam3/yTOU+ljmIXFqvlN/omcmTHQN0fRgomHUCKZZpxeaGXYXY2
3Zo2sTjbyvCgWC6/GdKt1Zzo9lQDKvoFTP3pttXkcwFXdzPF5XX8pP+rtGAF
jWfMAks91YYKm8YYNyF/jXCPNfvqwGXnFtJC5t0llgdI0/v1o34AkP38yI9l
l5GqKG/yzZsU06VBslyuJxYXd9CXy7Xhcnp1An8xLCYkCOHN/K9B90Ub+Ln/
J6lCTghU9Kgx876TdmJhiUeSB1wAznwwWblUWZHxwVrz+E90nv0MYQWCLHSv
Ia3POCz27wz5Om2J0V8nOpQ/RNdf/F27dbZ4UtVYOlj/L0p4DcUGmo65vmV4
15Sozxv5+f92upArU6juatNhg3qxOO+d3H75iswoTB437BDtpmqidOg161s1
AdHLwM0z7GdQC2TkADN3b6ftyEtxPtmwZMuQv2k/pjYMDoPTgf36ZCbOa+1K
TqOqUEGmYVFBrqvnybXImKKrYxM7/fKb4HRBOFqlw/1mzKfpousU3LsneYiG
gMHj/V3SGCTBLZ7Kstop9jMk7VHRRhILBc4GMRTDWafKfKqcfvRtJtcHVi+O
yfVCHlx9dO6/uxKRrHVGYgSyWoef3TrEZLU2CyEhQ6alzMIq6VKnLSVOX25b
2P0dXHqHI1MlXmVzXVrKsQeuAiCpMY5TvWSDJ364RlfYHN8V/UMpom8T5nFW
mjvwOythZCsEO+Mj3/oA70/98cpTtFVANd+4z5t5uRXgQziFxA/r2xhEi80u
aLpHLoFNNOgoRyGI/tGShjommM6WXfTbffxI3/5q+evn2apbZL/MDGVnasxB
1uGF65itbrL9I/e+vHscQR3ypqJtZXiL6vH75CFDKKCSKbP8UF1hLoh1qOrA
1C+6UTdGNzmeKkcl6E6E8LKUMaEmms+yehp9LgzW7p9f3KlyYZ6FQc6zpW0S
Mme1jnqzsUdMiM1fjx4dW1m1MDd7exnikBl4SFeHSWKHspKPxoSdImuqKUr5
89Mn4okDO572pt7wnqIjLHGVcygHiEFZIDjiEKD4m5sWp26vcbYoRb9ekniB
SazYruG155c3a0nFxWjMirixbdSze/vmGBfmZe8oQxwyBpEfW40pEWxegeRS
OcfjUjInRuqo7yAYZnpYDzLXtJGuQLoTKn97Ak2Ayy+JVlgKK8PU/2xTNTHH
tfL0ouJ6Bkky6zo3yGXKlOjXHiOjPwbMCHvxEEECwk1AGaY1QIFMRg6RUJD5
qfXnJFBDqECQRnYvmTp0Atlh5t1+HppSBsqroPLybJqNTjoR25BviDLrtRnT
ZakzangVfdFqn1E8sEYG7TWeR+8ccAccMMBHmPOOsX9kJkXx7QI7y/AROYUb
STNW00m15Qwfn8n5CMfJSyBLoSZyoeAjDE2JFtuyn1X9ST9R10egBU+C/TUi
dgOEkRyNUVzretmp52psK8ytUjVauqnxRzrV7g9KY0o2CGlQBb/mc2GH3QsX
e2HRXyQkl1VrbVnyxNoUY96QfvRrxtSH5Ja+85s3bJ6dozW2PtUvY+6tSz0h
uj7gEpBAQzKTo7UKijF7t2yhjD7GIQVPdczzi1saptCemkfJYxUCQ9yFpjGs
O4JEntN8KmSXkLt6IgF8SYzY0kvyUGOUMEHLY0+OaJUJCEv2MzSW7d9Em0A0
MDdj5dmdcgbywIfed+1QHG9pcq4wUbdRnHh6wxQ6UHMkfWeCIDByz8t7J1Dm
Qg7HpgyR0PM9Mu9txSljTJjkra88ooWf4NQJRt64AhvPTlsTLU0AyJACJAWZ
FD9LZGWszvITJyijrXFC1n2j2YVFNQwiZVZNfOlyfyRvcFet/OyfKOygwFOt
IDdLtLsMpRBWJr/rV6m/MAHGa5T3OXNOozRh1pGFQAQG6M5s4d1RiniOrKE1
YCfkmEmsslsDK9dKTqZHw4bK4ueZeBZ91uqUXtyrVjrtrbadAnerkUyKu/ok
hb0D0oFGoWrI6YEypXj3JWmgGZ2otJKhlMeks0WXJ969JWF1WR3dV0hgYu8i
58g0wTvwEBRiHyp4y57FITJAHiWlec3spPO1dxTkGFT/LlnzRzQdadiTYoMZ
+CTHYkj0I+FvHv/l5V6VxAHafLxjZim3KS0os3cV+ir6g2xEO3n7yREHotD0
gIXlsIEmkoWQQiw0iGdYyxJXWY7h6dzChZRsXutTvr/ukDxxQ6No2tfwNt2a
AKSEu4CW7nmdWv/s/r65iI5E+4QU6jOYg/wsPhUc7kJZ86tQ0ny5xs9tSM9N
uzMiKV9onzNmbLKFJVMLFggbHbfspb1CnMEGXppQ8jOLaTHfgMQ4AxadaXd9
+ZLCWzctirBtcj4/XrdZlHhcs5+0r+pCenuOD7XgjsJu7hgLlISWxP1l7JKO
V+roGTIrdUsFlDRLdIVPj9QodUc8nlNZM2YzlxrKgIlLV6DOcGE+zYclhm+A
j+AmooNM5E5ra0pvVy0+826VuQWFVQxDZFZ/fqJTf7am1FAuspjzPfgB4pSJ
EW+8RXZlOI9XkI+tZLcn783QvvL5WJX4BPQ48glBVrM1sSmmjNli84q6yhhq
6Sk6hVIC9BGRGPwwtwW1ctPwcHrWq4csfFlTz4KPOl3TizvUSqT9dU7Sw2VI
j+AupMIc/K9Yhdy2nIScKufPOfINhOTrSAuKJR/rdqQIURNK711NbnQHkbXc
1MnFe6qvUzKEp0YFNo2dgbayUUbrF2YIeMN5jcrlBctzL16k9KbVsuIc6u3K
y9avHSJZ2h6GeTR9u88LFrwdEnsoEyLVdUjlhP5OG2iSyLlUxkpMH6oz2CbG
sJnNP2sh2vnYjtrxE0J7DMrO3PEOqoJeb3Nzihzd+GOer97wPHEtw890oI0/
XTKtR9lxnEwBBEGmUOLjEKDyHPiFiU3p2UlmVUlRT+QGkdcTlhANYEr71bT6
VRfqAuVmkZE2uiOxNQON2MC7QG1A5gxyY01QFSZmHSe6S49FAxl/6yoaFb/J
5GperF7LCPGQFim0vyZcnjrJmJwnwh7sXgLehIO0L5d+YM7kj00HUrCoJzNy
VO9G9Eg0FEJFtUXJAMWsMmph5woaxbBvTKjHM0vt1drDdBgaArsFNAqnzvah
65XEneGmTRmPjLrcK7MusvB+TUOSFg+Eue9NMU85KaqTl5UW6Gq3gPecbAjD
Ja0rt/2ZEC7MoDOQ9HGlgfRU1JuZRWTvxuRZKklj7t3jDylRh43hu+pVmiu2
C0AbbgKbdrBbLLMKVcEGcUyd2YDB0sFU4mUWlawosm/jkhaB8N5N4527rTWm
ggxeJ/onfHsdf23TUH7TyTF2Nmw936h2XnY6SlCYCfxvo5z0BD+63C+reEN1
iltQj+Lm16eoOY0Zudou2i0XqGSUjBhvUbcCm8XORAvY1Xon7QSGfNOZOqNZ
BArUkAXe6Mu4MWUKZQ6r8ozC+rYQ5ptyYke25luzQDi6JeCEMaET7CTY9a0C
Vbd77mKPUIcJA+UYDaB3d9GTXRayPVbie/UnMuIb17s+fRG14i0XhAxKUres
5Srpc5tQqujoWUBmCxEEhE/uCj6xR80ZIveeUrem5PWuvx7mvdIzLUobUkfm
rT6IfDVNQz+0m7pd5s+AmipFeTnoAXvqemA+fDVbYBH9pwct1+YPWi7vfhyR
g5iLSVBw+oiYyyXs8qKBkY9/0PdKLeiVqAtTNT7OAVeBXeRO3OHtIg7jQLIL
QRUCZmVfy/b5aaEtBRHCz6pUFTV+lNnRK85y0KhuQgLdHz2aono1Soi/brLx
V7ZB3WDJnL6/yNYgPMa6W8b9FX0dU5yXwnh3Sov5CvPC4wcue/PbJQ09VYce
l3+70cYPXldaZCUzZ0dAcaBAPFJNT+3aSmKtYaWAqTkFYqJ9bouSfi7lol0K
HMNeNVVbLQazHATDla0ctpKzO/iNSpxkrWqS59bdPfJe6PXPLK5V3ZuOmYfR
seYj8r55MqouvxuUbn3n4cD3xXHZu99oklY4iJjKaZLm+AZttn11jzE6x4Ju
HIC+Yl2f0sXev2irgSRviSFlzTWiaNOGjEPg0mNrbhxJ5s58UEe1lFdWlc15
fStCfmUsLAQZFXzGwrKnBxg1iooiz8GD6Xv/FvHx10w252RXrvdUMsM0lg7V
P0XuS2uIc9N5swMThCb71CvrB0A8RWd5hv7LA3c1hWcKl9ynok8ZP0yBgOtT
fvFz9DBZUCUFX8Qn7AJO9HXm9xnxWQv4e2W8Via/yO6m0lNGoLDmsO7I5GGb
HjYJwrqzBxcY82GqXCLFgbZ9PHOf6w/ILK5R3Z2OD4+hIw0GUsRjoUFCagVg
FBvqcEAJkwQqYeS/PBpYU3g0cMl95Z+KYAguItATwqzrspXTMx2aryuTtN0p
siETUSLMYsNSLYU0oYsYngK1IKTuVCl25wplVBkto0OB9zvcWQS6aDSWqxqF
DGkbH3et3pbsTMMGgZLJpt/paIurdHcGgwS4HmFn73ObMy6v6b/oS+Cdkg0v
53j2/uahvzrCQ39V3a9Ryt2g+wfmo6yBKz50xexT/rpu9HZAJ6YmkD3LqMRH
c04H9pI1cup8+ZBlpgq1Z1mqrSypyDOjGoNIT9jLjq4z5i/YsymYLUvrDx6k
jBrGYt99/T1yg/UHZoqrVnehE+OT6GDtcfTlDr8RFYH3dZ8L20NuW0xCmU4h
11bC1wpKVsb/6PReKufIBfVSJAfmzv0W7MojOeSD9tPjTbKisdqyxIF1KH1W
tRKPzjkjBp+yCquHg5iECGjuRbqIT5QFtHVFcqunLLf5uqSLYsriM3Tm5mSa
zOeGORFu8/kzvezald6N7Bgf61h/a2ZGlUZBkjGmH+hke1e6MaoW5SbzLEdA
gS2e2MwIk6uw0ec8z/J/eX6tnvJJvYxpVXE/e7sxDzvBdZThhbATd8TIRjcK
ufKXHYX1bs5Y4zBRcx56brhqxwTNnK/R5q0G9lpgyzE2y6OCCmDFybkWbzqU
2d6gQiuirAnYToUyEbPlVaAJ/F5S7pAHXWRvd9jY0M+aVcXeB809c5/qD8kS
V6nmRMenppBdzbn0/iK3LNhnLVv7yfu63PuZIxFymV0JNsYw5s07+AT+CPEm
IseU/EUNKc6sHsXPNmHaJcErJczJHfDBtE6gA0S4+wZlRnzKHOb4N7xiT3FT
WUATHOOBZkxzb/JGZMOPiI2VQFx/fKWvwn4s9hQ2XTn2Ibns0Ivx3eJiHBts
z/hp3CRIMsL0GZ3tARvXkLKieXbVKMjJQHCJkgIS9ldYdrGIsApQpTDAhDID
HQXSxT6eMsehkpyhVSi6X0O+qZPxRQI/xB0LpxzN5OqTPsJ/VfuWBJzTBOfK
sEetIhEr53KZzkPYYCTruIcjEEY4BVFXebBCG1YrkQDas3UrpdWuLvY8PNjz
V4DBsGyxYdWLdHwuBHENPT+C2ivHXISH6H+DpCE4cFRgLn/iVOCD/fNLbDXn
5BdG3n5CXpUGMfkIICdE9Dz8nClyFDCXV1deCOCWcHxYZGNqzDMXSehttmQr
ECKG4TxblBMAgkVQeQ3JWNSmBePpw7QieSMEcHz1V5lGEXuQim7P4GD60qoV
BUzrGxdzpcHOn+lVmz2VDO3rQxfMXtL5rkwpiWMm2GP92vU04m4gsmssMwUV
uYILy3uaJnx/w9tQyPoeerJVmjvVUK7U9SljljEFiPqWpES4Ckh7RUbiPJgN
dmQHzUMSHMiJnzhyB5BgIdNwBgaiSaE0IzmHfjncK/xbnCHALAz7t1q8kCkz
qBVvYgRnj6sx/xrwoBkdZ0fWrKHkerXE7seHe+X4Vx6RJTaqdoaOLQY8gDnT
ICl3WoRG/V8ZycgkebsfWQr/fF1BFnmPHXt98zDeY+MTeO195L05r2BOVVnw
wF70c1ZVBf8hZ+ODqyOduygCTkwDB/o0iaAIGHh2thrgBg7RAzaHDRNcRjCJ
HjQwjb2sLVTAMgLUjkUawnPQSUdUwHe39ff1pYgmTchr/qC4qCuNLNLTqrUI
lgzo/YCujPxMJ9t0pKR3fAPK6KgP/khxbn3/6CJqPk4KHkPoWYvOL+vOe1Yc
3QhNBZtjaH2DwpQR9ZW9hsRS3aZL4qtEUU/O2CrNQu0fXWYPfzVUlci9NXEi
JTSsK75/erRntq/haNik42S/IpYO17ejxxuQZufkADAFG53Q8N0jOeLjTeFs
tYX+MfvSqr5oHyipgasxCQUdm8jzDrLwSk3pZ++qJQl4HxFztMZjx4GObNHQ
QFWD0auZXb5FXW5kkZpao/ULSZ8echMyNYKONkHGk1sNJDHe3bGZhkZmpKic
hXJqrMoh4RPeKcFoyCRLNShlbk2Kmt2YPpi2p1BRa6a9xNaI2XHA1QoNSlKx
kGM+o+wlGizbXWlnboJ+iyN0eM0POtbsLLktqkxFOVwT4qzvz92xV39pqP9t
0W0hdZq8RUfeP/balmHdkyM+scaIY92vjK71ZY/lZp1n3Y9SNcImBJYyvRGh
bmw+VSlJjBawSOdum+PpkMkwCnvIsQyI09H34s6vzrvG//kz/oeL0DJWAUGp
cnqXf/ZzFqo2z7JEWlcnJX9eQ9mr/l2ZchAnvMWzNJ1qpyVJtnFzk5udmY6O
lFC3Lj1f0f0NNuLwuV5x4tD6zpIb06pS/k9eqzqmxX77fnPnWFR1oEN3FNaR
OcZW/p/tq3snLN88OCvUKj4Ue0TXhubQtMpxBbOay/Jm6clNt2lyYq2Ot6dN
KFp66hRxFVU9lPnkUR696NlNcsJpeVDmzSqLxb/MjCVn1Jcxp2t4th75Vraj
s0YpQFwV4nMDABEdRvcUCIMCgLCFXwPvgnQeIDIKwBnE0+S+pJCWar+kbV0l
RXP1Im412eoTYzb3zJfF9iCEq6YayMNOcpg3j+QhEx0+uTY8/GJT29jo+r0S
pHXrPaGjA35mmDb9Gd68yy7ZPqutFLiH01Dk+dFyht6JptmpcfeFy8lkVuZ/
fXof9fSSyJlzeLw9yqS9VWJpXv1ftNwgQjy3RcSxJvY7JDa2iXXqIJ4jtofR
UKuoiAkw06pXpzObF2e5XR9xPTWwxrhsiaGxPW1dfZnuzM6kfVVcyHn84eJH
G+AIIDWcfeJr5Yee3zqMvJNrGTpve5/dnOewojeEk0E3Al3QOkNui+/SmrG3
yX5CEk2o/eVGK6tjaSst1fZv2kTrmUGqySMf+tGsGT0cPUx85N6agEynKsuS
cms39ZENGLCFPPbCzx2gxxv1qTgXxRBn73Nb+GgeD9z11u0cWjrQwclt+RCW
do2Qg+T1gdcJVGC+0fGWYGIE2TQppvmavsn9pzi7TLqF+DCpdm3C0UucP1Yv
SWLhh91UUB2pEI8hQyi0tdzyOFl8izrXaHdUdKN+idI6ddeS42GUNZ7RhR7t
KPkj/qKk9EFsPrR7cuQnnNmDRcbODnehjGrzygOmQ4rr5/5MLlEeLgXyhK4M
QFX+F+0xQA/vN7JpeVMyeVrWXqO901yu4xRkEXd6Wgnx7PaMGuhAOrh+PaXU
rEl7D2z56XF9yLWkgNqTsiRGxkdo45p95LkZYHcxvTnD900olD3k7+U+JPCX
w8reSK0yK/9QYQa8luHdy3t7ZiHHVepm2BlA05CFzaa9hl/pxB8xdKhBAQ3W
uflwsuMFu/lfVc2ALYUyDXLzHBwYxbu0aE7xYbe1PtmOhsvjc01aBlBf0wXk
ex6W/TrdmYaQXl3R+QGqI58PF7nis+9NhqpHZaQbnurho2Or3rnYTDsbeM2W
BaqcdL+hs51T6UANzCKZNtV6nr+5X9ySeu6qqGYbA/Sxr+1Vly4U2KcPbXLf
Hxp7pv7uH1HNBibJatddRldOglpQbU4R3vw27EPPbh8OvbVrosvjMxvbp8eF
MdbAQ0gqswXRPtj54Ou7e2Zih5DFG7dzkHmOzbwbeEdnOubTbl0r8tt1hq4u
TqWxNeQEu6kieEGpfbs6YwZFN2xIGy7bpfo4ml2OC6g3/aekao2jtHrVOgo8
BEHBkLokzucOIQLGQgENCX9XzxPrFHJVCrQz+5awEl6P7Jff9D6/RcFNCIyJ
Hqg3pWj/LfR0bzKNr3Xda5rjm9mdQ6x27aK8qnoF+zZvZs7q4yiH5dtma0up
NWrQgR0bi+wfrvbKuGK8KvpXw9bB1LPXRAq89ZwudIeeIgbhTjCCNUa57PHD
I8uApxVSPp5lzIvGm7u7ZwgdCMtyfZ7lKLV/pNPt8P4B7R95TzJmAvTzjPti
dxza4juuf4ZoZrmRgCFvecbevctYSZcJ42m1r/3HpBO1d3+N/GNIiqxmrcV0
8cxB8loPSzmbPlxGdKpZilZQ1ocJkYu5M4NenpSRHUCuieFvnhSfX9ptlFw7
IGJcLhaEH6VHqwpotw5+7yOPzZmyKsYxxxvY8Xl+8SaNQ4tdzrDnsrAblI1V
ofbR9+8zJvN9hw60wO18UuDFPg7Rfg1ny4Wp+glavnwqvXWCaXYg13nVKD+d
3/6P0qXHo6Mr0XLUPCslxrfMBFBDD7q/f17y1fWDXsqVAKvI/fE5erCQb5mK
vN14I7eLXLJF3a5L7Ct2e/s0QaShBLvhONefOFhwym3pw4zLxmsjfjVp/4K6
dRtKwY/u043RoXSydR+KCeT2fWtMCX/lhUgD++FQ8fRjaf1PS67afMlV1YYv
PokOtsBcVy4uyJWHfMNnhL14VKJX3PGgf1LKp0Q6WGdw5OMwqZWapSbLmxDr
tqWN1uPLFU7GLSqdBaeHEOCsw6IXqcdq2IREtB3JCui5M+sp+CCM5TYKtNUi
CXeClAbOgbglhxAfb1tPQZd1AMeu/xOlVVW7xQTMYmIi+TunJxe2fbhtPXVx
aOAdxi1wh13BUEynT9cmf7n5SfakknlJN6gc3Hs7mDul1qkhwfmh6iowA3sA
S1VVStH5/Rtp2I7mN4XhCYaU2KhbZiQatz1LixYNos9e7+lMB0+6OrgpZYRz
soZuVuSe9r28cwx2KpBj3n/z9a7lbzzT5m1Gz6Twj+4ex1fJA7kNPu6HlzA4
izv/DI1SsK/YJ+EYM3OHxFZ9F/pS44LrTdKQiqXXpk+XP0OF52F5VUWVMib1
rB0p86o0WGE/BJe6DXTudxxlUgROk+nzTY5HqJpcCGB3jSMWDuJ59J98+SrH
t7Kb1ridXNUKf2UrKZ0u8BR8/DnasNCAfv3Kianc5pbrxGu5gfpDG2TFZDFn
sqlizJB/pInq0MTdx7cnpaRMbCt/J48vRZoUYdrkrZOpXYJkfwP05jFNnRyn
TBO/v0WbA/Y94yDkYJ5T/7ISqqPwJalU9tx0wS4gwDIcpH88+MaBggsret56
fHYzr3/caTIr6eWxdzS3I46/t6adO5/QgAEPwkeudb0x6gZkpXyOVVOldp0+
vJV+29WyjNrJY3LrXxnDGuTG6LcW22pYoH5VmDiy8QfpqY5dKf4lzy10MwK2
IJuGVOVznlv/ZWFT1Z45AdfwildDdAJgUw2vhhzXEBdk0p4qVrRn127avj2Z
atWaJr1+I/Rk65O7T2+P405YFubVRMMExkpJAbM6GkWSp0ilAuaEDO9xgLZs
fJc1tF/x1ybtHsquDkNykmMYamk4vQPNktgU8oJn2H/2faPlHwavy3MLcv3i
3r45Pu6HFic5bhzUS865Ev1kWWZwjB6ttCFfJk/Tm54+TaQ6dYbHun9M3F7H
Ycc+G0nQ7l4exRs17d+ZdcwA3jT/52ppe2RbSlz69PacWmpDLYOcep9wkd6Y
iE6Fu3RzbH3KjgXU5UEQwIQc159FrIui1yuef//VF4VWeAJ9CQehqfO+Bt+X
B07Dr/hd3AWoOCn8jZfAU+o0o58/EBQgIMCVk7Rs2XlasOCi61zXz6fanOI4
UbxZ89Bh27VpLK9UeE32wJbqqtS3+6vn0vDNTcsk9uQoxqoo3rxxTHgDM6mt
2k6ob2rihPYvpOd6AB87kctUNSQ5ROrMYRf8o7i8DDbUISeDpjnsaHjNMvlv
tgIyrlQeHWMDIfAfmkraZsSHI44QSBZzWMt3Ot7iIV0ftpt8tu+mx9vjpPUa
PnXufYw/3Ui6WY1pFGT0Uk2FTeterrhVk2OhMhqb074ym2dEBldJayUh/ds5
0dSpt7Omzkv52sY0W7bHEHuQmIifU1tEcms+PbmOSA6bY1lsoHCGuFwk/OUQ
5Hi+w/KeSAcuCfW/XWq4tQG++1GUH3LyuAKh3h652wnn7opYxKmJumvJEvN2
iM2oa6ta/hUnjguVSgNKtdz5ROohr3Vesqh+jVm90spNGtb0kNR9AypEaXSg
OpjONA+zPGQO81FcTw0USLGOSMs0/JWe+E4w39LV5i1vv4Tvb7IvruqzLNTv
thIAqsy35iH8QyaXUWb5++AvPedLn6gpeJ2XR7oyRzEwe8WVV7xTuSteC+pS
xk5XF6Xj6C9l1ZBYq1t9cWq1OztnhInsTKWlzNkznoMPxcrWNiik3dof6HT7
E/RwOZ8C5O2pQtKN4xIkAVEOJAMS8l7IJYW9U7zFveV9ZnPa5fUDhBaXNc4G
PKMgJKhmWJMvA/UtyNIyO8bwzwJbHRuIbFpA9XFjHtyTqvJZbOFEXeE7cwXa
o2SEDWmT6EB5WlHorD3Tm6zNz2Ys2hwe/ufgDNmYquF0tOlI+vaA27etnMvr
khL9GRV2mA50lX0slx28+fx2c+e4gAd2C3a/vn+KN5/s4FXBe6wBflDrQITJ
PIisrWfRlSthMc0HnHm02DX6TcPxDpfmBWy0O0BPbXt75OysbJ9bTz8De+Cw
m0RDhUVtUa4o6ZSIkpKqzbvsIE1ZVvM2Z5+KrLR2U6RpY0bB1Fj3BTWrJknP
wklRkPZgcujZi2KDGInnWKacPZwc/voxsod7Xt09Adf2qVyW8Za1S2rU5zyH
Fb08Hh5b+cHFZiokiDsYEtv78OCZ9NGR/4qkizR3bhD16rVFvNdO7d2Zjmc4
r5N0oPahN4M7p73r2FE1zG5RrijVwH2qYFF8H5NImVUlC2UwiSeK48wa8+rm
4TnkyHOZRQ8sK+LuW3Rrooh1RxpCdwTDxPXT8AlLiNxt7zObAKEWfn16l/G3
IRXKGewysoIJVzcOvut1av1F/8uWaz95X+OOCERiGhF5U0oPx9cwAVS/oi5d
HksHDnG9Oeo6t+A4wv/xzIHJnNKV5VejcmVKtzyZ6vbiBR1et1aokkYw4WOC
7qX4fzddJD2htlKokjlOlRe5Sg+OOZmxbHtoeMdREbKpTbEZZwKF3ka2ixMy
PeX6ANJdaENMv7J2AA4JbZ6VEgt9/Szkm76Qb/hB6gZn9nxwsZ4adX3riEty
vpWARJZ52hso2C6ALvXlt6FgK7hPpNkCSAHn1LSD7Xs6K8+cOV5dzimRKu2s
UT6SZFy7ojTWLk8afxkZSJNX1ioT2kgt1axzEke0iEhc0JuCzHpDeTNTRrfU
khaJkXJDHjuS7BvPog9XUKviTr9WNnZ9kn68Q3b09d3dM88HONoo5HaFnOX2
1uHl6Oj3/g88Tq51kUtw5sU1pp9vWU7a9tbDAVLMnVIH0BFF9o1AhUgNnlpk
aEF+ls9Ce8xnkJxgNl7XBl0e++CuRHnmqMTNuHpVGAuWfGuQKoCpWz7DhaLL
ib0OmouVF7RvQAAdW7WSEWVWkqsxCP/WtvfSx2oqAyVpYj+TRzR06JKY0w8v
P53tAIuAXPFP2l8V0BDVrhInzEKVyjxUEZpRON51cn3Od1jRc8c79/Mwowrp
6tAKxRxDoVsEawJLbJr47S2iWZSXuWOwKiOtDBvB9FJw2A0ndkSmN+4iOaPO
7Dn/ca2ZRZaf0Zh5vg5Rr3Z3KQl0ciwqH7qxYkpaTuXKCoZWiavqOIRBFfdV
rZzS31YXjidcFWallIQj29hQmrCqbhlclL9H16YwQNtcrrpWLOm66HELc2q+
67D03vp1dPjQDVo+JZqmMDuzkQJktF6rrM3hjXW7n3Fh6LbzcTu8ZMqP14x3
/y5cDAPlxcBfyqO6x4BKzj5nNr+4u3eW34ODi4LuH5gHu6NbCpXg5L7QiVao
xPOY0pIsLAJj+kyP9Gy8tI4sMel85oJNv2wNbFkbrgMbvs3BNlmZTbAqgtyJ
UL6F6El5xVRc0ynPGH37o6Wybux6YPWe+VpYFeArL3Fo04LsYTVlQQN602uz
LolJUzrpSQsLEBEDCKHmhnPVYJ+4EEVP2UChLSHIdf88WH2cKwgYj+thwhVQ
/H5sztle8rtkuSLEz/nRo2Or5PDWHOgMR07Ca4oES4BX0NAQOtUWsQXeA3e0
pZAQG9qxI42qV/dKHzQVsxQ6AyXeJNeqxVRgRUqIFuvAXdMQOg7wt8LLmvxl
+9WrKcC0r9DB6tJ60aEwy+bXlOU/d6/+7pgjDY6Qr6g/1+2hK/6g0em5dFPP
vbRly6WsOauDvvZZ4ClzHIzkKjb3IIwWqYqjubyNMtobEf3paf6F5T3e3rGZ
bv/M+aCCz/jbddGBH5dDwEUuj89sKjy/rDv0SuiVWRhYTYic4UbQ2NCC0r/z
XzRpRbt22dGGDe+pQ4e3oZ1mFNtqWgo5EXKm7Ym/Ql/nC6xY3Swro0PdfzxP
W3H8eBnZ/lm1aplrh9eupcuzZ5e57tevH31r2bLM9StzZ0k/2LS/zYqJsSqd
+Hylzf70vHH16a1ZZ/jspIhpPT1ke4dCEjE9e/JYnU77q72ls51Q0WFdbqnP
4O0LLBM6DVBvwX54SDUsk4LP+FH+YnDJ/wmRb59EOG0f9dV517hXd/bO/OK8
ayLvy/nTynBcXAIdqnua3JaI1BlnroOTUneQjU1Buo5J8RlNBuA9u9fjwMd3
7Wbjy5IEeHPEa7ckoSvJtjQ8tO/g5lTlkN9l8fg0lwnjBQaGubz7yPa0CS63
ZR92tecu62IZVzw9/l5io64SpQuE30DyQb1ToKRPfzc6MOJ8xoINL8K7TV8n
O3zoGrlMRyCIPBKmVJdyEmCAdVSDT7jjB54n1sAMoUmFB59RyhCJ4yvvj/3d
Di7KuLS2HwJK5CgZf8ydgDaKvrliiyKOdOU3EPE+4DitWPElptXgFM+asxbL
zpy9kjFrTXnTTThU9xAf0FmzX6Et/JqCtP3V7QLP9bnKZSwZRcA14C7l4fAd
2elPq41RltqQa233ZuSOqcdLbWrE5G4+Mivm+3cgueCeBflbwqQA96EDCX2M
qqyKpmokiq2EKBy6eRxfc/Lp9X0KViXq7wRZh/e5b+/YTs+5tLLPFb9Lu3CQ
jdy6LIZVYXne4wK5zk8mu1rj6YsLj4F4g9+KvnwZQE+eeNCQIXmkpxeW3Ly3
+JTGKiEjMvYZ71O2uSVip+K6zLKSyuuqTANex76rP8rm245rjDWTv5eEqLd3
kY6feJeOjL2QMX89xHeN7MiRneRvDdeJDCSgJlrc2lPyB2Y+rAwbCk2G0Iaj
THvJ/5Jl9sXVfZkju0jx7Jzo8pnNlT6Q9n/idmTps/t753o9PLocEYCP/D1z
6ADL6WYQCyBNtALB4duR1wYW3fhaeNMe80Cy6POY9g48QO4bH9PAgYnhdfow
oYF81lEhjUY0lEbHOibN3CA+WXYFZI8Vy4ZFj7WGxx82Oax8Pelp7QlB4b1m
F9toWrPaUIU5jtHJYKFYNkAznmaafMxe0yc8dmH/h7L9w3hpxu8eFPcMjaR5
ZKvnTY7md8h5HAB0BRKtbDMgkmOiPvjxh9jiALJBcaHPGNsa/7dMRpgFhVgc
GnhXfG5pFxSE5Kakv3yZDnJM1uadJHQNTjKXbPVBpQ357OA0oxVEAuLdmkJD
V8UcvffhafsVobLWrdOpWrVsMjQMDu85ixc3OeOHD5Z6Pnb/OXxmvq3ubuY0
XZfhF0/Lliw1J29v/5+mY4tstZiTZ3+4NNscIWvSNJOqVCmI0WnBZ+ij3zcc
3UH6/qMF+VryjhrP30YBtjgYJ4gcesFGAPZupqB9DOYyUG0UkIJFWjbp6sZB
gQ8OLGyVmRhZ0kSZUD4Luc6lXW/czqJb5uXdPbPSL68zs3rz4Czy+IwVZk8l
a1uTclMQMGeTIF/OWQZlWWUOaJd/huwKpnY5ZvbO709bLHgr69TJiwYNiqEG
DZISa3fM8aw8MVLWuAnee5O5+Qdq3z4gse/k155/7dgps7axp9WrD5HrOoz9
sXBN15j0OZ3wlY+8AKL9G11j0Ooc2lMZQBkdtufpwQJVAshGL0blKTzeIxUe
dnPnWDj7cVFvfdDop2Bi/5abOhDIe16n1qFTWo7/eupKigr7JXx7A98GE8se
96SFUjR6JZF9AK3H6dEKTIoVx+qlUY5q3v6T6xiWQ5UoTqJjAIdDoUMdfZSI
w7HDB1SwCmOkSkcBpWD3IHhoFEceZP7XIFdluyhKVHb2XFHE0ffiLqDYx+5H
lmEzH6SzpDuS5YoBr6kQNWgAKhgZtM8Y+YEulPBKk6TFPGtKuaUuvCRSdY1r
kcH0j5DHmtvkPAEGACYLw8fR4Xp4LLK5h8lzrSrp0Stf95CVAMJEKxayaGiQ
Z3QvrXxpYZmiBZgPpsh9gssvh1W9sbMdf8qeKlMPUgEqUEgqJBtt8AMtWOgg
XUBvz/el6IDOlPgG9+E31hadfS0p/Rs+wwGAWFvc70h3Z76g891gqzEOIjm0
JuGcdUMqzAbDjBR9orJ6QAWQXPzoYjXFz81u0QV5oChUjwrmywaumjqS4kK0
xp4LvLo71NliAqNU7GRrC2MZrA70GulOrBKIh7pAxwGf8BtoG34TzHlMjgPR
LbmfvDehw34KhdxA74IeFeexNsrPQl3FqnJfHq4qo4FPUBxFG1781c1D7Z/d
PKgs7Oz3Uv7m2eZoN5LHSS3xGdraTOLjGb/3N19mWDIHFsiUbIH5dnPXONBf
X9H58T/89NlUmyJLVF1jfrjjo1UJP/Y6uDw+vQm1sR3vHl7Avodsji2/29IG
zuBV7aSkJG9zc/PyblfFFa4zCd/8g3Z+JpPdq2LIh/cogeOLeeQhjJncCS5o
/zP2Oy/e/LT+ebMZ18FSOScnp1hTk/EUqu5TNQ/u1FesLPZk4x3o715WcIWW
GtPFCsFSo4t6+We/W0LBzeGn8m+/1pAXzrh69ZhNVopfa6ji2AemPYz7pghQ
gOMdUVMtob5r+QYWO6Yeu9svw9kK6MCQL+oHxsDm89P4t19XaO7t7Y2OkNH3
7zMbUhS/rlDV6RWKq8PaD018k7ycuH4o/ZbsRur493ijWuGvLOQ7sUwO/pct
y4R0JRP8x2eScyLXNDw8/OLcucz3spR/aIQqkdPmiXX0c9iJvi+FNvX2FSMF
HCpt9frBGfRQuHmcWL3u0+NrZZBCAT+5f3OCAyzq0EePmA0M9WNjYwu1tRkf
U8FYKmfJU4w9gTjmH5tqSmBJ67JLyNgjFTKK8/2QAM+5uLLvmcBrtj3khoeR
UQk/y397aIKpv78/GnfhI9DpxfBRxf2qJsnJJ3+OEr6qJ1EeJWAbokhVSwh7
TEUV5WVVltveSWEfftzYMRpW0vbV3RP2wTcVEpzcnFUBAe5raPgTivBX2GaC
7By2T+BT4dPZw6uqCYlUxX2s4tiod77oRcJ2EGxygcnEV8+VkTupgDqGOP47
VgQ3QYDhBwBxbF/dPyF8WMOysq8KKUEKsJMl5+KqPs/v7ZuL3E2T7LR4dncn
+/By2cQCYm2QEem0bZSL9+mNIK/sVhGlBWTPF63+dxILvkDqMSYOQ5Tr6JrM
S2tMUQZomZUUrRz4/G/k6rPB/HtfGGkk9nAOqXCfoYJcaaggX9WUym9dKmN+
lJcBe55uPjm35e0d22mZl1f3A9Re/emJE0wT/ywF0WBG1yh/ntwp6tAnsInZ
cem4zhwtCgiXVYlmBU1FitfUy72vSnkij03eaPHGZkUYLySor/mc33E0+IZd
meXT/btptRUqJSz+ho+PryInA0iJEhMv2bwEqiJLJQvK0Vrl5TLJzUx9+OjY
SpinPIcVPb877xyHBlBTuQjxe6KFy8X61PKnxZ5F0lJxhYmgiBcCHK3BsYce
x1atl09zSWiAy6IvgXeVlRhsOBZ00054DdOvnZeVpnyv/P2RLe89Lh0Nvml3
IshpPzZ8/7y8tj9aeRwCrlhjR2OZjAJDqWH5c2APCa0HiWsnlzD0wSItiVxP
nsPyXh9crKeARbiO/Yannl7b6+jrsBOGBi4NGY1lof630N556un1PYDnCN3x
fUWFF5Z1x8GV8tfTUffrnhLxCfczx0SXpxxGysaTI1AoO/zkICPYbiy3hHuA
QpFVir22eRiIR90deC7h2qYhuIa9wfCfYBw2oSORZ/PqPnPwoKqxGWKql8+3
OiomwGmTquFUXSvv0eXypkb55DQslxzFa+rljW1S/tjMv0P+t89Flf4/GLg3
8Q==\
\>"]],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJx10nk4lGsfB/AJjTJOJ0sqOtVQSEyWigbnlqUoZK+Dsi9RtohOQkOUkFCW
ZCnbOEileGckZSwJIWUdMwcdlBRJUYf3Ouca7/17/+j+57me577v7/f3XNeH
7Oxr4cZHIBAklxEI/zz/f3GRkt6Gd0O7JVHNl9nLCrMc3rsCqvC8p2U5wUFO
qtbKCnQ1RPvr/MSZoaV9KnJNtAjN6uGg7/SpThNnHSQuLNhZ27Z0Xg+dD7To
5rI4qJFRFU/8uA8J7x8NWWAs3T+A8tUG89ff5aCk5+GGj8+ZoDBDvUOqhUt5
ZihGvsbD8CYH7fC5vax6uQW6XmcybJe8lG+Jtp4QrTxxiYNSZokOacbWqKBc
uvf38KU+GxTp6akTHcRB82Fe1YHJR9DPElEjCd5L/bYI/frgUYoTBzkItq03
77NDq0obWKmHl+Y5iirZf0+nmnBQ/RWVYCWyAyqaENa9prc0nyOi3iCWXNmz
lO+J5NbeOljRNcjb90M9VOlneT6D6Kx42f4/fw9EzV38ctaCg7zzIegnsvcM
M4uNzozLqqwoCUVFiyc2dexk8+5HIJ3Lz1zinw0gTc6h+FQfGsq8LfV93H6A
lxeFHF5an+JO9iOGkTDf9pho9AFdiPEK7+flX0Ts+ggJ2qp+tKei6XRNdizq
ImavJmf28frikFW2ju9e+T5UtfHCO/OqBDRmzlVi3+vl9SeidUp9+pOavSiT
tbk8wPMq4va65vvU9fDmSUL5VLfdR4x6UP/cv4WI9pDbkdfazZsvBXWyRnRN
zbpRRvq/C1HqRNg7WF28viw0qRj8wZLUiSbM//mSi3S/qDEK9dt49/OQyEhs
7ipSExLqvu2nLVSI/AQzJeecnvDy6Kj7hrog63wF2mZ/5eln+RIUMWGHMmZS
eP9Xgt6dT9sUFRSBfuR9BZe1ZwfwPhI+rOAAvO+cN5dLAN4pnyrTmcB7C1JQ
GgXebW230lfXY+8WyvQRdSb2nsPSq7UH3vMec6XDgfca5uiXLOD9oT+JUg28
i5uFPXwNvPPNuUZNAu8F/n5x/Kexd+n2JNaaE9h7lWqDzFZn7P1lOTdX5Qj2
blHtr65pir2nRRaw9+pj7+ey1RIMqNh7XdVuk7pX2PtTlvEtoh/2vmPjczuB
ldi7fEj4q/s52PuK0JWlP6lj74kkQ2VSC/YuzlISK3DA3jnjhH09U9j7xrE1
Azdo2Ps1qdxvb0Wwdx1dTufjbOx9kP9Sorgi9j7c5nJs+CH2Tvu056isDvZe
2duY292IvfN5W6lOmWDvmqF1Aic7sffNdMLf+tbYu8Oh+PuCzdi7Twalfbko
9j7E2kautsTe86ns0m4p7D2okWYREYi9H1U1TvEqxt6JZR5i5IJr//OuPDpM
LR88/0Pv9nF2UcrAO2XCMNUJeF8nS8y/CrzPCA9uqAXeZx01SiaA97g4gQ1r
gffmKwb6CHhvtj5IdAPea1LSjS4C799VxeaLgPe8gA5iI/DexjjqNAS8y+fI
/T0PvKddI79YDbyH+ga3ygDvEgybD2rAe2BVneJe4L0rNTjsIPC+EFLPtgDe
O/Oi9A8D77OlO9P7gfeRV221W4D3vXZ5TDngPaE2cfkA8C5ETLCgAu+f7d8S
tID3mvfkjj7g3eD4oUerp7F3SmsBtxt4r/7Y4KEgir1/M6FG8+Vg70VZ23xt
gff7U5JmipXYu4ursEkA8G5Ve/acbBP2HmYn9lbXFHuvv94S+wR4N4v0MMgE
3n++Qd9/AnineCRrBgPvibvVAqussHfDP3xZ7zdg7woNGc/Lg7D3saY1Inyl
2Ls3o0zA+S72bi9KNbny+cfeW/zm7VWA99hVTLIL8C6bpd+VDLxvOas89hR4
zyTMCn8E3kNu/kdYCniPJh+o1QPeWeaXVnoB7zu9jrfHA+9JGVuW3QHeWVpS
l1uBdwEBUcdx4D1nvPgUXwT2rsXmZ64D3jff91FUBN7do6mPtYD3hohL3geA
d2f6DgVr4H3SPW3GHngXWnOX5QS8G1kvfzMOvMekklx3A++ya284agHvfr6c
45+A981FinutgHdd3STTI8C7+i8zv80B74Nau1xUgPd0bbnYeeDde15+0RR4
n/MY+CoPvL96v1BCA96dSfoHbYB3Sl7U3E3g3Uz/dbsl8O4rqd/vD7wrTc+L
TAPvZY5Ndm3Auwdd+8984B05pUtUAe/qD0quGlpj79L1kwFxv2Dvxu9d3I+d
xt7bnXylQ8uwd5XxkifNldj7BbXS6Gt8tB963yzctUsNeI94OuDvDrxLGDqf
TQPei+NkO5qA98B3jXJfgHcziXhjGeA94Y2jpAnwXrGQFxgIvPc5eeqnA+8J
wbWnmcD7WAfzWx/wfsC6tP4L8F6WVdokAryneaF5eeB9LIxkrg28a42WsEyB
95bXF02OAu9+pDsjnsB7UkxtpD/wHibZvyUYeBfwVG8gvsberfgDen4D3q/v
O8NwA96HBIJlpHOx9/JTsh9jgPcclbOZicC7RvGxxV2O2LvLN6ctAcD76LOc
nSgSe89oXfRIBd5d1c2+BQLvpOygbZ3AO0PqjCwdeHdIHpKaAd7Xsz9sLQXe
q43dzduAd5eRjnTzl9i7V6XYmLIN9r5+mfGsxHPsfTrq1C51MezdM3l7ubMN
9v6osLz+6UbsfU+KSu7dYOx9wXyt67G72PsfEsQXxizsfWU1982i1I+9Ewh+
lprAO0FLaHsQ8B7xUntTKfBeq7h/cgh45wprekm8wN4JRCH//cC7lYz9WBDw
vnCKwswF3mc0bHqagfcB/yiVKeD9ltV1hngK9j60KHF8Vyz27hU8pGYJvNMo
XFEf4L3sTtvCBeDdZkJqKgN4H5xoGC4B3nUCDDuYwLstI6KiEXj/uJp+sR14
13l7UvEc8F5c3qsxDrx/vUz9lSSEvReulyvsB97fPXdotNTA3j35jvmebMXe
z7m/qJB2wt41Nnq8PPkJe096Iy5pFIW9X69exSkTw97bid3B6bnY+ySpQo2f
gr0bzD04/FcV9i67rU5KWxd713lmXbSsGXv/qlUhTjHD3sclI9yqu7D3FKPI
ywWHsfcKpteL2hbs/Y1vcaTYGuydQAu6FW6LvedZSDkbyGDv/m6+qZmh2Ps9
OjlEuBp7/xofZxc7jb1zKT4278/Q0H8BIrB1hg==
       "], {{{}, {}, 
         {RGBColor[0, 1, 0], 
          LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
           18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
            35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47}]}, 
         {RGBColor[0, 0, 1], 
          LineBox[{48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62,
            63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 
           79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94}]}, 
         
         {RGBColor[0.5, 0, 0.5], 
          LineBox[{95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107,
            108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 
           121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 
           134, 135, 136, 137, 138, 139, 140, 141}]}, 
         {RGBColor[1, 0, 0], 
          LineBox[{142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153,
            154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 
           167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 
           180, 181, 182, 183, 184, 185, 186, 187, 188}]}, 
         {RGBColor[1, 0.5, 0], 
          LineBox[{189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200,
            201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 
           214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 
           227, 228, 229, 230, 231, 232, 233, 234, 235}]}, 
         {RGBColor[0.6, 0.4, 0.2], 
          LineBox[{236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247,
            248, 249, 250, 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, 
           261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 
           274, 275, 276, 277, 278, 279, 280, 281, 282}]}}, {
         {RGBColor[0, 1, 0], InsetBox["\[FilledSmallCircle]", 1], 
          InsetBox["\[FilledSmallCircle]", 2], 
          InsetBox["\[FilledSmallCircle]", 3], 
          InsetBox["\[FilledSmallCircle]", 4], 
          InsetBox["\[FilledSmallCircle]", 5], 
          InsetBox["\[FilledSmallCircle]", 6], 
          InsetBox["\[FilledSmallCircle]", 7], 
          InsetBox["\[FilledSmallCircle]", 8], 
          InsetBox["\[FilledSmallCircle]", 9], 
          InsetBox["\[FilledSmallCircle]", 10], 
          InsetBox["\[FilledSmallCircle]", 11], 
          InsetBox["\[FilledSmallCircle]", 12], 
          InsetBox["\[FilledSmallCircle]", 13], 
          InsetBox["\[FilledSmallCircle]", 14], 
          InsetBox["\[FilledSmallCircle]", 15], 
          InsetBox["\[FilledSmallCircle]", 16], 
          InsetBox["\[FilledSmallCircle]", 17], 
          InsetBox["\[FilledSmallCircle]", 18], 
          InsetBox["\[FilledSmallCircle]", 19], 
          InsetBox["\[FilledSmallCircle]", 20], 
          InsetBox["\[FilledSmallCircle]", 21], 
          InsetBox["\[FilledSmallCircle]", 22], 
          InsetBox["\[FilledSmallCircle]", 23], 
          InsetBox["\[FilledSmallCircle]", 24], 
          InsetBox["\[FilledSmallCircle]", 25], 
          InsetBox["\[FilledSmallCircle]", 26], 
          InsetBox["\[FilledSmallCircle]", 27], 
          InsetBox["\[FilledSmallCircle]", 28], 
          InsetBox["\[FilledSmallCircle]", 29], 
          InsetBox["\[FilledSmallCircle]", 30], 
          InsetBox["\[FilledSmallCircle]", 31], 
          InsetBox["\[FilledSmallCircle]", 32], 
          InsetBox["\[FilledSmallCircle]", 33], 
          InsetBox["\[FilledSmallCircle]", 34], 
          InsetBox["\[FilledSmallCircle]", 35], 
          InsetBox["\[FilledSmallCircle]", 36], 
          InsetBox["\[FilledSmallCircle]", 37], 
          InsetBox["\[FilledSmallCircle]", 38], 
          InsetBox["\[FilledSmallCircle]", 39], 
          InsetBox["\[FilledSmallCircle]", 40], 
          InsetBox["\[FilledSmallCircle]", 41], 
          InsetBox["\[FilledSmallCircle]", 42], 
          InsetBox["\[FilledSmallCircle]", 43], 
          InsetBox["\[FilledSmallCircle]", 44], 
          InsetBox["\[FilledSmallCircle]", 45], 
          InsetBox["\[FilledSmallCircle]", 46], 
          InsetBox["\[FilledSmallCircle]", 47]}, 
         {RGBColor[0, 0, 1], InsetBox["\[FilledSmallSquare]", 48], 
          InsetBox["\[FilledSmallSquare]", 49], 
          InsetBox["\[FilledSmallSquare]", 50], 
          InsetBox["\[FilledSmallSquare]", 51], 
          InsetBox["\[FilledSmallSquare]", 52], 
          InsetBox["\[FilledSmallSquare]", 53], 
          InsetBox["\[FilledSmallSquare]", 54], 
          InsetBox["\[FilledSmallSquare]", 55], 
          InsetBox["\[FilledSmallSquare]", 56], 
          InsetBox["\[FilledSmallSquare]", 57], 
          InsetBox["\[FilledSmallSquare]", 58], 
          InsetBox["\[FilledSmallSquare]", 59], 
          InsetBox["\[FilledSmallSquare]", 60], 
          InsetBox["\[FilledSmallSquare]", 61], 
          InsetBox["\[FilledSmallSquare]", 62], 
          InsetBox["\[FilledSmallSquare]", 63], 
          InsetBox["\[FilledSmallSquare]", 64], 
          InsetBox["\[FilledSmallSquare]", 65], 
          InsetBox["\[FilledSmallSquare]", 66], 
          InsetBox["\[FilledSmallSquare]", 67], 
          InsetBox["\[FilledSmallSquare]", 68], 
          InsetBox["\[FilledSmallSquare]", 69], 
          InsetBox["\[FilledSmallSquare]", 70], 
          InsetBox["\[FilledSmallSquare]", 71], 
          InsetBox["\[FilledSmallSquare]", 72], 
          InsetBox["\[FilledSmallSquare]", 73], 
          InsetBox["\[FilledSmallSquare]", 74], 
          InsetBox["\[FilledSmallSquare]", 75], 
          InsetBox["\[FilledSmallSquare]", 76], 
          InsetBox["\[FilledSmallSquare]", 77], 
          InsetBox["\[FilledSmallSquare]", 78], 
          InsetBox["\[FilledSmallSquare]", 79], 
          InsetBox["\[FilledSmallSquare]", 80], 
          InsetBox["\[FilledSmallSquare]", 81], 
          InsetBox["\[FilledSmallSquare]", 82], 
          InsetBox["\[FilledSmallSquare]", 83], 
          InsetBox["\[FilledSmallSquare]", 84], 
          InsetBox["\[FilledSmallSquare]", 85], 
          InsetBox["\[FilledSmallSquare]", 86], 
          InsetBox["\[FilledSmallSquare]", 87], 
          InsetBox["\[FilledSmallSquare]", 88], 
          InsetBox["\[FilledSmallSquare]", 89], 
          InsetBox["\[FilledSmallSquare]", 90], 
          InsetBox["\[FilledSmallSquare]", 91], 
          InsetBox["\[FilledSmallSquare]", 92], 
          InsetBox["\[FilledSmallSquare]", 93], 
          InsetBox["\[FilledSmallSquare]", 94]}, 
         {RGBColor[0.5, 0, 0.5], InsetBox["\[FilledDiamond]", 95], 
          InsetBox["\[FilledDiamond]", 96], InsetBox["\[FilledDiamond]", 97], 
          InsetBox["\[FilledDiamond]", 98], InsetBox["\[FilledDiamond]", 99], 
          InsetBox["\[FilledDiamond]", 100], 
          InsetBox["\[FilledDiamond]", 101], 
          InsetBox["\[FilledDiamond]", 102], 
          InsetBox["\[FilledDiamond]", 103], 
          InsetBox["\[FilledDiamond]", 104], 
          InsetBox["\[FilledDiamond]", 105], 
          InsetBox["\[FilledDiamond]", 106], 
          InsetBox["\[FilledDiamond]", 107], 
          InsetBox["\[FilledDiamond]", 108], 
          InsetBox["\[FilledDiamond]", 109], 
          InsetBox["\[FilledDiamond]", 110], 
          InsetBox["\[FilledDiamond]", 111], 
          InsetBox["\[FilledDiamond]", 112], 
          InsetBox["\[FilledDiamond]", 113], 
          InsetBox["\[FilledDiamond]", 114], 
          InsetBox["\[FilledDiamond]", 115], 
          InsetBox["\[FilledDiamond]", 116], 
          InsetBox["\[FilledDiamond]", 117], 
          InsetBox["\[FilledDiamond]", 118], 
          InsetBox["\[FilledDiamond]", 119], 
          InsetBox["\[FilledDiamond]", 120], 
          InsetBox["\[FilledDiamond]", 121], 
          InsetBox["\[FilledDiamond]", 122], 
          InsetBox["\[FilledDiamond]", 123], 
          InsetBox["\[FilledDiamond]", 124], 
          InsetBox["\[FilledDiamond]", 125], 
          InsetBox["\[FilledDiamond]", 126], 
          InsetBox["\[FilledDiamond]", 127], 
          InsetBox["\[FilledDiamond]", 128], 
          InsetBox["\[FilledDiamond]", 129], 
          InsetBox["\[FilledDiamond]", 130], 
          InsetBox["\[FilledDiamond]", 131], 
          InsetBox["\[FilledDiamond]", 132], 
          InsetBox["\[FilledDiamond]", 133], 
          InsetBox["\[FilledDiamond]", 134], 
          InsetBox["\[FilledDiamond]", 135], 
          InsetBox["\[FilledDiamond]", 136], 
          InsetBox["\[FilledDiamond]", 137], 
          InsetBox["\[FilledDiamond]", 138], 
          InsetBox["\[FilledDiamond]", 139], 
          InsetBox["\[FilledDiamond]", 140], 
          InsetBox["\[FilledDiamond]", 141]}, 
         {RGBColor[1, 0, 0], InsetBox["\[EmptySmallCircle]", 142], 
          InsetBox["\[EmptySmallCircle]", 143], 
          InsetBox["\[EmptySmallCircle]", 144], 
          InsetBox["\[EmptySmallCircle]", 145], 
          InsetBox["\[EmptySmallCircle]", 146], 
          InsetBox["\[EmptySmallCircle]", 147], 
          InsetBox["\[EmptySmallCircle]", 148], 
          InsetBox["\[EmptySmallCircle]", 149], 
          InsetBox["\[EmptySmallCircle]", 150], 
          InsetBox["\[EmptySmallCircle]", 151], 
          InsetBox["\[EmptySmallCircle]", 152], 
          InsetBox["\[EmptySmallCircle]", 153], 
          InsetBox["\[EmptySmallCircle]", 154], 
          InsetBox["\[EmptySmallCircle]", 155], 
          InsetBox["\[EmptySmallCircle]", 156], 
          InsetBox["\[EmptySmallCircle]", 157], 
          InsetBox["\[EmptySmallCircle]", 158], 
          InsetBox["\[EmptySmallCircle]", 159], 
          InsetBox["\[EmptySmallCircle]", 160], 
          InsetBox["\[EmptySmallCircle]", 161], 
          InsetBox["\[EmptySmallCircle]", 162], 
          InsetBox["\[EmptySmallCircle]", 163], 
          InsetBox["\[EmptySmallCircle]", 164], 
          InsetBox["\[EmptySmallCircle]", 165], 
          InsetBox["\[EmptySmallCircle]", 166], 
          InsetBox["\[EmptySmallCircle]", 167], 
          InsetBox["\[EmptySmallCircle]", 168], 
          InsetBox["\[EmptySmallCircle]", 169], 
          InsetBox["\[EmptySmallCircle]", 170], 
          InsetBox["\[EmptySmallCircle]", 171], 
          InsetBox["\[EmptySmallCircle]", 172], 
          InsetBox["\[EmptySmallCircle]", 173], 
          InsetBox["\[EmptySmallCircle]", 174], 
          InsetBox["\[EmptySmallCircle]", 175], 
          InsetBox["\[EmptySmallCircle]", 176], 
          InsetBox["\[EmptySmallCircle]", 177], 
          InsetBox["\[EmptySmallCircle]", 178], 
          InsetBox["\[EmptySmallCircle]", 179], 
          InsetBox["\[EmptySmallCircle]", 180], 
          InsetBox["\[EmptySmallCircle]", 181], 
          InsetBox["\[EmptySmallCircle]", 182], 
          InsetBox["\[EmptySmallCircle]", 183], 
          InsetBox["\[EmptySmallCircle]", 184], 
          InsetBox["\[EmptySmallCircle]", 185], 
          InsetBox["\[EmptySmallCircle]", 186], 
          InsetBox["\[EmptySmallCircle]", 187], 
          InsetBox["\[EmptySmallCircle]", 188]}, 
         {RGBColor[1, 0.5, 0], InsetBox["\[EmptySmallSquare]", 189], 
          InsetBox["\[EmptySmallSquare]", 190], 
          InsetBox["\[EmptySmallSquare]", 191], 
          InsetBox["\[EmptySmallSquare]", 192], 
          InsetBox["\[EmptySmallSquare]", 193], 
          InsetBox["\[EmptySmallSquare]", 194], 
          InsetBox["\[EmptySmallSquare]", 195], 
          InsetBox["\[EmptySmallSquare]", 196], 
          InsetBox["\[EmptySmallSquare]", 197], 
          InsetBox["\[EmptySmallSquare]", 198], 
          InsetBox["\[EmptySmallSquare]", 199], 
          InsetBox["\[EmptySmallSquare]", 200], 
          InsetBox["\[EmptySmallSquare]", 201], 
          InsetBox["\[EmptySmallSquare]", 202], 
          InsetBox["\[EmptySmallSquare]", 203], 
          InsetBox["\[EmptySmallSquare]", 204], 
          InsetBox["\[EmptySmallSquare]", 205], 
          InsetBox["\[EmptySmallSquare]", 206], 
          InsetBox["\[EmptySmallSquare]", 207], 
          InsetBox["\[EmptySmallSquare]", 208], 
          InsetBox["\[EmptySmallSquare]", 209], 
          InsetBox["\[EmptySmallSquare]", 210], 
          InsetBox["\[EmptySmallSquare]", 211], 
          InsetBox["\[EmptySmallSquare]", 212], 
          InsetBox["\[EmptySmallSquare]", 213], 
          InsetBox["\[EmptySmallSquare]", 214], 
          InsetBox["\[EmptySmallSquare]", 215], 
          InsetBox["\[EmptySmallSquare]", 216], 
          InsetBox["\[EmptySmallSquare]", 217], 
          InsetBox["\[EmptySmallSquare]", 218], 
          InsetBox["\[EmptySmallSquare]", 219], 
          InsetBox["\[EmptySmallSquare]", 220], 
          InsetBox["\[EmptySmallSquare]", 221], 
          InsetBox["\[EmptySmallSquare]", 222], 
          InsetBox["\[EmptySmallSquare]", 223], 
          InsetBox["\[EmptySmallSquare]", 224], 
          InsetBox["\[EmptySmallSquare]", 225], 
          InsetBox["\[EmptySmallSquare]", 226], 
          InsetBox["\[EmptySmallSquare]", 227], 
          InsetBox["\[EmptySmallSquare]", 228], 
          InsetBox["\[EmptySmallSquare]", 229], 
          InsetBox["\[EmptySmallSquare]", 230], 
          InsetBox["\[EmptySmallSquare]", 231], 
          InsetBox["\[EmptySmallSquare]", 232], 
          InsetBox["\[EmptySmallSquare]", 233], 
          InsetBox["\[EmptySmallSquare]", 234], 
          InsetBox["\[EmptySmallSquare]", 235]}, 
         {RGBColor[0.6, 0.4, 0.2], InsetBox["\[EmptyDiamond]", 236], 
          InsetBox["\[EmptyDiamond]", 237], InsetBox["\[EmptyDiamond]", 238], 
          InsetBox["\[EmptyDiamond]", 239], InsetBox["\[EmptyDiamond]", 240], 
          InsetBox["\[EmptyDiamond]", 241], InsetBox["\[EmptyDiamond]", 242], 
          InsetBox["\[EmptyDiamond]", 243], InsetBox["\[EmptyDiamond]", 244], 
          InsetBox["\[EmptyDiamond]", 245], InsetBox["\[EmptyDiamond]", 246], 
          InsetBox["\[EmptyDiamond]", 247], InsetBox["\[EmptyDiamond]", 248], 
          InsetBox["\[EmptyDiamond]", 249], InsetBox["\[EmptyDiamond]", 250], 
          InsetBox["\[EmptyDiamond]", 251], InsetBox["\[EmptyDiamond]", 252], 
          InsetBox["\[EmptyDiamond]", 253], InsetBox["\[EmptyDiamond]", 254], 
          InsetBox["\[EmptyDiamond]", 255], InsetBox["\[EmptyDiamond]", 256], 
          InsetBox["\[EmptyDiamond]", 257], InsetBox["\[EmptyDiamond]", 258], 
          InsetBox["\[EmptyDiamond]", 259], InsetBox["\[EmptyDiamond]", 260], 
          InsetBox["\[EmptyDiamond]", 261], InsetBox["\[EmptyDiamond]", 262], 
          InsetBox["\[EmptyDiamond]", 263], InsetBox["\[EmptyDiamond]", 264], 
          InsetBox["\[EmptyDiamond]", 265], InsetBox["\[EmptyDiamond]", 266], 
          InsetBox["\[EmptyDiamond]", 267], InsetBox["\[EmptyDiamond]", 268], 
          InsetBox["\[EmptyDiamond]", 269], InsetBox["\[EmptyDiamond]", 270], 
          InsetBox["\[EmptyDiamond]", 271], InsetBox["\[EmptyDiamond]", 272], 
          InsetBox["\[EmptyDiamond]", 273], InsetBox["\[EmptyDiamond]", 274], 
          InsetBox["\[EmptyDiamond]", 275], InsetBox["\[EmptyDiamond]", 276], 
          InsetBox["\[EmptyDiamond]", 277], InsetBox["\[EmptyDiamond]", 278], 
          InsetBox["\[EmptyDiamond]", 279], InsetBox["\[EmptyDiamond]", 280], 
          InsetBox["\[EmptyDiamond]", 281], 
          InsetBox["\[EmptyDiamond]", 282]}, {}}}], {}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesLabel->{None, None},
     AxesOrigin->{0., 0.008036644186234695},
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Method->{},
     PlotRange->{All, All},
     PlotRangeClipping->True,
     PlotRangePadding->{Automatic, Automatic}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], RectangleBox[{0.4, 0.1}, {0.9, 0.6}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{RectangleBox[{0.4, 0.1}, {0.9, 0.6}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[{
                {RGBColor[0.6, 0.4, 0.2], LineBox[{{0, 0.5}, {1, 0.5}}]}, 
                InsetBox[
                 StyleBox["\[EmptyDiamond]",
                  StripOnInput->False,
                  LineColor->RGBColor[0.6, 0.4, 0.2],
                  FrontFaceColor->RGBColor[0.6, 0.4, 0.2],
                  BackFaceColor->RGBColor[0.6, 0.4, 0.2],
                  GraphicsColor->RGBColor[0.6, 0.4, 0.2],
                  FontColor->RGBColor[0.6, 0.4, 0.2]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 0.08}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"R\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSize->8]\\)=\
1.02\"\>", {1.2100000000000002`, 0.58}, {-1, 0}, Automatic, {1, 0}]}, {
             InsetBox[
              GraphicsBox[{
                {RGBColor[1, 0.5, 0], LineBox[{{0, 0.5}, {1, 0.5}}]}, InsetBox[
                 StyleBox["\[EmptySmallSquare]",
                  StripOnInput->False,
                  LineColor->RGBColor[1, 0.5, 0],
                  FrontFaceColor->RGBColor[1, 0.5, 0],
                  BackFaceColor->RGBColor[1, 0.5, 0],
                  GraphicsColor->RGBColor[1, 0.5, 0],
                  FontColor->RGBColor[1, 0.5, 0]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 1.24}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"R\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSize->8]\\)=\
1.008\"\>", {1.2100000000000002`, 1.74}, {-1, 0}, Automatic, {1, 0}]}, {
             InsetBox[
              GraphicsBox[{
                {RGBColor[1, 0, 0], LineBox[{{0, 0.5}, {1, 0.5}}]}, InsetBox[
                 StyleBox["\[EmptySmallCircle]",
                  StripOnInput->False,
                  LineColor->RGBColor[1, 0, 0],
                  FrontFaceColor->RGBColor[1, 0, 0],
                  BackFaceColor->RGBColor[1, 0, 0],
                  GraphicsColor->RGBColor[1, 0, 0],
                  FontColor->RGBColor[1, 0, 0]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 2.4}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"R\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSize->8]\\)=\
1.0047\"\>", {1.2100000000000002`, 2.9}, {-1, 0}, Automatic, {1, 0}]}, {
             InsetBox[
              GraphicsBox[{
                {RGBColor[0.5, 0, 0.5], LineBox[{{0, 0.5}, {1, 0.5}}]}, 
                InsetBox[
                 StyleBox["\[FilledDiamond]",
                  StripOnInput->False,
                  LineColor->RGBColor[0.5, 0, 0.5],
                  FrontFaceColor->RGBColor[0.5, 0, 0.5],
                  BackFaceColor->RGBColor[0.5, 0, 0.5],
                  GraphicsColor->RGBColor[0.5, 0, 0.5],
                  FontColor->RGBColor[0.5, 0, 0.5]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 3.56}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"R\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSize->8]\\)=\
1.003\"\>", {1.2100000000000002`, 4.0600000000000005`}, {-1, 0}, Automatic, {
              1, 0}]}, {InsetBox[
              GraphicsBox[{
                {RGBColor[0, 0, 1], LineBox[{{0, 0.5}, {1, 0.5}}]}, InsetBox[
                 StyleBox["\[FilledSmallSquare]",
                  StripOnInput->False,
                  LineColor->RGBColor[0, 0, 1],
                  FrontFaceColor->RGBColor[0, 0, 1],
                  BackFaceColor->RGBColor[0, 0, 1],
                  GraphicsColor->RGBColor[0, 0, 1],
                  FontColor->RGBColor[0, 0, 1]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 4.72}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"R\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSize->8]\\)=\
1\"\>", {1.2100000000000002`, 5.22}, {-1, 0}, Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{
                {RGBColor[0, 1, 0], LineBox[{{0, 0.5}, {1, 0.5}}]}, InsetBox[
                 StyleBox["\[FilledSmallCircle]",
                  StripOnInput->False,
                  LineColor->RGBColor[0, 1, 0],
                  FrontFaceColor->RGBColor[0, 1, 0],
                  BackFaceColor->RGBColor[0, 1, 0],
                  GraphicsColor->RGBColor[0, 1, 0],
                  FontColor->RGBColor[0, 1, 0]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 5.88}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"R\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSize->8]\\)=\
0.95\"\>", {1.2100000000000002`, 6.38}, {-1, 0}, Automatic, {1, 0}]}}, {}},
          AspectRatio->1.,
          FormatType->TraditionalForm,
          PlotRange->{{-0.1, 3.26}, {-0.1, 7.059999999999999}}], {0.4, 0.1}, {
         Left, Bottom}, {0.5, 0.5}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{3.57625358578067*^9, 
  3.576253657907628*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXXdcFEf7X7k7msSevJoYNVGQDtHEEmuixhY1iiiEJh0kxhITK4gaE3uL
GsWAooIiiPSjKWIXNSrWiCV2xUqTeje/fWb28O6Yvb3j/CXvH+9H99jb2Xnm
mWfmeZ7vPFNulPfMIP8p3jODfb07DZ3hPS0o2PeHTl9NncE+EjVhmCZBDMM8
6MTAPWJvuQ/E/kfB8AFP/p37YfhPG+PKysqf582b55SQkLBk7ty5ZmVlZZDS
paio6P4HH3zQRC6X870jqqur+zo1NRUqNTAvLw++m2OyLfUha3XlypWH7dq1
YwxudO7cmRHB+xZ//fUXptxZf7YNq6urr3Xt2hXS/CMiIj64f/8+YbtZY8mK
cXYR17pYzEwX/Tmdvnr16quWlpbAJdybVlRUWCo3X7Npa9asGZWSkgLfoAkW
hYaGwr2BTCYDOcI97R0DwjAUXs+0xdsgKelz9OjR/vn5+fANyFtfvnyZk4We
pMXQcHDX9tGjRzmDBw8214+qhkZrLEm4b/nixQtoULj/rKCgYNukSZNUGk2S
379///eePHkC36BJL9nY2DBiDWkiCqfm+tEanZyc3O3s2bN60eIk+E5paWmN
RCJRkqCm9w1pae3v3bsnwRUUdbp9+3Z9NT/WjzXoMuVNmzbF37qqtMKjtm3b
imtraxVFPW/VqpWCJDVNQyvoTItjb+UPP/zQ7uHDh8qSayxfCiNyr3379lrw
ZUpLAws+Zf369aC48AzqaqFfFfsdPny4wtTUlNICT9u0acNHkpqmoQV0psWx
53ju3Lmd7u7uyi3QWL4G5+TknHdwcBiTlJSkBV+m1DT2b4c7d+6Afqq1gM5s
cWbT5PXr1xPi4uLAp24JCAhQNUYnevXqpeiCTcvLy5U1i5qmoRE00DKiprH3
oPgcpyKjqqqqem3t0kj+uIbtfOPGjShvb2+9aHF8Dc/IyIBGwXW2EKTVlK+u
7z948KDa0NAQ/D6oKtSXUW2OGatWrRq3b98++DYoNzd3QXh4uIJFahrHoqSm
pkbNk2ui1ZSahgj4GpGeng73rrGxscCqonkbQw8sCYgP7j+8e/dulZGRkRb0
6Glc1/OJjIysr2tjaXFym/PLL78orB1jpdIU0DoKVLYwLCwM9IgjaUJN46oL
qnume/funLXTRIeexult0O+//w7m5O6HH344TCqVmutHbsChQ4cAiwD0hVo3
lhzXCM1fvXr1d8eOHZUbobGsAXx68P7770Nn2+Hh4cGpRDtSEqNsafAnUWeR
QuhKfZ4/zyiB9H4koX3p4+f1Ce8o5ZGQ4Rt71ws/NWSxIOp94vW5Er+QCWjF
6GHps/KC2OZH7wgU9DnJPio1RY5iBjmjbGdrdOfLDih7vG3BofXOQtl741tj
iaxGdnTdgFgkHW+LNhhMRuFMOFrfZIo8w9muz72Cm2aETCuFD2HGwIcxP3Fj
yjOTt/zev5X3f2XoVwZRU9N3aiorWlS+xCObpdGzL6GcsbZoY3M//OoGs4CK
A27djeqq6sz+18v+V4Y27zVTfgb21C3vVlr14qAv5HPs/WNCrsyo3TpyFEoZ
PxhlT7CBV6uz3B1XlaeEajCSPf6BZ/8h+pB4ccMslObsiM137nhrlDZ4MPIN
HrPkYuTWL27n3/hz9+Tvm1W/Lm/273L7HmmF5tXlFZVZ7t2UvQXKcLKrCn93
nsPj849bKnGJCeDcnxKCoaei98pPjewKGRkD/ClCZ76yQMvM/RLinOKYlvx1
VKJjbCBDMlmOiy1a3zwAM8GaDZQ11i5vy8BYMB1CZLoTMs1KUElN2sRP0PHv
zGWZbg7ya8M/RpkTbB4ddnH+T/FjWSsBMt0ImT6XHp9DB9wtUEyg3a+FWyOM
6mqr47LWhG/ImJZsIJfJWwuQ+QTfihenSSNQup8FSvSz7vf0QmFbgWyOJNup
HQt90N4g65oMTwfTuqqqdgLZ7Ek2w2pU/SrBoz/aEWR/L8tv+AfUdrMjL7d/
WPNQljPRBu0MtE88tnhue4EybEk2t2OXpSjb2xztDbDxuZWR+aFANhuSLXb3
H2EoKcBSluJj06n88eMOAtkI3pY0kSP57V1TxqCYILuyDK9eTRCLxzsK5CUY
UWxWhsqq0ly6ox2BDn/mfu/xkUA2gsnF3f96ehnlurEtH2C//HzE5o8FshF0
KQ7NyIlEGbilbQYUn7vQWSAbwcXiYzt+DkR7A21q070cmtZVVXahNhkhJpbU
oJqXe70GQpM9yPIZKgRsCevitsV1T2TZE20hW/LR8NldBbIRQYmdTl7LQdmT
LNBef5uAorQ0IejdiWTbHr/tZ5QUaClP8bbuXPrggZVANtJJjZXRNbT6zV3T
nFBsoF251KMntLq1ABmiWSbgKkwqX6PY/SHbKzaOdppwJe+EWZm8vCrF9TPo
CBdyv3NnbLWiZUzD4ejYJBuwCWvPbNxoJ0CG+AJePI4yxttOubAr257a5CSz
aNCt3FvypZ0mo1MjLFi7Wm9dC3Z+G4bfEGKC1MVoZeTs8wpQprCulTlun4Bl
Zey1qojR8HO3jqFdY79ESRMGgdtF14Z1qpW624PbZRwEaBBXY5Qau24m7h3J
PtZ9igsvKztDhlg/xgj/0WrGhTbPJOZjoQ2xKUZVqOrlPs+BaFegfWmmR29s
Uz5VLtpYKMhPmyOR8BVLXIX4s+uPLstz3bpCselH5v3YQ7lEeqTakJBUiafx
1o44NvHmxNhlKN0fe5yxD/KP9lQphhqO1amYFoSQqA7VPdjjPwIMc5XUvZtx
XU0N00ulLGrgkbesN4NoguDEH91/fY/FAzas1toX5E3z+VyFODWOplNFCPQS
z8vK3YYyfcxRgr9N8PX9qX1UiqHGh7iWVomr8bY+GfFgR3YldoYLigtibb2n
fZvqV6+YviplaQiRiFSCR4Z8ZZHoqLj1i7oXNZkTHEFy13MCxvcXUE0SgBd7
Hz2dinImmaM9AbaLLkZFDhDIRoC6+PDuxcFoX6C1LG2STZfS+w8GCmQjtRWb
VqCKilSXnoBVHmV5D/lSIBuptHjo+Vsn0AEPcxQbYBdRsHrlIKrxJK0hTti7
aT5KDsDGptfzy1cGC5RB4lcScLMv9rFudleQ3atMzz7YQAzhzysjRkN5DAyX
zd/Pi+S5rljhU4+E/jSUnwLRERP1cU701Cs/bdwfuxLr835f6xH3TxRwIUgN
ZIypgw+/4NGVUo/uRrLamuH8FGoIBb4BgSys1RwYEIwQoiA8KhAkYQx2mjUA
1nwDAmUKmEA1yfdNwfV8lMtC9xPfdamjjABG8pdM2s4ElLUgJtQXJQRay1N8
rYY8OX1GfQDAfM1PhoQeJR88qnlcK3VxQNFBDk+yfQbhfjSWP1sF6bVrkuLX
oQzfrig+wHoxq4dO/DnKFJYDVT3b6z0YgEl1pqdDm+qSV8x4/mylpKAxp4uO
oBx33EEP5c8KnsCfo4TkOBUTFgC6Lk/xsRpcfPrMRPUmeEnea/ekppituSPU
/DFbc1d+yi9IjtUpCRvYSltApRdd2hb5LX+OZ6TSMNh5Fu89RKXSbvzZnpKC
vj5bdExR6bzDsyZ78OcoJjlOxCwIZCttBT3hy+Izf3ry53hMcrQtrnlam+Hy
CQDOR1k+gyfx53hEcqxITfgdSX2g+jbhl7ZHefPnuEP6qEo0Gkwea7SK4yYN
BYdcLfV0bF1dUsL4qLfPLfzAlIaSIUA94lzRcZTtZskKx+7g4dlT/PjZIJRM
aBj5xcGQAVhgqT5WA5/+eZ7x5ydzk+isJoz8LGns6EAhCsJAOUCoLkart846
x4uROQ6I92qqDTbVuFjJgLcmRmtT4tajbSzETqbA7CBlNrTEqfSFNyIKB0WE
7Dul8rLyZLfeMGCsSfd0bF9R/FQZqAcrM6ERuqqsJaFBseskZWVa/AYWhVmA
W993dNH871VKoKJWkqa6TgLXCSPJKyQnDP3Kkt0+RzuDoCYOUBNmqgpxKkzl
iKssAaAJ7CrHfnrCRpTlg6NF+48unDtdpQRNc8t4jpujVj/HTRPUZfJ+03IE
FepDKuTh2KHicTEzQ6U4TfOd1DlcWnGXSMWWpe/fhLK8ccWSjiycO1OlJCpi
5bCX+hQlrZBCQgagYGmyu6JODrhOP/Kr6wVSwtKMpE0o09sceEs5smDWLP4c
55QKSnLvq+gNH5exjTKbP9ufpKBfpEmbWSHgglLZguaqW9UzhLzJa/S6NOnb
vuBaAONj8vP4yZ8m5H/OSo5AWZOwjDMOh84M5c9xlDxTQZoGyoW79SOFe9iz
UPwhE8ZP6vAbT9D94a0bRTuCJj1aZx9q9ejKC/AEC7NStyqYkubP/yFciJIJ
DXVWrBnoByi6NsPDzrz03gNmIT+ZfGJ7+KAnWtBi1vF0v5mLhSgIQ08NJEhd
jKpz3B3UYefZFQM3Y0+gnB3nPkQ4737j4bW6LFdbiDwjqZstujr8I8CdL7Nd
RgHu/Jm/2INEhBACv7Zn6kSUGGjF4n2r+Rd37WyAO5fwkzlAusKUI/kJKMfT
AsZ/dzL9RmLcuZw/W84bW1ma8m0fiLrJ0j1t+hefL2RW8mfLJt03PvG3+Ujq
a452B9hm5M/7YTV/jkxSEBZUtqsdig50qJC693i36uVLZg1/tgySDaTzVxwr
nX1EOvMu7Yph1vFnSyfZvs8HaXhYgDP7O8tvFJbGevU2TCUvg+crTeVkkOZp
0+8pK4MN/GWkEBkkJLAyyPDDQ+f0w6E/buLPkUQK+rTo4VXcWViEXC+D3/mz
JSrJYE+9DKznXIqNZbbwZ9tDnqmARc5gzMg7GIdyPbFcbmf6j8ZyieAnFYM/
m/JBxxaldSXY07L4U5bmZdu3uPAi84cQOSp+fJg3fQgOpWNphv3IRKm31i6S
WRNqrIwfPahlTWkZs42fB0JGGDpqIEGqYXR5/tAIXuiII32ukEvDHNZOYkTG
nr2YL8tytUErXEfK05wbAMCelKzOlGfN+UuKJsKDBitJZh3G7iBbGNr8dCkO
9xaViGwv3YrTIXJLW2pPwwhE9jh+dnLv3ACU6t8V+sWxAz8GMP0bw52WoLnB
knIac6RjSuYcTNuFsj26gkF7JfXs06KGre8AyvscrAT/Xf9spBDDdICtIKW8
wJqGUIkKSizvPrtVne6KJ8Nk6ZNsxt09fJT5gvI+B9xtnz+4EZcTMbvHk9uX
uGlisy8OHjwob9KkCawYBainwLIAweEe3up+5swZCIraXrx4kczut6TF6NV7
Q6M2fJgJSk5TuFtlUfSbEPRmklNci2pvxQWPgxAQ2hdgHXN86WJmEKVAInlJ
24qSZz8XJG2Eb6Fn07Z2Kn32gJObYUmzZs2gknBFe3p6Zg8ZMgQ6G2kusXK4
Guor2eXm5saI3XfuxDZBMclA3jbWZ6/FO4IC0xSzV1nDTNMG4ockkUlblyMp
O2ZgUfbdTH8CPwZT3ueW/5rWVleuOJGw1lBWiyN/IrlMtuzkvnXNq1+XMe8S
mq+aN8eMwvrOZ61bt4blsgoeVML9JpRnuu55aCYoJuqIjtNIldXFNI0kXl4y
5PL1UzJAANsDHaqlHo7mJffvM19xfUr5ffb69VTib4zBlsM7lzCizIy132Wm
r/sOf+OepWRumH4wdVWg8jOsuarsi0GMXtu3b680Njb2joqKkjTsgZZXr16V
bPfy8mLE38bExCgewyuGGpSKtmtBuLtpGqpSlwfTut1G8n7TCtnrkiT3ASr+
bBhdnt8WnZIyooArh/cxkoTszT+CxsK32eek25IzN05nxDhN1KXkyV011nFX
NL9+/Trwm/r1118HbNmyRdHOYNrqhWnK3xW13nYgLEJNY3D1db006RFwKz4W
HxaEUv0sFb51BL+pA31eUrB/IwgH9BT0lTN19XoKV6vnz5/j+AInHNjucbx3
794CwtF9O4AGIdHwDxnSiJSnajgWJT8dyoiVZ3tYAiqvd+Q0B82ZRBicrTke
t8qspqqCW/olAWuveO/jmzdvXra2tubYoU0Z6rbcXoNpolV1Gf40U2D2Lakh
yX+v6bhWMciHVIv7z/6uynD5FIYBCmAwikKqI6k3OHLAALOWLl06f/HixbGu
rq69jx8/zjFGmafUaSF7o+pnFPvX5jB0YrgDSv7WFv05wgJlDhg65mjKk5vx
QU6MAbhvRoQduCIfrYJCKBqnLCWdFwYer/4a54g2fTYaw/2N3caiC190RWFN
56FI5/4Kt/dNI8pRSyIlGo8oyrqKMp1t0EKDMFxieJMFKNOJ/W44L3PXiO3j
3lpJo/8+n1982rsnWsd8j0v6jZmCTn5lfXvt6JkwnHkLJf1KSoKQ1aNE72Eo
LdgKnXWyQHeGfIguD+tSuddrIARMnPQviQRLcGDlzN7Z3ijdrytEtG5kBn3z
S8H+DS5X00+e3h0yTSKrreMmzPQqjoR4TKKTNi9G2V44AFNvRtgUFXNBI02U
rJFAu40+QJv2nNNRz+jo6FUzZsz4cfny5QAaaIt2NchkEbEC0w7n7ZHnuFnC
GAngzqfPrxVx03VULxOGDi38GR2Yp7hCUf6i/w9A3Uybjbsadh6Dx2vx8uVL
sHIvW7RooaN0SFxVMvDq32dqs13sYTUEa4Wt/YpY4OPBL535KP+NNWOv2ejI
r+o+WA+s3JSKldl76nNOEmDDm5WUlMCwAwCOkCRwCgmwSNo/LX9clubWG4O3
ZF/rTQXr1jBeXI2VCbDXt6gwhgVv6MwWRpKEdo+BO8WViPaMZcEbpIm6oOdF
agW/FQBsTAXA7F/FcyIPI8VjuHqdOHEifMGCBTCW9du6dSt15buGbjKfiALm
vO8lBozEAeJ4f5tDB2eHMN50Mf2Kcmczoi0oNYCRnEYRn8Kd4jqFtvZgxDhN
1APdP6XGwtvAuMZ8W1gVzylSsr9w4QIYqgQnJye8AVJHKZGJGUOIFZ1InOeP
Y4istb+d5T9aJJfX+fDrUzjKW7AU5cxSXPD9LWJa3m2fGraWiiHiAX0FhvLp
I0aM0FEYcwj3UWkRS/GqLhbSlrC+qN3rZ88ZP8r7ncj7bwu+athZKYYyoH3B
6bw2MTHRsWZkok8Scjxvn4zzKDUZHg7YowRQ3m80dG3Kt5dTE6QFNwOVhwpP
Xbt2rY6VI5PTqhF7bnTS58bfhTVZrvYwxSdnobr/9Yx0bkGAXqjlO/xpxhfZ
h9Q2r6pelKa7fQ7LF1Gyr9WWk+tWTn5bJZvSJgFSrq0PuZMUMAo2DYCpg0Hp
d40oEaeQBQtminlTTfMGaJtz37tS/5FgMKboX0OybMRIfZrV+0zUBdqUw7no
CWTC+Pu3VbQZbV728k+f7+Gbrpiqf8m+5AXlaWread2wZnNQxtgvGyx0maY/
G9502cPoN/QkmSPmZG+oPD+sPAEynUKWcxliVFv7I1q+fCEKC5uBVq2C71y4
8r8FwHOHqqg4JPYC75s2cuRIWjhIUJzv0PrThshlmfIDE61458xn8svxB7Ry
ZVd07Rp8M0fXr09Fa9f+VwF9GnTmwlDAkwIOU5d0aRAnWUbYXGHoNa17QKd8
LVnFcFRfUcAtkmkA/ZqjV68YUUv04gUj+QXNmQN3imsRYmsqxmkiQ0SmuJRY
fRujBzNdRg9vTveRKJ/uMz4+Ph4AOjWCrkGqbm90Xt2Xqem8kbLON1hl8RNd
soXIzo4RvUAtWzKSCmRqWoKaNYNv8Be+M2KcJhqP4uPV2P0nxx6GfCf2KB3L
tNvFxUWrfotTiFzfoXlq6aW1QbR12vXKP5df+UWorm46Wr0ajCgovgFSjSX/
M4MQQ77jdTgu9zo7OyvO7SKCYTTO5RO5NtcKbhz3tZJJ3ewbqPY8Ct1OqioK
1z84IFE964YTTeDmzZsVszTaiGbCG/0UwEOGiiUY6ro5n18y/6+DFyJhE5Uj
Ztjrq6ysLIWKgbHcOHnyZF19AZEKFaq9nv7RSj6oFk4h9Q8NdogwDFWOemGv
sYmJiRAHMoApJ0asnKTUMcjUlYk2y0QU/VqlD9N8wjhVnYNvmjBnrXTc0AaY
cyGFrv7rSWjOk1aDb96ohvomIG3h6qLGVEDjxDi4Z+Accy9q6KfrdX4Mvmuh
PG6ldeeSoGAPlONiyecsljSqBhoOv5PQ3CDRf+zdyQxxKxpgaFFVRu8/oa1m
Vf7p06082/szdbv9S6P41zAfLKb7JFVqZLbWiOadrx76yUlr1PNro7in+gwJ
r89QJTVUtd9o9JVZ/JvBVlBIc5EXlYle2ry2FmsSuPleFdtPGz6RZS7GtN40
+GZO/SpDpbaoS5/YqyzHp4f6LjXFNLUKeW4TZBMkR+uk30tvr+209uMXN1/o
Nep8/22POuE5bXWfhkCYprUMnOhVPA2/6FvSdCD5r/VTNm2eXsDnRxvowSoK
fdJ5DSE9MtknmUzCMuH3V32wyvLp1aekDf47Rqw8Kxh1jESS1YHaodi1I79B
KRMaRnHWU+hyjQf09sRPjOeCX/jzyYr3VsD+UvwG2Tf/z09n0Y6uNdJNdANI
Jm1RbvnGfl6QQ9mV/8Z1OmWy7HUkqm8UY3Bz3cfrGNHDVe1WKboh27XwZ/mS
pksgFa7R15KvEcT1r817KdsIvNBSxz5IBEkFxsfCBqfxKfTvdOF1eHXnFSMC
i8mIQgo2FNQslixW2iUiyY0eFA26DG/AZVZdVs1h1n9rSgwulYWXWs2qkoMF
mgnGlnDwdVwDtd3M63okQ29k3qhYYroEyMQmuCaIZbUy9UWacP0j41Laea46
amrvN5qqfmKjtqB7C4Usx0XfO0furMmclomdChfW0HGM2lKnMSriOVZVR7Uj
Z5OogHmaX32aPP9z+QF+MP8HhfQ/ND7lOdlURzmQM8WogwPDumq6O0x3tpUX
eFlXZXl1Ux8cRFKK0HFOgzvljNYaxy6EeasCTN4QSpT+jJCzelpohQ7Cbaep
W2rFgZA79OfE/o0KCzhbDLhr1vT0On90Wghr9GzB6CkODuR24OjFCjnsrLXQ
IPhE2JepvLuFkNoWnF2NYAunkPO6Wuo0suWbjYvTXzaEHW3GqLyWdi+FLDem
hFqyQANfjAH+FCkmr4kS489GjpEk1DHSh7oJwFzVqGrQGDuU7cI7l7aPXwgs
h1A4vlhMA58ithJvhEAg9VsapHTUrfrkMDpdhsby9Ak9K7K8P20QG0/UWwT6
jSp0bHgSnG6tiEPwjVDj1/nkaD1C3c9VWrkc9vp19my29C0BAeyndNgwdVFI
4sePR5CquHqcOoWYtzJG0LE3fKhqnBQr0+0eFD7jdSMrRjqhVOeGximNLguW
Q7ZUFqeznxtCQhrIInzBAgSpiqtLURF6K2hfx+5BXjf6Jm1/DYpq5YJiB/dE
Ke8NQrOZpbTB4sMtQyerO4l0foVgISaauWIFvhgD/Clq/ewZr0LApTN417HG
5FkL5Vg9XlF/fZwjSnbujg5/2R+ljP8UFQ62kM+XLORTiixeXdMeZHcQ4Byn
/OdNZ1VfSDLyeibvunz5gaFfNOis2ZQCG4GJdVQ3cvShIDBZnLk1teKkqyPf
2n8VYJJDKUdHTEC0Tbfge3iLWSjJ316+p/MwlGcwEKWaffV6t+cgcAx5b4sj
nSLpty/4jj5esHp88oPfvR9lTR20SH5gAXcmhF6skGZvLYSw4Vh/efZE3ul3
lU0H+fqzRXbdag23UfqEz2qlHg3XrhzTnxVu2ZT6wXu0ni1d8nWeuh2pznZ1
oDnX4/pzRoxvK+CsQ8nD556XcvLvbPNzV1gNjfg7fVwDq3Ga12g0EtCaaTP3
aldYWAgrWEempaVxk2m0n50T3JSGUwgB0+ZVFRWTCjPzH//h6yyP8umJtvp3
Q7u9HFCaiy20066EudtByQRGAmcoRXKTI93OorNXLZFlhSkyXT0dTddnKZkJ
YF7BX3zjFgaELlq06Kdly5YpyNB+7U14A9976jCm08v7zz0u5B6XbffpjSIC
uqHtQY7oj6BP0P7JliiJvQ5O/hhl+1jIw5vPRjn8a/DO8YpMUmiH7BDz5t83
+9F+nXdea3EaGEjsZM+ePR3Onz+voKHyM2yCOznfhRQwPZ88vHb/wC739fLt
Xj1RROAn7NUN7QhyQH+wf2OC7VCuTxeUxep+vJ8NSve1QMutvGuOje5Lm7Nl
znM6qyb5kWkojRE770V7GUmdCImURRTrilwZEU4TdbiD7qixqxuYFgGYro+u
c2tHVKLA3K7+oZmZmYf79ev3w8qVK2FR0ppp06YpBKnya2oaBEkOhH4XhAip
V9ePWYwi/D/DQoxiu1Yk/GWv2CA7FBuMt6ejFN+uSOpki6Q+5mi3n13dcqsA
6qjkAl2Qm4JRMCPe64ycYaoetVUIUd4ENckdhAYxIpwm6nsEHVFjV3skzo3U
Nf0UWqGdnR3YQvg2cc+ePewIaRjfT6EJHgLwkTYmlGovie1ATSvK0dH1o7bj
EqD7buOk/wer5MmTLeAHAOC4DtwCMYF2aBubluhnBecqoCM+XTo/vFHJnXNH
NYTvFqPiaE/keWgAGjAhDsXpup2FE6imXzNTFjZsE4ybMAEvZaL+mpmgRDtp
89uaVKuKuFF1LIvYckK64BK2BzqiaPYCSUazhiGSvU8NssD9Gvr31gBiMKJZ
6eaHdNpcvHv+VQqHmgYU5InGUwxgnTXMv8I3cMkgJeoPjDUXko6mY2BaK6wo
gMRj6/rHsqjLFu3wd8TUjvt2QElsv4liJbAv2ArXOJKtfVQA0fS4IBvZDu8e
z7aMdWtRVV7GXKOwotUQReOvfMEsDdgtcKm/zJkzB4fQeH7lS/gEDg1HQhoq
LGH9uU7JLnYgBGKXJLjeIAO2d1Tu8+qH61xEKZEcxqH6W2LCZ85QDRAx/y3U
jQw8/XXH7MsYmSb5WWKqiZOtcOeNCnDEHTTG3/H572Nw09yklN7I9TmkVZpT
NZX0cXQtJyQYHQ/piClnsygDOg3Lza4Evzhs7m83ih1NZ6qrqATXcQD3AbWX
kb7DI9KmxuOi7zSqaE2HZaj3QdoaE3wYiPJJXm0oXYS29hN/Cv3OnJbp+F6H
n/Nmmvwfkn7SLQ==\
\>"]]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.576252758683133*^9, 3.576252759027588*^9}, 
   3.576253916656201*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Case", " ", "with", " ", "3", " ", "mutations", " ", 
    RowBox[{"needed", ".", " ", "Bottom"}], " ", "row", " ", "of", " ", 
    "figure", " ", "3", " ", "of", " ", 
    RowBox[{"Sup", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"eq0n3", "=", 
     RowBox[{"s0", " ", "\[Equal]", " ", 
      RowBox[{"r0", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s0"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", "l"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], " ", "s0"}], "+", 
         RowBox[{"3", " ", "m", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", "s1"}], "+", 
         RowBox[{"3", " ", 
          RowBox[{"m", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s2"}], "+", 
         RowBox[{
          RowBox[{"m", "^", "3"}], " ", "s3"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq1n3", "=", 
     RowBox[{"s1", " ", "\[Equal]", " ", 
      RowBox[{"r0", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s1"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", "l"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], " ", "s1"}], "+", 
         RowBox[{"2", " ", "m", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", "s2"}], "+", 
         RowBox[{"m", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", "s0"}], "+", " ", 
         RowBox[{
          RowBox[{"m", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s3"}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"m", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s1"}], "+", 
         RowBox[{
          RowBox[{"m", "^", "3"}], " ", "s2"}]}], ")"}]}]}]}], ";", 
    RowBox[{"eq2n3", "=", 
     RowBox[{"s2", " ", "\[Equal]", " ", 
      RowBox[{"r0", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s2"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", "l"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], " ", "s2"}], "+", 
         RowBox[{"2", " ", "m", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", "s1"}], "+", 
         RowBox[{"m", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", "s3"}], "+", " ", 
         RowBox[{
          RowBox[{"m", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s0"}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"m", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s2"}], "+", 
         RowBox[{
          RowBox[{"m", "^", "3"}], " ", "s1"}]}], ")"}]}]}]}], ";", 
    RowBox[{"eq3n3", "=", 
     RowBox[{"s3", " ", "\[Equal]", " ", 
      RowBox[{"r2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s3"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", "l"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], " ", "s3"}], "+", 
         RowBox[{"3", " ", "m", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", "s2"}], "+", 
         RowBox[{"3", " ", 
          RowBox[{"m", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s1"}], "+", 
         RowBox[{
          RowBox[{"m", "^", "3"}], " ", "s0"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"1008", "/", "1000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1008p2s0n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1008p2s1n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1008p2s2n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1008p2s3n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1008p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep1008p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1008p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep1008p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1008p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1008p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep1008p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1008p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"10047", "/", "10000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep10047p2s0n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep10047p2s1n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep10047p2s2n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep10047p2s3n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep10047p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep10047p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep10047p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep10047p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep10047p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep10047p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep10047p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep10047p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"1003", "/", "1000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1003p2s0n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1003p2s1n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1003p2s2n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1003p2s3n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1003p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep1003p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1003p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep1003p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1003p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1003p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep1003p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1003p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep1p2s0n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"solep1p2s1n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"solep1p2s2n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"solep1p2s3n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep1p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep1p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep1p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep1p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep1p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep1p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"102", "/", "100"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep102p2s0n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep102p2s1n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep102p2s2n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r0l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep102p2s3n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep102p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep102p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep102p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep102p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep102p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep102p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep102p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep102p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r0l", "=", 
     RowBox[{"95", "/", "100"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solep095p2s0n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"solep095p2s1n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"solep095p2s2n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"solep095p2s3n3", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r2l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "10000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep095p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep095p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "2"}], ",", 
     RowBox[{"i", "<", "20"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "1000"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep095p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep095p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "4"}], ",", 
     RowBox[{"i", "<", "11"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "/", "200"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq0n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq1n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq2n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eq3n3", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r0", "\[Rule]", "r0l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s0", ">", "0"}], ",", 
           RowBox[{"s0", "<", "1"}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s3", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s0", ",", "s1", ",", "s2", ",", "s3"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solep095p2s0n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s0n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s0", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s1n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s1n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solep095p2s2n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s2n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s2", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"solep095p2s3n3", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solep095p2s3n3", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s3", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "solep095p2s0n3", ",", "solep1p2s0n3", ",", "solep1003p2s0n3", ",", 
       "solep10047p2s0n3", ",", "solep1008p2s0n3", ",", "solep102p2s0n3"}], 
      "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "Green", ",", "Blue", ",", "Purple", ",", "Red", ",", "Orange", ",", 
        "Brown"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\[FilledSmallCircle]", ",", "\[FilledSmallSquare]", ",", 
        "\[FilledDiamond]", ",", "\[EmptySmallCircle]", ",", 
        "\[EmptySmallSquare]", ",", "\[EmptyDiamond]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.003"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "solep095p2s1n3", ",", "solep1p2s1n3", ",", "solep1003p2s1n3", ",", 
       "solep10047p2s1n3", ",", "solep1008p2s1n3", ",", "solep102p2s1n3"}], 
      "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "Green", ",", "Blue", ",", "Purple", ",", "Red", ",", "Orange", ",", 
        "Brown"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\[FilledSmallCircle]", ",", "\[FilledSmallSquare]", ",", 
        "\[FilledDiamond]", ",", "\[EmptySmallCircle]", ",", 
        "\[EmptySmallSquare]", ",", "\[EmptyDiamond]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.008"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "solep095p2s2n3", ",", "solep1p2s2n3", ",", "solep1003p2s2n3", ",", 
       "solep10047p2s2n3", ",", "solep1008p2s2n3", ",", "solep102p2s2n3"}], 
      "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "Green", ",", "Blue", ",", "Purple", ",", "Red", ",", "Orange", ",", 
        "Brown"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\[FilledSmallCircle]", ",", "\[FilledSmallSquare]", ",", 
        "\[FilledDiamond]", ",", "\[EmptySmallCircle]", ",", 
        "\[EmptySmallSquare]", ",", "\[EmptyDiamond]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.032"}], "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.576253723979291*^9, 3.576253758843968*^9}, {
  3.576253790741537*^9, 3.576253809949999*^9}, {3.576253855674251*^9, 
  3.576253923089158*^9}, {3.576254189543194*^9, 3.5762542724185057`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJx11wk0lOsfwHGUiKIF1XQjIstkGWU388hkmWFm3pkxI7vhn0SNMA0KLWO5
uSUVUV0SlStLKpVSjRbUVWjaF5S0ItJm6+92bzO/Oed/z/895z3vmfd53+d5
5nw/Z84Z/bAY1iolBQWF0R/n39f/PczJv/R22+JQiCkyz7bgkH5+NkOSTD/O
3CARiWfNsTIrX4p8yll87bFC6bgjMhxM5BzzryGNl3+U0MJc0Km7nhbGKZek
z5PR9k3dnSfzmknNF+p2Thl0R2FGI42BoXek71PRgOY2WpLeI9Kels2e4hQa
Gtlco+uh+Fw6H4bwCTnWhlt6SJb8UsWLyiyEOeU7RWS8k87PRgYNOcPU6QOk
3K9TQgq8OWjwdY9fc8aQdD0u+u04bfZ98RfSaGrURcHelag5uNtYwWJEur4/
uvBHjOaW2+OkEJXWecwnAag8TM2eQVNAP/cThAKLNr7p8lRCjbsICeb6ISjP
mHuz1ncy+rm/UJRi9OK7QeIU9HP+SBS/N+5B0eI50vH1iHXdZ2rGhD7apFXt
8WKjAO2dOzxbz9NE+nwi6ssPjRYaWqCkd4sJqpXJaGGL6XxCPUH6/ha0ucF9
RRFuGXLqYuzM529DXONEzV8JttL50tCZi6YfUybZowuUaUr4zAz0mcWuMshz
kM7/K4qJzFBf0+uIHGpvCC8fykLDY0PPLNWdpevtQLW77NHMEWdUp5vey6zL
RjWWwb/RzhOl6+egOWrFeo0MEvr9+sKauMjd6FKPzucRMUm6nz0ozbJDQ3s6
Qk9H/lkQ6euoVPQ7IOn+ctG906+ez6AgdGD/Pwc69cF/a7UeSbpeEfroYKRm
ou2E+ph/3zmMbnlK6pMqZN/vCMoVm8VHLSUgtYel64lqZeh4YFHJ4wYj6Xzl
KL+xboFSoQb6f57Tv09f0G1sgGSeq2Jwv+w/g0cyz5RzjR0NmwlI5tkvTufU
71uXIZlnE5sCBtKxQzLP1jyrurf+DkjmWaCD9dfwnJDMc7Rxo26DLRHJPGvb
2elf6iYhmec5+sHearYuSOZ57qtRmye9LkjmmZTcRBDnLkcyz/Z9sV89rV2R
zPO47efmy42uSOY5U8w7ZIWRkczzC5ULa0QSMpJ5LhtLHU+irQDPqsTnjfVX
VoDnwjKll48t3cBzvmSPBrvADTybFNZNJF/1BM+2J8uq8yVU8DzjwAOJur03
eBZGFtMX4GngeeqfyzrX3KLJPaepUHKt6OD5at/KiJRVdPCczbgf8E5AB89l
RTE+X3+Myzyn7l4zb5RIB88pTYRF0xTp4PnT/WhmyCkaeD5hs8cj1YcGnmeq
WBE3vPMGz6szrpwYiPMGz33frn6gDXmBZ/X4xWpnIr3A81Gc/S3cQyp4Vlo9
/nzvIQ/wnOfiMaV1iAyeJcejus73IPAcyeLfPhhiB54d0KXYijtLwLPC9Rd8
38Va4NmFs8+vdEskknmu6xhWDv8zFDy7+Pjfj63ngmddKxNFfw4TPEuEdR/2
vaaB577rvowdJ7zAs6nJ9+7kA1TwHNIwMfOSFhU8n+OtDYp4RgHPkVtL1Urb
KeDZWXWXWWUXBTy3CxGXOEEBzwNq9lycKRU8t58e1mb7UcFzr4Gro+9OKniO
6zQmx16jgueWypXRiaNU8Lwr6Gt/McELPK92Zb8N+tFH5jloZLiVVuQFnkXu
oevN73qBZx4lfyZlHw08u7SJiYI7dPAckOngnnyEAZ41iMKXjtoYeO43XtSt
74SB56jes6czqBh4zlQdU8V5YuAZl2N0k2qHgeelLY/aKnAYeM4mFz6NessA
z+P/WR79IosBnnWPkcWmegzwrOV0UWhXRgfPV6tb4ooN6eBZMD7tw8kCGngu
TvDV3DKZBp5pDcUFHyO9wTNvmW7LjSYv8By2VEsz3tsTPC8kt00e5q8AzzXq
s5AmxQU8n+IRninckXt+FZ5g5sU0B8+eHSYdQSlyz7IOMr/zxPPP77dYDX7t
tc227azhgd+z2c7p5oaB4NdZsz9E2OQLfssXzBCTjDngN2Kl1fHcdDb47QxP
IZwVssCvgslDyc0GJvgNdLNvCCAzwe+GzO8lPr0Y+M1qDe8YrMTAb7ptdlDJ
Fgz8Gi2pf8vjYeB3e32k6UUvDPw6MM2fuxIx8Lv3acI1m2UY+BWe3ZHtZYmB
36RCL59scwz8lnCW1pEtMPCb9Sl8ecFaDPyKyL4dw7UY+N2v6kOf8xYDv53z
339NmswEv/E9Q6LF05ngl3FEpX2tMhP8Xg/KW6E/KPd7ZFN91I42ud/2+zZ3
Nh+V+3U8Nybmx2PgV5wcShQ5YuCXqlT7PfCb3O+uEnxXVAwD/F7KOhEg6JT7
NW0d2prhRge/X10tnbYdlfv16W+/bTgh99tup56iwfYGv8deu3YpnJT7XZ6x
Ju7lWbnf7Ozke3qb5H4XaA8xuLPswe/O+rGI2gNyvz2SvIURJ/7tV+btVfOI
xDNpFXi7nT9wPGsgDLyJ2uM/T5rBA286HSUn33FCwJt3TFVhlUMQeGu6uC9N
tD8AvJFHV9ksZPuDNzJPz+8R3Q+84eofv9JPXgnezkevwhPbfMGbpWpPagXy
BW/ft1s3LWnmgrcMYtjAbB4XvCXGKQvvTuWCt4Ly2QfDPXzA2watNcKYUjZ4
08h5uzuRygZvp3unTieqssFb0pElFQ0tLPnv5as94+JsFniL9uSve0Jngbdg
/FIcUmeBN0a+MLbpGhO8CWLf/DcnkQne3iuGTX9mygRvxDeUC/0PMfCWrJN/
S12EgTe+e1RFAh4Db+mfHhx+XMIAb6X3Kl66vKeDN76r8zqROR28mVY1rP68
lgbepn5kK15OooA376c1/HY3N/B2r4b6mNop99YZzLWN2Sv39lohQLQVbwHe
HI64KqvO0v6XN9n1CesPtT2S1dBDWK13EFcdBj1Kn+HXVS8JhR5piqkXGIFB
0KPrgUblPnYA9CgTfJn8pdUPesy6TSu+UbASeky+H5wmyvWFHolVxcLKk1zo
8dwlfZ7xaw70sDw8u5KP50CPZBweW5TiAz0++yurOD9iQ4/aykxKtiMbeuw/
FXYorYQFPTa+ueUwqMGCHnms/tr3qUzoIdBqeHDlIwY9KHdOc9z3eUOPDXm0
L08FHtCjVLWv2jrYFXoovI8eDBc5Qo+sJwtRoJkV9Eg4Hv7aOksHCc5fa1tb
Zgwd2mI7TAK/keX/+3qN1hf3qEK3zWYGqwq1lWF8aGpTeJKRIYzbVU0Sntc1
gvGwCcKxfCN5578AZjf/cg==
    "], {{{}, {}, 
      {RGBColor[0, 1, 0], 
       LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
         19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
        36, 37, 38, 39, 40, 41, 42, 43, 44, 45}]}, 
      {RGBColor[0, 0, 1], 
       LineBox[{46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 
        61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 
        78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90}]}, 
      {RGBColor[0.5, 0, 0.5], 
       LineBox[{91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 
        105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 
        119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 
        133, 134, 135}]}, 
      {RGBColor[1, 0, 0], 
       LineBox[{244, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 
        148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 
        162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 
        176, 177, 178, 179}]}, 
      {RGBColor[1, 0.5, 0], 
       LineBox[{245, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 
        192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 
        206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218}]}, 
      {RGBColor[0.6, 0.4, 0.2], 
       LineBox[{250, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 
        231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243}], 
       LineBox[{247, 246}], LineBox[{248, 249}]}}, {
      {RGBColor[0, 1, 0], InsetBox["\[FilledSmallCircle]", 1], 
       InsetBox["\[FilledSmallCircle]", 2], 
       InsetBox["\[FilledSmallCircle]", 3], 
       InsetBox["\[FilledSmallCircle]", 4], 
       InsetBox["\[FilledSmallCircle]", 5], 
       InsetBox["\[FilledSmallCircle]", 6], 
       InsetBox["\[FilledSmallCircle]", 7], 
       InsetBox["\[FilledSmallCircle]", 8], 
       InsetBox["\[FilledSmallCircle]", 9], 
       InsetBox["\[FilledSmallCircle]", 10], 
       InsetBox["\[FilledSmallCircle]", 11], 
       InsetBox["\[FilledSmallCircle]", 12], 
       InsetBox["\[FilledSmallCircle]", 13], 
       InsetBox["\[FilledSmallCircle]", 14], 
       InsetBox["\[FilledSmallCircle]", 15], 
       InsetBox["\[FilledSmallCircle]", 16], 
       InsetBox["\[FilledSmallCircle]", 17], 
       InsetBox["\[FilledSmallCircle]", 18], 
       InsetBox["\[FilledSmallCircle]", 19], 
       InsetBox["\[FilledSmallCircle]", 20], 
       InsetBox["\[FilledSmallCircle]", 21], 
       InsetBox["\[FilledSmallCircle]", 22], 
       InsetBox["\[FilledSmallCircle]", 23], 
       InsetBox["\[FilledSmallCircle]", 24], 
       InsetBox["\[FilledSmallCircle]", 25], 
       InsetBox["\[FilledSmallCircle]", 26], 
       InsetBox["\[FilledSmallCircle]", 27], 
       InsetBox["\[FilledSmallCircle]", 28], 
       InsetBox["\[FilledSmallCircle]", 29], 
       InsetBox["\[FilledSmallCircle]", 30], 
       InsetBox["\[FilledSmallCircle]", 31], 
       InsetBox["\[FilledSmallCircle]", 32], 
       InsetBox["\[FilledSmallCircle]", 33], 
       InsetBox["\[FilledSmallCircle]", 34], 
       InsetBox["\[FilledSmallCircle]", 35], 
       InsetBox["\[FilledSmallCircle]", 36], 
       InsetBox["\[FilledSmallCircle]", 37], 
       InsetBox["\[FilledSmallCircle]", 38], 
       InsetBox["\[FilledSmallCircle]", 39], 
       InsetBox["\[FilledSmallCircle]", 40], 
       InsetBox["\[FilledSmallCircle]", 41], 
       InsetBox["\[FilledSmallCircle]", 42], 
       InsetBox["\[FilledSmallCircle]", 43], 
       InsetBox["\[FilledSmallCircle]", 44], 
       InsetBox["\[FilledSmallCircle]", 45], 
       InsetBox["\[FilledSmallCircle]", 244], 
       InsetBox["\[FilledSmallCircle]", 245], 
       InsetBox["\[FilledSmallCircle]", 246], 
       InsetBox["\[FilledSmallCircle]", 247], 
       InsetBox["\[FilledSmallCircle]", 248], 
       InsetBox["\[FilledSmallCircle]", 249], 
       InsetBox["\[FilledSmallCircle]", 250]}, 
      {RGBColor[0, 0, 1], InsetBox["\[FilledSmallSquare]", 46], 
       InsetBox["\[FilledSmallSquare]", 47], 
       InsetBox["\[FilledSmallSquare]", 48], 
       InsetBox["\[FilledSmallSquare]", 49], 
       InsetBox["\[FilledSmallSquare]", 50], 
       InsetBox["\[FilledSmallSquare]", 51], 
       InsetBox["\[FilledSmallSquare]", 52], 
       InsetBox["\[FilledSmallSquare]", 53], 
       InsetBox["\[FilledSmallSquare]", 54], 
       InsetBox["\[FilledSmallSquare]", 55], 
       InsetBox["\[FilledSmallSquare]", 56], 
       InsetBox["\[FilledSmallSquare]", 57], 
       InsetBox["\[FilledSmallSquare]", 58], 
       InsetBox["\[FilledSmallSquare]", 59], 
       InsetBox["\[FilledSmallSquare]", 60], 
       InsetBox["\[FilledSmallSquare]", 61], 
       InsetBox["\[FilledSmallSquare]", 62], 
       InsetBox["\[FilledSmallSquare]", 63], 
       InsetBox["\[FilledSmallSquare]", 64], 
       InsetBox["\[FilledSmallSquare]", 65], 
       InsetBox["\[FilledSmallSquare]", 66], 
       InsetBox["\[FilledSmallSquare]", 67], 
       InsetBox["\[FilledSmallSquare]", 68], 
       InsetBox["\[FilledSmallSquare]", 69], 
       InsetBox["\[FilledSmallSquare]", 70], 
       InsetBox["\[FilledSmallSquare]", 71], 
       InsetBox["\[FilledSmallSquare]", 72], 
       InsetBox["\[FilledSmallSquare]", 73], 
       InsetBox["\[FilledSmallSquare]", 74], 
       InsetBox["\[FilledSmallSquare]", 75], 
       InsetBox["\[FilledSmallSquare]", 76], 
       InsetBox["\[FilledSmallSquare]", 77], 
       InsetBox["\[FilledSmallSquare]", 78], 
       InsetBox["\[FilledSmallSquare]", 79], 
       InsetBox["\[FilledSmallSquare]", 80], 
       InsetBox["\[FilledSmallSquare]", 81], 
       InsetBox["\[FilledSmallSquare]", 82], 
       InsetBox["\[FilledSmallSquare]", 83], 
       InsetBox["\[FilledSmallSquare]", 84], 
       InsetBox["\[FilledSmallSquare]", 85], 
       InsetBox["\[FilledSmallSquare]", 86], 
       InsetBox["\[FilledSmallSquare]", 87], 
       InsetBox["\[FilledSmallSquare]", 88], 
       InsetBox["\[FilledSmallSquare]", 89], 
       InsetBox["\[FilledSmallSquare]", 90]}, 
      {RGBColor[0.5, 0, 0.5], InsetBox["\[FilledDiamond]", 91], 
       InsetBox["\[FilledDiamond]", 92], InsetBox["\[FilledDiamond]", 93], 
       InsetBox["\[FilledDiamond]", 94], InsetBox["\[FilledDiamond]", 95], 
       InsetBox["\[FilledDiamond]", 96], InsetBox["\[FilledDiamond]", 97], 
       InsetBox["\[FilledDiamond]", 98], InsetBox["\[FilledDiamond]", 99], 
       InsetBox["\[FilledDiamond]", 100], InsetBox["\[FilledDiamond]", 101], 
       InsetBox["\[FilledDiamond]", 102], InsetBox["\[FilledDiamond]", 103], 
       InsetBox["\[FilledDiamond]", 104], InsetBox["\[FilledDiamond]", 105], 
       InsetBox["\[FilledDiamond]", 106], InsetBox["\[FilledDiamond]", 107], 
       InsetBox["\[FilledDiamond]", 108], InsetBox["\[FilledDiamond]", 109], 
       InsetBox["\[FilledDiamond]", 110], InsetBox["\[FilledDiamond]", 111], 
       InsetBox["\[FilledDiamond]", 112], InsetBox["\[FilledDiamond]", 113], 
       InsetBox["\[FilledDiamond]", 114], InsetBox["\[FilledDiamond]", 115], 
       InsetBox["\[FilledDiamond]", 116], InsetBox["\[FilledDiamond]", 117], 
       InsetBox["\[FilledDiamond]", 118], InsetBox["\[FilledDiamond]", 119], 
       InsetBox["\[FilledDiamond]", 120], InsetBox["\[FilledDiamond]", 121], 
       InsetBox["\[FilledDiamond]", 122], InsetBox["\[FilledDiamond]", 123], 
       InsetBox["\[FilledDiamond]", 124], InsetBox["\[FilledDiamond]", 125], 
       InsetBox["\[FilledDiamond]", 126], InsetBox["\[FilledDiamond]", 127], 
       InsetBox["\[FilledDiamond]", 128], InsetBox["\[FilledDiamond]", 129], 
       InsetBox["\[FilledDiamond]", 130], InsetBox["\[FilledDiamond]", 131], 
       InsetBox["\[FilledDiamond]", 132], InsetBox["\[FilledDiamond]", 133], 
       InsetBox["\[FilledDiamond]", 134], 
       InsetBox["\[FilledDiamond]", 135]}, 
      {RGBColor[1, 0, 0], InsetBox["\[EmptySmallCircle]", 137], 
       InsetBox["\[EmptySmallCircle]", 138], 
       InsetBox["\[EmptySmallCircle]", 139], 
       InsetBox["\[EmptySmallCircle]", 140], 
       InsetBox["\[EmptySmallCircle]", 141], 
       InsetBox["\[EmptySmallCircle]", 142], 
       InsetBox["\[EmptySmallCircle]", 143], 
       InsetBox["\[EmptySmallCircle]", 144], 
       InsetBox["\[EmptySmallCircle]", 145], 
       InsetBox["\[EmptySmallCircle]", 146], 
       InsetBox["\[EmptySmallCircle]", 147], 
       InsetBox["\[EmptySmallCircle]", 148], 
       InsetBox["\[EmptySmallCircle]", 149], 
       InsetBox["\[EmptySmallCircle]", 150], 
       InsetBox["\[EmptySmallCircle]", 151], 
       InsetBox["\[EmptySmallCircle]", 152], 
       InsetBox["\[EmptySmallCircle]", 153], 
       InsetBox["\[EmptySmallCircle]", 154], 
       InsetBox["\[EmptySmallCircle]", 155], 
       InsetBox["\[EmptySmallCircle]", 156], 
       InsetBox["\[EmptySmallCircle]", 157], 
       InsetBox["\[EmptySmallCircle]", 158], 
       InsetBox["\[EmptySmallCircle]", 159], 
       InsetBox["\[EmptySmallCircle]", 160], 
       InsetBox["\[EmptySmallCircle]", 161], 
       InsetBox["\[EmptySmallCircle]", 162], 
       InsetBox["\[EmptySmallCircle]", 163], 
       InsetBox["\[EmptySmallCircle]", 164], 
       InsetBox["\[EmptySmallCircle]", 165], 
       InsetBox["\[EmptySmallCircle]", 166], 
       InsetBox["\[EmptySmallCircle]", 167], 
       InsetBox["\[EmptySmallCircle]", 168], 
       InsetBox["\[EmptySmallCircle]", 169], 
       InsetBox["\[EmptySmallCircle]", 170], 
       InsetBox["\[EmptySmallCircle]", 171], 
       InsetBox["\[EmptySmallCircle]", 172], 
       InsetBox["\[EmptySmallCircle]", 173], 
       InsetBox["\[EmptySmallCircle]", 174], 
       InsetBox["\[EmptySmallCircle]", 175], 
       InsetBox["\[EmptySmallCircle]", 176], 
       InsetBox["\[EmptySmallCircle]", 177], 
       InsetBox["\[EmptySmallCircle]", 178], 
       InsetBox["\[EmptySmallCircle]", 179]}, 
      {RGBColor[1, 0.5, 0], InsetBox["\[EmptySmallSquare]", 181], 
       InsetBox["\[EmptySmallSquare]", 182], 
       InsetBox["\[EmptySmallSquare]", 183], 
       InsetBox["\[EmptySmallSquare]", 184], 
       InsetBox["\[EmptySmallSquare]", 185], 
       InsetBox["\[EmptySmallSquare]", 186], 
       InsetBox["\[EmptySmallSquare]", 187], 
       InsetBox["\[EmptySmallSquare]", 188], 
       InsetBox["\[EmptySmallSquare]", 189], 
       InsetBox["\[EmptySmallSquare]", 190], 
       InsetBox["\[EmptySmallSquare]", 191], 
       InsetBox["\[EmptySmallSquare]", 192], 
       InsetBox["\[EmptySmallSquare]", 193], 
       InsetBox["\[EmptySmallSquare]", 194], 
       InsetBox["\[EmptySmallSquare]", 195], 
       InsetBox["\[EmptySmallSquare]", 196], 
       InsetBox["\[EmptySmallSquare]", 197], 
       InsetBox["\[EmptySmallSquare]", 198], 
       InsetBox["\[EmptySmallSquare]", 199], 
       InsetBox["\[EmptySmallSquare]", 200], 
       InsetBox["\[EmptySmallSquare]", 201], 
       InsetBox["\[EmptySmallSquare]", 202], 
       InsetBox["\[EmptySmallSquare]", 203], 
       InsetBox["\[EmptySmallSquare]", 204], 
       InsetBox["\[EmptySmallSquare]", 205], 
       InsetBox["\[EmptySmallSquare]", 206], 
       InsetBox["\[EmptySmallSquare]", 207], 
       InsetBox["\[EmptySmallSquare]", 208], 
       InsetBox["\[EmptySmallSquare]", 209], 
       InsetBox["\[EmptySmallSquare]", 210], 
       InsetBox["\[EmptySmallSquare]", 211], 
       InsetBox["\[EmptySmallSquare]", 212], 
       InsetBox["\[EmptySmallSquare]", 213], 
       InsetBox["\[EmptySmallSquare]", 214], 
       InsetBox["\[EmptySmallSquare]", 215], 
       InsetBox["\[EmptySmallSquare]", 216], 
       InsetBox["\[EmptySmallSquare]", 217], 
       InsetBox["\[EmptySmallSquare]", 218]}, 
      {RGBColor[0.6, 0.4, 0.2], InsetBox["\[EmptyDiamond]", 220], 
       InsetBox["\[EmptyDiamond]", 221], InsetBox["\[EmptyDiamond]", 222], 
       InsetBox["\[EmptyDiamond]", 223], InsetBox["\[EmptyDiamond]", 224], 
       InsetBox["\[EmptyDiamond]", 225], InsetBox["\[EmptyDiamond]", 226], 
       InsetBox["\[EmptyDiamond]", 227], InsetBox["\[EmptyDiamond]", 228], 
       InsetBox["\[EmptyDiamond]", 229], InsetBox["\[EmptyDiamond]", 230], 
       InsetBox["\[EmptyDiamond]", 231], InsetBox["\[EmptyDiamond]", 232], 
       InsetBox["\[EmptyDiamond]", 233], InsetBox["\[EmptyDiamond]", 234], 
       InsetBox["\[EmptyDiamond]", 235], InsetBox["\[EmptyDiamond]", 236], 
       InsetBox["\[EmptyDiamond]", 237], InsetBox["\[EmptyDiamond]", 238], 
       InsetBox["\[EmptyDiamond]", 239], InsetBox["\[EmptyDiamond]", 240], 
       InsetBox["\[EmptyDiamond]", 241], InsetBox["\[EmptyDiamond]", 242], 
       InsetBox["\[EmptyDiamond]", 243]}, {}}}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 0.05}, {0, 0.003}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.001, 0.001}, {0., 0.}}]], "Output",
 CellChangeTimes->{
  3.576254325260235*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztfXdcU9nWdiR0ULH33nvBMjYcEXuvY5uxjYy9O3alCKKIothQARVFEVFR
EBQrYkOsiFiwACpSRJrUJOvLcwqcJCeo48z9vX98cy+YnJyzstdez159b4ZM
XTpzxrypS2dNn1q33+KpC2fOmr6kbt8Fi5WXpKUkklIzJRJJfF0JXpPyJfeL
lP+nWfiFK99+XZ35p6Jhbm7uhtWrV486efKkw6pVq0yzsrLwScNXr169r1Gj
RimFQqHtHrHrzX+erFQmkw0+d+4c+Pr16tWreN+CIVvuZ8g2e/bs2cdq1apJ
dGIbNGggkeL+xi9evGAoN/35Yevn5+c/b9KkCT6bsW/fvhrv379nh13mn5LV
ZR6XcgJmpCdp9vMjXbR169aYpk2bYpR4bfz161cdFVQs3LZt25CzZ8/iHURg
t3btWrzWkcvlmEe81naP2HUWFWX+KVl2cFLwVDQXLf8NknrdwsPDLa5fv453
IN88Ojqam+KfJK0LPOBV1cTExFArK6sWP0e1BCz8jLTKpaWlASd43TEiIsJr
ypQpKljQu25hYVE5KSkJ74CUpy1atJCwozER/Uz5WvR682/SE/9MKsJ5i5+j
NTQgIKD9/fv3mXf/dFycREpnZmYW6OnpfSctfbHPaiYkJOgxDErrvn37tojN
Jj83NEAw28TEhHlXSkWqiVWrVtUtLCzkv+pz+fLluccMRT9T/stf55Yjf1mg
QEsiK/5ZCcL9YVoc11uWLFlS7ePHj4Il8o/HxavQhJo1a37HuIzFPoP9mrdj
xw7oF1wDrz/JYo+wsLCvxsbGIoJNqVixojbBin6m/Je/XoJgSyAr/lkJgv1h
WhzXbR8+fOg9adIkoWD/6bisQkNDH7Vp02bYmTNnvmNcxtqmrnZcXBy0iZpg
f3hYnNEwysnJGevr6wtHxd3a2lpVFd/+5ZdfeGSbZGdnC1Wx6GfK16LXm3+T
nvhnJQi1BFoG2sYGtcdxLjXIy8sr0lXN/uH4OKA0iI2N9Zw6dSrz7p/yyo1r
wPnz5yFkhudv86pVDtU/fPiQr6+vD+cMGgX8SlTFu9jFxWWkv78/3vW+dOnS
ehsbG56s6GfK16LXm3+TnvhnHMt6BQUFan7WPxobfI+BQUFBeD3ex8cHrH/H
2LTSgwKFOPC6Vnx8fJ6BgQEvkh/mlYPyNA8PjyJef3LeVjo6OvJKnqPPixbS
5l1x23Xr1mGd8+yKfqb8RPR682/SM9JGD0ODqoo0NzeXtPomHfHPOD01c8+e
PVCf8bVq1eofHBz87WGVSK7ntWvX4HkifsIstviH5Dihlk1PT39Xp04doVD/
6dDgLH+oXr06wHv4999/55Yso/usmWnF3YwNLiX46Aci8dq87ZD0wy92TJJ6
zD/6ykCYuZ+Kg33l66iWxoSXUlyK6EgdWclzwBNqZ2ORa///vv/793HXShfk
fi26biREhnH9169pvY1z9vMmzvtZZDgvleukVirUJV1FKSolk5IU/+oXIwWv
hp+m0/+nOP3/9/3cfQbMb31lsE8Tr74JzLef2QsfH1rw7G+lxidDFjQNi5/M
OTCnG/eO+V0pmZLPDKNh+fqkL+HQssqBHIq+oZXIt3YTudb9O+/rwo74VNTO
5RQ4pi3FWdZmPg60snLYevac5ohz989m6eirjliuQzrwRpV3679sRI1G+5Ff
h3t0L6YpNf1qTMZbF9Gi5v/y4DuzgiilIEXHqOyHBecntaGdOrPJRmLD3HZ+
VKsc2ypr23x69IkTjZCTvH2zWKIskwbg5NAf9Me1ntTzt+N0HKvzfntqn2uo
FBzLmZRZsfzXM7+rsQ8b5FFe9xt0Y7kTOQUMpaEpFalixuhDHRV3BzVWPowR
SSmyb2Pa1OjPk76jfPnx1C9GjDK+ZcxK3s4ZvfAaiDFlhwsOoUuYQeiIwIL5
XYl5WQ58DA2gAOeltPRmV+qK2X/UhtrsmEfzrPennDzuM+do5oNuPejquCa0
o6w1Bkc7Ta3pwohWV91/9TGQ5clUhyflLR8z+zrMb2nLqCgq+n42VDAO7k/9
mcFw/3vehJr0D6bg9vfpvhAIzENlmGcqNntGz6Z5kIfHNJqG+zNLU+lQK7Ja
b0M2VqEU2uFx9Jdg/1H786K7tqf4yeUofF5txUHrdrkR81vmXZjcTvF8QH0K
GdsiMWzcmCrJn+SGJYyceSU2cg3hDztDZ6JaUstsEzLRLnx2DVSF8LvepJu8
8JMrUaW42lTbZzyNn7OTdrZ5RI90CxWyvrcvZESetHSUxXZrQp+mmdKtebXk
3jPaJfsu7LX+wTn3BhnJCaBoICvM972wzWbn+YUBOgq5wujHWDJj79ORkxyG
RwialY7kWHRfAfNbV104rCqqyMPIaTktB4wwE5HmZA4YjfUl3xrv6T0z2Lw8
mhG47+Pr050WK+ItalOqtQndnVez8Ki1ebLPYkvHiNNuLdI+vC73Y0ywt5uo
I+pKL+rVMoqi8Kn6wCWMay0xfdKKWgmfcZtLc4GuZ82oWXpZKgua62zJttcV
umKSTdmsG2lc/vNncjiy6llyUOvJlGRZmdJnGSnuza2Vd/yvDqlHFvVyue23
tWPy2+iKQkYMYPqXbd7MMKIY2nHPio0bEV8yq1fCpm4MheCa5E3eC7fRtsSq
VPXoBJrwojE1FsNXBjuoCqmU2j9YfkEmzTUhCVTRp7L492FbRbvZu2gX5gKC
ZoVm0ij2peLw/j/Csi41G05f+plR5nwD+YM5tbL85nT+cmhhz103fJx6JL58
oKNQyCWVWUYaFEuEdUyU/xeTCKtepKZZlLViI21kxywCq1RWCrjP4jpdX+xC
Lsd/o99e16f6X8zI7GHbc2sY93yIXgAtlLhSOUnaeJ+oJ6wUTKEJLW5dLwjd
3fdUfnjTXpQ9yIS+LjYoeDS7duqpBd3TDy6w8Lx20LZfwtNbUoVcXu3HmKjC
TisUDA8POGYTjtJRMUgxCJfU1M+n/I4RFIHF7DWFpjxtQS2gp8K7UTfXBbRg
4hE60uQ5PYee9nmxdx3dHtCGAia0pAcDG1NIz36jrp1MGXfuWPajneb7ZJHN
O1LeMAPKWaqX+3hO/ffnllpmec3rfuzS/pXD3j66hsVfU8iUPs8U/x/YAlPV
VFXXje7U/fDv9HtCTaoJLRTbgBqIqq5YFitSGclaPaEnUz3Jc/csmoXYBYv8
QTtq525N1n/up/2tH9Nj3UIq5CKhsnryAnn6i5FtaXfHoYzd2NV+BD3u1YQ2
SNfQhz41FHnLdTOi5zV6Fbx6QJbnvO4BIbsWjX8VEWJSmJcjqaMiqiFnz2qI
qtWTJ8WiqsHeB+X6117aCzGJ4u2+uBpjLZhxw1f0atwxOuaymBZftyALiA23
YcbmupHbL7fptmEu5bI61nRByM5nFDKmBdnqrGMYtCm1nkJGKd/rr053a74w
W8nUhSDXOdOehweY5X/NrK/C05/792vw1P3GjWKearGDCulH/YQaynElrTT+
Sl/VeYhg9bm6QuOlWf0DfYChsl9Day70pb5p5ajc27pU98QYGrNsM22GgiuT
QRms+1raJDubfjt1PD/crltIwZkqoxVR/WtR1JhaSp9pLsOrm2Qe3enbPNvV
Yur8qIu+lXMyP0sa/dj6qqVpTm3W0/pTI2hEUmWqDMsoisnbLCYL9EhPyGl0
c2r+oTpV/1SFqpwbTIPhFAwMoqDKSZQkYZ2jMg1iY8l2+7rUdxvqustv1uxO
Xy1NFLI50vyCFcYP39pZpl5b2V72YmJ1iu9Ti6L7N0wJnmmpKy+UN/kmZ+aR
kawexx2c4ar3ht7A1xVYVX3eFVMX31V2/QJe5pEUOcWLvABDKB84+JxNBrDh
OdSKp3hJadb46RUUkNXlUMWJNWNiMl3N1iheNGpKBYP0FPIluhkFKypeSNgx
xj/MfWHKocW9H/jbT1j58LznrvCjm8bFBN25d2zOQj15oYwrF4gyKBURHWfQ
1C0uDNVaO7IDY6KiO8+qBug+TA4Aucae7H3H0lg8A5UCNxp6E7YAPh18Ph4e
8CV4UVZNTKRZHrvzHixtd6nQ23SKIrFVNYVsjFQuX6WbULCuzqEP3nO8w71W
Jnov7fvEz/a31Q+CPBqlJ8XxeWul6tx2y9fFtCDvK5e35rjXhZkW6lDtEtYX
YheDa/uQHsKFYL1vA6Hu0fBA/FktYvaFvsD2wULv/Yv+utWFukDxYHGeHUJD
HFbRKpDGPEC9crGUWe6X3KJpZfVXWdjDjhER5Gqz4HPiiqpestDy/RTZ/U0V
8jlSmWKN7mPZxvZbPp1dt+/mEbv3R/4eEH1i/Zj1kefcm35JfCtpx86BIOgp
yl+JIYBdEYZQJUIEXOxDfUacolPAMVSRGAj2iyththJrqldABfBUxvuQz8YV
tCJoIA2Eg5xRhsrAt8QczdpNuxFBlU2ndFYZM1GRUW4O7QycE/xuWx3XZonP
0iAtzhiVTU+nMSdPKELm93uRu8HQXv64WjtFXk8lCmYZ5CvWGoTL3brvTz45
3/W2r/O7oysHvzi+doTdvYA9LT9/iJV0+EdTI8QG7CMGDasCxwZagQuAeYyo
T8decX0+/QAd6BdCIX9vok3ek2gSorUcIzJCOARdjuWEZYXlhWXGRk6Vh5w7
q6CRklN0UdKHrkl6UoBk6PDbpxPxadOYGFrl4pD33LrJ9cJ9+rMU7+rVVRT2
1y2ULTHIkK8z8yLfKdapt7033fXf/sZn1ZDYY6uHOUSc3tU2Nf5FZ42pKeze
LEg4NSp2mk1JGNZMoATwKnSroPoxZdpQs4NFDdwruE8INxCxcLMIzXGpN/Xe
tpAWIkJEOsEoh3IqsAEKfJGw7T38KLZnA7pn2YGuWVlQhGVH+cteTTMWlvEs
OGc8QpHavKJCNkKvUL5KP16+oY4jXVg5Ku1xEGAAOLz1WTlk0x3/7R2S30V3
1WA7f0hHTyHbw0+fLma7taqlA4zhRfmNptGfy1N5gbuiFQ5OrNGDBoCbMuA8
nZ+/nbbvnENz4CHAY84zIAM4cnj/rg7V4QM5gK3TXborcGrL935z6Y3cRseW
3ljUow3ll5Cr1RByqLyQYrs3UByvPb5QsVbvgWJb+4V0a5vll5c3oSaenrAZ
E390+UCX2ye2dk56E1WKFIruGhORN9nSSTgRlpcvF6tNc/Y+CBEupDDchPSg
AxHk8JPBA0B9MuaJaxDWdykLZxXw73ORLoIiMAEtglQToqI39age9BTmDuHV
oEAKbPSSXkLz8OUDdcXOxj/ly2Rk0LAzZ+jwnN8z0iaWOy9bJnWhKMsmRT7u
7vYjCmMGN54ii/Run5HwdNWD8x6PTtqNh7bdfvO4c7fE2EeYtp4a05Y7f/Ay
ZsJ0RTSKuaanBDcXoQSCVaG7u2cmzeSVL3fNQLiONMwQUwyR6In6jTrF5hoe
B3xEfC+yRcjjIUiG7gHY4KgA0zDbWJtYoxAz58lXgH7ucO8erXG0lz0Z0epV
wTK9rfnXjPooPjeoIJMN0s97/ldLud+UrooQ3X5QUJ9Cqv/x7sJqK6XHMhEm
HNGoxceX95lo1FIwfczs6Yromi6aPgomCooSgxZMmu7qDbSBf65Y/2iF3xR2
WtQdUIjFfySNfNyaWuPW+FpU67IlWcJiLXUmZ5CDFUeUwvkaFeDF/HHoEJ2a
PCIja5jppRwPoznyZ6bN5fntDHMLfi+dp1hn+JS2tVhD1+0XvLt6MCDWc/L9
uI39sx9M6fg1amXd5w+dLBzvntqJ8FbSRwNVX53+GHOxT58iVI05caJ4MXbR
RBXjYBEq4JR9pzN15icIywYJHaCtWOsWxVYCsGmdtG7ia5bL3SCiafyCXvQI
ozBYfqzLLUtoCUzc1V/pV0ANXhG+nNMYepAgnK2R/uQPjwGwlzRm6FXSz88n
aB7n5Utlr/o2jM1bYuCWe9FwsDypSlWZrKd+ZuGCcjlkaxRIhwdNpYeelSk7
qVZW2qfFj0OP3D7tNCXbY15339B9K/okPLtTLzPlw9r7gfsl/TTmN9tjbjfb
deuU60dk1Vpo+gGYX7AKdTxjH+3DyuHmEnkChOQMh/9gfqXi86sjfrlpCaue
y1R+r0iwmGB+kFOAB4IkB2KU3w/TYTjwzaMpulwapanPQ/Vixw0pbPxUSf+U
y6ezWZ+2asNXr2iumxtdHNUnI7ef4fWs/aaLZI/028tyGxl/LRhZNku+ukwi
OVXdRYGz+1LsBQOS5UGQi56EHr11xmkqop791w/b902Ivq0nlxXCcWmYkRQP
S45Fw8lUUvff7qgu6bpYJ6+uKqqY9ICeSOTRR3PVAkkIIeAbwrjx8MkyJVP4
h4J6i3T/n/QnJIJomV/dQvsg4n59D/q0wIxNTlVS15TI8f0snLiQla20I0c4
QBLM5wixDNn1UEk55YzFdp9lLfvQrfqb7EUm7l9DjEfIEkrXlsna638pmFHx
K9kaR9Ju85V0w7EVJT3BkzWz05LEMKQrl8v4CpxKDNmfB9K/3YRd0nWxNmA1
IDGxvL6IfRworv7Lf6bP7R7QA6T2JIK0A94zcT0b2+rC04QDC+tWHM5IQQp+
AkpQPOYQwsIpEwBJDFw1+WvwGyBilA3qv6bXGA5SqhA/MjpjTtCJyQfpoLU7
ucOwIsWM0gMQh2wkIAXowBGGWwnLBaMMWH2sRtWQ+4Ka5aJ03KIVZe2ZWaoh
Fj+NvOmf2O7BA1rp6Eh3+nTOyLU0vPlln9mywkjdzoXZ1crmFPQpnSL7u0oW
2ZueomMjJtOjg5XoazIPr4VPLh29eWYTA68D1w/ZIU0NFSUZwUGppCbhcj/U
w63tuljDMWdIePwgG+IxbRrpicQ1w8WdZVYZGAo9LyAEKVTUyxAIw8tnwcU0
PWCxo1yDIJ8DCPQA/7REcA3CE/hudeGa4BWyZPjsfQ2qAUE/bEtt73WgDnBM
zw+gAQDEwck0GQCBA4vcAiQOhxVAguQBLNQge1+iS8jCIaUNAFb7SB+BBkRf
6sz+wjBbTSPCDLNkIkzF81+bZC0x3Z8dZDKm8I1Bo8LCxgafCyZUTVPYlI+n
LbVcKXiBFb0O1SdZPg+MBVGXfESBMZoHxs+3get+T3c4d02lbZmFhx4PD7wD
RLR6mWPFMSItCTpaLhuoIwpygr5CWkUY7eI688QY5ncZZH/WHrF7o1hfio14
EarZ6q1h/lVGvLLj5Sd8KFxQGyv1Ju3v+jeFb2pOydHc1/IyCQ/YNA0y8bh2
yLZ//NObjEx+42Xy8x3cuuKXDYQyUe80Zr+BEYeYtzDzh6Z5FBvYwAXrfekS
KV0Wute9Q15uW8PnieuruuftMlhILy0a0c7y05iEwc7KUxXx/WqfkPmMn0SP
vStQTiqHGYMa2V+0z9kEfs5K6Mit8kOd0SVcF+3g1dVEMX4Yr0vMWF5jfptJ
ZTLqdPcuo/IvW1kqchobJXz4q/rZ1OMVZhc+0O2Y99Ws/NfCTmXeyRbUL/gw
vwb5duoGc5Ea1N/KJSNwpWBy5kddPnYjYPP01EOLLFGkHBAfxU7O7/zklNDP
Wu6H+oq1XRfrf2WzsPrqE6NmBVRW+GVWAzaPjqZ5O3bQ6eHDKaNumbSPw6rd
fb+3hn3+dX2rr4km9QtktQ0SCsbXe0329bNpg0kQHR24uPDmtvu3nYf6fPGY
ee/NirGbFReWR9zaMmL5o5CDopMzhZ+cEvpCy/1QZ66261r6SNW8K6GaVOn5
FMtInGDnVlvEw3ajVK8dF0dTPT3Je9IkSqxbNS/ZotKzV/YND2YElRmX+9yw
dV5+WZOUAotq0fIVLVPJsUIsbW/gRufnDqSXQYZUyPiCQ989uj7k3ePr1b9+
SZ4XdeV4WIDznxleCyzw78C4qHB9eWHBdHYq2fyMlJ8LIUNiTPK6XsikCho4
JrW55ez8mVVITaXRfn60Z+ZMetW4oTy9Vdn4mEVNQxKPVV2Yf1e/e1aGafUc
WV3TmMLpLZ6RU7NscjC5QN59F9HtrY0p9YWu6kJCWvrLwQW/el09aDP5xa1z
NpFn93KZLfVwXWDEmBqsusRU1Kcvq4oY72+YJICt8ip/Fktchtw6m4Iqaf/g
YHJeupTut29PWbVNPz+d0iIi1r3B5txLhgPTE8o2z5eZGr3N79/onsKmQyJt
qvqWXOvuocCZQ+l5gDEVfOV3qvBGhoc9WBkU9+SG011/N2HAKuSKYUoqIhg9
EfQdY34zqfAbbt2PF3myFyT9yE6yrnClrnNOU6O4Z6OaPXu0qY3PlwCzyVnR
pp2yc00qfC5sXOWufMEvj2hLG0jiMh2yXEY3N8NG6hXbSN6h5YfPI00iVnP7
S7t0dLVLRwVqPszv8kro0uLTLm8Usb82FLpe9LJnI0hLtls698tnswa5stIm
TwpHtr9OThYJ5FwzgbbW3E9n/xxJz/xNKT+L44TPHoCTzwcX9VLhZME3R81r
SqEcVNJCh1iXAD7JoMBAclq+nG527UqZZqVlTwa1ist52a81rZfY6jCNgIZw
T3K8ysy6Uvh33wja3jGLHE2vk5cFYtXW9Okxm6wxqJ31OZHPXWHQvNJkBr1Y
+6D1tK9qlUF7ML+ZdCVEsGPePHrYti1llCsjjxjVMf6Sbe+wJx6tXHPOGY1J
eVmxS6HcUj/7bZmWMgfddWgVKPw4qFaifHN1LzozZQxFnyhLeelcnsmgTlbq
xyWPL3qrD53R98u0D11fBCVi5Th3FvdgcfLBg3Rg+nR60VipQypVkF+fYPE+
cOOg8AiPjntyThtNSI6u1DPta7mambIyZpfl461O0ZYRceRcO48GGSSlWjR5
G9N2wE5F4JxSRApu9HUzUz8sfXzh8N3Tjn9ojH7FN0evghax0TuVbDO4XB1e
4rFZu3eTz/jxpLRWlFC7piJ4Wv8P/i4jb4Z7dvPIPmEyOelx5T7JmZUafJUb
m16XD+h1lJwmnCWPIYm0pSrsCBTTcfL77fDnE9YxofYDDyX5zrKhq+t1i5ld
9ujCoYhTjr9rMLtaO7NcrzOYXerszPwA9ullyzIe1+aSTQarPSopHWLG91qy
ZQsFDB0KH5qeN22iODV7ROJRtwm3r3j1OpTpU9o6KbLywI9p1Zrnyg2NwuUW
PbzIdoo3HZz0kPa0zaCNZc7QsWGzKWJXQ/r8itNMpat+zUjdEHFmF94h1QtG
8Rqp378fhRy6d8qBYVjFi12nrom5+BmOkNI9J6U7oVxMTKuutEhn4ceONfRi
VmWVu0PKOltbCrWyoowyZehB+3Z0ZPHEJM+9U++EHOp3NONwmbmfblcZFp9a
q12O3Mjkvrx9h/204s9ddGh2CB3uBwYjaF9He7qyxoLeXdcleSG3X8m4MD/X
+fZJV0YlKK80Sk+Kv3Z2y4yHJ+0naPBmq12YzJTpoP+AdVikbR49orRy5bRj
mCVWBZYnYktHUcvjv2ZkzB7PmXcDjgz1TfMst+RTWJXRbz/V7ZwtMyn9XN6k
mTstsN5MXssO0ck/3tG2OtDdHhQw7Td6erw85XzmGrMN4fj8GXPjNIR233/D
RDAWdN5tvvOdk65gbIOQL0MhX6VIQduD5wdnbiy9MWFrza094sLiGC65lbpo
69ZiPSPWzrSW5bJcWhr1CwmhNfb2dHbIEPrcofwbClFy6iZhO6d2SOZRsKQ/
Xue5GSx59b6hRXph2Qpx8tp1PGn61PXkYbOVzi66RQe6ZJJj6fN0ZAC8Htha
bnOBIa90sA5zPOZ2PXlx798QXf2M5ATA11HIZVEmB+3BngFTA3TZFvMcByOH
Dy7VXdomPkzk7YCKCyvGJKvRTGFyu968SQtcXenohAn0slEjyixdmq706kUu
KxYXrD1s93ZT4N9h2XEDm9F1Swsd2GSJCb3uWT//oP6M47LfJi4nd6c1FGzv
T74jv5CT2SPa02YzXVzWm95cYtxYllcTWDaYhzunN07mzTFv2dST+RJHEdjO
7uHnN9pPYsByLbOV2o6IORUjdAPFuAaoizrtpSKLmN3OLBUqZomOyH1sf0p1
RI5wx6Z5eDBO74N27SjHyIgizc1p96xZtGT/lvRlwZuj3ILmno90N9+b4260
MDa8weToD81758n7GGbGlVZaUyljTb98HN5sl/zc3Fe0o+Encq5yhPwn/k6P
D1elrESTYneMT1+nHVzY6+BVr/VFToxY+nqjxszl7h4ynJkzI+a33qobDjeK
uCI2JJToQJdLdFEDU8bb9KhNG5qzcyeJuRCTBFqem2xlyIN9DIzpYm1Ejbpv
39JYX1/Gpb5uYcGgCug6MnEiLdq+Vf5n8P73S2843z5xYsyJ99tqOKcerTD/
ycNWvz/93KLHF7mZMhpq0PAgTZ5sTQfc/ejw6BCa0+9TevfGsph6LV4rXOsj
tdOOEh/AhPMN/XwUgVzFF6+Fvx666rlucNzjMEyQxFVjYmRONRYwU2LMQsr+
yporRVxyC2mSt3fJOnGsVvgYAD7abCFnsGpVTEmhAefPkzKOp8BBgyipcmX6
VKUKo3HW2tnR6EC/nAmRR587hS4PDfPs4Zm92WT927N150e+MB8fndW8c5bC
tPQDatduB82b9xudOD6QHgUtp3AnxFhwMT+QS3Wsxv70KhhRygq6sZGfrmpf
01PmPr3ii2AS03X4iudaBJvMdLlpGEV2ktZfs7mmPklwx7RpG0yMqPEcoHXi
jIomTgRevLGVsH51PRjbA8unpxwbN45e169PWaamdK1nTwZ3Y/xOUO/Hl1Km
PfB44BEwLeDZzmY7M7eXXvPoapsFtxN+GfM8t0nrLDItHUY9emyg1asHUPD5
LvT61gK64xpAx4ZCnT2lXS120Pl5IyjmVDnKTYMX5UShy7cWnF+Kf/Ge300E
72N29NUTsMaY0COXPdbAkDETulsTfxurLWSYMGWnduGdbXeKpkdXu0obceoU
cw9TERJbob21Tm2ZkqZWDKuz3HfL3yyr58famip5awyc1++1+dTp4d0Cy9eX
364O2xAWeHTQ0c+bym/64Fl9ze17v8wLT+42/E1hvUZpVK5cIA0atJycnLrS
zZstKPHpXxS515f8xiaRc+XXtL0+wrbxFOVThbI/8WhCqx5K9p2S3j7lYwu0
Jc+KvuZ35ZzLX5jZo5cPrB7+9uFVQ1lBPhcYqLT1oYMbA+ZMZL69vj3vnSlj
Oea33FbHltklxs0a04jJVTyEDi5WYdDAgYwnGNKvH+MPCCa9RNvS6du2hREi
K1iTbwnjr717yfv3SUL8Vwf+34ys95BJiSudMHWnLM2pnJPSQ7B/4t9q/ZVn
vWaHZ3QbmKioWv091ajhQ+PHz6Zdu1rRkyd16Mu7P+jRoUN0+o942loLiuMw
nfodTRV1KP0dC3E9UQeby4ZWzM368tez6/6XArfOSvda0NPn8v5VI94+uGJU
WJAnOaAhpDy3/iMhGG6rnO5ZnyHMPrTFt1xuKWxL2eqzcsLOOd6ne+ta17V+
2us0PurCPqTpBw5QfK1aKiuhaKeRmMZuXrJQ1ARqVtKK4QWoLiiE1s7LljKC
YuVUE3L62KZaUubU0n7qclK6qo4h3v28FRdLqbiXWXdMre5kdbZKp7Jmz6iZ
0nm2tp5E3t516e1bNLqMpae+7nTO+iXtaJRCmyv60YnRiIiaUOpzVsebqgcL
8K52hB/fjGTixaBtsyEn7EIZ+ebBZcjJSyxe6B7oM8iHA5y+z8nxJ9FKz89n
97gbcXHbam/jllrc1tpb63158wX6lntE+t6lhkvTlJgUiSBgxlYQdcWG5Qaf
QV10YmusxHVX7tvrTt0uqUHGTAij71GU2PIBT3rH/HkCsdeB2BPMayalzK6o
ES9lOZg6KWxK2Sjf91WPKlI9KyzLyBpSQxHeuzt87pyYQe3iFL/XGUZnzlSk
lBQzyv2CzCPKjk9od6t02lj2HPkMRoTRhj490iGFXML2DBvxSWTsXcEelpCg
7XOzPOZ3hyc++vX9S8z6PCwUPFM2KHRubs0rzSxHU8fmydHJXFXB7fzc89Cf
+AgOHLyTnA1GG1gM6CU5V3bWUK2ss2ogVK0IkGG34fhkm5h8cwlrW9bqsvxe
vGijJzCsZX8UB2gCdF24QKijdQGCzHqlU+507Sz/NKcKZ0yNMh1LOykulBKP
KDcY2Cne/ooWIERcZeSJvap9lFWr9YL+bLzx44rtu0NmBbRVRD26RTZd4IYg
VwB/L5QOW62iMIdfKOE2cgbsSjDAXizsyYo+YTM6w3O+hTLQXAZ7ip5oyVFW
9NyuCUT3qrsmmDWsIlOu6oalvy1kYQgCUjQiIybjzauo2mbhoyvc8zDS3583
p3c7daKTo0Z9t9jV/Z/vhUyJ9L7TFG9dtIiCBg0UilkKMb/s3igpeVYlP87z
MP68sbyz9X33+zJ76Xr19Y875Fd1LLGSWBLl6JKkd4ZPmb++yozLZH8dUFm2
VzoHn1wN+dXxrGLTEATUnnR6KqKhdzSsTj4N0n9L2+ra0tV1v9Lbq+ia43ag
GsPrxNKHeoeaDz6/fR5qKltu+7kKg20V8UshR9aFKnafmM3rvG5l4zvp6Gi/
aN6t4ifghVtjt8apL1IFut9YRfcL0jNFmOAiUC4AXbvZLtdm/Xr67fhxJlTk
xHupd286M2yYitja37//PTAw/NYKZiVuyl+ecPQok8+HhNWl/rxJE/pSzkyg
4BmhB8wYmhS7vAEv9LpY2ExTvog/9sXJzEkWKu2vcCulsujjjtRemaYYXr4w
o295Runfs+yYnji0aRf5rTsGlJe3jq7a7k6bszI6tu2QYMWc/m/ItR7SSnG0
rbYjXVrZj2JDUPxAgMcCwADCRasbEoLIuCDOw6KvlJuZJlrK8dF0pG2l64QS
5n00SXFGRL9fbEjsVwdjB9xx7ujgo67BC4Jz7Q3t2cnQ5RUHlASAwVIyEuJC
DBOCxajLi2axiwsdnDyZk5gef7lAT49JwSCRrP4IgHOje3fukfL85Qt9+zKX
1QX8tm5dhoz69SetWtH5AQPoaq9f1YW/xHtLUuheK1749dM3ltUqfCUwHNWt
fdLNysPtk9dsT1BMrJWUNq4phVsyFj83qV/tv+WbnD3o4LSV5OjolT5lwbWY
njPtFJfXoUQMoSODCq0fTh7d8N6DzkwzoYJsBKVSmAWJlIlP+bXL7jQ0wM4F
7GDYGe6z6dPhpX2wmxBpSFTMJKc0HIHcXUOHFdrp2mHEvPdn+k0LIEVceNzv
Nz9uqoqsSLvEB4kCDVGLRwKzq955M91w6B6cZlvOdeOmFWkoL2u7jqLtFC8v
DVkhl4mqhPp1oGfT8r81LPOsE7tTut0MV0TamXNy1U23Levyy6vbKbCFgV6D
OIPdgBGtvY6oIs92MHFQF21ieNXR8xO2n4pMMe9f6KDLhKSFJ3V/S1VUqIjY
K4asm04hL68BceefHrwx2SNAsXko5nUThf6N6tp2Cp7/gPa2yyN7g0t0qPc6
umZ7kE5P3kIXlkh0ROTLWnv9Lp9eP9l85+T2uKMrBmHHk03kWfcmXz69C2BF
+9/0SIsdG63tfrWunWtePb3OHB92HCjiQ3BdKixE5uAyWVomU6VKX8nYOJUq
VDhHgwcbUm5uCWbo45ZqW5D9h2/NgxGVgKIMgI5WMOryYFTVVnpCbdUw9pUi
YkPHokd4sPDXOeq43P3ljSTghzekKZsqOiPQEyyJxhjF7MhdkVo9hIs6Gh7i
w71t94z7eOzGjZTuIwoc9BiuMk6WmZqnMDC8Q507x9OkWo+zFnZ99nrO4AN0
dHogbR6EocOILKatLrto6exjtHTcfdrbHuVC9AKgnLaEbm3pTO/vwINkN5jp
AzfYNPbRe1lf7O5HMNkuJf55IIelf/2sarHDprnTokXJ6HIeKYely4csD3WN
vxnPPmIEGCEJ9Zbq1v1M5ct/oOrVfWns2N00a1Y4det2ikaM4MiXwb3LaPNm
W1q3bjG5uOA9PhEaOF7/SRUyxcobjjdkdlI7TrelO5VlwzmB56QNdmogYK6Z
f4z8CH3JPyt2H7wHPvDi7mvCfKeIscF9mVdLD5bv1JknBE+4R7cDHnnTZq+P
tTnCgycnyqgjasmvqX79TzS2yousme1fvbbue4z2jQuiTQN58CyirVsxPUtp
q7M7nbVGqjmGdjb9TJvKo4oB7YRCUDNKecZoJjErxJUbmbPVVL1KpmcDlggW
KfnQEivsFuv14fk9pSsj4zadl9xO/WNHYrMxqVERzrifEujX5HH2aE+bPYiI
cRVAgV6Ko9q1kUt+SG3bfiEzs0SqWjWDypSB/npFDRuOJj+/lhQV9Tdt2tSE
nj/Hs43o5csF5OrK09n1ZfaqO7GdJy5RbNmC91xuTYjBAJ+hPkNfBLw44j/R
H0LmwZFnb2CvDkD+vRBET3a32q0GotYKu1IaAGKAoYzq1T9Lda6w8YZHdw91
zfQ8osnE6oUfkvfRjBmbYv/ex4MrN8rQPE9uYJRD/Y3iaXKtZxlzfkmI/6NL
uGJVN1NirYcQXJiOlRTmWIMy36OJwYUuLL5JHl2/koMx3F2YP1x3o6C5YlaQ
9XJU88hcTxBSlHCB4QqjnIYiJH+qjOQCj6+f78rWU2m/JpYu33KtnTxjESVj
oIRuUPfuwAwUl4yk0mwyMXlHdeoAXy+pUaMYato0gIYOxT2FpKv7gho39qeR
I5VOhs0RmjixHr15s4S2bNGGM3wHXMrrzy2s9RX5Bfz1/al/Li+4oWcJQfue
HHscubxVYQ5hhRt0bYQgeONWbxt0rbo/lLylktPlw5aHIzw6uitCS/UVAur1
9vrbnz5sMUm2SzpfTSN5tP308JN34qSluXsNF+GzwJBBO+wUa9f1pGvXwj93
G8KDKfVkBeschZEJ1lUC1ax5ngYMOBg3eW3YjR6rNyuW/W1C2dliYOKUvMl6
umbTid7fnUd3d/jQyfGo8STT5krQYtBmPSguzIgKc5hCGXuqVjkVTaX80dZl
UiY/N/uPF7cDEWkj4j5+ad9KJMCZ+s8lHl0/319eIrpKOHXbjHGwuOAePx+2
VN/SIuVp4nNq0gSAQ5IZZRsoLwAun/T1U6hixdM0fHixMqoCXCEROZL8/bfT
/PmPqE2bN1SvXi4ZGgKfO2nOnIW0bZs3TZrUmh4/XkUODmI45PGJKMIrbIrH
QsW2bZycWu5LnbGSx8K5kMFuixRbt+ETbddBa3rcgYuMklTi6v6j9lNhqNeS
nd2Q2LPPchyMNuCZt1F1By+Qu+7YSCtWYNz349oP/xJiNi5foW+QSaVL36Su
XSPJ3PzUxxGzL4b0cZmk8D6C8AvfYUNX1oeSo1UYre9xkTb2gT+O69jUy8Gr
PqW9PkYnxyEve5sO/JJPdvpw4XdR0Gy01jvThaUsKS3GkVVeZVWUF8yQWh7f
pDAv9/SF3Ytx2BKgdjZk56IJr+4GM3H8VR5q/9qB5VoMZUkHdyN2YtwZBpts
E2TWVdPBkfnmv3SnGzeALyzgJKpcGWDRIbmc1dI9pSSTCdcvPsIniAcm0pEj
uAZsPaUWLQBZ6D/Y2Ajq2PEsDRmCgvg2WrgQscMc2rlzPPn4DKZz5zxo2jQr
Cg3tRHfv7qGZM6fGeV46GDL5WEdFxD1g1pwiI71oypSFcdv8T4WMcB+r8D0B
6ANbV6hXr620aFFg3KBZr0Pqz45T1K4dSw0a5JGBAZZJclwl85QbFUc8UbRq
BVqracOGozRhwjTy8GhO0dGosWEs38IRN9XGaPxCmH+FDvZChz3qOzB+SPbD
Te9OcTcc6PIq7RhSdbBKaJBDkhCnkGGPNPpLkCuK9N8w8cD1w/bl87IzJGE8
nv61E9LFTjrndFtJ9xelGIoxpU9XJb9+fF+tPYwj8HSNevacS25u7CQ014Yl
vO5BYWHdKDx8Ju3ZAzzB6b9IffogNj9G48ZB5lCNoWRlBWzFU61asLuwtcAe
/D3oCtjjW9SlSwj16xdM/fsjsHChxYvx2omWL/+T9u+fRbt341pjevGiHKWl
qY+J8/O+AxqlYZpQ//GkM1PRBoOCOrrRc2iDUQh590Nb8UnyHQX/qKhFoZKI
U8QdvydWI1Q6RuuRHsrwXGCBU5fQVmOeHPcMmAnn4VDC3o2yP7p3Q+V0dM6U
lXTGOAL/ojw1V5pMTKhqPkJ26ixMGPxx6HfMLXt4jIk2KIheZ+emwg89U8J1
Ro7SDXR5tUR3LV2349cl5CoQK15tpEsr+tDri7xoU2lTBbSDIuML1xf9Eo3o
80vmfnbzfXltHglf+kPz3YqHwV5RfjZjP3gv63fmwq4lOC1KvfGOEy2b/DNi
M8DK8XKBr61i3XpgGIE0mINd544CMgCDYI//4ZkUANeM55C/Xo++vEFfDXRd
DLk1fU8uNXJpgyF0Hs8p/kWPl7aUJnsyp5lQ14nhGQzWyE5LnvLi5tlXx9YM
g/O/58YRx5FvHlxZd//cPrF0+E2NycjbNWLQR5dqLnCY4Xxj0V8nC4tm9OwZ
o9yb/PhkMNeU/8Lp7EAf7iF8RsNRGHn2yCV7Q0xKMB3pj/wuGgQbUFqstslg
T4csp+488CjgJwNtlxcDXWd/VcaxSiQsHvn2/mWnu/47VFowIwTcs0cw68MO
wpY9ptatoeuQPAHA63031ybqXGO7LLbqwxXHM9G0szkSCchqS3Tu0b4OEina
sSzpzWWkRUV9puqaGMCPtkUBbOwLO7zhg/ff/e/7b5gUGOy2AHZODAP3hBhg
+oxzD8zuesG7rzccS1yFzUFDBpxE9vhKPdGJ4HxnnnH+R31CUMFDAR8TgnWB
/rNntLMZ1sVzcmsSRbtbIoaBZkDvByalSMmzp9mZfct5BLMhQdvnYK8DJgHN
pX0Tnt7mZf9YhOlZXZHPx6rvSBER0ACwZAB9pe+WfkV1BYB/sZMeQRdwj8UO
JoEARPvoJX5Me1qDNppbYPGc6WJR4x273My0OTXKn2s4awhRPrrGrp5zsUb1
EzwKpfxEg988Jb8n/UYdg8eJhCoCIqh1oJ3lt+q3BKlH8gLscENDFbb1XaLD
vVGvgTpHt8Yd2t/5Prm3xwYgCPMABUwX8saeZVj2W4rNLfzYpvWR5/YlHVpi
9cJ37Ug0C7dLjX/OHHQTI2TMgGfswZN2kxF2wZWGe8uEY2yoa1qiFBn7ppBh
w4U3nZq0msI26MAflRgAnejngxZHDnAbhSzEHiEoMtFKRUtxpPKaCpyhzVkZ
4ixBeIO+vw4pb6PV7ZUIg/tndb0f057ZmYxcCPxwJn7jYnl1sdnRlbWD6GXg
NfLqeZUO/gpLC/hBEUHlnqLjI7zo9BRAs2idtWE1hYiDbSKGRfQlXwhyna1c
awPQGzo/6tIxpvNCTOM819C7uk0pJuYQ/fEH/FOsOJYVE7CCMADIwarJJ3t9
9H+AlRN0YgyEUDTkDt/n/2FSlQIIg43Edu9tt45v2Rt2xFE46a81Jj1//8wu
rhcWnMcSQQrZjebOZTwfrvdfHVWY9Bl0f99H2lINsEHixZw+RqLuwB1nVa4k
lwZJFlhtFLiwvc/h7pmd02PCmfqWymS+EQ5Vnx/qxksrmGzME2rVCguB7ZUz
5KEBfCPnCA2EXRtHyX8C1KwYjs2/3/2wev/sLvpWcw/M6eIXunc5jl2EXwbm
EkTG+VcXuytrmYZ0hMhlKT2dHacexjmL7u2GJsE4mZxC12+bfswMGkCe+64b
mXR4SR8k2pWmIF1j90WChoALlKNZFe5wDfoQ0XZReYQVsB4cE+w9Y/Zi8cqQ
FaSpNkHaRJ7bu/3mMWdYIGhm7yuea3EqnNiieK85on1/dTn3dvBcxHDIPRXl
lbi/0YEyFgSIHlZRDWT+ffr1wLVDtl7XvGwQFOMMuz4J0UV2UpIsPqz3g/9C
KgGGA58w6ocremCCMFHo3ZOwR45o5HqEMuv9Pubu+fM75qUeXGwJ0CCBrTIz
KZrqYjodOIA0CG+guVIp9mrCe0BcwX21qLaCDA5e9VqHsA/xAraj2t47u1eS
rsFt4T7rXyZFeT/CRg0spqKIh7X3+sJ1j7AGa303Bc7q+O25VzJZAMcsxnfd
qNunN07xC3Vf3ijjU1zR3KuMRo8fDVr9EW4jBcOfgYBdzvwoomhXS6R7Ycc6
lDz9aIuc8/SqL84LjfR3mLjx7ik3DQWToTEKuXPLqZ+cqzg7pq3c7ECrVnGj
0EMBH6/m053tsP0X6XAfTiuLigG73NCmh0MTMRHQyoxRZ7f38wfFq6d0M11K
r3dOWeqkWywB5AYw+2gXgkFGjsBcU/UzTovyS/Fl2Id/9Zyz9aGrnuuFqoH7
bu5cbJEUnzTTubRdUZ8gu5T1obAQ08HFw2BgoDAdbTRhoI7/UW/uX8Z5pc+U
MMAOeg0B5KqMSCVBxLXgqXSvKX8ABwRXaeRU7gXtaIwRQTO0FrGQXCLC9abv
FqWzPPmxn9246c/DzzBykAnlYMDnI/j/8N13fDq7Mt1S0mIIYA8JgpsylJcB
QXBnyopqSSx29zBvB/ToKKWysHH6p3e8JGQaFoPsdVejEpP9zKTDTsWcucUJ
ewYF8D3h2KBUC/YxmFbiKMDau3Ju61/JhxZbKf3lbWgcFk66XOO7FeHNmwZc
HOoWqTDvMIgCAxlFgI91GKOqC/tgTZHusAv4YXvwjYWSF0rd8kNMBA61vnt6
4x/YAUqsdmO+9X/bvaL9hD+W73vmNVslPUlCFa42xcVB1QtAD1ihtwLbsQH6
Yr9ezBHTW3M/6AC6NXFwNQw1AzOGd12O9/9lt4XYmXRcdq80w/vNX+oMTAu6
hZ0kMHd8dhtgA7Ng+gttNEMIwfgDzbQrO6SeoWdhYeEXFWl5Fe7/7cK/6h9S
1X6GGsOufN/0Tna5ax2R8EfxlM/s8XJGkh7BOi9n7lxDje3a5fK+ZuIoYfiu
YFtFmzEj0ePZ/a/q0NwWDJHjwJg2Grn7n51rp8elo5zHaS7eNd5L5/6aQxE7
BfI0EC5cMAT0oiw1IybsNMuQEc/Qf1X65HqA1M/UKq6pcw/zngA2NyE8ZWww
e9KskboVUuqdg1tvndgKOaGyVrwYjXl2/uvyWgknXjGCUrhP79w460ViOpUt
ywkKZhaxCmJBxAaM18H+PQ9jdUcH5erTF3YtAYe/JL2O4hedKpP/ac2HW4ci
J1cVMVgn710iCi8CJDallBjU63GFQSJriYzVNYsy4roD/xHm26QgP4dfZgyD
JjyD/1kVg5OU+MlTRfy1yH/6CjGzgL/RFO2HAL6IP87HUFcl2LyT7TGvmzL0
PcNCsyzLVB12WkXOgmK/du+0Tu3z7z+Fyy7wEOAVoMSYQC418RparIHqGkfn
sOPd0ztfHVszfNrzm2d+f3k7SOWbGwqZm9apS/6tyLvUqZNOMXN4hbWHje4M
cyw69bDeYPxwblKrz+9fFa83MwFpNsQxRLMCzxlPFActYNsLiNbTXNMY+v7r
h+zilWhv/TlBzcSYaQyf3K3NEVwG0cCBasNHAAE/jhl+XfarhIsLERSa7tFl
hABbVb2XE/0qeE1naNgw7qsw90g5YR0X5XBYsRoIYY7U3wllaHT9rPMM5g8u
MV9RUfgVxvxXjKBTp1CSxlU+MttD52aCHRjpOpoowwQhBlCqiIFVv6ansOQr
iZKfQEePosIulAlOcg6ko4MwU3VUoQTS3lc81l49t8UauxSKoSROfgbt24eu
TSF55JAQT4I8Kwc9HGuzK9zHCWTRu1oMo8qaZO90rgnxos4Lb5kni900SMsK
yGKE6V4Lfu2Y/PapKnKEZFl0GmCY8ID5veJIY8M9EAhRD5vvkfno9eF5hCo+
qgjHqcezj3LDCtq4kUkmcKoUe9Sx74N5V5u9hoEhxwi3maVXXZOe79gW6H9x
pqVLGa+No4dNZG0p8SHzjq1l6AuXEEAXFLxjPpaSJml2Sm91qYny9wkaMwYe
Eo+zDHIsg3wkcMYdGC5cMejBg/9XITc7naFcQxQDaOpAIV2IAVS9sdsRwmLr
X/rCBbL5zknXxMNL+3b9FPuYoVxTlDJEBoTxlCvS1xTkaXgVXFV8bSiV1Z/I
XZXNz8mSfIM81gdPHjt0H9Letmrkha4UgItQvOfHF5HFa0NInkMbTxfoQloe
gV6RyqhWvCrwpz5Q9uye+Oph8aqoJaqNoCZG0cmTHDCQrTrJHyvK/Ul1gOD2
Gacpxy/tW6G6IrSThJLjSE6hh1776OwMAUndKjkZn5Uj/BVn5RbZ6dqi1NDT
LaC2mG65IFsvoCaF1UcLA4te/K6jlVQvunKFI4WiGxpsmHfs9EmRwMfU4RhG
llRdISkjnhQaPtDbxKMe9R3symWqKBwttDQjqC4elpAWV2kFER7g8ASGU8zp
YpxIcdQaxsP8tTaGRj3R8cBMtqFHj3hS8AZxmhRjuFjFpcsvcByMDtPOkKsv
Sg6WHH1MPDmUZ1G8ZcixWluPX9UorCNnyjQQlUATPkgLevqU15VIT0ClM+hl
7ZjKoQMPT9qPh2RZmqx7IpFU+S9yAoinEUpIdGIbNGggMQCdxi9evBC9X+DV
8WwhIcCBCoUOeAzMuwqaugSWCv3uSs6ci3UJN2P/VdRv3C08PNzi+nVG3WCC
mkdHR4vdrsYb2t4EvCHBgXSqkDehIsMpKPj7OajEFisynrd/vZkf7nf7+/fv
80arBPpMDpv2TPkFjVzViA3KwApY4tYHozqV/mgsypBITRSrTh58/0KcLnZc
t96WJUuW8KFiERktYTC2ULLGXSIF0AA45rNKxdra95L7inunHCapausiLn4+
OBflou3Dhw+9J02aJLydrzwK7+d3XPHJU7mLztKOKRFMBQ8HkKDCybpG0gPX
D9uFKR3eYp+pIc9ECSF56R89cLpmQkIC3zeJgI/PCmm7n0+HM2lnJuvA7rBI
dq60GSlxqEq4WCywpBAJPECsfZaLRjwXJcTcNX/0xGjoh4FBQUF4Pd7Hxwda
rKT7+RQ6zwWb19eLjpo1Bq0MyJYXNQaw+lkKDw5xdrFJK+KkhODa5B8c42w8
c8+ePY/atGkTX6tWrf7BwcHa7ucAyW8PFIhDH3uYbeSXbdFdi+o+7oQF45hB
YR6bJzWYYReKMXbi8BjFZk40mcMgjqOoY2h9UCOHKho8Lg1yQjvo3OqPdEVZ
JgYFKT6s4UlxWlWKTCkKt8WLt7GAFuc64CWMJzoB0IHOu4IcDTRyosm3eDxC
GpxKVMZFyCnxVV6MgWlg5JpIccAPTl8qkYYyxoBa5euy6FVmKo/cvMDKZXrO
71G8hpto0lAaG9R2cQVxDxJaKHzzNHCiBVzk4nGI0FCOA8aYL4ZiXvEHPHga
OKTI+lmYf4k0lEENavB8eRPVDJy9w8sFVTP0FxW7h03V5cLhERUwdJsw71jV
J0WJF51YxSMQPs3tw1fOBHaV8XQQTfakd9eYd9xpN3Dk8Lfpig1UM1E6TO6E
o3ODPLtjNwzzjs2B6PIe3EfvZf2RiPlOUvB1+T+6I2GzQUWOG8h8UTr2bOn/
++hF067m0PvMO/YkGxWXCWzuuHlsM6xZscukMnWGQrrFkejGokiUIyv0ViAJ
SETVWxEni9wB7wujGQM1PawVjnt4Dm0+J7zM8pzXgz/RU5N7dtkW5ZbQs1C0
7jlCbOrqsP2zE+tHqRrvZqLjQkQjDI95eqyApZNe3glCq1jx0muulQyfh8IW
dF6TcGTwh3iZvoAi3KqQ0efJYLstrqD/AG4JB3ucNjjx1Z3z33qcz1hVo6yP
yE5yj6NnkU9kf8/jtSk9Dn2U3OMITVDW/N7HsaEVrW7cWkOeAv568eMtNETK
+KNYEdDC/CLFsQs4nlL8weLv5TNdSGhikXKPo30Z0fH3Po72MDQPc48jvlv+
MOSgxuP/2wBKrKgq0RXnAAdXIoPIceAXuvdvbKnT5OB/GSRp/3NdRePHgZy4
Am2PDWHc+NFBwPwtYo3x/+vFTZVASHtxs2jEyAjiChwZtLxxyxzJbGgw5qhF
ZsQt+RH/N3GPVBj38MyI1Co1Bj6BnhxF0ZkbOJIkqEUWT3XRwP+bUMdQGOrg
R3s9UiLl/Tvmh7VDUlRPsXdUZMT/UVxjKIxrxMqNaqh2pJVMjg1eGMwBN9U4
9BSNyCID/zf/+I1oKPONP36DUSNvjitoM0UjFDdqpJFw/q3IqP/lsEVXPWwp
8Y/S6KqPW0dgvJF/xxHhGoPWXvPTmAfMAeaCI4m/A44D8jVIqrnioWRvBQ8K
hTYYFSYE5KALjwzbSYpdk1YCGlxjIl4C9zPp3h6wxD3bPO3jazQaFn9/K9Hv
P0vOQ3AFaxxrnXGROBpw4U5d2LP0e2lAwanTgL+GbTDfohFIzoMAfniofuQ7
mklVcjTQrsWWY0VpFIkCx/7gymk6PhwmgvX0pCjj9Uh8+eBbj/M5f1hGVIC4
x9EriCT69z6O7ma4CNzg0RCAOKb48dYaQmR0LzwSPMdzbZ7y7plqCNNa9Htx
AAb/PPq9uccRxyFL+K3HkfDHlUhyN4djxTyug0Zw5qE2JT4E763oIYkUndj4
3u/9TrT2IBzhHo/0d5jUPiUu5luP9yc2RwHPFS4o93iG13wL1v1We5yrtzO9
1SBxv301NNPjPUhUp8wP/PZeBFf4e+TFNNqo0MBuLYngP0SvKPUyf7OFowGs
oVqojQazyYljBTUJROHYvCKkAbgD9tpoMF3ZHA3sxEYUjiAMG2R4GqiAYvlp
oaGPbZX8fGAXNqJwIhvhUR9IpS15HOrNPt5WKI2iIiqKF7iCRyXcEWZ8jIp+
Q4TPxTFqG600sFcP08CfpM7HpUay/DxoQfhKqnGpyELCHDJE8Anr2BRFolDH
6LHAVdVItLXWQWFLMHaJ84xhPv94eSvwQpDrHH6fwbcYA0SBM54GIk+43IHB
OxaoRp4cDTaNb8Cf4MfQ2j2uhwotTkjTYm6eeapU88VhJyckSbP/IviAq/u8
SZMm+AyBRo3379+XdD+ff+bznmRnsnxwyrnb2MPFNBtxbMBjAFyLocqz8R9F
IKbgBK+qJiYmhlpZWWm7nc8/c3lOhgl0hS+rvCyryYOGcuNCHfxlXRazzJ94
Tq6bVa3AUKaPyyqs/HvBCPuMcenMzMwCPT09bffxWWcuZV40dvyMHTWW+5ug
wj9wze2oEP/T50KI/htxirF6vYVHUULNmjU1by8qz6gcT8d5/hgk/wfhud0q
eup/WJv9XIWJn49ZNJiwCg0NhVc67MyZM5q3q4Y4zG/+j6z/e52PHAMNYmNj
PadOnartPubbB/DfXkJMUeVHYwqolgHnzzNpqFrx8fF5BgYG2u9XGca/Xdvo
ee3aNWQSoLUQzmi7XzgK5vWskl9LSv0/sPL9tw==\
\>"]],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJx11Ak0lHsfwHEhKpFQScoekTW5tvwH9xKNsmbJNmMYxpiZZ2xjd5WkKNmy
JK+Y5MpSIaHlVVFERSpUlkhpualb2arXvY3f8573nPc5M2fOzPM8v///PN/P
GQUy09Gfn4+Pb27h/ffn/x6alrJvRg1kkPTj52Wy/F1mP7+ro20eHoQHGm/M
SHouOuoV21CssPB7p8Z53nlj9CplB2Gl6DI0XzHVY0cmoCPhlRe4V1ejn9db
Iln5jZ6ftaRRe1NjutAHK6TZZJTbbiCHft5vi3YVPfiD6aWEMjsTdl6Ls0Mc
wURxPUdV3jx7VEfcF7acpYG0GaVLWpY6opHKxLauam3efCe0XKr4a7uAHsr+
IuSTR3RBr6L4hLcZ6/PW24v4dTLa5TkGaDae1hKW5YYCnVZGBTQb8tb3QANc
5weq/CbIR7h7vcPAPiSWOO3cabuDtx8vtOwO8/SHLIRuHdON1FTwQe99rqvp
vyfw9ueL5CotjuautuDND0T7bRpyv84TeedZiCaSnOTn7IRipKqtR6LDkPe6
SepEtCvveg6yiZYczPnugaJeb9Zddi4WYbe/9nt/9OLdn4iCq54Z79f3RSZD
e9JPMJLQt8Fm5VIjEm/eAaQW+9y+ZRUZNdms5NdIOYgKK2mJIy1k3vxD6MeR
pQm6Vn7IqO52xNXiwyjj7ZHw7zV+vPXSEDdXfeTDNz/UuCn5jUPjUaQsVyWk
so3CWz8D7fKs1bR0pKCTN+Vr2YHH0YThTp8sLwpvP5koXU0HE3WloMGZfxZE
xte+rw4gUHj7y0YRJcyQ9RsoqCD/nwPJjn54allF5q13Cu3U7h+f8PZFbx3+
/qUEffN7MD026sG7vwwJP5nuiF7njFY8LmXtWFGONMW7nazX2fDmVaDUzk0v
NCJ10f/z3C9tmr6y9Te06Plweyt7wNAeLXq+S+MuMzJzRoue76m56s8ccgXP
rmd9H5m6eYBnsY1rUh91eYLnC+7XTBK+e4Nn1Rv9kYKxvuC5lz1rvpFMAs9i
qfHczdvJ4HmOJiP34isZPDtfdloed84PPEtU9U3UOlPAc81mW+7rKQp4Hl4j
L+2c7A+e+++ajL9dFQCen2TdKT6cGQCe475lOI2LUsGzdwVnx8kkKnjO+vxc
33iKCp4d/B7oPrEKBs8Tw2K1SowQ8Nw0FLWLPcQAz6v8d3B1HjPBs2RcU7GC
KQs811k8nNhLZ4HnU+3mRoX7WeD5fm2plFwKCzxrGPZQK6JZ4Pngca6yGIkF
nqcsCvg4C/MXPRMsx+zyxFjgWeNuqsXR80zw/HEvJr/NkAmeXzTsnhq9wADP
UvLzo6uVGOA5m54V+zk1BDwXNszZH39FB8+eghEyHj5B4HmwWXuu0dsfPD/s
3Vhkv4IEnqPz/e0/vXYDz5wBW53B0t3gWbjKTLffazt4JrjkupcmBqJFz9qf
CoxK/vQDz/vXyK7O7yKDZ6qBeUrMGBk860/bHOmg+oHnE/c61g6JUsBzzBbO
y75mCu75JaOGRPUHzz86BRJjVgaAZ77Kyo/VFQHgmeRml881o4LniItKaoc6
qeC58JVWeIN9IHhemVQfzu0OBM/pxPOD3b8FgeeKnBqzioYg8Pyx3OpwmQIN
PMuQuXlqKTTwXGyo8ip7ggaeq0JqnhEsg8EzKbx7Z2xBMHguHnMjNVgwwLNX
uZ3ewAwTPFv09pwcTmOB51MbTjDMXrPAs6Pp5AEveQw859JnXTgmGHj+M+qN
Sx8BA88hVhXZE/oYeA7vt7k+JYOB58nrMV+on3HPim2SvpptuOchyetHW47i
nq/lBvdY2LPAs7oIyfyiCAs8/66XnHN2PxM8//UsSSfrJe55y0DBDQNzBnj2
/6VrPDI7BDzfvWu74eFT3POxguys+su4Z6xGpNzXFvd8sLueyDJzB8+tXm0b
ZgT2gGeHtUtNqSW4Z1diXRlhSyh4blZqPKsjywLPS33anue00cEzNvyQ3TtN
A8+ZnhcCaYo08Nxyrc0g/XEQeO4UVM2z7A8Cz0PS7tH1gjTw7GatdOOpFQ08
G8WWOsnn0MCzR/wwkfaaBp4ThRqFlAjB4JkiwGTLnwgGz1oeuVtWvwsGzxHL
70yrmtPB80kKiTiZSQfPN1doakuM0sHzle1KZTFaIeA56a+zHdKcEPDc0Niv
NXk1BDw/Mym4PMPPAM9FWb/a1kqwwDNpUi3CvY0Fnr9rrHeqNsbAs2JooKxz
EgaeawcIaTIVuGeZWZ+OwQbcc+eyczErzuOe35WUfswoxD3fPC9yxTkK95zh
Gz+QQsTAs2SH3dunazHwrCpKmKzoxz1bB/174kcO7rnMWqS9mYh7/tjxkKn8
Dff8TpqzRNeNCZ4lw8ykcitxz0nbD3CVp3HPtuy5K9YqNPDcsKR4ZN173PPM
EF+xFhP3bH5qycJfIO7Z8uS/kkVMcM/fLxu3bbiNexYXNF94JYLnGrVHT/km
Y8GzyucTEnOi0eB5ulO+UOR+JHjOKe1aKrE+AjyrxMnSmu6HgefjZC3dK0Oh
4Nlu3xrDg7qh4FlF22Nqqo4NnjdbSmtlerLB85QQfVXQJjZ4tnMdCLT4hIFn
KWqRxXwfBp7ljau837Vi4Hlrfeut0EsYeHa5X+rGXfCw6DlLsdhmfS0GnrvU
VdtaF84venZZF236uB4DzxfXc7GWZgw864isGJlrxcCzaML2ohuKbPAcUdYq
4BvGBs+RcvFNX8vZ4Fmy8Av3+HU2ePY9cux38Rts8PyFtlzqwkU2eFZMX/Po
Xg4bPHMSDlzip7PB806i8Zk9hmzwXG1zU5U4j3s+c2ntgNFl3HMfQZ0rw8LA
8/U8x9RrChh4ZrZw0nu7cc+lmRPjLyJZ4Pl8r4RMwEYWeO6mTQVFJTDBs4P+
6VvhVxngWXykd7q9DvccMEspSXYJAM9zOX0KNZdwz7IHt9zQ78Y9J5W9sjQs
/y/P0zbVClIG4HnxuS322NqTf5ewPQ56cJpnxCXboqGHaTJRucczCnqs/eNQ
/DkyB3pI72LNtp+KhB7tS+rUBacjoIfh/SjFKVIE9CCnHBYb6guHHqV2XpTZ
PeHQozdtdPxLVxj0aE5IS/PfHQY9Esc3a3ncD4UebgOanw2dQqGH9dszY3mP
2NCj1rhIQM+DDT1ua75BPc8w6JGhLuy4l4RBj1Qr5bXcMRb0CLZ3T7MbpkMP
s193eM+MUKHHVvOGVQWdZOihI3S6ftZgH/Qo6e89k19sDz0Oqonrduv9guiq
L+7Nq/jBc/sPOCInGw==
    "], {{{}, {}, 
      {RGBColor[0, 1, 0], 
       LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
         19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
        36, 37, 38, 39, 40, 41, 42, 43, 44, 45}]}, 
      {RGBColor[0, 0, 1], 
       LineBox[{46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 
        61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 
        78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90}]}, 
      {RGBColor[0.5, 0, 0.5], 
       LineBox[{91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 
        105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 
        119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 
        133, 134, 135}]}, 
      {RGBColor[1, 0, 0], 
       LineBox[{136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 
        148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 
        162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 
        176, 177, 178, 179, 180}]}, 
      {RGBColor[1, 0.5, 0], 
       LineBox[{181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 
        193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 
        207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 
        221, 222, 223, 224, 225}]}, 
      {RGBColor[0.6, 0.4, 0.2], 
       LineBox[{251, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 
        238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 
        250}]}}, {
      {RGBColor[0, 1, 0], InsetBox["\[FilledSmallCircle]", 1], 
       InsetBox["\[FilledSmallCircle]", 2], 
       InsetBox["\[FilledSmallCircle]", 3], 
       InsetBox["\[FilledSmallCircle]", 4], 
       InsetBox["\[FilledSmallCircle]", 5], 
       InsetBox["\[FilledSmallCircle]", 6], 
       InsetBox["\[FilledSmallCircle]", 7], 
       InsetBox["\[FilledSmallCircle]", 8], 
       InsetBox["\[FilledSmallCircle]", 9], 
       InsetBox["\[FilledSmallCircle]", 10], 
       InsetBox["\[FilledSmallCircle]", 11], 
       InsetBox["\[FilledSmallCircle]", 12], 
       InsetBox["\[FilledSmallCircle]", 13], 
       InsetBox["\[FilledSmallCircle]", 14], 
       InsetBox["\[FilledSmallCircle]", 15], 
       InsetBox["\[FilledSmallCircle]", 16], 
       InsetBox["\[FilledSmallCircle]", 17], 
       InsetBox["\[FilledSmallCircle]", 18], 
       InsetBox["\[FilledSmallCircle]", 19], 
       InsetBox["\[FilledSmallCircle]", 20], 
       InsetBox["\[FilledSmallCircle]", 21], 
       InsetBox["\[FilledSmallCircle]", 22], 
       InsetBox["\[FilledSmallCircle]", 23], 
       InsetBox["\[FilledSmallCircle]", 24], 
       InsetBox["\[FilledSmallCircle]", 25], 
       InsetBox["\[FilledSmallCircle]", 26], 
       InsetBox["\[FilledSmallCircle]", 27], 
       InsetBox["\[FilledSmallCircle]", 28], 
       InsetBox["\[FilledSmallCircle]", 29], 
       InsetBox["\[FilledSmallCircle]", 30], 
       InsetBox["\[FilledSmallCircle]", 31], 
       InsetBox["\[FilledSmallCircle]", 32], 
       InsetBox["\[FilledSmallCircle]", 33], 
       InsetBox["\[FilledSmallCircle]", 34], 
       InsetBox["\[FilledSmallCircle]", 35], 
       InsetBox["\[FilledSmallCircle]", 36], 
       InsetBox["\[FilledSmallCircle]", 37], 
       InsetBox["\[FilledSmallCircle]", 38], 
       InsetBox["\[FilledSmallCircle]", 39], 
       InsetBox["\[FilledSmallCircle]", 40], 
       InsetBox["\[FilledSmallCircle]", 41], 
       InsetBox["\[FilledSmallCircle]", 42], 
       InsetBox["\[FilledSmallCircle]", 43], 
       InsetBox["\[FilledSmallCircle]", 44], 
       InsetBox["\[FilledSmallCircle]", 45], 
       InsetBox["\[FilledSmallCircle]", 251]}, 
      {RGBColor[0, 0, 1], InsetBox["\[FilledSmallSquare]", 46], 
       InsetBox["\[FilledSmallSquare]", 47], 
       InsetBox["\[FilledSmallSquare]", 48], 
       InsetBox["\[FilledSmallSquare]", 49], 
       InsetBox["\[FilledSmallSquare]", 50], 
       InsetBox["\[FilledSmallSquare]", 51], 
       InsetBox["\[FilledSmallSquare]", 52], 
       InsetBox["\[FilledSmallSquare]", 53], 
       InsetBox["\[FilledSmallSquare]", 54], 
       InsetBox["\[FilledSmallSquare]", 55], 
       InsetBox["\[FilledSmallSquare]", 56], 
       InsetBox["\[FilledSmallSquare]", 57], 
       InsetBox["\[FilledSmallSquare]", 58], 
       InsetBox["\[FilledSmallSquare]", 59], 
       InsetBox["\[FilledSmallSquare]", 60], 
       InsetBox["\[FilledSmallSquare]", 61], 
       InsetBox["\[FilledSmallSquare]", 62], 
       InsetBox["\[FilledSmallSquare]", 63], 
       InsetBox["\[FilledSmallSquare]", 64], 
       InsetBox["\[FilledSmallSquare]", 65], 
       InsetBox["\[FilledSmallSquare]", 66], 
       InsetBox["\[FilledSmallSquare]", 67], 
       InsetBox["\[FilledSmallSquare]", 68], 
       InsetBox["\[FilledSmallSquare]", 69], 
       InsetBox["\[FilledSmallSquare]", 70], 
       InsetBox["\[FilledSmallSquare]", 71], 
       InsetBox["\[FilledSmallSquare]", 72], 
       InsetBox["\[FilledSmallSquare]", 73], 
       InsetBox["\[FilledSmallSquare]", 74], 
       InsetBox["\[FilledSmallSquare]", 75], 
       InsetBox["\[FilledSmallSquare]", 76], 
       InsetBox["\[FilledSmallSquare]", 77], 
       InsetBox["\[FilledSmallSquare]", 78], 
       InsetBox["\[FilledSmallSquare]", 79], 
       InsetBox["\[FilledSmallSquare]", 80], 
       InsetBox["\[FilledSmallSquare]", 81], 
       InsetBox["\[FilledSmallSquare]", 82], 
       InsetBox["\[FilledSmallSquare]", 83], 
       InsetBox["\[FilledSmallSquare]", 84], 
       InsetBox["\[FilledSmallSquare]", 85], 
       InsetBox["\[FilledSmallSquare]", 86], 
       InsetBox["\[FilledSmallSquare]", 87], 
       InsetBox["\[FilledSmallSquare]", 88], 
       InsetBox["\[FilledSmallSquare]", 89], 
       InsetBox["\[FilledSmallSquare]", 90]}, 
      {RGBColor[0.5, 0, 0.5], InsetBox["\[FilledDiamond]", 91], 
       InsetBox["\[FilledDiamond]", 92], InsetBox["\[FilledDiamond]", 93], 
       InsetBox["\[FilledDiamond]", 94], InsetBox["\[FilledDiamond]", 95], 
       InsetBox["\[FilledDiamond]", 96], InsetBox["\[FilledDiamond]", 97], 
       InsetBox["\[FilledDiamond]", 98], InsetBox["\[FilledDiamond]", 99], 
       InsetBox["\[FilledDiamond]", 100], InsetBox["\[FilledDiamond]", 101], 
       InsetBox["\[FilledDiamond]", 102], InsetBox["\[FilledDiamond]", 103], 
       InsetBox["\[FilledDiamond]", 104], InsetBox["\[FilledDiamond]", 105], 
       InsetBox["\[FilledDiamond]", 106], InsetBox["\[FilledDiamond]", 107], 
       InsetBox["\[FilledDiamond]", 108], InsetBox["\[FilledDiamond]", 109], 
       InsetBox["\[FilledDiamond]", 110], InsetBox["\[FilledDiamond]", 111], 
       InsetBox["\[FilledDiamond]", 112], InsetBox["\[FilledDiamond]", 113], 
       InsetBox["\[FilledDiamond]", 114], InsetBox["\[FilledDiamond]", 115], 
       InsetBox["\[FilledDiamond]", 116], InsetBox["\[FilledDiamond]", 117], 
       InsetBox["\[FilledDiamond]", 118], InsetBox["\[FilledDiamond]", 119], 
       InsetBox["\[FilledDiamond]", 120], InsetBox["\[FilledDiamond]", 121], 
       InsetBox["\[FilledDiamond]", 122], InsetBox["\[FilledDiamond]", 123], 
       InsetBox["\[FilledDiamond]", 124], InsetBox["\[FilledDiamond]", 125], 
       InsetBox["\[FilledDiamond]", 126], InsetBox["\[FilledDiamond]", 127], 
       InsetBox["\[FilledDiamond]", 128], InsetBox["\[FilledDiamond]", 129], 
       InsetBox["\[FilledDiamond]", 130], InsetBox["\[FilledDiamond]", 131], 
       InsetBox["\[FilledDiamond]", 132], InsetBox["\[FilledDiamond]", 133], 
       InsetBox["\[FilledDiamond]", 134], 
       InsetBox["\[FilledDiamond]", 135]}, 
      {RGBColor[1, 0, 0], InsetBox["\[EmptySmallCircle]", 136], 
       InsetBox["\[EmptySmallCircle]", 137], 
       InsetBox["\[EmptySmallCircle]", 138], 
       InsetBox["\[EmptySmallCircle]", 139], 
       InsetBox["\[EmptySmallCircle]", 140], 
       InsetBox["\[EmptySmallCircle]", 141], 
       InsetBox["\[EmptySmallCircle]", 142], 
       InsetBox["\[EmptySmallCircle]", 143], 
       InsetBox["\[EmptySmallCircle]", 144], 
       InsetBox["\[EmptySmallCircle]", 145], 
       InsetBox["\[EmptySmallCircle]", 146], 
       InsetBox["\[EmptySmallCircle]", 147], 
       InsetBox["\[EmptySmallCircle]", 148], 
       InsetBox["\[EmptySmallCircle]", 149], 
       InsetBox["\[EmptySmallCircle]", 150], 
       InsetBox["\[EmptySmallCircle]", 151], 
       InsetBox["\[EmptySmallCircle]", 152], 
       InsetBox["\[EmptySmallCircle]", 153], 
       InsetBox["\[EmptySmallCircle]", 154], 
       InsetBox["\[EmptySmallCircle]", 155], 
       InsetBox["\[EmptySmallCircle]", 156], 
       InsetBox["\[EmptySmallCircle]", 157], 
       InsetBox["\[EmptySmallCircle]", 158], 
       InsetBox["\[EmptySmallCircle]", 159], 
       InsetBox["\[EmptySmallCircle]", 160], 
       InsetBox["\[EmptySmallCircle]", 161], 
       InsetBox["\[EmptySmallCircle]", 162], 
       InsetBox["\[EmptySmallCircle]", 163], 
       InsetBox["\[EmptySmallCircle]", 164], 
       InsetBox["\[EmptySmallCircle]", 165], 
       InsetBox["\[EmptySmallCircle]", 166], 
       InsetBox["\[EmptySmallCircle]", 167], 
       InsetBox["\[EmptySmallCircle]", 168], 
       InsetBox["\[EmptySmallCircle]", 169], 
       InsetBox["\[EmptySmallCircle]", 170], 
       InsetBox["\[EmptySmallCircle]", 171], 
       InsetBox["\[EmptySmallCircle]", 172], 
       InsetBox["\[EmptySmallCircle]", 173], 
       InsetBox["\[EmptySmallCircle]", 174], 
       InsetBox["\[EmptySmallCircle]", 175], 
       InsetBox["\[EmptySmallCircle]", 176], 
       InsetBox["\[EmptySmallCircle]", 177], 
       InsetBox["\[EmptySmallCircle]", 178], 
       InsetBox["\[EmptySmallCircle]", 179], 
       InsetBox["\[EmptySmallCircle]", 180]}, 
      {RGBColor[1, 0.5, 0], InsetBox["\[EmptySmallSquare]", 181], 
       InsetBox["\[EmptySmallSquare]", 182], 
       InsetBox["\[EmptySmallSquare]", 183], 
       InsetBox["\[EmptySmallSquare]", 184], 
       InsetBox["\[EmptySmallSquare]", 185], 
       InsetBox["\[EmptySmallSquare]", 186], 
       InsetBox["\[EmptySmallSquare]", 187], 
       InsetBox["\[EmptySmallSquare]", 188], 
       InsetBox["\[EmptySmallSquare]", 189], 
       InsetBox["\[EmptySmallSquare]", 190], 
       InsetBox["\[EmptySmallSquare]", 191], 
       InsetBox["\[EmptySmallSquare]", 192], 
       InsetBox["\[EmptySmallSquare]", 193], 
       InsetBox["\[EmptySmallSquare]", 194], 
       InsetBox["\[EmptySmallSquare]", 195], 
       InsetBox["\[EmptySmallSquare]", 196], 
       InsetBox["\[EmptySmallSquare]", 197], 
       InsetBox["\[EmptySmallSquare]", 198], 
       InsetBox["\[EmptySmallSquare]", 199], 
       InsetBox["\[EmptySmallSquare]", 200], 
       InsetBox["\[EmptySmallSquare]", 201], 
       InsetBox["\[EmptySmallSquare]", 202], 
       InsetBox["\[EmptySmallSquare]", 203], 
       InsetBox["\[EmptySmallSquare]", 204], 
       InsetBox["\[EmptySmallSquare]", 205], 
       InsetBox["\[EmptySmallSquare]", 206], 
       InsetBox["\[EmptySmallSquare]", 207], 
       InsetBox["\[EmptySmallSquare]", 208], 
       InsetBox["\[EmptySmallSquare]", 209], 
       InsetBox["\[EmptySmallSquare]", 210], 
       InsetBox["\[EmptySmallSquare]", 211], 
       InsetBox["\[EmptySmallSquare]", 212], 
       InsetBox["\[EmptySmallSquare]", 213], 
       InsetBox["\[EmptySmallSquare]", 214], 
       InsetBox["\[EmptySmallSquare]", 215], 
       InsetBox["\[EmptySmallSquare]", 216], 
       InsetBox["\[EmptySmallSquare]", 217], 
       InsetBox["\[EmptySmallSquare]", 218], 
       InsetBox["\[EmptySmallSquare]", 219], 
       InsetBox["\[EmptySmallSquare]", 220], 
       InsetBox["\[EmptySmallSquare]", 221], 
       InsetBox["\[EmptySmallSquare]", 222], 
       InsetBox["\[EmptySmallSquare]", 223], 
       InsetBox["\[EmptySmallSquare]", 224], 
       InsetBox["\[EmptySmallSquare]", 225]}, 
      {RGBColor[0.6, 0.4, 0.2], InsetBox["\[EmptyDiamond]", 227], 
       InsetBox["\[EmptyDiamond]", 228], InsetBox["\[EmptyDiamond]", 229], 
       InsetBox["\[EmptyDiamond]", 230], InsetBox["\[EmptyDiamond]", 231], 
       InsetBox["\[EmptyDiamond]", 232], InsetBox["\[EmptyDiamond]", 233], 
       InsetBox["\[EmptyDiamond]", 234], InsetBox["\[EmptyDiamond]", 235], 
       InsetBox["\[EmptyDiamond]", 236], InsetBox["\[EmptyDiamond]", 237], 
       InsetBox["\[EmptyDiamond]", 238], InsetBox["\[EmptyDiamond]", 239], 
       InsetBox["\[EmptyDiamond]", 240], InsetBox["\[EmptyDiamond]", 241], 
       InsetBox["\[EmptyDiamond]", 242], InsetBox["\[EmptyDiamond]", 243], 
       InsetBox["\[EmptyDiamond]", 244], InsetBox["\[EmptyDiamond]", 245], 
       InsetBox["\[EmptyDiamond]", 246], InsetBox["\[EmptyDiamond]", 247], 
       InsetBox["\[EmptyDiamond]", 248], InsetBox["\[EmptyDiamond]", 249], 
       InsetBox["\[EmptyDiamond]", 250]}, {}}}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 0.05}, {0, 0.008}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.001, 0.001}, {0., 0.}}]], "Output",
 CellChangeTimes->{
  3.576254325392105*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztvQdUFEnUNjwy5GzOOWddc845x1XXnHPOkSCIgJhzQEVRQFRUFLOCEQMq
KqIYUBEQySBpZu4/T3U39Mw07Ovqe87/nfO6C/R0T1ffunXDc2/dqu43YfH0
KXMmLJ4xaUKlHgsnzJ8+Y9KiSt3nLVSfkheSyQpNl8lk3yrJcEzqQ/4Xqf+n
GfiFM/9+XIz9KWackZGxftWqVUNOnTrlsHLlSvPU1FRcqfbu3buvZcuWLaRS
qfL7jtT5er/frFyhUPQ9f/48+tXx5s2b+FyXNVv4d5qt/fr162+lS5eW6UVU
rVpVJsf3a4SHh7OW6/w+2YZZWVlvatasiWtT9u3bV/br168cNyz/a7P67HY5
P8D0pyhd4ObmFlarVi1QiWPT9PR0PQ2pmL958+Z+586dwycMgd2aNWtwrKdU
KsFHHOf3HanzPB/+a7MccXL0KZcXf6RJgzZ37txpf/v2bXxC83VevXolq/sn
mtaHPOCoVHR09NWuXbv+JsEFyMLvjFbhhIQEyAmOmwUHB7uPHz9eQxYMbrdv
375EbGwsPkFSXtatW1fGUWMmeU19LHm+3r+2J31NLtHzur/XVn8/P7+/njx5
IpKkX2+LHxGLlJSUbAMDg/8hXYZS18p9+fLFgHVQXunjx4+53az1e6RBBNPM
zMzYp0IaoxpdqlQp/ZycHOFR8UWKFOFvM5a8pv4rnOfVUTgtEsWCmpW+VsDg
/nJbfK9dFy1aVPrbt2+/1RZPl2BCv5QrV04QlALaMpW6Bv81Z9u2bbAvOIe+
/ntTBXaxXWBgYLqpqanEwMYVK1Ysv4GVvKb+K5wvYGALaFb6WgED+8tt8b1u
FBIS4jF69Ojfaounq+vVq1efNWzYcMDZs2eF0SigLdP8WFchMjIS1kRrYH+Z
LN5pmPz8+XO4l5cXgMreqVOnapri+y1bthQk2ywtLU1siiWvqY8lz9f71/ak
rxUwqAW0ZZQfbTB7fM/lRpmZmbm26t/bLOiavGpERMShCRMm/FZbPF29Ll68
iEFmff53vuU7DmWioqKyDA0NAc5gUdBfmebwLty0adNgX19ffOpy7dq1dTY2
NkKzktfUx5Ln6/1re9LX+C4bZGdna+Gs/0QbsEdvf39/HI/09PRE13+nPRhQ
DAeOy3/+/DnTyMjoP/eVF+WJBw8ezO1r3d/j2wpHR0fByPPtC0OL0RaguO3a
tWuh50J3Ja+pr0ier/ev7Znk1x5Ig6l63KRJE1n9f21H+hpvp6bv3r0b5vNz
+fLle166dOnfySqwuQ63bt0C8kT8BC7+1+b4QbVKSkr6VLFiRfGg/lfSAJaj
ypQpA+E9OmbMGF5lme2bytiKbzMfXEh06Rci8VKC75D1wy+OJllZ9sdQHQiz
71NesK8+Dq2ntsHqQ3lwM2qWa4l56ycTW2cTiXOmv3Hu/9r7/1d7xhrSUuX9
e1pn45L2rKGLB76lKuSyhGQ/iupz0hJRlarm3in/f7C3/9feH5GWCnmXqr9N
/J5hTMYyAwmDovf/YBf/r70/KCL6uKJGv1QrjMLSTcmUl5KBZ+hM7h1NJVpp
K3Gu3W+c06DKAFdqvnnDLhX/TpwA8zbudW2qnXsb+92YHRrqKZXU6v7PkMQx
s/5RLai48Mi810vVkIh0m27w/DkJTaDjgm749af+mk034pr2DN+zlu73akh+
o+rR0941KKBDDwe3c+d11a1tUJCGal3vTJ1ZW+wB+T2mAccDA2W2Mil8cCPa
1aw/2chsaOdfg+h5p5rp64rYNYx5FmOk8zh1lKvxODDra1kqyx6kn9/jOPRl
UvETfTq59vJKChhWl2z11rJH2hRaRwFD1J8NV53yGuIl031mnwsXNBwMnqkq
RIXEz9SQH47P7NBcP4dycPFiL+oVV4yK+a15Njbl7qimtFU2lz1/u2wOPehe
5/Xe/quNFJkK3cePOn5cAw1JcVhXRmqwQ4sKkRRpt4bWRJWhMoHtqN0/x+jY
tJvurzNC2zShG7Oq09NBNelz1wr0qme11NPjupb8HqOUMKoTEVOIaAALvIbT
8ILZXoUdWskVpOjvR37+vak3WLB5Ps2v/Zpez7yxOywztEUTiphdROU5tcG7
syv6H7l5aN2IMP8Hj07Mmm+gzFHw1kBMy4xdu7hnGObPD93hqMgOrcEP27W0
FjIDfoz2IA/jDMqYH7D1deaL5k3p82wrlc+0+l+8l/To9Tn0Lu4yUuRkbb7n
tck8OzPdVEQOo8ZQQg55IjxG02hNIsqxQ0swpN85One+L/X9XpyKCwyB8i65
4BKW9bxpU4qZZaE8O63Od8+FnUe+Cw7QU6mUVtzDy+Wpv3FGBgPR9qtXs2O0
IKIoV0r1OIp2zqSZmhSV4Sgq94W+2KyjdV/KUbmgttRWYAvaW37W6XX2s7+a
UvwsU+XF6bWSjs5rP/3V7VMGSkVOYTFFcgHaM0Onx47k9UJDc02PjEspG4hH
DCQ2f0gPOXJK50lM3/N0/lw/6gcGbZlH8+q8ole4im6vPWX3KjukUTNKnmms
uDajRtqR2W2Wh1xyN83JypAV/U80gV1HxtLYkEbUKNmSLGErOJpKcjSV/Upf
19qS7efyVB4sGnOUjpr8JBaIyhUKsj2x7lXO0wbNKH2GYU7gzGo/3We3dnro
u61wZnqyrPiv0cQpoHzVelp/rxW1MsimbI4WC04J/3pCT8JqUS04MLcFtIAz
hoZgW58LdAGaKGYbd9lYPyeHHD1Wvsp5Uq85ZU7Xz3kwq3L64dmt9wQecyiT
nvi95H8iUk9JyivdqJvzEloiJtL0RX2qL4wy/pt4kA6usSO7yApU4U4baiMw
kKfOMCuLXNyXvFQ8qdOccqbJs0NmV0g5OqftyWv7VlRLjv1cWkP4ERcsdnFh
1L2vUoUdF/3xg7hsm7xELMXC5IEbHFHm7IJRtgEZiIlKMyOzrXNpbt2X9JK3
78bq4Jm27ZvzQvG4VgtSTNXLfjW3XMLx+R0u+2+d1Tju85uyOibpVZ06HE+4
rht2vEk3Y0tQid7+5C8eJ/YlzsIbwg8jfGF0GCcaQxHaBVIgT4Rpejrt3jX9
ueJRzRaknKyX9W5+6WjvxV3un3Ea3zEq/HF5HSKiS5XiiLDkzoHXeLDYAOja
RS7EL1IknuKn76bdELeoMspye6b/nP9xxqw5Gcsrrljg/toThoCxMTWV9m2f
8kwZXE1N1iS9rMj5JT+dXtnzlfe6YQM+PrvFmVlZeUE2lGyEsg3UTNdjxkou
tMQJCfc9CK62rVrhSI6531Oy38WgCLAL3sNoWKI1WZ8YQSPA4wF+5xQ0WHaa
rsi60Q2DDuQn6z/q+vHow5vHhSiDq7Yk5UR5VvSi4m8urO0XeXx5n3Hh987D
oFbSoLYvN0PPMhKSEs8Jl8GNTtRJkB+lHukx88VT2CiEQjDSMSWpJKzE1L20
1yqJknAVaCdwazsfiuhQlQJ7NSXPUS3oZu9m9K5jNfo2oExW/KLCIVfXD/l+
ZFHXeaHXPA2VOdlV/guF+jBmcC5ZhmS42IVcuMy8Yaloil7gRm7QzPdVqAqA
QdUIiuDTdl0+XPugtNGzpbDOVWlTsxEMnrj+NYpCO1WP31l/YcLh+Z3WPT6/
F35QVu3XCOMUQw4YAP0HJbIMTiVhA4Z5kzfgQXwRKuI+nsa3v023C6lIxbtX
k6rvI+jTjKrn6OLQ+rRTbyaHnArNoYvD6+0JPOxULCM1UVZDTJKhQJLwD0SB
JGuOkuUbaMODFtTCNJ3SZakcJXhiq3t0b+9UmgpKYNYAmJiZ59TWtNGzENXj
NU0uql5VrUv3RtZR+f/TVhWg15NuyTqknys89HT4gelj3t73r6lBDMwViAhu
1ox8hg7NNVec/5QfmkATINOsy0ncLUAqUGHYCMC7ZU7kVCaKojiza9Yx8KYy
fGUNb1VEjeoqxRR5cuaKol6hB+ZkXVpQO+rZspah7xYN2J16dt6NJ9tH8bOu
AjGCVjqsXEnrV63KBQ4cMYaGWZQFEcc4iI3Xd+6yeSqljncn99vtqf2PolR0
+2ya3eQxPeboskRDg8/55nxdXe6QKrJ2RZVimn581qqSh8I8lnw+vqz3hUvb
5zWJ+/TaIfjMTpj1jQ98t8pVSmWtX5Mn6zyQk2lERvnauA8FOUwj+K6uV+nq
sX/onyQrsjo7gAYMOEtnmcPlOmQKrznJ40BW/Nqi21Xf6pVWKWbox+asKbP9
nffadydWD7xxftO0NtERz4RZHxFYlNX+tU5xA2CQo0/6Yh/FLOEnaac6awft
cFpGywDcHjehJrO303bYcg42m5r8/ElLdjj/TFtv4aiKa1BcqZht8EVhU9Hx
4/mNoT42wx+c2TCu69fXDxv9J0Iv9aSeOobwk7SjBaYCocC5vNk3tU5MJCfH
ZUmZLiarVYmNCysV8ww+KNZXW/nl6vbg045jnp2yG9nv0/Pbf/0n6gREB5bh
6c2CKZiXB4YP4O4gwILcwAG1vE/3OYvDaVmp6Gjav2Ly95wdRvNUKU0sFIqF
BmEKp7pzowMP3j7nMuWN15rBw98/ugJnImsiqfJQ9Rx9fVq1fj1T+RIcBcD/
gAiQTNlb7pklYygGVAEfg7KjY2gMkDjE81YH6jDci7wEyqpGRJDPvKFfcw4Z
T1GlNzdTKBcbhig3/TU57sHxixe3zfnouaIf3Jy+UqmQNRODBUNQBZ0Pr1GD
/nryJFf/OcoMB52m099KU+kRJ+iEWGdCuYEFkTN20S6YCBAJFsMnG2VSpoxD
WWaNQkLo+tTOEYqTxv+oMloZ5yiXGj5QbW01MiHktM/VPUu/Hlvaa+arm97w
cLIWOkgmd3pAanQ5KC0f6kM+gqJIaj5XCmMETzNzJ+0UyD08jsblksuHStYZ
iRm59/HOsMOtW/RofNPQnHOmA1WZbYxylMsNb6t2deyf/Crg6I1Da2KPLuq2
6PkVD5Oc7ExZq1/rAsdoA4Wc5Dp6/liT7JsdqaNANsAsjDNPdlHYcZOMn7Tj
wqxLnzZX3FI7+nWCgK7wd4DfWXr7T/XgnKtmPVXZ7Q2zlSuMLqv2d++a9vYW
MD+6sPbJ+X3MVLX5T12QtAAP87oA84QuIOzX6AInxYX7nT+nplPmx2Vi1D8L
ZZsGBp2JG3v0iOrbqNI3c+5YdFDldDTMUq0y8qMj/dtkfHrgds97EyDShoen
t7Pgqt2/kt7k8WPKxZ0lpM3DYF/yld3TJB1KB+7DFQJnMtI5jGWdi+ZudehI
HzpXpg9dK9L7zlVU1zt2Udww667K6WKQpVpj5E3HhzXJ+hpi98hvd9yRhV22
3PVyLfkzOb6DiGpGtFyCzaW4PgFVAjYBy8kCORpLf6Nv+dLIhQCWuYjuXftq
tKPIRNrStR9tLzGBwtvWUHrVHnmUvMfUzY59jdgZLN0b6OFQPjUhppMOR3Oj
QSkqudDMCEkEhM+7p9P0po/okdh4yC4U6IjRGbguAVQAEPW6SBeZI+bsuXm1
d+/oxej6z+h152pieJoV3rd6naxvb+eGXj/xzWNJD2hn1eTvX7r8Wie4TIjc
IoVSkKtLsVDHsVLZJD9pR7x/Mk0G9ZB0MfVc3ZF5u8BAujKi248sB0Mb5Z3i
bejSiHq004AB2bc7a7nG3Zrd9POx5X1OXdmzpG5C1PtuOsT3O3dOg/j6L17k
Ec+FpCyOghrmG0dxxBtpIwwgh56X6BJjN0exBXDPcC8vetW7zqeMA8azlfFl
i2bmjDbL+Lii1MtPm1o/z1jSPCFuRNX0mMnFvz62abbmyfn9sh46ZE/ev1+D
7Nx8MX7K6VqR3HwQx3EDwE1AMmBygJyfJmQidC3X4uR5fUuLlBRasNlN9b1b
8ZCfZ0xGKtOqWKTnTLWMJ4cii+mui5UqM+nEtf0r4B9vnnedOvjD0xtrnlzY
3/PXpIVPQwhGBAxE+g8e2zKZkn04J4IYf5ErucKhp5qT+eXu1B0BGM4Lt+Y6
dq4D1uU/fya3JQsUaf3NrmdeN+6tzKptnKqYZ/WFnMtNoSf7TFQ5P/+OeHQ5
zGvtkDt+ThOP3ziwWgyk/70jGtaQC9iNEAZBhBFtIDGjobseXFv4Dlwn9Fum
97ESVZLJcYzhwTDxlrUw2vcZPTTj53gTr+xgo1aK7MZGKcplVq9oa53h9NJL
TkqFmu3XX/jY/v3wjOPYHl9eMrurAZ175d8NfYnx4CJ5+ZBTdKpAVHCQ626N
cArHQGBAYPwxQEucyZlNjnB5MEu4VzzzXq9WSWlLzXYqXhk1yMlpZZyiWm15
j/a26knvLhUilQoINeSU/cjHvg6j+0Y+DxygQzmg4MGJE6Upr8zJuSTo38+u
GYPxMO0Itd5Vo2pIQYoZz3kJK+C4qXv30seWlaKT3SxtFB9Nq2bldDZLVdmY
X6SjvVrRF8Zn5LUBr5/72I0Y+DHkJjohG8hRLSv5p9dP4HyBKxW05mQZvNeX
kFSOUaZiY4H/oHJggrZn2c6NdLV39A6eBdkFpIyEka7/gl7wNt+qRGws2a5d
SwnNC79NPmo5KyfWqkx6dj+rNLI18ySfkfUoloFfREr3zjpNQLJr2PvHVxnq
H8wz7o8vMSiooF8uwTODfNXCQGxrJu+n/XBQMj0gCikP51iQqzbGtED3y3QZ
p8JrUA0YZVgOhA0YB84VWanJpP3TJitTO5kHp54zH5mTUqxwYvaoYqlkb76L
LsyoTIksFuvwLfxJoJ/LZERSo949vMR4OpTn6Z8r1Zcqk9fnf/NMFLRUSkmr
c7e3vkt3C8xTOkqDAygr5jJgahCICALI1dLlzuTgp2RSTIYQkHFEW3W6cYMC
+vfIShlicTnjhnGvnMwy5nE5U0olk4PlBrq2vCSlxeCbyEJcu+A24/2Jlf3H
ht+/wEK/4QIr/3R9PH9OozadEWwgArMaIIXLzxkE9KAeYm/PZG8Ddz+SXkJY
JDAYBRyw6yyNytnmEswXIHXdS3aJ5su2UGFZAgbMIDubRnt40MsWdVN/zC7q
mf3AoG12dmWTaMX8sj9oQ9EVFORoRZksxdY89uPLAP+ts4EEJoXdOQt2jRC4
9aeLzvlzGgXfck35ww+sEC9/A8+c0WadmaDHmD7xHUyDAZWhe5U/0AdtdZWt
5gwgMF2LB/Rg/mbajBwjYAqSm5ggkgRSnDcpxkIzIad+S8Zy6keWjI3+1qD0
9+/2xbflvND/Kyuntsk35YqyX8i13CwK3mFCOWw+7K+4yLDzl3bM/3JsWS9M
FSLOHyWwtoBaY4tfqvmmAuqtJXgLJKovAUK59QD6yJrZr6bV4Cn4I2UZl3DI
AMOATDbyWZhEBsuRoj04kSZiloubyyWVNsTj4qSiGvMAjzo3pcDO7Sm4czPV
247Vsx8ZtvqZ09QiWrWudBhtqzWGnh/VJyWTtQbxX96evrx7MbInCHaAl2Sj
BbYWUONb+JdqrSmfOmd9XZZCDaVcNVdvIQdLtcIRQ8FcaovrHM5yIiNbL5RC
MW+ChAE8DEKxq12pK+btEaXAEHDzIvKu769yAe6H9pXVNkcdTMnMKKJt1Uyv
OmMe0r7mA+jN2UJErIC5TsK3995X9y6L9ljcfcGLq8dZ5maswL4/Vs+cTz2x
FvcqJn1KAveknDbHPSNtoANojoD/VR2qIxmZTuVYiAgWSW1MVqMNJLYx24Ny
BKSUGj6jZwgUqwlfT6FZO3bQ2wbVM1LGW/jS2/Y1aIdsNtkarEZxStbn3lW7
KcJv8HCkRlJM5LHrB1cjebQsJOCwWU7mT9l4jouiiqNnexruybHTt5sUeCD8
0IQJuYhOwyFwHTXUVhPMnp78m/7mULyR2MHqGLlh0liFm9Q3qfKe3iOBirqH
Zw2pIS7fbU2tXRfRIuAVNg3FzdQUVuNR2jZnDiVVtYqLtKlwKOuBYbus7KIW
qXGTKqn8i3Umz64tPt5pNXCV6pYDgwvJcV+P3Dy0FnmTVU/9D1pkZ6TLJnKM
4DPV+socJRtvyKUe+y0/t7bfU+30lIap55LdxuJJRvyH0YOJhl0BvJASAA6K
WmqjD0yuAbkgEj09iAZFl6JS8ALwBvAK8A5Ih3JTMEWARlDyFNCzByU2tX4X
tb/MuswwowYZORXNw5TL6yTQhsKP03e3fBO0rsejD8uHBz3ZOvxg/KlZ+28f
tf9xZEFnm8fn9lpl/UydzPGCLycwzUnPiXSr4MYUQJ/xwpBayR4IvMDPMG9v
ZkO4RLqxWC6Q+cJ0JQYZuBVmRV6wReGKkeTApFohoQHmRRGyb5tDc0Z6kidg
B19WXwSTEmq7SB9qVs6OHF7hfuIZ6wnpsWaV4rOblgxTra8dRa5lltEdp9I5
yTEu909tgW8rl5YQuyfIwyHjwKxWrvd9NhfJTEueqtH9xfdc7rFO53VfTutk
tlRKFpNvkpXLjBsDKeZWCvCgaeNSWoogNk8UDAVR0OYDl8wzgTFGVg5p/dX2
ZA/rCucFaYCFBTYVT4V0uKX2+nlaWhQ1hPumTKGkilZJb1bUPA0k+jPdvOin
7AHVP9LGSi9oV/1x9OywISnYKuH+n57dnvDm7rntd05sjD+8oBPyEwiVMTkq
m6bBHD2VUvVxa6WtjDkGvGyMkR0Vy4bgX7hUu5EgG6hXQFiM7CfCYlAuGEf0
Et8Gj/hzRmJ90TEmnNyxaXLoy7jDdBiIwHMkjXzYnJrrARbIzIBHUXiAS/gK
vor5JNysk9ThhMocybShPsgVd6DvTYpHvt1RfWvmE6NWmdlW5i8UMxp/J6fi
V+lo1x4UEQB/xadFIVfgX/rB2a0P3DpiX+JnSnyF1PhoJKxk0zkecvGWPkDF
SZ+/fQQhM+BlbInMpUAZ45LnRpAEsc3ApCr6DD3jeacvNsT/A7nTkzbNcunT
f+TbnNm3AoiASne6QTem7KN9UBafoTQUyWmk4TDvBjeA1AG85KjjdBy2FSrC
z5WpofZ3WungQF8rlFW8GV7z+bcTpRekfTSrl5pTrnCwak3zRNpg7UGnRzei
6BAebZpguHbc8WTi7vzg1NaSP5N/aM9zaw0bMvQKW7mtMGyG7MCAhsu8xNLP
3GYHTdEXZAwGDvUSYIQwVJi/Q/XCjlk0C/GUXDNWFWlErgcRndMXa4mEs/lv
X7UAfgOAQbkjStQAmSFn8EXozIFJNGmlAzmgUxhZJFJlrbnhaProER0eN46S
ylqlPVn617VUf/O/UxPMy0dlNa3wkJybx9PGIi50ZXF5Sv7MD4eBMBxwShiO
4hkpCTKpafoZGtZo6CufV1n2hvYiaySPX1DkMOnLFPl67S66Luvvk3QSgVmP
AAqYu5W2itIt6DUSeWJrhQQVhBXDJTAXw4cCHeAY+DD+qy6LabFwSvgqngoH
CVkWjfjzBtQA2Fn0JEP4kj3TaBp8Kma9Gjyn50gxtudsFQrxUHOsjrnoa9Oy
0SGbGx3JCDLump5pViQ0Z3DjENrc6DO5lUc23ZIykyW4DWFn3J4vxkP6PSIC
IsQlORxgl6fbmG7UtlECFGA39pYWfLM0SkPCFnaK91z66OfxUTQKUTE8G88d
6Aa6DRwMY8FzB5InnBIYCZz4tjpVRyvwKKKG4VCQ+oLtkIqcOd9UNL90Dq6q
g1gW5H8rW1r1bETDsHeHq9mnvjRvkZ5jaRmknNv+HW2uFkJ7Go2m5x4GpMwW
y/LOIE8ncBdVpYy7C8WwmyUDVTaF2DxqLsQQeVFJ888lq/W1WasnfVr+v/ht
bgLaWiqzg4zOiREjKL5Mkcw7S9rcifMtNjUxyrpOfHa54ldV9t1iyLlkAHn0
6Ervr+rr8gsTxaxAbLEOvzx9R/oqbfVsc/m1VKYjihqR7WkOYg+8cCabDsvG
s8TIZVkPWixziW5V6sOdTW180y6bDUpOsSzzLqd57au0uWsiOVkfpjPj6lPs
Cy3q4CgcH57ZwahbqkPd1ktzLzHqDPIfTY2A6hT7bQEs8PlG+bHq8G02myXd
JptDl2Q9VfaF1mR8Na5+RzGi/S3a1QFG04muLitDKVHCylFM/wqMA2lFM9KS
ZMvFpLEYdnyIe8jfL0++VAffNvr5Qw0NG+nN3Y6apPHu7hTav57aOnaoLEf+
Q+343neogoYSvBpP+0SbK86n+5stKCtFgi74VEbXSh26hr3yfsVmvdVsE5Ck
li8VTIsXxywM764ZM5DFo3vDW32+vaO9t/Jjx8osBhYWaLxpWzP5cN05YxRP
PFk2RkTUrqDjGzCvvz74LEfUah2ier/1f4sxuXuw9UFhKOvKXmsPpYagHeME
zSopiabv3k2PmzShL1XLZZ637RsccaSqXeIT686p2eaFPyqnVo740b4F3TZq
hyF+/3JKf4SdEgTaPzq7C4GJbK0OgW0jgyIFJCIQuFq2Pnc0pWZAj3BYq82d
O+Q+fjwlWVnR1TFdv13a3fNs6inzcTHRJRvGK4qU8KDVo/3pcO8MWm/sGX9y
4gM/20kn/OYeWKEKdBSMm5hKlEkwKm10qGwUHRKNT7Y319405KkUja2kRhxi
v0sBzS1wc6OwWrUovG6NbO8Nw56GutdzTbpj1Tsxw7rkI0WrFntpz9TntKvB
O9pWDcK3Lf3CwnvBm4dAQwLVMe6WlAss/wdqdwcdc0TgD2pRg2InRhBGhUhF
0F0Q3fnDdTbPgfF/tbPOTsHS5Njq21NZ2TcxfzW0hZv7Kw1ngkVP3sOGUaK1
NflN7v/dd//giynHLaZFfSrTKkVhYXWMZo4+SJ4Tv5Nz8cvk0b0Pvb2gRyol
lkMIISpaA/7cHXjc8eDtw7ag3vbRuT2sgma9GJMaIxw76DfRT8Ck0a6lXGvF
hcVpSUjiAuuDBWYy9nIiXCYqitbY2dGHypUppGkjhfum8S+CDzfbmXzNcvD3
tOKV3iqq19xCm+edpeMDYCt3kP+sWhQXxhfCI45E3IhPlVJ+RIH1ie7zO5y+
smsxiOdCEn4qz1QcBgn042+sSwkXrChjNkttG/hRUPtLWzVqfiPug0ZyeBcn
5VjgMeDsWTrXrx8zFCdmjYg/6jHmSoJ74YVfw8t2TlOYWZ5RDR3kTCeWwH1H
0NaqkCE218CVaxk43/fdcvbyzoWQckBPtRXbIXMSU28gjgZyswV84giL0wTL
xjsEA7GSEl/fLNvEORAxCuFr74tq1N6rf1BEiCrgqDJl6G671sodO2e9vnW0
wyFM2H1NLFsvRlmytCvZLdpOZ2dDuK7Q0W6CcPHdMkK1CgoqIFC3zrlObfwj
8k1usOMkFqxcZM11iIOAWPMmKDUf/ei/sK/v5bZgAaVYWFD1t2+J61Fx8c4B
ZCzLEHqM9RojTpygq127UmyJEnRg0aSk3d7Tr8fuK7Hyy7NyvZNyrIpeV3Xu
soo81p8iryEQsp3kPxNCxpd1Gzf88SUctTdIDiOtiWyeOEbYKFZwAwDZdAdT
BwYhTo08xRJ9wl4jvKKLYJj+7ODtwbi6de5c2jt1Kt+holJY58jYsZhIomvd
uqicDi4Lv3i81/EUH4sJH2MrNU9SWllvp/mzV9AlR0HKFtK9TUzKuI4YoLba
L2DngiiPpT0XPr96jC2JchPDcGNYe1Buqkr/eZF69YqnIkV+UNGi93+27Kxw
kK/hhQtYcuCbM28sk5Ppa9my1PL+fZK5siYKS+Gfs7MHfHH1WxT4ZU+59V8f
lB0cl1Ws7DNVw0ZLaI+zC11aLAhQPwo/xwSIp7hl7PsXqFjFZNGc0BsnjRXZ
WbItYutvDGrPUb9+D6hFiz504cI+mjLlM5UvH5tWogrZydbyFGeuN1oPJR/p
6UkhjRqxZVkybuSszdLS6J8Tx5Tpp0x1cZFtIZvPz8v3S1OZWRylMWOm0aU9
3mqLC0HBXHVtinvNVYMbtIt++/Tqhc0zMGk47fVtX2Zat4mJNQGx16lz51vU
oQNYG0kVKnykSpXw98u3cs1BMK/A+mzFqfqua1260LwtW/j8iiEkur+fH3mO
HMmM/sMRzT+oPnTkoZKxAJVCverbzaGgbU9pT2NBFqwpI5GntXNUWLBaI6dE
nFg1YMKbu35YsCfboUNrKNWrl0yWlhCBIGrbNof09cOoVq3bqvYd4m8XGSgY
G0GIa4WF0ffixanyhw/E9hPTXtTDASDsEsY8F+bUfxQtSjc7dqQFu9wyF9x2
e3zbvb27IrJTZdWuQrPEIOutZ6u1cQrHUpCT/vTGD3LC96bn55d3757dOAF1
T6PfPvBns9u7xL0xRW/q04sX6EkmGRkp1GFwFJUp84waNnye0aC5Kq5QcXCf
10pBwHGz1/DhkhP/K7i+oH+t795lEwQxJUvSw+bNabGbi3LC3UNvvL2Heafs
tFj24kX9kV+yylWJo8HFH/xo0UcRpN8R0qV4OazBHqXfjDr0/RXXF0OhbAjV
T6iCGhERfBmFD3vE3THj8kFZWalkbl6YEhK+U/Hi0IAUsrDwpJEj1cClNIXJ
ajGB4h0azCtUYMipU9LlRsu4DqFC22nZMvpUsSK9rFuXVacPfuD7dfvF2Re/
by7uGHa71tTXKbVb/FAVLbqbpk/vQbcD/Ol471DaVe9T5IJ2twP+drRT3Vgr
6hBKup762o/CD47RoX06HepFFy++perVa1B4uC8NHhxI7dq9oPr108nU9BL1
7BkbV6IuBch6CDHP1aNdjxZYiccFdUUwfbPOxoZe165NWBAIt9b94eWk1bft
b4ftqLUj0qfCwkffmvZLVFkX9qfevYeTt1cXenftGPn+Az1H+vo4+Y7SA9yT
yW3o5rrcR/D7HKJDqLwT6tYwguj4AXEnzdFJcAwqP4+2bDGg7OwzNHAg1P8T
Vax4jbp0YcL4XSyM8tMnB50ssJ8LOJ+B8kAsKXjy11/MbW+eP5+63LmWOfnJ
/ifQqvg9RVbeD2859lNOxWrQ4mXk5FSf3r9YRPdcw2hHrZe0s+48erClCP2M
F1wWm7rS7KwB3DfU7LXXuqFQO6ifzF3cU25hOB08eJjGjeObMpaTQvGaatd+
So0bY0h30KxZsdklyqneFGJyyoEZ4/PH+x6H5xeWcS7duJGeN2jARLFkTAy3
D5EkhtE0NdxTi6KAa+bOnRTUti0zNfCx3a5fUfZ7cy4c6pnkamX/8EHzOc/S
G7aOo2LFdtLMma3p3l0kDLzIZzgEwJ3Ojm9Nn+8KS9zrxUdFeF3dtxxlIkKg
ApsDS/r25OpBsKydot484gMh3rka6FNODhgD63+FunVjnzkyTReQmxvkHaIB
MuB81aLQIvuqQW/w5ed6k/VlU77yIS/2W6WLvXrRsX/+Ya5sCjtdNj8YhKsI
FxFbB/TowRyHx+jRbC6vZeT9qG0X51yMcSnp8uxCw1WBce0GJ6gKM00YRt7e
FSg+cjkFbYAXAbJAMQdDFVxG3bRUevIPBLj4hMkHAHG4vqmvA30/eK7sd8V/
80y4Rg8NXiwiV1fw4hBNmLCK1q+HOvC8MIOgQC3gxhOocOFTNGQIePYxu1L1
rZfn+m+4tvzajcOdDstVCpVQeoA1sfAiGF5kEaScz4h8Jac0vicFuSCApwcN
YiGs7+DBLEFQIyY8aWWgQyBMxwf3yrbXP3aeGKGoWl1QqXL09UsvenfxNJ0c
lEBOhffRuSnNKCqYBzUm2qGXWU5mBnCDGuSwJXAAPbLjGtxaQ3Z24uzoCnIU
ImRTQa1eUZ066k4ZAwDBikKiwCFwyvHaimt8yk1Y0ALo9qZmTUnPxjHKOD9p
ElZmcApbBAszHvdoEjf2yBEq//1z5sSnB5/C3PxwK+pwJaTb4uDMZu0g0ttp
9uxWdO9eWUr5uoZu20XS5gqPaF/TqfR4rzllpXLrPoyEoA41GMB8wH6Bfi6T
WBH5CQ22MKFR/3tMTZoMJl/fWbRjBy8Q1uj+B6pcGaMCR3+b2rcHi6B0JdNi
0r5uKrupz9sLb4WA/OOWSluqJLxPwN2IGKT4MihfASorCJqUEK1xsFPGzSx2
MrdcCqhYbfBSHCycAjx6eCQ6WTvdvNbR/nJi9+FAhYLmmVJGOpDOOfLsh3wc
8GZjin7KL6UyhG32v7R9LuotPK/vX4liaWjgSQ0mQT7AJLS8nlat0iN18KWf
p2mQHUCHRLK2vkpdu4Jp0D4wCuEAwmMvn+E+QrAJxiHkFxfjSnDJpCBbJEgQ
32ZRiNDrUbVDVJcL9dBG4Dj+dqT08ghVnoqVoaioipT0yY5urImiTWXu0YFW
EyjkkBllp/HcMUamCPUGCNsO3XK32R10bIN4tu2kjsOKpRIlSlJMjLCyWLDJ
QMHAi2vJ1taVFi1irlsdyoXsabRHAFfg0hzvbRo5sV4XL1LuThxSBqlbvvJk
kp9BQvnB1R5dlT/HmPgIz052sNz4IaTyYIBWnqOmdE3WJcvTcNwuxYw5LejB
A0wYDKbXvpfoWM8ftLHoNro4B1lnbvG1CVYdYR4MkTpmajCTjCsac2FeOhwD
kjamjAyBY4LlfkjNm+NvONWosYScnWGvhAQGj96MLh3q6QXzip8lzs7MzCK6
3TJvnrRctf93x89kksvVGEhZLJ47xZm8tasdd2dMmw9KO7112pqJb2V87lE9
NmFETbrTuS096twsIXpgHTNl2s+qlBABIBhDLiUD6VA7lOGx4kaOlQZgHViI
XM6m+95updOT4vgVK9qs4wyeJuuAP+DsnlODBovJxQVXc6cd+Vmxc579PIXk
iFC+XPflS/pYqVL+IJFnn8YeixyrTITvSQnc8TGjlOljTQVhKxy/oYjLqsD1
ga+f1v5Htb2QhqpC4D4px1T2oaFDTySNmHY7rMPUEyrvEdfoSBeE+Jvo8kKW
WeHWoBlUT4qNPHTrsK2QgmY5cj9JveR0moPRYBV005bWrr1HrVrBtJtSOsOp
SL/8dDBxYFbDtbRr4YyEDC3Ph5/Bvr7aFp4tfdeX0NLG+cqdaa6WStg51Bsv
dd4o8pQlIHYBy3uEsLJEiJmW2KnH2O5r2qgan35MaMrETh3Sp8T2rVZR+enz
arptD4UFD8FLwLERFHrCiBSZPDuRqEK6Lebo4m6rn/gfQKWV7LwOOwEO+KCL
eUqw8ziNGnWZundHTImzMPzwijv9Z/q/2FV/V4WkyCQpTymq8gTIFvghqb91
C9ZfrQiHCaWUQN5p04aSC1sqU8ebC0JZNNHR2tnXa7CX6oqm/0h+bNkpU2Fk
lkT9rDbRwoV/R568dzho3MEAlWOPBXTf7Ru5lgYMsacbq6tR/DvgXEE4AcPE
2TJWzegvCeiBLxbSpk3ss1keLDtNgwadpQED4LIgrMJ3ZgbvDI7aVGbTec++
nlpelS0N12Pb1xgg8gFKR+SDnBWCcjFnC/QtFf6H1lJfi9takowJJu/hw8TW
sxTEeP3mVXEDn5/5oLCXS1rPL5vLbYpNGlZNeadrO4jxz7A+jd+pJlVrS0FB
a+mm7VJy3ehDM4a+ojFq1GpvjBALM6Eb6epSqTib2xbAAFEVACGc+qyXN71Y
QvASNyh//v0uUq+h0NOMX5DNq05v3zIoyiMPKNEbqlnzAvXpAzEQrgMz3HLv
4M4JrYkw7yA0LdgnDE9vf3+WrhAPt1QKoEARKPJLCicXewHeM5gKYtDw2TOa
u3WrjjIGt2ymfLuiug/XpWI/NhZ1XhHkGPQhuPLf2jjum2fpRUkKq6LxNLDI
0W9jlh4MmOhdSxX25hw59xtFL44/ob1/AeViluofenEMIQK3qxlLIfWJfBGE
BVbhJ9cMWhpy+TCiqMvCwP/p9VUFDLwQikG3cYaFYpzrN7KjNWvgu/fT5MmA
2RKwxwBpXR1Lqpevb5bbrFtHiKy0Ryq/0dN2Y/lJiPb3pNrTOmcqPANTedqS
kG5qSh8rVxK5O2YnVl+wD2HTVhLuLsq1jOvVmK7/HH49zlnhIGd2IznUsvUk
5YFDxSguDnYCfn4vLZx6nWZ0TiFHi2TaYAkJwUyglJ3grC/Lx2EZHhZfYqsQ
IYt6lZeYglaPmf/K6rG8l5kYi19mIkSmyH8hnYnIlBMSY1xqRsHBiLWAkxFV
iEEej/GQXSie/j0ds6284dUXnAS+DkfB+Qn99farMuAnsHtQsqUl/YvN0DL9
v/M90/zcxqWePZnbyjQ2EklEWUjEiOsnYi+49/HRloi0DWbr0Wn1cXex7Yh7
UqzHM0XDJlnUzTCMZta6kWw/IPTz3F4XVM59mHFX+20AzFe0s84H2lJ5PV1f
5UYBC4TNYjUymFzOyhDTHdgBBSsLsWuakK69LojH76+IM8zvbShCEpUPyx9R
06YQCRaWcyJiIQBc2BPYmRgqWXISHTggAFzML4I9iAMQmiM5KJPwKlKIDVPV
wogiXkBe9A9JiBUqMbHKWFsaHrRowWZfpbJrDUOfKf0P9RagXMmkDVZOqBzS
FgO4kEcHm+6+G9d6QI6D/jpmLE5ZTghUtevQmu7eXUc3bISgYA1ttDtPx/s+
oP0tosm1FP4epdNjZFIWg9/oRSOny48R0MWMV7d8MKOHvZy6fA17KLslyMjv
rwM0zO/FKkxM2WIZbjMrk9r0+jUk5Tz17YseuieNn3f7TfuphqqsbK2Zf1YN
INRpaCdtRPBSf42zXcYyJyfCGlJMFWjFzahlCK1Xj+XeBZSImXeU2moPMM4h
86q2kILjMhOuZRoZQTV0Bn/Kvn3U6eYNVfD6ZgKZZkm2VptavrvPlZPkgywR
3aluFurMB8NWGc+MWyQrLIvE0PCSz1IXtHn2fsFgNWadfoE4+7CBri6fTo92
36DDneLIuRhSjkjuy0mlEDYlksph4xhpD+zkgxgAqdlWMe+f85usFLxa8dfe
UCP19hXOUrGAbQMt56rsuO1LTRBCIFhDUnUo+fjk4k/STRV82FJ5S+dP1z+h
8IVXMSvBREiZBwjIEhdnCnJoeynBtvAWJ6dlCWoExarMV9vbC6NbRBhdzODC
72iP7qaFC5kpcF6yRHI1brWId2zkefnEwLd9GxQrIrNMygaLDQjq4gOLDNC2
BHeOtdm1SOG65WNcpaaqPYVm4Nq7gGozt6nmzAX8FqADdGUVOa8/S54DrtOR
zj9pvQksAQoNEDkj4ONCCwuxn5Cqjtp696QLqguRIsNaQUTbsjuCLPyx19lI
vapF9K6LleTAlpgJ71oBHG1Kjx4htQ3jAOjJy5Nh7/f+4dnXDdj+gy+f1h29
LtDmxqctFbdwpTTG4K1Qy4UfwUYItoPXSW3QIZaODRuXJ2DjMmE0eT02EPSY
+WfNa1JDXS7F0cKR1SdLoMSQ3Y12702eunjauz3XsxwMWQFUTqh+o3fKajX2
0LRpPrR9aEjGwpZfE8bUu0Ibuq2lWwxPoeQfc1UYdsQVqITAsCPWl0v4AS4P
Z67hB4hbqyTUmGGNDSqGk93ntcfGBDUTYz7dEyTgj60SlXqvi0gCkE8VSYAV
NL8WhYUhDwtpiKZSpTDFOpaOHFlKGzeO+nb85uaA+QE1VW/CBSux+K7LXRaU
iMAmIlO+cjI3o43ZCdE5fcFyaIoI8y71YkPFQ8pub/Lt8TfRuaKpjuaOKrtC
OkOMq99dirsor+hppG9inpTs5a/o3R+zxZgMvBjZa1pQUNsVa1W2dsJkIfJi
whiijALBAUx8OjmYHqKzE/pS+HlB0/nUTr7mHuewbhO110duHFq76Z63m+wB
N8DiXcZp1y7RCBQT5yPBYXzuTf7+QPgo0FhN9vaIZ2RCuKj+Cxu+/8fkZdlB
Bp3Bhrvurfef8h7iDS0wyC1AtMmt9uMH5bTXIK/cpVz8uSQnNWJS+39RVVmV
z27l3fLjdOpN876KnfK5Ynt6y7PDnimKfYfexNdspXTQW8OqrU8Vnnxf1bIV
pqJc6dyiq+TYNZDWtRMrGZzoAfKb5ExXlrylbdW/kFs5TMZ0pg/XbenmWilF
47K4Vv9mb7ENnfstdxsMBvaibBUT8Ty3eFB3UFBtIFYVUIha8UyyN5Lpsd/y
JNpgBXPAEcB+t3amJUuQd08iKytMg/lR//5N6PFj5N5r0ps3yIS6B44/OF+1
eXOug4UZEnH2/fYqm1HArbIvpANZFHZyOymzBg5n2xnYaY/Sh+2VNy+/s+FO
UFjbydqjdNGz19EDyklTtkTM2y5gYGWoXoMPyspVT9Lff4N2+2+rd+4MmHkO
qRU2H6qmGTrCqYsJZu496dRI1LbAKgIeO9D1lc3p60OsLmRqwrHGqiBTWDvx
2wePGwfXoNz2zOVdi5G615gseqgzQqPo+HH+ExsnADIkXzEq+NFD9KaHeguZ
/Ba5d0ACiHPNnNYKauZAK1dilsSFFi9G+VYamZmh5gkSAFcINeStQ7V9P6as
yNhjvACcOh/Qd/sClRsbRanzSM+diBqxMHuXwTwx14XZFu17FqtcNlWh9+8R
42+NmLst28GA6WpWqGHjn0oTsy9Urhyyv7siZ2y4EtTNbpnKyYkjy9KGbqzT
VidwH1mNJXTXGUKKbEc4ba8xgx7tqkBJkdAhKXX6FwgL2BLgv2U2MqbwXew7
T3UGpz9x0YeARUHRR9pSCQMh08ORTB+DFUSH2sLEYk2NHoSFs4F14XngbTxo
9GjM0maRoSHmbVA1CG+0J3Kaw8WAXlv7qc6dR4XCX/TkiRstWNAn8sKLXQEz
/IqqfsQj3K1AkZE4Pz7CPSjDwZjVA38MrdR3unL3XtSJYL4nILLHlM8B5ad8
UFWugnlZlE+9o2rVUCeyL3KK/Y2gTmvtVGvWQmCkOK3tOlDv9De9PPmY9jaB
PkAvdtOF6dghAjPKTCe4QMxaI5uQj+XyvLZ/5fXzbtOxnfhlNevrJURFCJZL
g/NF2AoQ4jbTwA+oA8fBb3A6lRzNlWTDzFcW2RuqyKYQ5h0BYQXqcY8cSQ+Z
PFdj8uTCSts5Ic9Qnj5/7kzXr3vR8OEowIH23KBOnTAzhMFCkSTKAWR6KP6U
lYD/BZNxHn/fRNbsFhNUcuhzVYMGAJzQSNhQzHP0oICA7nT58lzaupXzELrP
F2wSX8HCQDhlp2OFM2ZUMQ7I86Go0I88+yPDk5/085uHa5gqfngFc4XEDjZf
Q/b487HlvbAZAYZLw1yFiMeFW/hCQUHCY/QYs82hljBSGAoF2coxHPiLYXpD
22viWho5mG2ni7P30vmpPJJj8iMQzMVwhfNjyy+d55eC53cPk3VONCwF0UBH
MFvdjiIDcR0kg3zwHd1rS5FBbHGh+rt56m2en3WBSB+/fmDVG6+1Q5Brxc69
ax+f3/dSzE5W94giBIEJeBDEHIoG0Yb1x7JR+Os7dLCN3n3a31JmisPNFDAf
tGPKEzWKKynQATPwAk/zk/5KHGtwGVeFHzEbBDmBcYVLxKOAX4Ac79LB1ggg
gCBZUYn6m0zupGTQUtc0SJkF7P6AvXlQcx3kt3ES3l5RPTkmUjANGjzLLVgW
WkSKE+UuUAxMlmHgQAVfRIAOYRM/2K1YcikRTS6lEOmgZkhwuGI5zI9v3JyR
gSTfeOclRtz4wWOgutikwJe8Bn+lTWUxshgu7IYBHrrS5UVSyTdOvKwLQhqY
d8X8K4oEnp+yHdH+21u2R5tYfV+JWMctHjEU8N9r2lEbrhQCDh7ye+SDCtCD
H8w5HiS/ifiLDBH8HOpjBlHYaUazXh6PxR0XyyCvZ/piZkrwWPRVuYYsckNk
iSahng0p5hmqT0Em1qWgJ1gmB8wEtRhJoZ6opBAgW9mCQQBezbD17gkX5C78
L22bixV1snc6IADOlwMBjCZ9CA+Kg/EE/FjmCQAejsFFPRHsB/TzIh3rdZMO
dxxIYWeqU/zbXN+pYe41xDDvtFz8TZ4d1gIyPUE+IzBfv4UuzcMTIV5I5Tyj
3Q1RnQ22DqNX3mLLkJ/H4PYwM5fSUCwi3XbnpAsWkj4/ZTey25dX9wXt1OAW
WxxhTYmJAsF4QjI5Wu6nc5Nh2dgTOXYVEYsafvAZNZAo7cN4+tGJ/qjmgN2B
Z4HeAACg5Bw2CfegTU5/ikGQBanFAKEm9wId7wMReU67G+BW8AaGAolvzIuA
b1gBgpFxocuLWe6zAB5x4mQptmhilcT+Rlhrl3Jobjs1wJmFkiexOkZwvOJW
RJki1GVJC75wFZAM/QFR8JbQAwxaCV3NxI8jXVsBaQJrh9Irnzn0cJsgeTI9
HMksgEhxhGZmUvDOk+TzNwJ/hKZQJWz9AK8mlg1JU145XzhhAPPtd3nnQgjH
9jueG50e+G6TRWr0FEUBiBnRUyRl/cmpt6DBGGFBMvilYlKCIdgayWsFUV5D
2gL0i3x+2/fKbrZ47eZ512mNfnwOz42iNag3YTPb7ASXdrxC9qxAEdYKj2LM
4/aRsioIBqPY+9LFrXOSD81rv+T55aMo5NXAWp81Hivkr/BUTJWeJ+e+uAK1
wHizxw7Kd1xYvTDsG965gBUJ48Pvnuv89U0w20zom8ajBKCER+GxN8m9I7IV
gimBNvK73eogHrXMfxn6/sk1LGH5emxpzzmh109iRlnYcydabB+MBB4y+6ZW
NqAcQFzWmb7c8EvhBZkes0cm2HSST3yMxZ68gHQ628Xk/0jsoApAleul+nDS
IeVnh3x4eh2lNIhWUIYOiMJ4J7UdSky+j+xEH2+wYFF4ZG9pgayT+O093Dmk
4/oFt+kgJXffogTJ5iF8qIGGJcvVhW66oEtbEC2zMtJWP/U/kHZwTpszl3ct
Usv+G20majzRQHgifpbSnY1Mz7rnK3ssxMDOtFgtDd+KjIiadxcY/7QwiixR
B6TIg2lfM0TSDAp0lRY8+HAknrG1R/rB2W18ru5Zhj3sBaaliXvAXuAh4BSY
HVh8DEdHXXZpe0DsPIG9nxMPz+sIgFA5Je6rNrvyf9hD2t+8KUU9wsM65C9t
cCHCfg0QcMykQOIkpS0936ehcA9bU+Bp7fPHPnjSvbMbJyS7z+0A+9047nMY
E7QcnZYFg4t4DmgVn1vrGjttplVM/RH99NT6UWCa631vty33vFw1lFTjSbl7
PGL3Cvg+bmeTfDNt4l2j1OHCcrWeeuvIlULyCYBCiBFa588dFH0H+TlP0uEO
F/NKNouFLEivt5JGUcUzUhLvn3EaByepBpzOW+6e1GCHbsuM+cBvJ+jUiPe0
tYoQbjSR9jQCa1DcijeUQO3OXt61cF7otRM6rCFO16SkaCw9O4JNugR79Ve+
Wm4IB3b+0o55cUcXdj1w+4gdMtHgE2vdWLJ1gFVgN6H1xtK6DT2e+OaO36fj
K/qevrxrMV6yocMu6ScgFhSy8HhC/X+XVbzP4MeRhZ3v+DlPZIuMJNllovM4
qAJyMgifBPtbr2AVx1JzFNZgH3lU63EGEd+w1LWC4ynEPXeI6+Yvr6ikh4GK
8VjUHVzDuTx5tZKUVyzCwrqHetLyaqLIyrx5ftPUhMPzO25QG1iXB6e26AyA
dMtIYnShD9e4F3nli5Xx5kO8CwzzhYufX/bQZjpX+in5BPAcJrVWvqJpABap
nfZMvLBreMSjK3nsKC7ZJDYwAZiuKc1lgBwUvGBFEfAUsvy5lqyAZhH9laC0
WB6EanO5fvzXd8BM9886ja+VGP1RV+hK6LhhmAHYYuxiztwjV7OeuzwMbWN5
D/R/0z0ft7Fv7/Gv8yyj0xYiakTPgq4IMF/DtvAcRY5czc2/sZtys+8fX+Zx
tKxOu9hdHenY3HYr5W9E8DYFgPCLF7fN1ZEwvmlZmf+NNyyg3GTXjBkz/j55
8uTyDRs2NH306JF+XifgKGB3cztRUVo2aiTGfsKGk1jgiihCdxDLCb340+W4
OMbW6C3v32evYCuckJCAwhlRLw7SWbbHTS4+5LeH0BZFNeu/RHss6Y6YCPiQ
EV6JJ7ygqtDCv/ROAfVxVJkyZQyzuOUUlsnJyTn6+vrieXxkWpHjF1KVYqMh
CIua8s15prOyQObvVycaCadjSpYsiddIQHggNE8bN24sphJvMgFCFd5FsuTZ
5SPrHp/bh4qonurAJE89qgjU/X5dXC51l3r27Hlm4MCB+PyhcuXKre/e5Rdh
s0Hn1MZEGyKgYivJfV7HLlGvH2par1waCyjdsvrVjeaxhffjJk2aQLqFakJQ
B4RxhM6MFaJPbV+JJTrwDFgFpalIVQUy/1hVEY+uUWPitGzZMlaPKqowQ86E
ZYo5jhpp6z7CAcTWeBU0R2INgcQ/XfbSIyAgYJGrq2uTx48fiwURpgm+gN8P
yUis2JjhwTxn7NHFXaslf//MkVhTbK/lgk9hEUQZTZXD/YBeABd9Il8E5qmc
bhtAdUB3PKuYQqh9xg6gHWwjn6cQtXTuxUpwrHYW7gVKSjs0u2376LdPNAVV
45WnLBuP+7FBwxk6MZD5Q+6NAQZIj6OMGRXumlKk8YZRA9Zv9T+kCrFPEzP1
XBvyg7eO2O677cFt9cXurSt5L5K7HenjTXYvhwQMxcoHGiAmGBt2op5kM0i5
YDsF1gz/nhOxcgDXYQ0bKuxYM/U1mmHmXf0P5h5pe/aZm1YzFAvuusfn9z32
dfgH4SVrpoHOgGB+vQb9COdvN9L2FusfndkZcWJVf+us9BSZThusiaK61hsz
FFikpD53K0+UdJ+OLDbba6NYnihhD31Axdkvb3jliVJDnXsxpYEdVoV7IcKY
2ARyQw/yREn3XiIbLstRXBj+o7aYHM0TnUY69yAxzT5xz5ODI4hK2epWdk9j
nXswrSe+By+uxqRXnpjp3oPV3OwTx1c5+gXEgaQid89fOvcg8y2+B+vgEXjk
PUf3HswaiO/B7mtTwgJPF3QP8Dj7xC+sQgYGPMjjWxOde5iHF92DLA5e85j3
HI1Xw+aqujgS5utx9KFqKEkH5IXTYLc3lVQx4Z+o6k1fUDGbR+f34uU27PZm
krdj6gFn2O38umaxan05trTXlNdBp2UFtIHVfLltmOvqlxpcv0LO0fmB7xa2
UlWiO4Kqo3YzF9mZ62rc4Zvu67A1GzQvT+Oa6owGZvXYJ8s8jUNAknpoTju8
mCZP45rp3Mucj+heSOaewGOOCGw0jbfuvZgiZZ+4kZSDxogTKwfkSU5znXty
p8n4e/AMBDx5kqN7D/ZdFt+DyRkEoAXdg/oi8T2wIBVTf3wr6B68bFDECzlw
ATQh7x7dN/dijZ/4nt6RoXdQJVPQPXgloPgevEwDa+ql72G38N/Eq4SxR1FB
rQPbilvHxDy2LCzoHqB29okvPEEMgaws23KM3dNS5x7h5XrCPZBSQI285+je
g6Xe4nvgxDRdtO49KH8V34Ol9YjmC7oHxQ/iezC9IeSG8rsHk5fsE6eJcqym
+nlwVmu2Qprdo/vSY+HNWsI9iCCxXVvec/h7yuXZQTZNrv6H4lJmB/l7sc0S
1rnr3PvnVwDzG1KPPXLkyKaFCxcucXZ2nnDo0CE9kanjnizTMnVy4NGlzwKO
SBD5v/M2QP0kKysr68TERKDrRGtr64KI5NY85L4kQWmUre87JX4ko7M1/+0/
94Y9nkC87wiRMF5ZiIBPRCB7EZMugQba76vh3h0g5uafDIaZuN+/f99m3bp1
eCfl5P379wuhkzA/wKhkiS9+80Htt9lzL1LQIPEPRsT4afD8+XMI86khQ4Zg
sIW32ku+cVuTkj+8ZEkf7+wEl5BC8O/duzd72gDhaX84fNVPtrS0RIehqT9N
TEw0n/anX9M12sPDA9SAgnlbtmwRP40dzyj4WFbo/wMwnhK7\
\>"]],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJx11ndUFNcaAPCRIPIADQ+QIi1gRQ1IJChBchepSy8BgQVZKYKAShURwaVJ
UWDLLFspKgksGtSg4DFkwYKACEqCoBQBNYnYgiaIJOQRkrd8l/POed+Zc+bc
ufd+3/fHb2auUdhBn0g5giA+XEIQf9//Nz6203vx2HIVWvt6kyLzljv673gj
4lg8ij3MCkZ7PvHbslGyFW0zEw2GiiNk858hbdLgQklmDJqVvPnePYyCjM/u
aa3686BsvR36TLMsvpydiNqvXilWmHRESzecT0mfS5btd0EVMzZx+6mpiN11
zLklwx3NpumKBpLSZPm80L655MrKrHRkduDMkualPmh8S/Mp+5QMWX5f5P/s
zos3XscQ+U4hlO/mh355O33R8QRDVs8fhTVFZoyHZ6HfM2OakzkBSPeHpT8p
bM2W1Q9CbdtNpKEz2Sh0WY+O9yANpTQv189pypH1E4KW+lX2v9+fi9pKzVM/
NgpFysXL863182T90VHOj1NOV9vyZPmjkeaysNWE2QnZfDzi92XT61RLUbpG
vdP4kWRkeSxWNXOaKVt/GP0ck6HurMRGaRPrzBXPHUU7fTSspwbYsv0M9Iir
Vq4Sz0HWo57FvAPZ6Dlf71nSCEeWLxe9rWFN620g0VWqitym/OOov9Drjzk/
Upa/AF34nXL6ciyJrC51HJJWFiE1DcXjg3GkrN5JNMsbafQOJtEVg7wX3ldK
0IaGgPrEHaSsPhONfp782ORDEolvfnQhMZqFXHynIlT7F/phIyrpFJzB5qCh
mX8KoqSXOSYch4X+5vf9UJFMnWQjoeCfQNpNzTY3xpmyehWozUiSq3jpJHrp
/feTU2jyyXUGlciX7a9G1X+EOFn0M5DSwJl4G6UaNHPqu7RPv0yW5ZOgopWf
9r+wC0b/z/PkJpFeZOAR8Bzc+652bCILPOspTydtpOaBZ/uI2WrPqXzwrER9
8YvJliLw7LBhVImmexI8z2VGkx23i8Hze7fJbpprKXgOj1UWLfFlgudvjnnu
FU8ywfNKC9uSVwwWeNZneHsOLGWDZ7l3ptwBBhs8l3i0XDP+lQ2eVUaiXl8O
4YDnqYaulvBrHPCsle/15YgBCZ5bjwTUXT1EgudWpWHu0U4SPIdfk7/P0eKC
56DXHh2DkTzwnLXZKtGojw+ehWLdIU+pADyfG+ZEHvQWgufw5YwijRoheN4v
XmZmflcInr83LcgL7ROC51VG6VXyUiF4nmgMOnaEJQTPT3W2W0l9hOC51f9e
zJC8EDyH6fL3m9cJwHNzwQ/MU/YC8OwWfHyi/j4fPJvLqXeSu/ngeT2r5zf/
MR54lrrXcLtpPPAcW9W2vr63DDxbKg65Z8y/jwuerdheN9JETPCc1DSTb+xa
BJ6/sRQ/5WvkgOftBIr4bv77t+A54RN6e6QeHTxT/MoCzzCi0YJngngmbPdh
gGeCYjgQP5gLnonNW3pp2gXgmcjuXu51tgg8EyWlb7N6T4Lnqp9SA97VlYBn
SmuCkLaWCZ7XJEWbcB8xwfP1n0sjk/NY4PnXx/ceauuzwfOd9Nu5wzVs8Ly7
pLeBtZ4DnsPMov5VV84Bz2QGY6uXMgmeq08rHUlLIMFzo46jztt7JHjuV6Bv
3ruRC573u12xjc7kgmcTZov7oW4ueFYv0kr+U6sMPCecefpbjDMfPEfeUE3r
rxSA59ws+q6sVCF4lvBPuRj+gT3LaRYJ0u1E4JlCiXq0lC4Cz5GZrQH/CRKB
Z5rH2pWF1iLwvBO9jbqrIALPNygOM7Wt2LNNa/r0B3HYc1uT2uYNykLwfHvH
qpYnldjzA07XnGSTADy/jLqnJzmPPfuPO959uJkPnrdvkIwpVWPPBQJO58RK
Hnh2fL5jvF+VBM9G7KflDdew57l1Wc3O2diza79l5IgV9jwuTebHpWDPW745
95W3Dfa8y+1SNcUkaZFn4sqJiGzsmahtSP32OPZM3FyxZKQQe2ZoXt9HO4k9
K3hS9iSUgGdip4fr1wZM8Mzgf3X5+jPsmZ71e+BjMQs8f3Tn/F1TxAbPY1G+
1me/x56b8/vyygM54Pnprcmdnfex5wCby1OkMwmeqUMV9cYN2LO67cWndE0u
eKaucfbXTOKCZ9XSB5XPO7FnpV9GyTjdMvCMwnuWaUWXgedBx/ikLy5gz0JD
ZuRkN/acqNrzzlFLCJ4dXnbTLj7BnnefWKEyEyICz9KdMznhFdgzu8CeqXwJ
e97V6tU7XYs9+6b4mq7OxZ6z1pUe5btgz0SNi6E2IQLPocIu7cwa7HlMuuvb
D+ywZ2oimR7bhz0XSypUDUOw51X++xvsH2HPacuNEnoCsOcCPvNAXjf23J9A
fqFmgz03p7tkIFPsuYi3trF0AHu+Ixe8u/MU9tyr5n3L2BN7dk9cIwkowZ6p
TU0Nel7Ys6q87fzFWOyZIJ4fX+SZyA1sL1rkWfXbvOpi7Jnomh54U4o9M5TW
pcyfD8Bz1UEfyi0WeCaIEwZJ2WzwTFgqDMRu5IBnwmOZwvP5//+CZ+K9U1qd
KwmeifxhUcv8/37BMzFLTbllwwXPxINtOooSLni+p7CtoVSlDDx3bE0qt9pX
Bp4vBFIUpS1l4Fk7y6vhiioPPOd/5VlTH8wDz8wWv0K1ah54Dg7qe+X0Mw88
7y2uvWY+LADPM1Y6nzcvE4Fniz49v9pmEXh+onzWrHK1GDzPiVRXN/mKwXPH
q0FfD5oYPMtLXGdf2onBc05q6jULDTF4Du+Im3h9D3vueL/qk7oM7FlOpVBL
T18EnpU3pcWFXsSe9dUE2gY7hOBZbv2B9q+l2PPBYfKjNZ8JwPOOdoOgyPPY
8/Iel1emhnzwTBqdKzMswp5t2e3fzUZhzw5bL5nsk2OB53Vrbw4eGsWeabm3
30gPY887nH9co96CPW974502now9a/wT5GK/BNHHXeR3Psx4i/wSxO5nPOx3
/shyoYCP/RKEIENdsMgv5Wx9iQD7JRjGU7MC7JewqAqjC7FfwhOVXRVivwyl
wSEVEfZL7O2gBIiwX+JX69PlIvBL0MdymkZE4Jcg5EU6OmLwS1CW/OjsJQa/
BMH5+mKOGPxSghrbzzeIwS/ReDSPNSYGv4TrExOhUjn4pdPcKkytKsBvSIBJ
m9pgBfhlWz6Q7lxbCX59ZmdHw7dVgt9hLZMJY6NK8Ptwi/uE/KsK8BvRmMX5
9+kK8Ls6oo9m7lABfjuODVlPPiwHv261he8nw8rx+UIs32PxWAx+8xJD+qiB
YvA7qqy5IqZTBH4jprXvMLeKwO+Zrhu3CvlC8Luyi0vMvheA3+Q++7YEPwH4
rZoRnd5dzwe/fk7R9mm2XPDrfX8PbckZ7Ld45NnYzbYT4NfWQb+1QT0X/Mbr
ZRywSz4MfhkejaxHf9KRo3tAKS1whazvKhRTKQky0F0N478A9yetjg==
    "], {{{}, {}, 
      {RGBColor[0, 1, 0], 
       LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
         19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
        36, 37, 38, 39, 40, 41, 42, 43, 44, 45}]}, 
      {RGBColor[0, 0, 1], 
       LineBox[{46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 
        61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 
        78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90}]}, 
      {RGBColor[0.5, 0, 0.5], 
       LineBox[{91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 
        105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 
        119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 
        133, 134, 135}]}, 
      {RGBColor[1, 0, 0], 
       LineBox[{136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 
        148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 
        162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 
        176, 177, 178, 179, 180}]}, 
      {RGBColor[1, 0.5, 0], 
       LineBox[{181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 
        193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 
        207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 
        221, 222, 223, 224, 225}]}, 
      {RGBColor[0.6, 0.4, 0.2], LineBox[{226, 270}], 
       LineBox[{271, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 
        238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 
        252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 
        266, 267, 268, 269}]}}, {
      {RGBColor[0, 1, 0], InsetBox["\[FilledSmallCircle]", 1], 
       InsetBox["\[FilledSmallCircle]", 2], 
       InsetBox["\[FilledSmallCircle]", 3], 
       InsetBox["\[FilledSmallCircle]", 4], 
       InsetBox["\[FilledSmallCircle]", 5], 
       InsetBox["\[FilledSmallCircle]", 6], 
       InsetBox["\[FilledSmallCircle]", 7], 
       InsetBox["\[FilledSmallCircle]", 8], 
       InsetBox["\[FilledSmallCircle]", 9], 
       InsetBox["\[FilledSmallCircle]", 10], 
       InsetBox["\[FilledSmallCircle]", 11], 
       InsetBox["\[FilledSmallCircle]", 12], 
       InsetBox["\[FilledSmallCircle]", 13], 
       InsetBox["\[FilledSmallCircle]", 14], 
       InsetBox["\[FilledSmallCircle]", 15], 
       InsetBox["\[FilledSmallCircle]", 16], 
       InsetBox["\[FilledSmallCircle]", 17], 
       InsetBox["\[FilledSmallCircle]", 18], 
       InsetBox["\[FilledSmallCircle]", 19], 
       InsetBox["\[FilledSmallCircle]", 20], 
       InsetBox["\[FilledSmallCircle]", 21], 
       InsetBox["\[FilledSmallCircle]", 22], 
       InsetBox["\[FilledSmallCircle]", 23], 
       InsetBox["\[FilledSmallCircle]", 24], 
       InsetBox["\[FilledSmallCircle]", 25], 
       InsetBox["\[FilledSmallCircle]", 26], 
       InsetBox["\[FilledSmallCircle]", 27], 
       InsetBox["\[FilledSmallCircle]", 28], 
       InsetBox["\[FilledSmallCircle]", 29], 
       InsetBox["\[FilledSmallCircle]", 30], 
       InsetBox["\[FilledSmallCircle]", 31], 
       InsetBox["\[FilledSmallCircle]", 32], 
       InsetBox["\[FilledSmallCircle]", 33], 
       InsetBox["\[FilledSmallCircle]", 34], 
       InsetBox["\[FilledSmallCircle]", 35], 
       InsetBox["\[FilledSmallCircle]", 36], 
       InsetBox["\[FilledSmallCircle]", 37], 
       InsetBox["\[FilledSmallCircle]", 38], 
       InsetBox["\[FilledSmallCircle]", 39], 
       InsetBox["\[FilledSmallCircle]", 40], 
       InsetBox["\[FilledSmallCircle]", 41], 
       InsetBox["\[FilledSmallCircle]", 42], 
       InsetBox["\[FilledSmallCircle]", 43], 
       InsetBox["\[FilledSmallCircle]", 44], 
       InsetBox["\[FilledSmallCircle]", 45], 
       InsetBox["\[FilledSmallCircle]", 270], 
       InsetBox["\[FilledSmallCircle]", 271]}, 
      {RGBColor[0, 0, 1], InsetBox["\[FilledSmallSquare]", 46], 
       InsetBox["\[FilledSmallSquare]", 47], 
       InsetBox["\[FilledSmallSquare]", 48], 
       InsetBox["\[FilledSmallSquare]", 49], 
       InsetBox["\[FilledSmallSquare]", 50], 
       InsetBox["\[FilledSmallSquare]", 51], 
       InsetBox["\[FilledSmallSquare]", 52], 
       InsetBox["\[FilledSmallSquare]", 53], 
       InsetBox["\[FilledSmallSquare]", 54], 
       InsetBox["\[FilledSmallSquare]", 55], 
       InsetBox["\[FilledSmallSquare]", 56], 
       InsetBox["\[FilledSmallSquare]", 57], 
       InsetBox["\[FilledSmallSquare]", 58], 
       InsetBox["\[FilledSmallSquare]", 59], 
       InsetBox["\[FilledSmallSquare]", 60], 
       InsetBox["\[FilledSmallSquare]", 61], 
       InsetBox["\[FilledSmallSquare]", 62], 
       InsetBox["\[FilledSmallSquare]", 63], 
       InsetBox["\[FilledSmallSquare]", 64], 
       InsetBox["\[FilledSmallSquare]", 65], 
       InsetBox["\[FilledSmallSquare]", 66], 
       InsetBox["\[FilledSmallSquare]", 67], 
       InsetBox["\[FilledSmallSquare]", 68], 
       InsetBox["\[FilledSmallSquare]", 69], 
       InsetBox["\[FilledSmallSquare]", 70], 
       InsetBox["\[FilledSmallSquare]", 71], 
       InsetBox["\[FilledSmallSquare]", 72], 
       InsetBox["\[FilledSmallSquare]", 73], 
       InsetBox["\[FilledSmallSquare]", 74], 
       InsetBox["\[FilledSmallSquare]", 75], 
       InsetBox["\[FilledSmallSquare]", 76], 
       InsetBox["\[FilledSmallSquare]", 77], 
       InsetBox["\[FilledSmallSquare]", 78], 
       InsetBox["\[FilledSmallSquare]", 79], 
       InsetBox["\[FilledSmallSquare]", 80], 
       InsetBox["\[FilledSmallSquare]", 81], 
       InsetBox["\[FilledSmallSquare]", 82], 
       InsetBox["\[FilledSmallSquare]", 83], 
       InsetBox["\[FilledSmallSquare]", 84], 
       InsetBox["\[FilledSmallSquare]", 85], 
       InsetBox["\[FilledSmallSquare]", 86], 
       InsetBox["\[FilledSmallSquare]", 87], 
       InsetBox["\[FilledSmallSquare]", 88], 
       InsetBox["\[FilledSmallSquare]", 89], 
       InsetBox["\[FilledSmallSquare]", 90]}, 
      {RGBColor[0.5, 0, 0.5], InsetBox["\[FilledDiamond]", 91], 
       InsetBox["\[FilledDiamond]", 92], InsetBox["\[FilledDiamond]", 93], 
       InsetBox["\[FilledDiamond]", 94], InsetBox["\[FilledDiamond]", 95], 
       InsetBox["\[FilledDiamond]", 96], InsetBox["\[FilledDiamond]", 97], 
       InsetBox["\[FilledDiamond]", 98], InsetBox["\[FilledDiamond]", 99], 
       InsetBox["\[FilledDiamond]", 100], InsetBox["\[FilledDiamond]", 101], 
       InsetBox["\[FilledDiamond]", 102], InsetBox["\[FilledDiamond]", 103], 
       InsetBox["\[FilledDiamond]", 104], InsetBox["\[FilledDiamond]", 105], 
       InsetBox["\[FilledDiamond]", 106], InsetBox["\[FilledDiamond]", 107], 
       InsetBox["\[FilledDiamond]", 108], InsetBox["\[FilledDiamond]", 109], 
       InsetBox["\[FilledDiamond]", 110], InsetBox["\[FilledDiamond]", 111], 
       InsetBox["\[FilledDiamond]", 112], InsetBox["\[FilledDiamond]", 113], 
       InsetBox["\[FilledDiamond]", 114], InsetBox["\[FilledDiamond]", 115], 
       InsetBox["\[FilledDiamond]", 116], InsetBox["\[FilledDiamond]", 117], 
       InsetBox["\[FilledDiamond]", 118], InsetBox["\[FilledDiamond]", 119], 
       InsetBox["\[FilledDiamond]", 120], InsetBox["\[FilledDiamond]", 121], 
       InsetBox["\[FilledDiamond]", 122], InsetBox["\[FilledDiamond]", 123], 
       InsetBox["\[FilledDiamond]", 124], InsetBox["\[FilledDiamond]", 125], 
       InsetBox["\[FilledDiamond]", 126], InsetBox["\[FilledDiamond]", 127], 
       InsetBox["\[FilledDiamond]", 128], InsetBox["\[FilledDiamond]", 129], 
       InsetBox["\[FilledDiamond]", 130], InsetBox["\[FilledDiamond]", 131], 
       InsetBox["\[FilledDiamond]", 132], InsetBox["\[FilledDiamond]", 133], 
       InsetBox["\[FilledDiamond]", 134], 
       InsetBox["\[FilledDiamond]", 135]}, 
      {RGBColor[1, 0, 0], InsetBox["\[EmptySmallCircle]", 136], 
       InsetBox["\[EmptySmallCircle]", 137], 
       InsetBox["\[EmptySmallCircle]", 138], 
       InsetBox["\[EmptySmallCircle]", 139], 
       InsetBox["\[EmptySmallCircle]", 140], 
       InsetBox["\[EmptySmallCircle]", 141], 
       InsetBox["\[EmptySmallCircle]", 142], 
       InsetBox["\[EmptySmallCircle]", 143], 
       InsetBox["\[EmptySmallCircle]", 144], 
       InsetBox["\[EmptySmallCircle]", 145], 
       InsetBox["\[EmptySmallCircle]", 146], 
       InsetBox["\[EmptySmallCircle]", 147], 
       InsetBox["\[EmptySmallCircle]", 148], 
       InsetBox["\[EmptySmallCircle]", 149], 
       InsetBox["\[EmptySmallCircle]", 150], 
       InsetBox["\[EmptySmallCircle]", 151], 
       InsetBox["\[EmptySmallCircle]", 152], 
       InsetBox["\[EmptySmallCircle]", 153], 
       InsetBox["\[EmptySmallCircle]", 154], 
       InsetBox["\[EmptySmallCircle]", 155], 
       InsetBox["\[EmptySmallCircle]", 156], 
       InsetBox["\[EmptySmallCircle]", 157], 
       InsetBox["\[EmptySmallCircle]", 158], 
       InsetBox["\[EmptySmallCircle]", 159], 
       InsetBox["\[EmptySmallCircle]", 160], 
       InsetBox["\[EmptySmallCircle]", 161], 
       InsetBox["\[EmptySmallCircle]", 162], 
       InsetBox["\[EmptySmallCircle]", 163], 
       InsetBox["\[EmptySmallCircle]", 164], 
       InsetBox["\[EmptySmallCircle]", 165], 
       InsetBox["\[EmptySmallCircle]", 166], 
       InsetBox["\[EmptySmallCircle]", 167], 
       InsetBox["\[EmptySmallCircle]", 168], 
       InsetBox["\[EmptySmallCircle]", 169], 
       InsetBox["\[EmptySmallCircle]", 170], 
       InsetBox["\[EmptySmallCircle]", 171], 
       InsetBox["\[EmptySmallCircle]", 172], 
       InsetBox["\[EmptySmallCircle]", 173], 
       InsetBox["\[EmptySmallCircle]", 174], 
       InsetBox["\[EmptySmallCircle]", 175], 
       InsetBox["\[EmptySmallCircle]", 176], 
       InsetBox["\[EmptySmallCircle]", 177], 
       InsetBox["\[EmptySmallCircle]", 178], 
       InsetBox["\[EmptySmallCircle]", 179], 
       InsetBox["\[EmptySmallCircle]", 180]}, 
      {RGBColor[1, 0.5, 0], InsetBox["\[EmptySmallSquare]", 181], 
       InsetBox["\[EmptySmallSquare]", 182], 
       InsetBox["\[EmptySmallSquare]", 183], 
       InsetBox["\[EmptySmallSquare]", 184], 
       InsetBox["\[EmptySmallSquare]", 185], 
       InsetBox["\[EmptySmallSquare]", 186], 
       InsetBox["\[EmptySmallSquare]", 187], 
       InsetBox["\[EmptySmallSquare]", 188], 
       InsetBox["\[EmptySmallSquare]", 189], 
       InsetBox["\[EmptySmallSquare]", 190], 
       InsetBox["\[EmptySmallSquare]", 191], 
       InsetBox["\[EmptySmallSquare]", 192], 
       InsetBox["\[EmptySmallSquare]", 193], 
       InsetBox["\[EmptySmallSquare]", 194], 
       InsetBox["\[EmptySmallSquare]", 195], 
       InsetBox["\[EmptySmallSquare]", 196], 
       InsetBox["\[EmptySmallSquare]", 197], 
       InsetBox["\[EmptySmallSquare]", 198], 
       InsetBox["\[EmptySmallSquare]", 199], 
       InsetBox["\[EmptySmallSquare]", 200], 
       InsetBox["\[EmptySmallSquare]", 201], 
       InsetBox["\[EmptySmallSquare]", 202], 
       InsetBox["\[EmptySmallSquare]", 203], 
       InsetBox["\[EmptySmallSquare]", 204], 
       InsetBox["\[EmptySmallSquare]", 205], 
       InsetBox["\[EmptySmallSquare]", 206], 
       InsetBox["\[EmptySmallSquare]", 207], 
       InsetBox["\[EmptySmallSquare]", 208], 
       InsetBox["\[EmptySmallSquare]", 209], 
       InsetBox["\[EmptySmallSquare]", 210], 
       InsetBox["\[EmptySmallSquare]", 211], 
       InsetBox["\[EmptySmallSquare]", 212], 
       InsetBox["\[EmptySmallSquare]", 213], 
       InsetBox["\[EmptySmallSquare]", 214], 
       InsetBox["\[EmptySmallSquare]", 215], 
       InsetBox["\[EmptySmallSquare]", 216], 
       InsetBox["\[EmptySmallSquare]", 217], 
       InsetBox["\[EmptySmallSquare]", 218], 
       InsetBox["\[EmptySmallSquare]", 219], 
       InsetBox["\[EmptySmallSquare]", 220], 
       InsetBox["\[EmptySmallSquare]", 221], 
       InsetBox["\[EmptySmallSquare]", 222], 
       InsetBox["\[EmptySmallSquare]", 223], 
       InsetBox["\[EmptySmallSquare]", 224], 
       InsetBox["\[EmptySmallSquare]", 225]}, 
      {RGBColor[0.6, 0.4, 0.2], InsetBox["\[EmptyDiamond]", 226], 
       InsetBox["\[EmptyDiamond]", 227], InsetBox["\[EmptyDiamond]", 228], 
       InsetBox["\[EmptyDiamond]", 229], InsetBox["\[EmptyDiamond]", 230], 
       InsetBox["\[EmptyDiamond]", 231], InsetBox["\[EmptyDiamond]", 232], 
       InsetBox["\[EmptyDiamond]", 233], InsetBox["\[EmptyDiamond]", 234], 
       InsetBox["\[EmptyDiamond]", 235], InsetBox["\[EmptyDiamond]", 236], 
       InsetBox["\[EmptyDiamond]", 237], InsetBox["\[EmptyDiamond]", 238], 
       InsetBox["\[EmptyDiamond]", 239], InsetBox["\[EmptyDiamond]", 240], 
       InsetBox["\[EmptyDiamond]", 241], InsetBox["\[EmptyDiamond]", 242], 
       InsetBox["\[EmptyDiamond]", 243], InsetBox["\[EmptyDiamond]", 244], 
       InsetBox["\[EmptyDiamond]", 245], InsetBox["\[EmptyDiamond]", 246], 
       InsetBox["\[EmptyDiamond]", 247], InsetBox["\[EmptyDiamond]", 248], 
       InsetBox["\[EmptyDiamond]", 249], InsetBox["\[EmptyDiamond]", 250], 
       InsetBox["\[EmptyDiamond]", 251], InsetBox["\[EmptyDiamond]", 252], 
       InsetBox["\[EmptyDiamond]", 253], InsetBox["\[EmptyDiamond]", 254], 
       InsetBox["\[EmptyDiamond]", 255], InsetBox["\[EmptyDiamond]", 256], 
       InsetBox["\[EmptyDiamond]", 257], InsetBox["\[EmptyDiamond]", 258], 
       InsetBox["\[EmptyDiamond]", 259], InsetBox["\[EmptyDiamond]", 260], 
       InsetBox["\[EmptyDiamond]", 261], InsetBox["\[EmptyDiamond]", 262], 
       InsetBox["\[EmptyDiamond]", 263], InsetBox["\[EmptyDiamond]", 264], 
       InsetBox["\[EmptyDiamond]", 265], InsetBox["\[EmptyDiamond]", 266], 
       InsetBox["\[EmptyDiamond]", 267], InsetBox["\[EmptyDiamond]", 268], 
       InsetBox["\[EmptyDiamond]", 269]}, {}}}], {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 0.05}, {0, 0.032}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.001, 0.001}, {0., 0.}}]], "Output",
 CellChangeTimes->{
  3.576254325550654*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztvQVYVOkbNzzSDXZ3x6prrK2I2J1rdxd2o4BiIQZ2IKUoCoqAoqKCYicG
IApISKc0TNzf/E7gGZjB/+76Xtf3XtfrLjAz58w5d/fznJFz1i1esGLOuiXz
5jQavGbOqsVL5q1tNMhijfwj9UoiUaXFIpHoWyMRXpP8JfeL5P/TEvzCJ79+
XY35U02nsLBw19atW8d7enrabtmyxSA3NxdHmn39+vV73bp1K8lkMlXnKPu8
3X+/rLpEIhnh6+sLvEwDAwPxvi1z2cr/5bKtw8LCEmvXri1Si2zatKlIHee3
iIiIYK7c5r+DrVVcXPy5ZcuWOLbgzJkzdb9//85Sw+jfXlaD+bo6x2D6XZCu
PnjwYHirVq0AJV7r5efnqylIxapDhw6N9PHxwTuwwMbS0hKv1aRSKeiI16rO
UfY5R4d/e1kWOHXgVEqL33JJzV6PHz/u+/DhQ7zD5duEhoaK2v6OS2tAHvCq
VlJSUoC5ufl/BLgCWfgv3KqcmZkJOcHrri9fvnSaPXu2gixoPuzbt2+NlJQU
vIOkfGrbtq2IhUZf6TH5a6Wft/vl9ZQfU1eCedv/dq1RN27c6PTmzRuBJP3z
a3EcMczJySnR1NT8H+HSUnasXnx8vCaDoHqjb9++laLZ6r+BBhHM09fXZ95V
UuBqUq1atTTEYjF/q4wqVapwX9NRekz+l/+cU0f+Y4EoVnRZ5ccqYO4/vhaH
9YG1a9fWTkxM/E/X4uDiTWh8vXr1eEGp4Fp6yo7Bf61wcHCAfcFnwPXXl6oQ
xT6PHj3K19PTU8LYtGrVqqlirNJj8r/85xUwtoLLKj9WAWP/8bU4rDu+e/fO
bfr06f/pWhxc5gEBASEdOnQY7e3tzXOjgmvpqSJdg9jYWFiTMoz9x2BxTkO3
oKBgkoeHBwKV0wsXLlQ0xc+6d+/OS7Z+Xl6e0BQrPSZ/rfTzdr+8nvJjFTC1
gmtpq4INZo/DXF27qKio1Fb9+poVHVNvGhkZeX7OnDn/6VocXENv3boFJjM4
/5puKvlQJyEhoVhLSwvBGSwK8BUpsneNvb39OC8vL7wbcO/evR1WVlb8ZZUe
k79W+nm7X15P+TEOZc2SkpIycda/gg2xx7CbN2/i9RR3d3eg/l+uBwMKduB1
/bi4uCJtbe1/jSsnynMdHR1LcW373+i2effu3byR567Psxbc5kNx6+3bt0PP
eXSVHpMfUfp5u19eT1fV9QAaTNXrzp07i/745XWUH+Ps1OKTJ0/CfMbVr19/
iL+//6/BqvBy/YKCghB5In8CFf/t5TimGmdnZ8c0bNhQyNR/CxqC5YQ6depA
eF1nzJjBqSxj+xYyZMXZjA+uJDj0DzLxWrzvEI3ELxYmUV3mj5Y8EWbOp5/J
vlyXPn7Q44RMaIl1lXym7Lz/9bP/d73/f11PR0EymkRF0Q4ru7zXne0u4Szf
EXZBVdPT6f9GzP7f9X6LZDT4eWjYTbr5fy06/+96v0Uc6jN/NDq9oTc4WqxF
WgdX0+o+Sr7RW8lnys77Xz9TgEDzwx/0B3OU+2/MdbrOusDBCueVaJKm8LzN
u2m3svP8h9AQkeDfXy/ohZLzNKqnUiqOF2kXGU3yIA/mFA5ck8KsQuX6o4Gv
yCqVaObrkR4IxpzTgzmmpSaVUo9nBe+yZiybJlvdcI2LRdgGeWBFCldQQEIR
4e7sZcb4XS+h81Umk7t5N/KpMYDWiexsD/r4VnyZn/ToxoKtKS2RZn8Z15Fu
TOxMj8z6ks+ELvTBvEX+jio2HZJDkrVVXk6qRmo/ycZdbtjXO+F0e2Jbslbb
TlYiK7KqtINuj5e/19rq6THeQ3g5lt/qIGspGZnfXVmR1i2ggmtWIXMk/vOa
0RHRSuZ6R0Ur6PmgNmGnR23TlhRJRNrl6J5WraiuWIM0Sun+F3u5Hk/paXgr
anX5b+mU/JtzetK1poMosJIp+RoMyvGcObhmarJU9L8yoTOrOQDxwFpam1ib
ai8///l68SfT9vRlXdVif4u2t+McpiXdsRhgI7u/g1VPUT0WykokoyP+K/2Z
y1eOqqyGayP4B2+EhOjI3gWQf25JLS9Npsm7b9rdofgpVcl94R/uj09v0i8p
Ljj01MPeoKQon1VkzrvrqMmkMscbc2+AbMyd1tRdQ9XCq/F8E9xBR4jHhKuS
a+/9zDdT+NJqUqeFnadFPb9pxF65DktJyMzlq39fZRnMXR2v19dYX1I/pD4o
zyLQgb18zyf0JKIFtXCfQlO6fvyaUPS+u1zYljXMcl/et3VWYrSx8PIaA6Lv
RUus1a35y3NyQpPGT1JkQrufcmK/htYA+LHX6NrmALuXlDS+Cl1b1ObR7b1z
jIoL80QmQtroTgi9Glq8U2unAvRTRk4hjSINRTVhY3/dXo/pMY9BzWRx+pvr
A20ofrGx1GVhp60ht87KWSoTVRZyWWdw5O3IfFs9W1w/Y8G45aQmVhPqDXP5
1j9RANV4FFrGfC4sfNO5J71dWbvAZUn3/gmfX4mqCi2TVu/Y4FhceqbbraQH
/al/elWqWmqhWv+E+ktzag6oq6ZT+sY7B95R6ogqMv8lzT9fsxxbLy8zhcsv
OZHXwiXnu50tGu9JnjD3ChasBSuPevmUf2gVreKh1RCL6Y1H//2UtlBfcmlh
R8dgFyttibi4uvDK6vyVP7aTM06dFXmWl0KRb8JC3juYgoWQt/gWUVz4rL0p
fbWoUuS8pNusiKe+oprlrr/Y9WQ+4wLUValUo58oHLYgCx4FfLrupn0YpQ6s
To+XNUi5uGZAx/S4iFpl7RWnqz+NX5kL93lEj742o2Y84JolJfTiovkR+jFX
V3x9UfsA/0OLKxfl/6hdjupbj+7KHnCP7hVpk7asElXyG07DBVfWF4LM061F
dERJQVCbIZS4yrDQbUk3q9c+p9VkMimnSpwoamqQWLye9u/HbW4HD7b52FFc
AQvYL+n1fUgPgcnFqTS1SgZl4NP13nYRshTTmrL3K2v9cF3ZZ1jsx8fs6XLt
/d2NYHyuutGouZYOHGhJnz8DqeNuS59J1hxWV833Oj+JeGQlrRQSkWGRY/9T
VDhDu+TOkjafPK0mNM5JS+A0TY7Z725m4rXqtpmmJdnYcLcWHdi/NiXCaXcL
HjPIlSJmrJYZI0aDe+MVFuyLbEpNhexrFRkuzr/bYjRlr9LNu7y8u2vgeUtd
cUkRJ4ai39iq44reCv0j+Y8FHT7cisLDgdrFU1Mfbcw9tjezMlVWKYysddJC
/Cf0xPgOTuYotubawW+yhJ51ZdGrK+e4rOy9JDToqqgRj9Tv7lSxn2kptFBg
H0giWU0HD2oK7ER5QWQRMoCVYj7RydLBXxtLYsRCu6iInp00daaiydolz5Y2
Tby4flD3lKgPjXlk/nt3RluITNl2AXcpJpJytJvLiDaCZZV2j8OncqY0O65B
QQsaumwErWq4Wlo1rE6357IXLSM/S/JvNp1A+RZaWT4ruwf5HlhQvTAnswmP
TwWV8Mr/qCNBKirkHG2A0DWbsW8ZlZFH9e/bU3uEiTC3pQ6OQwaSlVbdZzaN
E12ju6KB9ECzH90QjXKyn/1JFtuloSxljUHGxdX99j/3PKIhlUqa8sj8tvq7
snqwJvdb/u+G7agXPAeh5KqNORtaGdRJoASvcTTuc5uSNiE7+zhSZL+m9Gho
F3Kf2o0Ch3WlyP5NS55M6Zjhurr/+Og395vzGP22srOKYqjGT6T87IYH8cBX
7MQNmZeGlWQkW3iaTqfUoBrQnyER9yKkVmrWFG7WlOy7TmaiugOdptLH/s1z
7FuvbpWV9E3ExjAi1v+q8yAL9JqB5f5es7v85096Uk9en+GYFeWfhUWj5Wf6
/LAv9X3ag3q0+0gfOVU74LrxHd2a8AcdV1vK5i+VVkj8J7dv/CMlSdRS6KS1
kRfKHQJj9Z/bdvPBa+SFYa3l4ZxK/rLWR1OrmIq37aSdqdWp+goHclCTkpTD
R0fuSyl+V999dHNiL7pdaTAFifpl+1Wb7BbtumrGl2c3FcBQ58vFTNCtxobe
7T5+JN5gqbZsbJKj0f0ZPYO5RvxSP47i2Iq6Tu8XwcVFvvUnkHSZWtGj1S0K
nq9o8zli1YiTud4WD94cndqqAiiYV1qAAqaobAIqvLlBLuU6rKAV8O+TL9El
9uZ6oKPD8RWfZfGd6ssKN2iF3bYc+ejG/vmHn1w+0OxHSty+515H1GVS6f8G
BMzH3YE0EMKgYD7Y7FFjuB/5xTSkhufn0By4Xg6I6qmp9M2uxXEqHqdVkLym
ZtylTUPtnnkehgVBuMynca1/BQTDDxxlqiIqRYO9rUbNZEpG5gg7gfiSGyIZ
FXCjQHy33lCSLleL+rS1Z6rrWvMx394FthfeXQcl4nV2dszds0cbB+I1SsS8
jqpUUbaToQkVnXOezkNF922gDUh0uB6LNtKGy3v/fidL7lJTVrJB6+WDPZNC
PG2mNM9OiRWxmaMwtk88WHu/UE2hlrwo/FRLHONMTdNIirw3gAa87kyd/3xL
b7lWcqOYb5R6sN4eKpmgmZuxrma4546xToHOVnri4kJRR8Ft2XifvRmUUHkl
QB5di0m8YR/tQwa29gAdwHt+VGe+x9kf0uA6/WTSlervI3f2T3ZbN3Bh2COv
TuXQ+3HMaIsQvdIAQVi5YR2BRpdX9OpdR+oIIWwSRVEcZvLgix5Y9n8sy+hW
VSreqHXn+ZE5UZe2jOqUFhsu6lzujgWHdBXuKNQt/MeEmhL2joibkWMn16Sa
M13IhfVF2h0+hEhzjlbfQuKJGlnZm+u89Nk93c//qIVJcX6OqItQkjS3U5D1
Lrq/lUm3g836HCzw3sy7OSgUIjqhfVGQ5yIWikF36E50Y2qMmLZGCqVwUOw4
YZUifVnvL5l0lfrj+ANDEy5sGLLl7S1HJinvKoRCy1IWZIOiCJ/0/wgeNrxV
WniaCqI/7kW9+JtXS6M01xk0A5o99Bbd4m4uj+Pp3aY//WXZPUwk0k1aV0LO
rUh0Wz+YSdnZqhhXddBD3eTDp2WTFaoO93qbp9jVsEOtDWeBCRpKKJDF/NYt
G+Xj0+lu5Aa+IDmE/eMCBW2zh/fFRaeNLUgyWSMlf1v9O3eOLHl8Y9/cunlZ
KaLuQsjUUXKRPjA1YyBj6y2aeI2SHR8wwdwqdcksaNplQ/S3f9Kf+IzRSxYk
HXWJhI7vWRon/digvUy6Wv1O6tGxkZe2jT749Iq9plQi7qHgEa+kHl8qeTK4
D0Orx+a9KcjU1Md9pDtT+KvICvxgmV2Wm1AXzRK53WIvX/f7d4re0OSKLLen
oVi6WetExOVtKa5rB06Meh0g6sVCwhVbhnz1j+Q55us0wtMgP1cKn1KRdWCB
0ERAUNZj8Rya5O1RXOJqPEcmmaYRX2zVxCPo7PqPV60mtcxKjuEK6jwEI9hp
ZhENEd2WG1dMsRLcQEXWgmWMFlzQqUW0KKEO1UGIEtSP+qFSxAXGyDg8N4+P
kH1p2EIqXaNxPevslBDPnZMv3HfcBpvYRwGO0X7eYgYOa9F2WiOyJw2RWACH
UhuS8dMXzDtH55JqUS3YEkZWtVhKtA4Po9SNNc7L8vvoF0u36Oz+5rsv2XXd
QCaR66cAgWPo3ANsYVb+vrnoC1mIDv+E4Ne2JIWFBh4BvAFFmIBNHn6J1JgA
TL9mdnIhH37h7JXnjuRLvIwmyiQzNKJKbFuceOG+K+bi5hFdUmNCRaYK0F34
PM2mFDr8bBbtBnTqFRgYFqKqJlmUhdglvh7Vm+FKrqAXjjARAPzpUJE/rRId
psqizO7PnlGQRb8QaUzjxlLpOk3XvIvzgnztFty65bCiamFetqi/AlQ26ZaH
RYJ/1+6NPQY3zk07CLmmlGbff3IQkAFCQAqIOW9uMNLXR1Y2X8pfoXdOVmiq
Wyjdprch6d7x7xc2DLV843cWJSozIYCayJ0ZsmUbG3s9HHdYjaRSfhaLNz4q
o8941kCDi3wI/tPf68PqPjrS56qylCc60aLnzvc+R2GwB8WHPhOZl/OSlNCw
zg4bKxknqZo5hmQo5OD6/bSfg0ATEg3JhoRD0hkOsrqux5hYFclJgsOfW59d
3zu7fm5m8kAWgv9WTlO2AIIJUFUvEQCusrSW1c+um5/N46rUqsSx1P77Ml2G
HMCywMKwsa+Oq/2cN2UTHpn/5HbnHp7fBQs/iEPvt07yc8ZH6SUF9QzZjSpj
8iz1DzbJjMrUrMBexbBfaRVO4YgfX3WhLl1f0ksWQ13DnBzyWTkyWhbYtrPs
44IGsgD1QUipSh7U7P3g8/GJSKlEXBfxX8+X65bixv1UcK6WhkQsK40n5D8J
B+rYt04NSxPoT4UW8SsLjn4e5e3ZRJsQSyw+SSeZHJJDusezp5S9ythJltPO
SG6ftb++s+0V/35zj8LXMztdTnefiwxONIRH+l/OSmuVRVqxCKcprFvxWs2m
6yJ1Pn4SyoNSYxvJMnecF3nxORoiOxZPfeQk+63X54i9dCdJxWO0kqS7ao/P
+HAz3GP7+I9XrCa1z4iP4JPFn/j+yxHicvgq1um0hPjy5gPf0GDDND44E6D8
a0sezqLf7Ct9vTWUhiKLQHeOTZ/1ke59nd3ssTSuToMSySqdy3Rx8sKIR54Z
zqv7I20RpqmioTz6/3IIuJyMVzQwvMd1Uygv43LEGAIEnjZlY0HWgP1vziKU
hQuJqPV22g5TvfIIHWGSNpYKOguczoiL9ulslxV118mXbdefIQ65gAzxy+Vt
Y9EUGskj/lvGY9UqOJ+Tk9Lgb6vIllHy8SJPpF4VuaQwltGoRSDzd5tO02sn
UiKLoi6yloC55rGSl4Y9JOLpOh9lB/8wy/ryBNHnlYDTG5me6Sgez/88K8pF
PxVMXDLDaMBRuqfBVpoqct+4b68MIUpFrugTi2PDGIrxHk2jP7Wltv2CKIit
iemYPbhPP5YYXZBlNalcJN2ku4/8N8z8+sw3zWXNgKWhgVfGKEQgVvRgB3N/
2QR1aZh5u/15flbcdIGmsqqT6AN7DJW3LbZki8rbOjuyEwgSaEPHNy7NKbmk
PV1aMlA7Q2ZTdaAk8t7pR262vDCJxiqA4U+7mcGUvJKJJrkHDHY8yLUcwYHB
DKO4zKSZMNCwW29ZPMvmhAPv0l30qj0m0aS63+k7Sw7dNqGhFPN3w2fSqKrN
isVL9e6Q46Cu2bHv33nunFLK8nEKwNwj6wHCsPF51trB/KiR2X26jxSPeccu
gyrXpflel+qaB1AABwHC6VXHDomLd2ntlBX8oVcgs9RbRi+OIeFKdVlrvvzT
Aw/RBCEE2jdp7zDcucinzSTpcbXlH+KXDC2NzFmyqMNPfWtEjTqEUAgHSTlx
QW2UG3TSrZmcTI+n9IoTB+uZisXjdb7J9jfuJEl8e/TxpX3R7ltGMlH9RAUw
bOi+JaOAceb1Kcq8Cd0xHUTVRGlMIY51HeqwJkjBmXcvf4I215EcC3RJV2nr
mHOv8uCZcuYbXpam161RKF2n70hec1vlJEe/umY74/qdE2uZesokFiSuLsgP
YbDujzWItF5kN/6xJ+sIOeo0jqZoVN8gpyL2ptqmgRQI3gWakin4CKHis0IO
JD0Uk5yXzcotdtOeKy3pqfNDZm08hsKvo0YIZq3+EHARBZa/FaDiZzdEAj91
9+zAn36Kgwp3LvVLT1nxRgn92lgai6YzevIGLG06vXlD38fUfSn5bNS6SDxX
/yUd/6uRNDMGNQMkYeiOiaYI2aWO8Y6yzkIe17l3ev9GIiC7+mwncoLhYN49
ZiUHwcDxpbQUjmHpcTrO0I3tX+ohR9y6b5e4yEp7rzS/mUG+bJvBDnpg1Tg3
/Tvid5S+kH1NZaERTjn9mGN0dYPdPilTPOVUCOkCAjOUskSPfpoTFBHBMkzk
MCkWSwm9BrGx9Hp05/iSQJ1B4pKhusmy3bV6UtyT4bEfgpEsb3x32xksmSa4
PRsfibP+qi4LrdQu8WhtWwwDcAipO82m2WvsyZ55F8iej6Rliju5gw1XJ9AE
hAoitsuhO+WSO+XN0veUJFevnSdZZXSdLo6pJs1P3/vCyyH+wsahfZK+vBXN
EN5em+GDdLlawTfd1pljKgetK7E7XKrBHCHQq2Zq2Xj3gJUGtBGedafu+MFr
VnBM+C4JfoRputGPH+Q5a3xuobPOYknxn7q5MivDefT2HIpdj27Yzb9z8/Ay
9B1nlgOu0HfGxNLU2kZkyVdWeOBAD3jQzq/ptegeSyN4HKQKiCBBKybRY4XK
WFm6PsPVlVKG1Hgt/qTXvlA8xTCcDrVuRWnhyDmT3NYN4pNi0SyhHOugZgoQ
JZ/GdmCG8573605eonG86eEmN2Hcji2jZcy7OyyEkBvID+QIbokpvLPnGyqk
6vLMBal68Qqt09KcesY50i3GR8lvuZ6spMDm1Y2TCW4bhjClzDkKkO2QPWDL
HLdFTD+JInq3IGvRDt4CcZA1iKXYtGpUTbuIikT+LGRwkFAsKBgUDQrHK5hC
rv7KrAsFmfell2byXN20aXbS8pbD6MvNWvk/0tUe+NovEqnjZallma3gus5n
Oq0Rui7UWXlToGCQuMbR827UDe6Kd6J+7MewUaFtqA2aWW1CKZTVA4PSZD66
b2PaVWUtHTYfSbY1VlFk76Z+HqNdQDFQDhREqjBPgXjb6OFOJh+1Ud/B14Dx
N8ymtXudlAQJSwzNuPpUv1xV8QYLF+obsKGw4rDmbJtXr/mXLxQ3tv5r+mjW
kk50HcVc/USnsekREztbv7p+FrIGmVugAI8VBTKhT1ro8r70UE7xIFNThJik
JpJCzPQrCMFYC66J0NJxLs0FCeHwmNyRnRrUh3qucHCg/NF6AeJw49bSB/Na
yAI0zSE3H952mJl5a33Xp9775jB16YXl9PO23zYHshVtoYuiabRRtJevOHIy
ozw482KPwcLu2kpbEZxttyZrpuTI0kq/0bdvFDy0d27eKf01ksJG+gXf1teJ
jtnb0eOH4/zwiNUjckK3NvnwwW7AbIyaLSoHVkjo0CnUSvSZUXNb0Va+0MeB
xQRrMBEYooOJvcx7M8VgjY8QQDgQEITkIDQA4RaePk25AwxelITodC0UDzPI
JNvKYyn82ga5rZd7wIOQspkRz/xgQRYLgWT8zpvPg6bI3duNUid4UzRs5FOf
NPb67HkADnaeeXeJRbBsIBfVhJpgyBBix41SGqJ8fm/EgMKc/YY7Jbk1TbKk
66vcJeeBtSk3EYoZ4HdwSbT75pE9kqM+lKbMCiAyMxnfXzQZS8dEy0une+Ug
pu2rxjREOAh1CqkwtgE1QNuLg7CcMMKTcQOYhtPd3Ci7u3FY8WPt/sXinno5
tNNoGb08VolINjj+01PQDP0hXXFJYWk2u6Scz9akWLMG9KVfc8aw8d0Q1gKo
Y+4A/QTm3UU2/EUBEo3nstLICVyNlBS6MWFUyY8tRkfF6SY1MyXLqoXQ8Q6t
KS0MpTEQCQFNz+TI96IV5Qi1JfTUdZm1moLF4IMaDiiYVkxNIgkSubGs/OMD
fQB7kTQgREXvrDTW4yCT552U3qlqTMFd3VHFJX/oZZON8W66t1mTpCWYhHt+
fc8shKEYXBStLAdZS0r/nHVx8HLaLrJhIJNDxdsO1gaoo1qIuizzzpllIeJ1
zKQAMrgo1J84FuojP704Y6oke5mxm/i7XqNM8czqcXSgfi+KY+I0pAwwZkzK
sIqF6P9MyVTZBKJgpKiuLCtB8qRaH8YJfpE7wXUiO949G/0MIEI6UIdRN+SO
9jyLe8d39A6xLpwgwj30V0VssUd/iL8/JbevmZJ73WB6SUljvQyZVVVnuj7L
iIp+YFoP2SPqUUz2uJrD/f9EPVXZiCKf9uPUlNSp7eiNeSemN/fC9C/yFw1B
ADDlgXsyE95xBEANAuNWjFM4y14bdhChN/Rl9UE6KCCAASqsZxYtkGVPN/Yp
+ardOrtkdNV02lN1PIV54oy2mQlRKFQ4BzrtgO6u4WjwezYGUbbzhfpPkyoN
VDMT5BUadE80gFHFSSIPMJ1VKQ0U1tBw4+38SRYKmDCfkTQS5t7iMB1mwjJ2
sFu/X1AQxbevl5ntZry8pLCmYbJ0a+0AcjGHQcUZ88ODr6M/yRSY1/E4/5b9
MpRtCsGcp8klcnKjzGi1hkjyE0lNuIVyEcox9hgMH6ImYIoCmwBTA92CAjq0
ehX9GGH0sOS9Zpc8cV95vGprspxeHIWRRini8r0zm1GaaJGdHLueR/a37CGh
YqMEgWCjFpRTMKcm4wAizZqSR79JMGilqYFxBRGRA3sMOQsqrOiRLD9KR+HE
uFl7gx5Pn1J0e3nWeLLq1uLcypUTpGvqh9CJDm0olSlPdk39Fhp5aetohyeX
9qPkuoHH/3dVWisYlGQIgAj1Il2Zmvyu2SDyEw2n0N5tqLootSwBlMZeh9lj
KCvfHkyDQQDE+0wOwBEAhbG9GzdSdn/j10XPtPsViNsbZpBtlT10b5MWSYqR
xa59f9cNJh4Fh008AX5LxZUTCiXDlaXIP5LN75t8o+VCRrOf9O5ZfEtrjP3u
NWnV0tJKkefLcai1of7EIHiQPYb1CwgPELYsOUEnmCoCO6lt8OfbtxTWqXVB
yv4aB4oz9GsnSBbI8yT7Bn0olikCIE1FHzf4xv55DXIzkjbzyP/nMizXC1M+
g8lYN+R1yZ+amP20bnJ3DgvH5XWshVaH60Kjk3lnx6KMJP6+GZmBFItO0SkG
ZZZUVVVl7Wi3bLe2ph9djD4X3NcdXlTSWD+JdtV2oesz4e7wbeRSqC3seul9
HKNyInZoqYIJToaLLlnnLSjavImCg4IZk+PFJIAcKlikARuF0TjRPhYVxE/I
roDK/LN0lkGFjUwqK0vvR3t705vunUqSLGudKf6u0zhRPKl+Gu2tNpFCr+Bb
AJtPps0Swl+KtgljKF0RJ5jWoccuye6osQk1fCnizpkiF6ZsxZpOdYAJvwKw
RWxXQ7P/A3qAkA6jUWg7Y8aFO9+EyfXlGQDfG8TMRn5nvfCcm4Z/F5fUNIiV
WTWEk6lDOQn4BgQO9ZLbN48shyBaCiBlw2Lt/LetelOgyJTuyHN/G3YMZHyQ
Zxrj8jkwIRwQEubddua3nrLZJaDzqA/1QYEFc4KIYFkbYYJaQPDR3pdLqxT8
7WxF2zK/d2+XQXuqWNDzw3AY+AbsBOzFhpDbLrAf24U01gPkKKcE0k5T2edx
rZlyyrN+3Rk6M2vXWAFn4WfKcFhyh/isFF6WazplkyPghGIZqomAvwZzmhFq
BLJI02ZMHQN3Qx0D2YT8btkefy7gjT0MPAw9JvVQy7QSwq3NGySnzNmrSxdV
ckqptJ7BirUmjFI517yVOVZuLurKRJoIwNnFTtgkiQpDBnVDOM/dQgeFjWjn
LlaGknxG2+CV+cYBitPW5YgNoLHaIyFyYl+ptZoVPe3dk9c/hBKdQ15LqlXg
Rjf/VE8EyHn6pK+0gs5S2xAhBTxKRvsq8cVJ5g1KInVaSXfrbUFKmZo4ob2G
VCzFmciV0QBaFPbQS7RTKdSYRQmTTWtTFKQ3uLSutVW0i2qIUsZcv84tElDw
fZg8g/0TbWRFBKvAkGih9oUBibJFdnblmqHZ/fsU1apJyZdtzS8Xhut0zJdM
NszJGFcj99a0ziEvBk/dIntoiwDXJfD89jCPHRPaZSREinaVAxr1m/2yOxuy
Ps/uRt/MG1GMacNSbZHL9Wx/p2RuHQ3vswAIZmVuDqNhTMmZPVw5kzIRlmKg
DaUl2HHUTNjVU0bIys7PmUNJPWpFZ90wmVlQaGTyTrqpU07+ziphL/cM2EsB
Gx+9OTLpYurl+RGXLceee+higxEy23JGRIeizZqUaoZAD++fMvOAIWHZqqEu
IYnneBqPDBavV/2MLYAG6HtuHs3DeAbXgjD8+/JlSm5Ys/DznpZOBZG67RJL
ujeII7v6bmKvmQ7PLu/TkopLYB8sPt6/lO+4vOe88Mfeoj1CourzBhnS8DR1
yGiZtbqVUPFglPlQmFuFqA0qQiScZ9EslIoVLB1bXNAyzqbsZcfoGCwIEiK8
xmcs5Mb14uPJZ+RIihnSMOzHLaO/C4qNjF/ItneLJ/t6Q+nrrVExIQ9Hxrx/
WK0wN8v7zvE16A5N+frCn0kIVGNwmKws4l6PHS3HwLpUCzG6xzewOL1HCga5
wByz0qny+T8je5SqQHwwAczgSom6cPTLjx6l9IZV8yKOtDieH6fXKqakb7NY
OtDgPHnPMaaibD69PPPQbVey29pBmIFvlp0ShxKWaK8QDQMhGo2labGS93X+
pChRE0rvXVUu4YN4CeczTg4T0BQqqXIIgC1maxnmUA4mXSDqEHmIPlSAq220
/fSJnvTsSZ8nt3ybd1d/bH6JsfETmU2vWDrUAPzg1njAgNs/u3IQ020X75/b
KlxQoAKfQHI2DS2y70TZ84wpaV4t+ja7MTmIVpR6Iy6ZZGMcTUwhlQuzWRyY
RPr0QloIrsHkwPSIGpYGhSQPBim9adXsL6eb2+UmGTSPKBnYJobsGzrSjbkC
bmgjqX5/1Way192T69HDUhj12KeSK/ibndK5ucy6knVpVQoqMkvkzKtI7Z/x
MiBESwL+sl48xYvYfowWjAwirZddqStcF0w+GgPsGj6d3sHBFNamtSxkcYdn
eYH6w/NKTIyDaI8pODGEvvpzKR3UetmnQA8YeKj1wXJ2h1m7nv2+YV+5yPak
6N6NKVjUm26JhkKK5OKT/MeHD8TPH6MugfoECuzlghe276mFIha6GKgwo+EO
S4+CDwu4rnF2Np1YsoSS2tVKj3JqYpOTZtjkg3hER3DgHN2YJ+CARs2CHxk3
/R1Wvry2ewb86yGVRGdCi7uVBjLAA4mHor50+6fowEtxrVDADhzwo1SpR7AG
Q1lwhpQdQQ1acEj1N+2hPUyvkl28p4OwN75BPenLDV0f5AfrDcotqWxyjw6Y
x9ChhuAKtwBlROz7RxiwtH15/TjqnIeV4gUnFkzne+eWrK1M8fPrUeychvSg
X39GmOB9a4qSIQZcdRsriypUcRYv3bLBGkoS4BUKj1hOwNSkuEXn8uyZPMeP
p5juDRNjLzTYkpNl2OCVeHy3b3Sw0VnymS9kFgpxxx6770PBFl1PByFShjxS
PMMcZJYWudcaz2AYJAyEhNUyrl97ZxANEsYVjLKzo2Ya5boHygM6ZJ5Y8ceu
S2TmLuafPUupdaqLn9l0v5n/XK//D3HVqrfp8GDwajBF3uaSYg0UFUOv7Jh4
6d7ZzQjsjlaI19hovxCCIJa1yQIbxkcqfOiBUigSKxg1tNTK4jSAVb6yjDu5
mBYjvcSaTaWBIMfEFhERFNSvH4UObROT5F5rTU6OYZ1gybR+0XSoMZjIpJUC
e4EyA+YZpn95fvO4EFmjssjib0Fyl0aS4+orGFPHG2xOOju/fs0ktazqawj7
nDDOypSvh3K2cgvGgKqQBKgpYjACXVVhNMlhjnXsW2xtKa1uteInB3p65bw1
7JMhrlnDj44N/0aHGwnZXCc/KzXA79CSJ9775jTKSU84oRJzXi+LaL1OfopF
QwW95EQYhhOsZgFRhwutcAaPRbtcIoVOne8IGoHP0TZTxmXWsxmrKij89eIF
vW/fnl5M++trmke1pTn5hjUDpPMGRdHhJmfIZwHDfY4G46Lf3sfYxPY3vmeQ
obMlWi6SMWZibYUOMisFH9JHmEpPqi1l0tL43vUpTNRaKPKMA2EVT7/sdDFi
w0bf6BuOljO4HSpScf2ysoCmCUoU3Z7Tc6zwUxjhYReLGyorVbjOmEFJTWoV
PDve/ULOR8MeKeK6dbzp1GgIyCCKvMMTR19cVHD2oetOlCGRlZ5micN6RhP0
91CPAV0QtkGEeAItoZcn0nOaNZJH5F2Z9OkopyZcRADnxNJHR5iNoEZqt47W
wTijQg4ToUxlmlekMuWsBowp4gmIk1KrwS4HNlBWJvk4q92bLE+TeTmFhtV8
pctHQYZOk+9CyBBHJRRqkeigE2FYUph/hqUSu6qqMlIfBLfIOEApBIQIDI2L
C3Lvk4uZq8xrljhtdC15LtSYMmdWZnK2+yIz2iDaB5UCpbgNvNXhi1HbgUfg
/LjW1l20S5ko1atIksppHSwKOpfoaII03MWhiOgdwuELhYtdLayvqjojs61k
mZJQ908vOjsumg43lruGu7xMAX/0XdHEmBT16u45llq/9aEMdfiHMqg6n0+i
mMWBnF73TfzyBknUA3LufzX7zHzKMK9CoeZtKHpmE3ITzaBQURtGKmaIXJGz
w9Kwq3S1y6p4tjEZX/6b/kbVm+OTtlB+y6m9WkXMUiHmKs4uJ/24MdwQ4zNZ
YJj9DqARGAjGZIsypWA3PdIbFn5TZQUrz6PDnFPku0igDCgdBvkcWBDoe2Ah
VrI4cuz9j61JPWVPWFB9euX1IXdcED6DtwCJSSsFLjwn9c9msjuVBjOBM+zS
/fKOTMRxV2igIPy1kigJEbFgLaQGTMxob/LGoCUYUMZoKVujLfhMQygcZb6O
2peAdeqI4TFJCq5zxkwH9gAjtvwlykLM7pGlMfbaNYpt0IAKQgd3lu2oZM3P
g0T2blrg3GrxUEn4Xb47MDny5R0ERJve+TthJu08x8Z/vZRF4VEJpGIpC8u8
KtBK5AlgXmkOLWBeRPqQnjJ43y+9m8sdzF9lvS8fg7Uvr52g1IVpNA3BMZMN
cctsEVRiywSJOpXuH4RpOhRxhIqDYZ4FZ+gMput/2kl16BOUHkP4HFOY7Ztm
OZMzKiplGSJiJ6b1UGUNNDWlz51a5gecNPcSZ5pVL47Raim21dwBl5mXOLp5
ZWl+NqdcaIm6PXC0/OxhOa5zWkyYM8+Vf/kAAE3hMw5Kz1Oy0AY/qAVwC230
EQsiaSiRLNOhnDmGjEE4qhgJo03IxEEsGzTK0oBz1sKyBkh2ZgEtAOURMfOc
gJXDAv4fRmTEkVcT54JrZ+fTfIQMGHnhSQ/OMK0cJbrArQXXRxPv+NKllFaj
mvSq3YQXP64azc/KM6kbK5vXKJSmtMlP717vfXi3v1F+5X0XhnJQocfwBfy6
C0//f/koAk3howhKz1O925Di5phcUAitQNcwVja64XuX9gcZrWAGUUTN+dJY
aSDRVTkv1P7Rx+rKP2YD+ipo5608cgT4kLfF6G9fnZrtSo2p3jlRUqfuWTo7
P59s9T5kOPwVEWAzxCXFYwkzeEhsf8z6lc8pvt3rxhP3Pz4SQEf4SABl52tU
TFvsVyApmGEgix9Qn77PqsvM3/LNOUGthavJV8HkTmibNvR0UI+c2+cHX856
YjI8X6Jn6Ejb5r6hU50ek2Ov/vlRwUzoLP8GHzo3+ZHGzI9jSLl2fnbaBR7/
Ctrdlf/RnvmkYp8hlQRQYyyu7gepQ8eceOPWjLPkeyHI/CxFO6muKJHBnt2s
rKo8WqPrY8bQt6aNJK6nZzzOuWI4LyO/St0H0qFmLnRpZirtrz6f3pzVFxcX
lIbF8m/Cxt+8dXQlqnb8qgJupK7ipndFu67rld1fnrFjSs4XUAARvFAEIJ6P
6HyfyGybzhRt3pjiTOsr1Ay5kBBlKRHbtquKzXbs1q2DqpPzzllfo50a2yTF
1er6XVq3/gFyWptA9nVQCK9G+WnCcBSvMV7nEXBmU7T7lhFb3t105GYdhQOd
OPxXyrdPnFnSQxrhTZdG/8ibVYfizeozaYSgGli4XWdf34iHyWwzVB9p81xH
R0qoU4e8Z4/OuuM66EL606ojciUGRsfJcul9cjb7SCfa9abYYJ7IiKfmhwd7
x13cOMwpyMnK+tWNUyJ2mpUftmbmsDkRKk0HOT4gpj5BfkvEhdMNZE8G9qKM
mVUUbJQcSjkYrmyjWR8L21927Uovev0lPuc2L1Bum+elF1Std1c2dJADea1I
p31VN9DjfRokLd1kBfnUuYfO1llOFqZTI5/784EDByS3NIXPxhhA2Y2NjPhs
jA8x0CEuoCW6MfkLWitT+PS9VZnBVHYEQR8jsO5TpjDkPHZsWfj3c3W3f/9e
9y8wewe5WX0hh+Y36NKoBpQdy02YaGH8OvbipuEngi/uqVKUl83X2D2EwOqU
ioX830MfuwVINPks5ad6armS14yYgjatZBl9qpTW3+QZpJqSFaLsEJE+GqVb
d+1iBPTU1kXp913NnFKe1xiZKzUwOkSWq66Qx0T495EU4cPBrAHFgOP75r55
5IDv4S+8FLgPAQGcmFfhR5HLqpAfXRyeS9MN0yIndGNqZ4KsSmZZaWffyIeJ
XPNUH7FqTMOG5DN+ZPFZj/l35Tn4/LTCavVuy4YMtiE/S9gRdBr1qCSfhxBT
FYAOUCJUuqYAIZ/rvbpmO91PbmmYqJLTIBDyAN1ZKy6cZiCLHtCECmbpUka/
KvT1p3y+293Rg51B0+8QEsKEbaFt25DtpS0fk8/U3BaT2LB7nKx+w7XkfuA1
ne4MhNtS6iceONRSwG6wfUjcpyfe5dQa5XHE2/zOajzZcmm5QVzBghay1/27
UkzvhhQjakjholaPT/Zyi2zZVAKHK2LXfagLS2LcRhZG/AYWfMQjD/TI1mFL
crBz77PfX9UdkyM1NN5PlutPks/iFLKrMYtCnDFPwQHeLzHiDVbEnQ9ytoaa
3CgH+DPvvbN3vvI+we9yAHv0lM71yKTplVPEk+vKsmaawGdkvzHuv1p28JDc
CdMkDw9urUpl4bMpSEeEzc8IFMZyAQQR55bNKzx7bf6tTM/K81OKatS/RUOH
raJ7h76TfV2U86pQQQZPZeg35igwK4QVUb4CYBlYORDvkcsA2Ld4mlTvCK1c
mVZoUe/Vwy7r8gP0xuwu3mwF8AAmC6LS5TyRTZvS/QFmMks/m7epZ6pvjUpu
0iNW1qDhEvI4EUCu5iF0sgMWZnH7KGj0Tvr67uulbWMQwMPI+wnpyGxN8N5z
52QADtvOyQAMJ4JtMVlrZNE6k3zarJdDIwxdgmeeDQg3Xw7eI6WDxRQtZb5j
pKyM5bxn1ueX57uejH7beNwPqZHxbrLcvIsCtqbR/mpr6Kk9LClHQjQ1sKwO
4ggLdEsIJxP/f7+wcQjy+1Irry4IFlzp2owV9NzBj/YMz6Ghhu7FU2al2VXb
h43S1+/fz/RWmAeisfPGpekF1wSsoqyoqyUplj4/2K18ncm6klV6fNWON2nY
sFkU7AxT60ke4+vRj3iO6j2So94jXUIrQ25pf/gLbYI2s92X/N9z7z2zPl2x
migszvG+C2oIWxhOx1pl0x5jqOR7OtD+GXXv7nJ95vXNwbuDMW6gQQrbsglw
MlEmPr4rR0QzC6eOcsseBJ3fVx7d918iz8lRdKTJcPrix+GiIykpxm6T4Az2
Z7yjgAt4xeByfc9MzJjBXpd6Cy4Lh9jb0APLQtqlc5j8LXCDVJpQfW62o1fi
gdoHxnl7SUSqEdFWJlp3pg1K+546taM8WXtk1lekSVH9mnxy77UrTbK7FmJn
XRIX8DrQLSX6IxpLmBiqUZCTcbecbH29vHWM9PSirogFTz+6YMuPNkIRQPlP
dLwt7Asw8SCHSffJzOzGpVGXjh9c+kUp5H+rNIzGED+UMB879ConWmIrjV2F
KYMa/Phm1F5iq74d2W1J4oiGgVJHMyza4zFCVrz7xfVjyFpQNLlX1uCI1B2D
XKx3vPY9U1ZVtH3JfUQx7dQCboHkZJpJYyovSj51PXFhbR9+lz/eIDI4sQtc
qyozmF1evSL3rVNUilT+xyF/naVl8yOyB3QtDm/S4YrMYyIzNMfhgXICxumx
wgM96PtCzjADaOnOa8x+OK3sJ8fythI9MeLdFcxVDu02RLy3iYL3XKcDY3xp
xIhX+7pcdVs/PfnJzp7+krXqh31mjszEQlgWKV1lOgJPlVi7NiUkTOlCD836
yYkCEdOGiIU4dzx4V+oyOIP2VYHrNqHCLNyO9wRILOCU+LZeYDmE4i5uGnb3
5qGl297cZIrQZZWFRwiu7CWd6Yr3WyloVzzVq2fx7fCN9H1V9/HTd9J1avYD
Qu6xa6rGqRQ5xuLxSsR9Vx9KZH98TdQ91wGuJbEDmsZ+bDBcZltpG0QuI3F8
20jp4eYwPmg7iNQQ9IjU+aRZkKlo/JkW9xlbJ2IBMhLIICHGzO7iaHTdvOVg
IXfno0bJA0sYcG4XMkgkIlQEAHCoIOVa6YFDcVfrr+bXcJds0bT7M/Etu7J8
rGpZ/Ov1C+nXTc2uMpGTQK9kNpV2ZIcY9y2QDda9Q4MG+WZPmJYZ3qpnimx/
TXOKCuCrHKUpmAA5zAzIleg08kPs+/6oHHJfLlmOjZIj9sZr11REoU1/pMZz
yIFaoBvisud0thveD4u+GY79y9g97kTqoVZtfobJ7K4QVZTJZGbnytEonjJR
dhlFy/SovOgo3ViOqCSJDtRaSi+Pb6FHthxe6CaW5m4cXu0z4r+89do51f/W
kRXYiT+4nJhmOK82Gxr3Mbjo3NIedfMyU0v1jtVcrZqUl4xomF8hciF0mq10
p9oObjuAO06D3BPr15ZgYYlSv2uuUlo1+PN4ieXnweUCu9l5d8JVjwkeFN2v
MWv4K2cljWl1SXJpOgo8z+hc90PkvwpU52W1tF/IJYhNs1Pjtr696QiWYlkL
E6A/Loc/IqI/Mr5/xWk3bh9fsyj0kRejpuxicD0sFzhKt5bjXRXKyChM16kn
eaTeHxLne2mEG4Y+Mf+kzDmwuFdXJsQ4r+m3SOn31XXLxx07KtmEPOqwsjjf
3ERySp3Z4+rj7d5ri2QLdULpeBsm1ePWhyn0/+Sf/JER/zXJbf0gLF5umJue
+LScw9BAtC03Wbfu+x1cDKfBIVqZCjPB6MaUFY1974/RsmXXYsdavPLqsjf+
Sb1J2AUHmKhGtKoygb41dCjldDCMZtohSjxHkketlafo4iK/zGnTCiIbtQuX
TWt1lG4u53MnobbyGStqeRjBBs/s5bHkzC9P/Z4JOcssm4u4bDnuw1WbyeeD
nKweyzVWTiIxL90szrrM1DN5z8Zu+FUpPT2VqldvRx8/hb1vPfmk32I/ZlMc
ZQj3/Uc2mBHp8+vnpLVM+JyTljy+LSvSOnA0j917HTOXfAmMo4P1EX1g6A8X
h4VUrdiah594HJCHlJPgYXolfw1hEuLn5WgQf2HDsNXv713Anpzxbmzszzsi
jgaGVJyTSAdq7ybbzdg2fx6dOxdDDRtuK9m5J/pw48N2R9d9UxousJsS1lAm
3X0fP5RGbWhSzkQX7dLelb3PeHdqzvjGqbHVu/KhT0rixI63pK7MCMl1ujxm
HwVsYF2RoSr1bpWV/O2x9/65cMA+t4+tVpiI5AjxW7u+2nzXV9lqTb5gDJrL
vcTI48GX9nrcO70JE9UHnl09JJfSg9w2AEZIiK7S5QnYx9+atm9/Qj17IoLp
kvgqIWujyen9Vuvzgm17+2dZmRxOblUz03HuXKwc5Ra2KpO56pA5ZcqX305P
pTfJ99Cb/YXmNUd+6pk9dW5yeNt+OTJboxX0wgHro7hIR7+shTH7Hv4q02mV
6TPvPbNbZid9UxjifMER/v9EP1bZUlHBKtnEC+sHozSz74WnQ67T8t4ngy/s
lqczh6Hu3BY4yBXi6WC9PymJ2ddIi4qLn1KPHtvJ2nrpy+Mvs/aa7OVVFhvc
PRvRPQ3VZpOsLFLm29gdlnVU2feJV6+U9Wsz/F3Tdt/bfE8WWMmM9aDaOSGG
vXpInr5ElImBWeTMfJ2QEyulRhAT2hh+R80Uu7JApd9w5P89j5xXvUqVIXiG
y2qzuZ8fe0MA5PnJ4GDv/fN478mKurYPuY/8Sg7NkKjhx4581yVKa9d7eLWv
Ax/2pe6vbvdmWKdkzsKUt7VtVcp9HZ4bymT/+vgxUvFkjXI2SGKjbh1xvsW+
rB+jG9AbM+aJZLFRs03vy2zNMG2A+AJNFGF8wfkiBUMMyZSHFJcDzm5Kd1k9
AIOabTITo2Cb3vJs+C0Ph+dYo2rhrDrmwoN8DyxkEkCO8DsoyCqSjjTl17LD
m1hEH/YRhqRPDvf04MW27K7vQsIrPNyVPU+DP08xdDNhEvaNg94x+5YosTkl
HprTXtGaLq6ZM1a+iewy8ZFsYd88stWHbCAtYGNO/bK2Hsvz7vkdXPJOnn5g
kzwFW19K7H/ZJdVReGA7lX9ciWDNKnb9xhMenl/fO3txWOBVFEKu3j290fXB
eUsmaGYNjSH0dwa9dw0ip348+fH3fNgcO9m9SubCaM/v4vCLY32uSTjSavIW
pP3798RZTBRnylufBir1QrfUH5SxSnKzSovOnpJmzTe5yutfzi7DvZ+PtjxK
D0T9uU2+tNNCqg2oJ4lPsqM76xD8Ii7EZg0o7nCBsYJfwM+ON75nChyX98T0
VdnHDYje8Uz6nd1WZSuMyzBrntw+YQbTJdBpR/G5pd0gMY5BLjarPwRc4Hfo
ArPUSCZ9S6f+FKkxrGKWlCIIfhLbcwoTpMgFOCvQZEygk6nTVM+LRWWNTVjr
1nBhpDJgbKBSl+rgPGUGLNfAgALnmkZLbdR2lFugKGdTjHPD7QX5Q6rK3gxg
jFhk1IKBgbJdpnAi+bRLbz/dXY/sjRdA1o7oK6S/An+CsBDFMwRT2PqCSYI+
8nz7bU9WV/3UGWadGTQKE1WQonNBrjYoGk2KehUA6VIM3o34tPs4+S39QbuN
vMiDKY0gmNelgoLPsS0HvrrdZds22c5dOx9sexC7vYHzR6t2npw7zrY2tt94
bm/a12bN6GmPHsK8pvQxKcqcfpV/rnaD7tyh04sWClOCyjCVk+57pKFC+OBL
/0XSY2orhKay2F1r1nXJmAlOdH720czllh8iO419K5vTCeYSmCNEFqkzMbKW
sFwj9FHc6D7W2L72sp0up+1QjD7wE2ufeOb+ruerV/j8HT2+CYXbj455F4Qq
7Q25sCGC754c9YHPS1gPp/cHpXxAuagbfX/OP9KrOqWmojAeTq1a1ZImpT49
1+McZ8bwgIMu8a+SES3zXkoYjJVJXVWxuKy1VXWeQNFVKnBynZrS2DUNykUg
Bba6O7P3Gu/NShrdKiJ+8QDZ4wF9oMB5KcOaNJFGMaPbWLiDti7qPOhFw6Gz
cm9Q1js2+ZEWj41zMfK6//nVw3byoFfoITk2/2ItO88ZfLL7hfcxdDrv+9ov
cnhyyY7JXritEs0o+j5aYy0p9TOfweCvHa1blxxdswfW4XIRhg56w8oIc9jC
ghadOiXkR+kjaMpEgGUNaoXnlfGgzrNmUUTLFkK1qw61s/S1ecc8/FNJhBJ1
qcmWIhqo/Yq6dLGN3XLKLXj6aV/ZvpFT6KM76nuQyIX0+rQOiQtLPTsbthiU
zZQ6pcWEy3VuMBqYzKg/sWNuvFdktwkWrrLlmcBfSZ46Hs49v6I3io9uXIzB
bVg1jT5cQEOqOuWn8rWS8eTpmRNq2E1sq6HgMT6dbHvUuCi7qFnkV9nLXV25
aE09z1Lf/tLyyWnogv4PKlOGHTWE7BBaO0woydM6cpk5sxznHVatkD493KNc
yatgl64tCt6yB5X6szGInjhEo7OdZN0mB7q6AgK2j7Zs8CGLkWiSoQGKffqY
2JyxgZoKJWv5D+PmuJll3sWB6CA+uil7nl9zQN1I9EXABW73Af78BjkZSVlO
Fv3kVslPHuJtZ6IGdh8so4fk1Bd6ADuM8NWSHjIzSjBTWekmzSSn1BnBeuTd
xy7sVevpCfZ17N+c7nSaNVc6MFcrPY4klyVQlokJhbdqRWVEGUurzAMCCC1O
jlUG/DHbLVvo4tSp5WiNiRFU366NGyuI0atBA7b57XwnvaumtCAX6tbGNit/
dB0+N0qImt77lmzvMCB3nG4uRZ8AXRFsF3WE/FeyGYfS3Mj9/tnNWH176tEF
2w7p8V9grb4KhV6/rOXh3f7Kj/fdH/geXBzmsX1iaXDNSr4mKH2BvKbBPKqT
TMKoIMfpXbR1a1Bsvxmpt6vPGCnz8d1CtrYrXji8kFlV4q1S9dvnB3tAC/gu
IwKB4c/90uQhSTkaokkfYG5OiO/KHrs0eTJdnvx3uWYLNr+DV7/pMqycnJfY
aO4UB2kMkFtJa+47Rph1K3HXnOkjGTn2KjlMOJW5aNPzyG7T1sns7a7QlYlo
EKHjhWbRMbq5jE9KdZQnS3heKnbXeHZ9z2yEugrJUnnqZztZ9EXnGp/wXnlU
zLuHktNLunrePbXBx//4akbuOeojWkZ5CB3Sa3R57E56sI2jviHcdGsKC4Md
+kjt2iVQnTozycVlatjFdxLuEQY8JSKOtjh6z2WAi0jgv0e88k0CZzjKaIIz
3b8+Y9pevO3iW2I41vtLcIqf03A+lamRsbfK/jO+C3xldyqVM+x4nZM4okXq
j7+b0mOzXvTKrGtm0pjWVaXpmbg+8GpB6RHQZ6Q7KFuMozAvjC6wlDYSRs5C
W481jMcfX9ybc35lnyWhgVch+kI7HykkOmNi5Da9j6C5qb39td+Zz5e3j0fP
cE7E4xsPfe0WQmmYc9jCSx1+PB3Ehwj8oD1GsIGM3eIeCwpnDCaYU0DAXRo4
MItMTC7FTt6IZ0SDEF9fNJvq5THOA+pQNirB+4QDdQ4I+NE58XUis/8z+5le
zm7D3fLUXulX4+3r2b8PbT9ZbKNhIxDsQnedOW+lFp2daPbsC9nTlgaF91uM
mWdk+0vo1QmUvVF9Pki3V2OPPygz96CAshYFVnnMt5BA7KsOCw7yDov9EMwk
KjG/pDFWA8lpPM769Y2TUe5bRyFvv+97aAmzSwdL49JOHv+DKUqsMGJ6oxrM
o8X+5A39CVqy5DL9/Xd2rPEf4bdbrbouGzMWxh8bQ8uFfYhQAIsDtEYwr5UQ
Th4N2ir7nJkFlLvEsnY68U3tERck02bl0TB98Y9BVZnoUS7MqUnsDiS8nGBj
xdH02Ruzllm018SdPKdcJK+pTOKgrM+roviCspJpQsTr7/J0+pHP/gUocpWu
eYn9JdnBNZcHTpbX7pxYV3hueQ+8z3Ra3V/OvQPcNp8aWOADUmfQ3io9KP4p
+9X2fNWEj/7rU1zcJtqzBxlANDVunES1an3LaNSp2FaLeZC7j+dIZ2vZ9h3K
OBD5vOmUNqmhqdfixlqIT2hYCE3DO/eO+3ZLNlviWlJbNUvGKXgaz30l69J1
Ljk6HqUry9eQvb1T9mwLXn4R/8EJoXuEeVGEA5gNwvptQ+XhYMvspJgvl9FF
3joK69WxBkVonIW0ZEjJLWHY+vbmuRDPnVPu3Ty4BAZiz8trx9CBRteS2zHq
TzA3mexqIufHNks86bDLXADtNn9EO/rcpT0DmaIySioUH+9G06c/SOw/Nel2
rdnfZXXrFZOWljyf1cnP0KvPkyHVs/riBFmdulHUpEkOGRrmRhp0ZHaixfKs
j/p/uUhnzt5GO3e+I4uOQbnWw19HrZ90kq4s9qP9w3mrir/gMELoD3TiDxgu
bKoAD4IpjtImLpv4GasqUECq0EtBnnM82H2P3FD6lA2puScHKRVIrnQNJ3f9
zok1mFLIOm/RFw5v1YcAd8w14DxWJpmJhVqUm4TyFxgcSsfajKAIX4aC7KWq
8VRWZoLxdCk9ys+3oh07LBNtznrdHndmmuzCxX20YUNTiox8QFb9z5PbHJcf
zsvfx60a4SfbP5yVe4PtFGgtvJQlBdmY0rdAflovl3Yb+NOFIXC/NSgvhdsC
U0mbUAuy5+t/zCLTeVV/Oc32Yuk9FDdJNZm4Yhzi3WBvu3npLmvMNr/1d8Kz
O7e88XdkrC1LI32huUT7Aq07AIhqDEqFDSk7pjRJ4pbO8c9o5H94c6pKUssS
YzM92s1P/qI3j8kO8ApTW0W0UxujAYDhMl39257urCmVLiPl2XPjnLTvqBBi
dvLWrSMr0EISaqVSSvUWUgqjt7EXNg8/88jVNue8RZ+bt45aYBSG0U92jyEd
BMpwcZAk1OXR6QWGo+jzDVCOq/HzAsWoDfuZEf8ZKgB1Ked7Z0p8PZ3eu8Hi
3CG3QagQAHH0LIAwYgKca1Jem8papJ7JX98jQX3vaT0ZJr6cNiWXQz5PEXlm
iHzq15f+KS7rBmKnI+/bJ9Z8u7hl5FvPXVNxHrsfYV1eUuB8sEPCVboyAdzD
zDYSOjgoOCqk2LANSPBAJ8S/MKtANoX21wD9pGSthpABE7C4Ds7FUyMwuMBw
Wl2JczNUHVPAtmAxJ3YDxVYbti+8j82MkGeGGaqx5yZ/MGx7Tx5DPPXeOwdf
Pf7YfW+206p+Jx5d3MPv8AJeItppRykfwTuYPAgtPIdIjdm+TwPaDfFAMv8z
p1XEoKpq9wx3/OLanpnoQ2EuokVWSizjnjPLuhTNnzbw4xXrvxHg5ziu7IMN
ec4HOVthZAJiW1d5OMTDo5LK3LZ6ZS14WbmrVZCdjjl5ObxmNq+8T9g/u3JI
qHOZSgi/vBfz8Bg2SNFxlRM+5uKm4UE+BxbKr9Lf6rXPKdOEz695I95TpUnU
F/ZPsWEigIAPQFhZTgGyykFCpxd2FoRLOgj2P161/hsigATA+86JtaA9X83s
odzs8LsZoDYb6GO/QJ6G9UPEj0IojuepvjFbBtTSkZQUIRwAw3MdV/Qe8+1t
IL75V3kelKU/aIwn0Rx5ctkOj906EXxht/z9fiEPKgCATYc0AcCL67tnLgkL
uprnuKIX4htuBaCJKj3Da0zmApofcluJrh7m0soSPl/13dnsQJM/e9WHexdh
u5kctrNqHcHr/c+8DkPLgTO2U7B7dvWwSKz6VlzKu+fFtaP3fQ8u5snHkLbd
r80ryHjhvuNWbLSKhIVbZPOpNBsX3pq5M3tDLcgUJsrxeFSoI0/JNuw9VREX
Q4wTot7cw4YrsXLJwJIKDHUrSLRENbqsjdQCGm+8dk3DZYQUZDfUUDY+qZTg
YCu2f0HgAMwXhD+6tv217xkRW2f/FRjM8DxCFuwOMu3r81tKhoIVYamnUucV
QnEQd0jcx6cIxbOcLUyPB1/cc6aM0xeC+N+2fMfwxOeWLVviGAaG6n7//h2f
/+IpmWWIUWq0ACQmFuX27rT597Dn/FotBaTZHeqql7XCqrQC18YcBxYH4Ylh
GPK1f3r14ILw4OvlDCIb63KU+a9TPiAOA1lSUlKAubm5qtOVEYZ78Ae/EwMm
km/cPr4a1lxOmBdKkdVQIjV6KqW6clk9U6bfDo8v71/zPuACEjK5Eex94cE5
SywK+bkrBMNtjmD/fC6HC7MMc3JySjQ1Gfet7DzVFDLgtzvg5Ruyj0FmjKbV
58quQt1SNnSojHDqKtWtijLi8xIMO42BeXlWsirPcXkvlCmRDYOoZTNiRdr9
2yd+8qoWX68eYyIUn/ipZCE8M1fDKl5lReEngn2Vu5BNSELx4GjsXiFcNKlU
7pSRlAWusrLzy8qZhkwicQ503rHzlfdJeZQ5POf8ir7YmxNyJ//uCZ4V5RVV
l6fdv316qHlAQAA6vKO9vZkVhYpPD1W5iQAYy7xjA8Lm0NKhcR+fYCo51XWN
ObID1ONqybW2rEbxcqjKXCnTQnwHY/u4Dx7Xgc1s4XFRarnp72AxICHsxd4X
XkcVauEM1MY8hf7xtvecZjaNjIw8P2cO4yl/sfy/DFUaCjUTsd/KT/cvY3PG
fMdlvTDbC4MMW4LjI2I+PJof/ui6MswRyc6OeOKz4uP9SwPjw55je0r4/kj3
raOLzy3pjsodIlw0ibsnR38ULJ5VIjMmPEX+zcYAcIVDb91iJpjrx8XFFWlr
M+HqrzYGKCVNdSVgsaDWRiiD7cIwAYanxSDhwsARDB5ML7bOwJgD1uPlOq7s
LTmzqCuEAOPw8vNng8QbQ/ydMRjKBwJlLQ5Lguo8Cf7txgD9goKCMJ4Kz49J
F8aNVrwxQCkF2NxLXxl0+AyrVAZ+D32OFVWYi0Nwyg+FK8VIJaPZ0oRClsXD
UE8lF5TfQ6UBqqf6Hk1Ufaep4DusR8OrIaqvpOJ4vrLj7GpGjakX6SJ3adGb
TtSp/CmahTqkw5+C//DYavZSgxXOY/aEEZyHvZqUnYetjEWCf9iKXuE8UaX/
D00rKeE=\
\>"]]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.576253956574975*^9, 3.576253956826996*^9}, {
  3.576253988929834*^9, 3.5762540719659357`*^9}, {3.576254161002646*^9, 
  3.57625417943561*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"DELETERIOUS", " ", "MUTATIONS"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.576254490928014*^9, 3.57625451406439*^9}, {
  3.5762546160682507`*^9, 3.576254618930341*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.576255061195744*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Clear", "[", "s12", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "s12", " ", "notation", " ", "is", " ", "used", " ", "earlier", " ", "in", 
    " ", "this", " ", "mathematica", " ", "file", " ", "for", " ", 
    "something", " ", "else"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{
  3.576254492224482*^9, {3.5762550085763063`*^9, 3.576255055459876*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"base", " ", "equations"}], ",", " ", 
    RowBox[{"as", " ", "explained", " ", "in", " ", "S4"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"lethal", " ", "mutations", " ", 
     RowBox[{"(", 
      RowBox[{"basic", " ", "model"}], ")"}]}], ",", " ", 
    RowBox[{"eq", " ", "27", " ", "of", " ", "the", " ", "sup"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"eqa1", "=", 
     RowBox[{"s1", "\[Equal]", 
      RowBox[{"r1", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s1"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", "l"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s1"}], "+", 
         RowBox[{"m", " ", "s2"}]}], ")"}]}]}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqa2", "=", 
     RowBox[{"s2", "==", 
      RowBox[{"r2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s2"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", "l"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s2"}], "+", 
         RowBox[{"m", " ", "s1"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
      "One", " ", "deleterious", " ", "mutations", " ", "lead", " ", "to", 
       " ", "R0"}], "=", "Rd"}], ",", " ", 
     RowBox[{
      RowBox[{"2", " ", "or", " ", "more", " ", "to", " ", "R0"}], "=", 
      RowBox[{
      "0.", " ", "Eq", " ", "28", " ", "and", " ", "29", " ", "of", " ", 
       "the", " ", "sup"}]}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqb1", "=", " ", 
     RowBox[{"s1", "\[Equal]", 
      RowBox[{"r1", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s1"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"l", "-", "1"}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", "s1"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", "s2"}], "+", 
         RowBox[{"l", " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s1d"}], "+", 
         RowBox[{"l", " ", 
          RowBox[{"m", "^", "2"}], " ", "s2d"}]}], ")"}]}]}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqb1d", "=", 
     RowBox[{"s1d", "\[Equal]", 
      RowBox[{"rd", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s1d"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"l", "-", "1"}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", "s1d"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", "s2d"}], "+", 
         RowBox[{"m", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s1"}], "+", 
         RowBox[{
          RowBox[{"m", "^", "2"}], " ", "s2"}]}], ")"}]}]}]}], ";", 
    RowBox[{"eqb2", "=", 
     RowBox[{"s2", "\[Equal]", 
      RowBox[{"r2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s2"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"l", "-", "1"}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", "s2"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", "s1"}], "+", 
         RowBox[{"l", " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s2d"}], "+", 
         RowBox[{"l", " ", 
          RowBox[{"m", "^", "2"}], " ", "s1d"}]}], ")"}]}]}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqb2d", "=", 
     RowBox[{"s2d", "\[Equal]", 
      RowBox[{"rd", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s2d"}], ")"}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "m"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"l", "-", "1"}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", "s2d"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", "s1d"}], "+", 
         RowBox[{"m", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "s2"}], "+", 
         RowBox[{
          RowBox[{"m", "^", "2"}], " ", "s1"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "any", " ", "strictly", " ", "positive", " ", "number", " ", "of", " ", 
      "deleterious", " ", "mutations", " ", "lead", " ", "to", " ", "R0"}], 
     "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Rd", ".", " ", "Eq"}], " ", "30", " ", "of", " ", "the", " ", 
       "sup", " ", "for", " ", "L"}], "=", "4"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqc10", "=", 
     RowBox[{"s10", "\[Equal]", 
      RowBox[{"r1", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s10"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "4"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s10", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s20", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s11", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s21", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "2"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
          RowBox[{"m", " ", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s12", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s22", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "3"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s13", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s23", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "4"}], "]"}], "  ", 
          RowBox[{"m", "^", "4"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s14", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s24", " ", "m"}]}], ")"}]}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqc11", "=", 
     RowBox[{"s11", "\[Equal]", 
      RowBox[{"rd", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s11"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s11", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s21", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s10", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s20", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", " ", "2"}], "m", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s11", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s21", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "2"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s13", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s23", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "3"}], "]"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s14", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s24", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s13", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s23", " ", "m"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqc12", "=", 
     RowBox[{"s12", "\[Equal]", 
      RowBox[{"rd", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s12"}], ")"}], " ", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s11", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s21", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"m", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s10", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s20", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s13", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s23", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"m", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s11", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s21", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"m", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s14", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s24", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s13", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s23", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"m", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqc13", "=", 
     RowBox[{"s13", "\[Equal]", 
      RowBox[{"rd", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s13"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s13", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s23", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s14", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s24", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", " ", "2"}], "m", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s13", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s23", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "2"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s11", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s21", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "3"}], "]"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s10", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s20", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s11", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s21", " ", "m"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqc14", "=", 
     RowBox[{"s14", "\[Equal]", 
      RowBox[{"rd", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s14"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "4"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s14", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s24", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s13", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s23", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "2"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
          RowBox[{"m", " ", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s12", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s22", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "3"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s11", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s21", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "4"}], "]"}], "  ", 
          RowBox[{"m", "^", "4"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s10", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s20", " ", "m"}]}], ")"}]}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqc20", "=", 
     RowBox[{"s20", "\[Equal]", 
      RowBox[{"r2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s20"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "4"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s20", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s10", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s21", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s11", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "2"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
          RowBox[{"m", " ", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s22", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s12", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "3"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s23", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s13", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "4"}], "]"}], "  ", 
          RowBox[{"m", "^", "4"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s24", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s14", " ", "m"}]}], ")"}]}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqc21", "=", 
     RowBox[{"s21", "\[Equal]", 
      RowBox[{"rd", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s21"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s21", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s11", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s20", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s10", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", " ", "2"}], "m", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s21", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s11", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "2"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s23", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s13", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "3"}], "]"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s24", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s14", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s23", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s13", " ", "m"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqc22", "=", 
     RowBox[{"s22", "\[Equal]", 
      RowBox[{"rd", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s22"}], ")"}], " ", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s21", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s11", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"m", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s20", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s10", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s23", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s13", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"m", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s21", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s11", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"m", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s24", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s14", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s23", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s13", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"m", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqc23", "=", 
     RowBox[{"s23", "\[Equal]", 
      RowBox[{"rd", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s23"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s23", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s13", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s24", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s14", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", " ", "2"}], "m", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s23", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s13", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "2"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s21", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s11", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "3"}], "]"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s20", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s10", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s21", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s11", " ", "m"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqc24", "=", 
     RowBox[{"s24", "\[Equal]", " ", 
      RowBox[{"rd", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s24"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "4"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s24", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s14", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s23", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s13", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "2"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
          RowBox[{"m", " ", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s22", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s12", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "3"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s21", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s11", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "4"}], "]"}], "  ", 
          RowBox[{"m", "^", "4"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s20", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s10", " ", "m"}]}], ")"}]}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"R0", "=", 
      RowBox[{"Rj", " ", 
       RowBox[{"alpha", "^", "i"}]}]}], ",", " ", 
     RowBox[{
     "with", " ", "j", " ", "the", " ", "type", " ", "at", " ", "the", " ", 
      "adaptive", " ", "site"}], ",", " ", 
     RowBox[{
      RowBox[{
      "and", " ", "i", " ", "the", " ", "number", " ", "of", " ", 
       "deleterious", " ", 
       RowBox[{"mutations", ".", " ", "Eq"}], " ", "30", " ", "of", " ", 
       "the", " ", "sup", " ", "for", " ", "L"}], "=", "4"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqd10", "=", 
     RowBox[{"s10", "\[Equal]", 
      RowBox[{"r1", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s10"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "4"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s10", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s20", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s11", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s21", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "2"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
          RowBox[{"m", " ", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s12", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s22", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "3"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s13", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s23", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "4"}], "]"}], "  ", 
          RowBox[{"m", "^", "4"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s14", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s24", " ", "m"}]}], ")"}]}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqd11", "=", 
     RowBox[{"s11", "\[Equal]", 
      RowBox[{"a", " ", "r1", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s11"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s11", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s21", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s10", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s20", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", " ", "2"}], "m", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s11", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s21", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "2"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s13", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s23", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "3"}], "]"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s14", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s24", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s13", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s23", " ", "m"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqd12", "=", 
     RowBox[{"s12", "\[Equal]", 
      RowBox[{
       RowBox[{"a", "^", "2"}], " ", "r1", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s12"}], ")"}], " ", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s11", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s21", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"m", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s10", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s20", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s13", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s23", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"m", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s11", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s21", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"m", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s14", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s24", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s13", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s23", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"m", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqd13", "=", 
     RowBox[{"s13", "\[Equal]", 
      RowBox[{
       RowBox[{"a", "^", "3"}], " ", "r1", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s13"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s13", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s23", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s14", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s24", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", " ", "2"}], "m", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s13", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s23", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "2"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s11", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s21", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s12", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s22", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "3"}], "]"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s10", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s20", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s11", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s21", " ", "m"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqd14", "=", 
     RowBox[{"s14", "\[Equal]", 
      RowBox[{
       RowBox[{"a", "^", "4"}], " ", "r1", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s14"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "4"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s14", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s24", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s13", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s23", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "2"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
          RowBox[{"m", " ", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s12", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s22", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "3"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s11", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s21", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "4"}], "]"}], "  ", 
          RowBox[{"m", "^", "4"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s10", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s20", " ", "m"}]}], ")"}]}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqd20", "=", 
     RowBox[{"s20", "\[Equal]", 
      RowBox[{"r2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s20"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "4"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s20", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s10", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s21", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s11", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "2"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
          RowBox[{"m", " ", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s22", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s12", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "3"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s23", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s13", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "4"}], "]"}], "  ", 
          RowBox[{"m", "^", "4"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s24", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s14", " ", "m"}]}], ")"}]}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqd21", "=", 
     RowBox[{"s21", "\[Equal]", 
      RowBox[{"a", " ", "r2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s21"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s21", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s11", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s20", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s10", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", " ", "2"}], "m", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s21", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s11", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "2"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s23", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s13", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "3"}], "]"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s24", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s14", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s23", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s13", " ", "m"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqd22", "=", 
     RowBox[{"s22", "\[Equal]", 
      RowBox[{
       RowBox[{"a", "^", "2"}], " ", "r2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s22"}], ")"}], " ", 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s21", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s11", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"m", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s20", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s10", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s23", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s13", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"m", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s21", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s11", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"m", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s24", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s14", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], " ", "m", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s23", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s13", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"m", "^", "2"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqd23", "=", 
     RowBox[{"s23", "\[Equal]", 
      RowBox[{
       RowBox[{"a", "^", "3"}], " ", "r2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s23"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s23", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s13", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s24", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s14", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", " ", "2"}], "m", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s23", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s13", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "2"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s21", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s11", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s22", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s12", " ", "m"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"3", ",", "3"}], "]"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s20", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s10", " ", "m"}]}], ")"}]}], "+", 
            RowBox[{"m", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"s21", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}], "+", 
               RowBox[{"s11", " ", "m"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqd24", "=", 
     RowBox[{"s24", "\[Equal]", 
      RowBox[{
       RowBox[{"a", "^", "4"}], " ", "r2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s24"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "0"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "4"}], "  ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s24", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s14", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "1"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "3"}], " ", "m", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s23", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s13", " ", "m"}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "2"}], "]"}], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], " ", 
          RowBox[{"m", " ", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s22", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s12", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "3"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], " ", 
          RowBox[{"m", "^", "3"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s21", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s11", " ", "m"}]}], ")"}]}], "+", "\[IndentingNewLine]", 
         
         RowBox[{
          RowBox[{"Binomial", "[", 
           RowBox[{"4", ",", "4"}], "]"}], "  ", 
          RowBox[{"m", "^", "4"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s20", " ", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], "+", 
            RowBox[{"s10", " ", "m"}]}], ")"}]}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Lists", " ", "with", " ", "the", " ", "numerical", " ", "results", " ", 
     "for", " ", "given", " ", "parameters"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ll", "=", "4"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rdl", "=", 
     RowBox[{"8", "/", "10"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a", "=", 
     RowBox[{"4", "/", "10"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"i1min", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"i1max", "=", "6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pas1", "=", 
     RowBox[{"5", "/", "100000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"i2min", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"i2max", "=", "14"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pas2", "=", 
     RowBox[{"2", "/", "10000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"i3min", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"i3max", "=", "28"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pas3", "=", 
     RowBox[{"1", "/", "1000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"i4min", "=", "5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"i4max", "=", "23"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pas4", "=", 
     RowBox[{"5", "/", "1000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"i5min", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"i5max", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pas5", "=", 
     RowBox[{"115", "/", "1000"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"9", "/", "10"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solar09", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"105", "/", "100"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solar105", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r1l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"10", "/", "9"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solarc", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r1l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solarc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solarc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solarc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solarc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solarc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solarc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solarc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solarc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solarc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solarc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"12", "/", "10"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solar12", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r1l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa1", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"eqa2", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
            RowBox[{"m", "\[Rule]", "ml"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", "\[GreaterEqual]", "0"}], ",", 
           RowBox[{"s1", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1"}], "}"}], ",", "Reals"}], "]"}]}], ";", 
      RowBox[{"solar12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solar12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"12", "/", "10"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solbr12", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r1l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"10", "/", "9"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solbrc", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r1l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"105", "/", "100"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solbr105", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r1l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"9", "/", "10"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solbr09", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb1d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqb2d", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{"s2", ">", "0"}], ",", 
           RowBox[{"s1", ">", "0"}], ",", 
           RowBox[{"s1", "<", "1"}], ",", 
           RowBox[{"s1d", ">", "0"}], ",", 
           RowBox[{"s2d", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s2", ",", "s1", ",", "s1d", ",", "s2d"}], "}"}], ",", 
         "Reals"}], "]"}]}], ";", 
      RowBox[{"solbr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solbr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"s1", "/.", "soln"}], ")"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"12", "/", "10"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solcr12", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r1l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"10", "/", "9"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solcrc", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r1l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"105", "/", "100"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solcr105", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r1l"}]}]}], "}"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"9", "/", "10"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"solcr09", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", "  ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqc20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqc24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      RowBox[{"solcr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"solcr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"12", "/", "10"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"soldr12", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r1l"}]}]}], "}"}], "}"}]}], ";"}], "\n", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\n", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"10", "/", "9"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"soldrc", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r1l"}]}]}], "}"}], "}"}]}], ";"}], "\n", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldrc", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldrc", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"105", "/", "100"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"soldr105", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1", "-", 
         RowBox[{"1", "/", "r1l"}]}]}], "}"}], "}"}]}], ";"}], "\n", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr105", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr105", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", 
     RowBox[{"9", "/", "10"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"soldr09", "=", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "}"}]}], ";"}], "\n", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i1min"}], ",", 
     RowBox[{"i", "<", "i1max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i2min"}], ",", 
     RowBox[{"i", "<", "i2max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas2"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i3min"}], ",", 
     RowBox[{"i", "<", "i3max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas3"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i4min"}], ",", 
     RowBox[{"i", "<", "i4max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas4"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "i5min"}], ",", 
     RowBox[{"i", "<", "i5max"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ml", "=", 
       RowBox[{"i", " ", "pas5"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"NSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd10", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"eqd20", "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
                    RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
                    RowBox[{"rd", "\[Rule]", "rdl"}]}], "/.", 
                   RowBox[{"s11", "\[Rule]", "0"}]}], "/.", 
                  RowBox[{"s21", "\[Rule]", "0"}]}], "/.", 
                 RowBox[{"s12", "\[Rule]", "0"}]}], "/.", 
                RowBox[{"s22", "\[Rule]", "0"}]}], "/.", 
               RowBox[{"s13", "\[Rule]", "0"}]}], "/.", 
              RowBox[{"s23", "\[Rule]", "0"}]}], "/.", 
             RowBox[{"s14", "\[Rule]", "0"}]}], "/.", 
            RowBox[{"s24", "\[Rule]", "0"}]}], ",", 
           RowBox[{"s10", ">", "0"}], ",", 
           RowBox[{"s20", ">", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s10", ",", "s20"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp1", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s10", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp2", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"s20", "/.", 
         RowBox[{"soln", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soln", "=", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd10", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd20", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd11", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd21", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd12", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd22", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd13", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd23", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd14", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"eqd24", "/.", 
                RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
               RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], "/.", 
             RowBox[{"m", "\[Rule]", "ml"}]}], "/.", 
            RowBox[{"rd", "\[Rule]", "rdl"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"s10", ",", "temp1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s20", ",", "temp2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s21", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s12", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s22", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s13", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s23", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s14", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"s24", ",", "0"}], "}"}]}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"soldr09", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"soldr09", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ml", ",", 
            RowBox[{"(", 
             RowBox[{"s10", "/.", "soln"}], ")"}]}], "}"}], "}"}]}], "]"}]}], 
      ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", "Figure", " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "solar09", ",", "solar105", ",", "solarc", ",", "solar12", ",", 
       "solbr09", ",", "solbr105", ",", "solbrc", ",", "solbr12", ",", 
       "solcr09", ",", "solcr105", ",", "solcrc", ",", "solcr12", ",", 
       "soldr09", ",", "soldr105", ",", "soldrc", ",", "soldr12"}], "}"}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Purple", ",", "Red", ",", "Orange", ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", "Blue"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", "Purple"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", "Red"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", "Orange"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dotted", ",", "Blue"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dotted", ",", "Purple"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dotted", ",", "Red"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dotted", ",", "Orange"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"DotDashed", ",", "Blue"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"DotDashed", ",", "Purple"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"DotDashed", ",", "Red"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"DotDashed", ",", "Orange"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.576254875212803*^9, 3.576254987517692*^9}, {
   3.5762551521415367`*^9, 3.576255374072114*^9}, {3.576255439593178*^9, 
   3.5762554515804977`*^9}, {3.576255657302063*^9, 3.576255674592532*^9}, {
   3.576258375130423*^9, 3.57625846031036*^9}, {3.576258565826222*^9, 
   3.5762585753291273`*^9}, {3.576258605980403*^9, 3.576258763173053*^9}, 
   3.576258824205271*^9, {3.576258868139022*^9, 3.576258909592476*^9}, {
   3.5762590392067127`*^9, 3.5762591051267443`*^9}, {3.5762591778314857`*^9, 
   3.576259295293138*^9}, {3.576259335038581*^9, 3.576259404030224*^9}, {
   3.5762594451371717`*^9, 3.576259458655798*^9}, {3.576259668314741*^9, 
   3.576259703027937*^9}, {3.5762598388838663`*^9, 3.576259892274963*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJxlkGdM01EUxbHRgsgHN6Y1CAqkoga0agQCJyoOEAKlAQ1KKFgDSpCqhOlo
kWHAisVWRlto+2eEoQKCFAQxDjQQUaimkqJSMSojWhdGAiLj+UVv8vLy3r3n
nN97dhGxgUdoZmZmnlNrev+3NuxcOfx2qyV0zqO9xQc2YPbMwKsYumyC7YHw
TUEuThVrcDNNy+zv3EX6Tujj80rtR3wxXvGlxy/CBSxbL2fJBIf03fCNe1el
Cz9E9DuR2frZpHzPJ30f1C678VTCiyb6ABwwlXYc7BaQeS6sOfo435en8KhZ
K6abgsH42nOrrj2e6ENQ77Y7dFKZhNzOc3vbzoRic0wHWxR2mvjxUBOX7X7U
6hycj1NzWuZFIEPItPnQIyT+h7GNRb3fvzwV0lF6WL7vESjktxPGA85j7Oyx
lrgrUYh0UC/IupZO/ARQSIb6LJZlI2Xp9T3G5DjwZAXpH405ZD4R9ScCjQnW
uUgadNxoUX0aVfR3mxdaSIleiH0Jq5sEHTK4v/EX5x1PRc5gg081P4/4pQGu
v0dLDflo9raircvMwKfz96ND2YXE/wJuNRr49rFyuNY/jr9TnIX+l1/mPpQo
SN5FNDjyJ5RKJbQ26cMc7SV4MzkljdIikn8Z2W1L6M8Ti6F4YFtzMkqCnidb
K1sdVIQnF8Yoo46WqYLh10wghE2uYd39KsInxXpTN6OGrQbT+ZU9XSSD3/Yy
H2uhmvBeRYrXpPZkuxoh/BlHHItdHL3GXEP48+FnvcNKtEODwoKZQsWcJBtD
ooa8pxBNXYaxpEoNert+cgdK5aisKqgq1v8/P/u+Ipj3Blic3U1hhDN9o4bI
jjEq0lKEtwTikEgHhZGCpZ4SeFiWwz85bdV4F0X8KiAK9w3yzqKw9lDOvR+s
aoSXKb91Mijifx3ZrZto9hkalEyp9VQN4vscr7U9U5O8Wnw3RSqcfqvAnqmb
iP3w87XXor//VY+iuuYh3Yoi3P/BmkpoQC2zLIYxICc8jUhZFfxAmVaAwNlA
+Dt4zl9hlkf4miDU3eG+2C+FMXnasBnztnWVt4slhLcFYXYZdXZ7xDgxjSdo
hZ7bd9dlSyb+AKs81CI=
      "]]}, 
    {RGBColor[0.5, 0, 0.5], LineBox[CompressedData["
1:eJxlkntQjFEYxtdS1GAisYSYSCRtlHWZelyaUUZodzSoXLrMNMasjdCF0lW6
KJViyaVW7W7f1nfYzbaTanQRDUMzrCaX6UJMLhVpMjXZ6uxf3jnfnDnnfZ/f
85yZb2ngCWEIl8PhuBu+sd1YvOSjhiWH4/aFPR3rzbFCveTEmQTjeQEO1Ffc
uCeT4+jaffxVClv0zu1OWNhg7K9CvkYd0tklx7Cir8U7kI9Wld2XSVMUtL8J
mQP109gABdVvBwcVWWnPjf2dKBaGDWpclVS/F27CR00O+Uo6L4JqRu0pbb8S
T3TaDNNeX/BiCcP1KqX6gzigkFhclZYiuznWs+Z8ALpeqPd1dZdS3hHU7W/T
i5wZOImLJlWZBCJMumZkw1mG8oPg8vXl8/eVDHL/mB6+tisErWaFv+OHGPyN
OVYVnhMKi7aojaUSFeVJULD7vlffyTJEzynb0R4VDq862chDz3I6H4EkTc0X
0XA5Ir/aOU9jziHfHbZ+O1mqv4DRUdIYksZi88c9GfnieIiSSLB1HUt5iYgt
MRv80M9C5zWd63AxGahx4TdaE8pPQW+i4HuZO8FGddOZ6tupYFoc87z9CfVL
h0nKR0vBaQLt4qQeH+1lnJ8u7u6+RKh/FhK3Bfk+lRLcrF/Cngy9gliZt4er
nNA82dA8qF0UeZ+gbWjcED8EWfPeVhKaLxcanlVvejWBtdP7ZaZxV2Ftkyps
riU0bx7IHr9ftYbzweBxIlqyh07nVRvzX0PFq2B7iY5Aen280BmRXCBWG98j
xecFbo7lDEHri0FR570bmOrsd3hX0f/zE++7BVt9xifXGIJvPmM3d7H68jH5
oJ0xrwyBhXOy9RoW5voiiZt5CQSZXLHaiaU8BZp0t/rM+eVY6Z/5eMDe8F8I
PFNVHSrKL0NHvHfmimgGMoNaX8Ti9aHjyuPDSupHYJrI4zSHKrBuvB4gzXLY
xupxCfVXI2B+hm+NWTHqBuwNDhrMzH3H/N4io3kewiR5uUdxaCGEE4Zw+JnT
kBd3h+arhA937+xGXgHao8aAOrTzJ4fNsrxO81Yhom91z5v+XISNxZM8wv4N
W58RbRb+AfSg3ww=
      "]]}, 
    {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJxlk3tQTGEYxtMoO+lC04hy6SIqk1aNKOqJiI2QFVqpRCahNuWSaCNdGCW1
aTcis6W2mp3V1p5zEnYkGYQYuSRdVk2JoZlSrmO3zukf78yZM+/3vs/veb6Z
c6zDYzZH6Oro6HhpHu2bqQKxtig4+czs73IzgIXpkwDReG+BLeX7Two1/S6X
QLaj1BbKlb+sssbnjmgPHvBO1fS/pQMv/MPZaHUlOxPG5x4o7t49uHZc7wP/
vTaN3SJm7oc4pz+qYBGj3wRbK712WT6zz8U0XRuztksUGmvJTP1vWzE19iqn
N4/R86B3sDy0WUgh57Fg7d2TO0G6vHIS5zK8MMydLkjxzqHgHC2ZUKcXDuXk
VfYPsxn+blj6hb5nX6Ag/K4fKlofAaKJFZSYSeFnUlRdfG4krGs/xJBnGR4f
3+ao10UnUUg0k63pPB6P7b1TUir4zP4xzOS9c5eFUUjom7eIVXkCgUsKUys2
MPpkvDcYmdXsQWFZ+8bM/OjTWO0WUulrx/DOgK86/HKhMYVajqHugvQ07Gv0
1SkbIml+BgI/sU2bWkm4Vz88cufaObAEluoaFUn7nUdYSKfyaDEJcnZqfwCZ
hWen3fPt0knaPxtBUy2KnkeSuHLfSn4o8iJSlt5ABoek8+RAzpt0gOdAovXH
qCE+fzVq5rJIOp8Q1AHTYUEPAUvntrn6p/KQ3LxiT189Qee9hMccX0pcRIC3
Z5QIxQzjR+ITBJ1fhICWDYqBbQTGvjsxzi72/VLmQtD3KUBKt03wA0MCb58O
c9Ull2GSdjBkU4/yv/2x+12FWj6BqIpR4nOA9uQ6JA2Bt7YV1dB5i7G8N9tB
8KAaBq8lfE+DUpjv5XilqxU0T4pHXYr02JEqOARfuDdkXwljaWbhX70qmi/D
YEPfIpXhTRRr1K8lcijOzPC0M5LTfjfR8ZF8M9FEBtfRUmB/xxUP9kgF7V+N
O+XcCKcWKeqH7DUONajkRJ3zkZbSeQhkbSwzKoktweYxQ3jVzLONc5aA+S/r
OC1CVVcROo9rgbVI++PydL55IZ23Djv2WbBecEWI1cbj34ZJH8wiEnPxDxsy
2Ag=
      "]]}, 
    {RGBColor[1, 0.5, 0], LineBox[CompressedData["
1:eJxlj3kw1GEYxzExtfWnZisbmVIWDSXRYb+JnWqjstKhwz1WpnKFylFNhylK
USRTCmkbFVlhW+zx29bRGNoxKmEsYxybamodzVJs7++vnpl33nnf5/l+v5/H
OuQ0P9zEyMiIM3vmbrr8DaXEWk/WqGYjA00lzDP5fPq9DK613LHevUoEr/d3
shOuRIq2TWrjQ/ftcCv4uTaKp4Re+OODT4gTLD0UMa930P3N4HvrmOmg9Z5Q
MZLUwg10nwfqQYRFO5vW78Owu3Z02pKe90Og0NrDyVwJlbgm0+z7Adh7MpmC
BbQ+AGK/tsiSGQp3WtJ2NqQcgxHHy2XoJ0X8guAjOn7GaZiC46kiY4lpCJrG
/tik9lDEPxQcjX57u5pCzrhZYJ53OKLirRrZTRR+p56QxGcLcJihmhqppP2i
IVHVhdunUThv/nJH37l4WHsNZ3zj0fNJGNl2xcGFSeHs8Op188uSMZjY83Wq
X0H0FxCfWS/YUqHAlt69mbmnLsHfS2kzkaogfpeR4VVWaOejgHjXIhP7a1cx
4RbHU1soiH86tDGxN8ZG5Ngkakyof3Qd34v5yrNiOcnLgF46tD/2uhw1lldG
fWtuwtZOl90RICf5WbAxfve50F6OAmpFeazgNrLDJRfb9TLCcwfLB0SasFYZ
uqYMgVh53i/gUKGM8OWg6YPzLmGsDBaO3avMLt7FptMz5v5cGeG9BzdVKPvw
EhkCwgyOsOLOTL4elRL+PCTvYc0ENkiRf99QqE2Ne3ssW0r2yccl73qJMEKK
T60Tfv0lD7DwEDfXY+v/8//2e4ilrrsPxiQ2QOs79/MYk1TjkENHHeEtxrzP
2idf3CVgdBZFuzNKUVWj/vX0lZj4CVFdNZ4wZFsL9tFbcp1tGZyTuV2Oz6qJ
/0ucVB9pc3N4g+JZdWdROUojVhcMVopIXgWCull9HE4lnA1VicWaN81hzRUk
X4TWeby3OQfLodDZziZUQZowaOzR/ILwVEPAymV+HHgO/r9AUJGmGzqmSwlf
LViWWXlu5iXoOzdnKMbNuKPsJWueEF4JdBmM965RDxEzhxddh7E9kS26lDz8
BX/J5Gg=
      "]]}, 
    {RGBColor[0, 0, 1], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxlj38s1GEcxy+LTJZ0NSnS9VNhqJZoei9WqlHdFZmdCmeTy3Uhc3KRkETp
ujonh+/dfenW1Yi4dNTkR81SXW2iqdAPoqZGV+mXH0//1Gd79ux5Pp/3+/36
sMIPcSJNGAzGhrEzfv9bLr52Az1rLfAkxZRJBbtg8j0PzqbOfJM13ghbFei2
UrMYW5seuvS1biL9laCs9Xkeg/74oflkCAh3A2da9BHVTzbpe+GAT9xcu3Au
0fsimPPak/mOR/rboMja+6QwjE/0O6H2aMwLMgjJ/C7Ig+2rP3TEoaVWl2s2
FARFtyLG/X4C0YcgIKOCJ6NEkLSmbLktDsXuPb8zY3nJxG8/UqOYbOOsFLgK
VFP0puHQrfbVO7SnEv8I7AwITC+dnwbpF7N9+f6RqJzlmJm55wS+H4vWx5+P
QqE588Sv6gziJ4RAcU6Q6ngaR2df8+tOise0MMNV7ZQ8Mp8Idk5TwyJ3CUT9
y9zNtcnotab5Emcp0aeiP/Jzp2z0Ata/3JErE6QhQOdw0EktI37p4HqUbp/t
JEftVksTp5OZYLEsbdZKC4h/FkbLeF3NPZfgWXUvob44GyHZPYwEWwXJy8HT
mPe5WV5F0C3IGGDrzqDN/tSRj37FJD8PYVVtQRpWCQobF5bHRp3DgBceM2Ul
hEcCtjFa9GwqheffJgIhaNouyeBThE8KscanL7+VwnzXriVmxy9gXWnCjrSl
SsJ7EQfv9GhpkRIhvAlHREx/ruTeUxL+fARS3GGjtQoF8olCPavi6p0gFdmn
AOm2OvtvF1XoaDPu6qUvodlFe7nL8P/85H5FKPLJtqEFagyyx38oOEivTK1z
pgmvGjmNIuMoRcOiXSX0tijDDOnGev9OmvhpsD/0EfgvaKzgnm0YcdTiu3x5
/HAVTfyvIUUst7OMoKEeU7eryvHzxb7a5sG/eRVILqu3EgaqsXqiKhHj603d
KlaR/CpEiUst3j1Q4u6I41jCDbw5Zv7W0E0RnhrMPGSFOV0l4EwGwrTwOsMq
rZjw3cTQdL/NSnsFupPGDWtRc8XB5NWZAsKrh9AssUXcLsPhcTxhHYRbOMdH
vkrxB4HszN0=
      "]]}, 
    {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxlkHtQTGEYxleUphBiJCJkpUabeys8xhq3IrUjMyUlt2pMWjVF7Lp2pRRL
N5Zqae+dc6RSW01hVBIxY1XTNMlQrZJmKpJL5du/vHPOfPOd932e5/eeBYEn
vI4YsVisjSPv6Gkoq9iDI48My3hz9R/WmKHwXcLDqEuGuzVeBcblKKQyHFyx
19lBvggHnJpLlzwz9B1Q0x3BGfwow7D825tdgc6Y+IWfZjtBTvrrUG3+u2PY
T070PCx5Ejl1Vb2hvxNbM+JON61REP0eFCxu6etKV5B5PsRDr6M4/Qo8LylO
Mun1hhu3VrjLXUn0PohheSfWS5S4/uLc9gqhH/wsZ/uyu5XELwC3kmeFFK1V
gROaO05rHIi9pls83olUxP8QtO49/LoqFcQDJv7p7kfAv2IqaByvxpAoRBtx
IwiF1D5vS5Ga+IXhhy7zV3CCBmdmaLa1RUeA1y7InxSST+ZPIautjD15JoXT
nezlpqqzsE4SfnUIooj+PMStb9WVFAXXVo+ktNCLEFzjfk/ppYjfZcy/K6vR
29Mo2THJyDEuFlZs8blGH5r4x+Nz0R9Lxzga3ILqyPK7iZgefHVPgoYmeVfR
6jJBImqgUTwvRu9ZnAxJKvNT2EuT/BQE90otOswZ3H5qS50MSoVVj33HFDuG
8FzHevOKBhcug+YfY4EQ7Wi5lOPGED4xVqzvaTjvy2AOp8XO5MJNtDq7sYyC
GcJ7CwKf2re7Ixj4HB5zxECp6/ErQobwpyP5xvt+3WUGmRljhdcVaes8Exmy
TyYqZ7CtpyUzaKwf5Lffz8Ky1Lxup5T/5//tJ0GRdCY3NonBF8/RL9mwee9/
ryXUwCvFpwcB4ZmrGJjpcsM2mOUh73nht4ntNPGTY7H7QocNQhpL91+r6rdX
wbRKqYs3Nvw/DcIqXSfTQgrSEbUul4K6i1e7uj6f5NHYZBNdVh2jwcqxeoic
OrFWv0hN8gvQZfeyZq5CiSf99iMJj9DG7pOlz1YQniLY7CwvPxYug9e/QLy6
wyo8VvyA8D3GQJm6yatTirboUcMS8Eu86p6Z5BJeLThHLQZ507IhGMULK4Pt
xkObI6dL8BebeN0E
      "]]}, 
    {RGBColor[1, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxlU30s1GEcx+oyrFReWqwU81Y3FUOSz7Ckdp3SjiUmIi/LJVMp6TB05Z3r
7pIpnQrJdEf3+x2ywmoLqbxMMZ3WZFSXUrppdcfvd//03Z49+zzf7+fl2Z5n
U/Sp4FgDPT09H83S7nRVXNcWCaa/9fSEuxFuJ1nNiHV4PfqeJH0UanDUDs42
5zpbpB335pfr+s5wO+g0XKTBC3XfXh+I3obXyp4Bvq7vBYUy9i9Xx/fHREi1
1EvX3w+ORSh/VkzzD8LXu3OVSEzPH0aCL7ffUYOfKYhChioE7N8P9teKaH4Y
Ogas5801uOwFL7AjIwJTPoasFCGtdwx2Q0Oy9mskXLgS/bbl0WC7xInmBbT+
cSw8iTtiq8GCn4xIMSsWPwtqQ33KSagvJballsfDIUSQEFBK6yXjVebqrRH5
JNLNGvcqL6TC2DA01y6Hnk/Dg5HRBXk6ifNT9tsNGy7Cw6rsDTOF5mdiZX/0
HnEciV3jQYUibjbc1c5nGOG0Xg5Y7F9WuUEkFPtMDLZczsOAxS2TjX60Ph/1
qkrRmCuJnc3Pzz6+eRX5EynDz+1ovwKYmrdOT5qRIDbkTh8iiqBav87Bdxnt
X4IX+/a4vp0lUNll05QSX4qq3SIm8Z6g8pSB+fJ++3gvgXe/Fw0x1iJ24CgI
Kp8A7kJhmPVdAlYuY3aMrGswnZ9a8CwlqLxCJNyvOtOYTiAsZlERJ47yf/Bi
CSq/GGY8ZVoTm8DSu7sOy8i+IT8PgrpPBerV6tadGwmM9P06/OHODSjNeDIR
4//5pftVYfBHkNSVlGPmkPakGvOFqZy1TDmVtwYm9gHS3vJHMBqWJO82uoeg
TqdZ+y8tlF4donYdUXZ5t8ApvPjpnGMDzhkXfHfLbKb0G8GRJ6erCBlqNOxh
SRMMx8X9kZNSyu8hPncPPh01lsJ1sWRI2mxR0mz/kPJvht9VrwwnzyZ0zjlq
HFrQbSBhf8pspPLIoW9Z7HmF14DgJUPYFLsU5J2sB/0vTbPbo2wDa6G8oBVU
IIsriRGuuUvlbQNrRcZXox4JTmvjJbcjUR31pzq1Gv8AQibdEw==
      "]]}, 
    {RGBColor[1, 0.5, 0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxlj3swlFEYximW6KImXahkQqImlWmm7fIoGpdJWHQxKXZpSOO2ppBKcumq
VsJiugw7bElyGXbbxX77rQwqWxNTyqWaJM2UWquaIrbz/dU7c86Zc973+T3P
sebGcMKn6enpbZtcUydTgbpSYY3rkuG3G03wzlMoK+QwdwtkW4+bDvioELo+
0MlBvAJ5bRM77L2ZvgP8rCxCY71U+C0eeebNdULLYGu4xJ3pszGry6ZLCEbv
isH4g9fUzkzfCy7LRccXOjB6X3RS6tAoK2beHypzudPj+So8kjZcZn3dAz7X
TbnFhNEHQdrj/UMyQSOn/bRH08lgpJR2VLqN0oQXAnUWrXr9icba6BJ9mSEX
ZpHeS9L6acLnYXtcnsC5i0aulnWoYFc4TCc+Gmjaafw6dUSWcC0CYnceT1jP
8GKRIA7wF2TQODG/0n0gOQF+710N6gKY+UREC818R21oJA3ZrTOuSAHbsuO8
q1ZJ9KloarmdKWhVYnOfz+X86DSwbReXqIuUhJcOttt9lTZGCannzGmOWZlY
/CfpkMZNSfjnMNQYGNVoocSm2tZjjTcv4Lnj7yjPEYr4XcJSI6/IC60UGpZl
DPs1ZEMz+9PnY7co4n8V+Q7Z4wZJFIrp5VXxEQKo93VbOXIokicHj4xZHv2O
FHp+6gyhtz+rz5JFkXy5qK6IefiiXwHLtW9sWGeuI6PzyyKWTEHy5qHa92mB
KF+BoDAdEdp0DfseX0HyFyBjkX7QAl8FCoW6Qk+ocdmr1Qryn0LMEfNsNTMU
ePlkzP+dqAi9iWV2wYPN/83/+98NdKY5V7mcacZnv6mX2/jQe2cnq76J5C1F
5lHtbh6/ESbdJbFbTcog/nZrXOgsJzwx2s/GB+398RCrDlyhRu0rQIW4cNpk
UsKvRMz+kbD0VAlKJ9XdJVXgrgiex93RQPweQPDeamWSfj026KoGw9+3hJnK
64h/LZKHVoWlJNRCOWo/6VAHvnD6kOfKGpKnHkaFh8cMXzwA558h5obkenFO
VpF8EpjPTp3cKzGQPAWU4sDFvnJJ4l2SV4aKYoOv1qJyxE3Fi5VDbs4vT6ZF
+AvWPN2R
      "]]}, 
    {RGBColor[0, 0, 1], Dashing[{0, Small}], LineBox[CompressedData["
1:eJxlj3tI01EUx9Wa2BKidEbTdKXkfExbSmXpvvSwzCydopXZS6dUmq1S0VVa
WmZabq2tOedj228zXCMKF+kwhd5iFCxBpNSWSklGZS8zzXzcv+rA5XLvOd/v
93OWJB+NTbWzsbHhTZ6p+9/ibHD78HYlHZGlNCfNTg5m3kw0GPzT7YLDcGBF
/HLfek/0cy2c9+3hpO+L7d6PJauGojBW/8WyLXk5RlfnZVPjfNJfgyCT4yK3
5CSi3wBT0LxQp3cC0o/EPsr5ddWBdKKPAW0guzrBIiTzccjoiOn42HUCT8yN
l+0/J0CSssjIbcsh+kS4adO7FJo8SNsLIlpP74HgT0vMCcEp4rcfJX8WKEcW
FCAwk7JtpiXjhgvdzOo8Q/xTIP62f/y6ayFkP+z3VUSlgjNXRpXsKMJo/uHm
rKsHYbv4cbHd3fPETwgPD1NtObsMJ51vbraKslD+tILRaish87lwWSpiRnKl
yBtcxnUwnoKJ/crjtb+M6M9gV9+RJMaYHGt7oy8rMgvRE14SPqxTEL9zsBrK
PHj+Spi3ONr5XSiGU+uE6I28kviXoKvXuNFpQIUQ09OcltpSdMgDCi66VZO8
S2CNZWvLeDVodD//gd9YjqGTCS8ct9WSfAkMDgM53V5qVD1k3Tp+8ApmpzHF
NJWa8Egh1Y2ZNXM0ePVrOhAT3InEdcc0hE+Go+MuoSkWDVwDu73sz8qhds5a
mMvREt5rcLc+q+ov1CJRMO0IVcBe1qyXWsJfga0Kw4SXO4VK5XRhWby4/aqA
IvtUook/sl5aR6Hr+c+4Pr0KvUk07z39/8/P7FcDhiCfXVWswxB/6kcDw7C8
aH6snvDqELE79Wt/px70TkoYRr8O13PdtoOedcSvHl6z8wIbeHXwSRLf/842
QkTvwe2AOuJ/E/nRCxWWET10k+pO6hZkPhXGb2o9ybsNZUcRz89Xj6DpaoBn
U9vvL9d0JN8E641YffQghQff2ZMJd8ApZRR9WkoRnrswraRCg8O1iJ0JRMZo
/fxNfA3ha0LIRuGjxRFqWEVThmak9Yi3MONrCG8z2n6zJGXDKhybwhPew/3I
Fod7h5T4Cx3mx68=
      "]]}, 
    {RGBColor[0.5, 0, 0.5], Dashing[{0, Small}], LineBox[CompressedData["
1:eJxlknlQjGEcx5OtaUKMkSMhQ6djURNJvpnIUSk1jpBsMjUkm2lKh8rVNa0O
SxclW7a92vd9FSvRWOdkpoaoqeyUNlLtosyWm8qzf/nN+84z7/P7fb/fz/PM
uzDkuP9hQwMDg/Wj79iqr9mpnNGnEss8LAe6nU3Rocq4GXtW/22B7ua06+Ly
SnBW7VzhIFqEvDDVXdvH+r4DVH0J7JGeSvwUDb70CVmBnK7QfCuWiPTXgh14
tO9nkIjoPTCs4k93atT3t6Ft8+yUdmcx0fvhhXuR4UCBmMwHwC1Inc/WifG0
VsEz/rwL0xpWK3y8JUS/FwtPh2kaSyTIe568pf5UEAZcFDobrYT4HcStVmt/
xWop2JGCCXVGIZgl7L/amiQl/ocwmNNr06iUgj9sHFzgfRiD5ur+jokyfE86
Uhd9MRzLf8wvmpUkI35c3C//nBuTUYWEGVWb38ZHw2qTV4T9ETmZP4kzk5rM
7c0pxPXZrDSRJuLY9tK0feEU0adgnYlH2VSagmunLy8/8gzaA2ekGQ9SxO8c
Aqwj5Hx7GrVbJxsuSUvFea/gN8p9NPFPx/sDuwMOpdNwqX4Wc780Exs7e8ys
KJrkZeFq31feuWYaivnnB3YoLkBO5TxnfaFJfg6GZbW+hlMZXHlkRZ0Iz0Wo
cvFQky1DePLQwt9OV7sx6Pg2HogO4Y0urR9D+PiQqz+1UxwGc9mqxcanL2FR
pmDPUi5DeC/D+VdXSkYig72h445w0Lk/1qQyhL8A/alZ/JhsBkWF44Uazhat
x2WGnKcIKXNetkQWM2hrHAlQVxTj2h/HJ2al/8//O18J2gp9vWLLGGh2jO2U
YY0Pq2AKT89bDlPRqx7XYAamrQKum6kQalboRCdLvZ8InvOEXZonNOz3Zyt1
dlJ4TclKyuXo768Kq/gbBEothfJRdauAwu/vr17XR1Akj4ZWYm7NqpfDcbxu
wkRzTVTM0/8f1Rg6FemX7CnDQ53daEINsqcLvcX9EsJzG0NRHy1648Xw/xeI
pYHc4LaRSsJ3B+41C7hGIUK8jR8zrMW7ig9OLXcqCG8dHsxc0lz2R4CoMTzu
PTSsiYuVOV7HX5gO5L8=
      "]]}, 
    {RGBColor[1, 0, 0], Dashing[{0, Small}], LineBox[CompressedData["
1:eJxlU30s1GEcV0m6ZaldLL0pL4nLa2VpfGymVBJR210oJ6MzXLKmzktEneTt
iHNXejnK1dF5//0MWUql9EKxppaX6Y3S27m0trrj97t/+m7Pnn2e7/fz8mzP
s5obtyditp6enodmaXe6JKXaIrHea/nY8CYGpvjLxsU6bIZmdcxosQaHOe91
tJVboPGou7BQ17cFeYPVn6vBf+TfenZxHRFm9PKFUNd3wxym9G+sju8Fsbei
zk3X34GVq6TZ38U03x+cfLlpiZieD0RQUuWgjQbfbyZyDL7uw8OJhKjKEprP
QcLlaFsTDRY9SvW5nRyCKVGvNL6Y1juItwpPVtt5Eg6xslktc7mIfP/Fe6qI
1g+HaYeJn6UGF00aHBD7RqAnb0sFCkn8TuG1JBRGgfeiSuFTQOvx8dmu6Ed4
NgkBs3rb0IkEpGdLnTdk0POJeLdi550+AYnjH62dDBVJ8LdI6gyPp/knkXUx
JHQiksSWt7tzSmLTMd7ad+psMK2XAcbmpbVe/iSaty+YbXfmNG51CsPXetH6
Qrw2MYv33Ehic/2DY22XzsKiXBUmtqb9zuFazwepqykJYmXmWACRi9sZV6VW
82j/fMTulTEPTxK4cNdcGR9VgMK/c40NRwkqjwidEkLfsJfAwNS0IXpsOWMx
7QSVrwiPF1/z86gisMzhjaVB2nms4Zmzk0sJKm8x7LJyBu0zCXAOTSuiu+By
3D4+QeUXozVno5+aQ2Dm3ZVCNo8jZHoT1H0ksOCyfyrtCbx6og4cqZCio0zt
+tT0//mZ+5Vha0CX0a5nTRgP0J5cgcDnueFC/yYqbzlCX3LTXO41gtEv47sz
rmN+pWo01LGR0pODDBSxjEUNWBecd0dlo0ASOyjxxqd6Sr8ak++6JAK3epRr
2P0yJQY8XeTtaXWUXw2WsMOC5O21cJmuOnAaUqM56hrKvx6/1KquCasadKhs
NA4NaMl3HU72VVJ5mhATtHDAqq8ae2YMod/t9DVuThXof5nyWsIbMb+JoRNa
wWa473dOTLeXU3lb4GL8g72ddR1HtPH4rdi6KFLkYFaBf21G2pU=
      "]]}, 
    {RGBColor[1, 0.5, 0], Dashing[{0, Small}], LineBox[CompressedData["
1:eJxlj3dMU1EUxusAtM40TUyKURQHYNSCYCpYPwkqghIErXEhAtaAYGnRaCnu
CA4UhSJQaARTHCUVqxQptYz3+lAQJ0aMOBAZUdGoRCASF9T7/vIkNzf3nvN9
3+9Mi04Mlw7ncDhLBs/QzZbEXnWYGzC5+91CLhJXaaz54exbAJXv7zFtoXWI
8pIIPfSuKFrJCXALYfsesBmco+TBdfip/9YUEi0E13hfWhnI9n0h3idu1oDV
B8CJ16J+4s32g3Fgn1vyJA9WvwaFohRp/FR2fi12j1smesCvw12L+Yzj1/Uo
cJr0ZDGX1W/CY9m1CZY/DLIaD62sORAB7Zr3T5f1MsRvG4T3mn69+shgvkw3
zOoQjXRe8a6jbxniH4OE1dQIn2YG2X2OkXmrpfByrSn63shg4OBO6x51LEyy
S0n5FayfHAUiSVp2KoMUfmlgm2oPgr7cSbauY+eV6E+i+SNnMkj+MMtzlGE/
bnhv1Uf02Yj+MDxTN/Ct9Tb4tYaeyZUdhYv85G2e1kb8jmFM5ux0idwGS9DY
4XOOp4E3UdKjXG4j/ifwuWtJq8LZhkWm+r3VhacgKPxl8emhSd5plDZJpJYG
GuYpqd1h5gzoxiUI+y7SJP8cDP3KV60qGlrGxZgUmwkmLk0tW0cTnixsjvDr
1Myj8fKHPRBxnRZ642ia8GUjTKxRXe6g4Dz/9QzHI+fx0+eDSVlLEd4cDFTH
JDZoKWzabndEV0fJj8xkivDngQrRf2tcTyFfYy9oB8YvVXhTZJ98MC+7+ft5
FF487F/bfqkA5dmxHV1fa/+b/7ffBRjqXZQLMmrxKWzo5yIcFks57W9qCG8x
xF4ONTsM1eA+18nF3CuIjFKWPTpSRfz0aF+RIijYYoX7lrN0r5sBPSVS0L63
iX8ppJ6vey8ILCgeVD/XGfE297SiecBM8m5AWRnpFNRSgQX2KsPMDNroYL5F
8k3ISVyRsFRdDluv22BCOaq0igfB8SbCUwH/vWNFGShD+L9AyPyaY45PuEn4
KsGbLnxDtxjRphoytECguqoz+V8nvFao/d2fddAGKIbw5FU4+NQ1PklUgr8j
kt3w
      "]]}, 
    {RGBColor[0, 0, 1], Dashing[{0, Small, Small, Small}], 
     LineBox[CompressedData["
1:eJxlj30s1HEcx68T46hWMiWpi0rsQjZL0nutGunCURdFeZ5oKCZOxVVoItwd
rvN0D7/WbIjRPMSJlFqFE0lYo1R214qF1ZQ8fPunPtt3332/n8/7/X59mEHR
XqF0Go22b/4s3P8W64CpetSBgWPtyu1SHxaW3iY4Emr97Le9MwJ3Hbe1KjNH
Ouux2ejzQ6RvhSd6Lad3aNiYLZvoORpki4tpbq15vzikvwfn75r2jwX6Ef0B
dFXmSR58DCF9N9QyP7T1BUQSvSfYSRZzhaoYMu+Nhha6pu5NLDoa67N0vnGh
H61m+XTEE/1JULlXDL+WJELwPNm15bI/LDhjzS8CLhG/AIhSA/zNVybDJkqx
rEk7CGerBcHavSnEPxiCD6GtrcZXIZrWOSNmh+JlLFXT5HUNP69ENMUJw6Gy
U42sq0olfjGo8NXSRJncRNLaSpcRXhymG7gdYepsMp+AGy68TWozARLHt9np
ll8CCxM279eIiD4F6ffS1nsO5MHpnUdWQdRVTE87LT+YUED8riOs7KGR9LsY
jYcN6NbpaWBy/fYFekmI/w1sGN71qU9UCMfap/HK0gx8Yo8mtCuLSF4m7jkm
U+k9xag3S1Vz6m/Bv/9zrnlPCcnPAc/okBa3pRRF7ZurLoTnoqq9K1x1VEp4
BMifZQ7trJVi8MdiIFarhlb4GsoInwjuv7dRvZEybLAZttDh5yH6x95WY6WM
8OZjxGjSKJMhx8mQRUe4S68V5HDkhF8M64t1ap5QDsntxYKhpPe2uFtO9pFA
aKfUt9VTYKBzxvv9nULkZGiH850V/80v7VeCJ2ZfjLUeKaDhLPzIMPl2WGB6
miK8FI7NVp/oq6HA6FfEODPuQm1p4lLdTRG/MsxxDdzbmins8Mtum7IsBy2Z
xurkU8S/EnQBe5i+hQI1r+5XVEE4s4ofIf+bVw3rU0kPdusoYL9YNdjYfU4z
5yEn+bXYlMXoes2X4dGU5XzCfcgPbi6PLZYSnjoMVFR0pbiWwmspEFb7HUxe
7SwmfA2o8R5Pe/VVghHegmEjitpeeG7NEhPeJsTrDcZu183H+QW8mGYwXTIk
c4FC/AEVk9M1
      "]]}, 
    {RGBColor[0.5, 0, 0.5], Dashing[{0, Small, Small, Small}], 
     LineBox[CompressedData["
1:eJxlj3lQjGEcx1N5M6tpxjWixpUja9mUEOqLqOSqTWY0rRSZMoaodlLIskQj
R9tBp2arvd7qfbeaVscimprpmtaQHMM6htzEphjZ6tm//OZ55pnn+f2+n+/3
mR1xWBBpaWFh4WXaw6e57M+Fm5YCi70dP7xczsElHl8lOmO+T8e2h14ppcUK
hLsGu3CVTpD3hGXMaDL3ubBaUG/39rUCf5Tf9FsjXNA+7nqejbWS9FehMtkl
VSdUEr03bOM+9anbzX1/VE4V8L64q4g+AHW/OWWSbBWZD0JLHd29ok+F5lpt
GvV1J+Y5yYMrNqmJPgSrbzfWxueqkd6a7HfrhBAipxvVQ+/UhLcHKy9OzGFc
afAPycbUj41AmNCh+VkCTfh7YfFU5tlVRyPDSIVd2xKJpvj1Ra2/aQyePFAf
J41CUp6Y0sSWEV4Mvp+fkrUhoRxJk8t9DYlxCFDxJhgDKsh8Auzv7OKPt2Zw
rHf+0nH0cfikXu3xEzBEfwpU/JBMnslg9fPtadmHTqPTfXe0sZMhPAnuvfgc
n2nJonaTreWilHOIQ8f97CUs4Z/HsrZJjY92sPCoahHpClMxU2A1jSNiid9F
9JfYr9els9DOOPshUHsJdvnbAw+rWeJ/BceEPFfJbRZ592YxR6OuImzwsXiH
niV50hG0WJi4yMDiycCIIY5TVUv9P7EkXwZ+0W9Ceo0sHPjP5lLiTEgjBxWr
/przZkHq8eB9tJUGIftGiBC6i7/mUxqS/xoSH3N9Bmw0yLk+UpDrX7XnmO6j
/8lBQvVkFIzVoKejP+hVSS6MfMMVR8v/50f/VwCdqnRuwBcWHwOHX4rgZHjv
H6U15y2GXZfPjZhoFpxuWYwnR44fG/MDWymW8JRIHl/TnCJlsDD0cuNPZxri
Kt85TyYwhF8OrVv/5k6qAsUmdbeMgTir+YReX0b8WEhEUY3FF2i4jVQlPjr4
6HU8NfGvAnf3UJ9vgxJ3fzqbHKrBbXd847xGQfLUoEnpJZ6mKoVg1BCFzjvb
VDYlJN9NeH/2i90WLIMhcRhYi/1rC5JCpUUkbz3mUV7r+JJCHBmOF9OAjga3
g+F3c/EPGBTZIA==
      "]]}, 
    {RGBColor[1, 0, 0], Dashing[{0, Small, Small, Small}], 
     LineBox[CompressedData["
1:eJxlk3tIU2EYxr1TMxiFRHkJL2WmmXfzgj1ShOa0nKnLZeRtlVleImPZrOxi
F53OeZtmWc0sa8wtpztneKEsM6IEtZaJWRaZGdJFMyWoTc/xn144HN7vfZ/f
83xwjl1SRhTPyMDAYJPu0b/pqq7SFwnXLdbjI74M/BF2ZEoWektYrY6ZKdP1
iZ4x7s4NDug/ZOpXvDB3hv/Vwx4XdP2fhu+9EUnu6Ntq80WwMA+AOUfWGrmg
34IskTFnWkLPw8Bew2cKJLQ+EonedmPDlfT+TkRMvBx00PVPNITQ7FssNI49
/aEVtJ6LGHmQekc5CfGzU6EduXvQmfIq3r+M5iUgXxtdYVZKwi1dathqmoQM
zykXooTmJyPO/dPQdhGJsl9meyXhPHBlTSnPikjMnjzYerT0ACryfBr5BTQv
E0t/GEUK80icsJCHvM85ijesPp/CbHqfjxgTSwvlfhLHxxw9FskEsH/AYm7Y
RetPQznxucY1hETg8A5hZfoZhJ63nezzpnnnMCvUrA+2I6HZtsTI5UI+nj6w
shMuofkXEXAJ9r2/CPiruo+1115GqTbrosM7gvIrhI1A41TaTYBYdX6cTRQh
rXxU5a4gKH8RuPVKBqOSQM0jW8WRAyXwWsnLdsklqDxitK1o/libRGBwZs4Q
G2K7LLNCCCpfGdiVzL7bLgSs3IZWm+WVY3SS84HFJKi8FRgRveak/FCDmzJH
RIBfdMF0v5rKL0FCcE+guVqN+e+uCnHbj9TUSdTUfaohlizmdR9XY+DF9M4P
t64g1+nkcA73//35+13DkIVogDnbgq9s/ckNvH1UHqdit1B56/Dc4SxJXG8G
QyvNDGLchtS72uTdqIriNUArnbGXr1VhXXzxwyknGcJ+j/ByE5oovhyNDNen
BeL7qNOptVIFgppbEozblZSfEoIu68G/Iwp4zVUTGqx6PcWGCspfBaGgNjXf
S47OKSedQzOS993Ld+bIqDxqfFIlO5un30XUvCGiNy73teTfAf1ffgkfY23O
rsf7HD1Qg1OsZZ37eXVU3la0Bf/cnRp6E1n6eJltSOOHPbZddR3/ALL918I=

      "]]}, 
    {RGBColor[1, 0.5, 0], Dashing[{0, Small, Small, Small}], 
     LineBox[CompressedData["
1:eJxlj3kw1GEYx9UI6Z7MUGtEGoMolQwZvhURkTC7ul2ZKVMIJbui1lUGHTpY
Ox1DNSu2ZVfW5tjjtx3TLZOiHJkaO2roIEetWO/vr56Zd9553+f5fr+fxyoq
PiRmpp6enufkmbrpYupKDUcv8/5PLsZQWd3I5oXQ76VIHz3m1B2kRuRappO9
wBpsz49Mm0C6b4/DXzqGDvur8UfwvSUwygl9aSkLJb50fwMyl9ltzAet98K3
lv3rxc503x8lW9ze9tjR+h3gGi62NltGz4fCi9/HYJmo8UgmLTAYZGH78B55
6WxavxuaR3ULNFoKF59mbG0+uQ+8qh9Gnr8o4hcBrKup4GkorI4rm9EwKwrq
usCf2k6K+EdjhdPr7thWCpeGDcKLA2Kg/3wiofMJhbH02IbkooOwT58f/0FC
+yWAbdjs9uEUBY6J0LeHnYxXvg5uxYH0/Ak4TmxaMp9BIVVjs8aoMg3MbhMz
d42K6E+huv6QqblUBfeuoIKrcVwcX/XwblWuivhlQd87y+5rmAoyv7kzV+bm
wHnGZtEbWxXxPwOZxaBzxJgSbpLHx5uu52GXqTiv4JmS5OUjXtoUG3ZdCalF
dn+wtBAczwBOfaKS5J8H10rNvOejBJ+yFCUevIAmlmu+M0NJeC4iNctB6D2o
QMeoLhDj1l0BHWoF4buELr5W+7NUAcbqjysMTl+GUVt/dF6igvBewTi30Ibn
p8DuAzpHaP0fTlhYKQh/Ma54cKUmo3LwSnSFyD85K1Ney8k+PPid7ffZXCHH
+xe/Q3tvlSJpIHReYub/89P7XYNrzEvKZZEcX4Onfm5Cz7WvvbKmifCWg+9w
KOvAjkYYt5UleBjfQfffzIHGkQfETwD7jM/u2wQy2O09pxyyrQSHxTEdD68n
/kKwRoIUcxhSlE+q28pE2ONbK9K+u0/yquGSZHO2oLgW63QlxtV2qvDGTgnJ
l0A84lDkYyaGash2MqEW0UdbXYRvqwlPHV6ksoMti0QImQ6ElJNxZ7hESPjq
EVfIH9hvWIke9pShDJnKFteUIwLC24BUbiuL+fQ2jk7hJTTCo/1L73LLcvwD
XT3hIA==
      "]]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0, 0.115}, {0, 0.16666666666666666`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.0023, 0.0023}, {0.003333333333333333, 
   0.003333333333333333}}]], "Output",
 CellChangeTimes->{3.576259494731607*^9, 3.576259757922654*^9, 
  3.5762600077736053`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.576254486346539*^9, 3.576254488750222*^9}, 
   3.576255662362564*^9}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.576255623500113*^9, 3.576255655653668*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"APPLICATION", " ", "TO", " ", "WITHIN"}], "-", 
    RowBox[{"HOST", " ", "VIRAL", " ", "DYNAMICS"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.576259981116166*^9, 3.576260001137559*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.576259982035614*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"eq32", "=", 
     RowBox[{"0", "\[Equal]", 
      RowBox[{"s1", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"q1", "-", "s1"}], ")"}], " ", "n1", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "m"}], ")"}], "^", "l"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], " ", "s1"}], "+", 
          RowBox[{"m", " ", "s2"}]}], ")"}]}]}]}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"eq", " ", "32", " ", "of", " ", "sup"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq32symetric", "=", 
     RowBox[{"0", "\[Equal]", 
      RowBox[{"s2", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"q2", "-", "s2"}], ")"}], " ", "n2", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "m"}], ")"}], "^", "l"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], " ", "s2"}], "+", 
          RowBox[{"m", " ", "s1"}]}], ")"}]}]}]}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Sol", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"eq32", ",", "eq32symetric"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"s1", ",", "s2"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq33", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"eq32", "/.", 
         RowBox[{"s2", "\[Rule]", "s1"}]}], ")"}], ",", "s1"}], "]"}]}], ";", 
    " ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"as", " ", "R1"}], " ", "=", " ", 
       RowBox[{"N1", " ", "q1"}]}], ",", " ", 
      RowBox[{"this", " ", "result"}], ",", " ", "simplified", ",", " ", 
      RowBox[{"leads", " ", "to", " ", "equation", " ", "33"}]}], " ", "*)"}],
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"s1test", "=", 
     RowBox[{"Simplify", "[", 
      RowBox[{"s1", "/.", 
       RowBox[{
        RowBox[{"Solve", "[", 
         RowBox[{"eq32", ",", "s1"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "this", " ", "is", " ", "how", " ", "we", " ", "obtain", " ", "equation", 
     " ", "34"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq34", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"1", "/", "2"}], " ", 
       RowBox[{"(", 
        RowBox[{"q1", "-", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"n1", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}], "^", 
             RowBox[{"(", 
              RowBox[{"l", "+", "1"}], ")"}]}]}], ")"}]}], "-", 
         RowBox[{"m", " ", 
          RowBox[{"s2", "/", 
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}]}]}], "+", 
         RowBox[{"Sqrt", "[", 
          RowBox[{
           RowBox[{"4", " ", "m", " ", "q1", " ", 
            RowBox[{"s2", "/", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"q1", "-", 
              RowBox[{"1", "/", 
               RowBox[{"(", 
                RowBox[{"n1", " ", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "-", "m"}], ")"}], "^", 
                  RowBox[{"(", 
                   RowBox[{"l", "+", "1"}], ")"}]}]}], ")"}]}], "-", 
              RowBox[{"m", " ", 
               RowBox[{"s2", "/", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}]}]}]}], ")"}], "^", "2"}]}], 
          "]"}]}], ")"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"s1test", "-", "Eq34"}], ",", 
      RowBox[{
       RowBox[{"m", "<", "1"}], "&&", 
       RowBox[{"m", ">", "0"}], "&&", 
       RowBox[{"n1", ">", "1"}], "&&", 
       RowBox[{"l", ">", "0"}]}]}], "]"}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{
     "this", " ", "checks", " ", "that", " ", "equation", " ", "34", " ", 
      "as", " ", "written", " ", "in", " ", "the", " ", 
      RowBox[{"Sup", ".", " ", "is"}], " ", "indeed", " ", "equal", " ", "to",
       " ", "the", " ", "result", " ", "s1test"}], " ", "*)"}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]}]], "Input",
 CellChangeTimes->{
  3.576260007602004*^9, {3.576260760386725*^9, 3.576260812176032*^9}, {
   3.576260866687841*^9, 3.576260887993875*^9}, {3.576260950386971*^9, 
   3.576261192718369*^9}, {3.5762612561004887`*^9, 3.576261403340189*^9}, {
   3.576261449198853*^9, 3.576261593270904*^9}, {3.5762616368598347`*^9, 
   3.576261643098041*^9}, {3.576261930401391*^9, 3.5762620515858507`*^9}, {
   3.576263686993191*^9, 3.576263698543303*^9}, 3.576263750535285*^9, {
   3.576263970167334*^9, 3.576264184544133*^9}, {3.576264325542441*^9, 
   3.5762643664982767`*^9}, {3.5762678916138372`*^9, 3.576267908704547*^9}, {
   3.576268755875602*^9, 3.5762687831224337`*^9}, 3.576268818629987*^9, 
   3.5764161702789803`*^9, {3.57641796179838*^9, 3.5764179847525673`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.576264355296455*^9, 3.576264355369862*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"q1", " ", ">", " ", "q2"}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Eq37", "=", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Expand", "[", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"FullSimplify", "[", 
               RowBox[{
                RowBox[{"Normal", "[", 
                 RowBox[{"Series", "[", 
                  RowBox[{"s1test", ",", 
                   RowBox[{"{", 
                    RowBox[{"s2", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}],
                 ",", 
                RowBox[{
                 RowBox[{"m", "<", "1"}], "&&", 
                 RowBox[{"m", ">", "0"}], "&&", 
                 RowBox[{"n1", ">", "1"}], "&&", 
                 RowBox[{"l", ">", "0"}]}]}], "]"}], ")"}], " ", 
             SqrtBox[
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"1", "-", "m"}], ")"}], 
                   RowBox[{"1", "+", "l"}]], " ", "n1", " ", "q1"}]}], ")"}], 
               "2"]]}], " ", ")"}], "]"}], ")"}], "/.", 
         RowBox[{
          SqrtBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "m"}], ")"}], 
                RowBox[{"1", "+", "l"}]], " ", "n1", " ", "q1"}]}], ")"}], 
            "2"]], "\[Rule]", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "m"}], ")"}], 
              RowBox[{"1", "+", "l"}]], " ", "n1", " ", "q1"}]}], ")"}]}]}], 
        ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "m"}], ")"}], 
           RowBox[{"1", "+", "l"}]], " ", "n1", " ", "q1"}]}], ")"}]}], 
      "]"}]}], " ", ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
      "equation", " ", "37", " ", "is", " ", "a", " ", "series", " ", "of", 
       " ", "s1test", " ", "for", " ", "s2", " ", 
       RowBox[{"small", ".", " ", "As"}], " ", "n1", " ", "q1"}], " ", "=", 
      " ", 
      RowBox[{"R1", " ", "<", " ", 
       RowBox[{
       "1", " ", "in", " ", "the", " ", "regime", " ", "we", " ", "are", " ", 
        "focusing", " ", "on"}]}]}], ",", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], 
          RowBox[{"1", "+", "l"}]], " ", "n1", " ", "q1"}]}], ")"}], ">", 
      "0"}], ",", " ", 
     RowBox[{
     "but", " ", "as", " ", "the", " ", "software", " ", "does", " ", "not", 
      " ", "recognizes", " ", "it", " ", "very", " ", "easily"}], ",", " ", 
     RowBox[{"we", " ", "add", " ", "steps"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq38", "=", 
     RowBox[{"Simplify", "[", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Eq37", "/.", 
         RowBox[{"s2", "\[Rule]", 
          RowBox[{"q2", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"1", "/", 
              RowBox[{"(", 
               RowBox[{"q2", " ", "n2", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"1", "-", "m"}], ")"}], "^", 
                 RowBox[{"(", 
                  RowBox[{"l", "+", "1"}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], 
        ",", "m"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq38asWritten", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"r1", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", "m"}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"l", "+", "1"}], ")"}]}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"r2", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", "m"}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"l", "+", "1"}], ")"}]}]}]}], ")"}]}], "+", 
       RowBox[{"m", " ", 
        RowBox[{"(", 
         RowBox[{"l", "+", "1"}], ")"}], " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "m"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"l", "+", "1"}], ")"}]}], " ", 
        RowBox[{"(", 
         RowBox[{"r2", "-", "r1"}], ")"}]}]}], ")"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Eq38", "-", 
        RowBox[{"(", 
         RowBox[{"n1", " ", "q1", "  ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Eq38asWritten", "/", 
             RowBox[{"(", 
              RowBox[{"1", "-", "m"}], ")"}]}], " ", ")"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "m"}], ")"}], " ", "n2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"1", "-", "m"}], ")"}], 
                  RowBox[{"1", "+", "l"}]], " ", "n1", " ", "q1"}]}], ")"}], 
              "2"]}], ")"}]}]}], ")"}]}], "/.", 
       RowBox[{"r1", "\[Rule]", 
        RowBox[{"n1", " ", "q1"}]}]}], " ", "/.", 
      RowBox[{"r2", "\[Rule]", 
       RowBox[{"n2", " ", "q2"}]}]}], "]"}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"at", " ", "the", " ", "optimum"}], ",", " ", 
     RowBox[{
     "the", " ", "derivative", " ", "of", " ", "equation", " ", "37", " ", 
      "in", " ", "respect", " ", "to", " ", "mu", " ", "has", " ", "to", " ", 
      "be", " ", "equal", " ", "to", " ", "0.", " ", "The", " ", "derivative",
       " ", "is", " ", "a", " ", "product", " ", "of", " ", "several", " ", 
      "expressions"}], ",", " ", 
     RowBox[{
     "only", " ", "one", " ", "of", " ", "them", " ", "that", " ", "can", " ",
       "be", " ", "equal", " ", "to", " ", "zero", " ", "in", " ", "the", " ",
       "regime", " ", "of", " ", 
      RowBox[{"interest", ".", " ", "We"}], " ", "write", " ", "this", " ", 
      "expression", " ", "in", " ", "Eq", " ", "38", " ", "of", " ", 
      RowBox[{"Sup", "."}]}]}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.576262079444109*^9, 3.57626207950222*^9}, 
   3.576264347428213*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"q1", " ", 
    RowBox[{"<<", " ", "q2"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Eq39", "=", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Simplify", "[", 
         RowBox[{
          RowBox[{"Normal", "[", 
           RowBox[{"Series", "[", 
            RowBox[{
             RowBox[{"s1test", "/.", 
              RowBox[{"n1", "\[Rule]", 
               RowBox[{"(", 
                RowBox[{"r1", "/", "q1"}], ")"}]}]}], ",", 
             RowBox[{"{", 
              RowBox[{"q1", ",", "0", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
          
          RowBox[{
           RowBox[{"m", ">", "0"}], "&&", 
           RowBox[{"m", "<", "1"}], "&&", 
           RowBox[{"r1", ">", "0"}], "&&", 
           RowBox[{"s2", ">", "0"}], "&&", 
           RowBox[{"l", ">", "0"}]}]}], "]"}], ")"}], "/.", 
       RowBox[{"s2", "\[Rule]", 
        RowBox[{"q2", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"1", "/", 
            RowBox[{"(", 
             RowBox[{"r2", " ", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "m"}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"l", "+", "1"}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}], 
      "]"}]}], " ", ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
    "Note", " ", "that", " ", "q1", " ", "is", " ", "taken", " ", "very", " ",
      "small", " ", "but", " ", "with", " ", "R1", " ", 
     RowBox[{"constant", ".", " ", "We"}], " ", "obtain", " ", "Equation", 
     " ", "39", " ", "of", " ", 
     RowBox[{"Sup", "."}]}], "  ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq40", "=", 
     RowBox[{"Simplify", "[", 
      RowBox[{"D", "[", 
       RowBox[{"Eq39", ",", "m"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq40AsWritten", "=", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "m"}], ")"}], 
         RowBox[{"l", "+", "1"}]], "  ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"l", "+", "1"}], ")"}], " ", "m"}]}], ")"}], " ", 
        "r2"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"Eq40", "-", 
      RowBox[{"Eq40AsWritten", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"q1", "^", "2"}], " ", "r2"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["m", "2"], " ", "q2", " ", "r1", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "m"}], ")"}], 
               RowBox[{"1", "+", "l"}]], " ", "r2"}]}], ")"}], "2"]}], 
         ")"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "Eq39", " ", "is", " ", "maximum", " ", "when", " ", "its", " ", 
      "derivative", " ", "Eq40", " ", "is", " ", "zero"}], ",", " ", 
     RowBox[{
     "which", " ", "is", " ", "equivalent", " ", "to", " ", "Eq40AsWritten", 
      " ", "equal", " ", "to", " ", "zero"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2CloseTo1", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"alpha", "/.", 
        RowBox[{
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Normal", "[", 
             RowBox[{"Series", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Eq40AsWritten", "/.", 
                 RowBox[{"r2", "\[Rule]", 
                  RowBox[{"(", 
                   RowBox[{"1", "+", "epsilon"}], ")"}]}]}], "/.", 
                RowBox[{"m", "\[Rule]", 
                 RowBox[{"alpha", " ", "epsilon"}]}]}], ",", 
               RowBox[{"{", 
                RowBox[{"epsilon", ",", "0", ",", "1"}], "}"}]}], "]"}], 
             "]"}], "\[Equal]", "0"}], ",", "alpha"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{"r2", "-", "1"}], ")"}]}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"when", " ", "R2"}], " ", "\[Rule]", " ", "1"}], " ", ",", " ", 
     
     RowBox[{"mu", " ", "optimal", " ", "is", " ", "approximately", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"R2", "-", "1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"L", "+", "1"}], ")"}]}], ")"}]}]}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Normal", "[", 
     RowBox[{"Series", "[", 
      RowBox[{"Eq40AsWritten", ",", 
       RowBox[{"{", 
        RowBox[{"r2", ",", "Infinity", ",", "1"}], "}"}]}], "]"}], "]"}], 
    ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"when", " ", "R2"}], " ", "\[Rule]", " ", "Infinity"}], ",", 
     " ", 
     RowBox[{
      RowBox[{
      "mu", " ", "optimal", " ", "is", " ", "approximately", " ", "the", " ", 
       "colution", " ", "of", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "mu", "+", 
         RowBox[{"L", " ", "mu"}]}], ")"}]}], "=", "0"}], ",", " ", 
     RowBox[{
      RowBox[{"i", ".", "e", ".", " ", "mu"}], "=", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"L", "+", "1"}], ")"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Eq41", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"r2", "-", "1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"l", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"r2", "+", "1"}], ")"}]}]}], " ", ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
    "this", " ", "combines", " ", "the", " ", "two", " ", "previous", " ", 
     "results"}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.576261650322937*^9, 3.5762616839314137`*^9}, {
   3.5762617267206984`*^9, 3.576261925786285*^9}, {3.5762620818561153`*^9, 
   3.57626212520268*^9}, {3.5762621590919123`*^9, 3.576262270416334*^9}, {
   3.576262304041587*^9, 3.576262304383844*^9}, {3.576262423659809*^9, 
   3.576262444819166*^9}, {3.5762637913705606`*^9, 3.576263823637011*^9}, {
   3.576263878682399*^9, 3.576263880053192*^9}, {3.576263932510597*^9, 
   3.57626396579182*^9}, {3.576264475239056*^9, 3.576264483012219*^9}, {
   3.576266566569407*^9, 3.57626656706539*^9}, {3.576266649425396*^9, 
   3.576266674569166*^9}, {3.576266706189334*^9, 3.576266817282691*^9}, {
   3.5762668550814047`*^9, 3.576266906069704*^9}, 3.5762674803738213`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Figure", " ", "6", " ", "of", " ", "main", " ", "text"}], " ", 
   "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l0", "=", "0.9"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1lm", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l0", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2lm", "=", "1.2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q1l", "=", "0.0001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "q1", " ", "is", " ", "fixed", " ", "to", " ", "0.0001", " ", "without", 
     " ", "lost", " ", "of", " ", "generality", " ", 
     RowBox[{"(", 
      RowBox[{"See", " ", "Sup", " ", 
       RowBox[{"5.2", ".", " ", "for"}], " ", "an", " ", "explanation"}], 
      ")"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "The", " ", "limits", " ", "for", " ", "high", " ", "or", " ", "low", " ",
      "ratio", " ", 
     RowBox[{"q2", "/", "q1"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Limits", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"m", "/.", 
       RowBox[{
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Eq38asWritten", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1lm"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l0"}]}], ")"}], "\[Equal]", "0"}], 
          ",", "m"}], "]"}], "[", 
        RowBox[{"[", "4", "]"}], "]"}]}], ",", 
      RowBox[{"m", "/.", 
       RowBox[{
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Eq38asWritten", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l0"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2l0"}]}], ")"}], "\[Equal]", "0"}], 
          ",", "m"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ",", 
      RowBox[{"m", "/.", 
       RowBox[{
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"Eq38asWritten", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r1", "\[Rule]", "r1l0"}]}], "/.", 
             RowBox[{"r2", "\[Rule]", "r2lm"}]}], ")"}], "\[Equal]", "0"}], 
          ",", "m"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"Eq41", "/.", 
        RowBox[{"r2", "->", "r2l0"}]}], "/.", 
       RowBox[{"l", "\[Rule]", "ll"}]}], ",", 
      RowBox[{
       RowBox[{"Eq41", "/.", 
        RowBox[{"r2", "->", "r2l0"}]}], "/.", 
       RowBox[{"l", "\[Rule]", "ll"}]}], ",", 
      RowBox[{
       RowBox[{"Eq41", "/.", 
        RowBox[{"r2", "->", "r2lm"}]}], "/.", 
       RowBox[{"l", "\[Rule]", "ll"}]}]}], "}"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "The", " ", "lists", " ", "for", " ", "the", " ", "exact", " ", 
     "solution"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"list1exact", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list2exact", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list3exact", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "0"}], ",", 
     RowBox[{"i", "<", "25"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"rql", "=", 
       RowBox[{"0.01", "*", 
        RowBox[{"1.3", "^", "i"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"list1exact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list1exact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"rql", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"FindRoot", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"D", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"s1", "/.", 
                    RowBox[{"Sol", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"q2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"rq", " ", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"rq", "\[Rule]", "rql"}]}], "/.", 
                    RowBox[{"q1", "\[Rule]", "q1l"}]}], "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1lm"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l0"}]}], ",", "m"}], "]"}], 
                  ")"}], "\[Equal]", "0"}], ",", 
                RowBox[{"{", 
                 RowBox[{"m", ",", 
                  RowBox[{"Limits", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"list2exact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list2exact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"rql", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"FindRoot", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"D", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"s1", "/.", 
                    RowBox[{"Sol", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"q2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"rq", " ", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"rq", "\[Rule]", "rql"}]}], "/.", 
                    RowBox[{"q1", "\[Rule]", "q1l"}]}], "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l0"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l0"}]}], ",", "m"}], "]"}], 
                  ")"}], "\[Equal]", "0"}], ",", 
                RowBox[{"{", 
                 RowBox[{"m", ",", 
                  RowBox[{"Limits", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"list3exact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list3exact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"rql", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"FindRoot", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"D", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"s1", "/.", 
                    RowBox[{"Sol", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"q2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"rq", " ", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"rq", "\[Rule]", "rql"}]}], "/.", 
                    RowBox[{"q1", "\[Rule]", "1"}]}], "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l0"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2lm"}]}], ",", "m"}], "]"}], 
                  ")"}], "\[Equal]", "0"}], ",", 
                RowBox[{"{", 
                 RowBox[{"m", ",", 
                  RowBox[{"Limits", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "]"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "25"}], ",", 
     RowBox[{"i", "<", "54"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"rql", "=", 
       RowBox[{"0.01", "*", 
        RowBox[{"1.3", "^", "i"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"list1exact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list1exact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"rql", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"FindRoot", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"D", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"s1", "/.", 
                    RowBox[{"Sol", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"q2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"rq", " ", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"rq", "\[Rule]", "rql"}]}], "/.", 
                    RowBox[{"q1", "\[Rule]", "q1l"}]}], "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1lm"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l0"}]}], ",", "m"}], "]"}], 
                  ")"}], "\[Equal]", "0"}], ",", 
                RowBox[{"{", 
                 RowBox[{"m", ",", 
                  RowBox[{"Limits", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], "]"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"list2exact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list2exact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"rql", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"FindRoot", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"D", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"s1", "/.", 
                    RowBox[{"Sol", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"q2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"rq", " ", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"rq", "\[Rule]", "rql"}]}], "/.", 
                    RowBox[{"q1", "\[Rule]", "q1l"}]}], "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l0"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2l0"}]}], ",", "m"}], "]"}], 
                  ")"}], "\[Equal]", "0"}], ",", 
                RowBox[{"{", 
                 RowBox[{"m", ",", 
                  RowBox[{"Limits", "[", 
                   RowBox[{"[", "5", "]"}], "]"}]}], "}"}]}], "]"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"list3exact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list3exact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"rql", ",", 
            RowBox[{"Re", "[", 
             RowBox[{"m", "/.", 
              RowBox[{"FindRoot", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"D", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"s1", "/.", 
                    RowBox[{"Sol", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"q2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"rq", " ", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"rq", "\[Rule]", "rql"}]}], "/.", 
                    RowBox[{"q1", "\[Rule]", "1"}]}], "/.", 
                    RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l0"}]}], "/.", 
                    RowBox[{"r2", "\[Rule]", "r2lm"}]}], ",", "m"}], "]"}], 
                  ")"}], "\[Equal]", "0"}], ",", 
                RowBox[{"{", 
                 RowBox[{"m", ",", 
                  RowBox[{"Limits", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], "}"}]}], "]"}]}], 
             "]"}]}], "}"}], "}"}]}], "]"}]}], ";"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"list1exact", ",", "list2exact", ",", "list3exact"}], "}"}], 
       ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Purple", ",", "Blue", ",", "Red"}], "}"}]}], ",", 
       RowBox[{"Joined", "->", "True"}]}], "]"}], ",", 
     RowBox[{"LogLogPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Limits", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Limits", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", 
         RowBox[{"Limits", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "0.01", ",", "100"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Dashed", ",", "Purple"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Dashed", ",", "Blue"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Dashed", ",", "Red"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
     RowBox[{"LogLogPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Limits", "[", 
          RowBox[{"[", "4", "]"}], "]"}], ",", 
         RowBox[{"Limits", "[", 
          RowBox[{"[", "5", "]"}], "]"}], ",", 
         RowBox[{"Limits", "[", 
          RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "1", ",", "10000"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Dotted", ",", "Purple"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Dotted", ",", "Blue"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Dotted", ",", "Red"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5762645052339163`*^9, 3.576264513387629*^9}, {
   3.576264597415103*^9, 3.5762646445071297`*^9}, {3.576264679942083*^9, 
   3.57626473451155*^9}, {3.576264882262471*^9, 3.576264900121155*^9}, {
   3.57626500673213*^9, 3.5762650877018547`*^9}, {3.5762665492340317`*^9, 
   3.576266700851252*^9}, {3.5762667848811502`*^9, 3.576266786424273*^9}, {
   3.5762669869086*^9, 3.5762670115315733`*^9}, {3.576267055904625*^9, 
   3.576267268830011*^9}, {3.576267309709873*^9, 3.576267477592886*^9}, {
   3.5762676661670094`*^9, 3.576267674044471*^9}, {3.5762679370954647`*^9, 
   3.576267958151104*^9}, {3.576267997437347*^9, 3.57626799832827*^9}, {
   3.576268090379287*^9, 3.576268125532339*^9}, {3.5762681605324287`*^9, 
   3.576268225947762*^9}, {3.5762682563186283`*^9, 3.576268338925222*^9}, {
   3.576268372880506*^9, 3.576268500831455*^9}, {3.576268554389892*^9, 
   3.5762685644241877`*^9}, {3.576268602961338*^9, 3.576268608071066*^9}, {
   3.576268661297102*^9, 3.576268685932352*^9}, {3.5763478553483458`*^9, 
   3.5763479462267933`*^9}, {3.5763482196901073`*^9, 3.576348232831932*^9}, {
   3.576348305294488*^9, 3.5763484032953672`*^9}, {3.576348455624524*^9, 
   3.576348637442032*^9}, {3.576348776810487*^9, 3.576348795730611*^9}, {
   3.576348825816183*^9, 3.5763489060264883`*^9}, {3.576348961801299*^9, 
   3.576348979571145*^9}, {3.576349093908718*^9, 3.576349164117189*^9}, {
   3.57634940112827*^9, 3.5763494050691967`*^9}, {3.576350512020977*^9, 
   3.576350512231308*^9}, {3.576350789647053*^9, 3.576350877410448*^9}, {
   3.576350937860622*^9, 3.576350946835273*^9}, {3.5763529489787197`*^9, 
   3.576352974849388*^9}, {3.576353089110586*^9, 3.57635310982685*^9}, {
   3.5763534436966887`*^9, 3.576353456940298*^9}, {3.576353650991469*^9, 
   3.5763536952232847`*^9}, 3.576417278444783*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.05715190652203154`", ",", "0.03140495153907545`", ",", 
   "0.006237036552601854`", ",", 
   FractionBox["9", "121"], ",", 
   FractionBox["9", "121"], ",", "0.008264462809917354`"}], "}"}]], "Output",
 CellChangeTimes->{3.576349200980419*^9, 3.576349446651794*^9, 
  3.576353110350389*^9, 3.576417198199277*^9, 3.576417279736579*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindRoot", "::", "lstol"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The line search decreased the step size to within \
tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find \
a sufficient decrease in the merit function. You may need more than \
\[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \
meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/lstol\\\", ButtonNote -> \
\\\"FindRoot::lstol\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5763491762079487`*^9, 3.576349406315607*^9, 
  3.576353116395145*^9, 3.576417199132332*^9, 3.576417280706676*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindRoot", "::", "lstol"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The line search decreased the step size to within \
tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find \
a sufficient decrease in the merit function. You may need more than \
\[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \
meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/lstol\\\", ButtonNote -> \
\\\"FindRoot::lstol\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5763491762079487`*^9, 3.576349406315607*^9, 
  3.576353116395145*^9, 3.576417199132332*^9, 3.57641728236353*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindRoot", "::", "lstol"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The line search decreased the step size to within \
tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find \
a sufficient decrease in the merit function. You may need more than \
\[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \
meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/lstol\\\", ButtonNote -> \
\\\"FindRoot::lstol\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5763491762079487`*^9, 3.576349406315607*^9, 
  3.576353116395145*^9, 3.576417199132332*^9, 3.576417282667602*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(FindRoot \
:: lstol\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5763491762079487`*^9, 3.576349406315607*^9, 
  3.576353116395145*^9, 3.576417199132332*^9, 3.57641728275413*^9}],

Cell[BoxData[
 GraphicsBox[{{{{}, {{}, {}, 
      {RGBColor[0.5, 0, 0.5], LineBox[CompressedData["
1:eJwBcQOO/CFib1JlAgAAADYAAAACAAAAFVW1u7FrEsAMqNwMCOQGwHg594MI
XxHAZ5FcHP/jBsDaHTlMX1IQwHYFAX7z4wbAeAT2KGyLDsCtyoRk5OMGwD3N
ebkZcgzAL8pfxdDjBsABlv1Jx1gKwKjjpEa34wbAxV6B2nQ/CMAVhI8nluMG
wIonBWsiJgbAvvJQImvjBsBO8Ij7zwwEwA+oO0Uz4wbAE7kMjH3zAcCZ8gfB
6uIGwK4DITlWtP+/CllpqYziBsA3lShasYH7v+HYr6QS4gbAviYwewxP97+w
wLyGdOEGwEe4N5xnHPO/A9pZ06fgBsCek356hdPtv0SnPCSf3wbAsLaNvDtu
5b9UQCFwSd4GwI2zOf3jEdq/tDEdM5HcBsBm868CoY7Cvyici31b2gbAoAAn
6gsNvj9atxb4htcGwAZ6a3bWTdg/Ztfl+erTBsD0mSb5NIzkPx+fFuNWzwbA
4nYXt37x7D9FlzoJkskGwOgphDpkq/I/HQUgolzCBsBfmHwZCd72P0+yRDFy
uQbA2gZ1+K0Q+z/tflv8ja4GwFF1bddSQ/8/DsDC2nGhBsDk8TLb+7oBQFAe
HTzvkQbAICmvSk7UA0CmuMmB8X8GwFxgK7qg7QVAMqxl54drBsCXl6cp8wYI
QKCmM5PsVAbA084jmUUgCkDaoERthjwGwA8GoAiYOQxAWFD9ReQiBsBIPRx4
6lIOQLivCG+xCAbAQjrMcx42EEDX1U+dpe4FwN9ViqvHQhFAA8EBD3PVBcB9
cUjjcE8SQBxasiu2vQXAGo0GGxpcE0CskXs46acFwLioxFLDaBRALLF2nV2U
BcBWxIKKbHUVQMDZU/w6gwXA9N9AwhWCFkCd0YFCg3QFwJL7/vm+jhdA4YFa
JRpoBcAwF70xaJsYQD/ZEy/OXQXAzjJ7aRGoGUCKRzeuYVUFwGxOOaG6tBpA
NAfGVZJOBcAJavfYY8EbQA+uevUeSQXAp4W1EA3OHEAO2WY3y0QFwEWhc0i2
2h1AGCfHp2FBBcDjvDGAX+ceQLW1nXK0PgXAg9jvtwj0H0AnUeVEnTwFwBD6
1vdYgCBA7j50rfw6BcDfB7aTrQYhQDnhNUG5OQXArhWVLwKNIUAsOhSvvjgF
wH0jdMtWEyJANCCR3vw3BcBMMVNnq5kiQCDytiRnNwXAGNmR1A==
        "]]}, 
      {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwBcQOO/CFib1JlAgAAADYAAAACAAAAFVW1u7FrEsCD+IqMDKoLwHg594MI
XxHAvSWL+feoC8DaHTlMX1IQwKyAQ1WRpwvAeAT2KGyLDsCauaKewKULwD3N
ebkZcgzA9bRnC2ejC8ABlv1Jx1gKwJeueEVdoAvAxV6B2nQ/CMDc+1JOcZwL
wIonBWsiJgbAp7ErCWSXC8BO8Ij7zwwEwJURdnvmkAvAE7kMjH3zAcCIbWjt
logLwK4DITlWtP+/2biBPP59C8A3lShasYH7vymhVeuNcAvAviYwewxP97+A
2NHBn18LwEe4N5xnHPO/aLCYG3hKC8Cek356hdPtv2q/gzJMMAvAsLaNvDtu
5b8cZUmaTRALwI2zOf3jEdq/okFehbvpCsBm868CoY7CvyBHhSP5uwrAoAAn
6gsNvj8U2MWVpoYKwAZ6a3bWTdg/esyTHbhJCsD0mSb5NIzkP6jVhTyGBQrA
4nYXt37x7D/nXA4+0roJwOgphDpkq/I/DtEENb1qCcBfmHwZCd72P4krLeyy
FgnA2gZ1+K0Q+z+LblctTcAIwFF1bddSQ/8/Bkyp9TRpCMDk8TLb+7oBQLX2
EYMGEwjAICmvSk7UA0ANp/5OO78HwFxgK7qg7QVAQq0f/BpvB8CXl6cp8wYI
QJmUjqyyIwfA084jmUUgCkC9psRk0d0GwA8GoAiYOQxAUlmU+QeeBsBIPRx4
6lIOQNmQJVGrZAbAQjrMcx42EEBy7sw62DEGwN9ViqvHQhFADC3OmngFBsB9
cUjjcE8SQNcKlPRJ3wXAGo0GGxpcE0CypGVm5b4FwLioxFLDaBRAVVNX7cij
BcBWxIKKbHUVQA7Dm2ZhjQXA9N9AwhWCFkCm9IpwFHsFwJL7/vm+jhdA0FkZ
N0lsBcAwF70xaJsYQBxKzGlvYAXAzjJ7aRGoGUDb2Dv8A1cFwGxOOaG6tBpA
mOHzu5NPBcAJavfYY8EbQAMrmxS8SQXAp4W1EA3OHEDJu0KAKkUFwEWhc0i2
2h1AJEa/IptBBcDjvDGAX+ceQF2SGvrWPgXAg9jvtwj0H0A+tT/xsTwFwBD6
1vdYgCBA0g+rBQk7BcDfB7aTrQYhQIvAcJzAOQXArhWVLwKNIUCH5/8PwzgF
wH0jdMtWEyJAE75ReP83BcBMMVNnq5kiQJbb1bFoNwXAI8KPuQ==
        "]]}, 
      {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwBcQOO/CFib1JlAgAAADYAAAACAAAAFVW1u7FrEsBWPvYxz0sUwHg594MI
XxHAjHxgCspLFMDaHTlMX1IQwI/Wd1fDSxTAeAT2KGyLDsAUDf+iuksUwD3N
ebkZcgzAncKBU69LFMABlv1Jx1gKwBO0+KGgSxTAxV6B2nQ/CMAG41mMjUsU
wIonBWsiJgbAej5uxHRLFMBO8Ij7zwwEwNowyJlUSxTAE7kMjH3zAcAqOLTd
KksUwK4DITlWtP+/PsSxv/RKFMA3lShasYH7v7QtzKCuShTAviYwewxP978w
Uy7cU0oUwEe4N5xnHPO/VcZLg95JFMCek356hdPtv8olnQxHSRTAsLaNvDtu
5b8NfhD1g0gUwI2zOf3jEdq/AO6vVolHFMBm868CoY7Cv73U8HpIRhTAoAAn
6gsNvj+YFlF1r0QUwAZ6a3bWTdg/RpWn26hCFMD0mSb5NIzkP6zphLwbQBTA
4nYXt37x7D8rolL/6zwUwOgphDpkq/I/JPoeYfs4FMBfmHwZCd72P2A32zwr
NBTA2gZ1+K0Q+z8FkzI1Xy4UwFF1bddSQ/8/QObmooAnFMDk8TLb+7oBQGRG
P2GCHxTAICmvSk7UA0DAtjhIZBYUwFxgK7qg7QVArIwafjUMFMCXl6cp8wYI
QF5lO+kUARTA084jmUUgCkDKaW50L/UTwA8GoAiYOQxA4sdGabzoE8BIPRx4
6lIOQFUgAZ/42xPAQjrMcx42EEAuGIxyIc8TwN9ViqvHQhFABwhkYXDCE8B9
cUjjcE8SQCKGg9AXthPAGo0GGxpcE0DNr5MrQaoTwLioxFLDaBRAgVO0Pgyf
E8BWxIKKbHUVQHSkpIOPlBPA9N9AwhWCFkAflR8P2YoTwJL7/vm+jhdAaiTk
0u+BE8AwF70xaJsYQDfdtvnUeRPAzjJ7aRGoGUAGji01hXITwGxOOaG6tBpA
Csg65flrE8AJavfYY8EbQNuryg0qZhPAp4W1EA3OHEDjFH0XC2ETwEWhc0i2
2h1Acqd8XpFcE8DjvDGAX+ceQBHMjZawWBPAg9jvtwj0H0Ap7VoOXFUTwBD6
1vdYgCBAPhzU3YZSE8DfB7aTrQYhQCWWywskUBPArhWVLwKNIUBAoyO1Jk4T
wH0jdMtWEyJAmhqqO4JME8BMMVNnq5kiQOBPD30qSxPAreCEaw==
        
        "]]}}, {}}, {}}, {{}, {}, 
    {RGBColor[0.5, 0, 0.5], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7SspsX5jttCB/I87e8uesh2o+8u6RJEfwV//8POM
iZsE4XzJWfKq918KwPm/2RaUVOoh+JvPTlzc+JYPzm/IbV70Oo4Xzrctk9N4
/4obzueMj/x0NpwLzj+v+/Q62xkOOL81VcrlZhQ7nO9V+/5L2ylWOJ/hX67O
uRAWOH9Dim19/jMmOD9/9RqxNxGMcL7Ntq5MljP/98P4O6/+1nu+/A+cr3WQ
T7tu0k84v6auxMRj0zc4/81vyeMnJn+G8228hdJrVn2A88O2TlE4y/oazpfN
8XjAeeUJnO/Z61waKXkPzr/g9NWvcuJFOD/p/4nyqZXb4Xw9X7VHZenb7GH8
b6lsq9y4L8H5Ch/N0x4vvwvnv7Dd+u+S3FM4P/w1111vn9dwfnNVbMD69g9w
vs3+rxpNyz/D+aJG1l8UJ32D83/euNfBm/cTzt+/32mKU8cfOH/pleBJLrn/
4fxtUyYxe3gwOsDD81qgech+Jjh/seEBfzZ9Fjifd22f8t29rHB++/7NBVJG
7HD+p48WlTVHOeD8ZLvctJZALjj/ieKPM58OccP5oaqP37UG88L51/ardNWf
5IPz9XZxtfLLCMD5mSqbF318hODr3GL72zZHEM7fW8kfJsMiBOf7QfILnA8A
FWrDsw==
      "]]}, 
    {RGBColor[0, 0, 1], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7SspsX5jttCBb4eLmjet5z5Q95d1iSI/gr/+4ecZ
EzcJwvmSs+RV778UgPN/sy0oqdRD8Defnbi48S0fnN+Q27zodRwvnG9bJqfx
/hU3nM8ZH/npbDgXnH9e9+l1tjMccH5rqpTLzSh2ON+r9v2XtlOscD7Dv1yd
cyEscP6GFNv6/GdMcH7+6jVibyIY4XybbV2ZLGf+74fxd179rfd8+R84X+sg
n3bdpJ9wfk1diYnHpm9w/pvfksdPTP4M59t4C6XXrPoA54dtnaJwlvU1nC+b
4/GA88oTON+z17k0UvIenH/B6atf5cSLcH7S/xPlUyu3w/l6vmqPytK32cP4
31LZVrlxX4LzFT6apz1efhfOf2G79d8luadwfvhrrrvePq/h/Oaq2ID17R/g
fJv9XzWaln+G80WNrL8oTvoG5/+8ca+DN+8nnL9/v9MUp44/cP7SK8GTXHL/
w/nbpkxi9vBgdICH57VA85D9THD+YsMD/mz6LHA+79o+5bt7WeH89v2bC6SM
2OH8Tx8tKmuOcsD5yXa5aS2BXHD+E8UfZz4d4obzQ1Ufv2sN5oXzr+1X6ao/
yQfn6+3iauWXEYDzM1U2L/r4CMHXucX2t22OIJy/t5I/TIZFCM73g+QXOB8A
h4zHjw==
      "]]}, 
    {RGBColor[1, 0, 0], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7SspsX5jttABzUW3lkv5ixyo+8u6RJEfwV//8POM
iZsE4XzJWfKq918KwPm/2RaUVOoh+JvPTlzc+JYPzm/IbV70Oo4Xzrctk9N4
/4obzueMj/x0NpwLzj+v+/Q62xkOOL81VcrlZhQ7nO9V+/5L2ylWOJ/hX67O
uRAWOH9Dim19/jMmOD9/9RqxNxGMcL7Ntq5MljP/98P4O6/+1nu+/A+cr3WQ
T7tu0k84v6auxMRj0zc4/81vyeMnJn+G8228hdJrVn2A88O2TlE4y/oazpfN
8XjAeeUJnO/Z61waKXkPzr/g9NWvcuJFOD/p/4nyqZXb4Xw9X7VHZenb7GH8
b6lsq9y4L8H5Ch/N0x4vvwvnv7Dd+u+S3FM4P/w1111vn9dwfnNVbMD69g9w
vs3+rxpNyz/D+aJG1l8UJ32D83/euNfBm/cTzt+/32mKU8cfOH/pleBJLrn/
4fxtUyYxe3gwOsDD81qgech+Jjh/seEBfzZ9Fjifd22f8t29rHB++/7NBVJG
7HD+p48WlTVHOeD8ZLvctJZALjj/ieKPM58OccP5oaqP37UG88L51/ardNWf
5IPz9XZxtfLLCMD5mSqbF318hODr3GL72zZHEM7fW8kfJsMiBOf7QfILnA8A
3ReDGw==
      "]]}}, {{}, {}, 
    {RGBColor[0.5, 0, 0.5], Dashing[{0, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvWzOrAnlVp12vdmBX+6cZDlw+enV16wq2+1h/JM5
ehEsKsfh/NProzM1ZW/A+TcLVlkcevkQzn9UmOzfvvw5nL/u05zg+w/fwvn3
0mfMe3HjI5zvNk2JS/v/Fzh/5w8u+51iP+B8n84FaSI/f8H5ByO/seyU/Afn
a6354zW1icEBxq9y1f3x+QMjnL/7396E8jpmOJ/Hf6lT4kcWON9v/5v7+c1s
cP5Uz8eJKnwccP6bLINY+zpOON9kzV3hel5uOL+n5aGzahMPnH+1xlX/gygf
nK/cH/E/YRE/nO8ok6gi0yUA579gOKY2K0gQzhc3vJZ6mlcIzvd8Zzvd/yiC
X7w7VC2tRxjOV70i8UnfTQTOv/CnW7qHXxTOr90UZm59FcHftPlM/9xeMTj/
wZFPrpNCxeH8aYpHLKwEJOB8f+63sqbHEXwG1mMJh3ol4XxLL68HTO5ScH7W
/Lq9V/mlEf53iLsefRrBv5879bFJswycP2V1je8CL1k4/6IJ/5d9LHJwPtu5
wB/55xB8uy+v3xVPkYfz/2+SmDhVTQHOv108OXJXF4JffSv5gMULBH8Oe8KC
B86KcP4uG5P1gcsR/DnicTEyLEpwfnr6I47n5gi+0fa0rRuzEXwA4R+n6Q==

      "]]}, 
    {RGBColor[0, 0, 1], Dashing[{0, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvWzOrAnlVp12vdmBX+6cZDlw+enV16wq2+1h/JM5
ehEsKsfh/NProzM1ZW/A+TcLVlkcevkQzn9UmOzfvvw5nL/u05zg+w/fwvn3
0mfMe3HjI5zvNk2JS/v/Fzh/5w8u+51iP+B8n84FaSI/f8H5ByO/seyU/Afn
a6354zW1icEBxq9y1f3x+QMjnL/7396E8jpmOJ/Hf6lT4kcWON9v/5v7+c1s
cP5Uz8eJKnwccP6bLINY+zpOON9kzV3hel5uOL+n5aGzahMPnH+1xlX/gygf
nK/cH/E/YRE/nO8ok6gi0yUA579gOKY2K0gQzhc3vJZ6mlcIzvd8Zzvd/yiC
X7w7VC2tRxjOV70i8UnfTQTOv/CnW7qHXxTOr90UZm59FcHftPlM/9xeMTj/
wZFPrpNCxeH8aYpHLKwEJOB8f+63sqbHEXwG1mMJh3ol4XxLL68HTO5ScH7W
/Lq9V/mlEf53iLsefRrBv5879bFJswycP2V1je8CL1k4/6IJ/5d9LHJwPtu5
wB/55xB8uy+v3xVPkYfz/2+SmDhVTQHOv108OXJXF4JffSv5gMULBH8Oe8KC
B86KcP4uG5P1gcsR/DnicTEyLEpwfnr6I47n5gi+0fa0rRuzEXwA4R+n6Q==

      "]]}, 
    {RGBColor[1, 0, 0], Dashing[{0, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvWzOrAnlVp12Pub12x/rCR+4/PTqa1aV7fYw/skc
vQgWleNw/un10Zmasjfg/JsFqywOvXwI5z8qTPZvX/4czl/3aU7w/Ydv4fx7
6TPmvbjxEc53m6bEpf3/C5y/8weX/U6xH3C+T+eCNJGfv+D8g5HfWHZK/oPz
tdb88ZraxOAA41e56v74/IERzt/9b29CeR0znM/jv9Qp8SMLnO+3/839/GY2
OH+q5+NEFT4OOP9NlkGsfR0nnG+y5q5wPS83nN/T8tBZtYkHzr9a46r/QZQP
zlfuj/ifsIgfzneUSVSR6RKA818wHFObFSQI54sbXks9zSsE53u+s53ufxTB
L94dqpbWIwznq16R+KTvJgLnX/jTLd3DLwrn124KM7e+iuBv2nymf26vGJz/
4Mgn10mh4nD+NMUjFlYCEnC+P/dbWdPjCD4D67GEQ72ScL6ll9cDJncpOD9r
ft3eq/zSCP87xF2PPo3g38+d+tikWQbOn7K6xneBlyycf9GE/8s+Fjk4n+1c
4I/8cwi+3ZfX74qnyMP5/zdJTJyqpgDn3y6eHLmrC8GvvpV8wOIFgj+HPWHB
A2dFOH+Xjcn6wOUI/hzxuBgZFiU4Pz39EcdzcwTfaHva1o3ZCD4ABhVyFQ==

      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{-4.605170185988091, -5.074032574324141},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], NumberForm[
         #, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.912023005428146, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.506557897319982, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.030\"", 0.03, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.203972804325936, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.300\"", 0.30000000000000004`, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.199705077879927, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.015\"", 0.015, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.897119984885881, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.150\"", 0.15000000000000002`, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.659260036932778, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.070\"", 0.07, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.3566749439387323, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.700\"", 0.7000000000000001, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.487387150331708, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.382026634673882, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.286716454869556, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.135166556742356, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.074541934925921, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.017383521085972, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.9633162998156966`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm]}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm]}, {-4.199705077879927, 
       FormBox["\"\"", TraditionalForm]}, {-1.897119984885881, 
       FormBox["\"\"", TraditionalForm]}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm]}, {-0.3566749439387323, 
       FormBox["\"\"", TraditionalForm]}, {-4.487387150331708, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.382026634673882, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.286716454869556, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.135166556742356, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.074541934925921, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.017383521085972, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.9633162998156966`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{-4.605170185988091, 
       FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["0.1`", TraditionalForm]}, {0., 
       FormBox["1", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {6.907755278982137, 
       FormBox["1000", TraditionalForm]}, {9.210340371976184, 
       FormBox[
        TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.699514748210191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.85366542803745, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.987196820661973, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.104979856318357, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {9.210340371976184, 
       FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.396929655216146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.551080335043404, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.684611727667927, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {6.802394763324311, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.006367567650246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.294049640102028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.699514748210191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.85366542803745, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {8.987196820661973, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {9.104979856318357, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{0.2781061203355406, 0.2781061203355406}, {
   0.04843960750239273, 0.04843960750239273}},
  Ticks->{{{-4.605170185988091, 
      FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
      FormBox["0.1`", TraditionalForm]}, {0., 
      FormBox["1", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {6.907755278982137, 
      FormBox["1000", TraditionalForm]}, {9.210340371976184, 
      FormBox[
       TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.659260036932778, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.407945608651872, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.203972804325936, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659905, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.35667494393873245`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782616`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.703782474656201, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.396929655216146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.551080335043404, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.684611727667927, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {6.802394763324311, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.006367567650246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.294049640102028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.517193191416238, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.699514748210191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.85366542803745, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {8.987196820661973, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {9.104979856318357, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{-4.605170185988091, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.3025850929940455`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.912023005428146, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.506557897319982, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.030\"", 0.03, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.203972804325936, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.300\"", 0.30000000000000004`, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.199705077879927, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.015\"", 0.015, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.897119984885881, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.150\"", 0.15000000000000002`, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.659260036932778, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.070\"", 0.07, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.3566749439387323, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.700\"", 0.7000000000000001, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.487387150331708, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.382026634673882, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.286716454869556, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.135166556742356, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.074541934925921, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.017383521085972, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.9633162998156966`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.4079456086518722`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.2072749131897207`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.120263536200091, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.040220828526554, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.9661128563728327`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.8170772772123447`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.7429693050586228`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6739764335716714`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{3.576349200980419*^9, 3.576349446651794*^9, 
  3.576353110350389*^9, 3.576417198199277*^9, 3.576417319110682*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "This", " ", "equation", " ", "appears", " ", "earlier", " ", "in", " ", 
     "this", " ", "mathematica", " ", "file"}], ",", " ", 
    RowBox[{
     RowBox[{
     "in", " ", "the", " ", "section", " ", "about", " ", "the", " ", 
      "general", " ", 
      RowBox[{"model", ".", " ", "We"}], " ", "write", " ", "it", " ", 
      "again", " ", "because", " ", "we", " ", "re"}], "-", 
     RowBox[{"use", " ", "it"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Eq13", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"r1", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"L", "+", "1"}], ")"}]}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"r2", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "m"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"L", "+", "1"}], ")"}]}]}]}], ")"}]}], "+", 
     RowBox[{"m", " ", 
      RowBox[{"(", 
       RowBox[{"L", "+", "1"}], ")"}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "m"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"L", "+", "1"}], ")"}]}], " ", 
      RowBox[{"(", 
       RowBox[{"r2", "-", "r1"}], ")"}]}]}]}], ";"}], " "}]], "Input",
 CellChangeTimes->{
  3.5764179016577463`*^9, {3.576418158036305*^9, 3.57641820719632*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Top", " ", "pannel", " ", "of", " ", "figure", " ", "4", " ", "of", " ", 
    "the", " ", 
    RowBox[{"Sup", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r1l", "=", "0.8"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q1l1", "=", "0.001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q2l1", "=", "0.0001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q1l2", "=", "0.00001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q2l2", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"listeq41", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"listeq40", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list1s12", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list2s12", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list1exact", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list2exact", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"listeq13", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "0"}], ",", 
     RowBox[{"i", "<", "18"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r2l", "=", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"0.1", "*", 
          RowBox[{"1.5", "^", "i"}]}]}], ")"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"temp", "=", 
       RowBox[{
        RowBox[{"Eq41", "/.", 
         RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
        RowBox[{"r2", "\[Rule]", "r2l"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"listeq41", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"listeq41", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Eq40AsWritten", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", "0"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"listeq40", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"listeq40", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Eq34", "/.", 
                    RowBox[{"s2", "\[Rule]", 
                    RowBox[{"q2", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"1", "/", 
                    RowBox[{"(", 
                    RowBox[{"r2", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "-", "m"}], ")"}], "^", 
                    RowBox[{"(", 
                    RowBox[{"l", "+", "1"}], ")"}]}]}], ")"}]}]}], 
                    ")"}]}]}]}], ")"}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                   RowBox[{"q1", "\[Rule]", "q1l2"}]}], "/.", 
                  RowBox[{"q2", "\[Rule]", "q2l2"}]}], "/.", 
                 RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}], 
            "\[Equal]", "0"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"list2s12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list2s12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"s1", "/.", 
                    RowBox[{"Sol", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                   RowBox[{"q1", "\[Rule]", "q1l2"}]}], "/.", 
                  RowBox[{"q2", "\[Rule]", "q2l2"}]}], "/.", 
                 RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}], 
            "\[Equal]", "0"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"list2exact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list2exact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Eq13", "/.", 
                RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
               RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", "0"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"listeq13", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"listeq13", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Eq34", "/.", 
                    RowBox[{"s2", "\[Rule]", 
                    RowBox[{"q2", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"1", "/", 
                    RowBox[{"(", 
                    RowBox[{"r2", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "-", "m"}], ")"}], "^", 
                    RowBox[{"(", 
                    RowBox[{"l", "+", "1"}], ")"}]}]}], ")"}]}]}], 
                    ")"}]}]}]}], ")"}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                   RowBox[{"q1", "\[Rule]", "q1l1"}]}], "/.", 
                  RowBox[{"q2", "\[Rule]", "q2l1"}]}], "/.", 
                 RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}], 
            "\[Equal]", "0"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"list1s12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list1s12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"s1", "/.", 
                    RowBox[{"Sol", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                   RowBox[{"q1", "\[Rule]", "q1l1"}]}], "/.", 
                  RowBox[{"q2", "\[Rule]", "q2l1"}]}], "/.", 
                 RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}], 
            "\[Equal]", "0"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"list1exact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list1exact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r2l", "-", "1"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "list1exact", ",", "list2exact", ",", "list1s12", ",", "list2s12", ",", 
       "listeq13", ",", "listeq40", ",", "listeq41"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", "Black", "}"}], ",", 
        RowBox[{"{", "Blue", "}"}], ",", 
        RowBox[{"{", "Purple", "}"}], ",", 
        RowBox[{"{", "Green", "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dotted"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Orange", ",", "DotDashed"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<\>\"", ",", "\[EmptyUpTriangle]", ",", 
        "\[EmptyDownTriangle]", ",", "\[EmptySquare]", ",", "\"\<\>\"", ",", 
        "\"\<\>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.576418272591317*^9, 3.576418312957595*^9}, 
   3.576419020315084*^9, {3.576419052527111*^9, 3.576419193887628*^9}, {
   3.5764193419189453`*^9, 3.5764195158664417`*^9}, {3.57641954958918*^9, 
   3.57641958234505*^9}, {3.576419614066485*^9, 3.576419633524433*^9}, {
   3.576419687843895*^9, 3.5764196895249157`*^9}, {3.5764197234210253`*^9, 
   3.5764197689744663`*^9}, {3.5764198087669773`*^9, 3.576419978516193*^9}, {
   3.576420011480459*^9, 3.576420120861311*^9}, {3.576420698179842*^9, 
   3.576420739004602*^9}, {3.576420805359646*^9, 3.5764209181377974`*^9}, {
   3.576421024707425*^9, 3.576421053570793*^9}, {3.576421093674444*^9, 
   3.576421119645361*^9}, {3.5764214171705027`*^9, 3.576421440651959*^9}, {
   3.5764215886691647`*^9, 3.576421673501288*^9}, {3.576421953446597*^9, 
   3.576421953853135*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, GraphicsComplexBox[CompressedData["
1:eJxN0nk823ccx/GShCSIuLuSmiZh2mrpw7SparI+ykp6uNpi9XBs1ahztChK
dFotD5vr4VGmlLrN0RrzGJpvzOYoXXSjjocsirlVtWnMteOP/T6/P96P9/+v
x9PEP8z1svKOHTsS/t1/r3u+qfVxkDL6YN3Rwp6pjww7j8bne22L9JbOyO8h
XUSQUpMGxhUi8drhPnaEDnqrGL1N9nsjqpjv65XZaqN25gW9xO5pUbmfzEXJ
RAsdql+0G30wIDLoav2IzqKjoy/KvLOrEXftwRmr8HQaaub19NuwJrirPja5
HjoaaFTdvLObsczlaLvoaI2oIWHwSe/aNDkX/SKdDh2jomzXax5R5E1uV3zl
2jtdKnIzelFVdEKJd/LHb8RnEyjIW/OqGTGJyGNsfME116SgAGXlMoFIlTcQ
NJ+5T0RG4fK8Pf1bVF7pztTszjtkdGPW6qHVMRrv1vaNI8U+ZCRemqLx2+k8
zt29+c9OkpHDTMOZm5e0ebUFdc5fHyKj//vMXG5iPh3Rw/q0Rl7SKLwAfdai
Xhr7y7SxPrOPS35tidPC+vwZ0J7zuwUd63Pd2i/7lUID67Pww1OhzaAa1uf0
Su+65C8K1ofRzU6ev0LG+hT6DjZWM1SxPrTcadKgngrWR+oqnfjtFAnrkx1d
SOquJWJ9NvjvV2JsiVgffhrrY8YcAeujdFawa7mOgPVxKBKuxNwhYH3mrRc7
664SsD6i1dimYRb4cZlq7BR2QB8H9WN1MdfAj7FPTErscfBDytz2FDPBj2f2
swyJKfhZGveXVWaBn/J72xdpO8GPYO7BT4xx8LMv8tDzDin4oT1HPjkG4Ce6
dyj+tBD8aDiS1B7SwQ9Z3Zh8BIEf1SfNG8IU8OMaSA1j+oKfL9lFeSx78GPa
FVndi/PTRH1StYzzQ9mfVdWJ80Pt2GAn4vyUjoZJ+nF+TpTrx0/i/AjcCPcV
OD9csZmHPc6PSXvBrTGcny0OUWUV5+f4dgS9AednqKN/dBjnR+mz4G+HcH5W
+CsrPTg/XsI/Po3F+cmtiduzG+cnR4Ha8H5KrFO9b+D8hO+vp9Xj/NRUuixI
cX7eyEteZuD85KT7ygtxfkzjrIP6cX6eiP1cP2eBn42FltAlM/BzIOF+oFUu
+OmZCtA2Z4Afqotm2cwk+Dnwydu7B2fAT53m5Fi0Cfgp/op/JTAN/FiOrTGa
jMCPhRndiNIPfoptGovGcsDPlApbVxYCfg6WpTxmu4Gfc5feT6zzwM+cmqKt
cQD81H3oZKvtDH2yii8WOI6BH9/I12tD0eAnsM2JJd0Lfioowx32b8HPYLrk
ZtIA+LFK3Q5teQ9+pJ67qjmXwc9CnIOhnSH4sXlJlmTqgJ+/Lfk+1Q7gx9mL
6lNbA366evlhARzwM7u5OU+bAT8lAfnSie/AT4JcVhqSDH46hipkjwTgZytC
wab8DH0WJbtPvbaDPvplBs0jYugj/j62zfw89Al1f/S8YV0T6yNNTL7tmQR9
Bqw5tptO0Oep1nyKhj/08cxLlBzuU8X6MM3z3dvvqmB9zs0qihsySFgfs3Kl
xlfDRKxPtLddcII79JmOSmzjKAhYn3cC18K8ZujTZkmSeqVCH4H8eohLMPRR
oUnFah4E9A+7R9DG
     "], {{{}, {}, 
       {GrayLevel[0], Dashing[{Small, Small}], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18}]}, 
       {GrayLevel[0], 
        LineBox[{19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 
         34, 35, 36}]}, 
       {RGBColor[0, 0, 1], 
        LineBox[{37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
         52, 53, 54}]}, 
       {RGBColor[0.5, 0, 0.5], 
        LineBox[{55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 
         70, 71, 72}]}, 
       {RGBColor[0, 1, 0], 
        LineBox[{73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 
         88, 89, 90}]}, 
       {RGBColor[1, 0, 0], Dashing[{0, Small}], 
        LineBox[{91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 
         105, 106, 107, 108}]}, 
       {RGBColor[1, 0.5, 0], Dashing[{0, Small, Small, Small}], 
        LineBox[{109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 
         121, 122, 123, 124, 125, 126}]}}, {
       {GrayLevel[0], Dashing[{Small, Small}], 
        TagBox[InsetBox["", 1],
         "InsetString"], 
        TagBox[InsetBox["", 2],
         "InsetString"], 
        TagBox[InsetBox["", 3],
         "InsetString"], 
        TagBox[InsetBox["", 4],
         "InsetString"], 
        TagBox[InsetBox["", 5],
         "InsetString"], 
        TagBox[InsetBox["", 6],
         "InsetString"], 
        TagBox[InsetBox["", 7],
         "InsetString"], 
        TagBox[InsetBox["", 8],
         "InsetString"], 
        TagBox[InsetBox["", 9],
         "InsetString"], 
        TagBox[InsetBox["", 10],
         "InsetString"], 
        TagBox[InsetBox["", 11],
         "InsetString"], 
        TagBox[InsetBox["", 12],
         "InsetString"], 
        TagBox[InsetBox["", 13],
         "InsetString"], 
        TagBox[InsetBox["", 14],
         "InsetString"], 
        TagBox[InsetBox["", 15],
         "InsetString"], 
        TagBox[InsetBox["", 16],
         "InsetString"], 
        TagBox[InsetBox["", 17],
         "InsetString"], 
        TagBox[InsetBox["", 18],
         "InsetString"]}, 
       {GrayLevel[0], 
        TagBox[InsetBox["", 19],
         "InsetString"], 
        TagBox[InsetBox["", 20],
         "InsetString"], 
        TagBox[InsetBox["", 21],
         "InsetString"], 
        TagBox[InsetBox["", 22],
         "InsetString"], 
        TagBox[InsetBox["", 23],
         "InsetString"], 
        TagBox[InsetBox["", 24],
         "InsetString"], 
        TagBox[InsetBox["", 25],
         "InsetString"], 
        TagBox[InsetBox["", 26],
         "InsetString"], 
        TagBox[InsetBox["", 27],
         "InsetString"], 
        TagBox[InsetBox["", 28],
         "InsetString"], 
        TagBox[InsetBox["", 29],
         "InsetString"], 
        TagBox[InsetBox["", 30],
         "InsetString"], 
        TagBox[InsetBox["", 31],
         "InsetString"], 
        TagBox[InsetBox["", 32],
         "InsetString"], 
        TagBox[InsetBox["", 33],
         "InsetString"], 
        TagBox[InsetBox["", 34],
         "InsetString"], 
        TagBox[InsetBox["", 35],
         "InsetString"], 
        TagBox[InsetBox["", 36],
         "InsetString"]}, 
       {RGBColor[0, 0, 1], InsetBox["\[EmptyUpTriangle]", 37], 
        InsetBox["\[EmptyUpTriangle]", 38], 
        InsetBox["\[EmptyUpTriangle]", 39], 
        InsetBox["\[EmptyUpTriangle]", 40], 
        InsetBox["\[EmptyUpTriangle]", 41], 
        InsetBox["\[EmptyUpTriangle]", 42], 
        InsetBox["\[EmptyUpTriangle]", 43], 
        InsetBox["\[EmptyUpTriangle]", 44], 
        InsetBox["\[EmptyUpTriangle]", 45], 
        InsetBox["\[EmptyUpTriangle]", 46], 
        InsetBox["\[EmptyUpTriangle]", 47], 
        InsetBox["\[EmptyUpTriangle]", 48], 
        InsetBox["\[EmptyUpTriangle]", 49], 
        InsetBox["\[EmptyUpTriangle]", 50], 
        InsetBox["\[EmptyUpTriangle]", 51], 
        InsetBox["\[EmptyUpTriangle]", 52], 
        InsetBox["\[EmptyUpTriangle]", 53], 
        InsetBox["\[EmptyUpTriangle]", 54]}, 
       {RGBColor[0.5, 0, 0.5], InsetBox["\[EmptyDownTriangle]", 55], 
        InsetBox["\[EmptyDownTriangle]", 56], 
        InsetBox["\[EmptyDownTriangle]", 57], 
        InsetBox["\[EmptyDownTriangle]", 58], 
        InsetBox["\[EmptyDownTriangle]", 59], 
        InsetBox["\[EmptyDownTriangle]", 60], 
        InsetBox["\[EmptyDownTriangle]", 61], 
        InsetBox["\[EmptyDownTriangle]", 62], 
        InsetBox["\[EmptyDownTriangle]", 63], 
        InsetBox["\[EmptyDownTriangle]", 64], 
        InsetBox["\[EmptyDownTriangle]", 65], 
        InsetBox["\[EmptyDownTriangle]", 66], 
        InsetBox["\[EmptyDownTriangle]", 67], 
        InsetBox["\[EmptyDownTriangle]", 68], 
        InsetBox["\[EmptyDownTriangle]", 69], 
        InsetBox["\[EmptyDownTriangle]", 70], 
        InsetBox["\[EmptyDownTriangle]", 71], 
        InsetBox["\[EmptyDownTriangle]", 72]}, 
       {RGBColor[0, 1, 0], InsetBox["\[EmptySquare]", 73], 
        InsetBox["\[EmptySquare]", 74], InsetBox["\[EmptySquare]", 75], 
        InsetBox["\[EmptySquare]", 76], InsetBox["\[EmptySquare]", 77], 
        InsetBox["\[EmptySquare]", 78], InsetBox["\[EmptySquare]", 79], 
        InsetBox["\[EmptySquare]", 80], InsetBox["\[EmptySquare]", 81], 
        InsetBox["\[EmptySquare]", 82], InsetBox["\[EmptySquare]", 83], 
        InsetBox["\[EmptySquare]", 84], InsetBox["\[EmptySquare]", 85], 
        InsetBox["\[EmptySquare]", 86], InsetBox["\[EmptySquare]", 87], 
        InsetBox["\[EmptySquare]", 88], InsetBox["\[EmptySquare]", 89], 
        InsetBox["\[EmptySquare]", 90]}, 
       {RGBColor[1, 0, 0], Dashing[{0, Small}], 
        TagBox[InsetBox["", 91],
         "InsetString"], 
        TagBox[InsetBox["", 92],
         "InsetString"], 
        TagBox[InsetBox["", 93],
         "InsetString"], 
        TagBox[InsetBox["", 94],
         "InsetString"], 
        TagBox[InsetBox["", 95],
         "InsetString"], 
        TagBox[InsetBox["", 96],
         "InsetString"], 
        TagBox[InsetBox["", 97],
         "InsetString"], 
        TagBox[InsetBox["", 98],
         "InsetString"], 
        TagBox[InsetBox["", 99],
         "InsetString"], 
        TagBox[InsetBox["", 100],
         "InsetString"], 
        TagBox[InsetBox["", 101],
         "InsetString"], 
        TagBox[InsetBox["", 102],
         "InsetString"], 
        TagBox[InsetBox["", 103],
         "InsetString"], 
        TagBox[InsetBox["", 104],
         "InsetString"], 
        TagBox[InsetBox["", 105],
         "InsetString"], 
        TagBox[InsetBox["", 106],
         "InsetString"], 
        TagBox[InsetBox["", 107],
         "InsetString"], 
        TagBox[InsetBox["", 108],
         "InsetString"]}, 
       {RGBColor[1, 0.5, 0], Dashing[{0, Small, Small, Small}], 
        TagBox[InsetBox["", 109],
         "InsetString"], 
        TagBox[InsetBox["", 110],
         "InsetString"], 
        TagBox[InsetBox["", 111],
         "InsetString"], 
        TagBox[InsetBox["", 112],
         "InsetString"], 
        TagBox[InsetBox["", 113],
         "InsetString"], 
        TagBox[InsetBox["", 114],
         "InsetString"], 
        TagBox[InsetBox["", 115],
         "InsetString"], 
        TagBox[InsetBox["", 116],
         "InsetString"], 
        TagBox[InsetBox["", 117],
         "InsetString"], 
        TagBox[InsetBox["", 118],
         "InsetString"], 
        TagBox[InsetBox["", 119],
         "InsetString"], 
        TagBox[InsetBox["", 120],
         "InsetString"], 
        TagBox[InsetBox["", 121],
         "InsetString"], 
        TagBox[InsetBox["", 122],
         "InsetString"], 
        TagBox[InsetBox["", 123],
         "InsetString"], 
        TagBox[InsetBox["", 124],
         "InsetString"], 
        TagBox[InsetBox["", 125],
         "InsetString"], 
        TagBox[InsetBox["", 126],
         "InsetString"]}, {}}}], {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{-2.302585092994045, -5.5360066193190205`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.912023005428146, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.506557897319982, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.030\"", 0.03, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.203972804325936, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.300\"", 0.30000000000000004`, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.199705077879927, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.015\"", 0.015, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.897119984885881, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.150\"", 0.15000000000000002`, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.659260036932778, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.070\"", 0.07, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.3566749439387323, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.700\"", 0.7000000000000001, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.487387150331708, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.382026634673882, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.286716454869556, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.135166556742356, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.074541934925921, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.017383521085972, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.9633162998156966`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm]}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm]}, {-4.199705077879927, 
       FormBox["\"\"", TraditionalForm]}, {-1.897119984885881, 
       FormBox["\"\"", TraditionalForm]}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm]}, {-0.3566749439387323, 
       FormBox["\"\"", TraditionalForm]}, {-4.487387150331708, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.382026634673882, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.286716454869556, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.135166556742356, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.074541934925921, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.017383521085972, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.9633162998156966`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{-2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.0\"", 5., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {3.912023005428146, 
       FormBox[
        TagBox[
         InterpretationBox["\"50.0\"", 50., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {4.605170185988092, 
       FormBox[
        TagBox[
         InterpretationBox["\"100.0\"", 100., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {6.214608098422191, 
       FormBox[
        TagBox[
         InterpretationBox["\"500.0\"", 500., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{-2.302585092994045, 
   4.590321744844749}, {-5.5360066193190205`, -2.417991175259661}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.13785813675677588`, 0.13785813675677588`}, {
   0.062360308881187196`, 0.062360308881187196`}},
  Ticks->{{{-2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"10.0\"", 10., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {3.912023005428146, 
      FormBox[
       TagBox[
        InterpretationBox["\"50.0\"", 50., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {4.605170185988092, 
      FormBox[
       TagBox[
        InterpretationBox["\"100.0\"", 100., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {6.214608098422191, 
      FormBox[
       TagBox[
        InterpretationBox["\"500.0\"", 500., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.203972804325936, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.35667494393873245`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782628`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.703782474656201, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{-4.605170185988091, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.3025850929940455`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.912023005428146, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.506557897319982, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.030\"", 0.03, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.203972804325936, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.300\"", 0.30000000000000004`, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.199705077879927, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.015\"", 0.015, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.897119984885881, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.150\"", 0.15000000000000002`, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.659260036932778, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.070\"", 0.07, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.3566749439387323, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.700\"", 0.7000000000000001, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.487387150331708, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.382026634673882, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.286716454869556, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.135166556742356, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.074541934925921, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.017383521085972, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.9633162998156966`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.4079456086518722`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.2072749131897207`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.120263536200091, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.040220828526554, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.9661128563728327`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.8170772772123447`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.7429693050586228`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6739764335716714`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{3.576420926910593*^9, 3.576421066352006*^9, 
  3.576421142911498*^9, 3.576421451255011*^9, 3.576421682302373*^9, 
  3.57642196275128*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Middle", " ", "pannel", " ", "of", " ", "figure", " ", "4", " ", "of", 
    " ", "the", " ", 
    RowBox[{"Sup", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ll", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q1l1", "=", "0.001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q2l1", "=", "0.0001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q1l2", "=", "0.00001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q2l2", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"listeq41", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"listeq40", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list1s12", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list2s12", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list1exact", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list2exact", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"listeq13", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "0"}], ",", 
     RowBox[{"i", "<", "18"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"r1l", "=", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"0.001", "*", 
          RowBox[{"1.5", "^", "i"}]}]}], ")"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"temp", "=", 
       RowBox[{
        RowBox[{"Eq41", "/.", 
         RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
        RowBox[{"r2", "\[Rule]", "r2l"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"listeq41", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"listeq41", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Eq40AsWritten", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", "0"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"listeq40", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"listeq40", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Eq34", "/.", 
                    RowBox[{"s2", "\[Rule]", 
                    RowBox[{"q2", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"1", "/", 
                    RowBox[{"(", 
                    RowBox[{"r2", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "-", "m"}], ")"}], "^", 
                    RowBox[{"(", 
                    RowBox[{"l", "+", "1"}], ")"}]}]}], ")"}]}]}], 
                    ")"}]}]}]}], ")"}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                   RowBox[{"q1", "\[Rule]", "q1l2"}]}], "/.", 
                  RowBox[{"q2", "\[Rule]", "q2l2"}]}], "/.", 
                 RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}], 
            "\[Equal]", "0"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"list2s12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list2s12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"s1", "/.", 
                    RowBox[{"Sol", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                   RowBox[{"q1", "\[Rule]", "q1l2"}]}], "/.", 
                  RowBox[{"q2", "\[Rule]", "q2l2"}]}], "/.", 
                 RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}], 
            "\[Equal]", "0"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"list2exact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list2exact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Eq13", "/.", 
                RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
               RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", "0"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"listeq13", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"listeq13", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Eq34", "/.", 
                    RowBox[{"s2", "\[Rule]", 
                    RowBox[{"q2", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"1", "/", 
                    RowBox[{"(", 
                    RowBox[{"r2", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "-", "m"}], ")"}], "^", 
                    RowBox[{"(", 
                    RowBox[{"l", "+", "1"}], ")"}]}]}], ")"}]}]}], 
                    ")"}]}]}]}], ")"}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                   RowBox[{"q1", "\[Rule]", "q1l1"}]}], "/.", 
                  RowBox[{"q2", "\[Rule]", "q2l1"}]}], "/.", 
                 RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}], 
            "\[Equal]", "0"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"list1s12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list1s12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"s1", "/.", 
                    RowBox[{"Sol", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                   RowBox[{"q1", "\[Rule]", "q1l1"}]}], "/.", 
                  RowBox[{"q2", "\[Rule]", "q2l1"}]}], "/.", 
                 RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}], 
            "\[Equal]", "0"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"list1exact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list1exact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "-", "r1l"}], ",", "temp"}], "}"}], "}"}]}], "]"}]}],
       ";"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "list1exact", ",", "list2exact", ",", "list1s12", ",", "list2s12", ",", 
       "listeq13", ",", "listeq40", ",", "listeq41"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", "Black", "}"}], ",", 
        RowBox[{"{", "Blue", "}"}], ",", 
        RowBox[{"{", "Purple", "}"}], ",", 
        RowBox[{"{", "Green", "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dotted"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Orange", ",", "DotDashed"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<\>\"", ",", "\[EmptyUpTriangle]", ",", 
        "\[EmptyDownTriangle]", ",", "\[EmptySquare]", ",", "\"\<\>\"", ",", 
        "\"\<\>\""}], "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.576421699741675*^9, 3.576421740501842*^9}, {
  3.57642178545324*^9, 3.57642186388186*^9}, {3.576421906554522*^9, 
  3.5764219097584333`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindRoot", "::", "lstol"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The line search decreased the step size to within \
tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find \
a sufficient decrease in the merit function. You may need more than \
\[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \
meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/lstol\\\", ButtonNote -> \
\\\"FindRoot::lstol\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576421870419085*^9, 3.576422000794938*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindRoot", "::", "lstol"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The line search decreased the step size to within \
tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find \
a sufficient decrease in the merit function. You may need more than \
\[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \
meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/lstol\\\", ButtonNote -> \
\\\"FindRoot::lstol\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576421870419085*^9, 3.57642200103722*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindRoot", "::", "lstol"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The line search decreased the step size to within \
tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find \
a sufficient decrease in the merit function. You may need more than \
\[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \
meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/FindRoot/lstol\\\", ButtonNote -> \
\\\"FindRoot::lstol\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576421870419085*^9, 3.576422001504196*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(FindRoot \
:: lstol\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.576421870419085*^9, 3.57642200159234*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, GraphicsComplexBox[CompressedData["
1:eJxN1X9M1HUcx/ETkZQfB+fdwQWyIIx1dcePDTMogvDE5Ksev0NBDxIcXCY4
SzLFmAwVhhB57EAn57VrzBQaGRrlvI9xoyMQxw9RUSwuokaYCBi/2uy+W6/7
fP747L3nv4+9tk/ge4XJeU4CgeCo/fHX8KymodLoR15q3R/9R6qUqFwsOzKc
fMkaS7hvi1xKTO7zfsG7ZeTT4Yle/WMJcRcrRmY6vEm7Vrg1xSQhuuezG2+s
lZLhlAi3n+MlxDNAp6kpF5NLx4t7jHfEpDzYGrBzXES6naf6N28XE4Hy39FX
NnmR3NvGtspbq8n0nuz4J2oPklTa+efQW6vJ5AGrtUrkSjaVX5VeuigittIw
7uUBFxLuWh0W7isi907V3+zQLSfC3DKdZ7UXuXVGkKhJF5BlCQd/+MDVi1So
+0xPQxfNOXsfOY8GeZKDBcYLisszZpG5+UjOViHpcvkt66e9E+Y+4dGFaJ0H
if/I5aZ2fNjcsnvp9e8X3EmQ4f7KB/nV5sIvK2yqEncCn7zIXWlv2Bs+shrv
VL7hk5w+lsg3fIYt+7fwDZ/85Pfj+YaPumHfm3zD58q5Y0q+4TMzmeHDN3y+
WLf8aZS94dOWc+EG3/A5ZThfxDd8Dm3RP4m0N3xStymD+IaPYpvMst7e8Pmr
aT5mnb3h092ht4XaGz55mrPGF0qozycnImfjDlOfA1dHwiMy6H66VfUPFhV0
P8VDc6Vj03Q/uzJLos430f18fS+h1SeB7iext9E6NUz38+JQjOlMFt1PyP1r
sSP9dD93P3v2jTyO7kcfPB6y1EL3I48L6PzQn+6nLWRVVFQt3U/9w7omrQfd
z3Mn24lKTvdT2BuSPZZE9xOobNhQpaf7OS2MeLd8ifqknRNfTGP24x85usQx
+8nWTC1wzH6iw1zmOGY/awdM0xyzn5O+wkmO2c/jgkAbx+yncnvwAMfsp2xF
8TWO2U/r2ekGjtnPylWueRyzn789Vog5Zj89AkNtArMf8vkV82ZmP25V6Znv
MPtJLerv2cjsJ6z9n4xYZj+ij70GQ5n9WGurdnLMfhoX12t+VMscPpOCzBNO
FT4OnwltXeZrFm+HT6d2sKhrmbfD52HEvCI6Turw0f96uERxXOLwyd9zzKru
pfsZjTEMlvqJHT5C0Zz8+j66n40SZ4myi+4na0eSTaag+9FWabhH9XQ/uf6X
neQiup/Jgm9frVTQ/fTPfjW7JoXuJyIn9s7vzH4KVEV1p5n9cEc6m9n9XC/7
pfntQ3Q/aPig4YOGDxo+aPig4YOGDxo+aPig4YOGDxo+aPig4YOGDxo+aPj0
fXd79u68m8MHDR80fNDwQcMHDR80fNDwQcMHDR80fNDwQcMHDR+04//6v+GD
hg/6P+vI9Qs=
     "], {{{}, {}, 
       {GrayLevel[0], Dashing[{Small, Small}], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18}]}, 
       {GrayLevel[0], 
        LineBox[{19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 
         34, 35, 36}]}, 
       {RGBColor[0, 0, 1], 
        LineBox[{37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
         52, 53, 54}]}, 
       {RGBColor[0.5, 0, 0.5], 
        LineBox[{55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 
         70, 71, 72}]}, 
       {RGBColor[0, 1, 0], 
        LineBox[{73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 
         88, 89, 90}]}, 
       {RGBColor[1, 0, 0], Dashing[{0, Small}], 
        LineBox[{91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 
         105, 106, 107, 108}]}, 
       {RGBColor[1, 0.5, 0], Dashing[{0, Small, Small, Small}], 
        LineBox[{109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 
         121, 122, 123, 124, 125, 126}]}}, {
       {GrayLevel[0], Dashing[{Small, Small}], 
        TagBox[InsetBox["", 1],
         "InsetString"], 
        TagBox[InsetBox["", 2],
         "InsetString"], 
        TagBox[InsetBox["", 3],
         "InsetString"], 
        TagBox[InsetBox["", 4],
         "InsetString"], 
        TagBox[InsetBox["", 5],
         "InsetString"], 
        TagBox[InsetBox["", 6],
         "InsetString"], 
        TagBox[InsetBox["", 7],
         "InsetString"], 
        TagBox[InsetBox["", 8],
         "InsetString"], 
        TagBox[InsetBox["", 9],
         "InsetString"], 
        TagBox[InsetBox["", 10],
         "InsetString"], 
        TagBox[InsetBox["", 11],
         "InsetString"], 
        TagBox[InsetBox["", 12],
         "InsetString"], 
        TagBox[InsetBox["", 13],
         "InsetString"], 
        TagBox[InsetBox["", 14],
         "InsetString"], 
        TagBox[InsetBox["", 15],
         "InsetString"], 
        TagBox[InsetBox["", 16],
         "InsetString"], 
        TagBox[InsetBox["", 17],
         "InsetString"], 
        TagBox[InsetBox["", 18],
         "InsetString"]}, 
       {GrayLevel[0], 
        TagBox[InsetBox["", 19],
         "InsetString"], 
        TagBox[InsetBox["", 20],
         "InsetString"], 
        TagBox[InsetBox["", 21],
         "InsetString"], 
        TagBox[InsetBox["", 22],
         "InsetString"], 
        TagBox[InsetBox["", 23],
         "InsetString"], 
        TagBox[InsetBox["", 24],
         "InsetString"], 
        TagBox[InsetBox["", 25],
         "InsetString"], 
        TagBox[InsetBox["", 26],
         "InsetString"], 
        TagBox[InsetBox["", 27],
         "InsetString"], 
        TagBox[InsetBox["", 28],
         "InsetString"], 
        TagBox[InsetBox["", 29],
         "InsetString"], 
        TagBox[InsetBox["", 30],
         "InsetString"], 
        TagBox[InsetBox["", 31],
         "InsetString"], 
        TagBox[InsetBox["", 32],
         "InsetString"], 
        TagBox[InsetBox["", 33],
         "InsetString"], 
        TagBox[InsetBox["", 34],
         "InsetString"], 
        TagBox[InsetBox["", 35],
         "InsetString"], 
        TagBox[InsetBox["", 36],
         "InsetString"]}, 
       {RGBColor[0, 0, 1], InsetBox["\[EmptyUpTriangle]", 37], 
        InsetBox["\[EmptyUpTriangle]", 38], 
        InsetBox["\[EmptyUpTriangle]", 39], 
        InsetBox["\[EmptyUpTriangle]", 40], 
        InsetBox["\[EmptyUpTriangle]", 41], 
        InsetBox["\[EmptyUpTriangle]", 42], 
        InsetBox["\[EmptyUpTriangle]", 43], 
        InsetBox["\[EmptyUpTriangle]", 44], 
        InsetBox["\[EmptyUpTriangle]", 45], 
        InsetBox["\[EmptyUpTriangle]", 46], 
        InsetBox["\[EmptyUpTriangle]", 47], 
        InsetBox["\[EmptyUpTriangle]", 48], 
        InsetBox["\[EmptyUpTriangle]", 49], 
        InsetBox["\[EmptyUpTriangle]", 50], 
        InsetBox["\[EmptyUpTriangle]", 51], 
        InsetBox["\[EmptyUpTriangle]", 52], 
        InsetBox["\[EmptyUpTriangle]", 53], 
        InsetBox["\[EmptyUpTriangle]", 54]}, 
       {RGBColor[0.5, 0, 0.5], InsetBox["\[EmptyDownTriangle]", 55], 
        InsetBox["\[EmptyDownTriangle]", 56], 
        InsetBox["\[EmptyDownTriangle]", 57], 
        InsetBox["\[EmptyDownTriangle]", 58], 
        InsetBox["\[EmptyDownTriangle]", 59], 
        InsetBox["\[EmptyDownTriangle]", 60], 
        InsetBox["\[EmptyDownTriangle]", 61], 
        InsetBox["\[EmptyDownTriangle]", 62], 
        InsetBox["\[EmptyDownTriangle]", 63], 
        InsetBox["\[EmptyDownTriangle]", 64], 
        InsetBox["\[EmptyDownTriangle]", 65], 
        InsetBox["\[EmptyDownTriangle]", 66], 
        InsetBox["\[EmptyDownTriangle]", 67], 
        InsetBox["\[EmptyDownTriangle]", 68], 
        InsetBox["\[EmptyDownTriangle]", 69], 
        InsetBox["\[EmptyDownTriangle]", 70], 
        InsetBox["\[EmptyDownTriangle]", 71], 
        InsetBox["\[EmptyDownTriangle]", 72]}, 
       {RGBColor[0, 1, 0], InsetBox["\[EmptySquare]", 73], 
        InsetBox["\[EmptySquare]", 74], InsetBox["\[EmptySquare]", 75], 
        InsetBox["\[EmptySquare]", 76], InsetBox["\[EmptySquare]", 77], 
        InsetBox["\[EmptySquare]", 78], InsetBox["\[EmptySquare]", 79], 
        InsetBox["\[EmptySquare]", 80], InsetBox["\[EmptySquare]", 81], 
        InsetBox["\[EmptySquare]", 82], InsetBox["\[EmptySquare]", 83], 
        InsetBox["\[EmptySquare]", 84], InsetBox["\[EmptySquare]", 85], 
        InsetBox["\[EmptySquare]", 86], InsetBox["\[EmptySquare]", 87], 
        InsetBox["\[EmptySquare]", 88], InsetBox["\[EmptySquare]", 89], 
        InsetBox["\[EmptySquare]", 90]}, 
       {RGBColor[1, 0, 0], Dashing[{0, Small}], 
        TagBox[InsetBox["", 91],
         "InsetString"], 
        TagBox[InsetBox["", 92],
         "InsetString"], 
        TagBox[InsetBox["", 93],
         "InsetString"], 
        TagBox[InsetBox["", 94],
         "InsetString"], 
        TagBox[InsetBox["", 95],
         "InsetString"], 
        TagBox[InsetBox["", 96],
         "InsetString"], 
        TagBox[InsetBox["", 97],
         "InsetString"], 
        TagBox[InsetBox["", 98],
         "InsetString"], 
        TagBox[InsetBox["", 99],
         "InsetString"], 
        TagBox[InsetBox["", 100],
         "InsetString"], 
        TagBox[InsetBox["", 101],
         "InsetString"], 
        TagBox[InsetBox["", 102],
         "InsetString"], 
        TagBox[InsetBox["", 103],
         "InsetString"], 
        TagBox[InsetBox["", 104],
         "InsetString"], 
        TagBox[InsetBox["", 105],
         "InsetString"], 
        TagBox[InsetBox["", 106],
         "InsetString"], 
        TagBox[InsetBox["", 107],
         "InsetString"], 
        TagBox[InsetBox["", 108],
         "InsetString"]}, 
       {RGBColor[1, 0.5, 0], Dashing[{0, Small, Small, Small}], 
        TagBox[InsetBox["", 109],
         "InsetString"], 
        TagBox[InsetBox["", 110],
         "InsetString"], 
        TagBox[InsetBox["", 111],
         "InsetString"], 
        TagBox[InsetBox["", 112],
         "InsetString"], 
        TagBox[InsetBox["", 113],
         "InsetString"], 
        TagBox[InsetBox["", 114],
         "InsetString"], 
        TagBox[InsetBox["", 115],
         "InsetString"], 
        TagBox[InsetBox["", 116],
         "InsetString"], 
        TagBox[InsetBox["", 117],
         "InsetString"], 
        TagBox[InsetBox["", 118],
         "InsetString"], 
        TagBox[InsetBox["", 119],
         "InsetString"], 
        TagBox[InsetBox["", 120],
         "InsetString"], 
        TagBox[InsetBox["", 121],
         "InsetString"], 
        TagBox[InsetBox["", 122],
         "InsetString"], 
        TagBox[InsetBox["", 123],
         "InsetString"], 
        TagBox[InsetBox["", 124],
         "InsetString"], 
        TagBox[InsetBox["", 125],
         "InsetString"], 
        TagBox[InsetBox["", 126],
         "InsetString"]}, {}}}], {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{-6.907755278982136, -6.07788990763825},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-6.907755278982137, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.0010\"", 0.001, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.605170185988091, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.0100\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-5.298317366548036, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.0050\"", 0.005, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.0500\"", 0.05, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-6.214608098422191, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.0020\"", 0.002, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.912023005428146, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.0200\"", 0.02, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-5.809142990314028, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.0030\"", 0.003, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.506557897319982, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.0300\"", 0.03, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-6.502290170873972, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.0015\"", 0.0015, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.199705077879927, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.0150\"", 0.015, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.961845129926823, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.0070\"", 0.007, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.659260036932778, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.0700\"", 0.07, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-6.812445099177812, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.725433722188182, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.6453910145146455`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.571283042360924, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.437751649736401, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.3771270279199666`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.319968614080018, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.2659013928097425`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.487387150331708, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.382026634673882, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.286716454869556, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.135166556742356, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.074541934925921, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.017383521085972, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.9633162998156966`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm]}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm]}, {-6.502290170873972, 
       FormBox["\"\"", TraditionalForm]}, {-4.199705077879927, 
       FormBox["\"\"", TraditionalForm]}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm]}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm]}, {-6.812445099177812, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.725433722188182, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.6453910145146455`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.571283042360924, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.437751649736401, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.3771270279199666`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.319968614080018, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.2659013928097425`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.487387150331708, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.382026634673882, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.286716454869556, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.135166556742356, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.074541934925921, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.017383521085972, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.9633162998156966`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{-6.907755278982137, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-5.298317366548036, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.605170185988092, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.000\"", 1., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.000\"", 5., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {-4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {-2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{-6.907755278982136, 
     0}, {-6.07788990763825, -3.4965075614664802`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.13815510557964272`, 0.13815510557964272`}, {
   0.05162764692343539, 0.05162764692343539}},
  Ticks->{{{-6.907755278982137, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-5.298317366548036, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.605170185988092, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.000\"", 1., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.000\"", 5., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.809142990314028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.521460917862246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.115995809754082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.961845129926823, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.8283137373023015`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.710530701645918, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.6592600369327783`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.4079456086518722`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.203972804325936, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.35667494393873245`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782628`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{-6.907755278982137, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.0010\"", 0.001, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.605170185988091, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.0100\"", 0.01, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-5.298317366548036, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.0050\"", 0.005, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.0500\"", 0.05, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-6.214608098422191, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.0020\"", 0.002, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.912023005428146, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.0200\"", 0.02, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-5.809142990314028, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.0030\"", 0.003, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.506557897319982, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.0300\"", 0.03, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-6.502290170873972, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.0015\"", 0.0015, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.199705077879927, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.0150\"", 0.015, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.961845129926823, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.0070\"", 0.007, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.659260036932778, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.0700\"", 0.07, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 4}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-6.812445099177812, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.725433722188182, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.6453910145146455`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.571283042360924, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.437751649736401, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.3771270279199666`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.319968614080018, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.2659013928097425`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.521460917862246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.115995809754082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.8283137373023015`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.710530701645918, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.487387150331708, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.382026634673882, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.286716454869556, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.135166556742356, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.074541934925921, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.017383521085972, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.9633162998156966`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{3.576421874180422*^9, 3.576422003771401*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Bottom", " ", "pannel", " ", "of", " ", "figure", " ", "4", " ", "of", 
    " ", "the", " ", 
    RowBox[{"Sup", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"r1l", "=", "0.9"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"r2l", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q1l1", "=", "0.001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q2l1", "=", "0.0001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q1l2", "=", "0.00001"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"q2l2", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"listeq41", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"listeq40", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list1s12", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list2s12", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list1exact", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"list2exact", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"listeq13", "=", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "0"}], ",", 
     RowBox[{"i", "<", "8"}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"ll", "=", 
       RowBox[{"2", "^", "i"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{
        RowBox[{"Eq41", "/.", 
         RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
        RowBox[{"r2", "\[Rule]", "r2l"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"listeq41", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"listeq41", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ll", ",", "temp"}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Eq40AsWritten", "/.", 
               RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", "0"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"listeq40", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"listeq40", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ll", ",", "temp"}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Eq34", "/.", 
                    RowBox[{"s2", "\[Rule]", 
                    RowBox[{"q2", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"1", "/", 
                    RowBox[{"(", 
                    RowBox[{"r2", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "-", "m"}], ")"}], "^", 
                    RowBox[{"(", 
                    RowBox[{"l", "+", "1"}], ")"}]}]}], ")"}]}]}], 
                    ")"}]}]}]}], ")"}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                   RowBox[{"q1", "\[Rule]", "q1l2"}]}], "/.", 
                  RowBox[{"q2", "\[Rule]", "q2l2"}]}], "/.", 
                 RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}], 
            "\[Equal]", "0"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"list2s12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list2s12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ll", ",", "temp"}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"s1", "/.", 
                    RowBox[{"Sol", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                   RowBox[{"q1", "\[Rule]", "q1l2"}]}], "/.", 
                  RowBox[{"q2", "\[Rule]", "q2l2"}]}], "/.", 
                 RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}], 
            "\[Equal]", "0"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"list2exact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list2exact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ll", ",", "temp"}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Eq13", "/.", 
                RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
               RowBox[{"L", "\[Rule]", "ll"}]}], "/.", 
              RowBox[{"r2", "\[Rule]", "r2l"}]}], ")"}], "\[Equal]", "0"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"listeq13", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"listeq13", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ll", ",", "temp"}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Eq34", "/.", 
                    RowBox[{"s2", "\[Rule]", 
                    RowBox[{"q2", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"1", "/", 
                    RowBox[{"(", 
                    RowBox[{"r2", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "-", "m"}], ")"}], "^", 
                    RowBox[{"(", 
                    RowBox[{"l", "+", "1"}], ")"}]}]}], ")"}]}]}], 
                    ")"}]}]}]}], ")"}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                   RowBox[{"q1", "\[Rule]", "q1l1"}]}], "/.", 
                  RowBox[{"q2", "\[Rule]", "q2l1"}]}], "/.", 
                 RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}], 
            "\[Equal]", "0"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"list1s12", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list1s12", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ll", ",", "temp"}], "}"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"temp", "=", 
       RowBox[{"Re", "[", 
        RowBox[{"m", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"s1", "/.", 
                    RowBox[{"Sol", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/.", 
                    RowBox[{"n2", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r2", "/", "q2"}], ")"}]}]}], "/.", 
                    RowBox[{"n1", "\[Rule]", 
                    RowBox[{"(", 
                    RowBox[{"r1", "/", "q1"}], ")"}]}]}], "/.", 
                    RowBox[{"r1", "\[Rule]", "r1l"}]}], "/.", 
                   RowBox[{"q1", "\[Rule]", "q1l1"}]}], "/.", 
                  RowBox[{"q2", "\[Rule]", "q2l1"}]}], "/.", 
                 RowBox[{"l", "\[Rule]", "ll"}]}], "/.", 
                RowBox[{"r2", "\[Rule]", "r2l"}]}], ",", "m"}], "]"}], ")"}], 
            "\[Equal]", "0"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "temp"}], "}"}]}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"list1exact", "=", 
       RowBox[{"Join", "[", 
        RowBox[{"list1exact", ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"ll", ",", "temp"}], "}"}], "}"}]}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "list1exact", ",", "list2exact", ",", "list1s12", ",", "list2s12", ",", 
       "listeq13", ",", "listeq40", ",", "listeq41"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", "Black", "}"}], ",", 
        RowBox[{"{", "Blue", "}"}], ",", 
        RowBox[{"{", "Purple", "}"}], ",", 
        RowBox[{"{", "Green", "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dotted"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Orange", ",", "DotDashed"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\>\"", ",", "\"\<\>\"", ",", "\[EmptyUpTriangle]", ",", 
        "\[EmptyDownTriangle]", ",", "\[EmptySquare]", ",", "\"\<\>\"", ",", 
        "\"\<\>\""}], "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.576421814705865*^9, 3.576421819910796*^9}, {
  3.576422012700656*^9, 3.576422089755054*^9}, {3.576422138990553*^9, 
  3.57642214097672*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGCwAGIQDQMrplkXnL7PeOC95a9/TnrP7Ltecqp8PMcK5X+z
v7vcKOKFLdeB4tXW9psWMTgc2LZwd5skP1SezWHihudHVioIHcg+sWPf5Z3c
Dl8eMJdtPy0CVS/g0NO5rWtxs/iBjZ+k5ldlCDvUnvJyjXGSOgCzf9mE4Cdr
5f/th9lveVfbpt+MCW5/0PNErw9WbHD7ld8opho/4YLbH6i3acrOb/xw++0j
1PunLhaC2//zjlWjSZwo3P511ry6uaoScPsfJXSa3b3IBPf/YnXuA756bHD7
/7K9X7w1FuH/lKqKC6+UEP63f/Br1SdFhP9NV5xYxnsG4f8vpYFzdyL5f/Jf
h9uJSP7/NC9gWZ0Cwv8bGE9mXUTyv9nXzGQxa4T/nyw/9MQdyf8qa14rHkHy
v9MtP/0ZSP6fpTzziCmS/3eavjqI7P81kcrrk3mZ4f6/GrCcYX84wv+Kxxak
5Zcj/P927qLGDkOE/wsSm/XvqSL8f+b99ACxcwj/C/GKfjjUgvD/mltqZ58j
+d+1atlsO6T4F+yP2nneFOF/9QXPegMtEf7/6Piu4f8DhP+77rrebviA8H9s
DLPq5LkI//f8ZqjeG4Twv+xBS1lZAYT/mRS0fnGv/gO3n5t5bdWryYxw++U9
fC3FVrHC7Z/QwrzjfizC/v8Mgf8TShD2a8uKSaYnIuy3yLI36hVH2N/3PcEj
96r4AQAeo5r5
     "], {{{}, {}, 
       {GrayLevel[0], Dashing[{Small, Small}], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8}]}, 
       {GrayLevel[0], LineBox[{9, 10, 11, 12, 13, 14, 15, 16}]}, 
       {RGBColor[0, 0, 1], LineBox[{17, 18, 19, 20, 21, 22, 23, 24}]}, 
       {RGBColor[0.5, 0, 0.5], LineBox[{25, 26, 27, 28, 29, 30, 31, 32}]}, 
       {RGBColor[0, 1, 0], LineBox[{33, 34, 35, 36, 37, 38, 39, 40}]}, 
       {RGBColor[1, 0, 0], Dashing[{0, Small}], 
        LineBox[{41, 42, 43, 44, 45, 46, 47, 48}]}, 
       {RGBColor[1, 0.5, 0], Dashing[{0, Small, Small, Small}], 
        LineBox[{49, 50, 51, 52, 53, 54, 55, 56}]}}, {
       {GrayLevel[0], Dashing[{Small, Small}], 
        TagBox[InsetBox["", 1],
         "InsetString"], 
        TagBox[InsetBox["", 2],
         "InsetString"], 
        TagBox[InsetBox["", 3],
         "InsetString"], 
        TagBox[InsetBox["", 4],
         "InsetString"], 
        TagBox[InsetBox["", 5],
         "InsetString"], 
        TagBox[InsetBox["", 6],
         "InsetString"], 
        TagBox[InsetBox["", 7],
         "InsetString"], 
        TagBox[InsetBox["", 8],
         "InsetString"]}, 
       {GrayLevel[0], 
        TagBox[InsetBox["", 9],
         "InsetString"], 
        TagBox[InsetBox["", 10],
         "InsetString"], 
        TagBox[InsetBox["", 11],
         "InsetString"], 
        TagBox[InsetBox["", 12],
         "InsetString"], 
        TagBox[InsetBox["", 13],
         "InsetString"], 
        TagBox[InsetBox["", 14],
         "InsetString"], 
        TagBox[InsetBox["", 15],
         "InsetString"], 
        TagBox[InsetBox["", 16],
         "InsetString"]}, 
       {RGBColor[0, 0, 1], InsetBox["\[EmptyUpTriangle]", 17], 
        InsetBox["\[EmptyUpTriangle]", 18], 
        InsetBox["\[EmptyUpTriangle]", 19], 
        InsetBox["\[EmptyUpTriangle]", 20], 
        InsetBox["\[EmptyUpTriangle]", 21], 
        InsetBox["\[EmptyUpTriangle]", 22], 
        InsetBox["\[EmptyUpTriangle]", 23], 
        InsetBox["\[EmptyUpTriangle]", 24]}, 
       {RGBColor[0.5, 0, 0.5], InsetBox["\[EmptyDownTriangle]", 25], 
        InsetBox["\[EmptyDownTriangle]", 26], 
        InsetBox["\[EmptyDownTriangle]", 27], 
        InsetBox["\[EmptyDownTriangle]", 28], 
        InsetBox["\[EmptyDownTriangle]", 29], 
        InsetBox["\[EmptyDownTriangle]", 30], 
        InsetBox["\[EmptyDownTriangle]", 31], 
        InsetBox["\[EmptyDownTriangle]", 32]}, 
       {RGBColor[0, 1, 0], InsetBox["\[EmptySquare]", 33], 
        InsetBox["\[EmptySquare]", 34], InsetBox["\[EmptySquare]", 35], 
        InsetBox["\[EmptySquare]", 36], InsetBox["\[EmptySquare]", 37], 
        InsetBox["\[EmptySquare]", 38], InsetBox["\[EmptySquare]", 39], 
        InsetBox["\[EmptySquare]", 40]}, 
       {RGBColor[1, 0, 0], Dashing[{0, Small}], 
        TagBox[InsetBox["", 41],
         "InsetString"], 
        TagBox[InsetBox["", 42],
         "InsetString"], 
        TagBox[InsetBox["", 43],
         "InsetString"], 
        TagBox[InsetBox["", 44],
         "InsetString"], 
        TagBox[InsetBox["", 45],
         "InsetString"], 
        TagBox[InsetBox["", 46],
         "InsetString"], 
        TagBox[InsetBox["", 47],
         "InsetString"], 
        TagBox[InsetBox["", 48],
         "InsetString"]}, 
       {RGBColor[1, 0.5, 0], Dashing[{0, Small, Small, Small}], 
        TagBox[InsetBox["", 49],
         "InsetString"], 
        TagBox[InsetBox["", 50],
         "InsetString"], 
        TagBox[InsetBox["", 51],
         "InsetString"], 
        TagBox[InsetBox["", 52],
         "InsetString"], 
        TagBox[InsetBox["", 53],
         "InsetString"], 
        TagBox[InsetBox["", 54],
         "InsetString"], 
        TagBox[InsetBox["", 55],
         "InsetString"], 
        TagBox[InsetBox["", 56],
         "InsetString"]}, {}}}], {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, -6.5653373770680155`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-6.907755278982137, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-6.214608098422191, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.002\"", 0.002, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-5.298317366548036, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.605170185988092, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.912023005428146, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.2039728043259361`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {-4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {-2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.2039728043259361`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{0., 
       FormBox["1", TraditionalForm]}, {0.6931471805599453, 
       FormBox["2", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["5", TraditionalForm]}, {2.302585092994046, 
       FormBox["10", TraditionalForm]}, {2.995732273553991, 
       FormBox["20", TraditionalForm]}, {3.912023005428146, 
       FormBox["50", TraditionalForm]}, {4.605170185988092, 
       FormBox["100", TraditionalForm]}, {5.298317366548036, 
       FormBox["200", TraditionalForm]}, {6.214608098422191, 
       FormBox["500", TraditionalForm]}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0., 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{
    0, 4.852030263919617}, {-6.5653373770680155`, -1.791759469228055}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.09704060527839234, 0.09704060527839234}, {
   0.09547155815679922, 0.09547155815679922}},
  Ticks->{{{0., 
      FormBox["1", TraditionalForm]}, {0.6931471805599453, 
      FormBox["2", TraditionalForm]}, {1.6094379124341003`, 
      FormBox["5", TraditionalForm]}, {2.302585092994046, 
      FormBox["10", TraditionalForm]}, {2.995732273553991, 
      FormBox["20", TraditionalForm]}, {3.912023005428146, 
      FormBox["50", TraditionalForm]}, {4.605170185988092, 
      FormBox["100", TraditionalForm]}, {5.298317366548036, 
      FormBox["200", TraditionalForm]}, {6.214608098422191, 
      FormBox["500", TraditionalForm]}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.703782474656201, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{-6.907755278982137, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-6.214608098422191, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.002\"", 0.002, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-5.298317366548036, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.605170185988092, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.912023005428146, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-5.809142990314028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.521460917862246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.115995809754082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.961845129926823, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.8283137373023015`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.710530701645918, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.6592600369327783`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.4079456086518722`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.2039728043259361`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.5764218170477247`*^9, 3.57642182032095*^9}, 
   3.57642209688022*^9}]
}, Open  ]]
},
WindowSize->{737, 573},
WindowMargins->{{Automatic, 59}, {Automatic, 0}},
FrontEndVersion->"9.0 for Linux x86 (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 710, 16, 143, "Input"],
Cell[1270, 38, 1160, 20, 187, "Input"],
Cell[2433, 60, 111, 1, 55, "Input"],
Cell[2547, 63, 297, 6, 55, "Input"],
Cell[2847, 71, 87, 1, 55, "Input"],
Cell[2937, 74, 3891, 113, 275, "Input"],
Cell[CellGroupData[{
Cell[6853, 191, 4729, 137, 385, "Input"],
Cell[11585, 330, 2231, 70, 107, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13853, 405, 15162, 400, 1771, "Input"],
Cell[29018, 807, 20648, 401, 236, "Output"],
Cell[49669, 1210, 19863, 403, 240, "Output"],
Cell[69535, 1615, 11767, 262, 240, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81339, 1882, 12991, 353, 1229, "Input"],
Cell[94333, 2237, 954, 27, 52, "Output"],
Cell[95290, 2266, 414, 6, 32, "Output"],
Cell[95707, 2274, 414, 6, 32, "Output"],
Cell[96124, 2282, 549, 12, 50, "Output"],
Cell[96676, 2296, 1509, 41, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98222, 2342, 14982, 400, 1639, "Input"],
Cell[113207, 2744, 137, 2, 32, "Output"],
Cell[113347, 2748, 10255, 194, 241, "Output"],
Cell[123605, 2944, 23412, 475, 236, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[147054, 3424, 23696, 683, 2299, "Input"],
Cell[170753, 4109, 3559, 66, 245, "Output"],
Cell[174315, 4177, 26827, 560, 238, "Output"]
}, Open  ]],
Cell[201157, 4740, 165, 2, 32, "Input"],
Cell[CellGroupData[{
Cell[201347, 4746, 25486, 737, 2453, "Input"],
Cell[226836, 5485, 6336, 114, 239, "Output"],
Cell[233175, 5601, 28482, 552, 239, "Output"]
}, Open  ]],
Cell[261672, 6156, 94, 1, 32, "Input"],
Cell[261769, 6159, 92, 1, 32, "Input"],
Cell[261864, 6162, 265, 6, 55, "Input"],
Cell[262132, 6170, 87, 1, 55, "Input"],
Cell[262222, 6173, 14127, 411, 1061, "Input"],
Cell[CellGroupData[{
Cell[276374, 6588, 1362, 35, 121, "Input"],
Cell[277739, 6625, 546, 11, 61, "Message"],
Cell[278288, 6638, 551, 10, 32, "Output"],
Cell[278842, 6650, 544, 11, 61, "Message"],
Cell[279389, 6663, 549, 10, 32, "Output"],
Cell[279941, 6675, 544, 11, 61, "Message"],
Cell[280488, 6688, 672, 15, 32, "Output"],
Cell[281163, 6705, 544, 11, 61, "Message"],
Cell[281710, 6718, 673, 15, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[282420, 6738, 26622, 734, 2277, "Input"],
Cell[309045, 7474, 784, 14, 80, "Message"],
Cell[309832, 7490, 783, 14, 80, "Message"],
Cell[310618, 7506, 43311, 767, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[353966, 8278, 26215, 723, 2211, "Input"],
Cell[380184, 9003, 46893, 835, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[427114, 9843, 26102, 722, 2189, "Input"],
Cell[453219, 10567, 761, 14, 80, "Message"],
Cell[453983, 10583, 40048, 712, 374, "Output"]
}, Open  ]],
Cell[494046, 11298, 87, 1, 55, "Input"],
Cell[494136, 11301, 308, 7, 55, "Input"],
Cell[494447, 11310, 87, 1, 55, "Input"],
Cell[494537, 11313, 511, 12, 99, "Input"],
Cell[CellGroupData[{
Cell[495073, 11329, 208, 4, 55, "Input"],
Cell[495284, 11335, 405, 9, 62, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[495726, 11349, 54445, 1498, 5071, "Input"],
Cell[550174, 12849, 45096, 779, 236, 18260, 337, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[595307, 13633, 77070, 2100, 6435, "Input"],
Cell[672380, 15735, 549, 11, 61, "Message"],
Cell[672932, 15748, 549, 11, 61, "Message"],
Cell[673484, 15761, 549, 11, 61, "Message"],
Cell[674036, 15774, 549, 11, 61, "Message"],
Cell[674588, 15787, 549, 11, 61, "Message"],
Cell[675140, 15800, 549, 11, 61, "Message"],
Cell[675692, 15813, 41740, 728, 247, 17181, 324, "CachedBoxData", "BoxData", \
"Output"],
Cell[717435, 16543, 45113, 780, 236, 18268, 338, "CachedBoxData", "BoxData", \
"Output"],
Cell[762551, 17325, 35320, 638, 244, 24018, 451, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[797886, 17966, 137, 2, 55, "Input"],
Cell[CellGroupData[{
Cell[798048, 17972, 78571, 2130, 6325, "Input"],
Cell[876622, 20104, 39935, 696, 241, 16247, 306, "CachedBoxData", "BoxData", \
"Output"],
Cell[916560, 20802, 40379, 705, 245, 16378, 310, "CachedBoxData", "BoxData", \
"Output"],
Cell[956942, 21509, 43930, 760, 238, 17468, 324, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[1000887, 22272, 210, 3, 55, "Input"],
Cell[1001100, 22277, 255, 5, 55, "Input"],
Cell[1001358, 22284, 87, 1, 55, "Input"],
Cell[1001448, 22287, 421, 9, 77, "Input"],
Cell[CellGroupData[{
Cell[1001894, 22300, 512434, 13344, 35805, "Input"],
Cell[1514331, 35646, 19572, 350, 240, "Output"]
}, Open  ]],
Cell[1533918, 35999, 118, 2, 32, "Input"],
Cell[1534039, 36003, 111, 1, 55, "Input"],
Cell[1534153, 36006, 282, 6, 55, "Input"],
Cell[1534438, 36014, 87, 1, 55, "Input"],
Cell[1534528, 36017, 5384, 142, 473, "Input"],
Cell[1539915, 36161, 92, 1, 32, "Input"],
Cell[1540010, 36164, 7037, 194, 815, "Input"],
Cell[1547050, 36360, 6892, 189, 656, "Input"],
Cell[CellGroupData[{
Cell[1553967, 36553, 19807, 479, 1947, "Input"],
Cell[1573777, 37034, 379, 8, 47, "Output"],
Cell[1574159, 37044, 781, 14, 80, "Message"],
Cell[1574943, 37060, 780, 14, 80, "Message"],
Cell[1575726, 37076, 781, 14, 80, "Message"],
Cell[1576510, 37092, 624, 12, 24, "Message"],
Cell[1577137, 37106, 39324, 767, 236, "Output"]
}, Open  ]],
Cell[1616476, 37876, 1520, 45, 121, "Input"],
Cell[CellGroupData[{
Cell[1618021, 37925, 13465, 347, 1573, "Input"],
Cell[1631489, 38274, 35622, 791, 235, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1667148, 39070, 12771, 338, 1551, "Input"],
Cell[1679922, 39410, 710, 13, 80, "Message"],
Cell[1680635, 39425, 709, 13, 80, "Message"],
Cell[1681347, 39440, 710, 13, 80, "Message"],
Cell[1682060, 39455, 553, 11, 24, "Message"],
Cell[1682616, 39468, 35596, 792, 231, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1718249, 40265, 12427, 327, 1551, "Input"],
Cell[1730679, 40594, 20972, 450, 236, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)