(* 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[ 102521, 2294] NotebookOptionsPosition[ 100415, 2246] NotebookOutlinePosition[ 100988, 2269] CellTagsIndexPosition[ 100945, 2266] WindowTitle->Examples for Persistent Structures in the Code 20 Cellular \ Automaton WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ 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.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^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[ TemplateBox[{ "\"Persistent Structures in the Code 20 Cellular Automaton\"", "\" \"", TagBox[ ButtonBox[ PaneSelectorBox[{ False -> "\"\[RightGuillemet]\"", True -> StyleBox["\"\[RightGuillemet]\"", {"HyperlinkActive"}]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle -> {"Hyperlink"}, FrameMargins -> 0, ImageSize -> Automatic], BaseStyle -> "Hyperlink", ButtonData -> { URL[ "https://datarepository.wolframcloud.com/resources/\ Persistent-Structures-in-the-Code-20-Cellular-Automaton"], None}, ButtonNote -> "https://datarepository.wolframcloud.com/resources/\ Persistent-Structures-in-the-Code-20-Cellular-Automaton"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/\ Persistent-Structures-in-the-Code-20-Cellular-Automaton"], "Hyperlink"]& ]}, "RowDefault"], "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[ "The known persistent structures in the k=2, r=2 \ totalistic code 20 cellular automaton", ResourceSystemClient`Private`len$$], Except[ Blank[String]] -> Snippet[ "The known persistent structures in the k=2, r=2 \ totalistic code 20 cellular automaton", ResourceSystemClient`Private`len$$], { 0}], StandardForm], ImageSizeCache->{392., {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[ TemplateBox[{ "\"Persistent Structures in the Code 20 Cellular Automaton\"", "\" \"", TagBox[ ButtonBox[ PaneSelectorBox[{ False -> "\"\[RightGuillemet]\"", True -> StyleBox["\"\[RightGuillemet]\"", {"HyperlinkActive"}]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle -> {"Hyperlink"}, FrameMargins -> 0, ImageSize -> Automatic], BaseStyle -> "Hyperlink", ButtonData -> { URL[ "https://datarepository.wolframcloud.com/resources/\ Persistent-Structures-in-the-Code-20-Cellular-Automaton"], None}, ButtonNote -> "https://datarepository.wolframcloud.com/resources/\ Persistent-Structures-in-the-Code-20-Cellular-Automaton"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/\ Persistent-Structures-in-the-Code-20-Cellular-Automaton"], "Hyperlink"]& ]}, "RowDefault"], "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[ "The known persistent structures in the k=2, r=2 \ totalistic code 20 cellular automaton", ResourceSystemClient`Private`len$$], Except[ Blank[String]] -> Snippet[ "The known persistent structures in the k=2, r=2 \ totalistic code 20 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["\<\"Documentation: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ ButtonBox[ PaneSelectorBox[{ False->"\<\"https://datarepository.wolframcloud.com/\ resources/Persistent-Structures-in-the-Code-20-Cellular-Automaton\"\>", True-> StyleBox["\<\"https://datarepository.wolframcloud.com/\ resources/Persistent-Structures-in-the-Code-20-Cellular-Automaton\"\>", "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{"Hyperlink"}, FrameMargins->0, ImageSize->Automatic], BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://datarepository.wolframcloud.com/resources/\ Persistent-Structures-in-the-Code-20-Cellular-Automaton"], None}, ButtonNote-> "https://datarepository.wolframcloud.com/resources/\ Persistent-Structures-in-the-Code-20-Cellular-Automaton"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/Persistent-\ Structures-in-the-Code-20-Cellular-Automaton"], "Hyperlink"]& ], "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 20 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 20 Cellular \ Automaton\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"Missing", "[", "\<\"NotAvailable\"\>", "]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Elements: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"RawData\"", "\"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[<| "Name" -> "Persistent Structures in the Code 20 Cellular Automaton", "UUID" -> "Persistent Structures in the Code 20 Cellular Automaton", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "The known persistent structures in the k=2, r=2 totalistic code 20 \ cellular automaton", "ContentSize" -> Missing["NotAvailable"], "ContentElements" -> {"RawData", "Structures"}|>], 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.705427948713215*^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.6804518239459944`*^9, 3.680451854651065*^9}, 3.7054279558530693`*^9}], Cell[BoxData[ TemplateBox[{ TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "DisplayedRowCount" -> 20, "RowCount" -> 20, "Length" -> 20, "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]}], 20], "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|>]], 20, {}]], "DataColumnCount" -> 0, "InitialData" -> TypeSystem`PackageScope`CacheHandle[516371679], "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]}], 20], "HandleQ" -> True, "Meta" -> {}, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[516371679]], 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$$, 425893934][{ All, "Number"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ 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$$, 425893934][{ All, "Period"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ 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$$, 425893934][{ All, "Shift"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ 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$$, 425893934][{ All, "Cells"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[All, "Cells"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["151"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[1, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["2"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[1, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[1, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0, 0, 1, 0, 1, 1, 1}, ShowStringCharacters -> False], Style[ Style[{1, 0, 0, 1, 0, 1, 1, 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$$, 425893934][{ 1, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[1, Key["Cells"]]], "Mouse"]]}, { Pane[ Annotation[ RawBoxes["187"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[2, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["9"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[2, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[2, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0, 1, 1, 1, 0, 1, 1}, ShowStringCharacters -> False], Style[ Style[{1, 0, 1, 1, 1, 0, 1, 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$$, 425893934][{ 2, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[2, Key["Cells"]]], "Mouse"]]}, { Pane[ Annotation[ RawBoxes["189"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[3, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[3, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[3, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 0, 1, 1, 1, 1, 0, 1}, ShowStringCharacters -> False], Style[ Style[{1, 0, 1, 1, 1, 1, 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$$, 425893934][{ 3, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[3, Key["Cells"]]], "Mouse"]]}, { Pane[ Annotation[ RawBoxes["195"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[4, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["22"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[4, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[4, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 1, 0, 0, 0, 0, 1, 1}, ShowStringCharacters -> False], Style[ Style[{1, 1, 0, 0, 0, 0, 1, 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$$, 425893934][{ 4, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[4, Key["Cells"]]], "Mouse"]]}, { Pane[ Annotation[ RawBoxes["221"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[5, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["9"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[5, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["-1"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[5, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Style[{1, 1, 0, 1, 1, 1, 0, 1}, ShowStringCharacters -> False], Style[ Style[{1, 1, 0, 1, 1, 1, 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$$, 425893934][{ 5, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[5, Key["Cells"]]], "Mouse"]]}, { Pane[ Annotation[ RawBoxes["635"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[6, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[6, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[6, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 10], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 10], " } "}], 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$$, 425893934][{ 6, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[6, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["889"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[7, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[7, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["-1"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[7, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 10], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 10], " } "}], 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$$, 425893934][{ 7, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[7, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["125231"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[8, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["38"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[8, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[8, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 17], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 17], " } "}], 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$$, 425893934][{ 8, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[8, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["595703"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[9, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["4"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[9, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[9, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 20], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 20], " } "}], 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$$, 425893934][{ 9, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[9, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["610999"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[10, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["4"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[10, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[10, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 20], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 20], " } "}], 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$$, 425893934][{ 10, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[10, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["14871103"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[11, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["2"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[11, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["1"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[11, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 24], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 24], " } "}], 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$$, 425893934][{ 11, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[11, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["16537415"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[12, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["2"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[12, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["-1"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[12, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 24], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 24], " } "}], 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$$, 425893934][{ 12, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[12, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["256296063"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[13, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["5"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[13, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[13, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 28], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 28], " } "}], 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$$, 425893934][{ 13, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[13, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["22503642597"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[14, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["5"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[14, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[14, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 35], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 35], " } "}], 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$$, 425893934][{ 14, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[14, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["222678959859"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[15, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["3"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[15, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[15, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 38], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 38], " } "}], 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$$, 425893934][{ 15, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[15, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["10495070598767"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[16, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["8"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[16, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[16, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 44], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 44], " } "}], 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$$, 425893934][{ 16, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[16, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["360759087837221"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[17, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["10"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[17, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[17, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 49], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 49], " } "}], 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$$, 425893934][{ 17, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[17, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["2197520782601119"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[18, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["10"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[18, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[18, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 51], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 51], " } "}], 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$$, 425893934][{ 18, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[18, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["11221488970893447375"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[19, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["6"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[19, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[19, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 64], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 64], " } "}], 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$$, 425893934][{ 19, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[19, Key["Cells"]]], "Mouse"], BaseStyle -> { GrayLevel[0.5]}]}, { Pane[ Annotation[ RawBoxes["142082121178470981231"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[20, Key["Number"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["10"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[20, Key["Period"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[20, Key["Shift"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Row[{" { ", Subscript["\[Ellipsis]", 67], " } "}], Style[ Row[{" { ", Subscript["\[Ellipsis]", 67], " } "}], 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$$, 425893934][{ 20, Key["Cells"]}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ GeneralUtilities`Slice[20, 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$$, 425893934][ 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$$, 425893934]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[425893934][ 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 -> {387., {267.134033203125, 272.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.705427948951644*^9, 3.705427957971665*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["\<\ Plot the first 100 steps in evolution for the first 10 structures:\ \>", "Text", 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.705427968666891*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ArrayPlot", "[", RowBox[{ RowBox[{"CellularAutomaton", "[", RowBox[{ RowBox[{"{", RowBox[{"20", ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"#Cells", ",", " ", "0"}], "}"}], ",", " ", "100"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "200"}], "}"}]}]}], "]"}], "&"}], "/@", RowBox[{"Normal", "[", RowBox[{"Take", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", "10"}], "]"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[RasterBox[CompressedData[" 1:eJxTTMoPSmJiYGBIBWJOIGZgZGRghFBAAkyNioyKjIoMhAgAVgsDqw== "], {{0, 0}, {9, 101}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 200}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJxTTMoPSmJiYGBIBWJJIGZEBgwgCEZoACSGTRwiwQBmoIkzwoUZ0DVAGCim MSDZjqID7iAGNB1IFqO7C8LH4t5R/436b9R/o/4b9d+o/0b9N+q/4e4/ALav CYU= "], {{0, 0}, {25, 101}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 200}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJxTTMoPSmJiYGBIBWIOIGZghBKj9Cg9SuOkAfC/AuA= "], {{0, 0}, {8, 101}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 200}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJztVEkSAiEQS3yHF7/kE6bKs/+/SQm9pBtfIJQM0/RGMsHH9X5eNwCvMe9j gmOMB+a7LXPX31cYPHZZY8KDbWfGsNZMu7P0NwFueidYrpgreLakmh5s5ywl GEsxYedmN0FH100DtTNhUGnkSpWSFyXJ7FoMRxpZnPks66s44VLEPxZLC2ev 8CB4Cw+Kt/AgeDMPR2dHZ0dnR2dHZ3+tM4hCionuS2yLepyvBCmqhJgCUtCP 6OdLAauQmpgSpC6mpKAqpnx19FLZuTMtFGeWHFmdwYR67BAIvqShEbmr6feQ dSQt9WGS27nSr/v8YuzSkDjoab8S+9+HIlR0HwBTCSA= "], {{0, 0}, {28, 101}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 200}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJxTTMoPSmJiYGBIBWJJIGZkZAQSIMQIYqMCsAymBEQThgQDXIoRXYaBAW4e mg4kuxnQdDAgnIbqJoQDMFwLU4HFH6M+HPXhqA9HfTjqw1Efjvpw1IcjwIcA t2sJhQ== "], {{0, 0}, {25, 101}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 200}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJztzbEJACAMAMHoJq7kCIKt7t8ZZxCs7uHra2P3USNi5isvH0okLvVFg8Fg MBgMBoPBYDAYDAaDwWAwGAwGg8FgMBgMBoPBYDAYDAaDwZ47B2crHw== "], {{0, 0}, {110, 101}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 200}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJztzbsJACAUA8Cnm7iSIwi2un/nZwhBuJCkvdJmbTki+t6Ik3Qv7T4IDofD 4XA4HA6Hw+FwOBwOh8PhcDgcDofD4XA4HA6Hw+FwOBwO9wG3AASkKx8= "], {{0, 0}, {110, 101}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 200}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJztVNsRwjAMs1iEYyVG6B3f7P9HH7Yku8cGOVJSohBLtuLX9n1vj4j47M9z f3A953R85cQlnAtIALnpmg/0HAJqUwKBGABDXLvuAEMggycUNXEZeUyBxUwo jKe0IApOJkaqiMHJRUUSsa45uvaKHZkChOVCqInzcPmecseLdMNOLy5OLXm1 d+J5HGm6Lp7c69hgMiZZQ4tIUAx6bJYN5jPhFcF91rhZvTszTDAGLPPK1P5n kTWDG0i1QdDcItEZdrqlUj8SpJyy3resUmswB7SS6s8hBrxqfUBVMMuptgUM y/XfukzNLRatlKBPFPPHLeaB1ZmUJ/MaJazO1ODVmVZnsus/3GLRVmdancmy outbn9WZvKbyJs/+AWCcCQ0= "], {{0, 0}, {31, 101}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 200}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJxTTMoPSmJiYGBIBWIxIGZkYAQhIAaxGSAEWBACIFIgLiMjIwNCDVQThGKA KkJoGjV31NxRc0fNHTV31NxRc0fNpZK5ANPEBhY= "], {{0, 0}, {22, 101}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 200}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], ",", GraphicsBox[RasterBox[CompressedData[" 1:eJxTTMoPSmJiYGBIBWJRIGZgZGQAQwgFQlAGWAyiAqqEgQGhAaoOLAaXYITo GzVz1MxRM0fNHDVz1MxRM0eImQCOtgWx "], {{0, 0}, {21, 101}}, {0, 1}], Frame->Automatic, FrameLabel->{None, None}, FrameTicks->{{None, None}, {None, None}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{Automatic, 200}, 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.7054279764223957`*^9}] }, Open ]], Cell[TextData[{ "Reproduce the images on page 284 of ", StyleBox["A New Kind of Science", FontSlant->"Italic"], ":" }], "Text", 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.705427985474188*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Row", "[", RowBox[{"Map", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ArrayPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Flatten", "@", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"0", ",", "3"}], "]"}], ",", "#", ",", RowBox[{"Table", "[", RowBox[{"0", ",", "3"}], "]"}]}], "}"}]}], "&"}], "/@", "\[IndentingNewLine]", RowBox[{"CellularAutomaton", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"20", ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", "2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"#Cells", ",", " ", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"200", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"#Shift", "==", "0"}], ",", "Automatic", ",", "40"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "200"}], "}"}]}]}], "]"}], "&"}], ",", "\[IndentingNewLine]", RowBox[{"Normal", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", "13"}], "]"}], "[", RowBox[{"Select", "[", RowBox[{ RowBox[{"#Shift", ">=", "0"}], "&"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}], "]"}]], "Input"], Cell[BoxData[ TemplateBox[{ GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmJiYGA4CcT8QMzIyMgAQhAmGICYYDEIb1R2VHZUdlR2VHZUdlR2 VHZUdlR2VHaQyQIA4MoKWw== "], {{0, 0}, {15, 201}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, 200}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], GraphicsBox[ RasterBox[CompressedData[" 1:eJztkdEJwzAMBaVu0gm6S0fIAp2zWzXExaSgM/rpR+AMBkPOL8+6+/Z6breI eO/7se+kNT5FLpAffKBN+oD79MDjOLTonHDjwuyxGscpe761kT6HEq300zN7 s9ESZWtphWup4udfWriWMFtLNa0lrKMlyNZSTWsJ62gJsrVU01rCOlqCbC3V tJawjpYgW0s1rSWsoyXI1lJNawnraAmytVTTWsI6WoJsLdW0lrCOliBbSzX9 P0vfC11LqSWmL2spL2vpA714IpY= "], {{0, 0}, {47, 201}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, 200}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], GraphicsBox[ RasterBox[CompressedData[" 1:eJztx1ENACAMxNA7BOBhlpAwA+jEFZuNpR9N+iLvySXpVbuyLaunFyGEEEII ocn6Jm8IyA== "], {{0, 0}, {14, 201}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, 200}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], GraphicsBox[ RasterBox[CompressedData[" 1:eJztlIm5AiEMhIfXiZb0SrAB67QrD0gyCcEC/GZ1j7Ahx/Czl9v9//YH4PE6 r69zfA6s32jNOQb3bkybxTG2EO+BEqMmeQ/mrCO7YGxpu0pncL+UKSsGwE+7 C2aXaJJav7A+t169FKSHLYbNzOqtd0sRbwMxavGnQW1Y29QqwFmi7SihZsnF wMX4hHKTK8USyebDq1l55wyYYmy6VnGrpvcSt2qawavVLJ5YH/UQ62K9N22W WN9KEetDrIt1sS7WU+liXaxTL3ET62JdrIv1ElasUwliPbmI9eoh1qnSH2Id mcxiRrHZY1s7YtcUZ/hNgohYUQ4JbEk3ikiCTo0iwQFlkuCEMvHbo8zbfUc5 Oozm+/3C2DcOsd37PUksoyqeCrEFOWfx70jrYIWcynCX7w70P3n4Bj6HACl3 CvE9yOlDyS5x9eMJlkEVEg== "], {{0, 0}, {34, 201}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, 200}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], GraphicsBox[ RasterBox[CompressedData[" 1:eJzt2UENgDAQRcEtTlBQL0ioAXTiigIJ5y2BhMNM8m9vFezc1qVNEbH11b4C AAAAAAAAwNvGfrEf1wMHR53PzzqdX3U2f1bn+rtO5Wq1Wq3+R70DAsEmjA== "], {{0, 0}, {47, 201}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, 200}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], GraphicsBox[ RasterBox[CompressedData[" 1:eJztlNF5w0AIg0U36UMX6ghZoHN2qyYOAsHhCUrzpTnnyPEjy/p8/Hw/PgD8 Pt9fz7e9/14LmP+LNXdZ9HoBFi9ftypc31+H2LVCPyh6XT/maip6/1I+jm6B yT3v3JkMghwntyr29E5DTQ6OOwHMesnA7VSpw6SS6yM6+edRwhl9rrOMEvqW ylpnIxiarG02h+dydIHc5WO+pPFbQ8sgds3vlKVF0jLSMlHpzbzOls3q9Tqh oIt+nVCDMwuStxmcKUfRlZQT9avC69sWyk/gsR1KjuDlpApuvVFpagWKPuFH 1dIvEUYJS7QaNbbYHbUotAvkil3Qwd7DUyWToWpVmSQN41D0GpFBAQoSn6a6 6DqZ9Ivn4gAPh8u6VXmDGGLKlU1fk8coH6/zoBwoTXqWcMZN33TNpu8N+KYv gkW0qkybvpu+Ykcx6VnCGTd90zWbvjfgm74IFtGqMm36bvqKHcWkZwln3PRN 12z63oBv+iJYRKvKtOm76St2FJOeJZxx0zdds+l7A77pi2ARrSrTpu//Td8/ jxYVLw== "], {{0, 0}, {37, 201}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, 200}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], GraphicsBox[ RasterBox[CompressedData[" 1:eJztzcENACEIRNHBOvZiS5ZgA9a5XQmLRhvY25+AiUF5tY/Wi6TX+/E2j77y VlQelolRJh/E1XZ03q8Fdg/Xh7PgXoqHh4eHh4eHh4eHh4eHh4eHh4eHh/ef NwFxjg8e "], {{0, 0}, {28, 201}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, 200}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], GraphicsBox[ RasterBox[CompressedData[" 1:eJztzdsNwCAMQ1GbNfrVlRiBBTpntyrhEXUEPq6UCCm2OHd7aiuS3r5XX9uK UT4xcfaIpFnQ7v6jedQqZDSSjL3/MBYWFhYWFhYWFhYWFhYWFhYWFhbW4dYH KCcOVQ== "], {{0, 0}, {27, 201}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, 200}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], GraphicsBox[ RasterBox[CompressedData[" 1:eJzt2MENgzAQRFGTTqggvaQEGqBOugIpEQqS17sDxvjwv8Rt9sXnjNP8mV4p pWX73ts3EBEREREREREREdGD3fo3rYpLexlXDnRcuEjiD+i4su8ND1988eC8 DR7d//DQ/DQe2f/hscfseGDeLe4eHHHfv4L7+wPuzNvi3v4aXj5ojBf2ObzE Z3B7XgM391Vw68DA7cdkcWNeCc/vTdx6DDg4ODh4l/hwI74CfDkkYQ== "], {{0, 0}, {47, 201}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, 200}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}], GraphicsBox[ RasterBox[CompressedData[" 1:eJztlIFxA0EIA0U6SQ3pJCW4gdSZruK8QQju00BGP+Of8x0crIB/f3x9Pt4A fD9/H89fvB5EL3/X+czdmM9lEK9XpPXLrA62R9QpArmOXKHuuXG57slkriX/ Be7yikob5ZyG3N0+xje+8Y1vfOMb3/jGN77xjW984xvf+MY3vvGNb3zjG9/4 xje+8Y1vfOMb3/j/D1/MEjpws3u68NXkU71T5EJF4kMk2SKDhHpc15Q22EFa t8oBvRGxwlR08kq23NcwoBNT7+C6304JwBbRBMD2oU1jVjlHmcG2aTOJz25m fCoiXTPu4t7A1xtHfIAlOfBZHGzKnpHOKqhKzKsYEiVo64PBN6N0ZI2oAzby kmkMMQmp4Fn+avmsFTT541QKwgKs5NepKNZ1qX5sHzUSH0yPmD7YHjW4LR9H ep8OmbUvZK7n6dC51AoJQQl3IZnNyEtF2g3WokFWu4dPDw5SjaaKdMolPm3O r8sxqkMCfvJahg76hwsw3j3290Gq6EyRbb2K8gN/mxul "], {{0, 0}, {51, 201}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, 200}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}]}, "RowDefault"]], "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.705427996937834*^9}] }, Open ]] }, Open ]], Cell["Analysis", "Subsection"] }, ClosingSaveDialog->False, WindowSize->{775, 852}, WindowMargins->{{462, 443}, {Automatic, 21}}, WindowTitle->"Examples for Persistent Structures in the Code 20 Cellular \ Automaton", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, 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[CellGroupData[{ Cell[664, 24, 36, 0, 70, "Subsection",ExpressionUUID->"bb28462d-78ec-4673-bb49-c430960dc03f"], Cell[703, 26, 170, 3, 70, "Text",ExpressionUUID->"0dfaccdc-c857-4019-bb66-ed199bd21c0b", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[898, 33, 258, 5, 70, "Input",ExpressionUUID->"74d9fd75-32cf-4202-a36d-72a3917922a0"], Cell[1159, 40, 20519, 450, 70, "Output",ExpressionUUID->"9dc187c5-b215-4ce8-a8eb-63de6e88ee05"] }, Open ]], Cell[21693, 493, 162, 2, 70, "Text",ExpressionUUID->"43af4af2-a637-432f-b852-989bc031d375"], Cell[CellGroupData[{ Cell[21880, 499, 229, 5, 70, "Input",ExpressionUUID->"cfbed9f4-62e7-4fc9-9250-27b76908ea35"], Cell[22112, 506, 62489, 1344, 70, "Output",ExpressionUUID->"ed3bc827-8512-47b3-b64b-abe9fddccf5e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[84650, 1856, 35, 0, 70, "Subsection",ExpressionUUID->"c09a1b08-8ce4-4ca0-9f77-691dbee96ee5"], Cell[84688, 1858, 375, 6, 70, "Text",ExpressionUUID->"3c6e027e-553c-47c5-9e68-011b83bb7b87"], Cell[CellGroupData[{ Cell[85088, 1868, 743, 23, 70, "Input",ExpressionUUID->"66ce7364-d1e6-4c91-94a4-78aedabc869f"], Cell[85834, 1893, 5612, 145, 70, "Output",ExpressionUUID->"987f7985-27bc-428e-b208-bd1e5d35eca0"] }, Open ]], Cell[91461, 2041, 417, 9, 70, "Text",ExpressionUUID->"e9836560-1a42-45bd-ac64-9ee1bbb1f83e"], Cell[CellGroupData[{ Cell[91903, 2054, 1776, 49, 70, "Input",ExpressionUUID->"d4e32043-95a8-4dcf-8a0a-198b28397818"], Cell[93682, 2105, 6672, 135, 70, "Output",ExpressionUUID->"ce0e6b56-42e0-4117-9cfe-b96fe9a696b7"] }, Open ]] }, Open ]], Cell[100381, 2244, 30, 0, 70, "Subsection",ExpressionUUID->"6fa4a6a1-25db-4a84-9b43-a7bd440293b6"] } ] *) (* End of internal cache information *)