(* 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[ 63857, 1468] NotebookOptionsPosition[ 61153, 1395] NotebookOutlinePosition[ 62935, 1447] CellTagsIndexPosition[ 62892, 1444] WindowTitle->SequentialSubstitutionSystemRulePlot | 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["Generate rule icons:", "Text", TaggingRules->{}, CellChangeTimes->{3.76079631928856*^9}, CellID->760045296], 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["SequentialSubstitutionSystemRulePlot", "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["SequentialSubstitutionSystemRulePlot", "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/SequentialSubstitutionSystemRulePlot"}, "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], "SequentialSubstitutionSystemRulePlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SequentialSubstitutionSystemRulePlot"], BoxID -> "SequentialSubstitutionSystemRulePlot", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "2"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.760530649124299*^9, {3.760531014077796*^9, 3.7605310238351603`*^9}, { 3.760531177116062*^9, 3.7605311818192797`*^9}, 3.760796052795075*^9}, CellLabel->"In[85]:=", CellID->623420806], Cell[BoxData[ GraphicsBox[InsetBox[ GraphicsBox[ {GrayLevel[0], AbsoluteThickness[0.25], InsetBox[ GraphicsBox[{{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}}, { {GrayLevel[0.85], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.425], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}, {GrayLevel[0.85], RectangleBox[{3, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, -2}, {4, -2}, {4, -1}, {3, -1}, {3, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{3, 0}, {4, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 4.4}, {-2.4, 1.4}}], {0, 0}, { Left, Bottom}, {1.0000000000000002, 1}], LineBox[{{0, 0}, {0, 1}}]}, AspectRatio->Automatic, Frame->True, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->False, PlotRange->{{0, 1.0000000000000002`}, {0, 1}}], {0, 0}, {Left, Bottom}, {1.0000000000000002, 1}], AspectRatio->Automatic, PlotRange->{{0, 1.0000000000000002`}, {0, 1}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.760532408341514*^9, 3.760796195046921*^9}, CellLabel->"Out[85]=", CellID->176322746] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->741958073], Cell["Slightly more complicated rules:", "Text", TaggingRules->{}, CellChangeTimes->{3.76079631928856*^9, 3.760796362894858*^9}, CellID->958833262], 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["SequentialSubstitutionSystemRulePlot", "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["SequentialSubstitutionSystemRulePlot", "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/SequentialSubstitutionSystemRulePlot"}, "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], "SequentialSubstitutionSystemRulePlot"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["SequentialSubstitutionSystemRulePlot"], BoxID -> "SequentialSubstitutionSystemRulePlot", Selectable->False], "/@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", "1", "}"}]}], ",", RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", "1", "}"}]}], ",", RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}]}], "}"}]}], "}"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7605309779263973`*^9, 3.760530980089778*^9}}, CellLabel->"In[86]:=", CellID->535895661], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[InsetBox[ GraphicsBox[ {GrayLevel[0], AbsoluteThickness[0.25], {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}}, { {GrayLevel[0.425], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.85], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{3, 0}, {3, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 3.4}, {-2.4, 1.4}}], {0, 0}, { Left, Bottom}, {0.7368421052631579, 1}], LineBox[{{0, 0}, {0, 1}}]}, {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}}, { {GrayLevel[0.85], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.425], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{3, 0}, {3, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 3.4}, {-2.4, 1.4}}], {0.7368421052631579, 0}, { Left, Bottom}, {0.7368421052631579, 1}], LineBox[{{0.7368421052631579, 0}, {0.7368421052631579, 1}}]}, { InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.85], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{2, 0}, {3, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 3.4}, {-2.4, 1.4}}], {1.4736842105263157, 0}, { Left, Bottom}, {0.7368421052631577, 1}], LineBox[{{1.4736842105263157`, 0}, {1.4736842105263157`, 1}}]}}, AspectRatio->Automatic, Frame->True, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->False, PlotRange->{{0, 2.2105263157894735`}, {0, 1}}], {0, 0}, { Left, Bottom}, {2.2105263157894735, 1}], AspectRatio->Automatic, PlotRange->{{0, 2.2105263157894735`}, {0, 1}}], ",", GraphicsBox[InsetBox[ GraphicsBox[ {GrayLevel[0], AbsoluteThickness[0.25], {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{3, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, 0}, {4, 0}, {4, 1}, {3, 1}, {3, 0}}]}}, {GrayLevel[0], DiskBox[{3.5, 0.5}, 0.3]}}}, { {GrayLevel[0.85], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.425], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}, {GrayLevel[0.85], RectangleBox[{3, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, -2}, {4, -2}, {4, -1}, {3, -1}, {3, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{4, 0}, {4, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 4.4}, {-2.4, 1.4}}], {0, 0}, { Left, Bottom}, {1.0000000000000002, 1}], LineBox[{{0, 0}, {0, 1}}]}, {InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, {GrayLevel[0.425], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{2, 0}, {2, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 2.4}, {-2.4, 1.4}}], {1.0000000000000002, 0}, { Left, Bottom}, {0.4736842105263157, 1}], LineBox[{{1.0000000000000002`, 0}, {1.0000000000000002`, 1}}]}, { InsetBox[ GraphicsBox[{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.85], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{2, 0}, {3, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 3.4}, {-2.4, 1.4}}], {1.473684210526316, 0}, { Left, Bottom}, {0.736842105263158, 1}], LineBox[{{1.473684210526316, 0}, {1.473684210526316, 1}}]}}, AspectRatio->Automatic, Frame->True, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->False, PlotRange->{{0, 2.210526315789474}, {0, 1}}], {0, 0}, {Left, Bottom}, {2.210526315789474, 1}], AspectRatio->Automatic, PlotRange->{{0, 2.210526315789474}, {0, 1}}], ",", GraphicsBox[InsetBox[ GraphicsBox[ {GrayLevel[0], AbsoluteThickness[0.25], {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{3, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, 0}, {4, 0}, {4, 1}, {3, 1}, {3, 0}}]}}, {GrayLevel[0], DiskBox[{3.5, 0.5}, 0.3]}}}, { {GrayLevel[0.85], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.425], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}, {GrayLevel[0.85], RectangleBox[{3, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, -2}, {4, -2}, {4, -1}, {3, -1}, {3, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{4, 0}, {4, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 4.4}, {-2.4, 1.4}}], {0, 0}, { Left, Bottom}, {1.0000000000000002, 1}], LineBox[{{0, 0}, {0, 1}}]}, {InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, {GrayLevel[0.425], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{2, 0}, {2, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 2.4}, {-2.4, 1.4}}], {1.0000000000000002, 0}, { Left, Bottom}, {0.4736842105263157, 1}], LineBox[{{1.0000000000000002`, 0}, {1.0000000000000002`, 1}}]}, { InsetBox[ GraphicsBox[{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.85], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}, {GrayLevel[0.85], RectangleBox[{3, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, -2}, {4, -2}, {4, -1}, {3, -1}, {3, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{2, 0}, {4, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 4.4}, {-2.4, 1.4}}], {1.473684210526316, 0}, { Left, Bottom}, {1., 1}], LineBox[{{1.473684210526316, 0}, {1.473684210526316, 1}}]}}, AspectRatio->Automatic, Frame->True, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->False, PlotRange->{{0, 2.473684210526316}, {0, 1}}], {0, 0}, {Left, Bottom}, {2.473684210526316, 1}], AspectRatio->Automatic, PlotRange->{{0, 2.473684210526316}, {0, 1}}], ",", GraphicsBox[InsetBox[ GraphicsBox[ {GrayLevel[0], AbsoluteThickness[0.25], {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{3, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, 0}, {4, 0}, {4, 1}, {3, 1}, {3, 0}}]}}, {GrayLevel[0], DiskBox[{3.5, 0.5}, 0.3]}}}, { {GrayLevel[0.425], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.85], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{4, 0}, {3, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 4.4}, {-2.4, 1.4}}], {0, 0}, { Left, Bottom}, {1.0000000000000002, 1}], LineBox[{{0, 0}, {0, 1}}]}, {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}}, { {GrayLevel[0.85], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.425], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{3, 0}, {3, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 3.4}, {-2.4, 1.4}}], {1.0000000000000002, 0}, { Left, Bottom}, {0.7368421052631577, 1}], LineBox[{{1.0000000000000002`, 0}, {1.0000000000000002`, 1}}]}, { InsetBox[ GraphicsBox[{{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}}, { {GrayLevel[0.85], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.85], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}, {GrayLevel[0.425], RectangleBox[{3, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, -2}, {4, -2}, {4, -1}, {3, -1}, {3, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{3, 0}, {4, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 4.4}, {-2.4, 1.4}}], {1.736842105263158, 0}, { Left, Bottom}, {1.0000000000000004, 1}], LineBox[{{1.736842105263158, 0}, {1.736842105263158, 1}}]}}, AspectRatio->Automatic, Frame->True, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->False, PlotRange->{{0, 2.7368421052631584`}, {0, 1}}], {0, 0}, { Left, Bottom}, {2.7368421052631584, 1}], AspectRatio->Automatic, PlotRange->{{0, 2.7368421052631584`}, {0, 1}}], ",", GraphicsBox[InsetBox[ GraphicsBox[ {GrayLevel[0], AbsoluteThickness[0.25], {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{3, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, 0}, {4, 0}, {4, 1}, {3, 1}, {3, 0}}]}}, {GrayLevel[0], DiskBox[{3.5, 0.5}, 0.3]}}}, { {GrayLevel[0.85], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.425], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{4, 0}, {3, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 4.4}, {-2.4, 1.4}}], {0, 0}, { Left, Bottom}, {1.0000000000000002, 1}], LineBox[{{0, 0}, {0, 1}}]}, {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}}, { {GrayLevel[0.425], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.85], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{3, 0}, {3, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 3.4}, {-2.4, 1.4}}], {1.0000000000000002, 0}, { Left, Bottom}, {0.7368421052631577, 1}], LineBox[{{1.0000000000000002`, 0}, {1.0000000000000002`, 1}}]}, { InsetBox[ GraphicsBox[{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.85], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}, {GrayLevel[0.85], RectangleBox[{3, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, -2}, {4, -2}, {4, -1}, {3, -1}, {3, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{2, 0}, {4, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 4.4}, {-2.4, 1.4}}], {1.736842105263158, 0}, { Left, Bottom}, {1.0000000000000004, 1}], LineBox[{{1.736842105263158, 0}, {1.736842105263158, 1}}]}}, AspectRatio->Automatic, Frame->True, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->False, PlotRange->{{0, 2.7368421052631584`}, {0, 1}}], {0, 0}, { Left, Bottom}, {2.7368421052631584, 1}], AspectRatio->Automatic, PlotRange->{{0, 2.7368421052631584`}, {0, 1}}], ",", GraphicsBox[InsetBox[ GraphicsBox[ {GrayLevel[0], AbsoluteThickness[0.25], {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{3, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, 0}, {4, 0}, {4, 1}, {3, 1}, {3, 0}}]}}, {GrayLevel[0], DiskBox[{3.5, 0.5}, 0.3]}}}, { {GrayLevel[0.425], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.85], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{4, 0}, {3, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 4.4}, {-2.4, 1.4}}], {0, 0}, { Left, Bottom}, {1.0000000000000002, 1}], LineBox[{{0, 0}, {0, 1}}]}, {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}}, { {GrayLevel[0.85], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.425], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{3, 0}, {3, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 3.4}, {-2.4, 1.4}}], {1.0000000000000002, 0}, { Left, Bottom}, {0.7368421052631577, 1}], LineBox[{{1.0000000000000002`, 0}, {1.0000000000000002`, 1}}]}, { InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.85], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{2, 0}, {3, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 3.4}, {-2.4, 1.4}}], {1.736842105263158, 0}, { Left, Bottom}, {0.736842105263158, 1}], LineBox[{{1.736842105263158, 0}, {1.736842105263158, 1}}]}}, AspectRatio->Automatic, Frame->True, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->False, PlotRange->{{0, 2.473684210526316}, {0, 1}}], {0, 0}, {Left, Bottom}, {2.473684210526316, 1}], AspectRatio->Automatic, PlotRange->{{0, 2.473684210526316}, {0, 1}}], ",", GraphicsBox[InsetBox[ GraphicsBox[ {GrayLevel[0], AbsoluteThickness[0.25], {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{3, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, 0}, {4, 0}, {4, 1}, {3, 1}, {3, 0}}]}}, {GrayLevel[0], DiskBox[{3.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{4, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{4, 0}, {5, 0}, {5, 1}, {4, 1}, {4, 0}}]}}, {GrayLevel[0], DiskBox[{4.5, 0.5}, 0.3]}}}, { {GrayLevel[0.425], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.85], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}, {GrayLevel[0.85], RectangleBox[{3, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, -2}, {4, -2}, {4, -1}, {3, -1}, {3, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{5, 0}, {4, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 5.4}, {-2.4, 1.4}}], {0, 0}, { Left, Bottom}, {1.2631578947368423, 1}], LineBox[{{0, 0}, {0, 1}}]}, {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{3, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, 0}, {4, 0}, {4, 1}, {3, 1}, {3, 0}}]}}, {GrayLevel[0], DiskBox[{3.5, 0.5}, 0.3]}}}, { {GrayLevel[0.425], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.425], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{4, 0}, {3, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 4.4}, {-2.4, 1.4}}], {1.2631578947368423, 0}, { Left, Bottom}, {1.0000000000000002, 1}], LineBox[{{1.2631578947368423`, 0}, {1.2631578947368423`, 1}}]}, { InsetBox[ GraphicsBox[{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.85], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}, {GrayLevel[0.425], RectangleBox[{3, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, -2}, {4, -2}, {4, -1}, {3, -1}, {3, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{2, 0}, {4, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 4.4}, {-2.4, 1.4}}], {2.2631578947368425, 0}, { Left, Bottom}, {1., 1}], LineBox[{{2.2631578947368425`, 0}, {2.2631578947368425`, 1}}]}}, AspectRatio->Automatic, Frame->True, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->False, PlotRange->{{0, 3.2631578947368425`}, {0, 1}}], {0, 0}, { Left, Bottom}, {3.2631578947368425, 1}], AspectRatio->Automatic, PlotRange->{{0, 3.2631578947368425`}, {0, 1}}], ",", GraphicsBox[InsetBox[ GraphicsBox[ {GrayLevel[0], AbsoluteThickness[0.25], {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{3, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, 0}, {4, 0}, {4, 1}, {3, 1}, {3, 0}}]}}, {GrayLevel[0], DiskBox[{3.5, 0.5}, 0.3]}}}, { {GrayLevel[0.85], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.425], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}, {GrayLevel[0.425], RectangleBox[{3, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, -2}, {4, -2}, {4, -1}, {3, -1}, {3, -2}}]}}, {GrayLevel[0.425], RectangleBox[{4, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{4, -2}, {5, -2}, {5, -1}, {4, -1}, {4, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{4, 0}, {5, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 5.4}, {-2.4, 1.4}}], {0, 0}, { Left, Bottom}, {1.2631578947368423, 1}], LineBox[{{0, 0}, {0, 1}}]}, {InsetBox[ GraphicsBox[{{{ {GrayLevel[0.425], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, 0}, {3, 0}, {3, 1}, {2, 1}, {2, 0}}]}}, {GrayLevel[0], DiskBox[{2.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{3, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, 0}, {4, 0}, {4, 1}, {3, 1}, {3, 0}}]}}, {GrayLevel[0], DiskBox[{3.5, 0.5}, 0.3]}}, { {GrayLevel[0.425], RectangleBox[{4, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{4, 0}, {5, 0}, {5, 1}, {4, 1}, {4, 0}}]}}, {GrayLevel[0], DiskBox[{4.5, 0.5}, 0.3]}}}, { {GrayLevel[0.85], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.425], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}, {GrayLevel[0.85], RectangleBox[{3, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, -2}, {4, -2}, {4, -1}, {3, -1}, {3, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{5, 0}, {4, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 5.4}, {-2.4, 1.4}}], {1.2631578947368423, 0}, { Left, Bottom}, {1.2631578947368423, 1}], LineBox[{{1.2631578947368423`, 0}, {1.2631578947368423`, 1}}]}, { InsetBox[ GraphicsBox[{{ {GrayLevel[0.85], RectangleBox[{1, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, 0}, {2, 0}, {2, 1}, {1, 1}, {1, 0}}]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3]}}, { {GrayLevel[0.85], RectangleBox[{1, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{1, -2}, {2, -2}, {2, -1}, {1, -1}, {1, -2}}]}}, {GrayLevel[0.85], RectangleBox[{2, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{2, -2}, {3, -2}, {3, -1}, {2, -1}, {2, -2}}]}}, {GrayLevel[0.425], RectangleBox[{3, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{3, -2}, {4, -2}, {4, -1}, {3, -1}, {3, -2}}]}}, {GrayLevel[0.425], RectangleBox[{4, -2}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{4, -2}, {5, -2}, {5, -1}, {4, -1}, {4, -2}}]}}}, {GrayLevel[0], AbsoluteThickness[0.25], LineBox[{{1, 0}, {1, -1}}], LineBox[{{2, 0}, {5, -1}}]}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->{{0.6, 5.4}, {-2.4, 1.4}}], {2.5263157894736845, 0}, { Left, Bottom}, {1.263157894736842, 1}], LineBox[{{2.5263157894736845`, 0}, {2.5263157894736845`, 1}}]}}, AspectRatio->Automatic, Frame->True, FrameStyle->{ GrayLevel[0], AbsoluteThickness[0.25]}, FrameTicks->False, PlotRange->{{0, 3.7894736842105265`}, {0, 1}}], {0, 0}, { Left, Bottom}, {3.7894736842105265, 1}], AspectRatio->Automatic, PlotRange->{{0, 3.7894736842105265`}, {0, 1}}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7605309810499496`*^9, 3.760531818183079*^9, 3.7605321272971973`*^9, 3.760532282361554*^9, 3.7605324008733273`*^9, 3.76079619927602*^9}, CellLabel->"Out[86]=", CellID->102735892] }, Open ]] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"SequentialSubstitutionSystemRulePlot | 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[649, 23, 168, 7, 70, "Subsection",ExpressionUUID->"e835ad53-6f05-4951-b36e-960a8596d227", CellID->462042388], Cell[820, 32, 116, 3, 70, "Text",ExpressionUUID->"ea903342-d46f-4f08-9bf6-41371fde83e8", CellID->760045296], Cell[CellGroupData[{ Cell[961, 39, 7663, 194, 70, "Input",ExpressionUUID->"5a0fad18-3e0e-4667-aee3-24c8029a17fa", CellID->623420806], Cell[8627, 235, 1970, 44, 70, "Output",ExpressionUUID->"62c5486c-0faa-47f9-a5a4-d95cf803d438", CellID->176322746] }, Open ]], Cell[CellGroupData[{ Cell[10634, 284, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"9e979559-c835-449f-a849-a936bc0c0b5c", CellID->741958073], Cell[10781, 290, 150, 3, 70, "Text",ExpressionUUID->"fe1ef09f-5873-4d99-83d4-c042ae8494ec", CellID->958833262], Cell[CellGroupData[{ Cell[10956, 297, 11401, 312, 70, "Input",ExpressionUUID->"adeb241b-59a2-483b-b67a-e6a9c650a2ec", CellID->535895661], Cell[22360, 611, 38753, 779, 70, "Output",ExpressionUUID->"d3ab2f0d-cb45-473f-b187-b132f27ed928", CellID->102735892] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)