(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 103291, 2201] NotebookOptionsPosition[ 100371, 2124] NotebookOutlinePosition[ 102134, 2176] CellTagsIndexPosition[ 102091, 2173] WindowTitle->TagSystemRulePlot | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell[TextData[{ "Generate rule icons from ", StyleBox["A New Kind of Science", FontSlant->"Italic"], ", page ", ButtonBox["93", BaseStyle->"Hyperlink", ButtonData->{ URL["https://www.wolframscience.com/nks/p93"], None}, ButtonNote->"https://www.wolframscience.com/nks/p93"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.768062311106064*^9, 3.768062326250063*^9}, { 3.768212698061325*^9, 3.7682127132937737`*^9}}, CellID->432984635], Cell[BoxData[ RowBox[{ RowBox[{"rules1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", RowBox[{"{", "0", "}"}]}]}], "}"}]}], "}"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.759170357348629*^9, 3.759170392640607*^9}}, CellLabel->"In[2]:=", CellID->471332390], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["TagSystemRulePlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["TagSystemRulePlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/TagSystemRulePlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "TagSystemRulePlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["TagSystemRulePlot"], BoxID -> "TagSystemRulePlot", Selectable->False], "/@", "rules1"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.759247718602363*^9, 3.7592477260269213`*^9}}, CellLabel->"In[5]:=", CellID->116680607], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{InsetBox[ GraphicsBox[{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[1], RectangleBox[{1, 0}, {4, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {4, 0}, {4, 1}, {1, 1}, {1, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{1.5, 0.5}], PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{1, 0}, {0, -0.45}}, 0.25], ArrowBox[{{4, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {0, 0}, { Left, Bottom}, {1.7142857142857144, 1}], InsetBox[ GraphicsBox[{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[1], RectangleBox[{1, 0}, {4, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {4, 0}, {4, 1}, {1, 1}, {1, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{1.5, 0.5}], PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{1, 0}, {0, -0.45}}, 0.25], ArrowBox[{{4, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {1.7142857142857144, 0}, { Left, Bottom}, {1.7142857142857144, 1}]}, {AbsoluteThickness[ 0.25], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.7142857142857144`, 0}, {1.7142857142857144`, 1}}], LineBox[{{3.428571428571429, 0}, {3.428571428571429, 1}}]}, LineBox[{{0, 0}, {3.428571428571429, 0}}], LineBox[{{0, 1}, {3.428571428571429, 1}}]}}, AspectRatio->Automatic], ",", GraphicsBox[{{InsetBox[ GraphicsBox[{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[1], RectangleBox[{1, 0}, {4, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {4, 0}, {4, 1}, {1, 1}, {1, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{1.5, 0.5}], PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{1, 0}, {0, -0.45}}, 0.25], ArrowBox[{{4, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {0, 0}, { Left, Bottom}, {1.7142857142857144, 1}], InsetBox[ GraphicsBox[{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[1], RectangleBox[{1, 0}, {4, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {4, 0}, {4, 1}, {1, 1}, {1, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{1.5, 0.5}], PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{1, 0}, {0, -0.45}}, 0.25], ArrowBox[{{4, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, FontColor->GrayLevel[0.]]}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {1.7142857142857144, 0}, { Left, Bottom}, {1.7142857142857144, 1}]}, {AbsoluteThickness[ 0.25], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.7142857142857144`, 0}, {1.7142857142857144`, 1}}], LineBox[{{3.428571428571429, 0}, {3.428571428571429, 1}}]}, LineBox[{{0, 0}, {3.428571428571429, 0}}], LineBox[{{0, 1}, {3.428571428571429, 1}}]}}, AspectRatio->Automatic], ",", GraphicsBox[{{InsetBox[ GraphicsBox[{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[1], RectangleBox[{1, 0}, {4, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {4, 0}, {4, 1}, {1, 1}, {1, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{1.5, 0.5}], PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{1, 0}, {0, -0.45}}, 0.25], ArrowBox[{{4, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 4.5}, {-2., 1.5}}], {0, 0}, { Left, Bottom}, {1.4285714285714284, 1}], InsetBox[ GraphicsBox[{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[1], RectangleBox[{1, 0}, {4, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {4, 0}, {4, 1}, {1, 1}, {1, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{1.5, 0.5}], PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{1, 0}, {0, -0.45}}, 0.25], ArrowBox[{{4, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, FontColor->GrayLevel[0.]]}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {1.4285714285714284, 0}, { Left, Bottom}, {1.7142857142857144, 1}]}, {AbsoluteThickness[ 0.25], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.4285714285714284`, 0}, {1.4285714285714284`, 1}}], LineBox[{{3.142857142857143, 0}, {3.142857142857143, 1}}]}, LineBox[{{0, 0}, {3.142857142857143, 0}}], LineBox[{{0, 1}, {3.142857142857143, 1}}]}}, AspectRatio->Automatic]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.759247719318081*^9, 3.759247726554365*^9}}, CellLabel->"Out[5]=", CellID->397691162] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->224031726], Cell[TextData[{ "Rules from ", StyleBox["A New Kind of Science", FontSlant->"Italic"], ", page ", ButtonBox["94", BaseStyle->"Hyperlink", ButtonData->{ URL["https://www.wolframscience.com/nks/p94"], None}, ButtonNote->"https://www.wolframscience.com/nks/p94"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.759167950401142*^9, 3.759167955814926*^9}, { 3.759173045559976*^9, 3.759173053550415*^9}, {3.768212730466846*^9, 3.768212735587604*^9}}, CellID->44656128], Cell[BoxData[ RowBox[{ RowBox[{"rules2", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", "1", "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", "0", "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", "0", "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", "1", "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", "0", "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "}"}]}]}], "}"}]}], "}"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.759167184452382*^9, 3.759167190428794*^9}}, CellLabel->"In[6]:=", CellID->422278984], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["TagSystemRulePlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["TagSystemRulePlot", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/TagSystemRulePlot"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "TagSystemRulePlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["TagSystemRulePlot"], BoxID -> "TagSystemRulePlot", Selectable->False], "/@", "rules2"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.759170475226656*^9, 3.759170477132884*^9}, 3.75917064064058*^9, 3.759247736585249*^9}, CellLabel->"In[8]:=", CellID->456257904], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{InsetBox[ GraphicsBox[{{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[{RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, FontColor->GrayLevel[0.]]}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, {GrayLevel[0.85], RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, {GrayLevel[0.85], RectangleBox[NCache[{5, Rational[-3, 2]}, {5, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{5, Rational[-3, 2]}, {6, Rational[-3, 2]}, { 6, Rational[-1, 2]}, {5, Rational[-1, 2]}, { 5, Rational[-3, 2]}}, {{5, -1.5}, {6, -1.5}, {6, -0.5}, { 5, -0.5}, {5, -1.5}}]]}}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 6.5}, {-2., 1.5}}], {0, 0}, { Left, Bottom}, {2., 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, {}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {2., 0}, { Left, Bottom}, {1.7142857142857144, 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[0.], StyleBox[{RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, FontColor->GrayLevel[0.]]}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {3.7142857142857144, 0}, { Left, Bottom}, {1.7142857142857144, 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, FontColor->GrayLevel[0.]]}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {5.428571428571429, 0}, { Left, Bottom}, {1.7142857142857144, 1}]}, {AbsoluteThickness[ 0.25], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{2., 0}, {2., 1}}], LineBox[{{3.7142857142857144`, 0}, {3.7142857142857144`, 1}}], LineBox[{{5.428571428571429, 0}, {5.428571428571429, 1}}], LineBox[{{7.142857142857143, 0}, {7.142857142857143, 1}}]}, LineBox[{{0, 0}, {7.142857142857143, 0}}], LineBox[{{0, 1}, {7.142857142857143, 1}}]}}, AspectRatio->Automatic], ",", GraphicsBox[{{InsetBox[ GraphicsBox[{{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[{RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, FontColor->GrayLevel[0.]]}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[NCache[{5, Rational[-3, 2]}, {5, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{5, Rational[-3, 2]}, {6, Rational[-3, 2]}, { 6, Rational[-1, 2]}, {5, Rational[-1, 2]}, { 5, Rational[-3, 2]}}, {{5, -1.5}, {6, -1.5}, {6, -0.5}, { 5, -0.5}, {5, -1.5}}]]}}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 6.5}, {-2., 1.5}}], {0, 0}, { Left, Bottom}, {2., 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, {GrayLevel[0.], StyleBox[{RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {2., 0}, { Left, Bottom}, {1.7142857142857144, 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[0.], StyleBox[{RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, FontColor->GrayLevel[0.]]}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, FontColor->GrayLevel[0.]]}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {3.7142857142857144, 0}, { Left, Bottom}, {1.7142857142857144, 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, {}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {5.428571428571429, 0}, { Left, Bottom}, {1.7142857142857144, 1}]}, {AbsoluteThickness[ 0.25], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{2., 0}, {2., 1}}], LineBox[{{3.7142857142857144`, 0}, {3.7142857142857144`, 1}}], LineBox[{{5.428571428571429, 0}, {5.428571428571429, 1}}], LineBox[{{7.142857142857143, 0}, {7.142857142857143, 1}}]}, LineBox[{{0, 0}, {7.142857142857143, 0}}], LineBox[{{0, 1}, {7.142857142857143, 1}}]}}, AspectRatio->Automatic], ",", GraphicsBox[{{InsetBox[ GraphicsBox[{{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[{RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, FontColor->GrayLevel[0.]]}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{5, Rational[-3, 2]}, {5, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{5, Rational[-3, 2]}, {6, Rational[-3, 2]}, { 6, Rational[-1, 2]}, {5, Rational[-1, 2]}, { 5, Rational[-3, 2]}}, {{5, -1.5}, {6, -1.5}, {6, -0.5}, { 5, -0.5}, {5, -1.5}}]]}}, FontColor->GrayLevel[0.]]}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 6.5}, {-2., 1.5}}], {0, 0}, { Left, Bottom}, {2., 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{5, Rational[-3, 2]}, {5, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{5, Rational[-3, 2]}, {6, Rational[-3, 2]}, { 6, Rational[-1, 2]}, {5, Rational[-1, 2]}, { 5, Rational[-3, 2]}}, {{5, -1.5}, {6, -1.5}, {6, -0.5}, { 5, -0.5}, {5, -1.5}}]]}}, FontColor->GrayLevel[0.]]}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 6.5}, {-2., 1.5}}], {2., 0}, { Left, Bottom}, {2., 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[0.], StyleBox[{RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, FontColor->GrayLevel[0.]]}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, {GrayLevel[0.85], RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, {GrayLevel[0.85], RectangleBox[NCache[{5, Rational[-3, 2]}, {5, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{5, Rational[-3, 2]}, {6, Rational[-3, 2]}, { 6, Rational[-1, 2]}, {5, Rational[-1, 2]}, { 5, Rational[-3, 2]}}, {{5, -1.5}, {6, -1.5}, {6, -0.5}, { 5, -0.5}, {5, -1.5}}]]}}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 6.5}, {-2., 1.5}}], {4., 0}, { Left, Bottom}, {2., 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {6., 0}, { Left, Bottom}, {1.7142857142857144, 1}]}, {AbsoluteThickness[ 0.25], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{2., 0}, {2., 1}}], LineBox[{{4., 0}, {4., 1}}], LineBox[{{6., 0}, {6., 1}}], LineBox[{{7.714285714285714, 0}, {7.714285714285714, 1}}]}, LineBox[{{0, 0}, {7.714285714285714, 0}}], LineBox[{{0, 1}, {7.714285714285714, 1}}]}}, AspectRatio->Automatic], ",", GraphicsBox[{{InsetBox[ GraphicsBox[{{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[{RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, FontColor->GrayLevel[0.]]}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, {GrayLevel[0.85], RectangleBox[NCache[{5, Rational[-3, 2]}, {5, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{5, Rational[-3, 2]}, {6, Rational[-3, 2]}, { 6, Rational[-1, 2]}, {5, Rational[-1, 2]}, { 5, Rational[-3, 2]}}, {{5, -1.5}, {6, -1.5}, {6, -0.5}, { 5, -0.5}, {5, -1.5}}]]}}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 6.5}, {-2., 1.5}}], {0, 0}, { Left, Bottom}, {2., 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, {GrayLevel[0.85], RectangleBox[NCache[{5, Rational[-3, 2]}, {5, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{5, Rational[-3, 2]}, {6, Rational[-3, 2]}, { 6, Rational[-1, 2]}, {5, Rational[-1, 2]}, { 5, Rational[-3, 2]}}, {{5, -1.5}, {6, -1.5}, {6, -0.5}, { 5, -0.5}, {5, -1.5}}]]}}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 6.5}, {-2., 1.5}}], {2., 0}, { Left, Bottom}, {2., 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[0.], StyleBox[{RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, FontColor->GrayLevel[0.]]}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {4., 0}, { Left, Bottom}, {1.7142857142857144, 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, FontColor->GrayLevel[0.]]}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {5.714285714285714, 0}, { Left, Bottom}, {1.7142857142857144, 1}]}, {AbsoluteThickness[ 0.25], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{2., 0}, {2., 1}}], LineBox[{{4., 0}, {4., 1}}], LineBox[{{5.714285714285714, 0}, {5.714285714285714, 1}}], LineBox[{{7.428571428571429, 0}, {7.428571428571429, 1}}]}, LineBox[{{0, 0}, {7.428571428571429, 0}}], LineBox[{{0, 1}, {7.428571428571429, 1}}]}}, AspectRatio->Automatic], ",", GraphicsBox[{{InsetBox[ GraphicsBox[{{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[{RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, FontColor->GrayLevel[0.]]}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, {GrayLevel[0.85], RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{5, Rational[-3, 2]}, {5, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{5, Rational[-3, 2]}, {6, Rational[-3, 2]}, { 6, Rational[-1, 2]}, {5, Rational[-1, 2]}, { 5, Rational[-3, 2]}}, {{5, -1.5}, {6, -1.5}, {6, -0.5}, { 5, -0.5}, {5, -1.5}}]]}}, FontColor->GrayLevel[0.]]}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 6.5}, {-2., 1.5}}], {0, 0}, { Left, Bottom}, {2., 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, {GrayLevel[0.], StyleBox[{RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {2., 0}, { Left, Bottom}, {1.7142857142857144, 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[0.], StyleBox[{RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, FontColor->GrayLevel[0.]]}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[NCache[{5, Rational[-3, 2]}, {5, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{5, Rational[-3, 2]}, {6, Rational[-3, 2]}, { 6, Rational[-1, 2]}, {5, Rational[-1, 2]}, { 5, Rational[-3, 2]}}, {{5, -1.5}, {6, -1.5}, {6, -0.5}, { 5, -0.5}, {5, -1.5}}]]}}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 6.5}, {-2., 1.5}}], {3.7142857142857144, 0}, { Left, Bottom}, {2., 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {5.714285714285714, 0}, { Left, Bottom}, {1.7142857142857144, 1}]}, {AbsoluteThickness[ 0.25], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{2., 0}, {2., 1}}], LineBox[{{3.7142857142857144`, 0}, {3.7142857142857144`, 1}}], LineBox[{{5.714285714285714, 0}, {5.714285714285714, 1}}], LineBox[{{7.428571428571429, 0}, {7.428571428571429, 1}}]}, LineBox[{{0, 0}, {7.428571428571429, 0}}], LineBox[{{0, 1}, {7.428571428571429, 1}}]}}, AspectRatio->Automatic], ",", GraphicsBox[{{InsetBox[ GraphicsBox[{{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[{RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, FontColor->GrayLevel[0.]]}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{5, Rational[-3, 2]}, {5, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{5, Rational[-3, 2]}, {6, Rational[-3, 2]}, { 6, Rational[-1, 2]}, {5, Rational[-1, 2]}, { 5, Rational[-3, 2]}}, {{5, -1.5}, {6, -1.5}, {6, -0.5}, { 5, -0.5}, {5, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[NCache[{6, Rational[-3, 2]}, {6, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{6, Rational[-3, 2]}, {7, Rational[-3, 2]}, { 7, Rational[-1, 2]}, {6, Rational[-1, 2]}, { 6, Rational[-3, 2]}}, {{6, -1.5}, {7, -1.5}, {7, -0.5}, { 6, -0.5}, {6, -1.5}}]]}}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 7.5}, {-2., 1.5}}], {0, 0}, { Left, Bottom}, {2.2857142857142856, 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.], StyleBox[{RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}, FontColor->GrayLevel[0.]]}, {GrayLevel[0.85], RectangleBox[NCache[{5, Rational[-3, 2]}, {5, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{5, Rational[-3, 2]}, {6, Rational[-3, 2]}, { 6, Rational[-1, 2]}, {5, Rational[-1, 2]}, { 5, Rational[-3, 2]}}, {{5, -1.5}, {6, -1.5}, {6, -0.5}, { 5, -0.5}, {5, -1.5}}]]}}, {GrayLevel[0.], StyleBox[{ RectangleBox[NCache[{6, Rational[-3, 2]}, {6, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{6, Rational[-3, 2]}, {7, Rational[-3, 2]}, { 7, Rational[-1, 2]}, {6, Rational[-1, 2]}, { 6, Rational[-3, 2]}}, {{6, -1.5}, {7, -1.5}, {7, -0.5}, { 6, -0.5}, {6, -1.5}}]]}}, FontColor->GrayLevel[0.]]}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 7.5}, {-2., 1.5}}], {2.2857142857142856, 0}, { Left, Bottom}, {2.2857142857142856, 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[0.], StyleBox[{RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, FontColor->GrayLevel[0.]]}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, { {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}, {GrayLevel[0.85], RectangleBox[NCache[{4, Rational[-3, 2]}, {4, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{4, Rational[-3, 2]}, {5, Rational[-3, 2]}, { 5, Rational[-1, 2]}, {4, Rational[-1, 2]}, { 4, Rational[-3, 2]}}, {{4, -1.5}, {5, -1.5}, {5, -0.5}, { 4, -0.5}, {4, -1.5}}]]}}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {4.571428571428571, 0}, { Left, Bottom}, {1.7142857142857144, 1}], InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{0, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 0}}]}}, {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}}, {GrayLevel[1], RectangleBox[{2, 0}, {5, 1}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {5, 0}, {5, 1}, {2, 1}, {2, 0}}]}}, {AbsolutePointSize[ 1], {PointBox[{2.5, 0.5}], PointBox[{3.5, 0.5}], PointBox[{4.5, 0.5}]}, {AbsoluteThickness[0.25], ArrowBox[{{2, 0}, {0, -0.45}}, 0.25], ArrowBox[{{5, 0}, {3, -0.45}}, 0.25], {GrayLevel[1], RectangleBox[NCache[{0, Rational[-3, 2]}, {0, -1.5}], NCache[{3, Rational[-1, 2]}, {3, -0.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-3, 2]}, {3, Rational[-3, 2]}, { 3, Rational[-1, 2]}, {0, Rational[-1, 2]}, { 0, Rational[-3, 2]}}, {{0, -1.5}, {3, -1.5}, {3, -0.5}, { 0, -0.5}, {0, -1.5}}]]}}, {PointBox[{0.5, -1}], PointBox[{1.5, -1}], PointBox[{2.5, -1}]}, {GrayLevel[0.85], RectangleBox[NCache[{3, Rational[-3, 2]}, {3, -1.5}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{3, Rational[-3, 2]}, {4, Rational[-3, 2]}, { 4, Rational[-1, 2]}, {3, Rational[-1, 2]}, { 3, Rational[-3, 2]}}, {{3, -1.5}, {4, -1.5}, {4, -0.5}, { 3, -0.5}, {3, -1.5}}]]}}}}}, AspectRatio->Automatic, PlotRange->{{-0.5, 5.5}, {-2., 1.5}}], {6.285714285714286, 0}, { Left, Bottom}, {1.7142857142857144, 1}]}, {AbsoluteThickness[ 0.25], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{2.2857142857142856`, 0}, {2.2857142857142856`, 1}}], LineBox[{{4.571428571428571, 0}, {4.571428571428571, 1}}], LineBox[{{6.285714285714286, 0}, {6.285714285714286, 1}}], LineBox[{{8., 0}, {8., 1}}]}, LineBox[{{0, 0}, {8., 0}}], LineBox[{{0, 1}, {8., 1}}]}}, AspectRatio->Automatic]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.759170477780736*^9, 3.7592368237880697`*^9, 3.759236871434637*^9, 3.759246320657494*^9, 3.7592464070243073`*^9, 3.759246614000361*^9, 3.759246956917548*^9, 3.759247522460452*^9, {3.7592477306764107`*^9, 3.759247737287901*^9}}, CellLabel->"Out[8]=", CellID->458519172] }, Open ]] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"TagSystemRulePlot | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[630, 23, 168, 7, 70, "Subsection",ExpressionUUID->"9778a53c-257d-416c-b1eb-0ff6bd707a6c", CellID->462042388], Cell[801, 32, 463, 15, 70, "Text",ExpressionUUID->"13f8f808-9ce1-4967-b8f9-d7b277f107e4", CellID->432984635], Cell[1267, 49, 1120, 37, 70, "Input",ExpressionUUID->"5ab9b905-f675-4e65-9549-b806c8aec1e3", CellID->471332390], Cell[CellGroupData[{ Cell[2412, 90, 7213, 182, 70, "Input",ExpressionUUID->"79c37cd7-ef87-48b6-926c-7adfb39e603b", CellID->116680607], Cell[9628, 274, 14378, 276, 70, "Output",ExpressionUUID->"3a5737df-b3fa-41ee-bc29-78670fd8a8e9", CellID->397691162] }, Open ]], Cell[CellGroupData[{ Cell[24043, 555, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"27f85bf2-979c-40c2-b4b2-8522a28d5953", CellID->224031726], Cell[24190, 561, 495, 16, 70, "Text",ExpressionUUID->"56dbb8a6-fddb-46c2-a436-03100e4e0fdf", CellID->44656128], Cell[24688, 579, 4290, 134, 70, "Input",ExpressionUUID->"d5f47ba6-34c7-40d6-8fb7-3dce9791a9dd", CellID->422278984], Cell[CellGroupData[{ Cell[29003, 717, 7258, 183, 70, "Input",ExpressionUUID->"80fd2bbf-cb66-423a-940c-3525a5a3a6ab", CellID->456257904], Cell[36264, 902, 64067, 1217, 70, "Output",ExpressionUUID->"0d00e46f-dc5e-4fdf-8345-b3835e21f13d", CellID->458519172] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)