(*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 ]] } ] *)