MSF.nb

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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    503560,      10396]
NotebookOptionsPosition[    498012,      10218]
NotebookOutlinePosition[    498344,      10233]
CellTagsIndexPosition[    498301,      10230]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"IntervalRect", "[", 
   RowBox[{"{", 
    RowBox[{"min_", ",", "max_"}], "}"}], "]"}], ":=", 
  RowBox[{"Rectangle", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"min", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"max", ",", "1"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IntervalRect", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"min_", ",", "max_"}], "}"}], ",", "kappamax_"}], "]"}], ":=", 
  RowBox[{"Rectangle", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"min", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Min", "[", 
       RowBox[{"max", ",", "kappamax"}], "]"}], ",", "1"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spectrum", "[", 
   RowBox[{"list_", ",", "max_"}], "]"}], ":=", 
  RowBox[{"Graphics", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Thickness", "[", "0.0015", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"#", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"#", ",", "1"}], "}"}]}], "}"}], "]"}], "&"}], "/@", 
       "list"}]}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "max"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotRangePadding", "\[Rule]", "None"}], ",", 
    RowBox[{"ImagePadding", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"60", ",", "30"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"60", ",", "0"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", "/", "10"}]}], ",", 
    RowBox[{"Axes", "\[Rule]", "None"}], ",", 
    RowBox[{"Frame", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False", ",", "True", ",", "False"}], "}"}]}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"TextCell", "[", 
      RowBox[{"\"\<Laplace Matrix Eigenvalue\>\"", ",", 
       RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"spectrumIntervals", "[", 
   RowBox[{"list_", ",", "max_", ",", "roots_"}], "]"}], ":=", 
  RowBox[{"Graphics", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Lighter", "[", 
       RowBox[{"Blue", ",", "0.85"}], "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"IntervalRect", "[", 
         RowBox[{"#", ",", "max"}], "]"}], "&"}], "/@", "roots"}], ",", 
      "Black", ",", 
      RowBox[{"Thickness", "[", "0.0015", "]"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"#", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"#", ",", "1"}], "}"}]}], "}"}], "]"}], "&"}], "/@", 
       "list"}]}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "max"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotRangePadding", "\[Rule]", "None"}], ",", 
    RowBox[{"ImagePadding", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"60", ",", "30"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"60", ",", "0"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", "/", "10"}]}], ",", 
    RowBox[{"Axes", "\[Rule]", "None"}], ",", 
    RowBox[{"Frame", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False", ",", "True", ",", "False"}], "}"}]}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"TextCell", "[", 
      RowBox[{"\"\<Laplace Matrix Eigenvalue\>\"", ",", 
       RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"InverseParticipationRatio", "[", "v_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Norm", "[", 
    RowBox[{
     RowBox[{"Normalize", "[", "v", "]"}], ",", "4"}], "]"}], "^", 
   "4"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NormalizeMatrixRows", "[", "M_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"A", "=", "M"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", 
       RowBox[{"i", "\[LessEqual]", 
        RowBox[{"Length", "[", "M", "]"}]}], ",", 
       RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "=", 
        RowBox[{"Normalize", "[", 
         RowBox[{
          RowBox[{"M", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", "Total"}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "A", "]"}], ";"}]}], "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.761547381716641*^9, 3.761547382869035*^9}}],

Cell[CellGroupData[{

Cell["Model functions", "Section",
 CellChangeTimes->{{3.6814618764609737`*^9, 3.68146188102896*^9}, {
  3.7506679302851353`*^9, 3.750667931501617*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Define", " ", "functions"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"g", "[", 
      RowBox[{"i_", ",", "k_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], "^", 
      RowBox[{"phi", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"i_", ",", "k_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], "^", 
      RowBox[{"mu", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"i_", ",", "k_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"t", "[", 
       RowBox[{"i", ",", "k"}], "]"}], 
      RowBox[{
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], "^", 
       RowBox[{"psi", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Kf", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"t", "[", 
          RowBox[{"i", ",", "k"}], "]"}], "+", 
         RowBox[{"Kf", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"t", "[", 
     RowBox[{"i_", ",", "k_"}], "]"}], ":=", 
    RowBox[{"(", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{"x", "[", 
          RowBox[{"j", ",", "k"}], "]"}], "[", "t", "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "S"}], "}"}]}], "]"}], ")"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lo", "[", 
     RowBox[{"i_", ",", "j_", ",", "k_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], "^", 
      RowBox[{"psi", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], 
     RowBox[{
      RowBox[{"x", "[", 
       RowBox[{"j", ",", "k"}], "]"}], "[", "t", "]"}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Kf", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Kf", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "+", 
        RowBox[{"t", "[", 
         RowBox[{"i", ",", "k"}], "]"}]}], ")"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e", "[", 
     RowBox[{"i_", ",", "k_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"d", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"L", "[", 
         RowBox[{"[", 
          RowBox[{"k", ",", "l"}], "]"}], "]"}], 
        RowBox[{
         RowBox[{"x", "[", 
          RowBox[{"i", ",", "l"}], "]"}], "[", "t", "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"l", ",", "Nvertices"}], "}"}]}], "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.761544344056507*^9, 3.761544383624333*^9}, 
   3.761548020862006*^9, {3.76155308562702*^9, 3.7615530877892714`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Import and set parameters", "Section",
 CellChangeTimes->{{3.681449472669406*^9, 3.6814494753815117`*^9}, {
  3.6814615588837147`*^9, 3.6814615810840263`*^9}, {3.762253193005281*^9, 
  3.762253193941127*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"InitParameterZeros", "[", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"alpha", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", "S"}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"sigma", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", "S"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"sigmatilde", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", "S"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"delta", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", "S"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"deltatilde", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", "S"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"beta", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", "S", ",", "S"}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"psi", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", "S"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"phi", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", "S"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"mu", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", "S"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"gamma", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", "S"}], "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"M", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", "S"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"d", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", "S"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Kf", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", "S"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Spatial", " ", "web"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Nvertices", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", 
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "3", ",", 
       RowBox[{"-", "1"}], ",", "0", ",", 
       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}], ",", "2", ",", "0", ",", "0", ",", "0"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0", ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
       RowBox[{"-", "1"}], ",", "0", ",", "2"}], "}"}]}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7615438253643084`*^9, 3.761543928751631*^9}, {
  3.761543979544189*^9, 3.761544074016247*^9}, {3.761544118000333*^9, 
  3.761544131304173*^9}, {3.761544189104135*^9, 3.761544230952091*^9}, {
  3.761544285728187*^9, 3.761544335632276*^9}, {3.7615480631814632`*^9, 
  3.761548064373847*^9}}],

Cell[CellGroupData[{

Cell["4 Species System", "Subsection",
 CellChangeTimes->{{3.6823109385600758`*^9, 3.682310942199986*^9}, {
  3.682311023159999*^9, 3.682311024928*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Load4SpeciesParameters", "[", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"S", "=", "4"}], ";", "\[IndentingNewLine]", 
      RowBox[{"index", "=", "37"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"load", " ", "parameters", " ", "from", " ", "file"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"ParLocDyn5", "=", 
       RowBox[{
        RowBox[{"Partition", "[", 
         RowBox[{
          RowBox[{"Import", "[", 
           RowBox[{
           "\"\</home/brechtel/Dokumente/nphys/Data/PAR_4_1_0_0.33.txt\>\"", 
            ",", "\"\<Table\>\""}], "]"}], ",", 
          RowBox[{"S", "+", "2"}]}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"2", ";;", 
           RowBox[{"-", "2"}]}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"MA1LocDyn5", "=", 
       RowBox[{
        RowBox[{"Take", "[", 
         RowBox[{
          RowBox[{"Partition", "[", 
           RowBox[{
            RowBox[{"Import", "[", 
             RowBox[{
             "\"\</home/brechtel/Dokumente/nphys/Data/MA1_4_1_0_0.33.txt\>\"",
               ",", "\"\<Table\>\""}], "]"}], ",", 
            RowBox[{"S", "+", "1"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"-", "1"}], ",", 
            RowBox[{"5", "+", "2"}]}], "}"}]}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"2", ";;", 
           RowBox[{"-", "1"}]}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"set", " ", "parameters"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"InitParameterZeros", "[", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"niche", "=", 
       RowBox[{
        RowBox[{"ParLocDyn5", "[", 
         RowBox[{"[", "index", "]"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"1", ";;", "S"}], ",", "2"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"lima", "=", 
       RowBox[{"Transpose", "[", 
        RowBox[{"MA1LocDyn5", "[", 
         RowBox[{"[", "index", "]"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"i", "\[LessEqual]", "S"}], ",", 
        RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"body", " ", "mass"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"M", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"4", 
             RowBox[{"niche", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"migration", " ", "rate"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"d", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{"2.", " ", 
           RowBox[{"10", "^", 
            RowBox[{"-", "2"}]}], " ", 
           RowBox[{
            RowBox[{"M", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "^", 
            RowBox[{"-", "1"}]}]}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"biomass", " ", "flow"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"alpha", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"ParLocDyn5", "[", 
            RowBox[{"[", "index", "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", 
             RowBox[{"-", "1"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
          "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"exponent", " ", "parameters"}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"psi", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"ParLocDyn5", "[", 
            RowBox[{"[", "index", "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "14"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"phi", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"ParLocDyn5", "[", 
            RowBox[{"[", "index", "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "13"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"mu", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"ParLocDyn5", "[", 
            RowBox[{"[", "index", "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "18"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"gamma", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"ParLocDyn5", "[", 
            RowBox[{"[", "index", "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "16"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Kf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"gamma", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "/", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"gamma", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"scale", " ", "parameters"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"sigma", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ":=", 
          RowBox[{
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{"lima", "[", 
              RowBox[{"[", 
               RowBox[{"n", ",", "i"}], "]"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"n", ",", "S"}], "}"}]}], "]"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{"lima", "[", 
                RowBox[{"[", 
                 RowBox[{"n", ",", "i"}], "]"}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"n", ",", "S"}], "}"}]}], "]"}], "+", "1"}], 
            ")"}]}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"sigmatilde", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{"1", "-", 
           RowBox[{"sigma", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{"lima", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"j", ",", "S"}], "}"}]}], "]"}], ">", "0"}], ",", 
           RowBox[{
            RowBox[{"delta", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ",", 
           RowBox[{
            RowBox[{"delta", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "=", "0"}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"deltatilde", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{"1", "-", 
           RowBox[{"delta", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"j", "=", "1"}], ",", 
           RowBox[{"j", "\[LessEqual]", "S"}], ",", 
           RowBox[{"++", "j"}], ",", 
           RowBox[{
            RowBox[{"beta", "[", 
             RowBox[{"[", 
              RowBox[{"j", ",", "i"}], "]"}], "]"}], "=", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"sigma", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", 
              RowBox[{
               RowBox[{"lima", "[", 
                RowBox[{"[", 
                 RowBox[{"j", ",", "i"}], "]"}], "]"}], "/", 
               RowBox[{"Sum", "[", 
                RowBox[{
                 RowBox[{"lima", "[", 
                  RowBox[{"[", 
                   RowBox[{"n", ",", "i"}], "]"}], "]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"n", ",", "S"}], "}"}]}], "]"}]}], ",", "0"}], 
             "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"c", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", "1", 
           ",", "0"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"A", "=", 
       RowBox[{"NormalizeMatrixRows", "[", "lima", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"foodweb", "=", 
       RowBox[{"AdjacencyGraph", "[", "c", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"top", "=", "3"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6814512893958483`*^9, 3.681451295335609*^9}, 
   3.681458745288398*^9, {3.681460858123176*^9, 3.681460872523047*^9}, {
   3.681461196963696*^9, 3.681461293756279*^9}, {3.681461325628023*^9, 
   3.681461383884532*^9}, {3.6814615230043583`*^9, 3.6814615503090467`*^9}, {
   3.681461588405912*^9, 3.6814616763413897`*^9}, {3.682311027121771*^9, 
   3.682311105161251*^9}, {3.682311799426526*^9, 3.6823118068106833`*^9}, 
   3.682323203472062*^9, {3.7614742229659567`*^9, 3.761474223638874*^9}, {
   3.761543914840763*^9, 3.761543951672618*^9}, {3.761544027880821*^9, 
   3.761544037257111*^9}, {3.7615440870332108`*^9, 3.76154410803253*^9}, {
   3.761544158361582*^9, 3.761544164937652*^9}, {3.761544263185034*^9, 
   3.761544281672777*^9}, {3.761544512585496*^9, 3.7615445166251583`*^9}, 
   3.761544548265667*^9, {3.7615446142737503`*^9, 3.761544615210257*^9}, {
   3.7615446676979322`*^9, 3.761544671505912*^9}, 3.761544808570799*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Load4SpeciesParameters", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "A", "]"}], "\[IndentingNewLine]", 
 RowBox[{"plt5s", "=", 
  RowBox[{"GraphPlot", "[", 
   RowBox[{
    RowBox[{"AdjacencyGraph", "[", "c", "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"VertexRenderingFunction", "\[Rule]", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"p", ",", "l"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"RGBColor", "[", 
          RowBox[{
           RowBox[{"204", "/", "255"}], ",", 
           RowBox[{"227", "/", "255"}], ",", 
           RowBox[{"255", "/", "255"}]}], "]"}], ",", 
         RowBox[{"EdgeForm", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black"}], "}"}], 
          "]"}], ",", 
         RowBox[{"Disk", "[", 
          RowBox[{"p", ",", "0.2"}], "]"}], ",", 
         RowBox[{"Directive", "[", 
          RowBox[{"Black", ",", 
           RowBox[{"FontSize", "\[Rule]", "12"}], ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}], 
         ",", 
         RowBox[{"Text", "[", 
          RowBox[{"l", ",", "p"}], "]"}]}], "}"}]}], "]"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"EdgeRenderingFunction", "\[Rule]", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"p", ",", "vl", ",", "el"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Thickness", "[", "0.01", "]"}], ",", 
         RowBox[{"Arrowheads", "[", "Medium", "]"}], ",", 
         RowBox[{"Arrow", "[", 
          RowBox[{
           RowBox[{"Reverse", "[", "p", "]"}], ",", "0.2"}], "]"}]}], "}"}]}],
       "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"ImageSize", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"130", ",", "300"}], "}"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.761474308224242*^9, 3.761474308350698*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.`", "0.4549091381535109`", "0.`", "0.5450908618464891`"},
     {"0.`", "0.`", "0.`", "0.9999999999999999`"},
     {"0.`", "1.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.761474313207444*^9, {3.761544477080658*^9, 3.761544525647681*^9}, {
   3.7615445560470543`*^9, 3.761544618642758*^9}, {3.7615446518458242`*^9, 
   3.761544674402484*^9}, 3.7615448134378843`*^9, 3.7615450541825933`*^9, 
   3.761546393312467*^9, 3.7615467832943163`*^9, 3.761547412086688*^9, 
   3.761548070724327*^9, 3.761551410593882*^9, 3.761551634890582*^9, 
   3.761552994009207*^9, 3.7615530919700947`*^9, 3.7616444613214283`*^9, 
   3.7619904170673018`*^9, 3.761994300352178*^9, {3.762060349751081*^9, 
   3.762060379720052*^9}, 3.7620604377703867`*^9, 3.76206562379547*^9, 
   3.7621484585606728`*^9, 3.7622531982799187`*^9, 3.76225394270406*^9}],

Cell[BoxData[
 GraphicsBox[
  TagBox[{{
     {GrayLevel[0], Thickness[0.01], Arrowheads[Medium], 
      ArrowBox[{{-1., 1.}, {0., 2.}}, 0.2]}, 
     {GrayLevel[0], Thickness[0.01], Arrowheads[Medium], 
      ArrowBox[{{0., 0.}, {0., 2.}}, 0.2]}, 
     {GrayLevel[0], Thickness[0.01], Arrowheads[Medium], 
      ArrowBox[{{0., 0.}, {-1., 1.}}, 0.2]}, 
     {GrayLevel[0], Thickness[0.01], Arrowheads[Medium], 
      ArrowBox[{{-1., 1.}, {-1., 2.}}, 0.2]}}, {
     {RGBColor[
       NCache[
        Rational[4, 5], 0.8], 
       NCache[
        Rational[227, 255], 0.8901960784313725], 1], EdgeForm[{GrayLevel[0], 
      Thickness[0.01]}], DiskBox[{0., 2.}, 0.2], 
      {GrayLevel[0], 
       StyleBox[InsetBox["1", {0., 2.}],
        FontFamily->"Helvetica",
        FontSize->12]}}, 
     {RGBColor[
       NCache[
        Rational[4, 5], 0.8], 
       NCache[
        Rational[227, 255], 0.8901960784313725], 1], EdgeForm[{GrayLevel[0], 
      Thickness[0.01]}], DiskBox[{-1., 1.}, 0.2], 
      {GrayLevel[0], 
       StyleBox[InsetBox["2", {-1., 1.}],
        FontFamily->"Helvetica",
        FontSize->12]}}, 
     {RGBColor[
       NCache[
        Rational[4, 5], 0.8], 
       NCache[
        Rational[227, 255], 0.8901960784313725], 1], EdgeForm[{GrayLevel[0], 
      Thickness[0.01]}], DiskBox[{-1., 2.}, 0.2], 
      {GrayLevel[0], 
       StyleBox[InsetBox["3", {-1., 2.}],
        FontFamily->"Helvetica",
        FontSize->12]}}, 
     {RGBColor[
       NCache[
        Rational[4, 5], 0.8], 
       NCache[
        Rational[227, 255], 0.8901960784313725], 1], EdgeForm[{GrayLevel[0], 
      Thickness[0.01]}], DiskBox[{0., 0.}, 0.2], 
      {GrayLevel[0], 
       StyleBox[InsetBox["4", {0., 0.}],
        FontFamily->"Helvetica",
        FontSize->12]}}}},
   Annotation[#, 
    VertexCoordinateRules -> {{0., 2.}, {-1., 1.}, {-1., 2.}, {0., 0.}}]& ],
  AspectRatio->Automatic,
  FrameTicks->None,
  ImageSize->{130, 300},
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{
  3.761474313207444*^9, {3.761544477080658*^9, 3.761544525647681*^9}, {
   3.7615445560470543`*^9, 3.761544618642758*^9}, {3.7615446518458242`*^9, 
   3.761544674402484*^9}, 3.7615448134378843`*^9, 3.7615450541825933`*^9, 
   3.761546393312467*^9, 3.7615467832943163`*^9, 3.761547412086688*^9, 
   3.761548070724327*^9, 3.761551410593882*^9, 3.761551634890582*^9, 
   3.761552994009207*^9, 3.7615530919700947`*^9, 3.7616444613214283`*^9, 
   3.7619904170673018`*^9, 3.761994300352178*^9, {3.762060349751081*^9, 
   3.762060379720052*^9}, 3.7620604377703867`*^9, 3.76206562379547*^9, 
   3.7621484585606728`*^9, 3.7622531982799187`*^9, 3.762253942735258*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["5 Species System (oscillation)", "Subsection",
 CellChangeTimes->{{3.681449472669406*^9, 3.6814494753815117`*^9}, {
   3.6814615588837147`*^9, 3.6814615810840263`*^9}, {3.682310954080051*^9, 
   3.682310999272154*^9}, 3.761473967029117*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Load5SpeciesParameters", "[", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"S", "=", "5"}], ";", "\[IndentingNewLine]", 
      RowBox[{"index", "=", "1"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"load", " ", "parameters", " ", "from", " ", "file"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"ParLocDyn5", "=", 
       RowBox[{
        RowBox[{"Partition", "[", 
         RowBox[{
          RowBox[{"Import", "[", 
           RowBox[{
           "\"\</home/brechtel/Dokumente/nphys/Data/Oszillation/PAR.txt\>\"", 
            ",", "\"\<Table\>\""}], "]"}], ",", 
          RowBox[{"S", "+", "2"}]}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"2", ";;", 
           RowBox[{"-", "2"}]}]}], "]"}], "]"}]}], ";", "\n", 
      "\[IndentingNewLine]", 
      RowBox[{"MA1LocDyn5", "=", 
       RowBox[{
        RowBox[{"Take", "[", 
         RowBox[{
          RowBox[{"Partition", "[", 
           RowBox[{
            RowBox[{"Import", "[", 
             RowBox[{
             "\"\</home/brechtel/Dokumente/nphys/Data/Oszillation/MA.txt\>\"",
               ",", "\"\<Table\>\""}], "]"}], ",", 
            RowBox[{"S", "+", "1"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"-", "1"}], ",", 
            RowBox[{"5", "+", "2"}]}], "}"}]}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", 
          RowBox[{"2", ";;", 
           RowBox[{"-", "1"}]}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"set", " ", "parameters"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"InitParameterZeros", "[", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"niche", "=", 
       RowBox[{
        RowBox[{"ParLocDyn5", "[", 
         RowBox[{"[", "index", "]"}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"1", ";;", "S"}], ",", "2"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"lima", "=", 
       RowBox[{"Transpose", "[", 
        RowBox[{"MA1LocDyn5", "[", 
         RowBox[{"[", "index", "]"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"i", "\[LessEqual]", "S"}], ",", 
        RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"body", " ", "mass"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"M", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"8", 
             RowBox[{"niche", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"migration", " ", "rate"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"d", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"10", "^", "1"}], "  ", 
           RowBox[{
            RowBox[{"M", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "^", 
            RowBox[{"-", "1"}]}]}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"biomass", " ", "flow"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"alpha", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"ParLocDyn5", "[", 
            RowBox[{"[", "index", "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", 
             RowBox[{"-", "1"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]",
          "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"exponent", " ", "parameters"}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"psi", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"ParLocDyn5", "[", 
            RowBox[{"[", "index", "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "14"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"phi", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"ParLocDyn5", "[", 
            RowBox[{"[", "index", "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "13"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"mu", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"ParLocDyn5", "[", 
            RowBox[{"[", "index", "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "18"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"gamma", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"ParLocDyn5", "[", 
            RowBox[{"[", "index", "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "16"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Kf", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"gamma", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "/", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"gamma", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"scale", " ", "parameters"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"sigma", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{"lima", "[", 
              RowBox[{"[", 
               RowBox[{"n", ",", "i"}], "]"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"n", ",", "S"}], "}"}]}], "]"}], "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{"lima", "[", 
                RowBox[{"[", 
                 RowBox[{"n", ",", "i"}], "]"}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"n", ",", "S"}], "}"}]}], "]"}], "+", "1"}], 
            ")"}]}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"sigmatilde", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{"1", "-", 
           RowBox[{"sigma", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{"lima", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"j", ",", "S"}], "}"}]}], "]"}], ">", "0"}], ",", 
           RowBox[{
            RowBox[{"delta", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ",", 
           RowBox[{
            RowBox[{"delta", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "=", "0"}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"deltatilde", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{"1", "-", 
           RowBox[{"delta", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"j", "=", "1"}], ",", 
           RowBox[{"j", "\[LessEqual]", "S"}], ",", 
           RowBox[{"++", "j"}], ",", 
           RowBox[{
            RowBox[{"beta", "[", 
             RowBox[{"[", 
              RowBox[{"j", ",", "i"}], "]"}], "]"}], "=", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"sigma", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", 
              RowBox[{
               RowBox[{"lima", "[", 
                RowBox[{"[", 
                 RowBox[{"j", ",", "i"}], "]"}], "]"}], "/", 
               RowBox[{"Sum", "[", 
                RowBox[{
                 RowBox[{"lima", "[", 
                  RowBox[{"[", 
                   RowBox[{"n", ",", "i"}], "]"}], "]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"n", ",", "S"}], "}"}]}], "]"}]}], ",", "0"}], 
             "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"c", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", "1", 
           ",", "0"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"A", "=", 
       RowBox[{"NormalizeMatrixRows", "[", "lima", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"foodweb", "=", 
       RowBox[{"AdjacencyGraph", "[", "c", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"top", "=", "3"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6814512893958483`*^9, 3.681451295335609*^9}, 
   3.681458745288398*^9, {3.681460858123176*^9, 3.681460872523047*^9}, {
   3.681461196963696*^9, 3.681461293756279*^9}, {3.681461325628023*^9, 
   3.681461383884532*^9}, {3.6814615230043583`*^9, 3.6814615503090467`*^9}, {
   3.681461588405912*^9, 3.6814616763413897`*^9}, {3.682238224739957*^9, 
   3.682238273163892*^9}, 3.6822383227643623`*^9, {3.682238377164274*^9, 
   3.682238407956353*^9}, {3.682239005421256*^9, 3.6822390196764097`*^9}, 
   3.682239153759129*^9, {3.6823111192167883`*^9, 3.682311138345161*^9}, {
   3.68231143330643*^9, 3.682311433441921*^9}, {3.682311693233955*^9, 
   3.6823117096421413`*^9}, {3.6823117615146513`*^9, 3.68231176300249*^9}, {
   3.6823221252241287`*^9, 3.682322129614615*^9}, {3.761544713161572*^9, 
   3.761544803626383*^9}, {3.761544834410746*^9, 3.761544836049947*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Load5SpeciesParameters", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "A", "]"}], "\[IndentingNewLine]", 
 RowBox[{"plt5s", "=", 
  RowBox[{"GraphPlot", "[", 
   RowBox[{
    RowBox[{"AdjacencyGraph", "[", "c", "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"VertexRenderingFunction", "\[Rule]", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"p", ",", "l"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"RGBColor", "[", 
          RowBox[{
           RowBox[{"204", "/", "255"}], ",", 
           RowBox[{"227", "/", "255"}], ",", 
           RowBox[{"255", "/", "255"}]}], "]"}], ",", 
         RowBox[{"EdgeForm", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Thickness", "[", "0.01", "]"}], ",", "Black"}], "}"}], 
          "]"}], ",", 
         RowBox[{"Disk", "[", 
          RowBox[{"p", ",", "0.2"}], "]"}], ",", 
         RowBox[{"Directive", "[", 
          RowBox[{"Black", ",", 
           RowBox[{"FontSize", "\[Rule]", "12"}], ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}], 
         ",", 
         RowBox[{"Text", "[", 
          RowBox[{"l", ",", "p"}], "]"}]}], "}"}]}], "]"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"EdgeRenderingFunction", "\[Rule]", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"p", ",", "vl", ",", "el"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", 
         RowBox[{"Thickness", "[", "0.01", "]"}], ",", 
         RowBox[{"Arrowheads", "[", "Medium", "]"}], ",", 
         RowBox[{"Arrow", "[", 
          RowBox[{
           RowBox[{"Reverse", "[", "p", "]"}], ",", "0.2"}], "]"}]}], "}"}]}],
       "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"ImageSize", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"130", ",", "300"}], "}"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.6859483692215652`*^9, 3.6859483745733557`*^9}, {
   3.685948679541788*^9, 3.6859486930614233`*^9}, {3.685948753477923*^9, 
   3.6859487535654182`*^9}, 3.685948964694599*^9, {3.685949124070325*^9, 
   3.685949137055079*^9}, 3.685949249166884*^9, 3.6859493095104856`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.`", "0.`", "0.`", "0.`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "1.`"},
     {"0.`", "0.`", "0.`", "0.9999999999999999`", "0.`"},
     {"0.`", "0.`", "0.`", "0.`", "1.`"},
     {"1.`", "0.`", "0.`", "0.`", "0.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.685948357243959*^9, 3.685948375218877*^9}, {
   3.685948680950281*^9, 3.685948693562323*^9}, 3.68594875415965*^9, 
   3.685948966067256*^9, 3.685949035432535*^9, {3.685949125444976*^9, 
   3.685949137869053*^9}, 3.685949184585446*^9, 3.6859492500582237`*^9, 
   3.685949312096706*^9, 3.686036280364291*^9, 3.761474271342235*^9, {
   3.7615448182912483`*^9, 3.7615448386623373`*^9}, 3.761545119794984*^9, 
   3.761546393440648*^9, 3.7615467833575287`*^9, 3.761547417556449*^9, 
   3.7615480707747993`*^9, 3.761551410652874*^9, 3.761551634963173*^9, 
   3.761552994121955*^9, 3.7615530920294933`*^9, 3.7616444617412786`*^9, 
   3.761990421283609*^9, 3.761994300421406*^9, {3.762060350331916*^9, 
   3.762060380060462*^9}, 3.7620604380912848`*^9, 3.762065623876321*^9, 
   3.762148458676754*^9, 3.7622531984402018`*^9, 3.762253942794649*^9}],

Cell[BoxData[
 GraphicsBox[
  TagBox[{{
     {GrayLevel[0], Thickness[0.01], Arrowheads[Medium], 
      ArrowBox[{{0., 1.}, {-1., 2.}}, 0.2]}, 
     {GrayLevel[0], Thickness[0.01], Arrowheads[Medium], 
      ArrowBox[{{0., 2.}, {0., 3.}}, 0.2]}, 
     {GrayLevel[0], Thickness[0.01], Arrowheads[Medium], 
      ArrowBox[{{0., 1.}, {0., 2.}}, 0.2]}, 
     {GrayLevel[0], Thickness[0.01], Arrowheads[Medium], 
      ArrowBox[{{0., 0.}, {0., 1.}}, 0.2]}}, {
     {RGBColor[
       NCache[
        Rational[4, 5], 0.8], 
       NCache[
        Rational[227, 255], 0.8901960784313725], 1], EdgeForm[{GrayLevel[0], 
      Thickness[0.01]}], DiskBox[{0., 0.}, 0.2], 
      {GrayLevel[0], 
       StyleBox[InsetBox["1", {0., 0.}],
        FontFamily->"Helvetica",
        FontSize->12]}}, 
     {RGBColor[
       NCache[
        Rational[4, 5], 0.8], 
       NCache[
        Rational[227, 255], 0.8901960784313725], 1], EdgeForm[{GrayLevel[0], 
      Thickness[0.01]}], DiskBox[{-1., 2.}, 0.2], 
      {GrayLevel[0], 
       StyleBox[InsetBox["2", {-1., 2.}],
        FontFamily->"Helvetica",
        FontSize->12]}}, 
     {RGBColor[
       NCache[
        Rational[4, 5], 0.8], 
       NCache[
        Rational[227, 255], 0.8901960784313725], 1], EdgeForm[{GrayLevel[0], 
      Thickness[0.01]}], DiskBox[{0., 3.}, 0.2], 
      {GrayLevel[0], 
       StyleBox[InsetBox["3", {0., 3.}],
        FontFamily->"Helvetica",
        FontSize->12]}}, 
     {RGBColor[
       NCache[
        Rational[4, 5], 0.8], 
       NCache[
        Rational[227, 255], 0.8901960784313725], 1], EdgeForm[{GrayLevel[0], 
      Thickness[0.01]}], DiskBox[{0., 2.}, 0.2], 
      {GrayLevel[0], 
       StyleBox[InsetBox["4", {0., 2.}],
        FontFamily->"Helvetica",
        FontSize->12]}}, 
     {RGBColor[
       NCache[
        Rational[4, 5], 0.8], 
       NCache[
        Rational[227, 255], 0.8901960784313725], 1], EdgeForm[{GrayLevel[0], 
      Thickness[0.01]}], DiskBox[{0., 1.}, 0.2], 
      {GrayLevel[0], 
       StyleBox[InsetBox["5", {0., 1.}],
        FontFamily->"Helvetica",
        FontSize->12]}}}},
   Annotation[#, 
    VertexCoordinateRules -> {{0., 0.}, {-1., 2.}, {0., 3.}, {0., 2.}, {0., 
     1.}}]& ],
  AspectRatio->Automatic,
  FrameTicks->None,
  ImageSize->{130, 300},
  PlotRange->All,
  PlotRangePadding->Scaled[0.1]]], "Output",
 CellChangeTimes->{{3.685948357243959*^9, 3.685948375218877*^9}, {
   3.685948680950281*^9, 3.685948693562323*^9}, 3.68594875415965*^9, 
   3.685948966067256*^9, 3.685949035432535*^9, {3.685949125444976*^9, 
   3.685949137869053*^9}, 3.685949184585446*^9, 3.6859492500582237`*^9, 
   3.685949312096706*^9, 3.686036280364291*^9, 3.761474271342235*^9, {
   3.7615448182912483`*^9, 3.7615448386623373`*^9}, 3.761545119794984*^9, 
   3.761546393440648*^9, 3.7615467833575287`*^9, 3.761547417556449*^9, 
   3.7615480707747993`*^9, 3.761551410652874*^9, 3.761551634963173*^9, 
   3.761552994121955*^9, 3.7615530920294933`*^9, 3.7616444617412786`*^9, 
   3.761990421283609*^9, 3.761994300421406*^9, {3.762060350331916*^9, 
   3.762060380060462*^9}, 3.7620604380912848`*^9, 3.762065623876321*^9, 
   3.762148458676754*^9, 3.7622531984402018`*^9, 3.762253942822823*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Export", "[", 
    RowBox[{"\"\<5SpeciesWebOscillation.svg\>\"", ",", "plt5s"}], "]"}], 
   ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.685948446757079*^9, 3.6859484806689167`*^9}, {
   3.685949032525762*^9, 3.685949033053594*^9}, 3.761474246835968*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Model Equations", "Section",
 CellChangeTimes->{{3.725179842378112*^9, 3.725179854817032*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Homogeneous", " ", "system", " ", "equations", " ", "right", " ", "hand", 
    " ", "side"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"rhs", "[", 
    RowBox[{"i_", ",", "k_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"alpha", "[", 
     RowBox[{"[", "i", "]"}], "]"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"deltatilde", "[", 
        RowBox[{"[", "i", "]"}], "]"}], 
       RowBox[{"g", "[", 
        RowBox[{"i", ",", "k"}], "]"}]}], "\[IndentingNewLine]", "+", 
      RowBox[{
       RowBox[{"delta", "[", 
        RowBox[{"[", "i", "]"}], "]"}], 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "S"}], "}"}]}], "]"}], ">", "0"}], ",", 
         RowBox[{"f", "[", 
          RowBox[{"i", ",", "k"}], "]"}], ",", "0"}], "]"}]}], 
      "\[IndentingNewLine]", "-", 
      RowBox[{
       RowBox[{"sigmatilde", "[", 
        RowBox[{"[", "i", "]"}], "]"}], 
       RowBox[{"m", "[", 
        RowBox[{"i", ",", "k"}], "]"}]}], "\[IndentingNewLine]", "-", 
      RowBox[{
       RowBox[{"sigma", "[", 
        RowBox[{"[", "i", "]"}], "]"}], 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"beta", "[", 
           RowBox[{"[", 
            RowBox[{"j", ",", "i"}], "]"}], "]"}], 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"beta", "[", 
              RowBox[{"[", 
               RowBox[{"j", ",", "i"}], "]"}], "]"}], ">", "0"}], ",", 
            RowBox[{"lo", "[", 
             RowBox[{"j", ",", "i", ",", "k"}], "]"}], ",", "0"}], "]"}]}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.724747991959901*^9, 3.724748011852957*^9}, {
  3.724748138870943*^9, 3.7247481833015327`*^9}, {3.724748998270363*^9, 
  3.724749026631502*^9}, {3.7247493311113777`*^9, 3.724749336270851*^9}, {
  3.7247494129030523`*^9, 3.724749433898816*^9}, {3.725095486391713*^9, 
  3.7250954870392942`*^9}, {3.725179772293022*^9, 3.725179773771311*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"i", ",", "k"}], "]"}], "'"}], "[", "t", "]"}], "==", 
     RowBox[{"rhs", "[", 
      RowBox[{"i", ",", "k"}], "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"i", ",", "S"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7247478988551064`*^9, 3.7247479266691504`*^9}, {
  3.725095472847701*^9, 3.725095495550993*^9}, {3.725095579815741*^9, 
  3.725095588870842*^9}, {3.725096090488043*^9, 3.725096105343943*^9}, {
  3.72509654234426*^9, 3.725096547272173*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"x", "[", 
       RowBox[{"1", ",", "1"}], "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
    RowBox[{"0.82439`", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{
         RowBox[{"x", "[", 
          RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}], "0.5`"], "-", 
       RowBox[{"0.4875746476785596`", " ", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}], "1.`"]}], "-", 
       RowBox[{"0.5124253523214404`", " ", 
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          FractionBox[
           RowBox[{"4.`", " ", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}], " ", 
            SuperscriptBox[
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"5", ",", "1"}], "]"}], "[", "t", "]"}], "1.`"]}], 
           RowBox[{"3.`", "\[VeryThinSpace]", "+", 
            RowBox[{"1.`", " ", 
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}]}]}]]}], 
         ")"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"x", "[", 
       RowBox[{"2", ",", "1"}], "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
    RowBox[{"0.018593`", " ", 
     RowBox[{"(", 
      RowBox[{"0.`", "\[VeryThinSpace]", "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"2", ",", "1"}], "]"}], "[", "t", "]"}], "1.`"]}], "+", 
       FractionBox[
        RowBox[{"4.`", " ", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"2", ",", "1"}], "]"}], "[", "t", "]"}], "1.`"], " ", 
         RowBox[{"(", 
          RowBox[{"0.`", "\[VeryThinSpace]", "+", 
           RowBox[{"1.`", " ", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"5", ",", "1"}], "]"}], "[", "t", "]"}]}]}], ")"}]}], 
        RowBox[{"3.`", "\[VeryThinSpace]", "+", 
         RowBox[{"1.`", " ", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"5", ",", "1"}], "]"}], "[", "t", "]"}]}]}]]}], ")"}]}]}],
    ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"x", "[", 
       RowBox[{"3", ",", "1"}], "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
    RowBox[{"0.01045`", " ", 
     RowBox[{"(", 
      RowBox[{"0.`", "\[VeryThinSpace]", "-", 
       RowBox[{"1.`", " ", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"3", ",", "1"}], "]"}], "[", "t", "]"}], "1.`"]}], "+", 
       FractionBox[
        RowBox[{"4.`", " ", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"3", ",", "1"}], "]"}], "[", "t", "]"}], "1.`"], " ", 
         RowBox[{"(", 
          RowBox[{"0.`", "\[VeryThinSpace]", "+", 
           RowBox[{"0.9999999999999999`", " ", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"4", ",", "1"}], "]"}], "[", "t", "]"}]}]}], ")"}]}], 
        RowBox[{"3.`", "\[VeryThinSpace]", "+", 
         RowBox[{"0.9999999999999999`", " ", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"4", ",", "1"}], "]"}], "[", "t", "]"}]}]}]]}], ")"}]}]}],
    ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"x", "[", 
       RowBox[{"4", ",", "1"}], "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
    RowBox[{"0.059253`", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "0.5049020944348681`"}], " ", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"4", ",", "1"}], "]"}], "[", "t", "]"}], "1.`"]}], "-", 
       RowBox[{"0.49509790556513184`", " ", 
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          FractionBox[
           RowBox[{"3.9999999999999996`", " ", 
            SuperscriptBox[
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"3", ",", "1"}], "]"}], "[", "t", "]"}], "1.`"], " ", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"4", ",", "1"}], "]"}], "[", "t", "]"}]}], 
           RowBox[{"3.`", "\[VeryThinSpace]", "+", 
            RowBox[{"0.9999999999999999`", " ", 
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"4", ",", "1"}], "]"}], "[", "t", "]"}]}]}]]}], 
         ")"}]}], "+", 
       FractionBox[
        RowBox[{"4.`", " ", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"4", ",", "1"}], "]"}], "[", "t", "]"}], "1.`"], " ", 
         RowBox[{"(", 
          RowBox[{"0.`", "\[VeryThinSpace]", "+", 
           RowBox[{"1.`", " ", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"5", ",", "1"}], "]"}], "[", "t", "]"}]}]}], ")"}]}], 
        RowBox[{"3.`", "\[VeryThinSpace]", "+", 
         RowBox[{"1.`", " ", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"5", ",", "1"}], "]"}], "[", "t", "]"}]}]}]]}], ")"}]}]}],
    ",", 
   RowBox[{
    RowBox[{
     SuperscriptBox[
      RowBox[{"x", "[", 
       RowBox[{"5", ",", "1"}], "]"}], "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
    RowBox[{"0.305557`", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "0.3319629901101586`"}], " ", 
        SuperscriptBox[
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"5", ",", "1"}], "]"}], "[", "t", "]"}], "1.`"]}], "+", 
       FractionBox[
        RowBox[{"4.`", " ", 
         RowBox[{"(", 
          RowBox[{"0.`", "\[VeryThinSpace]", "+", 
           RowBox[{"1.`", " ", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"5", ",", "1"}], "]"}], "[", "t", "]"}], "1.`"]}], 
        RowBox[{"3.`", "\[VeryThinSpace]", "+", 
         RowBox[{"1.`", " ", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"1", ",", "1"}], "]"}], "[", "t", "]"}]}]}]], "-", 
       RowBox[{"0.6680370098898414`", " ", 
        RowBox[{"(", 
         RowBox[{"0.`", "\[VeryThinSpace]", "+", 
          FractionBox[
           RowBox[{"1.8269654300570866`", " ", 
            SuperscriptBox[
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"2", ",", "1"}], "]"}], "[", "t", "]"}], "1.`"], " ", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"5", ",", "1"}], "]"}], "[", "t", "]"}]}], 
           RowBox[{"3.`", "\[VeryThinSpace]", "+", 
            RowBox[{"1.`", " ", 
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"5", ",", "1"}], "]"}], "[", "t", "]"}]}]}]], "+", 
          FractionBox[
           RowBox[{"2.1730345699429137`", " ", 
            SuperscriptBox[
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"4", ",", "1"}], "]"}], "[", "t", "]"}], "1.`"], " ", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"5", ",", "1"}], "]"}], "[", "t", "]"}]}], 
           RowBox[{"3.`", "\[VeryThinSpace]", "+", 
            RowBox[{"1.`", " ", 
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"5", ",", "1"}], "]"}], "[", "t", "]"}]}]}]]}], 
         ")"}]}]}], ")"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.724747458784857*^9, {3.724747927605442*^9, 3.724747942612027*^9}, 
   3.72509544660355*^9, {3.7250954789786253`*^9, 3.725095510782189*^9}, 
   3.725095589417486*^9, {3.725096097433489*^9, 3.725096106008555*^9}, 
   3.725096548598216*^9, {3.72509810678257*^9, 3.7250981177400427`*^9}, 
   3.725099405561355*^9, 3.725268198522479*^9, 3.7252682944709463`*^9, 
   3.7252684432424927`*^9, 3.725268625250095*^9, 3.725268817532722*^9, 
   3.72526912745683*^9, 3.725269261497438*^9, 3.7252697612961187`*^9, 
   3.725270034760632*^9, 3.725347139909238*^9, 3.72535290152732*^9, 
   3.725609704972454*^9, 3.7256100749742603`*^9, 3.725611372758317*^9, 
   3.725613882074424*^9, 3.725686921551937*^9, 3.725695550375453*^9, 
   3.7257032029881687`*^9, 3.72570407847927*^9, 3.725774841410231*^9, 
   3.725778347861033*^9, 3.725782641857168*^9, 3.72578298610507*^9, 
   3.725783018925829*^9, 3.7257832146000566`*^9, 3.7257834782681704`*^9, 
   3.7259567178393793`*^9, 3.72595988026052*^9, 3.736150967748251*^9, 
   3.736151016130946*^9, 3.7362330415212383`*^9, 3.741682126973608*^9, 
   3.741683583082634*^9, 3.7428884914604177`*^9, 3.744356976988001*^9, 
   3.7486804372057743`*^9, 3.748682507456174*^9, {3.75015605301499*^9, 
   3.7501560719021873`*^9}, 3.750667936675851*^9, 3.7506703589313507`*^9, 
   3.750670481877228*^9, 3.75067212597047*^9, 3.7517057828736773`*^9, 
   3.753090008291663*^9, 3.753091328119577*^9, 3.7530921963743134`*^9, 
   3.753092556970338*^9, 3.75309294128016*^9, 3.753161038582697*^9, 
   3.756807872179945*^9, 3.757050543867009*^9, 3.757051616388163*^9, 
   3.757052860741968*^9, 3.757054026630834*^9, 3.757225819782975*^9, {
   3.757225969366363*^9, 3.757225992459222*^9}, 3.757226243798839*^9, 
   3.757226363383873*^9, 3.757237378145624*^9, 3.757237594410843*^9, {
   3.757237797276156*^9, 3.757237805611829*^9}, 3.757237973691231*^9, {
   3.757238145888771*^9, 3.7572381624720163`*^9}, 3.7572382395987053`*^9, 
   3.757311157894031*^9, 3.7576536910866756`*^9, 3.7614744053344107`*^9, {
   3.761544691139578*^9, 3.761544696161201*^9}, 3.7615448470440607`*^9, 
   3.761546393511566*^9, 3.7615467834106417`*^9, 3.761547421105856*^9, 
   3.7615480708242273`*^9, 3.7615514107122097`*^9, 3.761551635012644*^9, 
   3.761552994174663*^9, 3.761553092077202*^9, 3.761644462062278*^9, 
   3.761994002210093*^9, 3.761994053014696*^9, 3.761994300473888*^9, {
   3.7620603506155043`*^9, 3.762060380405156*^9}, 3.7620604382773314`*^9, 
   3.76206562394872*^9, 3.762148458785777*^9, 3.762253198737205*^9, 
   3.7622539429432096`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Local Web", "Section",
 CellChangeTimes->{{3.708320440211049*^9, 3.708320455850541*^9}}],

Cell[CellGroupData[{

Cell["Niche Web", "Subsection",
 CellChangeTimes->{{3.676963666944069*^9, 3.676963669751823*^9}, {
  3.6774722236695223`*^9, 3.677472225060831*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SetFoodWebNiche", "[", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"GenerateFoodWeb", "[", "S_", "]"}], ":=", 
        RowBox[{"Module", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"connectance", "=", "0.25"}], ",", "beta", ",", "r", ",", 
            "c", ",", 
            RowBox[{"A", "=", 
             RowBox[{"Table", "[", 
              RowBox[{"0", ",", 
               RowBox[{"{", "S", "}"}], ",", 
               RowBox[{"{", "S", "}"}]}], "]"}]}], ",", "foodweb", ",", "i", 
            ",", "j"}], "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"While", "[", 
            RowBox[{"True", ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"connectance", "=", "0.25"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"beta", "=", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{"2", "connectance"}]}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{"2", "connectance"}], ")"}]}]}], ";", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{"niche", "=", 
               RowBox[{"Sort", "[", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"RandomReal", "[", "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"S", "+", "1"}], "}"}]}], "]"}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"r", "=", 
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{"RandomVariate", "[", 
                  RowBox[{"BetaDistribution", "[", 
                   RowBox[{"1", ",", "beta"}], "]"}], "]"}], ",", 
                 RowBox[{"{", "S", "}"}]}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"c", "=", 
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{"RandomReal", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"niche", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], 
                    RowBox[{
                    RowBox[{"r", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "/", "2"}]}], ",", 
                    RowBox[{"niche", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
              "\[IndentingNewLine]", "\[IndentingNewLine]", 
              RowBox[{"For", "[", 
               RowBox[{
                RowBox[{"i", "=", "1"}], ",", 
                RowBox[{"i", "\[LessEqual]", "S"}], ",", 
                RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"For", "[", 
                  RowBox[{
                   RowBox[{"j", "=", "1"}], ",", 
                   RowBox[{"j", "<", "i"}], ",", 
                   RowBox[{"++", "j"}], ",", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"c", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "-", 
                    RowBox[{
                    RowBox[{"niche", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], 
                    RowBox[{
                    RowBox[{"r", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "/", "2"}]}]}], "<", 
                    RowBox[{"niche", "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "<", 
                    RowBox[{
                    RowBox[{"c", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "+", 
                    RowBox[{
                    RowBox[{"niche", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], 
                    RowBox[{
                    RowBox[{"r", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "/", "2"}]}]}]}], ",", 
                    RowBox[{
                    RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "1"}], ",", 
                    RowBox[{
                    RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0"}]}], 
                    "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"foodweb", "=", 
               RowBox[{"AdjacencyGraph", "[", "A", "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"WeaklyConnectedGraphQ", "[", "foodweb", "]"}], ",", 
                RowBox[{"Break", "[", "]"}]}], "]"}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"lima", "=", 
            RowBox[{"NormalizeMatrixRows", "[", "A", "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Return", "[", "foodweb", "]"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}]}], ";"}]}], "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NormalizeMatrixRows", "[", "M_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"A", "=", "M"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"i", "\[LessEqual]", 
         RowBox[{"Length", "[", "M", "]"}]}], ",", 
        RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"A", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{"Normalize", "[", 
           RowBox[{
            RowBox[{"M", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", "Total"}], "]"}]}], ";"}]}],
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "A", "]"}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"calcNumberOfPrey", "[", "i_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"j", ",", 
       RowBox[{"n", "=", "0"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"j", "=", "1"}], ",", 
        RowBox[{"j", "\[LessEqual]", "i"}], ",", 
        RowBox[{"++", "j"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
           RowBox[{"++", "n"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "n", "]"}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.69986790128822*^9, {3.6998679313757973`*^9, 3.699867948847269*^9}, {
   3.699869386130205*^9, 3.699869397504875*^9}, 3.699869469865453*^9, {
   3.699870017659474*^9, 3.6998700424909973`*^9}, {3.6999412452861147`*^9, 
   3.6999412457907953`*^9}, {3.708403857432617*^9, 3.7084039337061367`*^9}, {
   3.708676008377865*^9, 3.708676016246872*^9}, 3.7086775733211946`*^9, {
   3.733643088365511*^9, 3.733643088453073*^9}, {3.741068428670062*^9, 
   3.741068520212431*^9}, {3.7410726397301292`*^9, 3.741072640841876*^9}, {
   3.7410726927058563`*^9, 3.7410726940018997`*^9}, {3.7410727313382053`*^9, 
   3.741072763218277*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Niche Web Normal Distribution", "Subsection",
 CellChangeTimes->{{3.676963666944069*^9, 3.676963669751823*^9}, {
  3.6774722236695223`*^9, 3.677472225060831*^9}, {3.708673329042986*^9, 
  3.708673337466982*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SetFoodWebNicheNormal", "[", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GenerateFoodWeb", "[", "S_", "]"}], ":=", 
       RowBox[{"Module", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"connectance", "=", "0.25"}], ",", "beta", ",", "r", ",", 
           "c", ",", 
           RowBox[{"A", "=", 
            RowBox[{"Table", "[", 
             RowBox[{"0", ",", 
              RowBox[{"{", "S", "}"}], ",", 
              RowBox[{"{", "S", "}"}]}], "]"}]}], ",", 
           RowBox[{"Lima", "=", 
            RowBox[{"Table", "[", 
             RowBox[{"0", ",", 
              RowBox[{"{", "S", "}"}], ",", 
              RowBox[{"{", "S", "}"}]}], "]"}]}], ",", "foodweb", ",", "i", 
           ",", "j"}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"While", "[", 
           RowBox[{"True", ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"connectance", "=", "0.25"}], ";", "\[IndentingNewLine]", 
             RowBox[{"beta", "=", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"2", "connectance"}]}], ")"}], "/", 
               RowBox[{"(", 
                RowBox[{"2", "connectance"}], ")"}]}]}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{"niche", "=", 
              RowBox[{"Sort", "[", 
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{"RandomReal", "[", "]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"S", "+", "1"}], "}"}]}], "]"}], "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"r", "=", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{"RandomVariate", "[", 
                 RowBox[{"BetaDistribution", "[", 
                  RowBox[{"1", ",", "beta"}], "]"}], "]"}], ",", 
                RowBox[{"{", "S", "}"}]}], "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"c", "=", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{"RandomReal", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"niche", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], 
                    RowBox[{
                    RowBox[{"r", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "/", "2"}]}], ",", 
                   RowBox[{"niche", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{"For", "[", 
              RowBox[{
               RowBox[{"i", "=", "1"}], ",", 
               RowBox[{"i", "\[LessEqual]", "S"}], ",", 
               RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"For", "[", 
                 RowBox[{
                  RowBox[{"j", "=", "1"}], ",", 
                  RowBox[{"j", "<", "i"}], ",", 
                  RowBox[{"++", "j"}], ",", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"c", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "-", 
                    RowBox[{
                    RowBox[{"niche", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], 
                    RowBox[{
                    RowBox[{"r", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "/", "2"}]}]}], "<", 
                    RowBox[{"niche", "[", 
                    RowBox[{"[", "j", "]"}], "]"}], "<", 
                    RowBox[{
                    RowBox[{"c", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "+", 
                    RowBox[{
                    RowBox[{"niche", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], 
                    RowBox[{
                    RowBox[{"r", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "/", "2"}]}]}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "1"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"Lima", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", 
                    RowBox[{"Abs", "[", 
                    RowBox[{"RandomVariate", "[", 
                    RowBox[{"NormalDistribution", "[", "]"}], "]"}], "]"}]}], 
                    ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
                    
                    RowBox[{
                    RowBox[{
                    RowBox[{"A", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"Lima", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0"}]}]}], 
                    "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
              "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"foodweb", "=", 
              RowBox[{"AdjacencyGraph", "[", "A", "]"}]}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"WeaklyConnectedGraphQ", "[", "foodweb", "]"}], ",", 
               RowBox[{"Break", "[", "]"}]}], "]"}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"lima", "=", 
           RowBox[{"NormalizeMatrixRows", "[", "Lima", "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"Return", "[", "foodweb", "]"}], ";"}]}], 
        "\[IndentingNewLine]", "]"}]}], ";"}]}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.69986790128822*^9, {3.6998679313757973`*^9, 3.699867948847269*^9}, {
   3.699869386130205*^9, 3.699869397504875*^9}, 3.699869469865453*^9, {
   3.699870017659474*^9, 3.6998700424909973`*^9}, {3.6999412452861147`*^9, 
   3.6999412457907953`*^9}, {3.708403857432617*^9, 3.7084039337061367`*^9}, {
   3.708673809244349*^9, 3.708673854844977*^9}, {3.708673901420767*^9, 
   3.708673906629047*^9}, {3.708675559783071*^9, 3.708675570225932*^9}, 
   3.708676443952067*^9, {3.7086765214256477`*^9, 3.708676522807825*^9}, {
   3.7086765970823708`*^9, 3.7086766868241568`*^9}, {3.708676742815995*^9, 
   3.708676757624555*^9}, 3.708676793600794*^9, {3.708677006720805*^9, 
   3.708677029712522*^9}, {3.7086777261779203`*^9, 3.7086777304257107`*^9}, {
   3.7336431701813097`*^9, 3.7336431709014463`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Parameters", "Section",
 CellChangeTimes->{{3.6769551640722923`*^9, 3.676955209742291*^9}, {
   3.676955242910578*^9, 3.67695524875924*^9}, 3.708412179305601*^9}],

Cell[CellGroupData[{

Cell["Parameters", "Subsection",
 CellChangeTimes->{{3.70841238073029*^9, 3.7084123830099792`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"calcParameters", "[", "S_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"calcScaleParameters", "[", "S", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"calcExponentParameters", "[", "S", "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.70090631881787*^9, 3.700906356176133*^9}, {
   3.700906418288422*^9, 3.700906422120059*^9}, {3.700907667818336*^9, 
   3.700907679537951*^9}, 3.704520268490781*^9, {3.708412417538559*^9, 
   3.708412417994419*^9}, {3.715932105375924*^9, 3.715932126664012*^9}, {
   3.7159321618672457`*^9, 3.7159321735381393`*^9}, {3.7159328269336233`*^9, 
   3.7159328421690397`*^9}, {3.715933172032918*^9, 3.715933172929139*^9}, {
   3.715934066724958*^9, 3.715934083426339*^9}, {3.716622446868066*^9, 
   3.716622447883959*^9}, {3.716622606156268*^9, 3.7166226139324408`*^9}, 
   3.719137676453697*^9, {3.719137746278913*^9, 3.7191377506106977`*^9}, {
   3.719137789727251*^9, 3.719137791487191*^9}, 3.719137880895793*^9, {
   3.728639170445301*^9, 3.72863917300492*^9}, {3.731747838056137*^9, 
   3.731747886936694*^9}, {3.7317479419272327`*^9, 3.731747953839175*^9}, {
   3.731748253648016*^9, 3.7317482756877823`*^9}, {3.7322580053724823`*^9, 
   3.732258044994955*^9}, {3.732262958833432*^9, 3.732262985840743*^9}, {
   3.732266519303124*^9, 3.73226653859529*^9}, {3.732266579878911*^9, 
   3.7322665810134*^9}, {3.732336826956265*^9, 3.7323368288234053`*^9}, {
   3.732339583413508*^9, 3.732339612527766*^9}, 3.7323404222189198`*^9, {
   3.732340572901229*^9, 3.732340580130978*^9}, {3.732340732570559*^9, 
   3.732340738907297*^9}, {3.732340787402717*^9, 3.732340790186612*^9}, {
   3.7323410001506453`*^9, 3.732341000467157*^9}, {3.733643306709544*^9, 
   3.733643307156995*^9}, 3.7342469914712877`*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"calcScaleParameters", "[", "S_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"local", " ", "foodweb"}], " ", "*)"}], "\[IndentingNewLine]", 
      
      RowBox[{
       RowBox[{"beta", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"calcBeta", "[", 
           RowBox[{"i", ",", "j"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"sigma", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"calcSigma", "[", "i", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"sigmatilde", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"calcSigmatilde", "[", "i", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"chi", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"calcChi", "[", 
           RowBox[{"i", ",", "j"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"delta", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"calcDelta", "[", "i", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"deltatilde", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"calcDeltatilde", "[", "i", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"rho", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"calcRho", "[", "i", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"rhotilde", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"calcRhotilde", "[", "i", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"alphaP", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"calcAlphaP", "[", "i", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"alphaC", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"calcAlphaC", "[", "i", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";"}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.700905914584482*^9, 3.700905915600533*^9}, {
   3.7009060315692043`*^9, 3.7009060638729*^9}, {3.700991154421221*^9, 
   3.700991154660861*^9}, {3.700991211396758*^9, 3.7009912117496147`*^9}, {
   3.700991624421485*^9, 3.7009916408226223`*^9}, {3.70099188351861*^9, 
   3.70099193590516*^9}, {3.7009919927276573`*^9, 3.700992001968443*^9}, {
   3.700992033054968*^9, 3.700992040430704*^9}, {3.700992980503545*^9, 
   3.700993011304236*^9}, {3.702012176801952*^9, 3.702012178873575*^9}, {
   3.702272084997203*^9, 3.702272178323983*^9}, {3.702289977258296*^9, 
   3.702289987898431*^9}, {3.702367983592793*^9, 3.70236799603887*^9}, {
   3.7023680404894323`*^9, 3.702368051266218*^9}, {3.702368090446*^9, 
   3.7023681001851883`*^9}, {3.702368138696678*^9, 3.70236814282059*^9}, {
   3.7135929927226973`*^9, 3.713592999343796*^9}, {3.7159253393760357`*^9, 
   3.715925351761382*^9}, {3.719224930575086*^9, 3.719224931486878*^9}, {
   3.719225069467066*^9, 3.719225076302999*^9}, {3.721469535672509*^9, 
   3.721469549000195*^9}, {3.72146976220056*^9, 3.721469806769484*^9}, {
   3.7288175967609043`*^9, 3.728817597697047*^9}, {3.729847814998901*^9, 
   3.729847817038805*^9}, {3.73130913252205*^9, 3.731309134969964*^9}, {
   3.73736124506061*^9, 3.737361369924777*^9}, {3.7374460457862587`*^9, 
   3.737446057338743*^9}, {3.7380474757996397`*^9, 3.7380475162321863`*^9}, {
   3.738047568080122*^9, 3.738047615919487*^9}, {3.7380477470642357`*^9, 
   3.73804779417649*^9}, {3.738047834271854*^9, 3.738047854280098*^9}, {
   3.7380479503599377`*^9, 3.738048029055998*^9}, {3.73804806915989*^9, 
   3.738048198568122*^9}, 3.738055491096931*^9, {3.738055847609194*^9, 
   3.7380558505772047`*^9}, {3.738056004113566*^9, 3.738056011473558*^9}, {
   3.738566083251686*^9, 3.738566146244401*^9}, {3.7622519463009853`*^9, 
   3.762252025325103*^9}}],

Cell[CellGroupData[{

Cell["Exponent", "Subsubsection",
 CellChangeTimes->{{3.7084123490136213`*^9, 3.708412356469042*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"calcExponentParameters", "[", "S_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", "j"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"local", " ", "foodweb"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"gamma", "=", 
       RowBox[{"calcGamma", "[", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"lambda", "=", 
       RowBox[{"calcLambda", "[", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"phi", "=", 
       RowBox[{"calcPhi", "[", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"psi", "=", 
       RowBox[{"calcPsi", "[", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"mu", "=", 
       RowBox[{"calcMu", "[", "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "migration", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"omega", "=", 
       RowBox[{"calcOmega", "[", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"omegahat", "=", 
       RowBox[{"calcOmegahat", "[", "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"kappa", "=", 
       RowBox[{"calcKappa", "[", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"kappahat", "=", 
       RowBox[{"calcKappahat", "[", "]"}]}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.731308422304357*^9, 3.7313087484096203`*^9}, {
   3.7317401455582848`*^9, 3.731740209542302*^9}, 3.7317403033987293`*^9, {
   3.734240211438599*^9, 3.734240214238389*^9}, {3.740727592682879*^9, 
   3.740727750586512*^9}, 3.7407278415068283`*^9, {3.762251848988521*^9, 
   3.7622519044362707`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SetExponentParameterCalculationHolling2", "[", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"local", " ", "foodweb"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"calcGamma", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcLambda", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
           RowBox[{"RandomReal", "[", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}], "]"}], ",", "0"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcPhi", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{"1", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcPsi", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{"1", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcMu", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "migration", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcOmega", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcOmegahat", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcKappa", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcKappahat", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.700905971647702*^9, 3.7009060454240627`*^9}, {
   3.7009061106162643`*^9, 3.7009062119440317`*^9}, {3.700906247604558*^9, 
   3.700906268119872*^9}, {3.700906455176701*^9, 3.7009064600482063`*^9}, {
   3.700906658105241*^9, 3.700906776705748*^9}, {3.7015036158174753`*^9, 
   3.701503664946055*^9}, {3.701503748033801*^9, 3.701503775113995*^9}, {
   3.703570008650092*^9, 3.7035700156632*^9}, 3.703577290856719*^9, {
   3.7045206580744333`*^9, 3.7045206731302147`*^9}, {3.711868828146797*^9, 
   3.7118689501234922`*^9}, {3.71186901768349*^9, 3.711869155235704*^9}, {
   3.7118691933076477`*^9, 3.711869195811843*^9}, 3.711870898381662*^9, {
   3.711872252383161*^9, 3.711872256455212*^9}, {3.711874857954129*^9, 
   3.711874867194098*^9}, {3.7118760587396603`*^9, 3.711876062059622*^9}, {
   3.712389726874001*^9, 3.7123897291063137`*^9}, {3.71248254820804*^9, 
   3.712482550775474*^9}, {3.712555641053913*^9, 3.7125556446936293`*^9}, 
   3.713519972532055*^9, {3.713599292353194*^9, 3.713599300217413*^9}, {
   3.7141934291419783`*^9, 3.7141934315961113`*^9}, {3.714207624868325*^9, 
   3.7142076504917803`*^9}, {3.714207687492401*^9, 3.714207688452456*^9}, {
   3.714208055598777*^9, 3.7142080800209627`*^9}, {3.715925283496587*^9, 
   3.715925283984638*^9}, {3.716525682004456*^9, 3.7165256900043163`*^9}, {
   3.728633327053994*^9, 3.728633417133954*^9}, {3.731308767760865*^9, 
   3.7313089770894423`*^9}, {3.731309011121373*^9, 3.731309100201482*^9}, {
   3.731309166185046*^9, 3.7313091664654913`*^9}, {3.7313097090501013`*^9, 
   3.731309727345806*^9}, {3.731740255414756*^9, 3.731740256454749*^9}, {
   3.731751163323876*^9, 3.7317511653076897`*^9}, {3.731908759886259*^9, 
   3.731908764701682*^9}, 3.733824016420232*^9, {3.739862827333552*^9, 
   3.739862853974115*^9}, {3.739863326438404*^9, 3.739863331598009*^9}, {
   3.739863646367189*^9, 3.739863659486581*^9}, {3.73986407775926*^9, 
   3.739864082846983*^9}, {3.7398644473275213`*^9, 3.7398644512881927`*^9}, {
   3.739865207458123*^9, 3.739865213480331*^9}, {3.739865550641511*^9, 
   3.739865551936718*^9}, {3.739866654762478*^9, 3.739866660650282*^9}, {
   3.740727426034663*^9, 3.7407275611306133`*^9}, {3.740728237180458*^9, 
   3.7407282373396053`*^9}, {3.762251804013098*^9, 3.7622518211727*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SetExponentParameterCalculationHolling3", "[", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"local", " ", "foodweb"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"calcGamma", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", "2"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcLambda", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
           RowBox[{"RandomReal", "[", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}], "]"}], ",", "0"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcPhi", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{"1", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcPsi", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{"1", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcMu", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "migration", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcOmega", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcOmegahat", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcKappa", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcKappahat", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.728633426397861*^9, 3.728633449390712*^9}, {
   3.7286335106306753`*^9, 3.728633511710286*^9}, {3.7286348251680403`*^9, 
   3.728634826160116*^9}, {3.731309782018495*^9, 3.731309820106526*^9}, {
   3.731740264287518*^9, 3.731740265087164*^9}, {3.731751173884033*^9, 
   3.731751174795808*^9}, {3.731908790838215*^9, 3.731908794077888*^9}, 
   3.7338240238118134`*^9, 3.740218219730219*^9, {3.740727162217969*^9, 
   3.740727250635141*^9}, {3.740727353242421*^9, 3.7407274067304697`*^9}, {
   3.7407282481878233`*^9, 3.740728248315496*^9}, {3.740818997766819*^9, 
   3.740818999806739*^9}, {3.762251769045394*^9, 3.762251794364555*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SetExponentParameterCalculationStandart", "[", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"local", " ", "foodweb"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"calcGamma", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", "2"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcLambda", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
           RowBox[{"RandomReal", "[", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}], "]"}], ",", "0"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcPhi", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcPsi", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcMu", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "migration", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcOmega", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcOmegahat", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcKappa", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcKappahat", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.730015292292021*^9, {3.730015749596731*^9, 3.730015754036593*^9}, {
   3.7300160143332033`*^9, 3.730016072740859*^9}, {3.730016115565147*^9, 
   3.7300161478295507`*^9}, {3.730016199757347*^9, 3.730016225466468*^9}, {
   3.730016499918062*^9, 3.730016519923725*^9}, 3.731315975746759*^9, {
   3.731316057266095*^9, 3.731316112826336*^9}, {3.731740271350313*^9, 
   3.731740272782587*^9}, {3.731751177788628*^9, 3.73175117901939*^9}, {
   3.7319088043102818`*^9, 3.731908807254243*^9}, {3.740726998562867*^9, 
   3.740727072386352*^9}, {3.7407272890187807`*^9, 3.740727330930822*^9}, {
   3.7407282572359867`*^9, 3.7407282577239017`*^9}, {3.740818990255459*^9, 
   3.740818991606834*^9}, {3.7622517289175863`*^9, 3.7622517509405613`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SetExponentParameterCalculationAdaptive", "[", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"local", " ", "foodweb"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"calcGamma", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", "2"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcLambda", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
           RowBox[{"RandomReal", "[", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}], "]"}], ",", "0"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcPhi", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcPsi", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcMu", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "migration", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcOmega", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcOmegahat", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcKappa", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"j", ",", "i"}], "]"}], "]"}], ">", "0"}], ",", 
           RowBox[{"RandomReal", "[", "]"}], ",", "0"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcKappahat", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
           RowBox[{"RandomReal", "[", "]"}], ",", "0"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.730015292292021*^9, {3.730015749596731*^9, 3.730015754036593*^9}, {
   3.7300160143332033`*^9, 3.730016072740859*^9}, {3.730016115565147*^9, 
   3.7300161478295507`*^9}, {3.730016199757347*^9, 3.730016225466468*^9}, {
   3.730016499918062*^9, 3.730016519923725*^9}, {3.7305403253041162`*^9, 
   3.7305403355120153`*^9}, {3.7305413506013327`*^9, 3.730541427897616*^9}, {
   3.730541725273795*^9, 3.7305417367698727`*^9}, 3.7305417672421913`*^9, {
   3.73054199237055*^9, 3.7305420045062113`*^9}, {3.730542141442583*^9, 
   3.7305421451227837`*^9}, {3.730542207946644*^9, 3.730542209986699*^9}, {
   3.731316188698124*^9, 3.731316198794197*^9}, {3.731316246425962*^9, 
   3.731316289322092*^9}, {3.731316340395542*^9, 3.7313164091057568`*^9}, {
   3.731751181412381*^9, 3.73175118263601*^9}, {3.731908816462104*^9, 
   3.7319088191581917`*^9}, 3.7338240426920013`*^9, {3.734247156279744*^9, 
   3.7342471622239656`*^9}, {3.740726828914027*^9, 3.740726961578307*^9}, {
   3.74072710261038*^9, 3.740727129162669*^9}, {3.740818851894898*^9, 
   3.7408188520803633`*^9}, {3.7408189810318737`*^9, 3.740818982695897*^9}, {
   3.76225163610047*^9, 3.76225163821259*^9}, {3.762251702428783*^9, 
   3.7622517223805447`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Local", "Subsection",
 CellChangeTimes->{{3.7084122867553663`*^9, 3.708412294892538*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SetScaleParameterCalculation", "[", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"biomass", " ", "flow"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"calcAlphaP", "[", "i_", "]"}], ":=", 
       RowBox[{
        RowBox[{"rhotilde", "[", 
         RowBox[{"[", "i", "]"}], "]"}], 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], 
           RowBox[{"niche", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcAlphaC", "[", "i_", "]"}], ":=", 
       RowBox[{
        RowBox[{"rho", "[", 
         RowBox[{"[", "i", "]"}], "]"}], 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], 
           RowBox[{"niche", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcRho", "[", "i_", "]"}], ":=", 
       RowBox[{"RandomReal", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{
       RowBox[{"calcRhotilde", "[", "i_", "]"}], ":=", 
       RowBox[{"1", "-", 
        RowBox[{"rho", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "loss", " ", "by", " ", "local", " ", "predation", " ", "and", " ", 
        "respiration"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcSigma", "[", "i_", "]"}], ":=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"j", ",", "i"}], "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "S"}], "}"}]}], "]"}], ">", "0"}], ",", 
         RowBox[{"RandomReal", "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", "0"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcSigmatilde", "[", "i_", "]"}], ":=", 
       RowBox[{"1", "-", 
        RowBox[{"sigma", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcBeta", "[", 
        RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"n", ",", "j"}], "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", "S"}], "}"}]}], "]"}], ">", "0"}], ",", 
         RowBox[{
          RowBox[{"lima", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], "/", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"n", ",", "j"}], "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", "S"}], "}"}]}], "]"}]}], ",", "0"}], "]"}]}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"gain", " ", "by", " ", "predation"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcDelta", "[", "i_", "]"}], ":=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"j", ",", "S"}], "}"}]}], "]"}], ">", "0"}], ",", "1", 
         ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcDeltatilde", "[", "i_", "]"}], ":=", 
       RowBox[{"1", "-", 
        RowBox[{"delta", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"calcChi", "[", 
        RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"lima", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
         RowBox[{
          RowBox[{"lima", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], "/", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"lima", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "n"}], "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", "S"}], "}"}]}], "]"}]}], ",", "0"}], "]"}]}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"feeding", " ", "links"}], " ", "*)"}], "\[IndentingNewLine]", 
      
      RowBox[{
       RowBox[{"input", "[", 
        RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
       RowBox[{
        RowBox[{"alphaP", "[", 
         RowBox[{"[", "i", "]"}], "]"}], 
        RowBox[{"delta", "[", 
         RowBox[{"[", "i", "]"}], "]"}], 
        RowBox[{"chi", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"output", "[", 
        RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
       RowBox[{
        RowBox[{"alphaP", "[", 
         RowBox[{"[", "j", "]"}], "]"}], 
        RowBox[{"sigma", "[", 
         RowBox[{"[", "j", "]"}], "]"}], 
        RowBox[{"beta", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.70806179398956*^9, 3.7080617958771276`*^9}, {
   3.70806206660606*^9, 3.7080621123424883`*^9}, {3.70806216645422*^9, 
   3.708062189813923*^9}, {3.708062474424864*^9, 3.7080624838466454`*^9}, 
   3.709878193051066*^9, 3.712310775782813*^9, {3.712641602268265*^9, 
   3.712641602557406*^9}, {3.716278487206057*^9, 3.716278512185923*^9}, {
   3.71922500444833*^9, 3.719225007847228*^9}, 3.731737396739813*^9, {
   3.733467978738996*^9, 3.7334680114599667`*^9}, {3.7336433364221478`*^9, 
   3.733643343454007*^9}, 3.735544778581334*^9, {3.7359745351663094`*^9, 
   3.735974538548471*^9}, {3.7359747375707407`*^9, 3.735974741786132*^9}, {
   3.735976492947406*^9, 3.735976499498501*^9}, {3.735978798781519*^9, 
   3.735978800269452*^9}, {3.735986806305086*^9, 3.7359868066237707`*^9}, {
   3.737445276152857*^9, 3.7374452794008493`*^9}, {3.737445382314045*^9, 
   3.737445386688603*^9}, {3.737712687388023*^9, 3.7377127612930927`*^9}, {
   3.737789403535604*^9, 3.737789404159093*^9}, {3.737789847503458*^9, 
   3.7377898477193527`*^9}, {3.7377947305892887`*^9, 3.737794747333239*^9}, {
   3.73779777212072*^9, 3.737797773720858*^9}, {3.7380543575762777`*^9, 
   3.73805442197572*^9}, {3.73805449527234*^9, 3.738054510033*^9}, {
   3.73805461674454*^9, 3.7380546336480703`*^9}, {3.738055512881379*^9, 
   3.738055513530446*^9}, {3.738055553378521*^9, 3.7380555664972963`*^9}, {
   3.7384024296032057`*^9, 3.738402429891346*^9}, 3.738402791536021*^9, {
   3.738402990508327*^9, 3.738402991637628*^9}, {3.7385659432218246`*^9, 
   3.738566036748005*^9}, {3.7385662446046457`*^9, 3.738566309205846*^9}, {
   3.7389190239961452`*^9, 3.738919042963922*^9}, 3.7389193166689787`*^9, {
   3.738922432112206*^9, 3.738922432279873*^9}, {3.739003003015564*^9, 
   3.7390030032074947`*^9}, {3.7622514184929457`*^9, 3.762251561653346*^9}, {
   3.76225160283701*^9, 3.762251627628957*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Jacobian", "Section",
 CellChangeTimes->{{3.6999411289889812`*^9, 3.6999411313725243`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"calcP", "[", 
    RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"i", "\[Equal]", "j"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"alphaP", "[", 
       RowBox[{"[", "i", "]"}], "]"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"deltatilde", "[", 
          RowBox[{"[", "i", "]"}], "]"}], " ", 
         RowBox[{"phi", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"delta", "[", 
          RowBox[{"[", "i", "]"}], "]"}], " ", 
         RowBox[{"psi", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "-", " ", 
        RowBox[{
         RowBox[{"sigmatilde", "[", 
          RowBox[{"[", "i", "]"}], "]"}], " ", 
         RowBox[{"mu", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "-", 
        RowBox[{
         RowBox[{"sigma", "[", 
          RowBox[{"[", "i", "]"}], "]"}], " ", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"beta", "[", 
             RowBox[{"[", 
              RowBox[{"n", ",", "i"}], "]"}], "]"}], 
            RowBox[{"lambda", "[", 
             RowBox[{"[", 
              RowBox[{"n", ",", "i"}], "]"}], "]"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"gamma", "[", 
                  RowBox[{"[", "n", "]"}], "]"}], "-", "1"}], ")"}], 
               RowBox[{"chi", "[", 
                RowBox[{"[", 
                 RowBox[{"n", ",", "i"}], "]"}], "]"}]}], "+", "1"}], ")"}]}],
            ",", 
           RowBox[{"{", 
            RowBox[{"n", ",", "S"}], "}"}]}], "]"}]}]}], ")"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"alphaP", "[", 
       RowBox[{"[", "i", "]"}], "]"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"delta", "[", 
          RowBox[{"[", "i", "]"}], "]"}], " ", 
         RowBox[{"gamma", "[", 
          RowBox[{"[", "i", "]"}], "]"}], " ", 
         RowBox[{"chi", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j"}], "]"}], "]"}], 
         RowBox[{"lambda", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j"}], "]"}], "]"}]}], " ", "-", 
        RowBox[{
         RowBox[{"sigma", "[", 
          RowBox[{"[", "i", "]"}], "]"}], 
         RowBox[{"(", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"beta", "[", 
             RowBox[{"[", 
              RowBox[{"j", ",", "i"}], "]"}], "]"}], 
            RowBox[{"psi", "[", 
             RowBox[{"[", "j", "]"}], "]"}]}], "+", 
           RowBox[{"Sum", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"beta", "[", 
               RowBox[{"[", 
                RowBox[{"n", ",", "i"}], "]"}], "]"}], 
              RowBox[{"lambda", "[", 
               RowBox[{"[", 
                RowBox[{"n", ",", "j"}], "]"}], "]"}], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"gamma", "[", 
                 RowBox[{"[", "n", "]"}], "]"}], "-", "1"}], ")"}], 
              RowBox[{"chi", "[", 
               RowBox[{"[", 
                RowBox[{"n", ",", "j"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"n", ",", "S"}], "}"}]}], "]"}]}], ")"}]}]}], ")"}]}]}],
     "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.69873297688653*^9, 3.6987329942039833`*^9}, {
   3.698733052619815*^9, 3.698733113972499*^9}, {3.698733146116578*^9, 
   3.6987331491563873`*^9}, {3.698733248004346*^9, 3.6987332790288258`*^9}, {
   3.698733312676549*^9, 3.6987333262925177`*^9}, {3.698733392580868*^9, 
   3.69873355478123*^9}, {3.698733589701363*^9, 3.698733619573696*^9}, {
   3.698733745005506*^9, 3.69873381742973*^9}, {3.6990091243865757`*^9, 
   3.69900917094725*^9}, {3.699009254395565*^9, 3.6990092633159513`*^9}, {
   3.699009328947651*^9, 3.6990093925394*^9}, {3.699076325887796*^9, 
   3.699076337232388*^9}, {3.6990824067308817`*^9, 3.699082407894848*^9}, 
   3.6990830535279007`*^9, {3.699089573360118*^9, 3.699089573951717*^9}, {
   3.73130469457696*^9, 3.731304705836953*^9}, {3.7313048425324697`*^9, 
   3.7313048438446836`*^9}, {3.731304938620654*^9, 3.731305018524528*^9}, {
   3.731305269189176*^9, 3.7313052872927227`*^9}, {3.731305319125333*^9, 
   3.731305339021103*^9}, {3.7329515560489807`*^9, 3.7329515565298367`*^9}, {
   3.738055091384104*^9, 3.738055116312572*^9}, {3.738055182264279*^9, 
   3.738055210584188*^9}, {3.7622526452863483`*^9, 3.762252729397739*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"calcC", "[", 
    RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"i", "\[Equal]", "j"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"alphaC", "[", 
       RowBox[{"[", "i", "]"}], "]"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"omegahat", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "-", 
        RowBox[{"omega", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"alphaC", "[", 
       RowBox[{"[", "i", "]"}], "]"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"kappahat", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}], "-", 
        RowBox[{"kappa", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ")"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6990093981494513`*^9, 3.699009515074935*^9}, {
  3.701503803160783*^9, 3.70150381143417*^9}, {3.7118679752019463`*^9, 
  3.711868028289962*^9}, {3.711868528642414*^9, 3.711868531170188*^9}, {
  3.711868578090538*^9, 3.711868580786653*^9}, {3.711869210147613*^9, 
  3.711869214083219*^9}, {3.7313050289004173`*^9, 3.7313050338846493`*^9}, {
  3.762252733181904*^9, 3.762252748141493*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"calcJ", "[", 
    RowBox[{"Np_", ",", "L_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"ArrayFlatten", "[", "\[IndentingNewLine]", 
    RowBox[{"Table", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"k", "\[Equal]", "l"}], ",", "\[IndentingNewLine]", 
        RowBox[{"JP", "+", 
         RowBox[{
          RowBox[{"L", "[", 
           RowBox[{"[", 
            RowBox[{"k", ",", "l"}], "]"}], "]"}], "JC"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"L", "[", 
          RowBox[{"[", 
           RowBox[{"k", ",", "l"}], "]"}], "]"}], "JC"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"k", ",", "Np"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"l", ",", "Np"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.70107370662147*^9, 3.7010737652694798`*^9}, {
  3.701073807709852*^9, 3.7010738124217*^9}, {3.701073925149994*^9, 
  3.70107392763806*^9}, {3.701495412015834*^9, 3.70149541648752*^9}, {
  3.713251065738625*^9, 3.713251084322452*^9}, {3.762252798965461*^9, 
  3.7622528205176277`*^9}, {3.7622529728295107`*^9, 3.7622529810936947`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"initParameters", "[", "S_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"omega", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"ToExpression", "[", 
          RowBox[{"\"\<omega\>\"", "<>", 
           RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"omegahat", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"ToExpression", "[", 
          RowBox[{"\"\<omegahat\>\"", "<>", 
           RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"kappa", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"ToExpression", "[", 
          RowBox[{"\"\<kappa\>\"", "<>", 
           RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"kappahat", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"ToExpression", "[", 
          RowBox[{"\"\<kappahat\>\"", "<>", 
           RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.699090672224791*^9, 3.6990907633991747`*^9}, {
   3.699090798593557*^9, 3.69909079914544*^9}, {3.699091791587482*^9, 
   3.6990918045782413`*^9}, 3.699941144078051*^9, {3.7009055315752974`*^9, 
   3.700905629615378*^9}, {3.700905669295513*^9, 3.700905671343771*^9}, {
   3.7009076516515493`*^9, 3.700907651954311*^9}, {3.738055355616078*^9, 
   3.738055378560622*^9}, {3.762252868501774*^9, 3.762252887149643*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"calcMatrices", "[", "S_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"JP", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"calcP", "[", 
          RowBox[{"i", ",", "j"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"JC", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"calcC", "[", 
          RowBox[{"i", ",", "j"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6990813484040613`*^9, 3.699081380870322*^9}, {
   3.699081584949568*^9, 3.699081621125724*^9}, {3.699081656151352*^9, 
   3.699081673422001*^9}, {3.699083068594358*^9, 3.699083074130959*^9}, {
   3.699088943743037*^9, 3.699088954926564*^9}, {3.699090647329534*^9, 
   3.69909065206598*^9}, 3.6992663088080683`*^9, {3.699266348103959*^9, 
   3.699266367071978*^9}, {3.69926758039331*^9, 3.699267635849886*^9}, {
   3.70090548199984*^9, 3.700905508207128*^9}, {3.700905722887837*^9, 
   3.700905723103883*^9}, {3.762252920910046*^9, 3.762252966070204*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Jacobi", " ", "Matrix"}], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"NonDiagonalMatrix", "[", "Np_", "]"}], ":=", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{"1", ",", 
        RowBox[{"{", "Np", "}"}], ",", 
        RowBox[{"{", "Np", "}"}]}], "]"}], "-", 
      RowBox[{"IdentityMatrix", "[", "Np", "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"OnesRow", "[", "Np_", "]"}], ":=", 
     RowBox[{"{", 
      RowBox[{"Table", "[", 
       RowBox[{"1", ",", 
        RowBox[{"{", "Np", "}"}]}], "]"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"OnesColumn", "[", "Np_", "]"}], ":=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"OnesRow", "[", "Np", "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"calcJacobian", "[", 
      RowBox[{"S_", ",", "Np_", ",", "L_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"n", "=", 
          RowBox[{"Np", "+", "1"}]}], ",", "k", ",", "l", ",", "J", ",", 
         "ND"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"calcMatrices", "[", "S", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"J", "=", 
         RowBox[{"calcJ", "[", 
          RowBox[{"Np", ",", "L"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "J", "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7010735908303213`*^9, 3.701073608549759*^9}, {
   3.7010743192788067`*^9, 3.7010743258226347`*^9}, {3.701078208411029*^9, 
   3.701078212690884*^9}, {3.701078285467396*^9, 3.701078301139393*^9}, {
   3.701495191311846*^9, 3.701495193415658*^9}, {3.70149528435157*^9, 
   3.701495309303687*^9}, {3.701495434698341*^9, 3.701495440175679*^9}, {
   3.7014955492879753`*^9, 3.701495552599751*^9}, {3.7014958952174273`*^9, 
   3.701495938792447*^9}, {3.70149597779314*^9, 3.7014960228805532`*^9}, 
   3.70149606736069*^9, {3.701496128961649*^9, 3.701496198728798*^9}, {
   3.702112954783321*^9, 3.702112958767589*^9}, {3.702113217200396*^9, 
   3.702113218968103*^9}, {3.76225302646982*^9, 3.762253028677977*^9}, {
   3.762253067887886*^9, 3.762253079439012*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Jacobian", "Section",
 CellChangeTimes->{{3.677828592850257*^9, 3.677828595570199*^9}, {
  3.679377082414034*^9, 3.679377084967239*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"CalculateJacobian", "[", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"J", "=", 
        RowBox[{"D", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"rhs", "[", 
              RowBox[{"i", ",", "k"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "S"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Flatten", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", 
                RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "S"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "]"}], "}"}]}], 
         "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"JP", "=", 
        RowBox[{"FullSimplify", "[", 
         RowBox[{"J", "/.", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"i", ",", "1"}], "]"}], "[", "t", "]"}], "\[Rule]", 
             "1"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"JC", "=", 
        RowBox[{"DiagonalMatrix", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"d", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "S"}], "}"}]}], "]"}], "]"}]}], ";"}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"CalculateMSF", "[", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"points", ",", 
        RowBox[{"dkappa", "=", "0.1"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"ValueQ", "[", "kappamax", "]"}]}], ",", 
         RowBox[{"kappamax", "=", "15"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"CalculateJacobian", "[", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"points", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"kappa", ",", 
            RowBox[{"Max", "[", 
             RowBox[{"Re", "[", 
              RowBox[{"Eigenvalues", "[", 
               RowBox[{"JP", "-", 
                RowBox[{"kappa", " ", "JC"}]}], "]"}], "]"}], "]"}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"kappa", ",", 
            RowBox[{"-", "10"}], ",", "kappamax", ",", "dkappa"}], "}"}]}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"MSF", "=", 
        RowBox[{"Interpolation", "[", 
         RowBox[{"points", ",", 
          RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Return", "[", "MSF", "]"}]}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"CalculateReCoMSF", "[", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"points", ",", 
        RowBox[{"dkappa", "=", "0.01"}], ",", "kappa"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"ValueQ", "[", "kappamax", "]"}]}], ",", 
         RowBox[{"kappamax", "=", "15"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"CalculateJacobian", "[", "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"RePoints", "=", 
        RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"CoPoints", "=", 
        RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"kappa", "=", 
          RowBox[{"-", "1"}]}], ",", 
         RowBox[{"kappa", "\[LessEqual]", "kappamax"}], ",", 
         RowBox[{"kappa", "+=", "dkappa"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"EV", "=", 
           RowBox[{"First", "[", 
            RowBox[{"MaximalBy", "[", 
             RowBox[{
              RowBox[{"ReIm", "[", 
               RowBox[{"Eigenvalues", "[", 
                RowBox[{"JP", "-", 
                 RowBox[{"kappa", " ", "JC"}]}], "]"}], "]"}], ",", "First"}],
              "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"EV", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], "\[Equal]", "0"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"AppendTo", "[", 
              RowBox[{"RePoints", ",", 
               RowBox[{"{", 
                RowBox[{"kappa", ",", 
                 RowBox[{"EV", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ";"}], 
            "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"AppendTo", "[", 
              RowBox[{"CoPoints", ",", 
               RowBox[{"{", 
                RowBox[{"kappa", ",", 
                 RowBox[{"EV", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
        "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"CalculateReCoMSF", "[", 
     RowBox[{"JP_", ",", "JC_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"points", ",", 
        RowBox[{"dkappa", "=", "0.01"}], ",", "kappa"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"ValueQ", "[", "kappamax", "]"}]}], ",", 
         RowBox[{"kappamax", "=", "15"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"CalculateJacobian", "[", "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"RePoints", "=", 
        RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"CoPoints", "=", 
        RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"kappa", "=", 
          RowBox[{"-", "1"}]}], ",", 
         RowBox[{"kappa", "\[LessEqual]", "kappamax"}], ",", 
         RowBox[{"kappa", "+=", "dkappa"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"EV", "=", 
           RowBox[{"First", "[", 
            RowBox[{"MaximalBy", "[", 
             RowBox[{
              RowBox[{"ReIm", "[", 
               RowBox[{"Eigenvalues", "[", 
                RowBox[{"JP", "-", 
                 RowBox[{"kappa", " ", "JC"}]}], "]"}], "]"}], ",", "First"}],
              "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"EV", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], "\[Equal]", "0"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"AppendTo", "[", 
              RowBox[{"RePoints", ",", 
               RowBox[{"{", 
                RowBox[{"kappa", ",", 
                 RowBox[{"EV", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ";"}], 
            "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"AppendTo", "[", 
              RowBox[{"CoPoints", ",", 
               RowBox[{"{", 
                RowBox[{"kappa", ",", 
                 RowBox[{"EV", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
        "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PlotCoReMSF", "[", 
    RowBox[{"RePoints_", ",", "CoPoints_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Return", "[", "\[IndentingNewLine]", 
       RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"RePoints", ",", "CoPoints"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
         RowBox[{"FrameLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Laplacian eigenvalue \[Kappa]\>\"", ",", 
            "\"\<Max Re Jacobian eigenvalue\>\""}], "}"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Joined", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "kappamax"}], "}"}], ",", "Automatic"}], 
           "}"}]}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
       "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PlotCoReMSF", "[", 
    RowBox[{"RePoints_", ",", "CoPoints_", ",", "plotRange_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Return", "[", "\[IndentingNewLine]", 
       RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"RePoints", ",", "CoPoints"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
         RowBox[{"FrameLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
           "\"\<Laplacian eigenvalue \[Kappa]\>\"", ",", 
            "\"\<Max Re Jacobian eigenvalue\>\""}], "}"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Joined", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
         RowBox[{"PlotRange", "\[Rule]", "plotRange"}]}], 
        "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Find", " ", "unstable", " ", "interval"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FindUnstableInterval", "[", "MSF_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"kappa0", ",", "kappa", ",", 
       RowBox[{"step", "=", "0.001"}], ",", "roots"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"intervals", "=", 
       RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"roots", "=", 
       RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"!", 
         RowBox[{"ValueQ", "[", "kappamax", "]"}]}], ",", 
        RowBox[{"kappamax", "=", "15"}]}], "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"kappa", "=", "0"}], ",", 
        RowBox[{
         RowBox[{"kappa", "+", "step"}], "\[LessEqual]", "kappamax"}], ",", 
        RowBox[{"kappa", "+=", "step"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"MSF", "[", "kappa", "]"}], 
             RowBox[{"MSF", "[", 
              RowBox[{"kappa", "+", "step"}], "]"}]}], "<", "0"}], ",", 
           RowBox[{"AppendTo", "[", 
            RowBox[{"roots", ",", 
             RowBox[{"kappa", "+", 
              RowBox[{"step", "/", "2"}]}]}], "]"}]}], "]"}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", "roots", "]"}], "\[Equal]", "0"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
         "Print", "[", "\"\<Failed to find unstable interval.\>\"", "]"}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"Abort", "[", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"i", "\[LessEqual]", 
         RowBox[{"Length", "[", "roots", "]"}]}], ",", 
        RowBox[{"i", "+=", "2"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "+", "1"}], "\[LessEqual]", 
            RowBox[{"Length", "[", "roots", "]"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"AppendTo", "[", 
            RowBox[{"intervals", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"roots", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", 
               RowBox[{"roots", "[", 
                RowBox[{"[", 
                 RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "}"}]}], "]"}], ",",
            "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
            "Print", "[", 
             "\"\<Failed to find maximum of the last unstable interval. Set \
maximum to kappamax.\>\"", "]"}], ";", "\[IndentingNewLine]", 
            RowBox[{"AppendTo", "[", 
             RowBox[{"intervals", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"roots", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", "kappamax"}], "}"}]}], 
             "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"interval", "=", 
       RowBox[{"First", "[", "intervals", "]"}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.677828756976293*^9, 3.677828786117181*^9}, {
   3.6778291240305223`*^9, 3.677829152555582*^9}, {3.677829297569519*^9, 
   3.677829297688303*^9}, {3.677834092048671*^9, 3.6778340958620996`*^9}, {
   3.6778342846816807`*^9, 3.677834291967143*^9}, {3.677834322695939*^9, 
   3.677834323128793*^9}, {3.677834687285523*^9, 3.677834702147785*^9}, {
   3.677834938452343*^9, 3.677834953605261*^9}, {3.677835304772183*^9, 
   3.677835315964636*^9}, {3.677836894521955*^9, 3.677836912780076*^9}, {
   3.677836956899845*^9, 3.6778369698014936`*^9}, {3.677837222308378*^9, 
   3.6778373017711773`*^9}, {3.678698565865645*^9, 3.67869860813695*^9}, 
   3.6786987734150877`*^9, {3.678700205827549*^9, 3.678700220918803*^9}, {
   3.678700265545391*^9, 3.6787002760689297`*^9}, {3.678776780256073*^9, 
   3.6787768721028748`*^9}, {3.6787769052116213`*^9, 3.678776909004072*^9}, 
   3.678777927197534*^9, 3.678777980430718*^9, 3.678778213140142*^9, {
   3.678778244147832*^9, 3.678778304423044*^9}, 3.679028518257886*^9, {
   3.67928894427192*^9, 3.679288972531312*^9}, {3.679289516606544*^9, 
   3.679289620262817*^9}, {3.679289652781736*^9, 3.6792896762077227`*^9}, {
   3.6792897576046352`*^9, 3.679289879463217*^9}, {3.679290526373061*^9, 
   3.6792906345609503`*^9}, {3.6792908896070747`*^9, 
   3.6792909416509743`*^9}, {3.679290977116355*^9, 3.679291007496132*^9}, {
   3.679297884395859*^9, 3.679297884838251*^9}, {3.679377574920802*^9, 
   3.679377575587368*^9}, {3.679378155644738*^9, 3.679378167066601*^9}, 
   3.679381386395419*^9, 3.679383494156335*^9, {3.679383589809347*^9, 
   3.67938359056915*^9}, {3.6798891740248203`*^9, 3.679889227728382*^9}, {
   3.680249376909031*^9, 3.680249386734974*^9}, {3.680249508077647*^9, 
   3.680249508996748*^9}, {3.680249711997713*^9, 3.680249750886374*^9}, {
   3.6802498080135937`*^9, 3.6802498126614513`*^9}, {3.680249920901424*^9, 
   3.680249921725008*^9}, {3.680584060296702*^9, 3.680584061065235*^9}, {
   3.6805878290396442`*^9, 3.680587853494051*^9}, {3.6808410199450407`*^9, 
   3.680841055703668*^9}, {3.680841180600852*^9, 3.680841232992124*^9}, 
   3.6815362293893347`*^9, {3.6815363274533873`*^9, 3.681536372109169*^9}, {
   3.681536403221156*^9, 3.6815364879568453`*^9}, {3.681536530821843*^9, 
   3.681536672053247*^9}, {3.681536714981598*^9, 3.681536739725237*^9}, {
   3.681536771613253*^9, 3.68153678879742*^9}, {3.6815368215497713`*^9, 
   3.681536894909334*^9}, {3.681537069805855*^9, 3.68153712228588*^9}, {
   3.681537168029969*^9, 3.681537171453973*^9}, {3.681537257095695*^9, 
   3.681537269302516*^9}, {3.681537323814233*^9, 3.6815374144389467`*^9}, {
   3.6815377890962963`*^9, 3.681537791526816*^9}, {3.6815379039992037`*^9, 
   3.6815379047915287`*^9}, {3.681537950759264*^9, 3.681537951911133*^9}, {
   3.681538064687585*^9, 3.6815380652471247`*^9}, {3.681538114904788*^9, 
   3.681538165743033*^9}, 3.6815382127198143`*^9, {3.681538297895586*^9, 
   3.681538310671442*^9}, {3.681538561200218*^9, 3.681538567247604*^9}, {
   3.68153860207203*^9, 3.681538602512248*^9}, {3.681538644376333*^9, 
   3.681538644784027*^9}, {3.68154353745452*^9, 3.681543538182012*^9}, {
   3.681543605454157*^9, 3.681543619966593*^9}, {3.681543765030699*^9, 
   3.681543964765966*^9}, {3.681544002023838*^9, 3.681544003655181*^9}, {
   3.68154403422333*^9, 3.681544035182542*^9}, {3.6815443735190773`*^9, 
   3.681544432511251*^9}, {3.681544652496262*^9, 3.6815447079195967`*^9}, {
   3.6815452369211397`*^9, 3.681545243831513*^9}, {3.681545285824781*^9, 
   3.6815452964075613`*^9}, {3.6815453288091516`*^9, 3.681545369832494*^9}, {
   3.681545430129115*^9, 3.681545433751718*^9}, {3.6815454878021927`*^9, 
   3.681545506535841*^9}, {3.6815456471775637`*^9, 3.681545652816382*^9}, 
   3.6815457133125343`*^9, 3.681545845048915*^9, 3.6822387538863697`*^9, {
   3.68224036831919*^9, 3.682240483653756*^9}, {3.6822405751334763`*^9, 
   3.682240693821784*^9}, {3.682240771238216*^9, 3.682240782133726*^9}, 
   3.682241052278842*^9, {3.6822411085991592`*^9, 3.682241123630391*^9}, {
   3.682241160166781*^9, 3.68224131184649*^9}, {3.682241353070557*^9, 
   3.682241490567006*^9}, {3.682241545889105*^9, 3.6822415850709877`*^9}, 
   3.682241637264263*^9, {3.6822417216803703`*^9, 3.682241737095072*^9}, {
   3.7615475230268793`*^9, 3.761547532384635*^9}, {3.761990641951709*^9, 
   3.761990642328896*^9}, {3.761990744255947*^9, 3.761991018232368*^9}, {
   3.76199141716101*^9, 3.7619916255770617`*^9}, {3.761991681993469*^9, 
   3.7619916876491823`*^9}, 3.761991719081698*^9, {3.761991751513167*^9, 
   3.761991767057034*^9}, {3.761991817761492*^9, 3.7619918184496937`*^9}, {
   3.76199189627344*^9, 3.761992081533682*^9}, {3.761992183390079*^9, 
   3.7619921848895473`*^9}, {3.7619923065836353`*^9, 
   3.7619923108425217`*^9}, {3.761992486803944*^9, 3.761992487226041*^9}, 
   3.761992568066292*^9, {3.7619926407423143`*^9, 3.761992647994245*^9}, {
   3.761992692467422*^9, 3.7619926968663282`*^9}, {3.761992736707446*^9, 
   3.761992737002458*^9}, {3.762060467618932*^9, 3.7620606581944237`*^9}, {
   3.762060716994709*^9, 3.762060722148753*^9}, {3.7620608709795103`*^9, 
   3.762060958866856*^9}, {3.762061091819809*^9, 3.76206114042002*^9}, {
   3.762061322079982*^9, 3.76206134242729*^9}, {3.7622531016078577`*^9, 
   3.762253121199216*^9}, {3.762253408952586*^9, 3.762253412106985*^9}, {
   3.762254263264699*^9, 3.7622542790564823`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"CalculateJacobian", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MSF", "=", 
   RowBox[{"CalculateMSF", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FindUnstableInterval", "[", "MSF", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"intervals", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GraphicsRow", "[", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{"Re", "[", 
           RowBox[{"Eigenvalues", "[", 
            RowBox[{"JP", "-", 
             RowBox[{"kappa", " ", "JC"}]}], "]"}], "]"}], "]"}], ",", 
         RowBox[{"Sort", "[", 
          RowBox[{"Im", "[", 
           RowBox[{"Eigenvalues", "[", 
            RowBox[{"JP", "-", 
             RowBox[{"kappa", " ", "JC"}]}], "]"}], "]"}], "]"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"kappa", ",", "0", ",", "kappamax"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
       RowBox[{"Frame", "\[Rule]", "True"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{"Re", "[", 
           RowBox[{"Eigenvalues", "[", 
            RowBox[{"JP", "-", 
             RowBox[{"kappa", " ", "JC"}]}], "]"}], "]"}], "]"}], ",", 
         RowBox[{"Sort", "[", 
          RowBox[{"Im", "[", 
           RowBox[{"Eigenvalues", "[", 
            RowBox[{"JP", "-", 
             RowBox[{"kappa", " ", "JC"}]}], "]"}], "]"}], "]"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"kappa", ",", "0", ",", "kappamax"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.005"}], ",", "0.001"}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", "True"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"MSF", "[", "kappa", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"kappa", ",", "0", ",", "kappamax"}], "}"}], ",", 
       RowBox[{"Frame", "\[Rule]", "True"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]}], 
    "\[IndentingNewLine]", "}"}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"ValueQ", "[", "kappaList", "]"}], ",", 
   RowBox[{"spectrumIntervals", "[", 
    RowBox[{"kappaList", ",", "kappamax", ",", "intervals"}], "]"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.681536492356558*^9, 3.6815365167564793`*^9}, {
  3.68153737210209*^9, 3.681537372541493*^9}, {3.681537696800288*^9, 
  3.681537718910906*^9}, {3.682239075573176*^9, 3.682239118804513*^9}, {
  3.682240934046484*^9, 3.682240988030039*^9}, {3.682241064814454*^9, 
  3.6822410671339483`*^9}, {3.682241616807599*^9, 3.682241619602613*^9}, {
  3.76154755098184*^9, 3.761547564844536*^9}, {3.762253137152079*^9, 
  3.762253155446068*^9}}],

Cell[BoxData["\<\"Failed to find maximum of the last unstable interval. Set \
maximum to kappamax.\"\>"], "Print",
 CellChangeTimes->{
  3.761991692705873*^9, 3.761991723848476*^9, 3.7619917728833733`*^9, 
   3.7619918246596327`*^9, 3.7619920979947557`*^9, 3.7619921892445097`*^9, 
   3.761992489600986*^9, 3.761992572192369*^9, 3.761992702701914*^9, 
   3.7619943005591393`*^9, {3.76206035735192*^9, 3.7620603867132397`*^9}, 
   3.762060438485126*^9, 3.762065624037019*^9, 3.762148459640176*^9, 
   3.762253168010787*^9, 3.762253976280267*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.18550000000000014`", ",", "0.9135000000000006`"}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"9.695500000000067`", ",", "15"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.681536520693145*^9, 3.681537287173709*^9, 3.681537380250864*^9, 
   3.6815374178373747`*^9, {3.681537577911104*^9, 3.681537579600646*^9}, 
   3.681537652497431*^9, 3.681537719707055*^9, 3.6815377948373013`*^9, 
   3.681537909745509*^9, 3.68153796829852*^9, 3.681538069180943*^9, 
   3.6815381687589903`*^9, 3.681538216753984*^9, 3.6815383269868927`*^9, 
   3.6815385724360027`*^9, 3.681538606704743*^9, 3.6815386487890997`*^9, 
   3.681543542888288*^9, {3.681543609026402*^9, 3.681543623579123*^9}, {
   3.681543780474798*^9, 3.681543843918947*^9}, 3.681543902102512*^9, 
   3.68154396885288*^9, 3.681544007335638*^9, 3.681544037741192*^9, 
   3.681544436309904*^9, 3.681544712202628*^9, 3.681545265671142*^9, 
   3.68154530023639*^9, 3.6815453318928137`*^9, 3.681545373434307*^9, 
   3.6815454375872927`*^9, 3.681545509367399*^9, 3.681545655255577*^9, 
   3.681545716305524*^9, {3.6815458483072853`*^9, 3.681545859958502*^9}, 
   3.6816180039454937`*^9, 3.681619886903994*^9, 3.6816207019237013`*^9, 
   3.681621001973624*^9, 3.681621196399036*^9, 3.68162141637784*^9, 
   3.681708191259355*^9, 3.68170863615205*^9, 3.6817922983465843`*^9, 
   3.681804499359982*^9, 3.6818046322844973`*^9, 3.68180467746467*^9, 
   3.6818047873356323`*^9, {3.681804854433024*^9, 3.681804870007078*^9}, 
   3.681807162749928*^9, 3.68214956447473*^9, 3.682155098981646*^9, 
   3.682232757672669*^9, 3.682238618322401*^9, 3.682238761665766*^9, 
   3.682239032283375*^9, 3.682239078994781*^9, {3.682239110187077*^9, 
   3.6822391192884398`*^9}, 3.682239170153552*^9, 3.682240725298242*^9, {
   3.682240756380303*^9, 3.6822407852229147`*^9}, 3.682240881080474*^9, {
   3.6822409658107243`*^9, 3.682240990035865*^9}, {3.682241036079357*^9, 
   3.682241067985984*^9}, 3.6822414962650127`*^9, {3.682241526324353*^9, 
   3.682241559705056*^9}, {3.6822415955343*^9, 3.682241641351512*^9}, {
   3.682241728941353*^9, 3.682241747863739*^9}, 3.68224211562044*^9, 
   3.682311946662677*^9, 3.6823131969497843`*^9, 3.68231339647248*^9, 
   3.6823138150607767`*^9, 3.6823161922480793`*^9, 3.682322139963067*^9, 
   3.682323236528697*^9, 3.682398413261333*^9, 3.683276041741309*^9, 
   3.68327878276798*^9, {3.7615473973051033`*^9, 3.7615474278108873`*^9}, 
   3.761547571705041*^9, 3.761548070920086*^9, 3.761551410800016*^9, 
   3.761551635102009*^9, 3.761552994256068*^9, 3.761553092175495*^9, 
   3.76164446233292*^9, 3.761990441488708*^9, 3.7619916302702007`*^9, 
   3.7619916933973923`*^9, 3.761991724553282*^9, 3.761991773545978*^9, 
   3.761991825398834*^9, 3.761992098029001*^9, 3.7619921892455387`*^9, 
   3.7619924896017017`*^9, 3.761992572193245*^9, 3.761992702702684*^9, 
   3.761994300559987*^9, {3.7620603573528347`*^9, 3.762060386714181*^9}, 
   3.762060438486075*^9, 3.76206562403822*^9, 3.762148459641308*^9, 
   3.762253168012924*^9, 3.762253976281269*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV0Gk4lAsYxnFaLSWUBjFSYwlvljJS8j5jGFEmb5KyLzOdTmlBVFQyFU7b
ObQoVymimKSphIT3iRJaXKmYU9KqS4gZy1hKjvPhvv7ffh9u4/Cd64STlJSU
/Cf2fxVt9Y9Yx884225NZM4qqaRfZ+nu40ijyWfXdxoE6iMNOo3hulIRya5w
HNrv95CO8xa3TJamk8XrNGqj6mvosLtPxeMnM8iez0m/Zo89otfM/XHgJ/ci
6dv0aXjUspbW6mGkj7TkkHUtxp/2xdbRyZfzE4bs8siEbc8eXz1WT//ydhQO
nrxOjpy71zP3VAMdPamB399RQDItYpbOin5Kd9z1XybnFpLv5pLTqoqa6GBh
l3FvVhFZrBsTdmlJM71VveqoYr+EbN3XuLanXUqzBMnxseLbpM3Tvqht8I7+
UMHfOdByhxTfLXCx2PKeztRhCGKmFpPVlJ3IfscHev2ODxv77O6RApeF2spF
H+kGo10uspOlpCzq8SE70We6RJSm082tIEXTplmIO9tpHqvzvbylmgy95rD4
7+Xd9EiLw1lZSxMpV9effqN0hK7hXs99mfOFbI/mCNI/qqDBh/vfwq1+kN1N
q/qyfmrhnMgQ8XRuP/nCP327ZDMD0215D/i+w+TX7TymvZsh/nveBuWaY2T7
iN8adogxHs9NbJykpwxfLOuYZhtYyDjz5a/TlyaDydROiTpphinrPZybFFPh
2/jsQBxchDGO2SH1IhXYG+keN/TNCl17R+N3fFED3TBZlNY1a0xyosL0l82E
T/LDa/IsbXF50YXig/Qs4Jk86UnJtsPIYfmhuplacI6nIw/7vQRHLDXbCF9t
6DMv0zu81x6dbhReOXduNihqVYWlXWyUa3uGbqieA84FvLR2t2X49UTohujp
c8FbeRcdUOmIHr17PNrZDOC7ErnP5q3A7giVmOJEXRiy0Xx0NMMJeSzGpJRq
PZj8oKrBZ4Yzaj83PSXp1Yd7/nVBhltINEi95c1mG8AC58w7GbsAz1s6as7+
wxB+eN7Ky5rPwQZ9jn1/GhPKu7pDbZ5zcLlB9T/WzUYwan4kYnOqC2pMztkd
JpoPlx06RPoOXGQmGTltMjWGhIa47ugBLqqaBJase2IM2xpSHDYUueLilXq3
9gQtALvYz5WlAW4Y3aZd46m0EF4qatIrGTzs7T/h63F+IWipmEk4T3jobl2b
6UGwADg99d4x7ljVv+Ln0AsW2CpbLJ2yeBXusLJ7+1JoAtnyjUP2ratwZY/g
9SZVU1Bpz1ebccED3Vi6XjNzTGFVcPbBUA9PND90bG+1gxmUDJf+IhWeaCF0
pE3emsEjV7+nNbdXo7Bqy5HiKHPQCLg5pTZ0DdJXXgvkOosg5GH3yUimFw7k
jw9Zly6CRuUOkyypF0aY3FDN9LIAx5itNvxkPsotTrPvyCxAXF5wLMdlLZbl
/vw0mGoJJb8NA2L71qK/60JYwbQCvbz3V/5c643ztqfcX4xWEOfa+qCz0Bt1
1CJve/kRcNksaY7lFApzuQfiZZsIKGPdL5RMpdDuwCnu6UACvqLMlT2dQr5M
8kYaRkBrc3AsR43C5ObBkYhIApz3s5v9NCkczkl0iU8igFHzKuOIAYVvV5x+
de0GAQX9tfptSyncEpt70aOIgLYp/Xci2BQqiu4JuyUEBJQxV393oFB7gXTI
toSA3dNiEwaWU7haxdCgEglQcAxb1TgUVry+Jnj1hoA3qwMvOXhR6KlRRsRJ
Cbh5QmRfyadQ6l6v0H1HgH9U/nMXbwoHyrtSgz8SEG7aP+blQyGRbXPzeycB
LJcjwYJNE95bTtyJHwQMXr2u+O4/4c3xIa1lBASJG07tDKRwc0rsy92DBDDz
ZtHxIRMeJmcyhgmQXLD1UwqjUDSaEVE+SgB7iU/v0XAKNZcWWAWNTfwXtTtF
XUBh1vbywfFxAnx8zxqlCSn8D87LuPs=
           "]], LineBox[CompressedData["
1:eJwVlnk0FP73xs1okRTZqZRCiSkUUer9tuVHpVKJSllLZfch2YrUTGMpQpIk
yb6NfSkXkTW7yDJ2jX0Z+/rt98dz7h/PeV5/3HPuPY+oiY2uOZGFhWXmn/5/
ztMrS8V8gs7KPnwqwpn9HZojBJ+otNmjmlibPbeFiwDz1ZkItnkhhW9KC243
isHpckIra1sgytTd+dOu8gcYZ1QnbPi9QxN9nqs8a6VwgX/cfUUtHF1v7F1c
lvoJuyYEApdao1BFq2jvE8cKePkpznVB7ityfVRT9oVaCauXlczn/GLRUkjW
BL9/FdgTq3SYjHgkcsThBKd9NTAybipOqyUhzVR+kQ8ZJXDHfFR0MiIFTc45
Re7ZkwMPtxe+mHdLQzKiEsEnnmeCmNlLF8cEGnpA5H1k+j4dur/p2My2pqOS
fO60N7w0COMTMHPYnIkCgve+s/yaCtesu/Vn5LLQt7ZJ8oRnMnCWx160M8pG
c/YKvhqxiVC1z1Z1yi8HzczX8bRsToAXzoonbQpy0dyuAzUfA+MAN7BITzDy
kKpDn4+/RiysSFbut+IvQHMZ62E+gjGQ7RXAN6b2Dd2M8dD+veUr2HYYsD+y
+44y8vetJHBEg9SJAxvDEYVoyCs2YkPiCwz5jjAtagD1cXu76V2Ngnp7g1mm
WxE6O+DCF/H6Mxz99N06g6cYKfg71Qi1R4JPteiwfUIxOlx1K/iybCScExvp
mm4tQXG9vvsPEiMg+rKOPs36B1pt2XHt8GQ4ENzTG203l6K52Z/6D8Y/wJ14
/osy4aXIaUv9RYeVMPjW4lI+KVeGXFgXqesCYSBE7FZJrSxD66P6cgyV9+B0
VO2btdFPRN8qOiLtHAqy5O20cb9yFIO+ap/d8g78M2ykksUqUAVXqJDH7RAY
6276allQgeJEIX6pIBhiFMPDRhmV6I6+RbtmUBBsMmfhS3xahZIWzT13cASB
cYDZ64f81ahb7BPLDPUt7BmR9h5Wq0HVhbv97MIDwYU/YD2uvQZ5OE546BwN
hFbVOWcLu18o4a+JaU1ZAAR++G71N6IWxbe2fHmyKQCmykUZMfJ1SHtbnbBI
4hu4OPvC5F5NHTI05si5oPcGvCViE2fc6pHHvfuMSvvXkK78x0K3oh7FXyhP
qOn1h17d7RLpPA1oTT7KTkXfH84+tYm0S2hAHn7rihI3/cAq+LNhw1wDqtsQ
lJsf8IXwxCZhWZVGhJUctRccfWGp9WTwVGsjqlcd4H4a7wO5cmxGsZJN6G39
YBddzQec/NqO3HFtQjr5e/UMBqhwghE3x/urCSXYlW5LoFJhRvVJUbVIM2pn
nX/7RoEKaR+1fLxsm9FVKcVL9X9fgfWikJ5SSTOKeLu+UybiFYwk54/GmLcg
M47yKhehVxDH5pNtmNOCEidyvxDpFLhnesuTd9tv9KTHvLk/hgJihVIXqm/+
Rgy/W7JMBwr0C67yeyX9RidWz9Vv1aBAlENNr+L6b6QXuty7LEQBo9rwpMlL
rYgu7fw6doYMIpJWj2M+tyLTzTl/RmrJ0Pn8jKohsxWFig+5fkkhQxh9xw5e
jTaULjNdRwsgg74SvbUqpA39pvJmLTwmA39QSpQnow3pOes66xuToWXCw0rx
1B90KfpTYe5FMgRpXVKc9PmD+IM+264rk0E3eh9rTNcftEW+K5brGBm4NiZ/
3T7WjliYCh9bD5Kh1qAolMezHWmmxYUq7yaDb+Yb06rGdqRB5e2T5CODNqfx
UU+xDvQweW8GdRcZ2B7KLp106kD2PjOS57nIUF5KKJ0o70AaMXPK+v/8l/sa
/b8KdaLGX8dTP/GSQd0lyuD2o07EIRe6mUuYDMQWezGe753o+uZ6t1BRMhQd
U5us3NmFZr7WbxyWIoMHlSf/mVEX4jaaFUlXIIPyYL/3yfQudKojaqu4OhmW
UealCVY6KpN2dXO4Soa8MG/hr9fpyMJw/tdrMzI4z10bvBVLR5VjT5os/+1L
4bJ4GvcSHV3wbxxY8yFD+uafGs/CuxGdv+Dv9nwy2BmFcJ2c6EbSv41a7JrI
EGqYMT6/rwdJPnz0zXCCDHq5z3OT7XrQb8tixsfDFMgaHN37KqwHcXuUXKVr
UoCX59pzsx89SEVy/4qbBQUarcR0dvP1otw7i0RaMgVkP/hmzJ/pRTcdpo/I
N1LgTcWsYOO9XhSq+0RgboECOgfL+im5vWjQIWOETfMVVLWZP5m/1YfkIzVv
Zsy8AskttfQG7z7Ex83lc24/FSjHFdSTk/uQR8L9fV06VDjnv4XTbKMPUYrF
DVdTqPBDLTa6IaofDV/4+9PMxQdk/FOHFyr60bFH2+0ZiT4Q0ZZzVGSyHwlc
1vI4TPcBZ6uK3IenB5Cw04Mbteq+cPTdcA1r8wCyzq7lPy/sB2EjUnPym4fQ
te4aS4l+f7ANSNMIu89Ad9n77aItA4DekUst8mOg2w6dbWf8A+C8RHHdUAYD
2Sf7d7GnBYBEQYPBcZZhlBDy4rzybAB0DMxY1YQOIz0j6rtBj0A4pygfsl45
gqoezt2MDf/3v7rzhkykx5FJpG3njblgYGHahVZeGUduV9NV1HaHwMCWI9oy
j8eRFnko54JKCCQfDUteKx5Hgc8GDuf6hcBZD5f/Qm9MoIlHVj8HD72Du3tP
E2u9JlHUjIOkpnEoNJDo/uFjUyjx4JBK3WAY8FreTdiqxkQ9roKLKTyRECh7
rkDn+iK6IW2u0r47Bv6EyhRNc62hE8JTkfuWEiGsKZHTSXwNFe3PbOzkToKb
Ow/dXVZaQ61GxbLh0kn/7nnvOtF0DZlMDBqJGiVBjzW7Mm/WGmIfdxlSL08C
hvpAjoLBOhJ2E20YDU6Gxal3qa6fN1Dz5PLb4BOpkCfFs7GRtYGODKar++uk
gss9fx3vqg1kVqLpRbFIhdUO73Ff5gZ6YxoW6BmeCs/6c/nqDrBgk+muclVi
GnjXfr3a8x8LHj0Sk2DxMA0GHpm6Hnj6z78/a2n7OA00tol+MXvFghs3xTU7
e6fBFvXwGcZHFnz74TNfn4g0oOQFBkz/ZMHN2N0itzENfKKf1hGFCHjeJFPm
6GkaaJ94wM13kID74rPMiP9HA7ZS3euHSARM7cnf3XqNBt794h3nVQh4vec0
h5c1DVQdOEXunCfggUQHVX1XGrCwLhnZXifgIoNDc0cpNHA7UDMU9ICAbftD
Krs+0+BUepZkrAMBv9Y/yMhKocGiyifLPHcC9m2pcfMvoEF2AyW1mkzAJt2E
l/craOBobD/TFUDA0pbHiSotNDgxfUt+6gMBC1+Jsgxmy4CZZxrOxBgCfow4
9cIbMiCN61gBbxoBc7o+1Zs2zQTrSMF1iXwCJvVkLT+gZ4K0DFFFqZSAa3eo
H/uinQUjMPr8fC0Bn5Q1bBZJzoL73YXbbPsImBEwsSp4JxskbOIueI0R8CGb
uEzN1GwYWA94HTRPwNo0wY381WwwEjHny2Mn4h6WkqRw/xwQSdHRr+Yl4gDP
KyK/m3Kg84zihy4RItZTmuVc4c8FfcPtosTjRMzt0r/AeJcLV8Jp0udvEfHa
1tSg75Q84JL+YGNoTsSFXqsyPCV5UFvgnW5jQ8QD5O/bbZbzQLvjhmLQcyLu
s+644GGRD6rC62pdiUTc2aBD8jhdACdCtW/ZrP7LZz539yr7BgJB/a/efmTF
rWqCJUJvAASlsrwXY1ixtFn+ltAcAOGSl08N01hx/bvujAE6gMiUpOOhH6w4
fft788f8RSB+wdaogMGKY1buxv9nWgTHN60p9B/fhG+/uWGdtVQEl/7jH5Cr
2oSPmRkXywmXAPma1tnG+c1Y98Wv3lilUnBQ+ny30osNk6tE78S4V4D65LKL
dT87llWo26+Pa8BT+YqxsOIOnBzFxl/fWAenUt5negAnpkhJDMvVNYDl4vSz
ih27cKkUp8KoXxMsSXHRSde5cd3XB+y8Vi2gnJgUGRLCg8vduKtSUStMc2sb
6ZXwYrazh9I0ptpgwNdIz34rP372oDhX5Uc7aE0+1hpUEMArLqbsTxw7YcyU
zSHzqSC+HxjH5a1N/9cXBYjkEiHchYXjhth7gPuXhH/apDCWz9jentLTA3so
qZcVFPbgOxLkdY6KXgiVUuLiub8XC5ylBn771AdVwiryzAARvKk/sGvEvh9O
7Sl5c+z3PvyoTf1+8Y0B2Mka9Z+x1348fmnRRIA0CCKe+5QNJESx+595TWHe
Idgmfjtbt1wUO3bPZmTPD8HRM0Kpjw0P4OMxcbyTlX/Bns79Q5vlII5ftCK0
pzBgkul7XSv0IKZyOGVaeg+D5rGfYVokMcwfvYubdn0ECpmnVxZqxTCjtyo0
QXEUrKXl2hvMxbH9+9ExA44xODNh1mywTQLP4rmPhdNjoCEmeHFHlATeJRfu
2V0+DoefUZ1LTh7CBbFlTd/fT8ARcyUQbz+EFwupWrruk2BeaOGdaXcY63vv
82w5PAUQ2Ww2zSeJk66N13Z+mILZuI2FYzmSuFSDWlHKMQ2m4onbwi4eweIO
ZRO7nKZh+shbhfSpI3i/5gjPKcY05Eav9M5RpDC5p662QncGbqofxKdFpHE1
7QXn6YIZ2G1FzjtaJI0ju5iYIs0EPnZL2sUbJHxqhHX6TAgTotXcXaYMSLhM
rW6ML5QJcu7+am9vk3C4+XXG+Hsm6EyltbQZk3DulUD6x49MePl7bsnUkoQ3
5uvL16KZsBj1VNXFk4Ttc+z9vmcwof3026aYRBKODqgfVG5ggoVjdLhWCgnf
mhL+w9vEhPmULPOxNBIOfnGgZqyZCdwH2hZks0nY/dMDWngbE86z7d3zvYiE
70T9cV7tZsK35hizphYSVte/slIwwQTtnbkkpzYSlph9PPJ2igltmpXzgh0k
nDFz+8+jGSbM5o9S7vSQ8E4Tk+zd80wgfZZJHh4hYZ+dhlaua/947SpOvuMk
rFLmfPPqxj8e71V0bIqExeyvakoRZuEe2bHhvzkS9l3Q2N+xaRZmi16GCSyS
cPysIUfGllnwWn5nmr9Mwusy8otUtlngOhEvbbhGwt8Lq/tN2Gchwip/bmOD
hHenidad4piF/wHmgeQe
           "]], LineBox[CompressedData["
1:eJwVVnc0Fv4b5bX3HilEiHiFEOXb5yMkI/VqGSkZkZUteySvnRnJzt6jjFSP
ppSQPTIyCmWPNPDz++s599xz7h/33Oc+j4jFLUNrAgUFhSslBcX/58Zo6xux
qKQTm5R/FjaHg6Enk99bfcAVhVnSGwcGhAHm6bDgHwhBhe7MRbWq0cA7zMHA
rhmNHLmUf8efiQfPcyX9VAMJCAjPRu3LkuB67ceSnZgU9HjJhcNdKRX0eef9
/2qko0r8q+fsxkNIVyMX/fXLRi/HZS/4UmUDxwJfwu/+XDStYX4oUSsXwrKK
fH8p5CPytZtNlSN58O+cqvV6TCE6+vNYp+t2IbgSPhiszhSj0CxZv8+8ZTBT
a6KyrFGGTLh9fF7oVcNV6x8ii5kVaHHdM3vfvnqwY3pxd8OvCsmJSCQr3nkM
YlZhPh4l1egmgdve8kENjD0zuLXWX4NePeWsiuOuhjQePis3mscoPlkwxSG/
Ei44jRmtKDxBzwYWyQvB5cDWUnjGxbwOrbsqR2sVlsIHYeeTSzH1aGWjg6uX
pgTu3lY5equpAa1ziLZlJBQB/kwhszDTiE66TUTFahXCX6nW/Y68TWi9djst
ir8A6kLieX5qPEMmBQG6fbT54DxszGjv8hzVPhX+W8KcB9KKojuzmS/Qt5DC
zB2JR/Atem7Vtg3QBGeo36XzudDpary26teMTkz58GTeywHZrOdOtVwvkXKs
Z9ueoWyI+igy61ryEkl+ME0+J58Np8TmRpb7X6Gir9H7DxAyIe+cgVG102v0
r5flguRiOlD613Q507xB62vvjG7OP4Srxbxn5NLfIE/azjNuf9PgWa9Py6LC
W+RDtRm5zZcGewhj6pWtb9H2DyOFGfUH4Cmr8czJ/B0apROZk7mdCvJkpur5
mBZUgPJ1T9CmQGztLelysffoPXvqnoAr9+HnWHe+Q9N7VCQCxb+bkqFAJT3t
x0wrumpkO6SdlATU1hQ8pYEfUNmmdTAL826+4q3u2fF+RGNiWRQrkYmwb04m
dFajDX18sTfGJT0BfHjjt4uG2lCAx0KAgWwC9J9cv23r8gmVfLewbHsbDwkP
nzt+z2xHxf29j7yp42GpRWSmQKkD6TJ0CAiVxsGZtbsWN9o6kNl15nr9S3EQ
KlFYuuLXiQJu2My0ut6DGrVBW8P3nahYv6Wk7WssfDVkkqjh+oy2lHJd1I1i
4UTgrWyXks8oIGZbRcIkBhyTc8w+r39GHTv8ChtT0ZBe2i0gr96FsKqH7i+P
aPjdfzR5qb8LdZ6c4gwsjoIGBXrzQqlulNg5PTKqEQWeMQOHrvp2I4OngpeM
pyJBcaZonftTNypxecNQEhkJKye9mz8K9aAhqo3EOOVIqMrQiQpx7kHnpVXO
dn6PAKfNPZdUX/WgzMRtVrnMCJgrf/qjwLoXWTG3fPDZEwFF9FF1ZvW9qHSh
4RFhNBxuWJoGczP0Ie9x657JgnAQeyGt/9GkD83EmMqvuoXDJP8/3pCyPqT4
71QnnVY45Lq1fVXZ7kOXUv98/bMnHMzb08sWz/ajUZnb9wpXyCAk5ehVkNOP
LGnqB+fayfDlzn8nzVb7Uar4N99HFWRIG2Vh4dYaQDVyyx3V8WQwUh3t/3B/
APVFcj/55UUG3qSK3OCZAXTptuFto+tk6F0IcFQ5NojO5mW9aDhDhiSdsyqL
UYOINynHeVuNDIZ5wlQFI4OIVmmkkP0wGdh3Fj9dOTyEKFaVM/oPkKHduDmV
K3gIaVcVpartJUP04zjLD11DSCuSe0KKhwy6bNdlg8WGkV25YG0kBxno7eR/
H/UcRq5RK1J67GRoeUP5ZqFlGGkVrKsZ7fJhwl2x+Xu+oK5PRyqzuMmg6ZNr
fMX+C2JWSKVhFyADoddVjOv5F3SRptMvVYQMzYc1FltZR9BKfueOpDQZAiK5
ngaZjyBO8zWhGmUyqE1Phh6tGUHHhnPpxDXJ8Ac9PrtANYreyvj6uZ0nQ2Na
qED+xVFka7bx6Z4VGW6vX5g2LRxFrT+9ux12/VI+J17F+XsU6cd2TW1FkaGG
5p1WUPoYGuVt+s70lAwu5vfZjy6MIZk+816XbjKkmtXObwiPIyk7+2dmC2S4
1HCnodxlHPU5vJzJkAyHJ9M/BCPSxhFnwKvzo9rhwM114Y7V63GkLrX/r59t
OHQ5ihns5fmKGq5uEqrLw0H+YXTtxn9fkYnb8iGlrnCIe7/G33XjK0o19OZb
/xUOBgfeToY3fEXTbrVz9NoR8GHA2nvDdAIpZWub1K5EgBRt++jn0AnEw8ke
dWp/JIQfUdYsL59AASU2wiMGkXAqlpbNamcChb8UN/tXEQmvNQrzPudOoln9
7++sfKJALrZy9tf7SXTYnsl1pjQKMgfqZYUWJxHfOZ0AydEouO34vsHu+BQS
8Lx5uV0zGmRTZtuoeqaQU107r55ADKTNSa8r0XxDF8baHCQmY8E5vkorzWYG
XWOcdMlziIfR4YbI5pgZdMXty8B/sfGgJ/Gy41vtDHItjx1hrIoHiabPxkco
ZlHJ/bt6amvxMDy14tiWOosumUemTAckwCkVpfvbrXPog926SWH6bn+NNX6z
kJlHFtnOXy6vJwPFqktqK2ke+Z2vUdfYex+maA/pynnNIx3yt3p99ftQLptW
vvVyHiUETUk2xNyHEwE+7qmXF9CCveO76YMpcE3wOKE9ZBHlrrhJaV9Phc/E
0dj0n0uo9MA39Y7pNOB2uFZCp7GKxn35Nyu4siFB/lSTwcVNdFnGWn1obwEM
pso1L7NvIUWBpWzh36WQ1l3K5im+hZr3P+76wlkGJqwHr/1R3UL95i/l02XK
dvdZcJtguYUsFqbNRczLYNyJUY37yRZinPf5ptmye581p+qVjbeRgJ/I5x/J
5bC5lFLpm7ODehb/JCYrVkKjNNfOzpMddGi6RjPWoBJ8bsQahH7YQVavtEPC
bSvh33DofPTqDoqzTEsITq+EoMkGng5RCmyxPNJyklAFoe3558fdKfCPQwUl
tnZVMGVv6SsauMvbrDk4e1WBFoPII6sICtxFXdRzO7QKaDXTV2YyKPAVu6Do
qMwqCG9MiF9+R4F7sL9tQ1cVROUFdhD2UOINi8dysserQVfxJifPAUo8UfzE
inC6GujfGF48SKTEkeNP9/ZfqIbQSfFhPXVKvD1+nDnEqRpOurEJXdWjxFOl
bieNfKuBguq3ufNFStxsfHBdNrwa/ETbviXdpMTOk/dbR3Kq4VjNE6lCN0p8
z+jAzJOKathUz3Jo9KfE0b1tfrFN1VD3ObzyI5kSW4xRhtm8rwaP664rI/GU
WMbhCEG9txoUl02Vlh5SYuabdG7ZTVWwEqR1m1BAiSOqijQNmKugiv1wE3cV
JZaMp24wO1gJTtn82xJPKXFPTrThoHUFyMgR1FXf7Oo9bPTubS6HOfhxR6+d
EtvliNgYHC6HorO978wGKLFGC0s7sawMbMZeMDhPUGLD31qWSLEMJG4V6Yf8
pMT7bfK3Lr0thant+HtJG5R4M0mJ8N2sFMyFrHkaGQlY6JqeC09OCQhVGBh9
5CZgcZH4WkHdEvjyn8rDESECrls/6HTuVzEYmTGJEI4Q8OMLOTKuV4qBlF4t
o2dKwA6ErGc9p4uAXebhLTNrAr4sf66jkqEI2ptCa27dIuDy1ZGqwLZC0B2+
rJJ0h4D7BM4dcr9cCCcFtjVGSgn43rkMiuLAAqAo+R62+ISAjQYNnhPOFMAL
1c+tlM27PK37mYjd/B83zjsr0UPAj0wP4bGmfFBM1TW99Y+AR+1NPRB9Pqwc
VMwMpqXCinU/SWG7/2lVveDXRHYq/EIzw/pBbR4Q+5duNIhRYeEv/mUEizyQ
4E1xpTxDhbNkGYO4Wh4BX9JkRGIGFVabXo2nKs8FfuknoZsFVHjrT6GKYmwu
CLwKCzSrosLWthb572/lgtCSlMfB11TYUDKjiUMxF8T1nc2bZqjwp6qVipHm
HDhCvaU8eYQaU41r33WbzQbFh+3yp/+jxvnNNYatHdmgrJAtU36KGufIzTpc
r8uGY+Yaol7G1BgJbmcahmaD+rMIFqZAaizZq3SJ80A2nHXnnVL4QI1p3vyu
muvNhHNMM6Mp3dTYgOJfe2lxJhjmNg7++0K9mx/OoY/+mXCp80rHu0VqbNFi
+0DkYCaYyTx6asJDgw9LPyla888A+6nD8SHmNJhJ5Nnm1LF0IF/QOdG1QYOP
89o8kZh9AAKP2wUIlLRYY+aMjvDrB1DBdeGXPBMtzlUTNDLOeAB9XVer4oVp
8b1Cr5EYwwcgRnIXJZ2mxbFhFzJHIBVencmi7XxAi+MVGzjO56fA1qn19k9q
dPjEj/qndveTIa7Ap3TrFB2OnT3+k8IrGcRoKcKJJDr83LGz8uXlZNB/y6ge
Y02HKWm1uF/uSYY0jf21+rF0WGWGkaM0KwlUsF7KxzE6/H1cPbq7JhHcVHOu
tYbQY56PqudO7fa7bjbrml40PU5ovhR5ajgeROn8wtuT6bHgOrHU8lU8dPZc
qu4uosev96kcXYuLB1lnZqrRdnrsecBq0/5wPMwUeBWsCDDg880/Bgpd4uAK
t8H83loGfLSOb/9N3lg44tsUnPmMAdO1cJ/w+xEDjBOSvCLvGLCFOHvd++YY
aKykQhKDDFiYnHKR1SEGePUa4+R2GHDFpyk+0tto6AwWU9TSY8STpPnPoyFR
oLn4x8dpkhFb5h8eCpKOAO/TSYde/mTEQUw5zz/RR0BFDnGIa4MRq92iunD5
WzjwXzBXbaRnwjYrFjQiueHws+HtLypZJpwwKjIdty8cEkPi3B/cZsI8YTVC
8/vI8H5YSuxnMBMePWhmy7wdBv8UX3efiGLCG3lsQ7ZjYXDj+7rCVAYTLvDu
mh3IDYNj+qbLsq+Z8DwheCNBJgwmeCSc3rAw41cH688Z6N0FvlsgyMfHjGPd
FOrl5O6C/nujTzf3M2OON3PlZ3juQp1PlAzbEWa8b74JKY+HQuTY0pyxETMW
yy1ne3o7FBSKm2wWc5nxSMBYrtbjOxCsRrouoMKCuVo2N/oNQ+D01cyVoydZ
cLG01XyRWgiwBv24c1GfBc9ZSPZVSYRA+uu7BXHmLBiJ12pb/g2GBt2nP2gj
WPAnyz1iGoXBsGR0wHN1kAU3kbi43OiDod7HmY5jigWzHji44LweBAHpz1Nl
F1hwkAjfRvpEEDCPX266SWDFm4x2Tv7Pg+CgTTTF+CFWfOZ7hjnJIwiueqxH
tvmyYh+jb6qFg4EgnnJy39xdVizpXntvviFw1/975XRxrHgjp+F4UGog+PyT
6jyZx4rz1JS+hRkFQvKdqzyNbaxYWpaAKb4EQFt8S1a+IBvWTuxW/LroD8cq
HjwOADbsy7Lk1qXlB5r97VsL79mw60B9e5WsHxhQUGtf62LD0rGV+5/x+YGl
odMgmmbDDWfVii7P+cIpX5HAIBp2PMJxJzEp3hechTceqUuzY+0dMffn333g
jU3W/GtPdjzdV0zsrfQGnX+qnH6+7LjR+pWsZ4Y3tMf1KCsGseM1xrRp5Shv
GGxkCMqLYMdDOhWivDbesMDkznk3nR23skQNndzvDfxVp4+eesWO68dGy9lT
b4PD5nLQexYOrM3o6Rf10AuOudzg/cbJgbUqHz4iRXkB/dxQKRU/B+Yy9mlR
8PWC/OHXfSdEObC9+eyMpqkXjL5IlnmizIFPWZIocvZ5wdm7qgM51zjw64u/
prYfeYICZ/Bh32oOvPP8cVXlaw+giFp/k1rHgUev7vtmWucB7VR2JnVNHLhT
8EvL3mIPsF83vLv8lgM/5DHs7Y31gLwBsWGbIQ5c+WBVQNbUA3iz3oddoOLE
NRcdlHV+ucNvafZR4kVO7HxtXo1LzR02MgSCj5jsYn3DSH55d1hjExdTvcaJ
N6oZBGQk3GFhVdVO8yYnpt7kDfdnd4eJJssNE39O/Hue2ubdtBt80KtnDc/n
xKKnyUH9CW6QZn8VTaxz4puFz0XVN1whZcR24vsfTiz08hAe+ukKSWfd7s7v
cOK3ZSJOAZOuEHsk/OMmAxdWsKou+N7pCiF/qy+zCXHhnaBijeNlrmAfReOs
dooLG7/nL+y1cgW10rLs+/e58KLLd8aLIy4wvL80S+shF57SCnSp73UBn/vF
mWtZXJhWfsxXpN0F6oML0g2LubAcHtRhBhdQMMpOZX22i5u5XY/nuIAUTVJc
2NddvH00fP2GC/Be8w3ylOHGj2glSyN/OcMyp675pVfcOKw5VYlD2hkGHEQ7
7Vq4cYaiZWuYmDM0v/uDAtu48bmyH/4EIWeI8ykVLurb5QfrDzBzOIPcBPPY
7zluLOF0orl94RY4VXeYZXDx4NnJjCT7yFswd/ai6ZQVD6aZPcu22OoEU9Hm
l1zpeHFoctxy/w1HcJqTEZVj5sXLzQ1e9GaO8Ev79/w8O+/u/kR64POOwEiV
cPemAC+2TzpU+w45gpz368fmRF6sYb6iLL3HEfytJbjOnufFJvTbKfqfHID3
xM8O6SxevKJXHfjkmAPoLHrpTCvz4TouO08XSXvYJy8URq/GhznY5JfihO1h
wfXNK2l1Ptz2JHW1jtcekjbY1Vz1+PCBG/tu89LYw+hWsezONT68djYqW3TC
DlyZv3DtieDDIWN8I7YZdpAmhUf1h/kwTSd5zoffDn5a0rs9DuTHfk7hgqeF
b8IpMT4C+dUe/IVvc9jK0QY4P0nEVi0KYIvB2pc9rDdgX3jlOWXlfXit+9iD
vy+tIFValZ3LRhDf2dtX7lZpCR8E1JVW44VwcIt9jO8LCzi271Xc4T5hvJYp
pXK/+zqwUuW6Xw/ZjyUTBxRiWK6DULCwmrGECDYu4g94pGsODOJX6gxbRHAS
3J3fVrkGsv/tqfQyE8WW/Oc/jLNeBddRzte6FAfwvwP6uSLTV2BxNfqiTuoB
PGWtomk5ZQrah9+l6RDFcIXUB13TPybwYvX431/tYhjWrhzhZjUBJxmFoc/W
4pgxQvZYKDaG/xaseowZJLC/8fY9DWcj0BLjP8OSK4GVdOYT5J5eBsmgyNuv
jh7ElglKFSqcl+GQtSqIDx3ENR1/Ct/cuATWL2xDH7tIYkrixvONjosA2T1W
yzxS+N1lDe8GpYuwVrTz63C9FL5uhI9+KrgAluKlDGlnDmGT5y4JtyUvwPKh
ROWapUMYxc6phRach4a8v1/Xw6WxZAjLW70j58FE8wA+LiSDnfeOWee3GMJe
R3KjbLMM5l51drlmZAg8jA7VZy4TcZi8Tq/ZOgnyNPx9loyJ+AGzcF/5KgkU
/GM1Eq8Q8aqEE3F7mQQGS1W9A9eJWA+xj2UtkCCsb/23pQMRJ+jf0/v+nQSb
uYEnfYKJuL1wXSFsiARDxxO7C0qJWOumbQRVMwlsPfLSdSqI2Mr+y8GrL0iw
UfHE+mcVEZtFZO5pfEYCTtGBX/J1RPzQpGTjViMJ9OgF9z1vJmL/04eTvtaQ
4FlPgVV3LxF/VQjT7skngS5rA9FzgIhTCFfZFPNIMKDdusE/TMSJN7Ykk3JJ
sPb0R/jVcSL+kq5AuphFAmKOXPnsHBFT1fe5Dqfu6g2pe0bPEzHdoO67/1J2
9bjPo8NLRDw9984uO5kEN8gen93Xd/1o9iq4kbCr1xyWxrdJxP+Y/f/7EEeC
kD8plk//7PpjIi0ue48E7IrFMmZbRNxKY2+WEEOCTMen6zs7RGzgJvZtI4oE
/wMl42ft
           "]], LineBox[CompressedData["
1:eJwVl3k01d33x5Uy3ovMVDJcN9M1XkMa9jGkLkKmJAklDYb7MWVMRMkU5SlJ
kkwNRDwy5ZgylJQQIcqUyJih+ubxu7+/znqttc9ee7/Pe5+zjoybj7X7RjY2
NsoGNrb/X1eG2poo8an7uh2t/dr3euPuTPFggz5foNrd4PDt9MJI5J2beF8U
JEU5ny2oO49FB7ZwCxgnwI/C3QtJ3GdxoNXjXva+G/DwtvB8r8tp7Fr65vF6
4m0I1H++e33DKWwuOhP+P6MMmIr/05q36Ioz9lwt+F9YFvCvuvyJUXTBW2bF
bvzuzYYDbWSDMJ3j+Mr9gtBVzVwIFxg38Ax1xH+tdrkvJ+ZDk8P3icNbHLDv
xtcWPycfwfCZ28/mpuzwZKmj3oLRU4gKtZQqXbPBzu7TMnOZRaCENLN3GFjj
c7y1MSthxZBW+b3IvsgKU05dCQl4XALKlFWBCxEWeLjGwmep9zmsqYkXOH41
w+kiYqf8NpcBUdGrmhPCwLbeww6Lmv9CYGpw6aDxAczfkn+IcCmH1/J2Zgn6
+/HrHUzD+cQXEKw7tIXniBGOCdLT9amuAJ0Hqg/tbxlg1MmmMjtZCYlt5zjW
vgMuj0oR+WFUA+yToB3HrY+ZA0d5zhMvQW9ps96yqy5Wpsuuf8+shTT+R6H6
43Q8kTD180w7BnF6/55X1zXxe9+jSz/D6mD2yEz5aWd1rHr/pXepUD2ooDG5
5AwVHP9G5rvv43rIu3NW/2WlAjahTH1e6G2A9zfPN1xJl8E5VhYOJd6N8H4g
aDzj6Ta8Ifz5B+bmJuhLOagXHCGKa3pCWuY0X0Hdx5OVNvs4sMTGYYNnba9A
2ku4zyZmtTZQ1ajG26UZ2J7A5xLlt7UaV3lLZhJbIM3PZMYtng2SSn2UCymt
QIm8yczi4oYfw125ntWt0DReWqCeIAB5ehnp05NtYBPAadPMLg6b3NlEnkS8
hnP3ODuXg7aCa8qp6+dE3wA1tGbQvUEKtk2pRH83aoeVboODoV6yECKa8l9B
fztI1bpUi/bKQa/hctAZ4i2c9lham1aVhxt3X3p9y+wA476Uv7lPd8J8i8xk
nvY7uBioe0aiWwEOLcW4nW5/B+e4zGkTPxQhmpr/ZDHsPSitt9grLCvD8z2f
zli3voczrftpXeMq8NWal/pcqBOcbvtVGr2mwb4InyzicSdQi6nFUUw18Prn
wfHO5U5QfpB/PVtCHTKedElqGHyAYX8fxYEAdfjdq/vPfO8HON4bwHy4QwMq
NLlc8hW74JtE4445Pw0ITOxTcg7tAgp7erlwowbQJwuWhd92gV3xhK4pWRMW
DYPr3kh1w6GY+eIGa00ovseIj2J2w1LDsGfRTU3w/iVhv6uhG0YPi1B2v9eE
qcKq6Tz3Hsjm6b82skcLCrjiy4+/6IGzhz0ND3lpwemTxyKFuT8CNvY//PuO
FlBqlc3fOH6EXp20Ie5GLRgV/ysa9fQjxOkdsc+a1IJsv/avev99BIV+sZhB
Hjq4dGQ8nbPsBQWLfcWDinSQUvS6kPegF5zi/Qtf7qfD4OW9hsd/9sKtX6a/
0p3pkD5EJgvv7wOBaNvmJH86OOwa6n19qw/smz5LPL9KB9HUouzIyT5g6z3W
tS2NDj2zF7309D8BXbCwfjyXDqkMS725+E9gbGhUIltCB+ucHex5nz+Bv8Ch
kMlKOgisz711UuuHVpNFslkdHTqO1qUJRfZD8WxZ1PEmOiSUJZ98/aEf9Ko5
pTWb6WDK76oaSRmA7jaFs/2v6MB1TuO3buAAXAy12OnRSIeWpg1Nsy0DkM+l
5TdZS4crOz4k5UoMQpg7T61XBR2MQ7KPOp0fhCnRmU+bi+mwsceXIvRyEBYb
6jdgVr11akZzbXyfwTuo6EveHTpcjBOquuTyGZp+Sdx5HU+HPeOj0brPP0N0
vvEbnTA6/IEyy1n2IfiifOnu6jk6VKZHS+baDcFdA1KFuAMdgpZtx4/lD8EN
nOmca0QHHSv5YsHfQ9DsluFaQKPD883N+y9lDMNLb8U3+mtaQLjcEtCdHQap
b38mP49oQdrx0pmVHV9AqsGyX6pFC+wrLlcUEl/gfFvql3vxWvDBi2KxVeQr
hGtU8wRv1gKNuwmlK3u/QlR9adXyF01Ibl0S/3D6K5gUXNtkVa0JFnKvRmMr
voLwUJhzhacmvO5zD145NgJslmqfuFj+VeToGOqMHoGu9hMvKLc0IFZLx7iw
cAT+U1GuszijASZJHPyn1kfg253DgiPcGtBolJ/TmT0KsQ5JakmG6qCe9Oz7
ausoUJvNRLYJqkNm3wtVqblRqFketp+rV4Mgr9aKc7vHYJNRrZnpb1VQvf29
nb17DN7Pr625OtAgfUp5WXvzBCic7bUmfVYEZkrx/nSPSfBsHE1elZaFoYGK
uLrESRAOuncs/p4MmFHr302UTrL2u0yZScgAtbrzqBbbd1DQzph25pOGgbFF
r/a07+DgqtKoNbQVTPS0b/3XNgXiQe17dCSFYNtw5YSbygxcYosTv5vSsI/t
J5HWdngG2KwPHKOyNdaOcSiZql9gca3LBlvHwdpC1fTCtfoZ6LMsNLuZPF+7
72KIf9qRWZDO3qATOLABn9i+e2NH1By0fguJ2FUiiDtpQ0kZP+YhKDQ6ujFA
Dgt7nnjMafQThvrqggYD6fiGhkm1hd0vKJPNqwLJA/hTmnrdgsAauCRuWvn3
oDWOz4l4t1FiA9rk7mypwHpPxVJHr928x47KCzOoXh9d8VVbxr4PK5uRwgY3
TuLVaey368GJtiguFGB/m39rqyc2zeJbMkvgQnyx1JCpIU8syxkW2/EPF7Ly
lTlYuuyJ33fbl3QVcCEhqZb7qnJeWJVJYh/q4EJlthSfqnAvPJl3IW9Rkhu1
c35ACereGJPH9QMo3Ag1bwt5YOKNb/lbv1ulcSPI66rOcfLG+w1pv/4ibqS8
msLhG+uNsz+PMDg9uFH55pFX/MPe2EnYYmZrKTcytVlISLrqg7VCqyMza7jR
Fw51T8kMH8wzoiAq08yN3K3CX8YU++DKZ+xA/cSNak9oN6z0+WBRs8pk9XVu
NChmoyUkzMTvIyn0/WY8yCmiI9brBBPnT6a0ttjyILc1sS1+Z5j4ouW6k6kz
D8rTkT3iQjAxbXt/jCXBg1ysFmnzUUwcV3G99+htHnRL8Nub3hwmNp77E+I9
yoN0Tjhgt1EmDj6YqlT/gwflCP+rdW2KiYse0PqFVniQ+v2WypQFJha3ddlV
ycWLuifaCg+sM/GPiler7Kq8SNKyp26fBIFlBE/k2+vyIpNg3t1eOwhsf/6X
/SPEi0SS58JC5Qlct1253MKGF/G8lSF0NAh8MyrZ/04QL9oZ4J8ifYDArQOK
lB+RvOh8/9X8A+YE/ktv7NoXz4toA1bChw4T+PS3Zc2xe7yovGfXxUVHAt9F
10d08nlRu2Sa6Y0TBH5/R+HGtWJeJHhBniRwisD65scWVBt50dicuXauJ4F9
cpeyItt5UfJF6rUaJoFz/ku06u7hRWdq7j8u8ScwX0nds+BJXvQjfthOO4zA
IyJU7yYyCWUlvOB+eI3AYj54u5gYCekfvOP1KIHA5q0Ob89Kk5Dw6o3lxOsE
Lg+JV+HXIqHOcNH+hVQCT3dRBl33kJBAvrYvcZvA0rTa+LL9JHTtIzP33R0C
xw3PTx11IKEPbuF+CpkExnpx6U9dSegPr7iLXBaBl1LkTNfPkZD/dZ34tQcE
Vpyu+X3Yn4Rsf26ivHhIYGdj+0c54STkGMXjZJXL0vPenMPqFRJqdhLyaMtj
6bkSy2WaTEIjnyVCZQsIvGYpW5Fxh4RKxtTeH3tEYM1H1R5z2STUznsmK+Ax
gT022okZPiWhsqHancwnBM44Ntuc+i8JIfFNOWZPCdxZdjXwWy0J8Sw32nIV
EpiDT4aq30pCP/LUQ/NYvNujqiehk4TGF3gdqUUEZtbZxAz3k9DUWrJ2LItz
JWbommMkpHna2aadxf2+V8aiZ0hIJcnlzyKL+dt3pPaukNDE/hrfvyw2lq80
UmIjo/CGys3fWRx80fpnGDcZpS89W6tgcVHvdPY7QTI6ieZzPVk8qh5jLbuN
jFIzn5tuYrF4nNTGAHkyoilt3HWJVZ/56IuSFlUyipR+XPuF1U/knsOuknpk
pG8vp0Rl8UHnzEVdQzLaxunttZfVP9+l6ct25mTUV/AoXpulT88DPRE/ezIa
aKJP87H0y2iMyUt2IaPsm38W2/IJfHL8g27ROVb8L0ceD5b+SpzSbW/8ycjA
XujORA6BK0yrpjmukVHU63c1SazzjPDkDKfcJKMN5sdlK+4T2CTJls/wHhl1
UGhZr+4RuLtzVj28hIyaLjbEJLH8cvfn7ob0ajJKUmx9acryk5vINZuKV2RU
/cC76AfLb/MOcoE/P5HRyib9I6MsP74IYXJuGSMj62Tdz3qJBL6Y8TJNdZaM
xGPPvwiIIzDpy5Hqsxv5kLpYx3950QTe6ZHA9kWJD02Wve1avEDg2dhPKWt0
PnTuld7vRNZ8lD2mym0FPpQZfC1JiCCw4WzdfnsbPsSTQcQOn2X5MWA5rj2U
D+mx39gcw5pP+duG26Zi+FB63aa/4fYE6764XsiZzIc2FGiYnrImcMhfxfeG
OXwod2em5R8Ggf+57CxS2c6HpN4l+9npEbg9peV+7nZ+dPp+/UkBQZa/S4U1
Gnfyo6mVh2ocZAI79rg2fNHgR+w+JidnOQk8Kf53bKsJP1IoMZG5vcbE7Fnq
Sje8+VGab3f64Ukm1i+6U3YR86Ov4r0HcqpZ919vx9psKz/K9MvbZVTOxBZs
mw6c+MCP9nnU93wqZuKT1t6fYJwfPX5e1jiby8QmoTIRlzYLoHfZtlY115mY
uWPloYGyAApcPNbJ48bETR73ZxoDBdCIpVpEyEYm9vy1cKmVvAUl5zp1qPt6
49/KAkM0O0E0aWWje3j1HN7z5GnWrVtCqFTh76t/qjzwgqCpi32DMDKZo1zP
Wz2FxxJc7H05RRE9sN513cgNM+YuMMZ1xFDO49n0a2wu+MdJLr+yCHE0oRqf
2pJ+jPV/Ett4tUEC5Yh8ftRScwQLvqUmFc9JIpX8rI/CYbZ4W+wzKx2dbYjj
daH5QfPDOE15l4CQx3bkcrlfzFD7EH4taaD9M0UKzf91D3A9dRDrb2tIVvu4
A1G0z5mcfWCE+diz/V2jpJGClYNZlzxgqcgde45SZVDs0FHPVUldzC3vVG7d
IoPUIzs2kFrUsOpeiWcXjsuirJimLzoecth3SLDRlE0OIeHXZFdtEp77mWDH
SJNDbNd8wqKS/u47oNaczqBRkDTVhnA5Lwm1P3f/b7WDglyMf/0e+0oFbxXN
/k53eaQuUXL26G412Dt7qvsoNxU5PJUeVOzQgv0U8UPkbCriOrZCueilCwqX
4oIadHciBZkI7foqfVBy34Xl+3ciB6Plt8/J+8C99kx0GaGAUh35fh+/gABn
dZ9aEFFEBRNXwpa+G8BSwfqq2gtF1F0r7zagbwQn5Z9wpx9SQmyTsU5dzsaw
oHRT5/m8EmJu1U58G70fKnL+93U5VhnFJgtdDr5sAo7Gcmi3lAqazJBM6Dp/
ALZ6Xa1UrVNBe4Ysi1vtDoIIj2fJoSM0pFSj67xTmgE5RuEh80dpiOShGZco
xwDN8CSjm040xFM3cGuRygCL+eKePlca0ikKsqmkMeDKx+XfJz1pyMk/1m3X
bgb8yo4wDImkoRwOru2b7BnQv/tmV94TVnzimHxzHAPOBORkMIpoaFCydJ0r
iQErRf+6/yimIWH+6UbTFAYIyvatapTT0MSOFtKb2www49q+7WUdDZVHBhfU
5jCgpjvvVFcPDXHJVzF8axlgyldBC+yjIfG66JmH9QzoO9C2Ij5AQ1mynpe6
mxiwVDUd6/yFxc5V/ppvGEB7oF74fYqGJiu973/tZeXrNwhMmKGhERv9Jp4B
Vj5hG1CbpyHHfb79mkMMOH01oNN/mYbCOswHI8ZY+equpIv9oqFZ0ajWnG8M
iPpz+2TVHxqiLh/Mb51igAD9kcrxNRpKCpoKmp5hQKZX1fL6Og1Rbj3bS15g
wP8BEgWeFQ==
           "]], LineBox[CompressedData["
1:eJwVl3k01d33x5Uy3ovMVDJcN9M1XkMa9jGkLkKmJAklDYb7MWVMRMkU5SlJ
kkwNRDwy5ZgylJQQIcqUyJih+ubxu7+/znqttc9ee7/Pe5+zjoybj7X7RjY2
NsoGNrb/X1eG2poo8an7uh2t/dr3euPuTPFggz5foNrd4PDt9MJI5J2beF8U
JEU5ny2oO49FB7ZwCxgnwI/C3QtJ3GdxoNXjXva+G/DwtvB8r8tp7Fr65vF6
4m0I1H++e33DKWwuOhP+P6MMmIr/05q36Ioz9lwt+F9YFvCvuvyJUXTBW2bF
bvzuzYYDbWSDMJ3j+Mr9gtBVzVwIFxg38Ax1xH+tdrkvJ+ZDk8P3icNbHLDv
xtcWPycfwfCZ28/mpuzwZKmj3oLRU4gKtZQqXbPBzu7TMnOZRaCENLN3GFjj
c7y1MSthxZBW+b3IvsgKU05dCQl4XALKlFWBCxEWeLjGwmep9zmsqYkXOH41
w+kiYqf8NpcBUdGrmhPCwLbeww6Lmv9CYGpw6aDxAczfkn+IcCmH1/J2Zgn6
+/HrHUzD+cQXEKw7tIXniBGOCdLT9amuAJ0Hqg/tbxlg1MmmMjtZCYlt5zjW
vgMuj0oR+WFUA+yToB3HrY+ZA0d5zhMvQW9ps96yqy5Wpsuuf8+shTT+R6H6
43Q8kTD180w7BnF6/55X1zXxe9+jSz/D6mD2yEz5aWd1rHr/pXepUD2ooDG5
5AwVHP9G5rvv43rIu3NW/2WlAjahTH1e6G2A9zfPN1xJl8E5VhYOJd6N8H4g
aDzj6Ta8Ifz5B+bmJuhLOagXHCGKa3pCWuY0X0Hdx5OVNvs4sMTGYYNnba9A
2ku4zyZmtTZQ1ajG26UZ2J7A5xLlt7UaV3lLZhJbIM3PZMYtng2SSn2UCymt
QIm8yczi4oYfw125ntWt0DReWqCeIAB5ehnp05NtYBPAadPMLg6b3NlEnkS8
hnP3ODuXg7aCa8qp6+dE3wA1tGbQvUEKtk2pRH83aoeVboODoV6yECKa8l9B
fztI1bpUi/bKQa/hctAZ4i2c9lham1aVhxt3X3p9y+wA476Uv7lPd8J8i8xk
nvY7uBioe0aiWwEOLcW4nW5/B+e4zGkTPxQhmpr/ZDHsPSitt9grLCvD8z2f
zli3voczrftpXeMq8NWal/pcqBOcbvtVGr2mwb4InyzicSdQi6nFUUw18Prn
wfHO5U5QfpB/PVtCHTKedElqGHyAYX8fxYEAdfjdq/vPfO8HON4bwHy4QwMq
NLlc8hW74JtE4445Pw0ITOxTcg7tAgp7erlwowbQJwuWhd92gV3xhK4pWRMW
DYPr3kh1w6GY+eIGa00ovseIj2J2w1LDsGfRTU3w/iVhv6uhG0YPi1B2v9eE
qcKq6Tz3Hsjm6b82skcLCrjiy4+/6IGzhz0ND3lpwemTxyKFuT8CNvY//PuO
FlBqlc3fOH6EXp20Ie5GLRgV/ysa9fQjxOkdsc+a1IJsv/avev99BIV+sZhB
Hjq4dGQ8nbPsBQWLfcWDinSQUvS6kPegF5zi/Qtf7qfD4OW9hsd/9sKtX6a/
0p3pkD5EJgvv7wOBaNvmJH86OOwa6n19qw/smz5LPL9KB9HUouzIyT5g6z3W
tS2NDj2zF7309D8BXbCwfjyXDqkMS725+E9gbGhUIltCB+ucHex5nz+Bv8Ch
kMlKOgisz711UuuHVpNFslkdHTqO1qUJRfZD8WxZ1PEmOiSUJZ98/aEf9Ko5
pTWb6WDK76oaSRmA7jaFs/2v6MB1TuO3buAAXAy12OnRSIeWpg1Nsy0DkM+l
5TdZS4crOz4k5UoMQpg7T61XBR2MQ7KPOp0fhCnRmU+bi+mwsceXIvRyEBYb
6jdgVr11akZzbXyfwTuo6EveHTpcjBOquuTyGZp+Sdx5HU+HPeOj0brPP0N0
vvEbnTA6/IEyy1n2IfiifOnu6jk6VKZHS+baDcFdA1KFuAMdgpZtx4/lD8EN
nOmca0QHHSv5YsHfQ9DsluFaQKPD883N+y9lDMNLb8U3+mtaQLjcEtCdHQap
b38mP49oQdrx0pmVHV9AqsGyX6pFC+wrLlcUEl/gfFvql3vxWvDBi2KxVeQr
hGtU8wRv1gKNuwmlK3u/QlR9adXyF01Ibl0S/3D6K5gUXNtkVa0JFnKvRmMr
voLwUJhzhacmvO5zD145NgJslmqfuFj+VeToGOqMHoGu9hMvKLc0IFZLx7iw
cAT+U1GuszijASZJHPyn1kfg253DgiPcGtBolJ/TmT0KsQ5JakmG6qCe9Oz7
ausoUJvNRLYJqkNm3wtVqblRqFketp+rV4Mgr9aKc7vHYJNRrZnpb1VQvf29
nb17DN7Pr625OtAgfUp5WXvzBCic7bUmfVYEZkrx/nSPSfBsHE1elZaFoYGK
uLrESRAOuncs/p4MmFHr302UTrL2u0yZScgAtbrzqBbbd1DQzph25pOGgbFF
r/a07+DgqtKoNbQVTPS0b/3XNgXiQe17dCSFYNtw5YSbygxcYosTv5vSsI/t
J5HWdngG2KwPHKOyNdaOcSiZql9gca3LBlvHwdpC1fTCtfoZ6LMsNLuZPF+7
72KIf9qRWZDO3qATOLABn9i+e2NH1By0fguJ2FUiiDtpQ0kZP+YhKDQ6ujFA
Dgt7nnjMafQThvrqggYD6fiGhkm1hd0vKJPNqwLJA/hTmnrdgsAauCRuWvn3
oDWOz4l4t1FiA9rk7mypwHpPxVJHr928x47KCzOoXh9d8VVbxr4PK5uRwgY3
TuLVaey368GJtiguFGB/m39rqyc2zeJbMkvgQnyx1JCpIU8syxkW2/EPF7Ly
lTlYuuyJ33fbl3QVcCEhqZb7qnJeWJVJYh/q4EJlthSfqnAvPJl3IW9Rkhu1
c35ACereGJPH9QMo3Ag1bwt5YOKNb/lbv1ulcSPI66rOcfLG+w1pv/4ibqS8
msLhG+uNsz+PMDg9uFH55pFX/MPe2EnYYmZrKTcytVlISLrqg7VCqyMza7jR
Fw51T8kMH8wzoiAq08yN3K3CX8YU++DKZ+xA/cSNak9oN6z0+WBRs8pk9XVu
NChmoyUkzMTvIyn0/WY8yCmiI9brBBPnT6a0ttjyILc1sS1+Z5j4ouW6k6kz
D8rTkT3iQjAxbXt/jCXBg1ysFmnzUUwcV3G99+htHnRL8Nub3hwmNp77E+I9
yoN0Tjhgt1EmDj6YqlT/gwflCP+rdW2KiYse0PqFVniQ+v2WypQFJha3ddlV
ycWLuifaCg+sM/GPiler7Kq8SNKyp26fBIFlBE/k2+vyIpNg3t1eOwhsf/6X
/SPEi0SS58JC5Qlct1253MKGF/G8lSF0NAh8MyrZ/04QL9oZ4J8ifYDArQOK
lB+RvOh8/9X8A+YE/ktv7NoXz4toA1bChw4T+PS3Zc2xe7yovGfXxUVHAt9F
10d08nlRu2Sa6Y0TBH5/R+HGtWJeJHhBniRwisD65scWVBt50dicuXauJ4F9
cpeyItt5UfJF6rUaJoFz/ku06u7hRWdq7j8u8ScwX0nds+BJXvQjfthOO4zA
IyJU7yYyCWUlvOB+eI3AYj54u5gYCekfvOP1KIHA5q0Ob89Kk5Dw6o3lxOsE
Lg+JV+HXIqHOcNH+hVQCT3dRBl33kJBAvrYvcZvA0rTa+LL9JHTtIzP33R0C
xw3PTx11IKEPbuF+CpkExnpx6U9dSegPr7iLXBaBl1LkTNfPkZD/dZ34tQcE
Vpyu+X3Yn4Rsf26ivHhIYGdj+0c54STkGMXjZJXL0vPenMPqFRJqdhLyaMtj
6bkSy2WaTEIjnyVCZQsIvGYpW5Fxh4RKxtTeH3tEYM1H1R5z2STUznsmK+Ax
gT022okZPiWhsqHancwnBM44Ntuc+i8JIfFNOWZPCdxZdjXwWy0J8Sw32nIV
EpiDT4aq30pCP/LUQ/NYvNujqiehk4TGF3gdqUUEZtbZxAz3k9DUWrJ2LItz
JWbommMkpHna2aadxf2+V8aiZ0hIJcnlzyKL+dt3pPaukNDE/hrfvyw2lq80
UmIjo/CGys3fWRx80fpnGDcZpS89W6tgcVHvdPY7QTI6ieZzPVk8qh5jLbuN
jFIzn5tuYrF4nNTGAHkyoilt3HWJVZ/56IuSFlUyipR+XPuF1U/knsOuknpk
pG8vp0Rl8UHnzEVdQzLaxunttZfVP9+l6ct25mTUV/AoXpulT88DPRE/ezIa
aKJP87H0y2iMyUt2IaPsm38W2/IJfHL8g27ROVb8L0ceD5b+SpzSbW/8ycjA
XujORA6BK0yrpjmukVHU63c1SazzjPDkDKfcJKMN5sdlK+4T2CTJls/wHhl1
UGhZr+4RuLtzVj28hIyaLjbEJLH8cvfn7ob0ajJKUmx9acryk5vINZuKV2RU
/cC76AfLb/MOcoE/P5HRyib9I6MsP74IYXJuGSMj62Tdz3qJBL6Y8TJNdZaM
xGPPvwiIIzDpy5Hqsxv5kLpYx3950QTe6ZHA9kWJD02Wve1avEDg2dhPKWt0
PnTuld7vRNZ8lD2mym0FPpQZfC1JiCCw4WzdfnsbPsSTQcQOn2X5MWA5rj2U
D+mx39gcw5pP+duG26Zi+FB63aa/4fYE6764XsiZzIc2FGiYnrImcMhfxfeG
OXwod2em5R8Ggf+57CxS2c6HpN4l+9npEbg9peV+7nZ+dPp+/UkBQZa/S4U1
Gnfyo6mVh2ocZAI79rg2fNHgR+w+JidnOQk8Kf53bKsJP1IoMZG5vcbE7Fnq
Sje8+VGab3f64Ukm1i+6U3YR86Ov4r0HcqpZ919vx9psKz/K9MvbZVTOxBZs
mw6c+MCP9nnU93wqZuKT1t6fYJwfPX5e1jiby8QmoTIRlzYLoHfZtlY115mY
uWPloYGyAApcPNbJ48bETR73ZxoDBdCIpVpEyEYm9vy1cKmVvAUl5zp1qPt6
49/KAkM0O0E0aWWje3j1HN7z5GnWrVtCqFTh76t/qjzwgqCpi32DMDKZo1zP
Wz2FxxJc7H05RRE9sN513cgNM+YuMMZ1xFDO49n0a2wu+MdJLr+yCHE0oRqf
2pJ+jPV/Ett4tUEC5Yh8ftRScwQLvqUmFc9JIpX8rI/CYbZ4W+wzKx2dbYjj
daH5QfPDOE15l4CQx3bkcrlfzFD7EH4taaD9M0UKzf91D3A9dRDrb2tIVvu4
A1G0z5mcfWCE+diz/V2jpJGClYNZlzxgqcgde45SZVDs0FHPVUldzC3vVG7d
IoPUIzs2kFrUsOpeiWcXjsuirJimLzoecth3SLDRlE0OIeHXZFdtEp77mWDH
SJNDbNd8wqKS/u47oNaczqBRkDTVhnA5Lwm1P3f/b7WDglyMf/0e+0oFbxXN
/k53eaQuUXL26G412Dt7qvsoNxU5PJUeVOzQgv0U8UPkbCriOrZCueilCwqX
4oIadHciBZkI7foqfVBy34Xl+3ciB6Plt8/J+8C99kx0GaGAUh35fh+/gABn
dZ9aEFFEBRNXwpa+G8BSwfqq2gtF1F0r7zagbwQn5Z9wpx9SQmyTsU5dzsaw
oHRT5/m8EmJu1U58G70fKnL+93U5VhnFJgtdDr5sAo7Gcmi3lAqazJBM6Dp/
ALZ6Xa1UrVNBe4Ysi1vtDoIIj2fJoSM0pFSj67xTmgE5RuEh80dpiOShGZco
xwDN8CSjm040xFM3cGuRygCL+eKePlca0ikKsqmkMeDKx+XfJz1pyMk/1m3X
bgb8yo4wDImkoRwOru2b7BnQv/tmV94TVnzimHxzHAPOBORkMIpoaFCydJ0r
iQErRf+6/yimIWH+6UbTFAYIyvatapTT0MSOFtKb2www49q+7WUdDZVHBhfU
5jCgpjvvVFcPDXHJVzF8axlgyldBC+yjIfG66JmH9QzoO9C2Ij5AQ1mynpe6
mxiwVDUd6/yFxc5V/ppvGEB7oF74fYqGJiu973/tZeXrNwhMmKGhERv9Jp4B
Vj5hG1CbpyHHfb79mkMMOH01oNN/mYbCOswHI8ZY+equpIv9oqFZ0ajWnG8M
iPpz+2TVHxqiLh/Mb51igAD9kcrxNRpKCpoKmp5hQKZX1fL6Og1Rbj3bS15g
wP8BEgWeFQ==
           "]]},
         Annotation[#, "Charting`Private`Tag$19969316#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4lc8XAHBbhZB9DwkVrj0RNSNUlEgSSkS02koS6V6y3yWkCCm77Nyr
0HKQsmZLEV/KkiS7kLL87u+v9/k87/vMnHPmvDOzzcXL2o2NhYUli5WF5f/P
xYHGOgVy/P5Tv4o+WL1sh65U8VtGPdfQJRJ73UPNdsAibS7iPSHIwsrTa067
DUT7BLj4TShou5xNgN73D+BnldfN3hOH5uS/G0pda4Fz9Oa8dWoCIoVlyy98
bIKjopNB/4xTkIztwtYzrI2QYhiR++/2U3Qpqi9Ld+I9CEyJxS13p6M8qdSH
BUF1EP4kN3BJKwudfkqd4qbUwIqVvtsCNQeNGWVTqNdfwjW2pmPzY89QlcvY
DdfXRTBGd9CbNS5AmfJd+Rb/3YGzbr+2TacWof1VGnY2Ho/g8uY3YYu3S5Dk
P4JcSmUWKJwPD7iRV4oEPC4UZojnwddXx7x+d5ehwxa97W+HCiBJROz89Q0M
pCDNobStvwhsPL/azWmVI9t5Bo2dUAJb6nMsfJyfI8SwlBupKYEmWe8DM9QX
6DmZvfa2fimE+evt8XpZgbRID4nk5FLAHSyqU2OV6NPM3zWDyVL4t6tRzkP0
JSp5IU1Q1iqD5yGxIhPGr1AJA7+cvVoG3n323Fd8XqPx9NWhkCdloKIjv/4z
9Q3K+izNc6q5DEYp4/MXWwC9b/Hsj5stg/Zr9r/nb1cj8X/mm7cK0UHtyWtP
ulAN2sPdw1ekQQdy87af1/JqUBN5FfWZ02FsKcxVy6gWSf241SPjQoeDCuP9
s921KBDZ9PT70SHT6phdqedbdJL82eNqFB1Yg8o6vTfUoQelyRYCSXQ4+0zU
QiOlDglumTDhfEaHV58C6qe13qGpRKW9oc/pIMH21ai48R36zvITSmrp4Kdm
/MrT+T3iPep+kv6BDl0OObpqS++R/QPDCwXddNCM2Fw6Sa1HCRyishXf6ECj
e6kUKjSget8mnukxOkx8/Zh19WUD6mjdWuo+QwczHj05VetG9GOr5YzmEh2y
9VKSfo01Io3gAz7nVunA4cYikk9sQoVzLJPs7Aw4F3v+3mXRZtRdEuijxMmA
N68buJQLm9EHv5FHXTwMkB5XDf1p3IKCxa6/ERdgQIBo7FpubwsSDRLauiLM
gO4DC/4XfT6g1lHCSrg4A3S87Od3cLai4WfBDdVSDIhLfu3xI7UVRYn3q5XI
MGCmfttY9u425NRpp3V6GwMsfoe5uLe0oRP3n6D67Qw4yX9jKk6zHZkKMPYt
KzIgVCknf+52O1Jzu5+ysIMBZYZfLlo3tKPieTaX6l0MGLTerFQm1IHuCbTo
OKowgP/SvmEBpw7EovLYvU2VAfuJXk998joQxMGKhBoDPB6kOXYsdCCxhcYX
SJ0BKfkfJTWNOlGir4+ksQYDmmo29MRQOtHB2w+9lDQZsNy958FMdyf6opjd
9ovpCi1O55xdH9FZySXldC0G+FF7lM8GfkTt2/yb9bWZ+Y/lLgh/+IhMCEcr
GEzPHbhV3SzThdR9NJqEdRhQ8tiMHOLdhWZ114pPM+35R8JWv7YLbdhUPBfN
tOqJcbkZoU/I5/bcnwymxwurfmW7fUKSLK7cuUzncpKfO774hDaOnrdOZNrd
9XSwMNdndOR75dANphXeqBxtdviMBJM6yo2YHhZfEQ0p+Iw4sgZKVpjxpF9v
GdRb+4wUuV5k5TDt3JpSMG3ZjX48DLMxZlpml8fN7LRuVBV03KOdmd9/d/cd
cJzvRn9JzrGWTCcN8PIKm/aga3U3bWqY9bDTH+huetiDLIrW9v2/XqLxRenB
Yz1IeGFj0x1mPT9N3fHQ2/sFCTw0vNzMrHe8maXeNPkLGtxWHc7DtHWmLHt2
/xdEipi8c4C5Pq321YlCwb1o9COvHY25fhRGjGtTZy9yCZjryGSur/mWc2rB
Cn0oPTDMoVSZAfV1rHVT9X0okssivHAnA6rVjacb+fqRVldO5R4FBtyJFqoi
OfcjegbZhIPZX4bfh0P3lPWjevezpg3M/qtMCpXMOjmAriT7ie6RZfbXhvem
pJSvyN7tmkuZBAN8nB/y75n6iqaVNWT3Mfs70ZE+uSj7DVlxy06BKANsK+5W
FPp8Q8dusv0qFGJAp4fCMSmRQbRdiaGiyssAzWQKfXHfIFpfn7Hy38yAmIbf
4p3ug+iOxMjzV1wMOLb93XBkxSAKUKQeUtvI7L8et1uLp4fQ/n+CLow1Orw1
zsnsSB9Gx52HUsym6KBBK/651DCMNhkOye+foENqzws1melhFMlnTlcZp4O/
R0PFZYMR1KhP6Jv9ztzvEn62sHeNoIj2T/d39dMhaVxlYfeGUQTuXTTcRAfO
3Tp7z6iMotuaB+Nq6+lwg2hIDDk+iqI8g9X2vaODlbAFV9vjUfQ0yEpAupoO
G/Z7br2o+wMNDWSnEMvp4B1bYpp0YQzZhfqSPqfSYaCvIrqaOobmXtzWGkim
wxGlmrZROtN7dZf6E+mg9LLDXpvlJ8rX7HzwLo4OfSNzHi2JP1GnME1TJ5y5
3+rtfrjWOI78OwYlIq7QQfpr5aiL6iTqTj83+FadDizzPomNxyfRf9VNb9tV
6DCyUdlc4+Yk8tQ4O9m1gw6FakmFqzWTyKJad7ZWlg777wT4Jp6aQp7f4IXO
Fjo4bTVgaw2ZRqIZLP/cJ8rARHOerpPL9MSTseEfZbDTNN8t+cM0KlocDT01
XAb+z6nndXhm0HOJW2nyvWWAB1brWU/NoMtXUi0P1ZdBB2GAljIxg54U3vGu
YZ5HdXuqfliuzyAF3tWbmUnM88voIWYXnEWOA2nhQQ/KIOnksblLe2ZRTt4Q
RYBcBi5Bb07uCZlFD2z5WatvlMFcS6p0p9gc6nMbtlc1KwPhq055m4znkcnx
0ulfP0pBeVPGe6tT8+hKfNfCr2/M8zN9dOjRlXmksOzrPPClFK72eEipxs8j
4s1LYknNpVBncpti9X0esY5QJi8XlYLv1keejyJ+ozsyniHOPqXwsbVTS6Vl
AaWZ2uWs/yqBsUuilr7fFpDCUfl2+eESWONwuPL69wIqvfYyaHdvCSgbDGZY
bl1Eda7GCzsbSiAkZ1rY13MRza94yZpmlIAWiWfpFf8SMlAY1NpjWwJxmgdf
Hjv5B7XIWEtJnSkG9T77Q/su/kER1sTn+FAxtIR6fFQJ/INkW5MLjbSKYWNP
/C/OtD/In/3cra5NxRB4Z1jq7QTTqQWgU1oE55tJt/eELiObDU1r8SuFwHoj
nlMpYRlZ6hizm30vhFSZ3HjhvGU0IFLY3/mhEHp82gpm25bR2uKqn3tqIViI
y/TnS/1FA1jvdvC+QtB1e7lPjv4XXb2TEr7tegF85Gtr5Hv/FzlFiv9etSsA
74qhk6s9f9END46q3P0FkLeZ27N37S/y1KsVvMBVALJldqnx5v9QfePNZL+U
fOBcX1jjHPqHCuXMz1hX5MGXRI3qWf5VRHvNmEupyYWkj/lb/BRXkRCJO2zz
41xw4Nvh9Fd/Fe0MZVyT889l7rdb19hcV1EX341BXUIufPPkNhQuX0Wfyj6f
/x6XA2MmIy907deQQrfXdbJ5NjwjOm166bGG3ORKAwNks+FyVa8tCllD9CMD
1ZPzWTCh3rFwKH8NsUCm7snkLJiRfKNtv7qG1i7YvPgwnAl/ZhKKA9PW0Xmt
9VJOuwyoVBFaXy9fR4tCCeuh2zMgwJ12LLRpHR2fKH5nNJUOK32hk5T5dfRu
7FqFS3A6kIYrRNrkWbBR9Glf38dp8I3kt0+AwIK3qX79utMlDYxkdNxO7GHB
t5k/Yr9iGrDZFzO6j7Bggt2BB1J5TyG0NevEN18WTDc4XMxn9gRGrrgGyhNZ
cJqfm3sVpIIp17aM81Es+FmFO0uIdipsNEmZG3vMgnd2bfN9JfAY3AftJVVy
WbAga6tpe2AK1N8RO+BRxoJ59qUn4aFkiKyMi519z4LvWb911c9IgjFbq0rt
DhZ80sHxgfrqIzD7zTt4o48FO/9NHnWwfgTc6lEaf6dZsIlNuRp9IgHImcQ2
NglWXC0cmiTQGQ/mOpcERbaz4hx/ucGwv/eBs8765A4CK958GRk3id+H9ycM
E/X3sGJqgQWPq0ochA4r9h0xYsX/xNrKr2rEwoHrW2TOHmHFoXIV4l6KMcDC
vuzsfZIVt/1bttnJR4M3cUMZIU6s2Fyvb8IqjQy35VtG4y8x5xPt9bRZjIS9
ZeW7cq6z4roadkbiYhj8MXpytTKIFSfn8NZz3AqB5x2Rxc0RrJgUal6kaUOE
G+euzfXHsuL9t/q5f5wigs7s6d0zyaz4tEkk+elpIsyRTP3Zslkxq9yq/lkn
Ing+FV9TqmLFqRpZh0bdiaCqwWakX8eKLc98qiq5TIRx+HX3SCsrZj/XdJfo
SYQLX99weQ+xYvEQO6zsRwRnGTeRSm42XF8YQSkPI8LxlFLVI6fZ8OmFRsXC
LCLwqyZ7ObqxYfXgWKHaZ0RofRla5uXFhjdFKfD8V0gE875TevF32TD25bKS
fU6EA5Jrxv35bLhN9zhl5D0z/kTz014rbPjsCfaSGz+JIBY/HHX/MTvuieKJ
pkqQQFylPPRPNjvm+K6+1CJFAsnacKJjCTt2f5VzZYsMCWRmdt3Y8ZYd2+g7
RD2WJ4HiUW/nl2Ps+FkAxferCgm0OVZ1h7U58Ps8BRNWRAJLX9ERrSYOfGmL
tvnKBRJYbR4bSPjIgTMHWkIKL5PAOr3yy8p/HNiip2XSxYMEtu1n2t5Pc+D4
PYzI3mskcFTNqHIQ2YB91qQl14JIcGVEPTbEeQPWL7S4uO0BCSJszPZ3Lm7A
8qTWBd16ZryMVkk21o3YhpDr2tZEgiIhmyXNzRuxRO7NZs9WEnzuPFsSK7sR
f8ikD9R+IoHCcV/544c34urc+wG1IySotXiysf3RRry96NVTbY5gsC1UGF7P
2Ih1NW8dOsgZDOM8eaBetBGL1hDOnuMJBoEWhv+92o04/8TVA6XCweBs3jR+
7NdG/PNo6LsqxWBYPbjQ+sFwE/5+rCqcYhYMMdkB+asHN2GOvIk6rWPBoLCR
JZJwfBP+1ryiMmwdDEffcRtR3TbhUxmD4y5ngiHJWI5+lLYJv3uw5D3oFQx6
+EhC89dNuMuNy2ghMRiu66c5NYZw4oEmDorl72Awf8r3+wiFE0foB77l+RsM
8ptuR7Y+4MQNGpJSn9eDob3LtvRjLifOk4sLpm4OATVvHvaBVk6cZIt8YreH
wFj2zew5SS4sbP1Dd+1kCJwRPjYpRefCXIpHie/qQkA78GVw6isu7CR2iUOh
JQS4h3aKbnvPhf9WsI3e+xgClcXsSOkLF95Z8j3h3lAIiB6pjNFY58LauSEW
BNa70B6soGN6hBsTNIX1O/BdMJn+G+A5zI1vFe/+2tNwF24djleumeDGjfUn
/O923IWiNEKv0CI3XjzT/FS39y6I2zjrV3Juxq4BifTyX3dhouLdErvaZsyg
CRD4t4TC/ZAY30f+m3HQUkjNqm0oDIkoedbx8uCWu3fne36GQrDh8XOSery4
pkrpCT9vOBw+mzq35wAvDjd0CUoTDQc+0q+7J4/yYhVHznlluXBIeRuWHePM
iy+JR6wraYdDhXnVr41RvNjghL8n2IXDjN12v/kvvHjHsuK4TXo4nL2xEN0S
yId/BPBe8FaLAMWEA9LjYXz45XDGUr9uBDPee4WbYvjw6WMjHkYoAgJWdrUf
yOTD3OpWyz8tI+DB3bMilS18mHFiXKfGOwJaYuufZG3dgnsP70qNKImAvUWP
GHdgCxYTK5CN3hkJJt2tq1MNW3D0vblfBuqRcIyF45BT5xb8QUHF4vvuSHC1
9vyCvm/BmmcfT8gYR8LBwG1E0gZ+nLBWE6DmGAnesosZRir82LNFUuT9vUio
u/Bk8q0fP979n9mYyHQkmK3oC94O5MfT/crTTb8joTWmS1eHxI+3CBo98/8b
CV8quUiZUfy4vf+945sNUTC12VcwLIUfj6QFdc9LRYF4yeE9B2v5ccTJ16Fb
DkXB1T+zpAZeAZzj8bnyaGIU7PVxFx0VFMCnf1aJ3H8cBZzjvfns4gJ4f6Gq
cWd6FGT1vf28X14AZ0o8xQaFUTDw5oFqua4A1v4jzVFZEwWWYfo9aU4COIMg
6OPxMwq0BIPVA0sF8Kua5hEOnWhgIS/UJT4XwFm24o8C9KKhlf2yw/OXAtim
JM9n3DAarixYh82+E8DniF/KK0yjIbNHoe9CrwBOG/OJ4z8VDaJPGsJt2AUx
UcjkWbl/NCyr8A8QTgpiNXv1MMGKaFh8LBms7SCI37BrurW8jIbfWxQV9J0E
8QWPmWfBEA1T8/qXTS4J4qqc/DsD76Nh6KXrokOQIJZLst3q8ikamo684IvM
EsRZ0myHE2ajIenKWTS0IIj7gsYf/lAiQ0L/xaEffwXxp12JmlLKZIi3vB42
uS6IO6Z7WI8QyEDTjmz+wyWEGTE6Dk+0yRDyr/TUFhkh7EiejZLCZLhC3uBt
eFAIC7etVbvbkcEwv+Dpw4dCeMbb8LJHOBn65PKfmCYL4fiujFC2KDIEPHyW
+vuJEJZcDRyOJ5PhRXB2ivUzIby2wz+oNIYMWnZPE/leCWF3bbHopiQy7NoQ
HxM+KIQ5S+sIxCIyiDoFkvxUhbGd6IZC7i4ylHfdIipqCmOlmxeVLD+Twcbc
/07XbmFs6TFvFdtDhrjdN25rIWHs6Vb0jq+fDLw8Xv5Tx4XxD/2fwVPfycBR
6eLtflMYP3bW6TZeIsOsoLmzba0w9jZejbUXp0DPVfn2y/XCmJrLshIqSYFq
5t2T2CKM+0xDxYqkKRATkC+b+1kYJ36o9lqWo4DGEM/X5XHme9bOFd9dFPAs
bXN8LCSCE6Q1dNn2UmDc8uTpkfMiuEy6KSzKngIjFGfba5tEMe/m8+lf45jf
j6vKa/CI4l0V1R3e8RRYOrQ8OckvikdPs8ewPKQAN3tc2CVJUdy6IFgt9Yg5
3623DGeCKF4srtxq9IQCQW5KQpYnRLG73oYDZvkUEN0/0abyRBQX6DeaOdRS
wGz6ptl3XTFMbDPm75iggLSmTDinoRh2aGptVJ2iwNS1uloVIzF8Ysl7f8Q0
BeIX+Q2vHRHDV1gEnPTmKDCw+kxt3UkM05X/yyEvUeAaz39CElFi+DTdJG2J
lQpJu/DA0T4xPKn4QGBahAoTrpzXGURx7CmoditzLxWmUk1eQ6g41or78pRh
QIXpL6RNzVHieNXYfOCtIRXmLJeTB++LY79aYurX/VRYMhiv48sVx52ZfFY8
xlRgE24RvdQujh/E/jlucIQKEnX3qrZuk8B/ilKcFh2ocFBBjC2iVgL/l3VR
S8CfCj9dDuUa1EvgN43e8l+ZpqTdPDbTLIHZDWz8Cm5R4aNMT5L9Jwms07bh
qGkgFZwlHmmrjkng9vMO4HWHCrf4pNw6eCVxJWetaW4oFQr+yDRI2Uviy7Ov
i/JjqCD4QYlWMi2JVe3efhLPocLatEZW029J7GJ98VQn0+OCBq9GliWx98rv
Q+RcKtTaWY6Lc0jhb0Q2/3/PqHB95ObBYHEpXL3Pd/unAip0/WtYO24khX8d
YWzzLKNCgvIVr/k4KSz0k+Py3tdUkI4sttLVlcbZ+GnWqQ4q5BUVvl3eK42r
eaXejDKt9ylf9zWSxuxjytdvdFLBRj5X2sRMGpeJujFiPzLzf/V07PgZaUxz
L0p594kK/2ZiSR4h0jiZVHtMqpcKvfa+JZmt0li+y8SfNESFRBV9fqELW7HX
izdNB+ao0CRptHs+VgYbJCqeTeWlwV7p2hj1z7L4BPf9tI9KNOBjT/c9FyKH
F1IPvxrbSwOZYFlDe6Vt2MCqmZRgQQMuxTPPreu34ToPXgd7Rxqo7ZMovuko
j8eeHOaSvUyDawOCb81ZtuO0KpXLu/1oMD1POWmWuB3bT+75T5REg0Pq75PM
CAo4Q+jsWE4k8z4+b/BvqVUBS+jm9XyLoYGnqlZvh5siTr8TLlmcQIN9U+e7
7LmUcEIcVQmn0sBUQdyCN10J25Wo6Vdm0GAnKdq/ds8OTNVyzKLm0kDZTR8U
e3fgk/PZPKaFNHB7czGU4bMTh4RdMtxfSgN42nV+VmQX/lz1QE+hnAa/c9eX
1F/swrKjBnnJFTRwVcznSrJQxm9Cx7ffe0mDWeX7umUzyji59/DX229oUJH5
b3AhUgUv1ZVrr1fTwMFkOzaQUcXiFmzCpm9pIOURUalWrYo7rj7robyjgQj3
1VKLUwQ8GOg0ElZPg0zjoIAZewIeF1ZxpTGtFUQzvn+GgCNfWX19yPSxmZJP
PecIuDuiuC2H6fDPC8uuVwlYWexbTCPTf9KJBwKCCThkUushTwMNeg3uf8zO
J+Db0znlMUxfvJGZYlZEwAfd9g4lMr1YVO42UULAfpxWPGlMC8r3LGk+J+Ck
Zi77UqaPcG6Vfl1NwPdavnR1MP2qK/v8x08E3F+xaivYSANzvgqCXw8BC++z
PSPJdM+hxkXxPgJe9zZ1kmf6d9WvyLPfCPhpyYSjFtOENI3Cn+MEfOwncb81
0696jfwokwQsbVas4fD/8YRPIPUZAj715Y6cC9PuETc6fBcIeGU/+7LP/8er
Dk8S+0PAr69WDd5iOuRvgmvVXwJ+HCjaEMw0v84zVcdVAlZ6KF4QxXSqR9XC
+joBa4/WUGOZ/h88HSVc
           "]], LineBox[CompressedData["
1:eJxN1gk0VdsbAPB7SdF7IXPGEsoQUqbQd029R0iDIpE5lVlJOvdeJFSSKXmi
8ISSOWWotqgMGTLlZp7yJ/MYSv7nrfX/3/POWmed9Vtnnb32+fb3fXvvcPA8
5sxCIpHm8fuf51Jv7Tup23EHGzkKJn7M3kBtD4Wu6jJ8YN5ve7TI8RBE4W9y
EGIEg4vgtJ/OajAS6NrKwW0QAXPmQYvCLMHIz/xpBysjBoKVvJoWLYKQfdHH
p+t37oO4Jve6elcgMhGYpP7QTwKZ9bLWMXogStIOy/qBpUDr4L2OQ5qBaOuU
YMxKRxqE/h3l30YKRKGPsq59V3kMA5TGBK7HdPTTXNN58U4mlF68IEE/RUc+
LHVm86NPoFzXJdSVn45Gi05rzOo/A9L/Llvn8R3TD3Nh231au/1TGrrw25sb
S1g+rHIxwo/QaEjKKTTg8tMCOLR7/AvvKRrqe2XmudBRCIOWgaEj+2gokV/Q
yZftOWjablyQ5aOhEx59lnMqxaDFbaNk952KuKozTb3tXsCgx+97d/ZQUZ2E
l97MnZeA3W42l3hPRTf8NdQ9y0ugvOSBOlceFVGaSQpTo6Xw1/aT3SWJVPQi
OJp/Qv8VvL+mmIX5UZFXl9Xmi96v4UjNn5ZGLlQkv19yfezhG7hv4eyjcoqK
RiK+zbvWI+C++0JOzIiKPvlYLcxjFTCqZSEyp0VFio9eexTxvoXQLR1lSUpU
dPvjjjGfp2+B/VbyxGYpKjok9a1ntqMSNKfuPZrnpKJ0czPLAo8qCJtnEzvO
RkVkamGLF9s7YB+RL4SfGHrVHlA9rfIe5lIseRLGMbSNpU83r/Y9lCaKas4N
YchPUf+Vh90HIFfSF4q7MbQ37LeCyTvVkNCrIXq2CUORRZ7yOVI1oO7X7qdR
i6GJvtbHbuU1MHPgsqRjFYYyNJISx0droce0zO2vEgxtcCbxZ9PrgI5mriYV
Ycg+2unuBYGPIP7rZlpfLoZEvymEjOnXw6UIQ5pQBoYCBKJ/ZXXWg/RM5sSm
NAx16C36u3o3wKtrHgNyDzEU8+C1+38eNoItp6YI+T6GZqp3jGaoNgF30eVn
ebEYMl244eBS3wQ3zu+1CI/CUIhMZvYc9gm6BzeK5d/CUKH2F9djNZ+AsXMw
9UcYhgaO/SZTyNsMc8kjGy7cwNBBumeK99NmUC32t3gSiCH3e6k2zYvNoNv8
wPcKDUNJ2a3Ce3VboGVDdYMDhqGVDvV7Mx0tMNmn6hHhj6ESFXa7TNlWsJUS
fvC3Hx7POww522utIC5Jr++4hKH9o1mLfA2twMHhX7PLF0NzelcrPoq3wbtd
wy4x3hjKTza6HezVBrtWFaIEvDDksbztpGZlG2T7S2gXeWDoW07ZeIZzO7w1
GNVVccNQFvvtFzYv26GiUL2J5yKGXBytg/g4PoNPsLsB+wUMSb2RN/l4+jM4
Z2xlbD2PoSGhnwLBzz7Dk6j+OkVXDKX51g9o/PoM+1Jkztmew5BdY9Kz6SMd
EL6yi5TigiFxWfcrGakdMFkUOzvnjKHu6zp6NvMdYHaW/Ogk7sTeLVv4DBkQ
Svb3rXPCkKVmb0ddPANcXq/1m+IWiMtNCxplQMxFJbt+Rwy1T9HcNQ58gWhq
n2cQ7jijIxrTt7/AaGx5nDLuY+kSrBk9X+CD9rLlpAOGuNenG84odUL6WRaT
l7gbrSoSeIM6IWBQlSUSd8TzKMe6lk7IkfyLzxu3MZe9YpBUFzwZSNpuh5v9
wt4Vdb8uUDfvrz6Nu/od+d1UdRd0jy7n/fM+VKIl8vG2bshu1gn+53uDgDSr
Mxe7wf56/HgEbpZ2Hyne192geNUkqRB3hZL+dC1nD0QX9P0xiJt2i7cs0K4H
Khp60kXw+Wt/HQpRL+yB5kflbra4V+H5kSnWXrBfy7d+irs0MUT4sUUvnMqN
V17H7b944qt1Zi/4Hf/w7AweLzVz6XyelV7IkPwZW4m7kO2DYWBSH7Qezn2d
gcfb2y6eW32qD26Nx8dI4euTYFM0uSTRD15vFL4/wX2y5HpJjnc/nC5IfFKH
r2fx13Gxm4n9sMqzluCMrzcf74nrTlW4g1dOb8LzocVdykyEfwD8xHOybfF8
2fsgomhJZwCs9e+O8uL5FFWzINTiMgAlDronmnCb7Xw/FF4yAF0Drjst3TFU
x3C+umQ9CLKLx9py8HyV3djY2xwyCI/vFhdE4fkcvk/NICdnEE40thX6+2Do
UORGLqf1QVj0S8g9hddDlX5menPaEAhqN6Sa4fWjHJk39r1mCHbT/rNseBVD
DxkvFcWnh8D1ifU23QA8Xu41JRe0huG8m6GHHl5/ivfH6lnbhmHsztvbnni9
Jn6TX1RlG4HJ6Cl5l5sY8orON0w8Nwqnf6+Sck/GUG9Xya2KO6PQn3k4tBLv
J4dl3jaNFI3ChEOEnHAKhmTKm632kcbgyodq0U94/+kannOvTxgDrcLUHoss
fP4aqvG/ar/BOPniliq8n4n2lY44KEyCbcuf79Y+Yog0751Qe3QSii1Se8Ma
MDS8Uc5Y+cokHJwoCeLF+2eOYmLO2ttJ4Im0s1BqwfsNLeBSwqkp+MSZ1OPP
wNBZMS2WxuBp0FcWZz/6FUPNe3ojkyZmYG6p8CsbiYr43M4+3aQ/D/E6N4sU
NakoZu+hcjOLZdjKLWn6N74/KXVZ/aHjugwxuqz07moqqg9xb5W/tgzz+9T4
BeuoaCMjbpw9dRnuWhZdimqkomu0IZGqiWUQ8DZWiOugIqePgZh6yAoEmU7O
949RkZpzuc72olWYKojoSeKioS8JyhWz3GuwHpTVLWKH76et2Vx+0mvAiF5q
XXKgodOcu86uaq7B7sd4V3Om4f1C7BeL4xrUlgtW3LtIQ/0em7X5itcgOcQp
W/UKDY0aDL9Us/oFPH6bJCciaWh55n7etdR12Kxx1vVkBQ2VyvOurxevQ7hC
o9CNKhoKcIk0C6lbh7ciVypefKChn10hkxHz65A8KMu5s4GGAodK+JskSRQn
3d9PbO+koZDGx8f7L5EoUhEGR4sWaGj4ouM1STqJUtG7PZhvmYYMOXb87XST
RPlqMsR/9QcNbTRImhtNJlE8g4eum7DQUXhpTPTsBxJluvnoETFuOrqdTm9i
2UambCDrPXRXoCPj/ed5+HeSKceLkhu+K9ER+7tjFrv2kCmR3m9e39hHRyFD
0l2HdcmUdcZ5lpwDdKTnyyVue5hMaVXWdz10kI5IrCt2XhZkym+Z9IIhXTrC
JOtH4s6TKawmI1vljOjoQGGxbKYvmdIeq67VakJHy7qP3EqpZIrW5AG3QHM6
etEcnvcxjEzhnD9pwaaPocv2PnM90WTKK6Ufdp8cPND+WWvVmQdkyv/PT3OB
hv4sGYTzuZXK+fIJe6QI/ZIpI6ygzKKr+Y7wNzR+/XAj4XN9bzi8BgnbiTvz
l25mYfpoUoHCYWvC3AoPPG2cCTeWhxR6ehI27jqlEXedsJ7wL/2ebML7E4yt
PX8SFowbuhmbzMq0kHxxyHIGYeHKULpNPmHxGdnLu6oIS5t42ZWPEt63YU1t
aN8Gpo9cEhhWqSMcdsLoYMsSG9O+mqlna4PZmTaYXg3wGNrMdJD2UXthjS1M
H8j96zkNcTHttjwbWLNlK9Mr8ty9eyx4mNbOfpYSH8/L9CyPsd3JSj6mhyPs
TvpsEmDaaPqK0Vc1QaYnHNl9n9OFmD4kJcgSVrmNaZ4Gmcj8aWGmRcPzzNXU
RJlOkNfk5j0nxnSdsK7qfLQ48T+ilVFKnyWY5mRNu2QfvJ1p8SAJbSuZHUxz
SJ95cayasKLOtrwrNpJM+/TyVBmTdjI9PR9hYZRA+A+lD4lGe6SYfjOv9eN7
I2EPBZXOZmdppnWmnNqsOGSYNpQSMt2SRnh34C3/SvVdTMs5ayLpTsLOb1xD
nnvvZhqltDnN8ssyvZC1/l3pJWFH6WyORFM5pmflYtUKZwiXpP8YWAyXZ/q0
wU6KlrgC0yLuYaWKFYT5N7sVmJ7aw3S6PjVgxoqwCjVSP/YMYbOZ/HaGPeHQ
z4srjm6El9PoegFBhDu1Ylszsgm7Xk5PMsolvJRb7DyRT5hHkvF97wvCh9nF
RF9XEH7VluHU2k7YmLNkjx+DMOOP2iWhLsILZePhtv2E96Qq54x9+9d4nbp+
EZP/Go/vOCjNEHYJu9x8afFf41WEJgouEw5eve9YtkqYe/8TBZs1wg/dyxbX
1wn/F4qAQXI=
           "]], LineBox[CompressedData["
1:eJxNz38s1HEYwPGLNc5G59AdHcKdxJ3D6iS/O7G7diZF08iPc+WPw/KzbMKt
OcWsnCQr43ZTUcgkJG6nVdrKcNy3a1FTbQl3t3Pnjplqy/PxbM+evf55b49H
Vn6iwAKHw/H+7r9rnJ94Ta1tjMD9H2Ur+Wo0VhC54yinySwyJgKXJHSqLLEG
sP0qqcGskoIXRuLz11R94Fjq0hedSgE2q4LvaFXT4HH2Q9mUdBFMWRj6mUVf
ATsK0zut2HpwQ2Dsy/gkE/hTc4BcR9gC18oqJi2c90TtmNS4eEPywBIsPsuJ
mDbuBReGtKdPiKzBMZqNsrxFG3BV2OlMl2O24OPd9/qvje0DC026yne29mCz
H2GekUQEh3U9aWtqcgDriNyMZIUj+HtdRnKB1X4wR1PK+cEigZf51oX9FWRw
LJVkIVY4g4kfvOt7NS5gSk1PAotFATf7hRAcLrmC37tEH9XfdkP/UBS3mHPu
YDtLaVGm6CDYrco9LMXbA4ynpQ4kvkX2D3fuKU3zBBfME8e5OC+wRl+XxGlG
jmO+aeEwqOBRfejm+kfkPHqQekpAA4evZitT8N7gk1Qyz1aK7FN584oi+BDY
VxAyRlMjC0Zzrvdf9gGPtSmzdU6HwWuPtteZL5D5tC58C88XrPOVsPq0yIOy
zW+GGj/w+RivqFA3OvhArnjIX47sZCN8xjvHAMvY5WXaFOSg8nq2JBU5Xts7
i2UiV88ZzHwhsklacaKsClkdKpnp6ELOKZbd53QjG7ufC5Z7kYme2HrgAPIp
a1fKKznyiLIje2YWmWs3yCjBkLG4CSP5M/La8O+aC1+RGe0BT38t7eqpo0vq
Vnb1HM9EMrXIF8XFU0WGXT15dQvJhCzauMsf3kAmHHlMT9tCbs0dNmxvI/8B
vY8UTQ==
           "]], LineBox[CompressedData["
1:eJxN1gk0VO0bAPAZUtQXsmctoSwhZQs9Y+v7CGlRJBrLSGVXku7MIKGSbMkn
Cgkle8rSIipLlmyZ7Fv+I7tBKM3/fuf8//d+95x77vmde+573vu8z/O873Zn
76MUDgKBwELvf55L/fXv5W4lHGjmKZr8OXcdOh6IXTFk+AErYFusxLEwIAm3
OIsxQsFNdCbAYDUURHq28PCbRMG8dciiOEcoBFg/7eJkxEGomk/Lok0IOJV8
esq+fQ+kdfnZ2j3BYCEyRf1pnAIK7Ir2cXowpOhH5PxE0qB9+G7XQd1g2DIt
GrfSlQHhj2ICOwjBEP4w5+oPjccwRGpO4ntMh1/WupTF29lQfuG8DP0kHfw4
GqxYzCdQaegW7i5MB2bJKZ0542dA+N/lSJnYPvMgH7beo3U6PaXB+U1vri8h
hbDKx4g8TKOBnGt40KWnRXBw18RXwZM0GHhl5b3QVQzDtsHhY3tpkCws6urP
9Rx0HdcvKArR4LjXgO28Rino8TuokX9Qga8229KX/AKGvf7Ys6OPCg0yPkaz
t18CcqvVWuYDFa4H6mh7V5ZBZdl9bb4CKpBaCSrTzHL4e9uJ3rJkKrwIjRWe
NH4FH66q5iABVPDpsdt4wfc1HK77y9bMjQrK+2TZ4w/ewD0bip/GSSqMRX1n
uTe+Bf47L5SkzKjw2c9ugYVUAVPPRmJejwqqD197lQi+g/DNXRUpalS49Wn7
uN/Td8B9M3VyoxwVDsp975vrqgbd6bsPWbxUyLS2si3yqoEIFpfUMS4qEKnF
bT5c74F7TLkYfiHwqjOodkbjA8yn2QokTSCwlWPAsKD+A5QnS+rOjyAQoGr8
yov8EYjV9IXSXgT2RGwqmrpdC0n9OpJnWhCILvFWzpOrA+2AzgCdegQmB9of
e1TWwez+S7IuNQhk6aQkTzDroc+ywuPvMgTWUQjCufQGoL+dvZJSgoBTrOud
8yKfQPr3jYyBfAQkv6uEjRs3wsUoU5pYFgJBIrG/c7obQX42e3JDBgJdRouB
7r5N8Oqq15DSAwTi7r/2/M+DZnDk1ZUg3kNgtnY7M0uzBfhLLj0riEfAcuG6
s1tjC1w/t8cmMgaBMIXs3HnkM/QOr5cqvIlAsf5X96N1n4GxYzj9ZwQCQ0c3
KRQLtsJ86ti689cROED3TvN92gqapYE2T4IR8Lyb7tC62AqGrff9L9MQSMlt
F99j2AZt62qbnBEEVrq07852tcHUgKZXVCACZRrc5GzFdnCUE7//KACN522G
kuPVdpCWpTd2XURgHzNnUaipHXh4Aut2+iMwb3Sl6pN0B7zfOeoW54tAYarZ
rVCfDti5qhIj4oOA1/LWE7rVHZAbKKNf4oXA97yKiSxKJ7wzYRpqeCCQw33r
hcPLTqgq1m4RuICAm4t9iBDPF/AL9TThPo+A3Btli0+nvgAlawtjyzkERsR+
iYQ++wJPYgYbVN0RyPBvHNL5/QX2pimcdTyLALk55dnM4S6IXNlJSHNDQFrR
83JWehdMlcTPzVMQ6L1mYOTA6gKrM8SHJ1An92/eLGTKgHBioH+DKwK2uv1d
DYkMcHu9NmiJWiQhPyOEyYC4C2rkQRcEOqdpnjr7v0IsdcA7BHWC2WGdmVtf
gRlfmaCO+mimDGdW31f4qL9sO+WMAD97pum0WjdknuGweIm62a4qSTCkG4KG
NTmiUUc9j3FpaOuGPNm/hXxRm/M5qYbI9cCToZRtZNTc5/esaAf0gLb1YO0p
1LXvie+na3ugl7lc8M/7cJm26MdbeyG31SD0n+9NgjLsTl/oBadriRNRqDk6
/eQEX/eC6hWLlGLUVWrGM/W8fRBbNPDnMGraTcGKYHIfVDX1ZUqg89f/NhKm
XdwHrQ8rPRxRr8Lzw9Oc/eC0Vmj/FHV5cpj4Y5t+OJmfqM5GHbh4/Jt9dj8E
HPv47DQaLy1r+UKBlX7Ikv0VX426mOujaXDKALQfyn+dhcbbl5zIrz09ADcn
EuPk0PVJciiZWpIZBJ83Kj+eoD5Rdq0sz3cQThUlP2lA17P024TUjeRBWBVY
S6Kg6y0kePyaaw3q0JVTG9B8aPOUs5IQHoIA6bxcRzRf9tyPKlkyGAJ74ztM
QTSfYuoWxNrchqDM2fB4C2qrHR9GIsuGoGfIfYetJwINDMqVJfthUFw82pGH
5qvi+ub+1rBheHyntCgGzefIvVomeXnDcLy5ozjQD4GD0ev5XNnDsBiQlH8S
rYca4+zM1owRENVvSrdC60c9umD8R90I7KL9Z9n0CgIPGC9VpWdGwP2J/VbD
IDRennVl5/VG4ZyHqZcRWn+q98YbOTtGYfz2u1veaL0mf1de1OQag6nYaWW3
Gwj4xBaaJp9lwqk/auQ8UxHo7ym7WXWbCYPZh8Kr0X5ySOFdy1gJEyado5TE
0xBQqGy120sYh8sfayU/o/2nZ3TeszFpHPSK0/tsctD562gm/q7/DhPEC5tr
0H4mOVA+5qwyBY5tf71f+4QAgeWbVH9kCkpt0vsjmhAYXa9krn55Cg5MloUI
ov0zTzU5b+3dFAhEk23U2tB+Qwu6mHRyGj7zpvQFMhA4I6XH0Rw6A8bq0txH
viHQurs/OmVyFuaXir9xEagg5HHm6QZjFiQa3ChR1aVC3J6DlVY2y7CFX9by
Ebo/qfXY/Wngvgxxhpz03loqNIZ5titfXQbWXi1h0QYqrGckTHCnL8Md25KL
Mc1UuEobkaiZXAYRX3OVhC4quH4KRrTDViDEcoo1OE4FLUqlwbaSVZguiupL
4aPB1yT1qjn+NWCH5PRKkNH9tD2XL0B+DRixS+1LzjQ4xbvzzKruGux6jHY1
Cg3tF1K/OVzWoL5StOruBRoMem3UFypdg9Qw11zNyzRgmoy+1LL7DQIBG2Qn
o2mwPHuv4Go6GzbqnHE/UUWDcmVBNruUDZEqzWLXa2gQ5BZtFdbAhncSl6te
fKTBr56wqSgWG1KHFXl3NNEgeKRMuEWWQHI1/OP4tm4ahDU/PjZ4kUCSizI5
UrJAg9ELLldl6QRSVf+2UKFlGpjybH/keoNA+mYxInzlJw3Wm6TMM1MJJO/Q
kWsWHHSILI+LnftIIM20HjksxU+HW5n0Fo6tRNI6otEDTxU6mO87JyC8g0g6
VpLa9EONDtzvj9rs3E0kRfu+eX19Lx3CRuR7DhkSSWzGOY68/XQw8ueTdjxE
JLWrG7sfPEAHAucK2ceGSNqUTS8aMaQDIts4lnCOSOK0GNuiZEaH/cWlitn+
RFJnvLZeuwUdlg0fepRTiSS9qf0ewdZ0eNEaWfApgkjiZZ2w4TJG4JKT33xf
LJH0Su0n+bOzF+ybs9ecvU8k/f/8NB9sGsiRhbuQX61SqBC3V5rYb4UK3Crq
HIa673F/fztx7VAz7rMDb3h8hnGTpSnC5Rs5MB9JKVI5ZI+bX+W+twMFd3Nl
WLG3N27znpM6CddwG4n/Nu7Lxb0vydze+xdu0YSRG/GpnJjFlEvDlrNwi1eH
0x0KcUvPKl7aWYNb3sKHXMnEvXfdmtbI3nWYD18UGdVowB1x3OxA2xIXZn/d
9DP1odyYTWZWg7xGNmIO0T/iJK6zGfP+/L+f097yYfZYnguu27wF84oyf/9u
GwHM+rnP0hITBTHPCZiTT1QLYR6NIp/w2yCC2Wzmstk3LVHMky7c/s/pYpgP
yolyRFRvxSzQpBBdOCOOWTKywFpLSxJzkrIuv+BZKcwN4oaarFhp/H8kq2PU
vshg5uXMuOgUug2zdIiMvp3Cdsw88qdfHK3FrWqwteCygyxmv36BGnPCDswz
rCgbsyTcf6p9TDbbLYf5DUvv549m3F4qGt2tFHnMBtOuHXY8CphN5cQsN2fg
3hV8M7BaeydmJYruW/lu3JQ37mHPfXdhfpvW4TonrIh5IYf9Q+0lbhf5XJ5k
SyXMc0rxWsWzuMsyfw4tRipjPmWyg6QnrYJZwjOiXLUKt/BGjyLLk7sxZxpT
g2btcGtQo43jT+O2mi3sZDjhDv+yuOLigXs5g24UFIK7Wy++PSsXt/ulzBSz
fNxL+aWUyULcArKMH3te4D7ELSX5ugr3q44s1/ZO3Oa8ZbsDGLgZf9YvifXg
XqiYiHQcxL07XT1v/Pu/xus2DIia+td4QsdAbRa3W8Sl1ouL/xqvKjxZdBl3
6Oo9l4pV3Pz7nqg4rOF+4FmxyGbj/i+7xvHj
           "]], LineBox[CompressedData["
1:eJwV1nc81d8bAHCrQsjeWaHCtTOiniNUlJEQyohoWiXJ6N4r+46QIkS2bO5V
RmWkzGwRX2QkZAsp43d/f31e79fn8zqf5zznOec5ks6eFq4MdHR0WfR0dP9/
ro80N0gT4k5e+lX0xby6E3pTBB/qDdyFmzjGhucqnYD4OpwFB4LBxNzDc0Wt
A/iHuFg4DYhwSMLSX+vHF/A1z+tnHIiFFakfuiJ32+AqpTVvlxQPuNBsqbWe
FjjPPx/0Tz8ZxKzXDl6hb4Zk3fDcf4Gv4GbkUJbG3GfgWhCI3exPhzyRlOcF
QQ0QlpobsKGaBZdfkRZYiXWwZa7tukbKgWm9bCLpXjXcZWgxXZ1+DVXO0/dd
3hfBNMVOa1m/ADKlevNN/nsEDq6/JBdTiuBklbKNpfsLuLX/Q+h6YAkI/8NI
JFdmgfS1MP/7eaXA5X69MEMwD0bfmXr+7i+DsyaDnR/HCyCRT+DavT1UkBZl
kpUcLgJLj1GbFdVysF6lkhkxJXCgMcfE2+kNANVMYrKuBFrEvU4tkd7CGwJj
faB2KYT6aWl6VleAKu45lpBUCqiLTmFhuhL6lv7u6MyXwr+jzRLu/NVQ8lYU
I6daBm+CY/jm9N9BCRVVL98pA68hW9bb3u9hNn17PDi1DOTVpXZnUj5A1ldR
tkutZTBFnF290VYDn9s8hmOXy6Dzru3v1cBaEPxnvP8gDwUUU997UHjqQJN1
gKNImQKEVsmZu3l10ELYhiFjCkxvhLqo6tWDyM+HA2LOFDgtPTu83F8PAWA5
MOxLgUxzU5tSj49gRfjqfieSAvRBZd1eexrgWWmSCVciBRxe85soJzcA94E5
A+bXFHjX59+4qPoJFhJkj4e8oYAQw6hecfMn+EE3U1NSTwFfRf13Hk6fgf28
mxXlCwV67XI0FDc+g+0z3esF/RRQCd9fOk9qhHgmfvGK7xQgUzzlC6WboNGn
hW1xmgJzoz1Zd6qboKv9YKnbEgWM2LQkFCya4edBsyWVDQpkayUn/ppuBmX8
Ke+r2xRgcqXjy8e2QOEK3TwjIxWuxlx7cou/FfpLArxlmanw4X0Ti1xhK3zx
nXzRy0YF0VmFkBn9NsAL3PsgyEUFf/6YndzBNuAP4jm4xUuF/lNrfje8v0D7
FGYrTJAK6p62q4eZ22HiNb6pVoQKsUnv3X+mtEOk4LBiiRgVlholp7OPdYBj
t43qZUkqmPwOdXZr64CLT1Oh8RAVrDjvL8TS9pUhF/XEpgwVQmRz8lcCO0HR
9Wny2mEqlOl+u2HR1AnFqwzOtUepMGaxX7aMpwuecLWp28tTgfPmiQkuxy6g
k3/p1qFAhZNYz1feeV1QE1uzJaRIBfdnafZda10gsNb8FpSokJzfI6yi1w0J
Pt7C+spUaKnbMxBN7IbTgc89ZVWosNmv+Wypvxu+yWR3/KK5QpXZKedoDzgI
b8ilq1LBlzQg5xDQA52Sfq3aarT5T+eu8X7pAQPM+QoqzSunHta2ivWCkrdy
C686FUpeGhGCvXphWWOn+DLNHn+ErLXre2HPvuKVKJoVLs5KLPH0gXfgyp8M
mmcLq35lu/aBMJ0Lay7NucyEN/Zv+2Dv1DWLBJrdXC7jeVm+wrkfleP3aZb+
IH++1e4rcCd2levRPCG4xR9c8BWYskZKtmjxpN9rG9Pa+QoyLG+zcmh2ak8u
WDTrh5/PQy31aRY76v4gO60fqoIuuHfS5vff4xOn7Ff74S/OKcaM5sQRdnZe
wwG42/DAso6WDxvtkf6W5wNgUrRz4v/54o8rSsdPDwDv2t6WR7R89i08ctc6
/g24nuveaqXlO87ITGuR8A3GJGvD2Gi2yBRnzB7+Brjw+UenaOvTblubwIMf
hKkedhsybf2I1GiXlu5BcPZf6cqkra/xgauKeOkhSA8ItSuVo0JjA33DQuMQ
RLCYhBUeoUKtkv5iM8cwqPbmVGpKU+FRFE8VzmkYKBkEAyZafen+mAjRLBuG
RjcHwyZa/VUmhghnWY3A7SRffk1xWn3t+WyISx4FW9e7zmVCVPB2es6puTAK
i3LK4ido9Z1gT5lfF/8O5qziCzX8VLCueFxR6P0dTB8w/CrkoUK3u7SpCN8Y
HJKlyiuwU0EliUhZPzEGu7tL5n77qRDd9Fuw220MHglNvnnHQgXTQ58mIirG
wF+GdEZxL63+Blwfrl8eh5P/uJ2pOxT4qJ+T2ZU+ARecxpONFiigTC6e2Wia
gH2641In5yiQMvBWUWxxAiI4jCnysxTwc2+quKUzCc3amKHlH7TzLn6mjbF3
EsI7+54eHaZA4qz82rE9U1Dj1ktGLRRgPqZ+/Ir8FASqnI6tb6TAfawuNvjC
FER64BVPfKKAOa8JS8fLKXgVZM4lWkuBPSc9Dt7Q+AnjI9nJ2HIKeMWUGCZe
nwabEB/c1xQKjAxVRNWSpmHlbaDqSBIFzsnWdUxRaD6usTGcQAHZ6i5bNboZ
yFfpfvYplgJDkyvubQkz0M1LVlEPo523Wsee7zTPgl/XmFD4bQqIjlZOOSvM
Q3/61bGPShSgW/VOaL4wD//VtnzslKfA5F45Y+UH8+Ch7DDfe5gChYqJhdt1
82BSq7FcL06Bk4/8fRIuLYDH95q36gco4HhQh6E9eBH4M+j+uc2VgYHKKkU9
l+a51OmJn2VwxDDfNenLIhStT4VcmigDvzeka+psS/BG6GGa1GAZoJHtRvpL
S3DrdorZmcYy6MKMkJPnliC18JFXHa0fNWhW/TTbXQJp9u0HmYm0/qX3HDFy
L4P9SFpY0LMySLQyXbmpuQw5eeNELkIZOAd9sNIMXoZn1pz0tffLYKUtRbRb
YAWGXCdsFYzKgPeOY94+/VUwuFC6+OtnKcjty/hsfmkVbsf1rv36Tuuf6VPj
L26vgvSmj9PIt1K4M+AuohC3CtgHNwUSW0uhwSCQaP5jFegnifO3ikrB5+AL
jxfhv+GRmEewk3cp9LR3q8q3rUGaoU3O7q8SmL7Jb+bzfQ2kz0t1Sk2UwA6T
3e33v9eg9G510LHBEpDTGcswO7gODS76a0eaSiA4Z5HXx2MdVrc8xQ0zSmh9
nW3jHecG6EiPqWpal0CsyulqU6s/0CZmISJypRiUhmzPnLjxB8ItsG/QmWJo
C3HvkQ/4A+LtSYV6qsWwdyDuF3PaH/BjvPqwd18xBDyaEPk4R3NKQY16aRFc
a8UFaoZsguWelp24rUKgvx/HLBu/CWbq+oxGPwohRSw3jjdvE0b4Coe7vxTC
gHdHwXLHJuysb/u6pRSCiaDYcL7IXxhBWoH4E4Wg4Vp9QoLyF+48Sg6TvFcA
PRwdzRyf/4JjhODvbZsC8KoYt9oe+Av33Zmqck8WQN5+Vo/Bnb/goVXPfZ2l
AMTLbFLijP9BY/ODJN/kfGDeXdthHv8HhRLGVywq8uBbgnLtMuc2kN9TV5Lr
ciGxJ/+Ar8w28OBYQ/e/zAU7jsOOf7W34UgI9a6EXy7tvD24w+CyDb0c98c0
MLnw3YNVl7d8G/rKvl77EUu75xlMvtWw3QHpfs97BONseI113FftvgOuEqUB
/uLZcKtq0BqCd4BybqR2fjUL5pS61s7k7wBdTaaGVVIWLAl/ULPd3oGd65Zv
v0xkwp+l+OKAtF24prpbymyTAZXyPLu75buwzhO/G3IoA/zdyKYhLbtwYa74
k95COmwNhcwTV3fh0/TdCmd8OuAmKvg6pOiQXtRlH5+XafAd53uCC0OHJBVG
R484p4GemLrrRU06FEjbiMMyacBgW0ztP0eHMDannonkvYKQ9qyL333oEEXn
bDGHUSpM3nYJkMLSoTRfV7eqmhQwZJHMuBZJh15XuNEFq6XAXoPklemXdOhI
r6TPO66X4DZmKyyfS4e46dsNOwOSofGRwCn3MjrEdiI9EY0nQURlbMzyZzr0
xOKji3ZGIkxbm1eqddEhKzv7Z0rbL8DoN/vY/SE65PQ3acrO4gWwKkUq/12k
QwaW5YqUuXggZGI7GIToUS1vSCJXdxwYq9/k5jtEj3L8JMZC/z4F5gYLq8MY
erT/Fui3CD6Fzxd1E7Q16RGpwITNRT4WQiZkhs7p0aN/Ah3ld5Rj4NS9A2IO
5+hRiESFoKdMNNAxbjp5WdGjjn+blkc4yPAhdjwj2JEeGWsNzZmnESBQqm0q
7ibtf/yDHpbrEXC8rPxozj161FDHSE1YD4U/eql3KoPoUVIOeyPTw2B40xVR
3BpOj3AhxkUqlli4f/XuynAMPTr5cJj15yUsqC9fPraURI8uG0QQXl3GwgrO
0I8hmx7RS2xrOzhiweOV4I5sFT1KUc46M+WGBQVlBj3tBnpkdqWvquQWFmZr
fj0+106PGK+2PMZ6YOH66AcWr3F6JBhsg+R8seAk5spXycqAGgvDieWhWLiQ
XKpw7jIDurzWLFOYhQVOhSRPe1cGpISP4al/jYX26pAyT08GtC9Smu2/QiwY
D13SinvMgJAPi7n4GyycEt7RH85nQB0aF4iTn2nxJxhf9txiQA4XGUvuz2BB
IG4i8ulLRjQQyRZFEsKBoHx5yJ9sRsT0Q2mjTQQHwvVhWPsSRuT2Luf2ATEc
iC0dvX/4IyOy1LaLfCmFA5nzXk7V04zotT/RZ1QeB2pM2xoTakzoc560AT3g
wMyHf1K1hQndPKBmvHUdB+b7p0fie5hQ5khbcOEtHFikV37b+o8JmQy0zTu7
48C680rH50UmFKdJjRi8iwN7hYwqO749yHtHVHgnCAe3J5Vigp32IO1CkxuS
z3AQbml0snt9D5LCta9pNNLipbYLM9DvRZaYXJeOFhwU8VhuqOzfi4RyH7R6
tOPga7dDSYz4XvQlkzJS34cD6Qs+UhfO7kW1uU/96ydxUG+SurfzxV50qOjd
KzUmPFgXSk/sZuxFGioPz5xmxsMsW16NUtFexF+HcbjKhgeuNqrfk/q9KP/i
nVOlvHhwMm6ZNf21F82cD/lUJYOH7dNr7V9096EfplVhRCM8RGf752+f3oeY
8uYaVE3xIL2XLgJzYR/63rolP2GBh/OfWPVIrvvQpYyxWecreEjUl6CcJ+9D
n55teI154kELnYtvHd2Hel1Z9NYS8HBPO82xOZgZjbQwEc1+48H4Fcfvc0Rm
FK4d8JHtLx6k9gVGtD9jRk3KwiJfd/HQ2Wtd2pPLjPIkYvGk/cGg6MXGONLO
jBKtwTvmUDBMZz/IXhFmQbwWPzV2rILhCq/pvAiFBbHInMd+aggGtYBqfMo7
FuQocJNJui0YWMeP8Et+ZkF/KximnvQEQ2UxI8h+Y0FHSn7EPxkPBv5zldHK
uyxILTfYBEP/GDrx0uqG51gRRoVXuws9BoPFv/4eE6zoYfGx0YGmx/DwbJxc
3Rwram686Pe46zEUpWEGedZZ0fqV1lcag49B0NJJu5J5P3LxT6CU/3oMcxWf
NhgV9yMqmQvDeSAEngZH+7zw24+CNoLrtq1DYJxP1qOBnQ21PX68OjATAnjd
C1eFtdhRXZVsKid7GJx1SFnRPMWOwnSdg9L4w4AD9+ux1Xl2JG/PvConEQbJ
H0Ozo53Y0U3B8F1ZtTCoMK76tTeSHelc9POosQmDJZtDvqvf2NHhTZlZy/Qw
cLi/FtUWwIF++rNf91IMB5n4U6KzoRyoeiJjY1gjnBbvk8J90Rzosumkux6E
g//W0c5TmRyIVcl8c8YsHJ49duCrbONA1Iuz6nVe4dAW05iadfAAGjx7NCW8
JByOF72gPqo5gAQECsSjjkSAQX/79kLTART1ZOWXjlIEmNIxnXHsPoC+SMub
/DgWAS4WHt/gxwGk4vByTkw/Ak4HSGJxezhR/E6dv6J9BHiJr2foyXMijzZh
vs9PIqDheur8R19OdOw/o2m+xQgw2tLmDgzgRIvDcostvyOgPbpXQx3HiQ5w
6732+xsB3ypZcJmRnKhz+LP9hz2RsLDfhzs0mRNNpgX1r4pEgmDJWc3T9Zwo
3Op9yIEzkXDnzzKuiZ0L5bh/rTyfEAnHvd34p7i50OWZKr6nLyOBeXYwn1GQ
C50sVNDvTo+ErKGPX09KcaFMoVdIpzASRj48UyjX4EJqf0SZKusiwSxUeyDN
kQtlYLi93WciQZUbrxRQyoXe1bVOMqlHAR1hrSHhDRfKshZ84a8VBe2Mt+ze
VHMhy5I871ndKLi9ZhG6/IkLXcV+K68wjILMAemh64NcKG3aO5bzUhTwpzaF
WTJyIyyPwetyvyjYlOccwVhxI0VbpVDuiihYfymMV7PjRh8YVVzbqqPg9wEZ
aW1HbnTdfek1viYKFla1bxnc5EZVOfmPRj5HwXi1y7pdEDeSSLQ+6NwXBS3n
3nJEZHGjLFGGs/HLUZB42wHG17jRUNDs85+yBIgfvjH+8y836juaoCIiR4A4
s3uh87vcqGtxgP4chgBktYjWPyw8iBqtbpeqRoDgf6WXDojxIHvCcqQIIsBt
wh4v3dM8iLdjp9bNhgC6+QWvnj/nQUteurfcwwgwJJGfapjEg+J6M0IYIgng
//x1yu9UHiS8HTARRyDAW3x2ssVrHrRz2C+oNJoAqjavEjje8SA3NYGolkQC
HN0TFx02xoOYSxsw2CIC8DsG4HwVeJEN/55C1l4ClPc+xMqo8CLZBzdkzb4S
wNLY71HvMV5k5r5qHjNAgNhj9wNVgRd5uBZ94hgmADubp9/CBV70U3sGv/CD
AEyVzl5uD3jRSyf1fv0NAixzGztZ1/MiL/3tGFtBIgzckeq81ciLSLl0WyHC
RKil3T2xbbxoyDBEoEiUCNH++eK5X3lRwpdaz00JIiiPs41uztLe03dv+Rwl
gkdph/1LHj4UL6qswXCcCLNmVpcnr/GhMtGW0EhbIkwSnazv7uNH7PuvpY/G
0r6fVZBSZuNHRytqu7ziiLBxZnN+npMfTV1mjKZ7TgRWxtjQm8L8qH2Nu1bk
Be1/Dz9SnTD8aL248qBeKhGCXGV5zC7yIzetPaeM8onAf3KuQz6VHxVoNxvZ
1RPBaPGB0Q8NAYTt0OfsmiOCqIpYGLOuALJraW9WWCDCwt2Genk9AXRxw+tk
+CIR4tY5de+eE0C36bgctVaIMLL9WnHXUQBR5P7LIWwQ4S7bfzxCkQLoMsUg
bYOeBIlH0cj5IQE0L/OMa5GPBHMuzPeoWEHkwa34MPM4CRZSDN7XhAgi1dhv
r6g6JFj8htvXGimItvWNRz7qkmDFbDNp7Kkg8q3HpoyeJMGGzmwDR64g6s7k
MGfTJwEDbxv/zU5B9CzmzwWdcyQQanhSdVBSCP0pSnZctyPBaWkBhvB6IfRf
1g1VLj8SzDifydVpFEIfmr2kRmkmpj0wXWoVQow6lr4FD0nQIzaQaNsnhNQ7
9pw3DCCBk9ALNYVpIdR5za7G8xEJHnKIuHaxC6NK5nrD3BASFPwRaxKxFUa3
lt8X5UeTgPuLLLlkURgp2HzsE8whwc6iclbLb2HkbHHjUjfNs9w67yY3hZHX
1u8zhFwS1NuYzQoyiaDvWAa/f69JcG/ywWm8oAiqPeFzqK+ABL3/mnYu6Img
X+eokh5lJIiXu+25GiuCeGaYbh1/TwLRiGJzDQ1RlI1eZV3qIkFeUeHHzeOi
qJZd5MMUzVp9+RrvQRQxTsvdu99NAkupXFEDI1FUxu9Kjemhzf/dq+kLV0QR
2a0o+VMfCf4txeDcg0VREq7eVGSQBIO2PiWZ7aJIqtfADzdOggR5bU6e6weR
59sPLadWSNAirHdsNUYM6STIOKSwk+G4aH200ldxdJH1aVqPLBk4GNN9rgZL
oLWUs++mj5NBDC+uaysriXTMW3HxJmRgkbnyxqJREjW4s9vZ2pNB8YRQ8QN7
KTSdepZF/BYZ7o5wfzSmO4TSquRvHfMlw+Iq0coo4RCyndf8jx9HhjNKnxON
MNIog8dhOieCdh9f1fm30S6NhDTyBr5Hk8FDQXWwy1UGpT8KEy6OJ8OJhWu9
tiyyKD6WJItSyGAoLWjCni6LbEoUtSszyHAEF+VXr3kYkVTts0i5ZJBz1a6R
GTyMrFaz2QwLyeD64UYI1fsICg69qXuylAw1r3qvLfMdRV+rnmlJl5Phd+7u
htLbo0h8SicvqYIMLjL5LIkmcuhDyOyhJ9VkWJZ7qlG2JIeSBs+OBn4gQ0Xm
v7G1CHm00VCutltLBjuDQ0hHTAEJmjDwGn4kg4h7eKVirQLquvN6gPiJDHys
d0pNLmHQWIDjZGgjGTL1g/yXbDFollfehUyzahBZ/+kVDIp4Zz76nGbTpZK+
gasY1B9e3JFDc9jXtU2XOxgkJ/A9upnmP+nYU/54DAqeV33O1kSGQZ2nPdn5
GBS4mFMeTfON+5nJRkUYdNr1+HgCzetF5a5zJRjky2zOlkYzt9TAhsobDEps
ZbEtpfkc80HR97UY9KTtW28Xze96s6/19GHQcMW2NXczGYw5KjC+AxjEe8L6
ijDNA2ea1wWHMGjXy9BRiubfVb8iHL5j0KuSOXtVmjFpyoUzsxhkOoM9aUHz
u0E9X+I8BokaFSvb/X883ougtIRBl749knCm2S38fpfPGgZtnWTc9P7/eLVh
iQJ/MOj9naqxhzQH/413qfqLQS8D+JvwNHOqv1aw38Yg2eeCBZE0p7hXre3u
YpDaVB0phub/AfeaUs0=
           "]]},
         Annotation[#, "Charting`Private`Tag$19969316#2"]& ]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      ImageSize->Medium,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotRange->{{0, 15}, {-69.58698262770967, 0.2614328392625586}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {193.5, -116.80842387373012}, 
     ImageScaled[{0.5, 0.5}], {360, 222.49223594996212}], InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwVkHk0lAscht3kRkdoZswgkTXbZ42ylF9XJUvpI2GyNkMYy8zQxp1ENaTN
RUiJVOSS0oK61W9S6eYWdSyJIuI6yRrGUnHn/vGe9zznPef549XaE+sZukhK
Sspfkv9beUbvaK0tBRJplc49CfE4a6zURXhTgBs07EB1iEdxgVqyFVPC7p7p
KhbxOKmop2sbRAFxlZyaiX48jkzYRm6KoMDiGXqaQCkee/9iiZkCCswOL95b
3x+HDW41CmnXKKC9NfXIu8w4zOcEOvZOUSCi9JH2RjEfcz+G9w7MUUDjiRF0
DPEx2yPu+PACBZ5XaMUc/szHM1Zp/8zIUcGSXVUy8IaPKd+rfBQ1qLBwpMzJ
voKPnJMyXIctVPD7W6W0lc1Hh/KKopwcKozyBpZ6f+Rh56ryws0XqNC3OYlX
08rDhJyyS5OFVPjVojtRq5GHNcklFz3LqGAO713kkYeWvkV5Cg8lLKLx7S/z
0FAmO0PYI+H5tWlTYTykByUe2W9Cgyu/GpSnT3NxnOIavKuOBkJRnvVyYy62
R2m/iXxBg4I1rJdCXS6K6ucck17RYEfFV8EiDS5mJJRrXm+T7O9rdOSXc9G8
V757dpAG+jEbRI0jsRhT1RRQQFWGL58LsjnpsTjo4b27j60MMl88FEdfxmDf
qeBd/CV0OHYuY/xdWDTGDJpom8vTYVxUe0A2IBqnnWeHh5XokLgsfR94ReNS
6czjEWp04GQb3al3jEbzQ0/vBhN0cAr+ZmOsGo2CUH2qhxcdmLLzue6vo5C+
YajJuJAO39yqku7ZRaHL6AGXfhsGVFMj9/MMOKhuoSGUdWDAckWLsQxNDo7w
n9UZb2TAq3t5E9V0DmaLlRz4bgzQCVM/SJfhYNfPMtOFIAZMepws0u6NRL78
B6rqCQakdDM+hhdEYr4hdLl3MkDmTepggkokDrFk4+4mqcDvMWkrt2pG4BZd
xqLUOlX4wJjpZEfvRcpr/TO3RtVgz/s7T1oUwlA97eYOGxt1mGy2O//9CRvz
jG2VqHtXwtEVbTfibrKwQW2j9cQfGpD8gnM68fEetFOvyzBr04TJS4brcppD
UEG6OD4kZRUYZLVbnl4WghrJmg5++lrgd13l8BXXYJTT86/2fKEF2Xh8eH5d
EJquV715IEAbWCpeDZ8UApHfRXnqKqUDP3Tci7X6/XF04pS3S54O9IWu28Tq
243OZvX5LoQuVBo2uO6eY+LjCfvv0426gJP+VjQFJsaYWHa8DdWDpSdM7Y6B
H64fYbf4yemDwG/+rBPXFzfrqmxbVqwP1i7DmeYPfNDgSPrBurWrgZVpXbmO
4oNGobao17EabjfNlT4L24Whj8OP3eUZwC+E+JG4yRuxqIU9rmwI9T5Oh2qt
vXHy+sK0WY0hhPjC2tclO5GlVy6Xv80ImI94mQcNduK4UZbN7TEjcDwz6HCs
xAtrr37vmUozBoOUZc/drLyQuUkH7DVMgLuiO/TaC09cEZ1631RkArQJLi/I
1xOVl0ZVbfMhQGjh0howReJVJ0HCmB8B5+U1225MkGgpOOOU5U/AhH4MMT9O
4vaxW63tIQS4OSp1F46QKGybmmVFEZDpftZtYIDEmeKk3xKSCWgsnbIUdpDY
YZ/VXFJOwOaI8BPSIhLD91296FJJAJvzYXXgYxLFlfdCh24REHDikur9hyRS
tNunLaoJuMD8Uxx7n0Q32ZXqj0QECLaaZffcJvFhSwm7uZWAHkuhc8s1El0V
aon97QTkLgpUXHOVxHbnl2KVTgKywn4aZBeTOPnga1rgJwI+XLQkvQtJJC6b
3/gySIB0TRu/M0/i69i4/9QwAUveu9avz5X4aF6OZmME9A/WRxadIzEsdd/b
+CnJH6IDJWGZEp9ImM+YIeCHvGB9QwaJKXO5rAdzkn+YxnqmZ0lUWlNmEvCT
gJcynIDM0yRein4wtbBAwPY43X/FJ0n8D+5csZc=
           "]], 
          LineBox[CompressedData["
1:eJwVl3k01d33x5Uy3ovMVDJcN9M1XkMa9jGkLkKmJAklDYb7MWVMRMkU5SlJ
kkwNRDwy5ZgylJQQIcqUyJih+ubxu7+/znqttc9ee7/Pe5+zjoybj7X7RjY2
NsoGNrb/X1eG2poo8an7uh2t/dr3euPuTPFggz5foNrd4PDt9MJI5J2beF8U
JEU5ny2oO49FB7ZwCxgnwI/C3QtJ3GdxoNXjXva+G/DwtvB8r8tp7Fr65vF6
4m0I1H++e33DKWwuOhP+P6MMmIr/05q36Ioz9lwt+F9YFvCvuvyJUXTBW2bF
bvzuzYYDbWSDMJ3j+Mr9gtBVzVwIFxg38Ax1xH+tdrkvJ+ZDk8P3icNbHLDv
xtcWPycfwfCZ28/mpuzwZKmj3oLRU4gKtZQqXbPBzu7TMnOZRaCENLN3GFjj
c7y1MSthxZBW+b3IvsgKU05dCQl4XALKlFWBCxEWeLjGwmep9zmsqYkXOH41
w+kiYqf8NpcBUdGrmhPCwLbeww6Lmv9CYGpw6aDxAczfkn+IcCmH1/J2Zgn6
+/HrHUzD+cQXEKw7tIXniBGOCdLT9amuAJ0Hqg/tbxlg1MmmMjtZCYlt5zjW
vgMuj0oR+WFUA+yToB3HrY+ZA0d5zhMvQW9ps96yqy5Wpsuuf8+shTT+R6H6
43Q8kTD180w7BnF6/55X1zXxe9+jSz/D6mD2yEz5aWd1rHr/pXepUD2ooDG5
5AwVHP9G5rvv43rIu3NW/2WlAjahTH1e6G2A9zfPN1xJl8E5VhYOJd6N8H4g
aDzj6Ta8Ifz5B+bmJuhLOagXHCGKa3pCWuY0X0Hdx5OVNvs4sMTGYYNnba9A
2ku4zyZmtTZQ1ajG26UZ2J7A5xLlt7UaV3lLZhJbIM3PZMYtng2SSn2UCymt
QIm8yczi4oYfw125ntWt0DReWqCeIAB5ehnp05NtYBPAadPMLg6b3NlEnkS8
hnP3ODuXg7aCa8qp6+dE3wA1tGbQvUEKtk2pRH83aoeVboODoV6yECKa8l9B
fztI1bpUi/bKQa/hctAZ4i2c9lham1aVhxt3X3p9y+wA476Uv7lPd8J8i8xk
nvY7uBioe0aiWwEOLcW4nW5/B+e4zGkTPxQhmpr/ZDHsPSitt9grLCvD8z2f
zli3voczrftpXeMq8NWal/pcqBOcbvtVGr2mwb4InyzicSdQi6nFUUw18Prn
wfHO5U5QfpB/PVtCHTKedElqGHyAYX8fxYEAdfjdq/vPfO8HON4bwHy4QwMq
NLlc8hW74JtE4445Pw0ITOxTcg7tAgp7erlwowbQJwuWhd92gV3xhK4pWRMW
DYPr3kh1w6GY+eIGa00ovseIj2J2w1LDsGfRTU3w/iVhv6uhG0YPi1B2v9eE
qcKq6Tz3Hsjm6b82skcLCrjiy4+/6IGzhz0ND3lpwemTxyKFuT8CNvY//PuO
FlBqlc3fOH6EXp20Ie5GLRgV/ysa9fQjxOkdsc+a1IJsv/avev99BIV+sZhB
Hjq4dGQ8nbPsBQWLfcWDinSQUvS6kPegF5zi/Qtf7qfD4OW9hsd/9sKtX6a/
0p3pkD5EJgvv7wOBaNvmJH86OOwa6n19qw/smz5LPL9KB9HUouzIyT5g6z3W
tS2NDj2zF7309D8BXbCwfjyXDqkMS725+E9gbGhUIltCB+ucHex5nz+Bv8Ch
kMlKOgisz711UuuHVpNFslkdHTqO1qUJRfZD8WxZ1PEmOiSUJZ98/aEf9Ko5
pTWb6WDK76oaSRmA7jaFs/2v6MB1TuO3buAAXAy12OnRSIeWpg1Nsy0DkM+l
5TdZS4crOz4k5UoMQpg7T61XBR2MQ7KPOp0fhCnRmU+bi+mwsceXIvRyEBYb
6jdgVr11akZzbXyfwTuo6EveHTpcjBOquuTyGZp+Sdx5HU+HPeOj0brPP0N0
vvEbnTA6/IEyy1n2IfiifOnu6jk6VKZHS+baDcFdA1KFuAMdgpZtx4/lD8EN
nOmca0QHHSv5YsHfQ9DsluFaQKPD883N+y9lDMNLb8U3+mtaQLjcEtCdHQap
b38mP49oQdrx0pmVHV9AqsGyX6pFC+wrLlcUEl/gfFvql3vxWvDBi2KxVeQr
hGtU8wRv1gKNuwmlK3u/QlR9adXyF01Ibl0S/3D6K5gUXNtkVa0JFnKvRmMr
voLwUJhzhacmvO5zD145NgJslmqfuFj+VeToGOqMHoGu9hMvKLc0IFZLx7iw
cAT+U1GuszijASZJHPyn1kfg253DgiPcGtBolJ/TmT0KsQ5JakmG6qCe9Oz7
ausoUJvNRLYJqkNm3wtVqblRqFketp+rV4Mgr9aKc7vHYJNRrZnpb1VQvf29
nb17DN7Pr625OtAgfUp5WXvzBCic7bUmfVYEZkrx/nSPSfBsHE1elZaFoYGK
uLrESRAOuncs/p4MmFHr302UTrL2u0yZScgAtbrzqBbbd1DQzph25pOGgbFF
r/a07+DgqtKoNbQVTPS0b/3XNgXiQe17dCSFYNtw5YSbygxcYosTv5vSsI/t
J5HWdngG2KwPHKOyNdaOcSiZql9gca3LBlvHwdpC1fTCtfoZ6LMsNLuZPF+7
72KIf9qRWZDO3qATOLABn9i+e2NH1By0fguJ2FUiiDtpQ0kZP+YhKDQ6ujFA
Dgt7nnjMafQThvrqggYD6fiGhkm1hd0vKJPNqwLJA/hTmnrdgsAauCRuWvn3
oDWOz4l4t1FiA9rk7mypwHpPxVJHr928x47KCzOoXh9d8VVbxr4PK5uRwgY3
TuLVaey368GJtiguFGB/m39rqyc2zeJbMkvgQnyx1JCpIU8syxkW2/EPF7Ly
lTlYuuyJ33fbl3QVcCEhqZb7qnJeWJVJYh/q4EJlthSfqnAvPJl3IW9Rkhu1
c35ACereGJPH9QMo3Ag1bwt5YOKNb/lbv1ulcSPI66rOcfLG+w1pv/4ibqS8
msLhG+uNsz+PMDg9uFH55pFX/MPe2EnYYmZrKTcytVlISLrqg7VCqyMza7jR
Fw51T8kMH8wzoiAq08yN3K3CX8YU++DKZ+xA/cSNak9oN6z0+WBRs8pk9XVu
NChmoyUkzMTvIyn0/WY8yCmiI9brBBPnT6a0ttjyILc1sS1+Z5j4ouW6k6kz
D8rTkT3iQjAxbXt/jCXBg1ysFmnzUUwcV3G99+htHnRL8Nub3hwmNp77E+I9
yoN0Tjhgt1EmDj6YqlT/gwflCP+rdW2KiYse0PqFVniQ+v2WypQFJha3ddlV
ycWLuifaCg+sM/GPiler7Kq8SNKyp26fBIFlBE/k2+vyIpNg3t1eOwhsf/6X
/SPEi0SS58JC5Qlct1253MKGF/G8lSF0NAh8MyrZ/04QL9oZ4J8ifYDArQOK
lB+RvOh8/9X8A+YE/ktv7NoXz4toA1bChw4T+PS3Zc2xe7yovGfXxUVHAt9F
10d08nlRu2Sa6Y0TBH5/R+HGtWJeJHhBniRwisD65scWVBt50dicuXauJ4F9
cpeyItt5UfJF6rUaJoFz/ku06u7hRWdq7j8u8ScwX0nds+BJXvQjfthOO4zA
IyJU7yYyCWUlvOB+eI3AYj54u5gYCekfvOP1KIHA5q0Ob89Kk5Dw6o3lxOsE
Lg+JV+HXIqHOcNH+hVQCT3dRBl33kJBAvrYvcZvA0rTa+LL9JHTtIzP33R0C
xw3PTx11IKEPbuF+CpkExnpx6U9dSegPr7iLXBaBl1LkTNfPkZD/dZ34tQcE
Vpyu+X3Yn4Rsf26ivHhIYGdj+0c54STkGMXjZJXL0vPenMPqFRJqdhLyaMtj
6bkSy2WaTEIjnyVCZQsIvGYpW5Fxh4RKxtTeH3tEYM1H1R5z2STUznsmK+Ax
gT022okZPiWhsqHancwnBM44Ntuc+i8JIfFNOWZPCdxZdjXwWy0J8Sw32nIV
EpiDT4aq30pCP/LUQ/NYvNujqiehk4TGF3gdqUUEZtbZxAz3k9DUWrJ2LItz
JWbommMkpHna2aadxf2+V8aiZ0hIJcnlzyKL+dt3pPaukNDE/hrfvyw2lq80
UmIjo/CGys3fWRx80fpnGDcZpS89W6tgcVHvdPY7QTI6ieZzPVk8qh5jLbuN
jFIzn5tuYrF4nNTGAHkyoilt3HWJVZ/56IuSFlUyipR+XPuF1U/knsOuknpk
pG8vp0Rl8UHnzEVdQzLaxunttZfVP9+l6ct25mTUV/AoXpulT88DPRE/ezIa
aKJP87H0y2iMyUt2IaPsm38W2/IJfHL8g27ROVb8L0ceD5b+SpzSbW/8ycjA
XujORA6BK0yrpjmukVHU63c1SazzjPDkDKfcJKMN5sdlK+4T2CTJls/wHhl1
UGhZr+4RuLtzVj28hIyaLjbEJLH8cvfn7ob0ajJKUmx9acryk5vINZuKV2RU
/cC76AfLb/MOcoE/P5HRyib9I6MsP74IYXJuGSMj62Tdz3qJBL6Y8TJNdZaM
xGPPvwiIIzDpy5Hqsxv5kLpYx3950QTe6ZHA9kWJD02Wve1avEDg2dhPKWt0
PnTuld7vRNZ8lD2mym0FPpQZfC1JiCCw4WzdfnsbPsSTQcQOn2X5MWA5rj2U
D+mx39gcw5pP+duG26Zi+FB63aa/4fYE6764XsiZzIc2FGiYnrImcMhfxfeG
OXwod2em5R8Ggf+57CxS2c6HpN4l+9npEbg9peV+7nZ+dPp+/UkBQZa/S4U1
Gnfyo6mVh2ocZAI79rg2fNHgR+w+JidnOQk8Kf53bKsJP1IoMZG5vcbE7Fnq
Sje8+VGab3f64Ukm1i+6U3YR86Ov4r0HcqpZ919vx9psKz/K9MvbZVTOxBZs
mw6c+MCP9nnU93wqZuKT1t6fYJwfPX5e1jiby8QmoTIRlzYLoHfZtlY115mY
uWPloYGyAApcPNbJ48bETR73ZxoDBdCIpVpEyEYm9vy1cKmVvAUl5zp1qPt6
49/KAkM0O0E0aWWje3j1HN7z5GnWrVtCqFTh76t/qjzwgqCpi32DMDKZo1zP
Wz2FxxJc7H05RRE9sN513cgNM+YuMMZ1xFDO49n0a2wu+MdJLr+yCHE0oRqf
2pJ+jPV/Ett4tUEC5Yh8ftRScwQLvqUmFc9JIpX8rI/CYbZ4W+wzKx2dbYjj
daH5QfPDOE15l4CQx3bkcrlfzFD7EH4taaD9M0UKzf91D3A9dRDrb2tIVvu4
A1G0z5mcfWCE+diz/V2jpJGClYNZlzxgqcgde45SZVDs0FHPVUldzC3vVG7d
IoPUIzs2kFrUsOpeiWcXjsuirJimLzoecth3SLDRlE0OIeHXZFdtEp77mWDH
SJNDbNd8wqKS/u47oNaczqBRkDTVhnA5Lwm1P3f/b7WDglyMf/0e+0oFbxXN
/k53eaQuUXL26G412Dt7qvsoNxU5PJUeVOzQgv0U8UPkbCriOrZCueilCwqX
4oIadHciBZkI7foqfVBy34Xl+3ciB6Plt8/J+8C99kx0GaGAUh35fh+/gABn
dZ9aEFFEBRNXwpa+G8BSwfqq2gtF1F0r7zagbwQn5Z9wpx9SQmyTsU5dzsaw
oHRT5/m8EmJu1U58G70fKnL+93U5VhnFJgtdDr5sAo7Gcmi3lAqazJBM6Dp/
ALZ6Xa1UrVNBe4Ysi1vtDoIIj2fJoSM0pFSj67xTmgE5RuEh80dpiOShGZco
xwDN8CSjm040xFM3cGuRygCL+eKePlca0ikKsqmkMeDKx+XfJz1pyMk/1m3X
bgb8yo4wDImkoRwOru2b7BnQv/tmV94TVnzimHxzHAPOBORkMIpoaFCydJ0r
iQErRf+6/yimIWH+6UbTFAYIyvatapTT0MSOFtKb2www49q+7WUdDZVHBhfU
5jCgpjvvVFcPDXHJVzF8axlgyldBC+yjIfG66JmH9QzoO9C2Ij5AQ1mynpe6
mxiwVDUd6/yFxc5V/ppvGEB7oF74fYqGJiu973/tZeXrNwhMmKGhERv9Jp4B
Vj5hG1CbpyHHfb79mkMMOH01oNN/mYbCOswHI8ZY+equpIv9oqFZ0ajWnG8M
iPpz+2TVHxqiLh/Mb51igAD9kcrxNRpKCpoKmp5hQKZX1fL6Og1Rbj3bS15g
wP8BEgWeFQ==
           "]], LineBox[CompressedData["
1:eJwVl3k01d33x5Uy3ovMVDJcN9M1XkMa9jGkLkKmJAklDYb7MWVMRMkU5SlJ
kkwNRDwy5ZgylJQQIcqUyJih+ubxu7+/znqttc9ee7/Pe5+zjoybj7X7RjY2
NsoGNrb/X1eG2poo8an7uh2t/dr3euPuTPFggz5foNrd4PDt9MJI5J2beF8U
JEU5ny2oO49FB7ZwCxgnwI/C3QtJ3GdxoNXjXva+G/DwtvB8r8tp7Fr65vF6
4m0I1H++e33DKWwuOhP+P6MMmIr/05q36Ioz9lwt+F9YFvCvuvyJUXTBW2bF
bvzuzYYDbWSDMJ3j+Mr9gtBVzVwIFxg38Ax1xH+tdrkvJ+ZDk8P3icNbHLDv
xtcWPycfwfCZ28/mpuzwZKmj3oLRU4gKtZQqXbPBzu7TMnOZRaCENLN3GFjj
c7y1MSthxZBW+b3IvsgKU05dCQl4XALKlFWBCxEWeLjGwmep9zmsqYkXOH41
w+kiYqf8NpcBUdGrmhPCwLbeww6Lmv9CYGpw6aDxAczfkn+IcCmH1/J2Zgn6
+/HrHUzD+cQXEKw7tIXniBGOCdLT9amuAJ0Hqg/tbxlg1MmmMjtZCYlt5zjW
vgMuj0oR+WFUA+yToB3HrY+ZA0d5zhMvQW9ps96yqy5Wpsuuf8+shTT+R6H6
43Q8kTD180w7BnF6/55X1zXxe9+jSz/D6mD2yEz5aWd1rHr/pXepUD2ooDG5
5AwVHP9G5rvv43rIu3NW/2WlAjahTH1e6G2A9zfPN1xJl8E5VhYOJd6N8H4g
aDzj6Ta8Ifz5B+bmJuhLOagXHCGKa3pCWuY0X0Hdx5OVNvs4sMTGYYNnba9A
2ku4zyZmtTZQ1ajG26UZ2J7A5xLlt7UaV3lLZhJbIM3PZMYtng2SSn2UCymt
QIm8yczi4oYfw125ntWt0DReWqCeIAB5ehnp05NtYBPAadPMLg6b3NlEnkS8
hnP3ODuXg7aCa8qp6+dE3wA1tGbQvUEKtk2pRH83aoeVboODoV6yECKa8l9B
fztI1bpUi/bKQa/hctAZ4i2c9lham1aVhxt3X3p9y+wA476Uv7lPd8J8i8xk
nvY7uBioe0aiWwEOLcW4nW5/B+e4zGkTPxQhmpr/ZDHsPSitt9grLCvD8z2f
zli3voczrftpXeMq8NWal/pcqBOcbvtVGr2mwb4InyzicSdQi6nFUUw18Prn
wfHO5U5QfpB/PVtCHTKedElqGHyAYX8fxYEAdfjdq/vPfO8HON4bwHy4QwMq
NLlc8hW74JtE4445Pw0ITOxTcg7tAgp7erlwowbQJwuWhd92gV3xhK4pWRMW
DYPr3kh1w6GY+eIGa00ovseIj2J2w1LDsGfRTU3w/iVhv6uhG0YPi1B2v9eE
qcKq6Tz3Hsjm6b82skcLCrjiy4+/6IGzhz0ND3lpwemTxyKFuT8CNvY//PuO
FlBqlc3fOH6EXp20Ie5GLRgV/ysa9fQjxOkdsc+a1IJsv/avev99BIV+sZhB
Hjq4dGQ8nbPsBQWLfcWDinSQUvS6kPegF5zi/Qtf7qfD4OW9hsd/9sKtX6a/
0p3pkD5EJgvv7wOBaNvmJH86OOwa6n19qw/smz5LPL9KB9HUouzIyT5g6z3W
tS2NDj2zF7309D8BXbCwfjyXDqkMS725+E9gbGhUIltCB+ucHex5nz+Bv8Ch
kMlKOgisz711UuuHVpNFslkdHTqO1qUJRfZD8WxZ1PEmOiSUJZ98/aEf9Ko5
pTWb6WDK76oaSRmA7jaFs/2v6MB1TuO3buAAXAy12OnRSIeWpg1Nsy0DkM+l
5TdZS4crOz4k5UoMQpg7T61XBR2MQ7KPOp0fhCnRmU+bi+mwsceXIvRyEBYb
6jdgVr11akZzbXyfwTuo6EveHTpcjBOquuTyGZp+Sdx5HU+HPeOj0brPP0N0
vvEbnTA6/IEyy1n2IfiifOnu6jk6VKZHS+baDcFdA1KFuAMdgpZtx4/lD8EN
nOmca0QHHSv5YsHfQ9DsluFaQKPD883N+y9lDMNLb8U3+mtaQLjcEtCdHQap
b38mP49oQdrx0pmVHV9AqsGyX6pFC+wrLlcUEl/gfFvql3vxWvDBi2KxVeQr
hGtU8wRv1gKNuwmlK3u/QlR9adXyF01Ibl0S/3D6K5gUXNtkVa0JFnKvRmMr
voLwUJhzhacmvO5zD145NgJslmqfuFj+VeToGOqMHoGu9hMvKLc0IFZLx7iw
cAT+U1GuszijASZJHPyn1kfg253DgiPcGtBolJ/TmT0KsQ5JakmG6qCe9Oz7
ausoUJvNRLYJqkNm3wtVqblRqFketp+rV4Mgr9aKc7vHYJNRrZnpb1VQvf29
nb17DN7Pr625OtAgfUp5WXvzBCic7bUmfVYEZkrx/nSPSfBsHE1elZaFoYGK
uLrESRAOuncs/p4MmFHr302UTrL2u0yZScgAtbrzqBbbd1DQzph25pOGgbFF
r/a07+DgqtKoNbQVTPS0b/3XNgXiQe17dCSFYNtw5YSbygxcYosTv5vSsI/t
J5HWdngG2KwPHKOyNdaOcSiZql9gca3LBlvHwdpC1fTCtfoZ6LMsNLuZPF+7
72KIf9qRWZDO3qATOLABn9i+e2NH1By0fguJ2FUiiDtpQ0kZP+YhKDQ6ujFA
Dgt7nnjMafQThvrqggYD6fiGhkm1hd0vKJPNqwLJA/hTmnrdgsAauCRuWvn3
oDWOz4l4t1FiA9rk7mypwHpPxVJHr928x47KCzOoXh9d8VVbxr4PK5uRwgY3
TuLVaey368GJtiguFGB/m39rqyc2zeJbMkvgQnyx1JCpIU8syxkW2/EPF7Ly
lTlYuuyJ33fbl3QVcCEhqZb7qnJeWJVJYh/q4EJlthSfqnAvPJl3IW9Rkhu1
c35ACereGJPH9QMo3Ag1bwt5YOKNb/lbv1ulcSPI66rOcfLG+w1pv/4ibqS8
msLhG+uNsz+PMDg9uFH55pFX/MPe2EnYYmZrKTcytVlISLrqg7VCqyMza7jR
Fw51T8kMH8wzoiAq08yN3K3CX8YU++DKZ+xA/cSNak9oN6z0+WBRs8pk9XVu
NChmoyUkzMTvIyn0/WY8yCmiI9brBBPnT6a0ttjyILc1sS1+Z5j4ouW6k6kz
D8rTkT3iQjAxbXt/jCXBg1ysFmnzUUwcV3G99+htHnRL8Nub3hwmNp77E+I9
yoN0Tjhgt1EmDj6YqlT/gwflCP+rdW2KiYse0PqFVniQ+v2WypQFJha3ddlV
ycWLuifaCg+sM/GPiler7Kq8SNKyp26fBIFlBE/k2+vyIpNg3t1eOwhsf/6X
/SPEi0SS58JC5Qlct1253MKGF/G8lSF0NAh8MyrZ/04QL9oZ4J8ifYDArQOK
lB+RvOh8/9X8A+YE/ktv7NoXz4toA1bChw4T+PS3Zc2xe7yovGfXxUVHAt9F
10d08nlRu2Sa6Y0TBH5/R+HGtWJeJHhBniRwisD65scWVBt50dicuXauJ4F9
cpeyItt5UfJF6rUaJoFz/ku06u7hRWdq7j8u8ScwX0nds+BJXvQjfthOO4zA
IyJU7yYyCWUlvOB+eI3AYj54u5gYCekfvOP1KIHA5q0Ob89Kk5Dw6o3lxOsE
Lg+JV+HXIqHOcNH+hVQCT3dRBl33kJBAvrYvcZvA0rTa+LL9JHTtIzP33R0C
xw3PTx11IKEPbuF+CpkExnpx6U9dSegPr7iLXBaBl1LkTNfPkZD/dZ34tQcE
Vpyu+X3Yn4Rsf26ivHhIYGdj+0c54STkGMXjZJXL0vPenMPqFRJqdhLyaMtj
6bkSy2WaTEIjnyVCZQsIvGYpW5Fxh4RKxtTeH3tEYM1H1R5z2STUznsmK+Ax
gT022okZPiWhsqHancwnBM44Ntuc+i8JIfFNOWZPCdxZdjXwWy0J8Sw32nIV
EpiDT4aq30pCP/LUQ/NYvNujqiehk4TGF3gdqUUEZtbZxAz3k9DUWrJ2LItz
JWbommMkpHna2aadxf2+V8aiZ0hIJcnlzyKL+dt3pPaukNDE/hrfvyw2lq80
UmIjo/CGys3fWRx80fpnGDcZpS89W6tgcVHvdPY7QTI6ieZzPVk8qh5jLbuN
jFIzn5tuYrF4nNTGAHkyoilt3HWJVZ/56IuSFlUyipR+XPuF1U/knsOuknpk
pG8vp0Rl8UHnzEVdQzLaxunttZfVP9+l6ct25mTUV/AoXpulT88DPRE/ezIa
aKJP87H0y2iMyUt2IaPsm38W2/IJfHL8g27ROVb8L0ceD5b+SpzSbW/8ycjA
XujORA6BK0yrpjmukVHU63c1SazzjPDkDKfcJKMN5sdlK+4T2CTJls/wHhl1
UGhZr+4RuLtzVj28hIyaLjbEJLH8cvfn7ob0ajJKUmx9acryk5vINZuKV2RU
/cC76AfLb/MOcoE/P5HRyib9I6MsP74IYXJuGSMj62Tdz3qJBL6Y8TJNdZaM
xGPPvwiIIzDpy5Hqsxv5kLpYx3950QTe6ZHA9kWJD02Wve1avEDg2dhPKWt0
PnTuld7vRNZ8lD2mym0FPpQZfC1JiCCw4WzdfnsbPsSTQcQOn2X5MWA5rj2U
D+mx39gcw5pP+duG26Zi+FB63aa/4fYE6764XsiZzIc2FGiYnrImcMhfxfeG
OXwod2em5R8Ggf+57CxS2c6HpN4l+9npEbg9peV+7nZ+dPp+/UkBQZa/S4U1
Gnfyo6mVh2ocZAI79rg2fNHgR+w+JidnOQk8Kf53bKsJP1IoMZG5vcbE7Fnq
Sje8+VGab3f64Ukm1i+6U3YR86Ov4r0HcqpZ919vx9psKz/K9MvbZVTOxBZs
mw6c+MCP9nnU93wqZuKT1t6fYJwfPX5e1jiby8QmoTIRlzYLoHfZtlY115mY
uWPloYGyAApcPNbJ48bETR73ZxoDBdCIpVpEyEYm9vy1cKmVvAUl5zp1qPt6
49/KAkM0O0E0aWWje3j1HN7z5GnWrVtCqFTh76t/qjzwgqCpi32DMDKZo1zP
Wz2FxxJc7H05RRE9sN513cgNM+YuMMZ1xFDO49n0a2wu+MdJLr+yCHE0oRqf
2pJ+jPV/Ett4tUEC5Yh8ftRScwQLvqUmFc9JIpX8rI/CYbZ4W+wzKx2dbYjj
daH5QfPDOE15l4CQx3bkcrlfzFD7EH4taaD9M0UKzf91D3A9dRDrb2tIVvu4
A1G0z5mcfWCE+diz/V2jpJGClYNZlzxgqcgde45SZVDs0FHPVUldzC3vVG7d
IoPUIzs2kFrUsOpeiWcXjsuirJimLzoecth3SLDRlE0OIeHXZFdtEp77mWDH
SJNDbNd8wqKS/u47oNaczqBRkDTVhnA5Lwm1P3f/b7WDglyMf/0e+0oFbxXN
/k53eaQuUXL26G412Dt7qvsoNxU5PJUeVOzQgv0U8UPkbCriOrZCueilCwqX
4oIadHciBZkI7foqfVBy34Xl+3ciB6Plt8/J+8C99kx0GaGAUh35fh+/gABn
dZ9aEFFEBRNXwpa+G8BSwfqq2gtF1F0r7zagbwQn5Z9wpx9SQmyTsU5dzsaw
oHRT5/m8EmJu1U58G70fKnL+93U5VhnFJgtdDr5sAo7Gcmi3lAqazJBM6Dp/
ALZ6Xa1UrVNBe4Ysi1vtDoIIj2fJoSM0pFSj67xTmgE5RuEh80dpiOShGZco
xwDN8CSjm040xFM3cGuRygCL+eKePlca0ikKsqmkMeDKx+XfJz1pyMk/1m3X
bgb8yo4wDImkoRwOru2b7BnQv/tmV94TVnzimHxzHAPOBORkMIpoaFCydJ0r
iQErRf+6/yimIWH+6UbTFAYIyvatapTT0MSOFtKb2www49q+7WUdDZVHBhfU
5jCgpjvvVFcPDXHJVzF8axlgyldBC+yjIfG66JmH9QzoO9C2Ij5AQ1mynpe6
mxiwVDUd6/yFxc5V/ppvGEB7oF74fYqGJiu973/tZeXrNwhMmKGhERv9Jp4B
Vj5hG1CbpyHHfb79mkMMOH01oNN/mYbCOswHI8ZY+equpIv9oqFZ0ajWnG8M
iPpz+2TVHxqiLh/Mb51igAD9kcrxNRpKCpoKmp5hQKZX1fL6Og1Rbj3bS15g
wP8BEgWeFQ==
           "]]},
         Annotation[#, "Charting`Private`Tag$19969365#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJxNz3ssFAAcwPFztLDRdV7n4uRxnndOHhehPLM7qShMqPO4+IM7eU+T51CT
ZUxCDTOrKY55k7PTKrYsecwYJdoU5c77Eaqt/X5+22+/ff75bj/9cKEfn0gg
EPz/7r870BG0OPRQzuWueqPXXFqiOCksfnWmWM6ll7XH+xguENvKgu2klXIu
hP+zmumZSqxHi0isHnURWlBNOTDuRjOsiK4Ob9A/xEs53sPoqM99SnFf0Twa
X6NLmQj2rWpmeAejSYxKYSgfPdyT2yIUornTgfalOWg36oH7TAPatpwbLPyN
1iqdv1/yVB5MsWjL3a5HUyV5GaEiNE1qlmQygKZfiuP1LKJtFPbZ8zYK4CuJ
mgvWQ+j865zznzaPgRMcam4NZiuCPVZ20wTzyuAsJ98wqr0K+Fzjk9Z74hPg
mG1Z5nuVk+AdC9Is058Mdmp4WV1WpgaWkbm8AIk6eKGQFxB/XBPMWUnhfGNr
gZcjFBNaMyjgi0ZaxHyJNpj8wbhItEIF6xQ0XWWzdcDlFg4ktShd8BDV1W6t
mIb/6EgesSb0wKrytYlh2afBtCw9pyBjfbASPaTd7x3a0lm7KSXUABw/Sx7g
EgzBK2uF/pxytBfrbQWHaQTuW3Pc2xpGCxjWUyN8Otj5V+RYkJIx2NOI4qNS
izbNfJAqOWsCNuc7iOlTaH5fdG7rHVOwuHosUqZhBl5/frjF6kBH0BuUKnzM
wTLzEnaLFN1Ztze3UWABvuFh6OJIY4BPxeZ3WfajNZRjmn0CmeA69/Q0aRDa
Or3IvSQEfVkqGp8MQ+dNbOxExKC3azPc0rLQU44lo/UN6OikuipOI3qzsY2/
LEKTDSa3zrSjvRV1dV73o3vH6iNHx9Fc1U5m8iR60mtwkzKNXu9eKrj5Bc2s
sXr1/ceR3pRrcuHPIz31axdYUvTt/KSRxI0jvf68Cq1tdPbu44juXTTJ9gUj
dB/9LLZ74/AQ/QemySd0
           "]], 
          LineBox[{{0.0521747616832176, -0.005}, {0.055205858353794046`, 
           0.}, {0.058278278689933904`, -0.005}}], LineBox[CompressedData["
1:eJxNz38s1HEYwPGLNc5G59AdHcKdxJ3D6iS/O7G7diZF08iPc+WPw/KzbMKt
OcWsnCQr43ZTUcgkJG6nVdrKcNy3a1FTbQl3t3Pnjplqy/PxbM+evf55b49H
Vn6iwAKHw/H+7r9rnJ94Ta1tjMD9H2Ur+Wo0VhC54yinySwyJgKXJHSqLLEG
sP0qqcGskoIXRuLz11R94Fjq0hedSgE2q4LvaFXT4HH2Q9mUdBFMWRj6mUVf
ATsK0zut2HpwQ2Dsy/gkE/hTc4BcR9gC18oqJi2c90TtmNS4eEPywBIsPsuJ
mDbuBReGtKdPiKzBMZqNsrxFG3BV2OlMl2O24OPd9/qvje0DC026yne29mCz
H2GekUQEh3U9aWtqcgDriNyMZIUj+HtdRnKB1X4wR1PK+cEigZf51oX9FWRw
LJVkIVY4g4kfvOt7NS5gSk1PAotFATf7hRAcLrmC37tEH9XfdkP/UBS3mHPu
YDtLaVGm6CDYrco9LMXbA4ynpQ4kvkX2D3fuKU3zBBfME8e5OC+wRl+XxGlG
jmO+aeEwqOBRfejm+kfkPHqQekpAA4evZitT8N7gk1Qyz1aK7FN584oi+BDY
VxAyRlMjC0Zzrvdf9gGPtSmzdU6HwWuPtteZL5D5tC58C88XrPOVsPq0yIOy
zW+GGj/w+RivqFA3OvhArnjIX47sZCN8xjvHAMvY5WXaFOSg8nq2JBU5Xts7
i2UiV88ZzHwhsklacaKsClkdKpnp6ELOKZbd53QjG7ufC5Z7kYme2HrgAPIp
a1fKKznyiLIje2YWmWs3yCjBkLG4CSP5M/La8O+aC1+RGe0BT38t7eqpo0vq
Vnb1HM9EMrXIF8XFU0WGXT15dQvJhCzauMsf3kAmHHlMT9tCbs0dNmxvI/8B
vY8UTQ==
           "]], LineBox[CompressedData["
1:eJxNz2lIEwAUwPE5jVTQ1rzm0pnHPDdnHsul5p1stvIWU8tr6Qd15o1gnqiF
SKWYV6Eikqx0ippHqcyoFBI8ESU7NCi13PK+K4j3fPB4/L784elHCf0ERAKB
EPB3/91HAf66nGo5l4MW2QQ/ysfZVhZqJ62VcyH8n9+5npnEZrSYxOpXF6MT
6ylHxn1ohhXRlfMGvTy4UuA9ho79NKCU9BUdQRNo9CoTwb517QzvUDSJUSsM
F6DH+gs7hEI0bz7YvqIA7UY9cv8oQttW8UKFB2itisV75U/kwRSLrsKdZjRV
UpQTLkbTpGZpJsNo+tWkiP7vaBuFQ/aijQL4eqrmkvUoujiAe3li6xQ4hdNw
ayRfEeyxtpeVuKgMznP0jaTaq4AvtVZ33h08A47fkeW+VzkL3rUgLTADyWBH
0fP6yko1sIzMiwiSqIOXSiOCkk9rgrlrGdxvbC3warRiSmcOBXzFSItYLNEG
kz8Yl4nXqGCdkjYfNlsHXGXBIanF6oJHqa526w9p+I+O5AFrRg+sKt+YGpl/
HkzL03MMMdYHK9HDuv3eoS2dtNsywg3AyQvkYR7BELy2XhrIrUJ7sd7WcJlG
4IF1h/3tMXQiw3puXEAHO/2KmQpRMgZ7GlH4Ko1o09z7mZKLJmBzAWeQPocW
DMQVdt4xBQ/WT8XINMzAG8+Ot1kv0dF0kVIN3xwsMy9nd0jRPU37XzZLLMA3
PAxdHGgM8LmE4l7LIbSGcnw7P5gJbnLPzpKGoK2zy9zLw9DXpOLp2Uh00czm
bnQ8eqcxxy0rDz3nUD7ZLELHpTXVcVvRW61dglUxmmwwu32hG+2tqKvzegj9
aqo5ZnIazVPtYabPome9RrYo8+iNvpWSm5/RzAarFz+WT/TmXNNLf57oqfs7
s6To28Vp46mbJ3pDRTVaO+j8vcfRfXtokm0LI/wQ/TShb/P4GP0HUR8djw==

           "]], 
          LineBox[{{0.05459963901967876, 0.001}, {0.055205858353794046`, 
           0.}, {0.05582034242102202, 0.001}}]},
         Annotation[#, "Charting`Private`Tag$19969365#2"]& ]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      ImageSize->Medium,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotRange->{{0., 14.999999693877552`}, {-0.005, 0.001}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}},
      Ticks->{Automatic, Automatic}], {580.5, -116.80842387373012}, 
     ImageScaled[{0.5, 0.5}], {360, 222.49223594996212}], InsetBox[
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwVl3c81d8fx280cAfJTLKVcXG5tryPVd2KIkQpKpQy7icloxIpMorMVJLM
skrDylH6hpKyMioUsldWQ/zu76/zeD1e5/F8nPM+7/f7PN4yR3xs3LhIJJLs
ChLp/+t8d/1r+agEY8FrF3Jeb/HGrWliASYdp+C3lc7FZl4vjIQ/HBHrCIVe
/gmH3raT2G/Pg3bujhtQGHeQb9HLA6+dEL3xuz0DdiUaeWmlueIrd3ODFjSz
gGk/a2Fy4ihe3KPvNheTA+tF8zfu1jmCh0r2602b5UMTQze97bYz7qm08plt
fwx8+nNu5v/scKqwqKvvqifQUe4q6pK4F9t69zj81HwKeUatdUF0a8xfm2NJ
uDyDiXPhs2pRlvitFNt0KuY5RF503+desR1f9tfT9akoBcUwi/I7o2YYNZFU
J4bKgGCwze/JI/xXqV7aS6QCGjXKkjyvGONnoXHCY2aVULoUl5lUY4TZnx35
ThIvILvhxONqkiFWYcouD6dVQWyqWfXIFn388ZTj7My5ajiuM/fZuFQbb5Uf
+Trd/gqUvxQrNjrSceYeK4dH3jWwdPaIqWyrEl5x/nEze9Vr+LRO6JCflSKu
bAusndT8D1YnTyhvubIRi3P1mBTV/wfljdZHBgJFsZ+aWaW3yxvwXP30ZoyP
AGaEkx+Nx9TC5sLPZlNvvlddK/FRKZCvA+kdl0mD9T+Nx3pasjwr6uCV9rm1
94PWAIuiJ61qUw9qffutleoFIVvvduroUD3IH1Ae5t8uCivdSMIPg9+CdOmB
ZXaQOByOc71+QuQdiAnHCDcXSsCGEdWwYbMGuDK4IP2WTxoCReKWcrsaYGWS
QH6gvAy0m875Hyfew0VzJV0VY1m4ceuF12BaIwTe228ZTchDmGLOw5/nPoL3
gRcBVh2b4bFR53Gbuo8wxPtp5fK0EnyzISs+XtcE7qUT14vIKmAc7JNOPGiC
Q8LS2QJAB6/Eeweb5prgS40e46WDGtx+2LKeYdIM+09ZVxKn1OHty1UdsdHN
cELgqdzarRrwu103caq9GfKOmXgMN2tAqSaPS45SC2jLJkemnmSAX0yH8qGg
FugSRLfT7jGAOZQ7J/S+BUwVq5mJbxnw0zSg+t3GVnioj95HzTCg+A4rKpTd
CkKW1W6hGzTB+5e4vf6rVjjngpb8LTRhpKB8NNutDazCkbp7sibk8kQ9O/i8
DZ6lVtc6VWuC+9EDIUK8n0CqELnsHdaEPrFFkdD8TzDViuKQoRZ8ubTF9OBM
OyTImsys79GC1G4qVciiAxa1X0at5WGCg353+9ukDnBjmcjzMJggklCYETLU
Ae+dXlYuOTKhbeKCl55BJ+iyTezmQpmQwNqtNxnVCemXXo6PPmSCTaYUd/bX
Tig/0y/dn8cEgeXJ907qXdB6mHulwV0mNDpWp6wL6YJxS9nB6wlMiH4Se/Rt
cxesMTB5O3CVCTv4D6uFyH8GGUWXAsNgJtS+XvF6ovYz2C7d8R30YEK1utlk
Pe0rVBaKkwCYcCFyXflFl6/QlqrXl8BkgtFAX5ju468weWXfmxElJpSlhq3P
susGOefE6CQhJvjP2Q4cyOkGo51PfMZ4maCzR6FY8Hc32Ou22Jgua8Hsg7nA
+h09wJb7qZ0yqwWPV72xuHi7ByL514pPDGsB4ZIkoDvRA5l/1RfNOPFLOVgy
Pi/VC7sulFbaVGnBQqTE3ubtvSBpl9uvlqwF9qWXSguIXhhXSaGQ2VrwdGBU
8mpqL7zgimAObtcCoXW2l1xreiGm86xTjYwWNHvJW0kIfwO18H35QS2awLgV
XTK/5RssHdzWui9fE2LrZsWa3b9BI1N3UeuyJljJ/dcXUfoNvL+L7BrT0YS3
HW4B8we+Q9GWT6NOqQxQWt3Y3RT2HYKF3qzT92VAhJaOeUHBd9g9+tRQeBcD
Bl3S8iI+fQepV1lHp+UZsPXaan7X5e8wmZIY9f6fBmRVeJ+GzX1Q7XO5JO+T
Bqwc/tS53roPxAK2VydnaICrCMB8QB+UKudE1HtoQI1ZTmZTRh84flll/VdD
AzSuFQ0v1PXBgWyx+G8L6pDW8Vxt42QfkBIUwhpi1MHfq670hGE/WPuAe0aZ
GqglDzdwt/bDmIKvstVaOqSOqMxpr/oB8vFdj7OqlYAdV2yRemwIGkjJeUE/
ZaD7c2lkdcwQZGje9+U9JQM7FV9++FEyBEGuRVuSp6VBsaLJUYs0DDax1++7
fZOCz/0/vRpShmGt1PRMy1cJ2KqnnbRUPwIppiv7fZoFYUNP2Y8jquOAwvV3
5T2qMibNECn11uNAKtUsmzKqrepfrbxD4+w4fBQ3oRwY7q4qUEst+PdyHPwV
+tfXOU9XGV8IPJ2ybwIeT1u42dlxYWdJQ67G0El40+7Ht+GjIG6id1+7PTYF
LiIB3s3X5LCQp/ODNWYz8G6v0egpfya+wdhaYWX3CzbcLwlLkdyGO1M0qqcF
/sG73JyAvTtscFRm8Acu8RXIYXNiR/KF/Vg0oe9q/B1upOe/7srrjsM43JZl
3Dy/ColsMtL4VuuOffXvOdeH8iCeS3nBtFpPvCOdNrszmgf1Od+aGvjqiWXX
nItoTORBL41iDr+Y9cQfW+0fteTyIP95tpmnrBdWY1O4uxt5kCw3r1jCeS88
lH02++d6XjTkfzT/mqo3xtQBgzPyvCi9dmLJy9QbJ522+bBA50UOIoHWlg7e
2MKU/msR8aJ3JbHz5DBvnPH1O2vNMV5UOPECXf3sjZ2ErMYlSniRW5G779Al
H6wVVBGSVsmL4nmWmdbJPpjv+2YRmTe8qPpw8nzZAx9cVsQNip28aKNQXUBU
kw8W2VkWq7HMi05WCqFkfjYef6SoUMLDh7iGe9N3irPxa7GEMm1BPnRTuGAF
SY6NfX94fzdQ4EN13hY1x3XY+GOIPNNiJx+Sl/HbanCQjXOG4upqbflQhaVp
zoQ7G1/Yvey04xAfsgmk8dxnszFdsuvyboIPxdpL7bwfwsYrw7atbw7kQ27b
gvcYX2XjLyNPCm3D+JChXo9dZywbR5Zeb3dM5kMD4ndd+NPZ2HzyT6B3Hx+6
np4WNfiFjQO2Jyi/HONDTk/izJz62bjwHr1r3TwfUq4L+/txlI3FbF30y3jI
6L/JEyfL/7CxZcHvIbIgGd3gPiSnzkXg0NXxKYckyMhZ1PrzfV4CP3dW3f5I
nozoKubxYmsJPFb63wK3Ghn9MdbdGSNGYBlB5xx7XTIy75Icfb+RwPYnf9nn
ITIq3DUbHy1H4GpJlWdWe8noEuPeAC+dwPGhsadv+nN4f/9ErEQErvusJD8W
QkbJXk2MGnMCLzJrWoyjyGhFb05XCIvA7oNzmv13yOjTa1vVZRsCG+w6MK1W
Q0Yh1wo//HYjsE/WbHpIAxmNki77l54gcOZSzJ7WNjKy9z0gc9aHwJ37NpE2
9ZBR9QDjrfZpAtMeVRcFDJGRigOP76w/gc349js3TJNR4ttuiZLzBPY/OkOT
+ktGpC1PXxOhBC6ojK4iVlLQqrHCtU2XCfxdWNH7NZWClmNePiwMJ7CoD5YU
FaWg3+qtFtFXCbyrzuG9hzQFzTT96PGIIvCzwChVfi0KGhSmCClcJ3Bkz9SI
owMFfbhjf+5WEoGxXmRq/mEKqgcPkYAUAs/Gye1YPkFBNd+Ciu1TCXzI3D4v
8zwFPVe41782jcCaeRXHJjMo6G7B6K6ILAIf47ITNc2noJu7l3645RD49oGJ
NwlPKSh+WiDELI/ATU/C/QarKCgmXk5C5iGBV9NkFA3qKChcW+fpUj6BDY+V
t0U3cfjit91jCgjMrt57uaeLgt69kSrq5PhZ4uNMzX4K6va9v6DA0V2nrvSH
jVPQT+lN6BSHx98gldA+T0GrGx9EVD0gsLlCmZkyiYrEg9Sa+Di6sH0044Mg
FZm0aR+5n0vgECPrw+v1qCj2qnlYK+f82w+l/dQ1pSJ9/77LazmadnH0kt0u
KvruHhpulcm5T83l7FgXKmKaV0fWZRD46ECzbuEJKurWdI5exdHKa6Tr352m
onCZpRjTewSe3uy1f/gCFWkI3LkenE7g0h3lo6uvUlHnkmFc5V0CB3uuOS8f
T0Wh4103fnPiufWaLc30DhXJB2fLet4hMLX43l3nHCrqIInvDeDEv7VpQuP8
IyqKDo26dCWZwLdmDF+lVlARWrlUEp9A4CPCV/eW/kdFc5fZ/elxBJ5ykPOb
6aSig1ftLCo47/88kL1mbT8VCZLrztRFEPjC7RcpahNU9CbaILuNk0+U3n0V
Hlw0pB4rtWYqmMCbjkWTepVpiJQ8XCfPydeJiM64f0waeirm9JtBEPjJA0U5
CaAhj9RGJfAmcFCD7xM9Fg1t3GCyf9dJAptOVFvY76Wh5jslkY7HCcwrQGv3
PUhDV6QUK9w59fKRceB43DEausMIZ1scIXDy3tzfhQQNSe65K1R9kJNvZ+Yi
G4I4vvfzUgNHAiskm24Yuczhx3xwemr7//q/XrAmlobSHg6SNPYQOHBR6aNp
Jg3dHRJlKWwjcOKlQ8JlDTSUccS/k1+bwE5ZD7M/faIh2ZDY85EaBJat/aU7
20tD9+/myqxSJXAxX/x+9TkayvzS4fFHlsANcbV3syT5Uba9/p9+AU6/KBFi
1GziR4pnrNOcKQTe33b4VS+D48d7mHat4fSfhcK9S4b8qFi/puU4p38NiS32
S2zlR9f2qA+2LLIxd7qG8g1vfrQ6v4d58QcbGxTefHIB86OFI+hjRxmnf7Y3
/puo40ddPEkh95+wsRVp5TbnZn70onBU07uIjY/aeHfCAD8K/ZOUyJ3FxluD
ZIIvrhJADDGrC6euszFbav6+iYoAqufmGaty4fwPx+6O1/gJoIgJXll+Ljb2
/DV9sY66FsmOnzPLILzxbxWBbrqdIAoVXryXs3ACGz3MT09KWofqSCv1HpUf
w9OCO1zsXwmhhOI98Vy/XHF/tIv9qTUiyHZbbNwW8yOYNXmWNaAjioS49/hk
k1zw2FEe3yfBYogc2SjacesAZ34T5Qp/JY5Wr9s8ufhiHxZ8r3iteHI9+jnG
ZSB03hZviCjao6OzAXm9zcgysbTGKSr6AuuOSaI6LLG4qMOZP9ebaM/EbUTN
rmd2fnfbjg02vIpV/ySFzpO2O1ZkmGEad8bpw6HSKOqbayRsBrwxRMrIUVEG
xdqm2N3eoIt5FZye2dTKoBFFf/PoOnWstkW86OxBWXSz9NxWUw85fKpbsGYH
SQ5dfjM9n6dNwZMz0XasFDn0yy+jlh69aLxN/U0qiy6PlOr/YqbHeqiaMfy7
0CiPxDQdHEO/KYK3qmZXk5sCyhAZmgVDddgy4drqyKuIhOmN7nHvtcBCXsyS
mqGIqnz+xi166sLmi5H+r3Q3odAzFR8Dyw1A2U0fK3RtQutiV5wVoxqDW9Xx
sCfEZsQotNy08SwCnN7qOi2shBqfg0P6sAnM5i4vqD9XQtLNZ27EGJjBUYWH
vKmWyqjn7yP5q4fMYVo5XufxlDLiqxmOiQ+zgNLMv9/mIlSQrVtwPbq0Ffab
yyHDjaoowfQC982T20DCK7xMrVoVnU/kT0+z2w7CfJ6PLPfRUW9dvcpfKRZk
mp0PnHKkI+kiIQ93ORZonr9mFu9ERy6JztlNiiywmipu6zhMRz2H56Rz6Sy4
8mnu91FPOio7d/GtnCELfmUEmwaG0FHbrT9qH+1Y0GUY35L9kI4WVN4EJ0ey
4PiZzNusQjoakYhvbI9hwXzhU7exYjr6SnaRFItjgaBsxwLjGR29Hv1dnpLM
gp08khteVNPRjYf0+ZuZLKhszXZtaaOjI3uS1e2qWLCDVkr366Ajqp1f8cWX
LOjYVj8v9pmOnjvaMfJfs2C2fDTiUC8dUY6u0+J+xwL6PY2C4RGOf+a6zqN2
Dq/LxC96nMML9H7+pYvDE9oL6lMcXrClHk83C9zDzzSdnqOjwxFkA+d+Dq/6
SqroLw4vZqQ8cpAFoX+Sj5b/oaNncfWGz0ZYIMDMUz34j7M/Kbfy2zgL0rzK
55aX6Yh8K3wLdZoF/wM2jXu/
           "]]},
         Annotation[#, "Charting`Private`Tag$19969412#1"]& ]}, {}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{None, None}, {None, None}},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      ImageSize->Medium,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
        AbsolutePointSize[6], "ScalingFunctions" -> None, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotRange->{{0, 15}, {-0.004315903040839001, 0.0007916750574253629}},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], {967.5, -116.80842387373012}, 
     ImageScaled[{0.5, 0.5}], {360, 222.49223594996212}]}, {}},
  ContentSelectable->True,
  ImageSize->{1173., 245.61684774746024`},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.681536520693145*^9, 3.681537287173709*^9, 3.681537380250864*^9, 
   3.6815374178373747`*^9, {3.681537577911104*^9, 3.681537579600646*^9}, 
   3.681537652497431*^9, 3.681537719707055*^9, 3.6815377948373013`*^9, 
   3.681537909745509*^9, 3.68153796829852*^9, 3.681538069180943*^9, 
   3.6815381687589903`*^9, 3.681538216753984*^9, 3.6815383269868927`*^9, 
   3.6815385724360027`*^9, 3.681538606704743*^9, 3.6815386487890997`*^9, 
   3.681543542888288*^9, {3.681543609026402*^9, 3.681543623579123*^9}, {
   3.681543780474798*^9, 3.681543843918947*^9}, 3.681543902102512*^9, 
   3.68154396885288*^9, 3.681544007335638*^9, 3.681544037741192*^9, 
   3.681544436309904*^9, 3.681544712202628*^9, 3.681545265671142*^9, 
   3.68154530023639*^9, 3.6815453318928137`*^9, 3.681545373434307*^9, 
   3.6815454375872927`*^9, 3.681545509367399*^9, 3.681545655255577*^9, 
   3.681545716305524*^9, {3.6815458483072853`*^9, 3.681545859958502*^9}, 
   3.6816180039454937`*^9, 3.681619886903994*^9, 3.6816207019237013`*^9, 
   3.681621001973624*^9, 3.681621196399036*^9, 3.68162141637784*^9, 
   3.681708191259355*^9, 3.68170863615205*^9, 3.6817922983465843`*^9, 
   3.681804499359982*^9, 3.6818046322844973`*^9, 3.68180467746467*^9, 
   3.6818047873356323`*^9, {3.681804854433024*^9, 3.681804870007078*^9}, 
   3.681807162749928*^9, 3.68214956447473*^9, 3.682155098981646*^9, 
   3.682232757672669*^9, 3.682238618322401*^9, 3.682238761665766*^9, 
   3.682239032283375*^9, 3.682239078994781*^9, {3.682239110187077*^9, 
   3.6822391192884398`*^9}, 3.682239170153552*^9, 3.682240725298242*^9, {
   3.682240756380303*^9, 3.6822407852229147`*^9}, 3.682240881080474*^9, {
   3.6822409658107243`*^9, 3.682240990035865*^9}, {3.682241036079357*^9, 
   3.682241067985984*^9}, 3.6822414962650127`*^9, {3.682241526324353*^9, 
   3.682241559705056*^9}, {3.6822415955343*^9, 3.682241641351512*^9}, {
   3.682241728941353*^9, 3.682241747863739*^9}, 3.68224211562044*^9, 
   3.682311946662677*^9, 3.6823131969497843`*^9, 3.68231339647248*^9, 
   3.6823138150607767`*^9, 3.6823161922480793`*^9, 3.682322139963067*^9, 
   3.682323236528697*^9, 3.682398413261333*^9, 3.683276041741309*^9, 
   3.68327878276798*^9, {3.7615473973051033`*^9, 3.7615474278108873`*^9}, 
   3.761547571705041*^9, 3.761548070920086*^9, 3.761551410800016*^9, 
   3.761551635102009*^9, 3.761552994256068*^9, 3.761553092175495*^9, 
   3.76164446233292*^9, 3.761990441488708*^9, 3.7619916302702007`*^9, 
   3.7619916933973923`*^9, 3.761991724553282*^9, 3.761991773545978*^9, 
   3.761991825398834*^9, 3.761992098029001*^9, 3.7619921892455387`*^9, 
   3.7619924896017017`*^9, 3.761992572193245*^9, 3.761992702702684*^9, 
   3.761994300559987*^9, {3.7620603573528347`*^9, 3.762060386714181*^9}, 
   3.762060438486075*^9, 3.76206562403822*^9, 3.762148459641308*^9, 
   3.762253168012924*^9, 
   3.762253978550147*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnQmcVdWR/9/Q3aAxxqiZrJOoWUwmy/wnmezJLJlEs0ycmWQymUw2NAuK
+6hxiRoVV0AFRBQRRMENN9xYZRVZBWTfd2QRkH3H9v7P99yq06ffq3vfe3Q3
MQn9+fDovu/ce8/5VZ2qOlV16px2xiVn/fa8My5p/+szTvz2RWdceFb7X198
4qkXXOQu1fxVoVDbo1Ao7D6xwO+J+1U+rJ97+LC/O/xVdV99yv9XlyxcuDC5
7LLLkrPOOiu5/PLLk6VLlxZO9t/V+L/btWvHv0IrPv9WvuCi/BQ+Jg/atWtX
0rNnz+S8885LOnTokKxdu1YeVJesX78+6dixY3Luuef6/93fct+R8bP8j9Wh
j8hzitu67wu1XP2w0bFa41oRFl9sjEXv3r2TUaNGJfv3709GjBiR3HXXXQGL
OXPmJJ07d062bdsm7W0Y+vXrl4wdOzZ54403knnz5jHcAMNtt92WLF682D9/
9uzZ/rssGKy+pDC0KWkb9+2jzYLElVdemezcudN/tWPHDghS+Lg8xb3F927T
pk3pNU8XHeOll16a7Nmzx98JBuecc04YP6xRX1/vv9u7d6//Lmv8Vg8+Yoyj
ldGrj8ioi57p+/lz6YvFZh+TZ5Xw/ceNF39UHmTxvX5n8f1HMwZsdehEeU4m
359kdCyT2k82pjEdfvPNN/1XUOXss88ufELuBfk777wz2b17t1Cv1v8Np/ET
MKnz/YVBYdQFCxYkN954YyD4TTfd5Bn9wIEDyYwZM5JOnTplEtzqjkXwGqOL
6fQ/ouSZRV3+hXTLmltK+3guWeJOSWvNc/3OmudZZLf6kpI9f55b0FiU/1/p
U5P5XWWwxe8q/Cx+/0jGwK0OnSTPyeT3EyscdcrHgdUdLzXirfbt2wfiQry+
ffv6vz4mD9y4cWNy3XXXeb6NWN3Jq+SZZ55Jzj///OTaa69NVq1aFVid4fAa
euEenyxatCiT1a3u5NEz7mIKUSmrF3VZWd0So6rSYpHpu+qBV1paglwZ3BLk
WQxu9cAioyXIPywwWIL8p9KXpkxm5WlrMisO1mTO4mmrLynB8idzpeZLEVvH
JAI2pokOky5ceOGF/i8l+LPPPpsMGjTIz3Od4tdcc02yYsWK6PF1yVVXXZUs
X77ck5jv3N+BP7t168aU98+oyenHSUb71kbfTjDa1Rr9VYa21ISOJVYJHxUQ
i1SATldLayl3W1ori7ut7ljcbWmtrKlc1OWfSbeqn8o6IGsqK3tbUzmLva0e
WBaINZVPEnpYUznl2cDWPXr0SEaPHu27PHjwYP4OYvbqq69OZs6c6enGjHVi
OJCfa4jlBvau8+J64MCByb59+5Jp06Z5Vo5NVdgcSJz28WyrbD59+nQ/3JjN
rX6dlNPe6uuJRvtao//K7paqUCMtVgtq8hapAR2qpbmUOyzNlcXuVnfydHLc
xbRdWc2l7N7Eia78bU10/c6a6Fm8b3XH4n1romeNvKjLn/TNwjRYtmxZcsUV
V3iagI+jU2Bd2PX666/3dOV/J6UDW8By8qbQntH379/fS12ke/ws6I8hp89a
smRJWEVu3rw5ueSSS/xfrXL69eGc9lZfTzLa1xr919WapWF0vLE20X7HmkNl
ZKzpdOyWptOxVKrpPmS0tzSd1c7SdDoBmjj1lcmtqa/fWVM/awJY3clbfsZd
PMF/lp36MgH8V6Oki5bQ1e5bAlZNv1iYKrUtZRDryGJloJxQqTL4UE57q68n
GO0tZfCzqI8HOwsUl3gWqJK0ZoFlv+XNghOM9tYs+GCFs8DiBUvyKC9YUkZn
fixRtL0lEWONWCwR1TCoVCKekNPe6uuJRntLIuqypznmhba35kW8DCyeF3lG
j9Uvi8/z5oU1j6x5EfNIn4h2xW6FFPfjg/gx2uRe53/4ARugS5cu0Ch96W3N
yJjKfBZjxvK6mDHzVK/VL4vR8hjTYmSLMf/WIIa1Hk7vPdb6zt+bdR1GUSG1
evXqpGvXrpETe2X09ruld7R+8skn+edGyGfrZOTIkdYyJu3UUdZX/ndr5aMg
oBThDP5q6FAqYVMR6627H/KhnL1u3TrP7e6f6xqfrf3MM6xM7Zrxlf/dMkzV
COX6mjVrMHRLsbKcfJbToY1x7Yhmvtbc7/hLe96fYp9rjGupMLNtXxUcxnf+
96zrCEAcbUyUW265xTusa9P3uVefEt7f0z//8LT4M3ren2Kf86aFZXinvPkO
6zv/e9Z11mYTJ060uh93YWXvjyYbR11Q8TCtdum11iXLv7VP/luy/rmf1DUB
1ezXpa7Gzg9OSc7qODypf/PN7KbN/ermY5q/tP5ZzO8/vQ1YuXD+xFvo2vuM
azqhrdWSTmjjO39z1vXx48cn991335/5hB46aXnyy+sGJYtXbz48od/6/bMm
9D+l/7tLp/JxnL+YTm3f8K0+od8TeqprdmudnY7iaOs7/5is6wTLarNg+DOa
yOtf3+kn8uMjFxyeyG/9/mVO5Aq08V8aVofHdmjGZvHkO/1nMLpY9G/fvt3/
pV5Oy0WcmTT578YX/1KmLyqZT/bXMqWrlap7pFy75I7RyR96veT/er/RzjKE
T25Cu/ca1w5P77fWvW/1/v0RpjcZHGI4hemdHXRohum9a/mQML0/KddkOvu/
/p9c6z9kbtLWWTevb9tTWGw8r9K51ZQ53ZR7rXaWjBB6HCdflYZcan3IhR+u
u/WqBv7yQiqHjEzzlm/yRuiIl1dUTCb/+a/lsSiN8dT6GA8/BGU6dOigWFgx
nOqx8JeqReCN+je9g6zTg5MLC8NTLGzLjTtVU0cm3bt3T+bPn69fZ/vyG/K8
T5Gn7tl3IJm9ZIOg4r61XlfpCP9ert379MzkjOsHJzv37C8saiYa61ihMYnu
Or5sB63x/FP9r7XJjEWvJb++cYjv5O69B6z2TeF1xWHGog2e18fNWJ2NQ8Ol
BpaSBfoH/H9HeJ4eOnSob2T4ojKH+y3/a+vk1Q07ks4PTfF9aXfzsOSuJ19J
9r9R31LDPvBGfXLmLcOSLo9ObTbye0nol7FOmWFG8pPtBMh8eGuYMnlg0BxP
+1/dMCR5ZPi8ZNee/a2bGYzPyrWeT83wr3ETLZ3tFYBxmv+sS7bv2ue6Nz8Z
PGFZsnzt1sRxfGFLNkaWBvGf/yJDR/IMnbgsOafzC54Xbnv45WTtpp2WJdAc
Q586f51/zcQ5ayoe+vflmrtHu+lEOZ818FOy/4BPnC68XgaGhm/+WcCc7xTP
7+9+0ffoirvG8ndqA9U0VezpePcdeCP57U1Dk66O7ysd77/5zyOdDN7orZf/
6zoqmbl4gyf3/YNm+94SUXHjLjtmi/T/KKRf//qupNuAaf55KJ/hk5fDDkdl
kb4qzfY5uYZcgdfddCrMC0+xWOl7/rPWi4pL7xzjSb1z93594VOjF/me3vn4
9IMa9ddk1K4jfn7TKeY7895NqqOzRn2QDKDjn75gve/2i6+sLiyokAG+J9cG
T1jq7x0zfVVBnYB0VyfQpoOA4SsCA/Pe2Vth3qMLnE44poVggKjtOw1Pbuk3
KRsGf+m7wgYIunY3D02uufclFHudXN67/w2/LKffW3fsfS3cFzuwrYF/2f+a
zvmr7xnnB/277qOT6QtfKxzbzKP+B7nGbG3bYbBff8yvkPjflWvPvbTE93Hu
sk1hrbZgxeteInR/fFph40EQ/4tC/I1bdzea+SgTR6HjjPuaA4ZFqzb7Vz07
bknVMFzeY6ynN3pOlVLf52d7GJas3lLYUAaGhm8+L4Pfs++N5IlRC5Pf3Dg0
FgDHhdZNkfvpkGvpruOuMf6f+32e8UjdZpmdK3l0aF9FrqRp7bQyrn1Hri15
dYunzsAxi4Lja8uOvclvnNq6se/EsghbjPY5wRoYJsxek5x/2wj/jpsemJSs
XLft3cZ91auYz8s1x1b+4QtXbi7MCU/RXYXZjoijqsl+rBrW+55L5/7GLbsL
b5Nrj41Y4Hs6bcH6wmsHAetnZUyO8ZPr+owPMsxZVaZfoCmTV9F1ssuP477n
ZhUsNv6AXKs6z/Pt1eR58mtdzBxxF74t1zAEWWR06j+5kFoxtSzlvK7AzHPc
uP4gUE8X6a2TTU5qYs609Uumocmg8UuRmlZmQVOAV0fzDqcAMQG37doXiNvp
wcn+1U6GFebmEKPqzNZ3VpPZ6n8v2jZlTQ+ly8vzUqP/pZmvOqqn19S2mTJ3
XeFgiPIZIQoGNqYh0hw27f3MTKTXB4z7mkIUJcABh4CzYRqtQa50rOWI5Fv8
tbSbPHetH97oaStNQqnwz06xfGfVKZZF+3gavDvq2OklPhg3J4QOtck+Z0+d
e+sLyVU9xzE/VoebShIC/Ds+JbDz9olOsLM2YZxIoxXrtn0gtG6KEk3BPsIr
Tx7OnO7sOJ9+8jeaae3GHYo1piwK5g+9XsrFOtstdFQ1eXtB6scbZSz2P1Wu
+dT0W0ckNz8wqfAOuabW3SvO+lxn3FuO/T8pdIg1AbSAJo42HzLuawr7v0e4
5V43u3jVRd1GMRVayeVeT8/wl3/rRJMTW0qYJ0cv9JeXrdmaKuYMwmTnXx1V
Tf5VIEy8OyWPMM5g8P0bMnFZIAz6ApPYgXpQhPmEEAYLClmETEJiP/PiYmSV
tU23KYR5t1Bgw5Zd7lWDZKkdvJdq5F/afUwQTagxpMA9A2fkUiXbk3ZUNek0
YSjxNhVLiytVHhuZGkmvbd5V0OWochIOmrUHQZWThSpoCygBRVDjqPMt2/dY
lR+qt0fVqmXFSmfdHA+b71SUPfrC/ECIOx+f7unlWKUwM7zN4gaFhlg0iyH+
UmhgNJ6Ch+lgoNFdTXjmLnbPVmnO4sqKjTeFW2MWlLVnyEbasmNPcrpjSyaM
4+Z3SVOWvLo6mW282lo7qr7bvH2Pp3L/IXPDEp84BK9Yu2lnYc1BwJUuK1qj
7Pxqpkjwfsy4rzkQu1Vc9Y55wzL46bGL/TW3RA7trrpnnNeFzi4tzKoSrrGv
rPbPm7V4Q4CLMAEQYv2Xg6vhm5MEJHw4frHuAMdAc0RkCn4stI73erb0GtiS
OZWSIeXG2gRH8xk3DPby05leuly+4PaRHjnWYcq4ztgNFmAmJWpi80xdpQ6h
EL7EzwtyDsnCqnCH2GapnXSUVQyqKmT85wlCMzx1+INQgioi3Xy1Cvdo/nRL
LrEPhmrrBp4WUa0mGTZxmTrNw1JcdX/7TsMDdTEkmcssqevffHNmFtWKrn1L
rmETY6J2dMvP4+XafAltPzFqYeFV4944lOXQMkogVYWW//yQkAWJzlB4PzoJ
iW4VTfwbuXaIVvB5VC6haCsIqsKNqACDWbl+W0GjFB3E+H123OJAbwIZXJs0
Z22hWiIi17n3+fFLw/NwF+NDYGKuziZidvrF2z2ORgGgLLAyaZvSKg3f4gyg
q8h7ZLdbZ3w6h7yH3idgJS7nU1oRJwUBc5bZqStVNXFZ/Tk5fLxcxp0LcSCS
69GMCumt/SD2OXDsokbt1Dex9NUtgQfwYqbifFUlPFAK9ts92EYhnCxEM3ng
/cIDaNc4aj3ghfmg8XfGfeV3dDbZ3eCJ7aPxugzLJ/FTY9J4nls7FjT41rFf
ytEDRswvFLfDKpkW3pFnU93Qd0JyWY+xjUh628NTvBvBifUScU/k1w1vVTZV
VTwbVVyyICpOrnm3EC1WrwyLFdr613d9OrS2yoU1t7fi4CfmZSKC127cIVSr
TTZ7D/Egnz0TJmaNZ09C3zfeP7FQ7awkCwHS8Nc/yjXIxbqtyyMvh6WWztRZ
SzYUytKvcdmVvDIqmVPvPXKTY8awpIN9YM7PGTeV32HWdA9H9cRUCuHMxDRH
yupysrMolYeHNUzBh4fN89cWrdpceKUZKLlgZbqmc3o6UJKwPNTFRqtgJhrF
UjJBy6Rmalc0zoVClRAXd9z2D8Z9StCWdI5UbyApQdXwueOxaULQ2mTrjn3p
+itWmzXJtp37/CViJZk0beT+gJIXdhnZiJJoTl7oEBQfYUPSLdeWh6cULVmM
+iqZGGXS73ihH7zz4NC5XhHyjx64a18w7qtqLd4IWzU0cUG9U67pZBk4psH4
JDlL4/bTs4DN6AEeIbRUDPHND0zyTEkAXCEmc0djciuN55VzYhwrwGUkgXyp
WYFDLWCeNHQsdQChMtxggzqGI9EX1/Uez2CnVYnd3W6dqth9Xa6hbGFy8iU0
TNf10alhRb3CeJ7t0Uiv1kFVL/Bjwf+l0PRfw2/50KiVuHj1Zl2dBcuxQ58J
/toLU1YEnlL3J/6Fl8M78khioaFLXjwSioauT/ErlUPD4qR3CCfFuWTtnWkj
IvSrzcJJCg2uCPXX6zVkt8jtwEn48FmIQyBn8E2tkpMIcpzuZleMHU5jXuPG
GQK0V0e+tuUHgd3bBbuMjLSvG/cdPHbni4tq34H64Jy4smeaBjVh1qsla2d0
c7XAaXJiDBw+UtUaCpy6xogHHwxwbxPgMLlZ+Gp2iYgvq4sWcBq9WrV+ezLy
ufsUvAbs1Ama2kmDCOIFnHTqurE1WlCQZ3B2pxeSHbv3vdwE+L4m10hpQIAS
rNGYNlKNITv+Oyj4Uq+lkQm3YL2JUx52/QbPSTp2vCkbu2HCT6Rtqh/n4m6j
g4pUPHUPiAOhkAlcI9HKq7mDNNivFT3lxRmrg99Dpy6Ke0l4Srl0Qd2TvXGL
mSr3jSpxYhWbi9MN96Vi/5VFrwWcNFn6sh4N0btuA6Z64bT6te2FKVk4ZTCY
ph8R/1fEyITjGmlKihgrN1SkWzQXlhnPs1VknSAW59dFGRnfCK2t1ADFacSU
lfk4sVeBMBF/6drh3FtHBL+g8hPeIiYOQffmwAmnwsUSetPqmc78Cpbu0jI4
WTxWI4jhOIjl2PWOF1as23aKcV9DVLIsYmprkcDlY8B3jgkG5MipK/21a3uP
D5z1uMRdySyeGF6Tp3EUJyfrCqrpyc9FkfV5dlaoIBkHkQ4Gp1aCU0ayw6nG
fXlzsSxiA0akJnz/IXOC6wBjimvOcg3yHk4n9MM/xyuTjHfmsdlzkrfIIxW+
WUs2iEpeUzhBrmkMaOuOvakAqxI+yUaIU9ckG+E7xi1NQk43UzAjFDl14LnF
UuA1zYq///nZhaphe6kUNuXELdv3BNgw1bn22MgF1cJWL7AVpwvcm4qy7xm3
5ME2ac7afNiYMKxT+Ou9chN9QIAhQnfu2RcnDSD/SXadeJDIbYyQcxIgOEs1
OYVgEboO+WftxyyR/2/4C3U+0S/OCCPi9L3QKk/uo+pMiNQvpfaWk43BjtS9
EI6zhbNwd+z1Gw0waJwsmpAFUSNTQo1elOpX5BqLCIDGINFSu5rIOGj80mib
Zo4psV8YKSNb4LQqGaksSmT48Y5hboX0frkJE1I9I+53ZSQ1wh8aOq+QiVIG
I418eWUJXuyf5NrkuWvDMRMY6HiMZZVkbfzLmYV7Bbw4lcpnEYz1WQT/0dzg
KeeyLU9tbaabqgI1N9hzhjSYvXRjYXwzIId7lefhkdBMpDHTV/l2bP2pErbd
AptGGtBcUSD/B1mwNbIqMsHSPLl6WROx7v4bucmJqdjVqFMSc/I8xwFwgTMV
Xgwv0xT9lqgWTRBWq0V37drVV4vOyyXQ5BcnZwJhWByh0fhLD0ECVfQ9sWjH
3taevhza7JIRx6F53sJb/yuLMBn87FYK+SSaKCFL9tyqydqp/+Tg71F+Zm8h
DEIG2UvGCzUhsLnrSHOeE8FD/PfdunXLJY+GX1F7X5ZrO3fv9+xGepdmqsHw
tHOS2txvWaK6dvgLaQygY/+SgPoPQ8M87YVyyiWFpm/hwFNSxElwapfrmpYo
8zjjhQe92eLgimrLUUTRWCunji5e2eui1MFgxjuIv7PKmbNN6BQHvVEGrDTd
Y39s3JI3ecpSDBsC5nJyLKxjsJUY0qipK0PiLSYifkbWpY6HXswhWguXG1ei
TZo0yQc1yxFNjRlip0o0H7vpkFZp0FRG9RDMW77J3LpZFJkzyvT7dpUmo20R
QuNMwy6LA+VuUf+T5iK05hygtHj+xd1Gh6XDirVb/bVzb30hpL4jIAhPYCw7
w3Ks8c7ymzqOqibLIoyBYCYpB2eeeSbFgj0Bfa6AVNBW08v9r4REbWnlKiWk
unUIsc4JzygKzBkF/v07Ks1A2ywYECHXQAkaDu/bTw+Cdp063ZhNO11B3+eW
kbp40ZfiXFaxOm5GqtzveuKVQh7hmivnQqcY2o3peP311+dqt4iABQ2+EQ5D
Kz8yfH4QiExP2rnlhLmRtsJEtPgnOjeh0kS0dNt5adgcm9U97mdZVG5kYELb
Lp2vyaatCls3FwNtdRF47q0jgntBvebDJi0vjAqvUdMyOx/g2KpL+3IWB9SE
qsTrL7nkklyquvVBWBEpVXVf2IxFGwJVN8qGjB5PTK+EqlmpZTFF5bgJ/3eF
qWUbhKpEozBDimqh/CKLqjlzN5e+SCL8G0mYf+lmb++CnL0myF0MbmKirMWd
pTraeGf5HSvHVl0AFgQ5pwDzh+sLFizIJbYGV50pFIhN6jswsqDUErb3DJzh
rxFItLbTFmlT49gE3y4/42yt0LI4vo8Z6l78s9Awz6hduX5bCQVd0/XP/Y9P
sk77l17TICwRKV3BapLP+bePDD4tXNEEA1mSuntGGW/PWzxbGONewNXEX4qx
W1x70dn7mZnlMa7RGvzRqyrPClsn7ZnrxXkBZxjtNX/oUC15s3etp9QwCfyT
EgI/IOuSp8YsCmdwXSr5b+zgVQJToobVP2tbZ26MrJLAS6UUAcufL8q1LdvT
8MXjIxeEJP87HpsWJpG147OIwFKTvRGBK00USze9NE5wiHLEfpVD45ZeLzcT
bTWPceuOfYG2Gkcluv0+eeTU+ev9rMKP6YTyiCppy6TkkSNfXhloO35W6oPE
k/bJqB1LkJ5PzaiEtps2bfJft9NT09Mtd5Zct/BaLeQl4dzIwfiNcctBb5do
+hrcUkAHQXHip2d2TJODdGl+iWz9w0OhFNd4QffHp5FH80IWxRv50i0693l2
Vrqzaf8bYQeKs8W9Tl+zcUe6P6qcL32lkCoj66NdDqn+CCvvJpJKtylNX5iu
DNhTpOs4ikJw7aKuo4KTn/RHrrG90XVueBapMibn2k1pGfjBE5YGouEOv/H+
VC0q0dZu3OGJxkLK2jtc4l5Lc8oa55qofmwXWmnOewsvnP2j0oKBPlmhmBCF
PEp0fywV/mOcbjpZrrENnmsz3bpNJw096S3b5N16bUh4Z14kXX2BbBnWtFWd
SLhqPyPXqBzYVrI/rN2wOQ60NJEjrWJSnNDiFFl745byBx41fVncRCWm1KG+
AuGIA/X1Dec6yqraUSnMEyfGWGf560+MWjjMeHvePLHo9LxISWf7BDphLaBG
SMSukk5LhE4ZZarOMW4pv8ugeRa7ebTatedAOVrpbtl9B+o9YBe4lYGa7Bp7
c7It0IqV3+2PvOyvPz9+6dAqaUUkWMgcaEUyNZmQJFPrPikfWhSnirVRN4dW
i4RWxSoJE2nV+u3n5dCqpdeqeZsIyok8JdQLU1aE+LoSSt36zl4Qx3ZaQ4ai
OG1TtT+kSkIRafeJGiMWhKpTXIPrez09MxRJJqULK4INQFUSaqGgTgaROpa0
cNYFRvs8WV0pejc53alZjrp7WhUGLiFFD9OTnHfQGzdj9eBmQE9d+7xGK/Di
jOAamxqtTbElqjt1RTUuexVlQJ4fGuaV+qkULMInZ0han4K1KHj74hDzfl+q
CCU4fPLyQVlgNTJJidGIOg4QYZJiyZDjohChb2AwHOSvhKfkmKRzBSJeQG2D
opTHi5qZs7Twg2b0UfhBLTM1rsj8ULBw5SkXOin4fIWcpaLDJ2gNStWXbm7D
ukGA3tB3QrimXmm2h1kb/XLm5WwBsLicFALUyeNLsgBsRF6FbdOYi3Nh07S+
h4bNE9hqg+FLhle9bq+u8wQlzcMHF56b7beNPh1ebNEwDzS15LAaPietSWrh
peSVutFbW7BycJsl/cTfEmdEIs8uNdpXwnWbXrw8Fz7d+kldHt1nrhFzdgt+
UPqEiXWv5CFhaLI94hnj/XmsxyzEUxqjqKvRlU5P69Y8ze1G0FUJYfrwzEJN
lzUzilrCtV72XBL1/4yMmUp/yCJGvf9AvQLJpNDdZBguiKqnqwQSTyt7gWIg
b+w7MRhBWq8UhoeBSM13BLM2ruVgOV2wxGKjGmdcXmnz9j1XtBCWY19Jk6Ru
f2RqsObufuqVYLOcIINzxqPvzpU9X8SIGNgEDLWut9onpDmrcan5NpSOKAeg
/2aaEDrOBtK0yStCq0rUazmkrpfdBdgifyeDIy8QjoPztu3ap2C9OGO1v8wm
Ftf8qSrBIm8C92wMlga9mKVfkNYwN1YP4G7buc/a7ZfDcOkOkdbIgpBXGWXt
XGXc0hwMF29lVKv0UZmhHftNljhlrS+pS5IY0Dpz6cksDP0lRY7pxx7bGDkE
k1ZsVL8MkTW42Rl00WbAHCtlsoCVkTrzhyywGivZW/Mhai3XNOzjaCt2VZrK
jEjgulO4KUp1foGG+uMy8wvv4IDw4jwlG0OlxptaJs7gCeks6mPEXWJtZsvh
sIkyKqteg5Mh11bLYbdeWxF8d4iXacSUlYEJdAvVVfeMC6FOInua/ozpx/ad
x7LYLAdF9hbEKC6XzBdMFUWR+DScz1bxKlGcIN2N6yVoNkiHFoIwzdxKXUGq
8rRyKO4FzeR80ckKhkU0Z87SjQOqRI8MG7g3Rk9NlDi7V7fVkNthbWwr0Qov
yWgy0iuuCw1zFYOClWETa9EIXUpc0n10MKrUb3Z25+EFzaNYtmarj9y29cbe
PL/p7pFmQIy/kZT89RVpzYKYfGEyrRyfW7u3BDQ9DCf6yoqOWr6QFwXl4iI6
ku5wo3FLRcw56sJcvB8aNjesQXQpep04JKgNqXiT20rYhevgtmr99sLDTcBb
tRXrZyQidotubdNcc7b8Vgm2Ea60wB4jYBfnI0jxm5urBPu6Tt092DvmPJAL
tnpbiGx+XqChHAYAEANzdrdGHhAG+CBgAcS9m2iFB6vEGzpqurjirabP1Pnr
Be/UB40PAwvL0XlyNuTZiVw1PtTYTgKf/mYJfFaYxDVaBh7n6fnAzJINhY5V
0+POlB7zHjLpoe/H4kQyI1jUmtEJ0aHPhIKWInUrzOClw6/I8Rn9s4jRyIaC
3YtJEFe91l3p7A1DlDENGvY6HtcY9dKoYZ2PGhZVOQtHHlZ6flwq7TLLznTK
Qr+RPVYp5kOk9iHJZZozo7aM03qCeTo1MQhPT9emfoeoG0zf8OI8eyyGXRdi
cDlqlw24OmtY0gM7qcTWtr9Gsf3a4gpjinN+7tMwGdCu6EwvjZ+42XZLaJin
PitFV0v9sn9D0Y3V58ely5yAorMMsNgfeX8WR2eAzEzQHcgKsuZpDJ20XO5N
t9vATuxQcTPO2iRYdH5nXBpMQa40AUrhziglc7txS3OIEr+GkR2TaqeqyKB6
3MelW5jveGaR6/yjkooD5T6jC3nYx1WsFHsYSg8X/We5ppvqiDlVAHxcxkuB
rzQxaai0hwWUtXAiEFnvWi3qnXvkoh6qVAlrcyyMWmtFCvUT0i0cqziaaI7n
kCnfx+hC+VNwjgntq02IS3m2nX1oiEVaDd/6pGhngbKI1UoP7JyCg5i6E7JJ
q2dSRgW9/E+lha3SEEjp4WwSdelWJWVvuO2uiiirG5TGzXg1bA3uPyRdX7Ll
9m+lW0jd0dNWFZcvvDeHstlpcMdUnQaH2iUd1kkks+6dIorvHuUTE3W+VBJ3
SApRa72lgSsE/5gbmrWbM2d1+7yAQqieqvVFyWPdW4hWuMxOl61JasPHKl3P
hshY2txjdOEQ7SvT7UgoFEi8adMmcxLotbiKlZKR3HTELh4PVeG67mZjVpU0
fFbAysgq69HMNFQENGPaiUYxSmtDrhe0rG84aiXDTLw7h4wtnO+mg4W8GMO7
d+8uNGxK0iHGxNN4EU/CSccGwG/KsLEc8Mwz7C079o4JDyo5gSaNIhUXLhrj
VV6P0Kq0CFulROnz3KyQ5azl9zR+Sv2iz8j72a6j/npUL0cI3hneqkv45kpm
08lAPXBS1eMeZ02a34pppLjrCXwULtBK1+RCEIliZNa235xJM1BYU1MDipRU
T+OW/Elzd0X0Of/2dG7u3LNP6JM6izAEub5g5et6LJS6bVlj8xW24eylG+80
etHcm7/CatfpLspblqPX/c83lP1Sej00NK24umHzrnA8g+4Npqq5tTc4h15P
CirFpZkIbTst0cu4pfxGhWawy/KSlG7pWswUbWKm8D+ajkeG3z8LqBRbSflx
GFL078LQD/jCEaoosU0dv9yRwxDNmU5H/j4mIUyBZHZWfyHPKo1rwWmKB2IB
HyznXJ0qrYlD4uZiV7VbiFjbj3P44nEBhye/WJS/tmLdtt45fNFSVl1r453l
WGLNgG8EltAKKE+OXhRkTizD/16GjCMU17zGpTDvnV6xVk4tsb2MqUCKJSl7
/L9ixYqq+UF3Qz43bokctVfrt0hhG+IscFS1Nrvm8MNjMtLiQltUU7CWzIdo
K4RlNuZVvc7kk0f/KfCJRonYm/cvAh4ygojQL1MX1WflVuxoYh5ITQlt+pA9
PuLbjG7kORKwwXkGzkil40NSXnv96zvD6aG66Z5Sp+WI6L951F8oPaRS0ln6
hIZazOCPYCNWJ+5bN6IZRTol5+1fBVHdPSSS/nNCLhJ6BoxYECq2EUbCsicP
qXOV5IorAaplwjgvcpOCcKweVo0Niy+QZZbr6ZgyFCv66mEZb6M0QkmfcUL9
AeOW8gc6NN3I9KRpdKJD5zvuySWSOiwc135TbtG6lt0fmyYxmDZeaZE1r+qG
ACB+alC+Kby0weedRw0Ck1xjl4SeIL9u005vAeOSdlQfGR6UkyTxoAynOBNR
8nGs8ENzb4+wDMe8Lce33tkrlxq+VGYHf1CVrrWKJNwXhCBYy3h19IAd7sTc
5JQHKziXN2U4jJVnUIpPifToC/M1+aOgvozR01ZK6uA8CUZVPF/6y2CpqqaZ
TfAS3ldHPytu1xJbJCybLk/EldKrLtBL63Bj250ieKp8a+cE2f4D9RoxY+pS
P5F0jFbIiULqnOQaKumGKgkW11NUgpEGqAGd78s1LXtGDpm1czuHYA8IwYor
uUkGkhXYbol9EpbRdbAE08xXyoycKu1JptFYZuoeb+N3zDGVmFJ8B7IcHL1t
5z4zA6ZSSmmSvMo/zkc8TVprwTXk6s7d+61d2DnE6ivE0iV0nMzp3vyocUtu
ZkSPe4tArA0gIorOuGGwGq/kiWn8yBm1qR/6CK8uqAR0mVSHwJ9JFf9pjuHr
33zzmipRJBuUxzgtEVAcIJoF5/6/S2sti4ZSc1LF2u9cYoXdJ1xiHb32aGiV
F3nsdndvE67l/b+WLs3un/gduYxjEPnObFq5ftvXheNYApB/reYq/jbGh/C9
ukqs4nKFihXjwuvFX1qDUX0TpI2VA6roq97CboxGTtaOUzkfr5LdsvCb1/tL
/tEzF72mRpvm1eESOFBfrx4/2I1xI4r1iG9MfnZDMWt/3wQMdRfVSjllDk/j
f0rruNDJ7KUbrd3WOTD2EhgzkjytFNTSpIJS8FJH3Kx7voCTLehupROx/ZQY
R/hyIWSr60EDdIDY2sQ5azBsfxdeVmrXKULswFOEdAEEaj8QhEhWY6MnMsL9
PjQ8KMeu6ym4FOdxsgnUSTMrFzyPvXr0Ss8JeG36/QGhhY/+p0fIjbagUWqO
DGCJyauGTVyWxpuO9Lp7ztKNfn6qRuB/fLbIDE4YtDa95PHXhFkNxfcUAd6D
BXtVz3FSV7LWn6QLUZBHDg1r62sOf6XhhjRfSAWxZnJauzvyQOzZp68HcX0E
4uR7v+tBJJPi+9Jj1nwIN2aEEw/fFBBZJmGid3nkZb/g+qUsdSHplLnrfB7x
/1UL4uxSELV+E2vwH8m1oZNSmUEp83II+m96CP/FUZxIvDVsKspTCjFgKobh
sBfvOjWZ3euLQWUNemlpCBM5ZXqKAEYqDLbx7RFgciyO5x6q/Z3fDIDBxXAY
UvK/o2u0c+MtWDt4i+odGTVsfLtKqwd2F7jj7J8o9mltgcvn1Ps98K9OuS8A
jxUG8Avu+3LQf7rKJfn8OxHqFJ7DbtYIBd1BeGLOYMVZu7nzUKcGC88hmfhk
uYa+QtJTvvXH0poduaQYYmAtX7vV2pFbBLxRYMa3q7TuXzcBPiPF09rVmgd8
3379PfBLJ9wbGR5jPPCrHvq6AJ/K2bNFzvYfMkc9AIyf9RC7PJ3GSNV4rV/f
4m0j/c+JwDOrRD8u06foj5KTFChz+j/SmqwCHPI45nfs3meN/SAq9UWFYCpN
8ky92WnAVEvzY7qRBm9Nxkop8gkZKBvXMJHH9/wO9rxaMujpM0TOjH1llYpz
lBI+a84pdSpEiYLoZtsDachuTlgld6olCk4b0j8cMxZ+Iq1nLErNeaafo721
c7jKQnv8RCVfKi20l6bEtSa2Z1WUsrRKqaVmUUOrjszqdxrUUKtJc11J0Fq6
ZqvOHA62IcmzayqelBpY9wQbkDROsvwyvDkv/zOudKhValj4qn/np9JaF7Bs
0nM4WdK4UYbc24oruPg2hv+yIf2zk6Brlc9wa+EhoWGevn34kYc9unNH3x3Q
xUwjYLD2mf8B3R/KZS04jb/RTYcU9KN8qjN1evB8YSZhxqgCwGXFoRjMSvZR
/NzoSWlqc1z8TjFWhyhGspbd1EgR9QCeDU8RC1mz06IKLP59lWZ7KroZ2TKW
pyFPpjw64JGAs6bKaoEJUBM/QTBhtRo/UVBn3/xILrPmIeyLtHcyN2XlOq/8
iGTGWFvlg/OkS4y6lsoisxnXCtUOfy6tuaa1Stxy5rlszlaFaxRY8e0qzf/s
KHgVn+KFIhrdDHS4UvQFZeaVDmoFa74p5o7KV8QZLEGOt1t6FBOBuYhHBd/9
j4yu5BFBs1ewIZUIPItrbFr5hbTGEkLNsV5w6uDZ8kQwKqf4dpVma6bO8cxs
TSsOlEeHx596ytPh5SHdRZe1lkMVBmkqldJCeR+Pvi40+w2e87MiahAOv/iO
0UoNxBAIIQ1xL5Nf8p9VUiMu8KbUYGJiZnMS1C+ldVzs091jLRJz1ps3yvCR
4whRnq6lNdz6wkp0yEP2iWcGlSDb+9k03UvKNSiy/y39J4P5jBtSse3omQ6r
ztejRNjg8pJKJAWFF5sDcx89x7zc61ai/2b0qlJ4tRwju8EAgHNMT5fWtANa
IHZQW4UBcuC9XjCwKhetWLfNygcrNUIU1MmD7wigEqyAXWFbfl4bcjqg6sLE
GyPu67ap6/wMAZWZi2eB4BG6hHNhU1Bb+9kMz3L4Ej44ioS6ufWt0J08y0TR
REwomlrWCIvxDGmNUwbdzAph6869lluoZGnfQTofFxXC6UJB1JdCqzw7Y/Cw
4R7Acc90CTpd9R/hZY27bhj2G43qhSUe7UARNB2qv4kIiq8BopLehWpwA1Mw
GSN14fmKCBzhg4zjDPOYdGNUB01hxa8EG2F0/0paM1GUfk5LW8UEcpj0WhlT
xull1gaLPBkwZHgp2noE6rQFr5lo65JOfcViRJ8lPcPMgx9hKfiTcZpoz/Lm
PYrMsbp1smupwRfXmtOiypo27JZQhd9I1/AxIBmhtHv44+FBOV7RP0j/Sw44
e9oXLrK2JOYhO3zECx7Z0U/dFlRCpLdCuxhZtRuekP3RGApO5J6rPXMreBaL
iiwZwgHZNr6zlCxF6ZIywWxg2U0A9ItGT/OY2QJa664QEPqttCZC3lbyfxzQ
T1THzFfJwDISDKyt4XmQj3txjIf8hcdvDZDfJ5mkHIdgQf6/MhAtBQbV3Zrl
QukZzMz+f0QHNZ3QBc6YqRFmxofFHIca2DcsbzZv3/NZo5N5aGOs6/pE677j
nMexz3GUZ0prPZONEqSOGaw4UA7aV8qY4hSB6OA1q4xBtWif2aDpTLR10Xv7
I2kdqbM7D6ft76RniNBXFr7mbQXqVIjoqBEG5+mwBmsa0EY7smSnaM8njZ6W
30d1dGhfRb5uGJmFikXeuBydkpcQENecCCycJa0HT0hd1WQuOPJbtStKFO4V
Al3JgXBj/IFwU0PDPJ07dcpLnpSDHu4YVJeT/r4zThuEgcSkVKv6BtnQBind
xEn7k6bPEP7Cl06kFROQpZjTfAWlJ7MHCQ2pyUNGM3IPEZ+PGt0tv3vqqGry
bJuFjkwkVjfOJi+0l9aMhXYsfh0OVhWNnGl6mVAUBGM9JLkGVjW5UjN0xrTx
JRS9SlbEFESzKKrrdt2iyBLKUfQPEUURHYgLVq6sb9BAzggXih7h+4mHt9OD
k/1iAE2FGcnEdmroA6GfeuBXC2fJVkvhuCqiHrCyQuLSXDtHWmsBEzJe3ILG
yv/IoXBajc6ucWUV8cyTwnNnTvKEfrrfTUFRx2aG5gTHhFbfgObrkCy6bde+
dP1zhPfbsFbGO0wKIqoRD7HUOlFas/hiFysBbUpto5y4BSen45V3G50+xHux
ylFdsYkWvOG4K62Ay3EK5wpeOq+Z8zv37LdqveRQPY1hNz73NIp6WiWR8wi/
ZN4UT/inHmggvPo53SreJLy6IW59OA26olC37NiTus3aePsS+UvAGBWMVYMw
OO+2Ee4mmeFOv8AI7B/geyQUcU8WfNt27jvG6HFzHwGWSd66WALGRNX87vi0
r/MFC6LXEBq/hVvl9gsPylkqXCSkzEgssY5oKL93qPlskbz8vRULp3q2efy+
GwLbMP/VarPYpq08tat482Cbzdv2dPGX01w0bGTqupDCzDoa0UJhBoeMco5m
H2MJoBvIOeMWCsM5zmljdLr8NrRjqskm9r8TxOXEoHZa8T5DKLBEh8Fj/lED
jZOqLhBQqA1IW0ShU3MPGY8sMdp0dUFg2CikNjc01FI8LWnx5HHLxlWzPLcM
6HN9sHi0wiT7VVsb3KLOOC0pT5DIDaqHcAtjRrvg9UL0MWeIfSFUnTisk+wy
vIxomJFTV5o9LL8h7Ziqk5enT5/urYhyrBEXv/ygjBYhheWDPne/XyiXEaUM
g3WWW8lbadg5KuMCea11cKB1Vugh2ntULRdtXjPbc9HDvToELkKHMBxymywu
UickoRPaAaJr21u4CFW1xhkaIEO6AQYZqgrSTFuwPo9jsuMYR1WTPR1cY6Tj
SKDKRCGba2p8uq6mU10kTyCKw8qIxf+yNVutXRY5LJPW12/t93vEO+TFyrDO
zT5EJ8JUyzX7Ny/wXPNgz2tLDjvkDCZVGDHXqI9Vy3QgmN0UrLQqX0wqljcx
qUhkZym2a8/+wsXyGtIHaYtqc8Z8v+pIdY6QiqQoPWcpystaYtzS3FucMmnS
aIuTUuKBuxsooVWeKI5iUeLX8izNBZCIUf/wcMu2VfwRDlrLVLmTZUVbn2U4
u/A7eTiuXzYPQOahE5dZm8Jy8G8v+GekZy3Lwb+lDJLWxjuL58P9d10TVikU
GsJyo3K21iSPqaD+cOys0yXdwhmslpGSNx/i2rJKD61wjzdYF7Scz0q6trzG
l4jvWx1RzpJHFdfg4zi0FTkUaSk7oBKK9Ol+daCIRrw5ms+iiDrOOchB804d
tJl1Ff0liw66liYYjAxyS8rC5QIGXmucajycKkZs6O0dnlZSQ8S/UiL2PL4o
+2p5aKjmaEuq0LxNzAp4bwf4hwRIxkoECoPRiTUL83byYIIh7WQHLEEuquFa
MjtvKpDnrQVElQQaPMWxdoW0Rs5SWK1tGrZkaWDW+io6ug+hwNftio7uq7CC
q0Y8Y5XC4pSt2u7aauOWPB+D4n1P16vCGkiLU1JMXk8qicE+UwDACaVGHtmo
HJFgCeg8sONqrXoCEsAiEJgLjjmvlMtkbmiJ9llLNlhlGoqgjiss1MhrK83s
/ZXgnFHhb81B4tyz65UBZ82tY1Fu4ayCkg1inR+cHDLpYMJKyyhm41zj3bY+
AjhuiWyRSisegzuqBMcPgRerUErZTN66kMkb1y/Qcn95Rz/Gr9FMCZaSqitI
VqD20bosEjRykyvwd9/++2DojZmWrm9v6DsxHKUWA3+2cBwpdG3FshkwYn5D
NYE8y4bINyu4GGl8JViW23ftkyB0nfcsdRL3LHs6sDqtImVVpudGlQf83xWm
57b1n5kpXeuzsC7D7nfd1oC6ioqV67eZqJ8jwMxcsiHoTXyQFHyz5Goeu8el
WbXspO4ZpQj1tdIaRzgLy7aSRkjfrDpORcWgo3oB+Xm5PxNYY2kdlSBaGxrm
xe4UzB4OTLXNmBAyGcIBpzGY58oASUfTMvD8z952S3JWCyY8wmAoA5pmBNX6
rQfwDEvbl2a+apVqK8Ix2vNvGc8WoyqimsJ1XuMUrk3GLZUwao9brwjYag4o
Bc4sbM9T5nHU1tgo8nLY5OUFqyRkqZXHuTawG3+psmKl01ZqlN8gb1j/+s6w
gwFrDxnRPTxNrLx4L0vRxnz//kpTa38qLy1OrUXdbD5IWO90sKoNRdxB7E4n
s0phVVcYcQlNHAcobDhLMOaxbFzeVAH2ZZjdc9kBfaO0xsmklchoP3/F6wWr
WlpRAq2xpd63qzSBNs0CalxJLkrx2lIV2rUx2oRzVetoNJhTNSzALxQQ2HCo
u4mYvxzpaQnBcoAj4PnrPXKNxA3sFQpQ3SKtcYdhSjFfELykzVnVyHLWjz8W
8IrLusnxc9uaAJ6bgyrgVsiRIA6YwtEGeP8nA0IIqHGGMTdwzOKCJfnywMOP
rjUjFTw95gRiaNI7GSAa0cU7AydbpXFLohE/EsjQUiTOad4rK3knNLeFhsVV
JBvDs2Dl6wrPVZJBiPPegudi6TJ7bVi76SJ/m7OAGiRYnh11rxwChAWqkWbO
ztHoXudoTERt0EZoHuLZTjl0qY6p/kueVlwDTDKndjaBqSbMelVFUMxU7zBQ
0/Uxy1gt+wgGzGBLLOUxlSYwsC1V8dOCD4i526Q1sx+bVVMU8PZY9ctzwPuB
gBdX4fIZSmN9htLuJoDn7E8FT5NWKXdrgacuKkLCzESdJbv2HDBFTB54ujcf
e/Cv5Ro2HLOUwtBdZMSsDtFXekQWAtxdu7U6/P5DnqZ5qbBxlA+0twn4PTp8
vkqUwHydhxc0iB/jd5kggJ4mMqExmbGvrDKlTKlZo5sSnSEYUNOzCjGmuskb
cPRqeiKWBmcbdgxPy4nKnyZAZWST7m8CUE57KFAxo1lAqQOIxFNlNIbBgSuW
2MljND15in0P75JuYZSgI7H83Ejv0EE7i5dUBrgDoYDucxxjHVuSw2vfl6cV
56gQ5HYvO9AECLs+OlUFjQ4LW++dBoS/FxBop56V070Xa74pfPIg1BOvnxy9
UCCsSYZJwYIJs9YUekhrQtJawkNPDb2lDHj+m+8JZKzYjTpOB0LD7EVcY6Dc
qlaBinnNAuoq6Tw+OXXvs44jPmxJmTygWOyenhpKheO1Wwfqvd1GVrkTXHcp
ryXpBNOyJmT7uVl7U3W89h15WlyFJJJriXFLsQOnMXDO6lC5EnPYsQZwV8u7
N7sFsBormnm7Z9+BW8J7LO7WkADDx7vOX+qA0aNl2Bt5j7TGFB0g27XS+N58
rlk1yXLg+rZQKz02bnSQK87sKvgWVj3lSienI7BCp+vbMdNWmdBdI/1whouP
e6oioNigJW0snlMEUcDqDTtWukU2EZOe1FIn1O6VG9ZG8WwkEht1HEta5cJy
QDxFnpZReSRJ6X5wOPa47fd0XIVMzILKHTGOupGHJYI3i0RXMHanDistMahQ
4iRELzdAWeNzwFXjWlW4fJ1299111YH4TXkxJg9FuRvqiXi+9o2sKE4lIN7d
5Uq4SkG8VM5HxMqwQOwgXUFeaERaR+YsFevEugbDRKFjJxJSm9WmSlmkOeYc
Zevul5cgqFAdqpJQkEte3XJ1eGBJYO0bcmdGhLkBqYoVRK9uV4H38fIl6UWi
sQp6LcbnBukADkGV1pq3vHOPZPxWzmRPjWmoY6lIPSyVelk19Is4g334cdFW
N16r0loOn6X8UhoKRrv5Fkdm3pQP4v09ruFhCph6N5CkFog3yaiGOdmuRWsw
R3AZOQ1pzZ48ELU6yrI1W4MBiTOEKcTS9SFpDU+z9wylzBTjd2elXFkdiP8k
T0tjuyUnZvhGbzPuy8axLuD4cK8O6SLSLdtV5qhFT3agzuIYzFSutfFij8Ty
M2T5T20UnzJQXy8qpvG7y+/lOT60r7b2fqV5tUpBzdpi1aIUTEW4Lzooh4Cm
OkuvM07Mww1bdllHf+dQ8OvytOKY7kNpTNc3ertxX7Gx1EC3gf1u8v3nYJz0
xWnRINapqCHXR4t0miaOVQjvq+eG2/AnEIq5MrxUj/zIDqkeW3VR/EpTWpVQ
GtSJnQJcQyZh5z4mrTEHyPeKCeWmpHXefQ6hvipPywgK+0bvMO6rZKoNf6yz
f5aTQUHy3iu1bboOmBYW1DG9Ogu9KIdAMSF1m0OvBwbP8bU/LGmiUy07DHts
NemiWddzKUdFAfpKMcijhUURVqzl8YVv2bH3CbmB7ewo1LbiDuv51Ayu/a4M
8fw3X5GhxlENf+Ln4g2FBnr5ppr7cqgEUHZqZANXTBrUTXOtRBDVerXh+diJ
CUd5izFuE8ZwctvvUdOlo0dv4Cs+XcgSUsoY2Yd6HltNRmjW9VzGYHKlMdJZ
wbWsJww+O25JOIYHP5XW3msraVDzlm+6uAxXFH31JXlaceB7qDMFVHsea9xX
/kSQ5hF+eUyyd91kzySLX7g+FUPOtlBtpWteppc6G2IO6SIcsmvPAa/BVEvD
KewCQeNb0rH8Vp9jq8lPzbqejtGfNHtqZHhrJaeoR/6n0un1BaF2xtl1vtHx
xn1K7ZYWmHnU3r1iaFqEdcT5nlKX3zU2qDw9/od9XOrGjKndTaiNYsdtqfkV
2ALEWFdv2F6wxGn57TnHVp0Naz3Lkgeac4zUZuXHXxqO7yNFbDi3+XlpTWoq
LjmtC8ReDQJDWXU+i46uLGapSidjen58aU0ZYFWb4K+N+5SlWlrUWn1upX2u
35/sXJxWX9o44pyk/Y1PJBd1fvropH7vVizGvVuT8zsOTM68/vFk/uLl7/GX
a5LXBv8iefWhryT7Ns0tdPefNcmejXOS554fnFzVsbd7+mU393LXOvbon0yd
PNa3OEfa7V43Jdm19PnkjV0bDnLTT/UnFljPymM4FAlLaf7ShRMV0dqmWRiF
IdIaq4vEUD0/gpUjngbq0p2bzXDZOXO1japfRmZ9paLic9KeKKbG9DSFw7d4
j3FT+R0HzSPRa8OwTolXD8151IH1rDxKs6kZqpJXk7oa0oLkRF7apwczplH5
I7xpyr4dmENzApni5N27W9qXp3dp5l5to8y9iN6VzmM91qv4+COOWmAc/LzX
uK/8JofmEevZsqeNkwfzko0vtPeyZ+0T306evff85MEuZyXrx9/sxPyWKZ3c
3ctGdvDXHu7WPtk0qeN7/eUaJ3y+lKzs8/Hk1Ye/WujpP2uSFf2/kszv/flk
zj3/4F7BZ02yoPcXkpXuOi3aSbvV/f7e3Xty8vpLV5vds/w6yi7sfU99latD
wq4eYzVm+io54r6N35nF5gk9i4mADeEBjrqyqu+W0UT5J79/WniA4DGFxIrS
Yfxd7w6tdY3T0vI125BpHQyZTaMuTHo9PUNjEamobXwexrgZr2rGSWzOaEYy
wR1W9W69Gw4toEYlIXl8FZUWmlYCM2fIynaTXLZ2NFTQxf3uaDDaXz7Cw83h
gZos0lbkAVEz9xirnm9Rdnq8K0gnfqWTSIleHAinbBCRXX7+xrivJc6XqTTp
rYH8admsTWMuhr6+346IqmnZKexj+r3Hh/zpmPZ9hGJo3otk2Kl7cbAXzivW
bi1Y0tiiu24l0UKOlOlsLXRn7jBxiY7u3L1/nLyWVSerBZ3bWJtk87LL9Vfl
iR5vPFKiVzp/9GjkjBwl//NB475s71Pr4GfYMe8hvxQUw1mV4SuS0YFDyZk7
Fj36yjVsXfB3y6kwF8EPAYm7oV0WTfwlpYQuZCbOWSNx6zQfgupjLE3nL980
QUi3110ma4GYvjq+KJb+9NjFKMRfhGfL2lEFSbwVSfcjVMrDeiB8XIspStz0
jU5oAgn4wfvghqryBxmnyzVnx2k2bUwC3XSD5KRGi0MhkIAVHgFfJ6sKlRYZ
V2L4U4adOiGBs1a6QxIB9R0kaWWK3IAF8uy4JeGQDICBZrhRNm/fYxV7znHK
fFygKS7Uh43jnuYbnWTclw1zmxKYNWlzwqxXw5wHwAskiNbnuVkqQWOsdRsf
+zIppXpmx2EBa0QQCeFEDc6oEGu1I3Dfono4DaaVdIfTWnWLyCPD508XrCm9
SHkNTdICawQ/SWvbd+373zJY+29O9hfsAkUN8DYELaMoQymUM0VKxPUiOoiA
wkuhQinGUTds45dljLEKh+cQJYTrfh7ebhH3SPmkxKRu08YxjwFAcRKYhsAF
BRJnSFs4mGgpSzU9KBsfEL1AqRD6/HF1/PpR4dc4qapYMlvlzipJoedUopD4
ITvGtuzYEyakHr8GNxyor7ew1jJzEJu8u1hEs2jt2G8ykj4UUy/Hs2+T4SLy
lXlUF748b91cARr3KZFdwprqlGkrfEYVGQov/Vd1QH9Y3pxRlsc3OrkZgH5S
jnNke43qCI59uKzHmOAhdn+HrXwx2k8IYRAm7DTDdxVqeNakpcHdbKVebqV1
2Y+SR1IRmfxtgHdsvFAuAzSb+RAKTnzpoQasYgEGe8FNgP8wHpwD9YkCdV7y
1ieM+yqFOr12RNgWhsmP01pjjth2ziI5wUBYqz4zvSgJ0iA7aj1H8BgkgNNf
lRZd3yhQMlvBi0xpp0b1qXSOgCjmiTMSv288IQfKE4SD/ClS4izyiV0rJLHL
Km1ZHY6tvfUWJ7rBZ/2HzFE1GeOndfrZaUeeCIec1UTLJ/QaUe4fZIHnL6W7
VN7mIyeoeZ6khoqeuAX7UULDceip4cacBN8PymDi7C0EW5y99SnjvkrB0qSl
fQfqfWwsCTKlMUJ6eA0pXsTLXB8EoVoPLIWvn3PmjgP9tAo5bLtwGGLKCcn0
2AY9MaDWay8OJWHDxIbNu04pw2H+mw8E0henaTXkDXwqtK5ki2F8BF6MxzDp
PFu+B45Z7C1K9yaFBDuf4BnJSk7sfbdCSHbLU8miQPMyfqfiFBI0KJMO4jtI
rGrdOZPufQJOcayedbxmZv2/LFaKzJ3y4IyUYeAjRjqyJdFJSh0GChshx1ez
l2zMr+CesmSd77Uzf3w+FrYdJTi13r7iQmVmKiSxQ8Yqrp0DznvlNVhfKjQa
RcWt+saVTjILozGCEQEoWByTI1RZrvNLO+I1YERZWpw3lVZnr5exsFjArkPm
NLZy6jzxWbUQD8JWJBHwy9VB9m7hp4wDjHyjz1WJ2t71L3vUtk7taqL2kqCG
bEcHc+CaExSKGpwFszFvqNnGMvsfjddZqPlPNW1YSsMKbNhJqyANC9BhXgEn
WYCoP8pcfL466N4l0FmnE6mcsh6ZB13kRDShmyTQIbFYE8NwZ3ceXiuTkiIh
V/d6yXsnlq7Z+pVqUGstqLGQwOLn8SQiXHLH6IKSBrLAcKxeCRuwC8uSNiUy
/TjBysrA13Di50PrPJleDqGpMgymJLU1ursVKKWWmDfxvMQiYLHMMYubMojf
YBX4v4+SR2OmsymIMikMgCJG+mhEYrcBKUK0cev69NSpcjbCsfJwdLO6wRoF
uayJ3RRWmimsxLYl6vZLQehaGQhpOMguKp4zSSmDYpE6k5+OiUjOjm8KhzPb
kPvtbh6qlegRNqxRiSTAGYh+J3isdWXOXNSX4cHSHdG4V3DeaMjImg2lanHX
kmdzYZsrdCJkgYeAXFB0DcKlVsaEFIDD8ZyzTkcIuT40TAeLbv5TZUq9nPxB
hVqQASFnrWkBcswhTG1Sxlhz4s3XgvIfMp6dg9zR8sZ0QbQ0OKVAUQMtX6uS
9TT4noXhInknc5TVO3sbsav9YqzDIGVB/AIsTXEiwYLs4bT4IpMF3y/vYS/V
LLcqIIDIuIAu2HltvHuFuDJoYv7SJYJdqFMrzpiD5tuFO1gTaQCdRwcHlKXI
mgLlCnkhVhWzmOUKMgjLStlRCq15U4hN2eSDOywtRsmE8gT/axtvE8CY6ExS
jaDN5T3GRuK1TTh7B5uU4544DJLlEtriOOMFJdpCPTEYtF0eaajrxYN0vfT1
0DpPW5SDb428CX1KNh6pqXAipn8oAZyeUAKXIBBRuexbYx8ReyOt5INMGD8W
wYikY8kEy+FMYts6m2607jBrJ4odcLIvMgDDGEuQmvTufiv5PYczj5CRakBV
c8RIFlBr5atyH17gYiSbi2E3Rogj7/HuYADCtG4NWqeIOwEOAIQ+EH5YNCCO
qn6n8fpMxD8tiONkomIzNgHWGoVHROaEiYJdgK1A7IU4CHa7e7G1J0iQTueQ
nVxrRVraSHvkA5sTfXSz70Qv2pZJeyQxPnIyvFr5zxoviTHROeOtRj5R3FgL
1FKo9Z81XgzgMyND3h+EVUj3L5PPwYGerfxnes44O9HcP/dX+skWQJSJ++fu
5bPGm844jdy/Qo18kgNAbJCClq38Z7qLgHBjGlPhMy2egThy/wq+Zr+7RvAE
eej+FWrkk+AKXm33zz3vYm9uMttJVWnvTav0U89YT5VD6teBYi3FqduEYuww
QIMTgWOJhJeA/iHy6mSuImLxOcPFWG/ggQk4feFrzKYjjG4UGZdpwt3bvHGJ
qw4+xXqBD3G+szzWbFavu5LGNqVyYqUJfnVhHu73ik9l7Lh0x7TfgNVauG9r
xH2thPtQAsp9NfJJv4u5DwQOlvswsIu5D3lRzH30v5j78LMVcx8mbmPuq/NK
Ubgv/ddttEMl5Tgtbw6Nv6bRMEcD5cxW0g7clINrhYPh6mJOR95on1pJn+hn
cd9xoukYa+QT7xczyskms9RkUzh9r3A6/kO8p/jC6BNLSZZ8eKJbB78P3rjB
fuY53VFpspH/VP2C9lvoJBXcUIFwrS6luLVPIF8y5fHk4ttTty1wOhWXOn9q
Y/nKvzphaNYoxQzNtFeGbqUMvWB9YOga+cR0UIZuZTB0jXzivleGbiUMjYWk
xK4VYmOlNWKKOoODWwlXYc0q99Xop9NixVyquR0xN0PF4nZQvJibMef0vbXy
Xvqi3FxjcHMr4WZmZ/EAGbQCUes/67yuEcDSf+OXuqspmFh+CnqtgI7tVCxt
5jmCFRMRwhZLrw1bdgUdWytSTq0guKQyF2q5eeXv+yv/65HeHYwFgyWDDwU1
QhBAhbozPdOgXP4K0bJ2i+ZLpXmWur104b2f8cPg34reH3snvxzFbwm/fZyP
5pY4vrW1p+yPffRZpRjnZy+mj06W3fsJUCh4HL/lf02/4MFpsyauX8rieKiP
HKsUv0pTApVHdy58Itky+eZk/6a5Sf2e149LDmxfhSbZ9Rrp+z6F/xhJ5E/e
fKNxd040nvtWOdaGa0rgNMTfOm7nf4TgluvDygqwVn9NaWe5QMpvtWyZ8878
ZwXsVWnyof/8d+OL8hvhWvYAm5gvrBOGrBWF1S69lslTllxv+uv+tO493D97
rpXfNdsyp9tZ06Ip8qu5ZWSOS1jFT6WJt/4zT/y0pHw9LH7eEvce7l+++Dk0
py9aRcjeSkLnXaGnOTFk/5knTlpSlB8WJ2+Jew/3L1+cHMojObMjQG8NnN7q
vHJ4bJW3s3i+JLDuL38//KnbZlv8VL7S/fGH8vjTw9Pw8NgO1djKTcNqLbaW
Ulf+wvnykhY/Wbak4pGFhTVNra04f6xr7zOutfQpjkn4WV0dcJXya1OuNfc7
/tKe96fYZ0u+lS+/0HQxkoSfVf7vwxPhz+h5f4p9zoxONfyk3uDI/D7Mn3+a
z/vT6HNtfI2fmuILicbCU570VtkPsxslxs89h78q/arwV/8fg3OSKw==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"kappa", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ReIm", "[", 
  RowBox[{"Eigenvalues", "[", 
   RowBox[{"JP", "-", 
    RowBox[{"kappa", " ", "JM"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MaximalBy", "[", 
  RowBox[{
   RowBox[{"ReIm", "[", 
    RowBox[{"Eigenvalues", "[", 
     RowBox[{"JP", "-", 
      RowBox[{"kappa", " ", "JM"}]}], "]"}], "]"}], ",", "First"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.761991040922905*^9, 3.761991065112471*^9}, {
  3.761991096609634*^9, 3.761991100495804*^9}, {3.761991157063843*^9, 
  3.761991170857163*^9}, {3.761991366624099*^9, 3.761991380624157*^9}, {
  3.762253465567638*^9, 3.7622534702623253`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.11605860030484527`"}], ",", "0.2614333724921406`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.11605860030484527`"}], ",", 
     RowBox[{"-", "0.2614333724921406`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.0036915725097631854`"}], ",", "0.010715508365661644`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.0036915725097631854`"}], ",", 
     RowBox[{"-", "0.010715508365661644`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.0087202151133748`"}], ",", "0.`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.7619910667569923`*^9, 3.761991100915234*^9, {3.76199116347327*^9, 
   3.761991171489608*^9}, 3.761991381194742*^9, 3.761992492452376*^9, 
   3.761992576231246*^9, 3.761992705668701*^9, 3.761994303006123*^9, {
   3.762060362461321*^9, 3.762060391549408*^9}, 3.762060441172669*^9, 
   3.762065626538731*^9, 3.762148462237144*^9, 3.762253978587243*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.0036915725097631854`"}], ",", "0.010715508365661644`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.0036915725097631854`"}], ",", 
     RowBox[{"-", "0.010715508365661644`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7619910667569923`*^9, 3.761991100915234*^9, {3.76199116347327*^9, 
   3.761991171489608*^9}, 3.761991381194742*^9, 3.761992492452376*^9, 
   3.761992576231246*^9, 3.761992705668701*^9, 3.761994303006123*^9, {
   3.762060362461321*^9, 3.762060391549408*^9}, 3.762060441172669*^9, 
   3.762065626538731*^9, 3.762148462237144*^9, 3.7622539785885763`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Load4SpeciesParameters", "[", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"phi", "[", 
   RowBox[{"[", "4", "]"}], "]"}], "=", "0.5"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CalculateReCoMSF", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MSFPlot1", "=", 
  RowBox[{"PlotCoReMSF", "[", 
   RowBox[{"RePoints", ",", "CoPoints"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.761992109563279*^9, 3.7619921121233683`*^9}, {
   3.761992200745326*^9, 3.7619922639383297`*^9}, {3.761992420282627*^9, 
   3.76199244258537*^9}, {3.7619925981775084`*^9, 3.761992607505473*^9}, {
   3.761992788234941*^9, 3.761992868345964*^9}, {3.761993859476894*^9, 
   3.761993886172571*^9}, 3.7619940127400637`*^9, {3.761994064038774*^9, 
   3.7619941318674107`*^9}, {3.761994167083473*^9, 3.7619941881795*^9}, {
   3.7619942231003723`*^9, 3.761994257403677*^9}, {3.7620606701059237`*^9, 
   3.762060690442387*^9}, {3.762060807731206*^9, 3.7620608091714163`*^9}, {
   3.762060977523003*^9, 3.762060983474895*^9}, {3.7620626232610617`*^9, 
   3.762062627516267*^9}}],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{{3.761994168047097*^9, 3.761994189069207*^9}, {
   3.76199422610209*^9, 3.761994258289789*^9}, {3.761994289216874*^9, 
   3.7619943035456553`*^9}, {3.762060362628807*^9, 3.76206039197318*^9}, 
   3.762060441794022*^9, 3.762060691969887*^9, 3.7620607297050858`*^9, 
   3.7620608105878887`*^9, 3.7620609228346977`*^9, {3.7620609635593033`*^9, 
   3.7620609843266907`*^9}, 3.762061145109586*^9, 3.762061211538187*^9, 
   3.762062196852148*^9, 3.762063131289168*^9, 3.762065627099421*^9, 
   3.762148462856517*^9, 3.762253979333889*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwd2nVYk10YwGERg5Tu2lizzUARROB56I5RY4GCgIpYiN2K3YqtYIuN+WEf
RRFRUREVAwM7wO7iG8/+8do1OO/e8zs3Ds7h9huWmNO2TZs2B9u1adP671nF
UdeZbzviZoHxkFGyfHarpfXREYtf/LFet2g4e703vHG8tQFuVTkmvOQMZ381
iyu+ig2wW07+gj5LhjELo/otw/0NsMVRNLDNj6FM0DqcwgBnH/s9rnr4UNar
f+vDABPUksSgb0NYrPU+3YAGeKWnxfG1M4ewTN1o2sUGWBtkmvbGeQgbNdxf
N6IBFlwa+bfu+GA2t3W4owYo35F9PqnPYFZ8pfVhgB+fPDXZ3GEwOzC+dUDd
63pdiriH8lilbrSKrwYY1knvdlJWHrt7W/f2jAzx0qx24bW2eax5hm44V0N0
Vzs3BNcMYnrdWx+GGN/WW541axCzaWwd0BArrPes/xg4iElab1driLssDngf
b8ll/q1vb7ghmtX+tV/McpmidbiZhnj06DBJxLRclrOm9WGILX41goqQXDau
dfr2GWL+9J53HhjmsoWtt1thiD9WXho75fpAtqn17dUbYumj4bJFqweyI9TD
ELu2tVv3OXMgq6Yehvikut/qdbKB7AH1MMKM0E73C34MYB+phxFWKDqeyasc
wNpTDyMUuFvZjSwawByohxEqevb4PrnfACanHkZ45OGwNVM8B7BA6mGEj43u
+gzSH8BSqIcRysT/vnW/1Z/lUg8jdBbon79R2p9Noh5G+MuiLtJ/Qn+2lHoY
4Zbd7+8Oiu/PtlEPI+y3b3x6Er8/O0Y9jLBITxj+/mcOq6EexthnX+Us7+s5
rJF6GKPti8jJgtIc9tWztYcxqud++H5wcg4zpB7GmCma6XIvNYe5UA9jtD+x
YPiKLjmsG/Uwxi2FcO6RQQ4LpR7GeGazt+fhJ9lMRT2McfSV066dTmWzIdTD
GCUZOySvV2WzadTDGLtuKe0cWJDNVlAPYwwHa7SMz2Y7qYcx1p4335ImzWan
qIcxCmYYXDE3yGa11MME762boPF+nsWeUw8TLGk2d6quyGI/DVt7mOCF9y9+
VWzMYqbUwwT3/3A2c5+SxbjUwwQ9Zy5e+DQ9i3lRD9142RWX2/lnsUjqYYIm
pV/8Cp2zWDr1MMEkvnq49k8/lk89TLA5YYzZooZ+bCb1MMF+/usbbE71Y2uo
hwmavZhw4GNxP7aXepjgqzEPJrlN6cfOUg9THCzMCSvO6MduUQ9T/HZ2BC83
qB97TT1McZCBNU7j92N/H7cOaIpXvA3vPu3Qj1lQD1P8mXKv9+LXmUxAPUxx
4q3fldOuZLJe1MMUrYfpPTtWlsliqYcpFus9NO9ZlMkyqYcpSud1ufVldCYb
RT1M0bH3ygtf1JlsLvUwRZ8vNrN7QCYrph6m6NB92vmDvEx2gHqYYvKPJu+h
Bpmsknp0wg/1sm05zRnsLvXohDOOpN5bdSODNVOPTnijOLZM/2gG06MeutcD
ktrvKM5gNtSjE5bO2HChsDCDSahHJ7zS4d/zFbkZzJ96dMITF4b3eRCfwRTU
oxN++l7vqeqZwXKoRydcN75kiIFLBhtHPTqh+uQgzhv9DLaQenTCfhmlVb9u
9WWbqEcnvBTefd/0rX3ZEephhpb5lTCooC+rph5m+N+gr3VlQX3ZA+phhhZi
2VWFZV/2kXqY4SyLrsVxT/qw9tTDDA8d+O/41oN9mAP1MMOkE793JRb2YXLq
YYa9O6X/SU3uwwKphxluyvwdtl/Qh6VQDzNsmdRXlv49neVSDzPcPYun1Fan
s0nUwwy3KzaO37MunS2lHmYYOqokMWZoOttGPcxwwG2jLb6B6ewB3Y85birZ
5z3aOp29pD7m+CHizdO/L7XsI92fOV67WDD9+gkt+029zHHmALuvTYu1rD39
fDbHHsMm8BOztcyMfr6Z48n4Fy3/fLTMgX4+mOM3v46TPplqGY96muNZ47Or
pE81TE7zYY5Z8d8VO49qmDf1Nce3E9IPDVqkYYE0P+bY3D6iemi2hkVTb3Os
zpyy/bCvhqXQfJnj+XrrrN4WGtaX+puj+1cf57av1CyX5k/3fndafenI1KyA
1oPu+l+LLWJWqtkkmk9zfNJm0saaIWo2m9aHOZZvfXh9fqiaLaX5NcdV4cr6
mS5qto7Wizlu/nem6fhXFdtG822OgW+c4jyuqlgZrR9zzD0+zK9uu4odo/k3
x8cJ+/4cnqJi52g9maNzwar6q2kqVkM9dO9nWrEDx1PF6qmHBW7nX7bcYaxi
jdTDAhNf77Tt/zyNvaUeFni/SjJRxdLYV+phgaPHzy2etiaNtdD6s0DVTrjz
oCCNGVIPC5z97NmCIXFpzIp6WODrJFe3rpI05kI9dOML537lt0tjIuphgX4H
to+LfqRk3aiHBeZ1r7bbclzJelMPC7QP0QPpSiULpR4WuOSmcebTfCWLpx4W
OKwaP12KVTIV9bDADV2n5zZKlCyLeljglbdSFHZQsiHUwwJvv9f/tPpJKhtD
PSywqK30rw9LZdOohwXCG9Mn7densvnUwwK5Lkpey9hUtoJ66MZ7+DiUn5rK
NlAPC3xaVXp9ZPdUtpN6WKDz2VMxH8xT2SHqYYFfU/1DV75LYaeohwV+H+Uf
3v9KCquiHhZYMbOyse+uFFZLPSwRH5/dNn1OCrtPPSzx2Kofgqv9U9hz6mGJ
I9b9+xYYmsLeUw9L/C2Wlz3gpbCf1MMSb85b9WJj2xSmTz0ssZqj5z2/MZmZ
Ug9L/O9UXe/1Z5KZHfWwxJm+tsvqNiQzLvWwRDd11p2uU5KZlHpY4pGXj/cd
6pPMvKiHJRbZe5drApIZUA9LHC+es1zsmswiqYclzvIe+NbhXxJLoh6W+Cbl
VmaXh0ksnXpY4t0bXTYMPJ3EBlAP3fcf84ypLEli+dTDEqdNb7IMnZLEJlAP
SzzZUl7ysm8Sm0k9dO8312v9Hkxii6mHJZbsDD5WxE1ia6iHJT6+9HPr+rZJ
bAv1sMQzRRvNqp4msr3UwxJPpO7ZZVmZyMqph278+/+Jp2xPZGephyUunDbO
32ROIrtMPazQZmRV8bHcRHaLeljhdac5LbOiE9kj6mGFplsOOIyUJ7LX1MMK
d24J3jrVLJF9ph5WuOlrYNqejwr2l/6/scJOm8ref6tTsI7Uwwp/NM8VZPyn
YBbUwwr7Fp078nK1gjlRDysc1hHTF05QMAH1sEL1s6t3E/ooWBfqYYUZY0Rv
ugUqWC/qYYWvM5/FduUrWDD1sMKriimV0R0VLJZ6WGHpwxjLGW8SmJJ6WOHY
iWO/3alJYJnUwwo3TmnjFXUggeVRDyuMDDq4tH55AhtFPaxwtEZYO3VsAptC
Pazw7ruTR0O1CWwu9bDCDpZrOwkxgRVRDyvcFbJ5DZefwIqphxX6643h+hgk
sFLqYYWO51403LgTzw5QDyv8WKIoGrQpnp2gHlZYUVr+s+egeFZJPazRtFFv
m3f3eHaNeljjJKcC6eA/cewu9bDG7Z838W9WxrGn1MMaH30YIRm2OI41Uw9r
vHPJ8qafKo59px7WuOfiB+bHi2N61MMaZSHH5g5tjmXG1MMa+4QkXKstj2U2
1MMazwVd6dJ/eixzox7WaN8yPFoaG8sk1MMaS8bvOsexj2XdqYfu+w0Meoc9
jWH+1MMaf47yTlm3L4aFUw9rBHWbcrfxMUxBPXSvD4UOdaExTEM9rLHA9Mnr
wxYxLId6WKOINRpWPohmw6iHNQqfg5n+rmg2jnpYo0eB3taho6NZIfWwxsG1
HgUdg6PZQuqhu79TJ8Q1ZtFsFfWwxqKE3fmsIYptoh7W2Gzy7PeDnVFsN/Ww
xrn2OFo8JoodoR7W6DNg5pKSkCjGqIcNXrDv9xsso1g19bDB8TcHDjR5HMnq
qIcNjgw3nae/L5I9oB42uHHzRivBxEj2knrY4GmfuGPDoyLZR+phg9PE9l1f
2Eey3/R5xgbNXG7KZ76MYO2phw0qDcW5sf9FMDPqYYPMevaagJkRzIF62ODl
sZ3HpCVHMB71sMGxhe4n1vIimJx62KB3kdSt/edw5k09bPBfYF36qopwFkg9
bDB3RKanYlk4i6YeNmi8/G6aZ79wlkI9bJD/4PtCX89w1pd62ODxpZ0X57YN
Z7nUwwY35W1xZDfCWAH10F3vk+y975YwNol62Og+78dfaSgIY7Oph+77rfxH
bA0JY0uph+516dVNS23C2DrqYYOzLWY4b30RyrZRDxtcYztj6/3yUFZGPXTz
fXHFH++5oewY9bDFirWcV0fVoewc9dA93yOR9pGFshrqYYvH1yrmif6FsHrq
YYvjIm9csr4ewhqphy06Xp94ULA5hL2lHrZYrirvqB4Zwr5SD1u0dJqw9EBY
CGspb71h3esJiXYyhxBmSD1scahfamb122BmRT1ssa+f3Gfu6WDmQj1skXPP
ICdvaTATUQ9b7NS85cCw7GDWjXrYYuFZfLXCO5j1ph62aBxaWvfAKJiFUg9b
TAjkQfjDIBZPPWxxx6rp32oPBDEV9bBF3hyrC5NmBrEs6mGLE9puGR+lCmJD
qIctzv4xvtFbHsTGUA/d/R7PuBiqF8SmUQ9bNFUX/S24FcjmUw9bBLtL8RU7
A9kK6mGL3a57Luo6OZBtoB62WFswfM7pxEC2k3rYYvdFazoNFgWyQ9TDDt3K
e370+YPsFPWwwxndAvUEtciqqIcdbsrlmnfdjqyWethhl81736smILtPPezQ
dJx4xOYEZM+ph+75GhhkKET2nnrYYc0B61SX78B+Ug87XP7c3Dx7MzB96mGH
oqTAXS9igZlSD931HaBm688AZkc97NA1fbB7ybYAxqUeduh8/WPSDUUAk1IP
O2yIOmkS+M+feVEPO/wbM/7H613+DKiHHQaeWHPuitKfRVIPO8wbFOr0up0/
S6Iedpj/p9/egIN+LJ162OHVMUvENX392ADqYYcnPNz9lpv6sXzqYYfZOZzV
RSd6swnUww43qEKbL+X2ZjOphx0qDH439bLvzRZTDzu8b6aKfHzBl62hHnYY
d8z9yKlRvmwL9bDD+Dvnn9byfdle6mGPz+8mzXW+2YuVUw97vFI9V11c2Iud
pR72aNLnvEly917sMvWwx0wH/VR86sNuUQ977Kl53pRZ5MMeUQ97PLdwx5yj
wT7sNfWwx7exwsbgL97sM/WwxxHbb+zT3+bN/i5qnUB75OLxXd9TvFlH6mGP
g/ZMXeTW0ZtZUA97rNzcx3rC0Z7MiXrY44BEznfDQT2ZgHrY4+6zvE+XnXqy
LtTDHneZKs+eqfFivaiHPZo/78l9NcWLBVMPe5z24srVQE8vFks97PFsy97Z
Nc96MCX1sEds/mE4f1UPlkk97NH4ULL1+KgeLI962ONF8/c5a/92Z6Oohz3G
GU04/XZ/dzaFeuiuP6jLwyHZ3dlc6mGPP5IqZ3Lsu7Mi6mGP/PrRo/WveLJi
6mGPTyf8zbed6slKqYcDLvuwxFfVw5MdoB4OqL/1+bLLr7qxE9TDAXtkSQOG
FHdjldTDAft3NGkTkNiNXaMeDtjHa9d6/47d2F3q4YA39DfeyTvZlT2lHg74
e/vfsRfzu7Jm6uGAH1IjgpNEXdl36uGAlqc+/rI73oXpUQ8HdHX6ev+ZoAsz
ph4O2O5MUrnJss7Mhno44Ofa7U6L/8mZG/VwQLVHzuq8PDmTUA8HPPD78alN
d2SsO/VwwHU7Ql26hcmYP/VwQGfNigiHw1IWTj0csG/T9hsqdylTUA8HHD+P
F/9piQfTUA/d15fNSHzSImE51MMBxQ8sdB9oJGwY9XDAw3seBlc9FLNx1MMB
XQZf7HMiTswKqYcDsqEj1e2ZiC2kHg44Z2vsta1dRGwV9XDAoU+mp67ZKGSb
qIcj+p9qN++JhZDtph6O+HhTYbuphQJ2hHo44tbGIZn5X/mMUQ9HdLjT7Pff
AD6rph6OeO39y+5x93isjno44tCHP576xPLYA+rhiMdYwdtRZ9zZS+rhiJti
Ml636+HOPlIPR2xrO27S81Iu+53T2sMRTfZLIuycuaw99XBEv98L3qxZwmFm
1MMRS0fndRjSnsMcqIcjfrQomMj56sp41MMRexVKB3V47MLk1MMR9+cscpl/
2Zl5Uw9HdKsb82hvuRMLpB6O2CO/068hWx1ZNPVwROcuZ45eWurAUqiHbrwY
GHhuij3rSz0csZvplFTlUDuWSz0ccdm9/TdmptuyAurhiBc/ozwu1oZNoh6O
GH28rrzM35rNph6OqB4QVLmzsxVbSj109zto9c7eHEu2jno44T00P55tacG2
UQ8n9LtoHstvb87KqIcTep9KHvn5gyk7Rj2ccLdQfPjiHWN2jno44b4DCtOq
s4ashno4YdTGaq/m3R1ZPfVwQkXvyue9VrVnjdTDCbedOlC/u1CfvaUeTjgi
q/PFwHw99pV6OOG4E2ZNX9i/0y1+rT2csEjYP2Tnhl+nDamHE1paL3Yrmfbt
tBX1cEKnpq8da3M+nXahHk744chw+ymrm06LqIcT/pfhPflq7rPT3aiHEwav
sXhoO+XO6d7UwwmPnlIVnu9/5nQo9XDC4lzVMWu3MwHx1MMJV/s+Gn408k6A
ino44YItY8pW+z8LyKIeTmiSudi/RdEUMIR66J6XzAwy6vYpYAz1cMILLwOX
vOv5LWAa9XBC52Eja/f5/gqYTz2c8FPdxehYv38BK6iHM6Z7FHFeuOjBBurh
jMKoB99XOuvDTurhjOcft0T4OraHQ9TDGVmfrC61th3hFPVwxn4rSs5rLQ2h
ino4o6X/RM5DE2OopR7OGLjxb1pqB1O4Tz2cMXFq3+kX/nWC59TDGa8+XVRv
N8Ec3lMPZ1y15PeYyNEW8JN6OKNd8Y+dP4Zbgj71cMZ/wZ2/CPKswJR6OKPL
m7yG2mxrsKMezvjOetfLP+k2wKUezpjja7K2NNUWpNRDd39Ln4y+EWcHXtTD
Gauad7eZHGYPQD2ccdIMu2O7/B0gkno4o2x1B66qhyMkUQ9nLMtZdHSuhxOk
Uw9nVBz4+c+P4wwDqIcznlp3aUSBjQvkUw9n/KU+uVRu5AoTqIcz/t59/k7e
P1eYST2ccc8Fm/OdP7nBYurhgteeLB5wYgQH1lAPF6wNifR1b+LAFurhgnoj
u9jF5HBhL/VwwbkZDb69HnKhnHq44HrrBY2vU93hLPVwwdlLXcL7XHOHy9RD
9/VrrEpXhvPgFvVwwScjVvgVMR48oh4uOGrxsKBkbz68ph4uWDPY+vPdfXz4
TD1ccHiv4jl8oQD+WrX2cMG7Ky/59SgWQEfq4YKxae0jDa2FYEE9XHC8Z98X
W+YJwYl6uOCLYUWx7fREIKAeLqjZ2bHcY4wIulAPF0waeUVt1yyCXtTDBQNM
SoZf6ieGYOrhgk3Wz7uE3BFDLPVwwULn8mszYiWgpB4u2Dy+ftaCCglkUg8X
bLhdPl/j7QF51MMFH94Ya/1ptweMoh669/vfm9QEjhSmUA8XFJgvmjN6uRTm
Ug9XnKVa/jDbQAZF1MMVl815vNBpogyKqYcr9q3seHntexmUUg9XvN+iuPSk
nxwOUA9XFIw+zj7fksMJ6uGKf4d9eFgT0RkqqYcrvj+t1OSf6AzXqIcr7kk0
HPhQ3gXuUg9X7PK8zttmYxd4Sj1ccWvPkn9Ghl2hmXq44psRMOpDYFf4Tj10
14+rsj8xvivoUQ9X9Bhj3DbvUFcwph6uGPT0VGSbpq5gQz1csdpqiMEEfjdw
ox6u6J47I/W+thtIqIcrxkfFxHBXdIPu1EP3fOEbvdiabuBPPVxRv7jf4j7t
PSGcerhi76srTFL9PUFBPVxx78rgpd1HeYKGergi3jf0+r7HE3Kohytq3HPM
Nj3zhGHUwxUL7uz37ubcHcZRD1f03CyqLE3qDoXUww3lY59ebTe/OyykHm7Y
zfBhXkRFd1hFPdzwxMMPB0f87A6bqIcbaktvHS/s2gN2Uw83LCoQrp0woAcc
oR5uqHqVPkBd0gMY9XDD2dPqfTi3ekA19XDDNXXX+DXGXlBHPdzwRXl2YGaQ
FzygHm7YZsmKrQ1jveAl9XDDwsnB2VDmBR+phxvuXN5t5dznXvD7TesNu+FU
bvuEE049oT31cMNTt0JLbyp6ghn1cMOcdn0O3JrdExyohxs23FpbePpUT+BR
Dzc8OEnWffHnniCnHm54aYjwVrjEG7yphxueLJky+VUfbwikHm74ZYtlSP5y
b4imHm5Y0lLs+6TaG1KohxvK8Pzo3i3e0Jd6uKEdmJhO6uEDudRD936SGi1K
c32ggHq44fvJRWuOlfgAtE53ew7O2Kg8erjOB85THw567g6fvtqgF9D+nhkH
G+v7Gef494Kr1IuDY6sXDnAc0QuS6OMkB9tWL9t1dHsvuEP9OPjuG/cV3O8F
tB/I42DY8Nru+8184Qn15OCsQpdNhiG+MKB1uM4crHw8MDhmrC80UV8Opp77
Ix+7xxdo/9CHg1w3w5ELH/vCN+rNwZ13tooXWPeGCa3zFaR7vw9r+oyM6A1t
6O9lHPTPy5WETewNtN8Yw8GpriHr9Pb3BiP6ew0HP3lZVm1/2hsWt96ukoM+
R4YxLzs/sKbfTzkonPN45b4oP6D9yUwODjl2va/FZD9wpc/jHGyzbrmszwE/
2NI633kcDHk+0GzFMz8Q0+dBDr55M8LxPzt/oP3MURxcWXGm79kof/Ck//84
eC838uN/k/yhvDXHFA7eetX0eOV+f/Aj7xzUzBqJmU/9gfY/53GQ83EZ19Y2
AMJovenuN+XZiiMRAXC5tcdyDo5Y8m4fTAiABFp/uvnRcicf3hsAtF9awsG4
/retrR8HgJrWIwcrpihm9LEEeNTaYwcH5dVnHhSFAGTT+tTN30U/z8OjAWh/
9RAHPZZfXMZ2AAyl9crBPm0Szf+7B/C5tccpDhY03HkQ3QFhLK1fDnodvpXo
6YZA+7FVHFzQPHpYJx+E6bSedettmaHf4wSEjq09ajmo3+/6mdJchAW0vnXj
Nep3yJmOQPu3DRwsG3zDyn4dwkpa7xzsFZ3x6cwhBKfWHC904/1XtbPvFYSN
tP452OOvfdCXZwi03/tB13uK+tzkvwi7yAMHXWrneLXYBEKX1uF+cdDo2MqN
ozoHwmHywUFIHWLyJCwQaH+4PRc72DdNDekbCKfJBxc/PH3VvnhMIASTDy7a
23fd8nZxIFwkH1w8Xzwjo+uOQKD9ZAcuTv27ITTvTCDcIB9c7DbIU73+TiAo
yQcXh9c82XbuQyA0kA8urn0S17XRIAho/7kzF396G+t95QTBC/LBxaTwLW4t
PkGQRz64GD5lTVFLQhB8IB9cnKIckP1tYBDQfnUQF++lTVrzdGoQ/KKfj1zs
6RnsW7U6CKaQDy7WnbWL27Q/CNqRDy6+FSga8i8GAe1vK7kYV+PX5PM4CDqR
Dy5aTHGb+e17EBSRDy4OGeK1b5dZMNiTDy72DTk4NEUUDLQfnsdFZfezNd8C
gsGdfHDR7u+MG4tSg6GUfHDxbgf7GS5Dg0FGPrh4o9+C15tnBgPtn0/RzUfD
W0O34mDoST64eNrYp2np4WA4QT642KwdtOr35WBA8sHFGqeRltqnwUD77cu5
2Dg7IPvQr2CIIh9c3f9fu4r0LEPgGvnQzadyWWmYJASSyYfufpQXtk/HEKD9
+R1cNE82X31EGQJ9yAcX5T+6TX80NASekg8uLhI8z2szKwQGkg8ujjBo0NgX
hwDt55/ioqvb2TTR4RAYQT64WBLsnSu/HALfyQcXbdjdIo8nITCRfHDxT4Lf
I9efIUD7/7Vc3KNbiEbmoTCLfHBxQVjepyZhKBiTDy46N/aquuAfCkvIBxfF
djW3VyWHAp0XeMHFO9uKRBl5obCWfHDR2OArc5seCm7kg4upkxTbb68Oha3k
g4six7aNM8pCgc4X/OLiq8tpoz0uhMI+8sHFS3kbB1c1hEJ38uGOw887X9J8
DoWj5MMdA4qNVrw0DAM6j2Dmjp5VG+oGccKggny4Y5rIeMHznmEQTj7c0e3k
yPPK2DC4Qj50r5f9nX42Kwzo/ALPHYekn6lxHx8Gt8mHOx7VXt81YUkYaMiH
O8Yt8OVc2R4Gj8mHO25yat/D+lQY0HkHH3fcuKJLU1JdGLwhH+647/XBuPmv
w2AY+XDHviOnZR5vCYMv5MMdi8xmezTahAOdj4hxx702O8tapOHwjz5PuOOW
3AvfbILCoZB8uGPznPL2/LRwMCAf7ui6JO6JZGg40HmKTHc0QOUy0YxwsCQf
7rjVYpWTy9pwWEU+3PGDV02h0f5wcCYf7vh328Hr7yvDgc5fjHLHCv6vjjX3
w0FIPnTXj0vosvljOOwmH+44c5MmZljHCOhKPtxxc+HJ7B4uEUDnNea5o3Os
6eSPnhHgSz7csSrhSfH2iAhg5MMd372ork7qEwEh5MMdQwpiOv4siAA631Hi
jophTZqVcyMgjny447pRwhrphgioIx/uGAH5GccOR0Aa+XDHl8zfCS5FAJ0H
OeSO02y/tz31KAL6kQ93zN3d1qX71wh4ST7c0cHjzNBNRpEwmHy4Y83SuX87
ciKBzo9UueNIr0NX+3tFwmjy4Y7dr89/eSoqEn639qjVjTdZG2uaEQlTyYdu
vusGtk8ZFQl03qTBHTNvvbNeMS8S5pEPd3xuLppWsyESzMiHO9quDon/dzgS
lpMPd3xiPmqG6FIk0PmUD+644eBjQeSjSCghH7r51O7yyfoSCTzy4Y42i96f
HWUYBTvIhzt2m3DxwlTXKKDzLO15+MYoImZG9yg4SD54+Ov5BOXUiCjwJh88
VI0d3DwyPQpOkg8eTvnhbNVvRBTQ+RcHHg4aPb8mfHYUXCAfPPS4vZ8rXB8F
0eSDh2Evp1r/3R8F18kHDy9q3uy6UhkFdF6mMw8TGm6/Xn4vCu6RDx7O1pfe
TnkfBX3JBw8PD7sw0qxdNDwjHzxMPFd46ax9NND5miAeNpX5NAyWR8M78sHD
jV+P7DMPioYC8sFD35FVYXtTo+EH+eChjbTHzqC8aKDzOEoe7g08fe/6lGho
Sz54+KMT77FyeTTMJh88vOfidLp+RzSYkA8etvVSj0s4FQ10fiePh//6Lrat
qI0GW/LBQ8vP2WtlL6JhHfngod/iqYZLfkUDh3zwMFpeOLCpUwzQeZ8pPDzH
MzwZyIsBD/LBw3keuwyWeMdAGfng4f2Mn4n10THQg3zwcFTazA12GTFwjHzw
sL3NnU8JI2MggHzwMNVhjKJwTgycIx885OU8ZfvWx0AE+eBh+Mw1QXX7Y6CG
fPBQtMTi4YfzMZBIPnhY34Ot7Hg3BurJBw9fHrbIt2uOAS354KH4e0E+Ry8W
GskHD9Nmxax3t4mF/uSDh1Fr/n51kcTCW/LBw/V2z6db+sfCcPLBw8ZibXgb
RSx8JR88XDX7WPjL7FgYTz54GPg5Zk7V2Fhoaf19qIGHn89nmW5aEAszyAcP
Y/eH3S/YGAuG5IOHW3v5foPDsbCIfPBwYsXkfu0vxoIV+eDhzJkJ/PP3Y2E1
+dD13foSJr6PBRfywUMmGXtMrh8Hm8kHDy8Ze664YxsHIvLBx+7egfUTPeJg
D/ng46ZlNYWOAXHQjXzwcVHLr5IDijj4j3zwccvA17KgnDjoTT74+Of44W5X
xsbBGfLBx87fRx6IXxAHoXS7fPwlD9h/ZUMcXCIffKycx/EMPhQH8eRD9zxJ
3PvQhTi4ST74GPA5/ZrzvThQkQ8+zvtd+WlKcxw8JB98NJdl7mxoEw9Z5EP3
/QWy757W8fCKfPDx7TfO4+mieBhCPvgY5thj4BXfePhEPvgYO1lZZBYXD2PI
Bx9LDcblxGTGwx/6/ZSPN95MfzJ9ZDxMIx98lGzVdDo0Ox46kA/d9du/aGpY
Gw/zyQcfD/XWm95mXzyYkw8+Pro0p9blbDysIB98vF6S/KjHzXhwJB98nKXf
qyz0ZTxsIB98HH2oQ2jCr3jgkw8+JueFJu7qkAA7yQcfDxRWDZSYJ0Bn8sFH
r71NA7Y5JMAh8sFHWdeVCldeAviQDz7eWr5FtFyWAKfIBx8rSj+97dAzAYLI
h673uL4bR0MCVJEP3XgZ58OeRiRADPng47a/Px/HJCZALfng446A+uGHNAmQ
Sj74qNV2+2GbkwD3yQcfyx7fHztmaAJkkA8+3ivd8eXmmAR4Tj74mP9owJAu
0xJgEPngo6/Zq2ez5iXAe/LBR43VN+39ogQYST74OJCXXi8rToCf5IOPTXUv
UiZsT4DJ5IOP5baaexfKEkCffPBxbcDU/mbHEmAO+eBjfYvjn+SKBDAlH7oe
Be/Wr7qcAMvIBx8HOJyMqr+ZAHbkg4+Zd4I7Wj9MgPXkQzf/bUNuxr5MAC75
EGD/1HGHZnxIgO3kQ4Dh/0q2H/2ZAFLyIUDX1UPLXrdVwH7yIcCdXTdeszNR
gBf5ECA/+o1BsI0CjpMPAR5+oJee56oAIB8CXJ62tmaJSAHnyYcAv2zJ0R7q
qoBI8iFAX761cV0vBVwlHwI8czz5/vsgBSSRDwHeqbp51TBGAXfIhwBbZPiS
k6KAdPIhwCmxgUKvPgp4Qj4EmGU5bWHYAAUMIB8C3PR6u2vKcAU0kQ8Bpl9O
u58xTgH55EOAe3r2rsydroBv5EN3fz4fHwybr4AJ5EOA/oOcRQXLFdCGfAiw
+It2c0GxAmaSDwHeXKJQ5G9XgBH5EOC/eau8BpcpYDH5EGDSuUsJ2UcVYE0+
BFi7f+ZW1VkFrCEfAhzRN9Mz5pICXMmHAL3HfP3du04BW8iHAM/63mkraVCA
mHzorjenJMLquQL2kg8BNjTcv/qrWQGe5EOAu1LcVz36poBy8iHArfvbbjnb
ogA/8iHA+niTLxsNEuEs+dD171Uzf5JFIoSRDwFuc7yRp3RMhMvkQ4B7I7av
6MxLhATyIcBvrM5IX5YIt8iHAL/Knl652SMR1ORDgDHPNA+2+CfCI/IhwKLX
5/yHhyVCNvkQ4MdPG973ik+E1+RDgBNyCr60SUuEoeRDgDzVmdjKjET4TD4E
+GZtx7+zchNhLPnQvb7von7YiET42/r3tRcC7FQzLavthESYTj4E2OFNmcvJ
wkToSD4Eup8/V7sXLEiEBeRDgPeWppWKViSCBfkQoN+eC+PuFifCSvIhwB2v
luyZsz0RnMiHEJ2b5IFeZYmwkXwI0cHVqtej8kQQkA8hVu48vGLWmUTYRT6E
6DhpZpq0OhG6kA8hLon9Pr2mNhEOkw8heq0abzvkXiL0Ih9CHLBxsrXR00Q4
TT6EOH50/uStbxMhmHwI8fFXluL3JREukg8htlTeWlf7JxFiyYcQJ2tdErPb
J8EN8iHE0JaWcV9Mk0BJPoSYWvncerptEjSQDyFmrfLim7olQSb5EOIyz5Sd
K0RJ8IJ8CHGFeOc2p65JkEc+hHilcbnjBp8k+EA+hHi1eLwhJzAJRpEPIS4d
daKgJDIJftHfO3Xja8vVjolJMIV8CDGbW8OK1EnQjnwIMWOYeqtRVhLMJR9C
9L1+wnBKXhJ0Ih9C3LM35uOHgiQoIh9CjFAM0GZMTAJ78iFE4cvsmJoZSVBM
PoT4ZVJxhffCJHAnH0JcazjwzIYVSVBKPoT4qp9jePuSJJCRDyFWRxmmDdye
BAfIhxBx4JwvF/clQU/yoesT+8ZFVJ4EJ8iHEF3GTL01nSUBkg8h9otZ59xQ
lQSV5EPXizfvi+f1JIgiH0KEgHV9Zt9JgmvkQ9fnmpP27uMkSCYfQiz9pXwn
fp0Ed8mHEJ/eXGs7+mMS9CEfQjyf3fn2mZ9J8JR86Mbbruls2DYZBpIPIS6c
N4gTb5QMzeRDiHE/Nu1dZpkMI8iHbv6vhtfXOSbDd/Khe/5sY4klLxkmkg8h
yow/touXJoMe+RCicacJxnO7J8Ms8qFbD0emHjrTOxmMyYcQ31UG/fsanAxL
yIduPbbVaxbHJIMN+RDh1M6/pqqSk2Et+RChifHgE7O1yeBGPkS4OL2o+FB2
MmwlHyLMadotfjA4GSTkQ4QJ0z+ktxuVDPvIhwivNK8NkExKhu7kQ4Q99J9d
jp6ZDEfJhwj3b9DvOHhhMviTDxEWbev6ce6KZKggHyI8o7dp/rbiZAgnHyJs
3Dm3/vS2ZLhCPkTYaaPr7Vt7k0FBPkRo8XHZnDdHkuE2+RDhf+X2H/6cSgYN
+RDhdKdGU9MLyfCYfIhwfIrzU8eryZBDPnTX3/1zuPB2MrwhHyIUjSk92uVh
MgwjHyK04yWd6PkiGb6QDxHOkUnG936XDOPIhwiPC1K++X9Lhn+0PyDCdUf0
ugX8S4ZC8iHCB6vSpH4dUsCAfOjmd/P0F96dUmAh+RCh9nRpVjfbFLAkHyI8
9undFrFrCqwiHyIcpp28w0WYAs7kQ4TXvCaMMO+cApvIhwhH1xnq6/VMASH5
EOHI0ljNe/8U2E0+RDgDcyfeD02BruRDhH9jJw+ojE2BI+RDhPz1e132pqSA
L/kQYaK93cZl6SnAyIcIt9XdfT8qJwVCyIeu9z+rTsohKVBNPkRY3vTkt9eo
FIgjHyIMtc86bjkpBerIhwhTXPdHNc9IgTTyIcK+Z5/trVyQAg/IhwiNmx2f
r1ueAv3Ih+71g3kfh61PgZfkQ4TPo9/XBW5NgcHkQ4STnU8ttNiTAh/Jhwg5
h966PTqUAqPJhwgHXlwyf9eJFPjd2uODCN/g2dqCcykwlXyIUN156WffyynQ
nnyI8OU1q08tN1JgHvkQ4Y7lmqsV91LAjHyI8Y3D+LmFT1JgOfkQI8im8oPe
pIAD+RDjiepJG/99TIES8iHGGfzp/47+TAEe+RDjsJJ1kK+XCjvIhxinXavP
Fhmmgpx8iHHJ1OBh981T4SD5EOOZQ2/6LrRPBW/yIcbkkjve/pxUOEk+xHhu
j92PN6JUCCQfYtTMPLBpZZdUuEA+xDirbZkXeqdCNPkQ453e9kdeBqTCdfIh
xutTv3AWhqVCCvkQY2dt1Piucalwj3yI0Wa5W0VtSir0JR9iHCMd93N4eio8
Ix9iPJyh4XbKSYVc8iFG2cFq352DU+Ed+RDj0IYLYUEjU6GAfIix6G5y2N0J
qfCDfIhx3ouRvkMLU2ES+RBj7WQRX29+KrQlH2Icmzm43bJlqTCbfIix68Kg
Bs7aVDAhH2KUhu/Ys3dTKiwlH7qvt1032mdnKtiSDzFuqbLrfXZ/KqwjH7oe
gxx/hx9NBQ75EONKZUn5FZYK28iHGMWdS/Ljq1LBg3yI8W6tlcf1q6lQRj7E
mDfiR2Pc7VToQT7EuHtWyNrLD1LhGPnQzd/V90lhz1MhgHyIMT/loxlrSoVz
5EOM7vlwzetLKkSQDzFmnL+2bNfvVKghH2Ic4LdK46KvhETyIcYmm3kei4yU
UE8+xLjvzro2fy2UoCUfYjTswx7mOiihkXyIcdeVF5U3OUroTz7EWLVWv9xf
rIS35EOMxss6HNraRQnDyYcYA6sfHTf0VsJX8iHGq7snXxscoITx5EOMqu+1
H2tCldDSur/5S4xtTlW5y2OVMIN8iNEgMzZrXrISDMmHBNutjz/8XKOEReRD
gj8mHreFLCVYkQ8J2g0cN3/lICWsJh8SLLUfY9WUrwQX8iHBmg3FZTBOCZvJ
hwTrBtzOWDpVCSLyIUGX7kbixtlK2EM+JHjfmduhy2IldCMfEty3tu2f8SuV
8B/5kOCH8SuMKouV0Jt8SLDiNfM03aaEM+RDgg6DB4xK2qOEUPIhQYtnw+tW
HVLCJfIhwfNLz8TeO66EePIhwf8sfJ87VijhJvmQ4Mb0M2tV1UpQkQ8Jvr3m
NWzldSU8JB8SPOE2Mau2XglZ5EP3fMDIsUaPlPCKfEjwCqdlX+ALJQwhHxLs
wfvTcUyzEj6RDwn+3hM1Y9cXJYwhHxLUqqv5Db+V8If2myW4SZ76xlg/DaaR
DwmyeVdv9TJKgw7kQzee7hfYHIs0mE8+JNgt9wt3iX0amJMPCc7apZpx1C0N
VpAPCYZ8dTB/JEwDR/Khe787zC7od06DDeRD9/VzrUuFXmnAJx8SFFfqHQ73
S4Od5EOC/h/KmvsHp0Fn8iHBFIPvyTOi0uAQ+ZDgnoJ9bzYo0sCHfEjQV39v
2bG0NDhFPiT49cPFrbV90yCIfEhw15P6Sy/7p0EV+ZCg4+t97n+GpEEM+ZBg
/DT3vZ1GpUEt+ZCg/vIOeW4T0yCVfEjw3tjO6Z0L0+A++dCtt4+DZ/SelwYZ
5EOCK7otbwxbmgbPyYcEd9wZNSphdRoMIh+6631/gmkb0uA9+ZDgX+M9IX22
p8FI8iFBtw6bpvXbmwY/yYcED4Ut/ZF9OA0mkw8JjimJ3pVzIg30yYcH/laU
rMquSIM55MMDN9soz2ZWp4Ep+fDAoZbB4vTrabCMfHhg09PONan1aWBHPjxw
8JoX++MepsF68uGBn/7zuhnyPA245MMDz/V46d2rKU33MbPVhwd+mVbZIP2c
BlLyoXs+de05519psJ986MZb2KXZWE8FXuTDA/PHxKp/dlTBcfLhgcdnnzR+
3kkFQD480GVySNtrNio4Tz48sHnZnoByZxVEkg8P/Dr2xNlingqukg8PLE7z
XjDdQwVJ5MMDNXeel+R0U8Ed8uGBD60X/ArzUUE6+fDAgTvebRCCCp6QDw+0
K61d3C5MBQPIhwfu2fTj0uMYFTSRDw/U2ypMPJGkgnzy4YE7e7oKl6tV8I18
eKA0Y1N4XqYKJpAPD7y6Jb8cB6qgDfnwQKV+wmjrYSqYST48sM2/PzNejFKB
EfnwwP1FPs/+m6iCxeRDN3+BFctnFqrAmnx44KWOqlWJ81Swhnx44Nt+J5pc
lqrAlXx44LrE0hUvV6lgC/nwwGXKe8vKSlQgJh8euLTA4vmobSrYSz488KOH
4ULfPSrwJB+6+SmcNP/vQRWUkw8PdDXwaDx9TAV+5MMDzSqrF00+o4Kz5MMD
b0TZrfCrUkEY+fDAkLIrX37UqOAy+fBA7wVb9h26qYIE8uGB+1qSzw2+r4Jb
5MMDA8rWdOc/UYGafHhg0XlJm3uvVPCIfHjgxI8nJYveqyCbfOi+f4jRAfym
gtfkwwPffb+48uMfFQwlHx44vX7f/Y36avhMPjzQ4F7+1DgjNYwlHx44P61q
5i9zNfxtPS/TXoobPbObttqpYTr5kKL9jT+HY13V0JF8SNHGI/TxF74aFpAP
Kd47+mHoWqkaLMiHFCfNOpgZ4KmGleRDilcF/sce+6jBiXxI8f6RoNHTQA0b
yYcUNz0euYYTpgYB+ZCi5sEM3ukYNewiH1JUDuXZqJPU0IV8SHHnszbDvqjU
cJh8SDHBpabbwgw19CIfUpxY6N2HP0ANp8mHFCMt3n85NkQNweRDirVxm7/F
jlTDRfIhRcfElqzH49UQSz6kyK045J8/TQ03yIcUj90cPKPNHDUoyYcU/8TX
+yxapIYG8qEbf/4GjeMKNWSSDylGDclv3rpODS/IhxSTh/54J9+shjzyIcXH
ax5lHNmhhg/kQ4qj59cG9y5TwyjyIcWuI8auZkfU8IvOL0nR1mxy36CTaphC
PqQYUT5/zbkKNbQjH1L8rIgKD65Ww1zyIUWRtl/u2Wtq6EQ+pGjybEKbgNtq
KCIfUixfHGB6rEEN9uRDittWK5Z4PlVDMfmQokeNZt6u12pwJx9SdF6m/4fz
QQ2l5EOKRxvfPV/xTQ0y8iHFNrHnIgz/quEA+ZDi7t8CwQR9DfQkH1JcuufE
hLeGGjhBPqS4/bA4Vm2uASQfUmRtLdZW2WqgknxI0dfFPqu7iwaiyIcUjdwb
dxTzNHCNfEhx3sVOgzt4aCCZfOjWX0bw3iFdNXCXfEix6iZnSF1PDfQhH7r5
3Bmxx9tfA0/JhxQ7/9bkrQ3WwEDyIcUv03/v+h2pgWbyobveyqo8TYIGRpAP
3fxzMvYdS9XAd/Ihwz17sgts0zUwkXzIcGDmyBP5WRrQIx8yfNim8+zLuRqY
RT5kePp1l3recA0Ykw8ZfrC13zN+tAaWkA8ZHufO6HB9ogZsyIcMXdDiJa9Q
A2vJhwz3h2njRs/VgBv5kOHa7Xr+VYs1sJV8yJDlFx+yXakBCfmQ4ffUywez
12tgH/mQYcBWYe8DmzXQnXzIMC0yKvbPDg0cJR8y3H3j+uvQMg34kw8Zzhya
bLHoiAYqyIcMT70dev7mCQ2Ekw8Zviw/pu9YoYEr5EOGnGc119IvakBBPmRo
xA2RbLyqgdvkQ4ZHKg6bN97UgIZ8yLDvyfJZnPsaeEw+ZHhr27P5fRo1kEM+
ZHjn6A3OupcaeEM+ZLi81j7sdrMGhpEPGVoOj/1j9kUDX8iHDGPLO4RE/NLA
OPIhw+1D7rlMaaOFf2dbb1iGX/+mzzvcQQuF5EOGW8YI570y0YIB+ZDh+UUX
XZystLCQfMiwYP2d0BgHLViSD918Fr9pO9FNC6vIh+799lyWskugBWfyIcPZ
B/oF1Eu1sIl8yLDnn3en2npqQUg+ZDh2b/VNmY8WdpMPGRbqzSxMCdBCV/Ih
w5sNBy9NDNHCEfIhw8MXn+3aHKUFX/Ihw2s/dvOrErTAyIcM74Wt8XmTqoUQ
8iHDwT38Xxqna6GafMjQqVnUTZalhTjyoVs/Ia9to3O1UEc+ZNh0xHzNwGFa
SCMfMmzsLz86Y5QWHpAP3f0Ir47cMEEL/ciHDD2HTbt2dJoWXpIPGfpn3rp4
fbYWBpMPGepdVma+XKiFj+RDjk6ClWv+FGlhNPmQ49QlLiPM12rhd2sPMzmO
aBj/1n2jFqaSDzlemerbocd2LbQnH3LcuOVVRfAeLcwjH3JcbG3hnnhQC2bk
Q46nFcDve1QLy8mHHE8W/qsedFoLDuRDjmHT7lqNOq+FEvIhR/8addvJl7TA
Ix9yrFptsnLmdS3sIB9yXHNm7LX5t7UgJx9y/K9WXLakQQsHyYccE9pv91r+
RAve5EOO1cHjsla+0sJJ8iHHWTxpr1XvtBBIPuQ493Vw+covWrhAPuRYMT/6
4fJfWogmH7r52FO9b2mbdLhOPuQ4bWOoZGGHdEghH3JkuWFxs03S4R75kOu8
JLpOtUyHvuRDju6/P6wZY58Oz8iHHD/1Lj07xDUdcsmHHBcG/l7Rj58O78iH
HJWFI+xSPdKhgHzIcZJ4WVhE13T4QT7k2GT4iNerZzpMIh9y1Dv4oEzslw5t
yYcc76RbvrUNSofZ5EOO8LvNbf2IdDAhH3Isk8vz38emw1LyIcd5EY6n7ial
gy35kGNxYvTxClU6rCMfckzuGJy7q286cMiHHA/UFV5akpMO28iH7n7uLn44
Ki8dPMiHHH+8f7VNlZ8OZeRDt35KzLl+Y9KhB/mQY3vBnASXSelwjHzI8fKo
6z3+Tk+HAPIhxyyfQVfvz0mHc+RDjh+rb7kcW5QOEeRDN75fEW/F8nSoIR+6
8dPcHw9bmw6J5EOOm9a0TY7cmA715EOOmV6HpnC3p4OWfMhxjvWhrB+706GR
fMhRWD+1zdUD6dCffMjx3M21qZvL0+F/wXKMuA==
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwt2HlcTfkbB/DbzszYki2JjK1BY4us34OyDIWsKdvd7+3e27n1y4ixF9lq
bIVoUqGFMIWM5SOULUtSsrehkva058dznH969ere7/k+z/s53+c52Yi9XGWG
IpEo2EAk+v5TuCpQW18sHhi9CgnT89ZaJJTj0K2Xs04lrIJH8M3aQR7lwMZZ
GYMur8JPz6P4iT+V45/0q9Xxt1Yh2Trg07zkMkQHnk0c9mgV5HSVQZQV3elS
zipY0IJlGNXFuj0rWIXvqwXf/IwNZUdj735ehW+LfVvxM1xmRhXOr18FWs76
M9a4JCLXUIx0ukoxWDNnvFc7MdbSgqV4M69x8dduYgyiDZbiZeXornv7ipH9
fXvPPyF+S+DqfkPF8P++XMAnuG7w9rs8RowRI79fnxBzfE3vuVPEyKUFS3C7
1FpVNFuMINpgCXqfLF60ZbEYEyjgEhxduKy4l1iMElquGPb3Wvtc0Yhx6PD3
qxgTzOe3uv0pxrTv6ZteDPfAd5sbN4tRQxsswsI029NHd4sRSQEXYcaZS+u5
UDHmUgKLECTuUPf+uBitX79fH2Hoeqn7ntNinCaPj4gZMrrA/pIYS8njIyxK
zBfnpojRhjw+gk979r/d6WJcpAR+wGAno4njnoshJY8POP37gHPFeWKYk8cH
dAtNfXSkVIwb5PEe+zJUh53rxNCRx3sMXB/W0dBQAivyeA+XTQWjkn+R4D55
FCLD9IEp302CNeRR+O1zr7bZ9pVgAHkUYvOl8AuFQyR4Rh4FGBoZvv/4GAm2
kEcBJu+V2aycIsEw8ijAtB4bVvRxluAteeSjpJuPS/5iCXaTRz76JT4uOyGW
YBx55OOtW+/JnloJisgjD3Nuf3YasUaCEPLIQ0JNWkvjFgkcySMPZfZjVKl7
JKgij1z8a/UgcO8hCSLIIxfcjg7LVkRJ4EIeuSiI2vvBLkGCevJ4hxu5b/uL
LkuwgPL/Di6t/j0zb0lwjvL9Fgkm5ndPPZLgF8rvW7jOshiy4YUESsrnG2Tp
LGcsKpTgNuXvNV4uTbQaVi5BH8rXa8RM08X93CjBX5SfV4hJellZZCxFDm3/
JY76BFbf6SDFKIr/JazDzc7FWErxN8X7AlVhRQN39ZeilOLLQZrNVXevYVLM
oHhy0HV459kLx0sRTfX0HD7dNjZMmCaFiOrnORL0e6UD5knhQfWSjZhBr/d0
8pAimeojC/d9Kn1b5VJYUD1kITRH0uuzXgqe/J9h529p/m/+kiKdlstEx93x
px9vl2IQ+WaiTHvq4K19UviT51NEBjtzl49JkUt+GdgnGnHmXIwUE8grA0es
i1/HJkpxiHyeYMAhsyfR16UoIo/H6ODZd/vxe1JEUP4fgS98ZBjxTIollO+H
sIyKnBrxToqOlN90vDw48o/IEinuUj7v41JTt24na6XYRPm7hyGyD3HxIhkc
KF934Zdob5r4swwVdKDcgd7ymO3VrjLEUD5SUdMrqcsdGxlWUvy3kXDQ/EHm
EBm6U7y3kB4z94/8MTI8ofhSUJ1peqBqigyBFM8NzCx8GGPsIsNm2v91iBon
7ejuJkOV+/f9XkVOYLW9nVQGCe3vMvyWBJx18pLhGe3nEtpvDfqyfK0MTnT/
JDxZHfvz2gAZLtL9zqOili8P+VsGZ1o/Adu7bYq8ECaDHa0Xi+xp3v2zT8rQ
gb4fjdFTC9bUn5cht9f3z4fDqq/XMatrMkR2/v73A3B0/nf/lLsy3KMDxB83
/Wd6qDNloPbR58GEyW8z6va/lWFoV/o7y71dJEexDAu60PfZpsbBcaU1Muzr
Teuz9qFjb/YUyVEk3J9Ftj13dvbPcpgdof2x3t3tfDZ2lWMAfT6BTcx1bZdk
I0dfV4qPdcq+tqFkiBznhfhZSFr7u30d5OConi8xTdb7Yo+pcjwW8sesNxUU
HnKRYznVw1WmDIu5nO0mx2ch/yx5Ybayq0yO64IPazu6ffViXg5Tul8Ke21V
tSRsnRwugi97MbVfWO42OUIEf/Zs0vT/Bu6T461QH+xkU8tF/ti3/dN+7jDc
/LT3SowcOqG+2JnRSbPaJMlxUag/tn1hU+EiyNEq1Ccb8qds+an7ckwT6pc9
nRea3JAlR5BQ32xEtX2Nc54c2UL9swN3P3SKLpWjA4E8YY8OzzFvrpMjUXh+
mP+url8WGimwWHi+2E3r/Gvn2yvQJDx/bNgIN3UHSwX+EZ5PtsPg12ZdfwWm
Cs8v8xvw0efJMAU+Cs83iwx1fjpyggK7hOefNca1djs8XYHfhfOBFXaOchLN
VyBTOD9YY2GBu2q5An8K5wurClK7P1Mp0FM4f5hZYa7jZF8FIJxPbF/nyu7n
NikgEc4vdvqMU06f3QqY2dL5xrZG7ti6P1SBeOH8Y+qpyp5tohSYI5yP7Bm3
J2JDggLVwvnJHp6J7lx3WYFQ4Xxlni1LffWpCowXzl922XhZ2ucnCrwTzme2
q2mxmea1AluF85vd92twKP2owEDhfGfd/yp311Ur8EA4/5ndyiK+qlUBL6E/
sEcf961Z85MSbckjl3UcE+4j6qqEu9BfmPnzy+KdNkqcEfoP65J4cFrXoUp8
FfoTC7TK7x3toMQ8oX8xqztzykc6KhEl9DcW/zD4QuocJWqF/scCE+b7uLkr
MV3ojyzcxdm2XK7EYaF/sqN1djnbvJX4JPRX5uUWv6nPBiUmCv2XTdnl++vV
HUoEC/2ZhbWdnOJ2UIk8oX+zpOSUpQ0RSowU+jv7rzC+4shpJQKE/s9usaSt
k5KVeC7MB2zU+2CLwltK2ArzA/NZUhO167ES64T5gjkGhI6wf6XEQ2H+YHr8
npL7QYnewnzCUlN95gZVKaEX5hfWC5Z5E1uVuCXMN4yb8NqnvK0KXYT5h0WP
5dtGdVFBIcxHLL9ncOQSGxUuC/MTa5dUyToOVeFn8ihi1yfOy7/noMIyYf5i
41cqdgY4qnBWmM/YFLsyh6lzVTCgeiticQMjygw9VJgvzHcsa7TD6dsKFU4I
8x/LTdJ7B/qoUCfMh+yQvM0Ul40qzBTmR+a9Mbln110qhAnzJXv0zyRRbogK
n4X5k2VnL66Ij1SBCfMpa3c8pdQvQYW9wvzK2nwa+2Xmf6pvcwnNt6ykw8Z2
Vmkq2AvzL9O9nDOyIkOF7cJ8zAYFeCrT3qjwQpif2df/9p4JL1ZhsDBfs+sh
W4z8alVYL8zf7El0q3qhgRqPhfmcJeanFY5sp4aNML8zhqN6ix5q+AjzPTvb
c4p5XT81UoX5n0X84Xfn1TA1ugnvB0xpbrLv5gQ1VML7A0uIi/GOn6HGFeH9
gh1IGagOWaCGqfD+wU75TvPbulKN3ymeCubnfi/CW6PGEvKpYK7rfPMka9TY
TPFVsHmuHScs9lcjjrwq2O3MFedn/61GJsVbwYbIf5vieFSNZnqeKhiKRpdP
jFGjP8VfyZRnZ18em6SGC3lWsh7+I4+PuaHGn5SPStYlLvHUmHQ1Isi3ksW9
OPhwbI4a9yg/lWy2Y1TnSYVqVBFPJbu778Raxwo1elK+qtjyj3Ij52Y1HMm/
ii15fT5hcRtPaCl/VezXbfPWSy08EUL1UMVK9J14nz6eEF6Aqthfp65t9x/i
iSKqjyrWP7ZvaqiDJzpRfqvZWZ92tmccPTGO6qWandw4K+n2XE9IKN/VbPGN
OMVbD0/spvqpZqEnG6Y2Kj1xgfL/7fdeZn909/XEW6qnapYUFLnWYbMnzMij
hoXkhmUv3eOJYeRRw1JW31q+8bAn3MijhqlGlnQ+ecITW8ijhj1fnffl0XlP
xJNHDbPrs65N4zVPPCOPGha4e8fMgfc90UIeNWxP2Lv/FmV7YgB51LKZcXOX
BeZ7Yg551LIFoeeGXy3zxBryqGW3UjIdqho9cZw8ahn/U7DPb2Ya3CePWjYt
81K+tLMG1eRRy96K+m0/3lsDK/L4wswbY1flDtbAiTy+sOOn+vjYOGigI48v
zGTNiqtSRw1CyeML2+8+aVLcXA1ukMcXZnfnYEOlhwbF5PGFJSVNKh+v0sCc
POrY7SjzPoG+Gownjzo2OvTT7uzNGkjJo46JLaNHDwzSYA951LHwid2s1x7R
4CJ51LGEQ30cH5/U4B151LE7M4/GDkjUoA151DNWJ5+zCRoMJ496NubxstGv
H2iwlDzqWc6O5SvG5WiwlTzqmVg+/cGRQg1Ok0c922ZXt7alQoMs8qhn3vbO
XuIWDVopffVM7WYbe6+tFgPJo4G5G2psR3bVYi55NLD8fl8qwvtq4UceDawP
Fytq97sWkeTRwHquULitH6/FA/JoYE97dm4un65FDXk0sMAjwcXSBVr0Io9G
1hh0o+/rlVpMI49GFjx2Z8xCrRZe5NHIdqsz1mX4aXGIPBrZuE3rjs3ZpkUK
eTSyk0pd+yf7tCghj0Y24vjfj13/0aIzeTSxQWPv5T2P12ICeTSx1Y+/Oq1I
1kJGHk0sd79VS9FtLYLIo4mdn9mmjW+GFpfIo4lddTqtMHqrRS55NLHFuiqr
AyXaH/28me2clDpoYJ0WI8ijmWnSOuy+aqT70d+bWZdT16Yv6KiDP3k0s6ju
VzzKrHQ/+n0zG1ZU82CnrQ7Z5NHMwv9cEmI7Wvej/zezoSmZV+9P0WEQebQw
i/kLOd0c3Y95oIWZL0y3sfDQYS15tLCQgEHiq0rdj/mghXmMX2qo8NUhnTxa
2GS5q5HFFt2PeaGFHQg2lN8K0sGaPFpZ6QuPwb5huh/zQyvbZrhggW2MDjx5
tLLPq17lvUvS/ZgnWpm65MOzQyk63CSPVjZ7iKfdgke6H/NFK5PMX1be6ZUO
FuTxlSUPTOz+9KPux7zxlc3oKIk/UKODnDy+ss8dpTFuBl4/5o+vbG36mY42
7b2QTB5f2XF/h/clll4/5pGvLKJny4BLA71gIvwDi/vDvDY7YJQXelA8Im7L
LssviyZ7YSj5iDjrWcqA31y8MJniE3GDLr4IELl7YSF5ibiOWer6HIUXVBTv
t/Vcu79N/J8X1pOfiLP8692YvZu9sJfiF3H+TtdN9UFeOEGeIm6UY+Ks+WFe
uEz5EHHGF66ZOcR44SH5irgCvzfje1/4tn/Kj4i7Ztm5uM1NLwjHl4gbkLai
Y+0jL7SlfBlwLvNT/y145QV6HbM24JZy0zKeFXlhOOXPgCtJfK+5W+sFJ1rQ
gFuN+VNXGPBwo3x++367u8GvzHhoqT4MOONFrlZu7XlspvwacPWbfIufW/A4
SPViwAU9SKpb3JNHLOXbgLO8t3/6Cxse12iDBlypJOSF+yAeGZR/A67jay7h
nR2P91RPBlzO3W5pUnseDfR+/u3+PSJsPo3n0Y48DLkFnVekeE/hYUMehtyB
hS9PNM3gYU8e337PCn0cMIfHTPIw5J7k92KdFvFYRh6G3Oh+1TXHPHjoycOQ
qzoSXjlYwiOAPAy5lxGn7K+oeBwmD0MuvPhgyiyexxnyMOSst1YefLOaRwp5
GHJns6Yk8ut5ZJGHIWcXbW5p4s+jmDwMub6/lNw/spNHC71vG3HW213Thu/l
0Yk8jLiLxVm/3A/l0Z88jLgt0tZwSTiPseRhxJX5L1rfGs3DmTyMuHGjVDFH
4nmsIg8jrjE5pY/Dvzx8ycOIq7j46UN2Mo8d5GHERf/u07QaPI6RhxF3ckvh
8u5pPM6ThxE3Spve6Uo6j1TyMOJW/JxssSKTxwvyMOJcckYpjV/y+EweRpxD
wpNf4nN5GJCHMbfmTg+j+R95dCEPYy7hWvis5s88bMnDmLu1s+zDyRoeE8nD
mHuy41CWaxOPeeRhzC1ZPaS7yFAPGXkYc4e0484mtNHDjzyMuV/KXMOWd9Bj
D3kYc09zTN906KrHcfIw5m7wH/9300qPC+RhzG133yZZ/ase98jj2/4ifWMH
/6bHG/Iw5hadnz49f5geleRhwuUsCZ54ZIweJuRhwq1Lf7d7/iQ9epCHCXfz
RLp9eyc9hpKHCVeWV+xwf5Yek8nDhIsreBCy3VWPheRhwpX4mM2d5qaHijxM
uG03hstMV+qxnjxMuCvLc7PvyPXYSx4m3IOZsSd2avU4QR4m3OjCvk9d/qfH
ZfIw4drWF3hYrNPjIXmYcCkXt057tVmPPPIw4Qr/OxwcFahH7ZnvC5pyv5ld
d9AG69GWPEy5taY7pjiE6NGLPEy5CUH7zxgf02M4eZhyxm9Wr30apYcTeZhy
gWHpscfj9HAjD1Nuxhu7Cd7n9dCShylX39thhGOyHpvJw5TTOm/d3Q16HCQP
U27ElfhZpal6xJKHKZdh68zfTNfjGnmYcgfuGDUdztQjgzxMuXQ7Tan3Sz3e
k4cZt0fxq5Nznh4N9A93M870Y5qJbZEe7cjDjLPcW2NnWq6HDXmYceOS/0gp
rNXDnjzMuCG9lNduN+sxkzzMuB4Vn349aeSNZeRhxskzfGsDf/KGnjzMON+M
EyO0nbwRQB5mHM9bvXbt7o3D5GHGPYlYWzW2tzfOkMe3+6euWt13gDf+D9rc
v7A=
      "]]}}, {}, {}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"Max Re Jacobian eigenvalue\"", TraditionalForm], None}, {
     FormBox["\"Laplacian eigenvalue \[Kappa]\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->Automatic,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 15}, {-0.004430899256577159, 0.0018138013205491333`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.761994168047097*^9, 3.761994189069207*^9}, {
   3.76199422610209*^9, 3.761994258289789*^9}, {3.761994289216874*^9, 
   3.7619943035456553`*^9}, {3.762060362628807*^9, 3.76206039197318*^9}, 
   3.762060441794022*^9, 3.762060691969887*^9, 3.7620607297050858`*^9, 
   3.7620608105878887`*^9, 3.7620609228346977`*^9, {3.7620609635593033`*^9, 
   3.7620609843266907`*^9}, 3.762061145109586*^9, 3.762061211538187*^9, 
   3.762062196852148*^9, 3.762063131289168*^9, 3.762065627099421*^9, 
   3.762148462856517*^9, 3.762253979679208*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Load5SpeciesParameters", "[", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CalculateReCoMSF", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MSFPLot2", "=", 
  RowBox[{"PlotCoReMSF", "[", 
   RowBox[{"RePoints", ",", "CoPoints", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "kappamax"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.005"}], ",", "0.001"}], "}"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.761992878971814*^9, 3.7619928791789837`*^9}, {
  3.761993853827998*^9, 3.76199385421102*^9}, {3.7620608216019278`*^9, 
  3.76206083276197*^9}, {3.762061357085485*^9, 3.7620614019625483`*^9}, {
  3.762062630756565*^9, 3.762062634100274*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, {}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.004583333333333334], 
     AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwk22VYFVsUgGFApbu784BKS69Fg4GkooiAdEjYnVhcuztRsREDk4XdHaBi
oIgoBiAoouIdFv65zzxzZmbv/c4HR2euyai8yFQJMTGxt73ExLr+e8zho9bA
d3voz77mh4NGhYOS+uHg2inFZH3ulbvBVS94YzCvMeLUVtpZ51WkvyqUdqp1
7V9NPb3vWPwemEg3VLu2C+m+Yd7eAy6ZJNb1x/iW16TMjPob3rnUW5P3wx/P
f6n1A7MpWoOPB+3WDsMnham00ojPD6LRTelj/yRSQ/f1Yc/6psnLguNIauMG
4c8+0Hzd/1Fd3yFkyZ8/DKsemX2O7xtJppGnDOc1HoW2KZ0Wdz8OoqN8/HFw
rBlefG19CGHVrnxv2XLY/GJGyXmLALrXdboNp2HFSb3A5gSkkSOWXWyzPgfb
c8bcXhjiQV8Mu85fAZGvYo2yjjpThXB01a5KWB5Y9b3Pnr4kyde7AJ83bZ5v
amhFYU5dfy4BTtTMTnQxorV8/ctQ+cYnpWejCr1qsxaucAVmfZo/dfm09gpL
Hs81UN5g0suzsNknt+t0EdfBdY/HOveZcnCSx3cDYqPSrm0z0oTOKV0nvAlN
K88f2bPVAIJ4vLehLOmlyzuRKSztGl7+HRDl3ihx7W0BT3n8d+H+9fzCwtdW
oMQg98HxVfGfy6EiOMbzuQ9lHy861Y+xg6G1XRd4AEvFOrf9SOwDvyO6BvQA
dL6qXNwlbw/bLnZN4CFc+/lnTcB9e/Dn+T6CXT1u6RZMd4APXdOpegQqz9aO
Edd0hP94/o+hoVq9eOMmR+jbNRzDJzD04tXEE0pO8IjX4wkkFm89t2usE0xM
6/rzFE6qxkmtve4Eerw+VZD12ufrViVnoOCuAVZBQCn0Kg91hmRer2rYofPq
Pk10BimbrgWphiHD+qTO3+gMB3j9noFEU+3+K2XOMLhrebyfw7kVNrHWF5zh
O6/nc1Ase1vS/6ozrOsa3rwX0Pfc6tdnLzqDJ69vDcwa0Hfdv5PO8Pp2158a
KCtz+Lx0lzPM5fV+CaoST+c8W+gMVl3TVX8F0yR+5walO8MtXv9X0K/ffXEX
cIa8rtONeA0nthya9VfZGWTY4w0s6xC73lzjBHE8nzegFnSvJn6XExxinzdw
89TX3IUpTvCva7na3sDdpgeDjhk7QQR71ULf2GkP9KodYRfPtxZuxoq7/y5y
hDb2q4XU1Av/5rs7QjDP/y0YOuSLmt85wAb2fAs7ku4szihygEY+3VvQe/lC
Wqe3A3iz7zuo2Nf/uu1te1jG6/MO/LYfzL+Wbg+1zPMOtPNlopTF7MGJ16sO
FmNhnwhRX5jH/nVQ5551LTGsD1Tx+tVBabtEj8U5vcGG74f38OfFtN9y8+xg
Kq/ne1Aurlumud4W7vD9IezP09n8arcIjHh96+F4kY/d6sM2UMD3Sz3k2Gse
TCmzhku83vWwMGK36tSjVqDB988HGBg0QVbsoCWk8/p/gPvHr2nq7rSA03w/
fYAR6l9OfFllDnLs0QD3g41mb5ltBvHs0QDqx9pC+2ebwhH2aIDYXWdc1CJM
QJzvtwbQV7jxVMPJGKLY4yOUTPZYWGNqCLvZ4yPkZ00bmVutBz/Z4yPMavJv
VlugA6Hs8Qm0tw2d97ePFmxij0/w5tIFyWH31eELe3yCSfue2URmqwKwRyPg
S70iVTFlWMEejXDqQvuSuQZy8I49GiF83zFvub6S4MIenyG8JUu5p4s4LGCP
zzDrrZ9FakK7zzP2+AxvzMeMSZz+2ceWPb5A5W3z1+tM7vtMZ48vIOYxuI+c
/LOKe+zxBfK9as5q72qqMGGPr6A86sH5PK3fFWPZ4ytsLywdev+eBF1hj68Q
bjJmTbGBNGmxxzcwTmrf02u8AmWyxzdQvPo68V2WCp1lj2/wImjA6ldG6iTJ
Hk3w5sMzmcRnmtSX59MEb2+qDopep0Ox7NME9uv875YM06fZPL8mGKc/tnqA
sRHtZ68mmNO72X9tmzE94vk2wc7cRYkG8ab0h3tqAmlDi9XHrpqRBc+/GaIL
riyOcLSgMPZshtj508ObtlnSRF6PZghZ98x9kZI1bWffZqh5MKFVY7YN3eD1
aQb7D9cnL28VUQvzCNsbZBW/Z9qRHq9XC4yoGuLtVtubAti/BY5//1A9fHhf
Gs3r1wI5md4d+7PsaS3fDy0g2eNTgaqNAxGvZwu0j3bcnNTgQA18f7RAXfSC
hLUljqTC6/sdzoWK0+FMJ/Lg++U73LcY+azE1pmSeb2/w1QzuYY5X51pMd8/
30Ff0tPHs8yFTvD6f4fKEqmQ+xNc6RXfT9/BY+jWRejVj6TYoxX6JE7YWiTh
Rvbs0QrRsSvcDt1wo2Hs0QrbF1822rvCneawRytMs5VzmDjcgw6wRyvYl72J
1zf3pMfs0QqKTrsOrPnqSX/ZoxXmqP51fHvaiyzZow0sn8YYic/3psHs0QZr
j4cebo70oUns0QYh86z6HjMG2sEebdD6YJxE4Degm+zRBh+fnB0YJfx+/84e
beDf692Z7GtI+uzxA370G726sa8vBbLHD7C5/HTfw/W+lMseP8B9kOiRsYQf
rWOPHyAGD789yfajSvb4ATcn5dQ3P/Gjj+zxA47LbC8eh/6kyh4/Qbeh1XDk
AX/yZI+fsGLpofDDmgGUwh4/QSttp2fqnABawh4/4d8nQ8EngE6yx0+on1SZ
IhUXSK/Z4yeU7RtyteVaIEmzRzuEuF+xCnQJIgf2aAf72A/7OncG0XD2aIfL
o8aNNVIJprns0Q6un96X7p0ZTAfZox0OiSesXvc1mJ6wRzs8vbg65lt8CHXy
8rVDZ0e5w5E7IWTFHr/A5UdCdpV3KIWzxy9YOnxC/4zDoTSZPX7BXmlz/VFG
/Wkne/yCie0VjleW96db7PELlvc8/X6FxABqZY9fkLJx2Yrr4waQAXt0wMrQ
c+syPwygIPboAFfTPSPHDx9IeezRAeK1qyI+3xlI69mjA6SfbX1z13cQXWCP
DlBav2eWwclB9Ik9OqDdPfBAtSiM1NjjN3xPu/xKbHsYebHHb3j3TXXrWo3B
lMoev2F+r7P5G/8bTEvZ4zdEz84pkBQPp3L2+A1NIxf5TfQKpzfs8Rssy4J/
GE0Kp+7f53+g9f3EZ2LHw8mRPf6A93YzT92mcOr+/f4Hdo8sysmxi6BC9vgD
Q0MML/zMiKDu3/d/4JL97KXndkfQU/b4A9HXZ9udfRtB3b///8DKn9pt340i
yZo9/kJYUnpAenwkdX8f+AteMscmaWyKpCns8ReqdVJbOqsjqfv7wV9QviGl
bq4VRbfZ4y+MiAnwmxcTRd3fF4Rtndp3pqujyJA9OmFBGSX9fRhF3d8fOkHc
9YWlhmo05bNHJ6wvCNqeFRFN3d8nOmG3o8i7c3k0XWSPTnBdeSn3/v1o6v5+
0QnnfEaV1CrHkDp7/IPKC2kJjhEx1P194x+8PYtyl1bEUBp7/IMA1dEWqx/G
UPf3j3/wUHaczR61IXSKPf5ByaAPq39FD6Hu7yP/4OCdhA9L1w6hXuwhhhZF
U3emVQ8hHZ6PGB60fRE6W3co9WYfMWzNN0p+PWIo+fL8xHBkev342duGUgx7
ieGEjOtyGW+HUibPVwzHPYkuXWURS9PZTwxnLFRs7pkZSyt4/mK4vDU9/tzB
WNrNnmJY8rli/pmmWDrN6yGGElKxYmIuw+gO+wrXXzMsYcnkYdT9dU4MG2yv
eiRXDKPuH19iuHXLBNs5PYaTDK+XOEZNU7v9KWQ48V/HDMVxW7vC6S1Lh5MD
r584eputX77p8XAK5BOKo/WMzS11unE0jNdTHIc/OD5rSlIcjeb7QxxvOhm/
GlESR7N5fcUxwe3UkcXf4mgN3y/iqGL/fpNsvxG0j9dbHP1zV/SvmjGCzvMA
xTFshl7q96sj6AGvvzhKOwevTVCKp/d8P4mj+bzeRfqx8fTrX9cfcaxWs/0q
2hFPCuwhgVci7uT/9ymeTNhDAqdZVFzwcR5JLuwhgaLvh1YEzhhJoewhgW1N
niu3Xx9J8ewhgReKa8aHqyVQAXtIYOPoim8xIxNoHntI4LcfB44d3ZdAG9hD
As/lfB6f0pZAh9hDApP2LR9fbpxIF9hDAv3qlesaghLpCXtI4Lj1H98EjU6k
j+whgbPiZl59sCqR/j7tmnAP1JJS/bboTCKpsEcPjI4pPp5Xm0gW7NEDr16r
zZ8rnUTu7NEDtQ9LTL/SN4kGsUcP/NP7sIPr0CRKYo8emGj3vP7JjCQazx7C
8S0l34v3JNEi9uiBJ3ICDu+6m0Rb2KMHRj0+mf3wRxIdZQ/h+OLKmQ5Go+gK
e/TA/TsOeF0IHkXP2KMHTrij+312/ij6wh49sEGhqnnshlEkzh49sThm/bx1
F0eRBnv0RA/1W+2fG0eRDXv0xDOlEavGaSSTN3v0xIf3fTf2gWSKYI+eeNFq
y2C9zGRKZY+eqL2gV4vHqmSazB490e199rkl55NpCXv0RFe5M+/VGpJpB3v0
xNtrJmy/o5pCJ9ijJ/7XPEr3rHcK3WCPnlj+Q3VaTUYKvWSPnrimcnqDw+oU
amaPXqgwcsG0s5RCvdijF9p/nhM2uTGFdNijF6YfPjg6WyuVerNHL7x1YFPt
Cv9U8mWPXtgxbP++z3mpFMMewvajmHNTN6dSJnv0Qiv9VZJwI5Wms0cvzKnR
yXb9kUor2KMXyuoXX0gyS6Pd7NEL18SYPq0MT6PT7NELz8S9S4+akUZ32KMX
Wo49Yq1zMI1q2aMXpkg9PavyPI3aDnWdUBILE3qf8JJOJxn2kMQh5T3Wb3BN
JwP2kER5Y/GnVqnp5MAeknh6xa879avSKZA9JLFu/eGbTy6m0zD2kMTFyrPE
W5vTaTR7SGJrqtwKNMmg2ewhidUfT808E55Ba9hDEvWuup5JnJVB+9hDEkf4
1Ko4lmbQefaQxEO/tDx7v8mgB+whiRZ9Z90KV86k9+whhTFHnNw2YSb9Kuxa
QCm0b6x5JFuQSQrsIYVjAytvb9mRSSbsIYUvHY6JIh9mkgt7SOHFV+J3LHpk
USh7SGHC6IAMTecsimcPKdwqY1FokppFBewhhZpF2pMD1mbRPPaQwqA9crnT
rmXRBvaQQnlPqSFX27PoEHtI4YKVd78YirLpAntIoaH11NNz4rLpCXtI4ZgW
HYmvi7PpI3tIY+XzsEcjKrLpb1zXAKUxtLTHr5vfskmFPaRRdYP1XyeTHLJg
D2ncdXaxxarIHHJnD2l8sPVpwbu5OTSIPaTReG7xBqMTOZTEHtJoSi9l/epz
aDx7SGPxJ5+GAK3RtIg9pNEv2VbaNGQ0bWEPaaQR974/nDSajrKHNL4O21of
vm80XWEPacyX9ri7+tloesYeMmiqdK//Oplc+sIeMmij8/1IuHsuibOHDHql
qUqezsglDfaQwY8Fk+Svr8slG/aQwR+1/zzHX80lb/YQzlc27mZ5ay5FsIcM
xsaUHZ5vmkep7CGDTR/m7a4enEeT2UMGhxcO71c8LY+WsIcM5o44VvG6JI92
sIcMTssYlzf7cR6dYA8ZfBr6c+TMf3l0gz2EbY+xVz+o59NL9pDF95Oyfhyz
yadm9pDFneP93Ix88qkXe8hieUnqIvPIfNJhD1ncHzC9uSI1n3qzhyxOs4pf
+HFSPvmyhyyeWaM1bdt/+RTDHrJ4O9Baq2ZLPmWyhyweryu+uvFIPk1nD1m8
YJVoXFWZTyvYQxa/VDU2LH6QT7vZQxZXSqTpnKrNp9PsIYvrT/yti27Opzvs
IYcVI/UrEsQKqJY95FBb2TTuiWIBtTl2ecjh5aLiM2X6BSTDHnI4o83Uqs2m
gAzYQw6/zDP12OhaQA7sIYdF0gdebfMroED2kMM0BYOonmEFNIw95ISfNyNF
V2MLaDR7CNcXix9YN6qAZrOHHE7Y9bEtPqeA1rCHcP3tzeWO4wtoH3vI4cIl
BhNGTS+g8+whh7lyb1K+FBbQA/aQx8n2YlKP/yug9+whj7LfD4q0VhbQL/4C
I4/71azry9cVkAJ7yGPbEa3V5ZsLyIQ95LGwx9J7WjsKyIU95LH08dO858UF
FMoe8vj1lE6heEkBxbOHPOaefx22bH8BFbCHPI6zL/Kdf7CA5rGHPLZ4XPvZ
cKiANrCHPK6tVnI6c7iADrGHPJpPcn/6R9i+wB4KGB5kXntM2H7CHgr4/OGS
nLfC8R/ZQwE7xyvu+U84/983XSdUQLcdQbfLhOursIcC3tVA2zhhfBbsoYCn
PvTSWbi7gNzZQwFbHca3eO0soEHsoYAzZgZrT99aQEnsoYCbjYd+HrCxgMaz
hwJebtO/d3BNAS1iD2G7OM1g1/IC2sIeClh51L+Po7DeR9lDASWXWUXEzyug
K+yhiGuzfG5bzSygZ+yhiLK+Lc9XTyqgL+yhiIlrtxzcW1BA4uyhiDFamcnJ
WQWkwR6KuCk2Qu2WcH/YsIciTvsQcaF2eAF5s4cirn9bNmp/ZAFFsIciPkye
UGPVv4BS2UMRl6q/k4j3LaDJ7KGIJxNtNgx0K6Al7KGIL54ZR/zqU0A72EMR
syfr3Uq1KKAT7KGE11bdXrNar4BusIcSTsj17bNQpYBesocSVi37+M9PqoCa
2UMJQzoPplz7I/TPHkp4/Ybibq0WoX/2UMKc2OHtLh+E/tlDCSuVnhea1wj9
s4cS3lDRTHx/X+ifPZTQ753OsilXhP7ZQwl3NpBk/Wmhf/ZQQt3L4gdtDgv9
s4cSWhwfGB28U+ifPZRQXPTsCq4Vfl7xfJQx913PU1pF+fSBfZRx1/vDj+5M
F35+8fyUcc7N1cdSCvLpN3sp449XpXUvU4T58M9nZVy7c329R2w+KfHPN2XM
D3hhO32AMD/++aCMw64k6O4Rfv6Zsacy7hl3Ua7cQZgvr4cyFhYeHXTUPJ/6
sa8wnukhpmu1hPnz+gjbiVmVabL5NIC9lXHIFueSkI48iuH1UkY3691/t73O
owT2V8bw5mNHnlzOo0xeP2UMmdPnWeO+PBrL94MyXt1wZXbd0jyazuupjO2F
B7deGJtHC/j+EOY321ltXmwereD1VcZW/ZSj9t55tInvF2VcN7PI46pJHu3m
9VZGsSN3E4Il8+gI3z/KGH3mzMUTn3LpNK+/Mr59ebFN9V4uXeL7SRmP77w+
LfFYLt1hD2V0lt54Z5vw+6yKPVRwwoWc8IdTc6mWPVQwf0NM4q+EXGpkDxVU
Vjw3QDMgl9rYQwVFzjejRda59I/vPxVM/FV91FU+l2TYQwVVn1Uv8WoaTWrs
oYK6OuXS3o9HkwF7qODWYurnfmo0WbGHChps/m3huHk0ObCHCvYpW/zYetZo
8mQPFfyT0cvTMGU0BbKHCp7pXxGsJvz+H8weKnjA0fqNtN1oGsYewvjP6dX+
UxpNyeyhgnXNFka/vufQaPZQwf0DHqa1VeXQRPZQwU79lmltZ3NoNnuo4Ihp
tYYd23LoP/ZQwQsXb0j0LMyhNeyhgv9Ka6vUMnJoG3uooGn0gSDRwBzaxx4q
KHm6b3OwfQ4dYw8VHDnXbexo9Rw6zx4qeHLqglGb2rPpGnuoYL25/OCHNdn0
gD1UUTdH65LqhWx6wR6q2DJ3iX/87mx6zx6qwvdNjfCyRdn0jT1UMVS7f7Jq
bjb9Yg9VvFpc2zI9Mpt6sIcq9pR8ldfmmk0K7KGKW+uOBU3WyyYt9hD2R459
LSOWTSbsoYqlc79u2VuXRbbsoYrV9q9rI29kkQt7qOKMLbJS8oezCNhDFS8l
pqQ+Wil8P2UPVTRs7huxb2IWRbGHsN3DRG/pCOH7KnuoYsjlKcpzfLMonT1U
sU9n76nzLIXvr+yhisqiHzvWy2XRVPZQxWWzx18/25RJ89hDFfXVwvt+e5JJ
y9hDFdvrAtWdzmbSBvZQxfq+A8sWbM+kXeyhipqndvt+mZdJh9hDFT+FdfxM
zs6kcvZQxZ1zR0t/Ds+kC+whjPe/47vmuWbSLfZQw81ptu32+pn0hD3UUH/w
R4ev4pn0mj3U8OTox1POf8igj+yhhoH1xzu23smg7+yhhn88gqtWHsugv/z7
Rg3nK4U5b9iQQVLsoYaXB+9yKpuZQSrsoYZPLoa0vUzNID32UEN1+Unr9Adm
kAV7qKGsaZlrrmMG9WUPNfSDu18eameQO3sI54+Qftr/Xzr5s4caTvysKPX0
fToNYg81jL2svG7c7XQayh5qWHr8xkbLY+mUxB5qWDlkmcXnDemUzR5qWG8X
H3plVjqNZw81NEx9o1mWnk4z2UMNp/ebu6UsLJ0WsYca5tVNbLzqkk6r2EMN
+0dfUvimn05b2EMNF8YHK9v2TKe97KGGouO3/05pTKOj7KGGGYXyb149TKOz
7KGGPc+fpiFn0ugKe6jje9mi4rc70ugee6hj8iKfNXMWpdEz9lDHhzYH17kW
pNE79lBHw8eXSjtj0+gLe6jjlICNdc8xjX6yhzq+253ness6jcTZQx1/fT1Z
ck85jeTYQx0b/ul7N7SnkgZ7qOOe+cta1WtTyYg91HHbPv97McLfh23YQx0X
Tzl3e//RVHJiD3Wc6vygUW1jKnmzhzq2Bh0TrZiTSsHsoY7GfVrnm2anUgR7
qGOH3n9/r0WlUhx7qGNpwfOi2V6plMoe6iireEI02CKV8thDHU1zk6vtFVNp
Mnuoo+OekqWWP1NoLnuoo4X9tWD7Nym0hD2E7dXz/g66kULr2EMdfT457ptZ
lkI72EMd09wO+F/ZlEIH2EMdXx2Iu2I4L4VOsIc6ehwNslycm0LEHho47ZPU
SIXYFLrBHhp4vVd18k7fFHrEHhp4atzyPgNsU+gle2hgn15HjktppNAH9tBA
iZHDPld1JlMze2jgl5GJt842JNNv/j6jgZGp/sHHHiZTL/bQQOmJTjEV55JJ
iT00UDNK81PNnmTSYQ8NzMla1KG4IpnM2EMDDSvrpkRPTabe7KGBFse8Ew6l
JlM/9tBA/aOZm3TCk8mXPTRw6iMxsw0eyTSAPTTwdkbiR1uLZIphDw2sSD9U
+0ApmRLYQwNT7z/tLOoYRZnsoYH2v9Y5DX0/isayhwaq3pwyxvX+KJrOHhpY
/P7ZIeuzo2gBe2hgWeXbqt57RtEK9tDAtfvWvQ1cMYo2sYcGfqp4QPnTRtFu
9tDA40/9kg6nj6Ij7CFcb8jEU52Ro+g0e2hiZUfVySSfUXSJPTTRe82BQVU2
o+gOe2hi3Ent3ASNUVTFHpo4IcxKpkNsFNWyhyZq40WlvZ+TqJE9NHHj+1Nj
0qqTqI09NBH/qzR1u5xE/8q7JqyJC2vGK+uXJpEMe2ji26CRdqqbk0iNPTTx
aPjHNN2FSWTAHpq4+H1BqfO4JLJiD03cux5+JSYmkQN7aKJmzQKHbQOTyJM9
NLG5T17oN7ckCmQPYXx+sg4RFkk0mD00caVqQvVllSQaxh6amPEntW//zkRK
Zg9NNL4sa1n7KZFGs4cmOq/rfXBRVSJNZA9N3Nyr+Kj/5USazR6aOLbF3VLp
aCL9xx6aKD+97FfjlkRawx6a2Pvddb3nRYm0jT00UTnOYdqziYm0jz00MfHD
BtlPKYl0jD20cKbZgZNykYl0nj20sFVGJt8HEukae2jh9WNRlnPsEukBe2hh
jqr1jac6ifSCPbRw5U7jEC+pRHrPHlrY4XTQIvVjAn1jDy3sY1TpMPZyAv1i
Dy287XFg1c5tCdSDPbRwxe9Nou9TEkiBPbSwOOjik5QhCaTFHlqYuTZ83E+H
BDJhDy2U05r+fr9CAtmyhxYOOzVHeubHkeTCHlp40nXnubFXRhKwh3A9PbPa
hTtGUih7aKHRieiYiukjKYo9hOv3WNauNnwkxbOHFprsdNq/yHUkpbOHFlLx
4VAjtZFUwB5aOClv4snH3+JpKnto4Yj5Kvf33Y6neeyhhTNiFCZs3RdPy9hD
C3+1SC8smx9PG9hDC+9Xl75/nxxPu9hDOH5DZa6bbzwdYg9tfLe4R4/9hvFU
zh7a6DUpZo7HnxF0gT20sazPrtsfn42gW+yhjTPtGi+Ul4+gJ+yhjVa9ffyK
14yg1+yhja1nqPeRsSPoI3to487Te1KqI0bQd/bQxjuN3teM7EfQ36VdC6iN
w8fWucxTHEFS7KGNBwcqrpD+Ekcq7KGNfa4EnN53K4702EMbQ79YLsvYH0cW
7KGN3pJZ3wMWxVFf9tBGg0/PrvpkxJE7e2jjzYJhn2KC48ifPbRx3+O3PkWW
cTSIPbRRRXLh7he94mgoe2hjvsLYf6Hvh1MSe2hjRFx97yeXh1M2e2jjVD1v
1enFw2k8e2jj2NmNS3wLh9NM9tDGXWoz55imDKdF7KGNC1q2PjAKGE6r2EMb
i/Tk493Nh9MW9tDG2n07JPN6Dqe97KGDUhoxpZV1w+goe+hgdKarV58rw+gs
e+jgwtn5i8t3D6Mr7KGDYR6hc0fMH0b32EMHcbdJD4P0YfSMPXRwe78JX9uD
h9E79tDBWz9fWTVZD6Mv7KGDs/cqrZSQHUY/2UMHlT9XKdk3xpI4e+ig/1iz
wkm3Y0mOPXQwVrvjwYtDsaTBHjpY3GNWzbBlsWTEHjo4/2bb/Jb8WLJhDx2c
tvjU8d2RseTEHjrC+vqFjnWOJW/20MHSe9bWcZqxFMweOrhSZOwS3z6UIthD
B6UT26MmPx9Kceyhg7ePbM04cm4opbKHDpplGQz9t3Uo5bGHDlZ3buqROXso
TWYPHbwqnxD5OXkozWUPHVyde91qUdBQWsIeOvg9cGgG2Ayldeyhg5d7lbQr
yg+lHeyhixVTxp3/+XUIHWAPXbz9cNWmXw+G0An20MVZOzsmqp8YQsQeutjy
8Uy/kPVD6AZ76OJNrZ6Vq6cOoUfsoYsP5cx+/Bo5hF6yhy4GaM2hiX5D6AN7
6OLTPyXiipZDqJk9dLHkm9fOczJD6Hdql4cu6i4XWzD3Swz1Yg9dDP/4aM2o
BzHU/X6mLvbMOX582IkY0mEPXTT+eO5GxoYYMmMPXbRbbHF22fQY6s0ewvge
+ufdTYqhfuyhi5Hzim6bB8WQL3voYtbhRadXimJoAHvoYsqyr/raSjEUwx66
uGfd3JfHv0dTAnvo4uuh9m8zqqMpkz10cfuEXyrO56NpLHvoomiXWLTmzmia
zh66qLWwcJnSgmhawB66aHD+zQGjnGhawR66KHtqyfKgiGjaxB56WHTe2KLQ
NZp2s4ce2j8YEFGtF01H2EMPHYtf/vETj6bT7KGHYvMuKF2uj6JL7KGH0oP+
FcTdjqI77KGHWWFn5WTKoqiKPfTwka/rldvroqiWPYTzO96Zv2d6FDWyhx52
ZP5yW5scRW3soYf7R4Zf3hQaRf+8ujz0UHfzXJXyvlEkwx56mHYkUaZBI4rU
2EMPW1UerO7zJ5IM2EMPx6k931z0NpKs2EMPt13aLPvneiQ5sIce/nwRc23O
kUjyZA89PF0Sf85wbSQFsoceardYPbo3LZIGs4ceLq7zb1uTHEnD2EMPH7bH
yRf0j6Rk9tDD4TUuEkkOkTSaPfTwa2xZZap2JE1kDz385HnHYea/CJrNHnp4
2HsLHKqPoP/YQw/1G6Ief7sTQWvYQx8DZng/DzoRQdvYQx+P11Z6lm2OoH3s
oY+3Jye8cyiMoGPsoY+ndE6cvZIdQefZQx+vvp94ZHRUBF1jD30U85i0z8Yz
gh6whz4aLtu++pdpBL1gD30cl9gW91I2gt6zhz5qq6z59LglnL6xhz623C+3
ffM8nH6xhz6qzjki++9iOPVgD30M2vJhjMOBcFJgD32cpPV+8MRV4aTFHvq4
MTBoyf2p4WTCHvroePGipndKONmyhz5+DbetPjcwnFzYQx9/Xco8P9glnIA9
hPm8nlXWZhBOoeyhj2mweNdhyXCKYg993Dxm1q/WV4Mpnj30UX/eo+iy0sGU
zh76mFFS47BmzmAqYA9hPTavy9wSPZimsoc+2pXbP7lpOZjmsYc+Xj7SM8zg
VxgtYw8DXDxq+6HVt8JoA3sYYO3Gyjv2W8NoF3sYYP3ziIXN+WF0iD0M0NQs
v/ypfxiVs4cBhp1Jc3mjGUYX2MMAx7UdqVH4NIhusYcBWv9rXZBwfhA9YQ8D
LNiuoPpk+SB6zR4GKCYlNiQ3ZRB9ZA8DXLFUrK+t2yD6zh4G2H9hwSQ5+UH0
l98XN8Bq8XcKSm8GkhR7GKDzMtVbLscHkgp7GOB65cb/Zi4cSHrsYYDK0wrt
Po8YSBbsYYDzd5stmuowkPqyh7Bf0mNGb8mB5M4eBvivMLVB/MUA8mcPA4zF
/OL2IwNoEHsY4OPo8GUq8wbQUPYwwFN7rOYPHD6AktjDAM/t90/b13cAZbOH
AU7qY6Bg3WsAjWcPAywyiY29/rw/zWQPA1QfecmiqLQ/LWIPQ1QfGxs1en5/
WsUehhib40kFI/rTFvYwxKbNZ4LXOfanvexhiNvTw269lO5PR9nDECtkNlgH
vg6ls+xhiM4paT53ToTSFfYwxM9XDjSOXxxK99jDEGedWKAEyaH0jD0MMfyc
7yJrj1B6xx6GOK9vfzdHlVD6wh6GqPfH/U9cQwj9ZA9DjC54eHw3hZA4ewjj
kf3rq7QuhOTYwxAVvW7NXZ8bQhrsIYzfa8Jw36AQMmIPQ2x9OHKPjGEI2bCH
IUobKYQ0twWTE3sYon26vXH7nWDyZg9DXFO3VclwTzAFs4cw3qUxP0fNCKYI
9jBE5fqJp64OCaY49jBEvDLYObRvMKWyh3A960EDP0kFUx57GOKYf73e7nsT
RJPZwxCrW12qFpwOornsYYTSvhUKhSuDaAl7GGHJuN3pW7ODaB17GKFqsNa1
pwFBtIM9jDA6JUWxt2EQHWAPI5TzlDDe8TOQTrCHEYbfKnrl+CCQiD2McOG4
c3Zv9wfSDfYwwtjLk78cLgykR+xhhLlBN3psGBlIL9nDCEMin0RudwukD+xh
hMtfNJ6/rBpIzexhhJN8Z1hLfgmg35+6JmyEgw1NJqRcC6Be7GGE7VqLi17v
CCAl9jDC/Uc2hE6cFkA67GGEharB62yHBpAZexihz6djQ/84BFBv9hCu38c0
76N8APVjDyNc3dp2oeWDP/myhxGe8jvhrH3JnwawhxHWvZY6OGyrP8WwhxGi
Zbl8+WR/SmAPI7R/csjTPsafMtnDCIPe/TS4Yu9PY9nDSPj778X14+X9Cfh1
DGM8+Gv4Ct8GP7rMPsZonWX/xfqyX/fzPSVjdD7yYIXtdj+6y17G6GX3NSV0
mh9F8ddJY1ydEzNwTqwfVbOfMar/+tH7qbNf9/NAM2PUFr39FqDiR2/ZUzj/
38BJd7/4UnrX6foY4/aG/ENjbvrSZ/Y1xpDS++Md9vp2Pz90M0ZHj5Zy2UJf
+sHewniTZw/vTPSlqV3r5SecryokQN7Hl8T438uMUeyNwwhnPd/u540DjTHe
L2DRhHYkWf73GmNsVNxT9vAJ0rKu6Q41xs1TNlHIMSR1/vupMf45Nn9d9XLs
fj6ZZIxuZz6YzMlFMuTv48YY7TQiKHAg0q6u9c42RumAbZ9NREjW/H3QGC+n
LvqjJY3dzzPHG2P4DONzYbeBHPn3nzHa/1jcsm0hUHkXx0xhP5bnmAUCeXHv
xnjqYb/f1eLQ/fyzyBjXe73JrazwoSC+34T5PT2z/tlUH7rV5bHaGKvHyPY3
d/ehcL7/jLFStX/09h/e3c9Ltxpj7Bq7RYOOe9Nwvh+F62dvPmM7xpted3mU
GOPy0LNnPOy9KYXvT2NUflkbN+WrV/fz1WPG2DljW/6ng16Uy/ersN4Np28V
ZXvR9y6P84JXvR3GibxoEt+/xjhJWbQj7qNn9/PYa8J8pmtf/K/Ek+bw/Sys
5+TVExrTPUmK/3cWY2zyyFs5xcqTFvP9LYxv8+GPbh88up/f1gjb9xaHW+71
oLV8vxtjg9akTX7pHqTH/7uBMcrPUd22xMqDtvP9b4wlmxzspRrcu5/3NgnH
274yO1LiTvu5B2E+n6IGz8t0p778Oqqwnr7iCxeJ3Ok492GM7b/m7zrb6Nb9
fLiXCYb2ODVR75AbVXAfJqhsseF5Sa4b+XMfJri+InFnsr0bXec+TNB41oTd
A1r6dT9P1jFBtB57JvF4P3rIfQjbYHxq54R+NJT7MMHKRxPHq7j3oxruQ9ju
V3zj4G/X7ufPfUzQh/79N67Cleq5DxN0m6q+OmO2K2VzHyY4qWPT6YUBrtTE
fZhgotTMx4+lXLufV/sJ40t9cm7gLRfq4J+PJrhw5fv+TUtdaCb3YYL588yH
UqQL9eQ+TPBNjsuZ05ou3c+3h5pg9piPA18/dyZF7kMY3yRo6LvNmVZxH8L1
XyWnHkh2Jm3uwwSve5duibB27n4enm2CDX0PZJl+cSJT7sMEA5Sk9xiUOdFe
7kMYb/keG/+JTmTHfQifH7Dq3kovp+7n5zNNcFZ7rzHyEk7kyn0I8z8xqvHI
NUc6y30Ix8u5a05f4kjIfZhge7X/nbFRjt3P21cLn9fIbFyl40j9uQ8TDF97
esDL1w50j/sQjn+Sf2PwHgeK5j5MMPZEKzTmOHQ/ny8R1ivkSdERJwcayX10
HX973uYOe3rHfZhgyagK+bIL9pTBfZjg5tby398W2nc/zz8veL/61mdIuD2N
4T5MsPTilTl1Wvb0k/swwftQuNeF+tI07kPYtrX72xzWt/v5/wPh+ATXyr+v
+tB87sME7WP37I/N60Ny3IdwPy67N0FCrA8t5z5McLtUzOuO5b273xeoF8b7
yXqbr2lv2sh9CPenyuKCp8fsyIj7EPx3KaieDrSjYu7DBKeVFHl9rLLtfr+g
Q7j+5t6H0rJs6TD3IWxL5xo7/BWRE/dhitsNlKNClovoFPchbAeZSxw0E3W/
j6BkisuvSDbGldvQRe7DFN+EJtwaOsCGgrkPU0xcYpy07bU13eY+TLH084Is
x3HW3e8vmJlipbjBHmUZa3rKfZiivd/Rh+5brSiO+xCutz7hyCEnK3rDfZhi
fo/Fv7NvWHa/7+BmihKO7yaMS7CkT9yHKTaZDK+92mZBedyHcL7zvX+PWmxB
rdyHML6pbwtDzCy6348YKFxfLAAmnjGnTv4+IWyfTWn8GmFOc7kPYX4Lt/Q/
8tGMpLkPYTt6ieGp2Wbd71MkmWL4aW0bGV0zUuU+TBH3ZtrtLDOlddyHMF6J
b5/mDDAlfe5DOH//EVYH6ky6378Yb4pinvuKdWeYkCX3Icx3rIrlAy0TOsB9
mKK2jnre3aPGZM99CPOZPdZfdaBx9/saRcLxuzPvut0xIg/uQzg+HryfSRgR
cR/C9vGpI3q5G1IA9yFc/9KJE+fyDLrf79hqisaLpB517tGnMO5D2O+mALde
6dEj7kOYz9K6QhMtPYrlPoRtEzt78XDd7vdBjgnnPyNxJ3ORDo3iPoT13SvZ
MPySNn3gPoTxacYoPv6rRTnch3A/pC6689hNq/v9kWumOGvuuWMjxmnSBO5D
uH5w4eDsUg363eXxQDj+RktfsS/qNIv7ED5/Zk2drki9+32TGuHzt8f/PZOu
RkXchzCeXppyb3arkhL3IVzPdOzWRXUqtJr7EMbfKhFabqbS/X5Kk7D/8rHN
GcnKtJX7EK43qmqoR7ASmXEfwvUsldX2XVegEu5D2F9xeoX+APnu91l6mSFq
ZvxedVeWyrgPMxSr2zBJMUqG+nEfwv6x5Y7/VUvROe7DDCsnqETLJEh2v/+i
I3z+7muphfU96Sr3YYazMnGKZF4PGsB9CMeLu1bPbRen+9yH8HmpvYP/zRHr
fl+mj7B985Rhk35nxXPuQ9i+J7b0ucvvigTuQ9iW9ww7F95eUcd9CNvFHhdX
jW6r4Pdr/ITt2UvDEha3VHzlPoTt4Z1lHsO/VYzlPoRtRZ2167d9rGjnPoRt
kyqdJw3vKvh9nKHC9mpl0fPsmgoJ7qPr+LOXzig8qFjAfQjb4bbfNF+erJDn
PoRt6btH7Eae9OH3d7KF7TcythWv7vtoch/CtsSoMcMMa3w2cR/CdobVWocD
73yMuQ9hW7d/Rb7/Rx9+32emsH26H36p+uoj4j6E9VMuUYtxbvE5wn0I271r
vJ90tPo4cx/CdlrfHZPop89p7kPYPjKzAud0+PhwH8L5nqlp9PX/63OJ+xDW
/2LYClNxMQjhPgS/vVscLiaIwx3uQzh+6HnrieclIJL7EPYr9Hby0+0JVdyH
sH/qbnnzCb1gBPchnP+GTr7BA0mo5T6Ezy8+pdXXVhrSuA/h888/nxtWKAON
3Iew3zRBe2uNLORzH8Lx+KP2j5M8tHEfwudTqu9PKFKAKdyHsF85Z5P8G0X4
1/X3oRozTJx3cGqCrjIUch/C5/dfHhh8WRlkuA9hflIaehWjVWAp92GG232G
4GVNVVDjPoT9495pDCdVWM99COe/cqZ1ZroaGHAfwvguTXdxVVKHndyHGb6p
K7CfflIdrLgPc6zsmOUdE68BB7kPc5y1x/14RQ9NcOA+zBFv3Ws8vU8TTnIf
5vhG3MAzeLAWeHIfwvGyO9rTWrWgkvsQjoc5U3Q2aEMgT9ccjXsu1Uzw1oGb
3Ic5Jrq4m7rV6sBg7kPY3ri9pbhQFx5zH8LnIxfV7LbSg2Hchzne90ty9ryp
B6+4D+Hz8yEsNUcfkrkPYftZ3XRzRQNo4D6E8fQ8pzn5iAGM5j7McXv/59nJ
4YbQwn0I53/y7967JkOYyH0I49Vev6ZjuRH84b+fmqOyWbxUtLYxzOY+zHFS
9eqgH+nGIMl9CMfr2zqklBvDf9yHcP6Yw9+2SJqAMvdhjvmb5+7fFWMCa7gP
cyz5UL9ofLEJ6HIfwuf9G0+ofTeBbdyHOYr1mDpkhq8pmHMf5hjeMnTViWWm
sI/7EK73n97q0y9NoQ/3IYzXvN+sIlszOMZ9mGOTResM68lm4MZ9mGOp27jy
VVfN4Dz3IYxn4tHw22rm4Md9COu1c0bBw0RzuMZ9COcftAD3HDKHgdyHcH3l
8LrgDnN4wH0I5z/lOrc8yAKGcB/C/slj/NtWWsAL7kNYb231AeKvLSCR+xC8
jCUrX4gs4T33IcxPWeF64QRLyOI+hOvPvbbwzwVL+MZ9CPPJOmzlr2AF47gP
Yb+jxs3YWCv4xX0I52+1WeO9ywpmcB/C/uK2Q81frKAH9yGMx2eE+3g3a1jI
fZijfbP+iOtzrEGB+xDOH/7Qo/G2NazkPoTxTGv59VLTBrS4D2H+4ffOb0+0
gc3ch3D+5Wv3O+23ARPuwwLF1CPr1n63gT3chwU2ffuw9KaXCGy5Dwss3a17
9+48EZRyHxaoPHDRlV13ReDCfVgIv3+PrA/VsoUz3IcF4on6rMoEWwDuwwJn
aaQkSJfYwmXuwwKNf3psMGmyhVDuQzj+VZynvJsd3OU+LDCxfnXG9Zl2EMV9
CNf7sMJ/yDU7qOY+hO2dNV9PKPaGeO5DGG99zeIPMb3hLfdhgW8uVEPj5t6Q
zn1YYPj2VpsL73rDZ+5DuP5Up9GZoj5QwH0I5+ucYFuX3wd+cB/CeEpnznco
7wNTuQ9hPAZftkX87QNi3Iew3eG9IcC/L8zjPizQfvD9VbKL+oIs92GB+Vtq
S3fd7QvLuA8LbJhzTVpa1h7UuQ/h+qezGvfa2cMG7sMCY2uuL3cYbA+G3Ifw
+SSU2V1gD7u4D2F+L4xSJVbbgzX3IRyvsOd46El7OMR9WODyDnHpqdX24Mh9
CNf/F5m3tsMeyrkPC6x+VdKxSd8BvLgPC8x42uPMfz4OcIH7sEDzsujzqYkO
EMR9CF4109RFcxzgFvdhgZfHhN2r3uUA4dyHMP+YxX8LrjjAE+7DAk95fjrc
Vu8Aw7kPCwy5LP89WdoRXnMfwngWLnp2zsYRUrgPC7S2+1AgNsARPnIfwvgL
ttzqk+MIudyHML9QjR/BSxzhO/dhgW51JWIDDzvCJO5D2H9lV4fHPUf42/Xv
a/XC/fvQ77t6kyPM4T6E+y/l+K9nyk4gxX0I6xunbVDk4ASLuQ/henazciwi
nUCF+xDWp/XrjwNjnGAt9yHsXzjslsEqJ9DjPiyF31972qccc4Lt3Icl4qjD
Sy49cgIL7kPYP9Nzw8/vTrCf+7DEN26yIi11Z+jLfVji+u/Xw0ydneE492GJ
TQ7amjrRzuDOfVii27aipb/HOkMF9yF83mz31RurnMGf+7AUfl6+uj33mDNc
5z4scfmGHUdsHjnDIO5DGI9a6PSzLc7wkPuwxNLHZgHuqi4wlPuwxIU1Y1R3
ObhADfdhiacuZ/5oD3eBJO5DGM/9Pp0e+S5Qz30I23+f98tc5gLZ3IewrTzl
6NzDLtDEfVjirL2yk4vuuMB47kMYb+CMzdM/u0AH/3unJWqnnbaJl3OFmdyH
cP2Fq/rYiFyhJ/dhibG+VadqQ1xhEfdhie1Bfk/np7uCIvchHD9n3mrt+a6w
ivuwxAb9QPF1xa6gzX1Y4vZl2iKJS66whfsQrl9apD+81hVMuQ9h/0Wd+q3/
XGEv92GJynP7rb5v0A/suA9hvdxCnb959oOj3IewXrT3UcewfuDKfQjHb942
8/vEfnCW+xD29yoIfLamHyD3YYnVLYMdDx7rB1e4D0vMt0uJynnQD/pzH8L6
DrlxQudbP7jHfQjX67Es7bi8G0RzH8L5zpwa4yVyg2fch3C8gs+Ho8FuMJL7
sMSM7bIP1FPd4B33IczfrdMrdY4bZHAfwnzufO63a5sbfOE+hPth6da7d8+5
wRjuwxKtO+4pNDxzg5/chyVOeusg8e2HG0zjPoT1mpl56p2aO4hzH8L9N0XZ
+6q9O8znPoTxdRzfvHaQO8hxH5ZofPzZu+gsd1jOfQhezW2G4gvcQYP7sMKQ
3eOHb9rlDhu5Dyt0Kzi906zSHYy4Dyu0L9fsubHGHYq5DyvcXlxV1NnuDjbc
hxUu9/H0j9DwgMPchxXOyh3vvtLBA5y4Dys0Vjoy+cIgDzjFfVjhqZ+9lF9n
eoA392GF4bJLpBvnecBF7sMKG7wH5r3f4QHB3IcVKh/E8LvnPeA292GFuHlE
+e5nHhDBfQjjWb6gNLvNA55yH8L5w7cGG6t4Qhz3YYUZP8csvGTnCW+4Dyts
/3N7RkyIJ6RyH8Ln/TNdnyZ7wifuwwrvm3WcCZzpCXnch3D+CVbaxRs9oZX7
EOa7c+mw5hOeMJn7sMLqPReLej/whE5+PmCF1pYDy2M/e8Jc7sMKm8bu+zRG
ygukuQ8r4fdLmP00Uy9Ywn0I15uwe9U4by9Q5T6E8exWMB4R6wXruA8rfHOw
5o3jWC/Q5z6E6/+Ir21f4gU7uA8rLHnz0O5wiRdYch9WeP3qmLuRl7zgAPch
nF8x+0H9Sy+w5z6sUMzhNWa1e8EJ7kMY35UGq5eq3uDBfQj7l69bAb29gbgP
K9Se37xwRbA3BHAfwvarFu1HSd5wg/sQ7hftpQN7TvOGMO5DuL7MwT4Wa73h
EfchrE+97U2XUm+I5T6sUHPQOxvXm97wkvsQPMK2xlrWecMo7sMK7aYbJUl2
esMH7sMKS5uNwp5q+UAO9yH4DxssWuvgA83ch7AenVFiQQN8YAL3IYzv8c3n
71N84HeXR5Nw/PTgy+Nn+MAs7kOYb1z0tbZ1PtCL+xCOXz3ma+pRHyjiPoTj
DXUDrt70ASXuwxqrr59+qFnnA6u5D2sMDykvHvrXB3S4D2vM8Mm7vFATYCv3
YY0hAS5e+/sCmHEf1sL3wyjNcyEAJdyHNWq3ycdXJAH05j6ssalzve7RKQBl
3Ic1Xv9kNWz1KoB+3Idw/VNvTDMOApzjPoTzbaidbXcFwJf7sEbsgFm1LwGu
ch/WmLhI2nrBD4AB3Ic1du7cdmGpFMJ97sMaL1/4NuihGkIM92GNOb+/eCsa
IzznPqzx88hla/3sEBK4D2sccfzyiDw3hDruQxjv7ClrVgcgZHIf1vhYaUNg
WTjCV+7DGrNG9xxzfQTCWO7DGp3HbzaqykBo5z6ssfWBV9SrcQjTuQ9hvBLn
VV7NQpDgPqzRbWRTwtPFCAu4D2v00t3jd209gjz3YY23B+6rKC1GWMF9CPtb
KqtXliJoch/WaNd8ZM3ocwibuA/h84YuHXgdwZj7EM7vLyen8BhhN/chzNfg
4+0HrxFE3Ic1nsqcHbCsEeEI92GNb97MmRD4E8GZ+7DGaL/16a0SvnCa+xDW
PzpDf7OiL/hwH8LnP67Z4KXrC5e4D2tMqad3Tyx8IYT7EK7nO/tfuoMv3OE+
rFFZoaC5xcsXIrkPa9w83rRiQogvVHEf1ih/0zzre5QvjOA+rLFkeo+OjARf
qOU+hPH0DhpTleULadyH4LUzv8pngi80ch/WaFwl0WfbbF/I5z4E/9+TprQv
9oU27kNY/0kDLvRf7wtTuA9r/NryVXLtLl/41/V8s8Map0U8Hvz8sC8Uch/W
2J8ytmud8QUZ7sMGlUs1/g664gtLuQ8bzKnDrOn3fUGN+7DB4pyBn3e/8IX1
3IcNnjq0dsG1el8w4D5ssDBlCr5t9oWd3IcNtu4L0/vxxxesuA8b/NyWpt9D
2g8Och82aG+uFiKj5gcO3IeN8PfHbTulDf3gJPdhgzWbo+3FbfzAk/uwwcel
E9tanPygkvsQxuvb/8dLHz8I5D5s8HaEbL+LoX5wk/uwwfDElrPbov1gMPdh
gwvT3RdNSPCDx9yHDc56q7orKMsPhnEfNhj74LCC8ng/eMV92GD0Wfc7D2f6
QTL3YYPnjtW8X1rkBw3chw1eHnE+LmCNH4zmPoTPN/51/L7ND1q4Dxt0E53P
27TfDyZyHzbCzy9NTe8TfvCHnzcL6/XBRFRNfjCb+7DB9TKtR3Ju+oEk92GD
f2y2Huh47Af/cR82aO7ax2TOaz9Q5j5sMOTqYfUen/xgDfchrLexVdH0Vj/Q
5T5sUN5n07zmTj/Yxn3YYOVNObkEGX8w5z5scILdBMOrav6wj/uwQePCx5cs
Df2hD/chrPdRg3+zrP3hGPchjH9o4OPHjv7gxn0I53vpGWzq7Q/nuQ8bnDTu
a1xmsD/4cR82WK0drLk/wh+ucR/C+dbaTamL84eB3Icw/iVz/tNO84cH3IcN
puTbhAXl+8MQ7kOYz5LOK6On+MML7sMGrZVqfiwt9IdE7sMGvf6ur9u31B/e
cx82OMRfZlXFen/I4j6E+7fsb687O/3hG/dhg6t7Bvg+OegP47gPYTyv9oRU
nfSHX9yHDYo9/WL0qNIfZnAfNjgu/+XN6zf9oQf3IcLbNv0GnXrsDwu5DxEe
HH96/45X/qDAfYiw5aLRh8IGf1jJfYjw3AxTyVEt/qDFfYhQW2uinPsff9jM
fYhwVue9DhnJADDhPkS4/XBN1WOlANjDfYiwaX/ong06AWDLfYhwWmFlZqxZ
AJRyHyLc+OKDhUrvAHDhPkRYlJL86pJrAJzhPkS4sOHR2nwMAOA+ROjTvypS
q38AXOY+RBi7QFrzVFQAhHIfIkw89+9dZHwA3OU+hP1WkZUf0gIgivsQYZpo
5eEJ+QFQzX0I+8MGl/2bHADx3IcIxwVp3pszNwDech8itGzJlxZbEgDp3IcI
NyfWJ01cGwCfuQ8RBjzqeNWwLQAKuA8RFlb2nRu9LwB+cB8iTHnaI/JMWQBM
5T6E8/9tCdM9FwBi3IcIK+MmTB93JQDmcR/Ceg3pWXv9bgDIch8iLF6nPF2r
OgCWcR/C+sjJxyTWBoA69yHCkoaUnF2fAmAD9yHC6CPzr775HgCG3Ifg2/t5
mvbfANjFfYhwzOwr4f0lA8Ga+xChod7BBROUAuEQ9yH4VX5V3KIdCI7chwj3
L2v8eN4kEMq5DxH2FOvUeyYKBC/uQ4QN9TNKvjoFwgXuQ1ivyZdXdnoFQhD3
Idwfg0xfSQcFwi3uQxhvwsclCoMDIZz7EMarmrFbPjYQnnAfIrR3/GQlmRQI
w7kPEVq3n9LuyAyE19yHCOXl9aY2jAmEFO5DON/86MgHUwPhI/chwqrWPTuO
FwZCLvch7B8WkbNySSB85z4EP/vlJ7LWBsIk7kOEe/K3zPLeFgh/u96X6WWL
QUtL78uWBMIc7sMWt0/vLHlYGghS3Ict1p04Lb/mdCAs5j5sMcRR9V/ExUBQ
4T5s0XSCy1yZW4GwlvuwxaVLwjaffRQIetyHLWqqzB+UURMI27kPW0yzktio
9D4QLLgPW5ReWF949Esg7Oc+hPFMj1YJ+xEIfbkPW5T9kOX3vjMQjnMftnjK
K0hvolQQuHMftvh2mdi2HspBUMF92OLnJUfvF2kHgT/3YYvRc3OPyZsEwXXu
Q7hefP/+i2yCYBD3YYvhB2LWizkGwUPuwxYX79q6fYxHEAzlPoTxmDmkvfYL
ghruwxZ/lGp+DhoQBEnchy3azxrisi8qCOq5D1uUGNMWIDkiCLK5D1t01f5h
MDIlCJq4D1ssLY+9VJoTBOO5D1vMCNVz6xwXBB38/pItBsxwnxk0PQhmch+2
eI4Oblo0Lwh6ch+2aOiUs/zakiBYxH3Y4p8zOYlia4NAkfuwxcO/tis6bw2C
VdyHcL6oX1tG7QkCbe7DFpu+JassPhwEW7gPW7x+/nZ26ckgMOU+bFFyrEHp
vYog2Mt92KLzcu/aj1eDwI77sMXho1Ql/t0NgqPchy1O6zlTQ6kqCFy5D1u0
HpViqPs6CM5yH7bY4r7DyPhDECD3YYvjDFX1Tb4FwRXuwxYHTl6hafAzCPpz
H8L1Fv9UUf8XBPe4D2H843RVJKWCIZr7EK4nuqv5XTEYnnEfwvEL6ixeaAbD
SO5D8PDv7VthGAzvuA9bPP5rfPZmy2DI4D5s8b6oaO/4PsHwhfsQ7mdvp/ZQ
12AYw33YIs5yS9TxCYaf3Icdjuud8PZdYDBM4z7s0DI7a/a+QcEgzn3Y4adB
epgVEwzzuQ87XP/c3sQyPhjkuA87zJDOsHqZEgzLuQ87fHxxasyynGDQ4D7s
sOmT+WGvccGwkfuww/zhus7vpwaDEfdhh/p1yp8Wzg2GYu7DDiWHnn1o9V8w
2HAfdrh55s2mCyuD4TD3YYeVNl+Chm4MBifuww4LTe9XfdgRDKe4DztM9DDc
M3ZfMHhzH3a4NmjW8Y7SYLj4f8d041N1GcUBfNyFozIRFAeMhFIvCc9xamVC
wDka8/c88ZKYioAEsgUyo0yT0R0wlDUIlcSxyRQM4800ehFpUvJyV12g3ZDE
XQGBXYQgL4wksCDwruv5A87Ovud7PuxD0MY1Fc45NzTU2Icg+3Wv8v9aNTSz
D0GeE2WGo+0axrAPQWNtP1aNd2loYR+CFvEF71iLhgnsw5H/eKrVOKihlX0I
kt/q5/3/0PBd9iHo8jMLqZ9OamhjH4IiRw1ibEbDD9iHIKp7PTJsQcNZ9uG4
n6W7o0Qn8WP2IWjlcnO19WmJduOTwIJmlzbfD3CTmM8+BA1Ub/rksKdEF/Yh
6NeuxuLvfCWeZh+Ctlb1OE3pJbqzD0F5iSuG122QeI59CPo5cWFD3KsSfdiH
oBsBy6cKQiReYh+CrEfu+F17Q6KefQhqWdbZefdNiVfZh6CduoyJuRiJG9mH
o9/c0EKPOImN7ENQ+EjjF5AsMZh9CPqq7a3QbWkSW9mHoM19J+J3vi8xnH04
+n3xl8X4YxI72Ycgc0eR/kC2xGj2IagadvSn5EvsYR+CgifTvJOLJO5jH4IM
fe882FcicZB9CCpdUqaiyiSmsA9Bp4y5oaGfSxxnH4I6zmW3v1Qr8T324fjH
2PkHrvUSp9kH0FbXhLq/GyRmsg8gz5VLdL//IHHhSR+uQFn2/YtXjBLz2AfQ
6q/byvI6JDqzDyCXiDN9MbckFrEPoEJtvXG1RaIr+wDqSB6PGR+QWMo+gEIu
rS2+OiLRi30ALUsJyjpkk3iRfQA9FZnt7j8tcQ37ABqK25409K/Ey+wDqL93
KLnELhHYh2P/oSovclZ4jX0AdbtYT9qeVfga+wAqdRppOuOu8Cb7AFp8PFez
2UvhNvYBpHfK2NXtq9DEPoD+TC80pusVRrAPIOvs2Ud2obCbfTju1Xz74Wcv
K9zDPoAyw041+gQr7GcfQJY9uh01pDCJfTjyhGdWr9cUjrIPoMp6/54voxSm
sw+g6Iu776zbrXCKfQDFFwZdqYhXeJR9ACVrbrFuBxTOsQ+ge34eg3lpCnPY
h2PelB02maFQxz6AtuzNzXn7I4UF7APoSGJ0+fcGhUvZB9Bor2+Fx3GFJewD
qHjL2hOHCxSuYh9AY3tPRrWfVniBfQC1FOc7eZcq9GMfQOa6oMqD5xXWsA+g
m/d7AxsqFQawD6DwuaLa+VqF37APoIPeWe4h9QpfYR9AXY9MHxoaFDaxD0e+
hnLT9SaFYewDKHLeZ8VEq8Kf2AdQ+WR63PMmhZJ9AD3cVH0hwqzwN/YBZPvL
du/YbYW72AcQ3UrwKe9VeJd9AK167J7UMqRwP/sA2h4YWDswqnCYfQCdP9s8
849NYSr7AMqeGVbPTSv8H4nvJdU=
      "]]}}, {}, {}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"Max Re Jacobian eigenvalue\"", TraditionalForm], None}, {
     FormBox["\"Laplacian eigenvalue \[Kappa]\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 15}, {-0.005, 0.001}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.761992879619731*^9, 3.7619938548727694`*^9, 3.761994303842537*^9, 
   3.762060442197431*^9, 3.762060833593457*^9, {3.762060890402152*^9, 
   3.7620609146890583`*^9}, 3.762061004448742*^9, 3.762061098480196*^9, 
   3.7620611467421303`*^9, 3.762061217088694*^9, {3.762061380317584*^9, 
   3.762061402609623*^9}, 3.762063132671246*^9, 3.76206562742247*^9, 
   3.762148463189826*^9, 3.762253979912304*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Export", "[", 
  RowBox[{"\"\<MSF4S.pdf\>\"", ",", "MSFPlot1"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<MSF5S.pdf\>\"", ",", "MSFPLot2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.762062638006768*^9, 3.762062722876482*^9}, {
  3.762063190469386*^9, 3.762063196909698*^9}}],

Cell[BoxData["\<\"MSF4S.pdf\"\>"], "Output",
 CellChangeTimes->{3.762063136137456*^9, 3.7620631975442057`*^9, 
  3.7620656275216503`*^9, 3.762148463490426*^9, 3.762253980266699*^9}],

Cell[BoxData["\<\"MSF5S.pdf\"\>"], "Output",
 CellChangeTimes->{3.762063136137456*^9, 3.7620631975442057`*^9, 
  3.7620656275216503`*^9, 3.762148463490426*^9, 3.762253980442635*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetFoodWebNicheNormal", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetScaleParameterCalculation", "[", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetExponentParameterCalculationStandart", "[", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GenerateFoodWeb", "[", "S", "]"}], "\[IndentingNewLine]", 
 RowBox[{"calcParameters", "[", "S", "]"}], "\[IndentingNewLine]", 
 RowBox[{"calcMatrices", "[", "S", "]"}], "\[IndentingNewLine]", 
 RowBox[{"CalculateReCoMSF", "[", 
  RowBox[{"JP", ",", "JC"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"PlotCoReMSF", "[", 
  RowBox[{"RePoints", ",", "CoPoints"}], "]"}]}], "Input",
 CellChangeTimes->{{3.762253994161684*^9, 3.762254044798978*^9}, {
  3.762254146142973*^9, 3.76225415927917*^9}, {3.7622541936655416`*^9, 
  3.76225420212739*^9}, {3.76225431509516*^9, 3.762254390967066*^9}, {
  3.762254423951366*^9, 3.7622544412259893`*^9}}],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 3, 4, 5}, {
       SparseArray[
       Automatic, {5, 5}, 0, {
        1, {{0, 0, 1, 1, 3, 4}, {{1}, {2}, {3}, {4}}}, Pattern}], Null}]]}, 
    TagBox[
     GraphicsGroupBox[
      GraphicsComplexBox[{{1.3416407864998738`, 0.8944271909999159}, {
       0.8944271909999159, 1.7888543819998317`}, {0.8944271909999159, 0.}, {
       0.4472135954999579, 0.8944271909999159}, {0., 0.}}, {
        {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], 
         ArrowBox[{{2, 1}, {4, 2}, {4, 3}, {5, 4}}, 0.020874891668923312`]}, 
        {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
         DiskBox[1, 0.020874891668923312], DiskBox[2, 0.020874891668923312], 
         DiskBox[3, 0.020874891668923312], DiskBox[4, 0.020874891668923312], 
         DiskBox[5, 0.020874891668923312]}}]],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Output",
 CellChangeTimes->{{3.7622540097645073`*^9, 3.7622540154374104`*^9}, 
   3.762254045752146*^9, {3.762254077752329*^9, 3.762254104749917*^9}, 
   3.7622541599686127`*^9, {3.762254351765976*^9, 3.762254459341969*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJwk3GVYlEsYh3EQAZHubpa0sLH+j61Hxe4WwQ5U7BZbwcLEBAMFRRATXUBF
VJTu7obdBaUEDz7w5Vx7uby8M7+512VnPOYrNs1w7SIlJSWWlZL699/OL5Gw
dqHL5g/hD/F0fMFurad1QufvB+NGzX6IRd5Rv2wX1QmF2Y+Pn659gO5pfpuH
d68TVm/Zkn3zxAO8NjlaNf11rdAxQ7rbAcsHcOOvWqH8gVkD+wvvQ4svWCus
7elwMGrhffy7mndUjdBX62NJr2Z/dFys44o1wjNH5k7cf8UffDmTGmFR+I41
YQP9Ectf1UK7d0Oz0lP9sJsvWC0cMm5l15odfrDlG6wWXpbbpv1b3w+p/24v
rUr4ZFe8TFP4PXj+u9zRKqEwoOXI72X30Lffv68qYetkkcwv2XvI5wtWCoNc
o+//fnIXXnyDlUK5u15D2mfcxTAecKWw/66rw1Va76CSL1chHH3MJN7W/w6u
Xvv3VSH027ApbKrzHYz7N33jK4TBsiNvd6u/jQa+wXJhYVGgk/ek27jHAy4X
Vu9dtLb/g1uYxhNYLnTUuXmhqcsttP/991UmPGs4ZXTW8psIZI8y4axXb4dl
RfliAXuUCW8mFW76LfBFN/YoE4651V3a/vQNvOQJLBUu6fFo0hbJdaxkj1Jh
v0cny74tvA4N9igVznoqeNbryzVEsEeJsNeY1ugr/a9hI3t0PHYqvv/X7yqM
2KNEeCHXyWSp9lV8Y49ioTgjYNXTE1ewkz2KhVobr9iVtF2GNXsUC5tLi4+2
bLuMZPYoEtZkSFmV1PjgMHsUCaee0Bx2Y7UP+rBHkXBXrt09jZJLyGWPQuEZ
s+EJ5HIJZ9ijUNg2qumXQdFFDGGPQqG1kkmzz8qLKGePAuG1OR4nH5RdwGX2
KBBa/7YQjFx/AWPYo0DYHrPAYoHkPCTskS/8MHDmq5Jd53GHPfKFF56ukk7v
ch7O7JEv/LZ1rqLg7Dk0sUee0EHZKzFC7xxm8fznCR0vfbw8YpI3gnm+c4Uj
L7nGrF7lBSWe31zhYDk/lfKjZ7Ga5zNHeKndaJD/gzP4xPOXLdxTdV3u6NfT
MOP5yhaqb0ztt6X2FPby/GQJw6dvXDJT+xTS+fYzhZN2z5dWG3ES/Xn8mcJf
fi1LvVefwDkeb4awUPBo/etLx1HN40sX1vVReegedQwTeDzpwt2/B4nuiI/C
n9dTmjDoWq/pDhZHIcXrJ03okZ7+rGGmJxbxekkVxi4vWpd37Ahe8/pIETob
XM/8/vYwtHg9pAizLE0uXak7hM3snyyMjnTcZyQ4hFi+XJJwSm3Z+t4LD8KW
fZOEYw+abBlmeQCe7JkoXPvA4Pb8c/uQz34JQseLFXvM2/ZgGHslCF0i9dqT
Vu/GVfaJF16UWbZvQ+JOlLNHnDA1YYDR7sE7cIfn/6ew7v2dR+FXPTCP5/uH
8Nq45z9d6rZCjec3Vhj3RD4ntf8WxPB8fhM+OJuYWD1rM2Zp/7v/S9gx9PLk
SZtWCC+Y/rveLRzfu/Pu44crhOU8Pn8UNO4ecOK2i1D++r/5DsCx/fTfivSV
Qmt+/lNkman9HDLITWgx4994nqNFo8Kt3/NVwuf8/S+Q6qv5N4/WCInn+xW6
hi+dM6porTCO/d5gSkR3nXuX1wuX8P2GQ2ZMo7fsgo3CGh7fB1TMbNLcrrNZ
+IHnIwKLV02/c1HeXSjHPy8SJ3t2n7NcaovQmef7I6Y8ff6hRWqr8DL//E+w
uHMv6rTCNmEue37GirbjzyYbeAit+X6+YPv6kPz9/bYLN/J6iUHC4qQra2bv
EL7k+/uKeNOC4DkHdwrbO+cP60J/V3m92CUc1zm/uJsccnG2ZLfQq3P+8eFC
4cwip73C1E4fqK/7arvs9D6hKv99E4+tzZ82Z5fuF4Z2+uLZEN+nVtYHhXM7
/aE7x8Hvdc5BYWvn+oCHhtHipmuHhLc71w9yzEpeX11wWDi6c31h7efVo/ub
HhGWda4/6IQWXZ5cdkR4unN9YriexQLnEE9h7871i7E9esZeOXBUmNS5vmE+
Ia//Iedjwh2d6x/XQ3y03UyOCw07+4C2b9OHoNrjQmFnP6jZ1s8g8cMJoUtn
X7DqQdUuXieF8nbcH64Xnt+stPiU8Elnn7heEPjojP1p4dTOfnFngVy3d79P
C+s7+8bP2bP7HYw8I+zN8ynCy2sPrpkJvDCPry/ClOW7H1V8v4BDPB4RZIwD
8rx6++Axz58Ii/WefV3V+wqS+PVFhJtzQ5/qtlzFH349EKF7681Tz+9dh4DH
L0buHuHA/v184czzLcahbfvP3Xp+EzvYT4yJ3dx2ZZvfxh2+fzEKzVZHzxx9
B195vsQwm/J6fZvoDiTs0/H9QfebA67fhSG//kngO+SofA3dwxgerwT6A1Vd
hhbfwwaeXwmSRgud6j39cJk9JWjaERWy3NIfQl4vEgwaeiU/WuiPcp4fCc65
7L4+b8F9qLNHPd61VF0eU38fQ9i/Hjc0UqVCTj2AC78+10Ol/86gKLOHOMOv
p/Uo/9iudCnsIcLYrx4/2yPLMPERcpm3HpVGZQ3ZWY8gz+uzAcoPvGYe2BCA
PuzRgLh+Y2sGtwdgPns0QN3sebS+12McZo8GPFo6dFQf4yd4wh4N8L57Zu7J
J0+QzB4NiPRUjerjFIg29mjA3gcOto7RgbBmj1+QGes97NKMIExlj1/Q/OGT
uSI3CDvZ4xcuFdwzub/mKe6yxy8MUzPds6LhKb6xxy+MnX7v2939z1DPHr/Q
OjDvWf+uwTBij9+IWOVyMm9CMMayx2/cXCG2nnU2GBvZ4zdUVFMUfRKCcYU9
fmPdPfLy136OCPb4jdqQzVme85+jgj1+Y4ns/NZBN59Dgz0a8bi0IkmY/xxD
2aMRnjtaHUysQrCSPRrxalZl0KxVITjLHo3YsriuYuXjELxkj0Zs/TVk3rSa
EOSxRyPkf2cu0OsTim7s0YS1R93xYUsoHNmjCU2Domh0WCgWsEcT6qwNTjxq
DMUR9miCmcaVXnVOLxDIHk1QMJg+Qm/vC6SwRxP2910bavXhBdp5+pqwSUFu
n7ZUGGzYoxkvv/fYXzUyDNPYoxnO5de9Hh4Jwy72aMaI0AN7/vschnvs0Qzr
iz26pci9xHf2aMbk/i9rx094iQb2aMZYjZP5fidfwpg9WnDwqORYxbeXGMce
Lbi57PYRfaVX2MQeLdBQUXfvP+UVrrJHC6bIdS8a4vUKkezRAtulEreeca9Q
yR4taLMY4Kmk9hqa7NEKPaUr4enTXmMYe7TiRt/jZy6cfw1X9miFTY+164Yk
voYXe7TCSj3/e7zGG7xij1bExMsazZn5Bvns0QqNfiGfv118AwX2+IN5eU97
9U5+g77s8QeDw2peH9F6i4Xs8Qd5kW+jYma9hSd7dDxWrXrQfuktgtjjD6LP
dXsvSHmLVPb4g9Wz9swfof0Of9njD3aPDP4xYfY72LJHG1r2Dl891ucdprNH
G7YEdPXon/IOu9mjDcesZw7X0Q6HH3u0wWGrVLeqWeGIZY821CSe0g+9FI5f
7NGGrbP7vtiYHA4T9mhHwQINPROt9xjPHu14/szpSOTM99jMHu34OSfScf7F
97jGHu3w0itcXJL4HlHs0Q6Vym7kpvEBVezRjkNUqZI9/QO02OMvspdd+jvu
/AcMZ4+/0Hl/cOzD+A9wY4+/KFzvr9GmKoQ3e/yFQfyBKxOmCvGaPf6iYHVP
mVNeQhSwx19YNW46EvlDCNnOX+DopnjpvR1yEdDn8UjRKKkebxSsI9CTfaSo
a4aZ4ZWxERjJ45MiwfDgbFPXCMxmLym6e+CDur9nBNbweKXo8qeHPyz9I7CP
/aRoZ5exlrc/RuA8j1+K/nwRWekUReA+e0qR97fTxSe6ROINz4cUHcWhrY3m
kfjBvlIk0/V74fKRkeh8Oy5Fny79GhWzLBKdL19SNCfT0t/+YCQUeL6k6fRX
DZ2TtyNhzP7S9Drb6FHRh0g48vxJU4Tb8DVDciMxli8oTf0jNVefbYvEfJ5P
adKcXxqSbRSFDbw+pGni9ftzbYdF4RDPrzRtDK912bwwCj68XqSp+xaVkhe7
oxDA8y1NcXtkyn9di8J7vkFp2mt+aFe/N1FI4PmXpu/nxPc3pEehhNeTNL2x
2rnLvzEKzfz+VJrifer/pul8hDJ7dKHJWlJjuw38CHP26ELrpjTPHDD7Iwaw
RxfSWPxn0NJtHzGRPbqQXGBF69GLH7GYPbpQYLjb44CQj3Bnjy4UVZI35VvC
Rxxljy707c9JUZnoI66xRxdaIXbx7aL2CUHs0YXWzxu80KD3J0SyRxfaUXFr
YG/nT0hhjy5kVds2aOSGT6hgjy6U4H969bQzn9DGv1DLUIDP1IRFTz5BnT1k
KCTbco/bt08QsIcMvVv1cuOGik9wYg8ZsrI79cK922dMYQ8ZWkVNs7bafMZy
9pAhUz3HeVvGfYYHe8jQid3Doze6fsZJ9pChfb5/H6z2/Iyb7CFDx0z7d1nm
9xnP2UOGPBW35s3qeB/7mT1k6Jmwz7jxBZ+RwR4yVJL1YfggqWjUsIcMXbKY
8sPKNBrS7NGVImZUtqqOiIY2e3Qlt1bP+KZF0bBjj660ZkL19Lw90RjOHl1J
Nib+2Mfr0ZjOHl3JyuGzx/030XBlj64kbh8hOJoejV3s0ZUil125saIxGmfZ
oysVBCrmDdf5grvs0ZVm23z4pTPgC8LYoyv9uv2ypGbmF3xlj660XL3oRdSW
L8hhj640YKjeGp/zXyBmD1nyGKTRzS34C2TZQ5ZaFD2u9I/7An32kCXlQT+M
pGu/oCd7yFLtoHM3vyvFYCR7yNJILWPTSw4xmM0esmSbHv5gwX8xWMMeHc/X
9HMyXRODfewhSytn12YXHI/BefaQJatbj3zuPYjBffaQpaGpX1Yv/xyDN+wh
SxrDei00KY7BD/aQpUnxj90zunxFAXvIknREc/AF86/4FfTvgnIU+u2T8X/0
FQrsIUdjHviF/13yFcbsIUeSpUYXQvd9hSN7yJHMO797rr5fMZY95GjEmZsS
7XdfMZ895Gin5uJjnzK+YgN7yNGXGYIV7k1fcYg95KiPi90pI91v8GEPOfoT
faZL9IBvCGAPOXJ+6xK3YdY3vGcPORp0KLRBc+s3JLCHHE14sWX76/PfUMIe
8rT41Ml5C4O/oZk/cJKnAPPEW39+foMye8jTw896U3xrvsGcPeRpQX+jVUOU
vmMAe8iTWsFZUar9d0xkD3mSHqhR4z7xOxazhzxpJtMyxdXf4c4e8uQV7z/F
79h3HGUPeQqWhL92uv8d19hDnnRqW/1/fvyOIPaQp3zfGO0Vhd8RyR4djwft
V2mQikUKe8hT1Nn1FzxNY1HBHt3o6+B0f80RsWhb+O8Gu5F8UsuEu4tioc4e
3eiVnczhnntiIWCPbjRnk/bM19di4cQeHc9fP0k48nUsprBHN6oNevH1a2os
lrNHN9J+Ncdj2q9YeLBHNzrp0PNziuYPnGSPbrSgzS58ft8fuMke3ejA1QGL
s6f9wHP26EaZSr2fLN70A5/Zoxu5D65+lHP2BzLYQ4F065zmLwr8gRr2UCAZ
y+wPGd9+QJo9FEhb0St7dsUPaLOHAqlM7BIWL/8TduyhQN4qRf/9Z/0Tw9lD
gaaPTLwTNeYnprOHAg2/veaNk8tPuLKHAlH+kCvPDv3ELvZQoJ4ZccOs7vzE
WfZQoMe+jwOvfPiJu+yhQKdvjK1QyPmJMPZQoCWfNX/tbv2Jr+yhQO8fHEys
1I9DDnt0p/AToiPzB8dBzB7dqa9XhOKXOXGQ7fxAlrwTxq3v5xEHffboTkaH
Eh/euhiHnuzRnQxbn0R0C4nDSPboTi0VWm/c4+Mwmz2607IlEy5m1MZhDXt0
JwOP97Z35OKxjz26k+rimpZE7XicZ4/u9CFt/EhZQTzus0d3GhKe82dg/3i8
YY/udD45vNfq0fH4wR6KtLaiLu3qjHgUsIciVf7Y3xyzPB6/+ANZReq1buOl
ps3xUGAPRVrwPSLA5mA8jNlDkXKtPIbM8Y6HI3so0vCS4+M9b8VjLHso0q13
koTnQfGYzx6KpOIXmJkbHo8N7KFIFjUBKxRj43GIPRRp/aTstYOy4uHDHooU
l9G3YUVlPALYQ5Gqba7/Pdscj/fsoUjbR/05+7pbAhLYQ4k+h9OdQt0ElLCH
En14M3mQkk0CmvkNjBK9begya8DABCizhxJd+za6cfHYBJizhxIZjqoxPzYr
AQPYQ4lmaGUlB7kkYCJ7KJFqWKlaypYELGYPJVJbWJbaeigB7uyhROXyITYW
5xNwlD2UqNhbv+uEOwm4xh5KFHu3dv2GZwkIYg8l2vnz74oLHxIQyR7KZHJO
v+zljwSksIcymc+Qa8nMTkAFeyjTsh1evu1VCWjjD8iVyWHFzjjz1gSos4cy
vdp94uKY7okQsIcyaQw8VOGmnwgn9lCmWCPLxBO2iZjCHsrkk9DD+fGgRCxn
D2X6rLtwyfdxifBgD2W6k7Fapnp2Ik6yhzId7aU6Qsk1ETfZQ5kmLZdV7bEt
Ec/ZQ5nsfkvtmHQkEZ/ZQ4WeBodtX3shERnsoULHr6WonLybiBr2UKEdXdXp
YXAipNlDhR756Ch+FiZCmz1U6PL4i5sLfybCjj1UqOfmvu5/cxIxnD1UaEH0
TWWjmkRMZw8VWrlq37jBfxLhyh4qVJi1w2iWYhJ2sYcKDTDue26TQRLOsocK
9bg+9d4puyTcZQ8Vshi2Zeb9wUkIYw9Vkl4/xF84Pglf2UOVQnXG+2TMSUIO
e6jS9pABNvWuSRCzhyrFj7q3QMkjCbLsoUprFtv0EXgmQZ89Or6/15JHwy8m
oSd7qJLF/tyPs+8lYSR7qJJPyIgjG54nYTZ7qNKDVM0yz4gkrGEPVfrtK667
EZeEfeyhSior194KyU3CefZQpeQhqvUxNUm4zx6qNKd4U23un4775fGo0dss
g/MNiskoYx812jzvZpaCYTLEPD418p1+5KeJfTJa2UuNFhyeu7afUzJk+fVZ
jQw2+D0bPyEZqvz6pkYTltbdWjg3Gfr8+qBGKzyiBm9yS4Yle6pR91v39h32
SEZPng81CryptdHHMxmD2FeNrDR8uz+6mIyRPD9qlOvxbubbe8mYxN4d92fZ
MDH2eTJm83ypUfK86JqciGQsZX81OjzkOerikrGG50+NilP7klReMrbyelCj
bXYxdWq1ydjH86lG0cY1zuZtyTjO60ONTlwwWuKolILzPL9qFLMo3nikYQpu
8HrpuN5/h7ym2afgPs+3GqnYPAxe6pSCZ7x+1Oj329eeGyek4A3Pf8d4Ex0U
981NwUdeT2q0aZjHmNNuKfjBHmrUkNDN8ZpHCtLYQ51ubJuf8MAzBQXsoU4n
NTMELy6moIo91Mk5qKlX5L0U/GIPdfo9w7bmx/MU/OX1p07b7dOWZUakQIE9
1Kl989ZTpXEp0GQPdfq2b+1aSW4KjNlDnaI/2Uq316TAhj3UaVq6/lSFthQ4
soc6bVr/aJaWUiqGsoc6RcwboWFqmIqx7KFOudfHnLCzT8VU9lCnLvMtX/Vz
SsV89lCn0KKRt4dPSIULe3R8/2u5kePnpmIDe6hTqmea7zS3VOxgD3Xqb60f
Ot8jFYfYQ532PO3tucIzFafZQ53aVu5XW3cxFT7soU5ZMavmbb2XitvsoU6C
i1MW7XmeigD2UKeLr88ZHYlIRSh7qJPl+vPXTsWl4j17qFOA2bOk87mp+MIe
6vT91ITvV2tSkcAeGmTi9+7g7T+pyGIPDdJ/5NpwXzENJeyhQdmmftaBBmmo
Yw8NUsyM0w2xS0Mze2hQrXhczKvBaZBhDw1Kjlsx+P34NCizhwbZOuxbHTUn
DbrsoUEblermfXFNgzl7aNDKn2rdY7elwYE9NGiz2ZC98UfSMIA9NOiPfNSz
5Atp6NzA1aDfBe3+6XfTMJE9NKiH67hF2cFpmMkeHX9+ryYlT5iGxeyhQfkK
EzWKfqZhFXto0Cm3QPXSnDS4s4cGbS9Zm1xenYY97KFB0VppC6pa03CUPTTo
YMmo+zXd0+HNHhq0JOhvaJ1+Oq6xhwa12Cw5LrZNhx97aFDMzqem9YPSEcQe
GqTWg/Y1jEvHK/bQoE+DV9z5NTsdkeyhQY+lXU7+XpmO7+yhSYVzzg1u3JqO
FPbQpJU7Bj1tPJyOPPbQpLUa9ysbz6ejgj00afcEQW3jnXTUs4cmjQqSedP4
LB1t/PeNJi2bcHpS44d0yLOHJrldkXvw+0c61Nmj43pewphf2ekwZA9Nir32
N7ShKh0C9tCkGbdVV9e3pKM3e2jSlr+DSsQKGXBiD016fDnCQaSXgdHsoUkn
PoiG1tpkYAp7aFKLs6pO9cAMzGUPTbpze8XbirEZWM4empR/oo9d2awMrGMP
TVJx/bCi2CUDHuyhSZ7q01cVbMnAAfbQpD91PQblHsrASfbQJP8yn8TMcxm4
yB6a1MUtzintdgZusocmrV9mtCHpaQYesocmfZglXB/3PgPP2UOT2v9rGfw9
NgPv2EOTQlJUEqOzMvCZPbTIV3PE4KjKDMSxhxYNCY5Z9745AxnsoUUbS2rX
v+6WiSL20KLAPaKhobqZqGEPLSr9rpQRZJ2JRvbQonTh4TGPBmRCmj206ETS
uf33xmRCkT20KFzb47jvzExos4cWHbTbsPTyikyYsocWPR73Uu6ceybs2EOL
5Iae3XfyYCb6dR5wIFrX69Nh70wMZ4+O5yelZO65lYnx7KFF6xWEkduCMjGd
PbRIY6hg14bwTCxkDy2qdRwt7fY9E67soUWzZsxcsCQzE5vYQ4tMbnp7zqnI
xC720KK+wY4HnZsycYQ9tGjCly1Txsln4Sx7aJHZ+9PVw3WycIU9tKhaMWzx
AEEW7rKHFnn+tL7bo38WnrCHFrVE6L2yHJ2FMPbQIq+RUbcNZmRByB7aNGL6
goXqy7PwlT20qfSSbqX85iwksYc2Vc7uM7l9fxZy2EObXhzOPNRwNgtl7KFN
/YMnna70zYKYPbTJV//N6vwnWWjl9zPaVHx3rkHq2yzIsoc2nUheeOf71yyo
soc2hZQ0t0SkZ0GfPbTpQair/cuyLFiyh3bH7++JvZ78zkJP9tCm1TO3dbsj
m41B7KFNbwfve3VJKxsj2UOb/pMxG3bSMhuT2EObPlV7Xd7XNxuz2UObwrNb
o91HZmMpe3Tc75qrP1ynZWMNe3Q8P93n8fyl2djKHtpkZSZYMmVjNvaxhzY1
lWwvp33ZOM4e2pR96N3E/meycZ49tGlLm8VhmxvZuMEe2pSqlXPe4HE27rOH
Nl0epL9L+U02nrFHx3yekBssFZONN+yhQ1r5ST8lqdn4yB46dOvbs+ElJdn4
wR465HUqxjOtIRtp7KFDDXqT/b/K5KCAPXRovGC17zuNHFSxhw6F6/y3Icg8
B7/YQ4fWKZnq3u6Tg7+v/g1Yh2blal4/hxwosIcO9TGe/fuQcw402UOHyjVV
e2xdnANj9tCh1182DF25Pgc27KFDQ5t8rWbvyYEje+iQqnlM2dhTORjKHjp0
cpfB0YHXcjCWPXRo7a8Pf6wf5WAqe+jQlbH5zrqvcjCfPXTIL/3RHvnoHLiw
hw5FZ4460picgw3soUOrB6W7lhXlYAd76FDg1QuWaZIcHGIPHXJbfSM8WjoX
p9lDh3bEGzq+VMuFD3vo0Kl3ww7dN83FbfbQoZ0p1kGXeuUigD10yPF0l7Aj
w3MRyh66NEmp6eqWybl4zx66dOe/3vOXL8zFF/bQJUFr3K+pa3ORwB66NPey
9KYRu3KRxR66tH9e1aceJ3JRwh669GHUi0aDK7moYw9dmmlwRF7hQS6a2UOX
bqzd3/D7RS5k2EOXnDxjPxR/zIUye+jS9v0X3RITc6HLHrr0amBzlbAgF+bs
oUu/p1tODRLlwoE9dDvePw46d/1vLgawhy7tsl/w7LhKHsAeurRX73ngNuM8
TGQPXTKNXXZieY88zGQPXSpIOjvKeWgeFrOHLv09vihryH95WMUeulTaXTzD
Zn4e3NlDl5onbArQXJ2HPeyhS0otLbl/t+fhKHvo0ss7r+qrjubBmz10afjp
mLK0S3m4xh66ZJc87d1Hvzz4sYcu6azYuvFZSB6C2EOPNpTPkL4RmYdX7KFH
6uXq247F5yGSPfSo8mlitHteHr6zhx4Nnf+qeVFtHlLYQ4+mJxQoTWjLQx57
6FFLmdNBfbl8VLCHHvluHF/ppZyPevbQIwvbx2O6auejjQ+Q6ZHpoy3eu4zy
Ic8eeiSz9vm3Wst8qLOHHu1N2P7bxSEfhuyhR372SRoZffMhYA890nicauo8
JB+92UOPhmw4b/xxZD6c2EOPbHdrKg2emI/R7NHx8yLWVwVOy8cU9tCjd7pB
78zn5WMue+hRwKjivZeX5mM5e+iRS7V5b8VV+VjHHnpUEuCReGBjPjzYQ4/s
W2rdGjzycYA99Mhk3M3q1fvycZI99Cg739slxzMfF9lDjyLkU79PP5OPm+yh
R6mF+wXRF/PxkD30yc/z2uYhN/LxnD30aXll/6Cn9/Lxjj30acafpVkWj/Px
mT30qfqsXevl5/mIYw99urT4jpLim3xksIc+rdZOUj0QkY8i9tCn4P/iu9Z/
yUcNe+jT8/0Pqtzi8tHIHvrkaLLyU2ZqPqTZQ596HNb1ds7NhyJ76JN73c9J
USX50GYPfZp55WrLgJp8mLKHPg2/cvhGQEM+7Nij4/ubr/cy/pOPfuyhT5mh
daHnZAownD306cFjL4euigUYzx769CfoqM8OjQJMZw99at9dKK7UL8BC9tCn
OeEhtMS8AK7soU9vFLoeTrAtwCb20Kc15UVhY/oUYBd76FP370uzXw0qwBH2
0CdbjaO/7FGAs+yhT6mKy6VvjSvAFfbQp9ENUlLqzgW4yx4G9OSXu/jI7AI8
YQ8DGmQbmfJ7UQHC2MOAnl9oDVyzsgBC9jCgdrteO7LXFeArexjQ/QTX/lO3
FiCJPQyoaOGz4sjdBchhDwMKPql7ov/hApSxhwG96f7E5OHJAojZw4Aq921/
pH++AK2u/zwMSNX9mODM1QLIsocBjVte5tN+uwCq7GFA5u/uN29+WAB99jCg
GZk/phU9LYAlexiQS/f1N2a/LEBP9jCgxcfOZHx5X4BB7GFA+ruGKg75XICR
7GFA1ObZJzC2AJPYw4ACjD0mmiQXYDZ7GJBMiu6cc1kFWMoeBjRLZdecLkUF
WMMeBpTq7//ftsoCbGUPAxq18kHfUnEB9rGHAQm7nVKZ11yA4+xhQAIszP0q
VYjz7GFA3/0F94Z2K8QN9jAkvZiG+UGqhbjPHobU2zZZ1lS3EM/Yw5DGD4i7
f86kEG/Yw5DuTxM7dbEuxEf2MKSvsWOjtvYsxA/2MKS9NWkjSvoXIo09DKmk
LOTZnGGFKGAPQ3pYWKAVM7oQVexhSH9+bdroNKkQv9jDkKIdVoc/nlGIv3wA
1pDCD6S0Gy4ohAJ7GNK0vKgBZ5cXQpM9DKnKbujy9tWFMGYPQzJxnHho0+ZC
2LCHIe143eiTv6MQjuxhSN88pt+efqAQQ9nDkPqqL78ZdawQY9nDkEYKHM/1
8yrEVPYwpMwRsTv8fQoxnz0M6XrOsFnaNwvhwh6GdGfrWcEx/0JsYA9DyneN
qfr9pBA72MOQFJWaHqwKLcQh9jCk2GDruelvC3GaPQwp5PySPxOiCuHDHkbk
nhdw+c3XQtxmDyMqea9hbZ9QiAD2MKK60X6Pr6cXIpQ9jEhmr6uVYn4h3rOH
ERW5uFzcU1aIL+xhRDeqHzRW1RYigT2MSLbVafqi34XIYg8jWrPK+k5sWyFK
2MOIsts8iofJFqGOPYzIdn9fkyClIjSzhxHV3nCdYqxVBBn2MKLcdr0tZw2L
oMweRrRl1JwzbRZF0GUPI3L7be27wb4I5uxhRLtuXbqb41gEB/Yworchj3yn
OBVhAHsY0Ynb68++pyJ0Hsg2onWfK7b2nFCEiexhRPd22U27ObUIM9nDiGJk
B1gozy3CYvYwIrVH2pV7lxRhFXsY0fiLyQ+rXYvgzh5GpFO3e+GiDUXYwx5G
9DlNXTZ2WxGOsocRnVpyz3/o3iJ4s4cxHTs5YMiTI0W4xh7GlDgz+bPB6SL4
sYcxvQ06Pv7UhSIEsYcxbd47T9h8rQiv2MOYZl+f2nPN3SJEsocxzU3zOJ/+
qAjf2cOYNjYlVY0PLkIKexhT86stw169KkIeexjTn88LjlgLi1DBHsYk/HIp
wie6CPXsYUwj59k1dP1ZhDbNfx7G1K+bucm2lCLIs4cxvVvsOaIouwjq7GFM
UikLZ88oLoIhexhTft6zFZFVRRCwhzFplZ5w61NfhN7sYUxLx9Ytu91SBCf2
MKZN06umq3Qpxmj2MKaGmUed9ikUYwp7GFPamc+61WrFmMsexkR9X1Qv0CvG
cvYwppWb57/+alqMdexhTPFr3u8ebFMMD/YwphODyvs97FWMA+xhTHnlBUXa
A4txkj1M6NaRkFOew4txkT1MSLPrCtv6McW4yR4m5Li4KXz55GI8ZA8Tur5z
34T4mcV4zh4mNGVg87cRC4vxjj1MaN+GrWOCVhTjM3uYUFhV/QvDtcWIYw8T
eupx2OiUezEy2MOESqKt9zTtLEYRe5hQwvnyeLeDxahhDxMqPBBnnHK8GI3s
YUL3HYuWj/YuhjR7dFx/hMPN55eLocgeJlQ64Fmc6a1iaLOHCQ26ub357P1i
mLKHCUnEJwz+BBbDjj1MyO9RTd+1L4rRr/MfLNDsnoGj0t8VYzh7dIyv6PvE
cR+LMZ49TGijYNaEF9+KMZ09TEhq3OQRFonFWMgeJiTyeudwLqMYruxhQj9H
Bqi15xdjE3uY0PsrRjXryouxiz1M6EKkUWRGXTGOsIcpicqCz4xvLMZZ9jCl
aQ75U8Pai3GFPUyp0e95d0u5EtxlD1OqWd7j/TnlEjxhD1Nau2HuqnatEoSx
hykdinZSWG9UAiF7mNJo18x7GZYl+MoeppTqRP3HO5QgiT1M6UGPLe9f9C1B
DnuYkpTJjhEWQ0pQxh6m9LR09ivvkSUQs4cpnZqrbds2oQSt/A8qTOmLU/i5
tdNKIMsepqQxdbo4bW4JVNnDlHpNz5o4dmkJ9NnDlM5Ill0PcSuBJXuYUnNO
eaHpxhL0ZA9T+vRyl+VZjxIMYg9TStczWNSytwQj2cOUbl6NP7PKswST2MOU
LD76hSWfLsFs9jClqSbXU0deLMFS9jClNbZv655eL8Ea9jClinndpY3ulWAr
e5jSHdPz3U8GlAB8HMOMjpfMUvodXIJP7GNGE5UWybm8Lunc31M1o8u1gU1x
whL8ZC8zEudNKRr2pQQz+e2kGcn3HBsd8LME6exnRmsNr93VSS3p3A+0NKPk
iqkeR3JKUMieZlQft2mkqLgEq/5drpcZBbe3yy6uLkE1+5rR6DsyH7/Wl3Tu
Hw42o4q0IzsHtpbgN3ubUe+oo9Z+XUqx5998jTIjKQ/VH6rdSyHFn5eZ0Zm/
1uv3qpd27jdONiPntYkyFXql6M6f15jRf690L802K4X3v+HONaMfBX+MomxK
ocW/n5pRau7xW716l3buTy7vGL/vB70bA0thwu/HzchQ5uFp+RGl8Ps33+vM
KLx+XOPWsaWw5feDZhQw0X9h/uTSzv1MDzM6nfHp9eRZpejLf/91/Dz3pypv
Fpbi1T+OA2Z0M9NtscClFMO4dzOKSKn3P7+2tHP/85QZ/TVZWNLmXopxvN7M
6PG6eyZrd5Xi+z+PS2aksy5uWurBUkzj9WdGB6PL9ow6Udq5X3rLjJTNxbef
epdiAa9HMwrUFYcbXClF3j+PR2Y0eWRN4rFbpVjJ69OMBL2rCiT3Szv3V0PN
aNh6UcWSoFJs5PVqRhf2dan69qIU9f883pvR3kLrkoHhpdjJ69eM5mm5pN/7
WNq5H/vFjN4dC/+k8r0Uh3k9m9HQh4Mf704shTwfl+9YDznZJ0ozSnGG17cZ
yZx9umxGQWnn/m12x3pTC3X8UF6Ky7zezcg7oq7VTlQKQ/7nQmYkXbNG6NNY
iju8/s0ot8B6r/Tf0s79XlHH+Esc+m6QK8Nj7sGMigbuL0hXLkNvPo5qRgs0
LE+N0S7DC+7DjO4HmvYINirr3B+WNaegAbu+GFqV4QP3YU6paf0XHXcow2ju
w5zsX8+tlPQtQwz3YU79f5e6LxlS1rmfrN/xOLBM8nVkGRK5D3NSrluyYcDE
MszlPsyJfk4vuDOtDNnchzn1mfXZWWleWef+cy9zyjz6IWzH0jKUch/m1NVl
lE6RWxnWcR/mtKp09mbnjWUQcR/mtE62/eMbj7LO/epRHT8/GOqCfWVo4ddH
c1JNNJ13zrMMB7gPc5Kb7ne19XQZunIf5qSpEpfodrGsc397rjmNKHkol3i9
DCrchzlNCurbf/i9MlzkPsxpyeBtCx8FlEGP+zCn0TPd92o+L+vcD19nTv2i
e13Z/7oMFtyHOVnMev6kQliGh9xHx/e/a3sz60sZenAf5tQzTC9K+LOsc//8
gDmN+y33yT61DAO5D3Ma3uuH0CenDO+4D3PKl98cJlVSBuI+zGmXXYP/uuqy
zv32Sx3z03+JV2p9Gf7jPsxpxucQ95GtZYjjPszJdttv58Au5ZjFfZjTlOSe
1rrdyzv35x91PN62uPGQejmWcB/mNDv3ZFS1XjmKuA9zCrzy6vhcs3Ks5j7M
aaB51bgom/LO/fz35jS/0VaqZ+9ybOE+zMnnvEfolYHlaOQ+zGmlS8qyLiPK
sZf7MKetWZO7bRhb3rn/n2BOUivzA9Iml+MY99Ex3hWXxo6aVQ5F7sOczjht
yApcWI5z3Ic5tY7ZtE7XpbzzvECpORXl3Pp1aG05rnMf5rR9ntTuavdymHIf
5uTX9WrTnF3l8Oc+zMm411r3yIPlnecLWszJyWhPscOJcjzlPsxJpB43/bJ3
OfpxHxZk7rz2jdSVcrzmPixok+J0w3W3yjvPI6hakMXB4ztS7pcjivuwINdc
9Z8IKsd47sOCls9qMHn8ohyx3IcF/VDst1YrvLzz/IKlBR2wT3y2/2M5UrkP
C9JKTKkr/1aOhdyHBSmYjbKfmViOfO7Dgrr2Mlz6PqO887zDYAsaoe7qZVNQ
jkruw4KQZfn6fHk5NnEfFrT52sLs1rpyNHAfFmQ/W63VtbG883zEZAuq0Ryn
Fd9ejnZ+P2FBvdKkbIfIVeAI92FBHr5jBvorV6Ab92FBJxdrQ0W7ovM8xfKO
+1XbMWqnUQU0uA8Lqr2/gQotK3CF+7Cg3sptgyc7VMCI+7Ag9T52PV72reg8
f+FhQZUNv/TNhlTAmvuwoJEjVnU5NbICT7gPC2qvPFhSP6ECfbgPC1JNHfdx
8bSKzvMapyzoZ2r4jS9zKzCE+7Cg7xGlGx2XVkDIfVhQrkvMsBtuFRjDfXTc
7xlXWdmNFZ3nO25ZkF6XqJiNHhVw5j4s6PqpgmPpeyuQxH1YUEnpF4zyrMA8
7sOCdibvrH9yuqLzPEioBc1TbrqrfbECK7gPC8ofP3HSgesVKOM+LCh24Oa6
8rsVWM99WND2k5u9ZgRUdJ4f+WJBZ6qm2IYHV2A792FBE2SV3gteV6D1n0eC
BTnveTrZW1iBg9xHx/VrB6c1RVd0njfJtqDAtqeLVvyswCnuw4JURmnlfE+p
gCr30TH+GevnDcipwCXuw4L2fnz781ZxRef5FJEF/baUoW7VFbjFfXQ8X2pi
oHt9BSy5DwvyLPLWzGqpwCPuw4LeTs/yGNOlsvM8i6wlDfvZKylIoRIh3Icl
WaSfddBVr8Qg7sOSZle17j+oV4lw7sOS7h7c+6PCtLLz/Iu+JVkqa+rOtKlE
NPdhSQoyHxeG96rEJO7DkoYkeN8QDKxEPPdhSROK9qZ6Da/sPC/Ty5Lc7p5V
ahpTiUzuw5K6uX8evnxyJZZyH5bU5YXN2m8zK1HMfVjSwK+vzvdbWNl5vmaU
JTkp7Xrhu6IStdyHJXmlbEyUXVuJrdyHJd3b7Vu10b0STdyHJT2cIiuVvrOy
8zzOXEvKuBmoOvJgJbpwHx3Xf+Vj8Ph4JY5zH5aUWfjRTNO7EkrchyWdcBti
sfdyZef5nXWWNOboH5OSm5XQ4T4sqXC/sq7z/Urc4D4sacS5zd1fBVbCjPuw
JMd622bTF5Wd530OWNLRXKeiE+8qYc99WJLesQcx4qhKPOM+LKncYEvAgm+V
6M99WFL+t9tHPyZU4g33YUlykX0X98ioxAjuw5K2CHr18cmvxEfuw5LGGfu0
t5VVYgL3YUmSb2tj3Ooq8YP7sKQfU0LOxv2uxAzuw5LGRm10HtxeiTTuo2N9
jPLrfle2Cou4D0taXTwjSkG5CgXchyXlhh/02KJVBTfuo+N62b2tsgyrUMV9
WNKhGS4/R1tWYTP3YUnBdibbAu2r8Iv7sCTVdS7a2n2rsJv7sKRUo4Eh+5yq
8Pff70PZltRj1LX/SqkKntyHJT3J8s51nlAFBe7DkpTKjDa+mloFL+7Dkk4u
Hd1sOrcKmtyHJe0dLnfwxJIqXOU+LOng9tVdxK5VMOY+LCmsbf3B+RuqcI/7
sKQ9H3VaIrdVwYb7sKI5Yas32e+tQiD3YUUHPrjmXzhSBUfuw4qWfVGb0nqq
Ci+5Dyu6HLY+zOVCFYZyH1a0bv1e/dhrVYjgPqzIPXbUrv53qzCWh2tFPqFR
yb6PqvCN+7CimW3tDrLBVZjKfVjRpsMt+ze8qkIy92FFw/Rf/0j5UIX53IcV
nfEZojciugq53IcVecR4Lnnwowou3IcVCQ9eu6OSUoVy7sOK9p/ak7s9uwob
uA8r2v2sp15eURUk3IcV/XkZMmV8VRV2cB9WdMVV+cAzSRX+8O+nVnRjX8db
9JYqHOI+rOjzB+eUA9LVkOM+rOhg6ZCWsm7VOM19WFHIM3nDaWrVUOM+rKgp
8dWg17rV8OE+rGiEnPM0M9NqGHAfVrS4LXblCetq3OY+rOjYmkEeop7VsOI+
rCiw2fvQvAHVCOA+rGjBgoyTEcOq0Yv76LifATpetmOqEcp9WFFov4le5yZV
YzD3YUVRzdtONc2oxnvuw4osHHwPL1tQjVHchxWtXx25PWZ5Nb5wH1a0YVqZ
W5811ZjMfVjRlANqM69urkYC92FF1V4YKrWzGnO4DyvqpbvDdPWBamRxHx3P
D3rzN+5YNZZxH1Y0r1ghe5BXNUq4DyvaOGXti9s+1VjLfViR7Y6cE/I3q1HH
fVhRVo3r/E3+1djGfXR4DpWzTntSjWbuw4pqyiNqR4RWYz/3YUXye66GPnhb
DRnuw4riPby3qURV4wT3YUWHFjxy3P61GsrcR8f8PiqpzImvxgXuw4qKsife
GZteDV3uw4q2bUmbHpRXDV/uw4pUC8/91Sqrhjn3IaBh93YG7K2txgPuQ0AR
NuenFv+qhgP3IaAHxdniSW3VCOY+BLR04pJzoV1rMID7ENDgT7oOhko1eMt9
CEgjUjHqsGYN+H9oYSkgmcfDZlca1OAT9yGgltLA4ukWNZjIfQioMGfJ5jd2
NfjJfQhokmRWk5ljDWZyHwJyPnZ+74nBNUjnPgS0slmnrQ41WMx9CMgtoGzX
3PE1KOQ+BJQilq3/4FyDVdyHgFb32Lbaek4NqrkPASUE9888u7gG7tyHgJ4l
T5zwa2UNfnMfArpUFRayaH0N9nAfAho9fo/+p601kOI+BLR1kO9ehz01OMp9
CChbwTD7wuEadOc+BOTYvWVQy8kaeHMfAtpxeOi55edroMV9CGjN24LimKs1
uMZ9CEi/qXZAnzs1MOE+BHT1gOuRKw9r4Md9COjzhfE/2p/WwJb7ENCALVc0
3V7WIIj7EFDXRXPn/Hhfg77ch4CCzpz06f+5Bq+4DwG9H9En4UZsDYZxHwL6
8XiKgkxyDSK5DwHlyBcPX5tVg3HcR4f3qV8bEwpr8J37ENBCN0/fwZU1mMZ9
CMg29kL0bXENUrgPAXlWWdTINddgAfchoD/igWobpWqRx30IaJ5iQu8U+Vqs
5D4EdGV5/aRhqrWo4D4E9MLozko/nVps5D4EZOaSsau7SS3quQ8BrZ1/97S7
oBY7uY+O8Vu0XEvvUYu2f5+vlQrIK7fEH/1rcZj7ENDrILfAB0NrIc99CEgr
aH+w8uhanOE+BDSrqffzbf/VQp37END0gL1Ps6bX4jL3IaDZ6W6PRs2vhSH3
YU2SG6JbActqcYf7sKbQbkYX1FbXQsB9dDx2rDq0Y1MtHnMf1tTbdtnG3O21
6M19WFNm6965Y/fX4gX3YU0H3o4eHni0Fk7chzW5bn5pqnm2Fh+4D2tqtUlr
33WpFqO5D2uyr3yYmX+jFjHchzW1v7cPHe9XiynchzUZBSw/8fRxLRK5D2ty
eOa8QDukFnO5D2vyTqy33fumFtnchzU905zZUBhRi+XchzXtdd8YPjGmFqXc
hzUNrBh/KDiuFuu4D2s6u71glG5aLUTchzWd1xwuvT+3Fh7chzV5vl4UXlxS
ixb+vNOaJiwatW1STS0OcB/WZNlQZxvSUIuu3Ic1ndi6KlPvTy1Och/W5B/7
+MQBmTqocB/WlF33rl9p9zpc5D6sST3WN2uyRh30uA9rWu889WCofh1uch/W
lLYixdzAvA4W3EfHeOr7RBy0rcND7sOaSstdFpb1rkMP7sOa5tlvrp8yqA7P
uQ9rMrs598SLEXUYyH1Yk7vAyMBwXB3ecR/W9Pq+8NGhKXUg7sOamtpH9y+f
VYfP3Ic1XVR7Eu68qA7/cR/WFPj698gwlzrEcR/WtCXJ9pPhujrM4j46vIaN
Hn14Sx0yuA9r0ogdLyzfVYcl3Ic1DV44ePDUQ3Uo4j6sSS9C52nYiTqs5j6s
KT2u2MzoXMcrIPdhTeWL/c8dvlKHLdxHh8ewuW3lt+rQyH10XG/YX7epD+qw
l/uwphk9bv0IC6qDNPdhTfszBzgahdXhGPdhTRaaMecPh9dBkfuwJqu7c+rK
P9bhHPdhTV2ciyZO/V4Hbe7DhmIKNt0NS6zDde7Dhv5YtP8yzKyDKfdhQ5JU
7/GHC+rgz33Y0OZI68vl5XWw4z5sKN//U4GzqA5PuQ8b2jJqnX1YYx36cR82
9Gi+0WbDv3V4zX3YkGvy+gySEWE492FDc7fPaK6XEyGK+7Ahd5FQ92F3EcZz
HzYUZ/qy/wIVEWK5DxuKzx8wTVlDhOnchw0Zq9LaCG0RUrkPG0o+mnJ4q74I
C7kPGxpp2njN2liEfO7DhgaG3X+WYSaCK/dhQ1fMCj+esRKhkvuwoVinoFTY
irCJ+7Chi+ny5RIHERq4DxsqSZI03u8twi7uw4aGdtkkN7+fCO28P2BDo5z2
aSoNEuEI92FDes4mpsIhInTjPmzISHum3ZYRIpzlPmzIYoVRX8EoETS4Dxua
2m2PU/pYEa5wHzZkmLkJpyeKYMR92JBLQOvoEVNEuMt92NCS8abjxdNEsOY+
bOiBZ9YE/1kiPOE+bMjB0XHi3Hki9OE+bGiIkfmE7otECOM+bOiAVuDY90tF
GMJ92JBjeeLIzS4iCLkPG7q+8vIwy1UijOE+Oh7PaRyQulaEr9yHDS079bvn
yY0iOHMfNnTk+yWrYVtESOI+OsZfkqhf5yHCPO6j4/l3nyvf2yVCDvdhQ4Jv
jlKz94mwgvuwIW/bWWL5QyKUcR82ZHZUv+CtpwjruQ8bSnp4OG7DCRHE3IcN
yc87F252RoTt3IcNeSwa/SjJW4TWfx4iG+q/x/fCsYsiHOQ+OtbzLt89TldE
kOU+bOi88RiX6usinOI+bGiH/aWJt2+JoMp92NLWlWd7zbgnwiXuw5Zee/XR
kH0ggj73YUvF6/Y3vAoQ4Rb3YUvdPuxIWRskgiX3YUsXxhmHGT8X4RH3YUu7
ozddjH8hQk/uw5b+tm3afOS1CCHchy2VB5pMHhguwiDuw5a2X9hrXSEUIZz7
sKVeG079vfFRhJHchy3Ztk5Ic/4iQjT3YUsJza+DpL+LMIn7sCWBddbhFz9F
iOc+bOnEsOA5qxJFmM192FJU02A7g1QRMrkPW1LT2d4SmyHCUu7DlvpOXf3t
QI4IxdyHLY1aonatb4EIa7gPW6r5s9GtpFiEWu7DloYUe/a9Wi7CVu7DtuPv
hxlt/1WL0MR92NKAjRnRbXUi7OM+bGnSQX3v4HoRunAftpT1RnOOS6MIx7kP
W3JMiDHUaRVBifuwpdF7nfJj2kU4z310XG+zm9+eLmLocB+2lLh8mmsvOTFu
cB+2tE62SVCgIIYZ92FL91SWlFxUFuM+92FLz/oc8RunLoY992FLg01WL2vW
EuMZ92FLq08qGwXqidGf+7ClTMttqUuMxHjDfdiS3y1fb3UzMUZwH7a0/vHx
8Z8sxfjIfXTMX+OA9u02YkzgPmzpUv9HoXYOYvzgPmzprnrequxeYszgPmyp
ZFiWgXdfMdK4j46fv/Jm7MiBYiziPmwpZID1vgYnMQq4j475Wry9x8PhYrhx
H7a0/KRX5vyRYlRxH7Y0f+Wm40pjxdjMfdjSoOv6/YQTxPjFfdhSn9SzOe6T
xdjNfdjSo6jYY1bTxPj7b3+zpWM9KaT1Spsphif3YUvms4NSTs4VQ4H7sKOo
KdP2DFsohhf3YUfzfCNM65aIocl92NGv8vaouyvEuMp92FG/LEXXWW5iGHMf
djTWoFxWfq0Y97gPO8qbfOn+mw1i2HAfdmSirz5mvbsYgdyHHWVaLS0w8RDD
kfuwI9I+sC9hpxgvuQ87Uvd21/PcK8ZQ7sOOXg0cFDLwoBgR3IcdNT2L/6/i
iBhjuQ87srk1ovDGcTG+cR92NNn/0E7n02JM5T7sKHzldWVpbzGSuQ87OnXo
5N3QC2LM5z7syNJ3an+3y2Lkch8dz59d81nvuhgu3IcdfXV2mfP9phjl3Icd
nbMJKdl3V4wN3IcdPTyQubXPfTEk3Icduf7Olip6JMYO7sOOjtm/PeMTKMYf
3m+2o11vt+hOCBbjEPfRMd4x8ndbQsWQ4z7s6OPKnXZBr8Q4zX3Y0c030cFL
34mhxn3YUY88yUANoRg+3IcdHXFve/cpSgwD7sOOViqVYUe0GLe5DzvqMik4
yu6bGFbchx0hZv6Y7B9iBHAfdrTUpPiTV4IYvbgPO9pbNnXMyBQxQrkPO2oI
vxlVny7GYO7DjqoH/cSDbDHecx921FVc8G5evhijuA87OnEwY6BisRhfuA87
6r0/LPh9mRiTuQ87WnNou93mKjESuA876mNufNeiTow53EfHeqsP0E2RiJHF
fdhRsbfx2eO/xVjGfdhR6Kmd0kNaxCjhPuzozq5326rbxFjLfdiRp7i09Ja0
BHXcR8d6PNY6d7qsBNu4Dzv69KP5i4yCBM3chx09nV848KWSBPu5DztqfB/m
v1pNAhnuw57czm5TN9SS4AT3YU9zFpju+6ErgTL3YU+JL1+WHTCU4AL3YU/L
+g+d3tdUAl3uw56mrAx6U2whgS/3YU9j05TNr1hLYM592NMb48XHJ9pL8ID7
6Hj85UZ1a08JHLgPe/qw8tu0p44SBHMf9iTnWRG6bIAEA7gPe9r+ollb00mC
t9yHPTl7tm7/PEwC/h+ajLKnkEN1qTtIgk/chz31GpI6wH6MBBO5D3vqNjT4
YvZ4CX5yH/Zkr75f5DVJgpnchz01TKDJI6dKkM592NPxjY0P6mdIsJj7sKdT
yv5SD+ZIUMh92NO65+Pmz1sgwSruw57ExXnB3ZdIUM192FNC383y75dL4M59
2JO+oGnRJlcJfnMf9nRv7M7n5msk2MN92FO1sbhr8noJpLgPe0of6DL32GYJ
jnIf9jRJP+7R4G0SdOc+7Gn1lAHNlTsk8OY+7KnvwssTbu6RQIv7sKcB3ySX
px6Q4Br3YU+XzScVSx+RwIT7sKdx5bf7vDgmgR/30XE//uI9bqcksOU+7Ckr
m6L1vCQI4j7syUfHS/X7eQn6ch/2NDUtY+4+HwlecR8d4/ezut37mgTDuA97
6iO9qaTAV4JI7sOeFm59Y3/pjgTjuA97ctnfddM4fwm+cx/2lHp/WkjTQwmm
cR/2VLX+VsPjJxKkcB/2dGtO7YDFzyRYwH10/PwS2q4aKkEe92FP/924HBb5
UoKV3EfHn7fU1W99K0EF92FPNUemOFp/kGAj99ExX2+ebUiPlKCe+7CnWgPd
gFOfJdjJfdiTt51n0bCvErT9Oy8j60COro1GdbESHOY+HOjSFPfZd+MlkOc+
HMhqheTMzGQJznAfDlRgvuejbLoE6tyHA11TVGp+lSXBZe7DgcJu3u+5Nk8C
Q+7DgRzmTFhuVCTBHe7DgSJCGi7+LJVAwH3838HdB2VdZXEALxUlcWJ9Co0U
xUIN772Kr6GJ32O0KLooJWyQtpCLAtLaKIG6Lr7gC6LS4luoBCYq2kMQ0oux
kqZCwqbCImsCvvAi4jao8dxrCyHL/jx/35kz95x7Pmfmzty5glp88so2/OyA
nX0Iyg56/9cJDxwYxz4E7d7iO6ql3YGv2Icg39DfhWY8cmAq+xCU6muSAzsd
OMM+BIXl3fmi67ED/uxDUG/vpvr8pzTK2YegHHm/b2QfjSD2IajOp+94m7NG
Nfuw6lGo3il10XibfQi64BWVnOiqcYN9CApwtn/2ynMa77EPQVNreirrBmnc
ZR+CTj699NHOFzXi2Ieg7c/cdMcwjV/YhyAZtcSvfYRGAvsQ1JPaE3FkpMZv
/H5JUK4jb2Oot8Z69iGozC0up5/S6MM+BK1b5ne+2EcjlX0IuhP9cmPcJI1n
2YeghM0ePR6+GnvYh6CPpsihVa9pvMA+BI0w832ToZHFPgTVT0hdMMlf4yX2
Icgz5vpf7gZoHGcfgjqdZ6Tsn6Mh2Yegsdv/cWjOPI2T7EPQyMh5px6/qTGF
fQiy9XReLgjVOM0+rP3XfdccGa5B7EPQtaUHO2zvapSxD0FRg9IHlEVqzGEf
glYvOjR8VZRGJfuw+iWvfLx3jEYI+xC0InGAf32cRi37EGQfG7cg7QONP7EP
QRTQshjxGs3sw6r/2LUr2hM1YtiHoM/D1Pojf9W4zz4EZU1+vCN0ncZK9iGo
avK9jH7JGv9lH5KOV7TnFG/R+Bv7kPTSe+75cakaT7MPSbfjIr7xSNPYyj4k
vRNeeqYyXcOFfUg6sX/2Dxv3aqSzD0mF+9suTdyv4cY+JDkuFla3ZGocZB+S
7Hv3/ZRxSGM4+5DWvMisDzyicZR9SFpw5vytrlwNb/YhKe5Xl8Z8u0YB+5A0
JnlVU0SBxkT2IWnrFafmgUUa37IPSR6zTzVd+FrDj31IGrdwZ2NCscZ59iHp
XPyW26O/05jFPiTt6865Ufu9xiX2IWlYVMv1HaUab7IPSVm2oBq/co1r7ENS
Q3zdlYc/aixkH1Y+jrTyw5UaDexDUlhn9LkFVzWWsA8rv/aYYqcn/yayD2s9
YFfhqTqND9iHpIGRjbmxtzQM+5CUeCL8kyFNGmvYh6SPt/2WfrlF43/nniQs
aVRs6eb1/9HYxD4kHSk6tWr8fQ1n9iEp5HJNbPMvGmnsQ5LLiKEL9xkNG/uQ
9KXbR3NndWhksA9JSTbxWmeXxlD2IenqOu2d16NxmH1Y9T3XOvjd3gaj2Iek
ITOdnVz7GeSxD0kUFdr+fX8DH/YhqSq98sbKZw2+Zh+SauSqi142g2nsQ1Jt
1h9OXnMzOMs+JM0IDD64zd3gDfYhadLe5ORpHgYV7EPSzubm2DZPg3nsQ9Lp
zA+Ds70MrrIPSfNGTJ4S/IpBGPuQ9Pr1kUN6SYOb7EPSWq9ZPV+OM1jMPiSt
jj3QtGSiQSv7sPq1v0fZ4FcN3mcfVv/HVedWTDNoZx+Kiu4Xp6ydYZDIPhR1
mKvR6nWDrifn4aoorNlz1u3fG2xgH4pqXjw8cleggRP7ULSoO6S3f5DBdvah
KKVteoMJNnBlH4pOB4aX5IYY7GUfipwS7RlhYQbu7ENRTLXPyv6LDLLZh6Kl
Z9vmlkQYvMw+FK3PuuW1/M8GJ9iHssZQ3+7h0QaKfSgKzl9S869lBkXsQ1Fm
dpd903KDV9mHooCnKjZMXmlQwj4UrR5/JbQ1wWAm+1DkustlzIE1Bj+wD0Vd
SRu75yQZzGUfirb80afq8QaDKvahyHPNCzkFmw1C2Yeicv9p8ZHbDOrYh6L5
z3/sb9tpEME+FE2ZLZ8r/bvBHfah6OH07saEPQax7MOKP/+ZwtEZBg/Yh6Kq
G8FJtQcN4tmHogMzawJ3ZBt0sA9F4+r2uPnlGCSxD0XXeqU3PDhm0It9KFo3
uML+6WcGKexD0YN4fPhWvsEA9qHoaLye3uekwS72oejeipY+33xlMIh9WPEq
3C5Ff2uQyT6Udb/dvNu9xMCTfVj5tk8I+/GswTH2oag+0dMj6YLBGPZh7fds
UOPYiwZfsA9FA0edPtrwT4NJ7ENRU+/Y6N1XDIrZh6KCore936g2mME+FOXv
SPn50b8NLrAPRT2tHfbjtQaz2YdVL8/Pl4XfNLjMPhTdTTvs7dJo8Bb7UJS6
rba15I7BT+xDUXZMyLHl9wwWsQ9Fvlttiz3bDBrZh6LRU58fVv3QYCn7UNR9
Pbx2kzb4P2Uyro4=
      "]]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
     0.0055000000000000005`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJwd0glQ1HUUB/A1px0OrRkP3GRAIR1hihhkoQVkv8JEYhyznCosgSCHRwqS
UgqELpeoYAZ4oXKo5YVQTWhKL0HCDSQc19YMcXdBdtnl0mLMzCH+7838Z+c/
//++937fz98peVtk6msikUgxfQm/BceEUpNdVJbD4NAmyK46FlkibtNCrSk0
XJOBid8bMv1tOkkqLjfn3EzDN5Muyoq2DpLbhh2TNW5A0rzGVfpdt6it/ER8
+vFkSDyFaqe1s6oyHxYloTdCaHiTNOuslT06JUqnu2kbfib5uaHL7d+txR5h
3NWfSO6e1+dbGI1n8RVtky43yHJOYa2NUCCF97tGha804kxZMDS8Twulzj0u
Ne4Hgnj+99T8aVtdrZsbfuB5zXQ0ZOft7oKZFMb9GylIKtbXlXnSe9zvPIVm
0cnYhEB6k/9/hj52O1/hOCOEdA7C+6coMPCMqe9BBNXPFZ5X0t7WmS+WymJJ
PUe4LyTx439/EZ+OI5FQi7tWyJb31ix7I5Hc7Pg5jMpon0Xt6+mIRVjoT2hu
HQxPkR8gP6Vwvj7kenQWi3z30+NuofrgXb6kddC7jFRCPJmPcEi6IlnstY+W
Ce3m9SMp2M45TlpKXXyefvxob3/hnrSEtgntlI+x8OkavzTvYrLmhXRYecY0
53WfIopnTx1yDrc0N6wopMucvw6UUWDrHaCiKYFzUgdfz4qGpg/3UsT0tOmR
8DFE1ViF7aEGzkuPsdimVs/oAprkfPV4FvdgWHE1n1YJ6/obUD48VHtdnUvH
hHUqDJB8+/Bpdd8usnA7A2SryyLuTXxG/vx9DED34n5QsjiHKjifAbQ4fx3p
7bCD9AKvdgDdZidjoFc2eXJeg6jfmheSG55FRew1CK394UVX7m4lLec3CEnN
/ueVVpvJVYjH8QluiH6dqg5Ip92c5xMk734U3pCbQnf4+32CxvEl7pHZibSI
8x1CrFTxtsfTNZSVJtQQ6lT26o7tCmrnvIdQ6jVbYRoPoPnCcW2MWFl/v8fB
RkLpnL8RtXOWS1zuvI9rQrtGIw5Nhbr1dH4EW/YwYVaV1eWQu9FIYA8Tak7q
Xx7wU+IKe5hQveHdrxLvrscMV+HAJkivzbywS5WKKPYYhvNAlX6xdCPOsscw
mpxrR+IGtuA5ewxD8rLkwNHgTKxmDzNKaefF+47bcYI9zEjwWHM64+9sjLKH
GVt0X9jGqHcA7GGBxsXmk1Mnc/Ale1gQ5R/gEJz1OQbYw4Km7P6omA92w4s9
RrCzeoGr2i4PJewxAqsC1ZFzpnz8wR4jyN88Iv9HWYB32GMUl9yDeqOD9iCP
PUZR9qouZpPbXvzGHqNYW7n0Ld/5KjixxxjkNw3rOv5TIZs9xvBXW3bo7MFC
dLDHGC5pi+3ndhVhAXuM47AhyaRtLsZG9hhH7lRsl/JoCa6zxzjOdkBTn18K
MXtM4JS5z+bihn34HxAve3k=
      "]]}}, {}, {}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"Max Re Jacobian eigenvalue\"", TraditionalForm], None}, {
     FormBox["\"Laplacian eigenvalue \[Kappa]\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 15}, {-0.014040948454446058`, 1.3094519129058988`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7622540097645073`*^9, 3.7622540154374104`*^9}, 
   3.762254045752146*^9, {3.762254077752329*^9, 3.762254104749917*^9}, 
   3.7622541599686127`*^9, {3.762254351765976*^9, 3.762254459519384*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Spatial Web", "Section",
 CellChangeTimes->{{3.6769550833272867`*^9, 3.6769551011112137`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"FindSpacialWeb", "[", 
     RowBox[{"nvertices_", ",", "r_", ",", "n_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"maxtries", ",", "tries"}], "}"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{
       RowBox[{"Nvertices", "=", "nvertices"}], ";", "\[IndentingNewLine]", 
       RowBox[{"R", "=", "r"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"maxtries", "=", "1000"}], ";", "\[IndentingNewLine]", 
       RowBox[{"tries", "=", "0"}], ";", "\[IndentingNewLine]", 
       RowBox[{"While", "[", 
        RowBox[{
         RowBox[{"tries", "<", "maxtries"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"++", "tries"}], ";", "\[IndentingNewLine]", 
          RowBox[{"graph", "=", 
           RowBox[{"RandomGraph", "[", 
            RowBox[{"SpatialGraphDistribution", "[", 
             RowBox[{"Nvertices", ",", 
              RowBox[{"R", "/", 
               RowBox[{"Sqrt", "[", "Nvertices", "]"}]}]}], "]"}], "]"}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"!", 
             RowBox[{"ConnectedGraphQ", "[", "graph", "]"}]}], ",", 
            RowBox[{"Continue", "[", "]"}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"L", "=", 
           RowBox[{"KirchhoffMatrix", "[", "graph", "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"kappaList", "=", 
           RowBox[{"N", "[", 
            RowBox[{"Eigenvalues", "[", "L", "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"ValueQ", "[", "intervals", "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Count", "[", 
                RowBox[{"kappaList", ",", 
                 RowBox[{"x_", "/;", 
                  RowBox[{"Apply", "[", 
                   RowBox[{"Or", ",", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"intervals", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], "<", "x", "<", 
                    RowBox[{"intervals", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", 
                    RowBox[{"Length", "[", "intervals", "]"}]}], "}"}]}], 
                    "]"}]}], "]"}]}]}], "]"}], "\[Equal]", "n"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{"n", ">", "0"}], ",", 
                 RowBox[{
                  RowBox[{"unstable", "=", 
                   RowBox[{
                    RowBox[{"Position", "[", 
                    RowBox[{"kappaList", ",", 
                    RowBox[{"x_", "/;", 
                    RowBox[{"Apply", "[", 
                    RowBox[{"Or", ",", 
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"intervals", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], "<", "x", "<", 
                    RowBox[{"intervals", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", 
                    RowBox[{"Length", "[", "intervals", "]"}]}], "}"}]}], 
                    "]"}]}], "]"}]}]}], "]"}], "[", 
                    RowBox[{"[", 
                    RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";"}]}], 
                "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
               RowBox[{"Break", "[", "]"}]}]}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Break", "[", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", 
        "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"tries", "\[Equal]", "maxtries"}], ",", 
         RowBox[{"Print", "[", 
          RowBox[{
           RowBox[{"\"\<No matching spatial web found after \>\"", "<>", 
            RowBox[{"ToString", "[", "maxtries", "]"}]}], "\"\< tries.\>\""}],
           "]"}], ",", 
         RowBox[{"Print", "[", 
          RowBox[{
           RowBox[{"\"\<Matching spatial web found after \>\"", "<>", 
            RowBox[{"ToString", "[", "tries", "]"}]}], "\"\< tries.\>\""}], 
          "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"vlist", "=", 
        RowBox[{"N", "[", 
         RowBox[{"Eigenvectors", "[", "L", "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"ValueQ", "[", "unstable", "]"}]}], ",", 
         RowBox[{"unstable", "=", "1"}]}], "]"}], ";", "\[IndentingNewLine]", 
       
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"ValueQ", "[", "kappamax", "]"}]}], ",", 
         RowBox[{"kappamax", "=", 
          RowBox[{"Ceiling", "[", 
           RowBox[{
            RowBox[{"Max", "[", "kappaList", "]"}], ",", "5"}], "]"}]}]}], 
        "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FindUnstableSpatialWeb", "[", 
    RowBox[{"Nvertices_", ",", "R_"}], "]"}], ":=", 
   RowBox[{"FindSpacialWeb", "[", 
    RowBox[{"Nvertices", ",", "R", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"FindStableSpatialWeb", "[", 
     RowBox[{"Nvertices_", ",", "R_"}], "]"}], ":=", 
    RowBox[{"FindSpacialWeb", "[", 
     RowBox[{"Nvertices", ",", "R", ",", "0"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ShowSpatialWeb", "[", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Print", "[", "graph", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"ValueQ", "[", "intervals", "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"spectrumIntervals", "[", 
          RowBox[{
           RowBox[{"Eigenvalues", "[", "L", "]"}], ",", "kappamax", ",", 
           "intervals"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"spectrum", "[", 
          RowBox[{
           RowBox[{"Eigenvalues", "[", "L", "]"}], ",", "kappamax"}], "]"}], 
         "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6756621075794497`*^9, 3.675662109340167*^9}, 
   3.6756758546696453`*^9, {3.6760139388412046`*^9, 3.676013942300622*^9}, 
   3.67679804691488*^9, {3.676798719032331*^9, 3.67679871950445*^9}, 
   3.6768765829308977`*^9, {3.676884608742638*^9, 3.676884613763074*^9}, {
   3.676884687948326*^9, 3.6768848152525787`*^9}, {3.676884872229129*^9, 
   3.6768848729003067`*^9}, {3.676959025318789*^9, 3.676959039670096*^9}, 
   3.6769683958105183`*^9, {3.676969468259754*^9, 3.676969469082965*^9}, {
   3.67696962763542*^9, 3.676969627746954*^9}, {3.676970318380631*^9, 
   3.6769703208373547`*^9}, {3.677559883045405*^9, 3.6775599072854137`*^9}, {
   3.677560027959104*^9, 3.677560054876466*^9}, {3.6778286290959578`*^9, 
   3.677828648049982*^9}, {3.677828720028204*^9, 3.677828742220446*^9}, {
   3.677836647956889*^9, 3.677836659683202*^9}, {3.677836691744102*^9, 
   3.6778367366543837`*^9}, 3.677836773602785*^9, 3.677837008071352*^9, {
   3.6778373617066107`*^9, 3.6778375075075407`*^9}, {3.677839391475533*^9, 
   3.677839397077757*^9}, {3.677991028309959*^9, 3.677991059436157*^9}, {
   3.677991585297359*^9, 3.677991609537279*^9}, {3.678696511060885*^9, 
   3.6786965610964403`*^9}, 3.679027867397406*^9, {3.679028079528164*^9, 
   3.6790280803129253`*^9}, 3.679028138554379*^9, {3.679028449663823*^9, 
   3.679028451025895*^9}, 3.6790284812575274`*^9, {3.67902872105696*^9, 
   3.679028721920478*^9}, {3.679114970690681*^9, 3.67911497326615*^9}, 
   3.6791152123712273`*^9, {3.6791157006089497`*^9, 3.679115704481226*^9}, {
   3.67919935345828*^9, 3.679199353646743*^9}, {3.679199427672312*^9, 
   3.679199428169496*^9}, {3.67920099149806*^9, 3.679201010469754*^9}, {
   3.679201058963274*^9, 3.679201118683427*^9}, {3.679201802647023*^9, 
   3.679201802858695*^9}, {3.679201901793971*^9, 3.679201915869316*^9}, {
   3.679201946287595*^9, 3.679202047548025*^9}, {3.67920211144587*^9, 
   3.679202173389278*^9}, {3.679288555152752*^9, 3.679288694822694*^9}, {
   3.679288807495819*^9, 3.679288902057516*^9}, 3.679290375032947*^9, {
   3.6792915145919952`*^9, 3.6792915184960127`*^9}, {3.6792915567723827`*^9, 
   3.679291705964383*^9}, {3.679292050346364*^9, 3.679292154335497*^9}, {
   3.679292209570623*^9, 3.6792922152088127`*^9}, {3.6792924030188103`*^9, 
   3.679292447142845*^9}, {3.679292616877952*^9, 3.67929261937504*^9}, {
   3.679294889563674*^9, 3.679294890761545*^9}, {3.679294942219742*^9, 
   3.679294971695513*^9}, {3.679295321037938*^9, 3.6792953223977118`*^9}, {
   3.679296884838994*^9, 3.6792969145105047`*^9}, {3.679297362921309*^9, 
   3.679297363618857*^9}, {3.6793013917601013`*^9, 3.679301394206904*^9}, 
   3.679301551722602*^9, 3.679301777062786*^9, 3.679302075666772*^9, 
   3.679302183603611*^9, {3.680408614857913*^9, 3.68040864972869*^9}, 
   3.680408694001574*^9, 3.6804103626598186`*^9, {3.68041043524401*^9, 
   3.6804104363389874`*^9}, 3.680855190457571*^9, {3.680855430402754*^9, 
   3.680855434991922*^9}, {3.6809324151722107`*^9, 3.680932555347337*^9}, {
   3.6809326649957542`*^9, 3.6809327671474752`*^9}, 3.6809371767546597`*^9, 
   3.680937239012801*^9, 3.68093799391514*^9, 3.6809385016800003`*^9, {
   3.681099133832741*^9, 3.6810991346005697`*^9}, {3.681099203004828*^9, 
   3.681099204640614*^9}, {3.681099243761629*^9, 3.681099244696636*^9}, 
   3.681100014505855*^9, {3.681100118802236*^9, 3.681100119682157*^9}, {
   3.681189841452148*^9, 3.681189864699651*^9}, {3.681191382390192*^9, 
   3.681191382813736*^9}, {3.6811920031264553`*^9, 3.6811920665420237`*^9}, {
   3.6814471630451307`*^9, 3.681447222228024*^9}, {3.68144730551667*^9, 
   3.681447307515687*^9}, 3.6814621558940372`*^9, {3.682312132242049*^9, 
   3.682312141633932*^9}, {3.682312224826128*^9, 3.682312384754792*^9}, {
   3.6823132596042433`*^9, 3.682313292083601*^9}, {3.761551281009658*^9, 
   3.761551287345264*^9}, {3.761551335209282*^9, 3.7615513655848007`*^9}, {
   3.762061691523795*^9, 3.7620617619242887`*^9}, {3.762061897812138*^9, 
   3.7620619068203506`*^9}, {3.762061940852253*^9, 3.762061942812532*^9}, {
   3.762062021612862*^9, 3.762062059005067*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Load4SpeciesParameters", "[", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MSF", "=", 
   RowBox[{"CalculateMSF", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FindUnstableInterval", "[", "MSF", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "kappamax", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FindSpacialWeb", "[", 
   RowBox[{"25", ",", "1.3", ",", "1"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShowSpatialWeb", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.678778463948647*^9, 3.678778465588354*^9}, {
   3.679201799668192*^9, 3.679201806826898*^9}, {3.6792922703342943`*^9, 
   3.6792922965241423`*^9}, {3.679292328990532*^9, 3.6792923751599083`*^9}, {
   3.679292465135326*^9, 3.6792925015513563`*^9}, {3.679295326920013*^9, 
   3.679295328806522*^9}, {3.679296864132506*^9, 3.679296870634583*^9}, 
   3.679301763835256*^9, {3.68033366082395*^9, 3.680333662112092*^9}, {
   3.6809325775473547`*^9, 3.680932585307029*^9}, {3.680932778019167*^9, 
   3.680932783259056*^9}, {3.6814470415069027`*^9, 3.681447085796536*^9}, {
   3.681447293836001*^9, 3.6814473376515903`*^9}, {3.6823120376576977`*^9, 
   3.682312045944903*^9}, {3.682312370497849*^9, 3.682312374521811*^9}, {
   3.682312427778562*^9, 3.6823124618099737`*^9}, {3.6823125075223513`*^9, 
   3.682312528770651*^9}, {3.761551226689261*^9, 3.761551229361679*^9}, {
   3.762062238532531*^9, 3.762062293917282*^9}, {3.762062361444942*^9, 
   3.762062383275865*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Failed to find maximum of the last unstable interval. Set \
maximum to kappamax.\"\>"], "Print",
 CellChangeTimes->{
  3.680932585956655*^9, {3.680932774283387*^9, 3.680932783746397*^9}, 
   3.6809369526074743`*^9, 3.680937089678966*^9, {3.680937168475593*^9, 
   3.680937180371513*^9}, {3.6809372309737377`*^9, 3.680937244852002*^9}, {
   3.680938287306233*^9, 3.680938307521222*^9}, 3.6809385091964693`*^9, 
   3.680938694462476*^9, 3.6809421047033443`*^9, 3.6810990210312653`*^9, {
   3.681099122799958*^9, 3.681099158168952*^9}, {3.681099190278427*^9, 
   3.681099213205637*^9}, 3.681099377031304*^9, {3.681099516443087*^9, 
   3.6810995449014053`*^9}, 3.6810998081869*^9, 3.681099875133319*^9, 
   3.681099939619485*^9, {3.681100004464819*^9, 3.681100018023232*^9}, {
   3.681100113548863*^9, 3.681100149611269*^9}, 3.681108833969777*^9, 
   3.6811887196510353`*^9, {3.6811898493357677`*^9, 3.681189867583845*^9}, 
   3.681191387318718*^9, 3.6811917173342123`*^9, 3.681192073603828*^9, 
   3.681446981804223*^9, {3.681447111508778*^9, 3.6814471482112503`*^9}, 
   3.681447178251268*^9, 3.6814472235259533`*^9, {3.681447289967895*^9, 
   3.68144734041411*^9}, 3.68146224457549*^9, 3.682235779366536*^9, 
   3.682238429667179*^9, {3.6822387823750267`*^9, 3.68223880195669*^9}, 
   3.682242195978593*^9, 3.682242231539318*^9, 3.682312388237575*^9, {
   3.682312428774876*^9, 3.6823124622926598`*^9}, {3.6823125192942133`*^9, 
   3.6823125491748734`*^9}, 3.682313209051903*^9, 3.6823132977755737`*^9, 
   3.682313406121402*^9, 3.682313820117107*^9, 3.6823161964495993`*^9, 
   3.682322144524585*^9, 3.682398417817086*^9, 3.683276047069021*^9, 
   3.6832787872107763`*^9, {3.761547634113903*^9, 3.761547643594623*^9}, 
   3.761548074264802*^9, {3.7615513743326178`*^9, 3.7615514145002613`*^9}, 
   3.76155163874247*^9, 3.76155299740879*^9, 3.761553095040648*^9, 
   3.761644467026135*^9, 3.761645584041102*^9, 3.761994304765049*^9, 
   3.762060442850666*^9, 3.7620617744411907`*^9, 3.762061910717897*^9, 
   3.762062064629973*^9, 3.7620622031396112`*^9, {3.762062262481048*^9, 
   3.762062295103115*^9}, {3.762062368648345*^9, 3.7620623840489073`*^9}, 
   3.762065628222884*^9, 3.7621484643646317`*^9}],

Cell[BoxData[
 RowBox[{"\<\"Matching spatial web found after 43\"\>", 
  " ", "\<\" tries.\"\>"}]], "Print",
 CellChangeTimes->{
  3.680932585956655*^9, {3.680932774283387*^9, 3.680932783746397*^9}, 
   3.6809369526074743`*^9, 3.680937089678966*^9, {3.680937168475593*^9, 
   3.680937180371513*^9}, {3.6809372309737377`*^9, 3.680937244852002*^9}, {
   3.680938287306233*^9, 3.680938307521222*^9}, 3.6809385091964693`*^9, 
   3.680938694462476*^9, 3.6809421047033443`*^9, 3.6810990210312653`*^9, {
   3.681099122799958*^9, 3.681099158168952*^9}, {3.681099190278427*^9, 
   3.681099213205637*^9}, 3.681099377031304*^9, {3.681099516443087*^9, 
   3.6810995449014053`*^9}, 3.6810998081869*^9, 3.681099875133319*^9, 
   3.681099939619485*^9, {3.681100004464819*^9, 3.681100018023232*^9}, {
   3.681100113548863*^9, 3.681100149611269*^9}, 3.681108833969777*^9, 
   3.6811887196510353`*^9, {3.6811898493357677`*^9, 3.681189867583845*^9}, 
   3.681191387318718*^9, 3.6811917173342123`*^9, 3.681192073603828*^9, 
   3.681446981804223*^9, {3.681447111508778*^9, 3.6814471482112503`*^9}, 
   3.681447178251268*^9, 3.6814472235259533`*^9, {3.681447289967895*^9, 
   3.68144734041411*^9}, 3.68146224457549*^9, 3.682235779366536*^9, 
   3.682238429667179*^9, {3.6822387823750267`*^9, 3.68223880195669*^9}, 
   3.682242195978593*^9, 3.682242231539318*^9, 3.682312388237575*^9, {
   3.682312428774876*^9, 3.6823124622926598`*^9}, {3.6823125192942133`*^9, 
   3.6823125491748734`*^9}, 3.682313209051903*^9, 3.6823132977755737`*^9, 
   3.682313406121402*^9, 3.682313820117107*^9, 3.6823161964495993`*^9, 
   3.682322144524585*^9, 3.682398417817086*^9, 3.683276047069021*^9, 
   3.6832787872107763`*^9, {3.761547634113903*^9, 3.761547643594623*^9}, 
   3.761548074264802*^9, {3.7615513743326178`*^9, 3.7615514145002613`*^9}, 
   3.76155163874247*^9, 3.76155299740879*^9, 3.761553095040648*^9, 
   3.761644467026135*^9, 3.761645584041102*^9, 3.761994304765049*^9, 
   3.762060442850666*^9, 3.7620617744411907`*^9, 3.762061910717897*^9, 
   3.762062064629973*^9, 3.7620622031396112`*^9, {3.762062262481048*^9, 
   3.762062295103115*^9}, {3.762062368648345*^9, 3.7620623840489073`*^9}, 
   3.762065628222884*^9, 3.7621484646150093`*^9}],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{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}, {
      Null, {{1, 13}, {1, 4}, {2, 5}, {2, 19}, {3, 10}, {3, 14}, {3, 7}, {4, 
       8}, {4, 6}, {4, 24}, {5, 19}, {6, 18}, {6, 8}, {6, 13}, {7, 14}, {7, 
       9}, {7, 10}, {7, 15}, {8, 24}, {8, 25}, {9, 15}, {9, 25}, {9, 11}, {9, 
       14}, {10, 14}, {11, 17}, {11, 20}, {11, 25}, {11, 15}, {11, 22}, {12, 
       21}, {12, 23}, {13, 18}, {15, 23}, {16, 20}, {17, 25}, {17, 22}, {17, 
       20}, {19, 22}, {20, 22}, {21, 23}}}, {
      VertexCoordinates -> CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAACNTDyypS7z+QJxPWRK66P4Yp+0s8
Ju4/cCVnCrt56z+wfTPmmJ3LP3hxZix4Q84/Mt5kfeTz6z9M2xWMGIPVPzx+
GvXV4+8/Cv4e9g8W6z/uo+uAowzmP9S2aOOR+tQ/1Cf70Iht2T/Q0FRx0ErV
P7bXcBlN/+o/UDdkfRgl4D84kcmHf7nbP+Tcs1UXCuA/aDZDWNLb1D9AaaBB
lhLDPyD+/yVbe90/7N5xJG5d5z+gD/sSmXy4P+pWnnvB9+o/JrN2kfO06D9Q
yhtC4HC3P0hfvIEQrNk/dMnlOndM0T9czJXr+cjWP0w5mhyqEeI/+G0vgrMG
1T/o4lwYWszuPwy3ArEMruI/HhndOHpb5z/2pLeI42vkP/D26sbhc8A/sB9z
GHEv7D+ShE8ywKrsP/jOC5hAPdk/TmdcVKzK6z/Qx+fm4Nm6P0JejcmnFOk/
XrOKN3yK5D9KDfHp1AfsP5j+g/lbKMQ/kIV4mV//4z90LSNQ183uPwK0a/Il
duA/joT+HyKx4z9gU+Oc267jP6v800M=
        "]}]]}, 
    TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAACNTDyypS7z+QJxPWRK66P4Yp+0s8
Ju4/cCVnCrt56z+wfTPmmJ3LP3hxZix4Q84/Mt5kfeTz6z9M2xWMGIPVPzx+
GvXV4+8/Cv4e9g8W6z/uo+uAowzmP9S2aOOR+tQ/1Cf70Iht2T/Q0FRx0ErV
P7bXcBlN/+o/UDdkfRgl4D84kcmHf7nbP+Tcs1UXCuA/aDZDWNLb1D9AaaBB
lhLDPyD+/yVbe90/7N5xJG5d5z+gD/sSmXy4P+pWnnvB9+o/JrN2kfO06D9Q
yhtC4HC3P0hfvIEQrNk/dMnlOndM0T9czJXr+cjWP0w5mhyqEeI/+G0vgrMG
1T/o4lwYWszuPwy3ArEMruI/HhndOHpb5z/2pLeI42vkP/D26sbhc8A/sB9z
GHEv7D+ShE8ywKrsP/jOC5hAPdk/TmdcVKzK6z/Qx+fm4Nm6P0JejcmnFOk/
XrOKN3yK5D9KDfHp1AfsP5j+g/lbKMQ/kIV4mV//4z90LSNQ183uPwK0a/Il
duA/joT+HyKx4z9gU+Oc267jP6v800M=
       "], {
        {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
         {Arrowheads[0.], ArrowBox[{1, 4}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{1, 13}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{2, 5}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{2, 19}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{3, 7}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{3, 10}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{3, 14}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{4, 6}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{4, 8}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{4, 24}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{5, 19}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{6, 8}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{6, 13}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{6, 18}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{7, 9}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{7, 10}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{7, 14}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{7, 15}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{8, 24}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{8, 25}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{9, 11}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{9, 14}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{9, 15}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{9, 25}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{10, 14}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{11, 15}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{11, 17}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{11, 20}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{11, 22}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{11, 25}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{12, 21}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{12, 23}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{13, 18}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{15, 23}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{16, 20}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{17, 20}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{17, 22}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{17, 25}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{19, 22}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{20, 22}, 0.011468594102346078`]}, 
         {Arrowheads[0.], ArrowBox[{21, 23}, 0.011468594102346078`]}}, 
        {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
         DiskBox[1, 0.011468594102346078], DiskBox[2, 0.011468594102346078], 
         DiskBox[3, 0.011468594102346078], DiskBox[4, 0.011468594102346078], 
         DiskBox[5, 0.011468594102346078], DiskBox[6, 0.011468594102346078], 
         DiskBox[7, 0.011468594102346078], DiskBox[8, 0.011468594102346078], 
         DiskBox[9, 0.011468594102346078], DiskBox[10, 0.011468594102346078], 
         DiskBox[11, 0.011468594102346078], DiskBox[12, 0.011468594102346078],
          DiskBox[13, 0.011468594102346078], 
         DiskBox[14, 0.011468594102346078], DiskBox[15, 0.011468594102346078],
          DiskBox[16, 0.011468594102346078], 
         DiskBox[17, 0.011468594102346078], DiskBox[18, 0.011468594102346078],
          DiskBox[19, 0.011468594102346078], 
         DiskBox[20, 0.011468594102346078], DiskBox[21, 0.011468594102346078],
          DiskBox[22, 0.011468594102346078], 
         DiskBox[23, 0.011468594102346078], DiskBox[24, 0.011468594102346078],
          DiskBox[25, 0.011468594102346078]}}]],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImageSize->Large]], "Print",
 CellChangeTimes->{
  3.680932585956655*^9, {3.680932774283387*^9, 3.680932783746397*^9}, 
   3.6809369526074743`*^9, 3.680937089678966*^9, {3.680937168475593*^9, 
   3.680937180371513*^9}, {3.6809372309737377`*^9, 3.680937244852002*^9}, {
   3.680938287306233*^9, 3.680938307521222*^9}, 3.6809385091964693`*^9, 
   3.680938694462476*^9, 3.6809421047033443`*^9, 3.6810990210312653`*^9, {
   3.681099122799958*^9, 3.681099158168952*^9}, {3.681099190278427*^9, 
   3.681099213205637*^9}, 3.681099377031304*^9, {3.681099516443087*^9, 
   3.6810995449014053`*^9}, 3.6810998081869*^9, 3.681099875133319*^9, 
   3.681099939619485*^9, {3.681100004464819*^9, 3.681100018023232*^9}, {
   3.681100113548863*^9, 3.681100149611269*^9}, 3.681108833969777*^9, 
   3.6811887196510353`*^9, {3.6811898493357677`*^9, 3.681189867583845*^9}, 
   3.681191387318718*^9, 3.6811917173342123`*^9, 3.681192073603828*^9, 
   3.681446981804223*^9, {3.681447111508778*^9, 3.6814471482112503`*^9}, 
   3.681447178251268*^9, 3.6814472235259533`*^9, {3.681447289967895*^9, 
   3.68144734041411*^9}, 3.68146224457549*^9, 3.682235779366536*^9, 
   3.682238429667179*^9, {3.6822387823750267`*^9, 3.68223880195669*^9}, 
   3.682242195978593*^9, 3.682242231539318*^9, 3.682312388237575*^9, {
   3.682312428774876*^9, 3.6823124622926598`*^9}, {3.6823125192942133`*^9, 
   3.6823125491748734`*^9}, 3.682313209051903*^9, 3.6823132977755737`*^9, 
   3.682313406121402*^9, 3.682313820117107*^9, 3.6823161964495993`*^9, 
   3.682322144524585*^9, 3.682398417817086*^9, 3.683276047069021*^9, 
   3.6832787872107763`*^9, {3.761547634113903*^9, 3.761547643594623*^9}, 
   3.761548074264802*^9, {3.7615513743326178`*^9, 3.7615514145002613`*^9}, 
   3.76155163874247*^9, 3.76155299740879*^9, 3.761553095040648*^9, 
   3.761644467026135*^9, 3.761645584041102*^9, 3.761994304765049*^9, 
   3.762060442850666*^9, 3.7620617744411907`*^9, 3.762061910717897*^9, 
   3.762062064629973*^9, 3.7620622031396112`*^9, {3.762062262481048*^9, 
   3.762062295103115*^9}, {3.762062368648345*^9, 3.7620623840489073`*^9}, 
   3.762065628222884*^9, 3.7621484659772997`*^9}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.85, 0.85, 1.], 
    RectangleBox[{6.925500000000647, 0}, {10, 1}]}, 
   {GrayLevel[0], Thickness[0.0015], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 21, 0], 
        0}, {Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 21, 0], 
        1}}, {{7.387609790341575, 0}, {7.387609790341575, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 20, 0], 
        0}, {Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 20, 0], 
        1}}, {{6.612673358820028, 0}, {6.612673358820028, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 19, 0], 
        0}, {Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 19, 0], 
        1}}, {{6.046811642502852, 0}, {6.046811642502852, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 18, 0], 
        0}, {Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 18, 0], 
        1}}, {{5.703904420079262, 0}, {5.703904420079262, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 17, 0], 
        0}, {
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 17, 0], 
        1}}, {{5.518657481527119, 0}, {5.518657481527119, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 16, 0], 
        0}, {Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 16, 0], 
        1}}, {{5.386660468831376, 0}, {5.386660468831376, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 15, 0], 
        0}, {Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 15, 0], 
        1}}, {{5.122712335980164, 0}, {5.122712335980164, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 14, 0], 
        0}, {Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 14, 0], 
        1}}, {{4.636918784326125, 0}, {4.636918784326125, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 13, 0], 
        0}, {Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 13, 0], 
        1}}, {{4.053406285492204, 0}, {4.053406285492204, 1}}]], 
    LineBox[{{4, 0}, {4, 1}}], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 12, 0], 
        0}, {Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 12, 0], 
        1}}, {{3.841153000439875, 0}, {3.841153000439875, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 11, 0], 
        0}, {Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 11, 0], 
        1}}, {{3.6722889347430088`, 0}, {3.6722889347430088`, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 10, 0], 
        0}, {Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 10, 0], 
        1}}, {{3.414695988117166, 0}, {3.414695988117166, 1}}]], 
    LineBox[{{3, 0}, {3, 1}}], LineBox[{{3, 0}, {3, 1}}], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 9, 0], 0}, {
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 9, 0], 
        1}}, {{2.9780756203744514`, 0}, {2.9780756203744514`, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 8, 0], 0}, {
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 8, 0], 
        1}}, {{2.4467233240861166`, 0}, {2.4467233240861166`, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 7, 0], 0}, {
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 7, 0], 
        1}}, {{1.7629037640446872`, 0}, {1.7629037640446872`, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 6, 0], 0}, {
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 6, 0], 
        1}}, {{1.2644713921454178`, 0}, {1.2644713921454178`, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 5, 0], 0}, {
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 5, 0], 
        1}}, {{1.0454532254241016`, 0}, {1.0454532254241016`, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 4, 0], 0}, {
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 4, 0], 
        1}}, {{0.5029392927954335, 0}, {0.5029392927954335, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 3, 0], 0}, {
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 3, 0], 
        1}}, {{0.3180391259730275, 0}, {0.3180391259730275, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 2, 0], 0}, {
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 2, 0], 
        1}}, {{0.17756751751484237`, 0}, {0.17756751751484237`, 1}}]], 
    LineBox[NCache[{{
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 1, 0], 0}, {
       Root[-11913200 + 306227164 # - 3121626802 #^2 + 16969334512 #^3 - 
         56217013938 #^4 + 123235256298 #^5 - 189308581826 #^6 + 
         212394998994 #^7 - 179376745886 #^8 + 116566830083 #^9 - 
         59206349802 #^10 + 23753262859 #^11 - 7573527658 #^12 + 
         1922898917 #^13 - 387900670 #^14 + 61733925 #^15 - 7650062 #^16 + 
         722335 #^17 - 50176 #^18 + 2416 #^19 - 72 #^20 + #^21& , 1, 0], 
        1}}, {{0.10633424644116829`, 0}, {0.10633424644116829`, 1}}]], 
    LineBox[{{0, 0}, {0, 1}}]}},
  AspectRatio->NCache[
    Rational[1, 10], 0.1],
  Axes->None,
  Frame->{True, False, True, False},
  FrameLabel->FormBox[
    InterpretationBox[
     Cell["Laplace Matrix Eigenvalue", FontSize -> 14], 
     TextCell["Laplace Matrix Eigenvalue", FontSize -> 14]], TraditionalForm],
  
  ImagePadding->{{60, 30}, {60, 0}},
  ImageSize->Large,
  PlotRange->{{0, 10}, {0, 1}},
  PlotRangePadding->None]], "Print",
 CellChangeTimes->{
  3.680932585956655*^9, {3.680932774283387*^9, 3.680932783746397*^9}, 
   3.6809369526074743`*^9, 3.680937089678966*^9, {3.680937168475593*^9, 
   3.680937180371513*^9}, {3.6809372309737377`*^9, 3.680937244852002*^9}, {
   3.680938287306233*^9, 3.680938307521222*^9}, 3.6809385091964693`*^9, 
   3.680938694462476*^9, 3.6809421047033443`*^9, 3.6810990210312653`*^9, {
   3.681099122799958*^9, 3.681099158168952*^9}, {3.681099190278427*^9, 
   3.681099213205637*^9}, 3.681099377031304*^9, {3.681099516443087*^9, 
   3.6810995449014053`*^9}, 3.6810998081869*^9, 3.681099875133319*^9, 
   3.681099939619485*^9, {3.681100004464819*^9, 3.681100018023232*^9}, {
   3.681100113548863*^9, 3.681100149611269*^9}, 3.681108833969777*^9, 
   3.6811887196510353`*^9, {3.6811898493357677`*^9, 3.681189867583845*^9}, 
   3.681191387318718*^9, 3.6811917173342123`*^9, 3.681192073603828*^9, 
   3.681446981804223*^9, {3.681447111508778*^9, 3.6814471482112503`*^9}, 
   3.681447178251268*^9, 3.6814472235259533`*^9, {3.681447289967895*^9, 
   3.68144734041411*^9}, 3.68146224457549*^9, 3.682235779366536*^9, 
   3.682238429667179*^9, {3.6822387823750267`*^9, 3.68223880195669*^9}, 
   3.682242195978593*^9, 3.682242231539318*^9, 3.682312388237575*^9, {
   3.682312428774876*^9, 3.6823124622926598`*^9}, {3.6823125192942133`*^9, 
   3.6823125491748734`*^9}, 3.682313209051903*^9, 3.6823132977755737`*^9, 
   3.682313406121402*^9, 3.682313820117107*^9, 3.6823161964495993`*^9, 
   3.682322144524585*^9, 3.682398417817086*^9, 3.683276047069021*^9, 
   3.6832787872107763`*^9, {3.761547634113903*^9, 3.761547643594623*^9}, 
   3.761548074264802*^9, {3.7615513743326178`*^9, 3.7615514145002613`*^9}, 
   3.76155163874247*^9, 3.76155299740879*^9, 3.761553095040648*^9, 
   3.761644467026135*^9, 3.761645584041102*^9, 3.761994304765049*^9, 
   3.762060442850666*^9, 3.7620617744411907`*^9, 3.762061910717897*^9, 
   3.762062064629973*^9, 3.7620622031396112`*^9, {3.762062262481048*^9, 
   3.762062295103115*^9}, {3.762062368648345*^9, 3.7620623840489073`*^9}, 
   3.762065628222884*^9, 3.762148466065731*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Load4SpeciesParameters", "[", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MSF", "=", 
   RowBox[{"CalculateMSF", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FindUnstableInterval", "[", "MSF", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "kappamax", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FindSpacialWeb", "[", 
   RowBox[{"15", ",", "1.3", ",", "0"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShowSpatialWeb", "[", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.7620617970909758`*^9, 3.7620617973629932`*^9}, {
  3.762062090607885*^9, 3.762062133259748*^9}, {3.762062396293172*^9, 
  3.762062417603943*^9}, {3.762065092744955*^9, 3.7620650929112387`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Failed to find maximum of the last unstable interval. Set \
maximum to kappamax.\"\>"], "Print",
 CellChangeTimes->{
  3.762061800283968*^9, {3.762061914536552*^9, 3.762061928343297*^9}, {
   3.76206207182471*^9, 3.762062142449419*^9}, {3.762062406792042*^9, 
   3.762062418339128*^9}, {3.762063559274734*^9, 3.762063572775833*^9}, {
   3.7620650939971933`*^9, 3.762065108277658*^9}, 3.762065630583869*^9, 
   3.7621484667372913`*^9}],

Cell[BoxData[
 RowBox[{"\<\"Matching spatial web found after 3\"\>", 
  " ", "\<\" tries.\"\>"}]], "Print",
 CellChangeTimes->{
  3.762061800283968*^9, {3.762061914536552*^9, 3.762061928343297*^9}, {
   3.76206207182471*^9, 3.762062142449419*^9}, {3.762062406792042*^9, 
   3.762062418339128*^9}, {3.762063559274734*^9, 3.762063572775833*^9}, {
   3.7620650939971933`*^9, 3.762065108277658*^9}, 3.762065630583869*^9, 
   3.762148466810535*^9}],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}, {
      Null, {{1, 3}, {1, 14}, {1, 4}, {1, 15}, {1, 8}, {2, 11}, {2, 13}, {2, 
       6}, {3, 14}, {3, 4}, {4, 15}, {4, 14}, {5, 10}, {5, 9}, {5, 7}, {6, 
       11}, {7, 9}, {7, 10}, {7, 12}, {7, 8}, {8, 12}, {8, 9}, {9, 10}, {9, 
       12}, {10, 13}, {11, 13}, {11, 15}}}, {
      VertexCoordinates -> {{0.6163238873055636, 0.22685017402315633`}, {
        0.7395837943930519, 0.8781070885080526}, {0.722840285528253, 
        0.1239151121579003}, {0.8062084610234237, 0.36264910163301733`}, {
        0.17340200800963324`, 0.9094631832406763}, {0.9670252670121287, 
        0.9595693094591731}, {0.22348342506372232`, 0.6097519582296447}, {
        0.3495290613822617, 0.33447585436554195`}, {0.22926501746776773`, 
        0.6472578692528512}, {0.3489764109374891, 0.7411490430513108}, {
        0.7605299800015586, 0.702095638105884}, {0.22025614217758815`, 
        0.38527421522721994`}, {0.5692519507673637, 0.7915340000539111}, {
        0.6477540180579817, 0.07155479032611911}, {0.7338970737429185, 
        0.4842393868419801}}}]]}, 
    TagBox[
     GraphicsGroupBox[
      GraphicsComplexBox[{{0.6163238873055636, 0.22685017402315633`}, {
       0.7395837943930519, 0.8781070885080526}, {0.722840285528253, 
       0.1239151121579003}, {0.8062084610234237, 0.36264910163301733`}, {
       0.17340200800963324`, 0.9094631832406763}, {0.9670252670121287, 
       0.9595693094591731}, {0.22348342506372232`, 0.6097519582296447}, {
       0.3495290613822617, 0.33447585436554195`}, {0.22926501746776773`, 
       0.6472578692528512}, {0.3489764109374891, 0.7411490430513108}, {
       0.7605299800015586, 0.702095638105884}, {0.22025614217758815`, 
       0.38527421522721994`}, {0.5692519507673637, 0.7915340000539111}, {
       0.6477540180579817, 0.07155479032611911}, {0.7338970737429185, 
       0.4842393868419801}}, {
        {Hue[0.6, 0.7, 0.5], Opacity[0.7], 
         {Arrowheads[0.], ArrowBox[{1, 3}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{1, 4}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{1, 8}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{1, 14}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{1, 15}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{2, 6}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{2, 11}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{2, 13}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{3, 4}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{3, 14}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{4, 14}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{4, 15}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{5, 7}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{5, 9}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{5, 10}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{6, 11}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{7, 8}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{7, 9}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{7, 10}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{7, 12}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{8, 9}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{8, 12}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{9, 10}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{9, 12}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{10, 13}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{11, 13}, 0.011304424828563777`]}, 
         {Arrowheads[0.], ArrowBox[{11, 15}, 0.011304424828563777`]}}, 
        {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
         DiskBox[1, 0.011304424828563777], DiskBox[2, 0.011304424828563777], 
         DiskBox[3, 0.011304424828563777], DiskBox[4, 0.011304424828563777], 
         DiskBox[5, 0.011304424828563777], DiskBox[6, 0.011304424828563777], 
         DiskBox[7, 0.011304424828563777], DiskBox[8, 0.011304424828563777], 
         DiskBox[9, 0.011304424828563777], DiskBox[10, 0.011304424828563777], 
         DiskBox[11, 0.011304424828563777], DiskBox[12, 0.011304424828563777],
          DiskBox[13, 0.011304424828563777], 
         DiskBox[14, 0.011304424828563777], 
         DiskBox[15, 0.011304424828563777]}}]],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None]], "Print",
 CellChangeTimes->{
  3.762061800283968*^9, {3.762061914536552*^9, 3.762061928343297*^9}, {
   3.76206207182471*^9, 3.762062142449419*^9}, {3.762062406792042*^9, 
   3.762062418339128*^9}, {3.762063559274734*^9, 3.762063572775833*^9}, {
   3.7620650939971933`*^9, 3.762065108277658*^9}, 3.762065630583869*^9, 
   3.762148466884775*^9}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.85, 0.85, 1.], 
    RectangleBox[{6.925500000000647, 0}, {10, 1}]}, 
   {GrayLevel[0], Thickness[0.0015], 
    LineBox[NCache[{{
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 10, 0], 0}, {
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 10, 0], 1}}, {{
       6.588411378650842, 0}, {6.588411378650842, 1}}]], 
    LineBox[NCache[{{
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 9, 0], 0}, {
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 9, 0], 1}}, {{
       6.0412252792486365`, 0}, {6.0412252792486365`, 1}}]], 
    LineBox[{{6, 0}, {6, 1}}], 
    LineBox[NCache[{{
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 8, 0], 0}, {
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 8, 0], 1}}, {{
       5.404777200584474, 0}, {5.404777200584474, 1}}]], 
    LineBox[{{5, 0}, {5, 1}}], 
    LineBox[NCache[{{
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 7, 0], 0}, {
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 7, 0], 1}}, {{
       4.681626833724161, 0}, {4.681626833724161, 1}}]], 
    LineBox[NCache[{{
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 6, 0], 0}, {
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 6, 0], 1}}, {{
       4.2506735981944255`, 0}, {4.2506735981944255`, 1}}]], 
    LineBox[{{4, 0}, {4, 1}}], LineBox[{{4, 0}, {4, 1}}], 
    LineBox[NCache[{{
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 5, 0], 0}, {
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 5, 0], 1}}, {{
       2.6756665148459313`, 0}, {2.6756665148459313`, 1}}]], 
    LineBox[NCache[{{
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 4, 0], 0}, {
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 4, 0], 1}}, {{
       2.4413475795396833`, 0}, {2.4413475795396833`, 1}}]], 
    LineBox[NCache[{{
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 3, 0], 0}, {
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 3, 0], 1}}, {{
       2.1104312946477624`, 0}, {2.1104312946477624`, 1}}]], 
    LineBox[NCache[{{
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 2, 0], 0}, {
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 2, 0], 1}}, {{
       0.4250711320017747, 0}, {0.4250711320017747, 1}}]], 
    LineBox[NCache[{{
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 1, 0], 0}, {
       Root[9552 - 68652 # + 183906 #^2 - 239652 #^3 + 177938 #^4 - 81621 #^5 + 
         23971 #^6 - 4519 #^7 + 529 #^8 - 35 #^9 + #^10& , 1, 0], 1}}, {{
       0.3807691885623089, 0}, {0.3807691885623089, 1}}]], 
    LineBox[{{0, 0}, {0, 1}}]}},
  AspectRatio->NCache[
    Rational[1, 10], 0.1],
  Axes->None,
  Frame->{True, False, True, False},
  FrameLabel->FormBox[
    InterpretationBox[
     Cell["Laplace Matrix Eigenvalue", FontSize -> 14], 
     TextCell["Laplace Matrix Eigenvalue", FontSize -> 14]], TraditionalForm],
  
  ImagePadding->{{60, 30}, {60, 0}},
  ImageSize->Large,
  PlotRange->{{0, 10}, {0, 1}},
  PlotRangePadding->None]], "Print",
 CellChangeTimes->{
  3.762061800283968*^9, {3.762061914536552*^9, 3.762061928343297*^9}, {
   3.76206207182471*^9, 3.762062142449419*^9}, {3.762062406792042*^9, 
   3.762062418339128*^9}, {3.762063559274734*^9, 3.762063572775833*^9}, {
   3.7620650939971933`*^9, 3.762065108277658*^9}, 3.762065630583869*^9, 
   3.762148466953041*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Stable", " ", "for", " ", "4", " ", "species", " ", "system"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"LoadSpatialWeb", "[", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"L", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"4", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "0", ",", "0", ",", "2", ",", "0", ",", "0", ",", "0", ",", "0", 
           ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0"}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "3", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0"}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "3", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "4", ",", "0", ",", "0", ",", "0", ",", 
           "0", ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", 
           RowBox[{"-", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           "0", ",", "3", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
           ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
           ",", "0", ",", "3", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", 
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", 
           ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "5", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           "3", ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "4", ",", 
           RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
           ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "3", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", 
           RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "4"}], "}"}]}], 
        "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.762063599605485*^9, 3.7620636983342123`*^9}, 
   3.762065126349449*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Homogeneous System", "Section",
 CellChangeTimes->{{3.676954973481366*^9, 3.676955001348117*^9}, {
  3.761544975816682*^9, 3.761544977065155*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"set", " ", "starting", " ", "conditions"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"setStartHomogen", "[", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"delta", "=", "0.01"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"startHomogen", "=", "\[IndentingNewLine]", 
         RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
          RowBox[{"Table", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"i", ",", "k"}], "]"}], "[", "0", "]"}], "\[Equal]", 
             RowBox[{"RandomReal", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"1", "-", "delta"}], ",", 
                RowBox[{"1", "+", "delta"}]}], "}"}], "]"}]}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
          "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Solve", " ", "ODE"}], "*)"}], Cell[""], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"solveHomogen", "[", "Tmax_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "sol", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"setStartHomogen", "[", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"sol", "=", 
         RowBox[{
          RowBox[{"NDSolve", "[", 
           RowBox[{
            RowBox[{"Join", "[", 
             RowBox[{"{", 
              RowBox[{"eqnsHomogen", ",", "startHomogen"}], "}"}], "]"}], ",",
             "varsHomogen", ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0", ",", "Tmax"}], "}"}], ",", 
            RowBox[{"MaxSteps", "\[Rule]", "100000"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"varsHomogen", "/.", "sol"}], "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"EvaluateHomogenSystem", "[", "Tmax_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"generate", " ", "equations"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"eqnsHomogen", "=", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"x", "[", 
                RowBox[{"i", ",", "k"}], "]"}], "'"}], "[", "t", "]"}], 
             "\[Equal]", 
             RowBox[{"rhs", "[", 
              RowBox[{"i", ",", "k"}], "]"}]}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"dependent", " ", "variables"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"varsHomogen", " ", "=", " ", 
         RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
          RowBox[{"Table", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], 
            "\[IndentingNewLine]", ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
          "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"solve", " ", "deqns"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"solHomogen", "=", 
         RowBox[{"solveHomogen", "[", "Tmax", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"XSList", "=", 
         RowBox[{"solHomogen", "/.", 
          RowBox[{"t", "\[Rule]", "Tmax"}]}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"set", " ", "steady", " ", "state", " ", "values"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "1"}], ",", 
          RowBox[{"i", "\[LessEqual]", "S"}], ",", 
          RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"XS", "[", "i", "]"}], "=", 
            RowBox[{"XSList", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{
            RowBox[{"TS", "[", "i", "]"}], "=", 
            RowBox[{"Sum", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"c", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "j"}], "]"}], "]"}], 
               RowBox[{"XS", "[", "j", "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"j", ",", "S"}], "}"}]}], "]"}]}], ";"}], "*)"}], 
         "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.676867234307066*^9, 3.6768672477139263`*^9}, {
   3.676867319130077*^9, 3.676867388293067*^9}, {3.6768674803953943`*^9, 
   3.676867514313374*^9}, {3.6768675593297358`*^9, 3.6768675826696672`*^9}, {
   3.6768676702689943`*^9, 3.676867854813334*^9}, {3.676867910033454*^9, 
   3.676867977362599*^9}, {3.6768682768670273`*^9, 3.676868307354954*^9}, {
   3.6768696993295507`*^9, 3.676869741410047*^9}, 3.676869853670601*^9, {
   3.676869912480023*^9, 3.676869915253523*^9}, {3.676870029069345*^9, 
   3.676870099474888*^9}, {3.676870548894369*^9, 3.676870570012219*^9}, {
   3.676870651164764*^9, 3.6768706529664383`*^9}, 3.676955358123424*^9, {
   3.676966647738566*^9, 3.676966650097356*^9}, {3.677299362281336*^9, 
   3.677299390475647*^9}, {3.677299424592544*^9, 3.677299464345478*^9}, {
   3.677301791122867*^9, 3.6773017958541813`*^9}, {3.677401357523305*^9, 
   3.6774013678822803`*^9}, {3.677401421973256*^9, 3.6774014570062017`*^9}, {
   3.6774015017269363`*^9, 3.6774015265011587`*^9}, {3.677403158530566*^9, 
   3.677403184127097*^9}, 3.677406015191286*^9, 3.677406062865745*^9, 
   3.6774764136748543`*^9, {3.677476488207707*^9, 3.677476612936921*^9}, 
   3.6774767006695642`*^9, {3.677476732798438*^9, 3.6774767494238853`*^9}, 
   3.677476790007255*^9, {3.677477191673848*^9, 3.677477193192244*^9}, {
   3.67747784932209*^9, 3.677477856082507*^9}, 3.677483688244522*^9, {
   3.677484206805017*^9, 3.677484243291398*^9}, 3.677484386541744*^9, {
   3.6781666955877743`*^9, 3.678166696972961*^9}, 3.678168761267088*^9, {
   3.67851998409827*^9, 3.6785200116242437`*^9}, 3.678520595122473*^9, {
   3.679218605580579*^9, 3.679218605799911*^9}, 3.680851684277102*^9, 
   3.680852530295968*^9, {3.6809313710662737`*^9, 3.680931372353503*^9}, {
   3.681461821749215*^9, 3.681461823365225*^9}, 3.681461864456065*^9, {
   3.681461902588763*^9, 3.681461902981297*^9}, {3.681461995797241*^9, 
   3.681461996013527*^9}, {3.682311256080741*^9, 3.682311323161484*^9}, {
   3.682311370017508*^9, 3.6823113797535048`*^9}, {3.6823114817047443`*^9, 
   3.682311527217277*^9}, {3.724746566428008*^9, 3.724746569364613*^9}, {
   3.7247466164634867`*^9, 3.7247466443670063`*^9}, 3.7247474425847197`*^9, {
   3.725097563162322*^9, 3.725097573130632*^9}, {3.725347283556776*^9, 
   3.725347377802253*^9}, {3.725352874959857*^9, 3.725352881383431*^9}, {
   3.725353153129816*^9, 3.725353153343658*^9}, {3.725353189960352*^9, 
   3.7253531933038073`*^9}, 3.725353296202702*^9, {3.7253533637126226`*^9, 
   3.7253533893206863`*^9}, {3.72535542354046*^9, 3.725355426938568*^9}, 
   3.7610243967210913`*^9, {3.761036886425201*^9, 3.761036944671544*^9}, {
   3.761037017480497*^9, 3.7610370190237494`*^9}, 3.7615449351311197`*^9, {
   3.762063050517552*^9, 3.7620630559339943`*^9}, 3.7620633706977053`*^9}],

Cell[BoxData[
 InterpretationBox[Cell[""],
  TextCell[""]]], "Output",
 CellChangeTimes->{
  3.7610240921090937`*^9, 3.761024138557846*^9, 3.761024197728421*^9, 
   3.761024272493836*^9, 3.7610243988493223`*^9, 3.761024769531418*^9, 
   3.761024883022738*^9, 3.7610253738512163`*^9, 3.7610256591022987`*^9, 
   3.761025726195373*^9, {3.761036945683443*^9, 3.761036972607086*^9}, 
   3.761037021251526*^9, 3.761380317682341*^9, 3.7614556451642323`*^9, 
   3.761460079794095*^9, {3.761544944829144*^9, 3.7615449685256977`*^9}, 
   3.761545021632904*^9, 3.761546393534034*^9, 3.761546783428438*^9, 
   3.761548075248143*^9, 3.761551416169635*^9, 3.761551639354836*^9, 
   3.761552998533308*^9, 3.761553095832954*^9, 3.761644468542858*^9, 
   3.761994306013033*^9, 3.762060445143217*^9, 3.762063122918906*^9, 
   3.762063371161251*^9, 3.762065630888543*^9, 3.7621484670364637`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solver", "Section",
 CellChangeTimes->{{3.725355443237413*^9, 3.72535545512099*^9}, {
  3.7428888433447*^9, 3.742888844408677*^9}}],

Cell[CellGroupData[{

Cell["Local", "Subsection",
 CellChangeTimes->{{3.7256888541961*^9, 3.72568885470708*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Euler", "-", "Verfahren"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"ohne", " ", "Noise"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"EulerLocal", "[", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "y", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Tmax", "=", "100."}], ";", "\[IndentingNewLine]", 
       RowBox[{"maxsteps", "=", "100000"}], ";", "\[IndentingNewLine]", 
       RowBox[{"dt", "=", 
        RowBox[{"Tmax", "/", "maxsteps"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"data", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", 
          RowBox[{"{", "maxsteps", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"eqns", "=", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"rhs", "[", 
             RowBox[{"i", ",", "k"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "]"}], "/.", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"x", "[", 
                RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], ")"}], 
             "\[Rule]", 
             RowBox[{"y", "[", 
              RowBox[{"i", ",", "k"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"i", "=", "1"}], ",", 
         RowBox[{"i", "\[LessEqual]", "S"}], ",", 
         RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "i"}], "]"}], "]"}], "=", 
           RowBox[{"1", "+", 
            RowBox[{"RandomReal", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "0.01"}], ",", "0.01"}], "}"}], "]"}]}]}], 
          ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"step", "=", "1"}], ",", 
         RowBox[{"step", "<", "maxsteps"}], ",", 
         RowBox[{"step", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"k", "=", "1"}], ";", "\[IndentingNewLine]", 
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"i", "=", "1"}], ",", 
            RowBox[{"i", "\[LessEqual]", "S"}], ",", 
            RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"y", "[", 
               RowBox[{"i", ",", "k"}], "]"}], "=", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"step", ",", "i"}], "]"}], "]"}]}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{"step", "+", "1"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", "step", "]"}], "]"}], "+", 
            RowBox[{"eqns", " ", "dt"}]}]}], ";"}]}], "\[IndentingNewLine]", 
        "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.725610750985056*^9, 3.7256107686969337`*^9}, 
   3.725610801298388*^9, {3.725613800029483*^9, 3.7256138062769938`*^9}, {
   3.725618422314561*^9, 3.725618454874098*^9}, {3.74288880728895*^9, 
   3.7428888149855433`*^9}, {3.753161344213786*^9, 3.7531613453897*^9}, {
   3.76138974468367*^9, 3.76138977543714*^9}, {3.76138999318038*^9, 
   3.761389993299786*^9}, 3.761546428548437*^9, {3.7620655138084106`*^9, 
   3.762065516016528*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Euler", "-", "Maruyama", "-", "Verfahren"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Wiener", " ", "Prozess"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"EulerMaruyamaLocal", "[", 
      RowBox[{"noise_", ",", "tmax_", ",", "maxSteps_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "y", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Tmax", "=", "tmax"}], ";", "\[IndentingNewLine]", 
        RowBox[{"maxsteps", "=", "maxSteps"}], ";", "\[IndentingNewLine]", 
        RowBox[{"dt", "=", 
         RowBox[{"Tmax", "/", "maxsteps"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Noise", "[", "]"}], ":=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"RandomVariate", "[", 
            RowBox[{"NormalDistribution", "[", 
             RowBox[{"0", ",", 
              RowBox[{"Sqrt", "[", "dt", "]"}]}], "]"}], "]"}], ",", 
           RowBox[{"{", "S", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"data", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", "maxsteps", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"eqns", "=", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"rhs", "[", 
              RowBox[{"i", ",", "k"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "S"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "]"}], "/.", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"x", "[", 
                 RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], ")"}], 
              "\[Rule]", 
              RowBox[{"y", "[", 
               RowBox[{"i", ",", "k"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "S"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "1"}], ",", 
          RowBox[{"i", "\[LessEqual]", "S"}], ",", 
          RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "i"}], "]"}], "]"}], "=", "1"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"step", "=", "1"}], ",", 
          RowBox[{"step", "<", "maxsteps"}], ",", 
          RowBox[{"step", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"k", "=", "1"}], ";", "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"i", "=", "1"}], ",", 
             RowBox[{"i", "\[LessEqual]", "S"}], ",", 
             RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"y", "[", 
                RowBox[{"i", ",", "k"}], "]"}], "=", 
               RowBox[{"data", "[", 
                RowBox[{"[", 
                 RowBox[{"step", ",", "i"}], "]"}], "]"}]}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{"step", "+", "1"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"data", "[", 
              RowBox[{"[", "step", "]"}], "]"}], "+", 
             RowBox[{"eqns", " ", "dt"}], "+", 
             RowBox[{"noise", " ", 
              RowBox[{"Sqrt", "[", 
               RowBox[{"data", "[", 
                RowBox[{"[", "step", "]"}], "]"}], "]"}], 
              RowBox[{"Noise", "[", "]"}]}]}]}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"EulerMaruyamaLocal", "[", "noise_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "y", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"EulerMaruyamaLocal", "[", 
         RowBox[{"noise", ",", "100", ",", "100000"}], "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.725610750985056*^9, 3.7256107686969337`*^9}, 
   3.725610801298388*^9, {3.725611742233899*^9, 3.7256117773536654`*^9}, {
   3.725611817273987*^9, 3.7256118568623743`*^9}, {3.725611912379854*^9, 
   3.725611927066595*^9}, {3.725613261003927*^9, 3.72561328323256*^9}, {
   3.725613341252305*^9, 3.7256133795494537`*^9}, {3.725613560339746*^9, 
   3.7256136142837057`*^9}, {3.725613858438841*^9, 3.725613865589023*^9}, {
   3.7256140360845327`*^9, 3.7256140623505697`*^9}, {3.725614165049087*^9, 
   3.725614180200683*^9}, 3.725614304316577*^9, 3.72561435578092*^9, {
   3.7256146137745113`*^9, 3.7256146180789547`*^9}, {3.725617479105036*^9, 
   3.725617537121114*^9}, {3.7256176326541033`*^9, 3.725617669729661*^9}, 
   3.725617783937972*^9, {3.725618173201516*^9, 3.725618177449779*^9}, {
   3.725618216300166*^9, 3.7256183074744797`*^9}, {3.7256183859295673`*^9, 
   3.725618413625332*^9}, {3.725618465915682*^9, 3.72561847417417*^9}, 
   3.741680381216251*^9, {3.741680553824031*^9, 3.74168055658355*^9}, {
   3.741680614575522*^9, 3.7416807548241262`*^9}, {3.741681419624239*^9, 
   3.7416814577689857`*^9}, {3.741681492472575*^9, 3.741681633464957*^9}, {
   3.7416819937136717`*^9, 3.741682031617365*^9}, {3.757226546726272*^9, 
   3.757226551981174*^9}, {3.757237916378558*^9, 3.7572379172667*^9}, 
   3.7613897859099607`*^9, {3.761389989220283*^9, 3.761389989363934*^9}, 
   3.76154645273995*^9, {3.7620655094003057`*^9, 3.762065510424971*^9}, 
   3.762065612384509*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Spatial", "Subsection",
 CellChangeTimes->{{3.725688862798696*^9, 3.725688874470562*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Euler", "-", "Verfahren"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"ohne", " ", "Noise"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"EulerSpatial", "[", 
     RowBox[{"Tmax_", ",", "maxsteps_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "y", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"dt", "=", 
        RowBox[{"Tmax", "/", "maxsteps"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"data", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", 
          RowBox[{"{", "maxsteps", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"eqns", "=", 
        RowBox[{
         RowBox[{"FullSimplify", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"rhs", "[", 
              RowBox[{"i", ",", "k"}], "]"}], "+", 
             RowBox[{"e", "[", 
              RowBox[{"i", ",", "k"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}], "]"}], "/.", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"x", "[", 
                RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], ")"}], 
             "\[Rule]", 
             RowBox[{"y", "[", 
              RowBox[{"i", ",", "k"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"i", "=", "1"}], ",", 
         RowBox[{"i", "\[LessEqual]", "S"}], ",", 
         RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"k", "=", "1"}], ",", 
            RowBox[{"k", "\[LessEqual]", "Nvertices"}], ",", 
            RowBox[{"++", "k"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "i", ",", "k"}], "]"}], "]"}], "=", 
              RowBox[{"1", "+", 
               RowBox[{"RandomReal", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "0.01"}], ",", "0.01"}], "}"}], "]"}]}]}], 
             ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"step", "=", "1"}], ",", 
         RowBox[{"step", "<", "maxsteps"}], ",", 
         RowBox[{"step", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"i", "=", "1"}], ",", 
            RowBox[{"i", "\[LessEqual]", "S"}], ",", 
            RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"For", "[", 
              RowBox[{
               RowBox[{"k", "=", "1"}], ",", 
               RowBox[{"k", "\[LessEqual]", "Nvertices"}], ",", 
               RowBox[{"++", "k"}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"y", "[", 
                  RowBox[{"i", ",", "k"}], "]"}], "=", 
                 RowBox[{"data", "[", 
                  RowBox[{"[", 
                   RowBox[{"step", ",", "i", ",", "k"}], "]"}], "]"}]}], 
                ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{"step", "+", "1"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", "step", "]"}], "]"}], "+", 
            RowBox[{"eqns", " ", "dt"}]}]}], ";"}]}], "\[IndentingNewLine]", 
        "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.725610750985056*^9, 3.7256107686969337`*^9}, 
   3.725610801298388*^9, {3.725613800029483*^9, 3.7256138062769938`*^9}, {
   3.725618422314561*^9, 3.725618454874098*^9}, {3.72568892586014*^9, 
   3.725688944546126*^9}, {3.725689347980887*^9, 3.7256893549806213`*^9}, 
   3.725689399756619*^9, {3.725689460053673*^9, 3.725689486893046*^9}, {
   3.725690028613822*^9, 3.725690150541993*^9}, {3.725690346632957*^9, 
   3.725690364526235*^9}, {3.725691482043981*^9, 3.7256914822713623`*^9}, {
   3.725691538247651*^9, 3.72569157409542*^9}, {3.7256916283197393`*^9, 
   3.7256916290960817`*^9}, {3.7256921736405077`*^9, 3.7256921738561583`*^9}, 
   3.725692242136366*^9, {3.725692445201107*^9, 3.725692455073811*^9}, {
   3.72569530611626*^9, 3.725695349556007*^9}, {3.7256954560363817`*^9, 
   3.7256954835644093`*^9}, 3.725695591588366*^9, 3.725695961206663*^9, {
   3.725696036621846*^9, 3.725696086181583*^9}, 3.725696116893544*^9, 
   3.725960147124552*^9, 3.725961601238545*^9, {3.7259633416507177`*^9, 
   3.72596336172955*^9}, {3.742889085017367*^9, 3.742889093002544*^9}, {
   3.7610248348806057`*^9, 3.761024856912871*^9}, {3.7610254152894783`*^9, 
   3.761025417825635*^9}, {3.761389807644322*^9, 3.761389818243928*^9}, {
   3.761389981075877*^9, 3.761389981147543*^9}, 3.7615467374127607`*^9, 
   3.761551586146558*^9, {3.762065334168776*^9, 3.762065336464653*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Euler", "-", "Maruyama", "-", "Verfahren"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Wiener", " ", "Prozess"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"EulerMaruyamaSpatial", "[", 
     RowBox[{"noise_", ",", "Tmax_", ",", "maxsteps_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "y", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"dt", "=", 
        RowBox[{"Tmax", "/", "maxsteps"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"noise", "=", "0.01"}], ";"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Noise", "[", "]"}], ":=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"RandomVariate", "[", 
           RowBox[{"NormalDistribution", "[", 
            RowBox[{"0", ",", 
             RowBox[{"Sqrt", "[", "dt", "]"}]}], "]"}], "]"}], ",", 
          RowBox[{"{", "S", "}"}], ",", 
          RowBox[{"{", "Nvertices", "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"data", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", 
          RowBox[{"{", "maxsteps", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"eqns", "=", 
        RowBox[{
         RowBox[{"FullSimplify", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"rhs", "[", 
              RowBox[{"i", ",", "k"}], "]"}], "+", 
             RowBox[{"e", "[", 
              RowBox[{"i", ",", "k"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}], "]"}], "/.", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"x", "[", 
                RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], ")"}], 
             "\[Rule]", 
             RowBox[{"y", "[", 
              RowBox[{"i", ",", "k"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"i", "=", "1"}], ",", 
         RowBox[{"i", "\[LessEqual]", "S"}], ",", 
         RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"k", "=", "1"}], ",", 
            RowBox[{"k", "\[LessEqual]", "Nvertices"}], ",", 
            RowBox[{"++", "k"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "i", ",", "k"}], "]"}], "]"}], "=", "1"}], 
             ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"step", "=", "1"}], ",", 
         RowBox[{"step", "<", "maxsteps"}], ",", 
         RowBox[{"step", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"i", "=", "1"}], ",", 
            RowBox[{"i", "\[LessEqual]", "S"}], ",", 
            RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"For", "[", 
              RowBox[{
               RowBox[{"k", "=", "1"}], ",", 
               RowBox[{"k", "\[LessEqual]", "Nvertices"}], ",", 
               RowBox[{"++", "k"}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"y", "[", 
                  RowBox[{"i", ",", "k"}], "]"}], "=", 
                 RowBox[{"data", "[", 
                  RowBox[{"[", 
                   RowBox[{"step", ",", "i", ",", "k"}], "]"}], "]"}]}], 
                ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{"step", "+", "1"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", "step", "]"}], "]"}], "+", 
            RowBox[{"eqns", " ", "dt"}], "+", 
            RowBox[{"noise", " ", 
             RowBox[{"Sqrt", "[", 
              RowBox[{"data", "[", 
               RowBox[{"[", "step", "]"}], "]"}], "]"}], 
             RowBox[{"Noise", "[", "]"}]}]}]}], ";"}]}], 
        "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}],
    ";"}]}]], "Input",
 CellChangeTimes->{{3.725697202238615*^9, 3.725697223086781*^9}, {
   3.725697263014781*^9, 3.725697270366761*^9}, 3.725697385391315*^9, 
   3.7256975548149776`*^9, {3.725697733199299*^9, 3.725697734192114*^9}, 
   3.725698801832829*^9, {3.725698997632852*^9, 3.725698999257217*^9}, 
   3.725699225896942*^9, 3.725699514010048*^9, {3.72569966052184*^9, 
   3.7256996616258297`*^9}, {3.725699833418068*^9, 3.725699833609943*^9}, {
   3.725700021354589*^9, 3.7257000217535458`*^9}, {3.725704214870566*^9, 
   3.7257042163187513`*^9}, {3.725704332222542*^9, 3.7257043353665733`*^9}, 
   3.725778541086824*^9, {3.725778585118134*^9, 3.725778586278125*^9}, 
   3.7257786251021338`*^9, {3.7259648613476133`*^9, 3.725964862058366*^9}, {
   3.725965097371459*^9, 3.725965100234529*^9}, {3.7259651489149218`*^9, 
   3.7259651504028187`*^9}, {3.725965439811141*^9, 3.725965440674966*^9}, {
   3.7259656248917294`*^9, 3.725965625171735*^9}, {3.725966918852769*^9, 
   3.725966925596785*^9}, {3.737697885770171*^9, 3.737697897498012*^9}, {
   3.742888732113613*^9, 3.742888741681714*^9}, {3.753089965905429*^9, 
   3.7530899708336678`*^9}, {3.7530904264503593`*^9, 3.753090453138212*^9}, {
   3.753161397703106*^9, 3.753161398193966*^9}, 3.7610254280016117`*^9, 
   3.761389830828134*^9, {3.761389976692647*^9, 3.761389976804179*^9}, 
   3.7615467414684687`*^9, 3.761551589314102*^9, {3.76206552881669*^9, 
   3.762065553720503*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EulerMaruyamaSpatial", "[", 
    RowBox[{"noise_", ",", "Tmax_", ",", "maxsteps_", ",", "initialData_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "y", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"dt", "=", 
       RowBox[{"Tmax", "/", "maxsteps"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"noise", "=", "0.01"}], ";"}], "*)"}], "\[IndentingNewLine]", 
      
      RowBox[{
       RowBox[{"Noise", "[", "]"}], ":=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RandomVariate", "[", 
          RowBox[{"NormalDistribution", "[", 
           RowBox[{"0", ",", 
            RowBox[{"Sqrt", "[", "dt", "]"}]}], "]"}], "]"}], ",", 
         RowBox[{"{", "S", "}"}], ",", 
         RowBox[{"{", "Nvertices", "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"data", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", "maxsteps", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "S"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"eqns", "=", 
       RowBox[{
        RowBox[{"FullSimplify", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"rhs", "[", 
             RowBox[{"i", ",", "k"}], "]"}], "+", 
            RowBox[{"e", "[", 
             RowBox[{"i", ",", "k"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "S"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}], "]"}], "/.", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], ")"}], 
            "\[Rule]", 
            RowBox[{"y", "[", 
             RowBox[{"i", ",", "k"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "S"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"data", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", "initialData"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"step", "=", "1"}], ",", 
        RowBox[{"step", "<", "maxsteps"}], ",", 
        RowBox[{"step", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"i", "=", "1"}], ",", 
           RowBox[{"i", "\[LessEqual]", "S"}], ",", 
           RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"k", "=", "1"}], ",", 
              RowBox[{"k", "\[LessEqual]", "Nvertices"}], ",", 
              RowBox[{"++", "k"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{
                RowBox[{"y", "[", 
                 RowBox[{"i", ",", "k"}], "]"}], "=", 
                RowBox[{"data", "[", 
                 RowBox[{"[", 
                  RowBox[{"step", ",", "i", ",", "k"}], "]"}], "]"}]}], 
               ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
          "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"data", "[", 
           RowBox[{"[", 
            RowBox[{"step", "+", "1"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"data", "[", 
            RowBox[{"[", "step", "]"}], "]"}], "+", 
           RowBox[{"eqns", " ", "dt"}], "+", 
           RowBox[{"noise", " ", 
            RowBox[{"Sqrt", "[", 
             RowBox[{"data", "[", 
              RowBox[{"[", "step", "]"}], "]"}], "]"}], 
            RowBox[{"Noise", "[", "]"}]}]}]}], ";"}]}], "\[IndentingNewLine]",
        "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.753164681930375*^9, 3.753164709874249*^9}, {
   3.75316506424417*^9, 3.7531650714108267`*^9}, 3.7610254370655603`*^9, 
   3.761551611946437*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Local variable phi", "Subsection",
 CellChangeTimes->{{3.7256888541961*^9, 3.72568885470708*^9}, {
  3.7501562243536654`*^9, 3.7501562289136*^9}, {3.761388954488715*^9, 
  3.7613889546370707`*^9}, {3.7621479766965313`*^9, 3.762147990584601*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Euler", "-", "Verfahren"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"ohne", " ", "Noise"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"EulerLocalVariable", "[", "Interval_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"y", ",", "phistep", ",", "phit", ",", "step"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Tmax", "=", "100."}], ";", "\[IndentingNewLine]", 
       RowBox[{"maxsteps", "=", "100000"}], ";", "\[IndentingNewLine]", 
       RowBox[{"dt", "=", 
        RowBox[{"Tmax", "/", "maxsteps"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"phistep", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Interval", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "-", 
           RowBox[{"Interval", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", "maxsteps"}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"phi", "[", 
         RowBox[{"[", "4", "]"}], "]"}], "=", "phit"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"data", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", 
          RowBox[{"{", "maxsteps", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"eqns", "=", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"rhs", "[", 
             RowBox[{"i", ",", "k"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "]"}], "/.", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"x", "[", 
                RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], ")"}], 
             "\[Rule]", 
             RowBox[{"y", "[", 
              RowBox[{"i", ",", "k"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"i", "=", "1"}], ",", 
         RowBox[{"i", "\[LessEqual]", "S"}], ",", 
         RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "i"}], "]"}], "]"}], "=", 
           RowBox[{"1", "+", 
            RowBox[{"RandomReal", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "0.01"}], ",", "0.01"}], "}"}], "]"}]}]}], 
          ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"step", "=", "1"}], ",", 
         RowBox[{"step", "<", "maxsteps"}], ",", 
         RowBox[{"step", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"phit", "=", 
           RowBox[{
            RowBox[{"Interval", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "+", 
            RowBox[{"step", " ", "phistep"}]}]}], ";", "\[IndentingNewLine]", 
          
          RowBox[{"k", "=", "1"}], ";", "\[IndentingNewLine]", 
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"i", "=", "1"}], ",", 
            RowBox[{"i", "\[LessEqual]", "S"}], ",", 
            RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"y", "[", 
               RowBox[{"i", ",", "k"}], "]"}], "=", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"step", ",", "i"}], "]"}], "]"}]}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{"step", "+", "1"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", "step", "]"}], "]"}], "+", 
            RowBox[{"eqns", " ", "dt"}]}]}], ";"}]}], "\[IndentingNewLine]", 
        "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.725610750985056*^9, 3.7256107686969337`*^9}, 
   3.725610801298388*^9, {3.725613800029483*^9, 3.7256138062769938`*^9}, {
   3.725618422314561*^9, 3.725618454874098*^9}, {3.74288880728895*^9, 
   3.7428888149855433`*^9}, {3.750156233258224*^9, 3.7501563166829*^9}, {
   3.757237779234232*^9, 3.757237781129994*^9}, {3.7572423558318167`*^9, 
   3.757242435088047*^9}, {3.757242477511771*^9, 3.7572426059680367`*^9}, {
   3.7613889693146973`*^9, 3.7613891003712597`*^9}, {3.7613892480034447`*^9, 
   3.761389269451289*^9}, {3.7613899419764843`*^9, 3.761389948084078*^9}, {
   3.76214798493789*^9, 3.7621480376335506`*^9}, {3.762148083690386*^9, 
   3.762148096354005*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Euler", "-", "Maruyama", "-", "Verfahren"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Wiener", " ", "Prozess"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"EulerMaruyamaLocalVariable", "[", 
      RowBox[{"Interval_", ",", "noise_", ",", "tmax_", ",", "maxSteps_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"y", ",", "phistep", ",", "phit", ",", "step"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Tmax", "=", "tmax"}], ";", "\[IndentingNewLine]", 
        RowBox[{"maxsteps", "=", "maxSteps"}], ";", "\[IndentingNewLine]", 
        RowBox[{"dt", "=", 
         RowBox[{"Tmax", "/", "maxsteps"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"phistep", "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Interval", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "-", 
            RowBox[{"Interval", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", "maxsteps"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"phi", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "=", "phit"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Noise", "[", "]"}], ":=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"RandomVariate", "[", 
            RowBox[{"NormalDistribution", "[", 
             RowBox[{"0", ",", 
              RowBox[{"Sqrt", "[", "dt", "]"}]}], "]"}], "]"}], ",", 
           RowBox[{"{", "S", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"data", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", "maxsteps", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "S"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"eqns", "=", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"rhs", "[", 
              RowBox[{"i", ",", "k"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "S"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "]"}], "/.", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"x", "[", 
                 RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], ")"}], 
              "\[Rule]", 
              RowBox[{"y", "[", 
               RowBox[{"i", ",", "k"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "S"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "1"}], "}"}]}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "1"}], ",", 
          RowBox[{"i", "\[LessEqual]", "S"}], ",", 
          RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "i"}], "]"}], "]"}], "=", 
            RowBox[{"1", "+", 
             RowBox[{"RandomReal", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "0.01"}], ",", "0.01"}], "}"}], "]"}]}]}], 
           ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"step", "=", "1"}], ",", 
          RowBox[{"step", "<", "maxsteps"}], ",", 
          RowBox[{"step", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"phit", "=", 
            RowBox[{
             RowBox[{"Interval", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "+", 
             RowBox[{"step", " ", "phistep"}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"k", "=", "1"}], ";", "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"i", "=", "1"}], ",", 
             RowBox[{"i", "\[LessEqual]", "S"}], ",", 
             RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"y", "[", 
                RowBox[{"i", ",", "k"}], "]"}], "=", 
               RowBox[{"data", "[", 
                RowBox[{"[", 
                 RowBox[{"step", ",", "i"}], "]"}], "]"}]}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{"step", "+", "1"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"data", "[", 
              RowBox[{"[", "step", "]"}], "]"}], "+", 
             RowBox[{"eqns", " ", "dt"}], "+", 
             RowBox[{"noise", " ", 
              RowBox[{"Sqrt", "[", 
               RowBox[{"data", "[", 
                RowBox[{"[", "step", "]"}], "]"}], "]"}], 
              RowBox[{"Noise", "[", "]"}]}]}]}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"EulerMaruyamaLocalVariable", "[", 
      RowBox[{"Interval_", ",", "noise_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "y", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"EulerMaruyamaLocalVariable", "[", 
         RowBox[{"Interval", ",", "noise", ",", "100", ",", "100000"}], "]"}],
         ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.725610750985056*^9, 3.7256107686969337`*^9}, 
   3.725610801298388*^9, {3.725611742233899*^9, 3.7256117773536654`*^9}, {
   3.725611817273987*^9, 3.7256118568623743`*^9}, {3.725611912379854*^9, 
   3.725611927066595*^9}, {3.725613261003927*^9, 3.72561328323256*^9}, {
   3.725613341252305*^9, 3.7256133795494537`*^9}, {3.725613560339746*^9, 
   3.7256136142837057`*^9}, {3.725613858438841*^9, 3.725613865589023*^9}, {
   3.7256140360845327`*^9, 3.7256140623505697`*^9}, {3.725614165049087*^9, 
   3.725614180200683*^9}, 3.725614304316577*^9, 3.72561435578092*^9, {
   3.7256146137745113`*^9, 3.7256146180789547`*^9}, {3.725617479105036*^9, 
   3.725617537121114*^9}, {3.7256176326541033`*^9, 3.725617669729661*^9}, 
   3.725617783937972*^9, {3.725618173201516*^9, 3.725618177449779*^9}, {
   3.725618216300166*^9, 3.7256183074744797`*^9}, {3.7256183859295673`*^9, 
   3.725618413625332*^9}, {3.725618465915682*^9, 3.72561847417417*^9}, 
   3.741680381216251*^9, {3.741680553824031*^9, 3.74168055658355*^9}, {
   3.741680614575522*^9, 3.7416807548241262`*^9}, {3.741681419624239*^9, 
   3.7416814577689857`*^9}, {3.741681492472575*^9, 3.741681633464957*^9}, {
   3.7416819937136717`*^9, 3.741682031617365*^9}, {3.7501563519074173`*^9, 
   3.7501564240503674`*^9}, {3.757237789138239*^9, 3.757237791266645*^9}, {
   3.757238225330225*^9, 3.757238226042563*^9}, {3.757238558258821*^9, 
   3.757238560272644*^9}, {3.7572430283929996`*^9, 3.757243067672922*^9}, {
   3.757243105801221*^9, 3.757243125401114*^9}, {3.7613893150114393`*^9, 
   3.761389445723282*^9}, {3.761389956183338*^9, 3.761389962413782*^9}, {
   3.7614560225848217`*^9, 3.7614560234485407`*^9}, {3.761456446977755*^9, 
   3.761456477217176*^9}, {3.762148102258668*^9, 3.7621481995317497`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Spatial variable phi", "Subsection",
 CellChangeTimes->{{3.725688862798696*^9, 3.725688874470562*^9}, {
  3.7501565911139708`*^9, 3.750156594450098*^9}, {3.761389582017415*^9, 
  3.761389583329925*^9}, {3.7621482376895237`*^9, 3.7621482393369303`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Euler", "-", "Verfahren"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"ohne", " ", "Noise"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"EulerSpatialVariable", "[", "Interval_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"y", ",", "phistep", ",", "phit", ",", "step"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Tmax", "=", "500."}], ";", "\[IndentingNewLine]", 
       RowBox[{"maxsteps", "=", "100000"}], ";", "\[IndentingNewLine]", 
       RowBox[{"dt", "=", 
        RowBox[{"Tmax", "/", "maxsteps"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"phistep", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Interval", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "-", 
           RowBox[{"Interval", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", "maxsteps"}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"phi", "[", 
         RowBox[{"[", "4", "]"}], "]"}], "=", "phit"}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"data", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", 
          RowBox[{"{", "maxsteps", "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "S"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"eqns", "=", 
        RowBox[{
         RowBox[{"FullSimplify", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"rhs", "[", 
              RowBox[{"i", ",", "k"}], "]"}], "+", 
             RowBox[{"e", "[", 
              RowBox[{"i", ",", "k"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}], "]"}], "/.", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"x", "[", 
                RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], ")"}], 
             "\[Rule]", 
             RowBox[{"y", "[", 
              RowBox[{"i", ",", "k"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "S"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"i", "=", "1"}], ",", 
         RowBox[{"i", "\[LessEqual]", "S"}], ",", 
         RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"k", "=", "1"}], ",", 
            RowBox[{"k", "\[LessEqual]", "Nvertices"}], ",", 
            RowBox[{"++", "k"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "i", ",", "k"}], "]"}], "]"}], "=", 
              RowBox[{"1", "+", 
               RowBox[{"RandomReal", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"-", "0.01"}], ",", "0.01"}], "}"}], "]"}]}]}], 
             ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"step", "=", "1"}], ",", 
         RowBox[{"step", "<", "maxsteps"}], ",", 
         RowBox[{"step", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"phit", "=", 
           RowBox[{
            RowBox[{"Interval", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "+", 
            RowBox[{"step", " ", "phistep"}]}]}], ";", "\[IndentingNewLine]", 
          
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"i", "=", "1"}], ",", 
            RowBox[{"i", "\[LessEqual]", "S"}], ",", 
            RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"For", "[", 
              RowBox[{
               RowBox[{"k", "=", "1"}], ",", 
               RowBox[{"k", "\[LessEqual]", "Nvertices"}], ",", 
               RowBox[{"++", "k"}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"y", "[", 
                  RowBox[{"i", ",", "k"}], "]"}], "=", 
                 RowBox[{"data", "[", 
                  RowBox[{"[", 
                   RowBox[{"step", ",", "i", ",", "k"}], "]"}], "]"}]}], 
                ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"data", "[", 
            RowBox[{"[", 
             RowBox[{"step", "+", "1"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", "step", "]"}], "]"}], "+", 
            RowBox[{"eqns", " ", "dt"}]}]}], ";"}]}], "\[IndentingNewLine]", 
        "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.725610750985056*^9, 3.7256107686969337`*^9}, 
   3.725610801298388*^9, {3.725613800029483*^9, 3.7256138062769938`*^9}, {
   3.725618422314561*^9, 3.725618454874098*^9}, {3.72568892586014*^9, 
   3.725688944546126*^9}, {3.725689347980887*^9, 3.7256893549806213`*^9}, 
   3.725689399756619*^9, {3.725689460053673*^9, 3.725689486893046*^9}, {
   3.725690028613822*^9, 3.725690150541993*^9}, {3.725690346632957*^9, 
   3.725690364526235*^9}, {3.725691482043981*^9, 3.7256914822713623`*^9}, {
   3.725691538247651*^9, 3.72569157409542*^9}, {3.7256916283197393`*^9, 
   3.7256916290960817`*^9}, {3.7256921736405077`*^9, 3.7256921738561583`*^9}, 
   3.725692242136366*^9, {3.725692445201107*^9, 3.725692455073811*^9}, {
   3.72569530611626*^9, 3.725695349556007*^9}, {3.7256954560363817`*^9, 
   3.7256954835644093`*^9}, 3.725695591588366*^9, 3.725695961206663*^9, {
   3.725696036621846*^9, 3.725696086181583*^9}, 3.725696116893544*^9, 
   3.725960147124552*^9, 3.725961601238545*^9, {3.7259633416507177`*^9, 
   3.72596336172955*^9}, {3.742889085017367*^9, 3.742889093002544*^9}, {
   3.750156601915797*^9, 3.750156671859419*^9}, {3.757237355041481*^9, 
   3.757237360385357*^9}, {3.7572433302972717`*^9, 3.7572433572898283`*^9}, 
   3.761025471649624*^9, {3.761389686996956*^9, 3.761389706294827*^9}, {
   3.761390457989296*^9, 3.761390524229265*^9}, 3.761551621409564*^9, {
   3.762148210866197*^9, 3.7621482629459457`*^9}, {3.762148301154722*^9, 
   3.7621483238581457`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Euler", "-", "Maruyama", "-", "Verfahren"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Wiener", " ", "Prozess"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"EulerMaruyamaSpatialVariable", "[", 
      RowBox[{"Interval_", ",", "noise_", ",", "tmax_", ",", "maxSteps_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"y", ",", "phistep", ",", "phit"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Tmax", "=", "tmax"}], ";", "\[IndentingNewLine]", 
        RowBox[{"maxsteps", "=", "maxSteps"}], ";", "\[IndentingNewLine]", 
        RowBox[{"dt", "=", 
         RowBox[{"Tmax", "/", "maxsteps"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"phistep", "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Interval", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "-", 
            RowBox[{"Interval", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", "maxsteps"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"phi", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "=", "phit"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Noise", "[", "]"}], ":=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"RandomVariate", "[", 
            RowBox[{"NormalDistribution", "[", 
             RowBox[{"0", ",", 
              RowBox[{"Sqrt", "[", "dt", "]"}]}], "]"}], "]"}], ",", 
           RowBox[{"{", "S", "}"}], ",", 
           RowBox[{"{", "Nvertices", "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"data", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", "maxsteps", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "S"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"eqns", "=", 
         RowBox[{
          RowBox[{"FullSimplify", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"rhs", "[", 
               RowBox[{"i", ",", "k"}], "]"}], "+", 
              RowBox[{"e", "[", 
               RowBox[{"i", ",", "k"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "S"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}], "]"}], "/.", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"x", "[", 
                 RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], ")"}], 
              "\[Rule]", 
              RowBox[{"y", "[", 
               RowBox[{"i", ",", "k"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "S"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}], "]"}]}]}], ";",
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "1"}], ",", 
          RowBox[{"i", "\[LessEqual]", "S"}], ",", 
          RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"k", "=", "1"}], ",", 
             RowBox[{"k", "\[LessEqual]", "Nvertices"}], ",", 
             RowBox[{"++", "k"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"data", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "i", ",", "k"}], "]"}], "]"}], "=", "1"}], 
              ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"step", "=", "1"}], ",", 
          RowBox[{"step", "<", "maxsteps"}], ",", 
          RowBox[{"step", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"phit", "=", 
            RowBox[{
             RowBox[{"Interval", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "+", 
             RowBox[{"step", " ", "phistep"}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"i", "=", "1"}], ",", 
             RowBox[{"i", "\[LessEqual]", "S"}], ",", 
             RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"For", "[", 
               RowBox[{
                RowBox[{"k", "=", "1"}], ",", 
                RowBox[{"k", "\[LessEqual]", "Nvertices"}], ",", 
                RowBox[{"++", "k"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"y", "[", 
                   RowBox[{"i", ",", "k"}], "]"}], "=", 
                  RowBox[{"data", "[", 
                   RowBox[{"[", 
                    RowBox[{"step", ",", "i", ",", "k"}], "]"}], "]"}]}], 
                 ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{"step", "+", "1"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"data", "[", 
              RowBox[{"[", "step", "]"}], "]"}], "+", 
             RowBox[{"eqns", " ", "dt"}], "+", 
             RowBox[{"noise", " ", 
              RowBox[{"Sqrt", "[", 
               RowBox[{"data", "[", 
                RowBox[{"[", "step", "]"}], "]"}], "]"}], 
              RowBox[{"Noise", "[", "]"}]}]}]}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"EulerMaruyamaSpatialVariable", "[", 
      RowBox[{"Interval_", ",", "noise_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "y", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"EulerMaruyamaSpatialVariable", "[", 
         RowBox[{"Interval", ",", "noise", ",", "100", ",", "100000"}], "]"}],
         ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"EulerMaruyamaSpatialVariable", "[", 
      RowBox[{
      "Interval_", ",", "noise_", ",", "tmax_", ",", "maxSteps_", ",", 
       "initialData_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"y", ",", "phit", ",", "phistep"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Tmax", "=", "tmax"}], ";", "\[IndentingNewLine]", 
        RowBox[{"maxsteps", "=", "maxSteps"}], ";", "\[IndentingNewLine]", 
        RowBox[{"dt", "=", 
         RowBox[{"Tmax", "/", "maxsteps"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"phistep", "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Interval", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "-", 
            RowBox[{"Interval", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", "maxsteps"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"phi", "[", 
          RowBox[{"[", "4", "]"}], "]"}], "=", "phit"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Noise", "[", "]"}], ":=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"RandomVariate", "[", 
            RowBox[{"NormalDistribution", "[", 
             RowBox[{"0", ",", 
              RowBox[{"Sqrt", "[", "dt", "]"}]}], "]"}], "]"}], ",", 
           RowBox[{"{", "S", "}"}], ",", 
           RowBox[{"{", "Nvertices", "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"data", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", "maxsteps", "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "S"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"eqns", "=", 
         RowBox[{
          RowBox[{"FullSimplify", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"rhs", "[", 
               RowBox[{"i", ",", "k"}], "]"}], "+", 
              RowBox[{"e", "[", 
               RowBox[{"i", ",", "k"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "S"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}], "]"}], "/.", 
          RowBox[{"Flatten", "[", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"x", "[", 
                 RowBox[{"i", ",", "k"}], "]"}], "[", "t", "]"}], ")"}], 
              "\[Rule]", 
              RowBox[{"y", "[", 
               RowBox[{"i", ",", "k"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "S"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"k", ",", "Nvertices"}], "}"}]}], "]"}], "]"}]}]}], ";",
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"data", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "=", "initialData"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"step", "=", "1"}], ",", 
          RowBox[{"step", "<", "maxsteps"}], ",", 
          RowBox[{"step", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"phit", "=", 
            RowBox[{
             RowBox[{"Interval", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "+", 
             RowBox[{"step", " ", "phistep"}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"i", "=", "1"}], ",", 
             RowBox[{"i", "\[LessEqual]", "S"}], ",", 
             RowBox[{"++", "i"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"For", "[", 
               RowBox[{
                RowBox[{"k", "=", "1"}], ",", 
                RowBox[{"k", "\[LessEqual]", "Nvertices"}], ",", 
                RowBox[{"++", "k"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"y", "[", 
                   RowBox[{"i", ",", "k"}], "]"}], "=", 
                  RowBox[{"data", "[", 
                   RowBox[{"[", 
                    RowBox[{"step", ",", "i", ",", "k"}], "]"}], "]"}]}], 
                 ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{"step", "+", "1"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"data", "[", 
              RowBox[{"[", "step", "]"}], "]"}], "+", 
             RowBox[{"eqns", " ", "dt"}], "+", 
             RowBox[{"noise", " ", 
              RowBox[{"Sqrt", "[", 
               RowBox[{"data", "[", 
                RowBox[{"[", "step", "]"}], "]"}], "]"}], 
              RowBox[{"Noise", "[", "]"}]}]}]}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.725697202238615*^9, 3.725697223086781*^9}, {
   3.725697263014781*^9, 3.725697270366761*^9}, 3.725697385391315*^9, 
   3.7256975548149776`*^9, {3.725697733199299*^9, 3.725697734192114*^9}, 
   3.725698801832829*^9, {3.725698997632852*^9, 3.725698999257217*^9}, 
   3.725699225896942*^9, 3.725699514010048*^9, {3.72569966052184*^9, 
   3.7256996616258297`*^9}, {3.725699833418068*^9, 3.725699833609943*^9}, {
   3.725700021354589*^9, 3.7257000217535458`*^9}, {3.725704214870566*^9, 
   3.7257042163187513`*^9}, {3.725704332222542*^9, 3.7257043353665733`*^9}, 
   3.725778541086824*^9, {3.725778585118134*^9, 3.725778586278125*^9}, 
   3.7257786251021338`*^9, {3.7259648613476133`*^9, 3.725964862058366*^9}, {
   3.725965097371459*^9, 3.725965100234529*^9}, {3.7259651489149218`*^9, 
   3.7259651504028187`*^9}, {3.725965439811141*^9, 3.725965440674966*^9}, {
   3.7259656248917294`*^9, 3.725965625171735*^9}, {3.725966918852769*^9, 
   3.725966925596785*^9}, {3.737697885770171*^9, 3.737697897498012*^9}, {
   3.742888732113613*^9, 3.742888741681714*^9}, {3.750156827811928*^9, 
   3.750156902645183*^9}, {3.750156994684753*^9, 3.750156996076342*^9}, {
   3.7572373652011843`*^9, 3.757237367073804*^9}, {3.75724347863445*^9, 
   3.7572435099541473`*^9}, {3.757419898793351*^9, 3.7574199362061853`*^9}, {
   3.7576536374694138`*^9, 3.7576536660773067`*^9}, {3.757655423623414*^9, 
   3.757655426070883*^9}, {3.7576556219677057`*^9, 3.757655632776023*^9}, {
   3.75765566801156*^9, 3.757655673223797*^9}, {3.76102548098662*^9, 
   3.7610254870897818`*^9}, 3.7613898914936543`*^9, {3.761390029045354*^9, 
   3.7613902379296*^9}, 3.761456228273881*^9, {3.761551624322515*^9, 
   3.7615516297696466`*^9}, {3.762148307621646*^9, 3.762148452258355*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 1145},
WindowMargins->{{0, Automatic}, {0, 20}},
FrontEndVersion->"11.0 for Linux x86 (64-bit) (September 21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 73, 1, 32, "Input"],
Cell[634, 23, 5258, 152, 309, "Input"],
Cell[CellGroupData[{
Cell[5917, 179, 152, 2, 65, "Section"],
Cell[6072, 183, 3415, 109, 171, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9524, 297, 214, 3, 65, "Section"],
Cell[9741, 302, 3585, 91, 512, "Input"],
Cell[CellGroupData[{
Cell[13351, 397, 152, 2, 45, "Subsection"],
Cell[13506, 401, 10788, 271, 1051, "Input"],
Cell[CellGroupData[{
Cell[24319, 676, 2051, 51, 192, "Input"],
Cell[26373, 729, 1416, 29, 70, "Output"],
Cell[27792, 760, 2677, 67, 70, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[30518, 833, 246, 3, 45, "Subsection"],
Cell[30767, 838, 10689, 270, 1073, "Input"],
Cell[CellGroupData[{
Cell[41481, 1112, 2277, 54, 192, "Input"],
Cell[43761, 1168, 1638, 32, 70, "Output"],
Cell[45402, 1202, 3197, 80, 70, "Output"]
}, Open  ]],
Cell[48614, 1285, 309, 7, 34, "Input"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[48972, 1298, 100, 1, 51, "Section"],
Cell[49075, 1301, 2352, 64, 125, "Input"],
Cell[CellGroupData[{
Cell[51452, 1369, 737, 18, 79, "Input"],
Cell[52192, 1389, 10354, 254, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[62595, 1649, 94, 1, 51, "Section"],
Cell[CellGroupData[{
Cell[62714, 1654, 148, 2, 44, "Subsection"],
Cell[62865, 1658, 8071, 189, 901, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70973, 1852, 217, 3, 44, "Subsection"],
Cell[71193, 1857, 7304, 161, 697, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[78546, 2024, 168, 2, 65, "Section"],
Cell[CellGroupData[{
Cell[78739, 2030, 99, 1, 44, "Subsection"],
Cell[78841, 2033, 1925, 32, 103, "Input"],
Cell[80769, 2067, 5046, 113, 419, "Input"],
Cell[CellGroupData[{
Cell[85840, 2184, 101, 1, 35, "Subsubsection"],
Cell[85944, 2187, 1728, 37, 352, "Input"],
Cell[87675, 2226, 5722, 129, 330, "Input"],
Cell[93400, 2357, 4176, 109, 352, "Input"],
Cell[97579, 2468, 4684, 123, 352, "Input"],
Cell[102266, 2593, 5354, 134, 352, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[107669, 2733, 95, 1, 44, "Subsection"],
Cell[107767, 2736, 7762, 190, 509, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[115578, 2932, 97, 1, 65, "Section"],
Cell[115678, 2935, 4623, 115, 103, "Input"],
Cell[120304, 3052, 1338, 35, 103, "Input"],
Cell[121645, 3089, 1277, 31, 193, "Input"],
Cell[122925, 3122, 2000, 49, 149, "Input"],
Cell[124928, 3173, 1470, 35, 103, "Input"],
Cell[126401, 3210, 2443, 58, 283, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128881, 3273, 142, 2, 65, "Section"],
Cell[129026, 3277, 20038, 447, 2318, "Input"],
Cell[CellGroupData[{
Cell[149089, 3728, 3201, 80, 282, "Input"],
Cell[152293, 3810, 544, 8, 24, "Print"],
Cell[152840, 3820, 3097, 48, 34, "Output"],
Cell[155940, 3870, 113542, 1909, 261, 84267, 1434, "CachedBoxData", \
"BoxData", "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[269519, 5784, 709, 17, 79, "Input"],
Cell[270231, 5803, 1058, 28, 34, "Output"],
Cell[271292, 5833, 697, 16, 34, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[272026, 5854, 1106, 21, 102, "Input"],
Cell[273135, 5877, 583, 8, 32, "Output"],
Cell[273721, 5887, 28612, 481, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[302370, 6373, 786, 20, 80, "Input"],
Cell[303159, 6395, 26602, 445, 242, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[329798, 6845, 331, 7, 57, "Input"],
Cell[330132, 6854, 181, 2, 32, "Output"],
Cell[330316, 6858, 181, 2, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[330534, 6865, 956, 19, 192, "Input"],
Cell[331493, 6886, 1392, 27, 480, "Output"],
Cell[332888, 6915, 28266, 476, 281, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[361203, 7397, 100, 1, 65, "Section"],
Cell[361306, 7400, 11074, 225, 811, "Input"],
Cell[CellGroupData[{
Cell[372405, 7629, 1610, 32, 171, "Input"],
Cell[CellGroupData[{
Cell[374040, 7665, 2220, 31, 24, "Print"],
Cell[376263, 7698, 2214, 32, 24, "Print"],
Cell[378480, 7732, 8353, 130, 565, "Print"],
Cell[386836, 7864, 22593, 345, 117, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[409478, 8215, 839, 21, 171, "Input"],
Cell[CellGroupData[{
Cell[410342, 8240, 452, 7, 24, "Print"],
Cell[410797, 8249, 443, 8, 24, "Print"],
Cell[411243, 8259, 5202, 82, 407, "Print"],
Cell[416448, 8343, 4960, 87, 117, "Print"]
}, Open  ]]
}, Open  ]],
Cell[421435, 8434, 5035, 111, 171, InheritFromParent]
}, Open  ]],
Cell[CellGroupData[{
Cell[426507, 8550, 152, 2, 65, "Section"],
Cell[CellGroupData[{
Cell[426684, 8556, 8371, 176, 914, "Input"],
Cell[435058, 8734, 877, 14, 32, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[435984, 8754, 137, 2, 65, "Section"],
Cell[CellGroupData[{
Cell[436146, 8760, 90, 1, 44, "Subsection"],
Cell[436239, 8763, 4250, 104, 512, "Input"],
Cell[440492, 8869, 6290, 140, 604, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[446819, 9014, 95, 1, 45, "Subsection"],
Cell[446917, 9017, 5906, 133, 535, "Input"],
Cell[452826, 9152, 6570, 150, 603, "Input"],
Cell[459399, 9304, 4399, 113, 467, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[463835, 9422, 251, 3, 45, "Subsection"],
Cell[464089, 9427, 5290, 128, 603, "Input"],
Cell[469382, 9557, 7692, 171, 717, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[477111, 9733, 258, 3, 45, "Subsection"],
Cell[477372, 9738, 6911, 157, 672, "Input"],
Cell[484286, 9897, 13698, 317, 1400, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)