cellular potts model.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    227146,       4564]
NotebookOptionsPosition[    219990,       4447]
NotebookOutlinePosition[    220398,       4463]
CellTagsIndexPosition[    220355,       4460]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Cellular Potts Model (CPM)", "Chapter",
 CellChangeTimes->{{3.8078762927825656`*^9, 3.8078762980029697`*^9}, {
  3.808058980183403*^9, 
  3.808058982398465*^9}},ExpressionUUID->"f378f99f-d930-4438-b4ec-\
0dd9ee025ea4"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["params",
 FontWeight->"Bold"]], "Subsection",
 CellChangeTimes->{{3.8078761795086813`*^9, 3.8078761853671556`*^9}, {
   3.8078762411109533`*^9, 3.8078762441028275`*^9}, {3.807876392037921*^9, 
   3.8078763926741433`*^9}, 
   3.8078768981915593`*^9},ExpressionUUID->"0cd69c8a-834e-4e59-b523-\
06ec09725770"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"adhesion", " ", "strength"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["j", "00"], "=", " ", "0"}], ";", 
    RowBox[{
     SubscriptBox["j", "11"], "=", "6"}], ";", 
    RowBox[{
     SubscriptBox["j", "22"], "=", "6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["j", "01"], "=", 
     RowBox[{
      SubscriptBox["j", "10"], "=", "6"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["j", "02"], "=", 
     RowBox[{
      SubscriptBox["j", "20"], "=", "6"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     SubscriptBox["j", "12"], "=", 
     RowBox[{
      SubscriptBox["j", "21"], "=", "16"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"J", "[", 
      RowBox[{"0", ",", "0"}], "]"}], "=", 
     SubscriptBox["j", "00"]}], ";", 
    RowBox[{
     RowBox[{"J", "[", 
      RowBox[{"1", ",", "1"}], "]"}], "=", 
     SubscriptBox["j", "11"]}], ";", 
    RowBox[{
     RowBox[{"J", "[", 
      RowBox[{"2", ",", "2"}], "]"}], "=", 
     SubscriptBox["j", "22"]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"J", "[", 
      RowBox[{"1", ",", "0"}], "]"}], "=", 
     SubscriptBox["j", "10"]}], ";", 
    RowBox[{
     RowBox[{"J", "[", 
      RowBox[{"0", ",", "1"}], "]"}], "=", 
     SubscriptBox["j", "01"]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"J", "[", 
      RowBox[{"2", ",", "0"}], "]"}], "=", 
     SubscriptBox["j", "20"]}], ";", 
    RowBox[{
     RowBox[{"J", "[", 
      RowBox[{"0", ",", "2"}], "]"}], "=", 
     SubscriptBox["j", "02"]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"J", "[", 
      RowBox[{"1", ",", "2"}], "]"}], "=", 
     SubscriptBox["j", "12"]}], ";", 
    RowBox[{
     RowBox[{"J", "[", 
      RowBox[{"2", ",", "1"}], "]"}], "=", 
     SubscriptBox["j", "21"]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"JMatrix", "=", 
     RowBox[{"(", GridBox[{
        {
         SubscriptBox["j", "00"], 
         SubscriptBox["j", "01"], 
         SubscriptBox["j", "02"]},
        {
         SubscriptBox["j", "10"], 
         SubscriptBox["j", "11"], 
         SubscriptBox["j", "12"]},
        {
         SubscriptBox["j", "20"], 
         SubscriptBox["j", "21"], 
         SubscriptBox["j", "22"]}
       }], ")"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.8077334601471887`*^9, {3.8077361911130714`*^9, 3.8077362448371115`*^9}, {
   3.807736295332922*^9, 3.8077363386260614`*^9}, {3.807736403571601*^9, 
   3.807736434949898*^9}, {3.807742221333476*^9, 3.8077423564309864`*^9}, {
   3.807742429949137*^9, 3.807742434692959*^9}, {3.8077424945479617`*^9, 
   3.807742542963063*^9}, {3.807764243192226*^9, 3.8077642784464016`*^9}, {
   3.807792468966512*^9, 3.8077925020479097`*^9}, 3.8078211996270833`*^9, {
   3.807876360255907*^9, 3.8078763687998877`*^9}, {3.8079909118622446`*^9, 
   3.807990912161322*^9}, {3.8079909489774947`*^9, 3.807990979234786*^9}, {
   3.8079937785650096`*^9, 3.807993781808673*^9}, {3.8079962698942847`*^9, 
   3.807996270442196*^9}, {3.8079992029341416`*^9, 3.8079992332035685`*^9}, {
   3.808554937957776*^9, 3.808555163211271*^9}, {3.808555323034754*^9, 
   3.8085553233137608`*^9}, {3.8085769818719435`*^9, 3.8085770009153605`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[1110]:=",ExpressionUUID->"2aa59055-6cfd-49b3-b999-52b9034d47da"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Style", "[", 
      RowBox[{"#", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"GrayLevel", "[", 
          RowBox[{"0.5", 
           RowBox[{"RandomReal", "[", "]"}]}], "]"}], ",", 
         RowBox[{"FontSize", "\[Rule]", "30"}]}], "}"}]}], "]"}], "&"}], ",", 
    "JMatrix", ",", 
    RowBox[{"{", "2", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.808555519893669*^9, 3.8085555440091925`*^9}, {
  3.80855574344194*^9, 3.808555800054985*^9}, {3.8085558495183887`*^9, 
  3.808555852713792*^9}, {3.8085595357619143`*^9, 3.8085595359044895`*^9}, {
  3.8085868860558662`*^9, 3.808586977829955*^9}},
 CellLabel->
  "In[1119]:=",ExpressionUUID->"276dec46-077f-44c8-85b5-e827359ed8f4"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      StyleBox["0",
       StripOnInput->False,
       LineColor->GrayLevel[0.09182103709852474],
       FrontFaceColor->GrayLevel[0.09182103709852474],
       BackFaceColor->GrayLevel[0.09182103709852474],
       GraphicsColor->GrayLevel[0.09182103709852474],
       FontSize->30,
       FontColor->GrayLevel[0.09182103709852474]], 
      StyleBox["6",
       StripOnInput->False,
       LineColor->GrayLevel[0.3840224786183938],
       FrontFaceColor->GrayLevel[0.3840224786183938],
       BackFaceColor->GrayLevel[0.3840224786183938],
       GraphicsColor->GrayLevel[0.3840224786183938],
       FontSize->30,
       FontColor->GrayLevel[0.3840224786183938]], 
      StyleBox["6",
       StripOnInput->False,
       LineColor->GrayLevel[0.16060080387490805`],
       FrontFaceColor->GrayLevel[0.16060080387490805`],
       BackFaceColor->GrayLevel[0.16060080387490805`],
       GraphicsColor->GrayLevel[0.16060080387490805`],
       FontSize->30,
       FontColor->GrayLevel[0.16060080387490805`]]},
     {
      StyleBox["6",
       StripOnInput->False,
       LineColor->GrayLevel[0.4942408229951729],
       FrontFaceColor->GrayLevel[0.4942408229951729],
       BackFaceColor->GrayLevel[0.4942408229951729],
       GraphicsColor->GrayLevel[0.4942408229951729],
       FontSize->30,
       FontColor->GrayLevel[0.4942408229951729]], 
      StyleBox["6",
       StripOnInput->False,
       LineColor->GrayLevel[0.13493469962235016`],
       FrontFaceColor->GrayLevel[0.13493469962235016`],
       BackFaceColor->GrayLevel[0.13493469962235016`],
       GraphicsColor->GrayLevel[0.13493469962235016`],
       FontSize->30,
       FontColor->GrayLevel[0.13493469962235016`]], 
      StyleBox["16",
       StripOnInput->False,
       LineColor->GrayLevel[0.4994623622452241],
       FrontFaceColor->GrayLevel[0.4994623622452241],
       BackFaceColor->GrayLevel[0.4994623622452241],
       GraphicsColor->GrayLevel[0.4994623622452241],
       FontSize->30,
       FontColor->GrayLevel[0.4994623622452241]]},
     {
      StyleBox["6",
       StripOnInput->False,
       LineColor->GrayLevel[0.28944405362437764`],
       FrontFaceColor->GrayLevel[0.28944405362437764`],
       BackFaceColor->GrayLevel[0.28944405362437764`],
       GraphicsColor->GrayLevel[0.28944405362437764`],
       FontSize->30,
       FontColor->GrayLevel[0.28944405362437764`]], 
      StyleBox["16",
       StripOnInput->False,
       LineColor->GrayLevel[0.032693307580581865`],
       FrontFaceColor->GrayLevel[0.032693307580581865`],
       BackFaceColor->GrayLevel[0.032693307580581865`],
       GraphicsColor->GrayLevel[0.032693307580581865`],
       FontSize->30,
       FontColor->GrayLevel[0.032693307580581865`]], 
      StyleBox["6",
       StripOnInput->False,
       LineColor->GrayLevel[0.24457669969479312`],
       FrontFaceColor->GrayLevel[0.24457669969479312`],
       BackFaceColor->GrayLevel[0.24457669969479312`],
       GraphicsColor->GrayLevel[0.24457669969479312`],
       FontSize->30,
       FontColor->GrayLevel[0.24457669969479312`]]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8085555209188843`*^9, 3.8085555442911105`*^9}, {
   3.808555755835305*^9, 3.8085558164588027`*^9}, 3.808555853034935*^9, 
   3.8085595363141994`*^9, 3.8085682875251293`*^9, {3.808586886904503*^9, 
   3.8085869830251255`*^9}, 3.808588191473997*^9, 3.8085884576566696`*^9, 
   3.8085885978449855`*^9, 3.808588753877181*^9, 3.8085888506708775`*^9, 
   3.8085895938865366`*^9, 3.808589666235095*^9, 3.8085897195179253`*^9, 
   3.8085897718521814`*^9, 3.8085903055395*^9, 3.808590350518396*^9, 
   3.8085904564947095`*^9, 3.808591627251957*^9, 3.808592177991109*^9, 
   3.8085922219575624`*^9, 3.808592283783292*^9, 3.808593761192116*^9, 
   3.80863196723596*^9, 3.8086325436427865`*^9, 3.8086326224667635`*^9, 
   3.8086333112384834`*^9, 3.8086334709767885`*^9, 3.8086345709231167`*^9, 
   3.808637909251952*^9, 3.8086399796400433`*^9, 3.8086400611262*^9, 
   3.808640851897561*^9, 3.808642711578804*^9, 3.808653270874397*^9},
 CellLabel->
  "Out[1119]//MatrixForm=",ExpressionUUID->"95465b4b-6c78-477a-9c0b-\
3fe9d366f986"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Kparam", "=", 
    RowBox[{"<|", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"0", "\[Rule]", 
       RowBox[{"<|", 
        RowBox[{
         RowBox[{"ka", "\[Rule]", " ", "0"}], ",", 
         RowBox[{"kp", "\[Rule]", "0"}], ",", 
         RowBox[{"a0", "\[Rule]", " ", "0"}], ",", 
         RowBox[{"p0", "\[Rule]", "0"}]}], "|>"}]}], ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"1", "\[Rule]", 
       RowBox[{"<|", 
        RowBox[{
         RowBox[{"ka", "\[Rule]", " ", "1"}], ",", 
         RowBox[{"kp", "\[Rule]", "2"}], ",", 
         RowBox[{"a0", "\[Rule]", " ", "100"}], ",", 
         RowBox[{"p0", "\[Rule]", "1"}]}], "|>"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"2", "\[Rule]", 
       RowBox[{"<|", 
        RowBox[{
         RowBox[{"ka", "\[Rule]", " ", "1"}], ",", 
         RowBox[{"kp", "\[Rule]", "2"}], ",", 
         RowBox[{"a0", "\[Rule]", "100"}], ",", 
         RowBox[{"p0", "\[Rule]", " ", "1"}]}], "|>"}]}]}], 
     "\[IndentingNewLine]", "|>"}]}], ";"}], " ", 
  RowBox[{"(*", "parameters", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "=", "10"}], ";"}], 
  RowBox[{"(*", "temperature", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "=", "100"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"canvas", " ", "size"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"A", "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"empty", " ", "canvas"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MCSiter", "=", "50"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"number", " ", "of", " ", "iterations"}], " ", 
   "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdyFsog2EAh/Fvu0ASF1rkBhdSLFOLHGoRzeTQkIYySxOp+ZySnLmglBZJ
C1lOwyzLIYlx4YpMammM1UQUbd/Uwkbk/b8XT7964uvZ8gY+wzCxJCia3ZBt
Kd25xnVXIbyTGMugPTiiAvrTc27MxHo7ewu3flPatoktk2Kq412xA4ePzdQe
eZ3piHgtGqHGZfCtcInHUbWLXg/cjA7n4FCk6gum+HqpmerWDgtRf/HQBQML
0r1z4nheI/VQY7yHjfuDTuj2xXB2Ynt1lRcyl2N/0BI6R/ULg8JuiB/yWqrp
/DgSPgmeqWp5YgJM0mdTH4vu0mDGt4eqGuougJxhgio0OH9gH+Oi7rFBy8l1
7tzOzCiqqimPJyIehJTwYZbWcQZTNU/Umg6W90kUp33y4at3tBiquZcSaGv+
nYKr46/T8ER/r4Onyqt5OONdE0hU5LMNUVBU6cqHb7ulhXBAENDJiIod6Ty0
2PpXoMljNcF/bycOQg==
  "],
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[1120]:=",ExpressionUUID->"ef68822a-5b4c-477d-ac1c-6aa6d2471eec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Data structures",
 FontWeight->"Bold"]], "Subsection",
 CellChangeTimes->{{3.8078761795086813`*^9, 3.8078761853671556`*^9}, {
   3.8078762411109533`*^9, 3.8078762441028275`*^9}, {3.807876392037921*^9, 
   3.8078763926741433`*^9}, 3.8078768981915593`*^9, {3.808577056684684*^9, 
   3.808577107569531*^9}, 
   3.8085843842617702`*^9},ExpressionUUID->"cfa62f30-498b-4be3-a2e3-\
16e291572d25"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"boundaryPts", "=", 
  RowBox[{"CreateDataStructure", "[", "\"\<HashSet\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.807814059243536*^9, 3.8078140764691534`*^9}, {
  3.8084180780522833`*^9, 3.8084181027066927`*^9}, {3.808555615549844*^9, 
  3.808555617589402*^9}},
 CellLabel->
  "In[1125]:=",ExpressionUUID->"40fcc847-3f4c-4c66-9c0a-2e6f1a057839"],

