(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='WolframDesktop 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 161, 7] NotebookDataLength[ 69421, 2029] NotebookOptionsPosition[ 65526, 1940] NotebookOutlinePosition[ 65894, 1957] CellTagsIndexPosition[ 65851, 1954] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell[TextData[{ "5 steps in the evolution of the mobile automaton from ", StyleBox["A New Kind of Science", FontSlant->"Italic"], ", page ", ButtonBox["71", BaseStyle->"Hyperlink", ButtonData->{ URL["https://www.wolframscience.com/nks/p71"], None}, ButtonNote->"https://www.wolframscience.com/nks/p71"], ":" }], "Text", CellChangeTimes->{{3.751852252660976*^9, 3.751852261604575*^9}, { 3.751852502446563*^9, 3.751852508381207*^9}, {3.7543142174730663`*^9, 3.7543142174750476`*^9}, {3.768146524613957*^9, 3.768146564056323*^9}, { 3.7681466896163597`*^9, 3.768146689657696*^9}, 3.768146754417666*^9, { 3.768152837726203*^9, 3.76815285266467*^9}}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"MobileAutomaton\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MobileAutomaton\""}], ResourceFunction["MobileAutomaton"], BoxID -> "MobileAutomaton", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"0", ",", "11"}], "]"}], ",", "5"}], "}"}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.751851429711021*^9, 3.751851429713882*^9}, { 3.751851997618578*^9, 3.751852022268723*^9}, {3.7518522369360332`*^9, 3.7518522455113497`*^9}}, CellLabel->"In[147]:=", CellID->1677096861], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "4"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.751852023687475*^9, 3.751852043950498*^9}, 3.751852080370398*^9, {3.751852231932558*^9, 3.7518522458196983`*^9}, 3.751891701597724*^9, 3.752082299495318*^9}, CellLabel->"Out[147]=", CellID->1951503094] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell["60 steps of evolution:", "Text", CellChangeTimes->{{3.751852310917377*^9, 3.751852319548532*^9}, 3.751852513487131*^9}, CellID->879819868], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"MobileAutomaton\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MobileAutomaton\""}], ResourceFunction["MobileAutomaton"], BoxID -> "MobileAutomaton", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"0", ",", "41"}], "]"}], ",", "20"}], "}"}], ",", "60"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.751852273517974*^9, 3.7518523273058157`*^9}}, CellLabel->"In[148]:=", CellID->879089822], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJyt08ERwjAQQ1GLTjhSBE1QQhqg/xu5kGTAsG8ZlPEpf7xajXxe7rflNMa4 rueynrxobF/ef87ByS0fwDD4VcfRCBZX4uBfPBYWNe7sGxtYp7Ov8W+PDnI8 jVIUwu4cl1GQRyNYWtS4o92Jdifana5HBzmeRilKYXcOrxBBHo0gWNS4o92J difanZ5HBzmeRilA2J3tFSLIoxEkixp3tDvR7jwvRa4REIIo3sWvnOsBqzwK vg== "], {{0, 0}, {41, 61}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", CellChangeTimes->{{3.751852298664885*^9, 3.751852327934372*^9}, 3.7520822995705423`*^9}, CellLabel->"Out[148]=", CellID->394760227] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell[TextData[{ "Evolution of the generalized mobile automaton from ", StyleBox["A New Kind of Science", FontSlant->"Italic"], ", page ", ButtonBox["73", BaseStyle->"Hyperlink", ButtonData->{ URL["https://www.wolframscience.com/nks/p73"], None}, ButtonNote->"https://www.wolframscience.com/nks/p73"], ":" }], "Text", CellChangeTimes->{{3.751852656366304*^9, 3.751852665781867*^9}, { 3.754314266969144*^9, 3.754314272871001*^9}, {3.7681467080543222`*^9, 3.768146708101585*^9}, {3.7681528794775763`*^9, 3.768152883938531*^9}}, CellID->1433602807], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"MobileAutomaton\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MobileAutomaton\""}], ResourceFunction["MobileAutomaton"], BoxID -> "MobileAutomaton", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "1"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"0", ",", "41"}], "]"}], ",", "20"}], "}"}], ",", "60"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{3.751852549893416*^9}, CellLabel->"In[149]:=", CellID->393899615], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJytlMENwjAQBHfohCdF0AQlpIH0/yN2MCIP8BzKSU6kaOSxNz5fl/WxXJLc t3HbBocK7UN68asamCgQCyYKpAA6dZsRrTbx7GtEbwa9a3Q86BzRgU84F80f oFXDdC9F0Kr761TQqt/P00CrBnNuK6BVg+qtAujVHrRrdP2/z6d+4bh9HDjv f+SlN9YoqgZaNaKta6BVY9q6BHq1B+0azZkY6imHmexTbUCVIjacjmrQqXEp vtSK+1ZPGr8KRg== "], {{0, 0}, {41, 61}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", CellChangeTimes->{3.751852551079804*^9, 3.751852643325923*^9, 3.7520822996452293`*^9}, CellLabel->"Out[149]=", CellID->1158149606] }, Open ]], Cell["\<\ Position of the active cell in the generalized mobile automaton:\ \>", "Text", CellChangeTimes->{{3.751852738350194*^9, 3.751852748510289*^9}}, CellID->1575447948], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"MobileAutomaton\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MobileAutomaton\""}], ResourceFunction["MobileAutomaton"], BoxID -> "MobileAutomaton", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "1"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"0", ",", "41"}], "]"}], ",", "20"}], "}"}], ",", "800"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"-", "1"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.751852713998473*^9, 3.751852733082839*^9}}, CellLabel->"In[150]:=", CellID->1956667388], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdmTuwHMUVhqccKZzAgQIHY4pyqVwuanlK4Aeja2Fk8/AgXgIbPAZkxFML 4iGebhwRbkg4IeGGhB0Sbkg4IeGGhLbr/p+q+ruBTn33uz3TffqcntnVL1+5 ceXaz7quu/i/f/4fT3+OD5/G+8b8IvH+xDNj6/vEexN/nnhP4ln5X2j8oOvf kfhA4p2J5xN/JX9O43+t6/9G/i75jfzduv498vfKc53z+rsHFM8rXlDk9w9q 3EO67m91399pXr/XvP8g/7D82PoCc/2L8hflT9r5lRP5P8rDrO+S/CX5RxKT n/KI/J/kYfL6qPyj8pcTk/dyWf7PGg9z/79o/jDrfyyR/MHk//HE1F2Bqcsn 5GHGP6nrw9z/r5ofzPynxKxvhLP+Aic/FaYun0pMXY5Ptb7AjIfJ75XWj1da X+QrzP2f1vinW1/gzK/Kd89o/nD6qshXmPHP6v4w84eT3wqT/+daPz7X+iJf YfL3vMY/3/oCkz/57qrmD5M/+SrfvZBI/l5ofZGvMOfWixr/YusLnHOtynd/ 03iY+8PMH2b9f08kfzD5h9M/Faa/Xmr9+FLri3yF2f+XNf7l1heY/Zfv/qH5 w+y/fJXv5sTkZ5hbP8rPMPmVX+QrnP1Z5bt/tn6As7+j/Cxf4NTHIl/lV5jn 4iutH2DuD3N/mPXDrB9O/iqc/K8w+/dqYvZ/gFM/I5zzfYZz/hf5Rb7Kr7p+ 91rrh9daP8KZ3yxf5Bc466vyq3x3LTH5Ga61fpSfYepbfpGvcPZnle/+1foB zv6O8rN8gVMfi3yVX2HOr9dbP7ze+hFOfc7yRX6BU99VfpXvrifmvXC43voR 5v4w94dZP8z6YfIPk/83Etl/mP2HqT+Y+oOpf5j6h/P+tMK8X73Z+uHN1o/y M0z/yS/yFab/5Lu3Wj/A9J/8LF9g+k++yq8w/fd264e3Wz/C9J98kV9g+k9+ le/eSaT/3mn9KD/D9J/8Il9h+k++e7f1A0z/yc/yBab/5Kv8CtN/N1o/3Gj9 CKc/Z/kiv8D5HFflV43vtu39ezjzH+CsfwNzPsLJ/wRn/2Y4+7+FqR849beD U78LnPrfw/QXnP47wOnfFc7n/iPM9wLvtb6HM36Ac/0NnPuPcOY3wZn/DGd9 W5j1w8nPDk7+Fjj53cPUN5z9OcDZvxXO/h5h9v/9xNRHD6d+hjDfC2zkR/lJ fpbf4vM9QpHfafyi+e1hnm/yB/lV/qjrdzdb399s/XCznd9GfpSf8FnfLL+V L/jwTn7R+L3uXzX/A8z6YfYf5v3jg9b3H7R+kN/AnE/yk/wMZ35b+SK/g9l/ +b18DZOfg/wqf8TzPdaHre8/bP2AD2/kR/kJf3IaZ/mtxhfdf4dn/TDrh6l/ OPk/wPQ/nPPhCPP8+6j1/UetH+Q3MM9H+Ul+hjO/rXyR38FZ3yK/l68w9S+/ yh9h+v/j1vcft34I3+5/+VF+wtP/8lv5gqf/5Rf5Pf7kNFb5g/yKDx/lu1vt +P5We/8Bz/rxrB9O/iaY/ofZf5j9h1M/Ozj1t8A8/2DeL+UP8qv8UdfvPml9 /0nrB5j6lx/lJ5j6l9/KF5j6l1/k9zD1L3+QX2HqX777tPU9TP3Lb+TH8O36 l5/lt3jqX34nv+Cpf/kqf8CfnMZV/ijffRYf7j9r/SC/wef/MUb5SeNnPOc/ nvXjWT+e8x/m/IfZf5j9hzn/Yc5/mPr/PJH6h9M/A5z30w3M50P5SX6W3+r6 RX4nv2h+e/kqf4CzvlX+KN99kcjz74vWD/IbmOef/CQ/w5x/8kV+B/P8k9/L V5jnn/wqf4R5/n3Z+v7L1g/h2+e//Cg/4Xn+yW/lC57nn/wiv8efnMYqf5Bf 8eGjfPfv1vdh+nuQ38iP+PAkP2v8Fh8ueNaPZ/143v/xvP/C7D/M/sO8/8O8 /5fE1O8ZOPXfw+mfszDnA5z+PQen/zdwPv9egPl+S/6y/CR/Vdef5a/LbzW/ W/JF/mutbyf/jfyi/Hwrv5f/Tvmt8t/LH7Q/P8iv8j/C2d+j/E/y3VeJqY8z X7W+lz8Lp74G+XPyGzj1eUF+lL8Mc57IX5Wfw/THdfmt/C0854/81/I7fPgb +UX+W/zJadzLfydf8eHv5Q/yP+BzvqzyP8of8eGf5Lv/tP5MuLs0/heHqqUJ "]]}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[ 1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[ 1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 577.}, {0, 40.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.751852727301457*^9, 3.7518527337901793`*^9}, 3.7520822997722683`*^9}, CellLabel->"Out[150]=", CellID->228651634] }, Open ]], Cell["Complete evolution display:", "Text", CellChangeTimes->{{3.751853733193142*^9, 3.751853738193083*^9}}, CellID->739525952], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"MobileAutomaton\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MobileAutomaton\""}], ResourceFunction["MobileAutomaton"], BoxID -> "MobileAutomaton", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "1"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"0", ",", "21"}], "]"}], ",", "10"}], "}"}], ",", "60"}], "]"}], ",", RowBox[{"Mesh", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.751853701642037*^9, 3.751853727529565*^9}, { 3.752251060165021*^9, 3.752251066489229*^9}}, CellID->709611999], Cell[BoxData[ GraphicsBox[{RasterBox[CompressedData[" 1:eJzt1tENwjAMBNCIHRiAQRA7MAIS3125IzAC/PBZzk5c34UaCVmoqXj1OYHL Y7k/T6216+d9bt/X6/a7ruDz1nprRd9vrcjpdWU5R/uX3c+oGuWM7l+2Uy13 1M9Rb3bu7HPJO59eL3sfeZ+Lvd+t88J2Iq+a0/s/ge3c26d27hzVqZ47ur+c Pqd67tb7ymlzqucetb6cfTXbGb3fju5Uz330Ocrpc6g4R90sp2ru6JxSd3qv s53Wvqs40TyrObN8vfPJqv/mZPt793E5+5zquaP15fQ5Z8t9Nqdq7sil7mT9 jrL7tHfubOfWdTWnyjlkdc/iVMvdOo/qTjVfXn0DBxPVmA== "], {{0, 0}, {21, 61}}, { 0, 1}], { {GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]], StyleBox[ LineBox[{{{0, 61}, {21, 61}}, {{0, 60}, {21, 60}}, {{0, 59}, {21, 59}}, {{0, 58}, {21, 58}}, {{0, 57}, {21, 57}}, {{0, 56}, {21, 56}}, {{ 0, 55}, {21, 55}}, {{0, 54}, {21, 54}}, {{0, 53}, {21, 53}}, {{0, 52}, {21, 52}}, {{0, 51}, {21, 51}}, {{0, 50}, {21, 50}}, {{0, 49}, { 21, 49}}, {{0, 48}, {21, 48}}, {{0, 47}, {21, 47}}, {{0, 46}, {21, 46}}, {{0, 45}, {21, 45}}, {{0, 44}, {21, 44}}, {{0, 43}, {21, 43}}, {{ 0, 42}, {21, 42}}, {{0, 41}, {21, 41}}, {{0, 40}, {21, 40}}, {{0, 39}, {21, 39}}, {{0, 38}, {21, 38}}, {{0, 37}, {21, 37}}, {{0, 36}, { 21, 36}}, {{0, 35}, {21, 35}}, {{0, 34}, {21, 34}}, {{0, 33}, {21, 33}}, {{0, 32}, {21, 32}}, {{0, 31}, {21, 31}}, {{0, 30}, {21, 30}}, {{ 0, 29}, {21, 29}}, {{0, 28}, {21, 28}}, {{0, 27}, {21, 27}}, {{0, 26}, {21, 26}}, {{0, 25}, {21, 25}}, {{0, 24}, {21, 24}}, {{0, 23}, { 21, 23}}, {{0, 22}, {21, 22}}, {{0, 21}, {21, 21}}, {{0, 20}, {21, 20}}, {{0, 19}, {21, 19}}, {{0, 18}, {21, 18}}, {{0, 17}, {21, 17}}, {{ 0, 16}, {21, 16}}, {{0, 15}, {21, 15}}, {{0, 14}, {21, 14}}, {{0, 13}, {21, 13}}, {{0, 12}, {21, 12}}, {{0, 11}, {21, 11}}, {{0, 10}, { 21, 10}}, {{0, 9}, {21, 9}}, {{0, 8}, {21, 8}}, {{0, 7}, {21, 7}}, {{0, 6}, {21, 6}}, {{0, 5}, {21, 5}}, {{0, 4}, {21, 4}}, {{0, 3}, {21, 3}}, {{0, 2}, {21, 2}}, {{0, 1}, {21, 1}}, {{0, 0}, {21, 0}}}], Antialiasing->False]}, {GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]], StyleBox[ LineBox[{{{0, 0}, {0, 61}}, {{1, 0}, {1, 61}}, {{2, 0}, {2, 61}}, {{3, 0}, {3, 61}}, {{4, 0}, {4, 61}}, {{5, 0}, {5, 61}}, {{6, 0}, {6, 61}}, {{7, 0}, {7, 61}}, {{8, 0}, {8, 61}}, {{9, 0}, {9, 61}}, {{10, 0}, {10, 61}}, {{11, 0}, {11, 61}}, {{12, 0}, {12, 61}}, {{13, 0}, {13, 61}}, {{14, 0}, {14, 61}}, {{15, 0}, {15, 61}}, {{16, 0}, {16, 61}}, {{17, 0}, {17, 61}}, {{18, 0}, {18, 61}}, {{19, 0}, {19, 61}}, {{ 20, 0}, {20, 61}}, {{21, 0}, {21, 61}}}], Antialiasing->False]}}}, Epilog->{ DiskBox[ NCache[{ Rational[19, 2], Rational[121, 2]}, {9.5, 60.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[119, 2]}, {10.5, 59.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[117, 2]}, {9.5, 58.5}], 0.35], DiskBox[ NCache[{ Rational[17, 2], Rational[115, 2]}, {8.5, 57.5}], 0.35], DiskBox[ NCache[{ Rational[15, 2], Rational[113, 2]}, {7.5, 56.5}], 0.35], DiskBox[ NCache[{ Rational[17, 2], Rational[111, 2]}, {8.5, 55.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[109, 2]}, {9.5, 54.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[107, 2]}, {10.5, 53.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[105, 2]}, {11.5, 52.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[103, 2]}, {12.5, 51.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[101, 2]}, {11.5, 50.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[99, 2]}, {10.5, 49.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[97, 2]}, {9.5, 48.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[95, 2]}, {10.5, 47.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[93, 2]}, {9.5, 46.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[91, 2]}, {10.5, 45.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[89, 2]}, {11.5, 44.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[87, 2]}, {10.5, 43.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[85, 2]}, {11.5, 42.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[83, 2]}, {12.5, 41.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[81, 2]}, {11.5, 40.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[79, 2]}, {12.5, 39.5}], 0.35], DiskBox[ NCache[{ Rational[27, 2], Rational[77, 2]}, {13.5, 38.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[75, 2]}, {12.5, 37.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[73, 2]}, {11.5, 36.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[71, 2]}, {10.5, 35.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[69, 2]}, {9.5, 34.5}], 0.35], DiskBox[ NCache[{ Rational[17, 2], Rational[67, 2]}, {8.5, 33.5}], 0.35], DiskBox[ NCache[{ Rational[15, 2], Rational[65, 2]}, {7.5, 32.5}], 0.35], DiskBox[ NCache[{ Rational[17, 2], Rational[63, 2]}, {8.5, 31.5}], 0.35], DiskBox[ NCache[{ Rational[15, 2], Rational[61, 2]}, {7.5, 30.5}], 0.35], DiskBox[ NCache[{ Rational[17, 2], Rational[59, 2]}, {8.5, 29.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[57, 2]}, {9.5, 28.5}], 0.35], DiskBox[ NCache[{ Rational[17, 2], Rational[55, 2]}, {8.5, 27.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[53, 2]}, {9.5, 26.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[51, 2]}, {10.5, 25.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[49, 2]}, {9.5, 24.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[47, 2]}, {10.5, 23.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[45, 2]}, {11.5, 22.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[43, 2]}, {10.5, 21.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[41, 2]}, {11.5, 20.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[39, 2]}, {12.5, 19.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[37, 2]}, {11.5, 18.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[35, 2]}, {12.5, 17.5}], 0.35], DiskBox[ NCache[{ Rational[27, 2], Rational[33, 2]}, {13.5, 16.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[31, 2]}, {12.5, 15.5}], 0.35], DiskBox[ NCache[{ Rational[27, 2], Rational[29, 2]}, {13.5, 14.5}], 0.35], DiskBox[ NCache[{ Rational[29, 2], Rational[27, 2]}, {14.5, 13.5}], 0.35], DiskBox[ NCache[{ Rational[27, 2], Rational[25, 2]}, {13.5, 12.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[23, 2]}, {12.5, 11.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[21, 2]}, {11.5, 10.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[19, 2]}, {10.5, 9.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[17, 2]}, {9.5, 8.5}], 0.35], DiskBox[ NCache[{ Rational[17, 2], Rational[15, 2]}, {8.5, 7.5}], 0.35], DiskBox[ NCache[{ Rational[15, 2], Rational[13, 2]}, {7.5, 6.5}], 0.35], DiskBox[ NCache[{ Rational[13, 2], Rational[11, 2]}, {6.5, 5.5}], 0.35], DiskBox[ NCache[{ Rational[11, 2], Rational[9, 2]}, {5.5, 4.5}], 0.35], DiskBox[ NCache[{ Rational[13, 2], Rational[7, 2]}, {6.5, 3.5}], 0.35], DiskBox[ NCache[{ Rational[15, 2], Rational[5, 2]}, {7.5, 2.5}], 0.35], DiskBox[ NCache[{ Rational[17, 2], Rational[3, 2]}, {8.5, 1.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[1, 2]}, {9.5, 0.5}], 0.35]}, Frame->False, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", CellChangeTimes->{{3.751853710368155*^9, 3.7518537279694767`*^9}, { 3.751890874385172*^9, 3.7518909029531317`*^9}, 3.75208229988201*^9}, CellLabel->"Out[151]=", CellID->1099768155] }, Open ]], Cell["Color the active cell red:", "Text", CellChangeTimes->{{3.751889608934963*^9, 3.751889613938631*^9}}, CellID->1931146858], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{ RowBox[{"MapAt", "[", RowBox[{ RowBox[{"Red", "&"}], ",", "#1", ",", "#2"}], "]"}], "&"}], "@@@", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"MobileAutomaton\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MobileAutomaton\""}], ResourceFunction["MobileAutomaton"], BoxID -> "MobileAutomaton", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "1"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"0", ",", "41"}], "]"}], ",", "20"}], "}"}], ",", "60"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{ 3.751889506886835*^9, {3.751889542270475*^9, 3.751889598540566*^9}}, CellLabel->"In[152]:=", CellID->934145741], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzt1EFqJEEMRNEGn2SWcwjjO8wRDLP21X0Ee5hdQ1CltKRQVf4A87yoTmWr ifr1/vHn78vj8Xj9/vv9/ffv///5fMNMVbKeX50/Je7fB3FFlexeXzXu3wdx RZXs864a9++DuKLKbv1Vcf8+iBXuHvf+ETt9zl3fC+49I3aocte+u/eN2GE0 V++7e9+IHWblKn137xuxw+pM67t734gduuLqu3vfiB1OS3Xf3ftG7PAqyeq7 e9+IHV490b4j7uC0RO/r3h/iRKeF/iLer9cq0fu694ro1JXovaL3d+8V0akr 0f7Sa8T5vVbJupd7r4hOqxOdn3VP914RnVYn2l96jTi/1yrV8917RXSalegc 930Q72xWov2l14jze63SNUfNRdzRaKLnud8niDsaTbS/9Bpxfq9Vuvp6Nu69 IjpViX6u+r0RjXuviE5Vov2l14hzjMbd17Nx7xXRqcpV+qvi3iuiU5Xo56Ln V8e9V0SnKqvP//ScrLj3iuhUJauPrr6794roVKWrd1Vz3XtFdKpS3eujuT+9 j3uviE5VXL1WifYdcWdVqnsdvZd7T4hXUqWr12fnIuL8Xh/NjT6PiH29js7P uifizqpk9/rs+fQacX6vj87POgcR83sdnZP13nDvD3GiKqvPnz2HXiPO7/XR OVVx7w9xoiqrz3fHvT/EiapkPa8+Fz1/dS7ijqp0PV81F3FnVaqfPzrn7PmI 2N/r6Hz3PhDvoEp2r8/GvQ/EO6iSfd7ZuPeBeAdVqvu7OhcR63pfFff3RdzZ 52S9F9zfC3FHVbL67v5+iDsaTbTviDjP57jvg91+AdlnF2g= "], {{0, 0}, {41, 61}}, { 0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", CellChangeTimes->{3.7518895997419*^9, 3.7520822999584293`*^9}, CellLabel->"Out[152]=", CellID->411631356] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->267254639], Cell["Use rule numbers to specify a mobile automaton rule:", "Text", CellChangeTimes->{{3.751890844174185*^9, 3.7518908552698097`*^9}}, CellID->1996321769], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"MobileAutomaton\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MobileAutomaton\""}], ResourceFunction["MobileAutomaton"], BoxID -> "MobileAutomaton", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{"35", ",", "57"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"0", ",", "21"}], "]"}], ",", "10"}], "}"}], ",", "60"}], "]"}], ",", RowBox[{"Mesh", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.751853701642037*^9, 3.751853727529565*^9}, { 3.751890831124761*^9, 3.751890833565963*^9}, {3.752250593904974*^9, 3.752250601833701*^9}}, CellID->1222235038], Cell[BoxData[ GraphicsBox[{RasterBox[CompressedData[" 1:eJztlMsJwlAQRR/2YAEpROzBEoSsbdkSLEE3bgKiY+a+OTd5ARliNof7m663 y3xorZ1ev2N7P49z7N6T35f/f/pezbnko3N+05vGmXXVvlM5VbpSfd57PlW5 VOWRxtmr59l9pnK6+D44NZwuu+S289lcat+pnL10pfq8t3z2ymVWHmmcVT1f 22cqp4vvg1PD6bJLbjuv5sr2ncpZpSvV563nsyqX/+aRxknpebTPVE4X3wen htNll9x2vjfXWt+pnBRdqT5vLZ+UXP6aRxontedR/6v5ojpTLrVH0Z2iXCqX Wy5dddXdJx1r3Rg= "], {{0, 0}, {21, 61}}, {0, 1}], { {GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]], StyleBox[ LineBox[{{{0, 61}, {21, 61}}, {{0, 60}, {21, 60}}, {{0, 59}, {21, 59}}, {{0, 58}, {21, 58}}, {{0, 57}, {21, 57}}, {{0, 56}, {21, 56}}, {{ 0, 55}, {21, 55}}, {{0, 54}, {21, 54}}, {{0, 53}, {21, 53}}, {{0, 52}, {21, 52}}, {{0, 51}, {21, 51}}, {{0, 50}, {21, 50}}, {{0, 49}, { 21, 49}}, {{0, 48}, {21, 48}}, {{0, 47}, {21, 47}}, {{0, 46}, {21, 46}}, {{0, 45}, {21, 45}}, {{0, 44}, {21, 44}}, {{0, 43}, {21, 43}}, {{ 0, 42}, {21, 42}}, {{0, 41}, {21, 41}}, {{0, 40}, {21, 40}}, {{0, 39}, {21, 39}}, {{0, 38}, {21, 38}}, {{0, 37}, {21, 37}}, {{0, 36}, { 21, 36}}, {{0, 35}, {21, 35}}, {{0, 34}, {21, 34}}, {{0, 33}, {21, 33}}, {{0, 32}, {21, 32}}, {{0, 31}, {21, 31}}, {{0, 30}, {21, 30}}, {{ 0, 29}, {21, 29}}, {{0, 28}, {21, 28}}, {{0, 27}, {21, 27}}, {{0, 26}, {21, 26}}, {{0, 25}, {21, 25}}, {{0, 24}, {21, 24}}, {{0, 23}, { 21, 23}}, {{0, 22}, {21, 22}}, {{0, 21}, {21, 21}}, {{0, 20}, {21, 20}}, {{0, 19}, {21, 19}}, {{0, 18}, {21, 18}}, {{0, 17}, {21, 17}}, {{ 0, 16}, {21, 16}}, {{0, 15}, {21, 15}}, {{0, 14}, {21, 14}}, {{0, 13}, {21, 13}}, {{0, 12}, {21, 12}}, {{0, 11}, {21, 11}}, {{0, 10}, { 21, 10}}, {{0, 9}, {21, 9}}, {{0, 8}, {21, 8}}, {{0, 7}, {21, 7}}, {{0, 6}, {21, 6}}, {{0, 5}, {21, 5}}, {{0, 4}, {21, 4}}, {{0, 3}, {21, 3}}, {{0, 2}, {21, 2}}, {{0, 1}, {21, 1}}, {{0, 0}, {21, 0}}}], Antialiasing->False]}, {GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]], StyleBox[ LineBox[{{{0, 0}, {0, 61}}, {{1, 0}, {1, 61}}, {{2, 0}, {2, 61}}, {{3, 0}, {3, 61}}, {{4, 0}, {4, 61}}, {{5, 0}, {5, 61}}, {{6, 0}, {6, 61}}, {{7, 0}, {7, 61}}, {{8, 0}, {8, 61}}, {{9, 0}, {9, 61}}, {{10, 0}, {10, 61}}, {{11, 0}, {11, 61}}, {{12, 0}, {12, 61}}, {{13, 0}, {13, 61}}, {{14, 0}, {14, 61}}, {{15, 0}, {15, 61}}, {{16, 0}, {16, 61}}, {{17, 0}, {17, 61}}, {{18, 0}, {18, 61}}, {{19, 0}, {19, 61}}, {{ 20, 0}, {20, 61}}, {{21, 0}, {21, 61}}}], Antialiasing->False]}}}, Epilog->{ DiskBox[ NCache[{ Rational[19, 2], Rational[121, 2]}, {9.5, 60.5}], 0.35], DiskBox[ NCache[{ Rational[17, 2], Rational[119, 2]}, {8.5, 59.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[117, 2]}, {9.5, 58.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[115, 2]}, {10.5, 57.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[113, 2]}, {9.5, 56.5}], 0.35], DiskBox[ NCache[{ Rational[17, 2], Rational[111, 2]}, {8.5, 55.5}], 0.35], DiskBox[ NCache[{ Rational[15, 2], Rational[109, 2]}, {7.5, 54.5}], 0.35], DiskBox[ NCache[{ Rational[13, 2], Rational[107, 2]}, {6.5, 53.5}], 0.35], DiskBox[ NCache[{ Rational[15, 2], Rational[105, 2]}, {7.5, 52.5}], 0.35], DiskBox[ NCache[{ Rational[17, 2], Rational[103, 2]}, {8.5, 51.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[101, 2]}, {9.5, 50.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[99, 2]}, {10.5, 49.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[97, 2]}, {11.5, 48.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[95, 2]}, {10.5, 47.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[93, 2]}, {11.5, 46.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[91, 2]}, {12.5, 45.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[89, 2]}, {11.5, 44.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[87, 2]}, {10.5, 43.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[85, 2]}, {9.5, 42.5}], 0.35], DiskBox[ NCache[{ Rational[17, 2], Rational[83, 2]}, {8.5, 41.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[81, 2]}, {9.5, 40.5}], 0.35], DiskBox[ NCache[{ Rational[17, 2], Rational[79, 2]}, {8.5, 39.5}], 0.35], DiskBox[ NCache[{ Rational[19, 2], Rational[77, 2]}, {9.5, 38.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[75, 2]}, {10.5, 37.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[73, 2]}, {11.5, 36.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[71, 2]}, {12.5, 35.5}], 0.35], DiskBox[ NCache[{ Rational[27, 2], Rational[69, 2]}, {13.5, 34.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[67, 2]}, {12.5, 33.5}], 0.35], DiskBox[ NCache[{ Rational[27, 2], Rational[65, 2]}, {13.5, 32.5}], 0.35], DiskBox[ NCache[{ Rational[29, 2], Rational[63, 2]}, {14.5, 31.5}], 0.35], DiskBox[ NCache[{ Rational[27, 2], Rational[61, 2]}, {13.5, 30.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[59, 2]}, {12.5, 29.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[57, 2]}, {11.5, 28.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[55, 2]}, {10.5, 27.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[53, 2]}, {11.5, 26.5}], 0.35], DiskBox[ NCache[{ Rational[21, 2], Rational[51, 2]}, {10.5, 25.5}], 0.35], DiskBox[ NCache[{ Rational[23, 2], Rational[49, 2]}, {11.5, 24.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[47, 2]}, {12.5, 23.5}], 0.35], DiskBox[ NCache[{ Rational[27, 2], Rational[45, 2]}, {13.5, 22.5}], 0.35], DiskBox[ NCache[{ Rational[29, 2], Rational[43, 2]}, {14.5, 21.5}], 0.35], DiskBox[ NCache[{ Rational[31, 2], Rational[41, 2]}, {15.5, 20.5}], 0.35], DiskBox[ NCache[{ Rational[29, 2], Rational[39, 2]}, {14.5, 19.5}], 0.35], DiskBox[ NCache[{ Rational[31, 2], Rational[37, 2]}, {15.5, 18.5}], 0.35], DiskBox[ NCache[{ Rational[33, 2], Rational[35, 2]}, {16.5, 17.5}], 0.35], DiskBox[ NCache[{ Rational[31, 2], Rational[33, 2]}, {15.5, 16.5}], 0.35], DiskBox[ NCache[{ Rational[29, 2], Rational[31, 2]}, {14.5, 15.5}], 0.35], DiskBox[ NCache[{ Rational[27, 2], Rational[29, 2]}, {13.5, 14.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[27, 2]}, {12.5, 13.5}], 0.35], DiskBox[ NCache[{ Rational[27, 2], Rational[25, 2]}, {13.5, 12.5}], 0.35], DiskBox[ NCache[{ Rational[25, 2], Rational[23, 2]}, {12.5, 11.5}], 0.35], DiskBox[ NCache[{ Rational[27, 2], Rational[21, 2]}, {13.5, 10.5}], 0.35], DiskBox[ NCache[{ Rational[29, 2], Rational[19, 2]}, {14.5, 9.5}], 0.35], DiskBox[ NCache[{ Rational[31, 2], Rational[17, 2]}, {15.5, 8.5}], 0.35], DiskBox[ NCache[{ Rational[33, 2], Rational[15, 2]}, {16.5, 7.5}], 0.35], DiskBox[ NCache[{ Rational[35, 2], Rational[13, 2]}, {17.5, 6.5}], 0.35], DiskBox[ NCache[{ Rational[33, 2], Rational[11, 2]}, {16.5, 5.5}], 0.35], DiskBox[ NCache[{ Rational[35, 2], Rational[9, 2]}, {17.5, 4.5}], 0.35], DiskBox[ NCache[{ Rational[37, 2], Rational[7, 2]}, {18.5, 3.5}], 0.35], DiskBox[ NCache[{ Rational[35, 2], Rational[5, 2]}, {17.5, 2.5}], 0.35], DiskBox[ NCache[{ Rational[33, 2], Rational[3, 2]}, {16.5, 1.5}], 0.35], DiskBox[ NCache[{ Rational[31, 2], Rational[1, 2]}, {15.5, 0.5}], 0.35]}, Frame->False, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic}]], "Output", CellChangeTimes->{ 3.7518908381160707`*^9, {3.7518908856029453`*^9, 3.7518908978870296`*^9}, 3.7520823000669413`*^9}, CellLabel->"Out[154]=", CellID->1243373305] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell[TextData[{ "When the active cell goes out of the region defined, its position is given \ as ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["None", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/None"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellChangeTimes->{{3.751852459845689*^9, 3.7518524827731323`*^9}, 3.754314112024273*^9}, CellID->347032095], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"MobileAutomaton\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"MobileAutomaton\""}], ResourceFunction["MobileAutomaton"], BoxID -> "MobileAutomaton", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"0", ",", "7"}], "]"}], ",", "3"}], "}"}], ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.751852273517974*^9, 3.7518523690380096`*^9}, { 3.751852436432733*^9, 3.7518524449494543`*^9}}, CellLabel->"In[155]:=", CellID->630742770], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "None"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7518523551927347`*^9, 3.7518523698613358`*^9}, { 3.751852428332983*^9, 3.7518524454159613`*^9}, 3.752082300085472*^9}, CellLabel->"Out[155]=", CellID->211768178] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, Visible->True, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (March 15, 2019)", StyleDefinitions->"Default.nb", $CellContext`ClosingSaveDialog -> False ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[583, 22, 56, 1, 70, "Subsection",ExpressionUUID->"8ad332df-b1df-4bb3-82e6-7e0737c49228", CellID->285421464], Cell[642, 25, 695, 17, 70, "Text",ExpressionUUID->"8c0d2776-f49b-4654-85e4-07953667fd3a", CellID->221583938], Cell[CellGroupData[{ Cell[1362, 46, 3586, 101, 70, "Input",ExpressionUUID->"f7daaddb-721a-432a-af40-609f88b2ce5d", CellID->1677096861], Cell[4951, 149, 1592, 44, 70, "Output",ExpressionUUID->"45f13965-2847-4537-b3c0-2884e1f373aa", CellID->1951503094] }, Open ]], Cell[6558, 196, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"5e4bbb27-e1d4-49cf-858d-468f4d8db524"], Cell[6666, 200, 150, 3, 70, "Text",ExpressionUUID->"e98f7877-1934-4c1b-9cb9-a7ddb11a33f5", CellID->879819868], Cell[CellGroupData[{ Cell[6841, 207, 3801, 104, 70, "Input",ExpressionUUID->"b6585160-7c2f-41f0-903e-7f0eb755fd5d", CellID->879089822], Cell[10645, 313, 1051, 26, 70, "Output",ExpressionUUID->"4a9864d0-f89b-4305-8d99-ac3ed99232d4", CellID->394760227] }, Open ]], Cell[11711, 342, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"06509ab2-f4ec-4ac5-8711-ac0b19911a7e"], Cell[11819, 346, 568, 15, 70, "Text",ExpressionUUID->"fc5fedc4-e392-43af-bc3d-1dd91da68ca6", CellID->1433602807], Cell[CellGroupData[{ Cell[12412, 365, 4340, 120, 70, "Input",ExpressionUUID->"931320ab-a3bc-4942-a771-0e3aa91f06d4", CellID->393899615], Cell[16755, 487, 1061, 26, 70, "Output",ExpressionUUID->"a0409406-866e-4173-9da9-e27972b3591e", CellID->1158149606] }, Open ]], Cell[17831, 516, 175, 4, 70, "Text",ExpressionUUID->"70691e70-916c-41bf-a089-5d459692c071", CellID->1575447948], Cell[CellGroupData[{ Cell[18031, 524, 4390, 121, 70, "Input",ExpressionUUID->"e61a5ac7-b564-482c-b1ee-52a4a61fab1d", CellID->1956667388], Cell[22424, 647, 3995, 88, 70, "Output",ExpressionUUID->"c434c5fd-d96b-46bc-a242-431240c64d80", CellID->228651634] }, Open ]], Cell[26434, 738, 129, 2, 70, "Text",ExpressionUUID->"ba02eb55-c2e8-4b12-9350-b14cf18ce80d", CellID->739525952], Cell[CellGroupData[{ Cell[26588, 744, 4432, 121, 70, "Input",ExpressionUUID->"b58e0360-bf18-4c21-980b-ce55d6dd2fe2", CellID->709611999], Cell[31023, 867, 9471, 307, 70, "Output",ExpressionUUID->"40a32337-ea17-4c33-984a-df62bd2ec9ac", CellID->1099768155] }, Open ]], Cell[40509, 1177, 129, 2, 70, "Text",ExpressionUUID->"9d512750-ac8d-456d-b3a1-e467c69b97cb", CellID->1931146858], Cell[CellGroupData[{ Cell[40663, 1183, 4450, 123, 70, "Input",ExpressionUUID->"a9be7752-4a8e-40d0-9721-26aa8ed64afb", CellID->934145741], Cell[45116, 1308, 1618, 35, 70, "Output",ExpressionUUID->"4d127113-9482-4699-8981-7d6d98132714", CellID->411631356] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46783, 1349, 47, 1, 70, "Subsection",ExpressionUUID->"94655d30-a8d9-4968-a8e5-8e0c8c8fec38", CellID->267254639], Cell[46833, 1352, 157, 2, 70, "Text",ExpressionUUID->"fc298328-756e-445a-b0c9-1ca61a127552", CellID->1996321769], Cell[CellGroupData[{ Cell[47015, 1358, 2459, 62, 70, "Input",ExpressionUUID->"9bc1ee83-7de6-46ec-8c11-f038c7092932", CellID->1222235038], Cell[49477, 1422, 9430, 307, 70, "Output",ExpressionUUID->"1e4a1f2c-5df8-4b53-bd4d-c18f1e04183f", CellID->1243373305] }, Open ]], Cell[58922, 1732, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"faec7bac-9c59-4340-a95e-166c1d733083"], Cell[59030, 1736, 714, 22, 70, "Text",ExpressionUUID->"4c05ae53-a670-42dc-8073-3d38414acdb1", CellID->347032095], Cell[CellGroupData[{ Cell[59769, 1762, 3536, 100, 70, "Input",ExpressionUUID->"190630ba-b875-4f81-af56-40b9c0ab33ff", CellID->630742770], Cell[63308, 1864, 2190, 72, 70, "Output",ExpressionUUID->"ef9b7682-d2c9-4ae4-9d7d-9c73a719da09", CellID->211768178] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)