(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 471793, 10099] NotebookOptionsPosition[ 336625, 7477] NotebookOutlinePosition[ 458123, 9811] CellTagsIndexPosition[ 457171, 9780] WindowTitle->MultiwayEvolutionPlot | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["MultiwayEvolutionPlot", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->25691181], Cell["Plot the evolution of a multiway system", "Text", CellTags->{"Description", "TemplateCell"}, CellID->938912578], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Options", "[", "MultiwayEvolutionPlot", "]"}], "=", RowBox[{"Join", "[", RowBox[{"{", RowBox[{ RowBox[{ "\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "1.5"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.791605711578094*^9, 3.791605738952854*^9}, 3.791605776128034*^9}, CellLabel->"In[696]:=", CellID->106803001], Cell[BoxData[{ RowBox[{ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"rule", ":", RowBox[{"(", RowBox[{"_String", "\[Rule]", "_String"}], ")"}]}], ",", "initialCondition_String", ",", "stepCount_Integer", ",", RowBox[{"options", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"{", "rule", "}"}], ",", RowBox[{"{", "initialCondition", "}"}], ",", "stepCount", ",", "options"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"rules", ":", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"_String", "\[Rule]", "_String"}], ")"}], ".."}], "}"}]}], ",", "initialCondition_String", ",", "stepCount_Integer", ",", RowBox[{"options", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{"rules", ",", RowBox[{"{", "initialCondition", "}"}], ",", "stepCount", ",", "options"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"rule", ":", RowBox[{"(", RowBox[{"_String", "\[Rule]", "_String"}], ")"}]}], ",", RowBox[{"initialConditions", ":", RowBox[{"{", RowBox[{"_String", "..."}], "}"}]}], ",", "stepCount_Integer", ",", RowBox[{"options", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"{", "rule", "}"}], ",", "initialConditions", ",", "stepCount", ",", "options"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"rules", ":", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"_String", "\[Rule]", "_String"}], ")"}], ".."}], "}"}]}], ",", RowBox[{"initialConditions", ":", RowBox[{"{", RowBox[{"_String", "..."}], "}"}]}], ",", "stepCount_Integer", ",", RowBox[{"options", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"evolutionHistory", "=", RowBox[{"getTracedStatesList", "[", RowBox[{"rules", ",", "initialConditions", ",", "stepCount"}], "]"}]}], "}"}], ",", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"verticalSpacing", "=", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ",", RowBox[{"horizontalSpacing", "=", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ",", RowBox[{"characterMap", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", "=", "1"}], "}"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"i", "++"}]}], "}"}], "&"}], ",", "#", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], "&"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#", "===", "\"\<\>\""}], ",", RowBox[{"{", "\"\<\>\"", "}"}], ",", RowBox[{"Characters", "[", "#", "]"}]}], "]"}], "&"}], ",", RowBox[{"Map", "[", RowBox[{"First", ",", "evolutionHistory", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"connectionFunction", "=", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"horizontalSpacing", "*", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "verticalSpacing"}], "*", RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "&"}], ")"}]}], ",", RowBox[{"connections", "=", RowBox[{ RowBox[{"Function", "[", RowBox[{"string", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Position", "[", RowBox[{ RowBox[{"string", "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",", "#"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "&"}], ",", RowBox[{"string", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", RowBox[{"-", "1"}], ",", "All", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "]"}], "/@", RowBox[{"Partition", "[", RowBox[{"evolutionHistory", ",", "2", ",", "1"}], "]"}]}]}]}], "}"}], ",", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"positions", "=", RowBox[{"Map", "[", RowBox[{"Mean", ",", RowBox[{"MapIndexed", "[", RowBox[{"connectionFunction", ",", "characterMap", ",", RowBox[{"{", "3", "}"}]}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.62", ",", "0.52", ",", "0.82"}], "]"}]}], "]"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.62", ",", "0.45", ",", "0.87"}], "]"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"connectionFunction", "[", RowBox[{"#", ",", "#2"}], "]"}], "-", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"(*", RowBox[{"Hue", "[", RowBox[{"0.62", ",", "0.52", ",", "0.82"}], "]"}], "*)"}], RowBox[{"Hue", "[", RowBox[{"0", ",", "0", ",", "0"}], "]"}]}], "]"}], ",", RowBox[{"connectionFunction", "[", RowBox[{"#", ",", "#2"}], "]"}]}], "]"}]}], "}"}], "&"}], ",", "characterMap", ",", RowBox[{"{", "3", "}"}]}], "]"}], ",", RowBox[{"getMultiwayEvolutionArrows", "[", RowBox[{ "rules", ",", "evolutionHistory", ",", "positions", ",", "connections", ",", RowBox[{ "OptionValue", "[", "\"\\"", "]"}]}], "]"}]}], "}"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}]}], "Input", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.791604065160694*^9, 3.7916042393291616`*^9}, { 3.791604461050303*^9, 3.7916044620487213`*^9}, {3.7916052692815447`*^9, 3.7916054856138897`*^9}, {3.791605607940185*^9, 3.7916057005364943`*^9}, { 3.791605803735724*^9, 3.79160580397888*^9}, {3.7916066392945747`*^9, 3.791606656184278*^9}, {3.791606687517371*^9, 3.791606734551992*^9}, 3.793370341338435*^9, {3.7933704047236547`*^9, 3.793370431100325*^9}, { 3.793370721720471*^9, 3.793370756515994*^9}}, CellTags->"TabNext", CellLabel->"In[50]:=", CellID->170780247], Cell[BoxData[ RowBox[{ RowBox[{"getStringSubstitutions", "[", RowBox[{ RowBox[{"rules", ":", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"_String", "\[Rule]", "_String"}], ")"}], ".."}], "}"}]}], ",", RowBox[{"initialConditions", ":", RowBox[{"{", RowBox[{"_String", "..."}], "}"}]}]}], "]"}], ":=", RowBox[{"SortBy", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Rest", "/@", "#"}]}], "}"}], "&"}], "/@", RowBox[{"GatherBy", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"string", ",", "stringIndex"}], "}"}], ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"rule", ",", "ruleIndex"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"StringReplacePart", "[", RowBox[{"string", ",", RowBox[{"Last", "[", "rule", "]"}], ",", "#"}], "]"}], ",", "string", ",", RowBox[{"First", "[", "ruleIndex", "]"}], ",", RowBox[{"First", "[", "#", "]"}]}], "}"}], "&"}], "/@", RowBox[{"StringPosition", "[", RowBox[{"string", ",", RowBox[{"First", "[", "rule", "]"}]}], "]"}]}]}], "]"}], ",", "rules"}], "]"}]}], "]"}], ",", "initialConditions"}], "]"}], ",", "2"}], "]"}], ",", "First"}], "]"}]}], ",", "First"}], "]"}]}]], "Input", CellChangeTimes->{{3.791604370947323*^9, 3.791604484188746*^9}}, CellLabel->"In[683]:=", CellID->256195598], Cell[BoxData[ RowBox[{ RowBox[{"getTracedStatesList", "[", RowBox[{ RowBox[{"rules", ":", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"_String", "\[Rule]", "_String"}], ")"}], ".."}], "}"}]}], ",", RowBox[{"initialConditions", ":", RowBox[{"{", RowBox[{"_String", "..."}], "}"}]}], ",", "stepCount_Integer"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"getStringSubstitutions", "[", RowBox[{"rules", ",", RowBox[{"First", "/@", "#"}]}], "]"}], "&"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"{", "}"}]}], "}"}], "&"}], "/@", "initialConditions"}], ",", "stepCount"}], "]"}]}]], "Input", CellChangeTimes->{{3.7916044957582893`*^9, 3.7916045474252167`*^9}, { 3.791605878235774*^9, 3.791605892399623*^9}}, CellLabel->"In[708]:=", CellID->660045281], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"getMultiwayEvolutionArrows", "[", RowBox[{ RowBox[{"rules", ":", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"_String", "\[Rule]", "_String"}], ")"}], ".."}], "}"}]}], ",", "evolutionHistory_List", ",", "positions_List", ",", "connections_List", ",", "\"\\""}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", ".02", "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.74", ",", "0", ",", "0.66"}], "]"}], ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"positions", "[", RowBox[{"[", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "#"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], ",", RowBox[{ RowBox[{"positions", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "+", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}]}]}], "}"}], "]"}], "&"}], ",", "connections", ",", RowBox[{"{", "3", "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"getMultiwayEvolutionArrows", "[", RowBox[{ RowBox[{"rules", ":", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"_String", "\[Rule]", "_String"}], ")"}], ".."}], "}"}]}], ",", "evolutionHistory_List", ",", "positions_List", ",", "connections_List", ",", "\"\\""}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", ".02", "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.74", ",", "0", ",", "0.66"}], "]"}], ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inputString", ",", "outputString", ",", "inputPosition", ",", "outputPosition"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"inputString", "=", RowBox[{"evolutionHistory", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2", ",", RowBox[{"#2", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"outputString", "=", RowBox[{"evolutionHistory", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"inputPosition", "=", RowBox[{ RowBox[{"evolutionHistory", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2", ",", RowBox[{"#2", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "3"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"StringLength", "[", RowBox[{"rules", "[", RowBox[{"[", RowBox[{ RowBox[{"evolutionHistory", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2", ",", RowBox[{"#2", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "2"}], "]"}], "]"}], ",", "1"}], "]"}], "]"}], "]"}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"outputPosition", "=", RowBox[{ RowBox[{"evolutionHistory", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2", ",", RowBox[{"#2", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "3"}], "]"}], "]"}], "+", RowBox[{ RowBox[{"StringLength", "[", RowBox[{"rules", "[", RowBox[{"[", RowBox[{ RowBox[{"evolutionHistory", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2", ",", RowBox[{"#2", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "2"}], "]"}], "]"}], ",", "2"}], "]"}], "]"}], "]"}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"positions", "[", RowBox[{"[", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "#"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"StringLength", "[", "inputString", "]"}], "+", "1"}], ")"}], "*", RowBox[{"1", "/", "2"}]}], "-", "inputPosition", "+", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}], ",", RowBox[{ RowBox[{"positions", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "+", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"StringLength", "[", "outputString", "]"}], "+", "1"}], ")"}]}], "*", RowBox[{"1", "/", "2"}]}], "+", "outputPosition", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}]}], "}"}], "]"}]}]}], "]"}], "&"}], ",", "connections", ",", RowBox[{"{", "3", "}"}]}], "]"}]}], "}"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getMultiwayEvolutionArrows", "[", RowBox[{ RowBox[{"rules", ":", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"_String", "\[Rule]", "_String"}], ")"}], ".."}], "}"}]}], ",", "evolutionHistory_List", ",", "positions_List", ",", "connections_List", ",", "\"\\""}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".4", "]"}], ",", RowBox[{"Hue", "[", RowBox[{"0.74", ",", "0", ",", "0.66"}], "]"}], ",", RowBox[{"EdgeForm", "[", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Hue", "[", RowBox[{"0.75", ",", "0", ",", "0.35"}], "]"}], ",", "Thin"}], "]"}], "]"}], ",", RowBox[{"MapIndexed", "[", RowBox[{ RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "inputString", ",", "outputString", ",", "inputPosition", ",", "outputPosition"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"inputString", "=", RowBox[{"evolutionHistory", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2", ",", RowBox[{"#2", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"outputString", "=", RowBox[{"evolutionHistory", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"inputPosition", "=", RowBox[{ RowBox[{"evolutionHistory", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2", ",", RowBox[{"#2", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "3"}], "]"}], "]"}], "+", RowBox[{"{", RowBox[{"0", ",", RowBox[{"StringLength", "[", RowBox[{"rules", "[", RowBox[{"[", RowBox[{ RowBox[{"evolutionHistory", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2", ",", RowBox[{"#2", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "2"}], "]"}], "]"}], ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"outputPosition", "=", RowBox[{ RowBox[{"evolutionHistory", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2", ",", RowBox[{"#2", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "3"}], "]"}], "]"}], "+", RowBox[{"{", RowBox[{"0", ",", RowBox[{"StringLength", "[", RowBox[{"rules", "[", RowBox[{"[", RowBox[{ RowBox[{"evolutionHistory", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2", ",", RowBox[{"#2", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "2"}], "]"}], "]"}], ",", "2"}], "]"}], "]"}], "]"}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Polygon", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Thread", "/@", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"positions", "[", RowBox[{"[", RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "#"}], "]"}], "]"}], "-", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"StringLength", "[", "inputString", "]"}], "+", "1"}], ")"}], "*", RowBox[{"1", "/", "2"}]}], "-", "inputPosition", "+", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}], ",", RowBox[{ RowBox[{"positions", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"#2", "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}], "+", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"StringLength", "[", "outputString", "]"}], "+", "1"}], ")"}]}], "*", RowBox[{"1", "/", "2"}]}], "+", RowBox[{"Reverse", "[", "outputPosition", "]"}], "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}]}], "}"}]}], ",", "1"}], "]"}], "]"}]}]}], "]"}], "&"}], ",", "connections", ",", RowBox[{"{", "3", "}"}]}], "]"}]}], "}"}]}]}], "Input", CellChangeTimes->{{3.791604556226255*^9, 3.7916046225156183`*^9}, { 3.7916046790360327`*^9, 3.79160525764919*^9}, {3.79160617983913*^9, 3.791606217636208*^9}, {3.791606256149803*^9, 3.7916062563357067`*^9}, { 3.791606361043899*^9, 3.7916063614518623`*^9}, {3.7933705280684834`*^9, 3.793370531303775*^9}, {3.793370636564088*^9, 3.793370638564604*^9}, { 3.793370671180868*^9, 3.793370686473527*^9}}, CellLabel->"In[44]:=", CellID->140810628] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ StyleBox["rules", "TI"], ",", StyleBox["init", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->685881362], Cell[TextData[{ "plots the first ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " steps in the evolution of the multiway system with the specified ", Cell[BoxData[ StyleBox["rules", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " starting from initial conditions ", Cell[BoxData[ StyleBox["init", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->48003996] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[TextData[{ Cell[BoxData["MultiwayEvolutionPlot"], "InlineFormula", FontFamily->"Source Sans Pro"], " currently only works for string substitution rules of the form ", Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\"\<\!\(\*StyleBox[\"lhs\", \"TI\"]\)\>\"", "1"], "\[Rule]", SubscriptBox["\"\<\!\(\*StyleBox[\"rhs\", \"TI\"]\)\>\"", "2"]}], ",", "\[Ellipsis]"}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellTags->"TabNext", CellID->967837466], Cell[TextData[{ "Options for ", Cell[BoxData["MultiwayEvolutionPlot"], "InlineFormula", FontFamily->"Source Sans Pro"], " include:" }], "Notes", CellID->211808304], Cell[BoxData[GridBox[{ {Cell["\"EvolutionEventRendering\"", "TableText"], Cell[ "\"SingleArrow\"", "TableText"], Cell[ "how to render the events in the evolution", "TableText"]}, {Cell["\"VerticalSpacing\"", "TableText"], Cell["2", "TableText"], Cell[ "vertical spacing between rows", "TableText"]}, {Cell["\"HorizontalSpacing\"", "TableText"], Cell["1.5", "TableText"], Cell["horizontal spacing between elements", "TableText"]} }]], "TableNotes", CellID->672843756], Cell[TextData[{ "Possible settings for ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " include:" }], "Notes", CellID->129435719], Cell[BoxData[GridBox[{ {Cell["\"SingleArrow\"", "TableText"], Cell[TextData[{ "a single arrow between connected states (as in ", StyleBox["A New Kind of Science", FontSlant->"Italic"], ")" }], "TableText"]}, {Cell["\"PositionalArrows\"", "TableText"], Cell[ "arrows indicating the center of each rewrite event", "TableText"]}, {Cell["\"PositionalPolygons\"", "TableText"], Cell[ "polygons indicating the extent of each rewrite event", "TableText"]} }]], "TableNotes", CellID->322730015], Cell[TextData[{ Cell[BoxData["MultiwayEvolutionPlot"], "InlineFormula", FontFamily->"Source Sans Pro"], " accepts both individual rules and lists of rules, and likewise for initial \ conditions." }], "Notes", CellTags->"TabNext", CellID->512970908] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["Plot a basic multiway evolution:", "Text", TaggingRules->{}, CellChangeTimes->{{3.791607197832418*^9, 3.791607201958432*^9}}, CellID->748851546], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "3"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7916057795655193`*^9, 3.7916058502570343`*^9}, { 3.791605911338511*^9, 3.7916059125854893`*^9}, {3.7916060201108723`*^9, 3.7916060250375357`*^9}, {3.791606296328017*^9, 3.7916062993999033`*^9}, { 3.7916065004843693`*^9, 3.791606507862342*^9}, {3.7916067416865597`*^9, 3.791606743200791*^9}, {3.7916068511276293`*^9, 3.7916068663252783`*^9}}, CellLabel->"In[54]:=", CellID->709914007], Cell[BoxData[ GraphicsBox[{{{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-5, 2]}, {2., -2.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -2}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-5, 2]}, {3., -2.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -2}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-5, 2]}, {4., -2.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -2}]}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-9, 2]}, {2., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-9, 2]}, {3., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-9, 2]}, {4., -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-9, 2]}, {5., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -4}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7.5, Rational[-9, 2]}, {7.5, -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {8., -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-9, 2]}, {8.5, -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-9, 2]}, {9.5, -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-9, 2]}, {10.5, -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -4}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-13, 2]}, {2., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-13, 2]}, {3., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-13, 2]}, {4., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-13, 2]}, {5., -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6., Rational[-13, 2]}, {6., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6.5, -6}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-13, 2]}, {8.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-13, 2]}, {9.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-13, 2]}, {10.5, -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{11.5, Rational[-13, 2]}, {11.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{12.5, Rational[-13, 2]}, {12.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13., -6}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{15., Rational[-13, 2]}, {15., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {15.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{16., Rational[-13, 2]}, {16., -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {16.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{17., Rational[-13, 2]}, {17., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {17.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{18., Rational[-13, 2]}, {18., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {18.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{19., Rational[-13, 2]}, {19., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {19.5, -6}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-17, 2]}, {2., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-17, 2]}, {3., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-17, 2]}, {4., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-17, 2]}, {5., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6., Rational[-17, 2]}, {6., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7., Rational[-17, 2]}, {7., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7.5, -8}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-17, 2]}, {9.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-17, 2]}, {10.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{11.5, Rational[-17, 2]}, {11.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{12.5, Rational[-17, 2]}, {12.5, -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{13.5, Rational[-17, 2]}, {13.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {14., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{14.5, Rational[-17, 2]}, {14.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {15., -8}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{17., Rational[-17, 2]}, {17., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {17.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{18., Rational[-17, 2]}, {18., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {18.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{19., Rational[-17, 2]}, {19., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {19.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{20., Rational[-17, 2]}, {20., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {20.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{21., Rational[-17, 2]}, {21., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {21.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{22., Rational[-17, 2]}, {22., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {22.5, -8}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{24.5, Rational[-17, 2]}, {24.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {25., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{25.5, Rational[-17, 2]}, {25.5, -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {26., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{26.5, Rational[-17, 2]}, {26.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {27., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{27.5, Rational[-17, 2]}, {27.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {28., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{28.5, Rational[-17, 2]}, {28.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {29., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{29.5, Rational[-17, 2]}, {29.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {30., -8}]}}}}, {Hue[0.74, 0, 0.66], Arrowheads[ 0.02], {{ArrowBox[ NCache[{{3.5, Rational[-5, 2]}, {4., Rational[-7, 2]}}, {{3.5, -2.5}, { 4., -3.5}}]], ArrowBox[ NCache[{{3.5, Rational[-5, 2]}, {4., Rational[-7, 2]}}, {{3.5, -2.5}, { 4., -3.5}}]]}, ArrowBox[NCache[{{3.5, Rational[-5, 2]}, {9.5, Rational[-7, 2]}}, {{ 3.5, -2.5}, {9.5, -3.5}}]]}, {{ ArrowBox[NCache[{{4., Rational[-9, 2]}, {4.5, Rational[-11, 2]}}, {{ 4., -4.5}, {4.5, -5.5}}]], ArrowBox[NCache[{{4., Rational[-9, 2]}, {4.5, Rational[-11, 2]}}, {{ 4., -4.5}, {4.5, -5.5}}]], ArrowBox[NCache[{{4., Rational[-9, 2]}, {4.5, Rational[-11, 2]}}, {{ 4., -4.5}, {4.5, -5.5}}]]}, { ArrowBox[NCache[{{4., Rational[-9, 2]}, {11., Rational[-11, 2]}}, {{ 4., -4.5}, {11., -5.5}}]], ArrowBox[NCache[{{9.5, Rational[-9, 2]}, {11., Rational[-11, 2]}}, {{ 9.5, -4.5}, {11., -5.5}}]], ArrowBox[NCache[{{9.5, Rational[-9, 2]}, {11., Rational[-11, 2]}}, {{ 9.5, -4.5}, {11., -5.5}}]]}, { ArrowBox[NCache[{{9.5, Rational[-9, 2]}, {17.5, Rational[-11, 2]}}, {{ 9.5, -4.5}, {17.5, -5.5}}]], ArrowBox[NCache[{{9.5, Rational[-9, 2]}, {17.5, Rational[-11, 2]}}, {{ 9.5, -4.5}, {17.5, -5.5}}]]}}, {{ ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]], ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]], ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]], ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]]}, { ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {12.5, Rational[-15, 2]}}, {{ 4.5, -6.5}, {12.5, -7.5}}]], ArrowBox[NCache[{{11., Rational[-13, 2]}, {12.5, Rational[-15, 2]}}, {{ 11., -6.5}, {12.5, -7.5}}]], ArrowBox[NCache[{{11., Rational[-13, 2]}, {12.5, Rational[-15, 2]}}, {{ 11., -6.5}, {12.5, -7.5}}]], ArrowBox[NCache[{{11., Rational[-13, 2]}, {12.5, Rational[-15, 2]}}, {{ 11., -6.5}, {12.5, -7.5}}]]}, { ArrowBox[NCache[{{11., Rational[-13, 2]}, {20., Rational[-15, 2]}}, {{ 11., -6.5}, {20., -7.5}}]], ArrowBox[ NCache[{{11., Rational[-13, 2]}, {20., Rational[-15, 2]}}, {{ 11., -6.5}, {20., -7.5}}]], ArrowBox[NCache[{{17.5, Rational[-13, 2]}, {20., Rational[-15, 2]}}, {{ 17.5, -6.5}, {20., -7.5}}]], ArrowBox[NCache[{{17.5, Rational[-13, 2]}, {20., Rational[-15, 2]}}, {{ 17.5, -6.5}, {20., -7.5}}]]}, { ArrowBox[NCache[{{17.5, Rational[-13, 2]}, {27.5, Rational[-15, 2]}}, {{ 17.5, -6.5}, {27.5, -7.5}}]], ArrowBox[NCache[{{17.5, Rational[-13, 2]}, {27.5, Rational[-15, 2]}}, {{ 17.5, -6.5}, {27.5, -7.5}}]], ArrowBox[NCache[{{17.5, Rational[-13, 2]}, {27.5, Rational[-15, 2]}}, {{ 17.5, -6.5}, {27.5, -7.5}}]]}}}}, ImageSize->{400.57421875, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7916057945037603`*^9, 3.7916058507005568`*^9}, 3.7916058827407923`*^9, 3.791605912835516*^9, {3.791606018205977*^9, 3.7916060256323757`*^9}, 3.79160619609201*^9, 3.791606265653171*^9, { 3.79160629815926*^9, 3.7916062998988857`*^9}, 3.791606374420311*^9, 3.791606508827672*^9, 3.791606658948689*^9, {3.791606693489935*^9, 3.791606743511612*^9}, 3.791606797814652*^9, {3.7916068632555513`*^9, 3.791606867312049*^9}, 3.793370324509995*^9, {3.793370675754239*^9, 3.793370695289446*^9}, 3.793370760127151*^9}, CellLabel->"Out[54]=", CellID->147173131] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["\<\ Plot a more complicated multiway evolution with arrows showing the rewrite \ events:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.791607197832418*^9, 3.791607278934285*^9}, 3.7955380927657146`*^9}, CellID->281843730], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "5"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.791607256888945*^9, 3.791607268963737*^9}}, CellLabel->"In[55]:=", CellID->497482770], Cell[BoxData[ GraphicsBox[{{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-5, 2]}, {2., -2.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -2}]}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-9, 2]}, {2., -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-9, 2]}, {3., -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-9, 2]}, {4., -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -4}]}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-13, 2]}, {2., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-13, 2]}, {3., -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -6}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5.5, Rational[-13, 2]}, {5.5, -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6.5, Rational[-13, 2]}, {6.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7., -6}]}}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-17, 2]}, {2., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-17, 2]}, {3., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-17, 2]}, {4., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-17, 2]}, {5., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -8}]}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-21, 2]}, {2., -10.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -10}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-21, 2]}, {3., -10.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -10}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-21, 2]}, {4., -10.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -10}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6.5, Rational[-21, 2]}, {6.5, -10.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7., -10}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7.5, Rational[-21, 2]}, {7.5, -10.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {8., -10}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-21, 2]}, {8.5, -10.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -10}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{11., Rational[-21, 2]}, {11., -10.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11.5, -10}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{12., Rational[-21, 2]}, {12., -10.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12.5, -10}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{13., Rational[-21, 2]}, {13., -10.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13.5, -10}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-25, 2]}, {2., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-25, 2]}, {3., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -12}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5.5, Rational[-25, 2]}, {5.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6.5, Rational[-25, 2]}, {6.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7.5, Rational[-25, 2]}, {7.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {8., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-25, 2]}, {8.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-25, 2]}, {9.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -12}]}}}}, {Hue[0.74, 0, 0.66], Arrowheads[0.02], ArrowBox[NCache[{{2.5, Rational[-5, 2]}, {3.5, Rational[-7, 2]}}, {{ 2.5, -2.5}, {3.5, -3.5}}]], { ArrowBox[NCache[{{3.5, Rational[-9, 2]}, {3., Rational[-11, 2]}}, {{ 3.5, -4.5}, {3., -5.5}}]], ArrowBox[NCache[{{3.5, Rational[-9, 2]}, {6.5, Rational[-11, 2]}}, {{ 3.5, -4.5}, {6.5, -5.5}}]]}, { ArrowBox[NCache[{{3., Rational[-13, 2]}, {4., Rational[-15, 2]}}, {{ 3., -6.5}, {4., -7.5}}]], ArrowBox[NCache[{{6.5, Rational[-13, 2]}, {4., Rational[-15, 2]}}, {{ 6.5, -6.5}, {4., -7.5}}]]}, { ArrowBox[NCache[{{4., Rational[-17, 2]}, {3.5, Rational[-19, 2]}}, {{ 4., -8.5}, {3.5, -9.5}}]], ArrowBox[NCache[{{4., Rational[-17, 2]}, {8., Rational[-19, 2]}}, {{ 4., -8.5}, {8., -9.5}}]], ArrowBox[NCache[{{4., Rational[-17, 2]}, {12.5, Rational[-19, 2]}}, {{ 4., -8.5}, {12.5, -9.5}}]]}, {{ ArrowBox[NCache[{{3.5, Rational[-21, 2]}, {3., Rational[-23, 2]}}, {{ 3.5, -10.5}, {3., -11.5}}]], ArrowBox[NCache[{{12.5, Rational[-21, 2]}, {3., Rational[-23, 2]}}, {{ 12.5, -10.5}, {3., -11.5}}]]}, { ArrowBox[NCache[{{3.5, Rational[-21, 2]}, {8., Rational[-23, 2]}}, {{ 3.5, -10.5}, {8., -11.5}}]], ArrowBox[NCache[{{8., Rational[-21, 2]}, {8., Rational[-23, 2]}}, {{ 8., -10.5}, {8., -11.5}}]], ArrowBox[NCache[{{12.5, Rational[-21, 2]}, {8., Rational[-23, 2]}}, {{ 12.5, -10.5}, {8., -11.5}}]]}}}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.791607269517359*^9, 3.793370326168222*^9, 3.7933706928509703`*^9, 3.793370762377038*^9}, CellLabel->"Out[55]=", CellID->790280491] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["\<\ Plot the same multiway evolution but with polygons highlighting the rewrite \ events:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.791607197832418*^9, 3.791607302489802*^9}, 3.795538108386194*^9}, CellID->118798781], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "5", ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.791607303267356*^9, 3.7916073237716703`*^9}, { 3.795538193999776*^9, 3.7955381944727764`*^9}}, CellLabel->"", CellID->510820909], Cell[BoxData[ GraphicsBox[{{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-5, 2]}, {2., -2.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -2}]}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-9, 2]}, {2., -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-9, 2]}, {3., -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-9, 2]}, {4., -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -4}]}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-13, 2]}, {2., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-13, 2]}, {3., -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -6}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5.5, Rational[-13, 2]}, {5.5, -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6.5, Rational[-13, 2]}, {6.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7., -6}]}}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-17, 2]}, {2., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-17, 2]}, {3., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-17, 2]}, {4., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-17, 2]}, {5., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -8}]}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-21, 2]}, {2., -10.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -10}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-21, 2]}, {3., -10.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -10}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-21, 2]}, {4., -10.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -10}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6.5, Rational[-21, 2]}, {6.5, -10.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7., -10}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7.5, Rational[-21, 2]}, {7.5, -10.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {8., -10}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-21, 2]}, {8.5, -10.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -10}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{11., Rational[-21, 2]}, {11., -10.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11.5, -10}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{12., Rational[-21, 2]}, {12., -10.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12.5, -10}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{13., Rational[-21, 2]}, {13., -10.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13.5, -10}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-25, 2]}, {2., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-25, 2]}, {3., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -12}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5.5, Rational[-25, 2]}, {5.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6.5, Rational[-25, 2]}, {6.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7.5, Rational[-25, 2]}, {7.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {8., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-25, 2]}, {8.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-25, 2]}, {9.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -12}]}}}}, {Hue[0.74, 0, 0.66], Opacity[0.4], EdgeForm[{Hue[0.75, 0, 0.35], Thickness[ Tiny]}], PolygonBox[ NCache[{{2., Rational[-5, 2]}, {3., Rational[-5, 2]}, { 5., Rational[-7, 2]}, {2., Rational[-7, 2]}}, {{2., -2.5}, { 3., -2.5}, {5., -3.5}, {2., -3.5}}]], { PolygonBox[ NCache[{{2., Rational[-9, 2]}, {4., Rational[-9, 2]}, { 3., Rational[-11, 2]}, {2., Rational[-11, 2]}}, {{2., -4.5}, { 4., -4.5}, {3., -5.5}, {2., -5.5}}]], PolygonBox[ NCache[{{3., Rational[-9, 2]}, {5., Rational[-9, 2]}, { 7.5, Rational[-11, 2]}, {6.5, Rational[-11, 2]}}, {{3., -4.5}, { 5., -4.5}, {7.5, -5.5}, {6.5, -5.5}}]]}, { PolygonBox[ NCache[{{2., Rational[-13, 2]}, {3., Rational[-13, 2]}, { 5., Rational[-15, 2]}, {2., Rational[-15, 2]}}, {{2., -6.5}, { 3., -6.5}, {5., -7.5}, {2., -7.5}}]], PolygonBox[ NCache[{{6.5, Rational[-13, 2]}, {7.5, Rational[-13, 2]}, { 6., Rational[-15, 2]}, {3., Rational[-15, 2]}}, {{6.5, -6.5}, { 7.5, -6.5}, {6., -7.5}, {3., -7.5}}]]}, { PolygonBox[ NCache[{{2., Rational[-17, 2]}, {4., Rational[-17, 2]}, { 3., Rational[-19, 2]}, {2., Rational[-19, 2]}}, {{2., -8.5}, { 4., -8.5}, {3., -9.5}, {2., -9.5}}]], PolygonBox[ NCache[{{3., Rational[-17, 2]}, {5., Rational[-17, 2]}, { 8.5, Rational[-19, 2]}, {7.5, Rational[-19, 2]}}, {{3., -8.5}, { 5., -8.5}, {8.5, -9.5}, {7.5, -9.5}}]], PolygonBox[ NCache[{{4., Rational[-17, 2]}, {6., Rational[-17, 2]}, { 14., Rational[-19, 2]}, {13., Rational[-19, 2]}}, {{4., -8.5}, { 6., -8.5}, {14., -9.5}, {13., -9.5}}]]}, {{ PolygonBox[ NCache[{{3., Rational[-21, 2]}, {5., Rational[-21, 2]}, { 4., Rational[-23, 2]}, {3., Rational[-23, 2]}}, {{3., -10.5}, { 5., -10.5}, {4., -11.5}, {3., -11.5}}]], PolygonBox[ NCache[{{11., Rational[-21, 2]}, {13., Rational[-21, 2]}, { 3., Rational[-23, 2]}, {2., Rational[-23, 2]}}, {{11., -10.5}, { 13., -10.5}, {3., -11.5}, {2., -11.5}}]]}, { PolygonBox[ NCache[{{2., Rational[-21, 2]}, {3., Rational[-21, 2]}, { 8.5, Rational[-23, 2]}, {5.5, Rational[-23, 2]}}, {{2., -10.5}, { 3., -10.5}, {8.5, -11.5}, {5.5, -11.5}}]], PolygonBox[ NCache[{{7.5, Rational[-21, 2]}, {8.5, Rational[-21, 2]}, { 9.5, Rational[-23, 2]}, {6.5, Rational[-23, 2]}}, {{7.5, -10.5}, { 8.5, -10.5}, {9.5, -11.5}, {6.5, -11.5}}]], PolygonBox[ NCache[{{13., Rational[-21, 2]}, {14., Rational[-21, 2]}, { 10.5, Rational[-23, 2]}, {7.5, Rational[-23, 2]}}, {{13., -10.5}, { 14., -10.5}, {10.5, -11.5}, {7.5, -11.5}}]]}}}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.791607323999758*^9, 3.793370447661312*^9, 3.793370689635337*^9, 3.793370774046191*^9}, CellLabel->"Out[56]=", CellID->671799724] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell[TextData[{ Cell[BoxData["MultiwayEvolutionPlot"], "InlineFormula", FontFamily->"Source Sans Pro"], " accepts both individual rules and lists of rules:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.791607667768662*^9, 3.791607678476858*^9}, 3.794332038299011*^9}, CellID->49079794], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", "\"\\"", ",", "3"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.791607679785224*^9, 3.791607693384755*^9}}, CellLabel->"In[57]:=", CellID->893638437], Cell[BoxData[ GraphicsBox[{{{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-5, 2]}, {2., -2.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -2}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-5, 2]}, {3., -2.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -2}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-5, 2]}, {4., -2.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -2}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-9, 2]}, {2., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-9, 2]}, {3., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-9, 2]}, {4., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-9, 2]}, {5., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -4}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-13, 2]}, {2., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-13, 2]}, {3., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-13, 2]}, {4., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-13, 2]}, {5., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6., Rational[-13, 2]}, {6., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6.5, -6}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-17, 2]}, {2., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-17, 2]}, {3., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-17, 2]}, {4., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-17, 2]}, {5., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6., Rational[-17, 2]}, {6., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7., Rational[-17, 2]}, {7., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7.5, -8}]}}}, {Hue[0.74, 0, 0.66], Arrowheads[ 0.02], {ArrowBox[ NCache[{{3.5, Rational[-5, 2]}, {4., Rational[-7, 2]}}, {{3.5, -2.5}, { 4., -3.5}}]], ArrowBox[NCache[{{3.5, Rational[-5, 2]}, {4., Rational[-7, 2]}}, {{ 3.5, -2.5}, {4., -3.5}}]], ArrowBox[NCache[{{3.5, Rational[-5, 2]}, {4., Rational[-7, 2]}}, {{ 3.5, -2.5}, {4., -3.5}}]]}, { ArrowBox[NCache[{{4., Rational[-9, 2]}, {4.5, Rational[-11, 2]}}, {{ 4., -4.5}, {4.5, -5.5}}]], ArrowBox[NCache[{{4., Rational[-9, 2]}, {4.5, Rational[-11, 2]}}, {{ 4., -4.5}, {4.5, -5.5}}]], ArrowBox[NCache[{{4., Rational[-9, 2]}, {4.5, Rational[-11, 2]}}, {{ 4., -4.5}, {4.5, -5.5}}]], ArrowBox[NCache[{{4., Rational[-9, 2]}, {4.5, Rational[-11, 2]}}, {{ 4., -4.5}, {4.5, -5.5}}]]}, { ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]], ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]], ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]], ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]], ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]]}}}, ImageSize->{238.65625, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.791607693634512*^9, 3.793370776923253*^9}, CellLabel->"Out[57]=", CellID->823790090] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "2", ",", RowBox[{"\"\\"", "\[Rule]", "6"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.79160770095268*^9, 3.791607787419415*^9}}, CellLabel->"In[58]:=", CellID->280790881], Cell[BoxData[ GraphicsBox[{{{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-13, 2]}, {2., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-13, 2]}, {3., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-13, 2]}, {4., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -6}]}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-25, 2]}, {2., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-25, 2]}, {3., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-25, 2]}, {4., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-25, 2]}, {5., -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -12}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7.5, Rational[-25, 2]}, {7.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {8., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-25, 2]}, {8.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-25, 2]}, {9.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-25, 2]}, {10.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -12}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{13., Rational[-25, 2]}, {13., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{14., Rational[-25, 2]}, {14., -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {14.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{15., Rational[-25, 2]}, {15., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {15.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{16., Rational[-25, 2]}, {16., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {16.5, -12}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-37, 2]}, {2., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-37, 2]}, {3., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-37, 2]}, {4., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-37, 2]}, {5., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6., Rational[-37, 2]}, {6., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6.5, -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-37, 2]}, {8.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-37, 2]}, {9.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-37, 2]}, {10.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{11.5, Rational[-37, 2]}, {11.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{12.5, Rational[-37, 2]}, {12.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13., -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{15., Rational[-37, 2]}, {15., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {15.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{16., Rational[-37, 2]}, {16., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {16.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{17., Rational[-37, 2]}, {17., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {17.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{18., Rational[-37, 2]}, {18., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {18.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{19., Rational[-37, 2]}, {19., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {19.5, -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{21.5, Rational[-37, 2]}, {21.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {22., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{22.5, Rational[-37, 2]}, {22.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {23., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{23.5, Rational[-37, 2]}, {23.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {24., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{24.5, Rational[-37, 2]}, {24.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {25., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{25.5, Rational[-37, 2]}, {25.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {26., -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{28., Rational[-37, 2]}, {28., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {28.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{29., Rational[-37, 2]}, {29., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {29.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{30., Rational[-37, 2]}, {30., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {30.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{31., Rational[-37, 2]}, {31., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {31.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{32., Rational[-37, 2]}, {32., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {32.5, -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{34.5, Rational[-37, 2]}, {34.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {35., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{35.5, Rational[-37, 2]}, {35.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {36., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{36.5, Rational[-37, 2]}, {36.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {37., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{37.5, Rational[-37, 2]}, {37.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {38., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{38.5, Rational[-37, 2]}, {38.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {39., -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{41., Rational[-37, 2]}, {41., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {41.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{42., Rational[-37, 2]}, {42., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {42.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{43., Rational[-37, 2]}, {43., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {43.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{44., Rational[-37, 2]}, {44., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {44.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{45., Rational[-37, 2]}, {45., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {45.5, -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{47.5, Rational[-37, 2]}, {47.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {48., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{48.5, Rational[-37, 2]}, {48.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {49., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{49.5, Rational[-37, 2]}, {49.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {50., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{50.5, Rational[-37, 2]}, {50.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {51., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{51.5, Rational[-37, 2]}, {51.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {52., -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{54., Rational[-37, 2]}, {54., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {54.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{55., Rational[-37, 2]}, {55., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {55.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{56., Rational[-37, 2]}, {56., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {56.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{57., Rational[-37, 2]}, {57., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {57.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{58., Rational[-37, 2]}, {58., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {58.5, -18}]}}}}, {Hue[0.74, 0, 0.66], Arrowheads[ 0.02], {ArrowBox[ NCache[{{3.5, Rational[-13, 2]}, {4., Rational[-23, 2]}}, {{ 3.5, -6.5}, {4., -11.5}}]], ArrowBox[NCache[{{3.5, Rational[-13, 2]}, {9.5, Rational[-23, 2]}}, {{ 3.5, -6.5}, {9.5, -11.5}}]], ArrowBox[NCache[{{3.5, Rational[-13, 2]}, {15., Rational[-23, 2]}}, {{ 3.5, -6.5}, {15., -11.5}}]]}, { ArrowBox[NCache[{{4., Rational[-25, 2]}, {4.5, Rational[-35, 2]}}, {{ 4., -12.5}, {4.5, -17.5}}]], ArrowBox[NCache[{{4., Rational[-25, 2]}, {11., Rational[-35, 2]}}, {{ 4., -12.5}, {11., -17.5}}]], ArrowBox[NCache[{{9.5, Rational[-25, 2]}, {17.5, Rational[-35, 2]}}, {{ 9.5, -12.5}, {17.5, -17.5}}]], { ArrowBox[NCache[{{4., Rational[-25, 2]}, {24., Rational[-35, 2]}}, {{ 4., -12.5}, {24., -17.5}}]], ArrowBox[NCache[{{9.5, Rational[-25, 2]}, {24., Rational[-35, 2]}}, {{ 9.5, -12.5}, {24., -17.5}}]]}, ArrowBox[ NCache[{{9.5, Rational[-25, 2]}, {30.5, Rational[-35, 2]}}, {{ 9.5, -12.5}, {30.5, -17.5}}]], ArrowBox[NCache[{{15., Rational[-25, 2]}, {37., Rational[-35, 2]}}, {{ 15., -12.5}, {37., -17.5}}]], { ArrowBox[NCache[{{4., Rational[-25, 2]}, {43.5, Rational[-35, 2]}}, {{ 4., -12.5}, {43.5, -17.5}}]], ArrowBox[NCache[{{15., Rational[-25, 2]}, {43.5, Rational[-35, 2]}}, {{ 15., -12.5}, {43.5, -17.5}}]]}, { ArrowBox[NCache[{{9.5, Rational[-25, 2]}, {50., Rational[-35, 2]}}, {{ 9.5, -12.5}, {50., -17.5}}]], ArrowBox[NCache[{{15., Rational[-25, 2]}, {50., Rational[-35, 2]}}, {{ 15., -12.5}, {50., -17.5}}]]}, ArrowBox[NCache[{{15., Rational[-25, 2]}, {56.5, Rational[-35, 2]}}, {{ 15., -12.5}, {56.5, -17.5}}]]}}}, ImageSize->{536.015625, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.791607711539193*^9, 3.791607787917802*^9}, 3.7933708063601103`*^9}, CellLabel->"Out[58]=", CellID->48095403] }, Open ]], Cell["Likewise for initial conditions:", "Text", TaggingRules->{}, CellChangeTimes->{{3.791607197832418*^9, 3.791607278934285*^9}, { 3.791607796858634*^9, 3.7916078002667103`*^9}}, CellID->99514470], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "2", ",", RowBox[{"\"\\"", "\[Rule]", "6"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.791607800871167*^9, 3.7916078229472837`*^9}}, CellLabel->"In[59]:=", CellID->407050916], Cell[BoxData[ GraphicsBox[{{{{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-13, 2]}, {2., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-13, 2]}, {3., -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-13, 2]}, {4., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -6}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6.5, Rational[-13, 2]}, {6.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7.5, Rational[-13, 2]}, {7.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {8., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-13, 2]}, {8.5, -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -6}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-25, 2]}, {2., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-25, 2]}, {3., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-25, 2]}, {4., -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-25, 2]}, {5., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -12}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7.5, Rational[-25, 2]}, {7.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {8., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-25, 2]}, {8.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-25, 2]}, {9.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-25, 2]}, {10.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -12}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{13., Rational[-25, 2]}, {13., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{14., Rational[-25, 2]}, {14., -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {14.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{15., Rational[-25, 2]}, {15., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {15.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{16., Rational[-25, 2]}, {16., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {16.5, -12}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{18.5, Rational[-25, 2]}, {18.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {19., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{19.5, Rational[-25, 2]}, {19.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {20., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{20.5, Rational[-25, 2]}, {20.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {21., -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{21.5, Rational[-25, 2]}, {21.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {22., -12}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{24., Rational[-25, 2]}, {24., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {24.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{25., Rational[-25, 2]}, {25., -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {25.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{26., Rational[-25, 2]}, {26., -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {26.5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{27., Rational[-25, 2]}, {27., -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {27.5, -12}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-37, 2]}, {2., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-37, 2]}, {3., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-37, 2]}, {4., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-37, 2]}, {5., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6., Rational[-37, 2]}, {6., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6.5, -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-37, 2]}, {8.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-37, 2]}, {9.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-37, 2]}, {10.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{11.5, Rational[-37, 2]}, {11.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{12.5, Rational[-37, 2]}, {12.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13., -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{15., Rational[-37, 2]}, {15., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {15.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{16., Rational[-37, 2]}, {16., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {16.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{17., Rational[-37, 2]}, {17., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {17.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{18., Rational[-37, 2]}, {18., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {18.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{19., Rational[-37, 2]}, {19., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {19.5, -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{21.5, Rational[-37, 2]}, {21.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {22., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{22.5, Rational[-37, 2]}, {22.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {23., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{23.5, Rational[-37, 2]}, {23.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {24., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{24.5, Rational[-37, 2]}, {24.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {25., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{25.5, Rational[-37, 2]}, {25.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {26., -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{28., Rational[-37, 2]}, {28., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {28.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{29., Rational[-37, 2]}, {29., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {29.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{30., Rational[-37, 2]}, {30., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {30.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{31., Rational[-37, 2]}, {31., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {31.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{32., Rational[-37, 2]}, {32., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {32.5, -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{34.5, Rational[-37, 2]}, {34.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {35., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{35.5, Rational[-37, 2]}, {35.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {36., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{36.5, Rational[-37, 2]}, {36.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {37., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{37.5, Rational[-37, 2]}, {37.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {38., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{38.5, Rational[-37, 2]}, {38.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {39., -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{41., Rational[-37, 2]}, {41., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {41.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{42., Rational[-37, 2]}, {42., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {42.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{43., Rational[-37, 2]}, {43., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {43.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{44., Rational[-37, 2]}, {44., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {44.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{45., Rational[-37, 2]}, {45., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {45.5, -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{47.5, Rational[-37, 2]}, {47.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {48., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{48.5, Rational[-37, 2]}, {48.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {49., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{49.5, Rational[-37, 2]}, {49.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {50., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{50.5, Rational[-37, 2]}, {50.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {51., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{51.5, Rational[-37, 2]}, {51.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {52., -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{54., Rational[-37, 2]}, {54., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {54.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{55., Rational[-37, 2]}, {55., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {55.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{56., Rational[-37, 2]}, {56., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {56.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{57., Rational[-37, 2]}, {57., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {57.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{58., Rational[-37, 2]}, {58., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {58.5, -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{60.5, Rational[-37, 2]}, {60.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {61., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{61.5, Rational[-37, 2]}, {61.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {62., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{62.5, Rational[-37, 2]}, {62.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {63., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{63.5, Rational[-37, 2]}, {63.5, -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {64., -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{64.5, Rational[-37, 2]}, {64.5, -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {65., -18}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{67., Rational[-37, 2]}, {67., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {67.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{68., Rational[-37, 2]}, {68., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {68.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{69., Rational[-37, 2]}, {69., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {69.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{70., Rational[-37, 2]}, {70., -18.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {70.5, -18}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{71., Rational[-37, 2]}, {71., -18.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {71.5, -18}]}}}}, {Hue[0.74, 0, 0.66], Arrowheads[ 0.02], {ArrowBox[ NCache[{{8., Rational[-13, 2]}, {4., Rational[-23, 2]}}, {{8., -6.5}, { 4., -11.5}}]], ArrowBox[NCache[{{8., Rational[-13, 2]}, {9.5, Rational[-23, 2]}}, {{ 8., -6.5}, {9.5, -11.5}}]], ArrowBox[NCache[{{3.5, Rational[-13, 2]}, {15., Rational[-23, 2]}}, {{ 3.5, -6.5}, {15., -11.5}}]], { ArrowBox[NCache[{{3.5, Rational[-13, 2]}, {20.5, Rational[-23, 2]}}, {{ 3.5, -6.5}, {20.5, -11.5}}]], ArrowBox[NCache[{{8., Rational[-13, 2]}, {20.5, Rational[-23, 2]}}, {{ 8., -6.5}, {20.5, -11.5}}]]}, ArrowBox[NCache[{{3.5, Rational[-13, 2]}, {26., Rational[-23, 2]}}, {{ 3.5, -6.5}, {26., -11.5}}]]}, { ArrowBox[NCache[{{4., Rational[-25, 2]}, {4.5, Rational[-35, 2]}}, {{ 4., -12.5}, {4.5, -17.5}}]], { ArrowBox[NCache[{{4., Rational[-25, 2]}, {11., Rational[-35, 2]}}, {{ 4., -12.5}, {11., -17.5}}]], ArrowBox[NCache[{{9.5, Rational[-25, 2]}, {11., Rational[-35, 2]}}, {{ 9.5, -12.5}, {11., -17.5}}]]}, { ArrowBox[NCache[{{4., Rational[-25, 2]}, {17.5, Rational[-35, 2]}}, {{ 4., -12.5}, {17.5, -17.5}}]], ArrowBox[NCache[{{9.5, Rational[-25, 2]}, {17.5, Rational[-35, 2]}}, {{ 9.5, -12.5}, {17.5, -17.5}}]]}, ArrowBox[NCache[{{9.5, Rational[-25, 2]}, {24., Rational[-35, 2]}}, {{ 9.5, -12.5}, {24., -17.5}}]], ArrowBox[NCache[{{15., Rational[-25, 2]}, {30.5, Rational[-35, 2]}}, {{ 15., -12.5}, {30.5, -17.5}}]], { ArrowBox[NCache[{{15., Rational[-25, 2]}, {37., Rational[-35, 2]}}, {{ 15., -12.5}, {37., -17.5}}]], ArrowBox[NCache[{{20.5, Rational[-25, 2]}, {37., Rational[-35, 2]}}, {{ 20.5, -12.5}, {37., -17.5}}]]}, { ArrowBox[NCache[{{4., Rational[-25, 2]}, {43.5, Rational[-35, 2]}}, {{ 4., -12.5}, {43.5, -17.5}}]], ArrowBox[NCache[{{15., Rational[-25, 2]}, {43.5, Rational[-35, 2]}}, {{ 15., -12.5}, {43.5, -17.5}}]], ArrowBox[NCache[{{20.5, Rational[-25, 2]}, {43.5, Rational[-35, 2]}}, {{ 20.5, -12.5}, {43.5, -17.5}}]], ArrowBox[NCache[{{26., Rational[-25, 2]}, {43.5, Rational[-35, 2]}}, {{ 26., -12.5}, {43.5, -17.5}}]]}, { ArrowBox[NCache[{{9.5, Rational[-25, 2]}, {50., Rational[-35, 2]}}, {{ 9.5, -12.5}, {50., -17.5}}]], ArrowBox[NCache[{{20.5, Rational[-25, 2]}, {50., Rational[-35, 2]}}, {{ 20.5, -12.5}, {50., -17.5}}]]}, { ArrowBox[NCache[{{15., Rational[-25, 2]}, {56.5, Rational[-35, 2]}}, {{ 15., -12.5}, {56.5, -17.5}}]], ArrowBox[NCache[{{26., Rational[-25, 2]}, {56.5, Rational[-35, 2]}}, {{ 26., -12.5}, {56.5, -17.5}}]]}, { ArrowBox[NCache[{{20.5, Rational[-25, 2]}, {63., Rational[-35, 2]}}, {{ 20.5, -12.5}, {63., -17.5}}]], ArrowBox[NCache[{{26., Rational[-25, 2]}, {63., Rational[-35, 2]}}, {{ 26., -12.5}, {63., -17.5}}]]}, ArrowBox[NCache[{{26., Rational[-25, 2]}, {69.5, Rational[-35, 2]}}, {{ 26., -12.5}, {69.5, -17.5}}]]}}}, ImageSize->{658.4921875, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.791607814566978*^9, 3.791607823360456*^9}, 3.793370807937337*^9}, CellLabel->"Out[59]=", CellID->805992255] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Options", "Subsection", TaggingRules->{}, CellID->890561554], Cell["Default plot with single arrows between states:", "Text", TaggingRules->{}, CellChangeTimes->{{3.791607197832418*^9, 3.791607278934285*^9}, { 3.79160739897646*^9, 3.791607406816576*^9}}, CellID->82191154], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "3"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.791607434893906*^9, 3.7916074423773117`*^9}}, CellLabel->"In[60]:=", CellID->470448265], Cell[BoxData[ GraphicsBox[{{{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-5, 2]}, {2., -2.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -2}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-5, 2]}, {3., -2.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -2}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-5, 2]}, {4., -2.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -2}]}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-9, 2]}, {2., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-9, 2]}, {3., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-9, 2]}, {4., -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-9, 2]}, {5., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -4}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7.5, Rational[-9, 2]}, {7.5, -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {8., -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-9, 2]}, {8.5, -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-9, 2]}, {9.5, -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-9, 2]}, {10.5, -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -4}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-13, 2]}, {2., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-13, 2]}, {3., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-13, 2]}, {4., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-13, 2]}, {5., -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6., Rational[-13, 2]}, {6., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6.5, -6}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-13, 2]}, {8.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-13, 2]}, {9.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-13, 2]}, {10.5, -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{11.5, Rational[-13, 2]}, {11.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{12.5, Rational[-13, 2]}, {12.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13., -6}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{15., Rational[-13, 2]}, {15., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {15.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{16., Rational[-13, 2]}, {16., -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {16.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{17., Rational[-13, 2]}, {17., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {17.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{18., Rational[-13, 2]}, {18., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {18.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{19., Rational[-13, 2]}, {19., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {19.5, -6}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-17, 2]}, {2., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-17, 2]}, {3., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-17, 2]}, {4., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-17, 2]}, {5., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6., Rational[-17, 2]}, {6., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7., Rational[-17, 2]}, {7., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7.5, -8}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-17, 2]}, {9.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-17, 2]}, {10.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{11.5, Rational[-17, 2]}, {11.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{12.5, Rational[-17, 2]}, {12.5, -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{13.5, Rational[-17, 2]}, {13.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {14., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{14.5, Rational[-17, 2]}, {14.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {15., -8}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{17., Rational[-17, 2]}, {17., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {17.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{18., Rational[-17, 2]}, {18., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {18.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{19., Rational[-17, 2]}, {19., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {19.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{20., Rational[-17, 2]}, {20., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {20.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{21., Rational[-17, 2]}, {21., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {21.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{22., Rational[-17, 2]}, {22., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {22.5, -8}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{24.5, Rational[-17, 2]}, {24.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {25., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{25.5, Rational[-17, 2]}, {25.5, -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {26., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{26.5, Rational[-17, 2]}, {26.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {27., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{27.5, Rational[-17, 2]}, {27.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {28., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{28.5, Rational[-17, 2]}, {28.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {29., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{29.5, Rational[-17, 2]}, {29.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {30., -8}]}}}}, {Hue[0.74, 0, 0.66], Arrowheads[ 0.02], {{ArrowBox[ NCache[{{3.5, Rational[-5, 2]}, {4., Rational[-7, 2]}}, {{3.5, -2.5}, { 4., -3.5}}]], ArrowBox[ NCache[{{3.5, Rational[-5, 2]}, {4., Rational[-7, 2]}}, {{3.5, -2.5}, { 4., -3.5}}]]}, ArrowBox[NCache[{{3.5, Rational[-5, 2]}, {9.5, Rational[-7, 2]}}, {{ 3.5, -2.5}, {9.5, -3.5}}]]}, {{ ArrowBox[NCache[{{4., Rational[-9, 2]}, {4.5, Rational[-11, 2]}}, {{ 4., -4.5}, {4.5, -5.5}}]], ArrowBox[NCache[{{4., Rational[-9, 2]}, {4.5, Rational[-11, 2]}}, {{ 4., -4.5}, {4.5, -5.5}}]], ArrowBox[NCache[{{4., Rational[-9, 2]}, {4.5, Rational[-11, 2]}}, {{ 4., -4.5}, {4.5, -5.5}}]]}, { ArrowBox[NCache[{{4., Rational[-9, 2]}, {11., Rational[-11, 2]}}, {{ 4., -4.5}, {11., -5.5}}]], ArrowBox[NCache[{{9.5, Rational[-9, 2]}, {11., Rational[-11, 2]}}, {{ 9.5, -4.5}, {11., -5.5}}]], ArrowBox[NCache[{{9.5, Rational[-9, 2]}, {11., Rational[-11, 2]}}, {{ 9.5, -4.5}, {11., -5.5}}]]}, { ArrowBox[NCache[{{9.5, Rational[-9, 2]}, {17.5, Rational[-11, 2]}}, {{ 9.5, -4.5}, {17.5, -5.5}}]], ArrowBox[NCache[{{9.5, Rational[-9, 2]}, {17.5, Rational[-11, 2]}}, {{ 9.5, -4.5}, {17.5, -5.5}}]]}}, {{ ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]], ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]], ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]], ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]]}, { ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {12.5, Rational[-15, 2]}}, {{ 4.5, -6.5}, {12.5, -7.5}}]], ArrowBox[NCache[{{11., Rational[-13, 2]}, {12.5, Rational[-15, 2]}}, {{ 11., -6.5}, {12.5, -7.5}}]], ArrowBox[NCache[{{11., Rational[-13, 2]}, {12.5, Rational[-15, 2]}}, {{ 11., -6.5}, {12.5, -7.5}}]], ArrowBox[NCache[{{11., Rational[-13, 2]}, {12.5, Rational[-15, 2]}}, {{ 11., -6.5}, {12.5, -7.5}}]]}, { ArrowBox[NCache[{{11., Rational[-13, 2]}, {20., Rational[-15, 2]}}, {{ 11., -6.5}, {20., -7.5}}]], ArrowBox[ NCache[{{11., Rational[-13, 2]}, {20., Rational[-15, 2]}}, {{ 11., -6.5}, {20., -7.5}}]], ArrowBox[NCache[{{17.5, Rational[-13, 2]}, {20., Rational[-15, 2]}}, {{ 17.5, -6.5}, {20., -7.5}}]], ArrowBox[NCache[{{17.5, Rational[-13, 2]}, {20., Rational[-15, 2]}}, {{ 17.5, -6.5}, {20., -7.5}}]]}, { ArrowBox[NCache[{{17.5, Rational[-13, 2]}, {27.5, Rational[-15, 2]}}, {{ 17.5, -6.5}, {27.5, -7.5}}]], ArrowBox[NCache[{{17.5, Rational[-13, 2]}, {27.5, Rational[-15, 2]}}, {{ 17.5, -6.5}, {27.5, -7.5}}]], ArrowBox[NCache[{{17.5, Rational[-13, 2]}, {27.5, Rational[-15, 2]}}, {{ 17.5, -6.5}, {27.5, -7.5}}]]}}}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7916074426194477`*^9, 3.793370811938051*^9}, CellLabel->"Out[60]=", CellID->778754704] }, Open ]], Cell["\<\ Separate arrows indicating the center of the beginning and end of each \ rewrite event:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.791607197832418*^9, 3.791607278934285*^9}, { 3.7916074499716797`*^9, 3.791607478152554*^9}}, CellID->221162010], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "3", ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7916074809129744`*^9, 3.791607501203233*^9}}, CellLabel->"In[61]:=", CellID->685016055], Cell[BoxData[ GraphicsBox[{{{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-5, 2]}, {2., -2.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -2}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-5, 2]}, {3., -2.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -2}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-5, 2]}, {4., -2.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -2}]}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-9, 2]}, {2., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-9, 2]}, {3., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-9, 2]}, {4., -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-9, 2]}, {5., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -4}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7.5, Rational[-9, 2]}, {7.5, -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {8., -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-9, 2]}, {8.5, -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-9, 2]}, {9.5, -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-9, 2]}, {10.5, -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -4}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-13, 2]}, {2., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-13, 2]}, {3., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-13, 2]}, {4., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-13, 2]}, {5., -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6., Rational[-13, 2]}, {6., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6.5, -6}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-13, 2]}, {8.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-13, 2]}, {9.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-13, 2]}, {10.5, -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{11.5, Rational[-13, 2]}, {11.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{12.5, Rational[-13, 2]}, {12.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13., -6}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{15., Rational[-13, 2]}, {15., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {15.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{16., Rational[-13, 2]}, {16., -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {16.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{17., Rational[-13, 2]}, {17., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {17.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{18., Rational[-13, 2]}, {18., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {18.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{19., Rational[-13, 2]}, {19., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {19.5, -6}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-17, 2]}, {2., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-17, 2]}, {3., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-17, 2]}, {4., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-17, 2]}, {5., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6., Rational[-17, 2]}, {6., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7., Rational[-17, 2]}, {7., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7.5, -8}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-17, 2]}, {9.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-17, 2]}, {10.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{11.5, Rational[-17, 2]}, {11.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{12.5, Rational[-17, 2]}, {12.5, -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{13.5, Rational[-17, 2]}, {13.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {14., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{14.5, Rational[-17, 2]}, {14.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {15., -8}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{17., Rational[-17, 2]}, {17., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {17.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{18., Rational[-17, 2]}, {18., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {18.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{19., Rational[-17, 2]}, {19., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {19.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{20., Rational[-17, 2]}, {20., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {20.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{21., Rational[-17, 2]}, {21., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {21.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{22., Rational[-17, 2]}, {22., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {22.5, -8}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{24.5, Rational[-17, 2]}, {24.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {25., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{25.5, Rational[-17, 2]}, {25.5, -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {26., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{26.5, Rational[-17, 2]}, {26.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {27., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{27.5, Rational[-17, 2]}, {27.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {28., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{28.5, Rational[-17, 2]}, {28.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {29., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{29.5, Rational[-17, 2]}, {29.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {30., -8}]}}}}, {Hue[0.74, 0, 0.66], Arrowheads[ 0.02], {{ArrowBox[ NCache[{{2.5, Rational[-5, 2]}, {3., Rational[-7, 2]}}, {{2.5, -2.5}, { 3., -3.5}}]], ArrowBox[ NCache[{{3.5, Rational[-5, 2]}, {4., Rational[-7, 2]}}, {{3.5, -2.5}, { 4., -3.5}}]]}, ArrowBox[NCache[{{4.5, Rational[-5, 2]}, {10.5, Rational[-7, 2]}}, {{ 4.5, -2.5}, {10.5, -3.5}}]]}, {{ ArrowBox[NCache[{{2.5, Rational[-9, 2]}, {3., Rational[-11, 2]}}, {{ 2.5, -4.5}, {3., -5.5}}]], ArrowBox[NCache[{{3.5, Rational[-9, 2]}, {4., Rational[-11, 2]}}, {{ 3.5, -4.5}, {4., -5.5}}]], ArrowBox[NCache[{{4.5, Rational[-9, 2]}, {5., Rational[-11, 2]}}, {{ 4.5, -4.5}, {5., -5.5}}]]}, { ArrowBox[NCache[{{5.5, Rational[-9, 2]}, {12.5, Rational[-11, 2]}}, {{ 5.5, -4.5}, {12.5, -5.5}}]], ArrowBox[NCache[{{8., Rational[-9, 2]}, {9.5, Rational[-11, 2]}}, {{ 8., -4.5}, {9.5, -5.5}}]], ArrowBox[NCache[{{9., Rational[-9, 2]}, {10.5, Rational[-11, 2]}}, {{ 9., -4.5}, {10.5, -5.5}}]]}, { ArrowBox[NCache[{{10., Rational[-9, 2]}, {18., Rational[-11, 2]}}, {{ 10., -4.5}, {18., -5.5}}]], ArrowBox[NCache[{{11., Rational[-9, 2]}, {19., Rational[-11, 2]}}, {{ 11., -4.5}, {19., -5.5}}]]}}, {{ ArrowBox[NCache[{{2.5, Rational[-13, 2]}, {3., Rational[-15, 2]}}, {{ 2.5, -6.5}, {3., -7.5}}]], ArrowBox[NCache[{{3.5, Rational[-13, 2]}, {4., Rational[-15, 2]}}, {{ 3.5, -6.5}, {4., -7.5}}]], ArrowBox[NCache[{{4.5, Rational[-13, 2]}, {5., Rational[-15, 2]}}, {{ 4.5, -6.5}, {5., -7.5}}]], ArrowBox[NCache[{{5.5, Rational[-13, 2]}, {6., Rational[-15, 2]}}, {{ 5.5, -6.5}, {6., -7.5}}]]}, { ArrowBox[NCache[{{6.5, Rational[-13, 2]}, {14.5, Rational[-15, 2]}}, {{ 6.5, -6.5}, {14.5, -7.5}}]], ArrowBox[NCache[{{9., Rational[-13, 2]}, {10.5, Rational[-15, 2]}}, {{ 9., -6.5}, {10.5, -7.5}}]], ArrowBox[NCache[{{10., Rational[-13, 2]}, {11.5, Rational[-15, 2]}}, {{ 10., -6.5}, {11.5, -7.5}}]], ArrowBox[NCache[{{11., Rational[-13, 2]}, {12.5, Rational[-15, 2]}}, {{ 11., -6.5}, {12.5, -7.5}}]]}, { ArrowBox[NCache[{{12., Rational[-13, 2]}, {21., Rational[-15, 2]}}, {{ 12., -6.5}, {21., -7.5}}]], ArrowBox[ NCache[{{13., Rational[-13, 2]}, {22., Rational[-15, 2]}}, {{ 13., -6.5}, {22., -7.5}}]], ArrowBox[NCache[{{15.5, Rational[-13, 2]}, {18., Rational[-15, 2]}}, {{ 15.5, -6.5}, {18., -7.5}}]], ArrowBox[NCache[{{16.5, Rational[-13, 2]}, {19., Rational[-15, 2]}}, {{ 16.5, -6.5}, {19., -7.5}}]]}, { ArrowBox[NCache[{{17.5, Rational[-13, 2]}, {27.5, Rational[-15, 2]}}, {{ 17.5, -6.5}, {27.5, -7.5}}]], ArrowBox[NCache[{{18.5, Rational[-13, 2]}, {28.5, Rational[-15, 2]}}, {{ 18.5, -6.5}, {28.5, -7.5}}]], ArrowBox[NCache[{{19.5, Rational[-13, 2]}, {29.5, Rational[-15, 2]}}, {{ 19.5, -6.5}, {29.5, -7.5}}]]}}}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.791607501438897*^9, 3.793370813440092*^9}, CellLabel->"Out[61]=", CellID->67744702] }, Open ]], Cell["\<\ Polygons indicating the extent of the beginning and end of each rewrite event:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.791607197832418*^9, 3.791607278934285*^9}, { 3.7916075143328133`*^9, 3.791607524107358*^9}}, CellID->403722936], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "3", ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.791607524654498*^9, 3.791607541792451*^9}}, CellLabel->"In[62]:=", CellID->651014535], Cell[BoxData[ GraphicsBox[{{{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-5, 2]}, {2., -2.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -2}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-5, 2]}, {3., -2.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -2}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-5, 2]}, {4., -2.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -2}]}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-9, 2]}, {2., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-9, 2]}, {3., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-9, 2]}, {4., -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-9, 2]}, {5., -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -4}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7.5, Rational[-9, 2]}, {7.5, -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {8., -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-9, 2]}, {8.5, -4.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-9, 2]}, {9.5, -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -4}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-9, 2]}, {10.5, -4.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -4}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-13, 2]}, {2., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-13, 2]}, {3., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-13, 2]}, {4., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-13, 2]}, {5., -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6., Rational[-13, 2]}, {6., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6.5, -6}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{8.5, Rational[-13, 2]}, {8.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-13, 2]}, {9.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-13, 2]}, {10.5, -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{11.5, Rational[-13, 2]}, {11.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12., -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{12.5, Rational[-13, 2]}, {12.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13., -6}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{15., Rational[-13, 2]}, {15., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {15.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{16., Rational[-13, 2]}, {16., -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {16.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{17., Rational[-13, 2]}, {17., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {17.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{18., Rational[-13, 2]}, {18., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {18.5, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{19., Rational[-13, 2]}, {19., -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {19.5, -6}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{2., Rational[-17, 2]}, {2., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{3., Rational[-17, 2]}, {3., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{4., Rational[-17, 2]}, {4., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{5., Rational[-17, 2]}, {5., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{6., Rational[-17, 2]}, {6., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{7., Rational[-17, 2]}, {7., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7.5, -8}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{9.5, Rational[-17, 2]}, {9.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{10.5, Rational[-17, 2]}, {10.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{11.5, Rational[-17, 2]}, {11.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{12.5, Rational[-17, 2]}, {12.5, -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{13.5, Rational[-17, 2]}, {13.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {14., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{14.5, Rational[-17, 2]}, {14.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {15., -8}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{17., Rational[-17, 2]}, {17., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {17.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{18., Rational[-17, 2]}, {18., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {18.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{19., Rational[-17, 2]}, {19., -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {19.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{20., Rational[-17, 2]}, {20., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {20.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{21., Rational[-17, 2]}, {21., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {21.5, -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{22., Rational[-17, 2]}, {22., -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {22.5, -8}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{24.5, Rational[-17, 2]}, {24.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {25., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{25.5, Rational[-17, 2]}, {25.5, -8.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {26., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{26.5, Rational[-17, 2]}, {26.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {27., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{27.5, Rational[-17, 2]}, {27.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {28., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{28.5, Rational[-17, 2]}, {28.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {29., -8}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{29.5, Rational[-17, 2]}, {29.5, -8.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {30., -8}]}}}}, {Hue[0.74, 0, 0.66], Opacity[0.4], EdgeForm[{Hue[0.75, 0, 0.35], Thickness[ Tiny]}], {{ PolygonBox[ NCache[{{2., Rational[-5, 2]}, {3., Rational[-5, 2]}, { 4., Rational[-7, 2]}, {2., Rational[-7, 2]}}, {{2., -2.5}, { 3., -2.5}, {4., -3.5}, {2., -3.5}}]], PolygonBox[ NCache[{{3., Rational[-5, 2]}, {4., Rational[-5, 2]}, { 5., Rational[-7, 2]}, {3., Rational[-7, 2]}}, {{3., -2.5}, { 4., -2.5}, {5., -3.5}, {3., -3.5}}]]}, PolygonBox[ NCache[{{4., Rational[-5, 2]}, {5., Rational[-5, 2]}, { 11.5, Rational[-7, 2]}, {9.5, Rational[-7, 2]}}, {{4., -2.5}, { 5., -2.5}, {11.5, -3.5}, {9.5, -3.5}}]]}, {{ PolygonBox[ NCache[{{2., Rational[-9, 2]}, {3., Rational[-9, 2]}, { 4., Rational[-11, 2]}, {2., Rational[-11, 2]}}, {{2., -4.5}, { 3., -4.5}, {4., -5.5}, {2., -5.5}}]], PolygonBox[ NCache[{{3., Rational[-9, 2]}, {4., Rational[-9, 2]}, { 5., Rational[-11, 2]}, {3., Rational[-11, 2]}}, {{3., -4.5}, { 4., -4.5}, {5., -5.5}, {3., -5.5}}]], PolygonBox[ NCache[{{4., Rational[-9, 2]}, {5., Rational[-9, 2]}, { 6., Rational[-11, 2]}, {4., Rational[-11, 2]}}, {{4., -4.5}, { 5., -4.5}, {6., -5.5}, {4., -5.5}}]]}, { PolygonBox[ NCache[{{5., Rational[-9, 2]}, {6., Rational[-9, 2]}, { 13.5, Rational[-11, 2]}, {11.5, Rational[-11, 2]}}, {{5., -4.5}, { 6., -4.5}, {13.5, -5.5}, {11.5, -5.5}}]], PolygonBox[ NCache[{{7.5, Rational[-9, 2]}, {8.5, Rational[-9, 2]}, { 10.5, Rational[-11, 2]}, {8.5, Rational[-11, 2]}}, {{7.5, -4.5}, { 8.5, -4.5}, {10.5, -5.5}, {8.5, -5.5}}]], PolygonBox[ NCache[{{8.5, Rational[-9, 2]}, {9.5, Rational[-9, 2]}, { 11.5, Rational[-11, 2]}, {9.5, Rational[-11, 2]}}, {{8.5, -4.5}, { 9.5, -4.5}, {11.5, -5.5}, {9.5, -5.5}}]]}, { PolygonBox[ NCache[{{9.5, Rational[-9, 2]}, {10.5, Rational[-9, 2]}, { 19., Rational[-11, 2]}, {17., Rational[-11, 2]}}, {{9.5, -4.5}, { 10.5, -4.5}, {19., -5.5}, {17., -5.5}}]], PolygonBox[ NCache[{{10.5, Rational[-9, 2]}, {11.5, Rational[-9, 2]}, { 20., Rational[-11, 2]}, {18., Rational[-11, 2]}}, {{10.5, -4.5}, { 11.5, -4.5}, {20., -5.5}, {18., -5.5}}]]}}, {{ PolygonBox[ NCache[{{2., Rational[-13, 2]}, {3., Rational[-13, 2]}, { 4., Rational[-15, 2]}, {2., Rational[-15, 2]}}, {{2., -6.5}, { 3., -6.5}, {4., -7.5}, {2., -7.5}}]], PolygonBox[ NCache[{{3., Rational[-13, 2]}, {4., Rational[-13, 2]}, { 5., Rational[-15, 2]}, {3., Rational[-15, 2]}}, {{3., -6.5}, { 4., -6.5}, {5., -7.5}, {3., -7.5}}]], PolygonBox[ NCache[{{4., Rational[-13, 2]}, {5., Rational[-13, 2]}, { 6., Rational[-15, 2]}, {4., Rational[-15, 2]}}, {{4., -6.5}, { 5., -6.5}, {6., -7.5}, {4., -7.5}}]], PolygonBox[ NCache[{{5., Rational[-13, 2]}, {6., Rational[-13, 2]}, { 7., Rational[-15, 2]}, {5., Rational[-15, 2]}}, {{5., -6.5}, { 6., -6.5}, {7., -7.5}, {5., -7.5}}]]}, { PolygonBox[ NCache[{{6., Rational[-13, 2]}, {7., Rational[-13, 2]}, { 15.5, Rational[-15, 2]}, {13.5, Rational[-15, 2]}}, {{6., -6.5}, { 7., -6.5}, {15.5, -7.5}, {13.5, -7.5}}]], PolygonBox[ NCache[{{8.5, Rational[-13, 2]}, {9.5, Rational[-13, 2]}, { 11.5, Rational[-15, 2]}, {9.5, Rational[-15, 2]}}, {{8.5, -6.5}, { 9.5, -6.5}, {11.5, -7.5}, {9.5, -7.5}}]], PolygonBox[ NCache[{{9.5, Rational[-13, 2]}, {10.5, Rational[-13, 2]}, { 12.5, Rational[-15, 2]}, {10.5, Rational[-15, 2]}}, {{9.5, -6.5}, { 10.5, -6.5}, {12.5, -7.5}, {10.5, -7.5}}]], PolygonBox[ NCache[{{10.5, Rational[-13, 2]}, {11.5, Rational[-13, 2]}, { 13.5, Rational[-15, 2]}, {11.5, Rational[-15, 2]}}, {{10.5, -6.5}, { 11.5, -6.5}, {13.5, -7.5}, {11.5, -7.5}}]]}, { PolygonBox[ NCache[{{11.5, Rational[-13, 2]}, {12.5, Rational[-13, 2]}, { 22., Rational[-15, 2]}, {20., Rational[-15, 2]}}, {{11.5, -6.5}, { 12.5, -6.5}, {22., -7.5}, {20., -7.5}}]], PolygonBox[ NCache[{{12.5, Rational[-13, 2]}, {13.5, Rational[-13, 2]}, { 23., Rational[-15, 2]}, {21., Rational[-15, 2]}}, {{12.5, -6.5}, { 13.5, -6.5}, {23., -7.5}, {21., -7.5}}]], PolygonBox[ NCache[{{15., Rational[-13, 2]}, {16., Rational[-13, 2]}, { 19., Rational[-15, 2]}, {17., Rational[-15, 2]}}, {{15., -6.5}, { 16., -6.5}, {19., -7.5}, {17., -7.5}}]], PolygonBox[ NCache[{{16., Rational[-13, 2]}, {17., Rational[-13, 2]}, { 20., Rational[-15, 2]}, {18., Rational[-15, 2]}}, {{16., -6.5}, { 17., -6.5}, {20., -7.5}, {18., -7.5}}]]}, { PolygonBox[ NCache[{{17., Rational[-13, 2]}, {18., Rational[-13, 2]}, { 28.5, Rational[-15, 2]}, {26.5, Rational[-15, 2]}}, {{17., -6.5}, { 18., -6.5}, {28.5, -7.5}, {26.5, -7.5}}]], PolygonBox[ NCache[{{18., Rational[-13, 2]}, {19., Rational[-13, 2]}, { 29.5, Rational[-15, 2]}, {27.5, Rational[-15, 2]}}, {{18., -6.5}, { 19., -6.5}, {29.5, -7.5}, {27.5, -7.5}}]], PolygonBox[ NCache[{{19., Rational[-13, 2]}, {20., Rational[-13, 2]}, { 30.5, Rational[-15, 2]}, {28.5, Rational[-15, 2]}}, {{19., -6.5}, { 20., -6.5}, {30.5, -7.5}, {28.5, -7.5}}]]}}}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.791607542037517*^9, 3.793370816337946*^9}, CellLabel->"Out[62]=", CellID->402150207] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["Specify spacings in terms of element sizes:", "Text", TaggingRules->{}, CellChangeTimes->{{3.791607197832418*^9, 3.791607278934285*^9}, { 3.791607549443178*^9, 3.791607557237855*^9}}, CellID->261487942], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultiwayEvolutionPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "3", ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "3"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7916075584255543`*^9, 3.7916075849802094`*^9}}, CellLabel->"In[63]:=", CellID->572115630], Cell[BoxData[ GraphicsBox[{{{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{Rational[3, 2], Rational[-7, 2]}, {1.5, -3.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2, -3}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{Rational[5, 2], Rational[-7, 2]}, {2.5, -3.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3, -3}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[NCache[{Rational[7, 2], Rational[-7, 2]}, {3.5, -3.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4, -3}]}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[3, 2], Rational[-13, 2]}, {1.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[5, 2], Rational[-13, 2]}, {2.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[7, 2], Rational[-13, 2]}, {3.5, -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[9, 2], Rational[-13, 2]}, {4.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5, -6}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[13, 2], Rational[-13, 2]}, {6.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[15, 2], Rational[-13, 2]}, {7.5, -6.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {8, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[17, 2], Rational[-13, 2]}, {8.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9, -6}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[19, 2], Rational[-13, 2]}, {9.5, -6.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10, -6}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[3, 2], Rational[-19, 2]}, {1.5, -9.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2, -9}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[5, 2], Rational[-19, 2]}, {2.5, -9.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3, -9}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[7, 2], Rational[-19, 2]}, {3.5, -9.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4, -9}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[9, 2], Rational[-19, 2]}, {4.5, -9.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5, -9}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[11, 2], Rational[-19, 2]}, {5.5, -9.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6, -9}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[15, 2], Rational[-19, 2]}, {7.5, -9.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {8, -9}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[17, 2], Rational[-19, 2]}, {8.5, -9.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9, -9}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[19, 2], Rational[-19, 2]}, {9.5, -9.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10, -9}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[21, 2], Rational[-19, 2]}, {10.5, -9.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11, -9}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[23, 2], Rational[-19, 2]}, {11.5, -9.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12, -9}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[27, 2], Rational[-19, 2]}, {13.5, -9.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {14, -9}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[29, 2], Rational[-19, 2]}, {14.5, -9.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {15, -9}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[31, 2], Rational[-19, 2]}, {15.5, -9.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {16, -9}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[33, 2], Rational[-19, 2]}, {16.5, -9.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {17, -9}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[35, 2], Rational[-19, 2]}, {17.5, -9.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {18, -9}]}}}, {{{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[3, 2], Rational[-25, 2]}, {1.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {2, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[5, 2], Rational[-25, 2]}, {2.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {3, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[7, 2], Rational[-25, 2]}, {3.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {4, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[9, 2], Rational[-25, 2]}, {4.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {5, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[11, 2], Rational[-25, 2]}, {5.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {6, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[13, 2], Rational[-25, 2]}, {6.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {7, -12}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[17, 2], Rational[-25, 2]}, {8.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {9, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[19, 2], Rational[-25, 2]}, {9.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {10, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[21, 2], Rational[-25, 2]}, {10.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {11, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[23, 2], Rational[-25, 2]}, {11.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {12, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[25, 2], Rational[-25, 2]}, {12.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {13, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[27, 2], Rational[-25, 2]}, {13.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {14, -12}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[31, 2], Rational[-25, 2]}, {15.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {16, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[33, 2], Rational[-25, 2]}, {16.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {17, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[35, 2], Rational[-25, 2]}, {17.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {18, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[37, 2], Rational[-25, 2]}, {18.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {19, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[39, 2], Rational[-25, 2]}, {19.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {20, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[41, 2], Rational[-25, 2]}, {20.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {21, -12}]}}, {{ {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[45, 2], Rational[-25, 2]}, {22.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {23, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[47, 2], Rational[-25, 2]}, {23.5, -12.5}]]}, InsetBox[ StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {24, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[49, 2], Rational[-25, 2]}, {24.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {25, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[51, 2], Rational[-25, 2]}, {25.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {26, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[53, 2], Rational[-25, 2]}, {26.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {27, -12}]}, { {Hue[0.62, 0.45, 0.87], Opacity[0.2], EdgeForm[{Hue[0.62, 0.52, 0.82], Opacity[0.5]}], RectangleBox[ NCache[{Rational[55, 2], Rational[-25, 2]}, {27.5, -12.5}]]}, InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->Hue[0, 0, 0], $CellContext`LineColor -> Hue[0, 0, 0], $CellContext`FrontFaceColor -> Hue[0, 0, 0], $CellContext`GraphicsColor -> Hue[0, 0, 0], $CellContext`BackFaceColor -> Hue[0, 0, 0]], {28, -12}]}}}}, {Hue[0.74, 0, 0.66], Opacity[0.4], EdgeForm[{Hue[0.75, 0, 0.35], Thickness[ Tiny]}], {{ PolygonBox[ NCache[{{Rational[3, 2], Rational[-7, 2]}, { Rational[5, 2], Rational[-7, 2]}, { Rational[7, 2], Rational[-11, 2]}, { Rational[3, 2], Rational[-11, 2]}}, {{1.5, -3.5}, {2.5, -3.5}, { 3.5, -5.5}, {1.5, -5.5}}]], PolygonBox[ NCache[{{Rational[5, 2], Rational[-7, 2]}, { Rational[7, 2], Rational[-7, 2]}, { Rational[9, 2], Rational[-11, 2]}, { Rational[5, 2], Rational[-11, 2]}}, {{2.5, -3.5}, {3.5, -3.5}, { 4.5, -5.5}, {2.5, -5.5}}]]}, PolygonBox[ NCache[{{Rational[7, 2], Rational[-7, 2]}, { Rational[9, 2], Rational[-7, 2]}, { Rational[21, 2], Rational[-11, 2]}, { Rational[17, 2], Rational[-11, 2]}}, {{3.5, -3.5}, {4.5, -3.5}, { 10.5, -5.5}, {8.5, -5.5}}]]}, {{ PolygonBox[ NCache[{{Rational[3, 2], Rational[-13, 2]}, { Rational[5, 2], Rational[-13, 2]}, { Rational[7, 2], Rational[-17, 2]}, { Rational[3, 2], Rational[-17, 2]}}, {{1.5, -6.5}, {2.5, -6.5}, { 3.5, -8.5}, {1.5, -8.5}}]], PolygonBox[ NCache[{{Rational[5, 2], Rational[-13, 2]}, { Rational[7, 2], Rational[-13, 2]}, { Rational[9, 2], Rational[-17, 2]}, { Rational[5, 2], Rational[-17, 2]}}, {{2.5, -6.5}, {3.5, -6.5}, { 4.5, -8.5}, {2.5, -8.5}}]], PolygonBox[ NCache[{{Rational[7, 2], Rational[-13, 2]}, { Rational[9, 2], Rational[-13, 2]}, { Rational[11, 2], Rational[-17, 2]}, { Rational[7, 2], Rational[-17, 2]}}, {{3.5, -6.5}, {4.5, -6.5}, { 5.5, -8.5}, {3.5, -8.5}}]]}, { PolygonBox[ NCache[{{Rational[9, 2], Rational[-13, 2]}, { Rational[11, 2], Rational[-13, 2]}, { Rational[25, 2], Rational[-17, 2]}, { Rational[21, 2], Rational[-17, 2]}}, {{4.5, -6.5}, {5.5, -6.5}, { 12.5, -8.5}, {10.5, -8.5}}]], PolygonBox[ NCache[{{Rational[13, 2], Rational[-13, 2]}, { Rational[15, 2], Rational[-13, 2]}, { Rational[19, 2], Rational[-17, 2]}, { Rational[15, 2], Rational[-17, 2]}}, {{6.5, -6.5}, {7.5, -6.5}, { 9.5, -8.5}, {7.5, -8.5}}]], PolygonBox[ NCache[{{Rational[15, 2], Rational[-13, 2]}, { Rational[17, 2], Rational[-13, 2]}, { Rational[21, 2], Rational[-17, 2]}, { Rational[17, 2], Rational[-17, 2]}}, {{7.5, -6.5}, {8.5, -6.5}, { 10.5, -8.5}, {8.5, -8.5}}]]}, { PolygonBox[ NCache[{{Rational[17, 2], Rational[-13, 2]}, { Rational[19, 2], Rational[-13, 2]}, { Rational[35, 2], Rational[-17, 2]}, { Rational[31, 2], Rational[-17, 2]}}, {{8.5, -6.5}, {9.5, -6.5}, { 17.5, -8.5}, {15.5, -8.5}}]], PolygonBox[ NCache[{{Rational[19, 2], Rational[-13, 2]}, { Rational[21, 2], Rational[-13, 2]}, { Rational[37, 2], Rational[-17, 2]}, { Rational[33, 2], Rational[-17, 2]}}, {{9.5, -6.5}, {10.5, -6.5}, { 18.5, -8.5}, {16.5, -8.5}}]]}}, {{ PolygonBox[ NCache[{{Rational[3, 2], Rational[-19, 2]}, { Rational[5, 2], Rational[-19, 2]}, { Rational[7, 2], Rational[-23, 2]}, { Rational[3, 2], Rational[-23, 2]}}, {{1.5, -9.5}, {2.5, -9.5}, { 3.5, -11.5}, {1.5, -11.5}}]], PolygonBox[ NCache[{{Rational[5, 2], Rational[-19, 2]}, { Rational[7, 2], Rational[-19, 2]}, { Rational[9, 2], Rational[-23, 2]}, { Rational[5, 2], Rational[-23, 2]}}, {{2.5, -9.5}, {3.5, -9.5}, { 4.5, -11.5}, {2.5, -11.5}}]], PolygonBox[ NCache[{{Rational[7, 2], Rational[-19, 2]}, { Rational[9, 2], Rational[-19, 2]}, { Rational[11, 2], Rational[-23, 2]}, { Rational[7, 2], Rational[-23, 2]}}, {{3.5, -9.5}, {4.5, -9.5}, { 5.5, -11.5}, {3.5, -11.5}}]], PolygonBox[ NCache[{{Rational[9, 2], Rational[-19, 2]}, { Rational[11, 2], Rational[-19, 2]}, { Rational[13, 2], Rational[-23, 2]}, { Rational[9, 2], Rational[-23, 2]}}, {{4.5, -9.5}, {5.5, -9.5}, { 6.5, -11.5}, {4.5, -11.5}}]]}, { PolygonBox[ NCache[{{Rational[11, 2], Rational[-19, 2]}, { Rational[13, 2], Rational[-19, 2]}, { Rational[29, 2], Rational[-23, 2]}, { Rational[25, 2], Rational[-23, 2]}}, {{5.5, -9.5}, {6.5, -9.5}, { 14.5, -11.5}, {12.5, -11.5}}]], PolygonBox[ NCache[{{Rational[15, 2], Rational[-19, 2]}, { Rational[17, 2], Rational[-19, 2]}, { Rational[21, 2], Rational[-23, 2]}, { Rational[17, 2], Rational[-23, 2]}}, {{7.5, -9.5}, {8.5, -9.5}, { 10.5, -11.5}, {8.5, -11.5}}]], PolygonBox[ NCache[{{Rational[17, 2], Rational[-19, 2]}, { Rational[19, 2], Rational[-19, 2]}, { Rational[23, 2], Rational[-23, 2]}, { Rational[19, 2], Rational[-23, 2]}}, {{8.5, -9.5}, {9.5, -9.5}, { 11.5, -11.5}, {9.5, -11.5}}]], PolygonBox[ NCache[{{Rational[19, 2], Rational[-19, 2]}, { Rational[21, 2], Rational[-19, 2]}, { Rational[25, 2], Rational[-23, 2]}, { Rational[21, 2], Rational[-23, 2]}}, {{9.5, -9.5}, {10.5, -9.5}, { 12.5, -11.5}, {10.5, -11.5}}]]}, { PolygonBox[ NCache[{{Rational[21, 2], Rational[-19, 2]}, { Rational[23, 2], Rational[-19, 2]}, { Rational[41, 2], Rational[-23, 2]}, { Rational[37, 2], Rational[-23, 2]}}, {{10.5, -9.5}, {11.5, -9.5}, { 20.5, -11.5}, {18.5, -11.5}}]], PolygonBox[ NCache[{{Rational[23, 2], Rational[-19, 2]}, { Rational[25, 2], Rational[-19, 2]}, { Rational[43, 2], Rational[-23, 2]}, { Rational[39, 2], Rational[-23, 2]}}, {{11.5, -9.5}, {12.5, -9.5}, { 21.5, -11.5}, {19.5, -11.5}}]], PolygonBox[ NCache[{{Rational[27, 2], Rational[-19, 2]}, { Rational[29, 2], Rational[-19, 2]}, { Rational[35, 2], Rational[-23, 2]}, { Rational[31, 2], Rational[-23, 2]}}, {{13.5, -9.5}, {14.5, -9.5}, { 17.5, -11.5}, {15.5, -11.5}}]], PolygonBox[ NCache[{{Rational[29, 2], Rational[-19, 2]}, { Rational[31, 2], Rational[-19, 2]}, { Rational[37, 2], Rational[-23, 2]}, { Rational[33, 2], Rational[-23, 2]}}, {{14.5, -9.5}, {15.5, -9.5}, { 18.5, -11.5}, {16.5, -11.5}}]]}, { PolygonBox[ NCache[{{Rational[31, 2], Rational[-19, 2]}, { Rational[33, 2], Rational[-19, 2]}, { Rational[53, 2], Rational[-23, 2]}, { Rational[49, 2], Rational[-23, 2]}}, {{15.5, -9.5}, {16.5, -9.5}, { 26.5, -11.5}, {24.5, -11.5}}]], PolygonBox[ NCache[{{Rational[33, 2], Rational[-19, 2]}, { Rational[35, 2], Rational[-19, 2]}, { Rational[55, 2], Rational[-23, 2]}, { Rational[51, 2], Rational[-23, 2]}}, {{16.5, -9.5}, {17.5, -9.5}, { 27.5, -11.5}, {25.5, -11.5}}]], PolygonBox[ NCache[{{Rational[35, 2], Rational[-19, 2]}, { Rational[37, 2], Rational[-19, 2]}, { Rational[57, 2], Rational[-23, 2]}, { Rational[53, 2], Rational[-23, 2]}}, {{17.5, -9.5}, {18.5, -9.5}, { 28.5, -11.5}, {26.5, -11.5}}]]}}}}]], "Output", TaggingRules->{}, CellChangeTimes->{3.791607585210985*^9, 3.7933708177178926`*^9}, CellLabel->"Out[63]=", CellID->141982855] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell["Stephen Wolfram and Jonathan Gorard", "Text", CellID->260533815] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell["Fundamental physics", "Item", CellID->871734526], Cell["Multiway evolution", "Item", CellID->691879880], Cell["Abstract rewriting", "Item", CellID->803040677], Cell["Automated theorem-proving", "Item", CellID->274134134] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell["Graphs & Networks", "Item", CellID->197113425], Cell["Higher Mathematical Computation", "Item", CellID->899989995], Cell["Strings & Text", "Item", CellID->297764926], Cell["Symbolic & Numeric Computation", "Item", CellID->747815033], Cell["Wolfram Physics Project", "Item", CellID->254453] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell["SubstitutionSystem", "Item", CellID->12751187], Cell["CellularAutomaton", "Item", CellID->835189925], Cell["FindEquationalProof", "Item", CellID->591981159] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell["MultiwaySystem", "Item", CellID->770824232], Cell["BranchPairs", "Item", CellID->365510400], Cell["BranchPairResolutions", "Item", CellID->393954331], Cell["CanonicalBranchPairs", "Item", CellID->399961040], Cell["CausalInvariantQ", "Item", CellID->371070148], Cell["TotalCausalInvariantQ", "Item", CellID->593777050], Cell["KnuthBendixCompletion", "Item", CellID->184754487], Cell["CanonicalKnuthBendixCompletion", "Item", CellID->222617539], Cell["WolframModel", "Item", CellID->13812411] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[TextData[{ "Stephen Wolfram (2002), ", StyleBox["\[OpenCurlyDoubleQuote]A New Kind of Science\ \[CloseCurlyDoubleQuote]", FontSlant->"Italic"] }], "Text", CellID->204387779], Cell[TextData[{ "Stephen Wolfram (2020), ", StyleBox["\[OpenCurlyDoubleQuote]A Class of Models with Potential to \ Represent Fundamental Physics\[CloseCurlyDoubleQuote]", FontSlant->"Italic"] }], "Text", CellID->366317704], Cell[TextData[{ "Jonathan Gorard (2020), ", StyleBox["\[OpenCurlyDoubleQuote]Some Relativistic and Gravitational \ Properties of the Wolfram Model\[CloseCurlyDoubleQuote]", FontSlant->"Italic"] }], "Text", CellID->268125786], Cell[TextData[{ "Jonathan Gorard (2020), ", StyleBox["\[OpenCurlyDoubleQuote]Some Quantum Mechanical Properties of the \ Wolfram Model\[CloseCurlyDoubleQuote]", FontSlant->"Italic"] }], "Text", CellID->539412096] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[TextData[ButtonBox["http://www.wolframphysics.org", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.wolframphysics.org/"], None}, ButtonNote->"http://www.wolframphysics.org/"]], "Item", CellID->702248223], Cell[TextData[ButtonBox["http://wolframscience.com/nks", BaseStyle->"Hyperlink", ButtonData->{ URL["http://wolframscience.com/nks"], None}, ButtonNote->"http://wolframscience.com/nks"]], "Item", CellID->723889498], Cell[TextData[ButtonBox["https://mathworld.wolfram.com/MultiwaySystem.html", BaseStyle->"Hyperlink", ButtonData->{ URL["https://mathworld.wolfram.com/MultiwaySystem.html"], None}, ButtonNote->"https://mathworld.wolfram.com/MultiwaySystem.html"]], "Item", CellID->958925905] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->991784503] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"MultiwayEvolutionPlot | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ ByteArray[CompressedData[" 1:eJwBdgiJ9yFib1JiAQAAAGkIAAA4Qzp4nK1ba3MbtxWtZavjyTiZOpMPnXza tGzrtGleTtL0MU0kUrLZkWhJSzlfDe5ekqiwCxbAimL/WP9eL/ZFErsg7w7j 0Yz52HMOHhcX916A0yP9YV8mC5ml8dnDQoHWXKbTR/r4OuNgpkf6aDjFt0/P GReZgmt8/f4ViwSYYaoNEyL89QCmPOUGcSNpYCLlXV9wSC3Ywz0CiHX44ga0 zFQE4UobSArQuybbuylrJTrS74VgBiDYCum+9DXjXX8O0V3zW/0DVd9D4DTg xe4GnEt1u4iZwcb/pZPwGugI/tEvKHh0N5Z9uVidZsbIVP+VLOlCHdGeX1QK AZF5zVOjX5Ll1iBH6Pc7hJIE/0f7A2X0a6rUQEaZxTH76VhKobeZuuqP5Wwm 4OfQL5gc/U926KcGHsy1/mqP9K3hAl+AriGOxhd+jUwp2zJIFgJN7y0ou+T0 P8nz2op35F965ddfVAwXMsoHTp+Sx9vLQV64+ARPuAFV2tq/Dphrh8tpwx92 tGEh5KoS1t/Ru7+JI7uOAddsIgAbucB1ybu4jgaUvKIQiRO0Co3iC9DfdhBc wxyxb7xiZ//J+D0T+LLSuVJygVOyutZ9qvQOEqchn/obggQZM3bM+iCE1t+T 1R0k2aDPHiKR6dwmc+d1iEE7XGSDPs8waFglEylGLIG9m+HaiW0DHb0/7dBL c2u84OlduRteHtDtJh15wl9BCoqJt0xw3M+lok+4iySvrFdgToSwRjIcaPrK 2oI5Yr/ZJVZC9u1Mm0IFhGzCiHjN4xhSu+zTGT2YcoCOYOAVtLEJxNf6C6pQ CXAEPvMKDGepVBDbcbhiBneIVOu/U8VawI7wV37hfCeqlN5M/o1uexjh+viR rO5hIC/O9WZRrSv9tw7iDtaR/Z1X9sJuxEwM00Vm9KsDvMEmETm4upAsbslH yMFVO96R/9wrf4kfJ0xYd7p+Zq/62g+34slOYiTLYFR/TVasMeRkZCTDOYvl 0nqIbzro1Chydlm9PZUPNxhysQisiWh6dukhcBrw3d4G2AwZLXNiO7MagzZ9 GYM+69qMVhpy+Fi9fZOZAcvdJjl8bEAd0T/vFa2UxiuMIv/RVXcT3Xn23USp 8+zvzpT8McWV1JrbOLBKCveN99raXSjZfyHQYLiL2YgOI8UWEA/TqaT7r3Y8 OQK4UnDPYVmnROQIwAHS+5tNBNdzTN0GfQW597+9uejQ31a8I/+tV/4GZhwF 1ElmZJjNZrgm681SD6iN2MVCjhgqkgr55h6U4uhmyBGDj4G82CuCrSCQvNjb 0OSoYQ1G/7xvV2mRbNS4/Mt6EzS2myU5VXCR5JpLBWwJychp4pXCrNjADq7O ppZ7CJylujGdTc1l6DwiFUGZ4qPvpFeh/Bydm1Fmf5sT07kZTQ7yVofBidQc k89VQaaKehx9q/MQOA342tuAkN3DVgheR84n1CZ4KciBZbFhnUyk6lDl3gCR yyQFpnvdbxtHH9wtmN2PVVLMD31wfRTkakXBEJaFR3K1YgtGDiPwofJQ6wLu QdDDCAdI3j7CuVzi8p/Z8yv69rGJIruMEL0un66Kc6MypBxwJuSM7jL8HGSX ERqWxkzF/L9QxbfnXADdZXgIyOWFYoPfyvYPqf016chFngJadaJoyujgpmzx 0X1YNqly8A7J8QaKHMYgJuFm7fjpYYyLJAfrLrA8OyUH6+14ulfJJjpSfGF+ hiMjh4tcsSyK5Nf6S/rcFgiyBY3Lgx7bw/MDerjB42j/drf2JahZh+KGTzqn IW/JOeRGLsuODw9Vr6nIxbMcFtrYg5z3+cTDZjDi35i3/dYhR967PNb3O/R1 46CtPoLD6Ihcwt1DRB+Q/MzLdmnCFD1S2YKRY7PbdJjOQfH8qGTMZjP0/DcZ 7qP02MxLQc7HCj/YUrYm52M+BvI4vOWwPDAB8FKQN3LLcPbA0Iqhlief1rSA OwmHZiXgVcZjEDyFDsdELWCys/+Jm3m189PDhQ0UubbTO+UmYYtLNkv5lJcX Psierio+tLGQg/ReeSfHFuv0J63Sm4+QQ2Ec3kk2qz5c1+/IobCHgFyZL/Bl 5S+XJlfmG1Dyjtkr74TEecmMnsRu4+h9zO8kxBDX4e2+w8S1vTaw5CSj1zjX pydZtc02OOhjvFUJ7TDGWzh6b8sT541iGPnEtoklZxK9YZpPT7n2OlyWcZGd JSvD6C5ZIekGfMG0Kc9EiiVD3tlqS3Ip6P21yHWBsMsQO0i6MV2yh7yRY1le 5upgTA0sXbY6dVj7YbpsA0tOTXvFTbWqmlP1mJyatuPpxmVjb6mYWlUuroN3 dLF01dqlvVkUQ93dpF2K6aP8Svq6gm0vqR/pxyepXWpPLmyB7YNeWbMaZckE Z+xl/u/Fj4h81p9LHkFRzAr/92g85zpIS9WALRaAMX1gZDCBILIHdhAHUyWT gAUpLEEF9wXzZ4GW+JdAMMWHMpyTIGEryxQspUImHcCDPf+A+PNgIIOVzIIl 13NLbdQqYJmRtkIaMSFWQSTTe+sU01lgthqETzP8tjiWF1Cp/4BdPT4VMrqb PsY+c2300141s8+qV1fMzPUHOJLFZdx8CqfHnvv0j8P8yv+z8vYuDnsGOF5P QiFN/1E+tFbm2WYCEb4fYiSd6UtkYTP7+PPKQIdpbMOv/Lrak/zh907ywWWY aoVPRxDd2esO+Wz+sihBhB8XPy64ZCmSqXfFuyJzCD9qMxwy+leVvdS18fqX CD33q9ZfIRxvCH3aQHizm63xs6MQPs9PgWEEyzqDOD5nQkP9xMc3kMh7OEsW mJ4W+UJVFXcf/cgOaRrfpnOWxqK4Cab1k7HK1s88Lxr3E09juRxzgzNRsvxC f1heJt1o8v8BGs6SpF7eUus= "]]]], "CreationTimestamp" -> 3.847450819668325`16.33774806629682*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.84745081973936`16.337748066304844*^9, "VersionInformation" -> {"ResourceVersion" -> "3.0.0"}, "TemplateVersion" -> "1.5.0", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]])& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]])& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]])& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]])& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Preview\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "In a notebook"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"On the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "On the cloud"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Cloud"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]])& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]])& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[ RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[637, 23, 103, 2, 70, "Title",ExpressionUUID->"fb69b061-b99d-4ab0-8b3a-4d2e67e991b9", CellTags->{"Name", "TemplateCell", "Title"}, CellID->25691181]}, "TemplateCell"->{ Cell[637, 23, 103, 2, 70, "Title",ExpressionUUID->"fb69b061-b99d-4ab0-8b3a-4d2e67e991b9", CellTags->{"Name", "TemplateCell", "Title"}, CellID->25691181], Cell[743, 27, 119, 2, 70, "Text",ExpressionUUID->"3446bbbd-1da1-4bb9-89cc-271da2d6be1d", CellTags->{"Description", "TemplateCell"}, CellID->938912578]}, "Title"->{ Cell[637, 23, 103, 2, 70, "Title",ExpressionUUID->"fb69b061-b99d-4ab0-8b3a-4d2e67e991b9", CellTags->{"Name", "TemplateCell", "Title"}, CellID->25691181]}, "Description"->{ Cell[743, 27, 119, 2, 70, "Text",ExpressionUUID->"3446bbbd-1da1-4bb9-89cc-271da2d6be1d", CellTags->{"Description", "TemplateCell"}, CellID->938912578]}, "Definition"->{ Cell[887, 33, 1104, 27, 70, "Section",ExpressionUUID->"695dd221-0d5f-4494-95b4-df997319879a", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "Function"->{ Cell[887, 33, 1104, 27, 70, "Section",ExpressionUUID->"695dd221-0d5f-4494-95b4-df997319879a", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "TemplateCellGroup"->{ Cell[887, 33, 1104, 27, 70, "Section",ExpressionUUID->"695dd221-0d5f-4494-95b4-df997319879a", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[30038, 782, 1880, 48, 70, "Subsection",ExpressionUUID->"6fbadb9c-8b12-4d39-8558-539a24852893", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[32698, 864, 1329, 30, 70, "Subsection",ExpressionUUID->"e9216a5a-289a-4697-b030-7df7c600ee9b", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[36267, 968, 6926, 150, 70, "Section",ExpressionUUID->"052c55d5-3682-4368-9941-bda581995a29", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[322778, 7030, 918, 24, 70, "Subsection",ExpressionUUID->"1964fdc2-ac8c-4843-a5e9-7e74dae0a9e1", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[323807, 7062, 893, 24, 70, "Subsection",ExpressionUUID->"ce836a42-3689-4818-b027-82b9b28a8eda", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[324973, 7103, 167, 5, 70, "Subsection",ExpressionUUID->"86ba3dbf-462b-40b6-a6bc-2e1977dcaa2a", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[325484, 7128, 870, 24, 70, "Subsection",ExpressionUUID->"653ea81b-7c9d-4ccf-88a0-85bff64b4676", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[326561, 7166, 919, 24, 70, "Subsection",ExpressionUUID->"de830b22-411e-4fb3-ab04-a493fd170e21", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[328033, 7222, 971, 25, 70, "Subsection",ExpressionUUID->"5fc5a3fb-5cbe-467d-88f4-0359eca672f0", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[329909, 7284, 823, 24, 70, "Subsection",ExpressionUUID->"8497d082-35a5-4c32-bae5-ab15fbcffd09", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[331500, 7334, 1762, 43, 70, "Subsection",ExpressionUUID->"5a261159-e0a5-43ce-889c-314601b16d75", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[333573, 7397, 1048, 26, 70, "Section",ExpressionUUID->"95bfb37d-8d97-4f3b-ae47-7e736bf90247", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[335170, 7438, 929, 25, 70, "Section",ExpressionUUID->"e2030dfb-3c37-47d2-985f-2c411a313036", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]}, "TabNext"->{ Cell[2563, 80, 9382, 229, 70, "Input",ExpressionUUID->"c211cc5f-b17f-460f-914d-ef5890494d59", CellTags->"TabNext", CellID->170780247], Cell[34030, 896, 535, 16, 70, "Notes",ExpressionUUID->"12c48a74-1c93-4d24-94e3-e71af4f9b50b", CellTags->"TabNext", CellID->967837466], Cell[35964, 955, 254, 7, 70, "Notes",ExpressionUUID->"e5ed4822-cae9-48a0-9901-4350073af2c6", CellTags->"TabNext", CellID->512970908], Cell[334624, 7425, 509, 8, 70, "Text",ExpressionUUID->"23d09eb5-7dd2-4a82-b330-8d11041d113a", CellTags->"TabNext", CellID->991784503], Cell[336102, 7465, 495, 8, 70, "Text",ExpressionUUID->"186d7566-836a-4762-9188-a213d36b0068", CellTags->"TabNext", CellID->932041030]}, "Documentation"->{ Cell[29876, 774, 137, 4, 70, "Section",ExpressionUUID->"4697b3c8-c5c2-49fc-b130-841796138866", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535]}, "TemplateSection"->{ Cell[29876, 774, 137, 4, 70, "Section",ExpressionUUID->"4697b3c8-c5c2-49fc-b130-841796138866", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[322579, 7022, 174, 4, 70, "Section",ExpressionUUID->"ed9a5656-472c-4675-b773-d888dc21a4c6", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Usage"->{ Cell[30038, 782, 1880, 48, 70, "Subsection",ExpressionUUID->"6fbadb9c-8b12-4d39-8558-539a24852893", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898]}, "Details & Options"->{ Cell[32698, 864, 1329, 30, 70, "Subsection",ExpressionUUID->"e9216a5a-289a-4697-b030-7df7c600ee9b", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Notes"->{ Cell[32698, 864, 1329, 30, 70, "Subsection",ExpressionUUID->"e9216a5a-289a-4697-b030-7df7c600ee9b", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Examples"->{ Cell[36267, 968, 6926, 150, 70, "Section",ExpressionUUID->"052c55d5-3682-4368-9941-bda581995a29", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657]}, "Source & Additional Information"->{ Cell[322579, 7022, 174, 4, 70, "Section",ExpressionUUID->"ed9a5656-472c-4675-b773-d888dc21a4c6", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Contributed By"->{ Cell[322778, 7030, 918, 24, 70, "Subsection",ExpressionUUID->"1964fdc2-ac8c-4843-a5e9-7e74dae0a9e1", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "ContributorInformation"->{ Cell[322778, 7030, 918, 24, 70, "Subsection",ExpressionUUID->"1964fdc2-ac8c-4843-a5e9-7e74dae0a9e1", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "Keywords"->{ Cell[323807, 7062, 893, 24, 70, "Subsection",ExpressionUUID->"ce836a42-3689-4818-b027-82b9b28a8eda", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136]}, "Categories"->{ Cell[324973, 7103, 167, 5, 70, "Subsection",ExpressionUUID->"86ba3dbf-462b-40b6-a6bc-2e1977dcaa2a", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420]}, "Related Symbols"->{ Cell[325484, 7128, 870, 24, 70, "Subsection",ExpressionUUID->"653ea81b-7c9d-4ccf-88a0-85bff64b4676", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728]}, "Related Resource Objects"->{ Cell[326561, 7166, 919, 24, 70, "Subsection",ExpressionUUID->"de830b22-411e-4fb3-ab04-a493fd170e21", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769]}, "Source/Reference Citation"->{ Cell[328033, 7222, 971, 25, 70, "Subsection",ExpressionUUID->"5fc5a3fb-5cbe-467d-88f4-0359eca672f0", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429]}, "Links"->{ Cell[329909, 7284, 823, 24, 70, "Subsection",ExpressionUUID->"8497d082-35a5-4c32-bae5-ab15fbcffd09", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842]}, "Tests"->{ Cell[331500, 7334, 1762, 43, 70, "Subsection",ExpressionUUID->"5a261159-e0a5-43ce-889c-314601b16d75", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "VerificationTests"->{ Cell[331500, 7334, 1762, 43, 70, "Subsection",ExpressionUUID->"5a261159-e0a5-43ce-889c-314601b16d75", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "Author Notes"->{ Cell[333573, 7397, 1048, 26, 70, "Section",ExpressionUUID->"95bfb37d-8d97-4f3b-ae47-7e736bf90247", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325]}, "Submission Notes"->{ Cell[335170, 7438, 929, 25, 70, "Section",ExpressionUUID->"e2030dfb-3c37-47d2-985f-2c411a313036", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 448493, 9612}, {"TemplateCell", 448675, 9616}, {"Title", 449010, 9623}, {"Description", 449191, 9627}, {"Definition", 449369, 9631}, {"Function", 449566, 9635}, {"TemplateCellGroup", 449772, 9639}, {"TabNext", 452335, 9682}, {"Documentation", 453070, 9698}, {"TemplateSection", 453263, 9702}, {"Usage", 453637, 9709}, {"Details & Options", 453832, 9713}, {"Notes", 454036, 9717}, {"Examples", 454243, 9721}, {"Source & Additional Information", 454453, 9725}, {"Contributed By", 454666, 9729}, {"ContributorInformation", 454902, 9733}, {"Keywords", 455124, 9737}, {"Categories", 455316, 9741}, {"Related Symbols", 455514, 9745}, {"Related Resource Objects", 455727, 9749}, {"Source/Reference Citation", 455949, 9753}, {"Links", 456153, 9757}, {"Tests", 456337, 9761}, {"VerificationTests", 456555, 9765}, {"Author Notes", 456768, 9769}, {"Submission Notes", 456968, 9773} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[637, 23, 103, 2, 70, "Title",ExpressionUUID->"fb69b061-b99d-4ab0-8b3a-4d2e67e991b9", CellTags->{"Name", "TemplateCell", "Title"}, CellID->25691181], Cell[743, 27, 119, 2, 70, "Text",ExpressionUUID->"3446bbbd-1da1-4bb9-89cc-271da2d6be1d", CellTags->{"Description", "TemplateCell"}, CellID->938912578], Cell[CellGroupData[{ Cell[887, 33, 1104, 27, 70, "Section",ExpressionUUID->"695dd221-0d5f-4494-95b4-df997319879a", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[1994, 62, 566, 16, 70, "Input",ExpressionUUID->"4ac2a8a3-29db-44dc-a301-57eb910417f2", CellID->106803001], Cell[2563, 80, 9382, 229, 70, "Input",ExpressionUUID->"c211cc5f-b17f-460f-914d-ef5890494d59", CellTags->"TabNext", CellID->170780247], Cell[11948, 311, 2093, 57, 70, "Input",ExpressionUUID->"7fc3c813-383d-4533-a940-95a31ef47b91", CellID->256195598], Cell[14044, 370, 951, 29, 70, "Input",ExpressionUUID->"358b8cfd-19d8-4d8a-b153-423428d50e28", CellID->660045281], Cell[14998, 401, 14841, 368, 70, "Input",ExpressionUUID->"6ee898e3-9dd3-40ba-a8fd-86cc3d8b643b", CellID->140810628] }, Open ]], Cell[CellGroupData[{ Cell[29876, 774, 137, 4, 70, "Section",ExpressionUUID->"4697b3c8-c5c2-49fc-b130-841796138866", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[30038, 782, 1880, 48, 70, "Subsection",ExpressionUUID->"6fbadb9c-8b12-4d39-8558-539a24852893", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[31943, 834, 232, 7, 70, "UsageInputs",ExpressionUUID->"ed455af0-caa2-4d8a-9621-488da6d4e91d", CellID->685881362], Cell[32178, 843, 471, 15, 70, "UsageDescription",ExpressionUUID->"83dad732-d0ca-4270-9aa0-28d5a50ec8e7", CellID->48003996] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32698, 864, 1329, 30, 70, "Subsection",ExpressionUUID->"e9216a5a-289a-4697-b030-7df7c600ee9b", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[34030, 896, 535, 16, 70, "Notes",ExpressionUUID->"12c48a74-1c93-4d24-94e3-e71af4f9b50b", CellTags->"TabNext", CellID->967837466], Cell[34568, 914, 169, 6, 70, "Notes",ExpressionUUID->"e0bec764-3538-409e-a54d-cab2eb65f803", CellID->211808304], Cell[34740, 922, 495, 9, 70, "TableNotes",ExpressionUUID->"0e5b93c3-1ffd-4580-8dd6-ea5e3e2300d4", CellID->672843756], Cell[35238, 933, 189, 6, 70, "Notes",ExpressionUUID->"5ff7e23e-a498-402a-81ca-4f8bd3fa9b35", CellID->129435719], Cell[35430, 941, 531, 12, 70, "TableNotes",ExpressionUUID->"9ae78d32-67af-4455-ba81-d3f37e0e5495", CellID->322730015], Cell[35964, 955, 254, 7, 70, "Notes",ExpressionUUID->"e5ed4822-cae9-48a0-9901-4350073af2c6", CellTags->"TabNext", CellID->512970908] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36267, 968, 6926, 150, 70, "Section",ExpressionUUID->"052c55d5-3682-4368-9941-bda581995a29", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell[43218, 1122, 75, 2, 70, "Subsection",ExpressionUUID->"5a9e5241-b053-4d6f-9c99-598ef64e1c69", CellID->904125756], Cell[43296, 1126, 153, 3, 70, "Text",ExpressionUUID->"522a0428-6e52-4a12-8ef6-1a53cd2df5a4", CellID->748851546], Cell[CellGroupData[{ Cell[43474, 1133, 705, 15, 70, "Input",ExpressionUUID->"6b9b8be5-c69a-4a90-9187-fa64f0784a01", CellID->709914007], Cell[44182, 1150, 29054, 597, 70, "Output",ExpressionUUID->"397f1bf5-d995-41e9-ad64-2b4919dc0dea", CellID->147173131] }, Open ]], Cell[CellGroupData[{ Cell[73273, 1752, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"a2730065-a297-4b43-aaaa-e7684915bccf", CellID->14107562], Cell[73419, 1758, 241, 7, 70, "Text",ExpressionUUID->"0cc7bbc2-6954-4898-98a8-d3bd21c4ce6d", CellID->281843730], Cell[CellGroupData[{ Cell[73685, 1769, 396, 11, 70, "Input",ExpressionUUID->"72bb7bab-4e49-4e40-8928-9780f97a11a3", CellID->497482770], Cell[74084, 1782, 15720, 315, 70, "Output",ExpressionUUID->"748de234-8d94-4a94-b736-4289ed2c39ac", CellID->790280491] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[89853, 2103, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"9598f31e-d774-4e43-b335-96ede3ded542", CellID->14107563], Cell[89999, 2109, 240, 7, 70, "Text",ExpressionUUID->"93c962bc-f8ff-4264-9be8-6bec0b598203", CellID->118798781], Cell[CellGroupData[{ Cell[90264, 2120, 545, 15, 70, "Input",ExpressionUUID->"4041cf32-6a00-44c5-a109-c5df498122d1", CellID->510820909], Cell[90812, 2137, 16959, 341, 70, "Output",ExpressionUUID->"66e01b13-09cc-49e3-96b5-d84d3cffdd1c", CellID->671799724] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[107832, 2485, 66, 2, 70, "Subsection",ExpressionUUID->"49261e58-5d57-4f39-ab68-a8d7cbb545cd", CellID->204653245], Cell[107901, 2489, 302, 8, 70, "Text",ExpressionUUID->"cf5cc808-9f2e-48e9-a300-c1bbb3a94498", CellID->49079794], Cell[CellGroupData[{ Cell[108228, 2501, 297, 8, 70, "Input",ExpressionUUID->"949c49a3-1218-4ec2-bb65-44e8c27350e5", CellID->893638437], Cell[108528, 2511, 10393, 212, 70, "Output",ExpressionUUID->"9acd3282-9c78-4dda-9b27-259ada12de24", CellID->823790090] }, Open ]], Cell[CellGroupData[{ Cell[118958, 2728, 458, 12, 70, "Input",ExpressionUUID->"bfda4843-dd15-4a79-ac9d-1df0e82f7000", CellID->280790881], Cell[119419, 2742, 32443, 659, 70, "Output",ExpressionUUID->"75d9db73-58ea-4ed9-8d06-1c96213c1df8", CellID->48095403] }, Open ]], Cell[151877, 3404, 203, 4, 70, "Text",ExpressionUUID->"273b1370-b7f0-4a72-beeb-1da47c412ff0", CellID->99514470], Cell[CellGroupData[{ Cell[152105, 3412, 516, 13, 70, "Input",ExpressionUUID->"c29099d2-aa74-4b71-b6cf-d477d267e5f5", CellID->407050916], Cell[152624, 3427, 44477, 902, 70, "Output",ExpressionUUID->"b33a062a-c1d8-49d6-be1e-9cdae5c2ccd1", CellID->805992255] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[197150, 4335, 68, 2, 70, "Subsection",ExpressionUUID->"3fc08c36-13c5-47fb-a6a3-75c63443fd3e", CellID->890561554], Cell[197221, 4339, 215, 4, 70, "Text",ExpressionUUID->"1f3ed8cc-e3c0-4333-978b-ea6886598a2f", CellID->82191154], Cell[CellGroupData[{ Cell[197461, 4347, 399, 11, 70, "Input",ExpressionUUID->"e0a79e6a-c251-4f5c-bed9-6c8e10c466ee", CellID->470448265], Cell[197863, 4360, 28526, 589, 70, "Output",ExpressionUUID->"7df319e9-7bbd-45f3-ad6d-f3f8c7fd62b0", CellID->778754704] }, Open ]], Cell[226404, 4952, 267, 7, 70, "Text",ExpressionUUID->"0134233c-74f7-4d61-bd9b-96998f626c36", CellID->221162010], Cell[CellGroupData[{ Cell[226696, 4963, 501, 14, 70, "Input",ExpressionUUID->"7ea515e0-4e05-40d0-a60e-2fa0c181c38f", CellID->685016055], Cell[227200, 4979, 28521, 589, 70, "Output",ExpressionUUID->"ab195b9f-54ff-496a-8760-214c03fd6383", CellID->67744702] }, Open ]], Cell[255736, 5571, 258, 6, 70, "Text",ExpressionUUID->"3a680267-a965-4236-b0d9-59c11e302ac5", CellID->403722936], Cell[CellGroupData[{ Cell[256019, 5581, 501, 14, 70, "Input",ExpressionUUID->"ea2c2cdb-48ac-4ffd-b193-643ca77a8ad9", CellID->651014535], Cell[256523, 5597, 30996, 639, 70, "Output",ExpressionUUID->"4fb41644-bf3e-468b-9a97-165689b1801a", CellID->402150207] }, Open ]], Cell[CellGroupData[{ Cell[287556, 6241, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"6fe5512b-1563-4fd4-87a4-8618d884e066", CellID->14107564], Cell[287702, 6247, 213, 4, 70, "Text",ExpressionUUID->"330b2fd9-a300-4254-8e88-614adf5a7ec0", CellID->261487942], Cell[CellGroupData[{ Cell[287940, 6255, 631, 16, 70, "Input",ExpressionUUID->"7d8953bf-3d88-43eb-8bf1-4a57199d2c47", CellID->572115630], Cell[288574, 6273, 33932, 741, 70, "Output",ExpressionUUID->"9c76ae86-b653-4981-84c6-03913a24fb44", CellID->141982855] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[322579, 7022, 174, 4, 70, "Section",ExpressionUUID->"ed9a5656-472c-4675-b773-d888dc21a4c6", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[322778, 7030, 918, 24, 70, "Subsection",ExpressionUUID->"1964fdc2-ac8c-4843-a5e9-7e74dae0a9e1", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[323699, 7056, 71, 1, 70, "Text",ExpressionUUID->"3346133b-b279-4dc9-9c60-cc971c08a606", CellID->260533815] }, Open ]], Cell[CellGroupData[{ Cell[323807, 7062, 893, 24, 70, "Subsection",ExpressionUUID->"ce836a42-3689-4818-b027-82b9b28a8eda", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[324703, 7088, 55, 1, 70, "Item",ExpressionUUID->"b2e48280-0d50-4407-add6-2b31bf81198f", CellID->871734526], Cell[324761, 7091, 54, 1, 70, "Item",ExpressionUUID->"2e84f928-cf08-4435-94a4-4b56fcdb47bf", CellID->691879880], Cell[324818, 7094, 54, 1, 70, "Item",ExpressionUUID->"b7f7209e-f6f4-433c-8265-6b199c4e6b8a", CellID->803040677], Cell[324875, 7097, 61, 1, 70, "Item",ExpressionUUID->"2f26a528-e7d4-445c-bbac-cca2f3b84c6c", CellID->274134134] }, Open ]], Cell[CellGroupData[{ Cell[324973, 7103, 167, 5, 70, "Subsection",ExpressionUUID->"86ba3dbf-462b-40b6-a6bc-2e1977dcaa2a", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[325143, 7110, 53, 1, 70, "Item",ExpressionUUID->"48f45b4d-6d50-4395-b709-52f414bedf95", CellID->197113425], Cell[325199, 7113, 67, 1, 70, "Item",ExpressionUUID->"fb8a1b2c-c8a3-414d-9d64-a54132ebc42d", CellID->899989995], Cell[325269, 7116, 50, 1, 70, "Item",ExpressionUUID->"a0d7f6b0-e813-4378-a9f7-103220db44a4", CellID->297764926], Cell[325322, 7119, 66, 1, 70, "Item",ExpressionUUID->"d5634ce2-505d-46dd-af45-ad79fca0d358", CellID->747815033], Cell[325391, 7122, 56, 1, 70, "Item",ExpressionUUID->"d8345471-eb4b-44cc-ba1d-50644d59b703", CellID->254453] }, Open ]], Cell[CellGroupData[{ Cell[325484, 7128, 870, 24, 70, "Subsection",ExpressionUUID->"653ea81b-7c9d-4ccf-88a0-85bff64b4676", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[326357, 7154, 53, 1, 70, "Item",ExpressionUUID->"0b215fa7-21da-4e8f-85df-8b54117d4336", CellID->12751187], Cell[326413, 7157, 53, 1, 70, "Item",ExpressionUUID->"c68adbbe-dcfc-4515-8f16-1b9e365b016e", CellID->835189925], Cell[326469, 7160, 55, 1, 70, "Item",ExpressionUUID->"9ee7c97f-437c-441d-98ff-26a46f3c0ab6", CellID->591981159] }, Open ]], Cell[CellGroupData[{ Cell[326561, 7166, 919, 24, 70, "Subsection",ExpressionUUID->"de830b22-411e-4fb3-ab04-a493fd170e21", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[327483, 7192, 50, 1, 70, "Item",ExpressionUUID->"1891ce15-ad85-41e3-8deb-de6d6c3e4bf0", CellID->770824232], Cell[327536, 7195, 47, 1, 70, "Item",ExpressionUUID->"460f5c56-d3c0-483d-9071-41e320452a1e", CellID->365510400], Cell[327586, 7198, 57, 1, 70, "Item",ExpressionUUID->"a87d91e6-c9e1-4b80-951e-c5b50d5a1dae", CellID->393954331], Cell[327646, 7201, 56, 1, 70, "Item",ExpressionUUID->"f0beb871-7550-45f2-9548-1964bdb069d4", CellID->399961040], Cell[327705, 7204, 52, 1, 70, "Item",ExpressionUUID->"63019b0f-7c9d-4141-b985-f51079c159f6", CellID->371070148], Cell[327760, 7207, 57, 1, 70, "Item",ExpressionUUID->"a1fbd410-b15e-4906-ab54-453c2ba625cb", CellID->593777050], Cell[327820, 7210, 57, 1, 70, "Item",ExpressionUUID->"2b8bf1c9-5c47-4b85-b855-84e2fbe7f87a", CellID->184754487], Cell[327880, 7213, 66, 1, 70, "Item",ExpressionUUID->"0d14861c-ecc2-45ae-9d65-f042beb71601", CellID->222617539], Cell[327949, 7216, 47, 1, 70, "Item",ExpressionUUID->"84ef5ea0-5fd6-43a7-839f-9cfe51b65088", CellID->13812411] }, Open ]], Cell[CellGroupData[{ Cell[328033, 7222, 971, 25, 70, "Subsection",ExpressionUUID->"5fc5a3fb-5cbe-467d-88f4-0359eca672f0", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[329007, 7249, 183, 6, 70, "Text",ExpressionUUID->"a30b7ba4-4a60-4cb7-a54d-e8ffbfd0410b", CellID->204387779], Cell[329193, 7257, 227, 6, 70, "Text",ExpressionUUID->"5174f4e9-3f79-4762-b74a-7d6a34dbb08f", CellID->366317704], Cell[329423, 7265, 229, 6, 70, "Text",ExpressionUUID->"b08bdbb6-91e9-4772-a666-67e4a9b3380f", CellID->268125786], Cell[329655, 7273, 217, 6, 70, "Text",ExpressionUUID->"c4e34f48-b0c8-484f-bff4-090c41255957", CellID->539412096] }, Open ]], Cell[CellGroupData[{ Cell[329909, 7284, 823, 24, 70, "Subsection",ExpressionUUID->"8497d082-35a5-4c32-bae5-ab15fbcffd09", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[330735, 7310, 222, 5, 70, "Item",ExpressionUUID->"917c766f-dbc1-4eb6-b9f4-7b7bf2a55f7d", CellID->702248223], Cell[330960, 7317, 220, 5, 70, "Item",ExpressionUUID->"44c8c144-82d9-49e0-830d-f24eebcee84d", CellID->723889498], Cell[331183, 7324, 280, 5, 70, "Item",ExpressionUUID->"c59e76a0-f391-45f0-b895-6a9d086f2de1", CellID->958925905] }, Open ]], Cell[CellGroupData[{ Cell[331500, 7334, 1762, 43, 70, "Subsection",ExpressionUUID->"5a261159-e0a5-43ce-889c-314601b16d75", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[333287, 7381, 129, 4, 70, "Input",ExpressionUUID->"5b7709fc-bfcf-4878-808c-1a9356fd886e", CellID->667877521], Cell[333419, 7387, 93, 3, 70, "Output",ExpressionUUID->"5bb9c6b8-ab1a-4874-9830-95f4e25a545a", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[333573, 7397, 1048, 26, 70, "Section",ExpressionUUID->"95bfb37d-8d97-4f3b-ae47-7e736bf90247", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[334624, 7425, 509, 8, 70, "Text",ExpressionUUID->"23d09eb5-7dd2-4a82-b330-8d11041d113a", CellTags->"TabNext", CellID->991784503] }, Open ]], Cell[CellGroupData[{ Cell[335170, 7438, 929, 25, 70, "Section",ExpressionUUID->"e2030dfb-3c37-47d2-985f-2c411a313036", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell[336102, 7465, 495, 8, 70, "Text",ExpressionUUID->"186d7566-836a-4762-9188-a213d36b0068", CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)