Cell[BoxData[
 TagBox[
  TemplateBox[{
    RowBox[{
      StyleBox[
       TagBox["DataStructure", "SummaryHead"], "NonInterpretableSummary"], 
      StyleBox["[", "NonInterpretableSummary"], 
      DynamicModuleBox[{
       Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
       TemplateBox[{
         PaneSelectorBox[{False -> GridBox[{{
               GraphicsBox[{
                 Thickness[0.041666666666666664`], {
                  FaceForm[{
                    RGBColor[0.537, 0.537, 0.537], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{5., 
                   18.654800000000005`}, {7., 17.499800000000004`}, {5., 
                   16.344800000000006`}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{5., 14.6548}, {
                   7., 13.4998}, {5., 12.3448}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{5., 
                   6.6552999999999995`}, {7., 5.500299999999999}, {5., 
                   4.3443000000000005`}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{14., 14.6548}, {
                   16., 13.4998}, {14., 12.3448}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{14., 
                   6.6552999999999995`}, {16., 5.500299999999999}, {14., 
                   4.3443000000000005`}}}]}, {
                  FaceForm[{
                    RGBColor[0.325, 0.463, 0.627], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{1., 
                   16.}, {4., 16.}, {4., 19.}, {1., 19.}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{1., 
                   12.}, {4., 12.}, {4., 15.001}, {1., 15.001}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{1., 
                   8.}, {4., 8.}, {4., 11.}, {1., 11.}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{22., 
                   12.}, {17., 12.}, {17., 15.}, {22., 15.}}}]}, {
                  FaceForm[{
                    RGBColor[0.325, 0.463, 0.627], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{1., 
                   4.}, {4., 4.}, {4., 7.0009999999999994`}, {1., 
                   7.0009999999999994`}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{22., 
                   4.}, {17., 4.}, {17., 7.}, {22., 7.}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{13., 
                   16.}, {8., 16.}, {8., 19.}, {13., 19.}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9., 
                   17.}, {12., 17.}, {12., 18.}, {9., 18.}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{13., 
                   12.}, {8., 12.}, {8., 15.}, {13., 15.}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9., 
                   13.}, {12., 13.}, {12., 14.001}, {9., 14.001}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{13., 
                   4.}, {8., 4.}, {8., 7.}, {13., 7.}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9., 
                   5.}, {12., 5.}, {12., 6.}, {9., 6.}}}]}}, AspectRatio -> 
                Automatic, ImageSize -> {24., 24.}, 
                PlotRange -> {{0., 24.}, {0., 24.}}], 
               GridBox[{{
                  RowBox[{
                    TagBox["\"Type:\"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"HashSet\"", "SummaryItem"]}]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               GraphicsBox[{
                 Thickness[0.041666666666666664`], {
                  FaceForm[{
                    RGBColor[0.537, 0.537, 0.537], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{5., 
                   18.654800000000005`}, {7., 17.499800000000004`}, {5., 
                   16.344800000000006`}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{5., 14.6548}, {
                   7., 13.4998}, {5., 12.3448}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{5., 
                   6.6552999999999995`}, {7., 5.500299999999999}, {5., 
                   4.3443000000000005`}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{14., 14.6548}, {
                   16., 13.4998}, {14., 12.3448}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}}, {{{14., 
                   6.6552999999999995`}, {16., 5.500299999999999}, {14., 
                   4.3443000000000005`}}}]}, {
                  FaceForm[{
                    RGBColor[0.325, 0.463, 0.627], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{1., 
                   16.}, {4., 16.}, {4., 19.}, {1., 19.}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{1., 
                   12.}, {4., 12.}, {4., 15.001}, {1., 15.001}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{1., 
                   8.}, {4., 8.}, {4., 11.}, {1., 11.}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{22., 
                   12.}, {17., 12.}, {17., 15.}, {22., 15.}}}]}, {
                  FaceForm[{
                    RGBColor[0.325, 0.463, 0.627], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{1., 
                   4.}, {4., 4.}, {4., 7.0009999999999994`}, {1., 
                   7.0009999999999994`}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{22., 
                   4.}, {17., 4.}, {17., 7.}, {22., 7.}}}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{13., 
                   16.}, {8., 16.}, {8., 19.}, {13., 19.}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9., 
                   17.}, {12., 17.}, {12., 18.}, {9., 18.}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{13., 
                   12.}, {8., 12.}, {8., 15.}, {13., 15.}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9., 
                   13.}, {12., 13.}, {12., 14.001}, {9., 14.001}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{13., 
                   4.}, {8., 4.}, {8., 7.}, {13., 7.}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9., 
                   5.}, {12., 5.}, {12., 6.}, {9., 6.}}}]}}, AspectRatio -> 
                Automatic, ImageSize -> {24., 24.}, 
                PlotRange -> {{0., 24.}, {0., 24.}}], 
               GridBox[{{
                  RowBox[{
                    TagBox["\"Type:\"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"HashSet\"", "SummaryItem"]}]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], 
       DynamicModuleValues :> {}], 
      StyleBox["]", "NonInterpretableSummary"]}]},
   "CopyTag",
   DisplayFunction->(#& ),
   InterpretationFunction->("DataStructure[HashSet, {Data -> {}}]"& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.808555617921876*^9, 3.8085682876368318`*^9, 
  3.808577113731983*^9, 3.808588192139244*^9, 3.8085884577643833`*^9, 
  3.80858859797611*^9, 3.8085887540357623`*^9, 3.808588850825506*^9, 
  3.808589594023166*^9, 3.808589666366744*^9, 3.808589719645409*^9, 
  3.8085897719953537`*^9, 3.8085903056660414`*^9, 3.808590350691895*^9, 
  3.808590456648299*^9, 3.8085916273956113`*^9, 3.808592178163679*^9, 
  3.8085922221181316`*^9, 3.808592283892997*^9, 3.808593761318745*^9, 
  3.8086319700332365`*^9, 3.808632543710664*^9, 3.808632622539567*^9, 
  3.808633311314623*^9, 3.808633471053812*^9, 3.8086345710155334`*^9, 
  3.8086379093307676`*^9, 3.8086399797018795`*^9, 3.808640061184045*^9, 
  3.808640851982336*^9, 3.808642711640681*^9, 3.808653270973131*^9},
 CellLabel->
  "Out[1125]=",ExpressionUUID->"2278a086-0601-4b7e-b039-e9f93889b1b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ls", "=", 
  RowBox[{
  "CreateDataStructure", "[", "\"\<DynamicArray\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.8085680272113223`*^9, 3.8085680423408394`*^9}},
 CellLabel->
  "In[1126]:=",ExpressionUUID->"5d7a86de-a8ae-44d1-a6a4-cf366a889c0f"],

Cell[BoxData[
 TagBox[
  TemplateBox[{
    RowBox[{
      StyleBox[
       TagBox["DataStructure", "SummaryHead"], "NonInterpretableSummary"], 
      StyleBox["[", "NonInterpretableSummary"], 
      DynamicModuleBox[{
       Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
       TemplateBox[{
         PaneSelectorBox[{False -> GridBox[{{
               GraphicsBox[{
                 Thickness[0.041666666666666664`], {
                  FaceForm[{
                    RGBColor[0.325, 0.463, 0.627], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                   0}}}, {{{16., 11.}, {17., 11.}, {17., 12.}, {16., 12.}}, {{
                   14., 11.}, {15., 11.}, {15., 12.}, {14., 12.}}, {{12., 
                   11.}, {13., 11.}, {13., 12.}, {12., 12.}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{23., 
                   7.}, {17., 7.}, {17., 16.}, {23., 16.}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{22., 
                   8.}, {18., 8.}, {18., 15.}, {22., 15.}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12., 
                   7.}, {6., 7.}, {6., 16.}, {12., 16.}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11., 
                   8.}, {7., 8.}, {7., 15.}, {11., 15.}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{1., 
                   7.}, {7., 7.}, {7., 16.}, {1., 16.}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6., 
                   8.}, {2., 8.}, {2., 15.}, {6., 15.}}}]}}, AspectRatio -> 
                Automatic, ImageSize -> {24., 24.}, 
                PlotRange -> {{0., 24.}, {0., 24.}}], 
               GridBox[{{
                  RowBox[{
                    TagBox["\"Type:\"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"DynamicArray\"", "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Length:\"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["0", "SummaryItem"]}]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               GraphicsBox[{
                 Thickness[0.041666666666666664`], {
                  FaceForm[{
                    RGBColor[0.325, 0.463, 0.627], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                   0}}}, {{{16., 11.}, {17., 11.}, {17., 12.}, {16., 12.}}, {{
                   14., 11.}, {15., 11.}, {15., 12.}, {14., 12.}}, {{12., 
                   11.}, {13., 11.}, {13., 12.}, {12., 12.}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{23., 
                   7.}, {17., 7.}, {17., 16.}, {23., 16.}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{22., 
                   8.}, {18., 8.}, {18., 15.}, {22., 15.}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{12., 
                   7.}, {6., 7.}, {6., 16.}, {12., 16.}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11., 
                   8.}, {7., 8.}, {7., 15.}, {11., 15.}}}]}, {
                  FaceForm[{
                    RGBColor[0.639, 0.706, 0.8], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{1., 
                   7.}, {7., 7.}, {7., 16.}, {1., 16.}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6., 
                   8.}, {2., 8.}, {2., 15.}, {6., 15.}}}]}}, AspectRatio -> 
                Automatic, ImageSize -> {24., 24.}, 
                PlotRange -> {{0., 24.}, {0., 24.}}], 
               GridBox[{{
                  RowBox[{
                    TagBox["\"Type:\"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"DynamicArray\"", "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Length:\"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["0", "SummaryItem"]}]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], 
       DynamicModuleValues :> {}], 
      StyleBox["]", "NonInterpretableSummary"]}]},
   "CopyTag",
   DisplayFunction->(#& ),
   InterpretationFunction->("DataStructure[DynamicArray, {Data -> {}}]"& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.808568043263317*^9, 3.8085681079618883`*^9, 
  3.8085682283060017`*^9, 3.8085682887350245`*^9, 3.808577134617598*^9, 
  3.8085881922502627`*^9, 3.808588457864118*^9, 3.8085885980898085`*^9, 
  3.808588754159464*^9, 3.808588850946211*^9, 3.8085895941428456`*^9, 
  3.808589666483429*^9, 3.8085897197481346`*^9, 3.808589772101071*^9, 
  3.808590305775772*^9, 3.8085903508215833`*^9, 3.808590456775961*^9, 
  3.808591627516285*^9, 3.8085921782893467`*^9, 3.8085922222548*^9, 
  3.808592283995761*^9, 3.8085937614404516`*^9, 3.8086319701533055`*^9, 
  3.8086325437604733`*^9, 3.8086326226073856`*^9, 3.8086333113824806`*^9, 
  3.808633471109661*^9, 3.808634571099309*^9, 3.8086379093935747`*^9, 
  3.8086399797577305`*^9, 3.808640061230921*^9, 3.808640852047161*^9, 
  3.808642711701479*^9, 3.8086532710648885`*^9},
 CellLabel->
  "Out[1126]=",ExpressionUUID->"6e8ab120-86ec-48a6-bad1-0809ec6248ee"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["f(x)",
 FontWeight->"Bold"]], "Subsection",
 CellChangeTimes->{{3.8078761795086813`*^9, 3.8078761853671556`*^9}, {
  3.8078762411109533`*^9, 3.807876254492133*^9}, {3.807876883785228*^9, 
  3.8078768905558825`*^9}, {3.8080589879431095`*^9, 3.80805900086957*^9}, {
  3.808554872111412*^9, 
  3.8085548733077393`*^9}},ExpressionUUID->"c92ae8f6-5edb-414f-a4b1-\
59cb4506479a"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{
    "cross", " ", "and", " ", "moore", " ", "neighbour", " ", "indices", " ", 
     "within", " ", "bounds", " ", "of", " ", "the", " ", "canvas"}], " ", 
    "*)"}],
   FontWeight->"Bold"], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"crossneighbours", "[", 
      RowBox[{"{", 
       RowBox[{"p_", ",", "q_"}], "}"}], "]"}], ":=", 
     RowBox[{"DeleteCases", "[", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"p", ",", 
           RowBox[{"q", "-", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"p", ",", 
           RowBox[{"q", "+", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"p", "-", "1"}], ",", "q"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"p", "+", "1"}], ",", "q"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"OrderlessPatternSequence", "[", 
         RowBox[{
          RowBox[{"x_", "/;", 
           RowBox[{
            RowBox[{"x", "\[LessEqual]", "0"}], "||", 
            RowBox[{"x", ">", "n"}]}]}], ",", "_"}], "]"}], "}"}], ",", 
       RowBox[{"{", "1", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"mooreneighbours", "[", 
      RowBox[{"{", 
       RowBox[{"p_", ",", "q_"}], "}"}], "]"}], ":=", 
     RowBox[{"DeleteCases", "[", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"p", ",", 
           RowBox[{"q", "-", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"p", ",", 
           RowBox[{"q", "+", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"p", "-", "1"}], ",", 
           RowBox[{"q", "-", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"p", "-", "1"}], ",", "q"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"p", "-", "1"}], ",", 
           RowBox[{"q", "+", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"p", "+", "1"}], ",", 
           RowBox[{"q", "-", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"p", "+", "1"}], ",", "q"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"p", "+", "1"}], ",", 
           RowBox[{"q", "+", "1"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"OrderlessPatternSequence", "[", 
         RowBox[{
          RowBox[{"x_", "/;", 
           RowBox[{
            RowBox[{"x", "\[LessEqual]", "0"}], "||", 
            RowBox[{"x", ">", "n"}]}]}], ",", "_"}], "]"}], "}"}], ",", 
       RowBox[{"{", "1", "}"}]}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.8077323958146315`*^9, 3.8077323968121405`*^9}, {
  3.807732437382166*^9, 3.8077324519200497`*^9}, {3.807734161034068*^9, 
  3.807734171978781*^9}, {3.807734214617779*^9, 3.8077342172401876`*^9}, {
  3.8077359342781596`*^9, 3.80773596564738*^9}, {3.807736530444831*^9, 
  3.807736559332905*^9}, {3.8077788633109417`*^9, 3.8077788644535074`*^9}, {
  3.808001737291349*^9, 3.808001738341821*^9}, {3.8080589021026063`*^9, 
  3.8080589092728643`*^9}, {3.808059013750947*^9, 3.808059014839833*^9}, {
  3.8080667509090133`*^9, 3.808066761430586*^9}, {3.8085772969967084`*^9, 
  3.808577299469322*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[1127]:=",ExpressionUUID->"f199eb66-6595-4272-b2af-92e659561927"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "@", "fun"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "z", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"fun", "=", 
     RowBox[{"Function", "[", 
      RowBox[{"x", ",", "\[IndentingNewLine]", 
       RowBox[{"Which", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", 
           RowBox[{"z", "=", 
            RowBox[{"Union", "@", 
             RowBox[{"Extract", "[", 
              RowBox[{"spCellArrU", ",", 
               RowBox[{"mooreneighbours", "@", "x"}]}], "]"}]}]}], "]"}], ">",
           "1"}], ",", "x", ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"Length", "[", "z", "]"}], "\[Equal]", "1"}], "&&", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Complement", "[", 
             RowBox[{"z", ",", 
              RowBox[{"{", 
               RowBox[{"spCellArrU", "[", 
                RowBox[{"[", 
                 RowBox[{"Sequence", "@@", "x"}], "]"}], "]"}], "}"}]}], 
             "]"}], ")"}], "\[NotEqual]", 
           RowBox[{"{", "}"}]}]}], ",", "x", ",", "\[IndentingNewLine]", 
         "True", ",", "Nothing"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}], 
   "\[IndentingNewLine]", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8085773226932163`*^9, 3.8085773663353996`*^9}, {
  3.8085786386963296`*^9, 3.8085786443625965`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[1129]:=",ExpressionUUID->"96d23474-892f-42fb-81a9-663ec6e55c9a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"updateBoundaryPts", "[", 
    RowBox[{"CellId_", ",", "targetPt_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"neighbours", ",", "nid"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"CellId", "\[Equal]", "0"}], ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"boundaryPts", "[", 
           RowBox[{"\"\<MemberQ\>\"", ",", "targetPt"}], "]"}], ",", 
          RowBox[{"boundaryPts", "[", 
           RowBox[{"\"\<Remove\>\"", ",", "targetPt"}], "]"}]}], "]"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Scan", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"nid", "=", 
            RowBox[{"spCellArrU", "[", 
             RowBox[{"[", 
              RowBox[{"Sequence", "@@", "#"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"nid", "\[NotEqual]", "0"}], ")"}], "&&", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Length", "[", 
                 RowBox[{"Union", "@", 
                  RowBox[{"Flatten", "@", 
                   RowBox[{"Extract", "[", 
                    RowBox[{"spCellArrU", ",", 
                    RowBox[{"mooreneighbours", "@", "#"}]}], "]"}]}]}], "]"}],
                 ">", "1"}], ")"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"Not", "@", 
                RowBox[{"boundaryPts", "[", 
                 RowBox[{"\"\<MemberQ\>\"", ",", "#"}], "]"}]}], ",", 
               RowBox[{"boundaryPts", "[", 
                RowBox[{"\"\<Insert\>\"", ",", "#"}], "]"}]}], "]"}]}], 
            "\[IndentingNewLine]", "]"}]}], ")"}], "&"}], ",", 
        RowBox[{"mooreneighbours", "[", "targetPt", "]"}]}], 
       "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.808418174780737*^9, 3.8084182105226626`*^9}, {
   3.808418288056446*^9, 3.80841836695782*^9}, {3.8084184300567284`*^9, 
   3.8084185225628557`*^9}, {3.8084185899960637`*^9, 
   3.8084187068529787`*^9}, {3.808418942226548*^9, 3.80841899399745*^9}, {
   3.8084190779472027`*^9, 3.808419082517211*^9}, {3.8084191194008007`*^9, 
   3.8084194554355927`*^9}, {3.808419522937114*^9, 3.8084195566298723`*^9}, {
   3.8084195900066233`*^9, 3.8084197124694457`*^9}, {3.808419778510277*^9, 
   3.8084198431766877`*^9}, {3.808419884678424*^9, 3.808419885720591*^9}, {
   3.808420046625845*^9, 3.8084200776845183`*^9}, {3.808420128463006*^9, 
   3.8084201390258183`*^9}, {3.80842017352102*^9, 3.808420196863983*^9}, {
   3.8084202816644077`*^9, 3.80842033076585*^9}, {3.8084204391283703`*^9, 
   3.808420458819394*^9}, 3.8084204911380157`*^9, {3.808420554146673*^9, 
   3.8084205563442287`*^9}, {3.808420670329797*^9, 3.808420672625848*^9}, 
   3.80842073048456*^9, 3.8084208395047197`*^9, {3.8084208947841344`*^9, 
   3.8084209294664855`*^9}, {3.808421677043104*^9, 3.8084216844438295`*^9}, {
   3.8084218170460453`*^9, 3.8084218434928665`*^9}, {3.808421877825091*^9, 
   3.80842194612938*^9}, {3.808422018627263*^9, 3.808422036342054*^9}, {
   3.808503965634136*^9, 3.8085039661985693`*^9}, {3.808504008131307*^9, 
   3.808504016461191*^9}, {3.808552084551004*^9, 3.8085520966379213`*^9}, {
   3.808567613003745*^9, 3.8085676300119605`*^9}, {3.8085777880190535`*^9, 
   3.808577789327592*^9}, {3.8085780997048435`*^9, 3.8085781273356476`*^9}, 
   3.808578686792551*^9, {3.8085787391155295`*^9, 3.8085787472878046`*^9}, {
   3.8085798042794485`*^9, 3.8085798395903387`*^9}, {3.808588088822047*^9, 
   3.808588089900655*^9}, {3.808588837408264*^9, 3.8085888386344986`*^9}, {
   3.8085918282033195`*^9, 3.8085918394612303`*^9}, {3.8085921233333263`*^9, 
   3.8085921392225018`*^9}, {3.8085923225575867`*^9, 3.8085923403112535`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[1131]:=",ExpressionUUID->"5a66758a-0d2b-4f72-831b-553724b29e43"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cellPerimeterUpdate", "[", 
    RowBox[{"prevID_", ",", "newID_", ",", "neighbourPts_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"nnew", "=", "0"}], ",", 
       RowBox[{"nold", "=", "0"}], ",", "nt"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"prevID", "\[Equal]", "newID"}], ",", 
        RowBox[{"Return", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"nt", "=", 
          RowBox[{"spCellArrU", "[", 
           RowBox[{"[", 
            RowBox[{"Sequence", "@@", "neighbour"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"nt", "\[NotEqual]", "newID"}], ",", 
           RowBox[{"nnew", "++"}]}], "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"nt", "\[NotEqual]", "prevID"}], ",", 
           RowBox[{"nold", "++"}]}], "]"}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"nt", "\[NotEqual]", "0"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"nt", "\[Equal]", "prevID"}], ",", 
              RowBox[{
               RowBox[{"cellperimeter", "[", "nt", "]"}], "++"}]}], "]"}], 
            ";", "\[IndentingNewLine]", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"nt", "\[Equal]", "newID"}], ",", 
              RowBox[{
               RowBox[{"cellperimeter", "[", "nt", "]"}], "--"}]}], "]"}], 
            ";"}]}], "\[IndentingNewLine]", "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"neighbour", ",", "neighbourPts"}], "}"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"prevID", "\[NotEqual]", "0"}], ",", 
        RowBox[{
         RowBox[{"cellperimeter", "[", "prevID", "]"}], "-=", "nold"}]}], 
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"newID", "\[NotEqual]", " ", "0"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"KeyFreeQ", "[", 
            RowBox[{"cellperimeter", ",", "newID"}], "]"}], ",", 
           RowBox[{
            RowBox[{"cellperimeter", "[", "newID", "]"}], "=", "0"}]}], "]"}],
          ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"cellperimeter", "[", "newID", "]"}], "+=", "nnew"}], 
         ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.808421530041011*^9, 3.8084215387570887`*^9}, {
   3.8084216974593906`*^9, 3.808421710383602*^9}, {3.808553894080496*^9, 
   3.8085541032150445`*^9}, {3.808554138022171*^9, 3.8085542675256643`*^9}, {
   3.8085543160298996`*^9, 3.8085545885173645`*^9}, {3.808554652494394*^9, 
   3.808554760132964*^9}, {3.8085846259957*^9, 3.8085846357617664`*^9}, {
   3.8085847822512617`*^9, 3.8085848360465107`*^9}, {3.808584895905263*^9, 
   3.808584899809891*^9}, {3.8085854205360055`*^9, 3.808585431492422*^9}, {
   3.808585501993323*^9, 3.808585518772149*^9}, {3.8085855675373387`*^9, 
   3.8085856020906625`*^9}, {3.8085879395033827`*^9, 3.8085879425044365`*^9}, 
   3.8086399768011847`*^9, {3.8086400120813675`*^9, 3.8086400141850176`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[1132]:=",ExpressionUUID->"ded0a266-d3c3-46b6-9505-38f9cc2b1a34"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["H", "perimeter"], "[", 
    RowBox[{
    "sourceCellId_", ",", "sourcetype_", ",", "targetCellId_", ",", 
     "targettype_", ",", "neighbourCellIds_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"sourceassoc", "=", 
        RowBox[{"Kparam", "[", "sourcetype", "]"}]}], ",", 
       RowBox[{"targetassoc", "=", 
        RowBox[{"Kparam", "[", "targettype", "]"}]}], ",", 
       "\[IndentingNewLine]", "ls", ",", "lt", ",", 
       RowBox[{"pchange", "=", 
        RowBox[{"<|", 
         RowBox[{
          RowBox[{"\"\<source\>\"", "\[Rule]", "0"}], ",", 
          RowBox[{"\"\<target\>\"", "\[Rule]", "0"}]}], "|>"}]}], ",", 
       RowBox[{"r", "=", "0."}], ",", "pt", ",", "ps", ",", "hnew", ",", 
       "hold"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"sourceCellId", "\[Equal]", "targetCellId"}], ",", 
        RowBox[{"Return", "[", "0", "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"ls", "=", 
       RowBox[{"sourceassoc", "[", "kp", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"lt", "=", 
       RowBox[{"targetassoc", "[", "kp", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Negative", "[", "ls", "]"}], "&&", 
         RowBox[{"Negative", "[", "lt", "]"}]}], ",", 
        RowBox[{"Return", "[", "0", "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"nid", "\[NotEqual]", " ", "sourceCellId"}], ",", 
           RowBox[{
            RowBox[{"pchange", "[", "\"\<source\>\"", "]"}], "++"}]}], "]"}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"nid", "\[NotEqual]", " ", "targetCellId"}], ",", 
           RowBox[{
            RowBox[{"pchange", "[", "\"\<target\>\"", "]"}], "--"}]}], "]"}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"nid", "\[Equal]", "targetCellId"}], ",", 
           RowBox[{
            RowBox[{"pchange", "[", "\"\<target\>\"", "]"}], "++"}]}], "]"}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"nid", "\[Equal]", "sourceCellId"}], ",", 
           RowBox[{
            RowBox[{"pchange", "[", "\"\<source\>\"", "]"}], "--"}]}], 
          "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"nid", ",", "neighbourCellIds"}], "}"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"Positive", "@", "ls"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"pt", "=", " ", 
          RowBox[{"sourceassoc", "[", "p0", "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"ps", "=", 
          RowBox[{"cellperimeter", "[", "sourceCellId", "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"hnew", "=", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"ps", "+", 
             RowBox[{"pchange", "[", "\"\<source\>\"", "]"}]}], ")"}], "-", 
           "pt"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"hold", "=", 
          RowBox[{"ps", "-", "pt"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"r", "+=", 
          RowBox[{"ls", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["hnew", "2"], " ", "-", " ", 
             SuperscriptBox["hold", "2"]}], ")"}]}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"Positive", "@", "lt"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"pt", "=", " ", 
          RowBox[{"targetassoc", "[", "p0", "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"ps", "=", 
          RowBox[{"cellperimeter", "[", "targetCellId", "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"hnew", "=", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"ps", "+", 
             RowBox[{"pchange", "[", "\"\<target\>\"", "]"}]}], ")"}], "-", 
           "pt"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"hold", "=", 
          RowBox[{"ps", "-", "pt"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"r", "+=", 
          RowBox[{"lt", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["hnew", "2"], " ", "-", " ", 
             SuperscriptBox["hold", "2"]}], ")"}]}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "r"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8084066577296467`*^9, 3.8084067365840273`*^9}, {
  3.8084067743886156`*^9, 3.8084067878147697`*^9}, {3.808406852908863*^9, 
  3.8084068908426657`*^9}, {3.8084069265665684`*^9, 3.808406964935127*^9}, {
  3.8084073558770704`*^9, 3.808407365872596*^9}, {3.8084081102379503`*^9, 
  3.808408131098941*^9}, {3.808408194851424*^9, 3.8084083346727657`*^9}, {
  3.8084083848928895`*^9, 3.8084086995634775`*^9}, {3.80840884402*^9, 
  3.808409253018487*^9}, {3.8084093210249777`*^9, 3.808409333470563*^9}, {
  3.8085476358748817`*^9, 3.8085476414564953`*^9}, {3.8085478872137365`*^9, 
  3.8085478874426727`*^9}, {3.8085836111998396`*^9, 3.8085836219046416`*^9}, {
  3.8085836666928415`*^9, 3.8085836759479303`*^9}, {3.8085839010770173`*^9, 
  3.8085839290221252`*^9}, {3.8085840978633766`*^9, 3.808584137310537*^9}, {
  3.808584214797837*^9, 3.808584232782505*^9}, {3.8085912834546995`*^9, 
  3.808591290648882*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[1133]:=",ExpressionUUID->"109013f2-0e96-4c32-bcdf-465271faf7b2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"volumeConstraint", "[", 
     RowBox[{"volgain_", ",", "id_", ",", "type_"}], "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"assoc", "=", 
         RowBox[{"Kparam", "[", "type", "]"}]}], ",", "l", ",", "vdiff", ",", 
        "Ao"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"l", "=", 
        RowBox[{"assoc", "[", "ka", "]"}]}], ";", 
       RowBox[{"Ao", "=", 
        RowBox[{"assoc", "[", "a0", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"id", "\[Equal]", "0"}], "||", 
          RowBox[{"l", "\[Equal]", "0"}]}], ",", "0", ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"vdiff", "=", 
           RowBox[{"Ao", " ", "-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"areaAssoc", "[", "id", "]"}], "+", "volgain"}], 
             ")"}]}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"l", 
           RowBox[{"(", 
            RowBox[{"vdiff", "^", "2"}], ")"}]}]}]}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["H", "volume"], "[", 
    RowBox[{
    "sourceId_", ",", "targetId_", ",", "sourcetype_", ",", "targettype_"}], 
    "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", "delH", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"delH", "=", 
       RowBox[{
        RowBox[{"volumeConstraint", "[", 
         RowBox[{"1", ",", "sourceId", ",", "sourcetype"}], "]"}], "-", 
        RowBox[{"volumeConstraint", "[", 
         RowBox[{"0", ",", "sourceId", ",", "sourcetype"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"delH", "+=", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"volumeConstraint", "[", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "targetId", ",", "targettype"}], "]"}], 
         "-", 
         RowBox[{"volumeConstraint", "[", 
          RowBox[{"0", ",", "targetId", ",", "targettype"}], "]"}]}], ")"}]}],
       ";", "\[IndentingNewLine]", "delH"}]}], "\[IndentingNewLine]", "]"}]}],
   ";"}]}], "Input",
 CellChangeTimes->{{3.808396022957738*^9, 3.8083962696997213`*^9}, {
   3.808396430874303*^9, 3.8083966515986824`*^9}, 3.8084079434604535`*^9, {
   3.808409525538032*^9, 3.808409549607238*^9}, {3.8084097155087185`*^9, 
   3.808409855587619*^9}, 3.80841250897271*^9, {3.808503161822338*^9, 
   3.808503199613682*^9}, {3.808555300362342*^9, 3.8085553014345984`*^9}, {
   3.808561756901616*^9, 3.8085617793883524`*^9}, {3.8085619969248962`*^9, 
   3.808561998865045*^9}, {3.808579959203701*^9, 3.808579969712721*^9}, {
   3.808580153106397*^9, 3.80858015576913*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[1134]:=",ExpressionUUID->"c36c9ebc-d659-4102-890d-b26a882e5111"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["H", "adhesion"], "[", 
     RowBox[{
     "currType_", ",", "currCellId_", ",", "neighCellIds_", ",", 
      "neighType_"}], "]"}], ":=", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"r", "=", "0"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Do", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"currCellId", "\[NotEqual]", 
            RowBox[{"neighCellIds", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"r", "+=", " ", 
            RowBox[{"J", "[", 
             RowBox[{"currType", ",", 
              RowBox[{"neighType", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], 
          "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Length", "@", "neighType"}]}], "}"}]}], "]"}], ";", 
       "\[IndentingNewLine]", "r"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"delHAdhesion", "[", 
    RowBox[{
    "sourcetype_", ",", "sourceID_", ",", "targettype_", ",", "targetID_", 
     ",", "neighbourIDs_", ",", "neighbourTypes_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     SubscriptBox["H", "adhesion"], "[", 
     RowBox[{
     "sourcetype", ",", "sourceID", ",", "neighbourIDs", ",", 
      "neighbourTypes"}], "]"}], "-", 
    RowBox[{
     SubscriptBox["H", "adhesion"], "[", 
     RowBox[{
     "targettype", ",", "targetID", ",", "neighbourIDs", ",", 
      "neighbourTypes"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.808393630875561*^9, 3.8083937275766325`*^9}, {
  3.8083937628088584`*^9, 3.808393806898016*^9}, {3.8083938734431973`*^9, 
  3.808393875459708*^9}, {3.8083939095825696`*^9, 3.808394011607884*^9}, {
  3.80839405078753*^9, 3.8083941030482407`*^9}, {3.808394138443514*^9, 
  3.8083941788828597`*^9}, {3.8083942743386965`*^9, 3.808394368453575*^9}, {
  3.8083944459347525`*^9, 3.8083944516004868`*^9}, {3.808578461779357*^9, 
  3.808578462874395*^9}, {3.8085812379058943`*^9, 3.808581247013029*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[1136]:=",ExpressionUUID->"06f9038d-6210-4a92-befc-b429a025614f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"deltaH", "[", 
   RowBox[{
   "sourceId_", ",", "sourcetype_", ",", "targetId_", ",", "targettype_", ",",
     "neighbourCellIds_", ",", "neighbourTypes_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"delHAdhesion", "[", 
    RowBox[{
    "sourcetype", ",", "sourceId", ",", "targettype", ",", "targetId", ",", 
     "neighbourCellIds", ",", "neighbourTypes"}], "]"}], "+", " ", 
   RowBox[{
    SubscriptBox["H", "volume"], "[", 
    RowBox[{
    "sourceId", ",", "targetId", ",", "sourcetype", ",", "targettype"}], 
    "]"}], "+", 
   RowBox[{
    SubscriptBox["H", "perimeter"], "[", 
    RowBox[{
    "sourceId", ",", "sourcetype", ",", "targetId", ",", "targettype", ",", 
     "neighbourCellIds"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8085616796792774`*^9, 3.808561681887809*^9}, {
  3.8085617217307787`*^9, 3.8085617449827795`*^9}, {3.808561792112033*^9, 
  3.8085618065839853`*^9}, {3.8085620240799303`*^9, 3.8085620781892347`*^9}, {
  3.8085621819849224`*^9, 3.80856233375167*^9}, {3.8085623761018257`*^9, 
  3.808562390805709*^9}, {3.8085635315778418`*^9, 3.8085635747544045`*^9}, {
  3.80857848922787*^9, 3.808578515818956*^9}, {3.808590291274275*^9, 
  3.808590296338626*^9}, {3.8085904349112024`*^9, 3.8085904454642973`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[1138]:=",ExpressionUUID->"2095b4ec-14a0-40df-b450-17a069a1ee63"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["CPM lattice",
 FontWeight->"Bold"]], "Subsection",
 CellChangeTimes->{{3.8078761795086813`*^9, 3.8078761853671556`*^9}, {
  3.8078769037807446`*^9, 
  3.807876922197547*^9}},ExpressionUUID->"590fb9ce-f85e-41f3-92db-\
9bf695e4fa6b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"shift", "=", 
   RowBox[{"{", 
    RowBox[{"30", ",", "30"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pos", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"shift", "+", "#"}], "&"}], "/@", 
    RowBox[{"Position", "[", 
     RowBox[{
      RowBox[{"DiskMatrix", "[", "20", "]"}], ",", "1"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{"Scan", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"A", "[", 
       RowBox[{"[", 
        RowBox[{"Sequence", "@@", "#"}], "]"}], "]"}], "=", "1"}], ")"}], 
    "&"}], ",", "pos"}], "]"}]}], "Input",
 CellChangeTimes->{{3.807741752207836*^9, 3.807741754038565*^9}, {
  3.8078181015346527`*^9, 3.807818114970909*^9}, {3.8078199462708263`*^9, 
  3.807819947114884*^9}, {3.807820352949004*^9, 3.807820353822077*^9}},
 CellLabel->
  "In[1139]:=",ExpressionUUID->"af3b50ae-7ca1-4557-9bf0-4191dea6a566"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"saltpepper", "=", 
   RowBox[{"Array", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"RandomChoice", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.5", ",", "0.5"}], "}"}], "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{"A", "*", "saltpepper"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.807994263284107*^9, 3.8079942966605263`*^9}, {
  3.807994368433891*^9, 3.8079943899727516`*^9}, {3.807994426993866*^9, 
  3.807994429354883*^9}, {3.807998985284614*^9, 3.807998987148137*^9}, {
  3.8080007173707576`*^9, 3.80800071970248*^9}, {3.8080041730772047`*^9, 
  3.8080041747190676`*^9}},
 CellLabel->
  "In[1142]:=",ExpressionUUID->"00413906-54c7-4949-a729-339627613c0e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"shift", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"35", "+", "i"}], ",", 
          RowBox[{"40", "+", "j"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"pos", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"shift", "+", "#"}], "&"}], "/@", 
         RowBox[{"Position", "[", 
          RowBox[{
           RowBox[{"DiskMatrix", "[", "2", "]"}], ",", "1"}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Scan", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"A", "[", 
             RowBox[{"[", 
              RowBox[{"Sequence", "@@", "#"}], "]"}], "]"}], "=", "2"}], 
           ")"}], "&"}], ",", "pos"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", "28", ",", "8"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", 
        RowBox[{"Range", "[", 
         RowBox[{"1", ",", "20", ",", "8"}], "]"}]}], "}"}]}], "]"}], ";"}], 
   "*)"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8077651755349183`*^9, 3.807765180936736*^9}, {
   3.8077653031494637`*^9, 3.8077653386340237`*^9}, {3.807812089519577*^9, 
   3.8078121254551525`*^9}, {3.8078143581184735`*^9, 3.807814364533351*^9}, {
   3.8078181461737013`*^9, 3.8078181990248737`*^9}, {3.8078182318711343`*^9, 
   3.8078182792344017`*^9}, 3.8078192917948656`*^9, {3.8078193290951614`*^9, 
   3.807819473591346*^9}, {3.8078199498728886`*^9, 3.807819953694171*^9}, {
   3.807820362875538*^9, 3.8078203634978685`*^9}, {3.8078214477048097`*^9, 
   3.8078214512595606`*^9}, {3.80787650039953*^9, 3.8078765348960733`*^9}, {
   3.8079646048793306`*^9, 3.8079646065225153`*^9}, {3.8079655626745925`*^9, 
   3.807965565515869*^9}, {3.807994172224319*^9, 3.8079941967557344`*^9}, {
   3.8079989669372683`*^9, 3.8079989697330585`*^9}, {3.8080007216814456`*^9, 
   3.8080007234683514`*^9}, {3.80800417703341*^9, 3.808004179739822*^9}},
 CellLabel->
  "In[1144]:=",ExpressionUUID->"3d5151bd-a2b1-4ccc-9983-d28eb71703e5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pltinitial", "=", 
  RowBox[{"plt", "=", 
   RowBox[{"MatrixPlot", "[", 
    RowBox[{"A", ",", 
     RowBox[{"ColorFunction", "\[Rule]", "Hue"}], ",", 
     RowBox[{"ColorRules", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", "\[Rule]", "Black"}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8077373963308616`*^9, 3.807737402457285*^9}, {
   3.807741253276975*^9, 3.807741253746974*^9}, {3.8077418733996305`*^9, 
   3.8077418765672927`*^9}, {3.8077941753087835`*^9, 
   3.8077941768359895`*^9}, {3.8078049359633217`*^9, 3.807804987404791*^9}, {
   3.8078606214707813`*^9, 3.8078606290734577`*^9}, {3.8078607468260913`*^9, 
   3.8078607703152027`*^9}, {3.8078617254426107`*^9, 3.807861725573325*^9}, {
   3.8078685881582985`*^9, 3.807868589670825*^9}, {3.807871490184007*^9, 
   3.8078714932739334`*^9}, {3.8078778280971203`*^9, 3.8078778405096436`*^9}, 
   3.807965711884347*^9, 3.8079657910314903`*^9},
 CellLabel->
  "In[1145]:=",ExpressionUUID->"a54274f6-40b2-48ca-8214-a6cec65ae3a8"],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJzt3NFpG0EUBVBBKkkl7iElhOQ7LbsElxAC+bBZDJY9w7t3dA6EJIsYrXYN
c7lv5e8///z4/e12u/36/+ffvwEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4Or5
6e3/X57e/r3r9fcef2/9944DANxrd865N89MHd99/gBAr1U5YaovSltnqn8D
APZZlXNactFUztmdM3dfZwDgamoeN5VPWvJVWp40lwSAq/b9eqpPa7k+u3Py
qnUAoNHUfjqVT9JyV0tPlXb+AJDg1Od/0t43Lf+k9V27jwPADmn5pCWHpP3+
h7T7MnX+q9YHgI9Im9dM5ZCp/i0tF7V/j8DvZQUgQVqPlJZPWuZoabnl1Pws
XwHwWss+lbZO2jwu7X3b863nuAD4ivb9t70Xas9vaTmn5XoCcIaWnqGl52mZ
06X1kC35cOq6AdBlan9v35dbep60HqklD0/1mXotgDOk7YOPNi9Ly0Xt1zkt
D696XwAyte/7aeu3nGdLTmvpl9LmiQDMaukN0nLOqT1JWn5Le31a7pWvADK1
5Ki0nqEl76XlwFOvs3wFwGtpeSZtnbQ8k5ZL9V2fe/3u9wVgVsucLu31aeu0
9HuPdl+mcjsAs1p6m5b9tL1fSst1afdxKk/qrwC6pO3Lp+6nLTkn7fmr9vOX
rwAeU1peStsHW/q3luuflkvb74v5IECm9n3k1LyU1qu05Kj23nXV/QIgU9o+
m9bbpPVsaf3M1M9Pey7SUwGcLa3PSXuuJu08W3JO+31J60UB6NLe/7TkjbS8
mnZ90vJSWp8JwBnS9seWfTNtv27vbdLmwrvPB4Czpc2J0p4/T5t7ttyvtD4q
7fMC8JjS+pC07/Wn7dctc7T23s+8D4CvaJ9bpeWc9s/Vfr+m1geAj0jLD1N5
Ly1Ptuec9usMADu0PD+T1oe05Jm0zzX1cwUACdKek0nLIe35pH3OKEcBcJKW
vKEf+9zxqdxrrgcAVy378qn9WNp1WHV9AICrtB6p/fn8tLnhqvUBgH1a5l8t
c8mpdQCAXlO906nPX8lLAMAqafNE36cDAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAR/AW5SANM=
   "], {{0, 0}, {100, 100}}, {0, 1}],
  Frame->True,
  FrameLabel->{None, None},
  FrameTicks->{{{{99.5, 
       FormBox["1", TraditionalForm]}, {80.5, 
       FormBox["20", TraditionalForm]}, {60.5, 
       FormBox["40", TraditionalForm]}, {40.5, 
       FormBox["60", TraditionalForm]}, {20.5, 
       FormBox["80", TraditionalForm]}, {0.5, 
       FormBox["100", TraditionalForm]}}, {{99.5, 
       FormBox["1", TraditionalForm]}, {80.5, 
       FormBox["20", TraditionalForm]}, {60.5, 
       FormBox["40", TraditionalForm]}, {40.5, 
       FormBox["60", TraditionalForm]}, {20.5, 
       FormBox["80", TraditionalForm]}, {0.5, 
       FormBox["100", TraditionalForm]}}}, {{{0.5, 
       FormBox["1", TraditionalForm]}, {19.5, 
       FormBox["20", TraditionalForm]}, {39.5, 
       FormBox["40", TraditionalForm]}, {59.5, 
       FormBox["60", TraditionalForm]}, {79.5, 
       FormBox["80", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}}, {{0.5, 
       FormBox["1", TraditionalForm]}, {19.5, 
       FormBox["20", TraditionalForm]}, {39.5, 
       FormBox["40", TraditionalForm]}, {59.5, 
       FormBox["60", TraditionalForm]}, {79.5, 
       FormBox["80", TraditionalForm]}, {99.5, 
       FormBox["100", TraditionalForm]}}}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Medium,
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> 
    Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> 
    Scaled[0.05]}]], "Output",
 CellChangeTimes->{
  3.8078715083233013`*^9, 3.8078773759339304`*^9, 3.8078777758288693`*^9, 
   3.8078778456111774`*^9, 3.8078873720319595`*^9, 3.8078948102554703`*^9, 
   3.8079476494354143`*^9, 3.8079646221774836`*^9, 3.807964729405466*^9, 
   3.8079655715573997`*^9, 3.807965602425513*^9, {3.8079656548929815`*^9, 
   3.807965846318271*^9}, 3.807987686190756*^9, 3.807991167921935*^9, {
   3.807993786646825*^9, 3.8079938434363728`*^9}, {3.8079939055258694`*^9, 
   3.8079939535683603`*^9}, {3.8079939895611286`*^9, 3.807993998679776*^9}, {
   3.8079940425289836`*^9, 3.807994110216036*^9}, {3.807994216129648*^9, 
   3.807994232964044*^9}, {3.8079942809856873`*^9, 3.807994336016094*^9}, {
   3.8079943806052957`*^9, 3.807994398065909*^9}, {3.8079944311540575`*^9, 
   3.807994460650052*^9}, 3.8079945150796604`*^9, 3.8079948615797772`*^9, {
   3.807998975990546*^9, 3.807998991542678*^9}, 3.8079990906967635`*^9, 
   3.807999258847604*^9, {3.8079997537646856`*^9, 3.8079997605132017`*^9}, 
   3.8080000598546505`*^9, 3.8080007253685827`*^9, 3.808001320075439*^9, {
   3.8080041629274635`*^9, 3.8080041822172227`*^9}, 3.808006003205968*^9, 
   3.8085595582402163`*^9, 3.808568287867494*^9, 3.8085881927509794`*^9, 
   3.8085884580678134`*^9, 3.808588598315203*^9, 3.8085887543851624`*^9, 
   3.808588851199617*^9, 3.808589594359517*^9, 3.8085896666951323`*^9, 
   3.808589719950593*^9, 3.808589772332452*^9, 3.8085903061679735`*^9, 
   3.8085903510588865`*^9, 3.8085904569988933`*^9, 3.808591627754129*^9, 
   3.8085921785228186`*^9, 3.8085922224852343`*^9, 3.808592284188629*^9, 
   3.80859288527168*^9, 3.808593326565202*^9, 3.808593761656703*^9, 
   3.8086319704961576`*^9, 3.8086325439681115`*^9, 3.80863262277394*^9, 
   3.808633311561617*^9, 3.8086334712937813`*^9, 3.8086345713008604`*^9, 
   3.808637909567108*^9, 3.8086399799512157`*^9, 3.80864006138052*^9, 
   3.8086408522235312`*^9, 3.8086427118739867`*^9, 3.808653271293666*^9},
 CellLabel->
  "Out[1145]=",ExpressionUUID->"8c785855-6c11-4667-9699-0e1f4d10aa57"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["CPM lattice",
 FontWeight->"Bold"]], "Subsubsection",
 CellChangeTimes->{{3.8078761795086813`*^9, 3.8078761853671556`*^9}, {
  3.8078769037807446`*^9, 
  3.807876922197547*^9}},ExpressionUUID->"f806da0c-1cd0-4e80-ba45-\
789a3f3bf095"],

Cell[BoxData[
 RowBox[{
  RowBox[{"spCell", "=", 
   RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Values", "@", 
          RowBox[{"ComponentMeasurements", "[", 
           RowBox[{
            RowBox[{"MorphologicalComponents", "[", 
             RowBox[{"#", ",", 
              RowBox[{"CornerNeighbors", "\[Rule]", "False"}]}], "]"}], ",", 
            "\"\<Mask\>\"", ",", 
            RowBox[{"CornerNeighbors", "\[Rule]", "False"}]}], "]"}]}], ")"}],
         "&"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Values", "@", 
        RowBox[{"ComponentMeasurements", "[", 
         RowBox[{"A", ",", "\"\<Mask\>\"", ",", 
          RowBox[{"CornerNeighbors", "\[Rule]", "False"}]}], "]"}]}]}], "]"}],
      ",", "\[IndentingNewLine]", "1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.80796467949057*^9, 3.8079647024370475`*^9}, {
   3.80796473646638*^9, 3.8079648695029936`*^9}, {3.8079649093179836`*^9, 
   3.8079649826528*^9}, {3.8079651408001175`*^9, 3.807965151071622*^9}, {
   3.8079652077540674`*^9, 3.8079652724668016`*^9}, {3.8079653465865545`*^9, 
   3.807965348268179*^9}, {3.807965382218051*^9, 3.8079653826263647`*^9}, 
   3.8079655773200054`*^9, {3.807965855230975*^9, 3.8079658753108106`*^9}, {
   3.807965907418166*^9, 3.8079659385590496`*^9}, {3.807966070574012*^9, 
   3.80796607474004*^9}, 3.807966865710458*^9, {3.807973026159297*^9, 
   3.807973036681698*^9}, {3.8085595682266636`*^9, 3.808559578960694*^9}},
 CellLabel->
  "In[1146]:=",ExpressionUUID->"45a3d6a7-20e7-4278-9974-485178a2b412"],

Cell[BoxData[
 RowBox[{
  RowBox[{"spCellArr", "=", 
   RowBox[{"<|", 
    RowBox[{"MapIndexed", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"First", "[", "#2", "]"}], "\[Rule]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"First", "[", "#2", "]"}], "*", "#1"}], ")"}]}], "&"}], ",",
       "spCell"}], "]"}], "|>"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8079659415613303`*^9, 3.8079659877175636`*^9}, 
   3.8079668766270876`*^9, {3.807983071280139*^9, 3.807983119322609*^9}, 
   3.8079831745035343`*^9, {3.807983210460144*^9, 3.807983262355134*^9}, {
   3.8085595834402494`*^9, 3.8085595841138053`*^9}},
 CellLabel->
  "In[1147]:=",ExpressionUUID->"50a5044b-d36e-44b0-b08d-30b7c6a03c3a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"spCellArrU", "=", 
   RowBox[{"Total", "[", 
    RowBox[{"Values", "@", "spCellArr"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.807969324620268*^9, 3.8079693402989864`*^9}, {
  3.8079830782347345`*^9, 3.8079830910602207`*^9}, {3.8085596098683147`*^9, 
  3.808559637323986*^9}},
 CellLabel->
  "In[1148]:=",ExpressionUUID->"c999ae8a-35e2-490d-b2f8-e2a3202a4413"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Colorize", "[", 
  RowBox[{"spCellArrU", ",", 
   RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.80796608920901*^9, 3.8079661291391783`*^9}, {
   3.807966167311037*^9, 3.807966198609003*^9}, {3.807969343427742*^9, 
   3.807969347883554*^9}, 3.808559612818774*^9, 3.8085596487267814`*^9},
 CellLabel->
  "In[1149]:=",ExpressionUUID->"e85f9bae-3f62-4197-b090-aa2aad9e1d4c"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt2mtT1VUUBnCm3vSyT4BgAkqDjLckBUUR5ZYXFEXQSuKEpCGXI4p4gZBQ
A3NUCDFzhExBGFEZkuCYA6mFXEQzwEtC5ffoocWs1vz/1AQCO3A987hnA2/O
+s3a55WeCTuiP3zFzc0t4zUc0Vt2LUlP35K19nX8EJOSkZyU4kgMT3E6khzp
AQmv4peJg/8G7hqNRqPRaDQajUaj0Wg0Go1Go9FoNBqNRqPRaDQajWY80793
9a3eRpz2mv5o/5dIE1gxV+eCR3R5/1wx1/SHNZasCL/t22qoditWmno+my6b
Gpb+MbMDNf3BxzVQohLUgyuB39XXyQXrLtlg2ag+jwsEhYZ5p0Q+bTA9xHiE
lLYWrZZ7dexY7E6vFvjs818nl6o/45q0iq6sIq53HL2o6VHGNsHhEahcKoKi
AkpaAYqtUECR1bv9m3nHTA80VuGn53pewFz5/nVwGNKKe3b9DOZiJc9jq6im
xxr9+Gy84bVzP8piVEJgKwl10P8KQZEV79Xk5iIlu1XAuuTLYR5khfN6WYhc
J14qy155fZOEsyyv/Mu4VK7pEUcni49fogKqorrdgmbHQV0/nETtbxAFFFmh
n5SmoWSFi+lBRyHPkhIIyl7Le7TQMRFdHP3Lyao2roeU0IdPI/luetAXDaDI
Sm7XxfU9KFsdmP8Q5+czolD54uguf8NWkgttiA+hmh73hcJQJecXonQvXvYF
6hl1NuPGokGuioawxla2IhxJhMZExKGDUNkuvzmVUqnx5sS2mlba/ORpnd+K
ILLi1SIo6qGAQDTo7q997fNJySuwnq3kUtmt0KvfxxIU1/TQIwysUN4rnJnh
s1CGklwsQ1bUTT2pKCnJEtTHO9p5r1jM9NAjDC8SPUA07adi5qKzdcp9+b30
wCOI747CxIi4FGlFRNKKCqi1eYdD589FTQ89khQ4AmmXSKmnbNfgZV8LcVEH
ZaJWSDHU4/RtQFFJxl4oNd/NQQFFhdWljjDTow87/GUurQDFtYvRxberBfWb
53vIeeufuHijAIWzJnYtOnFXa39AIT+9b5OTeKnQ7Z6+ZHXzeIkUY6vyvTMA
RWUuCxpzkVVobTxBteb3mB592IEVl9GkFRrl8pEL1u2eV1RVv61pD0Nlnepz
LTgFoosXu3E6fdvT8p+jZJVY2cNLNaGtetvKqGzVNs25qrqIrXZXbOLHOHdu
N1oXvDB4+1GcWeW5BEUF1JBWaGPv7QEl0djwZNOjDzsEFenTWhBSm+1XhOJi
2SsufCz9xb3wVmymhGIrV3BCf9vi6QVn2Krrei+KS5539VubZ5oefdiRVrIW
q0KfArY6Mu/vAooqv6zYCuUvK4YiK9T06MMOv8HU1Aa7leTiXbIoSaspnmHS
Cifuk8YKRFwQbUjvQ4nrzmdXUfKxLBX58J2gIm+ckHtFJautoUst31cT0QqR
60RQpCSthnx9FitS4hIUlXwql2yk4m566BEmu37g+7xwtpPFhoSSXB2/t0k0
O5S04l0iJeIyPfQIAyviopYmP7P4rAxv4MsHpy+zVWFuLiqXKqslhyrRLK8P
UJ5nMk0PPfLIZwgr5gIOV1pxiYtKSpnTF0kuScQ1Pe4LBUR5K+OpTUd/ZC5S
WnJ5jkRb6V7O9Tz3kZ2LN2qRf03VSccks0KC5jipXxVshZJcLVhRcV/Ve6G0
pIkLn6/vdeLsejOFxUL9S1D7Xi2vGqjpQUchDMVWzOXbNZOaE1HScfIagRCU
pY/ulqP90bVkFRJYJNdp0li5/cVFULJn1lRLLjKpze2UK2QRo1+irLQm6e3J
8fpkorY9dvp5AOfKz4+lGCtJq+fes6WMvEuoSfM1ZQ/h2K3kXg25SPaN8t+T
j+IS81ub6bHGKlPeSDoytZV9/gVKLpIFCpf6UAe6YsM50wONbR7cz3lyqQkl
JboA5/DmeEkU416AM83ZQT923+m105keZTxCVlxCW9aWLR2kFaC49NeFFS/X
f7iFUrGrGYUSlRzSdjfTpbk6hulIibhMf3BjaT5wsNO7RlpZ+uy9Cy/Vo/sv
IasTRz7Fea9/FlWJNBqNRqPRaDQajUaj0Wg0Go1Go9FoNBqNRqPRaDSjkj8B
5n9SMA==
    "], {{0, 100.}, {100., 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag[
   "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> 
    Automatic],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Medium,
  ImageSizeRaw->{100., 100.},
  PlotRange->{{0, 100.}, {0, 100.}}]], "Output",
 CellChangeTimes->{{3.8079661132577105`*^9, 3.8079661297888947`*^9}, 
   3.8079661638268814`*^9, 3.8079661990047407`*^9, 3.8079668821438713`*^9, 
   3.807969348539035*^9, 3.8079832740659523`*^9, 3.8079876932922297`*^9, 
   3.8079886008172445`*^9, 3.807988649069831*^9, 3.807991174550518*^9, {
   3.8079937867096567`*^9, 3.807993843583976*^9}, {3.8079939056445527`*^9, 
   3.80799395373293*^9}, {3.8079939897436123`*^9, 3.807993998852316*^9}, {
   3.807994042696535*^9, 3.807994110369625*^9}, 3.807994246489083*^9, {
   3.8079943134027557`*^9, 3.8079943361706805`*^9}, {3.807994414003785*^9, 
   3.8079944608156104`*^9}, 3.807994521903532*^9, 3.807994861740348*^9, 
   3.807998999941633*^9, 3.8079990968180323`*^9, 3.807999267768979*^9, {
   3.8079997539342337`*^9, 3.8079997606717772`*^9}, 3.808000059994277*^9, 
   3.808000725502226*^9, 3.8080013263760605`*^9, {3.8080041630660925`*^9, 
   3.8080041823558574`*^9}, 3.80800600332864*^9, 3.808559613341996*^9, 
   3.808559649008905*^9, 3.8085675366416035`*^9, 3.8085676604383116`*^9, 
   3.808567869761323*^9, 3.8085681031959295`*^9, 3.808568217743244*^9, 
   3.8085682879607525`*^9, 3.8085881930197845`*^9, 3.80858845819248*^9, 
   3.8085885984338856`*^9, 3.8085887545367594`*^9, 3.80858885134124*^9, 
   3.8085895944921618`*^9, 3.8085896668297443`*^9, 3.8085897200583086`*^9, 
   3.808589772450165*^9, 3.8085903062926145`*^9, 3.808590351239431*^9, 
   3.808590457133532*^9, 3.8085916278907633`*^9, 3.808592178662444*^9, 
   3.8085922226547804`*^9, 3.808592284296339*^9, 3.808592885407319*^9, 
   3.80859302998713*^9, 3.808593326716795*^9, 3.8085937618053055`*^9, 
   3.808631970835802*^9, 3.808632544021968*^9, 3.8086326228417587`*^9, 
   3.808633311638418*^9, 3.8086334713636274`*^9, 3.8086345713975763`*^9, 
   3.8086379096379194`*^9, 3.808638803869259*^9, 3.808638859059408*^9, 
   3.808638913608511*^9, 3.808639003632614*^9, 3.8086399800389805`*^9, 
   3.808640061454323*^9, 3.8086408523382254`*^9, 3.808642711964766*^9, 
   3.8086532713953915`*^9},
 CellLabel->
  "Out[1149]=",ExpressionUUID->"df683c51-4773-4bda-9009-89c8e88bb0b6"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"spTypeArr", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"A", " ", 
       RowBox[{"Unitize", "[", "#", "]"}]}], "&"}], ",", "spCellArr"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8079662375737925`*^9, 3.8079662690135517`*^9}, {
  3.8079663385582747`*^9, 3.8079663649536314`*^9}, {3.807966397108876*^9, 
  3.8079664228129396`*^9}, {3.8079664903919964`*^9, 3.8079665023869996`*^9}, {
  3.8079940358340425`*^9, 3.8079940744143915`*^9}, {3.8079943275806637`*^9, 
  3.8079943291120515`*^9}, {3.8079945447586837`*^9, 3.8079945457973576`*^9}, {
  3.807999063576755*^9, 3.8079990646473083`*^9}},
 CellLabel->
  "In[1150]:=",ExpressionUUID->"e9f862bb-cd32-45ce-9b12-49d08568e2e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"spTypeArrU", "=", 
   RowBox[{"Total", "[", 
    RowBox[{"Values", "@", "spTypeArr"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8079694632238913`*^9, 3.807969473890912*^9}, {
  3.8079833099177103`*^9, 3.8079833112261868`*^9}},
 CellLabel->
  "In[1151]:=",ExpressionUUID->"cd086444-b68f-41e1-9a15-b71fc7d0f26e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Colorize", "[", 
  RowBox[{"spTypeArrU", ",", 
   RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8079664254098406`*^9, 3.8079664397601433`*^9}, {
  3.8079664774063807`*^9, 3.807966484759181*^9}, {3.807969479378628*^9, 
  3.8079694818199835`*^9}, {3.807993972675875*^9, 3.807993985411621*^9}},
 CellLabel->
  "In[1152]:=",ExpressionUUID->"59af1a08-9b68-48c4-b104-09a10a6dc04a"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztmE1uE2EQRC3YsOQK3AKxY8k2iAMkihOxMZKDhDgba9asyWkwIhqNvqru
+fHYzTjvybEm43HkKld1j/Lm5svV3YvNZvPw6vB0df3t/X5//f3j68Mvn3YP
n+9329sPu6/b++3+7c3Lw8nbp5+/xwAAAAAAAAAAAAAAAAAAAAAAcE5+vXv8
+fvH4Vkf1R/tf6HvycGrzq7+Qfeo/rBl9H1Qr/q/NgfVH/ysWDeagDWJaox9
Jo5ZN/pnklA12auWclq0cbZ0dl5Zk6sFnYqmYkmWogJah6tlLY+O7sEsqavq
4eXZZQU2udJ5bldkdHG1xGWItpvmJHopv7vojquFLkAUGO1jPqZ0vjXH1UKP
JeqdnfA2NlHG7KvVco8ib020EO1EigZX/0y13PmMKc5I36xXeuV6m6j3A3ZM
NScjl+xbNHjVomeSTxubClvDyCJb2GrRc9AsJWGwYVOrdY1a06qlT2ZwsESO
2evVpegta4xWsujtIksWnHVYQ9idr5Y+mUSgDVJklB1uevGqvRqc54l1yUi3
b2m+l2rpk5kqMC9jZKb9LqqlT8ZuPZsZXWcj51KTuvXOdu2gnfN2munKyyu8
dq80D1ZXdHKwvBrR9c6rjfyLL2qZLZod7xpUTWa16Jk0EybSbrOkacxbvN4C
/kO/9ER1tPvygGkgq0XPxyYn2m55Q6O/0L+yWu5RRJ3SwCRDyc4l29Bqucei
Au2ITsKWJ7M7rha6ACN7ZD20NYxSVy10GZLB3hSwsdE6ZvdFtcQlSSJhDYz2
oE1dtbjlSYa2dcCuAD1fLetUaEgio/Qa29NqQafFZiPqnY1W96iWcg4Giza4
8i5yRiXoskvuVC915U1C7xN0Rj2r0o3Blg6LAAAAAAAAAAAAAAAAAAAAAGAR
/gDKqe5y
    "], {{0, 100.}, {100., 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag[
   "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> 
    Automatic],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Medium,
  ImageSizeRaw->{100., 100.},
  PlotRange->{{0, 100.}, {0, 100.}}]], "Output",
 CellChangeTimes->{{3.8079664316035385`*^9, 3.8079664511844997`*^9}, {
   3.8079664933840523`*^9, 3.807966524224995*^9}, 3.807966887024866*^9, 
   3.8079696051381726`*^9, 3.807983316792695*^9, 3.807983414758499*^9, 
   3.8079873926138134`*^9, 3.807987698407238*^9, {3.8079886053205824`*^9, 
   3.80798861282778*^9}, 3.8079886533765216`*^9, {3.8079911806949463`*^9, 
   3.807991195577212*^9}, {3.807991231731628*^9, 3.8079913100429544`*^9}, {
   3.807993786747557*^9, 3.8079938436976724`*^9}, {3.807993905687437*^9, 
   3.8079939990388145`*^9}, {3.8079940428830357`*^9, 
   3.8079941104972844`*^9}, {3.807994313515456*^9, 3.807994336394083*^9}, {
   3.8079944313525267`*^9, 3.807994460950276*^9}, {3.8079945281913633`*^9, 
   3.807994549348547*^9}, 3.8079948618570366`*^9, 3.807999069715014*^9, 
   3.8079991010198317`*^9, 3.807999273020257*^9, {3.807999754033966*^9, 
   3.8079997607366037`*^9}, 3.808000060065087*^9, 3.808000725546123*^9, 
   3.8080013314613895`*^9, {3.808004163188792*^9, 3.808004182409709*^9}, 
   3.8080060033765173`*^9, 3.8085596607419643`*^9, 3.808567542407443*^9, 
   3.8085676674815736`*^9, 3.8085678751843033`*^9, 3.808568103303669*^9, 
   3.808568217837515*^9, 3.808568288052044*^9, 3.808588193154425*^9, 
   3.8085884583031845`*^9, 3.8085885985465856`*^9, 3.8085887546584334`*^9, 
   3.8085888514948273`*^9, 3.8085895946178555`*^9, 3.808589666955447*^9, 
   3.8085897201590357`*^9, 3.80858977256882*^9, 3.80859030635345*^9, 
   3.8085903513959827`*^9, 3.8085904572721987`*^9, 3.8085916280373726`*^9, 
   3.80859217880606*^9, 3.8085922227993937`*^9, 3.8085922844200106`*^9, 
   3.808592885612769*^9, 3.8085930350700397`*^9, 3.808593326908283*^9, 
   3.808593761922991*^9, 3.8086319709106293`*^9, 3.808632544054879*^9, 
   3.8086326229065857`*^9, 3.8086333117172017`*^9, 3.808633471433436*^9, 
   3.8086345714783626`*^9, 3.8086379096957664`*^9, 3.8086388039400697`*^9, 
   3.8086388591332083`*^9, 3.808638913682315*^9, 3.808639003704422*^9, 
   3.808639980080867*^9, 3.8086400615021944`*^9, 3.808640852408038*^9, 
   3.8086427120156307`*^9, 3.808653271490138*^9},
 CellLabel->
  "Out[1152]=",ExpressionUUID->"0c3db8bf-1662-4942-bea9-14ecb69c8aef"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "perimeter", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"perimeterPtsAssoc", "=", 
    RowBox[{"<|", "\[IndentingNewLine]", 
     RowBox[{"ParallelMap", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Max", "[", "#", "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"Map", "[", "fun", "]"}], "@", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{"ImageData", "@", 
             RowBox[{"MorphologicalPerimeter", "[", 
              RowBox[{"Image", "@", "#"}], "]"}]}], ",", "1"}], "]"}]}]}], 
        "&"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Values", "@", "spCellArr"}]}], "]"}], "|>"}]}], ";"}], 
  " "}]], "Input",
 CellLabel->
  "In[1153]:=",ExpressionUUID->"8906d558-4ffd-462b-a7f7-cd91c0004b95"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Length", "/@", "perimeterPtsAssoc"}], ";"}]], "Input",
 CellChangeTimes->{{3.808589174720337*^9, 3.808589201878789*^9}, {
   3.8085893612262325`*^9, 3.8085893614009633`*^9}, 3.8085894141315174`*^9},
 CellLabel->
  "In[1154]:=",ExpressionUUID->"3cdcd4be-52fc-4b17-beac-5cad1f7d4133"],

Cell[BoxData[
 RowBox[{
  RowBox[{"perimeterPts", "=", 
   RowBox[{"Cases", "[", 
    RowBox[{
     RowBox[{"Normal", "@", "perimeterPtsAssoc"}], ",", 
     RowBox[{"{", "__Integer", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"-", "2"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.808560162904609*^9, 3.80856018794563*^9}},
 CellLabel->
  "In[1155]:=",ExpressionUUID->"730842d9-9b50-406c-8eff-a7081724e6ef"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"boundaryPts", "[", "\"\<RemoveAll\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"boundaryPts", "[", 
     RowBox[{"\"\<Insert\>\"", ",", "#"}], "]"}], "&"}], "/@", 
   "perimeterPts"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8085601909440393`*^9, 3.808560214906188*^9}, {
  3.8085602453979883`*^9, 3.808560279142893*^9}, {3.8086390574234657`*^9, 
  3.808639066483243*^9}},
 CellLabel->
  "In[1156]:=",ExpressionUUID->"13f9df9e-97dd-4c37-b112-788d3fb24129"],

Cell[BoxData[
 RowBox[{
  RowBox[{"celltypeAssoc", "=", 
   RowBox[{"Max", "/@", "spTypeArr"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8085599672143946`*^9, 3.8085600008939133`*^9}},
 CellLabel->
  "In[1158]:=",ExpressionUUID->"b1f21a9f-4e34-4363-8a2a-28012180c8d6"],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"area", " ", "and", " ", "perimeter"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.8085603343588295`*^9, 3.808560339071336*^9}, {
  3.8085605815109725`*^9, 3.8085606169049997`*^9}},
 CellLabel->
  "In[1159]:=",ExpressionUUID->"745aff11-181b-47b6-bda3-bc4885a6b726"],

Cell[BoxData[
 RowBox[{
  RowBox[{"areaAssoc", "=", 
   RowBox[{"<|", 
    RowBox[{"ComponentMeasurements", "[", 
     RowBox[{"spCellArrU", ",", "\"\<Count\>\""}], "]"}], "|>"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8085606204838033`*^9, 3.8085607329685955`*^9}, 
   3.8085917359909143`*^9},
 CellLabel->
  "In[1160]:=",ExpressionUUID->"55326c19-ff08-4587-badd-5f70d302c95f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cellperimeter", "=", 
   RowBox[{"<|", 
    RowBox[{"ComponentMeasurements", "[", 
     RowBox[{"spCellArrU", ",", "\"\<PerimeterLength\>\""}], "]"}], "|>"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.808560741707502*^9, 3.808560828623705*^9}, {
   3.8085859308556967`*^9, 3.8085859318660727`*^9}, 3.808591743205776*^9, {
   3.8086408494119477`*^9, 3.808640850263173*^9}},
 CellLabel->
  "In[1161]:=",ExpressionUUID->"bf79de87-c6b2-42d3-b15d-08406de3f8c6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Counts", "@", 
   RowBox[{"Extract", "[", 
    RowBox[{"spCellArrU", ",", 
     RowBox[{"Normal", "@", "boundaryPts"}]}], "]"}]}], "//", 
  "KeySort"}]], "Input",
 CellChangeTimes->{{3.808592641977834*^9, 3.808592674986226*^9}, {
  3.8085932431711445`*^9, 3.8085933040503364`*^9}, {3.8085933376658335`*^9, 
  3.808593357895257*^9}},
 CellLabel->
  "In[1162]:=",ExpressionUUID->"e8fdfae3-90fd-4523-836b-5a302e60b375"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"1", "\[Rule]", "5"}], ",", 
   RowBox[{"2", "\[Rule]", "1"}], ",", 
   RowBox[{"3", "\[Rule]", "77"}], ",", 
   RowBox[{"4", "\[Rule]", "1"}], ",", 
   RowBox[{"5", "\[Rule]", "1"}], ",", 
   RowBox[{"6", "\[Rule]", "23"}], ",", 
   RowBox[{"7", "\[Rule]", "1"}], ",", 
   RowBox[{"8", "\[Rule]", "1"}], ",", 
   RowBox[{"9", "\[Rule]", "1"}], ",", 
   RowBox[{"10", "\[Rule]", "2"}], ",", 
   RowBox[{"11", "\[Rule]", "12"}], ",", 
   RowBox[{"12", "\[Rule]", "6"}], ",", 
   RowBox[{"13", "\[Rule]", "1"}], ",", 
   RowBox[{"14", "\[Rule]", "19"}], ",", 
   RowBox[{"15", "\[Rule]", "1"}], ",", 
   RowBox[{"16", "\[Rule]", "6"}], ",", 
   RowBox[{"17", "\[Rule]", "1"}], ",", 
   RowBox[{"18", "\[Rule]", "4"}], ",", 
   RowBox[{"19", "\[Rule]", "1"}], ",", 
   RowBox[{"20", "\[Rule]", "3"}], ",", 
   RowBox[{"21", "\[Rule]", "3"}], ",", 
   RowBox[{"22", "\[Rule]", "1"}], ",", 
   RowBox[{"23", "\[Rule]", "1"}], ",", 
   RowBox[{"24", "\[Rule]", "7"}], ",", 
   RowBox[{"25", "\[Rule]", "13"}], ",", 
   RowBox[{"26", "\[Rule]", "3"}], ",", 
   RowBox[{"27", "\[Rule]", "1"}], ",", 
   RowBox[{"28", "\[Rule]", "4"}], ",", 
   RowBox[{"29", "\[Rule]", "1"}], ",", 
   RowBox[{"30", "\[Rule]", "2"}], ",", 
   RowBox[{"31", "\[Rule]", "24"}], ",", 
   RowBox[{"32", "\[Rule]", "3"}], ",", 
   RowBox[{"33", "\[Rule]", "27"}], ",", 
   RowBox[{"34", "\[Rule]", "1"}], ",", 
   RowBox[{"35", "\[Rule]", "1"}], ",", 
   RowBox[{"36", "\[Rule]", "1"}], ",", 
   RowBox[{"37", "\[Rule]", "1"}], ",", 
   RowBox[{"38", "\[Rule]", "1"}], ",", 
   RowBox[{"39", "\[Rule]", "27"}], ",", 
   RowBox[{"40", "\[Rule]", "3"}], ",", 
   RowBox[{"41", "\[Rule]", "3"}], ",", 
   RowBox[{"42", "\[Rule]", "7"}], ",", 
   RowBox[{"43", "\[Rule]", "8"}], ",", 
   RowBox[{"44", "\[Rule]", "9"}], ",", 
   RowBox[{"45", "\[Rule]", "1"}], ",", 
   RowBox[{"46", "\[Rule]", "1"}], ",", 
   RowBox[{"47", "\[Rule]", "1"}], ",", 
   RowBox[{"48", "\[Rule]", "1"}], ",", 
   RowBox[{"49", "\[Rule]", "5"}], ",", 
   RowBox[{"50", "\[Rule]", "10"}], ",", 
   RowBox[{"51", "\[Rule]", "1"}], ",", 
   RowBox[{"52", "\[Rule]", "1"}], ",", 
   RowBox[{"53", "\[Rule]", "5"}], ",", 
   RowBox[{"54", "\[Rule]", "2"}], ",", 
   RowBox[{"55", "\[Rule]", "1"}], ",", 
   RowBox[{"56", "\[Rule]", "31"}], ",", 
   RowBox[{"57", "\[Rule]", "61"}], ",", 
   RowBox[{"58", "\[Rule]", "4"}], ",", 
   RowBox[{"59", "\[Rule]", "1"}], ",", 
   RowBox[{"60", "\[Rule]", "6"}], ",", 
   RowBox[{"61", "\[Rule]", "1"}], ",", 
   RowBox[{"62", "\[Rule]", "15"}], ",", 
   RowBox[{"63", "\[Rule]", "6"}], ",", 
   RowBox[{"64", "\[Rule]", "1"}], ",", 
   RowBox[{"65", "\[Rule]", "1"}], ",", 
   RowBox[{"66", "\[Rule]", "1"}], ",", 
   RowBox[{"67", "\[Rule]", "35"}], ",", 
   RowBox[{"68", "\[Rule]", "2"}], ",", 
   RowBox[{"69", "\[Rule]", "2"}], ",", 
   RowBox[{"70", "\[Rule]", "1"}], ",", 
   RowBox[{"71", "\[Rule]", "36"}], ",", 
   RowBox[{"72", "\[Rule]", "1"}], ",", 
   RowBox[{"73", "\[Rule]", "4"}], ",", 
   RowBox[{"74", "\[Rule]", "4"}], ",", 
   RowBox[{"75", "\[Rule]", "1"}], ",", 
   RowBox[{"76", "\[Rule]", "6"}], ",", 
   RowBox[{"77", "\[Rule]", "1"}], ",", 
   RowBox[{"78", "\[Rule]", "1"}], ",", 
   RowBox[{"79", "\[Rule]", "55"}], ",", 
   RowBox[{"80", "\[Rule]", "1"}], ",", 
   RowBox[{"81", "\[Rule]", "1"}], ",", 
   RowBox[{"82", "\[Rule]", "1"}], ",", 
   RowBox[{"83", "\[Rule]", "2"}], ",", 
   RowBox[{"84", "\[Rule]", "9"}], ",", 
   RowBox[{"85", "\[Rule]", "2"}], ",", 
   RowBox[{"86", "\[Rule]", "2"}], ",", 
   RowBox[{"87", "\[Rule]", "8"}], ",", 
   RowBox[{"88", "\[Rule]", "1"}], ",", 
   RowBox[{"89", "\[Rule]", "7"}], ",", 
   RowBox[{"90", "\[Rule]", "1"}], ",", 
   RowBox[{"91", "\[Rule]", "1"}], ",", 
   RowBox[{"92", "\[Rule]", "1"}], ",", 
   RowBox[{"93", "\[Rule]", "1"}], ",", 
   RowBox[{"94", "\[Rule]", "1"}], ",", 
   RowBox[{"95", "\[Rule]", "3"}], ",", 
   RowBox[{"96", "\[Rule]", "35"}], ",", 
   RowBox[{"97", "\[Rule]", "1"}], ",", 
   RowBox[{"98", "\[Rule]", "1"}], ",", 
   RowBox[{"99", "\[Rule]", "36"}], ",", 
   RowBox[{"100", "\[Rule]", "1"}], ",", 
   RowBox[{"101", "\[Rule]", "2"}], ",", 
   RowBox[{"102", "\[Rule]", "1"}], ",", 
   RowBox[{"103", "\[Rule]", "2"}], ",", 
   RowBox[{"104", "\[Rule]", "9"}], ",", 
   RowBox[{"105", "\[Rule]", "3"}], ",", 
   RowBox[{"106", "\[Rule]", "7"}], ",", 
   RowBox[{"107", "\[Rule]", "1"}], ",", 
   RowBox[{"108", "\[Rule]", "1"}], ",", 
   RowBox[{"109", "\[Rule]", "6"}], ",", 
   RowBox[{"110", "\[Rule]", "1"}], ",", 
   RowBox[{"111", "\[Rule]", "1"}], ",", 
   RowBox[{"112", "\[Rule]", "1"}], ",", 
   RowBox[{"113", "\[Rule]", "1"}], ",", 
   RowBox[{"114", "\[Rule]", "1"}], ",", 
   RowBox[{"115", "\[Rule]", "1"}], ",", 
   RowBox[{"116", "\[Rule]", "2"}], ",", 
   RowBox[{"117", "\[Rule]", "5"}], ",", 
   RowBox[{"118", "\[Rule]", "1"}], ",", 
   RowBox[{"119", "\[Rule]", "14"}], ",", 
   RowBox[{"120", "\[Rule]", "2"}], ",", 
   RowBox[{"121", "\[Rule]", "24"}], ",", 
   RowBox[{"122", "\[Rule]", "1"}], ",", 
   RowBox[{"123", "\[Rule]", "2"}], ",", 
   RowBox[{"124", "\[Rule]", "1"}], ",", 
   RowBox[{"125", "\[Rule]", "11"}], ",", 
   RowBox[{"126", "\[Rule]", "1"}], ",", 
   RowBox[{"127", "\[Rule]", "48"}], ",", 
   RowBox[{"128", "\[Rule]", "1"}], ",", 
   RowBox[{"129", "\[Rule]", "7"}], ",", 
   RowBox[{"130", "\[Rule]", "14"}], ",", 
   RowBox[{"131", "\[Rule]", "1"}], ",", 
   RowBox[{"132", "\[Rule]", "1"}], ",", 
   RowBox[{"133", "\[Rule]", "2"}], ",", 
   RowBox[{"134", "\[Rule]", "36"}], ",", 
   RowBox[{"135", "\[Rule]", "5"}], ",", 
   RowBox[{"136", "\[Rule]", "1"}], ",", 
   RowBox[{"137", "\[Rule]", "34"}], ",", 
   RowBox[{"138", "\[Rule]", "1"}], ",", 
   RowBox[{"139", "\[Rule]", "24"}], ",", 
   RowBox[{"140", "\[Rule]", "6"}], ",", 
   RowBox[{"141", "\[Rule]", "1"}], ",", 
   RowBox[{"142", "\[Rule]", "1"}], ",", 
   RowBox[{"143", "\[Rule]", "1"}], ",", 
   RowBox[{"144", "\[Rule]", "2"}], ",", 
   RowBox[{"145", "\[Rule]", "1"}], ",", 
   RowBox[{"146", "\[Rule]", "1"}], ",", 
   RowBox[{"147", "\[Rule]", "13"}], ",", 
   RowBox[{"148", "\[Rule]", "1"}], ",", 
   RowBox[{"149", "\[Rule]", "2"}], ",", 
   RowBox[{"150", "\[Rule]", "1"}], ",", 
   RowBox[{"151", "\[Rule]", "1"}], ",", 
   RowBox[{"152", "\[Rule]", "5"}], ",", 
   RowBox[{"153", "\[Rule]", "38"}], ",", 
   RowBox[{"154", "\[Rule]", "2"}], ",", 
   RowBox[{"155", "\[Rule]", "2"}], ",", 
   RowBox[{"156", "\[Rule]", "1"}], ",", 
   RowBox[{"157", "\[Rule]", "1"}], ",", 
   RowBox[{"158", "\[Rule]", "1"}], ",", 
   RowBox[{"159", "\[Rule]", "5"}], ",", 
   RowBox[{"160", "\[Rule]", "3"}], ",", 
   RowBox[{"161", "\[Rule]", "27"}], ",", 
   RowBox[{"162", "\[Rule]", "9"}], ",", 
   RowBox[{"163", "\[Rule]", "3"}], ",", 
   RowBox[{"164", "\[Rule]", "1"}], ",", 
   RowBox[{"165", "\[Rule]", "8"}], ",", 
   RowBox[{"166", "\[Rule]", "1"}], ",", 
   RowBox[{"167", "\[Rule]", "15"}], ",", 
   RowBox[{"168", "\[Rule]", "9"}], ",", 
   RowBox[{"169", "\[Rule]", "3"}], ",", 
   RowBox[{"170", "\[Rule]", "1"}], ",", 
   RowBox[{"171", "\[Rule]", "1"}], ",", 
   RowBox[{"172", "\[Rule]", "5"}], ",", 
   RowBox[{"173", "\[Rule]", "1"}], ",", 
   RowBox[{"174", "\[Rule]", "1"}], ",", 
   RowBox[{"175", "\[Rule]", "4"}], ",", 
   RowBox[{"176", "\[Rule]", "4"}], ",", 
   RowBox[{"177", "\[Rule]", "1"}], ",", 
   RowBox[{"178", "\[Rule]", "2"}], ",", 
   RowBox[{"179", "\[Rule]", "1"}], ",", 
   RowBox[{"180", "\[Rule]", "1"}], ",", 
   RowBox[{"181", "\[Rule]", "2"}], ",", 
   RowBox[{"182", "\[Rule]", "70"}], ",", 
   RowBox[{"183", "\[Rule]", "1"}], ",", 
   RowBox[{"184", "\[Rule]", "1"}], ",", 
   RowBox[{"185", "\[Rule]", "2"}], ",", 
   RowBox[{"186", "\[Rule]", "1"}], ",", 
   RowBox[{"187", "\[Rule]", "2"}], ",", 
   RowBox[{"188", "\[Rule]", "1"}], ",", 
   RowBox[{"189", "\[Rule]", "1"}], ",", 
   RowBox[{"190", "\[Rule]", "21"}], ",", 
   RowBox[{"191", "\[Rule]", "1"}], ",", 
   RowBox[{"192", "\[Rule]", "1"}], ",", 
   RowBox[{"193", "\[Rule]", "1"}], ",", 
   RowBox[{"194", "\[Rule]", "2"}], ",", 
   RowBox[{"195", "\[Rule]", "1"}]}], "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{{3.808593250893301*^9, 3.8085933582440977`*^9}, 
   3.808593762951747*^9, 3.808631975518301*^9, 3.80863254515257*^9, 
   3.8086326239222283`*^9, 3.808633312700985*^9, 3.8086334724406104`*^9, 
   3.808634572497381*^9, 3.8086379106856976`*^9, 3.8086388044562564`*^9, 
   3.8086388596134806`*^9, 3.8086389141072426`*^9, 3.808639004144467*^9, 
   3.8086399812109632`*^9, 3.808640062465897*^9, 3.8086408529636126`*^9, 
   3.8086427124716177`*^9, 3.8086532719442577`*^9},
 CellLabel->
  "Out[1162]=",ExpressionUUID->"617554df-7bf7-41bc-b341-b60888b73066"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["simulate CPM",
 FontWeight->"Bold"]], "Subsection",
 CellChangeTimes->{{3.8078761795086813`*^9, 3.807876217090973*^9}, {
  3.8078769126093907`*^9, 
  3.807876914984476*^9}},ExpressionUUID->"c153a6cf-4d68-4746-b707-\
536612f44679"],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"for", " ", "area"}], " ", "\[Rule]", " ", 
   RowBox[{
    RowBox[{"we", " ", "will", " ", "add"}], " ", "-", 
    RowBox[{"1", " ", "to", " ", 
     RowBox[{
      RowBox[{"areaAssoc", "[", "targetcellID", "]"}], "--"}], " ", "and", 
     " ", "do", " ", 
     RowBox[{
      RowBox[{"areaAssoc", "[", "sourcecellID", "]"}], "++"}], " ", "if", " ",
      "sourcecellID", " ", "is", " ", "not", " ", "background"}]}]}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.80841029143734*^9, 3.8084104007789526`*^9}, {
  3.808410558016432*^9, 3.8084105594056673`*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->
  "In[1163]:=",ExpressionUUID->"1697e8d0-ecef-4794-841f-e1a02e42cba7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ls", "[", "\"\<DropAll\>\"", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.8086389697167716`*^9, 3.8086389950919724`*^9}},
 CellLabel->
  "In[1164]:=",ExpressionUUID->"c61334a3-316f-4cf4-9463-0e131b30d2e8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "munfl"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "=", "0"}], ",", 
      RowBox[{"T", "=", "T"}], ",", "neighbours", ",", "delt", ",", 
      "targetpt", ",", "sourcept", ",", "sourceType", ",", "targetType", ",", 
      "sourceCellId", ",", "targetCellId", ",", "\[IndentingNewLine]", 
      "\[CapitalDelta]E", ",", "neighbourCellIds", ",", "neighbourTypes", ",",
       "flag"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Monitor", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"While", "[", 
       RowBox[{
        RowBox[{"t", "\[LessEqual]", "MCSiter"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"delt", "=", "0"}], ";", "\[IndentingNewLine]", 
         RowBox[{"While", "[", 
          RowBox[{
           RowBox[{"delt", "\[LessEqual]", "1"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"flag", "=", "False"}], ";", "\[IndentingNewLine]", 
            RowBox[{"delt", "+=", " ", 
             RowBox[{"1.0", "/", 
              RowBox[{"boundaryPts", "[", "\"\<Length\>\"", "]"}]}]}], ";", 
            " ", "\[IndentingNewLine]", 
            RowBox[{"(*", " ", 
             RowBox[{
              RowBox[{
              "pick", " ", "a", " ", "random", " ", "boundary", " ", "pt", 
               " ", "and", " ", "get", " ", "its", " ", "4"}], "-", 
              RowBox[{
              "neighbours", " ", "for", " ", "probable", " ", "mutation"}]}], 
             " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{"targetpt", "=", 
             RowBox[{"RandomChoice", "[", 
              RowBox[{"Normal", "@", "boundaryPts"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"neighbours", "=", 
             RowBox[{"crossneighbours", "[", "targetpt", "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"sourcept", "=", 
             RowBox[{"RandomChoice", "@", "neighbours"}]}], ";", 
            "\[IndentingNewLine]", "\[IndentingNewLine]", 
            RowBox[{"sourceType", "=", 
             RowBox[{"spTypeArrU", "[", 
              RowBox[{"[", 
               RowBox[{"Sequence", "@@", "sourcept"}], "]"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"sourceCellId", "=", 
             RowBox[{"spCellArrU", "[", 
              RowBox[{"[", 
               RowBox[{"Sequence", "@@", "sourcept"}], "]"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"targetType", "=", 
             RowBox[{"spTypeArrU", "[", 
              RowBox[{"[", 
               RowBox[{"Sequence", "@@", "targetpt"}], "]"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"targetCellId", "=", 
             RowBox[{"spCellArrU", "[", 
              RowBox[{"[", 
               RowBox[{"Sequence", "@@", "targetpt"}], "]"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"neighbourCellIds", "=", 
             RowBox[{"Extract", "[", 
              RowBox[{"spCellArrU", ",", "neighbours"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"neighbourTypes", "=", 
             RowBox[{"Extract", "[", 
              RowBox[{"spTypeArrU", ",", "neighbours"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"targetCellId", "\[NotEqual]", "sourceCellId"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{"compute", " ", "the", " ", "hamiltonian"}], "*)"}], 
              "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"\[CapitalDelta]E", "=", 
                RowBox[{"deltaH", "[", 
                 RowBox[{
                 "sourceCellId", ",", "sourceType", ",", "targetCellId", ",", 
                  "targetType", ",", "neighbourCellIds", ",", 
                  "neighbourTypes"}], "]"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{"\[CapitalDelta]E", "<", "0"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"(*", 
                  RowBox[{"accept", " ", "the", " ", "change"}], "*)"}], 
                 "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"ls", "[", 
                   RowBox[{"\"\<Append\>\"", ",", "\[CapitalDelta]E"}], "]"}],
                   ";", "\[IndentingNewLine]", 
                  RowBox[{"flag", "=", " ", "True"}]}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"RandomReal", "[", "]"}], "\[LessEqual]", 
                    RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"-", "\[CapitalDelta]E"}], "/", "T"}], "]"}]}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{"(*", 
                    RowBox[{
                    "accept", " ", "change", " ", "with", " ", "certain", " ",
                     "probability"}], "*)"}], "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"ls", "[", 
                    RowBox[{"\"\<Append\>\"", ",", "\[CapitalDelta]E"}], 
                    "]"}], ";", "\[IndentingNewLine]", 
                    RowBox[{"flag", "=", "True"}]}]}], "\[IndentingNewLine]", 
                   "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"(*", 
                RowBox[{
                 RowBox[{
                 "If", " ", "flag", " ", "is", " ", "true", " ", "then", " ", 
                  "update", " ", "area"}], ",", " ", 
                 RowBox[{
                 "perimeter", " ", "and", " ", "boundary", " ", "pts"}]}], 
                "*)"}], "\[IndentingNewLine]", 
               RowBox[{"If", "[", 
                RowBox[{"flag", ",", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"spTypeArrU", "[", 
                    RowBox[{"[", 
                    RowBox[{"Sequence", "@@", "targetpt"}], "]"}], "]"}], "=",
                    "sourceType"}], ";", " ", 
                  RowBox[{"(*", 
                   RowBox[{
                   "copy", " ", "type", " ", "of", " ", "the", " ", "source", 
                    " ", "in", " ", "target", " ", "pixel"}], "*)"}], 
                  "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"spCellArrU", "[", 
                    RowBox[{"[", 
                    RowBox[{"Sequence", "@@", "targetpt"}], "]"}], "]"}], "=",
                    "sourceCellId"}], ";", " ", 
                  RowBox[{"(*", 
                   RowBox[{
                   "copy", " ", "the", " ", "source", " ", "cell", " ", 
                    "number", " ", "in", " ", "target", " ", "pixel"}], 
                   "*)"}], "\[IndentingNewLine]", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{"targetCellId", "\[NotEqual]", "0"}], ",", 
                    RowBox[{
                    RowBox[{"areaAssoc", "[", "targetCellId", "]"}], "--"}]}],
                    "]"}], ";", "\[IndentingNewLine]", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"areaAssoc", "[", "targetCellId", "]"}], 
                    "\[Equal]", "0"}], ",", 
                    RowBox[{"KeyDropFrom", "[", 
                    RowBox[{"areaAssoc", ",", "targetCellId"}], "]"}]}], 
                   "]"}], ";", "\[IndentingNewLine]", 
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{"sourceCellId", "\[NotEqual]", " ", "0"}], ",", 
                    RowBox[{
                    RowBox[{"areaAssoc", "[", "sourceCellId", "]"}], "++"}]}],
                    "]"}], ";", "\[IndentingNewLine]", 
                  RowBox[{"(*", 
                   RowBox[{"update", " ", "boundary", " ", "pts"}], "*)"}], 
                  "\[IndentingNewLine]", 
                  RowBox[{"updateBoundaryPts", "[", 
                   RowBox[{"sourceCellId", ",", "targetpt"}], "]"}], ";", 
                  "\[IndentingNewLine]", 
                  RowBox[{"cellPerimeterUpdate", "[", 
                   RowBox[{
                   "targetCellId", ",", "sourceCellId", ",", "neighbours"}], 
                   "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
             "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
          "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"plt", "=", 
          RowBox[{"MatrixPlot", "[", 
           RowBox[{"spTypeArrU", ",", 
            RowBox[{"ColorFunction", "\[Rule]", "Hue"}], ",", 
            RowBox[{"ColorRules", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"0", "\[Rule]", "Black"}], "}"}]}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"Export", "[", 
            RowBox[{
             RowBox[{"\"\<C:\\\\Users\\\\aliha\\\\Desktop\\\\save\\\\\>\"", "<>", 
              RowBox[{"ToString", "[", "t", "]"}], "<>", "\"\<.jpg\>\""}], 
             ",", "plt"}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{"t", "+=", "1"}], ";"}]}], "\[IndentingNewLine]", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "plt"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"On", "[", 
   RowBox[{"General", "::", "munfl"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8077356929423122`*^9, 3.8077357038447943`*^9}, {
   3.8077357993206367`*^9, 3.807735824093633*^9}, {3.8077358601375465`*^9, 
   3.8077359088468213`*^9}, {3.807736001180168*^9, 3.8077360056178856`*^9}, {
   3.8077372585893183`*^9, 3.80773731953096*^9}, 3.8077383708812084`*^9, {
   3.8077384579702306`*^9, 3.8077384773806243`*^9}, {3.8077385174434805`*^9, 
   3.8077385294906793`*^9}, {3.807738658039072*^9, 3.8077386582430053`*^9}, 
   3.8077388499414315`*^9, {3.8077388968307843`*^9, 3.807739024017623*^9}, {
   3.8077390565815544`*^9, 3.807739067075697*^9}, {3.8077391249637423`*^9, 
   3.807739135773275*^9}, {3.807739168397749*^9, 3.8077393219800587`*^9}, {
   3.8077394630850286`*^9, 3.8077395436034603`*^9}, {3.8077395946586*^9, 
   3.807739685654411*^9}, {3.8077398855554256`*^9, 3.8077398878790846`*^9}, {
   3.807740218483681*^9, 3.807740218678461*^9}, {3.807740260401582*^9, 
   3.8077403205775576`*^9}, {3.8077403847492886`*^9, 3.8077404453465023`*^9}, 
   3.807740480206707*^9, {3.807740512893648*^9, 3.8077405215550556`*^9}, {
   3.807740591821082*^9, 3.807740648271717*^9}, {3.807740693266301*^9, 
   3.807740697874206*^9}, {3.807740757915127*^9, 3.8077408712289085`*^9}, {
   3.807740909570104*^9, 3.8077409381669254`*^9}, {3.8077410106871805`*^9, 
   3.8077410217597637`*^9}, {3.8077410757767878`*^9, 
   3.8077411431024055`*^9}, {3.807741192619862*^9, 3.807741216083774*^9}, {
   3.8077413262786784`*^9, 3.8077414042096167`*^9}, {3.8077414462774105`*^9, 
   3.8077414716971016`*^9}, {3.8077417968876967`*^9, 3.8077418239344764`*^9}, 
   3.8077427515531635`*^9, {3.80774315033104*^9, 3.8077431528002048`*^9}, {
   3.807743804356202*^9, 3.8077438099092045`*^9}, {3.8077438480014873`*^9, 
   3.807743848324011*^9}, {3.807743887175579*^9, 3.807743891645814*^9}, {
   3.8077439565679913`*^9, 3.8077439675470123`*^9}, 3.8077440592051864`*^9, {
   3.80774410027787*^9, 3.8077441053708296`*^9}, {3.8077445344995313`*^9, 
   3.8077445451708527`*^9}, {3.8077446999041758`*^9, 3.807744728064292*^9}, 
   3.8077447990718913`*^9, {3.8077448415824594`*^9, 3.807744846985826*^9}, {
   3.8077449705040827`*^9, 3.807745025483609*^9}, {3.807745085769429*^9, 
   3.80774509965578*^9}, {3.8077451440397396`*^9, 3.807745235125371*^9}, {
   3.8077453183290167`*^9, 3.8077453724283624`*^9}, {3.8077454342808385`*^9, 
   3.807745519547235*^9}, {3.807745593920787*^9, 3.8077455963137126`*^9}, {
   3.807745696591854*^9, 3.807745774237773*^9}, {3.8077458288603177`*^9, 
   3.807745847919516*^9}, {3.807746385180313*^9, 3.807746439229105*^9}, {
   3.8077465915752335`*^9, 3.807746604210661*^9}, {3.8077472821899853`*^9, 
   3.807747409318697*^9}, {3.8077474459560823`*^9, 3.807747451583451*^9}, {
   3.807764790291267*^9, 3.8077647969426966`*^9}, {3.8077926643937106`*^9, 
   3.807792669336472*^9}, {3.8077928776550703`*^9, 3.8077929000751266`*^9}, {
   3.8078050158095765`*^9, 3.8078050212159576`*^9}, 3.807805051483739*^9, {
   3.8078051232656794`*^9, 3.807805158556823*^9}, {3.8078054646927133`*^9, 
   3.8078055027871776`*^9}, {3.807805586832651*^9, 3.8078056126743517`*^9}, {
   3.807807737111992*^9, 3.807807779035822*^9}, 3.8078091309824333`*^9, {
   3.807809981870146*^9, 3.8078100704584923`*^9}, {3.8078101544801645`*^9, 
   3.8078101710384054`*^9}, {3.8078104638507576`*^9, 3.807810499373295*^9}, {
   3.8078105302366047`*^9, 3.807810547561661*^9}, {3.807810585059659*^9, 
   3.8078105889912252`*^9}, {3.8078106208431797`*^9, 3.807810646451029*^9}, {
   3.807810694881435*^9, 3.8078107433355107`*^9}, {3.807810873808056*^9, 
   3.8078108933713636`*^9}, {3.807810932963108*^9, 3.80781096758857*^9}, {
   3.8078114356727157`*^9, 3.807811555489802*^9}, {3.8078116101920347`*^9, 
   3.8078116422936363`*^9}, {3.8078118422703686`*^9, 3.807811877115864*^9}, {
   3.807811961485336*^9, 3.807811990475417*^9}, {3.8078135752711444`*^9, 
   3.8078136299982886`*^9}, {3.8078141124425116`*^9, 
   3.8078141515080976`*^9}, {3.8078144950567465`*^9, 3.807814504512061*^9}, {
   3.807822001870837*^9, 3.807822004348205*^9}, {3.8078254354278545`*^9, 
   3.807825505472327*^9}, {3.807825551072733*^9, 3.807825619886701*^9}, {
   3.8078256592907033`*^9, 3.8078256597835207`*^9}, {3.807842937330693*^9, 
   3.807842941554837*^9}, {3.807869081875614*^9, 3.8078690892322736`*^9}, {
   3.8078707655657444`*^9, 3.807870771148708*^9}, {3.8078708138647833`*^9, 
   3.8078708140052757`*^9}, {3.8078709159247603`*^9, 
   3.8078709168974085`*^9}, {3.8078711506954827`*^9, 
   3.8078711802356224`*^9}, {3.807871358276801*^9, 3.807871363534891*^9}, {
   3.80787147960085*^9, 3.807871480014693*^9}, {3.807873827759597*^9, 
   3.8078738301366243`*^9}, {3.807877315879654*^9, 3.807877320302358*^9}, {
   3.8078773555876255`*^9, 3.8078773601823416`*^9}, {3.8078774601929903`*^9, 
   3.807877463868873*^9}, {3.8078777374558825`*^9, 3.8078777972923865`*^9}, 
   3.8078945925438538`*^9, {3.8078946315689287`*^9, 3.8078946443530545`*^9}, {
   3.807977840614297*^9, 3.8079778407748947`*^9}, {3.807977938578828*^9, 
   3.807977984624593*^9}, {3.807978024176814*^9, 3.807978026042966*^9}, {
   3.8079780602038603`*^9, 3.807978062100441*^9}, {3.80797927305399*^9, 
   3.80797929305798*^9}, {3.8079793290195746`*^9, 3.807979389211111*^9}, 
   3.807979432320138*^9, {3.807982501085101*^9, 3.807982577512854*^9}, {
   3.8079826224046836`*^9, 3.807982657599266*^9}, {3.807982793689498*^9, 
   3.807982810088977*^9}, {3.8079828635656223`*^9, 3.8079828692905893`*^9}, 
   3.8079829076149464`*^9, {3.807984088725494*^9, 3.807984095807209*^9}, {
   3.807984134356213*^9, 3.807984134488989*^9}, {3.8079841812593145`*^9, 
   3.807984182584237*^9}, {3.8079842134426503`*^9, 3.8079842302623034`*^9}, {
   3.807984292254348*^9, 3.8079843213478622`*^9}, 3.8079843600588417`*^9, {
   3.8079845103609233`*^9, 3.8079845193039575`*^9}, {3.8079846418749256`*^9, 
   3.8079846471527414`*^9}, {3.807985287679887*^9, 3.8079853349017534`*^9}, {
   3.8079854988782377`*^9, 3.8079855424335256`*^9}, {3.807985617228077*^9, 
   3.8079856515047827`*^9}, {3.8079866154152575`*^9, 3.807986712366747*^9}, {
   3.8079867481043224`*^9, 3.807986759372796*^9}, {3.807986795125354*^9, 
   3.807987081031172*^9}, {3.8079871191354733`*^9, 3.8079871615262146`*^9}, {
   3.80798729805441*^9, 3.8079873109835005`*^9}, {3.8079874316018515`*^9, 
   3.807987472289028*^9}, {3.8079875308232365`*^9, 3.807987556846694*^9}, {
   3.8079882696904087`*^9, 3.807988273272693*^9}, {3.8079883387855883`*^9, 
   3.8079883871856966`*^9}, {3.8079885612321587`*^9, 
   3.8079885858712544`*^9}, {3.8079886358501253`*^9, 3.807988637878514*^9}, {
   3.807989592999345*^9, 3.807989594704734*^9}, {3.80798963741499*^9, 
   3.8079896464989233`*^9}, {3.807994779790857*^9, 3.8079948202084494`*^9}, {
   3.8079948515266657`*^9, 3.8079948525445747`*^9}, 3.808002004616286*^9, {
   3.808002067223654*^9, 3.8080020963727894`*^9}, {3.8080021553825665`*^9, 
   3.808002187156581*^9}, {3.808002270076707*^9, 3.808002290812606*^9}, {
   3.8080023239731236`*^9, 3.8080023680279474`*^9}, {3.8080024346497307`*^9, 
   3.8080025180154657`*^9}, {3.8080025486594205`*^9, 3.808002551461975*^9}, {
   3.808002598362399*^9, 3.8080026731923556`*^9}, {3.8080027275667763`*^9, 
   3.8080027540471315`*^9}, {3.8080028024381337`*^9, 3.808002857891596*^9}, {
   3.808002914746048*^9, 3.808002918495566*^9}, {3.8080030441127577`*^9, 
   3.808003159210756*^9}, {3.8080032037128315`*^9, 3.80800323749053*^9}, {
   3.8080033280242352`*^9, 3.808003328446803*^9}, {3.80800372659803*^9, 
   3.8080037273120127`*^9}, {3.8080660038309083`*^9, 3.808066029924553*^9}, {
   3.8080661394986954`*^9, 3.808066184447266*^9}, {3.808066251148839*^9, 
   3.808066336865773*^9}, {3.8080664648088894`*^9, 3.808066467106005*^9}, {
   3.8080665265466413`*^9, 3.8080665650286074`*^9}, {3.808066601364355*^9, 
   3.8080666987126145`*^9}, 3.8080670016438627`*^9, {3.8080670412056236`*^9, 
   3.808067059754615*^9}, {3.808069956815499*^9, 3.8080700229310308`*^9}, {
   3.808070139422841*^9, 3.8080701850494394`*^9}, {3.808070234452697*^9, 
   3.8080703081209664`*^9}, {3.8080703902657566`*^9, 
   3.8080704114810843`*^9}, {3.80838435729976*^9, 3.808384377117881*^9}, {
   3.8083844088464966`*^9, 3.8083844146738005`*^9}, {3.8083845665261564`*^9, 
   3.8083846135058675`*^9}, {3.8083846746426783`*^9, 
   3.8083847400280423`*^9}, {3.8083847712356677`*^9, 
   3.8083848131256685`*^9}, {3.8083848925126038`*^9, 
   3.8083849241828938`*^9}, {3.8083850377704377`*^9, 3.808385071826683*^9}, {
   3.80838519089501*^9, 3.8083852955807204`*^9}, {3.808390661926777*^9, 
   3.8083907814018316`*^9}, {3.808391249533422*^9, 3.808391252939624*^9}, {
   3.8083913788009744`*^9, 3.808391464222745*^9}, 3.808421318438132*^9, 
   3.80856094594429*^9, {3.8085610529317937`*^9, 3.808561207324374*^9}, {
   3.808561259678517*^9, 3.808561297086652*^9}, {3.8085613518193555`*^9, 
   3.808561437083577*^9}, {3.80856149509041*^9, 3.808561524330093*^9}, {
   3.8085618207852554`*^9, 3.8085619067197185`*^9}, {3.8085642439080496`*^9, 
   3.808564424224889*^9}, {3.808564462892917*^9, 3.808564689564052*^9}, {
   3.808564813220228*^9, 3.8085648342097607`*^9}, {3.8085648773217278`*^9, 
   3.8085649972165227`*^9}, {3.808565477210575*^9, 3.8085654799955177`*^9}, {
   3.8085655708331957`*^9, 3.808565730154997*^9}, {3.8085660251909013`*^9, 
   3.80856614123694*^9}, {3.808566179672444*^9, 3.8085664820870347`*^9}, {
   3.808566881992606*^9, 3.8085669350548897`*^9}, {3.8085669749969025`*^9, 
   3.808567025260174*^9}, 3.8085670556865883`*^9, {3.808567323717227*^9, 
   3.808567358036826*^9}, {3.808567454773034*^9, 3.808567480619509*^9}, {
   3.808567511136969*^9, 3.808567516853603*^9}, {3.8085679358836775`*^9, 
   3.80856793603852*^9}, {3.808568016437252*^9, 3.8085680231422977`*^9}, {
   3.808568059104084*^9, 3.8085680846663885`*^9}, {3.808568192968563*^9, 
   3.8085682037919617`*^9}, 3.808585529871289*^9, {3.808587191327286*^9, 
   3.8085872701363587`*^9}, {3.8085873195649776`*^9, 3.808587342267003*^9}, {
   3.808587454999901*^9, 3.808587459538352*^9}, {3.8085875219406633`*^9, 
   3.8085875924750557`*^9}, {3.8085883712475843`*^9, 
   3.8085883766887774`*^9}, {3.808588436377636*^9, 3.808588445816841*^9}, {
   3.808588593055295*^9, 3.8085885949296675`*^9}, {3.8085895491452417`*^9, 
   3.808589565138624*^9}, {3.8085897153662834`*^9, 3.8085897172413797`*^9}, {
   3.8085897476779456`*^9, 3.8085897696331177`*^9}, {3.8085921032755437`*^9, 
   3.8085921059103546`*^9}, {3.8085922762182856`*^9, 
   3.8085922797063265`*^9}, {3.8086319642981815`*^9, 
   3.8086319644247637`*^9}, {3.808632618374087*^9, 3.8086326209058084`*^9}, {
   3.8086332613182306`*^9, 3.8086332635786505`*^9}, {3.808633468656994*^9, 
   3.808633469894187*^9}, {3.8086344463526173`*^9, 3.8086344609756393`*^9}, {
   3.808637893408309*^9, 3.8086379065116816`*^9}, 3.808637988038605*^9, {
   3.808638780588893*^9, 3.8086387885860662`*^9}, {3.808639949993335*^9, 
   3.8086399645277343`*^9}, {3.8086400580675464`*^9, 3.8086400584509172`*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellLabel->
  "In[1165]:=",ExpressionUUID->"3b04c33c-8289-44c3-b6a9-93ddde0bb4af"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["results",
 FontWeight->"Bold"]], "Subsection",
 CellChangeTimes->{{3.8078761795086813`*^9, 3.807876217090973*^9}, {
  3.807876327657173*^9, 
  3.807876328382629*^9}},ExpressionUUID->"6aba9467-2196-4639-8a3f-\
c4ecc91adc0b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Row", "[", 
  RowBox[{"{", 
   RowBox[{"pltinitial", ",", 
    RowBox[{"MatrixPlot", "[", 
     RowBox[{"spTypeArrU", ",", 
      RowBox[{"ColorFunction", "\[Rule]", "Hue"}], ",", 
      RowBox[{"ColorRules", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", "\[Rule]", "Black"}], "}"}]}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", 
    RowBox[{"Colorize", "[", 
     RowBox[{"spCellArrU", ",", 
      RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8077418843585076`*^9, 3.8077418845881243`*^9}, {
   3.807794160221925*^9, 3.807794160953576*^9}, {3.807824780303091*^9, 
   3.807824784108755*^9}, {3.80787837302057*^9, 3.8078784028000565`*^9}, 
   3.807886967664463*^9, {3.807888742604703*^9, 3.807888745686686*^9}, {
   3.8079894858128614`*^9, 3.807989498752529*^9}, {3.8079896037881837`*^9, 
   3.8079896178411837`*^9}, {3.8079906123719177`*^9, 
   3.8079906147115526`*^9}, {3.808637170446357*^9, 3.808637170600213*^9}, {
   3.80863793257908*^9, 3.808637935558118*^9}, {3.80864713279737*^9, 
   3.8086472265715427`*^9}},
 CellLabel->
  "In[1168]:=",ExpressionUUID->"d6420aee-3526-46ba-882d-4d7ab29ce403"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[
    RasterBox[CompressedData["
1:eJzt3NFpG0EUBVBBKkkl7iElhOQ7LbsElxAC+bBZDJY9w7t3dA6EJIsYrXYN
c7lv5e8///z4/e12u/36/+ffvwEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4Or5
6e3/X57e/r3r9fcef2/9944DANxrd865N89MHd99/gBAr1U5YaovSltnqn8D
APZZlXNactFUztmdM3dfZwDgamoeN5VPWvJVWp40lwSAq/b9eqpPa7k+u3Py
qnUAoNHUfjqVT9JyV0tPlXb+AJDg1Od/0t43Lf+k9V27jwPADmn5pCWHpP3+
h7T7MnX+q9YHgI9Im9dM5ZCp/i0tF7V/j8DvZQUgQVqPlJZPWuZoabnl1Pws
XwHwWss+lbZO2jwu7X3b863nuAD4ivb9t70Xas9vaTmn5XoCcIaWnqGl52mZ
06X1kC35cOq6AdBlan9v35dbep60HqklD0/1mXotgDOk7YOPNi9Ly0Xt1zkt
D696XwAyte/7aeu3nGdLTmvpl9LmiQDMaukN0nLOqT1JWn5Le31a7pWvADK1
5Ki0nqEl76XlwFOvs3wFwGtpeSZtnbQ8k5ZL9V2fe/3u9wVgVsucLu31aeu0
9HuPdl+mcjsAs1p6m5b9tL1fSst1afdxKk/qrwC6pO3Lp+6nLTkn7fmr9vOX
rwAeU1peStsHW/q3luuflkvb74v5IECm9n3k1LyU1qu05Kj23nXV/QIgU9o+
m9bbpPVsaf3M1M9Pey7SUwGcLa3PSXuuJu08W3JO+31J60UB6NLe/7TkjbS8
mnZ90vJSWp8JwBnS9seWfTNtv27vbdLmwrvPB4Czpc2J0p4/T5t7ttyvtD4q
7fMC8JjS+pC07/Wn7dctc7T23s+8D4CvaJ9bpeWc9s/Vfr+m1geAj0jLD1N5
Ly1Ptuec9usMADu0PD+T1oe05Jm0zzX1cwUACdKek0nLIe35pH3OKEcBcJKW
vKEf+9zxqdxrrgcAVy378qn9WNp1WHV9AICrtB6p/fn8tLnhqvUBgH1a5l8t
c8mpdQCAXlO906nPX8lLAMAqafNE36cDAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAR/AW5SANM=
     "], {{0, 0}, {100, 100}}, {0, 1}], Frame -> True, 
    FrameLabel -> {None, None}, FrameTicks -> {{{{99.5, 
         FormBox["1", TraditionalForm]}, {80.5, 
         FormBox["20", TraditionalForm]}, {60.5, 
         FormBox["40", TraditionalForm]}, {40.5, 
         FormBox["60", TraditionalForm]}, {20.5, 
         FormBox["80", TraditionalForm]}, {0.5, 
         FormBox["100", TraditionalForm]}}, {{99.5, 
         FormBox["1", TraditionalForm]}, {80.5, 
         FormBox["20", TraditionalForm]}, {60.5, 
         FormBox["40", TraditionalForm]}, {40.5, 
         FormBox["60", TraditionalForm]}, {20.5, 
         FormBox["80", TraditionalForm]}, {0.5, 
         FormBox["100", TraditionalForm]}}}, {{{0.5, 
         FormBox["1", TraditionalForm]}, {19.5, 
         FormBox["20", TraditionalForm]}, {39.5, 
         FormBox["40", TraditionalForm]}, {59.5, 
         FormBox["60", TraditionalForm]}, {79.5, 
         FormBox["80", TraditionalForm]}, {99.5, 
         FormBox["100", TraditionalForm]}}, {{0.5, 
         FormBox["1", TraditionalForm]}, {19.5, 
         FormBox["20", TraditionalForm]}, {39.5, 
         FormBox["40", TraditionalForm]}, {59.5, 
         FormBox["60", TraditionalForm]}, {79.5, 
         FormBox["80", TraditionalForm]}, {99.5, 
         FormBox["100", TraditionalForm]}}}}, GridLinesStyle -> Directive[
      GrayLevel[0.5, 0.4]], ImageSize -> Medium, 
    Method -> {
     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
      "DefaultGraphicsInteraction" -> {
       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
        "Effects" -> {
         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
          "Droplines" -> {
           "freeformCursorMode" -> True, 
            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
      "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
      "RangePadding" -> Scaled[0.05]}], 
   GraphicsBox[
    RasterBox[CompressedData["
1:eJzt3NFp3EAYBOCDVJJK3INLCMlzWk4JLiGE5MFSuEOcJe/M7veBkT0PlrQS
/ged8NdvP19/fLndbt//ff35HgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/vfr
Zfvz28t2u3d1fu947uUAAGc5q5+k9auzcgCAUc9/Zu1XZ62D52kAkGNUn9Gv
/krrV/oYABx39bxO6y0t+ah+5TkYABw3ao6n9ZbV8rTrCAAr0K8e56Oe/6Qd
v/f5AVhB2udBLf0qbX1a+tWo8wKAK8zaW1qOs6WHtJ+v97gAuEJLP2nvV6ut
T1pf8rwLgM/U3k/aj9/6PM71KwCStc9Z+XN5+3Vv6Vd6F8Ca2uesfM08rS/p
VwBrSpuPcvl77X1J7wJYU9ocaZ/jo+Z72vveaXna/aZfAXBE2jxK6yftx9+e
p91vehTAHK7++582p9L6Sfvxy7fbvVHXC4CxzpojafMurefM2g/T1jPtvvJ/
TQHWpF9tt3vt+WrrOer40+5nAMbSr7bbvVnzlr6x2n71K4A5mOPP7bc9n/W6
tO9XvwKYQ/scb8nTnr+l/f72/ab1LgDGSusVq/Wilny1dW4/LwDGWm1uyp/L
3SddOQBjmZvyI7n75Ll81DoAkGnWuTnreaXl+th2u3dWDkCXtDmVNtfSzjct
n3X9rz4v/QpgbrPOo7TcOj+X61cAzKR9HqXls879tPVJW2fvUwHwnrn/OG+f
++3r0LJu+hUAR6TNTe8Fjc3TrnvauulRAByRNjf1q8/J289r1PUCgI9YrV+N
mvvtfUO/AoCPm3Vet8/9lnVuOX4AmEnaHE/rDy39pKVfAUCj9s/LWvab9nnl
qH4FACtL6xVn9ZBZ+0za+utXAHBcWq9I+zyr5bmWHgUA80nrUbP2q3v0JQBA
v3qc60EAwNXa+xUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcIXfmmjBqw==

     "], {{0, 0}, {100, 100}}, {0, 1}], Frame -> True, 
    FrameLabel -> {None, None}, FrameTicks -> {{{{99.5, 
         FormBox["1", TraditionalForm]}, {80.5, 
         FormBox["20", TraditionalForm]}, {60.5, 
         FormBox["40", TraditionalForm]}, {40.5, 
         FormBox["60", TraditionalForm]}, {20.5, 
         FormBox["80", TraditionalForm]}, {0.5, 
         FormBox["100", TraditionalForm]}}, {{99.5, 
         FormBox["1", TraditionalForm]}, {80.5, 
         FormBox["20", TraditionalForm]}, {60.5, 
         FormBox["40", TraditionalForm]}, {40.5, 
         FormBox["60", TraditionalForm]}, {20.5, 
         FormBox["80", TraditionalForm]}, {0.5, 
         FormBox["100", TraditionalForm]}}}, {{{0.5, 
         FormBox["1", TraditionalForm]}, {19.5, 
         FormBox["20", TraditionalForm]}, {39.5, 
         FormBox["40", TraditionalForm]}, {59.5, 
         FormBox["60", TraditionalForm]}, {79.5, 
         FormBox["80", TraditionalForm]}, {99.5, 
         FormBox["100", TraditionalForm]}}, {{0.5, 
         FormBox["1", TraditionalForm]}, {19.5, 
         FormBox["20", TraditionalForm]}, {39.5, 
         FormBox["40", TraditionalForm]}, {59.5, 
         FormBox["60", TraditionalForm]}, {79.5, 
         FormBox["80", TraditionalForm]}, {99.5, 
         FormBox["100", TraditionalForm]}}}}, GridLinesStyle -> Directive[
      GrayLevel[0.5, 0.4]], ImageSize -> Medium, 
    Method -> {
     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
      "DefaultGraphicsInteraction" -> {
       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
        "Effects" -> {
         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
          "Droplines" -> {
           "freeformCursorMode" -> True, 
            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
      "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
      "RangePadding" -> Scaled[0.05]}], 
   GraphicsBox[
    TagBox[
     RasterBox[CompressedData["
1:eJztlutLk2EYh0d96WP/ga7SSDApDQWVNLPSxEKzTAtSXKssNVvGKk2TsIOS
hIrZQdJOWqJZSJZRKCZ4KiNQK1Kj/o/uuuPh4d1BNzef9u53cW2824fx/C7e
jRlzC9MOLzMYDKdW0FNazpn44uIca/pKepFRcOqoucCUl1RgMZlNxVG5y+nN
vH+PP9cAAAAAAAAAAAAAAAAAAAAAAAAAAACApWRw+jU7d363rOpz/V8cz+8g
HbU6dK+enA18pPqYiuFKC2/1c/04qfrUS4o1OZSVW73qeXE6aIB01IrkVv5T
LC4p2W6r2tpM21Ycym4r3eeiUHZbUSiyNGwPq2mV1tYu9J9WzLytxO3kvJWx
dhepeo3nCTpdJityde4IFLrXSme5NKEctbq+LoVs3ruO1RQjgx6a2abKlttZ
RbKqJ3qGGXOuk1bkhdZeVtPKthhaOW8l5+rKmhJebDwp25udoHroYqFQ5OYb
TzR6o5Wv57LbypjSLIwd+c7OjkWytq0ykrNYuVVoeBvZ/TaT9fVWaxr7Q7fH
kp5qJefStEqvvPL6XQKperSbiFYND6LZkqQNpNzqclQMOxzwiQyK6SFN1Xns
gakiUm7FiYQilK+3qjLFsJpWci45lKut+kfKWV9vJULZbaVR0yrw1ns2OatA
qLmjbFslRkawqqe7jEutatp7hCETA6626shMJ323VVlUtZBDja6xkFOlA8JF
tjpROMb6Qyuh3MraUkFetgyS1puz5OPHk+zJS7/IN3G5rO5bHTeGsHKriIhJ
Mr/vLOlqq4mX06zvtpoebSJ3rh2uSuiS9V6ryuCnrOrpLuNGq6ubotnBzBJZ
8ZOFVu61OpK4hdVBq6KiXpau9xXPskPXumVfxEULRSjbVpaQMVtFq8SubNZ3
W8l4o5VIJDTeKVE91H2qN1rYJWvlu7lEq8rUbFbTKjWpV1bOdf/jB6F1oFyo
11YE/56LVo1HZ4SaUAtslRBTQ7bXmVjdfAcNLrZqbOhjjfeOsdUVFaSTVm3x
+8lt7f9UPXexxIZbyLtVR1jRKr4znPRgK9VDPYCm1bPPX1luFTKxnh2ve+6o
1ZeRFnYurYvlRELdtDL8zbWQViTH0ThvK9X7PExK/ldW/En49qRPhFpgK00i
MuPHKKl6nLdw1OrKwWzhvK3Czl5idRwqYLX56qph1kmrxLAGWSetVA/yLm60
mhyalo1u3c2qnrIUcKv6N/3s1tFzrCaRo1b0CX4SSrCYVv7Jh+COeVupPuN/
h22rj3MbSNXnAgAAAAAAAAAAAAAAAAAAAAAAAAAAeuA3ih9gkg==
      "], {{0, 100.}, {100., 0}}, {0, 255}, ColorFunction -> RGBColor], 
     BoxForm`ImageTag[
     "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> 
      Automatic], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", 
    ImageSizeRaw -> {100., 100.}, PlotRange -> {{0, 100.}, {0, 100.}}, 
    ImageSize -> Medium]},
  "RowDefault"]], "Output",
 CellChangeTimes->{{3.808637925801469*^9, 3.8086379358722773`*^9}, 
   3.80863893537904*^9, 3.808639996509777*^9, 3.8086400776818247`*^9, 
   3.808640867284317*^9, 3.808642726488142*^9, {3.8086471383036547`*^9, 
   3.808647227052914*^9}, 3.80865328614529*^9},
 CellLabel->
  "Out[1168]=",ExpressionUUID->"8221efdf-c65d-4298-9761-8bf46a4862e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"Accumulate", "[", 
    RowBox[{"Normal", "@", "ls"}], "]"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Black"}], "}"}]}], ",", 
   RowBox[{"Filling", "\[Rule]", "Bottom"}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", "Bold", ",", " ", "12"}], "]"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Iteration\>\"", ",", "\"\<Energy\>\""}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "512"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQ/TldRPVK3BvHJwr5GiD6MN99AxB94nWEIYj2uK7v
CaKbat6Ggei2y1LyN4H0hB4XJRAdZblA/BOQVmzPUwTR1kfydUG0aDq3GYiO
u/87AUTn7LJIA9G3Qu2bQfQj02VtIFrrdskFEP1r4Z6LIFqg0fTsTyDtX3Hi
IoiWEg3L/gWk+VRZckH0OX3tHJeEN448D9vAtFRu1440IJ327OAuEO1h7H8A
RMdLex8G0Y/2R57NBNINcknnQPQ3O+OsLCBd9KgXTJ+T+1UAoound5WA6CrJ
ug0guq6pA0xPqfUyzQXSrzgiwDQA046ckg==
  "],
 CellLabel->
  "In[1169]:=",ExpressionUUID->"82b90eea-4824-43cb-adf5-9bef3fb6e505"],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt3f+bXVV59/GNBpli8DlqpGMJuAupDBL0gEEHimULEQaN9AApDhhlC0FH
jXJaIp1KKpsaZYAIBwkwaqpboDDaWE9rrAOEi12fgAOm5YgBD5DWLQQ7YJAj
DTDIF/t4Pu/PD1l/wnNtf2CuF/da6173vs/NT17X+uOzzzv13FdEUfSefaLo
93/1v96x/T/plwv+RdL/59jVeEBurMc1Of86XiA3b8KD8i57obzqZhzLs/+M
D5Qv+B5eJL/lVvxm+Y/sIXnpZvwWecpeLG+03yqXdl1eeQc+XP6yfYR8fIHf
Lp9gL5Ff/0N8JPez3yGfa79TPvr/4mH5FPso+Sz7aPmILfhP5VU/wsdw3t34
XfJx9p/Jb7gHHyvvtBN50Y/lDN+3lfi75aH/II6X4eg4+c57ieNGh/jxfWd2
hj/i+FL5a47j3zn+Hvm2nxDHHRyd0HcS30dcLn6JoxMVP+GnxOViCkcj8l7b
iAeOTtL+vR2Xi+/cT/y9im/CmVy89gHi75OX4kxOrnd8mfz9nxHHP8DR++Xn
HcfLu8RPlk/DmVzY0Z8r/iXH8b863pCncYLLB1mPZ3GBn8DRKcr3iofYjz+G
M7z8YfbLyUocnar4R3GCt+AM3+n9cvKA95+muJ3IyQveT/xn29lPvIej5XL6
X+yXCzvD47hg/XU4+gvFP/Nz9svJZ3Eml8eV7JfTU3B0unwaTuT4Epzh570f
/9b7P6Dz3/kL9svxNpzhLi5Y/zyORhUfeoT9cnoRzvA2XOD/xtEZfeez3h84
k8v4UfYT/zSOztR538eJnO+1g/14GS7k8jQcfXB3J/gc75fzS72f+DbvX6H8
D3s/fsj75bLn/cTvfIz9H1L8LpzI8Vac4b1/yX45fwBHH1b8Tf/Nfjm/BGf4
MlzI5T04OkvxX3k/ftL75XiX98vlM96fKl6flWN8E07wzTiV82/jjPgBj8u5
XJ6IC9aP4JL1r3iC/B9R/CAcy/HBOJHTQ3AqZ5fjDK/DOb4LF+zv4VIu7ehs
xUd+RX65PAUnxL+OU+I340yOb8I56w/aSX45fzMuif8MR+fIsziWy104IX7i
k+SX45NwhjfgnPX34AJvwyXnX/Br8q9UfNFT5JfjQ3Ai5+twSryFM7we55x3
HS6IfxWXxK/H0bk6f6vzy+3DeuSXe6fiNHAmt07HudzMcMF5f4dLuTaBo4/2
3bgBx3LtQefHzzq/3NnvN+SX6wtxLvcOxAX7j8Wl3Exw9DHd7904lnvH4yRw
ij/g/HLtDOfnPLuQGxc7P/HLnX9M+69wfrlznfPL7a3OLzf/w/mJ73B+4m9/
mvxydDwu5Xwpjj6u+HtxLCcfwokcn4VTvBJncmHnnPcJ58cfd37WOx59Qve5
0vnl9CrnlxM7Zf11zi9n1zq/XH7P+dm/x/+Qn/P3xtEndb8Ex3J2HE7wSTiV
y6/gTE424Bz/PS443/GS825x/lW6z93OL2ePOr9c2qmcP+/87Ldz9r/o/Kx/
2fmJ29GntP8l58ev3EV+OTkUp8RPxpkcfxjngQs5OwuXcrEKR5/uOzoPx3Js
J8Qvc345ucr55c4tzi/Xbnd+uX6X8+PHnf+8vsvnnF9u7vkM+eX6/jjFb8aZ
3DkY53LvLFzItctwyfob8f/7L9Hv/9m+Adfk+rdwLDencF3u3ez7sf/fcUOu
2Sn7O7hJ/Ce+P/nuxS3W3+d65NRuy7ldyOUTuIN/5Xrl5EncI77ns9T/l33H
83FNLl+NY/xaXJeLP8QJ8TfihpwfgFPOt5v4cJwFbsnZETjHjrfl9HRcyNEH
cYf1F+NSTi7BPfLd5vr/Svs7rl/Odrh+4rOuXy7e9hz1y7HdkEs7DdzkvLfi
TE4Pxy3yH4Fzzv8CbrP+27iQk+/gDvnskngb99i/BUfnKz6Da3J2N47l2K7L
+VbXL6cd1098h+vHj7l+zv+d6+f8veaon/vsjXO53Ae3yfd6XMjFfrjDecfh
knzvxj32L8XRau23a3L+fhzL0cdwnbidyPGVuCFndiqXX8NN8tkZ8cddf+Cc
/K97nvo53y447/W4w332xSXxN+Be4Ogz+h4H4JpcnIhjuUxxXY4+ghM5drzB
/rNxyvljuCknn8cZ63PcYv0NOMc3uX7W3+76uU/h+rmPXcqZ3QscXaDz73D9
crTd9cu1x12/3HvC9cvNnusnbqec97rfUr+cLMCZnO+LW3JxBM7l7B24zf5z
cEF8Je4Q/ygu5fiTuEe9n8PRXyvfelzDt+NYTh/AdTm2E7wNN+Ty5ziVo9L1
s37W9ZNvzvWz/nnXz3mDL1C/nL8RF+zfH3fkxC7xMO7J2VE4Gtd5Z+OaXJyL
Y9zEdbm0Ezk7Hzfk+Eqc4hZuks/O5OQm3OL8m3HO+m+5fjn9R9fP+RtdP/Fn
XD/3e9b1U8+eL1L/3yjfAK7J6atxLGd2nfUH4kRO7Ab7D8GpnH8KN+X4PJwF
bnHeFM7l6GbcJv8PcMH9tuIO6+1SLh7EPe73sOv/rPb3XL+cv+D68UuuX45f
dv3E3/IS9cvF6TjFZ+Cm3DwLZ3LjI7glt6/Hudy7CbdxGxdyx+5wvl1yvx/i
Ht6Gowv1PZ7DNTl7GcdyvMfL1E98f5yw327IkZ2yfwVust7O8Fm4JRd2zn67
HawvWH8+7gQuWX8F7nHetThao+9xPa7J2Q04Jn6r65fLLa6f+GOuH//x76gf
H4ibcnQQzuTEbsmx1+fcZxFuy+nhuOC89+AOPgGX5D8V99g/iqO/Vf4zcU0u
/hrHcroW1+XsCzhh/SW4wfqbXL9c2k322xn7/931c597Xb8c/dT1s36H6+e8
x1w/+V4b/Zvql+sLcY/1dvS5vlsH4JqcHoJjubDrcuetOMFvww25Wccp8SW4
KdfsTM7sltw+Eudy/Z24zfp34UIu7Q777ZL9do/8x7r+i3Rfuya3Etcv15a6
fuKnuH65c6rrZ/1K1y/3PuP65fYFrl+OLnX9+DLXL8frXL9ctwu5uNz1y7ld
yqndC86Lsr6Tq/GA3Njg7yEXX8ODcsuOg/iQnH7d30uO7WE5shO5/Q08Qtxu
sN8elZvf8vdlvz0mZ3aTeuxxzv+2v79ctyfk2j+7H+S3JznvVveH+9hTcn6b
+0W+O/A03+s+94/7/xTPcP9t7iff837cJW6X5HsAz1JP1/2WOw/iOe5Tuv8X
q94n3X+58Qd70H85WYAH5aYdy51BPCTXj8D1wMOBk8AjcnkSbsjR+/Ao97FT
7n8aHpOLD+GmnH8cj8ttO5NH/xJPyHN2Sx46H0/Kg6txLo9ciKfkiYtwW57J
8DS+GBfy1OfxDOfbHXnc7spdu5R7E3iWelu4R732HN/3Khz9nb7nV/GAnG5w
/+WGPRg4Zv317r+c23XO/wf3X46m3X+59QP3X87sRhAfJd8d7r88cpf7Lw/+
yP2Xpx0fl7t2Jo96/YQ81nH/A0/Ks/e7/8QfcP+5T9f9l4fsadY/5f5z3577
L4//2v2XJ3/j/ssTT7v/8pQ9y3kvu//ygD3H93jJ/f+89kevoP/yxGtwTR7Y
Fw/Ks2/AsTxyEB6S63+C63JpDxM/GCdyxx6Rk0NwQ27ao4FT1r8DjwVuytEw
HpdzO+N+R+MJvBS3uJ89yXkNnHMfe0runYnb+Cw8LWcpLgLPcH+7Izfsrpza
ZRCf5fvaPXw2nmP/OThaq/i57r+c2LUgPijX7Fhu2UNyatflhj0sxx91/1n/
cfef/J9w/4mvcv+Jf8r9l9sXuv9ydon7z/3Xuf9y50vuP/Vc4f7Lkd2Si0n3
n3qvc//l3J7iPK9vc549TX6vL4h/xf3nfLtDPXZXbtol6ze4/3L5Lfdf7tlz
3O977v8XVN9m91/u2TW5drf7L9ftmPUz7r/cusf9lxN7WC63uv9yc5v7z/77
3X/W26Pks1PO77r/3M9u4gfdf+p9yP3nPHuC9Q+7/0F8kvs6nsvRf7r/3GfW
/Zc7z7r/+Bn3X44dn5Ebdidwl37YJfufc//ltt3Dc+4/39OOvig/7/7L8W/d
fzl5wf2Xa697Jf2XO/vhIbll1zkvxsNyaidBfIR8B+IG8YPwqFw/FKf4MDwm
9xbjJud5/bjctjO5sCfYb7fk6Ag8KTftnHrejqc4z26T/0g8LTeOwQX12TNy
fhLucB+7y3q7pP5T8SzrT8E9zjsDzxG3o0tUz5l4QE4+iGty5vigXNgx8RXu
vxyf6/6zvun+y/UL3X/y2yNyajfk3B6VWxe7/3Lt8+4/97ebctseJ/9a918u
L3X/A7fkxmXuv9y7yv3n/Kvdf7lzjfvP/a51/wMXnG/PcL73dzjf7gb7S/Zv
cP9Z/233n/PsOb7vRvd/Qt/DHpCbdk0uvuP+y9E/uf9y+l33n/WO1+XM8WHi
bfef/Le4/3LDbsjtafeffHbKfe50//GP3H+5c5f7L5d2xvoZ91+u3e3+k//H
7j/r73f/uc/P3X/2/8L9p75H3P/Ahdzz+hm+l93he9hd+mOXcsue5fvaveD8
Oep3/uhSxR91/+Xcrsk1e1AufV4sN33ekJzYdTzr/uOn3H+5sEdwz/0PPMp9
f+P+y5k9Jreedv/l+v+4/5wXzaP/cnsPPEH9jreo3/FJzrfzwFPy4J64LU/b
03LXLoL4jDxhdwJ35dl9cCkPvwbPyqP74R757Dm8CEeX6b5/ggfk4UNxTZ44
DA/K02/DsTxyBB6SJ/8M1+UBe1geOhYn5LNH2G835PGT8Cjn2Snr7TF5zG5y
v/ficTle5v7jU9z/wC05syflzqnuv9y0p+T0NPdfbtjTQbyQa6e7/+SzO8Q/
4P6z3y657xnuv5w33X/Os+e4vx1drvhfuf9yYtfkpj0ot+1YTj/r/rP+Qvef
8+1h9nt9Qtwekete3wg8KtfWuv/E7THOt5vUc4n7Tz47k6MJ91+O17n/+HL3
n3x2zn6vnwrcxle6/3LnKvef865x/wN35N7X3H/qscvAs3LD7nHeBvc/cLSu
75Y9IMd2TS583qDcdDyWc3tIbtt1uWYPr9u9nmTd7vcdkSOvb5Dv6+6/nNop
9/uG+x+4ST3fdP+p9yb3n/v/o/vP/Ta6/4Encdv9p97vuv/c3/G23Jl2/wMX
gWe4zy3uP/Xe6v7L2W3uP9/vdvef+A/df7l+n/vPeT91/7+k/V33X04edP/l
Xun+y5Edy6k9JDftOvFfuP9y5xH3X87tEfb/0v2X2/aoXH/S/Q88xv3tplzu
dP+5j50Rf8r95z52i/v03H++l50HnpJjuy0X9nSwvuB7Pu3+yzW7w3m/cf9Z
b5fc91n3n+9h9+SZ59x/uWtHV/Q9OOf+yzPPu//ytD0oz9mxPPvKPek/6+26
PGUPy8N74YT8r8IjxO2GPLonHpXH7FSetMe4n93kfvY4+31+xn3tCeq3W5zv
+04St/PAU/KA3cY+b5r8b8QF8T/CM+SzO3yPg3GX73koLsm/GM+y/jDck4fs
OXnC66MrdR97QJ6ya/LAkXhQnnwHjuXhd7r/ctfxujzi+LA8biecb4/IE3ZD
Hhp2/+XBo91/4n/q/pP/KPdfnrPHsfdn5Pf+Cc63W9zHnpRn7Jz173L/WX+M
+8/3sqep/wT3n/0nuv98/5Pdf/LZXe5vl5x3hvtPP+we59lz5DvT/W/t7nny
kD0gD9jzg3gNfxAvkGcdHwziC8lnx/KwvShYPySPn4MXyxN2XR5ZiZcEHpbH
7GPkKTsh/7l4abB/RB61l3H/Vf59EreX873sUXnuk3iFPOl4GuxfSb2f8u85
8Cp52m7KXe9fLc982r936vP6NXxfO+N72msDTwRex/nO1wq8PqhvMvAGvr+d
E/f3uZHz7Cl+T/bG4Hu2+T7n4018T3ua+tfgzfTXLvieF+It/F4+53kkn72V
73eR55Pz7G30w+u71Of4dvJlnl/2T+Ad/H7sWb7HJXgn38/uBd7F97Dn+H5f
xC+y3o6u0vn2vMAD8oDPmx+4dtXu5y+4avfzBwMvlKddXyx37UXy2KWef+5z
uec/cF2es5dwH3uY87/s+ef+13j+5UF7KfFrPf/sd3xZ4Ab3/XvPvzxsj8oj
3/D8y6N2Sv7c88/3sce4zzc9/4Gb1O/1q+Xm9Z5/ufT6NXLd8SyIr5U79oQc
ef06ued8rcDrA09yvr1Bbtu5nDnfjcTtqeA+G4nf4Pln/z95/ln/Hc8/38Px
zaz/rudfTu0tcsOekSe/5/mn33aH38O/eP7pj+PdYP92eWiT55/1/+r5p5/f
9/zze7Z3Bu6R394l57d4/uXWbZ5/vt+tnv8v7+55gQcCzw9ck1Ofv0Du2YOB
F7LfjuXSXkT8ds+/XNzh+Zdzuy7H/+b5lyN7WE4Kzz/3tRO5bi8NPML59jLq
cf5GcL/lcscelTPfZ4Xc+KHnX27ZK+Wm148FXkU+uxmcv5rv4/uOc77vs4b8
dka9d3r+OX+L5596HF8XuMX3uMvzT/9+5Pnn+814/rmv4zn3tW8M9k8F3hi4
TX32Ju7jfNOstzdTn9cXQf4t/D7u9vzz+7zH88/3szucb28jv92l/h97/rHj
Jd+j4/nnfvZsEN/JfrtH/F7PP9/DngviL1KvHV3dd8eeJ6c+f0Bu2POv3j1/
TU68fwH7H/T8s95eKNfsWI4e8vwTt4cCL5Zz768HXhKcN4wf9fzL5SOef7np
+FK+xw7PP3F7mdzz+gbr7eXU+5jnP/CKwKmc2Ss5f9bzz33tVdzncc8/++3V
nG+PB/E1cmFnrH/C8y+3nvb8s99ex/3sltx+zvMfeBLPef45384572XPP/3c
61XMP/vtjUG8zfexN1Hfq/E0/Z+PNwcu5Po+eAu/X3uG/v4h3krc7rDf3sb3
tLvcb1+8nXmyS37f9g76uz+e5XvZO6nP7vF9DsC7uN+b8Bz3s18MHK3X+fY8
uWEPBJ6/fvf9tcAL8EF4UO4eiBcGjuU5e5E87P1D8vQQXsx+uy7P2kvYfwge
xm/Bx8hjdiKPHI6X4qPwCPvtZeS3G+S3lwceJd/ReAX1Ho9TedxeGXhMHlqK
V3G/k3GTuL2a+70fj8tT9hp5xuuzYP9aedCeoB7vXyePOt4K9q8P7jdJPfYG
eeIvcM559o3k+4Dnn/uMev6DeJv8qeef+s/y/MsDjm8OXNCPD3v+iXv/jDzp
+Fb6aXeo1+dto75PeP753vZ2fs92yfmf9Pyz/tOef+o5z/NPvqbnn/te4Pkn
vz3H7/cznn++lx1do3z2PHnMHpBH7PnyoM+vXbN7/gWstwfxhZ5/edyO5SF7
EfHPef6530Wef7lr1+VJe4k8nHn+ue8XPP+s/6LnX567zPMvT1/h+Se/vSyI
N+SJL3n+yXel55/67BXk9/6U72Ov5P5eP8b5V3v+idtN8tmrA4/zvdZ7/uVZ
OyO/vZb+2xPc114nT9mt4Lz1fC97kvg1nn9+L9d6/gPfyPn2FOfZG7mf3ZZH
7U3c157m+1/n+ec+jhd8H3sLvz97Jrj/VvwNzz/77W1BvMvvy97O+d/0/NMv
ewfrc88/9Tm+k9+D3Qviu/h+9hzf9wbPP9/Pjq7V+hs9//KMPSDP2fPlCbsW
rF8gT9qD8pi9UB60Y3n6Hzz/8tB3Pf+cZy+Wx+16EF8iz9rD5Gt7/qnH8STw
0mD9CPU6vkwesRvysL08uP8o/hfPP9/DTuVReyXf8zbPf+BV7N/s+ed8ezX3
t8f5XvaawJk8cLvnPzh/gvrsday3W3zvWz3/nO/7TrLf8Q34Ts8/9d/l+ec8
e4r+3O35Z/09nn/6YW/CHc8/3+9ezz+/F8cLfv/2Fur/ieefeuytnG93gvg2
9m/z/HPfruef/thl4B3U/zPPP/ke9vwH7tH/hzz/9Meeo74HPf+Bo+uU354X
eECetufLk3aN9b7PAnnW+QfZ/wvPv9y1Y3nGXiQPPeL5l4ftxUG8znmPev5Z
/5jnXx6wj+G+diKPP+n5lyd2ev7Z/2vPvzz6lOef+DOef+p91vNPffYKecRO
5Sl7Jd/PHiPfnOef/XaT+HOef3nuBc8/+e01fK8XPf+sf8nzz/3tCdbb6/he
dov89vogPhnEN1CfneOXPf98z995/umHvZHvZbc5394UeDq4/+agvgJ7/RZ+
3/YM97O3ymN77MX883uzt3Ffu8t97e30wy75XvYO7m/P0u8I72T/nrjH7/lV
eFfgOe5rv8j97GhS9e6F58kDA3hAnnF8vjxn1wIvkLv2oDxhL5RH7FgetxcF
8aFg/+LgPnXy/QFeQtweDnyMPGsn8rS9NDhvhO+xN14mj9qNwMv5nvaoPGav
oD47lafsldRrjwVexX3tJnHfd3Vw/3HW74PXBM64z2vwWu7/f/AE6+11fM8a
btE/x9fzPexJefgNeAP57DzwjZy/AE8F8Y18T7sdxDfxPfbF0/KQvZl+2gX7
7S38nn3eDPU4vjVY3+F7e/02fl92N8i3PXApD3r9jsCz5Ld3st/uUe/+nn/u
Y8/x/e0XA0df2d3z5LmFnn95dj/Pvzxj1+SuvQB7/6A8ZC8kn9fHxO1F7H+j
5z/wYnnCrhN/k+dfHrGH5emDPf/U82bPP+c5vpT1h3r+5cnFnn957DDPvzxu
L5cH7VF5yvtX8P3sNPBKzq97/uVRexXxwz3/7LdX832P8PxTn70mWJ9Rn72W
euyJ4D7riNst8tnrg/gkv6e3ef4D5/TDvpH+LfH8c/7bPf+sdz1tznN8E9/f
+6flAXsz/bULvo+9JVg/E5y/lf12J/A27md32e/ztvN7P9LzT332Dn4vXj8b
3HdnEO+Rz95FPcOef/LZL/J97OirfY/a8+Qxe0Ces+fLg0d5/uUBe4E8YQ/K
s96/EL/L88/59iJ5xh6Su/Zi7pd4/vG7Pf+BhznP64+RhxxPAi+lnuM8/8H+
ZdzHbshTXr+c9Sd6/vm+9gp52E75Xu/z/BP/c88/39teRfxkzz/f7/2ef9Y7
Ph6sX0N9dhbE18rT9gT3O82/F70PFbp6L6p6L0rx6r2o/v7qvSi5ei9K66v3
othfvRfVj1fvRcnVe1FaX70XRf7qvaj+/uq9KPJX70X1j6neiyJ/9V5U/19X
70XJ1XtRfVfvRVXvRan+6r2o/t/qvSjqr96L6u+v3oui/uq9qP751XtR1F+9
F9U/v3ovivqr96L6x1TvRfH/L6jei+rnr96Lov7qvaj+Nav3ouh/9V5U/zNV
70XRf7l6L6p6L6rv6r0onVe9F0X/q/ei+n+q96Lof/VeVP8+1XtR9L96L6qf
v3oviv5X70Xt5uq9KOWv3oui/9V7UX1X70XR/+q9qN//qd6Lcv+r96L616re
i6L/1XtR/ftV70XR/+q9qP6x1XtR9L96L6p/v+q9KPpfvRfVd/VeFP2v3ovq
L6vei5Kr96L6rt6L8vxX70X191fvRTH/1XtRv/9TvRfl+a/ei9rtftV7UX1X
70V5/qv3ovrrq/eimP/qvaj+tuq9KOa/ei+qf83qvSjmv3ovqp+vei+K+a/e
i+rfr3ovivmv3ovq3696L4r5r96L2i1evRel+1fvRTH/1XtR/fqq96KY/+q9
qP73qt6LYv6r96L6/6zei2L+q/ei+vev3oti/qv3ovrXqN6LYv6r96L68eq9
KOa/ei+qv6x6L4r5///3vaj/Bdgtm+Y=
    "], {{{}, 
      {GrayLevel[0], Opacity[0.2], EdgeForm[None], 
       GraphicsGroupBox[PolygonBox[CompressedData["
1:eJxF2NO2GAiQBdAb27Zt27Zt27Zt27Ztuzu22R3b6czOzMM87FVfcFZVnUSN
O1RuHzggICAQS4L//1zMIhaygPnMYy5zmM0sZjKD6UxjKlOYzCQmMoHxjGMs
YxjNKEYyguEMYyhDGMwgBjKA/vSjL33oTS960oPudKMrXehMJzrSgfa0oy1t
aE0rWtKC5jSjKU1oTCMa0oD61KMudahNLWpSg+pUoypVqEwlKlKB8pSjLGUo
TSlKUoLiFKMoRShMIQpSgPzkIy95yE0ucpKD7GQjK1nITCYykoH0pCMtaUhN
KlKSguQkIylJSEwiEpKA+MQjLnGITSxiEoPoRCMqUYhMJCISgfCEIyxhCE0o
QhKC4AQjKEEITCAC+B0sIOA/fvGTH3znG1/5wmc+8ZEPvOcdb3nDa17xkhc8
51/+4RlPecJjHvGQB9znHne5w21ucZMbXOcaV7nCZS5xkQuc52/+4hxnOcNp
TnGSExznGEc5wmEOcZAD7Gcfe9nDbnaxkx1sZxtb2cJmNrGRDaxnHWtZw2pW
sZIVLGcZS1nCYhaxkAXMZx5zmcNsZjGTGUxnGlOZwmQmMZEJjGccYxnDaEYx
khEMZxhDGcJgBjGQAfSnH33pQ2960ZMedKcbXelCZzrRkQ60px1taUNrWtGS
FjSnGU1pQmMa0ZAG1KcedalDbWpRkxpUpxpVqUJlKlGRCpSnHGUpQ2lKUZIS
FKcYRSlCYQpRkALkJx95yUNucpGTHGQnG1nJQmYykZEMpCcdaUlDalKRkhQk
JxlJSUJiEpGQBMQnHnGJQ2xiEZMYRCcaUYlCZCIRkQiEJxxhCUNoQhGSEAQn
GEEJQmACEcDvoPLPL37yg+984ytf+MwnPvKB97zjLW94zSte8oLn/Ms/POMp
T3jMIx7ygPvc4y53uM0tbnKD61zjKle4zCUucoHz/M1fnOMsZzjNKU5yguMc
4yhHOMwhDnKA/exjL3vYzS52soPtbGMrW9jMJjaygfWsYy1rWM0qVrKC5Sxj
KUtYzCIWsoD5zGMuc5jNLGYyg+lMYypTmMwkJjKB8YxjLGMYzShGMoLhDGMo
QxjMIAYygP70oy996E0vetKD7nSjK13oTCc60oH2tKMtbWhNK1rSguY0oylN
aEwjGtKA+tSjLnWoTS1qUoPqVKMqVahMJSpSgfKUoyxlKE0pSlKC4hSjKEUo
TCEKUoD85CMvechNLnKSg+xkIytZyEwmMpKB9KQjLWlITSpSkoLkJCMpSUhM
IhKSgPjEIy5xiE0sYhKD6EQjKlGITCQiEoHwhCMsYQhNKEISguAEIyhBCEwg
AvgdRP75xU9+8J1vfOULn/nERz7wnne85Q2vecVLXvCcf/mHZzzlCY95xEMe
cJ973OUOt7nFTW5wnWtc5QqXucRFLnCev/mLc5zlDKc5xUlOcJxjHOUIhznE
QQ6wn33sZQ+72cVOdrCdbWxlC5vZxEY2sJ51rGUNq1nFSlawnGUsZQmLWcRC
FjCfecxlDrOZxUxmMJ1pTGUKk5nERCYwnnGMZQyjGcVIRjCcYQxlCIMZxEAG
0J9+9KUPvelFT3rQnW50pQud6URHOtCedrSlDa1pRUta0JxmNKUJjWlEQxpQ
n3rUpQ61qUVNalCdalSlCpWpREUqUJ5ylKUMpSlFSUpQnGIUpQiFKURBCpCf
fOQlD7nJRU5ykJ1sZCULmclERjKQnnSkJQ2pSUVKUpCcZCQlCYlJREISEJ94
xCUOsYlFTGIQnWhEJQqRiUREIhCecIQlDKEJRUhCEJxgBCUIgQlEAL89qP/x
i5/84Dvf+MoXPvOJj3zgPe94yxte84qXvOA5//IPz3jKEx7ziIc84D73uMsd
bnOLm9zgOte4yhUuc4mLXOA8f/MX5zjLGU5zipOc4DjHOMoRDnOIgxxgP/vY
yx52s4ud7GA729jKFjaziY1sYD3rWMsaVrOKlaxgOctYyhIWs4iFLGA+85jL
HGYzi5nMYDrTmMoUJjOJiUxgPOMYyxhGM4qRjGA4wxjKEAYziIEMoD/96Esf
etOLnvSgO93oShc604mOdOBPydGOtrShNa1oSQua04ymNKExjWhIA+pTj7rU
oTa1qEkNqlONqlShMpWoSAXKU46ylKE0pShJCYpTjKIUoTCFKEgB8pOPvOQh
N7nISQ6yk42sZCEzmchIBtKTjrSkITWpSEkKkpOMpCQhMYlISALiE4+4xCE2
sYhJDKITjahEITKRiEgEwhOOsIQhNKEISQiCE4ygBCEwgQjgdyD55xc/+cF3
vvGVL3zmEx/5wHve8ZY3vOYVL3nBc/7lH57xlCc85hEPecB97nGXO9zmFje5
wXWucZUrXOYSF7nAef7mL85xljOc5hQnOcFxjnGUIxzmEAc5wH72sZc97GYX
O9nBdraxlS1sZhMb2cB61rGWNaxmFStZwXKWsZQlLGYRC1nAfOYxlznMZhYz
mcF0pjGVKUxmEhOZwHjGMZYxjGYUIxnBcIYxlCEMZhADGUB/+tGXPvSmFz3p
QXe60ZUudKYTHelAe9rRlja0phUtaUFzmtGUJjSmEQ1pQH3qUZc61KYWNalB
dapRlSpUphIVqUB5ylGWMpSmFCUpQXGKUZQiFKYQBSlAfvKRlzzkJhc5yUF2
spGVLGQmExnJQHrSkZY0pCYVKUlBcpKRlCQkJhEJSUB84hGXOMQmFjGJQXSi
EZUoRCYSEYlAeMIRljCEJhQhCUFwghGUIAQmUKD/K6Z/G//xi5/84Dvf+MoX
PvOJj3zgPe94yxte84qXvOA5//IPz3jKEx7ziIc84D73uMsdbnOLm9zgOte4
yhUuc4mLXOA8f/MX5zjLGU5zipOc4DjHOMoRDnOIgxxgP/vYyx52s4ud7GA7
29jKFjaziY1sYD3rWMsaVrOKlaxgOctY+qf/ZzGLWMgC5jOPucxhNrOYyQym
M42pTGEyk5jIBMYzjrGMYTSjGMkIhjOMoQxhMIMYyAD604++9KE3vehJD7rT
ja50oTOd6EgH2tOOtrShNa1oSQua04ymNKExjWhIA+pTj7rUoTa1qEkNqlON
qlShMpWoSAXKU46ylKE0pShJCYpTjKIUoTCFKEgB8pOPvOQhN7nISQ6yk42s
ZCEzmchIBtKTjrSkITWpSEkKkpOMpCQhMYlISALiE4+4xCE2sYhJDKITjahE
ITKRiEgEwhOOsIQhNKEISYiA/635/1R9f979Pyf/n7Uf8D+puEaa
         "]]]}, {}, {}}, {{}, {}, 
      {GrayLevel[0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large], 
       LineBox[CompressedData["
1:eJwl2UMQIEgSAMCxbdu2bdu2bdu2bdvcHdu2bXPncuIeGRXR/2InbNS+UruA
AQIEWBQsQIC/MRCBCUJQPAcITghCEorQhCEs4QhPBCISichEISrRiE4MYhKL
2MQhLvGITwISkojEJCEpyUhOClKSitSkIS3pSE8GMpKJzGQhK9nITg5ykovc
5CEv+chPAQpSiMIUoSjFKE4JSlKK0pShLOUoTwUqUonKVKEq1ahODWpSi9rU
oS71qE8DGtKIxjShKc1oTgta0orWtKEt7WhPBzrSic50oSvd6E4PetKL3vSh
L/3ozwAGMojBDGEowxjOCEYyitGMYSzjGM8EJjKJyUxhKtOYzgxmMovZzGEu
85jPAhayiMUsYSnLWM4KVrKK1axhLetYzwY2sonNbGEr29jODnayi93sYS/7
2M8//MsBDnKIwxzhKMc4zglOcorTnOEs5zjPBS5yictc4SrXuM4NbnKL29zh
Lve4zwMe8ojHPOEpz3jOC17yite84S3veM8HPvKJz3zhK9/4zg9+8ovf/Mcf
/iZ/QAIRmCAEJRjBCUFIQhGaMIQlHOGJQEQiEZkoRCUa0YlBTGIRmzjEJR7x
SUBCEpGYJCQlGclJQUpSkZo0pCUd6clARjKRmSxkJRvZyUFOcpGbPOQlH/kp
QEEKUZgiFKUYxSlBSUpRmjKUpRzlqUBFKlGZKlSlGtWpQU1qUZs61KUe9WlA
QxrRmCY0pRnNaUFLWtGaNrTlb/FuTwc60onOdKEr3ehOD3rSi970oS/96M8A
BjKIwQxhKMMYzghGMorRjGEs4xjPBCYyiclMYSrTmM4MZjKL2cxhLvOYzwIW
sojFLGEpy1jOClayitWsYS3rWM8GNrKJzWxhK9vYzg52sovd7GEv+9jPP/zL
AQ5yiMMc4SjHOM4JTnKK05zhLOc4zwUuconLXOEq17jODW5yi9vc4S73uM8D
HvKIxzzhKc94zgte8orXvOEt73jPBz7yic984Svf+M4PfvKL3/zHH/42/oAE
IjBBCEowghOCkIQiNGEISzjCE4GIRCIyUYhKNKITg5jEIjZxiEs84pOAhCQi
MUlISjKSk4KUpCI1aUhLOtKTgYxkIjNZyEo2spODnOQiN3nISz7yU4CCFKIw
RShKMYpTgpKUojRlKEs5ylOBilSiMlWoSjWqU4Oa1KI2dahLPerTgIY0ojFN
aEozmtOClrSiNW1oSzva04GOdKIzXehKN7rTg570ojd96Es/+jOAgQxiMEMY
yjCGM4KRjGI0YxjLOMYzgYlMYjJTmMo0pjODmcxiNnOYyzzms4CFLGIxS1jK
MpazgpWsYjVrWMs61rOBjWxiM1vYyja2s4Od7GI3e9jLPvbzD/9ygIMc4jBH
OMoxjnOCk5ziNGc4yznOc4GLXOIyV7jKNa5zg5vc4jZ3uMs97vOAhzziMU94
yjOe84KXvOI1b3jLO97zgY984jNf+Mo3vvODn/ziN//xh79Df0ACEZggBCUY
wQlBSEIRmjCEJRzhiUBEIhGZKEQlGtGJQUxiEZs4xCUe8UlAQhKRmCQkJRnJ
SUFKUpGaNKQlHenJQEYykZksZCUb2clBTnKRmzzkJR/5KUBBClGYIhSlGMUp
QUlKUZoylKUc5alARSpRmSpUpRrVqUFNalGbOtSlHvVpQEMa0ZgmNKUZzWlB
S1rRmja0pR3t6UBHOtGZLnSlG93pQU960Zs+9KUf/RnAQAYxmCEMZRjDGcFI
RjGaMYxlHOOZwEQmMZkpTGUa05nBTGYxmznMZR7zWcBCFrGYJSxlGctZwUpW
sZo1rGUd69nARjaxmS1sZRvb2cFOdrGbPexlH/v5h385wEEOcZgjHOUYxznB
SU5xmjOc5RznucBFLnGZK1zlGte5wU1ucZs73OUe93nAQx7xmCc85RnPecFL
XvGaN7zlHe/5wEc+8ZkvfOUb3/nBT37xm//4w9+FPyCBCEwQghKM4IQgJKEI
TRjCEo7wRCAikYhMFKISjejEICaxiE0c4hKP+CQgIYlITBKSkozkpCAlqUhN
GtKSjvRkICOZyEwWspKN7OQgJ7nITR7yko/8FKAghShMEYpSjOKUoCSlKE0Z
ylKO8lSgIpWoTBWqUo3q1KAmtahNHepSj/o0oCGNaEwTmtKM5rSgJa1oTRva
0o72dKAjnehMF7rSje70oCe96E0f+tKP/gxgIIMYzBCGMozhjGAkoxjNGMYy
jvFMYCKTmMwUpjKN6cxgJrOYzRzmMo/5LGAhi1jMEpayjOWsYCWrWM0a1rKO
9WxgI5vYzBa2so3t7GAnu9jNHvayj/38w78c4CCHOMwRjnKM45zgJKc4zRnO
co7zXOAil7jMFa5yjevc4Ca3uM0d7nKP+zzgIY94zBOe8oznvOAlr3jNG97y
jvd84COf+MwXvvKN7/zgJ7/4zX/84e+xLyCBCEwQghKM4IQgJKEITRjCEo7w
RCAikYhMFKISjejEICaxiE0c4hKP+CQgIYlITBKSkozkpCAlqUhNGtKSjvRk
ICOZyEwWspKN7OQgJ7nITR7yko/8FKAghShMEYpSjOKUoCSlKE0ZylKO8lSg
IpWoTBWqUo3q1KAmtahNHepSj/o0oCGNaEwTmtKM5rSgJa1oTRva0o72dKAj
nehMF7rSje70oCe96E0f+tKP/gxgIIMYzBCGMozhjGAkoxjNGMYyjvFMYCKT
mMwUpjKN6cxgJrOYzRzmMo/5LGAhi1jMEpayjOWsYCWrWM0a1rKO9WxgI5vY
zBa2so3t7GAnu9jNHvayj/38w78c4CCHOMwRjnKM45zgJKc4zRnOco7zXOAi
l7jMFa5yjevc4Ca3uM0d7nKP+zzgIY94zBOe8oznvOAlr3jNG97yjvd84COf
+MwXvvKN7/zgJ7/4zX/84e+hPyCBCEwQghKM4IQgJKEITRjCEo7wRCAikYhM
FKISjejEICaxiE0c4hKP+CQgIYlITBKSkozkpCAlqUhNGtKSjvRkICOZyEwW
spKN7OQgJ7nITR7yko/8FKAghShMEYpSjOKUoCSlKE0ZylKO8lSgIpWoTBWq
Uo3q1KAmtahNHepSj/o0oCGNaEwTmtKM5rSgJa1oTRva0o72dKAjnehMF7rS
je70oCe96E0f+tKP/gxgIIMYzBCGMozhjGAkoxjNGMYyjvFMYCKTmMwUpjKN
6cxgJrOYzRzmMo/5LGBhsP//Q/0PtTVF7g==
        "]]}}}], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Iteration\"", TraditionalForm], 
    FormBox["\"Energy\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0], Bold, 12],
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->512,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1698.}, {-191089., 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.808568255152481*^9, {3.8085683083845205`*^9, 3.808568315656785*^9}, {
   3.808588216192337*^9, 3.8085882317071085`*^9}, {3.808588477584202*^9, 
   3.808588481471619*^9}, {3.8085886168773603`*^9, 3.808588619473598*^9}, 
   3.8085887731532507`*^9, 3.808588873224943*^9, 3.80858961584837*^9, 
   3.808589688665832*^9, 3.808589741065505*^9, 3.8085897936221313`*^9, 
   3.8085903284585934`*^9, 3.8085903739069195`*^9, 3.808590477820186*^9, 
   3.8085916494707108`*^9, {3.808592197784645*^9, 3.808592208679535*^9}, {
   3.808592241588018*^9, 3.8085922569611382`*^9}, {3.808592305050434*^9, 
   3.808592310074956*^9}, 3.808593783048934*^9, 3.8086319848505774`*^9, 
   3.8086325644157057`*^9, {3.808632644040089*^9, 3.808632666814929*^9}, {
   3.8086333328703165`*^9, 3.8086333372246695`*^9}, 3.8086334903359766`*^9, 
   3.8086345883012567`*^9, 3.8086347103233347`*^9, 3.8086359035356474`*^9, {
   3.808637926017889*^9, 3.8086379414982347`*^9}, {3.8086384078125854`*^9, 
   3.808638422575841*^9}, {3.8086384675101976`*^9, 3.808638490738367*^9}, 
   3.8086388306211653`*^9, 3.808638880825707*^9, 3.808638937706306*^9, 
   3.808639027151004*^9, {3.8086399966523943`*^9, 3.8086399996282573`*^9}, 
   3.8086400778114777`*^9, 3.8086408673960185`*^9, 3.808642726608821*^9, {
   3.8086447161733103`*^9, 3.8086447233646283`*^9}, 3.8086459728096666`*^9, {
   3.8086460244997735`*^9, 3.8086460490454793`*^9}, 3.808646532586793*^9, 
   3.8086530964799232`*^9, 3.8086532862719517`*^9},
 CellLabel->
  "Out[1169]=",ExpressionUUID->"44b6d8f8-60e8-4d62-8a96-1fad3870c755"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Through", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", "0", "]"}], "&"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Apply", "[", "And", "]"}], "@*", 
        RowBox[{"Map", "[", "Positive", "]"}], "@*", "Values"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Position", "[", 
          RowBox[{
           RowBox[{"Values", "[", "#", "]"}], ",", "0"}], "]"}], "/.", 
         RowBox[{
          RowBox[{"{", "}"}], "\[Rule]", "Missing"}]}], "&"}]}], "}"}], "[", 
     "#", "]"}], "]"}], "&"}], "[", 
  RowBox[{"KeySort", "@", 
   RowBox[{"Counts", "@", 
    RowBox[{"Extract", "[", 
     RowBox[{"spCellArrU", ",", 
      RowBox[{"Normal", "@", "boundaryPts"}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8086350135824537`*^9, 3.808635073342354*^9}, {
  3.808635275495728*^9, 3.8086352893688383`*^9}, {3.808635327306281*^9, 
  3.808635467731168*^9}, {3.8086357873328624`*^9, 3.808635800675044*^9}, {
  3.8086358582735386`*^9, 3.80863586731885*^9}, {3.808636828043563*^9, 
  3.808636837334202*^9}, {3.808638300267462*^9, 3.8086383043976383`*^9}},
 CellLabel->
  "In[1170]:=",ExpressionUUID->"7bc959d2-87aa-4806-a614-c7a9e120ac4b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Missing", "[", 
    RowBox[{"\<\"KeyAbsent\"\>", ",", "0"}], "]"}], ",", "True", ",", 
   "Missing"}], "}"}]], "Output",
 CellChangeTimes->{
  3.808635010357106*^9, {3.8086350441109157`*^9, 3.808635073657117*^9}, 
   3.8086352055370307`*^9, {3.808635282596586*^9, 3.808635289707526*^9}, 
   3.8086353320447164`*^9, {3.808635379059479*^9, 3.808635476636877*^9}, {
   3.80863580423969*^9, 3.8086358172082376`*^9}, {3.808635859649166*^9, 
   3.808635937519043*^9}, {3.808636830068531*^9, 3.808636837662056*^9}, {
   3.8086379260388327`*^9, 3.8086379435226507`*^9}, {3.8086383011254416`*^9, 
   3.8086383088332386`*^9}, 3.8086388405194817`*^9, 3.8086390322078238`*^9, {
   3.808639996677327*^9, 3.8086400015870395`*^9}, 3.808640077864338*^9, 
   3.808640867420952*^9, 3.8086427266327567`*^9, 3.8086532863417687`*^9},
 CellLabel->
  "Out[1170]=",ExpressionUUID->"b0f888d5-0885-4b39-b97a-569021cedd17"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     RowBox[{"x", "\[GreaterEqual]", "0"}], ",", "Listable"}], "]"}], "@", 
   "cellperimeter"}], "//", 
  RowBox[{
   RowBox[{"Apply", "[", "And", "]"}], "@*", "Values"}]}]], "Input",
 CellChangeTimes->{{3.8085892467196913`*^9, 3.808589248435509*^9}, {
   3.8085892798478346`*^9, 3.8085892815089784`*^9}, {3.808589401267696*^9, 
   3.8085894025313625`*^9}, {3.8085916529168367`*^9, 
   3.8085916797090635`*^9}, {3.8086347130492573`*^9, 3.8086347136552157`*^9}, 
   3.8086359644866996`*^9, {3.8086364500672245`*^9, 3.8086364548070064`*^9}, {
   3.8086379514491205`*^9, 3.808637962113194*^9}, {3.808638319982974*^9, 
   3.8086383273014064`*^9}, {3.808640093814665*^9, 3.8086400943253975`*^9}, {
   3.8086410098422413`*^9, 3.808641048524557*^9}, {3.808641132825181*^9, 
   3.8086411682309437`*^9}},
 CellLabel->
  "In[1171]:=",ExpressionUUID->"c1401907-b692-4166-b698-a9bf16591979"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.8085892487915273`*^9, 3.8085892819376793`*^9, {3.8085893950424333`*^9, 
   3.80858942391899*^9}, 3.808589484235718*^9, 3.808589616091009*^9, 
   3.8085896888790708`*^9, 3.8085897413139715`*^9, 3.8085897938776307`*^9, {
   3.8085903285852566`*^9, 3.8085903351247325`*^9}, {3.8085903740395966`*^9, 
   3.8085903795931735`*^9}, {3.808590477957843*^9, 3.8085904825009418`*^9}, {
   3.8085916495943794`*^9, 3.8085916813217525`*^9}, 3.808592197908273*^9, 
   3.808592241720662*^9, 3.8085923051013117`*^9, 3.8085937831865644`*^9, 
   3.8086319849213877`*^9, 3.808632564448618*^9, 3.808632644074995*^9, 
   3.8086333329042244`*^9, 3.808633490372877*^9, {3.8086345883870277`*^9, 
   3.808634598174573*^9}, 3.8086347140983553`*^9, 3.8086347532932754`*^9, 
   3.808635908446992*^9, 3.8086359648141775`*^9, {3.8086364511854315`*^9, 
   3.808636455095662*^9}, 3.808637212055684*^9, {3.808637926102662*^9, 
   3.8086379623736534`*^9}, {3.80863831259984*^9, 3.8086383276446695`*^9}, 
   3.808638842331205*^9, 3.8086390334695163`*^9, {3.8086399967322087`*^9, 
   3.8086400040377407`*^9}, {3.8086400779171953`*^9, 
   3.8086400946843576`*^9}, {3.8086408674847813`*^9, 
   3.8086408732527423`*^9}, {3.8086410103822184`*^9, 3.808641048904736*^9}, {
   3.808641134752287*^9, 3.8086411757398887`*^9}, 3.8086427266816254`*^9, 
   3.808653286405624*^9},
 CellLabel->
  "Out[1171]=",ExpressionUUID->"0a719b43-6f94-4351-8dcd-eec423651c7c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"keys", "=", 
   RowBox[{"Keys", "@", 
    RowBox[{"ComponentMeasurements", "[", 
     RowBox[{"spCellArrU", ",", "\"\<Label\>\""}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.808652071082395*^9, 3.808652095156517*^9}},
 CellLabel->
  "In[1172]:=",ExpressionUUID->"27417581-2f53-4486-a996-ffe6d88664ba"],

Cell[BoxData[
 RowBox[{
  RowBox[{"masks", "=", 
   RowBox[{"Unitize", "[", 
    RowBox[{"Values", "@", 
     RowBox[{"ComponentMeasurements", "[", 
      RowBox[{"spCellArrU", ",", "\"\<Mask\>\""}], "]"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.808651784010404*^9, 3.8086518101877947`*^9}, {
  3.808651855287198*^9, 3.808651973837796*^9}, {3.8086520131119633`*^9, 
  3.808652052956456*^9}},
 CellLabel->
  "In[1173]:=",ExpressionUUID->"175867c3-e828-4c90-ae5c-25690e6e0345"],

Cell[BoxData[
 RowBox[{
  RowBox[{"types", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"#", "\[Equal]", "1"}], ",", 
         RowBox[{"1", "\[Rule]", " ", "Blue"}], ",", 
         RowBox[{"2", "\[Rule]", " ", "Red"}]}], "]"}], "&"}], "@", 
      RowBox[{"Max", "[", 
       RowBox[{"spTypeArrU", "*", "#"}], "]"}]}], "&"}], "/@", "masks"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.808651981223938*^9, 3.8086520064493723`*^9}, {
  3.8086521092273483`*^9, 3.808652137713538*^9}, {3.8086522679745927`*^9, 
  3.8086523137235947`*^9}, {3.808652743808119*^9, 3.808652746563904*^9}},
 CellLabel->
  "In[1174]:=",ExpressionUUID->"b6ada955-d2b8-4555-bd87-e8ee6b80be0f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"MapThread", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Rasterize", "[", 
      RowBox[{
       RowBox[{"HighlightImage", "[", 
        RowBox[{
         RowBox[{"ColorReplace", "[", 
          RowBox[{
           RowBox[{"Image", "[", "#", "]"}], ",", "#2"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"Green", ",", "\"\<Boundary\>\"", ",", 
           RowBox[{"Image", "@", "#1"}]}], "}"}]}], "]"}], ",", 
       "\"\<Image\>\"", ",", 
       RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], "&"}], ",", 
    RowBox[{"{", 
     RowBox[{"masks", ",", "types"}], "}"}]}], "]"}], "//", 
  "Total"}]], "Input",
 CellChangeTimes->{{3.8086521453197536`*^9, 3.8086521887283063`*^9}, {
  3.808652226404666*^9, 3.808652245173826*^9}, {3.808652320233887*^9, 
  3.8086524409202366`*^9}, {3.8086524736951523`*^9, 3.808652502738577*^9}, {
  3.8086525509336133`*^9, 3.808652554504109*^9}, {3.808652697325378*^9, 
  3.8086527019953556`*^9}, {3.808652843990511*^9, 3.8086528446612835`*^9}, {
  3.8086529280527935`*^9, 3.8086529285355606`*^9}, {3.808653044752331*^9, 
  3.808653045587444*^9}, {3.808653117748142*^9, 3.8086531428880224`*^9}, {
  3.8086533704692087`*^9, 3.8086533713255086`*^9}},
 CellLabel->
  "In[1176]:=",ExpressionUUID->"272ccba7-6e4e-4b92-bb8e-89252a5385ac"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsx1EKQEAABNANyTVcgRO4wjrBKr621PqQWzkico33aqaZftnjVoUQju6t
