(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[     40734,        978]
NotebookOptionsPosition[     39596,        933]
NotebookOutlinePosition[     39952,        949]
CellTagsIndexPosition[     39909,        946]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"m", "=", "40"}], ";", 
   RowBox[{"n", "=", 
    RowBox[{
     RowBox[{"2", " ", "m"}], "+", "1"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"p", ",", "1", ",", "m"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"q", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"A", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "m", ",", "m"}], "]"}], "]"}], "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "2"}], ",", 
   RowBox[{"i", "\[LessEqual]", "m"}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"x", "=", "2"}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"n", "-", "1"}]}], ",", 
     RowBox[{"x", "++"}], ",", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"y", "=", "2"}], ",", 
       RowBox[{"y", "\[LessEqual]", 
        RowBox[{"n", "-", "1"}]}], ",", 
       RowBox[{"y", "++"}], ",", 
       RowBox[{
        RowBox[{"sum", "=", 
         RowBox[{
          RowBox[{"A", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "-", "1"}], ",", 
             RowBox[{"x", "-", "1"}], ",", 
             RowBox[{"y", "-", "1"}]}], "]"}], "]"}], "+", 
          RowBox[{"A", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "-", "1"}], ",", "x", ",", 
             RowBox[{"y", "-", "1"}]}], "]"}], "]"}], "+", 
          RowBox[{"A", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "-", "1"}], ",", 
             RowBox[{"x", "+", "1"}], ",", "y"}], "]"}], "]"}], "+", 
          RowBox[{"A", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "-", "1"}], ",", 
             RowBox[{"x", "-", "1"}], ",", 
             RowBox[{"y", "+", "1"}]}], "]"}], "]"}], "+", 
          RowBox[{"A", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "-", "1"}], ",", 
             RowBox[{"x", "+", "1"}], ",", 
             RowBox[{"y", "+", "1"}]}], "]"}], "]"}], " ", "+", " ", 
          RowBox[{"A", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "-", "1"}], ",", " ", "x", ",", " ", "y"}], "]"}], 
           "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "x", ",", "y"}], "]"}], "]"}], "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"sum", ">", "0"}], ",", 
           RowBox[{"Mod", "[", 
            RowBox[{"sum", ",", "2"}], "]"}], ",", "0"}], "]"}]}], ";"}]}], 
      "]"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.634573714564926*^9, 3.634573714565926*^9}, {
  3.635008775080319*^9, 3.635008777237342*^9}, {3.635008917721222*^9, 
  3.635008918910914*^9}, {3.635009117245626*^9, 3.635009153972947*^9}, {
  3.6350091955387497`*^9, 3.635009207560956*^9}, {3.635033764836194*^9, 
  3.635033779734729*^9}, {3.63503391292714*^9, 3.635033913660553*^9}, {
  3.6353873910369663`*^9, 3.635387396516114*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.634573719495208*^9, 3.634573719496208*^9}, 
   3.635008853215969*^9}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ArrayPlot", "[", 
  RowBox[{"A", "[", 
   RowBox[{"[", "16", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6345738179988422`*^9, 3.634573847355521*^9}, 
   3.634574422069393*^9, {3.635008872848133*^9, 3.635008902517435*^9}, {
   3.6350089590114737`*^9, 3.635008959509865*^9}, {3.6350337443618183`*^9, 
   3.6350337457139683`*^9}}],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJzNUsENg0AMc9mkjy7ECCzQ/X+VjoPYTo4ixANQFBJZPuPze/nOywTg0+v1
yAd/3o7Cca0YHNZ+Yh9GvWlqw6gHz3p+3QODYRcnbKlz92Nf+sw+xdJn8imY
bPbz2Z+kSZY+Zx7VI5qUqQJ5ckqQ5aeOk+WnSlPKExp5VJkn/iaE5mfTgczD
/oTS9M+eldKg2h/SJPel/qhPzJEvw+/rmh7yiTVd4jmHue35AXYRBO4=
   "], {{0, 0}, {37, 37}}, {0, 1}],
  Frame->Automatic,
  FrameLabel->{None, None},
  FrameTicks->{{None, None}, {None, None}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
    "RangePadding" -> Scaled[0.05]}]], "Output",
 CellChangeTimes->{{3.63500887855976*^9, 3.6350089057019987`*^9}, {
   3.635008950951207*^9, 3.635008960208261*^9}, 3.635009244469322*^9, 
   3.635033749158412*^9, 3.635033798027269*^9, 3.635033940720522*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ArrayPlot", "[", 
  RowBox[{"A", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.635009322285657*^9, 3.63500932281673*^9}, {
  3.635009455929064*^9, 3.635009456874237*^9}, {3.635009730746696*^9, 
  3.635009732044359*^9}}],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGCQhGLGUUAGYGDEFXC4QnQ0pKEAAJcUBEY=
   "], {{0, 0}, {25, 25}}, {0, 1}],
  Frame->Automatic,
  FrameLabel->{None, None},
  FrameTicks->{{None, None}, {None, None}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
    "RangePadding" -> Scaled[0.05]}]], "Output",
 CellChangeTimes->{3.635009324080566*^9, 3.635009458995329*^9, 
  3.635009734132513*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Total", "@*", "Total"}], "/@", 
  RowBox[{"[", 
   RowBox[{"A", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.635085298984042*^9, 3.635085334925037*^9}},
 EmphasizeSyntaxErrors->True],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"k", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsGrid", "[", "\[IndentingNewLine]", 
  RowBox[{"Partition", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Table", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ArrayPlot", "[", 
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"100", ",", "100"}], "}"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        SuperscriptBox["k", "2"]}], "}"}]}], "\[IndentingNewLine]", "]"}], 
    ",", "\[IndentingNewLine]", "k"}], "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.63507346761471*^9, 3.635073469124752*^9}, {
  3.635073516855836*^9, 3.63507354484552*^9}, {3.635073598256454*^9, 
  3.635073626326104*^9}, {3.6353873485216217`*^9, 3.6353873492253847`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt10EJACAUBcGnTYykEX4B+98EMYOnGdgQO2qv6knmqwEAAHAZJAAA4JsD
YwUb6w==
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {54.285714285714285`, -54.285714285714285`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1zENACAMAMEWJ0gCCRjA/8bCytaF5C55Ed/XnqtFxLglAADAlyKrh6b6
kBwXAADwdAAkgBvm
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {162.85714285714286`, -54.285714285714285`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJztzjENACEUBcF3OEESSMAA/jsaDNBcfjGTbL997blaknH7AAAAfpBbZSl+
WP0PAAB4cAAkgBvm
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {271.42857142857144`, -54.285714285714285`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt17ENgEAMA0A/mzASjPALsH+HEN9RIbm8i9JaVrrs8zrnluRYOwAAAD6y
ppiYd3t5Ge2XJtXAp1/1hOV+/TwAAOCHG/emG84=
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {380., -54.285714285714285`}, 
      ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt0LENwCAAA0HDJowURmCB7N+loUoHVEh3kuX+23j7qEmeuQIAAFwvv2dP
ioYn9AMAgAUfJIAb5g==
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {488.57142857142856`, -54.285714285714285`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt0LENgDAMBMAPmzASGSELsH9Hkya9AxR3lvXdS/Y57j6OJNfcBgAAvCwt
SxY0Zs2/9e2ROYWNqb25uq+W/wEAwKcerUQbyA==
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {597.1428571428571, -54.285714285714285`},
       ImageScaled[{0.5, 0.5}], {100, 100}]}, {InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt0rEJgFAQRMHVTixJS7AB+89E/CYGxgvOwOWP5Zb92PY5yTpuAgAAPuV1
jTLKUlqYUZbawluKC5/9er+we79Lex8AAD9zAvcCG84=
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {54.285714285714285`, -162.85714285714286`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt0kEKgDAMRNGpN/FIeoRewPvvxJAW4tZZiP4nwd2nhKz92PsiactpAAAA
wKfo9hmKqvO8pzIOypAswXiXNP+GYoZkCipDcgVr17PD2J/tDNvYn+cK5x1e
LdsCffuL2riXl77P3wMAAMDPnKLXG2I=
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {162.85714285714286`, -162.85714285714286`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1jENACAQA8AHJ0gCCRjA/8bC9AJg4C5paqBD21xj1ojoJwUAAB7Kh9RB
5aVIDTfZHwDAZzYkgBvm
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {271.42857142857144`, -162.85714285714286`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt0rENgDAQA0CHTRgJRsgC2b+jASSaCJGCFHfS6+XGldfa9rok2c4rAADw
Wkq6+UNj+vnvPmZ27W98h3djnn+2PmZifwAADDoArUQbyA==
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {380., -162.85714285714286`}, 
      ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt0rENgEAMQ1HfbcJIxwhZgP07mtBEoqI4B/0nuUhnyTniOmNKWpkBAACA
31Lm7Xag0qjeu7n360Qljp59XXd27+eM//vOvR8AAEA7N61EG8g=
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {488.57142857142856`, -162.85714285714286`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1kEKgCAUhOGxm3SkOkIX6P67iDRSMEgncPF/8hazGQzfonnb122StMQJ
AAAAGITiqeWGRl1Ty9/7FJ6/kGVu7NRb/th2fp/quaHRej9/339UHEOj8unv
UzYO6T0875L2r38P70br/fx9PuyfoY39AwAAGN0BoHMbOA==
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {597.1428571428571, -162.85714285714286`},
       ImageScaled[{0.5, 0.5}], {100, 100}]}, {InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt0rENgDAMBECbTRgJRsgC2b+joSApIIQK6U6yrHf58lrqXpaI2M5JAACm
xMNmTGTbWZ+5F9l21mfeidThjP7/rjfG+b9v9AcA/M4B9bobzg==
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {54.285714285714285`, -271.42857142857144`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt0sENgCAMheGHmziSjsAC7H/zwgEa5VBLMPH/GkLK4SUl3XM58ybpqCcB
AAD8gpKGtyNR43t13hyq9dQ7EtXPaPvVebHU1F3vSFQ/o+1X580lUwGJip05
Oi+G3b/2zZlo9qV9+0LeHOzfO/wfAABAugCU6xs4
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {162.85714285714286`, -271.42857142857144`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1MEJgDAQRNHRTixJS7AB+7+JkCAZCOJp5/AfhLA5Dctmt/M6zlXS3s4C
AAAQSB8ngVqS2V1NLcnsTiFL5HWlt1+9d2OdQJbI62qyRF6nUWDCcf8lbsNx
/6XtwofPX39Nkzh/nf9f+vdfej4AAFDgBpQbG2I=
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {271.42857142857144`, -271.42857142857144`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJztlFEKAjEQQ1Nv4pH0CHsB7/8n1N1OZ7SVZgT3I28ppQsNYUhz3R737QLg
tq8ihBBCCJEGXz5CEfO1rofpYsB+cbQvqtV7GO6cv9e8Pu+cHoY7C4JAPC8o
lTavY3buzHgzP5a/hEN0fix/CYe9H8tfaoZOIJ5z/vz86Bl6h1nBuT6fw5a/
dB2G/su24Vsfopq2RRHz1/8j1Hz/HXMj52e+Yr/wgYn5a8aT5PPXlHz/JfJn
3mK/5B5cfL/lVPOrarGvTubv93pCCCGE+ANPBDIZjg==
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {380., -271.42857142857144`}, 
      ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1qENACAQBMGHTigJSqAB+ncYFAaJ+JnkWthcm2vMGhH9rAAA6bwOgIMA
ZHX3Tw+BLPQPAD7YJIAb5g==
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {488.57142857142856`, -271.42857142857144`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1kEKgCAQBdCxm3SkOoIX6P67Fraq0ISgkPfAhcj85R/nvK15iojlOAkA
+LlI9YXder+ZaAz0/hDezgN45tx//X14SYz6/es8gEL/AcAQdq1EG8g=
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {597.1428571428571, -271.42857142857144`},
       ImageScaled[{0.5, 0.5}], {100, 100}]}, {InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1LsNgDAMRVHDJowEI2QB9u9oUllIkcJHLs6RXLl51d3aebQ1IvZ+CwDw
qug3+/9DDBaM/l+rvg+Yk/tXoYdZ7ku13lTfB9zTv+eq7wOAKRetRBvI
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {54.285714285714285`, -380.}, 
      ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJztlcENgCAMRYubOJKOwALufzNGLrZYLOEk7xEOpPQDl8eajz0vIrKVmQAA
AKZGyuitVzrknr11u1+S92W36i89bkOrrnZf7/Fe3KjHz4/db3wewBxo/8V9
aBKV/6I+tHlP//X4sJIp3jqYpvwX96FJHHq/8XkA/wD/1dbBNPwHAADwhROg
cxs4
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {162.85714285714286`, -380.}, 
      ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1DEKgDAQBMCLP/FJ+oR8wP93FlpdoSQKKs5ASHHdwu5Yl7kOETHtrwDA
h0T6W+9sohxndHb/O/nxRnn/7GGf3F99biM/nmD/7qG/18gPgC4rrUQbyA==

        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {271.42857142857144`, -380.}, 
      ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1LsNwCAMRdFHNslIyQgskP27NDR8ROSABcU9UeTC4klYMmd87nhIutIf
AABwo6CsWvuNE8qrte+d50Pp+9tvnFD/Tl9977y5mB92VL5/9vewSlS/rs7z
Ue6vfZ+rxGLfRvdvdt5czA8r8P7Nwf6OYX4AgE284gkbFA==
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {380., -380.}, 
      ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1EEKgDAQA8DoT3ySPsEP+P+bCOslUFYpbSNmoKc9bChtlv3Y9hnAGmcy
MzMLoPN23gNiMwoJsnlriM0oJMjmvSBJkM1buu+n9MqyeQ/K9/dk/+h8X8T9
p9CHjPtvdB8y7j+VPmT8P5T+C/efQh8y5fu7qOdT5P6r5/6r5/6rp57PzOy3
TpybGzg=
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {488.57142857142856`, -380.}, 
      ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJztVMENAyEMc7tJR2pHuAVu/18lrpyOkIBM4VHVRlGEnBgEkR/b/truAJ6f
uAmCIAg/CpjF8o4iymD5uh5FsHygiWtmeVOd6nBmlvfPP97Hb+jxfj3OzPId
3bChx18qjxWOWY/3zs7/F/1xm6/rkechmpkmH/RMer9UnechqO/xq+83X289
rP/xflgpoh28HpoxAut/NpNqxv94P/Tud/U/m8f0EOZR2Hken2/rf7wf1ncr
/Y/1w1qv9D+7H9Sc9H6p2/gf74dr7zdf73vI/7xMqsn/gj2hJP9z9qSa/E8Q
BOFf8Aajexiw
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {597.1428571428571, -380.}, 
      ImageScaled[{0.5, 0.5}], {100, 100}]}, {InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1MEJgDAMBdDoJo6kI3QB97958RQoUmztwfeghNAcP38r51HWiNjvtwDw
iVy4rTv0FGm2/sMbOV+1/pNDZqjlTw4Z4an/ancwgv5jJvkDfusC8yobzg==

        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {54.285714285714285`, -488.57142857142856`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1MENgCAUg+GHmziSjuAC7n/zogeRCgoIJv+XGEPQnpqOyzovg5lN++MA
AAHmLOscSLS8c+089Ozol+pZ7D7wh53fT+9r56Enfr/U/qX30O+D2qvU3pTO
w5+o/qXv4SVR9OVtb0rnoaXY/qnvbhIje6W++yoPPWP/0BL9A4BiNoWLGzg=

        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {162.85714285714286`, -488.57142857142856`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1EEKwCAMBMC0P+mT2if4gf7/1ou9BBaxYtyUHchBFFxIyFHuq+xmdtba
RER+wGp9PUcw92PveTb2fJmYq977CG//UB9b97Ox52Pm5wvtv5Vz6PuH9suq
PrPnywzN38p96KH+svSZPR+T1v5D7yK19gt6F4U9Xybaf+PY8zHT/I1jzyci
iT2Fixs4
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {271.42857142857144`, -488.57142857142856`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJztlNEJwzAMRC/dpCO1I2SB7v9XSvORyDpbUmVDQReMERIPER9331/P/Qbg
cZytVCqVlgvHF60VIr4nWrc8bOeI9NaEiV9qQfvsj3g9e7983jxBfN6+QsT1
ePvtPC7H2ydMnG9vX0wf/mI+G/Vn75fPy5P0F8s/uw+lv1j+WX0o/cXyz+ND
+b9ZHtjeRfqL5Z/dh7n75fPWifnPnocNkfjPmoctT/efJw8VpvoesXdh/rPn
4dz98nlxjfKPzXWIg/xjc5zXzz82N2B284DNEdog/9jcqv3yefNU+afdTlrl
X1jlP+120sp/pVLpf/QGymcYaA==
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {380., -488.57142857142856`}, 
      ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1sENgCAMheHWTRxJR3AB9795wEQhpQU5Gf4vIYTQ00tTWI9zPxYR2e6l
ABCQwR2JaJ5J73l2onkmvWfkRP2MovtZWf1V9p13j8TKx5p/ZGir5eP1Hxm2
8/Ijw4f3/+Nv2C6af7U6JNH8K2vhY/59E72/7xrU0X9jyA/4sQt2oxti
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {488.57142857142856`, -488.57142857142856`},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJztldEJwzAMRC/dpCO1I2SB7P/XnwQc9yzJtuRC0TPBGJkHMuLy3I/3/gDw
Or8tSZI/AxumdmLE3B7tiwHnGj0TI+499J6jfb6gWCNnYsS9h95ztC8WVKu3
ToyQe9Lq0T4f2HzVcyfViZHMQz0nUj3aFwN7H5Z/9jlk/bC8svbs7fOl9T7S
/NnzsDU3PT17+9YivZ8tD7+MQr8jPXv7xmC5d+1STTCSnLp2qbbKF4OWf617
glHJq9a9VT5ftPyr7xqMSl7Vd1f7Ysn8G0P7/5Z3jEblf1ne+YUvhpy/OfL9
kiQp+ACaNBiw
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {597.1428571428571, -488.57142857142856`},
       ImageScaled[{0.5, 0.5}], {100, 100}]}, {InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJztltEJwzAMRNVu0pHSEbJA9//rT1O7ln0iMblLQQfGKBLoYcRFj/X1XO9m
tnzOLZVKSWWTh8NoUzeDzyZulqzpuDc+l630swMxh/G3496YyWcHYrYsIIjy
5zDVxxNEeQ6jn6927lCewdd/n/r7OM9Sv7/3P90cjgmiPIcRE0R5JR9+P+4c
joT5FH7o/U+/HeL9D+WYfOP9z75V/ZunyP9GdRw2tP+188adv9IV+19bq+Tr
+V9brdYV/M8zof1P43+eEf9/6xoVH/r/blVqXXH+Clu0X+X7/TtfKiXVGzPv
GY4=
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {54.285714285714285`, -597.1428571428571},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJztVkGOxDAIo/uTfdLuE+YD8//bSp2mTQK2oV2plzKKUAbiOBaifL/ev68v
M/vZ1vLYY48VzC7+AkS7tjyeXVrhq7fAWe80XANnfczvo8c5H+PZaY/MpoTq
ftBw2e8zK+8jbsd9R33l98Fbu7iV90y/llDdOw2HhOqe8xv1ye05npX3ykwc
UHHXD90BFY849csfUPHgDf3yDEUc6Rbp0//P4k7DD5Mw3/W/BMMWCPNd/0sw
bEzAARVHBvJd/0swjOvrYCjiETd8P64/whDrY4brjzBk9+P6IwxpPtUPMKT5
VD/AUBxQ8aoJPN0PXf8rj4dTv/P9rzYdyvnQ1kfgBXVCnsUA2tjvXP/beCAP
+Pm+N89XyCM8P/dNdYE8tLmuUL3h+tsz+Pw31xupv+NONv/N9Ybrr3tDf971
v2XUi9ZfhzlohfRrMYE2nnf9b+Ij9PN81HylG9Z8nONpfgLfWQKBz3+J/uc5
sflP97/gjWz+S/W/AJN+f/ucBBqf/xL9L+LHvr8tq4aHv7/7Q4qG8CbcDBKf
/wr1d3BT81Vt4GD6bW+9Ub8VTc1rN/P7f7zHHrvV/gDZWBHS
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {162.85714285714286`, -597.1428571428571},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1rENABAQhtFjEyMxggXs32n0CoWE95Lb4P7kK320niOirkvwsNMHNxAA
gL/s+k8fAgC8Rf9x1QQkgBvm
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {271.42857142857144`, -597.1428571428571},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1rENgDAMAEGHTTISjJAF2L+jSQVFFDkFgjvJpV25+NrOo20Rsfcp8BpR
cg/53M9++H1/9T0AADJG/Tjfl6Nem+251fcAAP5N//ExF61EG8g=
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {380., -597.1428571428571}, 
      ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJzt1rENgDAMBEDDJowEI2QB9u9oUtAFYUJS3EkubX/5WzmPskbEXmeBl6LO
qP1nP3Ifsvu97/fOBwDwpVb/+6MftrT61ej+NXs+AIA7/S9v9nwkXa1EG8g=

        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {488.57142857142856`, -597.1428571428571},
       ImageScaled[{0.5, 0.5}], {100, 100}], InsetBox[
      GraphicsBox[RasterBox[CompressedData["
1:eJztlkEKwCAMBNP+pE+yT/AD/v9WAl4qQojJRZwRT7pBZA/z1PbWW0RK3xcc
gvSVl9f2RBo05rWOkUrO8hLs+D+v8wNfOMnnvi9/HgAAAJyM5Y9+v7T80euX
lj+u+KXlQz5fsvzR75e578ufBwAAADuD/62cD7fxP/DxAaBzGzg=
        "], {{0, 0}, {81, 81}}, {0, 1}],
       Frame->Automatic,
       FrameLabel->{None, None},
       FrameTicks->{{None, None}, {None, None}},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->{100, 100},
       Method->{
        "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
         "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
         "RangePadding" -> Scaled[0.05]}], {597.1428571428571, -597.1428571428571},
       ImageScaled[{0.5, 0.5}], {100, 100}]}}, {}},
  ContentSelectable->True,
  ImageSize->{663.4285714285714, 663.4285714285714},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{3.6350734761891413`*^9, 3.635073551067569*^9, 
  3.635073631603881*^9, 3.635387416488636*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"m", "=", "18"}], ";", 
  RowBox[{"n", "=", 
   RowBox[{
    RowBox[{"2", " ", "m"}], "+", "1"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"p", ",", "1", ",", "m"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"q", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"A", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "m", ",", "m"}], "]"}], "]"}], "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "2"}], ",", 
   RowBox[{"i", "\[LessEqual]", "m"}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"x", "=", "2"}], ",", 
     RowBox[{"x", "\[LessEqual]", 
      RowBox[{"n", "-", "1"}]}], ",", 
     RowBox[{"x", "++"}], ",", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"y", "=", "2"}], ",", 
       RowBox[{"y", "\[LessEqual]", 
        RowBox[{"n", "-", "1"}]}], ",", 
       RowBox[{"y", "++"}], ",", 
       RowBox[{
        RowBox[{"sum", "=", 
         RowBox[{
          RowBox[{"A", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "-", "1"}], ",", 
             RowBox[{"x", "-", "1"}], ",", 
             RowBox[{"y", "+", "1"}]}], "]"}], "]"}], " ", "+", " ", 
          RowBox[{"A", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "-", "1"}], ",", " ", 
             RowBox[{"x", "-", "1"}], ",", " ", "y"}], "]"}], "]"}], " ", "+",
           " ", 
          RowBox[{"A", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "-", "1"}], ",", " ", "x", ",", " ", 
             RowBox[{"y", "+", "1"}]}], "]"}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "x", ",", "y"}], "]"}], "]"}], "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"sum", ">", "0"}], ",", 
           RowBox[{"Mod", "[", 
            RowBox[{"sum", ",", "2"}], "]"}], ",", "0"}], "]"}]}], ";"}]}], 
      "]"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.634573936759635*^9, 3.6345740432507257`*^9}, 
   3.634574468783065*^9, {3.6350102192322893`*^9, 3.635010289533659*^9}, {
   3.635010322922001*^9, 3.635010367858585*^9}, {3.635033866093816*^9, 
   3.6350338668294163`*^9}, {3.635033978839425*^9, 3.6350339794848003`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ArrayPlot", "[", 
  RowBox[{"A", "[", 
   RowBox[{"[", "16", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.635010424592771*^9, 3.6350104309304657`*^9}, {
  3.635033889906866*^9, 3.6350338917951307`*^9}}],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGBQhWLGQQkY0AB2RWgQh0moGIdJqBinm5BpnG5CpnG6CZnG
6SZkGqeb8LoH5ha87oG5hWBqwBs+yG4ipIawe2BuIsKkUTAKBh8AAJGRBvs=

   "], {{0, 0}, {37, 37}}, {0, 1}],
  Frame->Automatic,
  FrameLabel->{None, None},
  FrameTicks->{{None, None}, {None, None}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
    "RangePadding" -> Scaled[0.05]}]], "Output",
 CellChangeTimes->{{3.6350104155084753`*^9, 3.635010432902722*^9}, 
   3.635033895249772*^9, 3.63503400999893*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ArrayPlot", "[", 
  RowBox[{"A", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.635010488146041*^9, 3.63501051301105*^9}}],

Cell[BoxData[
 GraphicsBox[RasterBox[CompressedData["
1:eJxTTMoPSmJiYGCQhGLGUUAGwBluo+FJCAAAmkMESQ==
   "], {{0, 0}, {25, 25}}, {0, 1}],
  Frame->Automatic,
  FrameLabel->{None, None},
  FrameTicks->{{None, None}, {None, None}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
    "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], 
    "RangePadding" -> Scaled[0.05]}]], "Output",
 CellChangeTimes->{{3.635010502838544*^9, 3.635010514207028*^9}}]
}, Open  ]]
},
WindowSize->{1258, 899},
WindowMargins->{{Automatic, 107}, {Automatic, 28}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 27, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[400, 13, 3330, 93, 182, "Input"],
Cell[3733, 108, 118, 2, 28, "Input"],
Cell[3854, 112, 122, 2, 28, "Input"],
Cell[CellGroupData[{
Cell[4001, 118, 361, 7, 28, "Input"],
Cell[4365, 127, 891, 18, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5293, 150, 277, 6, 28, "Input"],
Cell[5573, 158, 580, 14, 374, "Output"]
}, Open  ]],
Cell[6168, 175, 255, 7, 28, "Input"],
Cell[CellGroupData[{
Cell[6448, 186, 1001, 23, 212, "Input"],
Cell[7452, 211, 27816, 591, 712, "Output"]
}, Open  ]],
Cell[35283, 805, 2583, 74, 114, "Input"],
Cell[CellGroupData[{
Cell[37891, 883, 234, 5, 28, "Input"],
Cell[38128, 890, 680, 16, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38845, 911, 179, 4, 28, "Input"],
Cell[39027, 917, 553, 13, 374, "Output"]
}, Open  ]]
}
]
*)