(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 62895, 1362] NotebookOptionsPosition[ 60782, 1318] NotebookOutlinePosition[ 61276, 1338] CellTagsIndexPosition[ 61233, 1335] WindowTitle->Persistent Structures in the Code 357 Cellular Automaton | \ Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["Resource Examples", "DataResourceExamplesChapter", CellFrameMargins->{{Inherited, Inherited}, {Inherited, 50}}], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the resource:", "Text", CellGroupingRules->"NormalGrouping", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, 3.696187841532233*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.696186325360051*^9, 3.696186327021051*^9}, { 3.696186470495051*^9, 3.6961864722920513`*^9}, {3.696187844212501*^9, 3.6961878453076105`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache->{12., {0., 12.}}], Appearance->None, ButtonFunction:>(Typeset`open$$ = True), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Persistent Structures the Code 357 Cellular \ Automaton\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { TagBox[ DynamicModuleBox[{ResourceSystemClient`Private`len$$ = 1}, RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ ButtonBox[ DynamicBox[ToBoxes[ Replace[ ResourceSystemClient`Private`snipDots[ "A collection of the persistent structures in the k=3, \ r=1 totalistic code 357 cellular automaton", ResourceSystemClient`Private`len$$], Except[ Blank[String]] -> Snippet[ "A collection of the persistent structures in the k=3, \ r=1 totalistic code 357 cellular automaton", ResourceSystemClient`Private`len$$], {0}], StandardForm], ImageSizeCache->{386., {2., 8.}}], Appearance->None, BaseStyle->{}, ButtonFunction:>(ResourceSystemClient`Private`len$$ = Ceiling[ResourceSystemClient`Private`len$$ 1.5]), Evaluator->Automatic, Method->"Preemptive"], "SummaryItem"]}], DynamicModuleValues:>{}], "SummaryItem"]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True-> GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance->None, ButtonFunction:>(Typeset`open$$ = False), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification]), ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Persistent Structures the Code 357 Cellular \ Automaton\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { TagBox[ DynamicModuleBox[{ResourceSystemClient`Private`len$$ = 1}, RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ ButtonBox[ DynamicBox[ToBoxes[ Replace[ ResourceSystemClient`Private`snipDots[ "A collection of the persistent structures in the k=3, \ r=1 totalistic code 357 cellular automaton", ResourceSystemClient`Private`len$$], Except[ Blank[String]] -> Snippet[ "A collection of the persistent structures in the k=3, \ r=1 totalistic code 357 cellular automaton", ResourceSystemClient`Private`len$$], {0}], StandardForm]], Appearance->None, BaseStyle->{}, ButtonFunction:>(ResourceSystemClient`Private`len$$ = Ceiling[ResourceSystemClient`Private`len$$ 1.5]), Evaluator->Automatic, Method->"Preemptive"], "SummaryItem"]}], DynamicModuleValues:>{}], "SummaryItem"]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Computational Universe\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"ContentTypes: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Numerical Data\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Keywords: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"Cellular Automata\"", "\"NKS\"", "\"A New Kind of Science\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Data Location: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicModuleBox[{ ResourceSystemClient`Private`typesetstorage$$ = ResourceSystemClient`Private`typesetstorageLocation, ResourceSystemClient`Private`info$$}, DynamicBox[ToBoxes[ ResourceSystemClient`Private`info$$ = ResourceSystemClient`Private`resourceInfo[ "Persistent Structures in the Code 357 Cellular \ Automaton"]; If[ AssociationQ[ResourceSystemClient`Private`info$$], ResourceSystemClient`Private`typesetstorage$$[ Lookup[ ResourceSystemClient`Private`info$$, "ContentElementLocations", None]], Missing["NotAvailable"]], StandardForm]], DynamicModuleValues:>{}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"UUID: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Persistent Structures in the Code 357 Cellular \ Automaton\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{ "8.024000000000001`", "\"kB\"", "kilobytes", "\"Kilobytes\""}, "Quantity"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Elements: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Structures\""}, "RowWithSeparators"], Short[#, 2]& ], "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open$$], ImageSize->Automatic], BaselinePosition->Baseline], DynamicModuleValues:>{}], "]"}], ResourceObject[<| "ResourceType" -> "DataResource", "UUID" -> "Persistent Structures in the Code 357 Cellular Automaton", "Name" -> "Persistent Structures the Code 357 Cellular Automaton", "Description" -> "A collection of the persistent structures in the k=3, r=1 totalistic \ code 357 cellular automaton", "Details" -> "These structures were given on page 286 of Stephen Wolfram\ \[CloseCurlyQuote]s \[OpenCurlyDoubleQuote]A New Kind of Science\ \[CloseCurlyDoubleQuote]", "Keywords" -> {"Cellular Automata", "NKS", "A New Kind of Science"}, "ContributorInformation" -> <||>, "Categories" -> {"Computational Universe"}, "ContentTypes" -> {"Numerical Data"}, "DefaultContentElement" -> "Structures", "SourceMetadata" -> <| "Creator" -> "Stephen Wolfram", "Citation" -> "Stephen Wolfram, \[OpenCurlyDoubleQuote]A New Kind of Science\ \[CloseCurlyDoubleQuote] (2002)", "Source" -> "https://www.wolframscience.com/nksonline/page-286"|>, "ExampleNotebook" -> NotebookObject[ FrontEndObject[ LinkObject["e6jsf_shm", 3, 1]], 118], "ContentElements" -> {"Structures"}, "ContentElementLocations" -> <||>, "RepositoryLocation" -> None, "InformationElements" -> <| "Structures" -> Removed["Dataset"][{<| "Number" -> 28, "Period" -> 48, "Shift" -> 0, "Cells" -> {1, 0, 0, 1}|>, <| "Number" -> 7795, "Period" -> 19, "Shift" -> 0, "Cells" -> {1, 0, 1, 2, 0, 0, 2, 0, 1}|>, <| "Number" -> 1706588, "Period" -> 26, "Shift" -> 0, "Cells" -> {1, 0, 0, 1, 2, 2, 0, 0, 2, 2, 2, 2, 2, 2}|>, <| "Number" -> 4803890, "Period" -> 41, "Shift" -> 1, "Cells" -> {1, 0, 0, 0, 0, 1, 0, 0, 1, 2, 0, 0, 2, 1, 2}|>, <| "Number" -> 154596664, "Period" -> 12, "Shift" -> 0, "Cells" -> {1, 0, 1, 2, 0, 2, 2, 2, 0, 0, 2, 2, 2, 0, 2, 1, 0, 1}|>, <|"Number" -> 514454827, "Period" -> 48, "Shift" -> 0, "Cells" -> {1, 0, 2, 2, 2, 1, 2, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1}|>}, TypeSystem`Vector[ TypeSystem`Struct[{"Number", "Period", "Shift", "Cells"}, { TypeSystem`Atom[Integer], TypeSystem`Atom[Integer], TypeSystem`Atom[Integer], TypeSystem`Vector[ TypeSystem`Atom[Integer], TypeSystem`AnyLength]}], 6], <| "ID" -> 111591944476180|>]|>, "ContentValues" -> <||>, "ContentSize" -> Quantity[8.024000000000001, "Kilobytes"], "ContentElementAccessType" -> "Dataset"|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.698082153176145*^9}] }, Open ]], Cell["Retrieve the default content:", "Text", CellChangeTimes->{{3.696186645510051*^9, 3.6961866545240507`*^9}, { 3.696187841532233*^9, 3.696187852829363*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceData", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.696186325360051*^9, 3.696186327021051*^9}, { 3.696186470495051*^9, 3.6961864722920513`*^9}, {3.696187844212501*^9, 3.6961878557606554`*^9}}], Cell[BoxData[ TemplateBox[{ TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "DisplayedRowCount" -> 20, "RowCount" -> 6, "Length" -> 6, "InitialType" -> TypeSystem`Vector[ TypeSystem`Struct[{"Number", "Period", "Shift", "Cells"}, { TypeSystem`Atom[Integer], TypeSystem`Atom[Integer], TypeSystem`Atom[Integer], TypeSystem`Vector[ TypeSystem`Atom[Integer], TypeSystem`AnyLength]}], 6], "DisplayedColumnCount" -> 20, "DataRowCount" -> 0, "Shape" -> TypeSystem`PackageScope`HeaderShape[<|{All, "Number"} -> 1, {All, "Period"} -> 1, {All, "Shift"} -> 1, {All, "Cells"} -> 1|>, TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`RowShape[<| "Number" -> TypeSystem`PackageScope`AtomShape[34], "Period" -> TypeSystem`PackageScope`AtomShape[34], "Shift" -> TypeSystem`PackageScope`AtomShape[34], "Cells" -> TypeSystem`PackageScope`UnknownShape|>]], 6, {}]], "DataColumnCount" -> 0, "InitialData" -> TypeSystem`PackageScope`CacheHandle[864388618], "Type" -> TypeSystem`Vector[ TypeSystem`Struct[{"Number", "Period", "Shift", "Cells"}, { TypeSystem`Atom[Integer], TypeSystem`Atom[Integer], TypeSystem`Atom[Integer], TypeSystem`Vector[ TypeSystem`Atom[Integer], TypeSystem`AnyLength]}], 6], "HandleQ" -> True, "Meta" -> {}, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[864388618]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Number\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Number\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1734884384][{All, "Number"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[All, "Number"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Period\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Period\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1734884384][{All, "Period"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[All, "Period"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Shift\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Shift\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1734884384][{All, "Shift"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[All, "Shift"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Cells\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Cells\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1734884384][{All, "Cells"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[All, "Cells"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["28"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[1, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["48"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[1, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[1, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0, 0, 1}, ShowStringCharacters -> False], Style[ Style[{1, 0, 0, 1}, ShowStringCharacters -> False], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1734884384][{1, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[1, Key["Cells"]]], "Mouse"]]}, { Pane[ Annotation[ RawBoxes["7795"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[2, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["19"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[2, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[2, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 9], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 9], " } "}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1734884384][{2, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[2, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["1706588"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[3, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["26"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[3, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[3, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 14], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 14], " } "}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1734884384][{3, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[3, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["4803890"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[4, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["41"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[4, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[4, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 15], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 15], " } "}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1734884384][{4, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[4, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["154596664"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[5, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["12"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[5, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[5, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 18], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 18], " } "}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1734884384][{5, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[5, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["514454827"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[6, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["48"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[6, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[6, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 19], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 19], " } "}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1734884384][{6, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ GeneralUtilities`Slice[6, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1734884384][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1734884384]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1734884384][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, { TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {229., {92.134033203125, 97.865966796875}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.6980821549322147`*^9, 3.699653475980404*^9}] }, Open ]], Cell["Plot the first 200 steps in evolution for these structures:", "Text", CellChangeTimes->{{3.694387626832855*^9, 3.6943876458731833`*^9}, { 3.694387738884844*^9, 3.694387746338294*^9}, {3.6943893425740843`*^9, 3.6943893430193853`*^9}, 3.696171168827072*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{"CellularAutomaton", "[", RowBox[{ RowBox[{"{", RowBox[{"357", ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"#Cells", ",", " ", "0"}], "}"}], ",", " ", "200"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "300"}], "}"}]}]}], "]"}], "&"}], "/@", RowBox[{"Normal", "@", RowBox[{ "ResourceData", "[", "\"\\"", "]"}]}]}]], "Input", CellChangeTimes->{{3.69438766986926*^9, 3.6943877278652277`*^9}, { 3.6943885117712307`*^9, 3.694388513547948*^9}, {3.694389346764203*^9, 3.694389383897325*^9}, 3.694389442646613*^9, {3.695992743839986*^9, 3.695992744502544*^9}, {3.696171176508483*^9, 3.6961711815148277`*^9}, 3.698082166822942*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[RasterBox[CompressedData[" 1:eJztVMt1AzEIHKgjl7SUEtyA60xXkfgJVvieA3pevV0wYhjQfL/ePy8G8Lue r/WwL1q/teTlsbA8K0b2y2lBsl+B2Kn2dvtWHrKtC4RtNxaNIG6xbKMA7bCI /ROWXUCHBeIqpSNyk61kj9zA9kS6mlv5zNgEg/6UT/8MDIzDp1sCQ+bzYNoQ rG+xiUkwgJwWBycmTahM21EUJk14aFEQhwLYZxDj3dfjkkuOtTYauOJ0KlEO jGORGvdwRg3NOjV0zqih2tMEk7YOYabcRsQftLR6v3B662McSNkvGHyMnTTn P/rBUYPSrWcq0akGpXvPixOdalB+ZQ75UBaksc4ZZ8qCNJuzTJld9XNv66XX 8/3e1kuvHAGIl+Oz/1F6KYHwfHhqBZmgpeASqGxcYSeqE0LAe9SIyOjn6Ofo p9dQ7aOfmbTRz9HPG0ueopqQ6hSNfo5+jn6OfnaBo59NQqpTNPo5+jn6OfrZ Bf5//eTUhz7wU9hN5R834CHk "], {{0, 0}, {28, 201}}, {0, 2}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 300}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJztktsVwzAIQwUrdIKu1BGyQOfsVuElcAfIH8lx4xAsxC3v6/u5FMDP1suW qi8RsU1s4xKPWMxvjSAyYjHfVRYv7ZOYWCVZGhgOKYSY3aizoeQSyNyUiocw d2xp2QWVDu+p1vWFMkf9MSbgoTIWpbr36THL2Q97jKJhNpMQh1BmwY7qpaUW 9IJe0At6QS/oBb2gF/SCXtAL+iHQQ8e3efLoscsRIeiyEZaz+qYjhvyGUyxd 659YeIf2X5m+um/lNEzfqj0AY3YGgFMxA9B91zwVp8MZyOkG5I4WwQ== "], {{0, 0}, {19, 201}}, {0, 2}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 300}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJztlIF1hDAMQx1v0teNOsIt0Dm7VTlHtuxAJ6h4wB3B/iQS4uP1/fVyM/u5 js/r8NjWtfNYse1/7iixd/F1jV/UYNAbJiDveuy4AGUj4vy+s6IrnuZF2Yg4 xwMcD8ypAA6879acETExHXDNsr6mUvAugrOFa8LJIEJroTQYweKzZWBWMrJj QDxFoROEZGWu0BonC9Kx9K5zcm6nd3S0dL15V45S17Wo1HS0VgK7Nno4ypXg OlfUHPUaGuJ2R51DTanpKIewyPa6nO54pcCHow0DBjjrhORQ6u5DlIahf0MU 6xilUWlUGpVGpZHSeHNCaVQalUalUWlUGpOiNCqNzlkojUrjMEppVBqVRqVx GqU0Ko3E/Os0Ut6/00h5n9Poxtnbs1HbgtZyYsKT0uW0u4xqupyUjcmX9BBl YPhZuEPS73rD7pCNYZyfIBvDbxQGfwHY2Sk/ "], {{0, 0}, {35, 201}}, {0, 2}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 300}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJztVdlxRDEIAzrJb8pJCdtA6kxXsZHAb208KSDsOdkhQuLSx+v762Ui8jPe n+Ntx0PHU/zLP2U8dTzOQPN/1xmihogZ+A4p/jL1cA/w74EqO6QjzGSIdkSg 2kYTtJ2Vg4vij4KmOh7AnOjMjI9CjQcEOGtRKNcIQE4B7YMmQCcssKFYL9VU pGNOgcyqQcKaK7OyW0UcG8fCe2FrmugKcFyQ3GgKk6GR0XMtaGYy4Rx5inKO Mlm2UM+mk6hmp702UjXdQSOUjFEHjuMGKhhHDSpscEXUoCXghH2qiFoWn40t Z+kxjroaW0GucZRnYytFaxyjXhybkih+F25Gkq6ISvKwVama6OIRjagiUylj btthSyl5aLEdwldAhPCCJucsJhc8SHM7YciaEOgAb9+hO5c3b5laUdCZL5R6 xaP1GyQ7LCndcJeLgmrc7TyhlrXfk8fdfoxJfW40Rk3jhMYF2DHXqMmb8Ora +MXgBcWNYF1PogL5PDcaS3KCtm1Z21bbVttWQbRtq22rbWtTY21bbVttW21b F9C2rbattq1TTdtW21bbVtvWrtvattq22rbatnZBbVv/2LaS6F+2hSLebWuB xjZfbWuBxjZLfpWYPJc8nneasXUxKJftINHgir27QuZt4KpeaVqUdDxoC3dM lhROKAXNXyYnNV0= "], {{0, 0}, {42, 201}}, {0, 2}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 300}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJztkIENw0AIA7EHqdSVOkIW6JzdqjyGJI2iTmCiSDy833DP7f3aGBGf/B/5 MwPBSoIAK8kCWJVVzG9lyFBCdGedS7qEOqugzmrUM+sIyIx7p93SP6P9AN1o N/lzLqIlqBh/+XWtx+8HIB+Np217n9Cg0XXZtnHlmGnrAbZ2RoiQcXC3rT07 x+hXSGrO5mzO5mzO5mzO5mzO5mzO5mzO5mzO5mzO5mzO5mzOB2f+4zzG6g1n DcrD+JfzybYAXzjvtg34wpkn7Q1nHuI7zkdAOw/ngcwv2T0hbA== "], {{0, 0}, {30, 201}}, {0, 2}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 300}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJztWNF15DAIBDq5Lq6OKyENpM7r6taCAWQbpPzdh/KSfbZHK0AMMM6vr+8/ X0JEfz9/vz9/JPL5vX7YfvTuet5hgpvPsgshWzmed5jfCF/XWKnWGuxzx/Y7 LPit9BgN56+QhezDnvSYIOKxjX74GXTYFfI4nvQxHi0wYbLj0Z3GFdkZNNh1 TqRHMED2Rz2mh0WRW7JHK+w6qKCELkTmakzdSNBwh41NNYaDmkDQr8NocsTd oRV2cyROboHdHXF3FtgrlPJQYtdZz8/nPFTYOFosIC00L7UOG92CUZtsD9aY gEtKorFwByM0jFGjlu0lhiJBmaBkVpjtROhgZLsvMUTOVw8BcWmNqflRkGI8 nvJQYUYm0Z4lmUotBjJZz8pU6rHRGTWhhOsdzLhjHRq3G5hyh4j8Yg+zPThd 7GGE/fxiD7PtmNPGWxh2xNUu5js+t+wxItTKY8sWw2x72bLFUJi5ZncwbJjo t4fFDP8Zlmb4zzDn/I8wNDjvOpuYhGJ5cbPBrDlW51JiaI7RBZJXd2wKgueu k7x6YmnX23A7+pNRW/7hZ9BhR38e/Tm5s8CO/jz686ExO+zoz6M/j/58BnH0 59GfUQEVdvTn0Z8Aj/7MxXV3Z4Ud/Xn059GfR39uYUd//h/6U4LzWdDFGJTX k7ZNdcs5/HH3Qs3JoE9E74N2GO+JDYMYztEHzfPanBPxyjD6EjREYy6IKOSL 2Hp7Zy6ImPtgTduw50TMfbCkZrIHIkYfbKiZDKqXlBZdN5x3ejeo02eaf2MK teZ0flh4BDml7XZhT8W0UoThuizCM/1HoIiSh6SovOSmDkmnCFsGoQFrNyEe UOGQEYs8+Gz0Cve52cYXs9EVvM/NNkDXYTfxuc6DCjEzEbqu/RpeNITRhcbl kmaCFw2SqHOZCVsFKPgOR4PLoqxohpY8FPD8qnHvdXOAyBu5jPNXjTqPSkew NDhgxqpAQUew1NQg3jq5jFAxZ6nVI+Ots4yQrFA1ZVZ8aGncRMimi6Jqibyl 1RGSJdxSxlCu8dZZ2WNLQ9qFprfOwiCh2aZdoHvLjqH7kncGwvmSa+3KTeOj OcQUCa1ntYcvzi20HNJ2WnzNww9usWZFYyzrPloKwb5lBTQvA+TpvCMr/XjB e2J+g7De3Y+XUQNpUmMoSj9erAZ8xWhpqP7W3m0F2whcjZfbCox7bsgSBubJ SX4+nT1fYTWhZ7Tu2r7C/xFhnWwxlGJF/BNMulrIAbrHSHpTC2GQksdI+soc xYroSJ1udTfTK6x3pKU5FZ1i6WMo1+XIFRWdYjIEzWw5ciE6TfR6M1uOXIhO Uq5Zb1mOXHHRCXZuKTs1SNGxaaP0YA8VJ2qIZCu8EJ0wxGtFIXAOp2NvBzvh qXPExjiWZ3j/APimQy0= "], {{0, 0}, {56, 201}}, {0, 2}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 300}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}]}], "}"}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.698082194973431*^9}] }, Open ]], Cell["Find the repeating element of the third structure:", "Text", CellChangeTimes->{{3.696171068093992*^9, 3.696171072933827*^9}, { 3.696171159470009*^9, 3.696171166850294*^9}, {3.6961713993812103`*^9, 3.696171403010532*^9}, {3.696171436820327*^9, 3.696171438145393*^9}, { 3.700313896796042*^9, 3.700313913513674*^9}, {3.700313981985444*^9, 3.7003139829775763`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ArrayPlot", "@", "\[IndentingNewLine]", RowBox[{"Last", "@", RowBox[{"FindTransientRepeat", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"CellularAutomaton", "[", RowBox[{ RowBox[{"{", RowBox[{"357", ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Normal", "@", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"3", ",", "\"\\""}], "]"}], "]"}]}], ",", "0"}], "}"}], ",", "200"}], "]"}], ",", "\[IndentingNewLine]", "3"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.700313917402823*^9, 3.700313927906961*^9}, 3.700313985258588*^9}], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJxlkcEVwzAIQyWP0VtfN+oIWaD73+oaBCLNi50Yg4z1n9fnfS0Ajz1eeyw9 rGnHEDu+H0tFyEzO2WUoDVUMkb21iyENVkkenfKMVkxHCXvnvCenNEzkJw9k Riyw9NVNTvr+xHt6oIv8/s4B8ae2q3ndhLEO6ZTI5usmudaNTh9mirpoc8MS d1aNKAjgjqeQIX3sQ51OylA1f3gUkw7vIgrJ9zVMMZnmN0yBy/RoomQlDXZO dLXHzm4QhYNqdgWV7vFglyYWXjXj7Kgqxz3ZpZUT941d2hslX8r2BuI= "], {{0, 0}, {35, 26}}, {0, 2}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{203.3125, Automatic}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.700313918191331*^9, 3.7003139282200117`*^9}, 3.700313985868435*^9}] }, Open ]], Cell["", "Input", Editable->False, Selectable->False, Deletable->False, ShowCellBracket->False, CellBracketOptions->{"OverlapContent"->True}, CellFrameMargins->{{Inherited, Inherited}, {Inherited, 30}}, CellSize->{Automatic, 1}], Cell["", "DataResourcePageBreak", CellFrameMargins->0, Background->RGBColor[ Rational[8, 255], Rational[23, 85], Rational[107, 255]]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{808, 755}, WindowMargins->{{314, Automatic}, {Automatic, 50}}, WindowTitle->"Persistent Structures in the Code 357 Cellular Automaton | \ Example Notebook", Visible->True, DockedCells->{}, FrontEndVersion->"13.2 for Mac OS X x86 (64-bit) (November 18, 2022)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[649, 22, 118, 1, 70, "DataResourceExamplesChapter",ExpressionUUID->"bad95d4f-b7c4-4a86-8384-352339b445d2"], Cell[CellGroupData[{ Cell[792, 27, 36, 0, 70, "Subsection",ExpressionUUID->"8b73a9f2-0fe5-4c0d-be04-e465aeb4e07a"], Cell[831, 29, 170, 3, 70, "Text",ExpressionUUID->"4cd2a6ea-c55a-443a-9907-b40c7ba798ce", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[1026, 36, 304, 6, 70, "Input",ExpressionUUID->"7707c1cb-e3be-4298-9013-ae15b16e7166"], Cell[1333, 44, 19187, 421, 70, "Output",ExpressionUUID->"f6a1e9bf-284d-4f6f-9069-52ff8df060c0"] }, Open ]], Cell[20535, 468, 162, 2, 70, "Text",ExpressionUUID->"041e1692-1eb8-4909-82c0-af78036a7611"], Cell[CellGroupData[{ Cell[20722, 474, 302, 6, 70, "Input",ExpressionUUID->"d1ee030c-ccc8-4660-afef-35704412e787"], Cell[21027, 482, 29203, 581, 70, "Output",ExpressionUUID->"92c1e331-563b-48e1-a7a6-4a2edc74a8e2"] }, Open ]], Cell[50245, 1066, 269, 3, 70, "Text",ExpressionUUID->"2bb14c6e-0c64-4cd1-ae5a-4dce38cf6d83"], Cell[CellGroupData[{ Cell[50539, 1073, 989, 26, 70, "Input",ExpressionUUID->"d10bc35d-d368-4247-b5b7-8320e9306bed"], Cell[51531, 1101, 6268, 135, 70, "Output",ExpressionUUID->"5240ff76-6320-4c75-b237-6fa249794200"] }, Open ]], Cell[57814, 1239, 378, 5, 70, "Text",ExpressionUUID->"36bfeda9-f056-40f2-9f1c-2b240ca774ca"], Cell[CellGroupData[{ Cell[58217, 1248, 1132, 27, 70, "Input",ExpressionUUID->"e246d78b-107a-4c0e-af6b-5ae4934ab900"], Cell[59352, 1277, 1015, 21, 70, "Output",ExpressionUUID->"7081fe5f-e5e7-4f63-afd4-115e0bc1c5e0"] }, Open ]], Cell[60382, 1301, 235, 7, 70, "Input",ExpressionUUID->"392b2b20-d851-4a71-89ff-5011ecb13e7a"], Cell[60620, 1310, 146, 5, 70, "DataResourcePageBreak",ExpressionUUID->"c83083ea-4cac-4174-bea6-42f46903b907"] }, Open ]] } ] *) (* End of internal cache information *)