mM6plHTN7XfWlMch1++8mz/fBgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAHjYu9vzxJVtUaOEQiSGnQnOBGdCOxH0OBJHcu5t2S0oWEhC
X6imNMaf++7VuI8spBLtp+Y1AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACs3cfx+HbtzU7n3V/F
Pvnvx9a+ff38x6/1sL6uVwAAAAAAAAAAAAAAAECzdDZnsznqzHu/L5L/vtm3
9e3r5z9+rYf07XoFAAAAAAAAAAAAAAAANDE/GKvND+o1t/lBAAAAAAAAAAAA
AAAAeJ75wVhtflCvuc0PAgAAAAAAAAAAAAAAwPO6zg8W593u43h8q772//3f
/+kX9nZ7upz/Tcv8YPm68vVll19fvdda59Dl9VmuJ9fL1vwgAAAAAAAAAAAA
AAAAjKnr/GA6y/bs1+jx+uN4TM///vrn/+3fWa3q78jne9C6lM4SPvs15gcB
AAAAAAAAAAAAAADgeeYHY7X5Qb2UNj8IAAAAAAAAAAAAAAAA0zI/GKvND+ql
tPlBAAAAAAAAAAAAAAAAmJb5wVhtflAvpc0PAgAAAAAAAAAAAAAAwLTMD8Zq
84N6KW1+EAAAAAAAAAAAAAAAAKZlfjBWmx/US2nzgwAAAAAAAAAAAAAAADAt
84Ox2vygXkqbHwQAAAAAAAAAAAAAAGCoj+Px7dqbh3Mo6+7rbM5+X7T2V7E3
Pzhjmx/US+ny+izXk+p/P7P+pOtVHuvntJ2en9vv/XHfvn7+40+fvwAAAAAA
AAAAAAAAAFPo+vut1tbpbM6mZR6tdDe/Nttxr7XND+ql9O31+WPf1rfr1fzf
Q27rc27nx++LBAAAAAAAAAAAAAAApmZ+sLnND8Zq84N6KW1+cPz1ObfzY34Q
AAAAAAAAAAAAAACYmvnB5jY/GKvND+qltPnB8dfn3M6P+UEAAAAAAAAAAAAA
AGBqXecHi/Nu93E8vlVfW81qLbW329Pl+92YH8y+zQ/qpXSf+cF0vcph/cxp
fS5fV77+em43o3b595fPx+v/WfODAAAAAAAAAAAAAADA/LrOD6azG89+TeTu
Mo/24PWzH//a2vygXkr3mR9c2/qT0/2ezhI++zXmBwEAAAAAAAAAAAAAgKmZ
HxxvPuXB62c//rV1TvNEWg+fR0v/zPpz3znd7+YHAQAAAAAAAAAAAACAHJkf
HG8+5cHrZz/+tXVO80RaD59HS//M+nPfOd3v5gcBAAAAAAAAAAAAAIAcmR8c
bz7lwetnP/61dU7zRFoPn0dL/8z6c9853e/mBwEAAAAAAAAAAAAAgByZHxxv
PuXB62c//rV1TvNEWg+fR0v/zPpz3znd7+YHAQAAAAAAAAAAAACAHJkfHG8+
5cHrZz/+tXVO80RaD59HS//M+nPfOd3v5gcBAAAAAAAAAAAAAIAcmR8cbz7l
wetnP/61dU7zRFoPn0dL/8z6c9853e/mBwEAAAAAAAAAAAAAYB4fx+PbtTcP
9+2vuYvzrvO8g/mU+l7b/E5undM8kdbD59HSP7P+3HdO93uO84M+/4zdx+Te
AgAAAAAAAAAAAAAgF1338+vmNj948bDXNr+TW+c0T6T1kDY/2N453e95zg92
Ox7d3H5fJAAAAAAAAAAAAABAnuyfH7fND1487LXN7+TWOc0TaT2kzQ+2d073
u/nB5bf5QQAAAAAAAAAAAACAPNk/P26bH7x42Gub38mtc5on0npImx9s75zu
d/ODy2/zgwAAAAAAAAAAAAAAeeq6f74473Yfx+Nb9bXVbIKu+vhWnqMu5zRy
mx+M1TnNE2k9pM0PtndO9/sS5gfX9vkn/X5zeL8AAAAAAAAAAAAAAOinz37+
Nc1f6PHmUx68fvbjX1vnNE+k9ZA2P9jeOd3vS5gfXNvnn9vvd/73CwAAAAAA
AAAAAACAfuyf10Pa/GCszmmeSOshbX6wvXO6380PxmvzgwAAAAAAAAAAAAAA
y2D/vB7S5gdjdU7zRFoPafOD7Z3T/W5+MF6bHwQAAAAAAAAAAAAAWAb75/WQ
Nj8Yq3OaJ9J6SJsfbO+c7nfzg/Ha/CAAAAAAAAAAAAAAwDLYP6+HtPnBWJ3T
PJHWQ9r8YHvndL+bH4zX5gcBAAAAAAAAAAAAAJbB/nk9pM0Pxuqc5om0HtLm
B9s7p/vd/GC8Nj8IAAAAAAAAAAAAALAM9s/rIW1+MFbnNE+k9ZA2P9jeOd3v
5gfjtflBAAAAAAAAAAAAAKDOx/H4du3Nw33FOqe+7v3e74vW/ir2q9o/r5v7
83S6XA/b7XZf/Wldvx++d9Uakc62jNXp8XwVRWunr5/ieHLr9Py3vV/l15Tn
55nrQOtXt/nB9o4+P1icd5f2+WeO66fb/OD071f0PibXDgAAAAAAAAAAAADE
1nV/uJ63073xG/MXumOns3jl1XT988edzqltnrjeuvbt3z//8eTWXc5P+b6W
7+/vf8vnmtO6ZH6wvaPPD07dPv+0XT/d5gd1c/v9jAAAAAAAAAAAAAAsSW77
w3Vz2z+vh7T5wVhtflAvpc0Ptrf5web2+aft+jE/OGabHwQAAAAAAAAAAABg
SXLbH66b2/55PaTND8Zq84N6KW1+sL3NDza3zz9t14/5wTHb/CAAAAAAAAAA
AAAAS9Jlf/jH8fhWnHc/ne4t16/p8vxvtyf753Xv/nM6Xa6HdDatrg+H7115
3ZWdXktjdfr353A8uXWX81N+Tfn+pu+31rm0+cH2zml+sPysV609Pv/E6PQz
ejpLqH87vaafOa/mBwEAAAAAAAAAAABYki7zg7e/jyafPdNrafMXemh3mU95
8PrFH09undM8kdaeX9O2+72+XT96aHf9/YzmBwEAAAAAAAAAAABYEvODcdr+
eT20c5vXy+14cmvzRHop7fnV3u73+nb96KFtfhAAAAAAAAAAAACANTM/GKft
n9dDO7d5vdyOJ7c2T6SX0p5f7e1+r2/Xjx7a5gcBAAAAAAAAAAAAWDPzg3Ha
/nk9tHOb18vteHJr80R6Ke351d7u9/p2/eihbX4QAAAAAAAAAAAAgDUzPxin
7Z/XQzu3eb3cjie3Nk+kl9KeX+3tfq9v148e2uYHAQAAAAAAAAAAAFgz84Nx
2v55PbRzm9fL7Xhya/NEeint+dXe7vf6dv3ooW1+EAAAAAAAAAAAAIA1Mz8Y
p+2f10M7t3m93I4ntzZPpJfSnl/t7X6vb9ePHtrmBwEAAAAAAAAAAAB4pY/j
8e3am4f7VF/b172y+33R2OW+269iv5r96rm1/fN6aH+eTpfrYbvd7qs/revD
4XtXrVnptTRWvyd//zPHkx7/1OcqhzZPpPt2cd7tqmd9em3M1eV9XpzPnl8N
7X6vb59/9NDuOj9YrqFVZ/LvteRaBgAAAAAAAAAAACB3XX7f3ys6nRPc2K+e
dds/r4f2V1Ek18N+f/3zx53O7m2euN669u3f3348t8dfyufcTtHmiXTf7vO8
yK3X9vxyv9e3zz96aHedH8yt/T5EAAAAAAAAAAAAgFjMD+q+bf+8HtrmB2O1
eSLdt80Pxmv3e337/KOHtvlBAAAAAAAAAAAAAF7J/KDu2/bP66FtfjBWmyfS
fdv8YLx2v9e3zz96aJsfBAAAAAAAAAAAAOCVus4PFufd7uN4fKu+ttr7OlZv
t6fL37+xXz3rtn9eD+3P0ym596+ze4+6XBcOh++fr0uvvbE6/fufOZ7Sn+T4
pz5XObR5It23+zwvivM5+bxxTD4zzNWbXfkZaMrzlFO73+vb5x89tMu1rVpP
pvj3VNdO/333zPdhfhAAAAAAAAAAAAAglq7zg7e/L+O5r7FffZlt/7we2jnd
767n9s7p/dKx2v0Vr93v9e161kvrrr8P0fwgAAAAAAAAAAAAQCzmB3Xftn9e
D+2c7nfXc3vn9H7pWO3+itfu9/p2PeultflBAAAAAAAAAAAAgGUzP6j7tv3z
emjndL+7nts7p/dLx2r3V7x2v9e361kvrc0PAgAAAAAAAAAAACyb+UHdt+2f
10M7p/vd9dzeOb1fOla7v+K1+72+Xc96aW1+EAAAAAAAAAAAAGDZzA/qvm3/
vB7aOd3vruf2zun90rHa/RWv3e/17XrWS2vzgwAAAAAAAAAAAADLZn5Q9237
5/XQzul+dz23d07vl47V7q947X6vb9ezXlqbHwQAAAAAAAAAAABYNvODum/b
P6+Hdk73u+u5vXN6v3Ssdn/Fa/d7fbue9dLa/CAAAAAAAAAAAADAuD6Ox7dr
bx7uw3xlF+ddp32m5gd1VfbPx+vy/q3u+fS9mKuL83mXrIn76/HOMz/4eTpd
/vd2u9239fvh+3L8OZzPqfuQfL9t56d8XXl+qnNbvXdzdXndX599+dyTa2nP
i/bObX1+73i/HzK636fudH175vyUDtk9L67X26987gU9z/pjfhAAAAAAAAAA
AABgPF1/319ubX5QV2UeJF53ub9y61fMD34VRfJn+31bp7Mhbce/hL79fmOd
H8+Ledvzor1zW58j3++v6OjnZ233l25bf8wPAgAAAAAAAAAAAIzJ/OB4++fN
g8zb5kHidW7zKV3a/OD8HXlexvNi3va8aO/c1ufI9/srOvr5Wdv9pdvWH/OD
AAAAAAAAAAAAAGMyPzje/nnzIPO2eZB4ndt8Spc2Pzh/R56X8byYtz0v2ju3
9Tny/f6Kjn5+1nZ/6bb1x/wgAAAAAAAAAAAAwJi6zg8W593u43h8q7622ts5
Xx/fymPq8j1MtX/ePMi8bR4kXne5v37v9fPP16Xv9Vz9uxZW6+c01/Of0+ny
v9NZj7o+HL6T9fmYrpOL7PL8VF3OWrb1Z/L6KY6nvD6r87/xvMi6PS/aO7f1
+fPfepjOVjf1n+T1cz8vXtE5nZ/0enjm+vn3Nau6v3Tb+mN+EAAAAAAAAAAA
AGBMXecHp/59f7m1+cE4bR4kXru/6tv1HK9dz3Ha/dXermfdt91femibHwQA
AAAAAAAAAAAYl/lB++eX0varx2v3V327nuO16zlOu7/a2/Ws+7b7Sw9t84MA
AAAAAAAAAAAA4zI/aP/8Utp+9Xjt/qpv13O8dj3HafdXe7uedd92f+mhbX4Q
AAAAAAAAAAAAYFzmB+2fX0rbrx6v3V/17XqO167nOO3+am/Xs+7b7i89tM0P
AgAAAAAAAAAAAIzL/KD980tp+9Xjtfurvl3P8dr1HKfdX+3tetZ92/2lh7b5
QQAAAAAAAAAAAIBxmR+0f34pbb96vHZ/1bfrOV67nuO0+6u9Xc+6b7u/9NA2
PwgAAAAAAAAAAAAwLvOD9s8vpe1Xj9fur/p2Pcdr13Ocdn+1t+tZ9233lx7a
5gcBAAAAAAAAAAAAxtV1frA473Yfx+Nb9bXV3s6l9nZ7uny/G/vns2771eO1
+ZT6dj3H68/TKXl2bPfVnz7q8rnyfvj++br0vdav6fL8F+ez+6uhrc+6b3t+
6aH9Vewv18N+X1z+vK7T6y39t62u+pjcWwAAAAAAAAAAAMAadZ0fXFune1M3
9s9n3farx2vzKfXteo7XX0WRnP/9/vrnjzudK9w88f7qeXtt95f1Wfdtzy89
tLusPz9x8++1fL6PXNrvZwQAAAAAAAAAAADMDza3+cE4bb96vDafUt+u53ht
fnDZvbb7y/qs+7bnlx7a5gfHbfODAAAAAAAAAAAAgPnB5jY/GKftV4/X5lPq
2/Ucr80PLrvXdn9Zn3Xf9vzSQ9v84LhtfhAAAAAAAAAAAAD4OB7frr15uM9w
3X3de5nuTX3U5T7Xr2L/77/Pv1d0bW2/erw2n1Lfrud4/ed0upz/dDawrg+H
7131DE7fO51rb3bFeZfN9TZ1W5913/b80kO7y/pTPke329PP1/1ee5tFd/n9
dn0WmR8EAAAAAAAAAAAAaNbl9zOmezvn3ne7xrZfPV6bT6lv13O87vr7krxf
Oue2Puu+7fmlh7b1p75v/7353NeYHwQAAAAAAAAAAABoZn4wTtuvHq/tD69v
13O8Nj+ol9TWZ923Pb/00Lb+1Lf5QQAAAAAAAAAAAIDxmR+M0/arx2v7w+vb
9RyvzQ/qJbX1Wfdtzy89tK0/9W1+EAAAAAAAAAAAAGB85gfjtP3q8dr+8Pp2
Pcdr84N6SW191n3b80sPbetPfZsfBAAAAAAAAAAAABif+cE4bb96vLY/vL5d
z/Ha/KBeUlufdd/2/NJD2/pT3+YHAQAAAAAAAAAAAMZnfjBO268er+0Pr2/X
c7w2P6iX1NZn3bc9v/TQtv7Ut/lBAAAAAAAAAAAAgPGZH4zT9qvHa/vD69v1
HK/ND+oltfVZ923PLz20rT/1bX4QAAAAAAAAAAAAHvs4Ht+uvXm4j07r+r7u
vdzvi8Yur7Xt9vTT6V7Wubo473Zrmmfss1+9OJ931RqR7lUeqz9Pp0t/FUVr
p6+f4nhy6/fD9+X8b7fby/vyqMvXHf6+/v69XmqX3+/7v+/3mfNzf/38mv++
XFObH9RLavM7um+bH9RD2/pT333mB8t/E1adyb+vk3sdAAAAAAAAAAAAxtF1
f53Waadzgpsn9j/n1OvcT3vM6v1KZ7vKq6mtb18///FP3c5Pc3c9P+ks6q/5
78s1tflBvaQ2v6P7tvlBPbStP/XdZ34wt/b7EAEAAAAAAAAAAJhC9P11et42
PxinzQ/Ga+enuc0Pxmrzg3pJbX5H923zg3poW3/q2/wgAAAAAAAAAAAAPBZ9
f52et80Pxmnzg/Ha+Wlu84Ox2vygXlKb39F92/ygHtrWn/o2PwgAAAAAAAAA
AACPdd1fV5x3u4/j8a362mrvol5nfxX75L8fZ+/ifL5cnxv7aTf/vXd/7/f0
e5+ry/fpcPi+HF86C/ao09fncPyv6M/T6dLl7Ftb/0len8Px53T9lMrzY/5i
vjY/qJfU5nd03zY/qIe29ae+059VpLOEc3V5LOUxdfkezA8CAAAAAAAAAAAw
ha7zg+ns2LNfo7X9tPq+u+6f937pIddPyfxFnPX5wetnP36t0/Z5Q/dtzy89
tK0/cTqdJXz2a8wPAgAAAAAAAAAAMAXzg3pJbT9tnDY/qF95/ZTMX8RZnx+8
fvbj1zptnzd03/b80kPb+hOnzQ8CAAAAAAAAAACQC/ODekltP22cNj+oX3n9
lMxfxFmfH7x+9uPXOm2fN3Tf9vzSQ9v6E6fNDwIAAAAAAAAAAJAL84N6SW0/
bZw2P6hfef2UzF/EWZ8fvH7249c6bZ83dN/2/NJD2/oTp80PAgAAAAAAAAAA
kAvzg3pJbT9tnDY/qF95/ZTMX8RZnx+8fvbj1zptnzd03/b80kPb+hOnzQ8C
AAAAAAAAAACQC/ODekltP22cNj+oX3n9lMxfxFmfH7x+9uPXOm2fN3Tf9vzS
Q9v6E6fNDwIAAAAAAAAAAJAL84N6SW0/bZw2P6hfef2UzF/EWZ8fvH7249c6
bZ83dN/2/NJD2/oTp80PAgAAAAAAAAAArNfH8fh27c3DfWKv7OK867yfzf5V
nWvbTxunzQ/qodfP5+l0+d/b7Xbf1u+H7131DE7XiqV2eX6q/iqK1k5fP8Xx
HJLz7/0aoze7rp/h9Hjd5fNGeR0X5/PP16XPMv26rp4XZZfrXlv/SV4/9vGU
10O5HlYXifUw/+dXbsfz3uF5ml5vudyPa+ry/G+318+r+33R2tXX/vYmg77+
/AoAAAAAAAAAAIDndf3/fz63Nj+oc+4u+/nTvZ1zH/ca+/b8/9g3tfdL318/
1azHr/2+rdN99Zsnft9T9L79fuc/P7kdT/S+e95tcrgv19RdPm/o+Tu39Se3
48mtczs/jke/stNZwrmfdSW/DxEAAAAAAAAAAKAf84Na57Gf3zzavG1+UA+9
fswPNndu8wW5HU/0Nj8Y5/OGnr9zW39yO57cOrfz43j0K9v8IAAAAAAAAAAA
wDKYH9Q6j/385tHmbfODeuj1Y36wuXObL8jteKK3+cE4nzf0/J3b+pPb8eTW
uZ0fx6Nf2eYHAQAAAAAAAAAAlqHr/GBx3u0+jse36murvcrz9fGtPKYu34PW
Oe7nN482b5sf1EOvnz+n0+V/p3vj6/pw+E6ep8f0ubbITr/ftvNTvq58fXVu
q3ttzK7er3T2s6k/k9dPcTw59e9nq/PT6+H9e/1r/vtyTV1+Nq4+D+dwv+vm
frcehun0/OfwfnU9ntLUnzfK66Hq8jpp6z/J63O4H3VzfxX7SX+ek/586Znn
nvlBAAAAAAAAAACAfrrOD/p9f1p32c9vfjBK357/H/um9n7pIddPaW3zVtbD
OO161nrath7G6dw+H1qf9dL69udL7V9nfhAAAAAAAAAAAKAf84NaT7kf0v7w
KJ3b/nAdq+3nb2/rYZx2PWs9bVsP43Runw+tz3ppbX4QAAAAAAAAAADgNcwP
aj3lfkj7w6N0bvvDday2n7+9rYdx2vWs9bRtPYzTuX0+tD7rpbX5QQAAAAAA
AAAAgNcwP6j1lPsh7Q+P0rntD9ex2n7+9rYexmnXs9bTtvUwTuf2+dD6rJfW
5gcBAAAAAAAAAABew/yg1lPuh7Q/PErntj9cx2r7+dvbehinXc9aT9vWwzid
2+dD67NeWpsfBAAAAAAAAAAAeA3zg1pPuR/S/vAondv+cB2r7edvb+thnHY9
az1tWw/jdG6fD63PemltfhAAAAAAAAAAAOA1zA9qPeV+SPvDo3Ru+8N1rLaf
v72th3Ha9az1tG09jNO5fT60PuultflBAAAAAAAAAABgqT6Ox7drbx7ug3pt
X/di7fdFa38Ve/sPtX6y7Q+P0133Y5dreXE+7+6/dsz+PJ0u/VUUrf0nef0U
x6Pru7we3g/fl+tnu93u27p8f9f0PLUexuk+8ynlelh9xk3fa131Zlecd7O/
tzqPth7GafODWk/b5gcBAAAAAAAAAICl6vr7/qbudDZwY/+h1iPvh7Q/PEr3
2Y89daezZuVq3da3r5//+NfWXd+vcvZzTc9T62GcznE9jN4+P+u0rYdx2vyg
1tO2+UEAAAAAAAAAAGCpzA9qvZ62PzxO5zgvY34wVpsftB4upXNcD6O3z886
bethnDY/qPW0bX4QAAAAAAAAAABYKvODWq+n7Q+P0znOy5gfjNXmB62HS+kc
18Po7fOzTtt6GKfND2o9bZsfBAAAAAAAAAAAlqrr/GBx3u0+jse36murvVVj
9XZ7uvz9G/sPtR55P6T94VH6d639XZ/T92KuLtfl98P35fjS2bS6Pvx9/fV5
cUzWfP2KTs//M+/Xn9NpVc9T62Gczm09zK3L+7w4n5Nz5/Oz7tbWwzhtflDr
adv8IAAAAAAAAAAAsFRd5wdv91M99zVT7V998PrRj0frJbX94bpv2x8erz1P
rYd6HW191kPbehinzQ9qPW2bHwQAAAAAAAAAAJbK/KDW62n7w3Xftj88Xnue
Wg/1Otr6rIe29TBOmx/Ueto2PwgAAAAAAAAAACyV+UGt19P2h+u+bX94vPY8
tR7qdbT1WQ9t62GcNj+o9bRtfhAAAAAAAAAAAFgq84Nar6ftD9d92/7weO15
aj3U62jrsx7a1sM4bX5Q62nb/CAAAAAAAAAAALBU5ge1Xk/bH677tv3h8drz
1Hqo19HWZz20rYdx2vyg1tO2+UEAAAAAAAAAAGCpzA9qvZ62P1z3bfvD47Xn
qfVQr6Otz3poWw/jtPlBradt84MAAAAAAAAAAMBSmR/Uej1tf7ju2/aHx2vP
U+uhXkdbn/XQth7GafODWk/b5gcBAAAAAAAAAIClMj+o9Xra/nDdt+0Pj9ee
p9ZDvY7usz4X5/Pu79f8XP/pvTBfb3bFeTf7uVxrf55Ol/diu93uqz991OV1
czh8/3xdeu3p13R5/t//nf8c3q/y7//f/rq27P9q6/L1ea0/Wl/7f/vi8nzc
31zbj7tcP6tOf7Y2Xx+Tz/IAAAAAAAAAAABX5ge1Xk+bl9F92/xgvPY8tR7q
dXSf9Tm3Xtv6k1t/FUVy/q9zXnWdzqltMrh+1ta353/+9yudDfx7TbX27evn
P59ap931/vpbyX+ff133+xABAAAAAAAAAIA65ge1Xk+bl9F92/xgvPY8tR7q
dbT5QT20zQ/GavODWk/X5gcBAAAAAAAAAIClMj+o9XravIzu2+YH47XnqfVQ
r6PND+qhbX4wVpsf1Hq6Nj8IAAAAAAAAAAAslflBrdfT5mV03zY/GK89T62H
eh1dnHe76vN8eq3O1X//37fifPa8CNSfp9Pl/KezM3V9OHzvyve57PS906/p
9P1KZz/r+k/y+imOp5yfqq6HdDbwUZevq+atclivtL5/fpXrW3XdPrMe7vdF
sh5ukntknP59xh//PR/b13XzgwAAAAAAAAAAQB3zg1qvp83L6L59ez382Le1
9TnO/f7g9bMf/9RtPdR6mva8iNeeF3pIe57qpXSOz6/bn7+1f535QQAAAAAA
AAAAoI75Qa3X0/b36r6d435aPd79/uD1sx//1G091Hqa9ryI154Xekh7nuql
dI7PL/ODAAAAAAAAAADAWMwPar2etr9X9+0c99Pq8e73B6+f/finbuuh1tO0
50W89rzQQ9rzVC+lc3x+mR8EAAAAAAAAAADGYn5Q6/W0/b26b+e4n1aPd78/
eP3sxz91Ww+1nqY9L+K154Ue0p6neimd4/PL/CAAAAAAAAAAADAW84Nar6ft
79V9O8f9tHq8+/3B62c//qnbeqj1NO15Ea89L/SQ9jzVS+kcn1/mBwEAAAAA
AAAAgLGYH9R6PW1/r+7bOe6n1ePd7w9eP/vxT93WQ62nac+LeO15oYe056le
Suf4/DI/CAAAAAAAAAAAjMX8oNbraft7dd/OcT+tHu9+f/D62Y9/6rYeaj1N
e17Ea88LPaQ9T/VSOsfnl/lBAAAAAAAAAACI6+N4fLv25uE+n1d2cd512sc0
9fzg5+l0+fu32+2++tO6fj9876pzmu7d0lr/tw/J/dJ2f5VfU96Pv/91/v2c
et7OcT+tbttvbB6kqc07aD1Ne17Ea88LPaQ9T/VSOsfnV9f5wfTnezn8vDH9
+ScAAAAAAAAAAKxN19/3l1tPPT/4VRTJ37/fX//8cadzT5sn9ndpvea+vV+a
76/yPizvx9//Nv/ao+ftHPfT6rb9xuZBmtq8g9bTtOdFvPa80EPa81QvpXN8
fnWdH8yt/T5EAAAAAAAAAADWzPxgc5sf1Hq6Nj+o+3aO+2l1235j8yBNbd5B
62na8yJee17oIe15qpfSOT6/zA8CAAAAAAAAAEBc5geb2/yg1tO1+UHdt3Pc
T6vb9hubB2lq8w5aT9OeF/Ha80IPac9TvZTO8fllfhAAAAAAAAAAAOLqOj9Y
nHe7j+Pxrfraau/QfH18K4+py/fQpf+cTpf/W+ms06Muj+Vw+P75unSvl9b6
v53eL6W2+6v82s+/9+Pvf51/76Get3PcT6ub2zzIeOfHvIPWz7fnRbz2vNBD
2vNUL6VzfH6lP3/L4eeB6c8nn/k+zA8CAAAAAAAAALBmXecHp/59f7m1/Yda
T9Nd90O6v/SQ66dkvmDeNg8y3vmxHmr9fHtexGvPCz2kPU/1Utrzq727/j5E
84MAAAAAAAAAAKyZ+UH7D7Weo80P6ldeP6W17afNrc2DjHd+rIdaP9+eF/Ha
80IPac9TvZT2/Gpv84MAAAAAAAAAAPA884P2H2o9R5sf1K+8fkpr20+bW5sH
Ge/8WA+1fr49L+K154Ue0p6neint+dXe5gcBAAAAAAAAAOB55gftP9R6jjY/
qF95/ZTWtp82tzYPMt75sR5q/Xx7XsRrzws9pD1P9VLa86u9zQ8CAAAAAAAA
AMDzzA/af6j1HG1+UL/y+imtbT9tbm0eZLzzYz3U+vn2vIjXnhd6SHue6qW0
51d7mx8EAAAAAAAAAIDnmR+0/1DrOdr8oH7l9VNa237a3No8yHjnx3qo9fPt
eRGvPS/0kPY81Utpz6/2Nj8IAAAAAAAAAADPMz9o/6HWc7T5Qf3K66e0tv20
ubV5kPHOj/VQ6+fb8yJee17oIe15qpfSnl/tbX4QAAAAAAAAAACeZ37Q/kO9
ji7Ou111v6fX6lz99/99Oxy+L8e33W73TV2+/v3f63M4/jX25+l06a+iaO30
9VNcP+8drp9Seb2VX/fv6y9r+1K7PP9Vl+9LW6evn+J40vP/zPv1vrL3673D
+UnvrxyeL1rn3Lf3i/UnQndZD0vp8+v+/dfr6/R6eObfF4eV/fsip8/zurk/
evx7Z23roflBAAAAAAAAAAB4nvnBtv1I5gf1Mvr2+vyxn7vTvY5//3Nr375+
/uNfW+f2fuV2PLl1bucnt+PJrbucn3Rvfw7PF61z7tv7pWT9yb27Pi/SWfhf
8193er6+vR7c7/ft81isth42t/lBAAAAAAAAAAB4nvnBtv1I5gf1Mtr8oB7a
ub1fuR1Pbp3b+cnteHJr84NaT9PmB+O1eRk9pM0PNrfPY7Haetjc5gcBAAAA
AAAAAOB55gfb9iOZH9TLaPODemjn9n7ldjy5dW7nJ7fjya3ND2o9TZsfjNfm
ZfSQNj/Y3D6PxWrrYXObHwQAAAAAAAAAgOeZH2zbj2R+UC+ju84P/n3tW3E+
7+6/dsz+czpdutrb39SfyeunOB5d3+X1cDh8X66fdC/ro05fP9WxfXa8fv6s
6Prp+n6VyteXX/fv6y/PvrG6PP9Vp3ub6/ozef0Ux5Nbp+e/7f1Kr+ccni9a
59y390sezy897vMrfb7cv/96fZ1+fsjh809u3eXzhvXQeph7mx8EAAAAAAAA
AIDnmR9s249kflAvo2+vzx/7pnY9a9dP3O76fpXunnezHfta2+cNradpz69Y
7fmlh3aX5+mD189+/FO3zxtx2nrY3uYHAQAAAAAAAADgeeYH7a/T62j757Xr
Zz1tv3G89nlD62na8ytWe37poW1+cLzzYz2ct62H7W1+EAAAAAAAAAAAnmd+
0P46vY62f167ftbT9hvHa583tJ6mPb9iteeXHtrmB8c7P9bDedt62N7mBwEA
AAAAAAAA4HnmB+2v0+to++e162c9bb9xvPZ5Q+tp2vMrVnt+6aFtfnC882M9
nLeth+1tfhAAAAAAAAAAAJ5nftD+Or2Otn9eu37W0/Ybx2ufN7Sepj2/YrXn
lx7a5gfHOz/Ww3nbetje5gcBAAAAAAAAAOB55gftr9PraPvntetnPW2/cbz2
eUPradrzK1Z7fumhbX5wvPNjPZy3rYftbX4QAAAAAAAAAACeZ37Q/jq9jrZ/
Xrt+1tP2G8drnze0nqY9v2K155ce2uYHxzs/1sN523rY3uYHAQAAAAAAAADI
2cfx+HbtzcN9LK/sz9Pp0vv9dd9RXf9vX+yq7yHdm7TUfj98X77f7XZ7OQ+P
uvya6/nMZ0+V1iX757XrZz1tv3G8tp9f62na8ytW93l+FedzZv8+3eyK8272
c7nWNj843vmxHs7btz9fav95VCn9+dUU61t5PFV/FUVrp6+f4ni229Pl+93v
i8u5quv0+ZLDz2PTnw8DAAAAAAAAALA8XX/f39Sdzgb+/K+WTvcmbZ7Yjxe9
b7/f5vNT7mEq90r9/rf531ut7/cf2j+v+7brJ1abH4zX9vNrPU17fsXqPs+v
3NrzdN42Pzje+bEeztu3P18qzf/zui4/H3vF8XTtdJYwh/fY70MEAAAAAAAA
AFg284Ox2vygXkrbP69dP+tp84Px2n5+radpz69YbX5QD23zg+OdH+vhvG1+
0PwgAAAAAAAAAACxmR+M1eYH9VLa/nnt+llPmx+M1/bzaz1Ne37FavODemib
Hxzv/FgP523zg+YHAQAAAAAAAACIrev8YHHe7T6Ox7fqa6u9XmN1uX+m+vvT
vT11fTh8J8dzTP7OZXb6/badn/Jr/pxO9tfpLNv+ee36WU+bH4zX9vNrPU17
fsXq33/7bn7+d/pezNXlvwOL8/np6+ff13ieztjmB8c7P9bDefv250vtP48q
16vy51fV106xHlZ/fw7H06e/in3y3zej9u/zYtfpPTY/CAAAAAAAAACwbF3n
B9NZv2e/xv668dr+Or2Utn9eu37W0+YH47XPG1pP055f+pXXT8nzdN72843x
zo/1cN7O7fmV2/Hk1uks4bNfY34QAAAAAAAAAGDZzA/Gavvr9FLafj/t+llP
m3eI1z5vaD1Ne37pV14/Jc/TedvPN8Y7P9bDeTu351dux5Nbmx8EAAAAAAAA
AOCe+cFYbX+dXkrb76ddP+tp8w7x2ucNradpzy/9yuun5Hk6b/v5xnjnx3o4
b+f2/MrteHJr84MAAAAAAAAAANwzPxir7a/TS2n7/bTrZz1t3iFe+7yh9TTt
+aVfef2UPE/nbT/fGO/8WA/n7dyeX7kdT25tfhAAAAAAAAAAgHvmB2O1/XV6
KW2/n3b9rKfNO8Rrnze0nqY9v/Qrr5+S5+m87ecb450f6+G8ndvzK7fjya3N
DwIAAAAAAAAAcM/8YKy2v04vpe33066f9bR5h3jt84bW07Tnl37l9VPyPJ23
/XxjvPNjPZy3c3t+5XY8ubX5QQAAAAAAAAAA7pkfjNX21+mltP1+2vWznjbv
EK993tB6mvb80q+8fkqep/O2n2+Md36sh/N2bs+v3I4ntzY/CAAAAAAAAADA
PfODsfrzdLp8v9vtdl/96aP+e27e3g/fP1+X7pXSr+vy/ar6qyhaO319Dsc/
ZafXZ901nHZ6fua+D/X8fXs9PLceHqyHs97v/9tfn937v9q6fH35df++/vLs
W2qnz/fyudDW6eunOJ7yfqnOfw6fNzxPY7X3y+cfPU3fXg/t10/pPVnPc3je
ra2L8/ly/jd+vvGfvvt+99c/N/9VnHe76ud1uTy/yuv5eqzmB3Pu3+930+lr
zA8CAAAAAAAAACyb+cFYnc4OlJMW1z9/3One0c0T51OP27fn3/t1313OTzpr
MPd9qOfv2+uh5P7KvdPZwL/vZWvfvn7+45+6c3teOB49pL1fze3zj+7bPv8s
v9f28w3zg/XddT4utzY/OG+bHwQAAAAAAAAA4J75wVhtfjBW2z/f3PbP675t
/3y8Nj/Y3Lk9LxyPHtLer+b2+Uf3bZ9/lt9r+/mG+cH6Nj/Y3OYHm9v8IAAA
AAAAAAAA98wPxmrzg7Ha/vnmtn9e92375+O1+cHmzu154Xj0kPZ+NbfPP7pv
+/yz/F7bzzfMD9a3+cHmNj/Y3OYHAQAAAAAAAAC4Z34wVv85nS7fb7oXtK4P
h+/d33P08/r0XOnXdHr+vV/Dzk/5NeX1//tf87kn9Xz7IT8v14P7K0Lv95t9
df7T2cD6vr4+h+PPaT28f/0Ux5N+3kj//y6o68/k9Ws4P9r75fOPnqNvrwf3
1zJ7syvOu9mvtVd1+r1vzH/d9O33+2Pf1OV9XpzPu/uvnavL6/j688b5z886
r59Np68xPwgAAAAAAAAAsGzmB2O18xOrvV/jnZ+17ffTzd11v2hpbfdXbm09
dH6GtPMTq71f450fn3902j7/6KW19bC+zcc1t/PT3OYHAQAAAAAAAAC4Z34w
Vjs/sdr7Nd75Wdt+P93c9s/Ha+uh8zOknZ9Y7f0a7/z4/KPT9vlHL62th/Vt
Pq65nZ/mNj8IAAAAAAAAAMA984Ox2vmJ1d6v8c7P2vb76ea2fz5eWw+dnyHt
/MRq79d458fnH522zz96aW09rG/zcc3t/DS3+UEAAAAAAAAAAO6ZH4zVzk+s
9n6Nd37Wtt9PN7f98/Haeuj8DGnnJ1Z7v8Y7Pz7/6LR9/tFLa+thfZuPa27n
p7nNDwIAAAAAAAAAcM/8YKx2fmK192u887O2/X66ue2fj9fWQ+dnSDs/sdr7
Nd758flHp+3zj15aWw/r23xcczs/zW1+EAAAAAAAAACAe+YHY7XzE6u9X+Od
n7Xt99PNbf98vLYeOj9D2vmJ1d6v8c6Pzz86bZ9/9NLaeljf5uOa2/lpbvOD
AAAAAAAAAADcMz8Yq52fWO39Gu/8rG2/n25u++fjtfXQ+RnSzk+s9n6Nd358
/tFp+/yjl9bWw/o2H9fczk9zmx8EAAAAAAAAAODeV7G/7A/Z74vW3m5Pu4/j
8Wd/V7rXa6z+/+zdYVrjOtaoUYaSkRTumaRmQs0kMBHyMBKG0qioBIWDZezE
WFta6899z3dC32Artsmj3f17/3r+z9/tdsPH/79f9z57/Rrvp7aee3yeDgf7
RTds++dvd3zSuj8+P//9uXzv31Z9fL6//9hfV88x7aXtn5/utD7TOn3v7e9f
6fN7un/dOV/uFzPb8YnVztftjk9v8w663J5/9LVd2/PhnO830uvS9z+pa/h7
cO1Ov+/vf7/vd45P+tn0/c931kELbX6w3OYHAQAAAAAAAAD4bO7+w7U73weV
Jhen+vL127//tXvu8Xk5Hu0X3bDtn7/t8ampe9t/WFvbPz/dkT9fifN19mU7
Pmdfdm/Hp7Z2vm53fDxv6Lw9/+hru7bnQ9//lHvO8UnnNX3/8/5/q2fNrdXm
B8ttfhAAAAAAAAAAgM/MD8Zq84Ox2v75WPtX53Rv+w9ra/vnpzvy5ytxvs6+
bMfn7Mvu7fjU1s7X7Y6P5w2dt+cffW3X9nzo+59ymx8cb/OD5TY/CAAAAAAA
AADAZ+YHY7X5wVht/3ys/atzurf9h7W1/fPTHfnzlThfZ1+243P2Zfd2fGpr
5+t2x8fzhs7b84++tmt7PvT9T7nND463+cFymx8EAAAAAAAAAOCzl+Nw3h8y
DMdi/3l4+LXbHf52vvfmlv10+PjPP+19KvXjYd33U1On47/fv57PS76XbKzT
8bFfdLu2f37q+NzdH5/v/3Osturj8/N9+pz9e5PDx/u1/7C2tn9+uudef/L1
X8PnMb8+rH2samj3C8enpXa+bnd8PG/ovD3/6Gu7tufDp+z7ivy/+2is8+83
6nheXbfT9z+n4z/1/U/+/djW6+wn2vxguc0PAgAAAAAAAADw2Zz9JJf7T7bf
D9Nb2y8ar+2fj9X288dp18Ppdv2J1c6X49NSO1+3Oz6eN3Tenn/0te36HKvd
L8bb/GC5zQ8CAAAAAAAAAPCZ+cE4bb9ovLY/M1bbnxmnXQ+n2/UnVjtfjk9L
7Xzd7vh43tB5e/7R17brc6x2vxhv84PlNj8IAAAAAAAAAMBn5gfjtP2i8dr+
zFhtf2acdj2cbtefWO18OT4ttfN1u+PjeUPn7flHX9uuz7Ha/WK8zQ+W2/wg
AAAAAAAAAACfmR+M0/aLxmv7M2O1/Zlx2vVwul1/YrXz5fi01M7X7Y6P5w2d
t+cffW27Psdq94vxNj9YbvODAAAAAAAAAAB8Zn4wTtsvGq/tz4zV9mfGadfD
6Xb9idXOl+PTUjtftzs+njd03p5/9LXt+hyr3S/G2/xguc0PAgAAAAAAAADw
mfnBOG2/aLy2PzNW258Zp10Pp9v1J1Y7X45PS+183e74eN7QeXv+0de263Os
dr8Yb/OD5TY/CAAAAAAAAADAZ+YH47T9ovHa/sxYbX9mnHY9nG7Xn1jtfDk+
LbXzdbvj43lD5+35R1/brs+x2v1ivM0Pltv8IAAAAAAAAADA9v48PPz66Lsv
92n8ZB+f77+9n8T84LZtv2i8tj8zVs85X+lafnx+zq6ND/oHOx3/3/vX8znc
7XbDVO/fXn+6B+fnutXOf9/vHJ/Hw8H1Z8N2vyj3U7Y+fd7r7/8Nd8Pp+A9v
TudlrPPX1/D+a7o+5/e7Gu6/P9Hp837ql+NxsvPX1/D+137+OT1//jNMdW/3
C+15o6Wec77ya8XW7/snOr/+J9+5n+47up+m33e3+zg+w3Cc7I/1U8f31X+y
788BAAAAAAAAACKa+9//XFO/70U5vf963lcvfbkf7K9hqu3327btz4zVc8+X
3rbzfaFp5+NUX75++/e/ds89PmkWw/Vnu3a/KPfl+vR5r73z2cC3czjZl6/f
/v2v3e5f5XZ8btu93S+0542W2vzgeOez5O/cL67tfJawhnPsfw8RAAAAAAAA
AIjO/KBe2uYH47X9mbHa/GCsNl9QbvODsdr9otzmB2O1+cFyu3+V2/G5bfd2
v9CeN1pq84PjbX5wjee34+bnNW/zgwAAAAAAAABAdOYH9dI2Pxiv7c+M1eYH
Y7X5gnKbH4zV7hflNj8Yq80Pltv9q9yOz227t/uF9rzRUpsfHG/zg2s8vx03
P695mx8EAAAAAAAAAKKbMz/45+Hh1/H5/m/ns3tbdXov6T19573rdfZHmR+M
1fZnxup0rTtdc/Nzoevsp8Ph3Pls0Vg/Zq+v4f2v3b/3r+d7dr5Xdqzz4/mu
ns9mD+1+Ue58fX5nPe+z9V/D57G3Hoa74XT889nArzq9Lr0+df6s23Kn+9Gp
T7MPpX7KXl/D+1+z03pIn9/TOvF5v0V/PN++q+farj1v6Nudr/xauvX7/onO
74+J+8X1/XIcLu4dt+653ymbHwQAAAAAAAAAopszP/i+/+eum/0/utyX+8H+
Gqbafr84+/2+eP3m719rHbddf2K18+X4tNTmHfTS9veO1uu2+2msdj8db/eL
eJ3PEn7n58wPAgAAAAAAAADRmR/US9v+qHhtf6bWeqt2/YnVzpfj01Kbd9BL
2987Wq/b7qex2v10vN0v4rX5QQAAAAAAAACgN+YH9dK2Pype25+ptd6qXX9i
tfPl+LTU5h300vb3jtbrtvtprHY/HW/3i3htfhAAAAAAAAAA6I35Qb207Y+K
1/Znaq23atefWO18OT4ttXkHvbT9vaP1uu1+GqvdT8fb/SJemx8EAAAAAAAA
AHpjflAvbfuj4rX9mVrrrdr1J1Y7X45PS23eQS9tf+9ovW67n8Zq99Pxdr+I
1+YHAQAAAAAAAIDemB/US9v+qHhtf6bWeqt2/YnVzpfj01Kbd9BL2987Wq/b
7qex2v10vN0v4rX5QQAAAAAAAACgN+YH9dK2Pype25+ptd6qXX9itfPl+LTU
5h300vb3jtbrtvtprHY/HW/3i3htfhAAAAAAAAAA6I35Qb207Y+K1/Znaq23
6qfD4Xw92e12w+nfjvV+/3r/dg36+/r8WqR/pn9nx7+G85Wvn5fjcbLz19dw
fPL3866ez2YPbd5BL21/72i9bvv7NFbPeZ5Pz0npeSl1fi1ttfPf9zvH5/Px
vOa86KXXH/ODAAAAAAAAAEBfzA/qpW0/bby2P1NrvVXns11vl5nh499/3fne
2rtvXK/0bfvy+G9/vqK/n8v1n9Tz2eyhzQ/qpe3vHa3XbX+fxmrP8+X2fBir
zQ8CAAAAAAAAAL0xP6iXtv208dr+TK31Vm2/cayOPq9X2/uxPzzO84/5QZ23
v3e0Xrf9fRqrPc+X2/NhrDY/CAAAAAAAAAD0xvygXtr208Zr+zO11lu1/cax
Ovq8Xm3vx/7wOM8/5gd13v7e0Xrd9vdprPY8X27Ph7Ha/CAAAAAAAAAA0Bvz
g3pp208br+3P1Fpv1U+Hw/l6ku+tHev9/vX+7Rr09/X5tUj/TOfnK9/bPNaP
2evXeD/5eqhh/cx9P/nxeVfPZ7OHNj+ol7a/d7Ret/19GqsfPc97PmyozQ8C
AAAAAAAAAL0xP6iXtv208dr+TK31Vu36o6/p2tZPbe9H3+58mR/Ueft7R+t1
2/00Vjtfjk9LbX4QAAAAAAAAAOiN+UG9tO2njdf2s2mtt2rXH31N17Z+ans/
+nbny/ygztvfO1qv2+6nsdr5cnxaavODAAAAAAAAAEBvzA/qpW0/bby2n01r
vVW7/uhrurb1U9v70bc7X+YHdd7+3tF63XY/jdXOl+PTUpsfBAAAAAAAAAB6
Y35QL237aeO1/Wxa663a9Udf07Wtn9rej77d+TI/qPP2947W67b7aax2vhyf
ltr8IAAAAAAAAADQG/ODemnbTxuv7WfTWm/Vrj/6mq5t/dT2fvTtzpf5QZ23
v3e0XrfdT2O18+X4tNTmBwEAAAAAAACA3pgf1Evbftp4bT+b1nqrdv3R13Rt
66e296Nvd77MD+q8/b2j9brtfhqrnS/Hp6U2PwgAAAAAAAAA9Mb8oF7a9tPG
a/vZtNZbteuPvqZrWz+1vR99u/NlflDn7e8drddt99NY7Xw5Pi21+UEAAAAA
AAAAoDcvx+G8/2EYjsX+8/Dwa7c7/O18L6Xus9N62O9fz+tkt9sNU/10OHS1
PyrtLzo+3/9nL9lW/fvtfKXzlvo752ufvX6N95Ovh5fjcbLz19dwPHW0/vg8
vqvnWtFD20+rr+na1k9t70ff7nzlz7pbv2+9fV+uh7+GqfZ51/r7nf99V8Pf
p/q23yf09/2P58NIbX4QAAAAAAAAAOjN3P2QWued7w1Lk6ZTnc+Cvatn79Aa
PXf/2No993xdvr7996PbbvszY10PnS+dd23rp7b3o293vswP6rzND2q9bl9+
P+Dvwdrb9z/l9nwYq80PAgAAAAAAAAC9MT+or2n7x267f2ztrm1er7b3o9tu
+zNjXQ+dL513beuntvejb3e+zA/qvM0Par1umx+M1b7/Kbfnw1htfhAAAAAA
AAAA6I35QX1N2z922/1ja3dt83q1vR/ddtufGet66HzpvGtbP7W9H32782V+
UOdtflDrddv8YKz2/U+5PR/GavODAAAAAAAAAEBvXo7Def/DMByL/efh4ddu
d/jb+V5K3Wen9bDfv57XSb6XbKyfDoeu9kfN2T+Wjufx+XnVc5eO/6nTXr6p
fsxev/X6yV9fw/rX219/Tp+Xf4aptj8zzvXwi9dv/v619VPz+9G3O1/mB3Xe
5ge1Xrfz7wf8PVh3L/n+59H3P3eldr/Y+nyZHwQAAAAAAAAA+nK5/6G8X+J9
79Dp9fXs+dDbtP20022/+njPXT+9HR9dbtefeG0/rb6ma1s/tb0ffbvz5XlD
5+15Q+t12/U5TrseTrfnw1htfhAAAAAAAAAA6I35Qb207R+bbvshx9v8oHb9
6avtp9XXdG3rp7b3o293vjxv6Lw9b2i9brs+x2nXw+n2fBirzQ8CAAAAAAAA
AL0xP6iXtv1j020/5HibH9SuP321/bT6mq5t/dT2fvTtzpfnDZ235w2t123X
5zjtejjdng9jtflBAAAAAAAAAKA35gf10rZ/bLrthxxv84Pa9aevtp9WX9O1
rZ/a3o++3fnyvKHz9ryh9brt+hynXQ+n2/NhrDY/CAAAAAAAAAD0xvygXtr2
j023/ZDjbX5Qu/701fbT6mu6tvVT2/vRtztfnjd03p43tF63XZ/jtOvhdHs+
jNXmBwEAAAAAAACA3pgf1Evb/rHpth9yvM0Patefvtp+Wn1N17Z+ans/+nbn
y/OGztvzhtbrtutznHY9nG7Ph7Ha/CAAAAAAAAAA0Bvzg3pp2z823fZDjrf5
Qe3601fbT6uv6drWT23vR9/ufHne0Hl73tB63XZ9jtOuh9Pt+TBWmx8EAAAA
AAAAAHpjflAvbfvHptt+yPE2P6h/+vpzfH6+f/uZv5/H/LOpf6Z/71/Px3+3
253Py1g/HQ5d3S90ufP18J31s8/W2xrreT9zPf9e+f3kx+fleJzs/PU1XB/W
7v8Nd8Pp+A9vTuflq06vS69Pnd9rWu60Hk6d1slU56+v4f2v2Wk9pM/7aZ34
vNffjk+snvN8mF9/tn4u6bHza+M/w1Tn53rL9/5T/en3HT7+veNTY5sfBAAA
AAAAAAB6Y35QL237x6Z7zv6xy+NZz++wVs9dP70dH13uJdcfvW3n+8DTpM5U
53v7322/7vR2fbkeptfP5Xrbfj339n5q63xO8G1NTfbl67d//2u39VPu2o5P
be+ntnZ8YvWc85XPMm/9XNJj+/5nus0PxmrzgwAAAAAAAABAb8wP6qVt/9h0
mx8cb/OD+qevP3rbNj+or2nzg7HeT21tfrDc1k+5azs+tb2f2trxidXmB+O0
73+m2/xgrDY/CAAAAAAAAAD0xvygXtr2j023+cHxNj+of/r6o7dt84P6mjY/
GOv91NbmB8tt/ZS7tuNT2/uprR2fWG1+ME77/me6zQ/GavODAAAAAAAAAEBv
zA/qpW3/2HSbHxxv84P6mj4+39+f7kf52tB19tv/+2u/fz2fv3yv+Fg/Hg5d
3S90uZ+y9TC1fvL1ttbaTuvz1KdZhlI/Za+v4fOVXp9+7t/Pn49tqz0Md8Pp
981nA7/q9Lr0+jXXT01t/Ux3fj/KZ5nHOr9erfF+8uNfw/Wwprae4/Wc9Zx+
5nT/3fq5pMfOP2v/DFOdn+st3/tP9affd/j4945PjW1+EAAAAAAAAADojflB
vbTtH5vuOfvHLo9nPb/DWj13/fR2fLRuqd0v9LXtfjrePl/Tbf2Mt/UTr63n
8bae47X1HKd9vqbb/GCsNj8IAAAAAAAAAPTG/KBe2vaPTbf9kONtflDrftr9
Ql/b7qfj7fM13dbPeFs/8dp6Hm/rOV5bz3Ha52u6zQ/GavODAAAAAAAAAEBv
zA/qpW3/2HTbDzne5ge17qfdL/S17X463j5f0239jLf1E6+t5/G2nuO19Ryn
fb6m2/xgrDY/CAAAAAAAAAD0xvygXtr2j023/ZDjbX5Q637a/UJf2+6n4+3z
Nd3Wz3hbP/Haeh5v6zleW89x2udrus0PxmrzgwAAAAAAAABAb8wP6qVt/9h0
2w853uYHte6n3S/0te1+Ot4+X9Nt/Yy39ROvrefxtp7jtfUcp32+ptv8YKw2
PwgAAAAAAAAA9Mb8oF7a9o9Nt/2Q421+UOt+2v1CX9vup+Pt8zXd1s94Wz/x
2noeb+s5XlvPcdrna7rND8Zq84MAAAAAAAAAQG/MD+qlbf/YdNsPOd7mB7Xu
p90v9LXtfjrePl/Tbf2Mt/UTr63n8bae47X1HKd9vqbb/GCsNj8IAAAAAAAA
APTG/KBe2vaPTbf9kOOdft+nw+H8z7vdbij127H5td+/ZteiB11xH5/v790v
9Knmft6T32+f9/S5T51fS1vtdHxO/XI8Tnb++hre/9qdr4ep9XO53rZf/57H
tm/PY+Nt/cRr63m8red4bT2Pd/73VA1/3+V/jyee5//b+xnPq0n+PP/5/Ov1
2/wgAAAAAAAAANAb84N6adufOd32Q453+n3TLMzHvxuGqc732t19Y73p7bq3
9azL7fM+3Ze/r+Pzueccn8v1tv369zy2fXseG2/rJ15bz+NtPcdr63m8l6zn
tdvzarnnHp/8vxvk3fbrrqc2PwgAAAAAAAAA9Mb8oF7a9mdOt/2Q422eqO3u
bT3rcvu82499bZsfHG/PY9PteWy8rZ94bT2Pt/Ucr63n8TY/GK/ND8Zq84MA
AAAAAAAAQG/MD+qlbX/mdNsPOd7midru3tazLrfPu/3Y17b5wfH2PDbdnsfG
2/qJ19bzeFvP8dp6Hm/zg/Ha/GCsNj8IAAAAAAAAAPTG/KBe2vZnTrf9kOOd
ft+nw+H8z/leu7He71/v347R3+OZH1v9M318fj4f/zvrWc/otB4eZ3ze0zpL
n/fTz57WUqud/76Oz/XH53K9bb/+PY9t357Hxtv6idfW83hbz/Haeh7vJes5
/3ttjb8H0/PVqfPZt7F+yl5fw9+za3f+fcV3vt/Ij8+77dddT21+EAAAAAAA
AADojflBvbTtz5xu+yHH2/qJ19azXtpzP++9rR/Hp9yOT7ndT6fb/Wu8rZ94
bT2Pt/Ucr63n8bae4/Wc9fzF6zd//721+UEAAAAAAAAAoDfmB/XStp9tuu2H
HG/rJ15bz3ppm/8qt+NTbsen3O6n0+3+Nd7WT7y2nsfbeo7X1vN4W8/x2vxg
rDY/CAAAAAAAAAD0xvygXtr2s023/ZDjbf3Ea+tZL23zX+V2fMrt+JTb/XS6
3b/G2/qJ19bzeFvP8dp6Hm/rOV6bH4zV5gcBAAAAAAAAgN6YH9RL23626bYf
crytn3htPeulbf6r3I5PuR2fcrufTrf713hbP/Haeh5v6zleW8/jbT3Ha/OD
sdr8IAAAAAAAAADQG/ODemnbzzbd9kOOt/UTr61nvbTNf5Xb8Sm341Nu99Pp
dv8ab+snXlvP4209x2vrebyt53htfjBWmx8EAAAAAAAAAHpjflAvbfvZptt+
yPG2fuK19ayXtvmvcjs+5XZ8yu1+Ot3uX+Nt/cRr63m8red4bT2Pt/Ucr80P
xmrzgwAAAAAAAABAb8wP6qVtP9t02w853tZPvLae9dI2/1Vux6fcjk+53U+n
2/1rvK2feG09j7f1HK+t5/G2nuO1+cFYbX4QAAAAAAAAAOjNy3E4738YhmOx
/zw8/NrtDn8738vUcj8dPn7fl+NxsvPXt/5+0nrY71/P62S32w1T/fvt9enn
/v38ea9Oq53/vlPHJz+etaz/NTv9vr9nrp+0nu2v267t79VL2/xXuR2fcjs+
5TZfMN3uX+Nt/cRr63m8red4bT2Pt/Ucr/PvK3w/Vn+n77dPx3/q+/Ak//4c
AAAAAAAAACCiufuReut8b0/aOTLVl6/3fn76/dTWjk+55x6fNBtrP+R2bX+v
Xtrmv8rt+JTb8Sm3+YLpdv8ab+snXlvP4209x2vrebyt53h9+X2F739a60+f
RwAAAAAAAACAcMwPlru2+S/vJ1Y7PuU2Pxir7e/VS9v8V7kdn3I7PuU2XzDd
7l/jbf3Ea+t5vK3neG09j7f1HK/ND7bd5gcBAAAAAAAAgOjMD5a7tvkv7ydW
Oz7lNj8Yq+3v1Uvb/Fe5HZ9yOz7lNl8w3e5f4239xGvrebyt53htPY+39Ryv
zQ+23eYHAQAAAAAAAIDoXo7Def/DMBwne7c73P95ePi7Hybfm9Rq7/ev5983
39vzVafXpdenzvd63arz//zvvJ/P73+N4/N4OJw73ys11k/Z62s4v2v308zj
89jZ8Znz+fp8fN7Vs1ewh7a/Vy9t81/ldnzK7fiU23zBdLt/jbf1E6+t5/G2
nuO19Tze1nO8zr+vqOH7Ol3u/Pvt73wfnn9/DgAAAAAAAAAQ0Z+Hu1n7YtLr
e9qPVNN+NvvHdGs95/P1xes3f/+9dU3XQx2rzX+V2/Ept+NTbs+H0+3+Nd7W
T7y2nsfbeo7X1vN4W8/x2vcbsfry++3pn7v8/hwAAAAAAAAAIB7zg3H2s9k/
pltr++tidU3XQx2rzX+V2/Ept+NTbs+H0+3+Nd7WT7y2nsfbeo7X1vN4W8/x
2vcbsdr8IAAAAAAAAADQG/ODcfaz2T+mW2v762J1TddDHavNf5Xb8Sm341Nu
z4fT7f413tZPvLaex9t6jtfW83hbz/Ha9xux2vwgAAAAAAAAANAb84Nx9rPZ
P6Zba/vrYnVN10Mdq81/ldvxKbfjU27Ph9Pt/jXe1k+8tp7H23qO19bzeFvP
8dr3G7Ha/CAAAAAAAAAA0Bvzg3H2s9k/pltr++tidU3XQx2rzX+V2/Ept+NT
bs+H0+3+Nd7WT7y2nsfbeo7X1vN4W8/x2vcbsdr8IAAAAAAAAADQG/ODcfaz
2T+mW2v762J1TddDHavNf5Xb8Sm341Nuz4fT7f413tZPvLaex9t6jtfW83hb
z/Ha9xux2vwgAAAAAAAAANAb84Nx9rPZP6Zba/vrYnVN10Mdq81/ldvxKbfj
U27Ph9Pt/jXe1k+8tp7H23qO19bzeFvP8dr3G7Ha/CAAAAAAAAAA0Bvzg3H2
s9k/pltr++tidU3XQx2rzX+VO/2+T4fD+Z93u91Q6rdj82u/f70//ezpWLXa
+e/73ePze+XjczpfqV+Ox8nOX7/G8fk94/gk6Ximn/v38+dre6v9O/t9fb7+
u37+N3xch4c303039LR+auv9jPWcfubxfH/Z/n5X2/NG4u+LbdvfF+NtPcdr
32/EavODAAAAAAAAAEBvzA/G2c9m/5hure2vi9U1XQ91rJ57/+pt/eSzZu8+
5nTGOp8TufvG9TN6X/6+2x8f7ydWOz7lzmcD365Nk335+u3ff289Zz1f3l+2
v9/V9ryR+PvC3xe1tvUcr32/EavNDwIAAAAAAAAAvTE/GGc/m/1jurW2vy5W
13Q91LHa/GC5zQ/Gm//yfmK141Nu84Ox2vzgePt7OV77+2K8red47fuNWG1+
EAAAAAAAAADojfnBOPvZ7B/TrbX9dbG6puuhjtXmB8ttfjDe/Jf3E6sdn3Kb
H4zV5gfH29/L8drfF+NtPcdr32/EavODAAAAAAAAAEBvzA/G2c9m/5hure2v
i9U1XQ91rDY/WO70+z4dDud/zmdDvuq3Y/Nrv3+9P/3s6Vi13I//jk8+C1Pq
p+z1t34/+fH/zvlK0uvTz/37+fO19Fadft9Tp+Mw1Y/Z69d4P7W141PuYbgb
Tusznw38qtPr0utT13J96KnT8f894/pzeX/Z/n5X2/NG4u+LbdvfF+NtPcdr
32/EavODAAAAAAAAAEBvzA/G2c9m/5hure2vi9U1XQ91rJ57/+pt/Tg+sdrz
mG6t3d/jtPtFuV2f47Xrz3hbz/Ha9xux2vwgAAAAAAAAANAb84Nx9rPZP6Zb
a/vrYnVN10Mdq807lNvxidWex3Rr7f4ep90vyu36HK9df8bbeo7Xvt+I1eYH
AQAAAAAAAIDemB+Ms5/N/jHdWttfF6truh7qWG3eodyOT6z2PKZba/f3OO1+
UW7X53jt+jPe1nO89v1GrDY/CAAAAAAAAAD0xvxgnP1s9o/p1tr+ulhd0/VQ
x2rzDuV2fGK15zHdWru/x2n3i3K7Psdr15/xtp7jte83YrX5QQAAAAAAAACg
N+YH4+xns39Mt9b218Xqmq6HOlabdyi34xOrPY/p1tr9PU67X5Tb9Tleu/6M
t/Ucr32/EavNDwIAAAAAAAAAvTE/GGc/m/1jurW2vy5W13Q91LHavEO5HZ9Y
7XlMt9bu73Ha/aLcrs/x2vVnvK3neO37jVhtfhAAAAAAAAAA6I35wTj72ewf
0621/XWxuqbroY7V5h3K7fjEas9jurV2f4/T7hfldn2O164/4209x2vfb8Rq
84MAAAAAAAAAQG/MD8bZz2b/mG6t7a+L1TVdD3WsNu9QbscnVnse0621+3uc
dr8ot+vzdKfvc47P9//57G/V+/3r/ds//+3dbjec3u1XnV73++31qfNz3Wrn
v+93jk/ydDh0tZ5ra99vxGrzgwAAAAAAAABAb8wP3m7/j/lBree1/XWxuqbr
oY7V5h3K7fjEas9jurV2f4/T7hfldn2e7rl/f63d+ezb2/95si9fv/37X7vn
Hp+X47Gr9Vxb+34jVpsfBAAAAAAAAAB6Y37wdvt/zA9qPa/tr4vVNV0Pdaw2
71BuxydWex7TrbX7e5x2vyi36/N0mx+M1eYHY7XvN2K1+UEAAAAAAAAAoDfm
B2+3/8f8oNbz2v66WF3T9VDHavMO5XZ8YrXnMd1au7/HafeLcrs+T7f5wVht
fjBW+34jVpsfBAAAAAAAAAB6Y37wdvt/zA9qPa/tr4vVNV0Pdaw271BuxydW
ex7TrbX7e5x2vyi36/N0z/376/j8fP/2M78+/+yt+vFwOHc++zbWT9nr13g/
tfV+/3o+/vks4Vjnx/NdPWuvh/b9Rqw2PwgAAAAAAAAA9Mb84O32/5gf1Hpe
218Xq2u6HupYbd6h3I5PrPY8pltr9/c47X5Rbtfn6fb3V6x2vmK18xWrzQ8C
AAAAAAAAAL0xP3i7/T/mB7We1/bXxeqaroc6Vpt3KLfjE6s9j+nW2v09Trtf
lNv1ebr9/RWrna9Y7XzFavODAAAAAAAAAEBvzA/ebv+P+UGt57X9dbG6puuh
jtXmHcrt+MRqz2O6tXZ/j9PuF+V2fZ5uf3/FaucrVjtfsdr8IAAAAAAAAADQ
G/ODt9v/Y35Q63ltf12srul6qGO1eYdyOz6x2vOYbq3d3+O0+0W5XZ+n299f
sdr5itXOV6w2PwgAAAAAAAAA9Mb84O32/5gf1Hpe218Xq2u6HupYbd6h3I5P
rPY8pltr9/c47X5Rbtfn6fb3V6x2vmK18xWrzQ8CAAAAAAAAAL0xP3i7/T/m
B7We1/bXxeqaroc6Vpt3KLfjE6s9j+nW2v09TrtflNv1ebr9/RWrna9Y7XzF
avODAAAAAAAAAEBvzA/ebv+P+UGt57X9dbG6puuhjtXmHcrt+MRqz2O6tXZ/
j9PuF+V2fZ5uf3/FaucrVjtfsdr8IAAAAAAAAADQm5fjcN7/MAzHyd7tDvd/
Hh7+7q/I97q02r/3r+ffd7fbDR/H4b+dXrd/e33qfO/irTr95//+95//nfdz
Oncf5+su+x1v02n9bH2O9Pf76XDIzt1xsvPXr/F+9jM+X0n+eazhePbWc85X
fr1a43qYOq3PU6d1O9X569d4P/p296+176e1rZ/0+x6fn/P9qEOp85/det9t
j315/P8apjq/lm753rX+qvPnvRru7zrW/bSmnnt8kn1nf1/M+X4jya8P7+q5
dvXQc67Pib+Xfb7099v8IAAAAAAAAADQm7n7n3vrfG9Pmsab6svXb/9+3ir7
v99+300+Wzr2nnU9HX09r/1+dLlrO1+1vR9d7trOV23vZ06bH9y2zQ/q1jr/
746Idj3ssSPfv36iHZ9yzz0+l9eHpJ5rVw/t+hyrfb5itflBAAAAAAAAAKA3
5gfLXdv+Q/OD+pqOvp7th9y2aztftb0fXe7azldt72dOmx/cts0P6tbafEqs
jnz/+ol2fMptvilWuz7Hap+vWG1+EAAAAAAAAADojfnBcte2/9D8oL6mo69n
+yG37drOV23vR5e7tvNV2/uZ0+YHt23zg7q1Np8SqyPfv36iHZ9ym2+K1a7P
sdrnK1abHwQAAAAAAAAAevNyHM77H/JZsK/6z8PDr93u8LfzvdMt99Ph4/dN
e3um+vGw3vFJx//yvHzsUxrr0/t5//m7Ffohez/WT82djv9+/3o+L/netq86
f/1a7+1x5ufracXPl451vuau5yS9Pv3cv58/7xXUP9NpPZw63ys71o/Z69d4
P/l6qOF6OKePz/f3H/fij/uw/pnOz8U/w1Tna2/L9671V51fb91P6+/a7qe1
teNzu+efz8fnXT3Xrh56zvW5tufV3vrPgr9Pfb62bfODAAAAAAAAAEBvLvc/
lPdLvO+NOb2+nj0fvfTl8f/ez6y9v8X6idNz5x0uX7/9+9f6mvWcmN/ReX9a
D8PHv3c91OV2/dGt9Zzr4Rev3/z9a6193lttz6tx2vNhvDY/CAAAAAAAAAD0
xvxXnDY/qH9yP5v9h7rmtj9TX9v2Y+ul7fqjW2vzRFr30z7vsdrzapz2fBiv
zQ8CAAAAAAAAAL0x/xWnzQ/qn9zPZv+hrrntz9TXtv3Yemm7/ujW2jyR1v20
z3us9rwapz0fxmvzgwAAAAAAAABAb8x/xWnzg/on97PZf6hrbvsz9bVtP7Ze
2q4/urU2T6R1P+3zHqs9r8Zpz4fx2vwgAAAAAAAAANAb819x2vyg/sn9bPYf
6prb/kx9bduPrZe2649urc0Tad1P+7zHas+rcdrzYbw2PwgAAAAAAAAA9Mb8
V5w2P6h/cj+b/Ye65rY/U1/b9mPrpe36o1tr80Ra99M+77Ha82qc9nwYr80P
AgAAAAAAAAC9Mf8Vp80P6p/cz2b/oa657c/U17b92Hppu/7o1to8kdb9tM97
rPa8Gqc9H8Zr84MAAAAAAAAAQG/mzH/9eXj4dXy+/9v5LJj+mc6P/3fO13/P
7+2ZH4zT5gd1S21/pr627cfWS9v1R7fW5om07qefDofz53e32w2nfzvWv/ev
9+l7iNT5Z1//TB+fn8/H/87zatWdjn/6fJ3+OeLn6+U4ZP/3u+Y7fb/68fma
PsfmBwEAAAAAAACA6Ob+79npWG1+UJ/K/KBuqc3v6Gvb/KBe2q4/urU2P6h1
P/1yPGaf32H4+Pdfdz7rdPeN64Perj2vbtvp+KfP18e/i/f5Gobj5sex5jY/
CAAAAAAAAABEZ36w7TY/qE9lflC31OZ39LVtflAvbdcf3VqbH9S6nzY/2G57
Xt22zQ+23+YHAQAAAAAAAIDozA+23eYH9anMD+qW2vyOvrbND+ql7fqjW2vz
g1r30+YH223Pq9u2+cH22/wgAAAAAAAAABDdn4eHXx999+W+CB25H7K9vbdn
fjBOmx/ULbX5HX1tmx/US9v1R7fW5ge17qcfD4fz5zefXfqq03cJ+/3r35/L
7326zj4+39/7vmW7Tucifb5O/7z15yv95+92H+8nnw0c6/z5to7vM2vrdb9f
BQAAAAAAAACAmpkfjNPmB3VLbX5HX9vmB/XSdv3RrbX5Qa37ac8/Wq/TtX3f
cvn92/d+xv++HgAAAAAAAAAAMMb8YJyubT+b1j+5nhPzDjpv++f10nb90a21
+UGt+2nPP1qv07V932J+EAAAAAAAAAAAuCXzg3G6tv1sWv/kek7MO+i87Z/X
S9v1R7fW5ge17qc9/2i9Ttf2fYv5QQAAAAAAAAAA4JbMD8bp2vazaf2T6zkx
76Dztn9eL23XH91amx/Uup/2/KP1Ol3b9y3mBwEAAAAAAAAAgFsyPxina9vP
pvVPrufEvIPO2/55vbRdf3RrbX5Q637a84/W63Rt37eYHwQAAAAAAAAAAG7J
/GCcrm0/m9Y/uZ4T8w46b/vn9dJ2/dGttflBrftpzz9ar9O1fd9ifhAAAAAA
AAAAALgl84Nxurb9bFr/5HpOzDvovO2f10vb9Ue31uYHte6nPf9ovU7X9n2L
+UEAAAAAAAAAAGr35+Hh10fffbmPRdfUH3uNhuFY7LR/6eU42H9oP5vWV7f5
HX1t2z+vl7brj26tzQ9q3U97/tF6na7t+5Yl84PH5/tzV/J9Y/asAQAAAAAA
AABAa+bub9Hbdj4neGf/YdVd2342rX9yPSfmHXTe9s/rpe36o1tr84Na99Oe
f7Rep2v7vmXJ/GBt7X8PEQAAAAAAAACgbdH3t/TW5gfjdG372bT+yfWcmHfQ
eds/r5e2649urc0Pat1Pe/7Rep2u7fsW84MAAAAAAAAAANQu+v6W3tr8YJyu
bT+b1j+5nhPzDjpv++f10nb90a21+UGt+2nPP1qv07V932J+EAAAAAAAAACA
2s3Z3/Ln4eHX8fn+b+d7Y/TPdDr+u92hmv1Ruty17WfT+ifXc2LeQedt/7xe
2q4/urU2P6h1P+35R+t1urbvW9J3pek7u4//v+7ut+z8+9vv/g7mBwEAAAAA
AAAA2jZnfvDyv097+/1CvXVt+6N0uZ0v3VKb39HXtv3zemm7/ujW2vyg1v20
5x+t12nft5R7yf8eovlBAAAAAAAAAIC2mR+M0/ZHxWrnS7fU5nf0tW3/vF7a
rj+6tTY/qHU/7flH63Xa9y3lNj8IAAAAAAAAAMBn5gfjtP1Rsdr50i21+R19
bds/r5e2649urc0Pat1Pe/7Rep32fUu5zQ8CAAAAAAAAAPCZ+cE4bX9UrHa+
dEttfkdf2/bP66Xt+qNba/ODWvfTnn+0Xqd931Ju84MAAAAAAAAAAHxmfjBO
2x8Vq50v3VKb39HXtv3zemm7/ujW2vyg1v205x+t12nft5Tb/CAAAAAAAAAA
AJ+ZH4zT9kfFaudLt9Tmd/S1bf+8XtquP7q1Nj+odT/t+Ufrddr3LeU2PwgA
AAAAAAAAwGfmB+O0/VGx2vnSLbX5HX1t2z+vl7brj26tzQ9q3U97/tF6nfZ9
S7nNDwIAAAAAAAAA8Jn5wTidjv/T4XD+591uN5T6z8PDr9/71+zcPegf7Pz4
f+d8XZ7f7deb1tdcf5L92/pPn4PU+d5p3Wfn6yHa/ev4fH/v+We7XjI/eHx+
XvX6k66Hp345Hif7MXt9DZ9HvW3/b7gbTutzeHNewCOdv76G96+j9d19uo/d
nW1/Xe+p83NxZ75J65v13OfD3j5f77/v3ayfMT8IAAAAAAAAANA284NxOh3/
tBf949997Cse63wu4+4b++31bfvy+JfP1+X53X69ae36o2/Zc66H/339tu+/
t/3GtfWS+cG1O/J61tt3Phv4ttYn+/L1279/Has/za/d1XBd76nND2q9Tpsf
LLf5QQAAAAAAAAAAPjM/GKfN78Rr84O6lXb90dd25Hmr3vYb19bmB3VrbX5Q
/2SbH9y2zQ9qvU6bHyy3+UEAAAAAAAAAAD4zPxinze/Ea/ODupV2/dHXduR5
q972G9fW5gd1a21+UP9kmx/cts0Par1Omx8st/lBAAAAAAAAAAA+Mz8Yp9Px
fzwczv+c70X/qv88PPza71+zc/egf7Dz4/+d83V5frdfb1p/vv48uf7oK/p0
fctnUUv9lL1+jevz8fk5W+v2G9fcx+f7+9PzZw3rOa2f3zPu766H+vP6GYav
Zwm/6vz1Nbx/vf36mXP/+vcz5gc37E/Hf/j49543tL6mLz8vfw2l7u3z9f77
3s36GfODAAAAAAAAAABtMz8Yp+2PitXOl26prWfdUlvP2vrR1o+O2HPXT2J+
cNs2P6j1Ou1+Wm7zgwAAAAAAAAAAfGZ+ME7bHxWrnS/dUlvPuqW2nrX1o60f
HbHND8Zr84Nar9Pup+U2PwgAAAAAAAAAwGfmB+O0/VGx2vnSLbX1rFtq61lb
P9r60RHb/GC8Nj+o9Trtflpu84MAAAAAAAAAAHxmfjBO2x8Vq50v3VJbz7ql
tp619aOtHx2xzQ/Ga/ODWq/T7qflNj8IAAAAAAAAAMBn5gfjtP1Rsdr50i21
9axbautZWz/a+tER2/xgvDY/qPU67X5abvODAAAAAAAAAAB8Zn4wTtsfFaud
L91SW8+6pbaetfWjrR8dsc0Pxmvzg1qv0+6n5TY/CAAAAAAAAADAZ+YH47T9
UbHa+dIttfWsW2rrWVs/2vrREdv8YLw2P6j1Ou1+Wm7zgwAAAAAAAAAAfDZn
P8mfh4dfx+f7v53vRbllvxyH7P/+oLNOx3+/fz2fl91uN5Q6/ezj4dDN/qja
Oh3/p/Pxnz5f6fz+/nd+a1hvevs+rZ/3a+NxsvPXr3H9OT4/5/sJh1L3tj9T
x2r7jbX1o60fHbHn/n2RpL8v0nNc6nyWrdVOx+fU6Tl5qvPXr/F+8uP/nb8H
9/4eHO30XZT/Pit9qtrup+/r8/2z/v7/1939lv0n+/72u7+D+UEAAAAAAAAA
gLbN/e+jXruH4fjt/T89dr7PMB2tUuezRTWc29768vgn5fOVXJ7f7deb3rbn
fN7/+/pt3795B11z17bfWMdq60dbP3rL9ePvi3LX9vxc2/uJ3K6Huub7aT67
t9b/H2u3+UEAAAAAAAAAgLbVtr/F/GC5zQ/Gaft79bUdeb+x/b265q5tv7GO
1daPtn70luvH3xflru35ubb3E7ldD3XN91PzgwAAAAAAAAAA1K62/S3mB8tt
fjBO29+rr+3I+43t79U1d237jXWstn609aO3XD/+vih3bc/Ptb2fyO16qGu+
n5ofBAAAAAAAAACgdn8eHn599N2X+0Z+tj/2ruSzhGO92x3uT79D+tm0Z6fl
/r1/Pf+++d7Crzr9zNPhYH/dhvvZHs/Hf/p8pfO6fzu/p589fRZ0n52vh4jr
5/h8f/9xbd/+86h1zfuNday2frT1o7dcP/6+uN3zc7LP/r5e4+/39Pf4qdPs
51Q/Zq+v4fuHtfv4/Hw+/neuh3pG13Y/ff/Pv5v1M+lv5lNX8n3s+fthAAAA
AAAAAABY29z9Nun1p71n3/2ZyJ3vtbuzv67qrm0/m47V1o/W67XPl7Z+tPWj
I7b1U+65xyf59Pf1Zu+91/b9hl7atV0Pl8wP+t/7AwAAAAAAAACgZ+YH7a9r
pWvbz6ZjtfWj9Xrt86WtH2396Iht/ZTb/GC89v2GXtq1XQ/NDwIAAAAAAAAA
wDzmB+2va6Vr28+mY7X1o/V67fOlrR9t/eiIbf2U2/xgvPb9hl7atV0PzQ8C
AAAAAAAAAMA85gftr2ula9vPpmO19aP1eu3zpa0fbf3oiG39lNv8YLz2/YZe
2rVdD80PAgAAAAAAAADAPOYH7a9rpWvbz6ZjtfWj9Xrt86WtH2396Iht/ZTb
/GC89v2GXtq1XQ/NDwIAAAAAAAAAwDzmB+2va6Vr28+mY7X1o/V67fOlrR9t
/eiIbf2U2/xgvPb9hl7atV0PzQ8CAAAAAAAAAMA85gftr2ula9vPpmO19aP1
eu3zpa0fbf3oiG39lNv8YLz2/YZe2rVdD80PAgAAAAAAAADAPOYH7a9rpWvb
z6ZjtfWj9XqdPi9Ph8P5n3e73VDqt8/Wr9/71/vTz54+a/rn+nS+Ur8cj5Od
v/7W7ydfD99dP/vO1k9N56u2nrt+Lq9X218/9bbt+bDc5gfjdbq+nY6/5zH3
08jPY+k/f7c7nN/PMBwn++U45NcrAAAAAAAAAADoivnBcn/a3zh8/Hv7RWtr
+3u19aN1nZ3vtX43DFOd70O++8Y8gr5tXx7/7c9Xbe+ntnZ8yj3n+Fxer7a/
fupt2/Nhuc0Pxut0ffs4/u4Xn9v9tNzRj8+n6xUAAAAAAAAAAHTF/GC5zQ/G
aft7tfWjdZ1tfjBe17Y/vLb3U1s7PuU2P6iXtufDcpsfjNfmB8vtflru6MfH
/CAAAAAAAAAAAD0zP1hu84Nx2v5ebf1oXWebH4zXte0Pr+391NaOT7nND+ql
7fmw3OYH47X5wXK7n5Y7+vExPwgAAAAAAAAAQM/MD5bb/GCctr9XWz9a19np
8/J4OJz/Od9L/FW/fbZ+7fev96efPX3W9M90fvxrOV9P/9ZPPttV6sfs9Vsf
z9rOV5Jen37u38+fn3Vb7fz3nTo+l9er7a+fetv2fFhu84PxOl3fTsff/eK6
+0WPz6s1PY+l47/bHc5rfBiOk/1yHPLrFQAAAAAAAAAAdMX8YLk/7W8cPv69
/aK1tf292vrRus72+YrVzlesNr8z3Z7n9dJ2PSy360+8nnM9/OL1m7//tdv9
Ik6/H/+7WT9z+XoAAAAAAAAAAOiL+UH7x1pp+3u19aN1ne3zFaudr1htfme6
Pc/rpe16WG7Xn3htftD9opU2PwgAAAAAAAAAAPOYH7R/rJW2v1dbP1rX2T5f
sdr5itXmd6bb87xe2q6H5Xb9idfmB90vWmnzgwAAAAAAAAAAMI/5QfvHWmn7
e7X1o3Wd7fMVq52vWG1+Z7o9z+ul7XpYbtefeG1+0P2ilTY/CAAAAAAAAAAA
85gftH+slba/V1s/WtfZPl+x2vmK1eZ3ptvzvF7arofldv2J1+YH3S9aafOD
AAAAAAAAAAAwj/lB+8daaft7tfWjdZ3t8xWrna9YbX5nuj3P66Xtelhu1594
bX7Q/aKVNj8IAAAAAAAAAADzmB+0f6yVtr9XWz9a19k+X7Ha+YrV5nem2/O8
Xtquh+V2/YnX5gfdL1pp84MAAAAAAAAAADDP3P02x+f7+z8PD79OP3vaW3Wr
fjkO2f/9YfP+vX89/7673W44HYevOr1u//b61Pleslv20+Fw7pfjcbLz16/x
fmrqdPx//zv+tZyvOf3+2Tp9Hrffj9db55+X5Dvr53dF66e2tp71f/f35v/O
fuya2/mK1eZ3pts8iF7arofldv2J1+YH3S+Wdv5dYD67t1Wn95Le05zfwfwg
AAAAAAAAAAA9mzs/uHYPw3HW/sO1O58bSu9uqi9f3/77qa0jH5/e9h/W1vns
7btY66e2tp7158+X+Ys47XzFavM7020eRC9t18Nyu/7Ea/OD7hdLO5/dq+U9
zW3zgwAAAAAAAAAA9Ky2/T/mB2O9n9o68vHpbf9hbW1+0HrW67X5i1jtfMVq
8zvTbR5EL23Xw3K7/sRr84PuF0vb/CAAAAAAAAAAAMRW2/4f84Ox3k9tHfn4
9Lb/sLY2P2g96/Xa/EWsdr5itfmd6TYPope262G5XX/itflB94ulbX4QAAAA
AAAAAABi+/Pw8Ouj777cV/Oz/bG3J58lHOvd7nB/+h3yvV636qfD4dxptmiq
H7PXr/F+9vvX8++bzy591el16fWp871tLXc6X6c+zYKV+jF7/a3fTzr+x+fn
fH/aUOre9h/W1vl6SKY+X0n+eVzj815bp/Wc3TPOx+Grtp71f/cb5//O+qm5
na9YbX5nus2D6KXtelhu1594bX7Q/WJpL5kfPD7fn7uS7xuztQwAAAAAAAAA
AGxp7n6k9Hr72b7u3vaz1db2G8dq+5+n2/VHL23Xw1jtfMVq96/pdv/SS9v1
sNyuP/Ha/KD7xdJeMj/of+8PAAAAAAAAAAAYY37QfrZW2n7jWG3/83S7/uil
7XoYq52vWO3+Nd3uX3ppux6W2/UnXpsfdL9Y2uYHAQAAAAAAAACAWzI/aD9b
K22/cay2/3m6XX/00nY9jNXOV6x2/5pu9y+9tF0Py+36E6/ND7pfLG3zgwAA
AAAAAAAAwC2ZH7SfrZW23zhW2/883a4/emm7HsZq5ytWu39Nt/uXXtquh+V2
/YnX5gfdL5a2+UEAAAAAAAAAAOCWzA/az9ZK228cq+1/nm7XH720XQ9jtfMV
q92/ptv9Sy9t18Nyu/7Ea/OD7hdL2/wgAAAAAAAAAABwS+YH7Wdrpe03jtX2
P0+3649e2q6Hsdr5itXuX9Pt/qWXtuthuV1/4rX5QfeLpW1+EAAAAAAAAAAA
uCXzg/aztdL2G8dq+5+n2/VHL23Xw1jtfMVq96/pdv/SS9v1sNyuP/Ha/KD7
xdI2PwgAAAAAAAAAANyS+UH72VrpdPyfDofzP+92u6HUb+fq1+/96/3pZ0/n
Tv9M58f/O+crSee3p+tP/vtaz/X36fqT+uV4nOz89Vt/vi6vn/V8Bnpp8zKx
2vzOdLt/xerI96/0+n1H6yf9vv8bPq4tw5upTq9PP/fv58+fTf0zfXx+vj8d
/zv3i//0p993+Pj3nn/ef9+7WT9jfhAAAAAAAAAAABhjftB+tlY639v87mPf
7Fjn+5DvvrGfU9+2L4//9PlK57en68/l72s9195z1/Pa52vO+7m8ftbzGeil
zQ/GavOD0+3+Fasj379+4v3U1vls4NtnbrIvX7/9+9fl7u1+4fuW8TY/CAAA
AAAAAAAA3JL5QfvZWmnzg/Ha/KD5i5a6tnkH84Nx2vxgrDY/ON3uX7E68v3r
J95PbW1+sO3u7X7h+5bxNj8IAAAAAAAAAADckvlB+9laafOD8dr8oPmLlrq2
eQfzg3Ha/GCsNj843e5fsTry/esn3k9tbX6w7e7tfuH7lvE2PwgAAAAAAAAA
ANyS+UH72VrpdPwfD4fzP+d7ib/qt3P1a79/vT/97Onc6Z/p/Ph/53wl6fz2
dP3Jf1/rue6eu57XPl9z38/l9bOez0AvbX4wVpsfnG73rzi95HksvT793L+f
P5/rW/VTtn7yWdSxztfbGu+nth6Gu+F0/PPZwPH+eH0N719P9d398fm+muv5
2v3p/jh8/HvPP++/792snzE/CAAAAAAAAAAAjDE/aD9bK23+Ilabv5hu1584
Xdv1p7b3o8vtfMVq96/pdv+K09ZzvJ7z+fri9Zu/f63zdr8Yb/ODAAAAAAAA
AADALZkftJ+tlTZ/EavtV59u1584Xdv1p7b3o8vtfMVq96/pdv+K09ZzvDY/
qFtq94vxNj8IAAAAAAAAAADckvlB+9laafMXsdp+9el2/YnTtV1/ans/utzO
V6x2/5pu9684bT3Ha/ODuqV2vxhv84MAAAAAAAAAAMAtmR+0n62VNn8Rq+1X
n27Xnzhd2/Wntvejy+18xWr3r+l2/4rT1nO8Nj+oW2r3i/E2PwgAAAAAAAAA
ANyS+UH72Vpp8xex2n716Xb9idO1XX9qez+63M5XrHb/mm73rzhtPcdr84O6
pXa/GG/zgwAAAAAAAAAAwC2ZH7SfrZU2fxGr7VefbtefOF3b9ae296PL7XzF
avev6Xb/itPWc7w2P6hbaveL8TY/CAAAAAAAAAAA3JL5QfvZWmnzF7HafvXp
dv2J07Vdf2p7P7rczlesdv+abvevOG09x2vzg7qldr8Yb/ODAAAAAAAAAADA
Lc3dj3R8vr//8/Dw6/Szp71e2/XDr/Se5vwO9rO12eYvYrX96tPt+hOna7v+
zH0/7/fS5/vPP3vLfjoczv1yPE52/vo13k9NnY7/7/3r+Xztdruh1On1+3+v
r+H999b55+WfYardv87+0+5f27bnsXhtflC31HPWc7r/7naHvz+Xz9a12ku+
6zI/CAAAAAAAAAAAjJk7P1hbr/2/h2j/c5yubX5Hl9t+9el2/YnTtV1/lny+
1u58Du7t/zzZl6/f/v2v3Y5P2+3+dfafdv/atj2PxWvzg7qlnrueh+FYzXuv
sc0PAgAAAAAAAAAAY8wP3m4/m/3P23Zt8zu63ParT7frT5yu7fpjfjBeOz5t
t/vX2X/a/Wvb9jwWr80P6pba/OBt2/wgAAAAAAAAAAAwxvzg7faz2f+8bdc2
v6PLbb/6dLv+xOnarj/mB+O149N2u3+d/afdv7Ztz2Px2vygbqnND962zQ8C
AAAAAAAAAABj/jw8/Prouy/3Hf1kH5/vZ++PMj+ok9rmd3S57VefbtefOF3b
9SfdS0/31vz/r606PWvs96/n95fPvo11ev3pGSX/LLTaT4fDuV+Ox8l+zF5f
w/vXU313P/cZN3K7f8Vpz2Px2vygbqlfjsN5feazgWOdX69q+P6qvn7IPusA
AAAAAAAAAAD1mvu/h2h+UJ+qtvkdXW771afb9SdOu/6U2+dd677a/StOuz7H
a/ODuqW+/D5n+uf87+sBAAAAAAAAAAC0wfygXtrmd2K1/erT7foTp11/yu3z
rnVf7f4Vp12f47X5Qd1Smx8EAAAAAAAAAADok/lBvbTN78Rq+9Wn2/UnTrv+
lNvnXeu+2v0rTrs+x2vzg7qlNj8IAAAAAAAAAADQJ/ODemmb34nV9qtPt+tP
nHb9KbfPu9Z9tftXnHZ9jtfmB3VLbX4QAAAAAAAAAACgT+YH9dI2vxOr7Vef
btefOO36U26fd637avevOO36HK/ND+qW2vwgAAAAAAAAAABAn8wP6qVtfidW
268+3a4/cdr1p9w+71r31e5fcdr1OV6bH9QttflBAAAAAAAAAACAPpkf1Evb
/E6stl99ul1/4rTrT7l93rXuq92/4rTrc7w2P6hbavODAAAAAAAAAAAAfZo7
P3h8vr//8/Dw6/Szp71nt+r/Dcfzf/5utxtO//9+1el1+/3r3/eW78XVP9Pp
+P9v+NgrO7wpdXr9MPx377r+ufM1zDhfSTq/H5/3h+wze5t+OhzO/XI8Tnb+
+jXez/H5+Xz9uTN/UXWbHyy3+RSt+2rzg3E6Hf/Ht+eZ0z9P/b2TpL931nwe
07d7Pvz8s++2X3c9dfpuIX1n8d7br5/aerc7nNfzMBzPx2+sX45DdowBAAAA
AAAAAACIau784Nqdzzf9/aeJzvfW3n1jP6e+beezZm/ncbIvX7/9+++taztf
l5/fWJ938xfbtvnBcpsf1LqvNj8Yp9PxT//dCB//Ltbzj3Y/rb3nXA/199bz
HQAAAAAAAAAAAOGZH9TXdG3zaLrctZ0v84N6aZsfLLf5Qa37avODcdr8YPvt
fhrneqi/t57vAAAAAAAAAAAACM/8oL6ma5tH0+Wu7XyZH9RL2/xguc0Pat1X
mx+M0+YH22/30zjXQ/299XwHAAAAAAAAAABAeH8eHn599N391v10OJx7GPK5
p7E+3p9+h3yvoP6ZTufidPzzWbPx/nh9De+/t67tfO33r+fPb743/qtOr0uv
T53PPmzVx+f7+49rVz17pntp84PlNj+odV9tfjBOp+Of/70z9fyT/M6el2p4
ntRTfXefnhOn1oJep+dcD9Pn6vj8/Pfnavj7Yu1Ov+9u93H9Sd+lTPXLcciO
MQAAAAAAAAAAANzG3P89xPR68w7b9Zz9mV+8fvP331vXdr7MO+ilbX6w3OYH
te6r3U/jtOuz1uu26+F4v/++d7N+5vL1AAAAAAAAAAAAcBvmB2N1bfNoOtb5
sr9XL23zg+U2n6J1X+1+Gqddn7Vet10Px9v8IAAAAAAAAAAAALX4P3t3eJw2
u61hmFJUidHuhHQid0LciDWuxKV8WyHAS8YgBAit9XJdP87cyWdnYxAIzugZ
2w/m6mh7NJ3r8XJ9r7617Qcvt32K1q/Vzqd52uuz1vO218PzbT8IAAAAAAAA
AABAFPaDuTraHk3nerxc36tvbfvBy22fovVrtfNpnvb6rPW87fXwfNsPAgAA
AAAAAAAAEIX9YK6OtkfTuR4v1/fqW9t+8HLbp2j9Wu18mqe9Pms9b3s9PN/2
gwAAAAAAAAAAAERhP5iro+3RdK7Hy/W9+ta2H7zc9ilav1Y7n+Zpr89az9te
D8+3/SAAAAAAAAAAAABR2A/m6mh7NJ3r8XJ9r7617Qcvt32K1q/Vzqd52uuz
1vO218PzbT8IAAAAAAAAAABAFFOvZ+s/1+v3rnvbf+/+WkH9nG6a7eH+X7n+
OXzbD+paejgePrbbw5+bpmkv9fA6tdl8r/ffuz+Wau3y573m/hn8+v/XH8+n
XfGar3e9Wg/vOVYHyz8PtHY+zdf2g/m6fP2PcT7Sl7p8PzP2/uf0/eTjj6Hy
/1dRbveW6uG2TH0vYz8IAAAAAAAAAADAHKbuB/Wy3ba9658Ttf2grqWH4+Gr
L19/2nasy+vGV1cc/9n79Od1/9zbzl86cjuf5mn7wXw99f2zXranvP85fT85
1/N9FeZYvqXtBwEAAAAAAAAAAJhD9uvrXq3tB3O1/aCupe0H7Qef3c5fOnI7
n+Zp+8F8bT+Yq+0HH9v2gwAAAAAAAAAAAMwh+/V1r9b2g7naflDX0vaD9oPP
bucvHbmdT/O0/WC+th/M1faDj237QQAAAAAAAAAAAObw3nVvx179eN2ajtTH
awvLLeG5/upb1z8v2PaDupYejoeP7fbw5/Ja8Z96OLdsNt/r/ffuj6Wa+/ff
+6e8Nv5SfxRfH+H2z9nD8dB/fhbH1vKvh1rf086nedp+MF9PeX6V55cI57tX
6/L93mDs/WH5fmm+5/tq0vf0n+tDB/m8X7z2AAAAAAAAAAAAAK9o6vWQw9e7
/nm5th/UtfTU/YXjR99z/Azsd3Tkdj7N015/8rXnV56O9v7wlv2g3/cHAAAA
AAAAAAAARGM/mKvtB3UtHe36cJ2r7Xd0be18mqe9/uRrz688He39of0gAAAA
AAAAAAAAUAP7wVxtP6hr6WjXh+tcbb+ja2vn0zzt9Sdfe37l6WjvD+0HAQAA
AAAAAAAAgBrYD+Zq+0FdS0e7PlznavsdXVs7n+Zprz/52vMrT0d7f2g/CAAA
AAAAAAAAANTAfjBX2w/qWjra9eE6V9vv6Nra+TRPe/3J155feTra+0P7QQAA
AAAAAAAAAKAG9oO52n5Q19LRrg/Xudp+R9fWzqd52utPvvb8ytPR3h/aDwIA
AAAAAAAAAAA1sB/M1faDupaOdn24ztX2O7q2dj7N015/8rXnV56O9v7QfhAA
AAAAAAAAAAC4xXvXvR179eN1hs/sj+320G17vCbzXP+v7df7n6G8Flc/p39t
vg/3f9M0h8flXA+Pr/2gjtjRrg/XuXo4Hsrz1zWvh+XrZ4TXc61vPb+fHv/L
Px9fre0H87X3q3l66vNreN1smt3rYbn1e1QP/37/uZ70M9gPAgAAAAAAAAAA
AFN/f8HcXW4D//xppMvr2FdXXC+tH9un9//44/XV9/aDOmTbD+p7j5/h9e34
35y/dO6ecn4/Pf6Xfz6+WtsP5mvvV/P0Lc+vtu0Xv91l2w8CAAAAAAAAAAAA
9oP6nrYf1LW0/aC+9/ixH9Q1tf1gnrYfzNfer+Zp+0EAAAAAAAAAAACgBvaD
+p62H9S1tP2gvvf4sR/UNbX9YJ62H8zX3q/maftBAAAAAAAAAAAAoAZT9oPv
XffWf67/9O5aytVDe/j3y+sty2vXz/Vm870evu/v9x+uxdXP6fL+v+bx+r3d
2g/qkG0/qO89fobXt/2fx14Ph9fN4fVz/737Y0nrCF0en+eO4bJPj//ln4+v
1vaD+dr71Ty920e3hz+Xn1XPdfl8LD9rL9dd8VwHAAAAAAAAAAAAXtGU/WC5
9XP9sx7+75Trn3/4+kVvj+ux9T2vP44f7fjRtbbjOVd7/5yvvV/N06eff6/7
Hr/vDwAAAAAAAAAAAIjGflDf0/aDupa2l9GOH613HM+52vvnfO39ap62HwQA
AAAAAAAAAABqYD+o72n7QV1L28tox4/WO47nXO39c772fjVP2w8CAAAAAAAA
AAAANbAf1Pe0/aCupe1ltONH6x3Hc672/jlfe7+ap+0HAQAAAAAAAAAAgBrY
D+p72n5Q19L2Mtrxo/WO4zlXe/+cr71fzdP2gwAAAAAAAAAAAEAN7Af1PW0/
qGtpexnt+NF6x/Gcq71/ztfer+Zp+0EAAAAAAAAAAACgBvaD+p62H9S1tL2M
dvxoveN4ztXeP+dr71fztP0gAAAAAAAAAAAAUIMp10O+d91b/7n+0+W1lI/q
4d9vmq3rnxO1/aCupe1ltONH653h+PzYbg9/bpqmvdTD+7dfm+/1/nv3x7Z+
Tg/3/+bv/X/N4zUYHq/h+/5+/+G9U609HM/7/ur70S6/fo7bU97/1zy/Np5f
F/urb4u/Xz20y8+/O+OvofaDAAAAAAAAAAAAQDRTf5/C3N22fXm9ZTvW9oPL
tv2grqXtv7TjR+ud3R6nL/5b2451uXtaXfF+QD+2T+9/j9e/He3+iXZ7svfp
58flX0PtBwEAAAAAAAAAAIBo7Af1PW0/qGtp+y/t+NF6x34wX9ujXe5o90+0
25O97QcBAAAAAAAAAAAALrMf1Pe0/aCupe2/tONH6x37wXxtj3a5o90/0W5P
9rYfBAAAAAAAAAAAALjsvevejr368brH5/bx2svyWtBz/dW39oMLtv2grqXt
v7TjR+ud4fj8vd0e/lxul871ZvO93r+nLM/F+jk9PF77HrafY/1RfH2E2z93
l8dnhOP5Y+Lj9fvFHq+m2R7u/2s+D5bn3yCfZ4vPOgAAAAAAAAAAAAD8a+rv
Qxy+3n5wubYf1LW0/Zd2/Gi9M/V4Hvh90DpyR3u/qscer/Lz3fj3+X1/AAAA
AAAAAAAAALnYD+bqaNdj2w/qW9v+Szt+tN6xH9S1dbT3q3rs8bIfBAAAAAAA
AAAAAKiZ/WCujnY9tv2gvrXtv7TjR+sd+0FdW0d7v6rHHi/7QQAAAAAAAAAA
AICa2Q/m6mjXY9sP6lvb/ks7frTesR/UtXW096t67PGyHwQAAAAAAAAAAACo
mf1gro52Pbb9oL617b+040frHftBXVtHe7+qxx4v+0EAAAAAAAAAAACAmtkP
5upo12PbD+pb2/5LO3603rEf1LV1tPereuzxsh8EAAAAAAAAAAAAqJn9YK6O
dj22/aC+te2/tONH6x37QV1bR3u/qsceL/tBAAAAAAAAAAAAgJpN3Q/2n+v1
e9e97b93f63pct29Dbdpys+QuT+228PP3jRNu/+v5/rX5rt4vLryfntIb4p/
f+z2DF833J6hy61EzT08Xvv+6vvRLr8+wu2fs8vj4drjZzPz8ePxytO71/7P
cr/QXmr7QR257Qd1bT11P9g025f6fFH++xF+3vLz3TU/h/0gAAAAAAAAAAAA
QC5T94PR+tV+H+KwXTr+vG17/O8/d7nDWl1x/fbUPv33l7890dr9c7mj3T/R
bo9+XNsP6shtP6hr66n7wbbtw9z23e2f9/PF1N/3F63tBwEAAAAAAAAAAABy
sR/M1faDudr9c7mj3T/Rbo9+XNsP6shtP6hra/vBsfvHfhAAAAAAAAAAAACA
57EfzNX2g7na/XO5o90/0W6PflzbD+rIbT+oa2v7wbH7x34QAAAAAAAAAAAA
gOd577q3Y69+vC70md1/rkNd3xutf2+3h5+33C791MNju9l8//m+cpvwyB5u
z76HbeNYfxRfP8ftidTl/X/N4zUYvn7/nCyvva+1P4rjudzGnuvy+J/j9pT3
f4Tnl35cD+eW47kmzmu61gP7QV1bf/Xt4fgst4Hnujz+X+HzxdT9YHn7I3xe
Kz8/AgAAAAAAAAAAAMBUU38f4qvtB6f8Phe/b2vZtgfJ155fWusl2vlC19ZT
93Fz/z67aJ8vot0/AAAAAAAAAAAAAPBM0a7vjdb2TXnaHiRfe35prZdo5wtd
W0fbx0X7fBHt/gEAAAAAAAAAAACAZ4p2fW+0tm/K0/Yg+drzS2u9RDtf6No6
2j4u2ueLaPcPAAAAAAAAAAAAADxTtOt7o7V9U562B8nXnl9a6yXa+ULX1tH2
cdE+X0S7fwAAAAAAAAAAAADgmaJd3xut7ZvytD1Ivvb80lov0c4XuraOto+L
9vki2v0DAAAAAAAAAAAAAM8U7freaG3flKftQfK155fWeol2vtC1dbR9XLTP
F9HuHwAAAAAAAAAAAAB4pmjX90Zr+6Y8bQ+Srz2/tNZLtPOFrq2j7eOifb6I
dv8AAAAAAAAAAAAAwDNNvb63/1yv37vubf+9+2txa+2m2R5+3pV9U+i2B8nX
9oNa6yXa+ULX1tH2cdE+X5T/foT7BwAAAAAAAAAAAACeaer1va/WbdtfvS+w
b1q27UHytf2g1nqJdr7QtXX2/WC0th8EAAAAAAAAAAAAoCbZr++du+0H87Q9
SL62H9RaL9HOF7q2th98bNsPAgAAAAAAAAAAAFCT7Nf3zt32g3naHiRf2w9q
rZdo5wtdW9sPPrbtBwEAAAAAAAAAAACoyXvXvR179eN1s6/dx2uJyy3hTz1c
t/3Vt3//fvlrn1+t7UHytf2g1nqJdr7QtXW8/WD2zxdd8VwHAAAAAAAAAAAA
AGo25fen7PYI+6+Pc035q7Q9SL62H9RaL9HOF7q2jrYfBAAAAAAAAAAAAADI
wn4wT9uD5Gv7Qa31Eu18oWtr+0EAAAAAAAAAAAAAgNvYD+Zpe5B8bT+otV6i
nS90bW0/CAAAAAAAAAAAAABwG/vBPG0Pkq/tB7XWS7Tzha6t7QcBAAAAAAAA
AAAAAG5jP5in7UHytf2g1nqJdr7QtbX9IAAAAAAAAAAAAADAbewH87Q9SL62
H9RaL9HOF7q2th8EAAAAAAAAAAAAALiN/WCetgfJ1/aDWusl2vlC19b2gwAA
AAAAAAAAAAAAt5myH3zvurf+c/2nyy1hzf3Vt8Xfd4v2cP//2nwfHpemadqx
/thu7UEWbPtBrfUSfct+sGm26+E8M3S51dI6Qg/vP/fHp/0gAAAAAAAAAAAA
AMD1puwHX7Hbtp+0v5i7y23gcOvG+qvv7QcXbPtBrfUSfct+8PR8t/zPoPU9
bT8IAAAAAAAAAAAAALBjP3i57Qf1PW0/qLVeou0H9au3/SAAAAAAAAAAAAAA
wI794OW2H9T3tP2g1nqJth/Ur972gwAAAAAAAAAAAAAAO+9d93bs1Y/XXb92
H69FL7cVP/VwXzbN9k+X241H9fDvbzbfh//dckt4rn9vt/aDC7b9oNZ6iR5e
T7769vDnsfPXoDzfxTj/an1Pd8V7HwAAAAAAAAAAAAAA+NmU38+423/tv36e
PcjU3yf1z35tltulz7f9oNZ6iT49H133PX5fGwAAAAAAAAAAAAAA8GrsB/U9
bT+otV6i7QcBAAAAAAAAAAAAAADG2Q/qe9p+UGu9RNsPAgAAAAAAAAAAAAAA
jLMf1Pe0/aDWeom2HwQAAAAAAAAAAAAAABhnP6jvaftBrfUSbT8IAAAAAAAA
AAAAAAAwzn5Q39P2g1rrJdp+EAAAAAAAAAAAAAAAYJz9oL6n7Qe11ku0/SAA
AAAAAAAAAAAAAMC4KfuL96576z/Xf7rcbjyqh3+/abblvqMd6+Hrh+/b/yz7
LZve9/Exu+Yxntr2g7qWHp4np69Lnb6zv/p21vPF1Nc2+0EAAAAAAAAAAAAA
AODVTP39TXN32/aT9oOnX7/87Y/W5ZZwjv8N+0FdS9/y+0/15Y72+mw/CAAA
AAAAAAAAAAAAvBr7wbrbflDr69p+0H4QAAAAAAAAAAAAAACgNvaDdbf9oNbX
tf2g/SAAAAAAAAAAAAAAAEBt3rvu7dirH3cWz+yvvi3+vhvt069f/vbP3f3n
2n5Q6yD7wf7zc71/DS2fC7V202wPP2+5DTzXp6/by79+luc7AAAAAAAAAAAA
AAAAiGbq74u0H9T6ur5lP/jP8b/YbX9Wn76eXPf6swIAAAAAAAAAAAAAAACu
Yj+o9TxtPzje9oMAAAAAAAAAAAAAAAAwH/tBredp+8Hxth8EAAAAAAAAAAAA
AACA+dgPaj1P2w+Ot/0gAAAAAAAAAAAAAAAAzMd+UOt52n5wvO0HAQAAAAAA
AAAAAAAAYD72g1rP0/aD420/CAAAAAAAAAAAAAAAAPOxH9R6nrYfHG/7QQAA
AAAAAAAAAAAAAJjP1P1g/7lev3fd2/5799ufR3XTbA///mpkbzV83fD1Q++2
Wiutw3R5fJbH7aUuj/85nl/Runw9sR8EAAAAAAAAAAAAAACAx5q6H5y727af
tLc6/frlb7/Wjuf52n4QAAAAAAAAAAAAAAAArmc/qPV87Xh+bNsPAgAAAAAA
AAAAAAAAwPXsB7Werx3Pj237QQAAAAAAAAAAAAAAALjee9e9HXv1407nmf3V
t8Xfd6N9+vXL336tHc9z9vH1CgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA/9qDQwIAAAAAQf9fu8IGAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPALHp9QT

    "], {{0, 360.}, {360., 0}}, {0., 1.},
    ColorFunction->RGBColor,
    ImageResolution->240.],
   BoxForm`ImageTag[
   "Real32", ColorSpace -> "RGB", Interleaving -> True, Magnification -> 
    Automatic],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Medium,
  ImageSizeRaw->{360., 360.},
  PlotRange->{{0, 360.}, {0, 360.}}]], "Output",
 CellChangeTimes->{3.808653183534685*^9, 3.8086533083279653`*^9, 
  3.8086533920287914`*^9},
 CellLabel->
  "Out[1176]=",ExpressionUUID->"966998ec-4144-4bf6-bbd3-474d57249df5"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1440., 747.75},
WindowMargins->{{1149.6, Automatic}, {Automatic, -2.4}},
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 9, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"fac5d17d-d082-4d79-8601-2c05818a5343"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 224, 4, 67, "Chapter",ExpressionUUID->"f378f99f-d930-4438-b4ec-0dd9ee025ea4"],
Cell[CellGroupData[{
Cell[829, 30, 330, 6, 55, "Subsection",ExpressionUUID->"0cd69c8a-834e-4e59-b523-06ec09725770"],
Cell[1162, 38, 3594, 100, 286, "Input",ExpressionUUID->"2aa59055-6cfd-49b3-b999-52b9034d47da"],
Cell[CellGroupData[{
Cell[4781, 142, 810, 20, 28, "Input",ExpressionUUID->"276dec46-077f-44c8-85b5-e827359ed8f4"],
Cell[5594, 164, 4535, 104, 111, "Output",ExpressionUUID->"95465b4b-6c78-477a-9c0b-3fe9d366f986"]
}, Open  ]],
Cell[10144, 271, 2624, 70, 251, "Input",ExpressionUUID->"ef68822a-5b4c-477d-ac1c-6aa6d2471eec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12805, 346, 413, 7, 55, "Subsection",ExpressionUUID->"cfa62f30-498b-4be3-a2e3-16e291572d25"],
Cell[CellGroupData[{
Cell[13243, 357, 373, 7, 28, "Input",ExpressionUUID->"40fcc847-3f4c-4c66-9c0a-2e6f1a057839"],
Cell[13619, 366, 12009, 247, 61, "Output",ExpressionUUID->"2278a086-0601-4b7e-b039-e9f93889b1b6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25665, 618, 272, 6, 28, "Input",ExpressionUUID->"5d7a86de-a8ae-44d1-a6a4-cf366a889c0f"],
Cell[25940, 626, 8666, 176, 61, "Output",ExpressionUUID->"6e8ab120-86ec-48a6-bad1-0809ec6248ee"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[34655, 808, 397, 7, 55, "Subsection",ExpressionUUID->"c92ae8f6-5edb-414f-a4b1-59cb4506479a"],
Cell[35055, 817, 3875, 99, 326, "Input",ExpressionUUID->"f199eb66-6595-4272-b2af-92e659561927"],
Cell[38933, 918, 1569, 39, 176, "Input",ExpressionUUID->"96d23474-892f-42fb-81a9-663ec6e55c9a"],
Cell[40505, 959, 4251, 83, 232, "Input",ExpressionUUID->"5a66758a-0d2b-4f72-831b-553724b29e43"],
Cell[44759, 1044, 3798, 87, 382, "Input",ExpressionUUID->"ded0a266-d3c3-46b6-9505-38f9cc2b1a34"],
Cell[48560, 1133, 5990, 139, 636, "Input",ExpressionUUID->"109013f2-0e96-4c32-bcdf-465271faf7b2"],
Cell[54553, 1274, 2993, 75, 251, "Input",ExpressionUUID->"c36c9ebc-d659-4102-890d-b26a882e5111"],
Cell[57549, 1351, 2395, 58, 232, "Input",ExpressionUUID->"06f9038d-6210-4a92-befc-b429a025614f"],
Cell[59947, 1411, 1402, 30, 83, "Input",ExpressionUUID->"2095b4ec-14a0-40df-b450-17a069a1ee63"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61386, 1446, 255, 5, 55, "Subsection",ExpressionUUID->"590fb9ce-f85e-41f3-92db-9bf695e4fa6b"],
Cell[61644, 1453, 913, 27, 66, "Input",ExpressionUUID->"af3b50ae-7ca1-4557-9bf0-4191dea6a566"],
Cell[62560, 1482, 894, 23, 47, "Input",ExpressionUUID->"00413906-54c7-4949-a729-339627613c0e"],
Cell[63457, 1507, 2213, 51, 85, "Input",ExpressionUUID->"3d5151bd-a2b1-4ccc-9983-d28eb71703e5"],
Cell[CellGroupData[{
Cell[65695, 1562, 1081, 20, 28, "Input",ExpressionUUID->"a54274f6-40b2-48ca-8214-a6cec65ae3a8"],
Cell[66779, 1584, 5183, 93, 368, "Output",ExpressionUUID->"8c785855-6c11-4667-9699-0e1f4d10aa57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71999, 1682, 258, 5, 45, "Subsubsection",ExpressionUUID->"f806da0c-1cd0-4e80-ba45-789a3f3bf095"],
Cell[72260, 1689, 1639, 33, 85, "Input",ExpressionUUID->"45a3d6a7-20e7-4278-9974-485178a2b412"],
Cell[73902, 1724, 730, 18, 28, "Input",ExpressionUUID->"50a5044b-d36e-44b0-b08d-30b7c6a03c3a"],
Cell[74635, 1744, 403, 9, 28, "Input",ExpressionUUID->"c999ae8a-35e2-490d-b2f8-e2a3202a4413"],
Cell[CellGroupData[{
Cell[75063, 1757, 433, 8, 28, "Input",ExpressionUUID->"e85f9bae-3f62-4197-b090-aa2aad9e1d4c"],
Cell[75499, 1767, 4639, 78, 377, "Output",ExpressionUUID->"df683c51-4773-4bda-9009-89c8e88bb0b6"]
}, Open  ]],
Cell[80153, 1848, 746, 16, 28, "Input",ExpressionUUID->"e9f862bb-cd32-45ce-9b12-49d08568e2e0"],
Cell[80902, 1866, 352, 8, 28, "Input",ExpressionUUID->"cd086444-b68f-41e1-9a15-b71fc7d0f26e"],
Cell[CellGroupData[{
Cell[81279, 1878, 438, 8, 28, "Input",ExpressionUUID->"59af1a08-9b68-48c4-b104-09a10a6dc04a"],
Cell[81720, 1888, 3504, 59, 377, "Output",ExpressionUUID->"0c3db8bf-1662-4942-bea9-14ecb69c8aef"]
}, Open  ]],
Cell[85239, 1950, 821, 22, 85, "Input",ExpressionUUID->"8906d558-4ffd-462b-a7f7-cd91c0004b95"],
Cell[86063, 1974, 317, 6, 28, "Input",ExpressionUUID->"3cdcd4be-52fc-4b17-beac-5cad1f7d4133"],
Cell[86383, 1982, 424, 11, 28, "Input",ExpressionUUID->"730842d9-9b50-406c-8eff-a7081724e6ef"],
Cell[86810, 1995, 539, 14, 47, "Input",ExpressionUUID->"13f9df9e-97dd-4c37-b112-788d3fb24129"],
Cell[87352, 2011, 268, 6, 28, "Input",ExpressionUUID->"b1f21a9f-4e34-4363-8a2a-28012180c8d6"],
Cell[87623, 2019, 312, 6, 28, "Input",ExpressionUUID->"745aff11-181b-47b6-bda3-bc4885a6b726"],
Cell[87938, 2027, 383, 10, 28, "Input",ExpressionUUID->"55326c19-ff08-4587-badd-5f70d302c95f"],
Cell[88324, 2039, 493, 11, 28, "Input",ExpressionUUID->"bf79de87-c6b2-42d3-b15d-08406de3f8c6"],
Cell[CellGroupData[{
Cell[88842, 2054, 451, 11, 28, "Input",ExpressionUUID->"e8fdfae3-90fd-4523-836b-5a302e60b375"],
Cell[89296, 2067, 8770, 206, 164, "Output",ExpressionUUID->"617554df-7bf7-41bc-b341-b60888b73066"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[98127, 2280, 254, 5, 55, "Subsection",ExpressionUUID->"c153a6cf-4d68-4746-b707-536612f44679"],
Cell[98384, 2287, 746, 18, 44, "Input",ExpressionUUID->"1697e8d0-ecef-4794-841f-e1a02e42cba7"],
Cell[99133, 2307, 241, 5, 28, "Input",ExpressionUUID->"c61334a3-316f-4cf4-9463-0e131b30d2e8"],
Cell[99377, 2314, 20965, 360, 1001, "Input",ExpressionUUID->"3b04c33c-8289-44c3-b6a9-93ddde0bb4af"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120379, 2679, 247, 5, 55, "Subsection",ExpressionUUID->"6aba9467-2196-4639-8a3f-c4ecc91adc0b"],
Cell[CellGroupData[{
Cell[120651, 2688, 1218, 25, 28, "Input",ExpressionUUID->"d6420aee-3526-46ba-882d-4d7ab29ce403"],
Cell[121872, 2715, 8439, 159, 379, "Output",ExpressionUUID->"8221efdf-c65d-4298-9761-8bf46a4862e7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130348, 2879, 1160, 26, 47, "Input",ExpressionUUID->"82b90eea-4824-43cb-adf5-9bef3fb6e505"],
Cell[131511, 2907, 19429, 337, 297, "Output",ExpressionUUID->"44b6d8f8-60e8-4d62-8a96-1fad3870c755"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150977, 3249, 1299, 32, 66, "Input",ExpressionUUID->"7bc959d2-87aa-4806-a614-c7a9e120ac4b"],
Cell[152279, 3283, 948, 17, 32, "Output",ExpressionUUID->"b0f888d5-0885-4b39-b97a-569021cedd17"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153264, 3305, 967, 19, 28, "Input",ExpressionUUID->"c1401907-b692-4166-b698-a9bf16591979"],
Cell[154234, 3326, 1470, 22, 32, "Output",ExpressionUUID->"0a719b43-6f94-4351-8dcd-eec423651c7c"]
}, Open  ]],
Cell[155719, 3351, 344, 8, 28, "Input",ExpressionUUID->"27417581-2f53-4486-a996-ffe6d88664ba"],
Cell[156066, 3361, 489, 12, 28, "Input",ExpressionUUID->"175867c3-e828-4c90-ae5c-25690e6e0345"],
Cell[156558, 3375, 741, 19, 28, "Input",ExpressionUUID->"b6ada955-d2b8-4555-bd87-e8ee6b80be0f"],
Cell[CellGroupData[{
Cell[157324, 3398, 1315, 29, 28, "Input",ExpressionUUID->"272ccba7-6e4e-4b92-bb8e-89252a5385ac"],
Cell[158642, 3429, 61308, 1013, 377, "Output",ExpressionUUID->"966998ec-4144-4bf6-bbd3-474d57249df5"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)