SummerSchoolFinalCode.nb

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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    346413,       7762]
NotebookOptionsPosition[    342758,       7633]
NotebookOutlinePosition[    343111,       7649]
CellTagsIndexPosition[    343068,       7646]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Classifying Cellular Automata using Machine Learning", "Title",
 CellChangeTimes->{{3.676755351116619*^9, 3.676755353987001*^9}, 
   3.676909569883449*^9, {3.676909805297806*^9, 3.676909814393909*^9}, {
   3.6769112408529778`*^9, 3.6769112453316193`*^9}}],

Cell[CellGroupData[{

Cell["Collect data", "Subchapter",
 CellChangeTimes->{{3.676755357571052*^9, 3.676755359426938*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"CreateData", "[", 
   RowBox[{"range_", ",", "init_", ",", "t_", ",", "preserveBackground_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "ca", "}"}], ",", "\n", 
    RowBox[{"ca", " ", "=", " ", 
     RowBox[{"If", "[", 
      RowBox[{"preserveBackground", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"CellularAutomaton", "[", 
          RowBox[{"#", ",", "init", ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "All"}], "}"}]}], "]"}], "&"}], " ", "/@", " ", 
        "range"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"CellularAutomaton", "[", 
          RowBox[{"#", ",", "init", ",", "t"}], "]"}], "&"}], " ", "/@", " ", 
        "range"}]}], "]"}]}]}], "\n", "]"}]}]], "Code",
 CellChangeTimes->{3.67675536698437*^9, 3.676756202038403*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Preprocessing", "Chapter",
 CellChangeTimes->{{3.676755538985375*^9, 3.676755558928247*^9}}],

Cell[CellGroupData[{

Cell["Remove steady states and periodic patterns", "Subchapter",
 CellChangeTimes->{{3.676755564680112*^9, 3.676755573992248*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"CalcDiff", "[", 
    RowBox[{"ca_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "difftable", ",", " ", "initable", ",", " ", "ftable", ",", " ", "t"}], 
      "}"}], ",", "\n", "\t", 
     RowBox[{
      RowBox[{"t", " ", "=", " ", 
       RowBox[{"Length", "[", "ca", "]"}]}], ";", "\n", "\t", 
      RowBox[{"initable", " ", "=", " ", 
       RowBox[{"ca", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", 
          RowBox[{"t", "-", "k"}]}], "]"}], "]"}]}], ";", "\n", "\t", 
      RowBox[{"ftable", " ", "=", " ", 
       RowBox[{"ca", "[", 
        RowBox[{"[", 
         RowBox[{"k", ";;", "t"}], "]"}], "]"}]}], ";", "\n", "\t", 
      RowBox[{"difftable", " ", "=", " ", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"k", "\[Equal]", "0"}], ",", "ca", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"ca", "[", 
              RowBox[{"[", 
               RowBox[{"#", "+", "k"}], "]"}], "]"}], "-", 
             RowBox[{"ca", "[", 
              RowBox[{"[", "#", "]"}], "]"}]}], "]"}], "&"}], " ", "/@", " ", 
          
          RowBox[{"Range", "[", 
           RowBox[{"t", "-", "k"}], "]"}]}]}], "]"}]}]}]}], "\n", "\t", 
    "]"}]}], "\n", "\t"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"CreateTable", "[", 
    RowBox[{"calist_", ",", " ", "periods_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"dtable", ",", "k", ",", "t"}], "}"}], ",", "\n", "\t", 
     RowBox[{
      RowBox[{"t", " ", "=", " ", 
       RowBox[{"Length", "[", 
        RowBox[{"calist", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", "\n", "\t", 
      RowBox[{"dtable", " ", "=", " ", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"CalcDiff", "[", 
            RowBox[{"ca", ",", "#"}], "]"}], "&"}], "/@", 
          RowBox[{"Range", "[", 
           RowBox[{"0", ",", "periods"}], "]"}]}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"ca", ",", "calist"}], "}"}]}], "]"}]}]}]}], "\n", "\t", 
    "]"}]}], "\n", "\t"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"FirstClearing", "[", 
    RowBox[{"ctable_", ",", " ", "k_", ",", " ", "carange_"}], "]"}], ":=", 
   RowBox[{"Module", "[", "\n", "\t", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "p1", ",", "p2", ",", " ", "pTable", ",", " ", "denTable", ",", " ", 
       "dprime", ",", " ", 
       RowBox[{"carangeNew", " ", "=", " ", "carange"}]}], "}"}], ",", "\n", 
     "\t", 
     RowBox[{
      RowBox[{"pTable", " ", "=", " ", 
       RowBox[{"CreateTable", "[", 
        RowBox[{"ctable", ",", "k"}], "]"}]}], ";", "\n", "\t", 
      RowBox[{"denTable", " ", "=", " ", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"i", ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"DensityFeature", "[", 
              RowBox[{"Preprocess", "[", 
               RowBox[{
                RowBox[{"pTable", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "[", 
                RowBox[{"[", "#", "]"}], "]"}], "]"}], "]"}], "&"}], "/@", 
            RowBox[{"Range", "[", 
             RowBox[{"k", "+", "1"}], "]"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Range", "[", 
            RowBox[{"Length", "[", "carange", "]"}], "]"}]}], "}"}]}], 
        "]"}]}], ";", "\n", "\t", 
      RowBox[{"(*", "*)"}], 
      RowBox[{"p1", " ", "=", " ", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{"denTable", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "2"}], "]"}], "]"}], "<", "0.08"}], "&"}]}], 
         "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\n", "\t", "\n", 
      "\t", 
      RowBox[{"dprime", " ", "=", " ", 
       RowBox[{"Select", "[", 
        RowBox[{"denTable", ",", " ", 
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{"p1", ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "&"}]}], "]"}]}], ";", 
      "\n", "\t", 
      RowBox[{"denTable", " ", "=", " ", 
       RowBox[{"Complement", "[", 
        RowBox[{"denTable", ",", " ", "dprime"}], "]"}]}], ";", "\n", "\t", 
      RowBox[{"(*", "*)"}], 
      RowBox[{"p2", " ", "=", " ", 
       RowBox[{
        RowBox[{"Select", "[", 
         RowBox[{"denTable", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "3"}], "]"}], "]"}], "<", "0.08"}], "&"}]}], 
         "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\n", "\t", "\n", 
      "\t", 
      RowBox[{"{", 
       RowBox[{"p1", ",", " ", "p2", ",", " ", 
        RowBox[{"Complement", "[", 
         RowBox[{"carangeNew", ",", " ", 
          RowBox[{"Join", "[", 
           RowBox[{"p1", ",", " ", "p2"}], "]"}]}], "]"}]}], "}"}]}]}], "\n", 
    "\t", "]"}]}], "\n", "\t", "\n", 
  RowBox[{"(*", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"ArrayPlot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"periodTable", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "[", 
            RowBox[{"[", "#", "]"}], "]"}], ",", 
           RowBox[{"PlotLabel", "\[Rule]", " ", 
            RowBox[{"DensityFeature", "[", 
             RowBox[{"Preprocess", "[", 
              RowBox[{
               RowBox[{"periodTable", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "[", 
               RowBox[{"[", "#", "]"}], "]"}], "]"}], "]"}]}]}], "]"}], "&"}],
         "/@", 
        RowBox[{"Range", "[", 
         RowBox[{"k", "+", "1"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Range", "[", 
        RowBox[{"Length", "[", "carange", "]"}], "]"}]}], "}"}]}], "]"}], 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"ArrayPlot", "/@", 
      RowBox[{"CreateData", "[", 
       RowBox[{"#", ",", "init", ",", "t", ",", "True"}], "]"}]}], "&"}], "/@", 
    RowBox[{"{", 
     RowBox[{"p1", ",", "p2", ",", "caa"}], "}"}]}], "*)"}]}]}], "Code",
 CellChangeTimes->{
  3.676755543372521*^9, {3.6767557942769833`*^9, 3.6767558045235558`*^9}, {
   3.676755840689069*^9, 3.676755846056065*^9}, {3.676756038427915*^9, 
   3.676756038722261*^9}, {3.676756115484317*^9, 3.676756116026634*^9}, {
   3.676756161238613*^9, 3.676756190160845*^9}, {3.676759772215129*^9, 
   3.6767597959819393`*^9}, {3.6767598603909283`*^9, 3.676759870775433*^9}, {
   3.676759904537125*^9, 3.6767599442267942`*^9}, {3.6767599791604853`*^9, 
   3.6767600469750147`*^9}, {3.676760116907013*^9, 3.676760142776209*^9}, {
   3.676760243540092*^9, 3.676760246156642*^9}, {3.6767607268047657`*^9, 
   3.676760766041052*^9}, {3.676760810315692*^9, 3.676760825211225*^9}, {
   3.6767608611783667`*^9, 3.676760967260191*^9}, {3.676760999314148*^9, 
   3.676761041950501*^9}, {3.67676119137551*^9, 3.67676124875666*^9}, {
   3.676761288987989*^9, 3.676761296052231*^9}, {3.676761391193611*^9, 
   3.676761394016138*^9}, {3.676761425429961*^9, 3.6767616117331543`*^9}, 
   3.67676164447589*^9, {3.676761746660447*^9, 3.676761748465726*^9}, {
   3.6767620100553007`*^9, 3.676762060542338*^9}, {3.6767621121317863`*^9, 
   3.676762166379427*^9}, {3.676762275676743*^9, 3.6767622764050217`*^9}, {
   3.676762372652191*^9, 3.676762392715254*^9}, 3.676762583953753*^9, {
   3.676763859574675*^9, 3.676763863637957*^9}, {3.676764714724717*^9, 
   3.676764716444336*^9}, {3.6767855783988733`*^9, 3.6767855798687983`*^9}, {
   3.6768219133625402`*^9, 3.676821936527233*^9}, {3.676822184591302*^9, 
   3.6768221892486687`*^9}, {3.676822222343493*^9, 3.6768222258551807`*^9}, {
   3.6768223418233643`*^9, 3.676822347053773*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"list", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3", ",", "5"}], "}"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"40", ",", " ", 
       RowBox[{"{", 
        RowBox[{"0.2", ",", " ", "0.3", ",", " ", "7"}], "}"}]}], "}"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"23", ",", " ", 
       RowBox[{"{", 
        RowBox[{"0.2", ",", " ", "0.3", ",", " ", "7"}], "}"}]}], "}"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"43", ",", " ", 
       RowBox[{"{", 
        RowBox[{"0.2", ",", " ", "0.3", ",", " ", "7"}], "}"}]}], "}"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6767616578428392`*^9, 3.676761678423957*^9}, {
  3.6767617245048113`*^9, 3.676761725704075*^9}, {3.6767620850491323`*^9, 
  3.6767620891048098`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Select", "[", 
   RowBox[{"list", ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", " ", "2"}], "]"}], "]"}], "<", "0.4"}], "&"}]}], 
   "]"}], "[", 
  RowBox[{"[", 
   RowBox[{"All", ",", " ", "1"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.676761692243325*^9, 3.6767617320234127`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"40", ",", "23", ",", "43"}], "}"}]], "Output",
 CellChangeTimes->{{3.676761713852894*^9, 3.6767617325441093`*^9}, 
   3.676762092546665*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["ImageProcessing", "Subchapter",
 CellChangeTimes->{{3.676775024037986*^9, 3.676775027524675*^9}, 
   3.676775090846517*^9, 3.676775205304624*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"CalcLine", "[", 
    RowBox[{"carange_", ",", "catable_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "lines", "}"}], ",", "\n", "\t", 
     RowBox[{"lines", " ", "=", " ", 
      RowBox[{"(*", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"carange", "[", 
          RowBox[{"[", "#", "]"}], "]"}], ","}]}], "*)"}], 
      RowBox[{
       RowBox[{
        RowBox[{"ImageLines", "[", 
         RowBox[{"Rasterize", "[", 
          RowBox[{"ArrayPlot", "[", 
           RowBox[{"catable", "[", 
            RowBox[{"[", "#", "]"}], "]"}], "]"}], "]"}], "]"}], "&"}], "/@", 
       
       RowBox[{"Range", "[", 
        RowBox[{"Length", "[", "carange", "]"}], "]"}]}]}]}], "\n", "]"}]}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"InvertColor", "[", "data_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"invData", ",", "oneArr"}], "}"}], ",", "\n", "\t", 
     RowBox[{
      RowBox[{"oneArr", " ", "=", " ", 
       RowBox[{"Table", "[", 
        RowBox[{"1", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Range", "[", 
            RowBox[{"Length", "[", 
             RowBox[{"data", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
        "]"}]}], ";", "\n", "\t", 
      RowBox[{"invData", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{"#", "-", "oneArr"}], "]"}], "&"}], "/@", "data"}]}]}]}], 
    "\n", "\t", "]"}]}], "\n", "\t"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ReplaceDark", "[", "catable_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "retTable", "}"}], ",", "\n", "\t", 
     RowBox[{"retTable", " ", "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"DensityFeature", "[", 
            RowBox[{"Preprocess", "[", "#", "]"}], "]"}], ">", "0.5"}], ",", 
          RowBox[{"InvertColor", "[", "#", "]"}], ",", "#"}], "]"}], "&"}], "/@",
        "catable"}]}]}], "\n", "\t", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"SecondClearing", "[", 
    RowBox[{"dtable_", ",", "labels_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "drkTable", ",", " ", "lines", ",", " ", "slopes", ",", " ", "fset", 
       ",", " ", "c", ",", " ", "dVect", ",", " ", "clus", ",", " ", 
       "method"}], "}"}], ",", "\n", "\t", 
     RowBox[{
      RowBox[{"drkTable", " ", "=", " ", 
       RowBox[{"ReplaceDark", "[", "dtable", "]"}]}], ";", "\n", "\t", 
      RowBox[{"lines", " ", "=", "  ", 
       RowBox[{"CalcLine", "[", 
        RowBox[{"labels", ",", "drkTable"}], "]"}]}], ";", "\n", "\t", 
      RowBox[{"slopes", "   ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "/", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "&"}], ")"}], "/@", 
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{"Differences", "/@", "#"}], ",", " ", "1"}], "]"}]}], 
         "&"}], "/@", "lines"}]}], ";", "\n", "\t", 
      RowBox[{"fset", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Kurtosis", "[", 
            RowBox[{"slopes", "[", 
             RowBox[{"[", "#", "]"}], "]"}], "]"}], ",", 
           RowBox[{"Length", "[", 
            RowBox[{"lines", "[", 
             RowBox[{"[", "#", "]"}], "]"}], "]"}]}], "}"}], "&"}], " ", "/@",
         " ", 
        RowBox[{"Range", "[", 
         RowBox[{"Length", "[", "slopes", "]"}], "]"}]}]}], ";", "\n", "\t", 
      RowBox[{"method", " ", "=", " ", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", "fset", "]"}], " ", "\[Equal]", " ", "1"}], 
         ",", " ", "\"\<GaussianMixture\>\"", ",", " ", "Automatic"}], 
        "]"}]}], ";", "\n", "\t", 
      RowBox[{"c", " ", "=", " ", 
       RowBox[{"ClusterClassify", "[", 
        RowBox[{"fset", ",", " ", 
         RowBox[{"Method", "->", "method"}]}], "]"}]}], ";", "\n", "\t", 
      RowBox[{"dVect", " ", "=", " ", 
       RowBox[{"c", "[", "fset", "]"}]}], ";", "\n", "\t", 
      RowBox[{"clus", " ", "=", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"Pick", "[", 
          RowBox[{"labels", ",", " ", "dVect", ",", " ", "#"}], "]"}], "&"}], 
        "/@", 
        RowBox[{"DeleteDuplicates", "[", "dVect", "]"}]}]}], ";", "\n", "\t", 
      
      RowBox[{"{", 
       RowBox[{"c", ",", "clus"}], "}"}]}]}], "\n", "\t", "]"}]}], "\n", 
  "\t"}], "\n", 
 RowBox[{
  RowBox[{"SecondClearing2", "[", 
   RowBox[{"c_", ",", " ", "dtable_", ",", "labels_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "drkTable", ",", " ", "lines", ",", " ", "slopes", ",", " ", "fset", ",",
       "  ", "dVect", ",", " ", "clus"}], "}"}], ",", "\n", "\t", 
    RowBox[{
     RowBox[{"drkTable", " ", "=", " ", 
      RowBox[{"ReplaceDark", "[", "dtable", "]"}]}], ";", "\n", "\t", 
     RowBox[{"lines", " ", "=", "  ", 
      RowBox[{"CalcLine", "[", 
       RowBox[{"labels", ",", "drkTable"}], "]"}]}], ";", "\n", "\t", 
     RowBox[{"slopes", "   ", "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "/", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "&"}], ")"}], "/@", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Differences", "/@", "#"}], ",", " ", "1"}], "]"}]}], 
        "&"}], "/@", "lines"}]}], ";", "\n", "\t", 
     RowBox[{"fset", " ", "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Kurtosis", "[", 
           RowBox[{"slopes", "[", 
            RowBox[{"[", "#", "]"}], "]"}], "]"}], ",", 
          RowBox[{"Length", "[", 
           RowBox[{"lines", "[", 
            RowBox[{"[", "#", "]"}], "]"}], "]"}]}], "}"}], "&"}], " ", "/@", 
       " ", 
       RowBox[{"Range", "[", 
        RowBox[{"Length", "[", "slopes", "]"}], "]"}]}]}], ";", "\n", "\n", 
     "\t", 
     RowBox[{"dVect", " ", "=", " ", 
      RowBox[{"c", "[", "fset", "]"}]}], ";", "\n", "\t", 
     RowBox[{"clus", " ", "=", "  ", 
      RowBox[{
       RowBox[{
        RowBox[{"Pick", "[", 
         RowBox[{"labels", ",", " ", "dVect", ",", " ", "#"}], "]"}], "&"}], "/@", 
       RowBox[{"DeleteDuplicates", "[", "dVect", "]"}]}]}], ";", "\n", "\t", 
     "clus"}]}], "\n", "\t", "]"}]}]}], "Code",
 CellChangeTimes->{{3.676775208232984*^9, 3.676775260696713*^9}, {
   3.676775341881675*^9, 3.676775362887566*^9}, {3.676775451221839*^9, 
   3.676775451964306*^9}, {3.67677555443613*^9, 3.676775588146703*^9}, {
   3.676783356223124*^9, 3.676783357751202*^9}, {3.676783400291658*^9, 
   3.676783401631446*^9}, {3.6767837756280107`*^9, 3.67678377883556*^9}, {
   3.6767840577662363`*^9, 3.67678406893965*^9}, {3.676784191688863*^9, 
   3.676784196136516*^9}, {3.676784846623502*^9, 3.676784848406178*^9}, 
   3.676785135018058*^9, {3.67678528693994*^9, 3.676785516948051*^9}, {
   3.6767855584702187`*^9, 3.676785559188572*^9}, {3.676785590429088*^9, 
   3.6767855911246233`*^9}, {3.6768205479276342`*^9, 3.676820577564569*^9}, {
   3.676821479450801*^9, 3.6768214863601437`*^9}, {3.676826640851139*^9, 
   3.6768267034484577`*^9}, {3.676826861218088*^9, 3.6768268759615803`*^9}, {
   3.676828380050828*^9, 3.676828407642069*^9}, {3.676829586861557*^9, 
   3.676829604812174*^9}, {3.676852038183107*^9, 3.676852043468605*^9}, {
   3.676852233697749*^9, 3.676852290961207*^9}, 3.676852329668747*^9, {
   3.676852371631884*^9, 3.676852377613997*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Cleaning conforming", "Subchapter",
 CellChangeTimes->{{3.676757283245767*^9, 3.676757287356443*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Conform", "[", "data_", "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"max", ",", " ", "cdata"}], "}"}], ",", "\n", "\t", 
     RowBox[{
      RowBox[{"max", " ", "=", " ", 
       RowBox[{"Max", "/@", 
        RowBox[{"Transpose", "[", 
         RowBox[{"Dimensions", "/@", 
          RowBox[{"(", "data", ")"}]}], "]"}]}]}], ";", "\t", "\n", "\t", 
      RowBox[{"cdata", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"CenterArray", "[", 
          RowBox[{"#", ",", " ", "max"}], "]"}], "&"}], "/@", 
        RowBox[{"(", "data", ")"}]}]}], ";", "\n", "\t", "cdata"}]}], "\n", 
    "\t", "]"}]}], "\n", "\t"}], "\n", 
 RowBox[{
  RowBox[{"Preprocess", "[", "data_", "]"}], " ", ":=", " ", 
  RowBox[{"Flatten", "[", "data", "]"}]}]}], "Code",
 CellChangeTimes->{{3.676757290038877*^9, 3.676757295365646*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Features", "Subchapter",
 CellChangeTimes->{{3.676755719479856*^9, 3.676755720550289*^9}}],

Cell[CellGroupData[{

Cell["Density", "Subsection",
 CellChangeTimes->{{3.676755726318625*^9, 3.676755728694345*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DensityFeature", "[", "fcellularAuto_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"f", ",", "res", ",", " ", "aus"}], "}"}], ",", "\n", "\t", 
    RowBox[{
     RowBox[{"f", " ", "=", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"{", 
        RowBox[{"fcellularAuto", ",", "0"}], "}"}], "]"}]}], ";", "\n", "\t", 
     
     RowBox[{"aus", " ", "=", " ", 
      RowBox[{"Counts", "[", "f", "]"}]}], ";", "\n", "\t", 
     RowBox[{"res", " ", "=", " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", "aus", "]"}], "\[Equal]", "1"}], ",", " ", 
        "0", ",", " ", 
        RowBox[{
         RowBox[{"N", " ", "@", " ", 
          RowBox[{"aus", "[", "1", "]"}]}], "/", 
         RowBox[{"Total", "[", "aus", "]"}]}]}], "]"}]}]}]}], "\n", 
   "]"}]}]], "Code",
 CellChangeTimes->{
  3.6767557358419857`*^9, {3.6767631973483753`*^9, 3.6767631999244833`*^9}, {
   3.676763237690772*^9, 3.676763281417342*^9}, {3.676763369035446*^9, 
   3.676763393164199*^9}, {3.676763508365385*^9, 3.676763564421225*^9}, {
   3.676764237109964*^9, 3.676764259225417*^9}, 3.6767644038608923`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Density2", "Subsection",
 CellChangeTimes->{{3.67639103886373*^9, 3.6763910429424458`*^9}, 
   3.676770063252524*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DensityFeature2", "[", "fcellularAuto_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"res", ",", " ", "aus"}], "}"}], ",", "\n", "\t", 
    RowBox[{
     RowBox[{"aus", " ", "=", " ", 
      RowBox[{"Counts", "[", "fcellularAuto", "]"}]}], ";", "\t", "\n", "\t", 
     
     RowBox[{"res", " ", "=", " ", 
      RowBox[{
       RowBox[{"N", " ", "@", " ", 
        RowBox[{"aus", "[", "1", "]"}]}], "/", 
       RowBox[{"Total", "[", "aus", "]"}]}]}]}]}], "\n", "\t", "\n", 
   "]"}]}]], "Code",
 CellChangeTimes->{
  3.67639105832171*^9, {3.6766556591848183`*^9, 3.676655662543189*^9}, {
   3.6766557388894243`*^9, 3.676655752120414*^9}, {3.676655847764789*^9, 
   3.6766558642373257`*^9}, {3.676667572967593*^9, 3.676667574093727*^9}, 
   3.676770064396639*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Kurtosis", "Subsection",
 CellChangeTimes->{{3.67639124173077*^9, 3.6763912464256153`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"KurtosisFeature", "[", "fcelluraAuot_", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", "\n", "\t", 
   RowBox[{
    RowBox[{"{", "gathered", "}"}], ",", "\n", "\t", 
    RowBox[{"gathered", " ", "=", " ", 
     RowBox[{"N", "[", 
      RowBox[{"Kurtosis", "[", "fcelluraAuot", "]"}], "]"}]}]}], "\n", "\t", 
   RowBox[{"(*", 
    RowBox[{"gathered", " ", "=", " ", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"gathered", "\[Equal]", "Indeterminate"}], ",", "999"}], 
      "]"}]}], "*)"}], "\n", "]"}]}]], "Code",
 CellChangeTimes->{{3.6763912563808613`*^9, 3.67639127622729*^9}, {
  3.676653860946143*^9, 3.676653863930791*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.676587545373605*^9, 3.6765875470837917`*^9}, 
   3.676765938148499*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"kurtList1", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"KurtosisFeature", "[", "#", "]"}], "&"}], "/@", "flat1"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kurtList2", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"KurtosisFeature", "[", "#", "]"}], "&"}], "/@", "flat2"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.676391269387499*^9, 3.676391321226101*^9}, 
   3.676412168891942*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Extract center column", "Subsection",
 CellChangeTimes->{{3.676391454712983*^9, 3.676391458727934*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"trcat", "[", "data_", "]"}], " ", ":=", " ", 
   RowBox[{"Transpose", "[", "data", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ColumnExtract", "[", 
    RowBox[{"data_", ",", "t_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"#", "[", 
      RowBox[{"[", "t", "]"}], "]"}], "&"}], "/@", 
    RowBox[{"trcat", "[", "data", "]"}]}]}], ";"}]}], "Code",
 CellChangeTimes->{{3.6763914612330503`*^9, 3.676391480760106*^9}, {
  3.676391522409636*^9, 3.676391527657279*^9}, {3.676391596326421*^9, 
  3.676391622638291*^9}, {3.676653484824415*^9, 3.67665348854403*^9}, {
  3.676655598176981*^9, 3.676655612087399*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"columnList1", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"ColumnExtract", "[", "#", "]"}], "&"}], "/@", "catable"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"columnList12", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"ColumnExtract", "[", "#", "]"}], "&"}], "/@", "catable2"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.676391468465329*^9, 3.67639147076766*^9}, {
  3.6763915120332127`*^9, 3.6763915207613688`*^9}, {3.676391626654236*^9, 
  3.676391694032609*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Entropy", "Subsection",
 CellChangeTimes->{3.676391708386965*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"EntropyFeature", "[", "fcelluraAuot_", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", "\n", "\t", 
   RowBox[{
    RowBox[{"{", "gathered", "}"}], ",", "\n", "\t", 
    RowBox[{"gathered", " ", "=", " ", 
     RowBox[{"N", "@", 
      RowBox[{"Entropy", "[", "fcelluraAuot", "]"}]}]}]}], "\n", "\t", 
   RowBox[{"(*", 
    RowBox[{"gathered", " ", "=", " ", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"gathered", "\[Equal]", "Indeterminate"}], ",", "999"}], 
      "]"}]}], "*)"}], "\n", "]"}]}]], "Code",
 CellChangeTimes->{3.676391717323291*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"entropyList1", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"EntropyFeature", "[", "#", "]"}], "&"}], "/@", "flat1"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"entropyList2", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"EntropyFeature", "[", "#", "]"}], "&"}], "/@", "flat2"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.676391738417309*^9, 3.676391762449842*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Extract all", "Subsection",
 CellChangeTimes->{{3.676392859827043*^9, 3.676392876222683*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ExtractAll", "[", 
   RowBox[{"cellularAuto_", ",", " ", "t_"}], "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"feat", ",", "cc", ",", " ", "fcelluraAuot"}], "}"}], ",", " ", 
    "\n", "\t", 
    RowBox[{
     RowBox[{"fcelluraAuot", " ", "=", " ", 
      RowBox[{"Preprocess", "[", "cellularAuto", "]"}]}], ";", "\t", "\n", 
     "\t", 
     RowBox[{"cc", " ", "=", " ", 
      RowBox[{"ColumnExtract", "[", 
       RowBox[{"cellularAuto", ",", "t"}], "]"}]}], ";", "\n", "\t", 
     RowBox[{"feat", " ", "=", " ", 
      RowBox[{"Flatten", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"KurtosisFeature", "[", "fcelluraAuot", "]"}], ",", 
         RowBox[{"EntropyFeature", "[", "cc", "]"}]}], "}"}], "]"}]}]}]}], 
   "\n", "]"}]}]], "Code",
 CellChangeTimes->{{3.67639287991889*^9, 3.6763929539701777`*^9}, {
   3.676393014605002*^9, 3.6763930579636497`*^9}, {3.676412189277491*^9, 
   3.676412198211894*^9}, {3.67641228258927*^9, 3.676412296844144*^9}, {
   3.6765869897914963`*^9, 3.676587012038563*^9}, {3.676652836416459*^9, 
   3.676652915954731*^9}, 3.6766529930485487`*^9, {3.676653619201438*^9, 
   3.676653621913247*^9}, {3.676654015262456*^9, 3.6766540417728233`*^9}, {
   3.67665409181502*^9, 3.6766540948870068`*^9}, {3.676654141644451*^9, 
   3.6766541516666613`*^9}, {3.676655346316615*^9, 3.676655350340554*^9}, {
   3.676655624328882*^9, 3.6766556288155117`*^9}, {3.6766558720634127`*^9, 
   3.676655886413335*^9}, {3.676656978889831*^9, 3.676656981104048*^9}, {
   3.676663889625695*^9, 3.676663894321556*^9}, {3.676667763939131*^9, 
   3.676667790307159*^9}, {3.676766553003138*^9, 3.6767665537789087`*^9}, 
   3.676770070804659*^9, 3.676770164570435*^9, {3.676827097625049*^9, 
   3.676827103775549*^9}, {3.676827143842801*^9, 3.676827159594715*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Clustering and Classifying", "Subchapter",
 CellChangeTimes->{{3.676391785554783*^9, 3.676391791177739*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"clustering", "[", "ca_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ttlabels", ",", "fca"}], "}"}], ",", "\n", "\t", 
     RowBox[{
      RowBox[{"ttlabels", " ", "=", " ", 
       RowBox[{"Thread", "[", 
        RowBox[{"Tooltip", "[", 
         RowBox[{
          RowBox[{"Range", "[", 
           RowBox[{"Length", "[", "ca", "]"}], "]"}], ",", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"ArrayPlot", "[", 
             RowBox[{"#", ",", " ", 
              RowBox[{"ImageSize", "\[Rule]", "100"}]}], "]"}], "&"}], "/@", 
           "ca"}]}], "]"}], "]"}]}], ";", "\n", "\t", 
      RowBox[{"fca", " ", "=", " ", 
       RowBox[{"Preprocess", "[", "ca", "]"}]}], ";", "\n", "\t", 
      RowBox[{"FindClusters", "[", 
       RowBox[{"fca", "\[Rule]", "ttlabels"}], "]"}]}]}], "\n", "]"}]}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"clusteringArray", "[", "ca_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ttlabels", ",", "fca"}], "}"}], ",", "\n", "\t", 
     RowBox[{
      RowBox[{"ttlabels", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"ArrayPlot", "[", 
          RowBox[{"#", ",", " ", 
           RowBox[{"ImageSize", "\[Rule]", "100"}]}], "]"}], "&"}], "/@", 
        "ca"}]}], ";", "\n", "\t", 
      RowBox[{"fca", " ", "=", " ", 
       RowBox[{"Preprocess", "[", "ca", "]"}]}], ";", "\n", "\t", 
      RowBox[{"FindClusters", "[", 
       RowBox[{"fca", "\[Rule]", "ttlabels"}], "]"}]}]}], "\n", "]"}]}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"classifier", "[", "ca_", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ttlabels", ",", " ", "fca"}], "}"}], ",", "\n", "\t", 
     RowBox[{
      RowBox[{"fca", " ", "=", " ", 
       RowBox[{"Preprocess", "[", "ca", "]"}]}], ";", "\n", "\t", 
      RowBox[{"ClusterClassify", "[", "fca", "]"}]}]}], "\n", "]"}]}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"classifierEvaluation", "[", 
    RowBox[{"classifier_", ",", " ", "ca_", ",", " ", "n_"}], "]"}], " ", ":=",
    " ", 
   RowBox[{"classifier", "[", 
    RowBox[{"Preprocess", "[", "ca", "]"}], "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ClusterC", "[", 
    RowBox[{"ca_", ",", "labels_", ",", "t_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "dca", ",", " ", "fset", ",", " ", "dVector", ",", " ", "c", ",", " ", 
       "clus", ",", " ", "method"}], "}"}], ",", "\n", "\t", 
     RowBox[{
      RowBox[{"dca", " ", "=", " ", 
       RowBox[{"ReplaceDark", "[", "ca", "]"}]}], ";", "\n", "\t", 
      RowBox[{"fset", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"ExtractAll", "[", 
          RowBox[{"#", ",", "t"}], "]"}], "&"}], " ", "/@", " ", "dca"}]}], 
      ";", "\n", "\t\t", 
      RowBox[{"method", " ", "=", " ", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", "fset", "]"}], " ", "\[Equal]", " ", "1"}], 
         ",", " ", "\"\<GaussianMixture\>\"", ",", " ", "Automatic"}], 
        "]"}]}], ";", "\n", "\t", 
      RowBox[{"c", " ", "=", " ", 
       RowBox[{"ClusterClassify", "[", 
        RowBox[{"fset", ",", " ", 
         RowBox[{"Method", "->", "method"}]}], "]"}]}], ";", "\n", "\t", 
      RowBox[{"dVector", " ", "=", " ", 
       RowBox[{"c", "[", "fset", "]"}]}], ";", "\n", "\t", 
      RowBox[{"clus", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Pick", "[", 
          RowBox[{"labels", ",", " ", "dVector", ",", " ", "#"}], "]"}], 
         "&"}], "/@", 
        RowBox[{"DeleteDuplicates", "[", "dVector", "]"}]}]}], ";", "\n", 
      "\t", 
      RowBox[{"{", 
       RowBox[{"c", ",", "clus"}], "}"}]}]}], "\n", "\t", "]"}]}], "\t", "\n",
   "\t"}], "\n", 
 RowBox[{
  RowBox[{"PlotCluster", "[", 
   RowBox[{"clus_", ",", "init_", ",", "t_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"ArrayPlot", "[", 
       RowBox[{
        RowBox[{"CellularAutomaton", "[", 
         RowBox[{"#", ",", "init", ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "All"}], "}"}]}], "]"}], ",", 
        RowBox[{"PlotLabel", "\[Rule]", " ", "#"}]}], "]"}], "&"}], "/@", 
     "#"}], "&"}], "/@", "clus"}]}]}], "Code",
 CellChangeTimes->{{3.676393075256256*^9, 3.676393117355468*^9}, {
   3.676396183139237*^9, 3.6763961847870207`*^9}, {3.6763965071970263`*^9, 
   3.6763966155934687`*^9}, {3.67639682707334*^9, 3.676396891760051*^9}, {
   3.676397330301902*^9, 3.676397355736683*^9}, 3.676397395725124*^9, {
   3.676397427128686*^9, 3.676397523548993*^9}, {3.676412741856035*^9, 
   3.676412747933823*^9}, {3.6764129703906813`*^9, 3.6764129815416117`*^9}, {
   3.676413061586713*^9, 3.6764130697720737`*^9}, {3.6764131883635187`*^9, 
   3.676413201442616*^9}, {3.676414894178157*^9, 3.676414897489188*^9}, 
   3.676416372907131*^9, {3.676766558677105*^9, 3.6767665806749783`*^9}, {
   3.676820124503045*^9, 3.67682019375373*^9}, {3.67682023150813*^9, 
   3.676820343778758*^9}, {3.67682038138304*^9, 3.676820462511005*^9}, {
   3.676822082703167*^9, 3.676822105998849*^9}, {3.67682725992214*^9, 
   3.676827315951936*^9}, {3.676829262114231*^9, 3.676829277251196*^9}, {
   3.6768524477772083`*^9, 3.676852462016685*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClusterC2", "[", 
   RowBox[{"classifier_", ",", " ", "ca_", ",", "labels_", ",", "t_"}], "]"}],
   ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "dca", ",", " ", "fset", ",", " ", "dVector", ",", " ", "c", ",", " ", 
      "clus"}], "}"}], ",", "\n", "\t", 
    RowBox[{
     RowBox[{"dca", " ", "=", " ", 
      RowBox[{"ReplaceDark", "[", "ca", "]"}]}], ";", "\n", "\t", 
     RowBox[{"fset", " ", "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"ExtractAll", "[", 
         RowBox[{"#", ",", "t"}], "]"}], "&"}], " ", "/@", " ", "dca"}]}], 
     ";", "\n", "\t", "\n", "\t", 
     RowBox[{"dVector", " ", "=", " ", 
      RowBox[{"classifier", "[", "fset", "]"}]}], ";", "\n", "\t", 
     RowBox[{"clus", " ", "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"Pick", "[", 
         RowBox[{"labels", ",", " ", "dVector", ",", " ", "#"}], "]"}], "&"}],
        "/@", 
       RowBox[{"DeleteDuplicates", "[", "dVector", "]"}]}]}], ";", "\n", "\t",
      "clus"}]}], "\n", "\t", "]"}]}]], "Code",
 CellChangeTimes->{{3.676828260475418*^9, 3.676828296163589*^9}, 
   3.676828741985713*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Main function:", "Chapter",
 CellChangeTimes->{{3.676849169546434*^9, 3.676849174865046*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"BuildClassifiers", "[", 
    RowBox[{
    "range_", ",", " ", "initial_", ",", " ", "t_", ",", " ", "background_"}],
     "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", "\n", "\t", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "ctable", ",", " ", "p1", ",", " ", "p2", ",", " ", "caa", ",", " ", 
       "p1Table", ",", " ", "p2Table", ",", " ", "caaTable", ",", " ", 
       "c3clusters", ",", "classifiers", ",", "clusters", ",", "c1", ",", 
       "c2", ",", "c3", ",", "c3tables", ",", "c3classes", ",", 
       "c3classifiers", " ", ",", "k"}], "}"}], ",", "\n", "\t", 
     RowBox[{
      RowBox[{"k", "=", "2"}], ";", "\n", "\t", 
      RowBox[{"ctable", " ", "=", " ", 
       RowBox[{"CreateData", "[", 
        RowBox[{"range", ",", "initial", ",", "t", ",", "background"}], 
        "]"}]}], ";", "\n", "\t", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"p1", ",", "p2", ",", "caa"}], "}"}], "=", 
       RowBox[{"FirstClearing", "[", 
        RowBox[{"ctable", ",", " ", "k", ",", " ", "range"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"p1Table", ",", " ", "p2Table", ",", " ", "caaTable"}], "}"}],
        " ", "=", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"CreateData", "[", 
          RowBox[{
          "#", ",", " ", "initial", ",", " ", "t", ",", " ", "background"}], 
          "]"}], "&"}], "/@", 
        RowBox[{"{", 
         RowBox[{"p1", ",", " ", "p2", ",", " ", "caa"}], "}"}]}]}], ";", 
      "\n", "\t", "\n", "\t", 
      RowBox[{"c1", " ", "=", " ", 
       RowBox[{"ClusterC", "[", 
        RowBox[{"p1Table", ",", "p1", ",", "t"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"c2", " ", "=", " ", 
       RowBox[{"ClusterC", "[", 
        RowBox[{"p2Table", ",", "p2", ",", "t"}], "]"}]}], ";", "\n", "\t", 
      RowBox[{"c3", " ", "=", " ", 
       RowBox[{"SecondClearing", "[", 
        RowBox[{"caaTable", ",", "caa"}], "]"}]}], ";", "\n", "\t", "\n", 
      "\t", 
      RowBox[{"c3tables", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"CreateData", "[", 
          RowBox[{"#", ",", "initial", ",", "t", ",", "background"}], "]"}], 
         "&"}], "/@", 
        RowBox[{"c3", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\n", "\t", 
      RowBox[{"c3classes", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"ClusterC", "[", 
          RowBox[{
           RowBox[{"c3tables", "[", 
            RowBox[{"[", "#", "]"}], "]"}], ",", 
           RowBox[{"c3", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", "#"}], "]"}], "]"}], ",", "t"}], "]"}], "&"}], 
        "/@", 
        RowBox[{"Range", "[", 
         RowBox[{"Length", "[", "c3tables", "]"}], "]"}]}]}], ";", "\n", " ", 
      "\n", "\t", 
      RowBox[{"c3clusters", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", "c3classes"}]}], ";", 
      "\n", "\t", 
      RowBox[{"c3classifiers", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", "c3classes"}]}], ";", 
      "\n", "\t", "\n", "\t", 
      RowBox[{"classifiers", " ", "=", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"c2", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"c3", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "c3classifiers"}], "}"}]}], 
      ";", "\n", "\t", 
      RowBox[{"clusters", " ", "=", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", 
         RowBox[{"c2", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", 
         RowBox[{"c3", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", "c3clusters"}], "}"}]}], ";", 
      "\n", "\t", 
      RowBox[{"{", 
       RowBox[{"classifiers", ",", "clusters"}], "}"}]}]}], "\n", "]"}]}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"UseClassifiers", "[", 
    RowBox[{
    "range_", ",", " ", "initial_", ",", " ", "t_", ",", " ", "background_", 
     ",", " ", "classifiers_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", "\n", "\t", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "ctable", ",", " ", "p1", ",", " ", "p2", ",", " ", "caa", ",", " ", 
       "p1Table", ",", " ", "p2Table", ",", " ", "caaTable", ",", " ", 
       "clus1", ",", " ", "clus2", ",", " ", "clus3", ",", "k", ",", " ", 
       "clus3c", ",", "c3tables"}], "}"}], ",", "\n", "\t", "\n", "\t", 
     RowBox[{
      RowBox[{"k", "=", "2"}], ";", "\n", "\t", 
      RowBox[{"ctable", " ", "=", " ", 
       RowBox[{"CreateData", "[", 
        RowBox[{"range", ",", "initial", ",", "t", ",", "background"}], 
        "]"}]}], ";", "\n", "\t", "\n", "\t", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"p1", ",", "p2", ",", "caa"}], "}"}], "=", 
       RowBox[{"FirstClearing", "[", 
        RowBox[{"ctable", ",", " ", "k", ",", " ", "range"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"p1Table", ",", " ", "p2Table", ",", " ", "caaTable"}], "}"}],
        " ", "=", "  ", 
       RowBox[{
        RowBox[{
         RowBox[{"CreateData", "[", 
          RowBox[{
          "#", ",", " ", "initial", ",", " ", "t", ",", " ", "background"}], 
          "]"}], "&"}], "/@", 
        RowBox[{"{", 
         RowBox[{"p1", ",", " ", "p2", ",", " ", "caa"}], "}"}]}]}], ";", 
      "\n", "\t", "\n", "\t", 
      RowBox[{"clus1", " ", "=", " ", 
       RowBox[{"ClusterC2", "[", 
        RowBox[{
         RowBox[{"classifiers", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "p1Table", ",", "p1", ",", 
         "t"}], "]"}]}], ";", "\[IndentingNewLine]", "\t", 
      RowBox[{"clus2", " ", "=", " ", 
       RowBox[{"ClusterC2", "[", 
        RowBox[{
         RowBox[{"classifiers", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", "p2Table", ",", "p2", ",", 
         "t"}], "]"}]}], ";", "\n", "\t", 
      RowBox[{"clus3", " ", "=", " ", 
       RowBox[{"SecondClearing2", "[", 
        RowBox[{
         RowBox[{"classifiers", "[", 
          RowBox[{"[", "3", "]"}], "]"}], ",", "caaTable", ",", "caa"}], 
        "]"}]}], ";", "\n", "\t", 
      RowBox[{"c3tables", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"CreateData", "[", 
          RowBox[{"#", ",", "initial", ",", "t", ",", "background"}], "]"}], 
         "&"}], "/@", "clus3"}]}], ";", "\n", "\t", 
      RowBox[{"clus3c", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"ClusterC2", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"classifiers", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "[", 
            RowBox[{"[", "#", "]"}], "]"}], ",", 
           RowBox[{"c3tables", "[", 
            RowBox[{"[", "#", "]"}], "]"}], ",", 
           RowBox[{"clus3", "[", 
            RowBox[{"[", "#", "]"}], "]"}], ",", "t"}], "]"}], "&"}], "/@", 
        RowBox[{"Range", "[", 
         RowBox[{"Length", "[", "c3tables", "]"}], "]"}]}]}], ";", "\n", "\t", 
      RowBox[{"{", 
       RowBox[{"clus1", ",", " ", "clus2", ",", " ", "clus3c"}], "}"}]}]}], 
    "\n", "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"BuildClassifiers", "[", "ca_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\n", "\t", 
    RowBox[{
     RowBox[{
     "Print", "[", 
      "\"\<Sorry, I can't handle the awesomness of this cellular automaton. I \
broke down. Please fix me again.\>\"", "]"}], ";", "\n", "\t", 
     RowBox[{"ArrayPlot", "[", "ca", "]"}]}]}], "]"}]}]}], "Code",
 CellChangeTimes->{{3.6768491786273108`*^9, 3.67684926692486*^9}, {
   3.676849336666561*^9, 3.676849435523706*^9}, {3.676849539031437*^9, 
   3.67684966422952*^9}, {3.676849787702847*^9, 3.676849789704556*^9}, 
   3.67684983385808*^9, {3.676849997239893*^9, 3.6768500024951763`*^9}, {
   3.67685003412261*^9, 3.676850038762726*^9}, {3.67685014953609*^9, 
   3.676850151638595*^9}, {3.676850467272767*^9, 3.676850467469809*^9}, {
   3.676850991672504*^9, 3.67685099903148*^9}, {3.676851250560038*^9, 
   3.676851266830542*^9}, {3.6768513116806507`*^9, 3.676851345384447*^9}, {
   3.676851396149396*^9, 3.6768514521806097`*^9}, {3.676852098518382*^9, 
   3.676852102997348*^9}, {3.676852136572968*^9, 3.676852164923046*^9}, {
   3.6768522178514423`*^9, 3.676852218473687*^9}, {3.6768524719394093`*^9, 
   3.6768524944098988`*^9}, {3.676886867879694*^9, 3.676886883588642*^9}, {
   3.6768873943412247`*^9, 3.676887437457179*^9}, {3.676887494987488*^9, 
   3.67688751381522*^9}, {3.676887615142934*^9, 3.676887711973839*^9}, {
   3.67688775677971*^9, 3.676887757601883*^9}, {3.676907438621634*^9, 
   3.676907507147636*^9}, {3.676907715971799*^9, 3.676907717699314*^9}}],

Cell[CellGroupData[{

Cell["Runtime", "Section",
 CellChangeTimes->{{3.6767557436237507`*^9, 3.6767557449904423`*^9}}],

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

Cell[BoxData[{
 RowBox[{
  RowBox[{"carange", " ", "=", " ", 
   RowBox[{"Range", "[", "255", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"carange2", " ", "=", " ", 
   RowBox[{"Range", "[", "30", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t", "=", " ", "50"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"t2", " ", "=", " ", "20"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"init", " ", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "1", "}"}], ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"init2", " ", "=", " ", 
   RowBox[{"RandomInteger", "[", 
    RowBox[{"1", ",", "30"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.676888239342113*^9, 3.6768882675166197`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Building classifiers", "Subchapter",
 CellChangeTimes->{{3.676888486317334*^9, 3.676888490764299*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"c1", ",", "c2"}], "}"}], " ", "=", " ", 
  RowBox[{"BuildClassifiers", "[", 
   RowBox[{"carange", ",", "init", ",", "t", ",", "True"}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.676850485799287*^9, 3.676850489085434*^9}, {
  3.676850790327332*^9, 3.676850792870223*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     TagBox[
      TemplateBox[{RowBox[{
          StyleBox[
           TagBox["ClassifierFunction", "SummaryHead"], 
           "NonInterpretableSummary"], 
          StyleBox["[", "NonInterpretableSummary"], 
          DynamicModuleBox[{Typeset`open$$ = False}, 
           PanelBox[
            PaneSelectorBox[{False -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  GraphicsBox[{{
                    PointSize[0.13], 
                    GrayLevel[0.45], 
                    
                    PointBox[{{0.9821769431797024, -0.440194219686987}, {
                    1.1339776261519132`, 0.8056918676854272}, {
                    0.5279892326667741, 0.6574306661126254}, {
                    0.022147046479890797`, 1.4937877187998898`}}], 
                    GrayLevel[0.7], 
                    
                    PointBox[{{-0.9815166384819979, 
                    0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                   Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                    AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, 
                    LabelStyle -> {FontFamily -> "Arial"}, 
                    Method -> {"ScalingFunctions" -> None}, 
                    PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                    True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                    Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                   ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                   FrameStyle -> Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]]], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Agglomerate\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["6", "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[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  GraphicsBox[{{
                    PointSize[0.13], 
                    GrayLevel[0.45], 
                    
                    PointBox[{{0.9821769431797024, -0.440194219686987}, {
                    1.1339776261519132`, 0.8056918676854272}, {
                    0.5279892326667741, 0.6574306661126254}, {
                    0.022147046479890797`, 1.4937877187998898`}}], 
                    GrayLevel[0.7], 
                    
                    PointBox[{{-0.9815166384819979, 
                    0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                   Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                    AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, 
                    LabelStyle -> {FontFamily -> "Arial"}, 
                    Method -> {"ScalingFunctions" -> None}, 
                    PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                    True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                    Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                   ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                   FrameStyle -> Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]]], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Agglomerate\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["6", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Feature type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{"\"NumericalVector\"", 
                    StyleBox[
                    TemplateBox[{"\" (\"", "2", "\")\""}, "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of training examples: \"", 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["139", "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], 
            BaselinePosition -> Baseline], DynamicModuleValues :> {}], 
          StyleBox["]", "NonInterpretableSummary"]}]},
       "CopyTag",
       DisplayFunction->(#& ),
       InterpretationFunction->("ClassifierFunction[\[Ellipsis]]"& )],
      False,
      Editable->False,
      SelectWithContents->True,
      Selectable->False], ",", 
     TagBox[
      TemplateBox[{RowBox[{
          StyleBox[
           TagBox["ClassifierFunction", "SummaryHead"], 
           "NonInterpretableSummary"], 
          StyleBox["[", "NonInterpretableSummary"], 
          DynamicModuleBox[{Typeset`open$$ = False}, 
           PanelBox[
            PaneSelectorBox[{False -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  GraphicsBox[{{
                    PointSize[0.13], 
                    GrayLevel[0.45], 
                    
                    PointBox[{{0.9821769431797024, -0.440194219686987}, {
                    1.1339776261519132`, 0.8056918676854272}, {
                    0.5279892326667741, 0.6574306661126254}, {
                    0.022147046479890797`, 1.4937877187998898`}}], 
                    GrayLevel[0.7], 
                    
                    PointBox[{{-0.9815166384819979, 
                    0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                   Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                    AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, 
                    LabelStyle -> {FontFamily -> "Arial"}, 
                    Method -> {"ScalingFunctions" -> None}, 
                    PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                    True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                    Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                   ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                   FrameStyle -> Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]]], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Agglomerate\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "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[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  GraphicsBox[{{
                    PointSize[0.13], 
                    GrayLevel[0.45], 
                    
                    PointBox[{{0.9821769431797024, -0.440194219686987}, {
                    1.1339776261519132`, 0.8056918676854272}, {
                    0.5279892326667741, 0.6574306661126254}, {
                    0.022147046479890797`, 1.4937877187998898`}}], 
                    GrayLevel[0.7], 
                    
                    PointBox[{{-0.9815166384819979, 
                    0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                   Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                    AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, 
                    LabelStyle -> {FontFamily -> "Arial"}, 
                    Method -> {"ScalingFunctions" -> None}, 
                    PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                    True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                    Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                   ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                   FrameStyle -> Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]]], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Agglomerate\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Feature type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{"\"NumericalVector\"", 
                    StyleBox[
                    TemplateBox[{"\" (\"", "2", "\")\""}, "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of training examples: \"", 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["66", "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], 
            BaselinePosition -> Baseline], DynamicModuleValues :> {}], 
          StyleBox["]", "NonInterpretableSummary"]}]},
       "CopyTag",
       DisplayFunction->(#& ),
       InterpretationFunction->("ClassifierFunction[\[Ellipsis]]"& )],
      False,
      Editable->False,
      SelectWithContents->True,
      Selectable->False], ",", 
     TagBox[
      TemplateBox[{RowBox[{
          StyleBox[
           TagBox["ClassifierFunction", "SummaryHead"], 
           "NonInterpretableSummary"], 
          StyleBox["[", "NonInterpretableSummary"], 
          DynamicModuleBox[{Typeset`open$$ = False}, 
           PanelBox[
            PaneSelectorBox[{False -> GridBox[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  GraphicsBox[{{
                    PointSize[0.13], 
                    GrayLevel[0.45], 
                    
                    PointBox[{{0.9821769431797024, -0.440194219686987}, {
                    1.1339776261519132`, 0.8056918676854272}, {
                    0.5279892326667741, 0.6574306661126254}, {
                    0.022147046479890797`, 1.4937877187998898`}}], 
                    GrayLevel[0.7], 
                    
                    PointBox[{{-0.9815166384819979, 
                    0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                   Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                    AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, 
                    LabelStyle -> {FontFamily -> "Arial"}, 
                    Method -> {"ScalingFunctions" -> None}, 
                    PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                    True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                    Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                   ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                   FrameStyle -> Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]]], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"GaussianMixture\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "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[{{
                  PaneBox[
                   ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                   Alignment -> {Center, Center}, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  GraphicsBox[{{
                    PointSize[0.13], 
                    GrayLevel[0.45], 
                    
                    PointBox[{{0.9821769431797024, -0.440194219686987}, {
                    1.1339776261519132`, 0.8056918676854272}, {
                    0.5279892326667741, 0.6574306661126254}, {
                    0.022147046479890797`, 1.4937877187998898`}}], 
                    GrayLevel[0.7], 
                    
                    PointBox[{{-0.9815166384819979, 
                    0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                   Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                    AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, 
                    LabelStyle -> {FontFamily -> "Arial"}, 
                    Method -> {"ScalingFunctions" -> None}, 
                    PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                    True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                    Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                   ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                   FrameStyle -> Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]]], 
                  GridBox[{{
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"GaussianMixture\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Feature type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{"\"NumericalVector\"", 
                    StyleBox[
                    TemplateBox[{"\" (\"", "2", "\")\""}, "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of training examples: \"", 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["50", "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], 
            BaselinePosition -> Baseline], DynamicModuleValues :> {}], 
          StyleBox["]", "NonInterpretableSummary"]}]},
       "CopyTag",
       DisplayFunction->(#& ),
       InterpretationFunction->("ClassifierFunction[\[Ellipsis]]"& )],
      False,
      Editable->False,
      SelectWithContents->True,
      Selectable->False], ",", 
     RowBox[{"{", 
      RowBox[{
       TagBox[
        TemplateBox[{RowBox[{
            StyleBox[
             TagBox["ClassifierFunction", "SummaryHead"], 
             "NonInterpretableSummary"], 
            StyleBox["[", "NonInterpretableSummary"], 
            DynamicModuleBox[{Typeset`open$$ = False}, 
             PanelBox[
              PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    GraphicsBox[{{
                    PointSize[0.13], 
                    GrayLevel[0.45], 
                    
                    PointBox[{{0.9821769431797024, -0.440194219686987}, {
                    1.1339776261519132`, 0.8056918676854272}, {
                    0.5279892326667741, 0.6574306661126254}, {
                    0.022147046479890797`, 1.4937877187998898`}}], 
                    GrayLevel[0.7], 
                    
                    PointBox[{{-0.9815166384819979, 
                    0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                    AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, 
                    LabelStyle -> {FontFamily -> "Arial"}, 
                    Method -> {"ScalingFunctions" -> None}, 
                    PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                    True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                    Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                    ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                    FrameStyle -> Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"NeighborhoodContraction\"", "SummaryItem"]}]}, {
                    
                    RowBox[{
                    TagBox[
                    "\"Number of classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["10", "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[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    GraphicsBox[{{
                    PointSize[0.13], 
                    GrayLevel[0.45], 
                    
                    PointBox[{{0.9821769431797024, -0.440194219686987}, {
                    1.1339776261519132`, 0.8056918676854272}, {
                    0.5279892326667741, 0.6574306661126254}, {
                    0.022147046479890797`, 1.4937877187998898`}}], 
                    GrayLevel[0.7], 
                    
                    PointBox[{{-0.9815166384819979, 
                    0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                    AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, 
                    LabelStyle -> {FontFamily -> "Arial"}, 
                    Method -> {"ScalingFunctions" -> None}, 
                    PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                    True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                    Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                    ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                    FrameStyle -> Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"NeighborhoodContraction\"", "SummaryItem"]}]}, {
                    
                    RowBox[{
                    TagBox[
                    "\"Number of classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["10", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Feature type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{"\"NumericalVector\"", 
                    StyleBox[
                    TemplateBox[{"\" (\"", "2", "\")\""}, "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of training examples: \"", 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["29", "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], 
              BaselinePosition -> Baseline], DynamicModuleValues :> {}], 
            StyleBox["]", "NonInterpretableSummary"]}]},
         "CopyTag",
         DisplayFunction->(#& ),
         InterpretationFunction->("ClassifierFunction[\[Ellipsis]]"& )],
        False,
        Editable->False,
        SelectWithContents->True,
        Selectable->False], ",", 
       TagBox[
        TemplateBox[{RowBox[{
            StyleBox[
             TagBox["ClassifierFunction", "SummaryHead"], 
             "NonInterpretableSummary"], 
            StyleBox["[", "NonInterpretableSummary"], 
            DynamicModuleBox[{Typeset`open$$ = False}, 
             PanelBox[
              PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    GraphicsBox[{{
                    PointSize[0.13], 
                    GrayLevel[0.45], 
                    
                    PointBox[{{0.9821769431797024, -0.440194219686987}, {
                    1.1339776261519132`, 0.8056918676854272}, {
                    0.5279892326667741, 0.6574306661126254}, {
                    0.022147046479890797`, 1.4937877187998898`}}], 
                    GrayLevel[0.7], 
                    
                    PointBox[{{-0.9815166384819979, 
                    0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                    AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, 
                    LabelStyle -> {FontFamily -> "Arial"}, 
                    Method -> {"ScalingFunctions" -> None}, 
                    PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                    True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                    Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                    ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                    FrameStyle -> Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"DBSCAN\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["8", "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[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    GraphicsBox[{{
                    PointSize[0.13], 
                    GrayLevel[0.45], 
                    
                    PointBox[{{0.9821769431797024, -0.440194219686987}, {
                    1.1339776261519132`, 0.8056918676854272}, {
                    0.5279892326667741, 0.6574306661126254}, {
                    0.022147046479890797`, 1.4937877187998898`}}], 
                    GrayLevel[0.7], 
                    
                    PointBox[{{-0.9815166384819979, 
                    0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                    AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, 
                    LabelStyle -> {FontFamily -> "Arial"}, 
                    Method -> {"ScalingFunctions" -> None}, 
                    PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                    True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                    Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                    ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                    FrameStyle -> Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"DBSCAN\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["8", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Feature type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{"\"NumericalVector\"", 
                    StyleBox[
                    TemplateBox[{"\" (\"", "2", "\")\""}, "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of training examples: \"", 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["19", "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], 
              BaselinePosition -> Baseline], DynamicModuleValues :> {}], 
            StyleBox["]", "NonInterpretableSummary"]}]},
         "CopyTag",
         DisplayFunction->(#& ),
         InterpretationFunction->("ClassifierFunction[\[Ellipsis]]"& )],
        False,
        Editable->False,
        SelectWithContents->True,
        Selectable->False], ",", 
       TagBox[
        TemplateBox[{RowBox[{
            StyleBox[
             TagBox["ClassifierFunction", "SummaryHead"], 
             "NonInterpretableSummary"], 
            StyleBox["[", "NonInterpretableSummary"], 
            DynamicModuleBox[{Typeset`open$$ = False}, 
             PanelBox[
              PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    GraphicsBox[{{
                    PointSize[0.13], 
                    GrayLevel[0.45], 
                    
                    PointBox[{{0.9821769431797024, -0.440194219686987}, {
                    1.1339776261519132`, 0.8056918676854272}, {
                    0.5279892326667741, 0.6574306661126254}, {
                    0.022147046479890797`, 1.4937877187998898`}}], 
                    GrayLevel[0.7], 
                    
                    PointBox[{{-0.9815166384819979, 
                    0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                    AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, 
                    LabelStyle -> {FontFamily -> "Arial"}, 
                    Method -> {"ScalingFunctions" -> None}, 
                    PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                    True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                    Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                    ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                    FrameStyle -> Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Agglomerate\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["1", "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[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    GraphicsBox[{{
                    PointSize[0.13], 
                    GrayLevel[0.45], 
                    
                    PointBox[{{0.9821769431797024, -0.440194219686987}, {
                    1.1339776261519132`, 0.8056918676854272}, {
                    0.5279892326667741, 0.6574306661126254}, {
                    0.022147046479890797`, 1.4937877187998898`}}], 
                    GrayLevel[0.7], 
                    
                    PointBox[{{-0.9815166384819979, 
                    0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                    GrayLevel[0.55], 
                    AbsoluteThickness[1.5], 
                    LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                    AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                    Frame -> {{True, True}, {True, True}}, 
                    FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                    Directive[
                    Thickness[Tiny], 
                    GrayLevel[0.7]], 
                    FrameTicks -> {{None, None}, {None, None}}, 
                    GridLines -> {None, None}, 
                    LabelStyle -> {FontFamily -> "Arial"}, 
                    Method -> {"ScalingFunctions" -> None}, 
                    PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                    True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                    Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                    ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                    FrameStyle -> Directive[
                    Opacity[0.5], 
                    Thickness[Tiny], 
                    RGBColor[0.368417, 0.506779, 0.709798]]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Agglomerate\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["1", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox["\"Feature type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{"\"NumericalVector\"", 
                    StyleBox[
                    TemplateBox[{"\" (\"", "2", "\")\""}, "RowDefault"], 
                    GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    "\"Number of training examples: \"", 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["2", "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], 
              BaselinePosition -> Baseline], DynamicModuleValues :> {}], 
            StyleBox["]", "NonInterpretableSummary"]}]},
         "CopyTag",
         DisplayFunction->(#& ),
         InterpretationFunction->("ClassifierFunction[\[Ellipsis]]"& )],
        False,
        Editable->False,
        SelectWithContents->True,
        Selectable->False]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "2", ",", "4", ",", "10", ",", "12", ",", "16", ",", "24", ",", "34", 
         ",", "36", ",", "42", ",", "44", ",", "48", ",", "56", ",", "66", 
         ",", "68", ",", "74", ",", "76", ",", "80", ",", "88", ",", "98", 
         ",", "100", ",", "106", ",", "108", ",", "112", ",", "120", ",", 
         "130", ",", "132", ",", "138", ",", "140", ",", "144", ",", "152", 
         ",", "155", ",", "162", ",", "164", ",", "170", ",", "172", ",", 
         "173", ",", "175", ",", "176", ",", "184", ",", "187", ",", "189", 
         ",", "194", ",", "196", ",", "202", ",", "203", ",", "204", ",", 
         "207", ",", "208", ",", "211", ",", "216", ",", "217", ",", "219", 
         ",", "221", ",", "226", ",", "228", ",", "229", ",", "231", ",", 
         "234", ",", "236", ",", "240", ",", "243", ",", "245", ",", "248"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "6", ",", "14", ",", "20", ",", "38", ",", "46", ",", "52", ",", "84",
          ",", "116", ",", "134", ",", "139", ",", "142", ",", "143", ",", 
         "148", ",", "166", ",", "169", ",", "171", ",", "174", ",", "180", 
         ",", "185", ",", "201", ",", "205", ",", "209", ",", "212", ",", 
         "213", ",", "222", ",", "225", ",", "227", ",", "241", ",", "244", 
         ",", "254"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "8", ",", "32", ",", "40", ",", "64", ",", "72", ",", "96", ",", 
         "104", ",", "128", ",", "136", ",", "160", ",", "168", ",", "192", 
         ",", "200", ",", "224", ",", "232"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "28", ",", "70", ",", "78", ",", "92", ",", "141", ",", "156", ",", 
         "157", ",", "197", ",", "198", ",", "199"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "94", ",", "133", ",", "206", ",", "220", ",", "238", ",", "252"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "151", ",", "159", ",", "183", ",", "191", ",", "215", ",", "223", 
         ",", "233", ",", "235", ",", "237", ",", "239", ",", "247", ",", 
         "249", ",", "251", ",", "253", ",", "255"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "1", ",", "3", ",", "5", ",", "7", ",", "9", ",", "11", ",", "15", 
         ",", "17", ",", "19", ",", "21", ",", "23", ",", "25", ",", "27", 
         ",", "29", ",", "31", ",", "33", ",", "35", ",", "37", ",", "39", 
         ",", "41", ",", "43", ",", "47", ",", "49", ",", "51", ",", "53", 
         ",", "55", ",", "59", ",", "61", ",", "63", ",", "65", ",", "67", 
         ",", "71", ",", "81", ",", "83", ",", "85", ",", "87", ",", "91", 
         ",", "95", ",", "97", ",", "103", ",", "107", ",", "111", ",", "113",
          ",", "115", ",", "117", ",", "119", ",", "121", ",", "123", ",", 
         "125", ",", "127"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"13", ",", "69", ",", "77", ",", "79", ",", "93"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
        "50", ",", "58", ",", "114", ",", "122", ",", "163", ",", "177", ",", 
         "178", ",", "179", ",", "186", ",", "242", ",", "250"}], "}"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "18", ",", "22", ",", "26", ",", "60", ",", "82", ",", "90", ",", 
         "102", ",", "110", ",", "124", ",", "126", ",", "129", ",", "135", 
         ",", "137", ",", "146", ",", "147", ",", "149", ",", "150", ",", 
         "153", ",", "154", ",", "161", ",", "165", ",", "167", ",", "181", 
         ",", "188", ",", "193", ",", "195", ",", "210", ",", "218", ",", 
         "230"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "30", ",", "45", ",", "54", ",", "57", ",", "62", ",", "75", ",", 
         "86", ",", "89", ",", "99", ",", "101", ",", "105", ",", "118", ",", 
         "131", ",", "145", ",", "158", ",", "182", ",", "190", ",", "214", 
         ",", "246"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"73", ",", "109"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "18", ",", "22", ",", "26", ",", "60", ",", "82", ",", "90", ",", 
           "102", ",", "146", ",", "154", ",", "210", ",", "218"}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"110", ",", "124"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"126", ",", "129", ",", "150", ",", "161"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"135", ",", "149"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"137", ",", "193"}], "}"}], ",", 
         RowBox[{"{", "147", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"153", ",", "165", ",", "195"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"167", ",", "181"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"188", ",", "230"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"30", ",", "86"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"45", ",", "101"}], "}"}], ",", 
         RowBox[{"{", "54", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"57", ",", "75", ",", "89", ",", "99"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "62", ",", "118", ",", "131", ",", "145", ",", "158", ",", "214"}], 
          "}"}], ",", 
         RowBox[{"{", "105", "}"}], ",", 
         RowBox[{"{", "182", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"190", ",", "246"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"73", ",", "109"}], "}"}], "}"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.676851007774074*^9, 3.676851021168991*^9}, {
   3.67685125459367*^9, 3.676851281007461*^9}, {3.676851327362076*^9, 
   3.676851348921041*^9}, 3.67685143753298*^9, 3.6768514835582027`*^9, 
   3.6768519694572144`*^9, 3.676852052890547*^9, {3.676852131249551*^9, 
   3.6768521698089952`*^9}, 3.676852305667781*^9, 3.676852339747069*^9, 
   3.6768523894745073`*^9, {3.676852468471726*^9, 3.6768524984486637`*^9}, 
   3.6768605250946493`*^9, {3.676860627003642*^9, 3.676860643709814*^9}, 
   3.676860687917115*^9, 3.676860718277495*^9, 3.676886830394846*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlotCluster", "[", 
  RowBox[{
   RowBox[{"c2", "[", 
    RowBox[{"[", "1", "]"}], "]"}], ",", "init", ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.676887346197919*^9, 3.676887350280156*^9}, {
  3.676887820023176*^9, 3.676888007004743*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["2", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["4", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["10", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["12", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["16", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["24", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["34", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["36", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["42", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["44", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["48", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["56", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["66", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["68", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["74", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["76", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["80", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["88", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["98", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["100", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["106", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["108", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["112", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["120", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["130", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["132", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["138", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["140", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["144", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["152", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7ENwDAQw0A5m2SGbJIRDLjO/l28Al2w0gMqHwfe83vnleTZW3sZI8Ip
SFu4YiBt4YqBtIUrBtIWrhhIW7hiIG3hioG0hSsG0hauGEhbuGIgbeGKgbSF
KwbSFq4cvOA7ePkBmcMC8A==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["155", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["162", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["164", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["170", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["172", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENABAURdHPJmawiREkavt3rEChcV5yy5dT+mw9R0TdjV2KF6NQKBQK
hUKhUCgUCoVCoVD+Vs6ddLyLywKSuALY
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["173", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENwCAAA0HDJsyQTTICEjX7d4QRSEF1L7m0rvX59prk+TayK7kRhUKh
UCgUCoVCoVAoFAqFQjl6HPfjsgCRvQLX
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["175", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["176", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["184", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACEABMF7nKDhnSCBhBr/HViAgmou2fIytc/WS5J/N3b58mIUCoVC
oVAoFAqFQqFQKBQK5exyvIvLApHvAtc=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["187", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagoJpLtrxMm3vMGhE9W1mJH6NQKBQK
hUKhUCgUCoVCoVAol5/rPVwOkiEC1w==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["189", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["194", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["196", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["202", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHfgQW+ZTa58jJt7jFrRPS7FZlK6gWBQCAQ
CAQCgUAgEAgEAoH8jLwr5bnE5QCNvQLY
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["203", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["204", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHfgYX/ei65cjNj37V7RMz/E6W1WgaBQCAQ
CAQCgUAgEAgEAoFAEkV6heQBjPQC1w==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["207", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["208", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7ENgDAQxdCETZiBTRghEjX7d7CCU7jyl648Pflc772OMcb13zOMzWkg
AlEHQASiDoAIRB0AEYg6ACIQdQBEIOoAiEDUARCBqAMgAlEHQASiDoAIRB0A
EYg6ALLxgrfx8gGLgQLw
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["211", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["216", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENgEAQA8E7OqEGOqGEkz7+/jNoAafMSg6tOWffc1TV9W5VUkcvCAQC
gUAgEAgEAoFAIBAI5L9IB0h/Lrg8jb8C2A==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["217", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHfgYX/ei65cjNj37V7RMz/E5W1UgWBQCAQ
CAQCgUAgEAgEAoFAUkl6heQBjSYC1w==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["219", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHfgYX/ei65cjNj37V7RMz/E4W1SgSBQCAQ
CAQCgUAgEAgEAoFAkk16heQBjVgC1w==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["221", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["226", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["228", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENwCAUQ0F/NskM2SQjIFFn/w5WCEUa7kkurbv6+/SW5F4b+adiMBgM
BoPBYDAYDAaDwWAwjjZqw6jPbVwmiMQC2A==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["229", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHfgYWnoJpNrrxMm3vMGhH9bsWfCoPBYDAY
DAaDwWAwGAwGg8HIPtI9XA6IKwLX
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["231", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAlNmPG/URWE4T75+UaelT0iZr3raC+iUCgUCoVC
oVAoFAqFQqFQKB8qF/WcFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["234", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHf8RagophLtrxMm3vMGhE9W1m53sMFAoFA
IBAIBAKBQCAQCAQCgfyIHPqXFi0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["236", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["240", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHfgYWnoJpNrrxMm3vMGhH9bsWXCoPBYDAY
DAaDwWAwGAwGg8FIX9I9XA6IXQLX
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["243", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMEHJ2jACRJIqPHfgYWnoJpNrrxMm3vMGhH9bsWPCoPBYDAY
DAaDwWAwGAwGg8HIf9I9XA6IjwLX
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["245", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAMAMGCEzTgBAkkzPjfqAWWTvfJzzf2XbtHxMxP3gqqQBgMBoPB
YDAYDAaDwWAwGAzGdw//khYt
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["248", TraditionalForm]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7EJgFAUxdCnmziDmziCYO3+nX+FNMEiF259yHG/173PzLn+rM9mzGFq
wUotVDGQWrhiILVwxUBq4YqB1MIVA6mFKwZSC1cMpBauGEgtXDGQWrhiILVw
xUD+2/IB96UWFA==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["6", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENABAURdHPJmawiREkavt3GEFBdW7yypdT+mw9R0TdG3FKH6JQKBQK
hUKhUCgUCoVCoVAoz5X7ywLvuBX7
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["14", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7ENgDAAxMDAJszAJowQiZr9OzICbiwKv/T1ycd8rrmPMc71e30TJiBK
SB3fiToAIhB1AEQg6gCIQNQBEIGoAyACUQdABKIOgAhEHQARiDoAIhB1AEQg
6gCIQPy04wUGWhYU
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["20", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7EJgFAUxdCnmziDmziCYO3+nX+FNMEiF259yHG/173PzLn+rM9mzGFq
wUotVDGQWrhiILVwxUBq4YqB1MIVA6mFKwZSC1cMpBauGEgtXDGQWrhiILVw
xUD+2/IB96UWFA==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["38", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENABAURdHPJmawiREkavt3GEFBdW7yypdT+mw9R0TdG3FKH6JQKBQK
hUKhUCgUCoVCoVAoz5X7ywLvuBX7
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["46", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7ENgDAAxMDAJszAJowQiZr9OzICbiwKv/T1ycd8rrmPMc71e30TJiBK
SB3fiToAIhB1AEQg6gCIQNQBEIGoAyACUQdABKIOgAhEHQARiDoAIhB1AEQg
6gCIQPy04wUGWhYU
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["52", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENABAUQMHPJmawiREkavt3zCChcS959ZU+W88RUfdjn+73AmEwGAwG
g8FgMBgMBoPBYDB+N9KBsQADTxX7
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["84", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENABAUQMHPJmawiREkavt3zCChcS959ZU+W88RUfdjn+73AmEwGAwG
g8FgMBgMBoPBYDB+N9KBsQADTxX7
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["116", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7EJgFAUxdCnmziDmziCYO3+nX+FNMEiF259yHG/173PzLn+rM9mzGFq
wUotVDGQWrhiILVwxUBq4YqB1MIVA6mFKwZSC1cMpBauGEgtXDGQWrhiILVw
xUD+2/IB96UWFA==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["134", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENwCAUQ0H/bJIZ2IQRkKizfwcrQJHqLL3Sund8fTxJ2m7uUpUfRqFQ
KBQKhUKhUCgUCoVCoVAOL6e7uCyXoQMJ
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["139", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENABAURdHPJmawiREkavt3GEFBdW7yypdT+mw9R0TdG3FKH6JQKBQK
hUKhUCgUCoVCoVAoz5X7ywLvuBX7
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["142", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENwCAAA0HDJpmBTTICUurs34WMAAUN95JL667+3r0maWNP/krJhigU
CoVCoVAoFAqFQqFQKJSjlfnHdAuXD5anAwg=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["143", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7ENgDAAxMDAJszAJowQiZr9OzICbiwKv/T1ycd8rrmPMc71e30TJiBK
SB3fiToAIhB1AEQg6gCIQNQBEIGoAyACUQdABKIOgAhEHQARiDoAIhB1AEQg
6gCIQPy04wUGWhYU
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["148", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7EJgFAUxdCnmziDmziCYO3+nX+FNMEiF259yHG/173PzLn+rM9mzGFq
wUotVDGQWrhiILVwxUBq4YqB1MIVA6mFKwZSC1cMpBauGEgtXDGQWrhiILVw
xUD+2/IB96UWFA==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["166", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9l0EOgzAMBMf9Sd/Qn/QJSJz7/1spxQk9FmnWUuAEo8Rer3NfXs/lBjy2
tW6rivq86IcSVRNgUohQ9pgoidKpsfOSoBChfDk2hQhliFLXSyIvh1x0vfiU
IkEhQhkHpuvFp8x/6/6iU2ZokPaXwoS0v5yLQKHs/lJmVoa/qFkZ/uIeWPuL
u5X2FxfS/qJT9AJj+Iu/lwjlNMSIFCIU+VJxUIhQZGs5KHoT4/f+YlKIUAIN
hkiDISJ9IqIkIhd9EmuKX8ckjBJ/EmtKYCuXJrH6Oy588gaCqAOk
       "], {{0, 0}, {101,
        51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["169", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENwCAUQ0H/bJIZ2IQRkKizfwcrQJHqLL3Sund8fTxJ2m7uUpUfRqFQ
KBQKhUKhUCgUCoVCoVAOL6e7uCyXoQMJ
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["171", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENABAURdHPJmawiREkavt3GEFBdW7yypdT+mw9R0TdG3FKH6JQKBQK
hUKhUCgUCoVCoVAoz5X7ywLvuBX7
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["174", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7ENgDAAxMDAJszAJowQiZr9OzICbiwKv/T1ycd8rrmPMc71e30TJiBK
SB3fiToAIhB1AEQg6gCIQNQBEIGoAyACUQdABKIOgAhEHQARiDoAIhB1AEQg
6gCIQPy04wUGWhYU
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["180", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENwDAMAzAnn+SGftITDHTu/1v8Qg10CiVoFLjyvXNGxFV7aqP6fygU
CoVCoVAoFAqFQqFQKJSjlQYyPqdx2ZfUAwk=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["185", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7ENgDAMBVGbTZiBTRjBEjX7d3iFsxSa3I9SWk931nvXERFX/ycGy37L
l/kHYglCLEGIJQixBCGWIMQShFiCEEsQYglCLEGIJQixBCGWIMQShFiCkK1L
Em9w8gGJ4AMi
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["201", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzcENABAQRcGlEzXoRAkSZ/3faIHEybzNHn+m9Nl6joi6f8RFad/zIBAI
BAKBQCAQCAQCgUAgkN+RdNzFZAGOQQMJ
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["205", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMF/nKABJ0ggocZ/BxagoJpNrrxMHauPEhHtbMaPMhkMBoPB
YDAYDAaDwWAwGAzG/ee2h8sGhOEDCQ==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["209", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENABAUQMHPJmawiREkavt3zCChcS959ZU+W88RUfdjn+73AmEwGAwG
g8FgMBgMBoPBYDB+N9KBsQADTxX7
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["212", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENwCAUQ0H/bMIMbJIRkKjZv0tWgCJN7kkurWtj3eNK0t/NfFAVg8Fg
MBgMBoPBYDAYDAaD8W8jJ0Ztd3B5AISrAwg=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["213", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9zcsJw0AUQ9FROkkN6SQlGLxO/7sYY0Jsz+d9pLmgpTjP5fNeHqWU17a1
TAozDOgVQK8AegXQK4BeAfQKoFdwbYYhUCoGXakaZKVhUJWmQVQ6Bk3pGiRl
YFCUoUFQDEZaMRlJxWikFLORUBxGWHEZQcVphBS3EVAChlsJGU4laLiUsOFQ
EoZZSRlGJWmYlLRhUAjGUKEYA4VkdBWa0VGIRlOhGg2FbFQVulFRBMZNkRgX
RWScFJnxpwiNnyI1DkVs7Irc2BT/5QuoOQw3
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["222", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9l8EJwzAQBOfSSWpwJynBkHf6/8WWdco7hlmBjT5mWJbhfM/989ofwHY8
b7xT/SqqbMaB8BlyjjNDyTmuMnyG3cdg+DkI9KH7cUkYYNg5CPhBwA8CfhDw
g4AfBPwYtwDDy9Gjw/SjzTD9aDNMP9oM0w/aDLWPaYbaR5uh5ugmZIY7PyZD
9oP1y+Az/ByyH/r+sRiBPrD7kPePyfD9kPePH8PPofsh7x+LEegDvY/A/CAw
PwjMDwLzY0D8HL4fA3KDUX+fG598AVPKA6Q=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["225", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENwCAQA0A/m2QGNskISKmzfxdWgCINZ8ulddd479GS9Lknf6RmGQwG
g8FgMBgMBoPBYDAYjJON1LpRy9m4fISuAwk=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["227", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzTENACAQBMF/nKABJ0ggocZ/BxagoJpNrrxMHauPEhHtbMaPMhkMBoPB
YDAYDAaDwWAwGAzG/ee2h8sGhOEDCQ==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["241", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENABAUQMHPJmawiREkavt3zCChcS959ZU+W88RUfdjn+73AmEwGAwG
g8FgMBgMBoPBYDB+N9KBsQADTxX7
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["244", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9zcsJw0AUQ9FROkkN6SQlGLxO/7sYY0Jsz+d9pLmgpTjP5fNeHqWU17a1
TAozDOgVQK8AegXQK4BeAfQKoFdwbYYhUCoGXakaZKVhUJWmQVQ6Bk3pGiRl
YFCUoUFQDEZaMRlJxWikFLORUBxGWHEZQcVphBS3EVAChlsJGU4laLiUsOFQ
EoZZSRlGJWmYlLRhUAjGUKEYA4VkdBWa0VGIRlOhGg2FbFQVulFRBMZNkRgX
RWScFJnxpwiNnyI1DkVs7Irc2BT/5QuoOQw3
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["254", TraditionalForm]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["8", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["32", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["40", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["64", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["72", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["96", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["104", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["128", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["136", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["160", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["168", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["192", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["200", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["224", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzt2DENACAMAMGCEzTgBAlNmPG/UQ2M5C55Ez/yrOwRMatdNQAAAADgCw+z
7wL7shZf
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["232", TraditionalForm]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z7ENgDAMRNEcmzADmzACEjX7d1BDEmLH/raufvrrce3HUkrZnp3PZL7i
+HzEYRAdZsRlEB1GxGkQHSbEbRAdBmTCIDqGkSmD6BhEJg2iYwiZNoiOASTA
IDp+kRCD6PhBggyio4uEGURHBwk0iI4mEmoQHQ0k2CA6qki4QXRUkASD6Pgg
KQbRIaLjXZKPpBlEh4gOER0iOkR0iOgQ0SGiQ0SHiA55Om4V2hOj
       "], {{0, 0}, {101,
        51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["28", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8kJgEAMQNHRTqzBTixB8Gz/NxURtxmdbD8hx/D43TgPY5tS6teb1kuN
fOWjYDQKgchbdAqBSFu0CoHIWvQKgUhaLAqB1LfYFAKpbbEqBFLXYlcIpKbF
QyGQ/xYfhUD+WrwUAvlu8VMI5KvFUyGQcouvQiClFm+FQPIt/gqB5FoiFAJ5
t8QoBPJsiVII5N4SpxDItSVSIZCzJVYhkKMlWiGQvSVeIZCthVDkLwu6lROj

       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["70", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy90MkNgDAMAMGETqiBTighEm/6/4EihDhyObHXlt+j9Rz2NUzOueW8zcXx
0pUPgnh5S58CIOKWXgVAhC39CoCIWkYUABG0jCkA0twyqgBIY8u4AiBNLRoK
gDS06CgAUm3RUgCk0qKnAEixRVMBkEKLrgIg2RZtBUAyLfoKgCRbLBQASbTY
KADya7FSAOTTYqcAyKvFUgGQR4utAiB3i7UCIFeLvQIgsYVQAKTnXQeyqBOK

       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["78", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy90LsNgDAMRdE8NmEGNmGESNTs3xFayM+Jc225Prre433GLYRwpLvSyTzB
ugxiN4gOOzJiEB1WZMwgOmzIqEF0WJBxg+joR2YMoqMXmTOIjj5k1iA6epB5
g+hoIx4G0dFCfAyio454GURHDfEziI4y4mkQHSXE1yA68oi3QXTkEH+D6Pgj
Kwyi44usMYgOER0iOkR0iOgQ0SGiQ0SHiA4RHSI6RHS87zLPAxLPE4o=
       "], {{0, 0}, {
       101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["92", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy90LkNgDAMQNGETZiBTRgBiZr9O1IgxJHLjv0dubSefubtWLcphLCk3dPG
GORPPFHBaBQAUbToFAARt2gVABG26BUAEbWMKAAiaBlTAKS7ZVQBkM6WcQVA
ulosFADpaLFRAKTZYqUASKPFTgGQaoulAiCVFlsFQIot1gqAFFrsFQDJtngo
AJJp8VEA5NfipQDIp8VPAZBXi6cCII8WXwVA7hZvBUCuFn8FQFTfFcWjODkB
z+oFkg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["141", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z7ENgDAMRNEcmzADmzACEjX7d1BDEmLH/raufvrrce3HUkrZnp3PZL7i
+HzEYRAdZsRlEB1GxGkQHSbEbRAdBmTCIDqGkSmD6BhEJg2iYwiZNoiOASTA
IDp+kRCD6PhBggyio4uEGURHBwk0iI4mEmoQHQ0k2CA6qki4QXRUkASD6Pgg
KQbRIaLjXZKPpBlEh4gOER0iOkR0iOgQ0SGiQ0SHiA55Om4V2hOj
       "], {{0, 0}, {101,
        51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["156", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z80JgDAMQOHWTZzBTRxB8Oz+Nysi/rdNmryEHMPH66dlnLoQwpBuThdj
kK5iEETeolMIRNqiVQhE1qJXCETS0qIQSH1Lm0IgtS2tCoHUtbQrBFLTYqEQ
SLnFRiGQUouVQiD5FjuFQHItlgqB/LfYKgTy12KtEMh3i71CIF8tHgqBvFt8
FAJ5tngpBHJv8VMI5NriqRDI2eKrEMjR4q0QyN7irxDI1kIomh/xKF5W0aIF
SA==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["157", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy90LsNgDAMRdEXNmEGNmGESNTs34FEB+Rjx7m2UlpHN2s+97xI2u53yDHJ
vmk+4jCIDjPiMogOI+I0iA4T4jaIDgMyYBAd3ciQQXR0IoMG0dGFDBtERwcS
YBAdTSTEIDoaSJBBdFSRMIPoqCCBBtFRREINoqOABBtExy8SbhAdP8gEg+j4
IFMMokNExxuZYxAdIjpEdIjoENEhokNEh4gOER0iOp7vMt+Yx3FyAXA2BZI=

       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["197", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8kJgEAMQNHRTqzBTixB8Gz/NxURtxmdbD8hx/D43TgPY5tS6teb1kuN
fOWjYDQKgchbdAqBSFu0CoHIWvQKgUhaLAqB1LfYFAKpbbEqBFLXYlcIpKbF
QyGQ/xYfhUD+WrwUAvlu8VMI5KvFUyGQcouvQiClFm+FQPIt/gqB5FoiFAJ5
t8QoBPJsiVII5N4SpxDItSVSIZCzJVYhkKMlWiGQvSVeIZCthVDkLwu6lROj

       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["198", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z7sNgDAMRdEXNmEGNmGESNTs30EN+dlxri2X1tHd833mTdLx3iXXJOsm
AgFKXAbRYUScBtFhQtwG0WFAJgyiYxiZMoiOQWTSIDqGkGmD6BhAAgyio4uE
GERHBwkyiI4mEmYQHQ0k0CA6qkioQXRUkGCD6Cgi4QbRUUAWGETHD1liEB0i
Or4l65FlBtEhokNEh4gOER0iOkR0iOgQ0SGiQ46OZB7HywN2OgVI
       "], {{0, 0}, {101,
        51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["199", TraditionalForm]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8sRwjAMRVGJTlIDnVBCZljT/w4SyGAcf/R5D8taas7cZX3c1ouIXF97
l+0pfbbPJkRV6YjqrrA7lNxyGMSWwuC1lAappTI4LbVBaGkY+JaWAW7pGNiW
ngFsGRi4lpEBapkYmJaZAWgxGPkWi5FsMRq5FquRaHEY8RaPEWxxGrEWrxFo
CRj+lojhbAkavpao4WhJGPaWjGFsSRq2lqxhaAEY8xaEMWkBGeMWlDFoARr9
FqTRaQEb7Ra00WghGOcWhlG1kIzfFpZRtBCNbwvT+LSQjXcL29A/dOyK/+QJ
1UYQ6A==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["94", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy90MsRwjAMhGGFTqiBTighM5zp/0YCYTDGD620i20dNd/8Pq/363oys8s2
t22WxeR3f2pi+UPLbpi25TC0LW9D2FIYupbSELVUhqalNgQtDYPf0jLILR2D
29IziC0Dg9cyMkgtE4PTMjMILQ4j3+Ixki1OI9fiNRItgBFvQYxgC2jEWlAj
0BIw8JaIAbYEDawlagAtCcPfkjGcLUnD15I1HC0EY97CMCYtJGPcwjIGLUSj
38I0Oi1ko93CNhotAuO3RWFULSLju0VlFC1C49OiNI4WsfFqURv2/C54Bz6B
lQex3wgb
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["133", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9zbsNw0AQA9GjO3EN7sQlCFDs/jMptu6z3OVxgInf+/h9j1dr7XN/tlTg
syC8kkFoJYWwSg4hlSTCKVmEUtIIo+QRQikgcaWChJUSElVqSFApIjGlioSU
MhJR6khAESBrRYEsFQmyUjTIQhEhc0WFTBUZMlN0yEQRImNFiQwVKTJStMhA
ESN9RY10FTnSU/RIR9mAPJUdyEPZgvwrexBYEFgQWBBYEFgQWBBYEFgQWBBY
EFgQWBBYECSQC3sUETI=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["206", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9zbsNw0AQA9GjO3EN6sQlCHDs/jMrlu6z3OVxgInf+/x9zldr7bj+XoOu
8TkQ3uCRhEEjGYNFUgaJ5AwOSRoUkjUYJG0QSN6IIwUjjFSMKFIygkjNiCFF
I4RUjQhSNgJI3VgjAmOJKIwVIjEWiMaYIyJjiqiMGSIzJojOGCNCY4gojREi
NQaI1ugjYqOLqI0eIjc6iN54IhuMB7LDuCNbDDgMOAw4DDgMOAw4DDgMOAw4
DDgMOAw4DDgMJIw/J8sRMg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["220", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9zbsNw0AQA9GjO3EN7sQlCFDs/jMptu6z3OVxgInf+/h9j1dr7XN/tlTg
syC8kkFoJYWwSg4hlSTCKVmEUtIIo+QRQikgcaWChJUSElVqSFApIjGlioSU
MhJR6khAESBrRYEsFQmyUjTIQhEhc0WFTBUZMlN0yEQRImNFiQwVKTJStMhA
ESN9RY10FTnSU/RIR9mAPJUdyEPZgvwrexBYEFgQWBBYEFgQWBBYEFgQWBBY
EFgQWBBYECSQC3sUETI=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["238", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9zbsNw0AQA9GjO3EN6sQlCHDs/jMrlu6z3OVxgInf+/x9zldr7bj+XoOu
8TkQ3uCRhEEjGYNFUgaJ5AwOSRoUkjUYJG0QSN6IIwUjjFSMKFIygkjNiCFF
I4RUjQhSNgJI3VgjAmOJKIwVIjEWiMaYIyJjiqiMGSIzJojOGCNCY4gojREi
NQaI1ugjYqOLqI0eIjc6iN54IhuMB7LDuCNbDDgMOAw4DDgMOAw4DDgMOAw4
DDgMOAw4DDgMJIw/J8sRMg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["252", TraditionalForm]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJztyzENACAMAMGCEzTgBAlNmPG/gQWYGO6SH7/lGlkjop9mAAAAAAB/Ktce
lg2MCwKl
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["151", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztyzENACAMAMGCEzTgBAlNmPG/gQWYGO6SH7/lGlkjop9mAAAAAAB/Ktce
lg2MCwKl
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["159", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztyzENACAMAMGCEzTgBAlNmPG/gQWYGO6SH7/lGlkjop9mAAAAAAB/Ktce
lg2MCwKl
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["183", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztyzENACAMAMGCEzTgBAlNmPG/gQWYGO6SH7/lGlkjop9mAAAAAAB/Ktce
lg2MCwKl
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["191", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztyzENACAMAMGCEzTgBAlNmPG/gQWYGO6SH7/lGlkjop9mAAAAAAB/Ktce
lg2MCwKl
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["215", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztyzENACAMAMGCEzTgBAlNmPG/gQWYGO6SH7/lGlkjop9mAAAAAAB/Ktce
lg2MCwKl
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["223", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbEJwDAMRFEpm3iGbOIRBKmzf+esYBcixXtw5fFHvbOuiLi/PQEAAAAA
P5YtjYZK5n4ktx1cFpEvAqs=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["233", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENABAURdHPJmawiREkavt3rEChcU7yypdb+mw9R0TdGwEAAAAAv0tP
IueVdOzisgCONwKo
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["235", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztyzENACAQBMEHJ2jACRJIqPHf8RYgoZu5XLlt7jFrRPT8CgAAAADgv5K7
bq49JAeNOwKn
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["237", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztyzENACAMAMGCEzTgBAkkzPjfwEIZmO6SH7/NPWaNiH5bAQAAAAD8UPJH
2sNyAIyiAqY=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["239", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztyzENACAMAMGCEzTgBAlNmPG/gQWYGO6SH7/lGlkjop9mAAAAAAB/Ktce
lg2MCwKl
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["247", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzbENABAURdHPJmawiREkavt3rEChcU7yypdb+mw9R0TdGwEAAAAAv0sv
GheRdOzisgCOOQKo
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["249", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztyzENACAMAMGCEzTgBAkkzPjfwAIdmO6SH7/NPWaNiH5bAQAAAAB8UBLL
s8RyAIyjAqY=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["251", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztyzENACAMAMGCEzTgBAkkzPjfwAJN2O6SH7/NPWaNiH5bAQAAAAD8VzLP
s8RyAIykAqY=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["253", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztyzENACAMAMGCEzTgBAlNmPG/gQWYGO6SH7/lGlkjop9mAAAAAAB/Ktce
lg2MCwKl
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["255", TraditionalForm]]}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.676887981239831*^9, 3.676888008918254*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlotCluster", "[", 
  RowBox[{
   RowBox[{"c2", "[", 
    RowBox[{"[", "2", "]"}], "]"}], ",", "init", ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.676888022325889*^9, 3.6768880224523783`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJztzzENACAQBMEHJ2jACRJIqPHf8Raeeja58ooZ+67dI2LmTq6V+7lU+/yQ
kJCQkJCQkJCQkJCQkJCQkJCQVHqjdgy0
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["1", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8ENgDAMBMGETqiBTighEm/6/5EGSOzzaS35eSvNOd57HK21a/4zv/vu
v9Vst2gREJ9klSIgNsmyREBcknWIgJgkmw4B8Uh2GQJikWwrBMQh2UcIiEES
aBCQuiSSICBlSahAQKqSWICAFCXBPQGpSaJzAlKShNcEpCKJjwlIQZLYEhBd
kpkSEFmSWhIQVZIbEhBRktwREE2SnREQSZJeERBFkh8REEEibAhI/wCmqwyb

       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["3", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7EJACAQA8DXTZzBTRxBsHb/zl/hrS+QMoQb+67dI2JmT7aV8zOpJk/q
GxISEhISEhISEhISEhISEhISEpJaHqfXDJs=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["5", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7EJACAQA8DXTZzBTRxBsHb/TlfQQiwukDKQK322niOi7o7d9CLxIiQk
JCQkJCQkJCQkJCQkJCQkJP9KzjcXt84nC7asDIM=
       "], {{0, 0}, {101, 51}}, {0, 
       1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["7", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy92MkNAlEMA9A/dEINdEIJI3Gm/xuDQDDLX2LHHks5RtZTbrnOz/t8KaXc
lnksM5nzrijWTB+DWfItOsHhvcmv6ASHU/IvcknWDp9k5TBJtg6XZOOwSPYO
j2TnMEiODofk4JBLag69pOIQS+oOtaTqkEpaDq2k4RBK2g6lpOmQSXoOnaTj
EEn6DpWk65BIRg6NZOAQSMYOhWToSEsijrwk4EhKYo6sJORISaKOnCToSEji
jowk7KAliIOXAA5SgjlYCeSgJKiDk4AOQoI7GAnsYCTEFiHBX0uMhNmBJXBe
gNYMsg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["9", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8sJgDAQRdFoJ9ZgJ5YguLb/nUFE/JuZzLuBLN8dTjfOw9imlPr8p/wb
/UvAy1cAh96yXgAcasnWBxxayV4HHErJoQ04dJJTGXCoJJcu4NBIblXAoZA8
NAFHvOSxCDiiJS89wBErea0BjkjJRwtwxEk+S4AjSvLTARwxkt8K4IiQFDQA
R72kqAA4aiWFe8BRJyleA44aiWELOPwS0xJweCXGHeDwScwrwOGRODYOiH2y
AKKNDII=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["11", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8kNgDAMBVGHTqiBTigBiTP93whCiC177Ink45/ojcs2L4OITP5Wfw54
AjwHSASgHD8ADnPJ2QccxpKrDjhMJXcbcBhKnmXAYSZ5dwGHkeRbBRwmkn8T
cBhIQkXAoS4J9wCHsiRWAxyqkngLcChKUiXAoSZJdwCHkiRXARwqknwDcChI
SgqAo1tStgccnZLSNeDokpRvAUeHpGYJOJoldTvA0SipXQGOJkn9BnA4twOs
UQyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["15", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8ENgDAMBMFAJ9RAJ5SAxJv+f9BAHJ99Wkt+RZF3jvu97n2Mcf77/LvN
Zv6iz5hN8CRPcB6QOCnRfUBipIQBgMRHiQsAiY2ySAAkLsqqAZCYKMsIQOKh
rCsAiYWSyAAkDkqmA5AYKKkQQNKn5EoASZuSTAEkXUq2BZA0KekYQNKj5GsA
SYsi5ACSDkXpASQNihQESOoUrQiQlCliEiCpUtQmQFKkyFGApEbRqwBJiVLI
0r98qQMMmw==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["17", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7EJACAQA8DXTZzBTRxBsHb/TlfQQiwukDKQK322niOi7o7d9CLxIiQk
JCQkJCQkJCQkJCQkJCQkJN9Kbibnt84nC7atDIM=
       "], {{0, 0}, {101, 51}}, {0, 
       1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["19", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7EJACAQA8DXTZzBTRxBsHb/TlfQQiwukDKQK322niOi7o7d9CLxIiQk
JCQkJCQkJCQkJCQkJCQkJL9KbuwXt84nC7auDIM=
       "], {{0, 0}, {101, 51}}, {0, 
       1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["21", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz6ENACAQBMGHTqiBTiiBBE3/jq8BgWEuWXli2txj1ojo2crKi8WLkZCQ
kJCQkJCQkJCQkJCQkJCQ/C25uBy2FQyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["23", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy908EJgkEMROHVTqzBTizhB8/2f1PxrDvvTTCQ05IhH2Evx+N2nNda11ff
X32aqXfS96w1UZ/8H+9/gIxIdpAZyQYyIdlCRiQ7yIBkD5mQbCG9JIAMSPaQ
WpJAekkAaSURpJYkkFKSQVpJBOkkIaSUZJBKkkI6SQhpJDGkkqSQQpJDGkkM
8RIAKSQ5REsIxEsAxEoQREsIREoYxEoQxEkgREoYREkoxEkgxEgwREkoREg4
xEgwhEsEREg4BEsMhEsEBO9kIFhiIGopOiNuwiFmKzxi/gkfeQKIcQyZ
       "], {{0, 0}, {
       101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["25", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8ENgDAMBMGETqiBTighEm/6/5EGSOzzaS35uSfNOd57HK21a/4zv/vu
f6vZbjFFQHyS1RIBsUmWQwTEJVnvEBCTZDNDQDyS3QoBsUi2IwTEIdlvEBCD
JDBBQOqSyAIBKUtCAwSkKon1BKQoCeYEpCaJ1gSkJAnHBKQiibcEpCBJpARE
l2RKAiJLUiEBUSW5joCIkmRGQDRJtiIgkiQdERBFkm8IiCBREgDSP6xRDII=

       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["27", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzzENACAQBMEHJ2jACRJIqPHf8Raeeja58ooZ+67dI2LmTq6V+7lUqz9I
SEhISEhISEhISEhISEhISEhIyj2sUQyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["29", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz6ENACAQBMGHTqiBTiiBBE3/jq8BgWEuWXli2txj1ojo2crKi8WLkZCQ
kJCQkJCQkJCQkJCQkJCQ/C25uBy2FQyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["31", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzzENACAQBMEHJ2jACRJIqPHf8Raeeja58ooZ+67dI2LmTq6V+7lU+/yQ
kJCQkJCQkJCQkJCQkJCQkJCQVHqjdgy0
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["33", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8ENgDAMBMGETqiBTighEm/6/5EGSOzzaS35eSvNOd57HK21a/4zv/vu
v9Vst2gREJ9klSIgNsmyREBcknWIgJgkmw4B8Uh2GQJikWwrBMQh2UcIiEES
aBCQuiSSICBlSahAQKqSWICAFCXBPQGpSaJzAlKShNcEpCKJjwlIQZLYEhBd
kpkSEFmSWhIQVZIbEhBRktwREE2SnREQSZJeERBFkh8REEEibAhI/wCmqwyb

       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["35", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7EJwDAMRNFzNskM3sQjGFJn/y5eQapSPMGVH/Tu/a59JZlnz9moXrMp
XT8iISEhISEhISEhISEhISEhISH5nyQjjab+Vj35AI30DLE=
       "], {{0, 0}, {101, 
       51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["37", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8sNgDAMBFGHTqiBTigBiTP930gDcfxZjSUfd6R3Pt/9HGZ2zX/nD92t
W6a7dYuACCVOioDoJF6JgMgkboiAqCR+h4CIJJsMAdFIdhUCIpFsIwREIdk3
CIhAEkgQkL4kUiAgbUkoQEC6ktiegDQlwTkB6UmiawLSkoTHBKQjiW8JSEOS
mBKQuiSzJCBlSWpIQKqS3I6AFCXJGQGpSbIrAlKSpEcEpCLJbwjI+AGsOAyC

       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["39", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy92NkNgzAQBNDddEIN6SQlIPGd/v9ASCQ4vvaYiSXE5R3rCQGGZX2/1oeI
PI9lOxalN1Ght3OYP0i4lGsEtuIcgCzRa02VKFVyv+JMxSecKNH7Nk3y3eQo
yjuQpSiCSRL93adIyl28on4iMhRVKEFSZzIk9SGsov2GQiuagWBJOw8taR/G
KfozBqSiGwaU9LOQkv4pjGI8g0MphkEgyTgHJRmfzivmM2qEYhoCkMwzEJJ5
l5zC9oWTVZgCkhJbfVZi6xZX2L84MwpzcUJir81I7F1jCt8fgKjCVRiU+Oqi
El93v8L/RyaicBcFJKEat8TddpAPDLM=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["41", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8sJgDAQRdFoJ9ZgJ5YguLb/nUFE/JuZzLuBLN8dTjfOw9imlPr8p/wb
/UvAy1cAh96yXgAcasnWBxxayV4HHErJoQ04dJJTGXCoJJcu4NBIblXAoZA8
NAFHvOSxCDiiJS89wBErea0BjkjJRwtwxEk+S4AjSvLTARwxkt8K4IiQFDQA
R72kqAA4aiWFe8BRJyleA44aiWELOPwS0xJweCXGHeDwScwrwOGRODYOiH2y
AKKNDII=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["43", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8sJgDAQRdFoJ9ZgJ5YguLb/nUFE/JuZzLuBLN8dTjfOw9imlPr8p/wb
/UvAy1cAh96yXgAcasnWBxxayV4HHErJoQ04dJJTGXCoJJcu4NBIblXAoZA8
NAFHvOSxCDiiJS89wBErea0BjkjJRwtwxEk+S4AjSvLTARwxkt8K4IiQFDQA
R72kqAA4aiWFe8BRJyleA44aiWELOPwS0xJweCXGHeDwScwrwOGS2DcOiH2y
AKH1DIE=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["47", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8ENgDAMBMFAJ9RAJ5SAxJv+f9BAHJ99Wkt+RZF3jvu97n2Mcf77/LvN
Zv6iz5hN8CRPcB6QOCnRfUBipIQBgMRHiQsAiY2ySAAkLsqqAZCYKMsIQOKh
rCsAiYWSyAAkDkqmA5AYKKkQQNKn5EoASZuSTAEkXUq2BZA0KekYQNKj5GsA
SYsi5ACSDkXpASQNihQESOoUrQiQlCliEiCpUtQmQFKkyFGApEbRqwBJiVLI
0r98qQMMmw==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["49", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzzENACAQBMEHJ2jACRJIqPHf8Raeeja58ooZ+67dI2LmTq6V+7mU+7mQ
kJCQkJCQkJCQkJCQkJCQkJCQ1HqsOAyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["51", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8ENgDAMBMFAJ9RAJ5QQiTf9/0gDSXz2aS35FUXeufr39LO1do99xx6z
mb/o02Yzf9FncR6QOCmr+4DESFkGABIfZV0ASGyUTQIgcVF2DYDERNlGABIP
ZV8BSCyUQAYgcVAiHYDEQAmFAJI6JVYCSMqUYAogqVKiLYCkSAnHAJIaJV4D
SEoUIQeQVChKDyApUKQgQJKnaEWAJE0RkwBJlqI2AZIkRY4CJDmKXgVIUpRE
lv7lB6w4DII=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["53", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz6ENACAQBMGHTqiBTiiBBE3/jq8BgWEuWXli2txj1ojo2crKi8WLkZCQ
kJCQkJCQkJCQkJCQkJCQ/C25uBy2FQyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["55", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8ENwzAMQ1E3m3SGbpIRAuSc/W/NBLJIEd+Ajp/w+17PeR1rrd9793uf
2Cu2VuwVUwQkJ6mWCEhMUg4RkJSk3iEgIclmhoBkJLsVAhKRbEcISEKy3yAg
AUljgoDMJZ0FAjKWtAYIyFTS6wnIUNLMCchM0q0JyEjSjgnIRNJvCchAIqQE
xJcoJQGxJVJIQFyJ1hEQUyJmBMSTqBUBsSRyREAcid4QEEPiJPq39OQPqAEM
aQ==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["59", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJyt0MENAjEQQ9FAJ9RAJ5SwEmf6v7Fw34y/7ZFyiqL5L4/j8zrua63ned7n
uV3N+l1eX6NZV/NfcHnLZr++RNms71GG/R3Kbn+NMgVUKNuAFmUsaFD2BSXK
nFCgDAkditCQU6aGCkWJiCljRIMiVaSUuaJA0TJCipCRU8SOjKJ0xBQ1JKJI
ISlFLkkoWklI0VMCipiSUUCLT1FbIgqJsSlyTEJBNS5FrwkoLMekgByfAns8
CumxKTTIoqAgl4KLHAorMik8yaDAJI9iNHEKbbIoThR9g6tOCoY4VfiJ8b8c
4mTxJ1+IQwxo
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["61", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz6ENACAQBMGHTqiBTiiBBE3/jq8BgWEuWXli2txj1ojo2crKi8WLkZCQ
kJCQkJCQkJCQkJCQkJCQ/C25uBy2FQyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["63", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8sNwkAMhGEvnVADnVBCJM70fyNEUUKSfdjjGVbyXv/57tP7Od3M7DHf
az4r3xM/W39TvjUgltgfLFtALNFbyh4QS9SWLaa0HGsiy09OZzn3JJZDUGW5
FgWWU1JjqTXplktUYalXyZZKlm9pdamWaphtaZeJlkaaa+m1aZZmnGnp10mW
Tp5nGfUplu4AlmW8gGAZTOBYPBvSluEIhsW3ImlxzMhbvDtSFteQrMW/JGFx
TslZIltgi3tMxhJbA1oCc3BLdA9kCQ1CLfFFgCU4CbMgm8SSxSKXLKvkkoJI
PoiIDLI=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["65", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJytz7ENAzEMQ1FfNskM2SQjHJA6+3e5Kt1Z/CQFuDIE/fc8v+/zsdZ6Xe9z
veNu1rH7ZbNu538pn835HmW436Hs7tcoU0CFsg1oUcaCBmVfUKLMCQXKkNCh
CA05ZWqoUJSImDJGNChSRUqZKwoULSOkCBk5RezIKEpHTFFDIooUklLkkoSi
lYQUPSWgiCkZBbT4FLUlopAYmyLHJBRU41L0moDCckwKyPEpsMejkB6bQoMs
CgpyKbjIobAik8KTDApM8ihGE6fQJoviRGEKjnIoVLJcPqXwHYNirHAKnh+J
rwyZ
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["67", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzzENACAQBMEHJ2jACRJIqPHf8Raeeja58ooZ+67dI2LmTq6V+7nUq39I
SEhISEhISEhISEhISEhISEhIij2sHwyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["71", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8kNwkAQRcGGTIiBTAjBEmfnf8MWQizeZumipTmO3q/LMN6Gc0Rcp3eP
+U7+pkbwmxteEn+wPENe4i2vlJdoyzvmJdbymfMSafkOeomz/Ca9RFmWUS8x
lrWslwjLethL8i1baS/JtmzHvSTXspf3kkzL/gAvybMcTfCSLMvxCC/JsZTM
8JIMS9kQL+m3lE7xkl5L+Rgv6bPUzPGSHkvdIC9pt9RO8pJWS/0oL2mzNMyq
//IAoikMgg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["81", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8ENgDAMBMFAJ9RAJ5SAxJv+f9BAHJ99Wkt+RZF3jvu97n2Mcf77/LvN
Zv6iz5hO8KROcJ6QGCnRfULio4QBhMRGiQsIiYuySCAkJsqqgZB4KMsIQmKh
rCsIiYOSyCAkBkqmg5D0KakQQtKm5EoISZeSTCEkTUq2hZD0KOkYQtKi5GsI
SYci5BCSBkXpISR1ihRESMoUrYiQVCliEiEpUtQmQlKjyFGEpETRqwhJhVLI
0r98rB8Mgg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["83", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy90MsJgDAQRdHRTqzBTixBcG3/OxVF/JtJ5t1AluHdk6Yfu742s3a+w3yt
Ao5Vpj/LjF5igGX9Mr1Eb9mmAInaso8BEq3lMAdIlJbTICDRWS6TgERluY0C
Eo3lYRaQKCyPw4Ak3vIyDUiiLa/jgCTW8jEPSCItnwGAJM7ykwBIoiy/EYAk
xpKQAUgiLEkhgKTckpgCSEotyTGApMziyAEkJRZXECDJtziTAEmuxR0FSPIs
GVn+JxOsHwyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["85", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz6ENACAQBMGHTqiBTiiBBE3/jq8BgWEuWXli2txj1ojo2crKi8WLkZCQ
kJCQkJCQkJCQkJCQkJCQ/C25uBy2FQyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["87", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz7ENACAQQlHOTZzBTRzBxNr9O28FqD8JJQlvnrfPkLS6t1tmpHTkJNwg
QYIECRIkSJAgQYIECRIkSJAgQWK/qmDj3womAcXOB49NDFE=
       "], {{0, 0}, {101, 
       51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["91", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz6ENACAQBMGHTqiBTiiBBE3/jq8BgWEuWXli2txj1ojo2crKi8WLkZCQ
kJCQkJCQkJCQkJCQkJCQ/C25uBy2FQyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["95", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9kckNwkAQBHfJhBjIhBAs8Sb/H7YEFsZ7zNHFSPOuLtV1ed6XSynltv5j
/VJLxW9DFPrqX0zeHNhkY8A2HxJugnfZWWSXHUbafNNwE7TLgUd1OQApm18i
boJ1OTGJLicoYdOi4iZIlyZX3aUJVtv0yLiJvEuXrezShSttRnTcRNplyFd1
GQ5Q2cwW4CayLtMNii7TEQobywrcRNLFtCPbxTQka2Ndgpuku5i3ZLqYx2Rs
PGtwk1QX155oF9egqI13EW4S7uLeFOniHhWxiazCTUJdXph7DLM=
       "], {{0, 0}, {101,
        51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["97", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy907ENwwAIRFHsTTxDNvEIllx7/y6u0sXc/SNBokKAnhDbce3HWlWvO887
l5GopZ5m1Ux8Fn2r/hwyJHmGjEg6yIykgUxIWsiIpIMMSHrIhKSF5BIBMiDp
IbFEgeQSAZJKJEgsUSChRIOkEgmSSURIKNEgkUSFZBIRkkhkSCRRIYFEhyQS
GcIlBiSQ6BAscSBcYkCoxIJgiQOBEg9CJRaESUwIlHgQJHEhTGJCiMSGIIkL
ARIfQiQ2xJcACJD4EFtCIL4EQMBNCN+n2BDyJ0xvU/4g8VveimsMaA==
       "], {{0, 0}, {
       101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["103", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy12MEJwzAQRFEpnaSGdJISDDmn/1sUY7BXyNLO7ozAzMmCx7/puX3f26OU
8mrfp31VdNrN++X7yk49bv+vTlLOFUrO1SguPQ6OQlHtSiTFrErSLV3R9ZBI
+h4aSddDJLHLlgx70CWjHnzJoIdAYpctue1Bldz14EpuepAldtmSaQ+aZNaD
J5n0IErssiXLHhTJqgdHsuhBkthlS1w90hJPj7zE0YMgscuWuHukJN4eOYmz
R1Jily2BeoQlSI+4BOiRkNhlS+AeIQnaIyYBewQldlUSqEdYgvSIS8DfghLw
H5gC9ghJIi9LsCTyRPYDjm4MIQ==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["107", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy92E0KhDAMhuHEm3iGuYlHEGY9998pDIKKP/3S5C10GcIDbZp0nH/TPJjZ
Z93fdXvpMjdg/RMBDq/lbIkAR6nkmKjYUSjx3QEGHGUSP1xEwFEk8VNBARwl
krMjX3J5/QBHtuSmjACOXMltOQQcmZKHsg448iSPzxPgyJK8PLOAI0fy2i4A
jgxJQ9sDOPolTe0b4OiVNLahgKNP0txOA44eiTAWAI64RBpvAEdUIo5pgCMm
kcdNwBGRBMZmwBGS6GERifzBFJIEQnSJHKFL9JAFiKYMTw==
       "], {{0, 0}, {101, 
       51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["111", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8kNwkAQRcGGTIiBTAjBEmfnf8MWQizeZumipTmO3q/LMN6Gc0Rcp3eP
+U7+pkbwmxteEn+wPENe4i2vlJdoyzvmJdbymfMSafkOeomz/Ca9RFmWUS8x
lrWslwjLethL8i1baS/JtmzHvSTXspf3kkzL/gAvybMcTfCSLMvxCC/JsZTM
8JIMS9kQL+m3lE7xkl5L+Rgv6bPUzPGSHkvdIC9pt9RO8pJWS/0oL2mzNMyq
//IAoikMgg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["113", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8ENwzAMBEE5naQGd5ISDOSd/n9xA6Z4x8MS4EsQuPO+fp/rtdY67/3e
ezxN8STPepziSZ3qPCAJUsr7gCRHqQMASYyyKQAkKcouAZCEKNsGQJKh7CMA
SYTSqAAkCUonA5AEKK0OQDKn9EIAyZjSLAEkU0o3BZAMKe0WQDKj9GMAyYgi
1ACSCUXJASQDitQDSHyKFgRIbIpYBEhcipoESEyK3ARIPIoeBUgsilEFSByK
kaV/+QOldwxp
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["115", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy92MsNwjAQRdGBTqiBTighEmv63+GAEL987HhORvL6vrP1abhdhmNEnMu7
xngHf6UR/MaGl8QOlmfIS7zllfISbXnHvMRaPnNeIi3fQS9xlt+klyjLf9RL
jGUq6yXCMh32knzLXNpLsi3zcS/JtSzlvSTTsjzAS/IsaxO8JMuyPsJLciw1
M7wkw1I3xEv6LbVTvKTXUj/GS/osLXO8pMfSNshLtltaJ3nJVkv7KC8pjR0k
j2+41rsDoZEMgQ==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["117", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz6ENACAQBMGHTqiBTiiBBE3/jq8BgWEuWXli2txj1ojo2crKi8WLkZCQ
kJCQkJCQkJCQkJCQkJCQ/C25uBy2FQyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["119", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9mMsNwjAQBdd0Qg10QgmRONP/jVgmMSt/srZ3MIneyXpvGIkD9+393G4i
8tjfl8QT9ieEI5Ej8ZO6UhInMiQCAUnkJCBJsg/My5eB9ZK/tN8kSGgvuQz0
kttAL6pOJUFCetGFkBfdCHkpKlUSJJSXshTwUrYCXqq1KgkSwku92NlLvdnZ
S7NaJUHi7aVd7uil3e7opVuvkiDx9NIf4OSlv8DJy+UElQSJl5frEQ5erlc4
eDHNUEmQeHixDVn0Yluy6MU8RSVBsurFPmbBi33NgpehOSoJkhUvY4PSQ5Ic
PliS808SlET+QpK8jN6ZWTV8ZeKnaOLKB34wDCE=
       "], {{0, 0}, {101, 51}}, {0, 
       1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["121", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztzzENACAQBMEHJ2jACRJIqPHfgQW+ZS65cotpc49ZI6Lfr/vyumTzuExC
QkJCQkJCQkJCQkJCQkJCQkLys6QkkgOhQAxQ
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["123", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy92MkNg0AQRNEeZ0IMzsQhjOQz+d9AhpFtZuulipY4/3qIE0teX/khIs/9
ect5SRL1joBw7wxwLSVAltxg+QbIErqltKiW+rXxJFzLJcex/PZolirIsPwX
SZZGEm+5NimWZhRtqasESyeLtbS6cEs3jLS0y2DLII2z9NpQyzCOsvTrQMsk
j7GM+jDLdADCMl4AsigmxC2zDRCLakTUMl8BsChnxCyaHWGLekjEolsStBim
+C3aLSGLaYzXol8TsBjn+CyWPW6LeZDHYlvktDgmkSUfC11y/PBhS+QWSfJ8
XRt/EAxP
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["125", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJztz6ENACAQBMGHTqiBTiiBBE3/jq8BgWEuWXli2txj1ojo2crKi8WLkZCQ
kJCQkJCQkJCQkJCQkJCQ/C25uBy2FQyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["127", TraditionalForm]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJy90MkNwzAMRFEqnaQGd5ISDOSc/m/xxYkXLRxyRhR4/CCenuvntT7MbNn2
vW2Bx/AHT+TIDAlOiXyWXlImSGyCpEyQ2ATJniglv0Yo+Sc6yaGRSY6JSnJq
RJJzopFcGonkmigkt0YguSd8SaWhS2oJW1JtyJJ6wpU0GqqklTAlzYYoaSc8
SaehSXoJS9JtSJJ+wpEMGopklDAkw4YgGSd5iaNJSzxJVuJqkhJfkpM4m5TE
m2Qk7iYh8SdxCdCEJUgSlUBNUIIlMQnYhCRoEpHATUACzxctXQyC
       "], {{0, 0}, {101,
        51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["13", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy90LsNw0AMA1Apm3iGbJIRDLj2/l2utu8jUjxRYE08Hef9Oz9m9m29Ws3x
g8OMGBpmBpcwD8MluIWR4BZGglo4CWrhJJiFlWAWVoJYeAli4SVxS0YSt2Qk
UUtOErXkJDFLVhKzZCURS14SseQla4tCsrYoJCuLRrKyaCRzi0oyt6gkM4tO
MrPoJGOLUjK2KCUji1YysmglfYta0reoJT2LXtKz6CVvyw7J27JD8rTskTwt
eyReIrESiZdIrETiJRIrkXiJxEokXiKxEokzkj8qoQyC
       "], {{0, 0}, {101, 51}}, {
       0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["69", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8sNAjEMRVGbTqiBTihhJNb0vyNCCEHif57njmbpF53r8bwfFyK6jf8x
fuITvlMe4VOe6LeMF7jbwm9Jr4U+kk4LfyV9FvqRdFn4T9JjoUnSYeFFgreQ
IEFbWJRgLaRIkBZWJTgLGRKUZR6dwztWCcKyTq6hHZJk1yINSmEdsmTHIs/J
IR2apGrRxrRwDl1SsehTeiiHJclarCErjMOWZCz2jB3C4UmiFm/Ea9/hSyIW
f8Jv1xGReJbIQKQ9R0xiWWLnsXYcUYlmiR5HqzviEskSP41XdWQksyVzmKnm
yEm45khKqOTISrjiSEuo4MhLOO9gfgGwGAxp
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["77", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy90MkNwzAMRFEqnaQGd5ISDOSc/m/xxYkXLeRwRhR4/CCenuvntT7MbNn2
vW0Jj8UfMMCZCRKEEv8svaRMkNgESZkgsQmSPVFKfoVQ8k90kkMhkxwTleRU
iCTnRCO5FBLJNVFIboVAck/4kkpBl9QStqRakCX1hCtpFFRJK2FKmgVR0k54
kk5Bk/QSlqRbkCT9hCMZFBTJKGFIhgVBMk7yEkeRlniSrMRVJCW+JCdxFimJ
N8lI3EVC4k9wSaCAJZEElYQKUBJLMEmwgCTRBJGEC0ASni8xpQxp
       "], {{0, 0}, {101,
        51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["79", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy90LsNw0AMA1Apm3iGbJIRDLj2/l2utu8jSjxSYE08Hef9Oz9m9m29Ws3x
g5MYwZOZwSX4wzIS3JKRoJacBLXkJJglK8EsWQliyUsQS14St1QkcUtFErXU
JFFLTRKzVCUxS1USsdQlEUtdsrYwJGsLQ7KycCQrC0cyt7AkcwtLMrPwJDML
TzK2MCVjC1MysnAlIwtX0rewJX0LW9Kz8CU9C1/ytuyQvC07JE/LHsnTskdi
EolLJCaRuERiEolLJCaRuERiEolLJCaReEbyBy8bDGk=
       "], {{0, 0}, {101, 51}}, {
       0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["93", TraditionalForm]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJzdzbsNgDAQBFEvnVADnVCCJWL6z3Bs+Xs+T8CsNn5nfO94hBCu9Cc96C8T
YuxXBCgCFAGKAEWAkkcYO5RShOGt1CIMT6UVYXgpvQjDQxmJMFaV0QhjRZmJ
MKzKbIRhUSwRxqxijTBmlJUIY1RZjTBGFI8Io6d4RRgtxTPCqCneEUZJ2RFh
5MquCEOIIcQQYggxZDE+0WgRMg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["50", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzdzbsNgDAQBFEvnVADnVCCJWL6z3Bs+Xs+T8CsNn5nfO94hBCu9Cc96C8T
YuxXBCgCFAGKAEWAkkcYO5RShOGt1CIMT6UVYXgpvQjDQxmJMFaV0QhjRZmJ
MKzKbIRhUSwRxqxijTBmlJUIY1RZjTBGFI8Io6d4RRgtxTPCqCneEUZJ2RFh
5MquCEOIIcQQYggxZDE+0WgRMg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["58", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzdzbsNgDAQBFEvnVADnVCCJWL6z3Bs+Xs+T8CsNn5nfO94hBCu9Cc96C8T
YuxXBCgCFAGKAEWAkkcYO5RShOGt1CIMT6UVYXgpvQjDQxmJMFaV0QhjRZmJ
MKzKbIRhUSwRxqxijTBmlJUIY1RZjTBGFI8Io6d4RRgtxTPCqCneEUZJ2RFh
5MquCEOIIcQQYggxZDE+0WgRMg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["114", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzdzbsNgDAQBFEvnVADnVCCJWL6z3Bs+Xs+T8CsNn5nfO94hBCu9Cc96C8T
YuxXBCgCFAGKAEWAkkcYO5RShOGt1CIMT6UVYXgpvQjDQxmJMFaV0QhjRZmJ
MKzKbIRhUSwRxqxijTBmlJUIY1RZjTBGFI8Io6d4RRgtxTPCqCneEUZJ2RFh
5MquCEOIIcQQYggxZDE+0WgRMg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["122", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z7sNAlEMRNExnVADnVDCSsT0n7EBAWLfx5/xXMuhdeT78X4eNwCPc1/n
wgz9o1AUv0CgQKBAoECgQKBAoFxqUAbRlWFkZRJVmUZUFtGUZSRlE0XZRlAc
lRVXRcVZSXFXUAKllVBJJVhKCZdQEoWVVEElWUhJF1AKuZVSTqWYSynnUAht
FUobhdRSobVQiE0VahOF3FChN1AauigtmcD4U9oygfGjtGYC46u0Z3HDwiVO
PrYjB9I=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["163", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy91skNAlEMA1APnVADnVDCSJzp/8YXQohh/pLFjiMfo3f1dX/e9wuAW+uj
ddPfVqA0Q668DbHyMaTK1xAqP4ZMORgi5c+QKCdDoHQMutI1yMrAoCpDg6hM
DJoyNUjKwqAoS4OgGIy0YjKSitFIKWYjoTiMsOIygorTCCluI6AEDLcSMpxK
0HApYcOhJAyzkjKMStIwKWnDoBCMpUIxFgrJmCo0Y6IQjaFCNQYK2egqdKOj
CIyTIjFQYqDEQImBEgMlBkoMxDacO4GXF7aHB9I=
       "], {{0, 0}, {101, 51}}, {0, 
       1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["177", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzdzbsNgDAQBFEvnVADnVCCJWL6z3Bs+Xs+T8CsNn5nfO94hBCu9Cc96C8T
YuxXBCgCFAGKAEWAkkcYO5RShOGt1CIMT6UVYXgpvQjDQxmJMFaV0QhjRZmJ
MKzKbIRhUSwRxqxijTBmlJUIY1RZjTBGFI8Io6d4RRgtxTPCqCneEUZJ2RFh
5MquCEOIIcQQYggxZDE+0WgRMg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["178", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z7sNgDAMRdEXNmEGNmEEJGr270gd5WfHuddyaR35fL77OSRded+8SsAQ
CvGLAEWAIkARoAhQyghjh1KLMKKVVoQRqfQijChlFGFEKDMRxqoyG2GsKJYI
w6tYIwyP4okwrIo3wrAoKxHGrLIaYcwoERHGSImKMHpKZITRUqIjjJqyI8Io
lV0RhhBDiCHEEGLIYyRzjpMftToHoA==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["179", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzdzbsNgDAQBFEvnVADnVCCJWL6z3Bs+Xs+T8CsNn5nfO94hBCu9Cc96C8T
YuxXBCgCFAGKAEWAkkcYO5RShOGt1CIMT6UVYXgpvQjDQxmJMFaV0QhjRZmJ
MKzKbIRhUSwRxqxijTBmlJUIY1RZjTBGFI8Io6d4RRgtxTPCqCneEUZJ2RFh
5MquCEOIIcQQYggxZDE+0WgRMg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["186", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzdzbsNgDAQBFEvnVADnVCCJWL6z3Bs+Xs+T8CsNn5nfO94hBCu9Cc96C8T
YuxXBCgCFAGKAEWAkkcYO5RShOGt1CIMT6UVYXgpvQjDQxmJMFaV0QhjRZmJ
MKzKbIRhUSwRxqxijTBmlJUIY1RZjTBGFI8Io6d4RRgtxTPCqCneEUZJ2RFh
5MquCEOIIcQQYggxZDE+0WgRMg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["242", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzdzbsNgDAQBFEvnVADnVCCJWL6z3Bs+Xs+T8CsNn5nfO94hBCu9Cc96C8T
YuxXBCgCFAGKAEWAkkcYO5RShOGt1CIMT6UVYXgpvQjDQxmJMFaV0QhjRZmJ
MKzKbIRhUSwRxqxijTBmlJUIY1RZjTBGFI8Io6d4RRgtxTPCqCneEUZJ2RFh
5MquCEOIIcQQYggxZDE+0WgRMg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["250", TraditionalForm]]}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.676888023351522*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlotCluster", "[", 
  RowBox[{
   RowBox[{"c2", "[", 
    RowBox[{"[", "3", "]"}], "]"}], ",", "init", ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.6768880310137033`*^9, 3.6768880313405657`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJy1ldENwyAMRE036QzdpCNE6nf3/2uqCqGQxnf2GSJkIXI8DFh3397P7WZm
j72/9m6ttW+/ajXz5v7Tiub9f6rmDXyocXoDHVMYfeddRSYXrDcQmVywfj5/
9j5i+vn82fuI6WduJA9e/y+3GIXRR+sjp4/WR04frY+cPlofOX32PmL67H3E
9EoevF5jsHrkD6r/jL0onaX4/qD6z8hFiSzF9wfVf8aePH9Q/WfsTRmzFG3M
Uvz3r/rP2Jv3/lX/6av471/1n77KMUbnWYp/3qr/9FX8far+01fBXqo3xksr
KBX+gSkV/oEpFf6BKX6solT4B6ZU+AemVPgHpvjjKsqK+jhTVtTHmbKiPs6U
Y1xFWXkfg7I6jx9lPSOVxwfoHBS3
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["18", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1l9ENwyAMRHE36QzdpCNE6nf3/2uSkiKRhjtzdiTLQuR4GGKdcl/ez+VW
Snms8VqjmNkWV0/M/JczeCtkfvxO1PzGGgV6OH0BASmU/uBdZaYWrC8gM7Vg
fX/+7H349P35s/fh0/dcTx28/l9tLgql9/bHnN7bH3N6b3/M6b39MaefvQ+f
fvY+fHqlDl6vMVg98gfVf9pelCApwB9U/2m1KJmkAH9Q/aftaeQPqv+0vSlj
kiKOSQr4/lX/aXsbff+q/9RVwPev+k9dpcveeZICzlv1n7qKjfep+k9dRfw/
ISniPEkJ8Q9IARFECfEPSAE5iBLiH5BiEf4BKSH+ASlgHERJ6Y8TxTL640RJ
6Y8TpctJlNT7+FEsu46dkl7HTvFLPlm+FCw=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["22", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1ldENwyAMRE036QzdpCNE6nf3/2uqCqGQxnf2GSJkIXI8DFh3397P7WZm
j72/9m6ttW+/ajXz5v7Tiub9f6rmDXyocXoDHVMYfeddRSYXrDcQmVywfj5/
9j5i+vn82fuI6WduJA9e/y+3GIXRR+sjp4/WR04frY+cPlofOX32PmL67H3E
9EoevF5jsHrkD6r/jL0onaX4/qD6z8hFiSzF9wfVf8aePH9Q/WfsTRmzFG3M
Uvz3r/rP2Jv3/lX/6av471/1n77KMUbnWYp/3qr/9FX8far+01fBXqo3xksr
KBX+gSkV/oEpFf6BKX6solT4B6ZU+AemVPgHpvjjKsqK+jhTVtTHmbKiPs6U
Y1xFWXkfg7I6jx9lPSOVxwfoHBS3
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["26", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9l1EKw0AIRN3epGfoTXqEQL97/7+GJQirZEdxbIIsi2ReojtInsf3fTxE
5HXG54yRvmRIaR+DSG0fgxT3MYi5svkYxNzZfAwia2TzMYiJbD4Guep8V2+U
j0Gu97urN8rHILKu2XwMYtZsPgYB57/kDxUB57/kDxUB57/kDxUZ+3qX/KEi
oN7lfkwR8J7lfkwRoEH4DlxvBsPNC8r8cBBwcyCyDw4EBAdi5gVlfjiImReU
+eEgsl85ELByIMYPVH+oqPED1R8qavxA9YeKjrX+VH+oqKk/vR9TlPH/ASGM
/w8IAXsOpGN+OEjH/HCQjvnhICZ6IB3zw0E65oeDdMwPBzFrD6TTHwrp9IdC
Ov2hkNHcjwnp7seE9H/HH/oxIflHfgEwFLc=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["60", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1ldENwyAMRE036QzdpCNE6nf3/2uqCqGQxnf2GSJkIXI8DFh3397P7WZm
j72/9m6ttW+/ajXz5v7Tiub9f6rmDXyocXoDHVMYfeddRSYXrDcQmVywfj5/
9j5i+vn82fuI6WduJA9e/y+3GIXRR+sjp4/WR04frY+cPlofOX32PmL67H3E
9EoevF5jsHrkD6r/jL0onaX4/qD6z8hFiSzF9wfVf8aePH9Q/WfsTRmzFG3M
Uvz3r/rP2Jv3/lX/6av471/1n77KMUbnWYp/3qr/9FX8far+01fBXqo3xksr
KBX+gSkV/oEpFf6BKX6solT4B6ZU+AemVPgHpvjjKsqK+jhTVtTHmbKiPs6U
Y1xFWXkfg7I6jx9lPSOVxwfoHBS3
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["82", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1ldENwyAMRE036QzdpCNE6nf3/2uqCqGQxnf2GSJkIXI8DFh3397P7WZm
j72/9m6ttW+/ajXz5v7Tiub9f6rmDXyocXoDHVMYfeddRSYXrDcQmVywfj5/
9j5i+vn82fuI6WduJA9e/y+3GIXRR+sjp4/WR04frY+cPlofOX32PmL67H3E
9EoevF5jsHrkD6r/jL0onaX4/qD6z8hFiSzF9wfVf8aePH9Q/WfsTRmzFG3M
Uvz3r/rP2Jv3/lX/6av471/1n77KMUbnWYp/3qr/9FX8far+01fBXqo3xksr
KBX+gSkV/oEpFf6BKX6solT4B6ZU+AemVPgHpvjjKsqK+jhTVtTHmbKiPs6U
Y1xFWXkfg7I6jx9lPSOVxwfoHBS3
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["90", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9l1EKg0AMRLO9Sc/Qm/QIQr97/7/KIqGboJOQiUpYluA83TAMPrfve3uI
yGuvz14yZPxf2X3sEqntg5TiPkgxV7YfpJg72w9SZK1sP0gxle0HKcdZn505
6gcpxxuenTnqBymyrtl+kGLWbD9IAT6o+URVgA9qPlEV4IOaT1RlXJ95zSeq
As68PpOpAt60PpOpAkQYX4LPnAJx+cHJE0cBN4ki10WigCJRTH5w8sRRTH5w
8sRR5HolUcBKohhfcH2iqsYXXJ+oqvEF1yeqOtYZcH2iqmYG/JlMVcr/CaRQ
/k8gBexJlJY8cZSWPHGUljxxFFNNlJY8cZSWPHGUljxxFLM2UVp9opRWnyil
1SdKGd0zmZT2mUzKDV9yx0wmJf/ID88XFLc=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["102", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9llGOwjAMRG1usmfYm+wRkPjm/n/Qxp5xNuSjiU0lVALCL2NPM/zcn3/3
m4j8vl8POS89rnYTf3Pc7VvxhXJ99eqLdtWPgraJhuD6OiUUFS/VRFGZKeGm
rms5y1qzrJS4Sijt1wtamiDfsWJGwvbIv/WCFlU0Cx5QRQu9+OLgXYuwWcF0
GhyA9TpF0azgAekcsG5hajGY+uCdpd7PDQtTy3lT84DQb/bxloWpBePFaPA5
N7IFQTuwYfqND8teu5TtgAA3RHhYtgbvJWwOElgaB7GthO2AAN85nsh9JWwH
WZx5goVBmeVLioVBAS1aeDiVdymzfEmxMCizfEmxMCizfEmxMCg65kuehUH5
kC95FgZlyJdMC4My5EumhUFpN/V8MXSmkg/5YuhUyJgvhk6FjPmSa2FQNOZL
PJVTKf2Zn2xhUJgvDkyHdPki+RYGBTQpsDAoPLsKLAyK50uJhUERnC1VSmK+
lFgYFALKICFf6pTEfCmEIF8qlTBfSiH5fyQmlFILg6KVFgalvF1abmFQvgCp
H3yjXP/JC/0mE1Y=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["110", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9l0uOAzEIRKncZM4wN5kjRMo6999N2jZQhFVsSEv9cRTxGgoM/XN//t1v
IvL7Oh+vEx8fArmOdbW12bruog/jtgO5APMqvGbWO3QDsgzbm663nSTz883B
DyFmOK4XaXk4/yB7foC0iGu4QuvXTT2wzJhxDY26pIEcXmzqoWbWi2voySVP
iW091BOhaJDChtDA7TI8ZUlvy2pKiQM/KGWp5jyrPSVOGCxoKD6o2h7OAwgV
s9UcLFJC4TzxxAx4oVukhMN5AHEDXuju0ll9mGUvQ6E1POWO/Qi7rq/dpXM9
plETw9f6gAI9hhGA4lLUPxKExajqHwkS4lLUPxIkxKWofyRIiEtR/0iQODjU
9I8MCYNDTf9IEMTBoaR/JEjcT1DSPxIk7CeGLWXEFK7qHwkS95Oa/pEgEvaT
2vpwCA0OKK4Pg4AGBxTXh0F4cECDHsMoDw5o0GMa5cGhxQ8eHBrqwyCWv016
TIjvKF0M+pxr88ONt+kBMt7ohxvvZPDnXCOksz4c0qzHgKBZjwHp1mNA+v34
gh4T0s/ABuMfYh0TVg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["124", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1ldENwyAMREk36QzdpCNEynf3/2uiKIoh4nyHDRKyqHM8DHLvvf6+66uU
8tnnVo6xLMfsDSdPyk8O+gzmSTn+yM2T8uIMvAkrvy62N10KJb+AvUjUQsiv
RS8StRDy9v7J9xDl7f2T7yHKW7BQhyBvf5QYtFzsj0G52B+DcrE/BuVifwzK
B99DlA++hygP1CHIQwzh7y40hMOAGbQfWwuITpqnwBi0H1uLPVizdtI8BRpE
0H7s4cDaSfMUuA7azy2DDTDYH08KbICg/djD2qileUodtTRPgRcefI97G8ew
w3Wc2ziGncAgDDuB4fpLCsP1kzQK9JM0ShWT+uNJgX6SRoF+kkaBfpJGQcs8
yoz+eFKqPplGqfpkGsWGeZSZ73FTZtdxUuYzdoou+QPsAhMU
       "], {{0, 0}, {101, 
       51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["126", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1ltENwyAMRKGbdIZu0hEi5bv7/zVSFAWION/ZBglZ1Lk8DHKu7+333V6l
lM8x92PWes7ZMPKkvFb0ULHypBw/ZOZJeTUGfgkrvw52Nk0KJb+As0jUQsiv
xSwStRDy8fzJ+xDl4/mT9yHKR7BQhyAff5QYtFzsD6dc7A+nXOwPp1zsD6fc
eR+i3HkfojxQhyAPMYTPXWgImwEzaD9tLSAaaZ4CY9B+2lrajQ1rI81ToEEE
7afdHFgbaZ4C10H7uWWwAZz98aTABgjaT7vZNmppntJHLc1T4IEH7+N+jWHY
4TrO1xiGncAgDDuBYfpLCsP0kzQK9JM0SheT+uNJgX6SRoF+kkaBfpJGQcs8
yor+eFK6PllG6fpkGaUN6ygr7+OmrK7jpPj+w2nDIfkDm7sF8A==
       "], {{0, 0}, {101,
        51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["129", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1VkGSgzAMs/cn+4b+ZJ/QmT3v/29bii3LaUJCIBnaoRCkyIpMv59/P88v
EXm8Pr+yDdXX8f7aznW78j63O2KT1E736fsNtSG45SjbJbtsmNt1/6WKxyVw
xKYAymHtICqfTAtMWnwC5qkSikiwAFYhnjALoWlxAjQ1IEkowSKQRuJDNErB
Bej4Yh5gWC2iCrAMdcoLJJa2L+IFQe1ImvoMdf1RilyAji8ovxB9PKmBiYXC
0pKl7YsEBmqB6gU8rPDKSzlG8sL0fhA8LTRu1LUc5YXpvXoE7ztEnKnK0slL
1Iurx7aLEG2LpZOXuBzVI3hEpqWj64twvZQ1Ixte57aOri/0JVmzb8DYbAcc
/bzkroVYRgyr+WhpaeUFzQMWm7Lowh0drKWRFzQPDbHQIV7pEZaDvIg3Dz9B
W8TzAxy9vIgUJ4q+fJiPlpaaL0pFgkmubciPUkvFF2KmrRQbbpjjyBdmpvjF
hjvHUvclMccOq78/RrWUviRmiR02lo+WltKXAI0dBn0zLBVfqJvEVtvnT3C0
fKFugiqeyUdLC/uiTInX16wO1sK+UDdBe5/XwVrYFyQmkn5BB2vhlhst32Vc
46j5Ei3fyC/qYC3cTRj8ug5ACvuSwe/g+PTF83ju/THAknzxnFzLR4Ul+QJd
t+kwFvbFK3ejDmNhX9yZWzlKX2bfHwMsCf1+HcaS0FdwJF8W+EEs7ssiHcaC
Nr9ucJtfyrLQD2JZrGNnWc8x9z/x7Jh45B9IDwfd
       "], {{0, 0}, {101, 51}}, {0, 
       1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["135", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1llFuwzAMQ8ndZGfYTXaEAvve/f/WJRIl181HbClAmrhB9UyZMfv5+P1+
fAD4ep4/z5MEcVxpo+PmuIUe2MP4vHmMRTlUPw7QB4jxfUouOlT/L2iTMI1c
U/JSlF7qFBXK6K1cg/iMvVlWiq5SSsfxgpZTkM8YWiNGe/gyXtACqFnyAKAW
evHFhXctjGYxTTg5QON1CtSs5AEODli3cGgxGHzhnQW9jesWDi3HBeYBht/s
6y0LhxYtr5ZG38dEtiBqhyYcfouXZa9diHZIgBsivSxbC+8lbB2YWMgLsa0k
2iEBKQoKLCzKdb4UWFiUq3wpsbAoomULT7vyLuUqX0osLMpVvpRYWJSrfCmx
sCiY86XOwqK8yZc6C4sy5UulhUWZ8qXSwqKcF3i+GLpSyZt8MXQpZM4XQ5dC
5nyptbAoyPmSd+VSyrjnF1tYlMgXB5ZDhnxhvYVFEY0NFhYl9q4GC4vi+dJi
YVGovaVLSc6XFguLEoA2SMqXPiU5XxohypdOJZEvrZD6PxIXlFYLi4JOC4vS
3i60W1iU+xDePhZ+8gc1IQXE
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["137", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1ldENwyAMRE036QzdpCNE6nf3/2uqCqGQxnf2GSJkIXI8DFh3397P7WZm
j72/9m6ttW+/ajXz5v7Tiub9f6rmDXyocXoDHVMYfeddRSYXrDcQmVywfj5/
9j5i+vn82fuI6WduJA9e/y+3GIXRR+sjp4/WR04frY+cPlofOX32PmL67H3E
9EoevF5jsHrkD6r/jL0onaX4/qD6z8hFiSzF9wfVf8aePH9Q/WfsTRmzFG3M
Uvz3r/rP2Jv3/lX/6av471/1n77KMUbnWYp/3qr/9FX8far+01fBXqo3xksr
KBX+gSkV/oEpFf6BKX6solT4B6ZU+AemVPgHpvjjKsqK+jhTVtTHmbKiPs6U
Y1xFWXkfg7I6jx9lPSOVxwfoHBS3
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["146", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z80Jw0AMROHZdOIa0klKMOSc/m9eJocQ/Cutngd0FI9vmj+v+SHp2e/d
T601/HrlhuMt3/EO2vIb7yAt/+MdlGU93kFYtsc7qi374x2VluPxjirL+XhH
heXaeMeo5fp4x4glNt6RtcTHOzKW3HhH1JIf74hYxsY7XMEd0h0OV3CHKydX
VMEdrhxcYQV3uLJzxRXc4crGARXc4Ypohyu4wxXRDldwhyuiHa7gDlcSL+El
XhYxIQe5
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["147", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9VVtygzAMlHqTnqE36REy0+/e/68JaB8mZALYLp1MnWD2oZXM5+33+/YR
EV/3z8/9k5nx+Lf+Ld/wWX+ua9m67Mat+hU3sABmFtz6qDY+1txfKMtPQUrS
BzZDQVDKSlHYLklSjZWyUpTkqDuFlFRIofJBSSFFkmf1K4wQR6OhniugSOBu
JFGIy7P68V7qCml4nUcjiUJqiSjcMfYwKMvvZR7mxYSgPsmnbZelVKu3eZgX
uWd9cEN97BVis73Nw3MJ22BUVh9BIYZjeXguSBu4kK/6COrYfOx4geom+rY+
gjo2HzteNBwtldVHVs7l4bkw32iorD7ZuDueh+dCTWo46lN4Z+ZjL5eAJvaw
2oFzfmo+drwkVFrDsR3M7YU8zAsWOKc0/La4lod5wYLKvXBBV1fyMC/VSlLu
hcPiWh7mJalbDaezqysP84Lae8MRry8P84JBgeoGry8P84JBSfWZ8PryMC8s
NbrK8fryMC+BUV9RWry+PMxLIeIwIemAPMwL2kwnmE1iXx7mBTGnw+aQPMyL
jv2n86U3D/PCyX8+X3rzMC8psO350puHeTGw7fkywkd5acj425A8yLIhG5sH
WRiDv0ZG5UEWxsDmHZgHWZLaJ+RBllCNxudBFqvR+DzIYjXS99GX12iOjwi+
XyblQRYbl1kcfL9M9LGgT82DLDHbx8Iy3cfCMt3HwvIPHHy/nHvm9HXhkT9M
RQfd
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["149", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1VUsWgyAMDL1Jz9Cb9Ai+13Xvv6tWI5oPCSRQLYZBJ0TGeS7f9/IAgNd6
ftYTyvarjca09eJ7vPHcZkHrGf34HtN72s/ox+Hguh9sIIgjF9z+QRiL4LVu
WMtrr1334rVucLmWxiI4rqXW8tpn4cjLayrpZxTHXHhNM3HMRe6zcMylHDsC
hHrGceTGHSF/n6I45gKF7+88HHOR9ncejrlI+zsPx1xa9YzjmEuun2i5zMUx
l/ZhGYqvWY5hzXCyNLzCwvyt5RUW1sFi+IY1z7uWtm9Y87xrafuGNc/JQno6
bs1zsii60OKxpulCiwdZFF1o8ehafDqJcOi60OJBFqdOgixOnQRZOuNBFiKM
Mf8wWYg2xvzDZCHaoGNJLIV/o+L6YCzEN3L0wViEd5LNwX0j932cLEqfzJLi
HyZLin+YLCn+YbKUGfpgLFP0wVimvo+TZfo6/iz9t/wAriwTHQ==
       "], {{0, 0}, {101,
        51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["150", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9l1EKw0AIRNfepGfoTXqEQL57/7+GJUijTUbr2CyyLBJfogzD3pfXc7mN
MR5brFvItj6f7Dn2iNTOQUrxHKSYJ5sPUszK5oMUOUY2H6SYyOaDlL3XZz1H
+SBl/8KznqN8kCLHPZsPUsyezQcpQAc1nWgVoIOaTrQK0EFNJ1plXPe8phOt
Anpen8msAr60PpNZBRRh/AnuOQXi/IPjJ44CFoki10GigCBRjH9w/MRRjH9w
/MRR5HonUcBOohhdcHWiVY0uuDrRqkYXXJ1o1XGcAVcnWtXMgD+TWZVyP4EU
yv0EUsCZRGnxE0dp8RNHafETRzHRRGnxE0dp8RNHafETRzF7E6VVJ0pp1YlS
WnWilNE9k0lpn8mk/OFPfpsJuid8uTnkX3kDuKYETQ==
       "], {{0, 0}, {101, 51}}, {
       0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["153", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1ldENwyAMRE036QzdpCNE6nf3/2uqCqGQxnf2GSJkIXI8DFh3397P7WZm
j72/9m6ttW+/ajXz5v7Tiub9f6rmDXyocXoDHVMYfeddRSYXrDcQmVywfj5/
9j5i+vn82fuI6WduJA9e/y+3GIXRR+sjp4/WR04frY+cPlofOX32PmL67H3E
9EoevF5jsHrkD6r/jL0onaX4/qD6z8hFiSzF9wfVf8aePH9Q/WfsTRmzFG3M
Uvz3r/rP2Jv3/lX/6av471/1n77KMUbnWYp/3qr/9FX8far+01fBXqo3xksr
KBX+gSkV/oEpFf6BKX6solT4B6ZU+AemVPgHpvjjKsqK+jhTVtTHmbKiPs6U
Y1xFWXkfg7I6jx9lPSOVxwfoHBS3
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["154", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1ltENwyAMRKGbdIZu0hEi5bv7/zVSFAWION/ZBglZ1Lk8DHKu7+333V6l
lM8x92PWes7ZMPKkvFb0ULHypBw/ZOZJeTUGfgkrvw52Nk0KJb+As0jUQsiv
xSwStRDy8fzJ+xDl4/mT9yHKR7BQhyAff5QYtFzsD6dc7A+nXOwPp1zsD6fc
eR+i3HkfojxQhyAPMYTPXWgImwEzaD9tLSAaaZ4CY9B+2lrajQ1rI81ToEEE
7afdHFgbaZ4C10H7uWWwAZz98aTABgjaT7vZNmppntJHLc1T4IEH7+N+jWHY
4TrO1xiGncAgDDuBYfpLCsP0kzQK9JM0SheT+uNJgX6SRoF+kkaBfpJGQcs8
yor+eFK6PllG6fpkGaUN6ygr7+OmrK7jpPj+w2nDIfkDm7sF8A==
       "], {{0, 0}, {101,
        51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["161", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1llEOAiEMRMGbeAZv4hE28dv7/7mJErKs25l2WgxpCDs8CjTjfXs/t1tr
7bH31977r1+1nPluftOS5u1vsuY7+KHG6TvomMLoB+8qMrlgfQeRyQXr1/Nn
78OnX8+fvQ+ffuV68uD1/3LzURi9tz5iem99xPTe+ojpvfUR00fvw6eP3odP
r+TB6zUGq0f+oPrP3IvSWYrtD6r/zFyUyFJsf1D9Z+7J8gfVf+belDFL0cYs
xX7/qv/MvVnvX/WfsYr9/lX/Gasco3eepdjnrfrPWMXep+o/YxXspXpjvDSD
kuEfmJLhH5iS4R+YYscsSoZ/YEqGf2BKhn9gij3OolTUx5lSUR9nSkV9nCnH
WEWpvI9Jqc7jSwn8h3O3gOQDn6EETQ==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["165", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1llEOAiEMRMGbeAZv4hE22W/v/+caQ8iy2pl2WjakITg8CjTjfXs9t1tr
7XH0vX1aPz6r5czbv8ma7+BDjdN30DGF0Q/ev8jkgvUdRCYXrF/Pn70Pn349
f/Y+fPqV68mD1//KzUdh9N76iOm99RHTe+sjpvfWR0wfvQ+fPnofPr2SB6/X
GKwe+YPqP3MvSmcptj+o/jNzUSJLsf1B9Z+5J8sfVP+Ze1PGLEUbsxT7/av+
M/dmvX/Vf8Yq9vtX/Wesco7eeZZin7fqP2MVe5+q/4xVsJfqjfHSDEqGf2BK
hn9gSoZ/YIodsygZ/oEpGf6BKRn+gSn2OItSUR9XSkV9XCkV9XGlnGMVpfI+
JqU6jy+lnhH6n+huAckbo1AERg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["167", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1lVEKAyEMRNfepGfoTXqEhX73/n8Vishqm5lkEhcJ4o7PqGHu5/t53o7j
ePT+6r31z2o58/Y/WfMNfKhx+gY6pjD6wfsXmVywvoHI5IL16/mz9+HTr+fP
3odPv3I9efD6X7n5KIzeWx8xvbc+YnpvfcT03vqI6aP34dNH78OnV/Lg9RqD
1SN/UP1n7kXpLMX2B9V/Zi5KZCm2P6j+M/dk+YPqP3NvypilaGOWYr9/1X/m
3qz3r/rPWMV+/6r/jFWu0TvPUuzzVv1nrGLvU/WfsQr2Ur0xXppByfAPTMnw
D0zJ8A9MsWMWJcM/MCXDPzAlwz8wxR5nUSrqY6dU1MdOqaiPnXKNVZTK+5iU
6jy+lHpGLI/mbgHJB6aSBEY=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["181", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9kcsJgDAQBaOdWIOdWILg2f5vfhDxE5O8zY4L77gMw3TjPIxtCKFfN61r
5AvN9ibNANEpFgjusUNoD7mJiaE2sUJwD7GJGcJ7SE1qILiH0KQKwnsUN6mF
4B6FTaohvEdREw8I7lHQxAXCe2SbeEFwj0wTNwjvkWziCcE9Ek1cIbzHZxNv
CO7x0cQdwntEmxAQ3CPSBIHwHq8mFAT3eDTBILzHrQkJwT0uTVAI73E2oSG4
x9EEh/Aee5MfIPrLAqXHEms=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["188", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1l0Fuw0AIRT+9Sc/Qm/QIkbLu/XdtxwN8zMoMREoUEodn+DCQz9fP9+sD
wNff843CQ0ToVd9tY39Dl0D0i0eQ/1+LvpodWHKDliIRv1+zmXWHFiCaEgn2
JlmctwAfQsxxtDdpR3hdUNLjunPVItpwhfanRT0ArxaxdGje9qeaMBT1UDf7
xjX1FJKXRFkPjUQoG6SwITRxVYaXLOltVU0lcRBH6HLT26vaS+KEwYKG5oOq
7ek8gFAzW8/BMiWUzpNIzIE3umVKOJ0HEHcQz2MtORzqsTx7GwrZ8JI7jiOc
um6fzo8MMTHc1jdo0GM5ASgvTfMjQViMrvmRICEvTfMjQUJemuZHgoS8NM2P
BImLQ8/8yJCwOPTMjwRBXBxa5keCxPMELfMjQcJ5YthWRizhrvmRIPE86Zkf
CSLhPOntD4fQ4oDm/jAIaHFAc38YhBcHDOixnPLigAE9Lqe8OIzEwYvDQH8Y
xOp3SI8L4ifKFIP+zo3F4c7H9AA5H4zDnU8y+O/cIGSyPxwyrMeCYFiPBZnW
Y0Hm46jpIY8fhZ/8AtG+BcQ=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["193", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1l9EJwzAMROVu0hm6SUcI9Lv7/zWYIIjU+KToFGOMEbmXSD6En9v3vT1E
5LXPj9x5xj4q+xhk1PYxSHEfg5gnG49BzMjGY5Bxntl4DGJmNh6DHHm+yjeK
xyDH913lG8VjkHFes/EYxKzZeAwCzn/JHyoCzn/JHyoCzn/JHyoi63yX/KEi
IN/lekwR8J3lekwRoEH4D5xvBsP1C0r/cBAwOJCxnhwImByI6ReU/uEgpl9Q
+oeDjPXKgYCVAzF+oPpDRY0fqP5QUeMHqj9UVM75p/pDRU3+6fWYooz7B4Qw
7h8QAvYcSEf/cJCO/uEgHf3DQczsgXT0Dwfp6B8O0tE/HMSsPZBOfyik0x8K
6fSHQqS5HhPSXY8J6f+PW/VAF4E/V4P8Kz+GnARN
       "], {{0, 0}, {101, 51}}, {0, 
       1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["195", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1ldENwyAMRE036QzdpCNE6nf3/2uqCqGQxnf2GSJkIXI8DFh3397P7WZm
j72/9m6ttW+/ajXz5v7Tiub9f6rmDXyocXoDHVMYfeddRSYXrDcQmVywfj5/
9j5i+vn82fuI6WduJA9e/y+3GIXRR+sjp4/WR04frY+cPlofOX32PmL67H3E
9EoevF5jsHrkD6r/jL0onaX4/qD6z8hFiSzF9wfVf8aePH9Q/WfsTRmzFG3M
Uvz3r/rP2Jv3/lX/6av471/1n77KMUbnWYp/3qr/9FX8far+01fBXqo3xksr
KBX+gSkV/oEpFf6BKX6solT4B6ZU+AemVPgHpvjjKsqK+jhTVtTHmbKiPs6U
Y1xFWXkfg7I6jx9lPSOVxwfoHBS3
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["210", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1ldENwyAMRE036QzdpCNE6nf3/2uqCqGQxnf2GSJkIXI8DFh3397P7WZm
j72/9m6ttW+/ajXz5v7Tiub9f6rmDXyocXoDHVMYfeddRSYXrDcQmVywfj5/
9j5i+vn82fuI6WduJA9e/y+3GIXRR+sjp4/WR04frY+cPlofOX32PmL67H3E
9EoevF5jsHrkD6r/jL0onaX4/qD6z8hFiSzF9wfVf8aePH9Q/WfsTRmzFG3M
Uvz3r/rP2Jv3/lX/6av471/1n77KMUbnWYp/3qr/9FX8far+01fBXqo3xksr
KBX+gSkV/oEpFf6BKX6solT4B6ZU+AemVPgHpvjjKsqK+jhTVtTHmbKiPs6U
Y1xFWXkfg7I6jx9lPSOVxwfoHBS3
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["218", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy90cEJgEAMBdFdO7EGO7EEwbP935SpwJ9lEsj58Zn9es5rG2Mc39/fjxn/
zC93CsjMt5SUzKgh6ZYa0tAk31JW9CbhljrS0CTbsqToTYIta0hDk/9blhW9
yc8t60hDExS9CYreBEVvgqI3QdGboOhNUPQmKHoTFL0Jit4ERW+CojdB0Zug
6E1Q9CYoehMUvQmK3gRFb4KiN0HRm6DoTVD0Jih6ExS9CYreBEVvgqI3QdGb
oHQg02+C0oFUlrwjERJr
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["230", TraditionalForm]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJy1lVFSwzAMRCVuwhm4CUdghm/u/0eLrd2VsWM3iUPJtImj9dNKyvvXz+fX
m5l9PP6/7Xm4Pz7PU/3+OD//vP76u1dXxMVyo1zFfSsRLBaXBYxZbnpdEI8b
49TdaKi4+vcLUjVK2WeNkjaHBVgXcTxwPQHWy+YiFYtlg7I5wwKsi1wiB1ge
YQ3wErMBTZsb+IIoVHGgCTyhkQpNAFm6voSd4gDRAE9opCInYOKLR0KQO0FD
4VnwMxU5ARNfkH4XeT5pjImNwtJWZdovJvLMHsPDisi8t8dKv6h8fCS8bJQ3
+ixH/aLykT0JHxXiodRVmfQL86XZU9vdRXakMukXXmb2JDxaZsQx9cU1X6bM
6I3I85hj6oucPDNHAbLYDjTm/ZKnFtqSbdjtjxHLqF8wPGBxJeMUnnAoy6Bf
MDyMsODwyPSKykG/eAyP+IKxiOcXNGb94t58Mczlw/4YsfR8MUkSTAq2JT9a
lo4voiylxIJb1jjyRZWl/Vhwr6n0fUnKrLD++2OVpfUlKTsrbK0/RiytLwzK
CgPfGZWOLzJNWGpl/QmNkS8yTZDFV/pjxKK+mEri9XWWQ1nUF5kmGO/nOZRF
fUHHsNMvcCiLjlyO/MC4ptHzhSO/il/kUBadJhr8OgdCuvqSg9+h8d+X6MfX
3h8LKsmX6JNr/dFRSb6A6zaOqqK+ROZu5Kgq6ks4c6tG68vZ98eCSop+P0dV
SdF3aCRfNvghKuHLJo6qgjG/79Axv1Vlox+ispmjqOzXOMXxC/ECEP0=
       "], {{0, 0}, {
       101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["30", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1lUFWwzAMRCVuwhm4CUfoe6y5/46SWDNjJ3bkuC0E2sZW/CV9+/Px+/34
MLOv5/XzvLz3sv3m9m//s/1sv9uNMsLi7f5hD2iYXm51Xi6xy8TyBNueYtVD
9+FYm8VnDXCOUu4bJsay9yfJQ8twQ/Dy2TGmjxKRETXW5nEr3hqBS4ZiLT6q
CcpRMsVqRAUM8Vy+dXekyKoJ/aqUBceScIMVdhnu0QsBoavoVyUyJa2DKEKJ
b4OXdRuTkNmjbaseICVJ0Qim0UckHVdQKVIGaTSC12kakfRcMYRDI58JythD
kp4rqrSBVAStizUmOXdFlGbGRFBpyRTJqSuiNL0UQSl7juToiirNNFJQafw0
ycEVNr+mUfvIZUiO5OiKmIFGpg8xvglyjVK7QjPQ385v3M+CXpEcXYEX3HYP
e/0sSeOKbN6SUCbW23qkSBpXsH+YroKhTiNekzSuWF1r43aOstwgqVzBuVXF
YNHP4yVI1JXYG5sQ2mn3SCpXeByxlbXTbpNUrnATw4Xoo/kZlPiHR+HCiH6s
FEnlikt5pK979UiT1K5IefRcHE3PonBDpP31ubhKoq6wPM25uEwSrlTlac/F
VRKeE86ctefiMgn3ROTseC6uktCD6KnDufgCEtdqx261fZ/LQhqFe6U7c5aY
OoOCR5SZV37MkzBX8fbSjxskdAUlSW99UygxAx6+nESdmJo8QyKujM+PJRJx
JeXHLRJ1ZaovZ1FUx/eQqCvvI1FX3kairryPJHV+rJJM+XGbZLYe/68/rp0M
TA==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["45", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8sNg0AQBNFtZ0IMZEIISD6T/w3oC7LMb3antqU5jkpvmJdp/pRSxu2+
2xVJ/O0d+no49vEOdXHQlmO8g7T8jndQlv/xDsJyPt6Rbbke78i03I93ZFme
xzsyLO/GO1ot78c7Wiyx8Y5aS3y8o8ZSN94RtdSPd0QsbeMdruAOqYfDFdzh
ysMlVXCHKzeXWMEdrlxccgV3uHJyQAV3uCLa4QrucEW0wxXc4Ypohyu4w5X4
ywpRsBEy
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["54", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy10EsOwyAMhGHSm/QMvUmPEKnr3n9XVEVRHth47BkCy2C+/7l+3+ujtfbq
59PPYq1m7v4Z27zLWs4Yc4p9V4ICQtzxaK6EBM6VkcC5UhIwV04C5kpKoFxZ
CZQrLQFy5SVAroIknKsiCecqSYK5apJgrqIklKsqCeUqSwK56pJALoJkmosh
meaiSCa5OJJJLpLEzcWSuLloEicXT+LkIkrMXEyJmYsqMXJxJUYusmSYiy0Z
5qJLBrn4kkEugeSWSyG55ZJILrk0kksukeSUSyU55ZJJDrl0kkMuoWTPpZTs
uaSSLZdWsuUSS/651JKW+AV/VQKy/AA0DAyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["57", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy10csNgzAQhGFvOqGGdJISkHJO/zdiOYoE+LEzO4sMsg/Wp+Xf9s9rf5RS
nt/3Xepj8Kofs3bXsTeCgIC6bwd0gdOYMQr6uygF62GcAvbgFLQHpcA9GAXv
QShED1xhesAK1QNVuB6gQvbAFLYHpNA9EIXvASiBHn4l0sOthHp4lVgPpxLs
4VOiPVxKuIdHifdwKIIea0XRY6lIeqwUTY+FIuoxV1Q9poqsx0zR9Zgowh5j
RdljqEh7jBRtj4Ei7tFX1D26irxHT9H36CgJPe5KRo+bktLjquT0uChJPc5K
5hx/JXWOn5I8R1PyDWqOA5x8D+k=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["62", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1llFywzAIRKE36Rl6kx6hM/3u/f+auiws2JaEE7tJPJUsxANW+P3r5/Pr
TUQ+Ht/vx1fPLnn8bZ/tke1XMGGf/ztNbM8Jrd7+lcGltotKeVphXGLWJrA5
fFDYGaBgIZ42JvFNMWszIPOb/QxR3LaHwDHITxvX2Bw3zV6cZoXjEb6mncEa
udIYgavDrIQnQr7mnc2M50p9xOwPSCIdBhWx4p2toCKMQiOerUlWkFEhM5EJ
THORxwjZGWdloBUMiKQwxgjsTFAGWkHAI1eC4lAK3YxkohUvhyRPcb/CzAxl
pBUIjfOv5NcayUArHk2WJ86QYnhCcqyVMMV15SmUandCcqKVQKS6whahj1WS
Q60EYqorktDexjwrrJU4jriuIqK6Nzol2WmFQ5UG4vmjaCxkhbXiofLKTWk4
MDkn2WklsusK9SrUXT7WSPZawZGCXVF1Uep9kqIVnOF0IiIVZ/YWSIpWoqVw
Y3EBXSUpWomWknw/0EeHpGpFPRHhe+ofl0iqVsxzHIpUaE+QFK2Y59QCS/+4
RpK1Qn3ED+bTfKyTFK14RqhPDVcvo0S0AoJO+VkcFlE8MJwR3+kVJEkrpSkO
89EhSVrJTXGhvTZQUpNFXY300SZJWonthvrokyStSDmDX0XCWvE2tXiMt1Co
15qHyzFooAjV11wfV0hIK4K3oZeTuFZcJKvrmihFJDeQ7EVyBwmLpLmqh2L7
tFa1UdKL7y0k9cX3HhJZ6R/Pkiz1j6dJOvq4TNLNx9/1C/olDHE=
       "], {{0, 0}, {101,
        51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["75", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9VVtygzAMlHqTnqE36REy0+/e/68JaB8mZALYrlsyBhvtrlYyn7ff79tH
RHzdr5/7FZl1Pf7yMYu6cl1aBzfUC9i8/OLhsqfuEG59VRuXG6HW4xrJ3Viq
p1gglRWidodREtUQvSg+gU2knCCZYpCkEiUlbfuGqqGSVghSGUzjwGkEiUoH
KaUYiZ7lL5Hz1DAOr/1oKJGI07P8cS00Uhxe+9FQIpGawgpXjD00yvx76Ydp
MSLIT/Bt22Uuod7f+WFapJ75wYLq2DP0vj+2gxotrhbwr1Cw4Zgf7gvcRlzQ
V34U6lh/7GgB68b6Nj8Kdaw/drSoOVooy4+knPPDfaG/2UBZfqJRd9wP94Wc
VHDkJ/PO9MeeLwlOrGGVA/v8VH/saAmwtIJjOZjaC36YFkxwTqn5bXLND9OC
CZl74pKqrvhhWqqUxNwTh8k1P0xLkLcKTmdXlx+mBbn3gmO8Pj9MCxoFrJt4
fX6YFjRKqM4Ur88P08JUo6o8Xp8fpiXR6muUNl6fH6alIuIwIegAP0wLykwn
mHVinx+mBTaHh40hfpgWHftP50uvH6aFnf98vvT6YVpCwbbnS68fpsWCbc+X
ETpKSwPGZ0P8IMoGbKwfRKEN/hkZ5QdRaAOLd6AfRAlyn+AHUVI5Gu8HUSxH
4/0giuVI96OH52iOjkx+Xyb5QRRrl1kY/L5M1LFEn+oHUXK2jgVluo4FZbqO
BeUfMPh9OTP+APb+EP0=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["86", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1V1FWwzAMs7kJZ+AmHGHv8c39/1hJJCttl0Z9bwXaLVkcybKc8fn4/X58
RMTX8+8ntiufP9st/2/Z3mZ73Ue2oWgfC5kIzMrq02ubjnZroRApghAQD/sM
2DqgHuL8AtgEKCIHComHX05wNmZE8KlGt7/ukfim4jFjIdgCaZswwUYCjSqJ
Crx1nkM2p4r0/ftzEJojY7ziidRi4oKJVBSFkpExntSYZnNGpGqlC4hNU0ZK
qhQIgfq4UoQ1VBU1piW4412PDAiwAqJKje3VsTyiTJIrIKrUGGW74ZFdLrEC
okqNDYp7HhmZ1ApkTWpsUNzyyAEDVlCgqjH1ouWRPRPqXgJJH5OiS8MjJ9ks
MxxqLGUg1j1yZJJiBjohagcOJBO6QOSIopoAAoSKUjohoddETlBUE6ATsrYs
IIseeZFPHCSoJHavimh45JwJGhUzUt2rIq575CWOJAk6gX1Mgawpcs5E7MBw
KXfLI5OMSstFluTueOQ1E7FDMkt1mDgemSIZUlPniu2RGZMqqahGTFyGR6ZM
ouQFjZTDZNkjcyZZ8vKwlNJdV+QCS9YJJk/PI1dMGDdGOpZHLpkwfox0HI9c
M2F8Pf89jyyhqT7M89/yyAoT7cO7g3mZyNJpEFpjrkfWmGgfphQWkeUu2h7h
e2SVifZh2yPLTPC9CHTW1zlMcmcVj4jjWrWKRcQp9lSrvIeJiOIScYukUTKJ
2FVie8RlUmZ8J5Oo/1/eyARfJN/L5BYRH9UNIvkH9OUMcQ==
       "], {{0, 0}, {101, 
       51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["89", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy10MsNAyEMhGE2naSGdJISVso5/d+CFK32hY09nuFxQgK+/7l+3+ujtfbq
+9P3Yo1+NF59msu8yxrmM/Yr5lUAJQtxJPlcgCSfC5Fkc0GSbC5MkssFSnK5
UEkmFyzJ5MIl8VwFSTxXRRLNVZJEc9UksVxFSSxXVRLJVZZEctUl81wEyTwX
QzLLRZHMcnEkfi6SxM/Fkni5aBIvF09i5yJK7FxMiZWLKrFycSXjXGTJOBdb
MspFl4xy8SX3XALJPZdCcs0lkVxzaSTnXCLJOZdKcswlkxxz6SR7LqFkz6WU
bLmkki2XVoJA0p/651JLAEj+VwBk+QEj8gyC
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["99", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJytVltyw0AIg96kZ+hNeoTO9Lv3/2sSgyRcP2CnyThx7PUiCQR5//r5/Hoz
s4/H8W3by83dcfI4fX7zlslNi9/b+3X1+eH5dfzaFr+ezpN4iLfqqrgUgCRa
4Dp4xWLbNkGw/F02jatJLtgK0lMmsThAGlcbJQgSeTXJBVuBc8ok0CegiAyJ
M7J5eQDpSw0viAj6ZA6ELAvWg0nQ2Do1PCei0kBpzSvQAgMCZkwXjS+YQO9M
NJESbcl2lrNT6VsmgJqJJlKiRQWPPCJMAHVnPFe0qOCJRyoCGlqNhwrN0FOP
FCZqaDUeZJEanHhkryUNrcYraGF4Ur/NiFcIWYzVeKZoYXhSvyWyw2BUDBBc
yUk3a3rkDxNDd1G7iyyA1ffIkZopTnoEjRJXoGzPIwdMoDBcop3Hpdt0PXKM
Ytfp2Si9dhsEuiVyhIIV5a57BG50m55HzvRkRZnpHpxYA4+cMNF26GUPTqy+
R85xlOTvlZSjlZETJlaTL+/skn2PXClaY/GQntLNyCkTGU0mSWBZtz1yjQRG
4FjGvnmrR+QKic5GTcTMI9dM6mzE6vzsZ+SSSZ2NmoiJR+6x6GzURAw8csuk
zkZmHHPnX5jU2Vjmf+PZLpM6G11roE+kMwxSqdIVBxlpMDEqhRgTj/SYiFKI
0X2yz0SUIpUJkW7zQVLGHmkzEUfa1CN9JuW/xTQjbSblv8UwI6Nid1/xyIgJ
rTjNyLRIFjwyZLLmkTmmBY+Mmax4ZM5kwSMLTFYysoDKFx75BawdDEw=
       "], {{0, 0}, {
       101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["101", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJytl1sSgjAMRVN34hrciUtgxm/3/ycwQtu8m6QKmN4O9FyaiX1u3/f2AIDX
fnz2A9rx6Q3HuK3qZ3x0wNhwjNuqfj6IzEubZ0SH86nXo64v6UjqJ83fxX4G
pi+jt8G3NnmK+5L6FSJPcV9Cv9dA93K8Qone1wD1lMufkE7WN75W6ONc+GuB
Ps0F7tcFjeZ1XJ/nci88Ms+UTny9Dq5FderruObpXEM64yvnd07nfJXmGdZZ
X7UW0XlftRbQBV+1ryHzdKyv2tka4SHRa4WlCfcTfAXlt6Z5SWh9wP3WOA9J
X+/W/zJpnIfErhvWOA/J7DXXb43zkND6YMXanTQWPi+kOEIi54UUR0jkvJDi
CImcF1IcIfHnSYbEnycZEn+eZEjs/YvnDh6WOTfM+hEgsfcfFSQ0N3BfBYm9
P6kgoXXDlR+LJPb+pIKEfyfVJPb+pIJkoX4kSPz1I0Pirh8pEm/9yJEs5keQ
ZC0/oiTL7+NoP2MXDa4=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["105", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1kUkOwjAQBG1+whv4CU+IlDP/v2FhgWXiZXqmu5TtkpTSdT9ez+OWUnqU
8yxnyrleyy0n47PjsH/89wwe5SXsL1wO/VwVvAvuyGgXlwPu4nLo5upBungd
WBevA+vidfDnGmPuEnAAXQIOa5eYgzfXGluXmMPUJewwdQk74nPZ2HVhOPZd
GI59F4bDPxfGsgvJselCcqy68Bz4XD7mXXiOaReqY9qF6rDPFWPUhe0Yd2E7
xl3Yjv1cHC5dBI5BF4Hjv4vGMZ+LS99F4+i6yBxdF5njOpeGbxelo3VROloX
paPNpeXTReyoXfQ4HG+rtg/p
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["118", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy10csNgzAQhOF1OqGGdEIJSDnT/y08IoiEHzuzsxY2vlifVv+0rPPyMrP3
tj/btlKIbz/2m/nunAIA5fgxCgIcBqMA0/wMQoF6sArWg1TAHpyC9qAUuAej
4D0IheiBK0wPWKF6oArXA1TIHpjC9oAUugei8D0AJdDDr0R6uJVQD68S6+FU
gj18SrSHSwn38CjxHg5F0GOsKHoMFUmPkaLpMVBEPfqKqkdXkfXoKboeHUXY
o60oezQVaY+Wou3RUMQ96oq6R1WR96gp+h4VJaHHU8no8VDS5vhX8ua4lcw5
LiXZOJVsw4yYo8CLePIF6rsJAg==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["131", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9kUsSgjAQBSfexDN4E49AlWvvvzNSCEYnyXzeo4sUbKCL19fleV8uInKr
51FPeZ9Sb6Vieg5c9o/vz37H+i9Okd+xKphzbVDn2iHO9YWnS9Th6xJ1+LpE
HZS5FMxdEg5Hl4TD2iXngM41wNYl5zB1STtMXdIOyFwGZl0QjnkXhGPeBeFI
zeVg2AXkmHQBOUZdcI7QXAH6XXCObheoo9sF6nDNlUDrgnboXdAOvQvaYZoL
wF8XgkPpQnD8duE4hnMBabtwHE0XmqPpQnOocxH4dGE6ji5Mx9GF6WjmIlKE
79i6kB0iZzgk5ChuAq+8AOInCQI=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["145", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8EJwzAQRFGNO0kN6SQlCHxO/7cEowFjbEcr7c/C6CY+71Hfr7qUUp7f
rWU74dte0fuDQ63COkRbpF2FdaAW6VBhHZhFx0MspxXWgVguK6wj3XJbYR2p
lp8V1pFm6aqwjhRLd4V1TFtCFdYxZQlXWMewZajCOoYswxXWEbZMVVhHyDJd
YR3dlpQK63CFdbjCOlxhHa6wDldYhyuswxXW4QrrcIV1uMI6XGEdrrAOV1iH
K3SjWfhK/MsHiggP1A==
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["158", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1VdsNwjAMdNmEGdiEEZD4Zv8/oPRh/LbjXBVZUZKeL1fX18fr/rgAwO0z
np8By/poWNrW9T3Qs75Yeey5DK5/Ye6x8wyt/wD248E5vwPOu5WGz2KME9u7
tBjRokQMlJMUI1rE+A9y/1E/tP3ED+ILzi3OwfcTP4gvOJcMhPMShNxyLGQu
I1kfnEWsD8WXrB9Yi1Afii8VHficoQP5UuNQ60PxpQrHD+JLncXVgXwZ0BLB
EEdIx6Zl4IkCyDefGXHo/cGLGRwuJmMOcn/w5lmg/PZc3XkevD948woAyFuc
eQ2kAiiK9SFosfpLsT4ELdL9U18GdGxapPunvgxxuP1l0A+kxfovD/qBtFho
0LGy2Gjh8PpLF4DUBLTUB2Np6R8uy/kt/cVe9PQPl6Wlf7gsLf3DZZlSH4xl
Sn0wlin1wVim1AdjmerHwTLVj4Nluo6VJX/kDVDKDYk=
       "], {{0, 0}, {101, 51}}, {
       0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["182", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8EJgDAUBNGsnViDnViC4Nn+b4ogiERNfnYysOfHjss2L0NKaTq2pjPh
44Vj6vBDHRTxitRBEa9IHRTxip7xPxAlY/iVfPwPt/Ie/8OpfMf/cCn/8T8c
Sln8j1alPP5Hi1IX/yOq1Mf/iCix+B+1Sjz+R43SFv+jVGmP/1GieOJ//Cm+
+B9fijf+x5vij/+RU5j4H0+Fi/9xV9j4H5fCFzB2vbwOqA==
       "], {{0, 0}, {101, 
       51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["190", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy9z8sJgDAQRdHETqzBTixBcG3/O+MDQcRPZjI3Fya78Djjss3LkFKayq3l
Uu5zGb7yZN5xxDsybjnjHazlGu/gLPd4B2N5infEW97iHbGWr3hHnOUv3hFj
qYl3tFtq4x1tFku8w2+xxjt8Fk+8w27xxjtslpZ4R72lNd5RZ4mId2gFd2gF
d2gFd2gFd2gFd2gFd2gFd2gFd2gFd2gFd2gFd2gFd2ilw0YPh1bsX3aO6g/U

       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["214", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJzdj7kNgDAQwBI2YQY2YQQkavbvCEWkKMp3yZ0LLLm2vF/PeW3OuSN4B53/
i94TDY80rF8iRMPyJYVoWL3kEA2LlxJEQ/ulBtHQfGlBNLReehANjZcRiMbq
yyhEY+VFAtGYfZFCNGZeZiAa0pdZiIbkZQWiMfqyCtEYedGAaPRetCAarRdN
iEbtRRuiUXqxgGjkL1YQjfTFEqIRX6whGt+LmBfARg6o
       "], {{0, 0}, {101, 51}}, {
       0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["246", TraditionalForm]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJy1V0FywzAIhP6kb+hP+oTO9Nz/35qOY7G7gCwljWccOxgBu4uI8/718/n1
ZmYft/P7dpqb/x3HXdz7/dtpO+7sPMQ+Ps3Q97zHQJTo+D6exyInX/YrEhx2
SyjGI0wXARJi8JMEd6aGKSVy53QRICEOyiq6jmujiwUVXCHRRX41XcS7JgIq
hGOqkShLeozkjS5IhS5Ca24O0GMgaXQJ0WURFMV+hR6BZNLGTJdpUeKX9dBl
dRszXako8iv0QCS1Lo7OwXyyVu2LoY3z5TYOZ94nZO31YCRtG2sZTYhGD3Eu
dSFn2SdobfVQJJUuqIPuE7ISGg1rOSclimRpn/CIbPTISLo2TkqgTRMojpSz
0KVWQp70elRICl1wcEgxOAAbPUokhS44OLCYZvo2ETMWSkSDw0tbr0eTN+kS
VZv0lLZvH6/GUkzj3FPavl24+iC6nMjxwjbRo0dStvEgEkfnpR6T3KoL/ZrT
6IQEs1g9Fmlj7Smw93pMkYguOL3G5FrRY46kamOmSNv3ESTy6uNCEbbvdZw5
Fm5jSr+kxyUS0oWnl7TvQpQ5lgiDsytKuMJxWYOJFoZyL+mxggR14dm1qMcS
Enolpdm1pscaEmnjQSE+eR4JYTjTLuuxisSB/dg1tqbHMhJkH657q9ewAFVs
+S8kJlSt67GDBAe87+ixhST/ddtcuY7FsX1fgUTftl6DJN5ZdpftHU+t2sGy
i2O7JtvW4xEkvo/D/RcCrA2Y
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["73", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJy1kUEOwjAMBGN+whv4CU9A4sz/b1AVlYTazk7apKpID14zO9fH6/64lFJu
n/dZvsfMyvLI9+Ux/c7Cv3eyYL0PLCILyrZiYl3rGptcV4s1q651EfcCfGwk
1Avx8SOBXoiPimRWXS0J8kJ8NCTEC/HRkhAvwMcfydl1+SSyF+JjRyJ7AT72
JKIX4sMhOauunETzAny4JIoX4sMnEbykNFGgw3KgLo2k64X4CEl6XiKaMC04
Y3VlYQHLQF2MJPXiL0ijEhZQV5qUHFZXLyhhAXWNkcRegI8uSeSF+OiTBF52
NEpIh0Wo6xiJ68WAD4nE81LTSAnCyetSAwSWpK5zSHZefgvkcZHFqUueFo9f
FxkWWbZF9feZJK0X4AOR1F4M+GAk9lcXHQQsze8MksoLHoMs0AcnGfAxQMJ9
jPwps4GRNz9yC3c=
       "], {{0, 0}, {101, 51}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["109", TraditionalForm]]}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{3.6768880321506147`*^9}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Using them to classify a different data set", "Subchapter",
 CellChangeTimes->{{3.676888499812381*^9, 3.6768885075964203`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c3", " ", "=", " ", 
  RowBox[{"UseClassifiers", "[", 
   RowBox[{"carange2", ",", "init2", ",", "t2", ",", "True", ",", "c1"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6768868928492537`*^9, 3.676886914473803*^9}, {
  3.6768871097799997`*^9, 3.676887133523718*^9}, {3.676887832184411*^9, 
  3.6768878350383043`*^9}, {3.6768882919020767`*^9, 3.676888301324869*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4", ",", "12"}], "}"}], ",", 
     RowBox[{"{", "8", "}"}], ",", 
     RowBox[{"{", "13", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "1", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "19", ",", "23", ",", "28", ",", "29"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "16", ",", "24"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "10", ",", "17", ",", "18", ",", "22"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "6", ",", "7", ",", "9", ",", "20", ",", "21", ",", "25", ",", "26", 
         ",", "27", ",", "30"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"11", ",", "14", ",", "15"}], "}"}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.676887151613628*^9, 3.676887731729231*^9, 3.676887778335389*^9, 
   3.676887858011175*^9, {3.676888288615501*^9, 3.676888311643134*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlotCluster", "[", 
  RowBox[{
   RowBox[{"c3", "[", 
    RowBox[{"[", "1", "]"}], "]"}], ",", "init2", ",", "t2"}], "]"}]], "Input",\

 CellChangeTimes->{{3.6768881007385683`*^9, 3.676888100937319*^9}, 
   3.6768883454141493`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5IGYEAygFZjEgUaOyo7LkyQIpBrAsAySRIcsyMAAA
NQcD4A==
       "], {{0, 0}, {30, 21}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["4", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5IGZkBCJGKAVmMcApqMyo7KgsybJACJFiACcyVFkG
AOcoA6Q=
       "], {{0, 0}, {30, 21}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["12", TraditionalForm]]}], "}"}], ",", 
   RowBox[{"{", 
    GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5IGYcBaOATMCAQqHKACEDWIoBksgYIMoYIEIAtF4E
QQ==
      "], {{0, 0}, {30, 21}}, {0, 1}],
     Frame->Automatic,
     FrameLabel->{None, None},
     FrameTicks->{{None, None}, {None, None}},
     GridLinesStyle->Directive[
       GrayLevel[0.5, 0.4]],
     Method->{
      "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
     PlotLabel->FormBox["8", TraditionalForm]], "}"}], ",", 
   RowBox[{"{", 
    GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5IGZghEAEgckblR2VxVQLxyAKJoukhAEiBU5jUE0w
vQwAZGgDQQ==
      "], {{0, 0}, {30, 21}}, {0, 1}],
     Frame->Automatic,
     FrameLabel->{None, None},
     FrameTicks->{{None, None}, {None, None}},
     GridLinesStyle->Directive[
       GrayLevel[0.5, 0.4]],
     Method->{
      "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
     PlotLabel->FormBox["13", TraditionalForm]], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.676888101990847*^9, 3.67688831547878*^9, 
  3.676888346025178*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PlotCluster", "[", 
  RowBox[{
   RowBox[{"c3", "[", 
    RowBox[{"[", "2", "]"}], "]"}], ",", "init2", ",", "t2"}], "]"}]], "Input",\

 CellChangeTimes->{{3.676888110186462*^9, 3.6768881199851637`*^9}, 
   3.676888337974505*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5BjTAyMgIIRkRAkgAwkWIjuod1YtTL5jNAFEN4TPC
KAYGAFkMA0A=
      "], {{0, 0}, {30, 21}}, {0, 1}],
     Frame->Automatic,
     FrameLabel->{None, None},
     FrameTicks->{{None, None}, {None, None}},
     GridLinesStyle->Directive[
       GrayLevel[0.5, 0.4]],
     Method->{
      "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
     PlotLabel->FormBox["1", TraditionalForm]], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5BihgBEIYDYRAABViZIRwYDREGK5oVO+oXlx6QWwQ
kwGiFEkvUAgAUb4DNg==
       "], {{0, 0}, {30, 21}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["5", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5BghgBAEoA8oFU3AmkhhCHZw5qncE62XEpRdKwsUY
IeogQgAwmAMZ
       "], {{0, 0}, {30, 21}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["19", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5BghgBAE4AwEgAnAlDKgAScuo3lG9QBqqD6KXEULC
9DIwQtRBhAA3uQMa
       "], {{0, 0}, {30, 21}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["23", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5IGZghEAIhcJjhPGwKWJAyI7qHaZ6GeHCEIyiF1k1
I1QYqgVuKkQhTJiREa4XADK/Axs=
       "], {{0, 0}, {30, 21}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["28", TraditionalForm]], ",", 
     GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5IGZghEBGCBPCZoQJQRgQGQgF0wLTN6p3VC8OvWAV
EEF0vQAzHgMY
       "], {{0, 0}, {30, 21}}, {0, 1}],
      Frame->Automatic,
      FrameLabel->{None, None},
      FrameTicks->{{None, None}, {None, None}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      Method->{
       "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
      PlotLabel->FormBox["29", TraditionalForm]]}], "}"}]}], "}"}]], "Output",\

 CellChangeTimes->{{3.676888111275661*^9, 3.67688812053913*^9}, 
   3.676888317687015*^9, 3.676888347702362*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"PlotCluster", "[", 
    RowBox[{
     RowBox[{"c3", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "#"}], "]"}], "]"}], ",", "init2", ",", "t2"}], 
    "]"}], "&"}], "/@", 
  RowBox[{"Range", "[", 
   RowBox[{"Length", "[", 
    RowBox[{"c3", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.676888126770513*^9, 3.6768881824303102`*^9}, 
   3.6768883424463673`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5IGZkZARhCAGhGeAsBE11aQa80oxDUJoBrzQjBdIY
oYoijRnog0GaAeZsBlgig8qAhQAz2wPg
         "], {{0, 0}, {30, 21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["2", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5IGZkBCJGGAmjGGHi5Esy4pVkGJSSjHglGYagJCNe
SQbaSTIwQtMWAziRgfiMMIqBAQAz+QPg
         "], {{0, 0}, {30, 21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["16", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5IGZkBCJGGMmIwqVIkhGvJDZVAy/JiFeSYYRJMuKV
BMc/jECVZIBASAphACcyqDKoFgYAM3wD3Q==
         "], {{0, 0}, {30, 21}}, {0, 1}],
        
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["24", TraditionalForm]]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       GraphicsBox[RasterBox[CompressedData["
1:eJyl0rENgDAMRNH77ECLxEqMkAXYvyNyAnS/SSTbJ0uvsXK2+2pbkr3X0Quo
nnp9jjjXFag25ojfWihKoxSlWaAojVKURilKs0BRmgWK0ihlXvqn73+o1QNs
3wNK
         "], {{0, 0}, {30, 21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["3", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5IGZkZARhRhiLAcqECtNMmgGvNOOglGagQJqRAmmM
UEWRxgx04qWxRRlCGmuMEinNgDAc6hKoFrAQAObsA6Q=
         "], {{0, 0}, {30, 
         21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["10", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJylzbsNgDAMRdF72YEWiZUYIQuwf8fHICGK19hyYsXOSdaxb2MC5nMt3KHW
XuVtVl5nPzesuIcZ28BEbAMTsQ1MxDYwERsxERsxERsx/5+fJ6t1AGz9A0o=

         "], {{0, 0}, {30, 21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["17", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJx1UEEOgCAM6/yDVxO/5BP4gP+/CZFtXVGSMQhdaXu2+2obgL3X0cvMqGqz
/jzauGBtfiQkbDIGcqKdxuFJAtMBExJj6ljxa6GmEeT3pIWmU4uYKj54gC7k
l1JRH5KA+IAkoD4o3C8f5Wn18VL8+ihw9hHakpSjDG2OqlG6KMx9KCAJU9QD
2dcDmA==
         "], {{0, 0}, {30, 21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["18", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJxtUdsRgDAIS93BX+9cyRG6gPv/aS0JUOTs42IIgZ79vvoGYH/XgRFtrBE8
W0DGRrC1cjOuZxYEKz8jObMg689amzHvhcsPP1qTPnukWxP6gO80IVOH1KwP
Kwr6BlE3ELVtiwY4K2myK0mGYTLdyaoh4USWREhXLz7ugLgMUg2pxnfQ0N0C
2COtZgsTegC/IQNx
         "], {{0, 0}, {30, 21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["22", TraditionalForm]]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5IGZgBAMGKEYwoFwomwHKhDOgXDy6GSjQjaQSm25G
WulmoEA3ks+w6WbEp5uBAt1ooYqum5FU3TAKQyEEIwUUI4pCCAtMgZUxQBRD
0xgDilcBz80DkA==
         "], {{0, 0}, {30, 21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["6", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJyl0kEKgDAMRNE/3sGt4JU8Qi/g/XeWmiYKMhsDgbTkdTPd23m0BVh7b701
iqic9biX6vRat1SWYqksxVJZiqWyFEtlKT+oLMVSGYr4oFNQgsySkjP9HJh7
tx05kN8g9uLdC00lAy4=
         "], {{0, 0}, {30, 21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["7", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJx9kssNwCAMQ53u0GulrtQRWKD734oCBBuiHiJ+fthE3OV9ygHgrHXVMi+z
GHlmsbZVQWRdJyRCl5D93GIUst3tGxkZsl9SUlHSvpGRE2GSfGxLRT5DxuTw
oWYtvZU2g8ju02ZI1EJOtfhAU6mPht9eH98i1OTDcfbXO+v9mhewDz5+sQNb

         "], {{0, 0}, {30, 21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["9", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGAQBWI5IGYEAjABoTCYDAgKk0kjnVCASycDPp0MA6WTkXyd
QAqPTgb8OhnJ14nhZRgbORSQlDEgLMRwOJyNQoHNgfEZYRQDAwD0YAOp
         "], {{0, 
         0}, {30, 21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["20", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJyl0cENgCAMheH/uYNXE1dyBBZw/5uikLaXd4GEAIWPNO3Z7qttwP7Og2+o
DiJKOlMf963HWsBYLIuxWBZjsRYwFstiLJbFWKyKZzbpJhdsppO+jWprtHSE
/iVahSbooQdQCgMw
         "], {{0, 0}, {30, 21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["21", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJx90tENgCAMBNCrO/hr4kqOwALs/yfaQitcJSGQa3ipwlnqVTYAe5tHmwKR
ZxFdps0ozYV34yVyFKFEcIQSweUP1zTBe5rg3WU4MLpjeOhuwf0oxXWkOGKb
C/5tk+DIcc8o7hnDQwbxfzPygPvXmAB7AXYl02u5AWdaA0Q=
         "], {{0, 0}, {30, 
         21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["25", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJx1kdENgCAMRO/cwV8TV3IEFnD/PwEpHm01oTQ27fGuZ7mvsgHY6znqAQn2
0G9IyvfDG1qlBVjasxlkivWOBs4WQlOOSqZtD8i1Ia+K2tRK0DayH+5BlnNz
9mbcJpRzr65GbhEI3Opq5FZXM+51o47bbdRxu4067s9S6nCay+bLOrz/egB4
+ANO
         "], {{0, 0}, {30, 21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["26", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJyl0MENgCAMheH/uYNXE1dyBBZw/5s1BfTCuzRpC7T5EuBs99U2YI88IiVG
jZLxtd9NH5ExG/24pLIUS1WgWCpLsVSWYqkKFEtlKZaqQMmLLaj6T/8fobHA
A/40AvE=
         "], {{0, 0}, {30, 21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["27", TraditionalForm]], ",", 
       GraphicsBox[RasterBox[CompressedData["
1:eJxlkt0RwjAMgyV24JU7VmKELsD+b7SOfgKk5yRNHfmzrs/j/TpuAO5nPM7g
Griema6Xaz+xBidNy3xewZk4iVqWwFyXjHK4kgF8X/eRJGgK4fjINYhU65GU
AqoN0ppIw8F2lwRL2Q1pxhIU1QYJsz7QAG7DPTP6McgU5kWSC4rwxhfuFLuy
C5WiykwhU1h5Q46H9XJHafEi8d/Dn4r9OYg6iw8tIgMS
         "], {{0, 0}, {30, 
         21}}, {0, 1}],
        Frame->Automatic,
        FrameLabel->{None, None},
        FrameTicks->{{None, None}, {None, None}},
        GridLinesStyle->Directive[
          GrayLevel[0.5, 0.4]],
        Method->{
         "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
        PlotLabel->FormBox["30", TraditionalForm]]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      GraphicsBox[RasterBox[CompressedData["
1:eJx90ksOgCAMRdFe9+DUxC25BDbg/mcSrCLYPhI+4eV0UNjLeZTFzNY6N2sD
7hU/f+a9eUIYJ9KDRKIlSpqWpmSLU9krRxItUfLtcyjREiX/8fhmkMver1CO
8SSfyomswfRDcNKuLjCrAxw=
        "], {{0, 0}, {30, 21}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       Method->{
        "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
       
       PlotLabel->FormBox["11", TraditionalForm]], ",", 
      GraphicsBox[RasterBox[CompressedData["
1:eJydkcENgDAMA2124IvESozQBbr/j1KaqAlNHjxcR7JOctKz1KtsAPamo4ns
sqZ6B2suDkjmJDMSOelLr/WHZEYiJ3tphlUoFlThMna7JOSTxiRsLDav9CGn
Y1BjJak/CI0F0WfcZaxPMeAGOCsDIw==
        "], {{0, 0}, {30, 21}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       Method->{
        "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
       
       PlotLabel->FormBox["14", TraditionalForm]], ",", 
      GraphicsBox[RasterBox[CompressedData["
1:eJzFz7ENwCAMRNF/2YE2UlbKCCzA/h1xMKWvBRksTjwhP328/QLat2/+JQnF
uVokEWbFTeymDPeLUoKT8lJOrriSOiXlZI5UyPy6kJySOCkv5SRMMrADGA==

        "], {{0, 0}, {30, 21}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       Method->{
        "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic},
       
       PlotLabel->FormBox["15", TraditionalForm]]}], "}"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.676888183803122*^9, {3.676888322923052*^9, 3.676888350753134*^9}}]
}, Open  ]],

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ca11", " ", "=", " ", "imgVec"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"call", " ", "=", " ", "img2"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.676907724141962*^9, 3.676907824834144*^9}}],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzsvU2uJTnSJcYXmmioLWgXmmooaNaCFtANfWpo0gK6BQjaolbQm8lHpeoi
DMfPH3lfREZlVSWBeKCTRrNjx+j8c78e//1/+D//3f/+ba31X/7b3//8u3//
f/+P//k///v/53/5736/+F//03/5P/7jf/q3/+1/+k//17/9x3/7z//Df/hv
fi/8fz/W+p9///f/50v6+Pg4lvxgGoU/XfO7pn8xgI+/pX9ui2iaMr/GXCn5
85u4N/2nTQT174L873J3k/V/JkNH0/9A/fNPm/6O0+Jf6a/0V/pzpv1X+iv9
lf5Zkr3BX38/Pz/n0g4COBpM1asVDRSo2Y4kv7d6LTO+ffuG8hbn78KvJgjj
ZRcLXwq7swRsmrzwILwxMWKDWe1ao6SKZF6Fr3I70mIVhoDMTdRI+HcxMqqJ
GqI2VPvS9rKLOpFSJB9hjBcvJeSpRlmDZTsYuY8xpcwAIyUYTWQDywmqDYpi
W88l9JgjqpMGpGJLByBDilAJ3M9AWxppzU860VzyGgXo9rEabEMtsfQmQiww
8t3GZT1vq+nqC0I5SjS4r/yr1Xpu/8kXNJd4JoXbRYH8wkIc07DhDAi//fab
0kuZMa0D1wjYkNl7Rx0kXzb0lvV9rNA7d4Al9jBk6rhCmpARG9vNL1SrwAit
0kIwaCTXnkYNCQlBSiV2eiL9tvbFm0bTIrSc9IbqBSrEtrazlbuDgC13F+9n
0hKrWQNBN4genmgVmbAkbJgI9rNT0YyPAhhN20VpETV27eSb7uUtUSYHaZRT
GjfcqiP5+7iknIxm7IpUq/rtKLG/jyq/G8LDrlmGjQZ7LytFW5ZDlEHMuA5U
hml8SG6uZ4htdCg0BHU9Bz1ibGQUZ9FPDOAgXKZCdQ1VkZtknTRYhfuZtIQK
bW9ZbvdhXdjPnqOAZwmNsJVVmiOUovXseEQCubae47OCtzpRGwUCL9M6ecaZ
EbazjC5UErfadv3DbjyTmzQ+IGBkjHhGJlfoBijWmyeBQZiWhfu538QRlfQs
N4fOKGFXm4mZ9f2eonvBThZbxl6yQqFJ83gKx5a+t2GBp0goQ6wmkKpBlSRt
uuFVtUmb8mMpXbIcwoaKcP+TbjyXpJ05LCvGV8Lbyg65NEBZALOfsvjXM0y0
btHxYT1XLGmTuJ/DGt2V+9l/9nOEWX8bosfueg656DgyTC5vN25Ybrf0oley
QytmVAktorbrwOiXDQc2USUYAoVK9GpbG6PlktJFi3yLFvkni1ireMavP/PG
0+rZzz6GuxtN1orKTAbXz6Nfp+D9HL1pqTYZu6lEu3a+Tqzacmw4fUb9Itr3
386mRkZxlkkZm9hBiZi0aCejhO/nSEIWqRvgrod8IaOWNwwfCdB+itrqNm2F
+1Tv4rKgxSYWKoWJvPuH23gm+bFCAw4me7MsGQroDGeEdQ2siRruZ28kX5Be
MrdyTLGr3ywaEZVlz8qruSWDz4JuY+81G4UyuVBm5w4/KS08VF5nUsseLoew
v5HvOgotCVZiwPJsG/4rbzyJwBVGDBzBVujzytUKPVDjgpr1Fv78+z210Q2s
DlDEqlWrkObSTrWjRNe06zm2Ew8Uvu477hPJys5rP/V6tifKpFrEzKsWb70l
O+iRxyl7dnNElyY7wiNX6rhF+w+38VQkKEMNCxUWvApjxi6wacZHAYyR7mU+
/pinNluWDeSp7Ycvo5/ueA0TjQkzx2lVYhLd2c/7WpeR6RCJxFa4HVA4ubDc
LYN4rPuq33o6rexNbbeHdtTd/5IbT+sUjQ9JeAeGR2yW0Bg1Ettw2yqHaFEZ
SK7ReiClnTsqIbHeKb1WnsTocEbvKdv9yNPP5xOiVy1tvW/AqJgNkPJGed2g
bQgEOqiLIqJleqDustUQ8Z/mtf2vt/FckpQ30pDm8bSX2dJD9j/OU5sSlO06
yXKrU7ujSVFT5FNl19KWXl20kB6Njh1hSC25SR5ZbMi5KtG0n8PCCE9XX2G4
IKPjAgr8q208LclIprqJ8VIluiOzUEctKRmL9nZGkHbVRDJaOJfUXJeUdvCf
tnh2VPj8gGcoGB2dmhNsBUxdlNZFuO5StWkPWLZ46/SOx2jYz+D2ZS3NBeuZ
CAC1VW2pcPCXkv3PvvFckigQCzq8XfnsEFBEMhl7lIQjCVkkVHqslEazJYGe
EjtZ0whP2EbG7tynrSLBPG0T8KbQ8u16i+4ckxfEzMfzFcpE4HK3jLqs50Xr
OfhsF77tnk1T+Cb6GkfFZtFqXNSXf52NZ/Ju8O/nxEoCyrAucggqmbbyk2js
2vl21tHM3sU482JoaAy3s+SG8Q0F7JiDCj+/H/Yq8rmk8TNFZEMXJaiU1vfu
Z9dCtA9dz75HU3aJwpIhyO4KNaA7d6f1vAEpgtapj79eF3Ta7BQ/De1UizxT
k+W6OjpOJUos4lQxAkZUqI/7eS/ovti2Qk7KUQzpsesiy4NqsGcyGpH13E5a
ZmyMSgneFMSkjkjaqajERgoX/+SvhgNhjDDeMn+9LmgJn0vdeCoJJJ8waxNL
Js10RIWOEmRiMnZeQOESoO222EtG4y19zyLBPA0L23Wb5eY4G6MbHrZbdmpb
jMKU0/q8rPOxre0k+xkXogI164pLQzlin99/WEEyxam/XheckjTxLUkoj6r0
jkAy0Smarz//kZ/aoNG0p9sSJm1VHCentFtaSKXvLfkp8Zb+sF1Y7TCuPWc/
O2oaurWX7ueIRx17SedUvxIbWNJP8P6lNp6WPSocDOjCALDkaEahqiPkoB1h
lE9klbqHxTZJ15xKxcpjOK33UFi7N4VAmbQYyp2+ZbDaz6TyyowKzBrYaiuA
E35tbndkr4yOsR9/vS4oXr+78VySLADic1wjH2kw170SqrVTA5ZjxHE1qK2o
JM0pGlOlgqJMLNHwi9GnhuM7uUkDCxFoMdjy/VxbYiHKa8+kRByOm7pExzPG
tBYiPlH5Z3jPk2ihrosKNXyv08LkkbZFj7RK9Sj/+x9t43n0C+8yPaYjnYQQ
OwmNQq/QzOWYtkM0Ju0k1I338+5Diqjh58VTmzRRKlFE2npGH72jfFpKoSpN
BBXHUtt2Swdbrvst1+Ws74RZCdQm6RCshFvxd3klPDkyFCUNc/mPu/FUbRgI
XFhai/u5YFhhohzrH/+YT23U/e16l73jKJSJybIQTYnwfLr3Z6x1Cz45RZhv
xDBPKz2a70gbRWrLgIBNdOyyhKc5+lXyr7nx5MiFbjnB0gnIakinT4QNNUzm
NTh0Rz7/sKc25Mh+Dum2iVrvtGjDDmlJQhO2oZUkvxSYlbGGih4UxkxR+/HX
64JC1I9sPNV3pWK7GPUTHrq0S3Ec2wmhtrWrWQzE0DU+omYdVHVE3c+lS2KP
3NTYjXLdkFrv0rn0er4CR8jRytQOV5/PXxoiWgVjgemSGzfL2plX7qJ60DHj
JN4sOA6vZ/dez35C+pUrZZLKt1v1/TNtPK3v1hyFRsGj/IIbR5VQBpsfDz1G
uYrZGUfJVBdeefoIJ2JTK+vZqUrsbHSQN3seda8fZbCDqe8UoMmowv0cfvVe
IEhpCUd0ffv2DQfe/exmOPlu6KXbhWw/u/H663VBSHZrQJ7aUwWMBckrYBti
ixZL0qCn3i13PDJRXtKN13PVt+XmTVRooa1SPimaRb9uJ0k/3mJEbFooEmNJ
IKUFYbXDqaIl+UQyWSmoyIROOuvZu1TJlNgzjRQLyhTSltz7WvL33Xiqm6pt
//O+ekFurufosaDbUNLxf5TQBFHWaTrdIGyc7BZEs0SHbgGdypXwlKhJWhZq
aNCXgWG3DBpZ0qM8EDZsrnOcxWYZoNr9z7jxVM0KZj27kLaa0Hd+iOEV7qNX
7c969WJo12BZ/YmcFeJLA4hufhP+5BFVUYbk9R63U6dylRI2scMpTRbkpt3I
IEK7PUGFFpIymZbx2uro+AiovzYu/yjT2ZJEHpEVSnbWoEEe5ztcUSB75OAU
zqr788devSBDqAG91rw6S2htUMgX1ImbTbwfCbO9RAzWR+xXtMzQtWInx8qQ
L7QRVsyKzZ7YWBM73NRII2mzgy2aXmF2Sz5a99czvn/C6QwpsrZSFdKoicZe
O4zogKDubBd08k4HanVQR9FEGpZ8wNtKlpz1vMtulnOoHLHp8II6VYmNI7lj
KVUT1v3EZ4rFlNPIPPotUTT+T6EeNWy5hckQ3tFE2nQ/GvCJH92LKdtj0S4G
/oTTGfb8JelVSHdrWjgRA8Tkh5yDofAO47mCIfwkQLz1NAG1NyYBO7qZeoVS
kbqHurkubnBV1dlITFqxLXuZglY3gOoCEqITn8LWVeuSgXS53jLJ7m33s+er
7zf8JLE/yXRG60lL0ZbeYo2Sp0lPUaLNlUy8tKu1FAKlcRIuki1pOuyrWot2
Cj/lPUab0E09yML5ve875qkHTgq0FlVKE4fkEZpeecdXtKEe3WIkJhN7yZBd
QJKbN3r2szMciRrrf9/pzKpVExi1tJFfP/XVC2w+XKmnaFp5+/EwkTB6nRzH
JpZDsvX5PU0tLdGHZLoL0u51y1SrvZqOAkbtkSs6xleQ6zkdo8U0HCktSqYV
I5wzoBHbNiLkF6V+V3a6KNBqfUvfSN4pLWU6s4aSm0uSShZsPYgfp1cvaNyw
3ZXWHq9NSnK5gDmGCQvTKSgxlg4q9dAMU9p6TyadpNmlBZVrdOzIoMwo2nRO
qMDW88RDbalRvFTh5d5z2C4iaLH0nyMYBVAuCef6e0xndiBVnEvSli0eZYhJ
9VQ1kzla5iV4tmfqWujHw6Rbpy0LAz2bPfYZWufMkct+UorHeqpcz343rMbV
QXtAmtgYDNaRNM4MS0tuHwqN3ekkJget3WhgW1KopGnJhICa2MOWoscKj/I/
ejqz845GHDEvSaktrdkGgPWUwrFkKkFVU2uXxGQRNSfO0cFe0htiyNIKGXFq
D0R/51YdyV//n9STm9MHLA+6PtnPO0LxIGbLm+7jtH/aTkX6LWkaoCUdLzFJ
SlJVSgXMT5zO1AXlZ6Yn20ThdWxJXu9xXe/hJQ1N6iZW9S0e5S/DRL3RalBg
6znUpHXyTLgjrPM1qhp/U3QsJLsvwKBYL2zoVQOGCUM5aNP5niohi+g7Emg7
9gQraaPzSewqx9XX19Ivns76kn4uaeWjnGtvSTrTQo7wbIkLuZP2s2NOuS3w
3k3kPpbj5KjA7BEfBWjk1UdaInZ/FYY2VF+SzmJL9adyy0lXgrXqUWIsbQBx
ZMBFpt38qvWUei1J/vrpDOcCFMNa7ADE6nr2jfUcnazvWosxsgynhkmsMKbl
1Oomkft2jFWuSGDnkUrBfLp3sxOT6eRhahMttNrfEF/6i6SRfhUoPiIkbGv7
Kg1xNEMVDmk5YaNgiSIa93MaUoQqn9IfPZ2RL58XbxKmAG3pJFbJJI1mB0xi
aU+9oG+oWiv85TDhUgTF0oLQriHtfap3cVnQKiGWdowOCuCQbsUSFUuCnhoi
LTiB9mVhUqWtED8mna2UvWLIBiK1LSXEGMn8XaYzcoeY1FgsWDuhBly3p43w
uLkvXr2wyJPYIKQViBKlDFiuEpkJpPV0Bw4LqtLQHgXs54BPA4uuD62zdohe
uQ/Yhvu5sNEjaIz4nE9aAHqmhN4td4Mrh4lwKsexyMqntFyH2a5jKKtWD0aq
mEvTmcbXbvHWabBFMSvfD5aLL8vNcaSWatUXOkpVohJvJW/tqndUZR+y0ML7
dY5NtpT2FWbt9RxOCQ8aVesoluYsAnBzgDnhmIa05x0x3BprV6TVOHWMvoZJ
XhAJieoRJqcmgwJHQn7ldKYLs2LIum99TCdpnz/p1QvlcLkhN22slPMvhEkJ
sTL24ZHitDe1HbrT6S4+VrOw0WJaqappJVPxWLWD5EO+YaJ2L+drO9pPwic+
I68BWpIssM/vKcHe0n9slS15KfwF09mHe3KNgyrdkpacD/dQdUHHUF8+vvTq
hT5hodoNsVh5nEnMvxUmJRwxoAw9hUlnZfZYTFUpmN4P7cJJzX3K05YJbrq1
lRPkgTKv9Jr0LXtIkcIg17DKLjaoIbK9JH26J4bEzGizZBIbhIQKf/10pob0
nFDpIh+p5OOPefVifT/mpR5i72U7e6bxQTlU8snBJSeTNkBYiLfVdPX1XFml
CCJRI2DXlnq+VHzE8Vzd1xCTZr2FX9Z/4n9STw31fEAN4Wrf+q5R/nw+O8C9
Eor9YCKSf8F0hkzSBKTrvSVJlWwIepFXnXYgtUFEgbnFvn37pt5Rw+NkdJkQ
yZJ+jhb1CNeSkEq240qnP/Kr7MHtrlmFMWMX2OQvCuhxK2qjFft+dgAFo4tM
Wo6qIzsMs7Rw0oiQhvUcTvFNQsJvQ0ZqiaL9a6czhb2fY1pa3ljXrNdEshJL
JKsLKkBrYKvBNlSoXwgTNeksqdeFvVRou8SSnl/CtOqbY7OEVpawkCYCpQXF
SJvyuWRqSOwh5rTFU8AIj04JEj9zDrZgPUCGdk5d+GXxl01nNJzqwiCd1hIY
27uwxO4xsVZDs4FwGwvSv6BfKVfHQPTapAF522G1iVQv6U56DGU3ODtMTPsZ
6KlN8zgq6UHZ7sN06i8iKedgSYMqQW3r2ceK2uFz/zFvEm4Jrmq4rC34rfC4
v786namDJI8ASMbem+m0hMR2ZlWnkikcGQoBdlfVT75osN4NE5WPWuvOXOIt
89d/Ur9yRy0CVrKIFUNp0aWwP+GnLrr0XdLBrOPbLaKQup8+nSmf5OMoTAzj
ZZqq0qyxYKKxPc2K9eZJYAixZzvvhklvRmVy2KDhjsTQ8b/+k/opSRtk0ryf
vcUu8tcf9iZh92VL/yHhXzmdrWdc9HiW4GlhWszveuxDHOq5tJKsJgaAPUTS
hltGIYsNfdQwETl4LIMx+pBngnZQwrOUmdBfUzwRa4+IEY+KDU7dkRX3d1gA
0KUuHVVPCeh2XWg9E7X6DK+m7JwU9rFVEVjPvoT5mybr7z2dvdLH803CRI49
qdu/5NULuyfCfRYdqhT9VHgMk/VC82nuLiMe3Sl69qvy1Nt1MEQqVMN+RnbU
qu/qIPYBNIFsj0e4sLTzu+0wqRto1y0I13NIVPZWfZNwS+gTSKVLq/4u09k0
/AxvElorVu3cesU7jQVFFu9TFP74sVcvflaY8DLlFUw3jb0xmaNZnuQ7SA3i
zmvaLTFKShJsii9pW24pgjcX9qL97DaTsbck5nViUr8+794kvOHWkqBiv3I6
0yNctZsWToMWxaww7jU6aeuPfPXCWlQTSoWKYaQU9gh8woept+wr1UoypJfE
iU4EVIKQ1Jxu2zF8FNPtEsonwJ9yiI2Tuy7yJ59W5so2Bov2DjOe6C57nd4k
7KlLapWa+4OmM70XcF+v5pakLYsfom40a0OqIsxqRc1hQ6IIBeyAaYl6N0yW
EHWtDGsaVvRo+qQ1hGMaMrOe75OQ/uT1eg6Sg0FlPp/HvEt2HDt3Iby837yn
lblyYteHdJY10RklOvDqgKkZG1BNqXZcUzEkRDlcd9OZkkOZssehVggb1129
IZGpvq+f/eqFlTkGwtZSx1C/1GurykLVEUwJTK6lDemGsJIhMjEOYkONwnLP
66mhRaLCZfNOhxjqFIZDxUiz0kU4tyRSqwKliW2oejSamPmR6SyNz9hQ7SrP
SrutTbcDwrArJczoSnjVZYl1J0TmkXqYSDmK0XiFh42I+UPO24monTdrKQpW
jErK3LShR9HRU8JjdSbTCXwSLo7b2nIUfKTLliSxG7Sp+S+bztI0QdjWaQ+O
l7jCT17bxZuetBAkcpmU0BoVNatf5LW9VOHSfIWbej3HK6JOR1obERoZOo09
UskpDAFGkMBvmRESVwnPUT5ho7breS9veS5PypFesvK6p4h53YYQMOUW/6oL
qOGXTWdKqdWA+SXJOquE6xkOMqwcTlwmo+eKFDKySAiVyR8MExGVgkWEjL84
iCEtumRFHnDnZTUojHRyRSCX6y3ksvWdbP3g5p0W5GnJVwJEJnQcwFvm8k1C
5YooVSYLgeuXTGfKp0aQ0BYfLavUhDgkB7XbW3NYZQdkZXjVadQSq0qUIlu+
ZA2ju1R0k45K6EgNTVgGlFJaFdBw8ZqtELYure0Jc+FEafza5n3JoGfLB7ZF
QpBmWqFxg8RQv32T0AadaNFLbUsaFO1kfnw6Uz6t0QSm+DLKb8jZbv7acupO
dwQ1tBFUnB3JF8KkDe1WVNsSctK5XdRGnhTi5J4m6yVDHJqzW3LL4aRP91Nl
Qrje37wTpcND2vGh5uFN+dFWKIN5oiLdFJYZa0XLp2pcGx62DGs7dwnV/7P6
htWv992S3rJDjMjWcrN8CtNyr+XQ7NktJrpUOFUVVYNQm6Me0qkuEwz0fd89
ZkJ5686uhz/WNYVN+hHYzeadOFHylQc1SmKzNMIq3Hcv6cPUnRSVkmMvqaFl
1cr0tdP+g/sGJWuFTgCWdK2ydxhWy32BC9rC2HJ9af2kMBUrSoXqT9at44Vt
3bPbx0wobx0h2CuMSwtmFmxFe43ED8FGnNRp1et01oFNCl0WLTmStvzJhNra
oZ+QHnSkjLqK5A/tG2QRfURJOgGgiOt+ajQXc5bJNOas5+rRjsOo3yo/hgnT
LFlVIZV8yFPIV+a//tf/2p1NmrFQhZXk9dzmkBJ1X/VQ1U2rJHP0l9Bu2NQU
qovRGwdLSuRTlfWIlOhOFpvoAcWRqwLPCltCrIYNeyXizc4gI1CO+AqeQl1y
1sooD9qq2JoqHIGPwqTQ6kexP+4x04JwLJmvEz+kXC81j/hvNu/bTaa4dxuF
tAUbbdhWHzPt791SD3wUlSVNmVG2L+M1SYf97Z49KScFsEIlE7aquEAxwr2w
Cq+feoNrn6EQqELyAnUWHxOMTrXlTU/LFwSaNq3rZzxmepXPWTrCsISnTCLW
EpVUoR57bmNJQ7HP57PC0haR6CMMC8w6lZQjLav2BFKiq1bVg9ufcXz/MX0j
eaeEIGC74x62ifbP55PKewAKJu3iVcl6P0zqbzlYSBZpSiI9EwiK5vqxx0zY
xM6ANo43GfLlWLWevXe5PqPNSeeCaRoPZ4hqaqJVNr8k+oRfM9okWX/hnGfx
KqM6f2XfwHI85L/s59hw8uvZB8YpLdnPWL/L9pcbUnNyzS4+t3RXWtuowv39
Tv8Fj5kUrdYeM/bSckX4x1mdg4g04iq5rA33k+qRWW++P0wKEbzCsHxSmqVU
mscxjydm6w/rG0nY+lVISPITZYrUgiM7kqe8Hq0Tnh8M0wQFS7AVHV2WRNYV
4a95zGRLyP23MsdLbGIdX/LUBlV9yJeEizAZGg2EYcGdQnGhQUB1UhDVnCVE
J1lyx56z6eKWDhwomjrb2pMH+2COau2Snqwo53qia/HQIxJaY2Db/jhvy3pA
ra8aJgqWJZm0pe5E2lAG/1q0P/6YyZKjMEr5UdJeUlVycz+jbM2p18RPOc2b
SzzNpmgqQmWMsGkqy5IpxyNETDi/H9fSWKVrNot8wYiR1G4ZUQftj3xPrPM5
1Ckq4jY5+G6Ypnla7qLvSb8qpJLtunFShR6l8C3pGPqYSTEcIVkwKlO0KVT7
bNqe7dOJOsYlaSN+yrniK9GzY7vDOrKkdOmjMeUKoeoqZctMSmeG1PDz4iVP
222wCgXoZBi3DAReAWBDcmHD1GzJ0QgmGXu5c5h0FtAzAbIyGQyKStIz0IIB
Fa6f8ZhJ8S/pA6W2Z7R5SkQyadCOYZ8l6absNd3YCGIT7QAUvmleek46yCV4
iJ9UqUcWT5rlS1f/fPMlT2xLbiZyCLxd/yeeB9iSewEZU0jrGW5qWLy4SYhK
DQ11yZZqWC7EI7mf/UHFVu45xU2bVx4KtiK2QvTvPSUX7CGSkoBu2oPZD3g9
tTxfozt6P3kmK1s+eqZP31DbABtVFLtyRo0PC3ZIn/AcgWhUdwqHx1YkUOSL
ck12DLfnb5PSslkdVK977XreXBgyQjvyds2JDGzpvdbohqAv6DDEibpDGtRK
qS382Exi22pD2Bo+hE0lFAirB42qZgJwPNOm4+v1/VEXCSt+7Cr7z/GSJ1Gn
8lpORNlJdsNWXb3Q4/2bNZWipRXp+uPfFUkIb4Zl6htb7heNe3eN7nFadahm
tWLtdsmupNjFv3Z6vVSIGUrWl/1kcsuSnjrwtLIPoRSh3suj1j5/2W4ZkHwn
me4pdTyC3U+nsUR3iLYVUZqe2Y2zf9r3AXBYtsuztL9YYfRI0aH4qkdYbqcw
ylOGbOmllUwKjx4lnVSY8kd4FDvchGKaqNlzElI1HYMKqXuoKrrBy04By4/M
JJfJNMkvSaoBq9azo9ICRhFiK3x2o8qnip4UrNwBZlv0Evv8he+KKIcIu8QF
m5MS66MlU2VoQk+Yk2Yro2iLWFLV/SoW79H2E6T9vIn0aAinXe0hl56SvHXQ
Lu0GjKL6kOfgqJaSumz50R5FSmgLTBwmK4mr1xFo4lD1Y0RwlKYNwpYVe082
RlqyJKb2fBLF7AGdKrSXWjjNbx4zJbWk8L4J/t1P0rS8JBUgDQWqjcUHvPX0
IZ9cI4XrOb+PwHGr2DvDKNl/7pc8y5mwVU6HWrj8VlXP6MUOSdPoghl5LsnZ
ZAjlyYQOa4kKHEhVXvGv59IiPRlMqjRDhbrAICuleUqp1SWqbsW2TfLHQtKm
Z8ivWt1D7SdRqOS4bVT9H/IRieQpNlTlVv7jl7zkacHgyby9hT/dw+7i6ZZj
FhXbzzS0vzL2VNBybq1TLYGhlRJmVNtxba9tS0lRojqt1wVJydwA7mAS5hsY
b0GdkO369HDDrW3PSyfZ9VjyyJ6bpRX+kqcq5AJ1J/JC9xF4uZ6j0H7OjxZP
ry16bPMbuqwYZSxCC3VoWe4kcD+Du07vihDCj+fjb6ztj2xorFghoCpDXu/n
VJ40WPCqKoWgl9jLYquUX6KyzXV26NrstDsaZv7Cqte5UFrSYwZXhtOF/rQv
eXb9lqLLQotz8nZhsGRx1anAKpUvo73CThnyRc/P7Ym6+mV9SeRQWrLk0Lap
oZW3GYKkMh1kkixGOxiSeSW9c9OCagu3RCDl7YnHkkmBTCNptNq08mkrN8ku
VCwVU5sWJFY/hTjJ6LnTkq6ynuGYhugjLTkIIdamlc/I2GDR8qyflU1GH19a
MeWNpgYrr8RuCaWaU5ki+W5DFSZUN5dfSJZVK3mckbdjGEtUv9q69MiGUpXo
Sb7KE059uqe9SxOJYUM1oYWDVnepWkJt9ZngXOqJovpVkGPh2FLyP67fFcHj
2bIgLBzaoGhbapKUUCIwXTihpYZFp/W96y9oraRan8sbtRg1LP/4JR99KhHX
y53D3RNONKPKnr8RId3QFJbJK8WIGibNNlhL1ufavD/sS2ROeVo7UUO7K1fA
iQqssiBv/lLb+3SjJLm2HXsF9teSJU1hEJ50oETR1PE5tUJINM4rDIVkjdpJ
dsNWfTTo7n5SejkEA6FP/OmB1JIpz2pAKz2T1g/W00QXmlOFqZ+g2u16Jsqn
d0WsvEK1kiqT2io2BNPdTGAobwsLHvXIarMpkXDUk2wRKiuwnkfl6XaeaRof
CaXulKpsHiXtuyKqDdUen9atP+AlT8JD6+d0zqwZTTqwWKIo6TpkwoTrK1Su
g+R6DshKyHqu1tKDPOW5eI2e6mWnAlslPo9JAavADrFT5NaLpPMILAFIkBRJ
V64daQTs8QvN13iEgkr0vB2r1nPmIhMD7OPv9JKn5QTV3mR060oTZcpY7/RQ
ovho8WNMSZ7WNkuCQtG0me36HtWmPBFYmOmcWzZsVQFfapNa68h9KoAV8wCz
x2h4T33cffRphZt65ach1ISmHsKjIJVeTITZ0kX+LrivBwltEBQhJmW1kI8Z
JVMdLAOLpZR0blhRkBJdqk34NHBTax8HpOf+GiMtoSpkYLuI29qumQRIkvw9
trLyBM+WXOJMyJPmTil1JPWCbhlsYu9lkiEx6lc6gFBH/fyTveSJ3mFzq+cm
k+zq4V5PC45DERVyXtoOw/u5xcDA2WRp+ZRXobb0CttcxTZ0Y82QPP5NnqoG
aqK0q/JkLgEohkpK+rtabaK167lBow6QXKAnzh/1p4j04FVnzMnYh90IVQOd
9obWX3J5ybY0GVW14/vlVL5k47Ce6xbUjI/G1vOeRXrVR3UHXdZegbZQs6Xa
xsL2EMseVRE5/S+Zw1rFoLXJbs8Utba8Wzym0nMKQjStC297F6eF4pRoR7Ve
4Bm1fYybFnu9UAnRPAFTVbY2+auFM759yMNum/l8fi1qhfHNAibwFiESPlMz
xpGmdRqfEZjq18iqmyqmHuml1XPPCbmvAMj0TaSoreZVv5bbEstSkumXCpXM
6SrOIrfhToXH7bBlhnTeFHb96caxLienur/28PkmY+2mzQixqo6nA39lRsnE
jJ27UW2iWvUX02RU8yRGfy3yxLAmxYwZ/autbJOeuQFwL9MtIlF6wpxm5HLW
RL5rKDWINpSU7KmOKlEZnbDQEEHF2uNLnsm7G9pJoXVfM7TZUZ5Rfxq4qDDt
I1JCSF0yWUw8WMePApTRwm5IZXrm2KprKLWWz27uiLm0IqfUNayiPMKjQmqS
JLHKHvMqD5bDLk/IP9wbd/ZBA9FCqsYE3ju6aH+dW84+1x4ypCr1VxcPI2N3
369Ey4DffvsNl+gqRtg0joXnVNIpVUMWAAlYeAUnCZRMqdW/l9aTzI31gmHK
lZYjgYn8Aj7dKagneZSOf3WZ2sWsuVeGntnZPmaJUlVpTqT59+bB8WT01RRC
iM4ud0JIXOGpJvFM1lG+2NVEdJGzKViluYbgUoAs2ktbdUROLuBlEk6G7qs6
yGKUONFAU6FSmpzVpF1FD9aUPYV05FPb4v1uH/1gLQH7PfPt27fCyTRRGHoo
rRz2THpQZZkvYlQ+SxfytNCoRjWRj1hIOLVKJVH4krHtOsMRuYVX9FiBt6zf
K79vooWWKBsCe3nDW5qIqZuVVnYiU3eohFaYpFBr0bXU65akXQ/ZdAbUVrpE
p6qkwVqkw3mkoihB63OpOxelOiUUprZIpuUWq/TvvQCWE11FGzXRQsp8rdW9
mDqS7FpJDXfiP6myNKILqMFOo1uW09RK5ZUrW0JLVnonx75Bp16nvTAKl6dj
mvBxNhlNh4GDlsYldX/BAaMGVzXoy0WlV1inqDB1kuU6VSrHErVemm8Xgpug
3LRKehLm0srG7og2ySgeDVwizSov4bZpJPEVGrKlCvGB0X1KSspOUxviiyUb
1t5LUnIq2ZpjN21e7rX9HN9W7gzHSd++CERcEWMpUmo9EWvZWBJZ0mwN2apj
Q7Kikp3VlCkCx8Ib+XuQhdskoBQRz5Y9mz7db772c+4jzZcnaZSKjO40U28Z
YMrDkjSFdJuTLXXEWrczuHVKC7UkTfdk+hjKSxnKq79HzXq5K137yZU1VPqP
Vr2VuRG4yd+bs8RabRpu7bGpQ6pASUVMe9dc6ixjm2veBvFVSC+PJWyJK2LG
0nXkectioGRwC1wQJn6KzBG5tr3hSvUXMcvhBp4VZ6q1AnipmLHhFzJq3Wa6
BluSbF1mlJAExgpQ8xQ4uuze2deqUX/68QLlb7rfqD2+2UIIiQRCiJdzM+rB
1Ho+SqPm2522rXxE2Z1d33fiuqcuGx8NsX2ol0x3nNTccqja6G/JWBOWnwS4
uFZKLssVQLJOFJVamynllAhDWmOn0CDIo3eY7FMbTSU6vSG5bFG9qspZATk+
J2Boel4CJ1Sll+L7LX3kKVQQ5sGme3wcu6ihDbQqL9EkMq37JGM1l0sCkKBa
SNrcutNL7ss1f4nwHrYVoDiSXYv28h0zvbTW75XY8uSpxYBPq48Tt+0nS9KW
5+bdnRkEbl5VvfE9Ge0v29tlf3maVlQlf/czOuhU6lrkVJKnWNi2iZlU1S/f
LTxCKuz1zpxw2ox22q4tvRTdPd3PiGBh6jxHhcW1EqnCku05tvtRSn59nL7d
9BKjiRVfPukMpx5iXUP9O3wwZ7v/FHLD/2hQGDsm7e1KoNKuDKtdDVziQVtt
R6le3pQTjBs9liLbxMJODCTJ1FWU9ptWk5lXSlLUErDi+A142zyBTMIFM4HH
37bYqfwG56SyuiiAk/LBmX4zqF0Fw21/21v6RlFVPEJ5zGiVYrAuJFo09KWD
dTGrP+mxzr4F7yaTaikKWEVvRmETlC+YtdzKW7Qp9Y6axLajwprTm1S79HiB
FJWne9pRKdkd8Q3y3t/sXVMA2BeKjv2wYyPGSGfqP9hEXaCS3ot677IElszN
ZSLkR+weM6lLWP53OFizrhUvined9mSrG+19+EbzK9G69Phz0UlpxXIJu+M/
RlaVjEWawS0S6yCVk1Fq3ktUYbpUYSy3ai+JtcIFp2orYkck2h92TkdDRxf0
0mI7el1aTbIfbNGMtdgB7AtibeoW1/N3owTeeq1n5nNJGm7cUdf2HdudgdLx
LBLrteLvGqzd0gdSVS/v/lrG1GLx7lLnjfViqNReZo4evfLHF04wptoBrJhK
JoZtSm27pypQmlDmdYygPhIGnbjL4YM6e+wnydnikS05kvzbb7+RfEqpVv2y
8bI8pCY31E0Tddz2sSMAJQpNFJ1WYYKkVjr4m0yKb4pawVbKUcD2mS3kFFWX
1o9itirRTnvq1JmPFB1tJWdVbep4SdWlZgWpRrdjoPxaMF2qttSWGNZuoyEo
tooJVU5WvqzzWHtJ1NcyWpjeiKCAotf6d3Tab4iV8BX2NKWOca8hJT1aPO7B
p2E6RbdNqOdY2MWdxHz3vVukH7AjfqutfNPjCKk06b2CsFGVWrSOlMJEqe3w
x173hRD/rEwpt53ZVlklJKBHxD1826V7Dt/VQHbtO2yJkyU/F50lvf72JPWH
BLi3PdKSyo9dQk0XePaHb6TcYkCPekdSJNrWgrQOJqP2b8FWrCikHvfCcLF+
zOhl+ZbX67J8xMCWq6Ejq9bBew5TQ21ejFoZ61r54IOqsi73VsW1Qo5ealWx
m7oBvZZD+jvVZFGZVFW2b9hOdUmLLbdRThZTxpp79/IS/9dcnlTewdaHR8dI
0atQliKsIg2WipvMvmAyCRAM5QGhrucMnt5ZtYQrkuJ+EnhXQ9FMbmJt+aU5
eWRfZiadqe2RpXSZvFZaCu2E0Ja8lUFUmi/CR/w3Ri3bEx37s6MUXJIpL1qT
nu67ZSl1ibdSoYJc2KcPPvQ+cPTOuqlQrYBG5y0NCiOFe7v/vZRaUcaq0kvr
ewJW2NNMLy/9U7tW8rErV85LBP+4zM4TcYk4/VTKyhQCLRXHy8vyTmmpooCq
nsJS+aLL0X0L0vafGx87sQhbLfZw00caLTNksbwYoM2P5f1SUyLt3lYCZik9
FpJpK2DdKSU3mUn0XsfcxYgWf42Vgns5gxeXNZWqL6Qjwza+S9IU0rvo9itz
lCFbHeplxvqSvLby5Ih+j66b7p02BT2BtH2jqzq2tQG1JRZnCmWPRYpvcqq4
+VZ/ILSKnJJ1wT4404x+Y1Cd6swUDIlGK3Zs9UrzFfH9pFedJYSvkvRSd3FB
/5LjnbRjoraU6aG0mFEyfRSLMBMJVKKQtK1eJk+L14qTZNRWoc5iSyTbCNpe
kUq6/uRmKpykHzBUo/gVESo/xp18KcgpOsn9ovPGxJZwLElTNd2bpjxao/bg
Fo+O5cXNroS8xufg273B/srob4fT99UTdYXk7UJzEyzrURez8bWm9bLYvYzL
jYYbN0sG99HHz/YOA/b9pWloH6BorJMvxUcrQ5hLxjbcLpXgWne26+FpoU7e
JQy96gsp9RArSWP1es7vGzYjFAVycz5Qoy6X/rCFfC3BVslH9VcDdzSUYJNw
YbjgKYXHkmNmuMUzIn2LifZlO2/N9vPI7lVSvubdL6nc9gQNutVgFaZC+20T
LdFCVEVQLdoEQFXZ8uSLFeutcEam+zpBxV6BJNC7cIU0RGJLiEn9WzJfa6K2
jpnRcLTV45hcsCWXGYzIeh6Wfrj/2VM/a4BKtiRkzL7WZX1JnhZfrOljYdHT
v0GnhfpY7biMsb6nEGPb7l3R2U1QoQWP+bRTSw8UrAtESPLi5vImQ15YAPf6
laukpIT4iPxeMrVF5u3b4yRp26r8zv9JaCJQzWmT1E9UYWL4Ji1Jx8L+ZleB
XZgpMmSiR/lYhTL4ewT7qjmNfvYTNHZ2sA/Qky9Ib7k8uk9NVH9Sbpt0SapN
nF8WUpgunVXA+pF/TElME9XOZf9ISFGYeEuOJwxWpzYkDYkHLUxK9K1stauX
6jt5pFQUAo+GLD+Dfwpp+ML7F+OLq8HL5whask9xP0aQ1KrCo/Ju6y156hX3
LryrvAO2JYOKkt2DH99+uUeS3LSxUx6KLzcArMu2HNu+urSeRqpaC9j6+xZd
3etkhapoJ4VPw+2me4c1Ofmbfr9D5JD7pQMc/xa1KtmpvoFhXbuM49dCfJ9B
8nW5hVHT3xLa12CmrYaV1JIvR4bV0yJgabkUW5J6YbKi3vUgElFqt/iuhZde
J3nUTAc1hGc//+8Y5Uq96ARqIJJAalWY6Zc3qpLOmyb3mRLQG08nfcD/x0GD
c08axA2jhI1mcqeDTFHoFKmnl2Kp1ZJkXcMSncE1r6n0QAtSQ/A1xxWkbqWt
/PE781s4JEgaX+tRctN2D6vTWlT5kimXXbJnCEYqSQ0vvSZ5OhCmjqT66afQ
JKwMKLYUYm1+qco6aF0ozY8ffEi/r/xBDMSJjal1v4jdAxjfsaSs2VLfUP2p
E6qDncziV/E6MdxblUxvfqlTxSwnqWHhR3/taN9eoPyGVx1IHpWj8Ldv34pT
pJzcSbFILh+7cSdtB6opTaEeO+M7A0rIfRftbFw69ZaYRvBYMhlcDW73f0Ar
e9vFi0qoUJsrJ5cKSYacOmpOOo9gLPOp8F5n0qwn5PgcPL2v2L91MAon6PRz
pNRLj2xoH0Nhqu1kWtNkSBcwaML2PRQoH0svzipFpVWqLfIqZgm0n45cz3OY
FX5Md/wfE9DHBEkjciRBI1K0pZIv0JhgdLHiZgJzGX3tNtt9VQwDarW9ZnC8
i1dI2KqT0J3FVHpIidR9rWIgj+bvnGCU54kJHqmyXGm+qLIOWk+1uYaMhuj9
nJqX/Hz49WlWdccq18vCiZZbrwuBvYSad/0FpAVzE5FeclSVLCYNn/Lfah8t
jqcrf6ExgVd4tgQJt0iSg70bJE5QntL+3r0VEgrY/qO11mLxSN3pXiS/dmBY
vzW3Lx54kZ7kToqpOqh9IFGRSLNobUk3WjAUJcVWQZtUXQJQfhIAUkvh0Pla
W01KS/2ORIWPzuJlIfaGNOp76qyCX+6zV/prWSLH9hALxvpItT2O1nSHVJ6M
qK3+aVaFavWoFQ2oLVTSlCvL0k15MVG8uMz0wi8oRJfth081EJS2pPXOqTth
eKsJtqJLG1ZLlxVQu4QNQdJb6HbDrnqsO4WWBOmoQRuW2v09fPv5QKSQTJ/+
SDotYMvMMVKp3HYk1Z94uFH+FjC1bgXukZD1ywypovcZrH5tpXGhy/TULKkq
XSWBIT0JyVEnyZeXN7DQTtmvvP601nLVe2OipfQiK6PWb/QkwOs5ApDd/oVe
ypPX9NfKqEfHTPfuy2otbGsuUZoyRwLvvdhylk7Pvyjppwh3fvyd/C1OafO3
UufKqrUlr/Tt2ze8RJeXGwS2/NqiA0uoLHVHB7cE9y09+go6dTA6SyQStFdY
bRaV9pCjI9SwlBeX7zNFT8KWJLuDxIatPSpPsF+X6QM+y30cmLxLp+42Wetv
OW6tWHgq0KtuZvCRJITlzUDtftYpywBJkpLk2jHu1iL2gY+/pRGj8d+O7eQa
vRR9GXfLVXGqO3vZ9t1MESjWb9Qmr9/1BZFQHGmbOfJ6F+NjlI/n/5f9SvRb
BrvxT44vSUXSclIaYgk52wGs5+8rd/ifPsozCOsRQbLlqkddSM2pMJFpXe5f
8LAl6/m1AX0UuyU6x8z9356KoUsZa1eDouU3zl6KWXI6NvrMi/2F4A0nWzr5
lhWsEqI60y2QepQ623VSx1YTtrdPvv8eXE1YPAnnZUpqLb3JEJWU737sJycj
Q+/1pUPX1JmpH9oMNnz3r/XaIimSRY+FlzK9tiPvhvTSzrmoLXVa7ORUgoHe
zzeZi0fY9shSJ0HTfeAUibqGvk/+8qtHxGF3JJHf1b7lPtodR7Z7/5x+FIz4
086uOD4Cus4v0b/sHiljm1tmSsMbE4Q2Nb/pAEeLRTNeUkL512X6VAs2t7P8
fVxuUhE+0mVL9JIwKzNaqKGkjNoqsevhsM4mDYU3iotF1UnAsZ1+P57ef6CX
KHY9pLU0kuPqCDl1zPRLTalcBWzmXWAl+lYzldCh0HLLzonj68gFN92oSvsA
NU+YiTGVIV+6750NGx3FQ12LCnUuw66uX6Ij4SP4G5yI7YYQCoo11B9/0zRt
Qa6f9GnWXcN3dJkEuobUUDUopd20clhcu1d4k8FWOPbq+0iW9gkH/rhsZNIn
ICzDR8et9cRDKVQMKo+QCGEq3LL9JMnkl7VVhC0D1sFCV5Ipb9SnLjEdQPOW
5DFnvxKzZA2gzFgC5/KSQ6sh/VX2Su1NmIr1m1ZJifKg2l7JnoNRsDQo+/lh
LhLTS41gTwpbkSei0OiNEtK2JG3opR/ynz7oM7LLqB0ZOOLsylMneSWanfVF
Hf3JifaK7QZk4n89xwprQh3RIFpPU9wRTOLKBsiqum9e8BcNybtipWsriUJJ
M5QN336eo/YAWcasWJK8JOQoaX0vzhLUj++f+k/4k4NqLgFOeo4Oqi2rmRJt
Q3b4H1dRw+dP+jSrDbpmUECrrKSt0kvL8DFTbF3qvIF0ZKP7SKRNrHtQSIZe
/1AMRzLtpVapBnTECifNSoLyMIU6wZGG8puL/eR5Szjewn8sTJxoW3rP1pKQ
npgQdfpe3FzaB687vPCG1pVG6z5VdX4utVn50vaI/9IXVau1JaZUmN5KQjGK
L+YxuEueoaeola6iLqiYUkHylqvkIFlJOJWl9IUEzScvCpIjeOuvhdoZoF+G
qpvlIxjr532aVelKbiYHEw/2b2Km6CyFSX8iP2lI8qrt0p1XmpMWVYirr/4m
J8YILVrknfDLJiX0BUMihFywflEVmaC2HbY2T46QO5Yfe1kkKaU3kRTechO9
NUeHMyqP3x9IjttyzVg3k0xpVfRcmi5xJGITqi+4kxLZJesTHRtHDTQlEk6Z
ROZRUuUL4cSt+qIkWI+6p/s5p1vw6my6tG4mEiyHRTPV6utq/SAlTffrq59m
LRFPlynchfPCjM2khrZca0tbwlBgKHtH8No2/Vw0jbGT0j2eMBzjpV5bl21D
G1zrb2JPb09yan1/JUCd/QfdmAx4y5IN03KvTGCeavXVOOvjMZTWQZJMvls2
Ore2sCChjMqU2HX9CvImpqW5js/r+dILRjmlxAN1FUvIjQbLVWl+DPFsRe2B
0ihJD/etO2Q3hS8hvHGEZBQb5e+pIO+IEz1QRVvHksmkpUL/e0NFYtU2PMrY
2mKulFDmBoNNCWEhH197SNrSb58LAHKEvLNxwcviSNFQAmR5S69bkH78KQ1R
R75rrzv2hKOkdd8yQzBUA0rOHX18xGnJRCTp4JE029/udSq6JJFj2UgU6aX6
qHymTArB0VCCpGI2piqsaZ8+zTElGK9P+Y9stP8XSJYBCmihiJi0xFr9BOML
Pxel+4ICYX2xwBIVhNM27OSQ8kT+x/cPN6UzBAtYKZramd/1PZmhcbufIxWj
VuwGZyInMXakrjRRVN2uUpow2GQ1k3IbICrEHzivZ9/GF4xXHpmtd+RICool
wWornhYTk3894+tLdJQkro4ALMnKVXehyBdmEs8rf2YKFWo0sa3tJ/vu06zW
SvpbLpObKRCFyZK5YbiEXlsdMSSPKGQ2TVAwQ7MSzdQaYtJG+hNUbW696OBT
plsvYDQimLaLBQnswAkJWJ0Er3SYoqHQkijVFyFoAWb9xbaWc/tKW3fWmruU
V5kSVlveabc+qsX7iKh3xUQSKPr19QYkRBMesqnYNP+QbxlZPB0h6e+MJeVH
05rRH00kGMih6j8GSMnRoFsBe0kWVZVlw3JuHVFU9FhtVvhDi4ZyMrQLuLFY
CLGG1J1Lc0m5vbzJpOASyASjO9iT9gpsa298a6KE4Agp6VRUyd+jLdswadgX
p+j7e5emn9Elj0qHscCUzKSnU1F8LxG0XmiItfOQZsJGeuhJWbGl+pUfxdOp
IA6tQhXoIbisKmqTHptSfC3tSlF67Rxb0WdbVEnBQ+WXwKh5IeotSiddHrKh
y/bnUQmGCtxQlNomX44kqM4P+YIcMaYZUqWvoGuPWu5F/YKZ/iYMxUEVozgm
p256zo0Xhb0jBssDOVjS+n4arOWER6P/ytN93W3dQEptS+AuTdiwaiu8bTdQ
QZyQWqw9Yk7dz+rcNcSlq3TTqR+Wqv4uOjWkHx9hH3ud0hcme56AFZkSDmpo
y+3lkUlt9SMylNFkaaQ8jqt61DlBsd/lsFUKoOet/NGpXnKDIQnbnoOFszIn
3/HbNVs4tKiSDGFIjnRbnczLDoYw0qBnwaiA/cV3MkpOaUSoMHl041dpnpQn
yRsrRab7oryVRIbsi4Uqj61oNKAjF2qrXFkBvSSjvWHXqdwWc9SdqNBWWTBH
l9W6Arb8WHdsx0iOdzzU9pWxz1AsSD171HfdSUAt3pfb/I3+rjnJl0xSUv6m
Sy0nj1JmLukDHTZ2qnzKj78pKHpsLMg6CRcrFqRVqKqSgwjSot35MUSBepms
ueTmpZLCYelaylsqp46h75/b/aDF2TO9VVKrVUlVYiyxlKwnF2zD9PcmfCkt
2S6NOX0VWad1PV9SNxPPb/mCsVAfKVLWTe0DCYC1a02Uh4zHvJUvgdOqHuUb
ux2D7Z+XH/Uige2YLIQfM1az5rs7FiFmqGEhivJH5AmJWtRaSiRm+cek71u+
LvHt61eid1PVQSWwIOzlSYl1v/DWkWDqh2xLDhhVp41XcbzTWBp2nagndQNF
i5lyzLLkVLw//rYdZktoyt+bjC23qmzbVNK5IkNHVMn9EghtXtKSNwzX8701
fVnFeoFtkyHKH+HZiNhML+9VCaHtBtQf9ncCrRJUpVBTlAuYhD/5azlPrE7h
rKvpLRR6m3HBOy0bVnqf159mTQ8WCSpleu0OsSOi7pUoUVZ5MloEtLBYSTB6
Od3IK6dXk99+++2VSd9dtCGzMKi84yyR6pdYXppruvw12dBYTGsQ1d9OAkXB
+pXo3YFAC8C+fmYZ0A3dS5hm+eU2dPjkJRGl2OivzfTa+4wa0nwK07uZ3pzC
rQiP6aXt27dvCz5foLf8DntMTf3XCgkh+pt8QQ3JwVKYSEu06I8lMe3nWxz9
B9HF3E15UmJ9KX3jpmNoQ9qOTca+xLIdV7qom5+qFfwa+pIptYmTy1ZY3oHp
33d9sSCPl6mtjcUKp22Wzy2j8SvZVbplqUTKVpGA7RtUeClj08rPfBN75YEC
IS9GrfzRO9V842zS9um+fI552yotwom0pE07AP4tmdKWgpUaXirvJTfaFGRq
qyzZtl9Oxyn7VZhmOqszIbyJjupPnhIhO9BVkhpS3y/13CAsODW+qiQ525tb
tHrwsr+P2PQ11KL5+GlWFCuOb2DeVu1AYGGVxFJ/00LrsvYQ9aJk9NJSURyk
WJfMxNTesCUi+s5Dfxyc/L0n7Yac4rUVS+nyVdXirAYUZUiJSioJyVYCsCs/
5KyN+Aq/98RXlyno5dOs1uX9jKaFff93P9lTnWT0Ukxx2ipb2wuT4wWD5TCl
AnLy9IMpPEFdbp+lGC5dVtMWXmpImtVQp8J6sSRp1SWxlo1ChQqQF7bwUsai
JY/0kg7YVWzVT7NOJi0REaqSY/9qxl4elVv9SZWNptXWzSUvVCxBpdqUSa+g
U/jwEluVI/QbN1dInYqb0CSuSrIgFZU9jbTa6G+yUmBbYbWSMpeOq7bjRxft
AaP9NCsq3LA6KvpRrXX/mNFLW6LWL3VqPiFX/ZeOp4aUKYm6EBUmyUllZLDa
lEa9VHlbokoUhrVyk1Y9ZJuHDpYotb5rEK1rR0ksV6NU1R23x4MY2RcV83Mk
63jK42Es/RRXjSbG7N+bTJG33albLGJJOV6WkvuMajgyQMGaCOJSnCQ1vvqM
LCWiNGlOZHbhG/5v0vE5OL3jofqLC6lWC7cEKMmopxZVCcpMx+lIbcmUrRTt
594tuUbeJZasF11A/bW0l7hYbT1zg1zFiuNJ2FJxTPYLRXSmumoiDJpUGAtV
WH3sFBWe73lQTqzjVJhWpMqMXt6QSZnirLV46TsB0K+qpqWa4p95wZ6lHx+C
b4mgLUxiSg61Ukkl/0ZtwqMCtrxkLOykM1nvTTCaGJF5n20SjtI7J7WlMIhk
FdZ+ZTmxTSwnCeQrXT4HL9qsO+ky6U88oHVCYq10x+0pOuq5vMH1hwy2VaJ9
PwOKzckitdUmCUAqKXYVhmU7Cdha9TrpucHQ0yd84hsLkxI7MndzyYuUUsOi
ZDuqbWfrVBAMi+3j+3eVV/j/lC0Dl+6/S1Rqcu81mXh5h1+lS7ftlv27fZPZ
kmBBFvDkyFEyMWDxEIdFYYJqq7Thjfs3Ykfr1lN02erESw3ldkmdJUM2WQHL
tm2VkCeQFnaBMfl+8qCtlMlClCK5uSSFX0iJanWK4kLWX29BL9m5pxf4i7kC
7yajOvVvkdyV2CPnHV7x9y0YJZVvdOwnA2qofIRHfVRVVKI9x3YhDYrqSexd
cmJ1JkPvem0dt0a3xJR0Yrn19+gyCtCyjR5moc60NSOu9PMCZU9XgpW8UOEU
68TbzqxaSQupq73EmbpH0Z/YSLUJkj7dmJD1J+CKR/uhLdHykrHYjhEvUNUQ
pktV5Ij6ZTXbhkWJkkbwLr0mW68MnqsrcvoAHTWxhdQ2sWR9KXEsPlKVRlDt
7kDm1zI2nzRrVcqrWE/0ZERV6e/7JrPcy2yYvtZRbbIUFQLveehxVwxIS9Fm
M907LezkWE+VsZ7w56L6e/CkYYX/pvAIwCokZ7cLyo0eqrUYlE/Ff4Mhyb/b
MEVQ89b3kqe2ttaC1G5WknVHNaTuUYS1SaL0Mo2SfopuX9q0XpMXnYT1DPeW
0KtMavsuD+v7Db7gyw9b3nAoPydR2IREmyR+tLb4QoV4qVVWYSdNvbD5y0yp
tf4mqJRP6SWjn14sn95KvwntVkgPAdb42lqbkhJSdeThlbn84INSZBVaj1KJ
9T1llNhSfpOKTszguDdi2va1EsDFOb2jrtjUBRTobbtTVviSOgvSSvZMgZcw
FCU3au2bxtjBMN28mdmT6l817WeIqQkhV1ouGS7p5ptsR38pb73QcmsxOWiV
XDpOSuxGTJ8GDjD7OyPdsM+k3z/qleKuobQRTy53cnqfKZqP9GqAbjL38JAZ
C8mK2bfadvgNYDLU/TU9+M37vTexhNyDVCUF6r3LR7SW1XvXyNYXkmpAVdZl
64JVq46oMJlTtYmBtyStieLI0TVNX+gYWn4k9li+5D/1XjBiv8R+r/r27Rt+
TG802O/ydRjagbGQantVqS0hPqa3MBR/0esbtZacnpISUnX095Wxn0JFJVan
PvNChViynj8atTDUi/2MHVlR0wpjSaRUTK0np+xlKlcxi9ACVnjWnWKRgoXM
T5W9hRPmxK0KWz4pn+KiArbKRvAyTfMvf/DBumx9TMoVv9ZaH1cm/y2QWktH
EzSe66ssCUnn0LbqDqZwqxWrs/OWmpcmxakNVBfwxVNVm2ic1L9jr7+kSN3g
MhH55E75q51Qq5SlL2BDN5Np+wi461Q9Sb8V6JCWMLZ/IFIL/qO6aY6LPRIm
GIlM+nEiQS2eFkrJRFe7haItdG3hTbkthhL4YrfU3ntKeUy6tNbPOGif6V9j
swBI8jIl/SSg7mvVTRr546/JLD9Wm/rS1ZaqUqte3/tuB/l+ILbl7ZfyvvrI
pFGiI0ffrXAqL0osYwo7FSZIRyUJbQKfgtgDjTGa6PQPLWJJWa1ddqrURW2P
VZcpb7XdgyFUxJLVX75SZdlOfnXfk/UEjDDcu6+DvMWwn6+bfsB/sfoSw00N
6bQMKIGWn+KLCiwXwS5sgdm2liLr443dDin5fuRkC3sKktrS4oqer5Vf+L4V
F43skmQLqar7XtJ6fjSsY+gOWn+tg/1vN/1lPITtlegLAHj0ms7HEAOVYMPt
nrUROckLm/+am9ZWwpAsIjwC3ONYFKrd7mNCSxZxTWWnJAJmLxMhPWkrSpai
nlThDRJK+JTweMg2NJLvZPoGvDWBl4Vz9FerbhJq1i9q0icTtaF+5gXl0Z0b
AFTyI07ZjKpN5UmPldG2NkwFoRJlTR+rRgkOqlbDBHTeSjp2tskcv+CE7pRU
ZBKf7/aESfrmj7WudL37k3DrGplWYpcjP7Fxn1CJ/viLrNCMfDyFIDwqvKTn
kKdJJmUsA1bPkXZFYpV0qF3y6GBJSRjDt90ralSizddzzfbK6CP1SfodGPIU
DWleMza/XVzuKVrylFDhYRXuQO2Xym4i0v3qhZacG68p6eikr9nj7gydtT8z
VMy0KrDMWNr1sruJVV1PUvuWOW2oeoqS1A3u3SQZUlgO1vT+xVqb7JSNO1lr
iC61b2iJ5UT5+QI5C97J389YExg9Mb43Xcjc0j2OSRV2DDdpfZ8CUJvey/bs
hZbl1H/0dRpLjg2uld+O1WNhsmJbqbbOW8KpADRf9HSjKjma+xtoM+oef1hB
cVQAdjwhd4jqLeTvwI9mUkIYRL6qUlS2S6iSQpTV2U1olf7tdi0StaW0pNop
PG7xLPjEifXIOq4ZW0s+XpZrrTJzQ3iitDiYWLJqu8x6/ofOU0Wn5fq2g6b0
BjvaosJLZ6lJimlhUoUtKouZxJR/+uQFveWbnE3WNcqpVj0q9FoA+/s9iOX0
ZUUihDKTp926WtR1UafFXhaXbbDeZVIRavOEX2uLGMmktpcBVRkMij0qmTzK
WCoIht2A06NSC0yjkBynKnXwSCw9L8C3qfXYnC4TANsTbCKBbquw/ZbR7cik
73TRML7Ciyt9jT0K09ZvuwARNpJUNzUQykNqZakrlFqSNVMSeX3v41Gz5XC7
WYZOj6lJr92y6J2ku3KVtAovY2qps46PcHrQs593uo277QBITpn++osxpFwx
EF2JH3UfAaTmOiy/xNKX+tDZ5MVyUSsIl4RSHVQSChW99iZzU0iY1aPuo82o
y4m0QqZtNeV2V0WtKK/7a3sj68//l3uOrP6S1wqj8KBBwTc66L7Ghsffg6OD
9CIHSqZTDlWC5oqbpZtZx7FQN1NbHqkMbHplkTTbN04tk5aihPYycyOQWt2Y
uARDDGueLN7YTbFLScVQzz0V6JSKre+3OfXn3377zVKxw9pA4SldR1aLgDWK
2xDcmFg393NMS+Toe5t20UseKf6jy3pJ+rUcvShV9iMPBaR94+WIUxUqJ/fl
P9KQfNRLYvUmdikc6rIqLIylRM0/4b88sOHQDjAZm6aKVuO4KrA/bZhL+2jV
Sqo7VgbR0sP6sbjcA8Hjm2x6SkwkKIwP+Z6hIqfMer8DKIaEjbbb9meeOI7h
z+g+4T+SRv3orI2XTdb3G1pSrV6WcqK00K5VKS6liW21nswXrkpa3+OIJVM4
Oj//ll5V9pSMyCFthTo9cdW5crvbnFygRIMG/RoCG9KWkzSs5zL76BGSsyV2
aMuujdUdNZpkEhWqh8pX3lCoJJZbPJafl+bXC05WeXdHidLLJX2m5JPy4kK6
PMK7N0qRsgoLb4VPQkIvGk3VK9GoTg/REJU1ZJ2yLJG/2vzLztrl9HIvS+sv
45akKVTGbpxSBogcLFe1Kr+FYWJMY4oy6XXT5LVCJepIHmt7pCyBX8io9eQL
lagGq7NnSpOjhhLZm7TcGvWVKU+4ergV2wof3rQdiXTu50l7f9qijwAWdCS8
JKOT9KDYGkq+D2AtVzdxN2RHhpHUDCGkJtYcyZfVMrKkT8EWTPckMyV2q7Ll
Iaw+SrAeFTKPGS1Mf/XyWPgWhiRQYp3E3k10ykQHp+QXhuCVJtzYZ3SKRBOT
15WzmiO7duV8hHd0hxqW8iVpy+M2UtKHMuzn6RUjhXQTbgu1rJaJtBXm2SUj
9noO/nqoovfy/Qy+hfySQU9t3qYtHS8V3pRTppf35iPztdRBdvlXwinPvoqs
mucYJ91uurtX05NBo/bxky7F6QSbToQW9N5yyk3Il1veW+EhAdXqW0YKrL/W
W4K13l8t2/F22tpjWBTYtWutJ8/FqaKkqLUNqdZGU/1NQe/lJW8z5DJmtPwL
iczZMy68pJkaxej8uXhkYSSX00G6PoOb5SJps/MLgkEXtgRu5Zhq4XaroL4W
mgyujdULdfmPWC2njRh1DFqzrefQpMOdDqSpJ+xn97Z/l0SZHExVSoXqVN+P
0bcWeyF1PJvRjvqFlPTrcyLyS0mwYpSxM5E+WKGMndZH54e8QT3ayv7dPjuw
XqxTiHXJqkHRGwcBa0SoxFK3fupqmchUTxNFhJw2fSjzmf+zA8sA8V/y+xkg
lUl/Vb4UpuZvobKX6jhefiFNLLSHUM/HVroFRkmM43q+6DJiNOxjKzJH7JXa
JKMmNFL9MdkOodHIEgPDJLJaPLUsEZ/qwh+0WlY8qpYceVXpLkm5VQ2aLFrr
iwalVFmx7UJsC7ueS1RdP4US6VoXvCmH+3m3LvmIB4qt54sNVEhvfKEAYdap
Uw/t7dsvaC65s2H9qbX0vMDqQbQlmliojwkIhiK3LPWSyfz01TJRMWgXBFch
IbAlWzNVtb86g1PmWJ6qevPU9l5PaXKpjShVtt9K5YEF2dJFl8pjfOnpG0FN
Oq0wQU1ek347XSYvdPFMy1S9VQmMBa8P3ZBVFE5vDdG9md40eJfkgTdu4p49
bSVIm+Ih2ClAWqWJ0OplIh8vbbBSVbKSJEu+NLmxQhStd3jDhGP7ckHc7seA
CgCryCkNWQoHWrcupwndmrYwsNCuQyyr1nc1sZ69XU/qClFTi7ebZQPXSKQW
YY+PxTTJ2/HzlSFUC4Y7FE7nA+tL/ZNCUzILOiSVaO19ObGh5bYJFRYZe6lB
/AJ1mPDbaARM18xkdJ5zjQZaBugZHda+qnSi389F/ufFf4VWngGpRSVzPXvs
dNS0zl+SUKHd1CASBYyrhfErnQBs6Wbko5ogBnS1TO4QnkTjCGMvsifwSIs9
YrWJolkyFIhUe2ylzZXtoxXbpGRKuZJ/n+iWsTzYA1iqnQ3a8UxGj3FQ/nVJ
O1lcS6y88Ju2yo8KT6Y8DiN/kbHUhAYHlaEgFqNWHsHbF/Z+4mr5I//+xabL
U9OjHttESbC0WIbJBS3fmfCvWbElN/gt1Hd5UxrJHL1oQSlNCpPRZ+LKoU4Z
5TBtu58YKwaqspxYJXZVqc6OMMVRCdyy8pl1jvJjHSEBgvrKv5Y0yPmXV8t0
AGhfDlwwginyFGW1td7pqMSqEpJCcClD5ak5NelWCHCSt95Rhlx+N5FTVKuv
WBRaprbf/qQQk24VaZFMXpM5hXdDS3ofpjTsqx1SouNDcl/TkhAvGTqIjeHk
3dXykpvXvmBjnUV5kkk3+I37xIM1Sn9/RMY20cwRidV5b9FaIQLf4o3UEgws
eeXTmxjWHSq3D8VG7cikB+sIY4QX9CKdxZSlxAPqf4HBBTAtho+n6MkW3WuU
0Sokx56VJUPvrpZx0LBnDqk/YAltvj7/lmgj32HbZLkt5C/peEeZ7bqrmj4a
sjpJj3UkZb7GWEnYl2gCRRkknwiftgses/aDXConAYSHz9n3c5bZMulc0mLP
BFLI9mkPbptYbRrHnl73Cyr5iatlXWnoEIFINqxPkDrrO23kL/3FpEwmtm1t
l+k6721RXpUc5S1mdP9HeLukdENnuDmeWmF7iA2xn9gH8cSAvVzuHr8hAZ8S
0thl7/3jEn3LWpcEtMmqcdQRNSlBEkgs3eApiEqpruSJ5/UMbnLh3WRZKu4n
R0o+UWq1WVU3+jEoxaPk8g8mhbHDQ+fy+HXnX1Jjr9PHQ+sn/VdoVHjvu8qn
Eg2ihmbkJ398uFCS3pvpRZcNMcLCd1fLGgt8PnJ5g3/KV7+WO8+8Scr5zuHY
zxukyNjYlfIbDalWU8K8XVi/RhplUiHxvNx0rGLF7nr2nFdGn2KnjoR69Gh6
P3lLXuOlPTSeEr03+x4cW5G2S5CUPt3/cYbIFaQ1sdwoOuyNng/5D8hQcrth
H6EqgLecTUlVXV6SdVt7X57MHeUTJ9Y74vDLpCF7+3t8U29HtOVYWyOSaqe8
HKzZ+3cL1TYp22iaQNrmrzSbX1Jlm6Rj81Gl+G+iM4mOHd5dLeso2uWp4fF0
kQDQsKP7r5uknG8XWQsmIewCvWFX1eWPXpC/P5hUFVpEma4B2+7nCP8h73LT
7DCt+qoAd4IFD/X/G9iIbcn2QV/ku3lMZp+eq8WEU+Hh/YWboJsbnGZ/+5aC
vfUUG71ct4XqJf1B9xcW5DERw1v438/ea4VVpjT8mq0in/DYWqXrR9IomY5E
a62UPuC/yh14ST/ipxv/M7+DuqFfTW2/zS2S4kh/Wn1fXqygDI1Ctjnq0WmX
VKmPuOTGhkoRaVYXyIQdqaYK214y06sK5v3sVyVYNky9xAp0W1pbZLo7b9HS
WVVtl/i3i+CH/J8gySjq2TCwWHMzyxzBvAYcYkwBTGbGGey3uLFNL4MpPxQs
6+Y0t1UJKs2Y5fBKj9Heei5QYFCIU/OP5yf4Pp6vHKe/x6SUWto1CvavbVjg
3TSxSMhHCy+Zu6HlMiEA1J+Oasn61PZ+gsKvhF2F3iSx5nqtmlCERLh6N8Ds
Mli12WjS4sSas1XWHfR9S4xIj2aSpwrG2j0C63aVtJ2j0AFsieN+uq+EaIAs
b0lMZTSTFHa1SaEyuS5o6YwVGuemwzv3U94Jp4YdErlZZDbc0bY2uaDKicNi
Du9lnSVVWwlcZ4aaqDxmyPoOh1dphbyfy4bEg9olDHafricqxQvCVgCkpORv
CQSV2FZJCWVUuQbuRkP6q4WFnLeSjSAdKG3o8/ioevbLqkr1q6GEp4fDBkjb
bjcEEZNHNmhhWRizCO2zMAKZvNgSbmt9PRfGn89f9KMVu8soVHS6sDw9nSc2
EpOF3oQK4RG9BPumMJUkAULeraRU4H2Bk2PqGghbOuUuSgi/tppy3VeSsG4e
FWR/mYR4tm5uCZbysEOgF3T7GQ+Rt/LyZ+eqH15RIb01lG7wND73S4REe23F
s59honIVLuZUrUbH5n+uAMVIa7WKvLPKiZAjCTdJCScr9mDZ3uMJWL+0kJZM
DfgMmvbp2AoRFtMWg7b9eH4issS3V9FDJX1fxbpvQerhFYVDD0wI2H7GN4Xg
WIKQLDnUcD27lhL1rmnlGWFYSBopS1ERSMQqmJ4KFTecfC0t1wEQFd7sdpYs
OrsYVi14zruf3L4SzYD0EA21Jf4JxuTp4J3wbDmLTgFV/eu54McSBUxihT0a
OtSQtk0P1JQQW2UTalZPX4OSPm8tQVEOk1HLvA166ga9bbpM+pNTKtwzN7Tf
BEWVI05NdvZUhVR4iRlh6Isl653/Ci3JKBhVoo/YMEODj1ohlz/hl3SoRCUL
jVqbCJyVeR+BaUz42pvhqJmUk5vlgaliSyWplUY/RTalJKyZrr9budF/7/uR
ls6VvnCiR0b9lbMvA8POkN6o3MAkdWl9PpvofZd5gvF5+rkoAk7HAjv3k/2M
1Mr/VymJred8qrVW3sbiMiViy5s5VP6FRERZAGqoINHmmpJCKul/LQb79wuB
sBQVR+zDXBV+pXfPaa0k6SQBtTglaVe+n79s1XdQyTpOtah//ns+1G8JHD0r
DDhaQlWUsQ01b4Nia9XQDf87RLM4hZN4co3+dlsJEjK/n4zZMGlJ0mM1FIsp
UZNi7melBEPZQ/lXXicIkqRaa92W9OfOK6wr1vd7PAHeMBqgnmlIK3OlqLtp
Q7me+/clZxc2BEmtmqZ8MqpcoRWNAhUm02QXh0od6tPPiAhGydiEzTuBRUyF
U1LYxQur3zqe/t6nVQNEnGP+lew09Cn/fUbRZksSIes57SoeW2g9tQDSw2KL
sOtXYNYXInOU2Be8yeLN4dWSDa9ue+mka110IXVW88iqXUQpRcSeKkwmOlSy
tU8BKlFThaq5qLK2CjbLwI+nxAPW2ieb2DA9YFVbx/yUlKdI04XKjGABXwK7
ecqPzKhdGz5N6cVX69H4TkEpbwXjI/gpGXm9/SmDjiQvqBA10KMNJMe+CGfp
Uj5tUg5tJrm2XQQ1mjd5ayjlSVjdP6aVY6esUsJZIPX5dAJm9ZOPBSqtnMl9
esCNhTo96aIU75H+JF1hq5uJQASGrQpXRWDJMwW72FaKkCt644WspNjZqgJ+
P5/yr7AlofNJq9ZSXdIKna2k/SQ8ZYrwF8RSplP9tVrizaLa7iNL06QcpE+h
1r5Vsp790xJC2Caj/1FL17+fa2Z9VIevhx1ncEzpmT45goeB6JcqxEl8xrcl
64odIq5WENiS/qaYNe7aPNGS3Kdk+bRiBRuSQH9TsJQoK18Q9vwR4ReSdcRa
eaXpNolwKrHuKGBtroU4saZDM+UB7dIoZF/XXPLZovQIoDCWWN3ydQXM4xyq
Dx+xXKdae3hlKVL8I6/H+z+SKNa6JkcAFt4OPQHValWSpCYpbSHHtrJiySm9
TOV6+YPko9rECVbpQ15sQpJfhqdoR7POniSAO8opUZwLbvm5nGUk9UZ6KaXj
TBGnIOqRl4YAvdbCuaSpXE1v6V0qQKZtJkku6U6Toc0UbSJ0HFPyrV3rY0lK
gvVOBW4Kk0wS7uUpBEfvNBDJrmVghf/W6gNezLaOWwwKW8vJ+mjTlyppe77l
v0JDJPv7IECq1Kkt8yAOL2QdIdnF85IOMLaQecKDprUwEV70K6pVu9BbtVZ4
uThaAEnS8pMsHiElHrTKClNhkVHwXQmWJzJvUmKs2CVhJYfS8ZXIhKpcppNh
ewsjS+nAP+nRGZ+QTPPP5y/EqYnS8iqk13oVGK4T6IGjCqzncERrjAmHdVl9
TwKJjZvaVV95VQZokbaf0aRCDX1CoqqonJRbDEWMZMgiNbEZBXmZrC+WZEtC
P1W2v2tQ5XbnfoN5Unkhk3gmu12gCFujCi8tKS02e4nleq8V6tQvWmMkTnQp
Qk4t19O00IoRM0ogXpYzSZuKpJKjflF0KKOXSjJhUDyqvFssxBZuu7xaT1ao
tp84aYn+Vqh7lNxJqMpvoEqiJvTUDxM+2Vnh/1pKJmwhrhO2BB2VI0Lrps50
r2Q3tuQsRU3fIlAYBFLDocLaUC+H2ImC/T2R5aoHukCiDMknPamQFKZa+1eb
75y6mOWE3LRrzkS1rgat8g07WbuLtwgV+bS1h+HKwIBEW/q2mNZSq8IeMUYm
liQiGckho3RUqOfbpNmusfUIER3Z8NILDTsaVgrKevbP0oRMa0xRhuTJ0/0c
duz4RsxjiQVpG6oLxQQ2IYvp0pruGZsUJOVJQ1mOqi9pi/3HdRUF8yqhZ8TL
JTtHb9l30y2mvBE2PanbF78ms4cG1nfUY1vpgkpHMGUvvbSAFjswC9VSlLzW
YKnLyp51Z5yyeFRYNZRMar6ePbNXKexjppNv+SGXR1WastMKTTmcEvua6BGt
miA8I6kr1XW6X+iIQB2x8sn0GJpZTzezX3jRZUzPa+E4naG8PWnU+S65YOkl
/VviosLWVtK56wEmkaMPIPCSDPWhKY0hFi1m6C+1JVQkr+WpScFjE2lTfhL+
8oTLHuHaCWvkk4+WVWUgiVn3CeeRIj0JTKe7+AIbSiIJRBc9mNsSCEsIIR9V
6dzbHujprI37WeKK8CTHU+o8U9VrvOqm8bGmrdrQV+msABUeN25IMvmSMr2W
NFMc1YRWWdLuBax3r1QmghQL5RBNqHDpBjcyWmVNYHBtbW9Itbgbpa2xwib8
mrdMJp2vTDqjIBfI+vGoX5F0/ZopcbmvJQdp+tjC7Q3ts+Ah6j7gv9iwyi1L
lreUob/JhK21dB25JbUqj5NLeilrPae2hGHM0VPdcqxtDRV33irX2hTHJKy1
mrQ2bf2sBipMJO/T/9Ki3m1ZDNArZCVtd7t1nhNvbzWk4zJsrtzqOlPtfjy/
PJke0iFy+kuZJEbCtklXSNRZbIQcVVFbnS9wCYcdY/ixD1PI6KSy2bHhsEl9
xJJyL2D6yP8Vmu0VvfaV7LEhOatNtiOKCr99+5Y6IZanszKUTxGxLL1FkTpo
dabm+iwAxT7kt3ufzy/tHxeNhArL6f0fEttPPtULlUmt7mVK28KhdX9L0DtR
xNgr+ul1CKv2xlC6vHRKcRYAS9Zp1NA+q1rPBcx+LoCt+8k1K0OSPQoEabnf
UyNFWGjX7eP1q8/bbk/wkgvJEcVDhKPFGTPn2KE8yMCYloSwKbOfHa/IaHRI
uW1uW9mqBBsvlXYbERJTtUOmncqJbWpue51FmzCTcCFBj8hIku7E/hTglehU
0FKKz8JUTHkrgRi0dHsu6dh0dJlm5PXcImlE0DR5pPqJKMsG1WoUbNSIMeQK
m9NQjAn16M5aL0kYCVSPqJD+2kKqUuXE5zFjDWmt1a/dScWoRy23m56Ooccj
U/5Hd5XP03+FZsNHVWqLnuOMhjTLkzBqtt5ZVNbT9IJBf0sBRyr73POoX9OS
DmOjlppv6DNaTosNVKLzRVKCAJThBHuH0KAqa4IEUm0SSHG3RlNCQix4VGKn
m/TIyRKFMcKRWdsqeHupcbRWcAjCpR3iJIu08UwW03MlFUg+7md8rcsvMV0/
jAYaZyyk5bbnaUORngVYElKMCGQCT1Wf8ktza9oaJTHa0ZMvyliKRaqiwgRM
XbCF1tkir1ZuWLILPEuFxmXVG6f4UvAoz1Y4oZqU5qkVzrhoFqAdH1m3YxSa
w1NKdar4SyYKJ3hJLpM8Pvtebn1uzwlJLZXvZ4jVBXIWG1oXsJbI11uV5Kmh
rU08K2NKrAqnECR+Cm/vChAJR5Zo1iOFurSzr1goMxs6uaqlGB351Oakyvbt
dDRK7qsXtG+dKjrVwbuYUBFL9HRGvSOXFZIdr5Q35UFVEUJsaG9w0qOBIHdS
jDQVefW6nOpToZ2wtnQA5V+T8mCVWOX2MiG3ylXSOkXYaDxPzFsAH88Xiuxc
QDEi5MmQZd6KJcCIgfJKCLbtz0PVQcRZ9vuqinhYklBngqH+Wl+KfCdz5Snb
EkLgFduR1S30dhkiHNNrttL/aYJGZsWsDFgf1VPkR0k41iadvdBio23pnO5q
yBS5Eq7PwZUEajIDi1WYCKRCVW4TvV1jbanX5HKyZeWT+4R/ek5xHM8raJEw
mtPCQ6c8pUW9Rg0WubWofFqdicYjw2gaVdkBEDFst8GhuYnkbVVaNZHvtm2x
hQLKFYmlv+SpklZKUAmJUZQpLvQs5uigklCIUrSYplx3zf1UEBOd3L4S2bVI
VNWSra4+xdMmSNG3b980RusZBT05t/KWLhQrt8ySxyXFZcRPkBIMfbCi8Io5
JfnYqnBFgEmVrbIZZUOVFN5ulOzvcwExTGptHFGmbFFtHLV2hzfbj7GzniY9
9sBZdb5SOr+yT5OXrPPTwE5bA6od02XxM9Z1cTVt9aYupyJ2uLNvI5BaHNwS
8+vZhTSjTTTZucDS2BtiSelv6ruGQLuHeqRVxFKqsn/LJZX8ju018lsBgk3v
BiTXtHzowrZ6SoM9uUQq+WKJPWogf/V0C8HogiR5Ol4sSSNglzcrDAj7yfMI
2FHiw/3sS9XqOfkU4kPADYFTnhHMJfNJiYZGm2BJ0W8f7G7XTywAGlRpS25h
TE+gh3dokf4qHmpIOEthypAtRI6wN0x5NKfQ0TfNjJaZz/p6MJbrJlHptfFS
j7TVcvPmem5pcVbSM3aMqZomQ2RU6SorT+vjjeN6rLSeVK/nWP0pH7dcz0Ar
G+tvu4Ml/aokAr+fnVA1oF1aZPbl+nK9K5E5Yjj1WDFLtcWvblrHj2K9rVVV
XhIgL2gaouaU6Ikk5T/le0TKmA0WWU/xUi8svBVmSXIwveNBK/Mlnd/eVpjs
Vp1w7udzw87G8XUadDOp0tAjMN2+qVrLZHJzSTSLzi2RpX3QWHltFsgX4lAf
a6qnO6/BiAQqoejvZxdKzqrvSmCCkYT39xEbM/t5R+sNmwwlrxVMIi25ueAN
bXIfQ2M1WIX6wB2TdfZV9dtvvy3XVwkJJjzgokO5LR3edtpCOxX2g+spt7Ne
KdEAJQBqvXC1JXAlFkeQU4JbDCrfgZbEarm71dl+cKQ40Sn6azNJUoWRnE/3
Jg9ya1EpSKqyhUr7K+mEqNrSMTsqV+9shuxuubOsF4U36oSXJ9XLLewtzi0B
xVZ2mzPCx6VCKtRA2xKdrZCT7caxAsMCQxr3c9odJeXRzz79YMf6NYnucWVb
aadXHfZz8WNNo3LicMEeChnQu0ZLyK90hKK+Y4n6qPyTj/YARPGkR06YobwC
UNhFrGsgnMqMLUy3WMKWYGgTJZ/KF/QHe/KzwgMOPH7XDRrKK8gNUUYBOkuh
Ld6CXmHPZBTk6LElCGO7nqMe2cI0JekJfDputbsnPc8h/qnQjpPphHw/JyDd
F6tFiwGFiQEtUQLHU7tYvYnCkkXphqEM18ak1momv9SoiqlmZdVygi7giSIZ
GrXpwGd/7//p+JFga+2SByIjVhaoafGT5AlbOgBB03gTqfCWfkv3Naq1g9jK
XRQzSqOFbREqP5Pw7Hq5vYBCIkIsWnLzuAgnkPborHBFGqyJz/Bm+zhFQdFE
IFWe+r8uuqhvpwFhf/9vggmAPZPZEv0xt5+rrLSysqOH+k58EmlLBn+s1cdk
Vozwozk7E+HakuAdl/QEQ43SppLSHBlhRFAt8rafacm9QE2U7VSlZ7nr+cyl
MIwWKVg7rMdsZpDg+RW6v6Dz05xIMAppSiwt/JIw2bJTWJo7ptxaUeaVGQRJ
tRqXDTfppCHWypOhDQsPfTxBPCv5xJL1gqxPQJNyxLbDaJPOKtPaSQOxZSKm
qY1S2tErS2j0w313yypReCWP+rf02zQpa14TdTy74BnqMLOf/Sfti1Gt3YNY
5J0r1Pbp3mzXO5q4SprLUhzNLen/yBUastHUbWBiIG3KqBtrW42vvSS7Fi0a
Iv1US1GmG0FPS8g7pZ2QU/+hNQPRsmSFYCOlMyACQ1btYkzZsOZ0Tpnhej9H
Pxss3TSRZps0XsQMDnG0mNGG6qxqtucbZDqhtQotDI0suoD0kvDKXdrqpK47
heoU6cdBqeyb6NJOgjZ2VKtnUAXhkiiXmw6d1YwuaBE/Ov4qpJGTmmy5o9E7
dB/5tAsznKSW67rEOdFCmtddp1Xf97NP2uMjHRX382uQ5JSFiqYVkjJAej6f
bynbpWw6++przsQVOm5PhNTT5N1+hnUK+0ynGsp6rzODMoRH/Vqw9k4k72dk
Lc/Jr+RgUqsEkvLilKXUqrUA1LRdhyf91k3r3efzhLMwVpJ1xDplR8VXxm6W
CYxCtVutUfJ5OiEvFmmv3clUnYUcPcYhtUoaTX/jHSFReGn7Q4EgrqwXxExK
dmFJ1gtdVGt5VqKW667JymUrbZ5co7ZqYodAFBJ2nlYmr4cn1vR2PU0VlrTc
8nU9tzM34aAMduCyqCOXVUzjcuO+QkVVdorUVqp/ao8nbNsdCq27sFqddM6A
PCufasIeQyWusPAYO9KGhuwu/qhnhb63nyO2ZWPLWkJptxj2s6/eHIJhlJXJ
FH3rvhpabnefgqVtqcQedOtdj5h1IaqLND2I0xhRmJZM6zufkJM7yhV5isrf
Wp8nc0SIPXHSrbS9x7f0/7KvIf7xQEn3vKhWp341XTRgou6nnXCHLr1dD9/P
bnYJIDH5+bekQUnm1nM4IopoNYjmcDTbz428hqm4P6dtGh0Uow5G2qgV0WVP
XdQE8bnC9pw4Ry+GGZXvO2iiDhmmcCtLGhrLDwlvSXRCopxYbf0UGh1ZoSds
6c+jimYcZEZ5u7nBlTQ6oFZKsdsUR16jdKGO1C4XSuKEup/GwgJOJXTDovuk
f0kPTPpxYvqQ03ganJccLye1O3RRy9h+3nE682Icl5s+tjsQ2CGUv6fX7/IK
/zbEdHlz9Id4ZhmAVdQhO0sqg2v1KUEX7IJky12vvisGVUIa6KZ+vc2yn7Ho
pxmKRw+ctSGWU4ZG9ZV7RanazyUimaPaxKfKJDGsncWA0v7K9D0X4aQBhBra
8xlUa9cDxMl2ifCkETutrtez2+B6Y7lRa8Oq+1Oe7S7YB/UTcg0HCZSdlGqg
wg1drtA1lzq4WXlaaRDCT3j4ZT2dyw/5EgIyaU/yX8me9+q9Y7kiJTjvEG8r
dFQUIPLT5D5DqOL5eL68Z3f6dt9EdhMqnF7R9H3PtEuCQYswxk3d01nYRKmN
FGaoIe5VNdZTtSS+yZ0OUrElhOt5DKJLU3upyBWMNteGttWCaW4/l/FJHh0h
Q4VG0jC+EJ+TBg+p0rMUdZC4spPLfvaWcWrJ+IOdRHFO4TShtcd+dja7vyNI
W4YX8pQOAO24Z/VY02l3meZ3hTGS89EJFCYrCQzKb5dICTli3ST3MdkQ21lV
L8sCQDEMkuX2gIpfpz/Vb1kqLti9mNVMkMrC1R776AIbDSlXtEBSmX39FU0q
STNmmRNTOblmjXZulWGqomkXxewshgG1gG0iARrDP58nfsq/1qIYDraWk+06
rR3DSfItkrcEneR1jrOm7QSH+vW0iozaViVMWG7FtCqV3BBlg1hg23I7oCV/
13OyUDJ1r132ZcuFuLCd6CJUVsYCOGIrhK+weinyS5ZqJK/7zaJqueXBksWA
PcNJnGzXl37iDV4OOoryLySiYj3vlGJUu43usEibVqlpVYtNlGFaAxyHO+vR
eq6NVVL9PYoh1AJbtam8tW7pWtAzraeWBOsL1qYTgL4gpLzKa6slC9QN4xVN
u+mEU/UXNy3PW0IzaToYorLPg7RElRNLZRevjpBTltWupJyU2qQO6t9kfUrK
AS+Ot+nsi85b0oJ5PwNEGWWD0nHBb0cte0ilhlDJhgdYtomNAk6LtFa3NwUx
b2uJvSkkhumEYZrgdDz54+aODpnJYmdb8aMJPFRR0ypPDRGJStqzRHKT0FoS
bNIQEHKrVoP4SikE1OXS6QHaTaY/ng+Uy64T2+qhhCK0BylqsbCNCC1aNJo4
scSiWu3wNFWtZ6+YJyaFJQtSAQxIe9r2ulSXKaZEwnp2PDS3XJf7fD4U1p6A
kbJhVUoJv42FDcqGLmGbUMkH/JpsP7slnl2jPOX10QnxcH+JCY8c7aHomMOJ
IGkbczbZqvLM5du3b3SEQnqK0XIsTItwpEj1q+n+BMcSgt9jpJ5JXxVGzdaF
tx6TYRN7+6DvZAgxJM0p3KPNbp9XmJHVBB5irO+dkFxIhwbWu9KlkxeUmVo9
vbSRwn3Efo7V1A/tk4V1ilcRI7bVnfWcE3VzqsdHZOiSN7RFsVC0C/oe6cSJ
j8BgN7DnrhgpXKuraT17RBdeC2lUrraK2tFMSuxThg3hszwTsdSFdA+Lcw16
ZI1SgHCnjK7pHirtqlA/XpYl0BClRnW+HruYwY2PcqgRJOQoUCQJv7WoLidO
xlYikBpicJNwWj/Y6BS0Czp5WWIpvJ3Z2M/euPJjL9tQHVFDy3VLXYrrLoPG
HCTTLvJVCeG3O5cdupbds5RW2/U9YuwzvH+li9K0zUdnt+v5ajQFiFja0BOW
RHZJxyDTSAsNelZebwpSbhcq5BRpPi5I3k0U3KSKXNDhGiWnkPaSW8JEhNNi
bIfe+OF+LppIXs8X0hQtOUIjj65R1RHUpocV6jtxrm6OQupC6AVBUq+1UKOp
0bFiY91G85IZMqeGCiHJC5tXthWPNU36sS12+CRPOMswvmUZaf298e4+ISo1
tGB+TLSTBosWMzbZe9x2LSVhyYEGySBIGxe1ssMKRPlRPdb9JEkC9qDAYrYA
UiFh0/WA7cC2eysbuqfGmZQ6vHJiF/N2O6M7R6L6E97AsbCXxOgYMpXvPFOy
c5w9f1OG6e9yXUKVW++2hHW550cKiZYWysmWwZmSXbGPBlp0pUV4iYgl2QLY
0oXobGSFrmJhKB49UJ1apEjxJ/aSOSusmvcz6am14sfjL6LUsvpWT0A2ypGm
9WjLXptMU74YTQe8U0sRXK4P3+yS6JBkhxVvCpkqxwxZn8OTsYhiitBOqeha
OSlFEtJ+HOdudRaBWTettk95RGu5QrbtViLFC6vSajb18B263M6LOutpKiS1
1FcH6gf8Zlb93c9ePSXUGWzf1rUTjhXpdqZuULbS6jV1CcqjpC78Cqupb2B6
VenPPFXbkl53k47ekTvW3/V8FxrF0v5iQbwKn5YNS6mFjfSSFyOsQ+vU4uoo
Lel1+Bq/bEfdEn2UoaOAPkEs90A8sWSJ7Wyv501nmyQSKApEzpaEmvUW7vIW
cDrYJ5nlzis+wiE/arCOIEW4qOs3OA1cK9+SdDJJNx1lEEziM9m6UagrtC13
h5ooSXlQ2tdz4uv76CUTE0pSl9ZFl/WX8vNfw+jRxKc85CK009BubSgd2bMC
vVWJXbmjXz1WV850WkL6hwR0mXDSbp2YsUfZ6sXn86GzpVQ3RHbippFhyy2w
JWk0Kam/6/nTXbzHU++ljFalEmUPMys/Ep2MnQjSqL7DaqQvm0mtQvqUFwnU
NQwECmu/sn3Drg9t9HFbgbU4j48S3X8RDDsdKOG9UGWUZHVfxRS21ur6LZ0m
6fpKI0VN7L1sYz1i69lFdQCh1SCOYzqGE1fp1sYxRP1FXxKN6hRZ1xhpodK1
XM9U/Ou5tCCKbtZjeocqLbimpX5uISkhGlZaDFCvmIa6yNeEIBFtopEaJmzW
I3uPq+ZUaH0hqmmtqAoxWFNr93Ebeu+SkJE2CgfN2v3ciTj/eJ6LktcDA3f0
9hbue0DleYcTe6tBXe5ufi2h0c/nz2Ewo75QB0aFVv84khzHtd+I2c2L2iJU
eHowAnZtufO0QomWcxu6t64HiD2ixQ4gC4YIZXvVoYYkS2FKW0YkOzXjHfQB
B1/72VHV5W6RSqgt3WLqIHWSydgIbrdjsngSfm1o/VUxyhBIrcUSVKveaTk2
oQGTBD6ej7+x1u6MNtB+JAGtkM7kQmH+lWyYtJXdCa7QWwinBkLnXDWETXRF
pwsSxZOS5cEWqkI77e7nDW5n3rQ2XtKFErypsr5TW1XSvT5uh1V/cqQXJp2v
jF0YJJeX63KqvLtjLzUolCGLOgDaYw1q+Pl8/QCr6OhjyZJ1nT4FRlU26MpA
umET27aK+NSt9zCW9gKI0K4HejqC7ymtKnWtvp/J+r6f+7XSiqwvCcp6xs72
HAuGugrptyxZuvSQxyrRMXw2kvv77Wxhj/Dk+9laKbmUx4xdSRY3MRDqFJJG
juue+vP5+FUnZbsBn3FgLolGxT8w0oGqlUecxENaCGlkCQ8xs+7mbqW3Fya1
ugekCZpwYklfaROSz/DwHVXRkZdljCyiFxMa3EegR3TkNRlNuqdTyVSV9A/U
dJyb1pZksZckkPt5OytmC4k6yYajfrsUKQPalpcHbH9AJfbOVQ63PHrWIUjP
UcnHJE/40REdJ0c+3UQ3J3sW1bGQkt3Oa6zxrkcxdJA02HPpFHdibz/niKmd
hrTrJ0+33MJ234cs2UBsWQns5yiUBnPVj7QoTsI/mken1azxSsJUqBG3Rx8r
d7/k3SvRDD7u0BHfhE81qH4iGQcWOzUvdy/rALWhF1HVJzx3wD5JRK3nnEi+
aL/6Xfj14tP99E089EKbaDzRnoCXun5Gerfb9diQkf40bX2651xbbmHErP1z
f78fRxW1nel+SU+gyFLtp3vCpSW0tECE1AHIHesXFSoJSXJL/ye2h2SCqmqt
m1NlzzCTdxhouu9u3N+O9i3dbMOsodPHwLZD7gec+aNpuuWRQ9WzZelynwhP
KUQMR53ky35OWzoa28BpyOhepk5FQdS13CTiMIVmMgUbdQmM5pJ7YYRxBtfY
oTly2S7Otxsudk6J8BSL/bxhdVbabh7cLr7HYxm7st3PG4QmyqMjerAztbhC
0DAR7bQsJzHsJ7qwwQwN1BR9u3Oh2vtEzUvhghuq1C7Xk+2RIMbUxprADHUW
8NwIGrKOkJpbB/ueV7eT68lh6rTKwzptDy1Luo9QycJ/F8NCAvbhvmeLUO0I
bJfW9t7pXG0J335yrpCKU9b0zV1vYVv8NKrv3N80fEnsmNT9VIhW9C9hsOFO
bNjx01KaavfptQeVt14Pnu0GJZJZMHWqgOVtql4ZGtnoPrWcWENbHtDfMJBq
rTkiDYXLsEk6l+s5O3c2amsduVFCTfCQx8JGzWU4StQRRXreoiNDQa7lv3IP
flROvpcVplKka+NXJm3VNfRqCOXL1KPY0LQ2wZRutCV9dbkusWVtv0Ks/7/2
rna5lVwF4vv+r3zM3dqpQ7W6GzzJOv6K+JGaaCSEEC0Qku0S6UwXWmcWkgrt
bF7WD86rkFhfd+V27uiV1XaKIVHzent1h57ZaNjOnQaEdjOCYnQptU5aS9/e
dBOls1Jb+G3+dhdZ/6pro7mj7ESuIbEKPMw7CmZTbfSvsu0ct86FNQAbSxOf
6mgYiG2LDXUgHdnxagmtbJSgQLWkW65VKpWcpibdfN2sObxNWZ9VY9iwBtjt
Cm3b2jvQ2NVgbOb28vfs4C7ojocAXKeAzAYLSfmY+g4wIZJT+RO34+fVsNNv
ANyGGUUUfNohq2CDxjRRQ9Q11DrDAKny3EuOcMBW13/PdHTgVnsEKNsL6kSH
jG1144/uYIivaJj4bz3P+6Z6pTnzXHeRVU27sDy/TZbVvfjPWW4cuOrKTiiJ
hxW6fHW4OUX+xYc2ht20DltdhCSlmrulXjngW+29mqOvRAPWYVrtUWUcMnGw
wQk1PJwOVbA8aWZRnxSY0RaYtgB2umkSdT+FaUzUKu3CUDat0C0yCWapQ8jV
PLBEt6I6xm9TigF0hd8jm8roEiM6TLsn6ppUQ+qoWJEBhANFrkabYL26zaTl
hUbUJRZUfny+yukPlpCRUDJZjQQ7ogdq1SnTEk0Eul3dUtEwi8PJXTAqwWZ0
Y72BYKW9Oa4UZFUJjrQL10mAkhl7VLbd8hV3Qnf8PMCRZ7e16cIeu2NSO6HV
NZw5WQCWDDgdlCDVxZxk62K5GM2bMjYhoellvQJN+ulyR6ooqzH9V9tqQ9Ik
6gE5BBg8PuSKaAVsNxCaAmv5JIy+7cZ1+ZdULQFYRsmH/bjqBwmj2apzJmj8
j2Qn0Rbeq7s8d0cCraXKNe+tDaNBfaxqV4Re3GWkYe7oWQMtHClJbvNIpCK0
vU6qbvtDCrFddGw7smku1AxGLDaTfJBCQCddQac6xPr2VZczoTp27rB3KyQ2
t2ZpJ5TYVkO7btyFsjGAH+ouGiPsNnrhLAE9AiJFE5gDQMomq5C8qvauczeM
qCvXf6laNyM15KpjIx+Sk3pU/iqqFcmKTZBXDqRY7dqWUL9Wt/WsCTrlT0w0
XaAlndKsHua2JBjJHI3934tUmK7wG0RiE9y6ea/Czt70bU2QDdEHI8HCLtpE
IhOi+hTIDWJTQyxPwYUmIdX8lNXQZBigjpfEJmdHiyFteewuu9NGiPFjF1jH
zpRqT9P7syqopNs+nGmLg1LHTcpJsag7kmX+cz3S1GBohxTNEadVYMCkD+pF
rdb21i5B1HsXBmAT3C/bNOD176fnyIB1dJ1IKoMmDAcVVXcpmFL+Z1iVcrTa
zSCcdEups+NMMwUROnYUgLroEqoBC5FqwxpkiIElRI+dclCShG+Vv8CpQbFS
JveiwRL+O1nJUeG6OIeYNIEinAIpWXFzqx7jrm1IaSpzkk03qmpCKYGlHReJ
pKxCrHfuOlcUECvbux2ySq6pb8ohkACUQtTzoxCyhfgWFWWHgzLnX0vToZFv
xRsUpL2uCxomtrVRwY/SN5T5PVLHhGoZMpml9lhdg835qKXlCvAZTVqfZB7y
POq2dL+swYB10JZ/nNisaROtQHrOFfVEqM9O4dq82xfjkK0mtVr0toFvMSTT
iVBt06jLiVBNq8wqUc0Qc3q2G5Yfdd/xQIAfpGNEzSCcE9ZS0jwpkCZR30Y/
FwGoucgBrjUSZNvFouqmY8U4JfnTrWCdlqwmB22kGN6gQB1L1dGfWbHMVeBO
fu1lEEkH241d5SG7UlVYtduwLdz1hmqufNLFP9TwfUP0OCe8tahBKtSSbuox
pC+2Ohf4SnfcKoZNrXfxeazrhuqhYE7yU3bOOq9OpV0wMGhVR0RDw7flH3FP
VDxxTS61zP6dJLT7YmsJNNguG2Y1UF0HLDKdEmgWKIVrHfdF0rA3Z+FHyXZ3
LxnmBYr8pipBkyQETz3diNVsaoLsLp7QhBUOb6VN0kWt0awbN9VC/OkcuTMY
ZaWkWYhYjT9Ww3N2zWpUPuEmJcSkY01C3mRbD5f160bPECoN+ZNv1YFfmtMB
qhniwa9yH+Yqt9oqPKNd+U/H59HYoS38HqkXs6i3ytQVkiwnJZjHcuSjmrTc
rBid0XaqI+tVg8kGFMrqeLBpvZm6QVnZuoadPLb+MPaOrUa2Vu1nxqttNTSi
LdggT5XYsM1upQf91LPdsv006Tx2hQ+g2R5CLOdmOb6lfN1QEzWv8aSdR5xN
TecSf+2x40ZWatUy81fFYndWAB2dMrHJB32wvROf49meLYbbxeDU2KRZN3x6
INmuct0xwFMcRMGb1reTErfCsB+lTiGPlyTEhPSUIdeDFW2oqta3ZTldzXDI
6iyTylWGeqa0EmbbOiGrZpeXDncvC+WvXmwXVF9HR6f2JJiG3NWRAtOqUSdd
1W61F6uVIrcQot6pvsqjORxiZeujzjUOt4I9gDqFPF6S6jrd8mhNseRUIyfL
pLfKGU3UGmRx0IwcGiH1Er15p5icpm27fNRJ/lgH049aOWTdGJajYnIswlXN
SjsknXQFsNnRWQnVtTUY5YYcsIlu8VKmtVOLyq+nJI8JyJVosEPhA8iu+bFG
ShQ/YwWaO2sJ+qDdRfNJzxKgszSbB7b8UQwbSxSTLkWs8oRgR3WiwlzWc2rV
FZku1sSNrQ7B6ucCB4h2ynSjmhAY6Fjq1VGip4040qqT6zKlyqfhp1tn7FI/
bNCegvHBtJ5L5Gv0KDNWM0NvUoXh0qf6tssDk23YldyavR0RGjaypQGWwaB1
xYpEm0+wKw/F6tSdFTtX5NKMKNZQe3NIb+Ew5D9xLigCwVfhwiqdVlL+PL84
5GE4dq6xR6v/R1K+KsBRn5pH1TqdmWHNcNM09GjND+vTMZm6JLQcRGVnhHZ0
WGJfdaNLZ/AqJ7XqopcSPgSqJBK5MxpmlzQjRdlwnQaOdYZAKGX9VGGGwx2r
NF0AiwP2SK8eD/NOJw8WoyNrY1ihVnUMjbLx+OEukqXAB7ujmt3WniRM8BfU
C7ElVmgeiEdibv8NwBFVIOFTXA955xksyplGVzwH70xMutypHaaWDCKlrDDd
EFJmjWI2O3eWrnBp9lm++6BuHh8viSUKO2e7omrKIR02U+AwpNECDMbaBjUZ
HHSIoeomUSWMxstY/qSKXP1vp7GBra3f6dbqE3uxitIlNL8SyeNbCuqwjt0j
01savs1CdBQvQ1aYZ0lIk3hm1a3K5cpD5lrdKPqvSsvg6m1dScBGWAGuBobP
XZ2Ea05an1jlapyWebrfgKBnlQerWfPGahSdDtJqpKRDSDdTiH1Smmqvql3X
wxQVT1mhPMrBKkH1M1jO06lT3eMlsaQYp6QZEQWZKQey9YCTXjw160X/pkNB
9a62ZCtc4UM0w9ixd80woH+3G+EEs0/37Tcov0o7V6MJwvonORArynYiB22i
WrVjL87a+58/f44QWnObNAXpbMCuJBd3Cf/plM7GbOEDyKqFrPe6Hs0UzYij
8oDfryGvgTLobot6zHUdoI2tdlrlyu36l5RbrtghFHQhR4qr1dXSDpDGrkOw
pk5CxuqOscduOVK1WKWhAOFgVYJhp6ofKrGJ3Hr+Z0HQmjqK18F1kU5fV/hg
0nCdtnI6HWrPNpl2kLLSTrUhWY5aJjbvojVNmiF1W+8AEIVbJRQ7JXAX/2e/
GVHdEocuT6gcYk13qySqRlL7Zf3UiYUYsqXVSRlWicZstqFtaxVVAsdrUDoL
tIVPIfSql/FbT61fwGroInP111hOcxcO9SRkcevsypoEhXmVdNXec41PkPnV
3eu4uK8jQ24qf7HqNKy5r26dwYkjMSj00uWIGnZKQ+1RfVRI9W5XWuJPaZku
pUbS1ltNA74IxnXgXeFj6IxaVNtkxtGk37tFIAUpRzU6NNEUdHHrImTkE24V
Qg4BALzIV5MR52t/xUL521Ui/64qx4a0atJyp2opbVg7V7XHCk/VbRWiGCGH
TXbVIhXptKYzZpyIIdmOlWksNTuW/+uQFe9ZMusu2JKdRDWhKrk0nwenKRty
cWgqaledmcVqG12cXOJRro/YUqa3m7h0AI9mX0DjtaM++j1+aKzjUF3kGrqn
Cwx0ndGBkGA49st6k0SHOSih68K6g5u6VUePtD24JYrJo1GUzl2u6D6oW/Ox
Fb5VDz73GLI9pPrq9DsTSuduul2h8kT5rcyd/INyCrCDBjqt6gCjAbUdiK2v
D1gN586upemuLcXqzXW+1ISIc7w2WQlfX+yDdPatSQzmRNyUre3xZrWuQvZB
o8p2XS+zWYGr5DLe57EhQUL8YGUm/iq/VWyMlk8Msa3dv9hDLmp+Wc/mOiVE
M31VOGR4VIfdAF+NrJxvJHxC2Gb93RCcp+CF6tQrmw6q3q1sFPUdZHGqKB4C
WmxirbGzbdLGRQ6sq7DLTemIbO/VUbhIrLM3y8pufjsOpEMc5jB9JDYpmWZB
+b8+zep6cSKT0yBtWHWx0OaL8NW1uZqSPYXY7c1WVEEbUmLKym91EusaRWJQ
tbl5VyHGPfJBeA6CqTziEw5HepKiqqAk3hmfi4W2vm6+SNvK86Xo5qjfgnC3
iBOk7rvSWTiDZJABEKNFQ2sWZ/o3ZAddbdEdVJZ4tsNovPZR0mUASA/Ue8gS
keO6VKIqf2qYDdbCuUVKzakmsULHNtb1Cht2rHQgmOqMZvpUMy+OcTuVnY29
IKnJ4QTZalc4S8Upo+2e3WxaSIYgBSVMWQc656KFZPnUUaz+1Boh6kTraNco
ZLdAWbYlyUWuK2i/1l+TzCWMLacZHMJpTBJSj1SCItXig5PVbcdemfLNAV6k
tl3TgeH6cNqFp2ldZE72piEimkH1aHNlNi2mrKhOyukMwceCRbu7ugPfXOHZ
ETXMdc1EkY7FMGWZKuqSCahYm3zDf3XNsfUxLWAVVSKVwWh3L+6vlfIjAH4m
i5IAkBQI5Bq+dpE59dtxo1xW2UaC5yWB1TJLEqxgUwHYXayGTcMPCVRIY+Hg
FisuYoXw0Tve1saGsWIH9UO9q1qwoc6XVRfRnDHAcl3WrPZUnhcnq5lOXW9B
1p67Omon3ZzSK+sBwyX6sNpsQlp4NFf3R9Y47MHtrlkr44MNsGm8WAFXFd3X
XORDBNWvbmeiwSDJEwIx7B0FjnV5oYa0/FJ9rBNvS1b4dxkRzbL6r4Ouck/Y
WjsWDnl1bGhNNESBhAvkYNmS1eFbm5iyAtSrIYlXITSKTdVSdiKxApyqETdi
SCLNu9p0sX2uC5pNL1gxui5oLCkLyMzhxakzj8dLcheyGM8+JkQUXPtPMoZ8
/55m6pBzd54VfzGl+b3z8T8Bh8ZOHIiJ3fgTdoitjhcl6Q4UBg7KpONmZ2Qe
7CyG0kU+Jq/CvFFArmQ1cFMtL0JW85QhSViQUxbnAI+AM4tvU0CKD1RZ1wGE
TP1AJzpi5GlT9zi0dOuGxQg2x0KNRelBmVDukXCkylepSOHKhKaJRCX12pF2
8cNJslLRuN6RrB6+qpxXoGEfiiXaqhBqoVGWhq/0ATnQKZhWQ4jV78unC3EH
p4xNbMrdQoakrQc9Jst1JaEeSaW0vVVhbs5LNtlySi0q2TDJznVH3apynsMr
kx3F+w5N0+BXuL2g5hErZAY4HJSrs9C8jXKelWmtnYJqHSOKQbIRW5SzgwA+
pFsWSIAu8ND6mqOwKMbjRcwJdDkWkhAr6N4nzpEm0r/K4TXJmt9sky9FN/X/
T1Q83GrQ4FztkyZdTRTxPpicYiFWEx08IC0puS4gKlvxCede64EO3UhyHaZW
qwoWuXbUtT0JWRs7xeK8qLZRh3YIM2le3ZafYfWClO8McHWglsg+w5ko2hI1
RHsbDnEoDUUGb2+PxN+7UlZgi44AI9RXykc1liuuNYt+88SBIEC9Y+VuCOE2
ICiPHf7A3w7hpHlEs87Yt29HJw3jZUmn0k6HmgEaT4grr2rVC9WPVUvW5NTy
z9SnarTgKKYUEd0wyV9f3T29M/LT205p3cBVZpoFHGCX1ccKN4fQUbfqFtGO
7x1Jp6Mr/AAajJaq0RY+VzQpN33A5lSfjDnA7JVt56PLRKnTkK9jpedOPG0y
7EltSTdMGpGVrUhP0HSCqNV1/DCLdqTP8dE2f7LwA0jxRVaK28MACNCBrHLT
hwv8kgLVJ/ViJh9DBXXN3Vh0UDo6FFsP6ZCt7qYPGkBESiOBkUOuALfJzyqZ
k43aUbdloCb0rOvAJ5Ed16cONgTj1kmluLbO3ir0pcsSdqtea0gHgeOZtuSX
5qokokzvh4RznWTSF/kYyGX9xsUu6RcCyVw31FWiIXeuu4xOz7hupMTS3cZK
54IGjm1J/s5g3p3s0D54vN1e25ooWS8m5HFXW5zxFe1wNZVNKbvr3w+iqtWR
YVNggDLXA4Ui1lEmLEf2BkuBndRSb7FwODsL99OcsS5rSN2FBJ0d3QFZtjWJ
qjc7O59EVsO28JOozKOztBSfhQ21fHhLVo01Y4W8MrHCDL0HeHx1/ZaDrnhU
oscKAZDRdBl1RCUqDzr6LvURDuDWU+v2AUuI52W9n/yRpHbSFX4G6QbTnstU
faxG9mCPfrAhVVMfh81tNu+mkdves/+GB2xrdaJ3eLC5ssJqpGoci6oCOetG
SRfeXEMXTSPc1K2+Ipk/Euk6L13hBxBF1LGaUIVwNp9TDxYv9JYKQ3xT9Yi2
pwJTXwgHQhYuPimQV9kSInBClnpG0p7FyIwd1HBIMKOcVf7Lel5GHFC3duOf
clmR+HxqlP6rAG5JLX+wXvrXHjMlRAW6U9YelUmRzRgEmG44OHcQo2Hq7kBR
QzqhV+EO0zUiGjTc6Qe7HvyvDhPLCa1dk88DNZI1rc7e3p1oKhU+ajxDUi7F
HYeAqFMvVbN2jvVpETicL2XScjz/UtkU4EjX5ovjqL4WfgngyArloYBHt/aW
g5X2zKsPps4CHy/JU2hOMXV5dSy0B234dt6qd/ltra/+iATDaNOySvlQtubT
Brb6ClmpYikkrq6tSmm8+C95cBwjTyc0V3m6V59NdryfqgQbjNGWzd4wSeee
QgxGAYUAQZ+LgFJLLmvUI2OSR/vtuk5ZJZRVxzZWQNlqtI7RJqXK7dlEFwhd
4XflNOuYjrpyjHk+OyYnyt8EcCQN122W2976yHUdKCbW0or/YJlVTgl8qo/n
4Ch8CVmfLifIVC9o4coq10WADtxzBDhKSOWoCh01KepMW5ovq3ZLOu8fT/lb
AX4QGrwmkENAejxo2kfztyF7YQuQwTJRzgSgXeQGmkpLr3RC7daAUsqd2F3v
tFzoAbQdOKmXusY4v5NHw/XL+hVYdhJ/Cf02gJ+ZXwJdOTLEtb3i1d3Xqjrq
fOt4vTN+DFPJtrskGPI5HnRTYLFJREyqU3tPQJkEIEuD8Ohxp/sIXD+tPq3Y
nVq0lw8mO/xOJ+9OJ7dgarTksDpHX9Y4nDcNB2chwTMhpdoqxLpddj3gQGb5
ixBQiOtsTq6pCxwXDfxmysueuVt95gpwzByWJN3q8RvIarhT+wcQxeTRzDgZ
VThrPIkUy5YAe3IW1LaxjnphbUvI6jLzFs7K9uYx/fFg98tWV8MQ0gFcdTuX
/EI6aVq/k2ZrPOpgdreeu+OnvJVGQ85DyfFvt8entpgPPHrvcGS50SrUrYrI
qiJquwBqQ3y+rp/MRXk0RNcBJqwSv81ZW1KFd4W/kNBoyXgsmkJsEq0uxKcU
ZOzWmEowtxbrwlL1ERoa5NsdK21vLY7o4WbMQ+PF8yllopqsf3XrTaEFJUZo
UPPk/hKyetjKKSKIhXxeG6uFQ2W4rHu1CkkCa3M08tl1Il3k4jfV1OQeNklZ
Z4g5PdP6QxLacwdNOES/ayB5MLuu9we2ARdtgJ8hNPIUCocCzDhRWDtgh655
RPOxsk48FUyP+0nsIZvXxQP23xBkYdc2Vh/ODqpySWJ3Crat9v6byZrNYEu/
iqzvs3ZI1hXNla1uF0n9kvF31VQ87NRGGvNYdDFBF6ld5Op8i0knYXe+RqNO
WBhRCaQ9q4FBS7+TVCFd4e8k9WL1yiK37LN+pWjIDF9uXRrHvoh0+3kcqUfj
40hO6z1jnHoFIw4hmnUmIdumDGkdG+RRme0lJTve30wb4GdI87qUGVO86BGY
TaYhw3qeT4vI5nWViBOGfWnuiqcj7FqxTC5bpbWxhKbdUI2qUixMiVW6cGXT
BvhXKSGArBKsMJ/mHIU27aYPxIG4xQrkb8ya7VrfkthWNloNtJeuZj0oSLEy
vu1Cqe2vlTbAB9IMVTTb7ao5ZNIsdr4NcJ0jAuOZ0Z0EuJVER3cS4HROXWLP
AKdO6bj85JB/IW2Af4ksxlN2nVg4J4LQyNPFpfNtMRLD4sj+m82SgjU7DVBi
zQ6wuzAQLsKx52XR/D44bi6q5Oz8/T6y89hN7m+jIU9FCWdN8AZY7HAeNO80
FYAYKmBbPQLW7TAJoDdn8O2sGQIv5rtIIXqRhuQZ1IjlJKRqe5OlDfCTdOaG
iUIVgRwrDLtztBQKQS7y17Ykj8Udsr2u34Sgi4mqYvDyw1nYTYDrq6t855sd
3aaONsC/RLTXth4qe5cdzrHevFIeslZU4XAf9eIuyQ8LBYk9RC9Fww1bvfqi
d3hmPrQupVCskcMmSxvgM900Hvv749ncKa0HMuZYv+SQcuz10PluqkadEhws
JFEMBDthn6jz+LUxscq0UC1JUADLahvnl2gDfKCTDgINskqQQxV2EAsH/wBc
k28lTOmCYHNTVXIzZugIUwrVqtvFp7vV1vliakgj6nLm23ffpA3wmei6VDRG
RbY6xK4dmrC7bD6N1fVoAWUrp1tSKCuOFbpVCxne7NRqQ/nbjkLWnKq20X2G
NsDvSGTzZZDovCgEPaiDALHN1bVRNRtFowzai8b8+Jbk6U6+hk6rYQhah7ZW
t/uu2vfI6rNT8qaZCoP47/E8O6PBwvHYF12tuvVsbnIWQyyhyzlHYS0CdANW
+duzb2SeLlSIdQ20bdPZHmUmN50nq7etzG8Twme2eURKurNjRFY1LD6aBEMO
2BFxQ8FsNq8bUaxb/lxXiev6rQ4kP/HvjrNRqpuo33SGNsB/glJ2r6hSyhfp
GVbhCJsPSNQFQblZsBBbRZ89uKd8HT4Xt+5s3V6o01Ckes/194U3fZU2wO9O
l+ZrkLUmQtL62W7fGs7xdQCPNc63gmnvJCddyUPBBiEpkicxumN3ktCKtOkk
bYD/EJHB0+5Y68QKzKt893LK5dKD6PQZkaVpsZM3XmZEo8A0ZEz+W8inW5cG
PegwN32JNsB/jgop4Vwe1UGd03GzTkeHixAgHKk5inItT2QyV6O9A6UF7N6E
HogzaUm73uj+Nm2A/xzZG24pXg/XgSo8f3CGANeTett8uJJ6BuDZuNqUqLu7
kkecaX0but70VdoAvyMRWM6c/FZlrVav9Ohcb3bhCVeKV63myN/mu7AjeqtJ
tlhNZc4YUNs69Ys1YlGwb/ovtAH+o6Q2T1llqlbIskdRCa4T767TA3LQY6wi
XV6wUDu9yAexdQjETT04ce48/o7J70Ub4Hcka5a0r7yuvzNC/q47Lic0hYuT
u/icmBeC6K06045JrCuSHUg3IlIL3a/buL47bYD/EGm4Tle+iRD12uQMwLXT
lLAc+cyQxAgBJRzEsztuBbgKqQPcSL8XbYD/KNGnVGzazSaQbTVaEOot3mIl
COt9VBQvJUgOgGeVaHoceepYSsLuRI/+zXUnYitv+h5tgN+Xzpilus5c4+fo
Q2jigI4yAKFajZYRKw9t2+dqCOEUx51NoGLprHI3fZ02wO9Iugu2pMjVPDm+
6q7GUUhsc3GER5U2BIbdELCORv5xGuA2sd8pc9N/pA3w+xLF5HELLFii1ewO
mvCLb9WDI397LhaSfu8gGRIhxBr5V+U5XU8iTdrc9J9pA/yJpO6P0GfXgcKR
cqsH6xm7JSWdl6+3l/7TYcRQ3w7DxGTd17S26Su0Af5EIsvXRJlCNWW3jq+O
B0qDFykrEiMbN11vKa9OTToJaZ+ud+Y3/RxtgD+X1NrRdR4PHQC7Q7RL81H0
XIPtP3/+UEPLDUWtaraJcgvItM85800/RBvgz6Xhc5fpNr8JR1HFRCFmsaaH
Vhab1DvhFCtEs3+vf2ePvzH+ANoAfzrRFc3judyrBXKAfwz5ruMAgOMtVr0I
2p2e2zN3rRBunVFHP0Qad1blJqEN8CeS3kJJuHFas2CveVvI6NujXK+4a0P6
6AfxJJMY0JrO0eOrjetH0gb400kvq+O/5EnxUhkFwJSX1qCaOrICIEPNthGp
hHYd6LKCmx5AG+CvQ4osxU66vLoFV4gzjeazbLHm94jblwB+dV9E04m36QG0
Af5EslfLFA726ohWI6DlGg/TKmGJulC2uS4vKeG3Hdo2pyfSBvhLkcV4ur0z
ffrsiN67C2l6VhXrjrgDOx7JVQltIvBZr6Hm/hDoU2kD/Ik0fH6c7o/Z7TBm
yKO55FYcFLzZZN3p+1XCLTj4cPmXYsU7Sbsx/izaAH8RUggQrGI9dK5WVcF+
0QoB3H6TA32SVF15tR3uusfq6PXtpqfQBvhLER6cBThZewdGb79oNWSuF9T1
g9562lWkuLZf5EJdb9/9XNoAfy7dtH/6/fG62YJ1EPXkvjHerli6/nY3zcKt
EriSoCTE00J7w/xZtAH+RPrS58dt9Kv30nUDbr05dj0AnEJ6m5wnhmo8G91P
pA3w59L3Pj+uLrtLvysHJayDnWpIrw0HbiE7jk2Ppw3wN6ICUXdfpapR/Q7F
3bpxE7w3F4dNL0Ib4G9EB6bsMXSsX+2IFW4CXL9AlU7HaGGJFeA3b7RueiJt
gL8XISQ7Dzs4XPvVi1TffkRdV5JoFpBNL0Ub4O9IKck0yqvTjbL5upoFL6bf
Z0nidLZw0+NpA/zt6OK+ZLU7OLOuWQE+XLNR+GPqbH83y4vTBvibEqKvPLVC
Ur8PDTnoKZtyyPUMrqsW24O/JG2Avy9RBH75+zVrtuYFfqQAAwDdZQ9Iryb1
ig7CNsZfjTbA35f0ixTwX8Ta4bi7r3MJcO6au8M6Nzva9Gq0Af5GNHx+HH8A
ReFp1wGs0yG68+w/PdJN96IN8LcmSo8PX8p0BsLhtvbYXcKOYNNb0Ab4G1H3
+XFE5fERkvmWKRYOX7FoAZ47Mn8r2gB/U5o/P55Cw3c3KR+6SLN/i+R9aQP8
rYk+ktml3SjFXZ8e1fOvuJW72/RetAH+XtQ5UPvxz3CuvAr/AfL//ve/o3kX
jZPj3h/xfjvaAH8jOnPWTH68vDMVIqLpK5vi32+ZsOH9prejDfD3ouHz4whD
gnC4+6i4xbZ97cj8A2gD/IOpi9XpJhvF8Pvrjj+JNsA/mAjgww+TWYw/T/BN
d6MN8M+m7vfHNVynT5U+Q9hN96cN8M8mxKz9VLh+eQs23PTutAH+8XRxvz9O
iLahezV/gtCb7kQb4B9MmGAv/J75aQPlsOlNaQP844kuqXa/P94dlm16a9oA
/z1EQbgmz7e//jzaAP9gGj4/nusxmVbe9Bm0Af7ZNGPcZtU2fQzZX5KKDfBP
oc4p4757z/Vn002A78jtM8h+fnx4u+mtaTgrCbcp2wbwwbQn94OpA/imTZs+
g86sA3uRf0c6/13le35/G+0Z/wza6P7ltCd306ZfQv8H2/w7Jg==
    "], {{0, 458}, {331, 
    0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag[
   "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> 
    Association[
     "Comments" -> Association["Creation Time" -> DateObject[{2016, 7, 7}, 
          TimeObject[{15, 13, 47.487527}, TimeZone -> -4.], 
          TimeZone -> -4.]]]],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSizeRaw->{331, 458},
  PlotRange->{{0, 331}, {0, 458}}]], "Output",
 CellChangeTimes->{{3.6769078150277987`*^9, 3.6769078264839697`*^9}}]
}, Closed]],

Cell[BoxData[
 RowBox[{"BuildClassifiers", "[", "ca11", "]"}]], "Input"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{958, 1155},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 15, \
2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 261, 3, 148, "Title"],
Cell[CellGroupData[{
Cell[866, 29, 100, 1, 63, "Subchapter"],
Cell[969, 32, 856, 23, 91, "Code"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1862, 60, 98, 1, 65, "Chapter"],
Cell[CellGroupData[{
Cell[1985, 65, 130, 1, 63, "Subchapter"],
Cell[2118, 68, 8143, 207, 547, "Code"],
Cell[10264, 277, 898, 26, 32, "Input"],
Cell[CellGroupData[{
Cell[11187, 307, 387, 12, 32, "Input"],
Cell[11577, 321, 180, 4, 32, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11806, 331, 151, 2, 63, "Subchapter"],
Cell[11960, 335, 8002, 204, 699, "Code"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19999, 544, 107, 1, 63, "Subchapter"],
Cell[20109, 547, 930, 24, 167, "Code"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21076, 576, 96, 1, 63, "Subchapter"],
Cell[CellGroupData[{
Cell[21197, 581, 95, 1, 44, "Subsection"],
Cell[21295, 584, 1206, 30, 129, "Code"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22538, 619, 123, 2, 44, "Subsection"],
Cell[22664, 623, 837, 21, 129, "Code"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23538, 649, 97, 1, 44, "Subsection"],
Cell[23638, 652, 672, 16, 129, "Code"],
Cell[24313, 670, 120, 2, 32, "Input"],
Cell[24436, 674, 459, 14, 54, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24932, 693, 109, 1, 44, "Subsection"],
Cell[25044, 696, 689, 17, 72, "Code"],
Cell[25736, 715, 535, 15, 54, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26308, 735, 71, 1, 44, "Subsection"],
Cell[26382, 738, 591, 15, 129, "Code"],
Cell[26976, 755, 437, 13, 54, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27450, 773, 99, 1, 44, "Subsection"],
Cell[27552, 776, 1870, 36, 129, "Code"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29471, 818, 114, 1, 63, "Subchapter"],
Cell[29588, 821, 5412, 136, 604, "Code"],
Cell[35003, 959, 1179, 31, 186, "Code"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36231, 996, 99, 1, 65, "Chapter"],
Cell[36333, 999, 8984, 216, 832, "Code"],
Cell[CellGroupData[{
Cell[45342, 1219, 96, 1, 64, "Section"],
Cell[45441, 1222, 68, 1, 32, "Input"],
Cell[45512, 1225, 804, 23, 159, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46353, 1253, 108, 1, 63, "Subchapter"],
Cell[CellGroupData[{
Cell[46486, 1258, 324, 8, 32, "Input"],
Cell[46813, 1268, 64199, 1266, 515, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111049, 2539, 270, 6, 32, "Input"],
Cell[111322, 2547, 72592, 1758, 5058, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[183951, 4310, 223, 5, 26, "Input"],
Cell[184177, 4317, 41255, 955, 2455, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[225469, 5277, 225, 5, 26, "Input"],
Cell[225697, 5284, 43364, 922, 1907, "Output"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[269110, 6212, 133, 1, 63, "Subchapter"],
Cell[CellGroupData[{
Cell[269268, 6217, 393, 7, 32, "Input"],
Cell[269664, 6226, 1098, 33, 54, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[270799, 6264, 255, 7, 32, "Input"],
Cell[271057, 6273, 2098, 56, 159, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[273192, 6334, 253, 7, 32, "Input"],
Cell[273448, 6343, 3109, 80, 334, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[276594, 6428, 458, 14, 32, "Input"],
Cell[277055, 6444, 11778, 284, 1034, "Output"]
}, Open  ]],
Cell[288848, 6731, 70, 1, 32, "Input"],
Cell[CellGroupData[{
Cell[288943, 6736, 242, 4, 75, "Input"],
Cell[289188, 6742, 53443, 882, 473, "Output"]
}, Closed]],
Cell[342646, 7627, 72, 1, 26, "Input"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)