(* 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[ 359699, 8755] NotebookOptionsPosition[ 213149, 5885] NotebookOutlinePosition[ 334772, 8222] CellTagsIndexPosition[ 333820, 8191] WindowTitle->BranchPairs | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["BranchPairs", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->627248365], Cell["Compute branch pairs for a given multiway system", "Text", CellTags->{"Description", "TemplateCell"}, CellID->345142523], 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", "[", "BranchPairs", "]"}], "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{"\"\\"", "\[Rule]", "Automatic"}], ",", RowBox[{"\"\\"", "\[Rule]", "Automatic"}], ",", RowBox[{"\"\\"", "\[Rule]", "Infinity"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}]}], "}"}], ",", RowBox[{"Options", "[", "Graph", "]"}]}], "]"}]}], ";"}]], "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.790421010975554*^9, 3.7904211066809893`*^9}, { 3.790537897575482*^9, 3.790537901147571*^9}, {3.7905857289231033`*^9, 3.7905857381005774`*^9}, {3.790966696613508*^9, 3.790966705771534*^9}, { 3.790969667842084*^9, 3.790969671977068*^9}, {3.791064324449008*^9, 3.791064329430764*^9}, {3.793386475864214*^9, 3.7933864808554173`*^9}, { 3.794261517546225*^9, 3.7942615201433907`*^9}, 3.794311248084581*^9}, CellTags->"TabNext", CellLabel->"", CellID->57050588], Cell[BoxData[ RowBox[{ RowBox[{"BranchPairs", "[", RowBox[{"rules_", ",", "initialConditions_", ",", "stepCount_Integer", ",", RowBox[{"options", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ "rules", ",", "initialConditions", ",", "stepCount", ",", "\"\\"", ",", "options"}], "]"}]}]], "Input", CellChangeTimes->{{3.79364164678404*^9, 3.793641679136176*^9}, { 3.793641709949771*^9, 3.793641723417614*^9}, {3.793642348152092*^9, 3.7936423727281857`*^9}, {3.794159041150218*^9, 3.794159042887452*^9}, { 3.794159087694479*^9, 3.794159092920081*^9}, {3.7942613594961557`*^9, 3.794261359661315*^9}, {3.794311249395054*^9, 3.794311264766728*^9}, { 3.7943115140453873`*^9, 3.794311516700067*^9}}, CellLabel->"", CellID->897965044] }, 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[{"BranchPairs", "[", RowBox[{ StyleBox["rules", "TI"], ",", StyleBox["init", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->556542600], Cell[TextData[{ "generates a list of branch pairs for the multiway system with the specified \ ", Cell[BoxData[ StyleBox["rules", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " after ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " steps, starting with initial conditions ", Cell[BoxData[ StyleBox["init", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->276687399] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{ StyleBox["rules", "TI"], "\[Rule]", StyleBox["sel", "TI"]}], ",", StyleBox["init", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->80369402], Cell[TextData[{ "uses the function ", Cell[BoxData[ StyleBox["sel", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to select which of the events obtained at each step to include in the \ evolution." }], "UsageDescription", CellID->306623013] }, 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["Rules can be specified in the following ways:", "Notes", 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.794300045492098*^9, 3.7943000496913548`*^9}}, CellTags->"TabNext", CellID->992123199], Cell[BoxData[GridBox[{ {Cell[TextData[{ "{\"", Cell[BoxData[ SubscriptBox[ StyleBox["lhs", "TI"], "1"]], "InlineFormula", FontFamily->"Source Sans Pro"], "\"->\"", Cell[BoxData[ SubscriptBox[ StyleBox["rhs", "TI"], "1"]], "InlineFormula", FontFamily->"Source Sans Pro"], "\",\[Ellipsis]}" }], "TableText"], Cell["string substitution system", "TableText"]}, {Cell[TextData[{ "{{", Cell[BoxData[ SubscriptBox[ StyleBox["l", "TI"], "11"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",", Cell[BoxData[ SubscriptBox[ StyleBox["l", "TI"], "12"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",\[Ellipsis]}->{", Cell[BoxData[ SubscriptBox[ StyleBox["r", "TI"], "11"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",", Cell[BoxData[ SubscriptBox[ StyleBox["r", "TI"], "12"]], "InlineFormula", FontFamily->"Source Sans Pro"], ",..},\[Ellipsis]}" }], "TableText"], Cell["list substitution system", "TableText"]}, {Cell[TextData[{ "CellularAutomaton[", Cell[BoxData[ StyleBox["rules", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "]" }], "TableText"], Cell["cellular automaton system", "TableText"]}, {Cell[TextData[Cell[BoxData[ RowBox[{"\"\<\!\(\*StyleBox[\"type\", \"TI\"]\)\>\"", "->", StyleBox["rules", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "system of the specified type", "TableText"]} }]], "TableNotes", TaggingRules->{}, CellChangeTimes->{{3.791227163049512*^9, 3.791227273769422*^9}, { 3.79422361850403*^9, 3.794223738146288*^9}, {3.7943000846144743`*^9, 3.794300117930559*^9}, 3.794654194526402*^9, 3.795872208922117*^9}, CellID->102655877], Cell["Supported rule types include:", "Notes", 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.791227122572791*^9, 3.791227127330522*^9}, { 3.791227284624824*^9, 3.79122728858365*^9}}, CellID->959544555], Cell[BoxData[GridBox[{ {Cell["\"StringSubstitutionSystem\"", "TableText"], Cell[ "rules given as replacements on strings", "TableText"]}, {Cell["\"ListSubstitutionSystem\"", "TableText"], Cell[ "rules given as replacements on lists", "TableText"]}, {Cell["\"CellularAutomaton\"", "TableText"], Cell[TextData[{ "rules given as a list of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CellularAutomaton", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/CellularAutomaton", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " rule specifications" }], "TableText"]}, {Cell["\"WolframModel\"", "TableText"], Cell[ "rules given as replacements on hypergraphs", "TableText"]} }]], "TableNotes", CellChangeTimes->{{3.791227301387706*^9, 3.791227381564871*^9}, { 3.7942237428242598`*^9, 3.7942237428243437`*^9}}, CellID->309479269], Cell["\<\ When rules are specified by an explicit association, the following elements \ can be included:\ \>", "Notes", 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.791227122572791*^9, 3.791227127330522*^9}, { 3.791227284624824*^9, 3.79122728858365*^9}, {3.791227391396575*^9, 3.791227401869952*^9}}, CellID->155689613], Cell[BoxData[GridBox[{ {Cell["\"StateEvolutionFunction\"", "TableText"], Cell[ "gives the list of successors to a given state", "TableText"]}, {Cell["\"StateEquivalenceFunction\"", "TableText"], Cell["\<\ determines whether two states should be considered equivalent\ \>", "TableText"]}, {Cell["\"StateEventFunction\"", "TableText"], Cell[ "gives the list of events applicable to a given state", "TableText"]}, {Cell["\"EventApplicationFunction\"", "TableText"], Cell[ "applies an event to a given state", "TableText"]}, {Cell["\"EventDecompositionFunction\"", "TableText"], Cell["\<\ decomposes an event into creator and destroyer events for individual elements\ \ \>", "TableText"]}, {Cell["\"SystemType\"", "TableText"], Cell[ "gives a system type name", "TableText"]}, {Cell["\"EventSelectionFunction\"", "TableText"], Cell[ "determines which events should be applied to a given state", "TableText"]} }]], "TableNotes", CellChangeTimes->{{3.791227407395514*^9, 3.791227594253561*^9}, { 3.795872673930469*^9, 3.795872675502335*^9}}, CellID->625844737], Cell[TextData[{ "The event selection function ", Cell[BoxData[ StyleBox["sel", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in ", Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{ StyleBox["rules", "TI"], "->", StyleBox["sel", "TI"]}], ",", "\[Ellipsis]"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " can have the following special forms:" }], "Notes", TaggingRules->{}, 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.791227122572791*^9, 3.791227127330522*^9}, { 3.791227284624824*^9, 3.79122728858365*^9}, {3.791227391396575*^9, 3.791227401869952*^9}, {3.7912276059976053`*^9, 3.791227619946475*^9}, { 3.7942237499457893`*^9, 3.7942237531095057`*^9}, {3.794309566776922*^9, 3.7943095684101133`*^9}, {3.794311374798685*^9, 3.794311375961993*^9}, 3.794654199057859*^9}, CellID->410797644], Cell[BoxData[GridBox[{ {Cell["\"Sequential\"", "TableText"], Cell["\<\ applies the first possible replacement (sequential substitution system)\ \>", "TableText"]}, {Cell["\"Random\"", "TableText"], Cell[ "applies a random replacement", "TableText"]}, {Cell[TextData[Cell[BoxData[ RowBox[{"{", RowBox[{"\"\\"", ",", StyleBox["n", "TI"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "applies n randomly chosen replacements", "TableText"]}, {Cell["\"MaxScan\"", "TableText"], Cell["\<\ applies the maximal set of spatially-separated replacements (strings only)\ \>", "TableText"]} }]], "TableNotes", CellChangeTimes->{{3.791227628171937*^9, 3.791227706549035*^9}, { 3.794223725615069*^9, 3.794223725615099*^9}}, CellID->73431620], Cell[TextData[{ "The initial condition for ", Cell[BoxData["BranchPairs"], "InlineFormula", FontFamily->"Source Sans Pro"], " is a list of states appropriate for the type of system used." }], "Notes", 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.791227122572791*^9, 3.791227127330522*^9}, { 3.791227284624824*^9, 3.79122728858365*^9}, {3.791227391396575*^9, 3.791227401869952*^9}, {3.7912276059976053`*^9, 3.791227619946475*^9}, { 3.791227712983123*^9, 3.791227806624263*^9}, 3.7942237592874327`*^9, { 3.794309580102566*^9, 3.794309581421262*^9}, {3.7943113790953493`*^9, 3.794311379913187*^9}}, CellID->445954247], Cell[TextData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ StyleBox["rules", "TI"], ",", "\"\<\!\(\*StyleBox[\"string\", \"TI\"]\)\>\"", ",", "\[Ellipsis]"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is interpreted as ", Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ StyleBox["rules", "TI"], ",", RowBox[{"{", "\"\<\!\(\*StyleBox[\"string\", \"TI\"]\)\>\"", "}"}], ",", "\[Ellipsis]"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", TaggingRules->{}, 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.791227122572791*^9, 3.791227127330522*^9}, { 3.791227284624824*^9, 3.79122728858365*^9}, {3.791227391396575*^9, 3.791227401869952*^9}, {3.7912276059976053`*^9, 3.791227619946475*^9}, { 3.791227712983123*^9, 3.7912278223807077`*^9}, {3.794223769123752*^9, 3.794223774617002*^9}, {3.794309582527952*^9, 3.794309588468441*^9}, { 3.7943113809334507`*^9, 3.794311384028295*^9}, 3.794654201168253*^9, 3.795464334015708*^9}, CellID->79908213], Cell[TextData[{ Cell[BoxData["BranchPairs"], "InlineFormula", FontFamily->"Source Sans Pro"], " accepts both individual rules and lists of rules, and likewise for initial \ conditions." }], "Notes", TaggingRules->{}, 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.791227122572791*^9, 3.791227127330522*^9}, { 3.791227284624824*^9, 3.79122728858365*^9}, {3.791227391396575*^9, 3.791227401869952*^9}, {3.7912276059976053`*^9, 3.791227619946475*^9}, { 3.791227712983123*^9, 3.7912278223807077`*^9}, {3.794223769123752*^9, 3.794223774617002*^9}, {3.794309582527952*^9, 3.794309588468441*^9}, { 3.7943113809334507`*^9, 3.794311384028295*^9}, 3.794654201168253*^9, { 3.795464334015708*^9, 3.795464375707327*^9}}, CellID->877663283], Cell[TextData[{ "Options for ", Cell[BoxData["BranchPairs"], "InlineFormula", FontFamily->"Source Sans Pro"], " include:" }], "Notes", 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.791227122572791*^9, 3.791227127330522*^9}, { 3.791227284624824*^9, 3.79122728858365*^9}, {3.791227391396575*^9, 3.791227401869952*^9}, {3.7912276059976053`*^9, 3.791227619946475*^9}, { 3.791227712983123*^9, 3.791227839335001*^9}, {3.791236822775388*^9, 3.791236835130184*^9}, {3.791236892140834*^9, 3.7912368937908278`*^9}, { 3.7912369476121483`*^9, 3.791237006007296*^9}, {3.791237230015004*^9, 3.791237247392709*^9}, {3.791237522747707*^9, 3.791237555316428*^9}, { 3.7912375921773233`*^9, 3.7912376175856123`*^9}, {3.791237648190383*^9, 3.791237672859923*^9}, {3.791238042380837*^9, 3.791238148321903*^9}, 3.794223865128779*^9, {3.794300173815344*^9, 3.794300177504694*^9}, { 3.794311386029922*^9, 3.79431138603001*^9}}, CellID->792573195], Cell[BoxData[GridBox[{ {Cell["\"IncludeStepNumber\"", "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell["\<\ whether to label states and events with their respective step numbers\ \>", "TableText"]}, {Cell["\"IncludeStateID\"", "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "whether to label states and events with unique IDs", "TableText"]}, {Cell["\"GivePredecessors\"", "TableText"], Cell[TextData[Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"]], "TableText"], Cell[ "whether to label branch pairs with their predecessor state", "TableText"]} }]], "TableNotes", CellChangeTimes->{{3.7912391302172832`*^9, 3.7912391638872147`*^9}, { 3.791239449943255*^9, 3.7912395268438263`*^9}, {3.791239856426464*^9, 3.791240167226379*^9}, {3.794223859261695*^9, 3.7942239164230213`*^9}, { 3.7943116081973677`*^9, 3.7943116107953*^9}}, CellID->921999960], Cell["\<\ In the theory of abstract rewrite systems, a critical pair (branch pair) is a \ pair of expressions that can be derived from a common expression by two \ different applications of a rewrite rule (i.e. either the same rule applied \ in two different places, or two different rules).\ \>", "Notes", 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.780854131675132*^9, 3.780854230664423*^9}, { 3.794325104015749*^9, 3.794325105884399*^9}}, CellTags->"TabNext", CellID->301127480], Cell["\<\ More generally, a branch pair indicates where a multiway evolution bifurcates.\ \>", "Notes", 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.780854131675132*^9, 3.780854230664423*^9}, { 3.7808543007566357`*^9, 3.78085435110226*^9}, {3.794325076804247*^9, 3.7943250907956753`*^9}}, CellTags->"TabNext", CellID->340823985] }, 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", CellID->462042388], Cell["\<\ Generate the list of all branch pairs (i.e. critical pairs) for two string \ substitution systems:\ \>", "Text", CellChangeTimes->{{3.79430041849046*^9, 3.794300455964965*^9}, 3.794311447276433*^9, {3.794311557127667*^9, 3.7943115631025333`*^9}}, CellID->773551605], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.794300439907035*^9, 3.794300458552314*^9}, { 3.794300494114243*^9, 3.7943004959541397`*^9}, {3.794311449136731*^9, 3.794311489431321*^9}, {3.794311521599434*^9, 3.7943115222437563`*^9}}, CellLabel->"In[713]:=", CellID->659763335], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"AABA\"\>", ",", "\<\"ABAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABA\"\>", ",", "\<\"B\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAA\"\>", ",", "\<\"B\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.794300458951783*^9, 3.7943004961606703`*^9, {3.7943114548377247`*^9, 3.79431148477277*^9}, {3.794311520021051*^9, 3.794311522453334*^9}}, CellLabel->"Out[713]=", CellID->382487704] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.794302551180578*^9, 3.7943025773672523`*^9}, { 3.794309685240037*^9, 3.7943097010123158`*^9}, {3.79431153871675*^9, 3.794311540907612*^9}}, CellLabel->"In[714]:=", CellID->555310410], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"AABAAA\"\>", ",", "\<\"AABAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAA\"\>", ",", "\<\"ABBAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAB\"\>", ",", "\<\"ABBAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAAA\"\>", ",", "\<\"AABAAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAAA\"\>", ",", "\<\"AABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAAA\"\>", ",", "\<\"ABBAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAB\"\>", ",", "\<\"AABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAB\"\>", ",", "\<\"ABBAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABABA\"\>", ",", "\<\"ABBAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAB\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABABA\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABAA\"\>", ",", "\<\"ABBAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABAA\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABBAAA\"\>", ",", "\<\"ABBAB\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.794302559977048*^9, 3.7943025775190783`*^9}, { 3.794309685563908*^9, 3.794309701611006*^9}, 3.794311541121036*^9}, CellLabel->"Out[714]=", CellID->129673350] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031726], Cell["Show common predecessor states:", "Text", CellChangeTimes->{{3.79430041849046*^9, 3.794300533678185*^9}, { 3.794300593199497*^9, 3.79430059834164*^9}}, CellID->845494834], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "2", ",", RowBox[{"\"\\"", "\[Rule]", "True"}]}], "]"}]], "Input",\ CellChangeTimes->{{3.794300598861384*^9, 3.794300611045294*^9}, { 3.7943115691434526`*^9, 3.794311599478726*^9}}, CellLabel->"In[717]:=", CellID->713729598], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\<\"AAA\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"AABA\"\>", ",", "\<\"ABAA\"\>"}], "}"}]}], ",", RowBox[{"\<\"AAA\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"AABA\"\>", ",", "\<\"B\"\>"}], "}"}]}], ",", RowBox[{"\<\"AAA\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"ABAA\"\>", ",", "\<\"B\"\>"}], "}"}]}]}], "}"}]], "Output", CellChangeTimes->{ 3.794300611253989*^9, {3.79431157725378*^9, 3.794311600151662*^9}}, CellLabel->"Out[717]=", CellID->883706698] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031727], Cell["\<\ Different event selection functions can lead to different lists of branch \ pairs:\ \>", "Text", CellChangeTimes->{{3.79430258243545*^9, 3.794302598293385*^9}, 3.794309663487708*^9, {3.794309736217353*^9, 3.794309757468338*^9}, { 3.794311632350041*^9, 3.794311640298047*^9}}, CellID->150511216], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.794309762971546*^9, 3.794309774011867*^9}, { 3.794311643048121*^9, 3.79431164456166*^9}}, CellLabel->"In[718]:=", CellID->518999917], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"AABA\"\>", ",", "\<\"ABAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABA\"\>", ",", "\<\"B\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAA\"\>", ",", "\<\"B\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.794309774266515*^9, 3.7943116494008217`*^9}, CellLabel->"Out[718]=", CellID->140589089] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], "\[Rule]", "\"\\""}], ",", "\"\\"", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.7943097745448713`*^9, 3.7943097901597633`*^9}, { 3.794311651386396*^9, 3.794311652410448*^9}}, CellLabel->"In[719]:=", CellID->190461484], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{{3.794309786413886*^9, 3.7943097903581133`*^9}, 3.794311652606872*^9}, CellLabel->"Out[719]=", CellID->412267331] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031728], Cell[TextData[{ Cell[BoxData["BranchPairs"], "InlineFormula", FontFamily->"Source Sans Pro"], " can handle Wolfram Models and other system types:" }], "Text", CellChangeTimes->{{3.79430041849046*^9, 3.794300533678185*^9}, { 3.794300593199497*^9, 3.79430059834164*^9}, {3.794300742337944*^9, 3.7943007852786837`*^9}, {3.7943116615945997`*^9, 3.7943116615947247`*^9}}, CellID->660727651], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "2"}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "3"}], "}"}]}], "}"}], "}"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.7943007922316*^9, 3.7943008226874332`*^9}, { 3.794300927282238*^9, 3.794300936912856*^9}, {3.794311663583557*^9, 3.794311709179495*^9}, {3.7954641537353687`*^9, 3.795464164558069*^9}}, CellLabel->"In[721]:=", CellID->375716984], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "4"}], "}"}]}], "}"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.794300917310341*^9, 3.794300937455214*^9}, { 3.794311676161455*^9, 3.7943117094441442`*^9}, 3.7954641845929623`*^9}, CellLabel->"Out[721]=", CellID->766352833] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"CellularAutomaton", "[", "30", "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.7943009905479183`*^9, 3.794301072480144*^9}, { 3.79431173351022*^9, 3.794311737725095*^9}}, CellLabel->"In[727]:=", CellID->754388989], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7943010005219507`*^9, 3.794301038121963*^9}, 3.7943010734728947`*^9, 3.794311738032443*^9}, CellLabel->"Out[727]=", CellID->204396048] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", "1", "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.794302781011628*^9, 3.7943027965536213`*^9}, { 3.7943099001986313`*^9, 3.7943099253552227`*^9}, {3.7943117596598597`*^9, 3.794311767702758*^9}}, CellLabel->"In[730]:=", CellID->577049433], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.794302790287444*^9, 3.794302798839941*^9}, { 3.794309900543295*^9, 3.7943099258779097`*^9}, {3.794311764061371*^9, 3.794311768047618*^9}}, CellLabel->"Out[730]=", CellID->859905320] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031729], Cell["\<\ Preventing identical states from being merged, by including step numbers \ and/or state IDs, can change branch pair behavior:\ \>", "Text", CellChangeTimes->{{3.79430258243545*^9, 3.794302598293385*^9}, 3.794309663487708*^9, {3.794309736217353*^9, 3.794309757468338*^9}, { 3.7943100731789293`*^9, 3.794310087880619*^9}, {3.794311786741643*^9, 3.7943117909392548`*^9}}, CellID->256643133], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.794310088588616*^9, 3.794310113081809*^9}, { 3.794311792792219*^9, 3.794311793542941*^9}}, CellLabel->"In[731]:=", CellID->704370900], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"AABAAA\"\>", ",", "\<\"AABAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAA\"\>", ",", "\<\"ABBAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAB\"\>", ",", "\<\"ABBAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAAA\"\>", ",", "\<\"AABAAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAAA\"\>", ",", "\<\"AABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAAA\"\>", ",", "\<\"ABBAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAB\"\>", ",", "\<\"AABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAB\"\>", ",", "\<\"ABBAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABABA\"\>", ",", "\<\"ABBAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAB\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABABA\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABAA\"\>", ",", "\<\"ABBAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABAA\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABBAAA\"\>", ",", "\<\"ABBAB\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7943100979900723`*^9, 3.794310113313985*^9}, 3.794311793736374*^9}, CellLabel->"Out[731]=", CellID->198475664] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "2", ",", RowBox[{"\"\\"", "\[Rule]", "True"}], ",", RowBox[{"\"\\"", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.7943101153691893`*^9, 3.794310133989916*^9}, { 3.794311795397694*^9, 3.79431179617688*^9}}, CellLabel->"In[732]:=", CellID->887710737], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2329284619"}], "}"}], "\[Rule]", "\<\"ABBAA\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2466068153"}], "}"}], "\[Rule]", "\<\"AABAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2329284619"}], "}"}], "\[Rule]", "\<\"ABBAA\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "7525991065"}], "}"}], "\[Rule]", "\<\"AABAAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2466068153"}], "}"}], "\[Rule]", "\<\"AABAB\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "7525991065"}], "}"}], "\[Rule]", "\<\"AABAAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2917088344"}], "}"}], "\[Rule]", "\<\"ABBAAA\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "7028215774"}], "}"}], "\[Rule]", "\<\"ABBAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2917088344"}], "}"}], "\[Rule]", "\<\"ABBAAA\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "9583073839"}], "}"}], "\[Rule]", "\<\"ABABAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "7028215774"}], "}"}], "\[Rule]", "\<\"ABBAB\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "9583073839"}], "}"}], "\[Rule]", "\<\"ABABAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1814507831"}], "}"}], "\[Rule]", "\<\"AABABA\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3327049395"}], "}"}], "\[Rule]", "\<\"ABBAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1814507831"}], "}"}], "\[Rule]", "\<\"AABABA\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "5345155304"}], "}"}], "\[Rule]", "\<\"AABAAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3327049395"}], "}"}], "\[Rule]", "\<\"ABBAB\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "5345155304"}], "}"}], "\[Rule]", "\<\"AABAAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1959632808"}], "}"}], "\[Rule]", "\<\"AABAAB\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "7849773157"}], "}"}], "\[Rule]", "\<\"AABAAAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1959632808"}], "}"}], "\[Rule]", "\<\"AABAAB\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "9104893088"}], "}"}], "\[Rule]", "\<\"AABABA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1959632808"}], "}"}], "\[Rule]", "\<\"AABAAB\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "9920533828"}], "}"}], "\[Rule]", "\<\"ABBAAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "7849773157"}], "}"}], "\[Rule]", "\<\"AABAAAA\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "9104893088"}], "}"}], "\[Rule]", "\<\"AABABA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "7849773157"}], "}"}], "\[Rule]", "\<\"AABAAAA\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "9920533828"}], "}"}], "\[Rule]", "\<\"ABBAAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "9104893088"}], "}"}], "\[Rule]", "\<\"AABABA\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "9920533828"}], "}"}], "\[Rule]", "\<\"ABBAAA\"\>"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7943101342446404`*^9, 3.7943117963463182`*^9}, CellLabel->"Out[732]=", CellID->815802664] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->964056545], Cell[CellGroupData[{ Cell["System Types", "Subsubsection", CellChangeTimes->{{3.791322994486495*^9, 3.791323005003332*^9}}, CellID->604205909], Cell[TextData[{ Cell[BoxData["BranchPairs"], "InlineFormula", FontFamily->"Source Sans Pro"], " supports both string and list substitution systems:" }], "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.791323124172975*^9}, {3.791323155729278*^9, 3.791323164268116*^9}, 3.794223998460499*^9, {3.794301166351903*^9, 3.794301173575214*^9}, 3.794301223344034*^9, {3.7943123277215347`*^9, 3.7943123277216177`*^9}}, CellID->660315145], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.7943032034822483`*^9, 3.794303215012438*^9}, { 3.794310151532346*^9, 3.7943101625450478`*^9}, {3.7943123167714653`*^9, 3.79431231755063*^9}}, CellLabel->"In[753]:=", CellID->852127017], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"\<\"AAAA\"\>", ",", "\<\"BABA\"\>"}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.794303212825842*^9, 3.794303215209388*^9}, { 3.794310159549522*^9, 3.794310162754525*^9}, 3.794312323030979*^9}, CellLabel->"Out[753]=", CellID->388277278] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.794303217076602*^9, 3.79430323559536*^9}, { 3.794310167409849*^9, 3.794310174535409*^9}, {3.794312319287466*^9, 3.794312320339839*^9}}, CellLabel->"In[752]:=", CellID->556690563], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.794303235807481*^9, {3.794310172502471*^9, 3.7943101748306217`*^9}, 3.7943123206000347`*^9}, CellLabel->"Out[752]=", CellID->234016498] }, Open ]], Cell["Lists can contain arbitrary symbolic elements:", "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}}, CellID->843098503], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False]}], "}"}]}], ",", RowBox[{ RowBox[{"{", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 0.5, 0], Editable->False, Selectable->False], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 0.5, 0], Editable->False, Selectable->False]}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 0.5, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False]}], "}"}], "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.791323180751914*^9, 3.7913232432969103`*^9}, { 3.7913233143148127`*^9, 3.791323316191559*^9}, {3.79431033653084*^9, 3.7943103378274927`*^9}, {3.794312342057473*^9, 3.7943123428169737`*^9}}, CellLabel->"In[754]:=", CellID->208151207], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 0.5, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 0.5, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 0.5, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 0.5, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 0.5, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False]}], "}"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.5, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 0.5, 0], Editable->False, Selectable->False], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{ {GrayLevel[0], RectangleBox[{0, 0}]}, {GrayLevel[0], RectangleBox[{1, -1}]}, {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio->1, DefaultBaseStyle->"ColorSwatchGraphics", Frame->True, FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.], FrameTicks->None, ImageSize-> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRangePadding->None], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], Appearance->None, BaseStyle->{}, BaselinePosition->Baseline, ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], DefaultBaseStyle->{}, Evaluator->Automatic, Method->"Preemptive"], RGBColor[1, 1, 0], Editable->False, Selectable->False]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7913232436441708`*^9, 3.79132326511829*^9}, 3.791323316365457*^9, 3.7943013054844427`*^9, 3.794310340414846*^9, 3.794312343089506*^9}, CellLabel->"Out[754]=", CellID->188593293] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031730], Cell["Give an explicit substitution system rule:", "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}, { 3.791323328200288*^9, 3.791323332788879*^9}}, CellID->477259298], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"SubstitutionSystem", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"{", "0", "}"}], "}"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.791323339573163*^9, 3.791323362083625*^9}, { 3.794310357191774*^9, 3.7943103585557528`*^9}, {3.794312364980423*^9, 3.794312365878832*^9}}, CellLabel->"In[755]:=", CellID->182088202], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.791323357342395*^9, 3.791323362306842*^9}, 3.794310359132869*^9, 3.794312366087863*^9}, CellLabel->"Out[755]=", CellID->666726113] }, Open ]], Cell["\<\ An alternative method of specifying that a substitution system should be used:\ \>", "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}, { 3.791323328200288*^9, 3.791323332788879*^9}, {3.791323375764019*^9, 3.791323390297855*^9}}, CellID->200836085], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"{", "0", "}"}], "}"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.7913233909048767`*^9, 3.791323418985118*^9}, { 3.7943103613557253`*^9, 3.794310362655567*^9}, {3.794312367917964*^9, 3.794312368678405*^9}}, CellLabel->"In[756]:=", CellID->954035753], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.791323419188397*^9, 3.794310362846725*^9, 3.79431236886495*^9}, CellLabel->"Out[756]=", CellID->281780404] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031731], Cell[TextData[{ Cell[BoxData["BranchPairs"], "InlineFormula", FontFamily->"Source Sans Pro"], " also supports multiway generalizations of cellular automata:" }], "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}, { 3.791323328200288*^9, 3.791323332788879*^9}, {3.7913234263306303`*^9, 3.791323443262574*^9}, 3.7942240043496037`*^9, {3.794301341467616*^9, 3.794301345048877*^9}, 3.7943013792775583`*^9, {3.79431233243039*^9, 3.794312333833205*^9}}, CellID->697845782], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"CellularAutomaton", "[", RowBox[{"{", RowBox[{"170", ",", "240"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.7943037892086487`*^9, 3.794303801466107*^9}, { 3.794310185293414*^9, 3.794310194195545*^9}, {3.7943123912343483`*^9, 3.794312392124044*^9}}, CellLabel->"In[757]:=", CellID->237841805], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.794303804612468*^9, {3.794310191594625*^9, 3.794310194836334*^9}, 3.7943123923584557`*^9}, CellLabel->"Out[757]=", CellID->950915791] }, Open ]], Cell["\<\ Generate all branch pairs from left- and right-shift cellular automaton rules \ after 3 steps:\ \>", "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}, { 3.791323328200288*^9, 3.791323332788879*^9}, {3.7913234263306303`*^9, 3.791323443262574*^9}, 3.7942240043496037`*^9, {3.794301341467616*^9, 3.794301345048877*^9}, 3.7943013792775583`*^9, {3.794301423300714*^9, 3.794301457560883*^9}, {3.7943123962393084`*^9, 3.794312417952148*^9}}, CellID->51041547], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"CellularAutomaton", "[", RowBox[{"{", RowBox[{"170", ",", "240"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.7943014412579927`*^9, 3.794301461312665*^9}, { 3.794312406889958*^9, 3.794312425095211*^9}}, CellLabel->"In[762]:=", CellID->694066048], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.794301451287147*^9, 3.7943014632891617`*^9}, { 3.79431241138599*^9, 3.794312425445793*^9}}, CellLabel->"Out[762]=", CellID->88747991] }, Open ]], Cell["Determine branch pairs of the rule 30 cellular automaton:", "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}, { 3.791323328200288*^9, 3.791323332788879*^9}, {3.7913234263306303`*^9, 3.791323443262574*^9}, 3.7942240043496037`*^9, {3.794301341467616*^9, 3.794301345048877*^9}, 3.7943013792775583`*^9, {3.794301423300714*^9, 3.794301490793145*^9}, {3.7943124517547626`*^9, 3.794312456408484*^9}}, CellID->794810968], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"CellularAutomaton", "[", "30", "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.794301492100829*^9, 3.7943015028296328`*^9}, { 3.794312437321417*^9, 3.794312447297132*^9}}, CellLabel->"In[764]:=", CellID->819122378], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.794301504037918*^9, {3.794312443501074*^9, 3.794312447472979*^9}}, CellLabel->"Out[764]=", CellID->472229915] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031732], Cell[TextData[{ Cell[BoxData["BranchPairs"], "InlineFormula", FontFamily->"Source Sans Pro"], " also supports multiway generalizations of Wolfram Models:" }], "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}, { 3.791323328200288*^9, 3.791323332788879*^9}, {3.7913234263306303`*^9, 3.791323443262574*^9}, 3.7942240043496037`*^9, {3.794301341467616*^9, 3.794301345048877*^9}, 3.7943013792775583`*^9, {3.794301542848493*^9, 3.79430154432195*^9}, {3.794312463207326*^9, 3.794312463207478*^9}}, CellID->723587552], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], "}"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.794301545451797*^9, 3.794301596908277*^9}, { 3.794312468623975*^9, 3.7943124707773333`*^9}, {3.795464200501205*^9, 3.795464212658218*^9}}, CellLabel->"In[723]:=", CellID->129442126], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}]}], "}"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.7943015643847437`*^9, 3.794301597244854*^9}, 3.7943124710553923`*^9, {3.795464208986177*^9, 3.7954642129311447`*^9}}, CellLabel->"Out[723]=", CellID->153598516] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "}"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.794303823151978*^9, 3.794303920069763*^9}, { 3.7943103016267233`*^9, 3.7943103096341867`*^9}, {3.7943124773004208`*^9, 3.794312478190981*^9}, {3.7954642227465563`*^9, 3.795464229813178*^9}}, CellLabel->"In[724]:=", CellID->516640004], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.79431247843755*^9, 3.795464230381996*^9}, CellLabel->"Out[724]=", CellID->653366462] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031733], Cell["\<\ Construct a multiway evolution by explicitly specifying an association:\ \>", "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}, { 3.791323328200288*^9, 3.791323332788879*^9}, {3.7913234263306303`*^9, 3.791323443262574*^9}, {3.791323488875498*^9, 3.7913235482516813`*^9}, { 3.791323679132427*^9, 3.791323682292664*^9}, {3.791323712318419*^9, 3.79132372357957*^9}, {3.791323838832839*^9, 3.791323845864623*^9}, { 3.7913238988499737`*^9, 3.791323901415097*^9}, {3.791324206757916*^9, 3.7913242456364403`*^9}, {3.791324475288999*^9, 3.791324476099023*^9}, 3.794224018820208*^9, {3.794310564328854*^9, 3.794310566793154*^9}}, CellID->355265985], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"StringReplaceList", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}], "&"}], ")"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "SameQ"}], ",", RowBox[{"\"\\"", "\[Rule]", "Identity"}], ",", RowBox[{"\"\\"", "\[Rule]", "Identity"}], ",", RowBox[{"\"\\"", "\[Rule]", "Identity"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "Identity"}]}], "|>"}], ",", RowBox[{"{", "\"\\"", "}"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.7913242463205137`*^9, 3.791324250417555*^9}, { 3.791324284550568*^9, 3.791324362195999*^9}, {3.791324419686141*^9, 3.79132442575167*^9}, {3.791324472819564*^9, 3.791324473748498*^9}, { 3.794310567766522*^9, 3.794310569326309*^9}, {3.794312499041561*^9, 3.794312499884676*^9}}, CellLabel->"In[767]:=", CellID->566974], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"ABAA\"\>", ",", "\<\"AABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABA\"\>", ",", "\<\"AABAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAA\"\>", ",", "\<\"ABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABAA\"\>", ",", "\<\"AAAABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABAA\"\>", ",", "\<\"AABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAA\"\>", ",", "\<\"ABAAAA\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.791324350851933*^9, 3.7913243629346046`*^9}, 3.7913244266390333`*^9, {3.791324473988463*^9, 3.791324477791518*^9}, 3.7943105695573807`*^9, 3.794312500186811*^9}, CellLabel->"Out[767]=", CellID->831799941] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Rules and Initial Conditions", "Subsubsection", CellChangeTimes->{{3.791322994486495*^9, 3.791323005003332*^9}, { 3.7913239973189487`*^9, 3.791324000974572*^9}}, CellID->547613991], Cell[TextData[{ Cell[BoxData["BranchPairs"], "InlineFormula", FontFamily->"Source Sans Pro"], " accepts both individual rules and lists of rules:" }], "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}, { 3.791323328200288*^9, 3.791323332788879*^9}, {3.7913234263306303`*^9, 3.791323443262574*^9}, {3.791323488875498*^9, 3.7913235482516813`*^9}, { 3.791323679132427*^9, 3.791323682292664*^9}, {3.791323712318419*^9, 3.79132372357957*^9}, {3.791323838832839*^9, 3.791323845864623*^9}, { 3.7913238988499737`*^9, 3.791323901415097*^9}, {3.791324006825696*^9, 3.7913240243421507`*^9}, 3.7942240249660788`*^9, {3.794310407000795*^9, 3.7943104083452787`*^9}, {3.794312518427828*^9, 3.7943125192458897`*^9}}, CellID->356275519], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", "\"\\"", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.791324024878457*^9, 3.7913240353108892`*^9}, { 3.791324395446916*^9, 3.791324416711841*^9}, {3.794310411388254*^9, 3.79431043832145*^9}, {3.79431252125569*^9, 3.794312522456723*^9}}, CellLabel->"In[768]:=", CellID->853613307], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.791324035579554*^9, {3.791324397829023*^9, 3.7913244170813704`*^9}, 3.791467826602603*^9, 3.793049202327821*^9, {3.79431041526187*^9, 3.794310438542602*^9}, 3.794312522766881*^9}, CellLabel->"Out[768]=", CellID->14742083] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.791324038040313*^9, 3.7913240506446047`*^9}, { 3.7943104173942432`*^9, 3.794310439981305*^9}, {3.79431252388315*^9, 3.794312526545723*^9}}, CellLabel->"In[770]:=", CellID->512575565], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"AAABAA\"\>", ",", "\<\"AAABAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABAA\"\>", ",", "\<\"AAABBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABAA\"\>", ",", "\<\"AABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABAA\"\>", ",", "\<\"ABAABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABAB\"\>", ",", "\<\"AAABBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABAB\"\>", ",", "\<\"AABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABAB\"\>", ",", "\<\"ABAABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABBA\"\>", ",", "\<\"AABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABBA\"\>", ",", "\<\"ABAABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABABA\"\>", ",", "\<\"ABAABA\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7913240509955587`*^9, 3.79304919938262*^9, {3.794310421043745*^9, 3.794310440286223*^9}, {3.794312524867756*^9, 3.794312526752152*^9}}, CellLabel->"Out[770]=", CellID->200598931] }, Open ]], Cell["Likewise for initial conditions:", "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}, { 3.791323328200288*^9, 3.791323332788879*^9}, {3.7913234263306303`*^9, 3.791323443262574*^9}, {3.791323488875498*^9, 3.7913235482516813`*^9}, { 3.791323679132427*^9, 3.791323682292664*^9}, {3.791323712318419*^9, 3.79132372357957*^9}, {3.791323838832839*^9, 3.791323845864623*^9}, { 3.7913238988499737`*^9, 3.791323901415097*^9}, {3.791324006825696*^9, 3.7913240243421507`*^9}, {3.791324060577313*^9, 3.791324066202427*^9}}, CellID->318690416], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.79132406678589*^9, 3.791324098973692*^9}, { 3.794310444826015*^9, 3.794310449758544*^9}, {3.7943125282211847`*^9, 3.79431253244285*^9}}, CellLabel->"In[772]:=", CellID->821676203], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"AABA\"\>", ",", "\<\"AABB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABA\"\>", ",", "\<\"ABAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABB\"\>", ",", "\<\"ABAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAA\"\>", ",", "\<\"AABAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAA\"\>", ",", "\<\"AABBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAA\"\>", ",", "\<\"ABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAB\"\>", ",", "\<\"AABBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAB\"\>", ",", "\<\"ABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABBA\"\>", ",", "\<\"ABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAB\"\>", ",", "\<\"AABBB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAB\"\>", ",", "\<\"ABABB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABBA\"\>", ",", "\<\"AABBB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABBA\"\>", ",", "\<\"ABABB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABBB\"\>", ",", "\<\"ABABB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAA\"\>", ",", "\<\"ABAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAA\"\>", ",", "\<\"ABBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAB\"\>", ",", "\<\"ABBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAA\"\>", ",", "\<\"ABAAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAA\"\>", ",", "\<\"ABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAA\"\>", ",", "\<\"ABBAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAB\"\>", ",", "\<\"ABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAB\"\>", ",", "\<\"ABBAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABA\"\>", ",", "\<\"ABBAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAB\"\>", ",", "\<\"ABABB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAB\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABA\"\>", ",", "\<\"ABABB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABA\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABB\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABA\"\>", ",", "\<\"ABBBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABBAA\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABBAA\"\>", ",", "\<\"ABBBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABBAB\"\>", ",", "\<\"ABBBA\"\>"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{{3.791324089038796*^9, 3.791324099299591*^9}, 3.793049200326673*^9, 3.794310450757161*^9, {3.794312529249258*^9, 3.794312532682063*^9}}, CellLabel->"Out[772]=", CellID->329943499] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Event Selection Functions", "Subsubsection", CellChangeTimes->{{3.791322994486495*^9, 3.791323005003332*^9}, { 3.7913239973189487`*^9, 3.791324000974572*^9}, {3.791325571489139*^9, 3.791325573490665*^9}}, CellID->262662783], Cell["Apply only the first possible event at each step:", "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}, { 3.791323328200288*^9, 3.791323332788879*^9}, {3.7913234263306303`*^9, 3.791323443262574*^9}, {3.791323488875498*^9, 3.7913235482516813`*^9}, { 3.791323679132427*^9, 3.791323682292664*^9}, {3.791323712318419*^9, 3.79132372357957*^9}, {3.791323838832839*^9, 3.791323845864623*^9}, { 3.7913238988499737`*^9, 3.791323901415097*^9}, {3.791324006825696*^9, 3.7913240243421507`*^9}, {3.791324060577313*^9, 3.791324066202427*^9}, { 3.7913255957208138`*^9, 3.7913256046084623`*^9}}, CellID->243887168], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], "\[Rule]", "\"\\""}], ",", "\"\\"", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.791325605224814*^9, 3.791325618534761*^9}, { 3.794310474401786*^9, 3.7943104937749977`*^9}, {3.79431254385156*^9, 3.794312544632317*^9}}, CellLabel->"In[773]:=", CellID->669148147], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.791325618779131*^9, {3.794310476044079*^9, 3.794310494002577*^9}, 3.7943125448236427`*^9}, CellLabel->"Out[773]=", CellID->30576446] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031734], Cell["Apply the first and last possible events at each step:", "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}, { 3.791323328200288*^9, 3.791323332788879*^9}, {3.7913234263306303`*^9, 3.791323443262574*^9}, {3.791323488875498*^9, 3.7913235482516813`*^9}, { 3.791323679132427*^9, 3.791323682292664*^9}, {3.791323712318419*^9, 3.79132372357957*^9}, {3.791323838832839*^9, 3.791323845864623*^9}, { 3.7913238988499737`*^9, 3.791323901415097*^9}, {3.791324006825696*^9, 3.7913240243421507`*^9}, {3.791324060577313*^9, 3.791324066202427*^9}, { 3.7913255957208138`*^9, 3.791325635465694*^9}}, CellID->426646543], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"First", "[", "#", "]"}], ",", RowBox[{"Last", "[", "#", "]"}]}], "}"}], "&"}], ")"}]}], ",", "\"\\"", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.79132563601657*^9, 3.791325650102089*^9}, { 3.7943104788315287`*^9, 3.7943104970759478`*^9}, {3.794312546046578*^9, 3.79431254691856*^9}}, CellLabel->"In[774]:=", CellID->666864216], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"\<\"AA\"\>", ",", "\<\"AABBA\"\>"}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.791325650333827*^9, {3.794310480590589*^9, 3.794310497309046*^9}, 3.794312547160128*^9}, CellLabel->"Out[774]=", CellID->886214588] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031735], Cell["\<\ Use a greedy-style algorithm to apply the maximal set of non-conflicting \ events at each step (strings only):\ \>", "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}, { 3.791323328200288*^9, 3.791323332788879*^9}, {3.7913234263306303`*^9, 3.791323443262574*^9}, {3.791323488875498*^9, 3.7913235482516813`*^9}, { 3.791323679132427*^9, 3.791323682292664*^9}, {3.791323712318419*^9, 3.79132372357957*^9}, {3.791323838832839*^9, 3.791323845864623*^9}, { 3.7913238988499737`*^9, 3.791323901415097*^9}, {3.791324006825696*^9, 3.7913240243421507`*^9}, {3.791324060577313*^9, 3.791324066202427*^9}, { 3.7913255957208138`*^9, 3.7913256046084623`*^9}, {3.7913256615774517`*^9, 3.791325705225836*^9}}, CellID->531956355], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], "\[Rule]", "\"\\""}], ",", "\"\\"", ",", "4"}], "]"}]], "Input", CellChangeTimes->{{3.791325688877452*^9, 3.791325711570808*^9}, { 3.791325755730282*^9, 3.791325756963973*^9}, {3.794310503206298*^9, 3.794310509482361*^9}, {3.794312548394372*^9, 3.794312549212229*^9}}, CellLabel->"In[775]:=", CellID->301640544], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"ABAA\"\>", ",", "\<\"AABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABA\"\>", ",", "\<\"AABAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAA\"\>", ",", "\<\"ABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABAA\"\>", ",", "\<\"AAAABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABAA\"\>", ",", "\<\"AABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAA\"\>", ",", "\<\"ABAAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAAAABA\"\>", ",", "\<\"AAAABAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABAAA\"\>", ",", "\<\"AAAABAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABAAA\"\>", ",", "\<\"AABAAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAAAA\"\>", ",", "\<\"ABAAAAA\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7913257150612307`*^9, {3.791325757276678*^9, 3.791325772610423*^9}, 3.7930491941598053`*^9, 3.794310509770133*^9, 3.7943125494474983`*^9}, CellLabel->"Out[775]=", CellID->438784417] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", CellChangeTimes->{3.794312539221737*^9}, CellID->776923543], Cell["Explicitly specify the type of rule:", "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.79132308487714*^9}, {3.791323172908209*^9, 3.7913231792631187`*^9}, { 3.791323328200288*^9, 3.791323332788879*^9}, {3.7913234263306303`*^9, 3.791323443262574*^9}, {3.791323488875498*^9, 3.7913235482516813`*^9}, { 3.791323679132427*^9, 3.791323682292664*^9}, {3.791323712318419*^9, 3.79132372357957*^9}, {3.791323838832839*^9, 3.791323845864623*^9}, { 3.7913238988499737`*^9, 3.791323901415097*^9}, {3.791324006825696*^9, 3.7913240243421507`*^9}, {3.791324060577313*^9, 3.791324066202427*^9}, { 3.7913255957208138`*^9, 3.7913256046084623`*^9}, {3.7913256615774517`*^9, 3.7913257285574617`*^9}, {3.794224809247649*^9, 3.794224813632114*^9}}, CellID->959360977], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}]}], ",", RowBox[{"{", "\"\\"", "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.794224816309407*^9, 3.794224855728146*^9}, { 3.794310613054514*^9, 3.794310629496757*^9}, {3.794312563080192*^9, 3.794312563872705*^9}}, CellLabel->"In[776]:=", CellID->13312565], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"ABAB\"\>", ",", "\<\"ABBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAB\"\>", ",", "\<\"ABAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAB\"\>", ",", "\<\"AABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABBA\"\>", ",", "\<\"ABAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABBA\"\>", ",", "\<\"AABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAA\"\>", ",", "\<\"AABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABA\"\>", ",", "\<\"AABAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABA\"\>", ",", "\<\"AABAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABA\"\>", ",", "\<\"AABBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABA\"\>", ",", "\<\"ABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAA\"\>", ",", "\<\"AABAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAA\"\>", ",", "\<\"AABBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAA\"\>", ",", "\<\"ABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAB\"\>", ",", "\<\"AABBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAB\"\>", ",", "\<\"ABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABBA\"\>", ",", "\<\"ABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAB\"\>", ",", "\<\"ABABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAB\"\>", ",", "\<\"ABBAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAB\"\>", ",", "\<\"AABAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAB\"\>", ",", "\<\"ABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABA\"\>", ",", "\<\"ABBAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABA\"\>", ",", "\<\"AABAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABA\"\>", ",", "\<\"ABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABBAA\"\>", ",", "\<\"AABAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABBAA\"\>", ",", "\<\"ABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAA\"\>", ",", "\<\"ABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAB\"\>", ",", "\<\"ABABB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAB\"\>", ",", "\<\"AABAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABAAB\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABB\"\>", ",", "\<\"AABAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABB\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABAB\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABBA\"\>", ",", "\<\"ABBAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABBA\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABBA\"\>", ",", "\<\"ABBBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABBAA\"\>", ",", "\<\"ABBAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABBAA\"\>", ",", "\<\"ABBBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABBAB\"\>", ",", "\<\"ABBBA\"\>"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{{3.7942248396364927`*^9, 3.794224856260364*^9}, { 3.79431061748911*^9, 3.7943106297316093`*^9}, 3.794312564064642*^9}, CellLabel->"Out[776]=", CellID->258787359] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{"{", "0", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.794224862066924*^9, 3.794224878540182*^9}, { 3.794310634153872*^9, 3.794310640502787*^9}, {3.7943125661941233`*^9, 3.794312567473628*^9}}, CellLabel->"In[777]:=", CellID->813071816], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7942248788266373`*^9, 3.794310640927602*^9, 3.794312567667115*^9}, CellLabel->"Out[777]=", CellID->363237467] }, Open ]], Cell[CellGroupData[{ Cell["Step Numbers and State IDs", "Subsubsection", CellChangeTimes->{{3.791322994486495*^9, 3.791323005003332*^9}, { 3.7913239973189487`*^9, 3.791324000974572*^9}, {3.791325571489139*^9, 3.791325573490665*^9}, {3.794225024338934*^9, 3.7942250258710814`*^9}, { 3.794225219857004*^9, 3.7942252213003397`*^9}, {3.794225643248332*^9, 3.794225644909646*^9}, {3.794225832705213*^9, 3.794225836606388*^9}, { 3.794226886497445*^9, 3.7942268976848783`*^9}}, CellID->106626330], Cell["\<\ By default, equivalent states are merged across all time steps:\ \>", "Text", CellChangeTimes->{{3.7823345275881042`*^9, 3.782334539236257*^9}, { 3.794225919017292*^9, 3.7942259294785213`*^9}, {3.7942259897149982`*^9, 3.794226024523148*^9}, {3.794226065471583*^9, 3.794226073657736*^9}, { 3.794226105777862*^9, 3.794226111222584*^9}, {3.7942269023462543`*^9, 3.794226909361311*^9}}, CellID->144795908], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", "\"\\"", "}"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.7942269111908073`*^9, 3.794226923200158*^9}, { 3.794310966736596*^9, 3.794310995884712*^9}, {3.794312581438157*^9, 3.794312590567749*^9}}, CellLabel->"In[780]:=", CellID->612577106], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"BAABB\"\>", ",", "\<\"BABAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"BAABB\"\>", ",", "\<\"BABBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"BAABB\"\>", ",", "\<\"BABBB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"BABAB\"\>", ",", "\<\"BABBA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"BABAB\"\>", ",", "\<\"BABBB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"BABBA\"\>", ",", "\<\"BABBB\"\>"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{ 3.79422692358526*^9, {3.794310969968285*^9, 3.794310997946045*^9}, { 3.794312584515011*^9, 3.7943125908934*^9}}, CellLabel->"Out[780]=", CellID->555077275] }, Open ]], Cell["\<\ Merging of equivalent states across different time steps can be prevented by \ including step numbers:\ \>", "Text", CellChangeTimes->{{3.7823345275881042`*^9, 3.782334539236257*^9}, { 3.794225919017292*^9, 3.7942259294785213`*^9}, {3.7942259897149982`*^9, 3.794226024523148*^9}, {3.794226065471583*^9, 3.794226073657736*^9}, { 3.794226105777862*^9, 3.794226111222584*^9}, {3.7942269023462543`*^9, 3.794226909361311*^9}, {3.794226948100354*^9, 3.794226960541025*^9}}, CellID->81233446], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", "\"\\"", "}"}], ",", "1", ",", RowBox[{"\"\\"", "\[Rule]", "True"}]}], "]"}]], "Input",\ CellChangeTimes->{{3.794311013991332*^9, 3.794311026137031*^9}, { 3.7943125927942333`*^9, 3.7943125968224907`*^9}}, CellLabel->"In[781]:=", CellID->469962206], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "\<\"BAABB\"\>"}], ",", RowBox[{"1", "\[Rule]", "\<\"BABAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "\<\"BAABB\"\>"}], ",", RowBox[{"1", "\[Rule]", "\<\"BABBA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "\<\"BAABB\"\>"}], ",", RowBox[{"1", "\[Rule]", "\<\"BABBB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "\<\"BABAB\"\>"}], ",", RowBox[{"1", "\[Rule]", "\<\"BABBA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "\<\"BABAB\"\>"}], ",", RowBox[{"1", "\[Rule]", "\<\"BABBB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "\<\"BABBA\"\>"}], ",", RowBox[{"1", "\[Rule]", "\<\"BABBB\"\>"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.794311026619049*^9, 3.79431259702173*^9}, CellLabel->"Out[781]=", CellID->590305632] }, Open ]], Cell["\<\ Merging of equivalent states at the same time step can be prevented by also \ including state IDs:\ \>", "Text", CellChangeTimes->{{3.7823345275881042`*^9, 3.782334539236257*^9}, { 3.794225919017292*^9, 3.7942259294785213`*^9}, {3.7942259897149982`*^9, 3.794226024523148*^9}, {3.794226065471583*^9, 3.794226073657736*^9}, { 3.794226105777862*^9, 3.794226111222584*^9}, {3.7942269023462543`*^9, 3.794226909361311*^9}, {3.794227015226259*^9, 3.794227028646978*^9}}, CellID->445954640], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", "\"\\"", "}"}], ",", "1", ",", RowBox[{"\"\\"", "\[Rule]", "True"}], ",", RowBox[{"\"\\"", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.7943110381367607`*^9, 3.794311060879531*^9}, { 3.794312600218136*^9, 3.7943126043432217`*^9}}, CellLabel->"In[782]:=", CellID->500534891], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2117832065"}], "}"}], "\[Rule]", "\<\"BABAB\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2143447548"}], "}"}], "\[Rule]", "\<\"BABBA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2117832065"}], "}"}], "\[Rule]", "\<\"BABAB\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5394953111"}], "}"}], "\[Rule]", "\<\"BAABB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2117832065"}], "}"}], "\[Rule]", "\<\"BABAB\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "8089974833"}], "}"}], "\[Rule]", "\<\"BABBB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2143447548"}], "}"}], "\[Rule]", "\<\"BABBA\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5394953111"}], "}"}], "\[Rule]", "\<\"BAABB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2143447548"}], "}"}], "\[Rule]", "\<\"BABBA\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "8089974833"}], "}"}], "\[Rule]", "\<\"BABBB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5394953111"}], "}"}], "\[Rule]", "\<\"BAABB\"\>"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "8089974833"}], "}"}], "\[Rule]", "\<\"BABBB\"\>"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.79431106188636*^9, 3.79431260454867*^9}, CellLabel->"Out[782]=", CellID->738183569] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Predecessor States", "Subsubsection", CellChangeTimes->{{3.791322994486495*^9, 3.791323005003332*^9}, { 3.7913239973189487`*^9, 3.791324000974572*^9}, {3.791325571489139*^9, 3.791325573490665*^9}, {3.794225024338934*^9, 3.7942250258710814`*^9}, { 3.794225219857004*^9, 3.7942252213003397`*^9}, {3.794225643248332*^9, 3.794225644909646*^9}, {3.794225832705213*^9, 3.794225836606388*^9}, { 3.794226886497445*^9, 3.7942268976848783`*^9}, {3.794236322532176*^9, 3.794236325927463*^9}, 3.7942364281715307`*^9, {3.794236642682732*^9, 3.7942366452137623`*^9}, {3.7942371281103067`*^9, 3.794237131383377*^9}, { 3.794312612194064*^9, 3.7943126126053267`*^9}, 3.794313855590207*^9}, CellID->260416806], Cell[TextData[{ "By default, ", Cell[BoxData["BranchPairs"], "InlineFormula", FontFamily->"Source Sans Pro"], " returns only a list of branch pairs:" }], "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.791323124172975*^9}, {3.791323155729278*^9, 3.791323164268116*^9}, 3.794223998460499*^9, {3.794301166351903*^9, 3.794301173575214*^9}, 3.794301223344034*^9, {3.794301773219149*^9, 3.7943017861927967`*^9}, { 3.794312614020362*^9, 3.794312616832107*^9}, {3.794313856813225*^9, 3.794313856997514*^9}}, CellID->284985345], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.7943017867147427`*^9, 3.794301815788032*^9}, { 3.79431261994825*^9, 3.7943126397295427`*^9}}, CellLabel->"In[788]:=", CellID->325435470], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"AAABABA\"\>", ",", "\<\"AAABBAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABABA\"\>", ",", "\<\"AABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABABA\"\>", ",", "\<\"ABABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABABA\"\>", ",", "\<\"BAABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABBAA\"\>", ",", "\<\"AABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABBAA\"\>", ",", "\<\"ABABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAABBAA\"\>", ",", "\<\"BAABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABA\"\>", ",", "\<\"ABABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AABA\"\>", ",", "\<\"BAABAAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABABAAA\"\>", ",", "\<\"BAABAAA\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.794301798417223*^9, 3.7943018160174923`*^9}, { 3.794312620310597*^9, 3.794312639893002*^9}}, CellLabel->"Out[788]=", CellID->737547824] }, Open ]], Cell["\<\ Common predecessor states can be shown using \"GivePredecessors\":\ \>", "Text", CellChangeTimes->{{3.791322956552165*^9, 3.791322970736704*^9}, { 3.7913230058925133`*^9, 3.791323044479212*^9}, {3.791323075404776*^9, 3.791323124172975*^9}, {3.791323155729278*^9, 3.791323164268116*^9}, 3.794223998460499*^9, {3.794301166351903*^9, 3.794301173575214*^9}, 3.794301223344034*^9, {3.7943018047745657`*^9, 3.7943018312566147`*^9}}, CellID->652843204], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BranchPairs", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}], ",", "\"\\"", ",", "1", ",", RowBox[{"\"\\"", "\[Rule]", "True"}]}], "]"}]], "Input",\ CellChangeTimes->{{3.794301832008328*^9, 3.7943018498761263`*^9}, { 3.794312642709156*^9, 3.7943126524896097`*^9}}, CellLabel->"In[790]:=", CellID->808621234], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\<\"AAABAAA\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"AAABABA\"\>", ",", "\<\"AAABBAA\"\>"}], "}"}]}], ",", RowBox[{"\<\"AAABAAA\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"AAABABA\"\>", ",", "\<\"AABA\"\>"}], "}"}]}], ",", RowBox[{"\<\"AAABAAA\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"AAABABA\"\>", ",", "\<\"ABABAAA\"\>"}], "}"}]}], ",", RowBox[{"\<\"AAABAAA\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"AAABABA\"\>", ",", "\<\"BAABAAA\"\>"}], "}"}]}], ",", RowBox[{"\<\"AAABAAA\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"AAABBAA\"\>", ",", "\<\"AABA\"\>"}], "}"}]}], ",", RowBox[{"\<\"AAABAAA\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"AAABBAA\"\>", ",", "\<\"ABABAAA\"\>"}], "}"}]}], ",", RowBox[{"\<\"AAABAAA\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"AAABBAA\"\>", ",", "\<\"BAABAAA\"\>"}], "}"}]}], ",", RowBox[{"\<\"AAABAAA\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"AABA\"\>", ",", "\<\"ABABAAA\"\>"}], "}"}]}], ",", RowBox[{"\<\"AAABAAA\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"AABA\"\>", ",", "\<\"BAABAAA\"\>"}], "}"}]}], ",", RowBox[{"\<\"AAABAAA\"\>", "\[Rule]", RowBox[{"{", RowBox[{"\<\"ABABAAA\"\>", ",", "\<\"BAABAAA\"\>"}], "}"}]}]}], "}"}]], "Output", CellChangeTimes->{ 3.79430185009673*^9, {3.794312650097241*^9, 3.794312652709936*^9}}, CellLabel->"Out[790]=", CellID->823029606] }, Open ]] }, Open ]] }, Open ]] }, 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["Jonathan Gorard", "Text", CellID->533273918] }, 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["Critical pairs", "Item", CellID->517761194], Cell["Multiway evolution", "Item", CellID->691879880], Cell["Causal invariance", "Item", CellID->130195157], 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["WolframModel", "Item", CellID->13812411], 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] }, 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/CriticalPair.html", BaseStyle->"Hyperlink", ButtonData->{ URL["https://mathworld.wolfram.com/CriticalPair.html"], None}, ButtonNote->"https://mathworld.wolfram.com/CriticalPair.html"]], "Item", CellID->527194634] }, 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->"BranchPairs | 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.847301800419002`16.337731244901544*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.847301800475001`16.337731244907868*^9, "VersionInformation" -> {"ResourceVersion" -> "1.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[627, 23, 94, 2, 70, "Title",ExpressionUUID->"2e2a22c1-7a57-4ed6-bb12-4e84f47e410a", CellTags->{"Name", "TemplateCell", "Title"}, CellID->627248365]}, "TemplateCell"->{ Cell[627, 23, 94, 2, 70, "Title",ExpressionUUID->"2e2a22c1-7a57-4ed6-bb12-4e84f47e410a", CellTags->{"Name", "TemplateCell", "Title"}, CellID->627248365], Cell[724, 27, 128, 2, 70, "Text",ExpressionUUID->"cc8d87a0-9eba-4e0a-b3fe-7ef9dbe295aa", CellTags->{"Description", "TemplateCell"}, CellID->345142523]}, "Title"->{ Cell[627, 23, 94, 2, 70, "Title",ExpressionUUID->"2e2a22c1-7a57-4ed6-bb12-4e84f47e410a", CellTags->{"Name", "TemplateCell", "Title"}, CellID->627248365]}, "Description"->{ Cell[724, 27, 128, 2, 70, "Text",ExpressionUUID->"cc8d87a0-9eba-4e0a-b3fe-7ef9dbe295aa", CellTags->{"Description", "TemplateCell"}, CellID->345142523]}, "Definition"->{ Cell[877, 33, 1104, 27, 70, "Section",ExpressionUUID->"45ae5e86-2396-4cb8-89ff-b8d06ce27677", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "Function"->{ Cell[877, 33, 1104, 27, 70, "Section",ExpressionUUID->"45ae5e86-2396-4cb8-89ff-b8d06ce27677", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "TemplateCellGroup"->{ Cell[877, 33, 1104, 27, 70, "Section",ExpressionUUID->"45ae5e86-2396-4cb8-89ff-b8d06ce27677", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[5348, 136, 1880, 48, 70, "Subsection",ExpressionUUID->"bd6438c2-6977-4c01-bdde-c7ee5af52c86", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[8585, 243, 1329, 30, 70, "Subsection",ExpressionUUID->"05d7ebbb-0872-4035-86f9-6bdd68eb7593", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[26971, 666, 6926, 150, 70, "Section",ExpressionUUID->"0a323cdb-d473-4062-87af-35ece6ddfd3d", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[199269, 5435, 918, 24, 70, "Subsection",ExpressionUUID->"9f492a8d-7d8b-486c-88bd-234a4a43e007", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[200278, 5467, 893, 24, 70, "Subsection",ExpressionUUID->"865c5cdd-6a1f-4ca0-8448-87d3205baace", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[201553, 5514, 167, 5, 70, "Subsection",ExpressionUUID->"0fb00f54-0f0c-40b7-a94f-062c1a4a43a7", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[202064, 5539, 870, 24, 70, "Subsection",ExpressionUUID->"0d8bbaa3-e562-4907-8d1f-6934df5bb475", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[203141, 5577, 919, 24, 70, "Subsection",ExpressionUUID->"72bcdbcd-c10a-4046-a81b-c045ddc55d86", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[204563, 5630, 971, 25, 70, "Subsection",ExpressionUUID->"0618fcd6-73af-4020-b285-17e82ab6cdbd", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[206439, 5692, 823, 24, 70, "Subsection",ExpressionUUID->"7a45be1a-c948-484b-b41c-29ecb711ef1e", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[208024, 5742, 1762, 43, 70, "Subsection",ExpressionUUID->"cbd90b52-74ce-4ff4-bf78-f78c4bb77b53", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[210097, 5805, 1048, 26, 70, "Section",ExpressionUUID->"fb69b4f0-1b36-4465-9c82-9cd7135d3e9a", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[211694, 5846, 929, 25, 70, "Section",ExpressionUUID->"3dd62a0d-d852-4b4a-89d2-da1a2782ffc4", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]}, "TabNext"->{ Cell[1984, 62, 2266, 41, 70, "Input",ExpressionUUID->"2bf9bc57-c928-4ed7-bf7a-bd39f0c94cf8", CellTags->"TabNext", CellID->57050588], Cell[9917, 275, 569, 9, 70, "Notes",ExpressionUUID->"9491a974-74c7-4f30-a84d-3b97074d3a55", CellTags->"TabNext", CellID->992123199], Cell[25350, 630, 860, 15, 70, "Notes",ExpressionUUID->"f174d3d4-db8a-4c15-88dd-a724e2642b24", CellTags->"TabNext", CellID->301127480], Cell[26213, 647, 709, 13, 70, "Notes",ExpressionUUID->"5414e741-99d5-42ca-9870-d12d65e05b47", CellTags->"TabNext", CellID->340823985], Cell[211148, 5833, 509, 8, 70, "Text",ExpressionUUID->"4cbd5995-3a20-4d7d-bf4e-4a9ee4d3375b", CellTags->"TabNext", CellID->991784503], Cell[212626, 5873, 495, 8, 70, "Text",ExpressionUUID->"7133bc42-f485-4d72-b111-1d9775d69f24", CellTags->"TabNext", CellID->932041030]}, "Documentation"->{ Cell[5186, 128, 137, 4, 70, "Section",ExpressionUUID->"a25bb478-0687-46ab-821e-e5c9951418b2", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535]}, "TemplateSection"->{ Cell[5186, 128, 137, 4, 70, "Section",ExpressionUUID->"a25bb478-0687-46ab-821e-e5c9951418b2", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[199070, 5427, 174, 4, 70, "Section",ExpressionUUID->"19268110-26e3-47c7-a7ca-c3b8d427b1c3", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Usage"->{ Cell[5348, 136, 1880, 48, 70, "Subsection",ExpressionUUID->"bd6438c2-6977-4c01-bdde-c7ee5af52c86", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898]}, "Details & Options"->{ Cell[8585, 243, 1329, 30, 70, "Subsection",ExpressionUUID->"05d7ebbb-0872-4035-86f9-6bdd68eb7593", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Notes"->{ Cell[8585, 243, 1329, 30, 70, "Subsection",ExpressionUUID->"05d7ebbb-0872-4035-86f9-6bdd68eb7593", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Examples"->{ Cell[26971, 666, 6926, 150, 70, "Section",ExpressionUUID->"0a323cdb-d473-4062-87af-35ece6ddfd3d", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657]}, "Source & Additional Information"->{ Cell[199070, 5427, 174, 4, 70, "Section",ExpressionUUID->"19268110-26e3-47c7-a7ca-c3b8d427b1c3", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Contributed By"->{ Cell[199269, 5435, 918, 24, 70, "Subsection",ExpressionUUID->"9f492a8d-7d8b-486c-88bd-234a4a43e007", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "ContributorInformation"->{ Cell[199269, 5435, 918, 24, 70, "Subsection",ExpressionUUID->"9f492a8d-7d8b-486c-88bd-234a4a43e007", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "Keywords"->{ Cell[200278, 5467, 893, 24, 70, "Subsection",ExpressionUUID->"865c5cdd-6a1f-4ca0-8448-87d3205baace", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136]}, "Categories"->{ Cell[201553, 5514, 167, 5, 70, "Subsection",ExpressionUUID->"0fb00f54-0f0c-40b7-a94f-062c1a4a43a7", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420]}, "Related Symbols"->{ Cell[202064, 5539, 870, 24, 70, "Subsection",ExpressionUUID->"0d8bbaa3-e562-4907-8d1f-6934df5bb475", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728]}, "Related Resource Objects"->{ Cell[203141, 5577, 919, 24, 70, "Subsection",ExpressionUUID->"72bcdbcd-c10a-4046-a81b-c045ddc55d86", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769]}, "Source/Reference Citation"->{ Cell[204563, 5630, 971, 25, 70, "Subsection",ExpressionUUID->"0618fcd6-73af-4020-b285-17e82ab6cdbd", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429]}, "Links"->{ Cell[206439, 5692, 823, 24, 70, "Subsection",ExpressionUUID->"7a45be1a-c948-484b-b41c-29ecb711ef1e", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842]}, "Tests"->{ Cell[208024, 5742, 1762, 43, 70, "Subsection",ExpressionUUID->"cbd90b52-74ce-4ff4-bf78-f78c4bb77b53", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "VerificationTests"->{ Cell[208024, 5742, 1762, 43, 70, "Subsection",ExpressionUUID->"cbd90b52-74ce-4ff4-bf78-f78c4bb77b53", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "Author Notes"->{ Cell[210097, 5805, 1048, 26, 70, "Section",ExpressionUUID->"fb69b4f0-1b36-4465-9c82-9cd7135d3e9a", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325]}, "Submission Notes"->{ Cell[211694, 5846, 929, 25, 70, "Section",ExpressionUUID->"3dd62a0d-d852-4b4a-89d2-da1a2782ffc4", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 325009, 8020}, {"TemplateCell", 325191, 8024}, {"Title", 325526, 8031}, {"Description", 325707, 8035}, {"Definition", 325885, 8039}, {"Function", 326082, 8043}, {"TemplateCellGroup", 326288, 8047}, {"TabNext", 328849, 8090}, {"Documentation", 329724, 8109}, {"TemplateSection", 329916, 8113}, {"Usage", 330289, 8120}, {"Details & Options", 330483, 8124}, {"Notes", 330686, 8128}, {"Examples", 330892, 8132}, {"Source & Additional Information", 331102, 8136}, {"Contributed By", 331315, 8140}, {"ContributorInformation", 331551, 8144}, {"Keywords", 331773, 8148}, {"Categories", 331965, 8152}, {"Related Symbols", 332163, 8156}, {"Related Resource Objects", 332376, 8160}, {"Source/Reference Citation", 332598, 8164}, {"Links", 332802, 8168}, {"Tests", 332986, 8172}, {"VerificationTests", 333204, 8176}, {"Author Notes", 333417, 8180}, {"Submission Notes", 333617, 8184} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[627, 23, 94, 2, 70, "Title",ExpressionUUID->"2e2a22c1-7a57-4ed6-bb12-4e84f47e410a", CellTags->{"Name", "TemplateCell", "Title"}, CellID->627248365], Cell[724, 27, 128, 2, 70, "Text",ExpressionUUID->"cc8d87a0-9eba-4e0a-b3fe-7ef9dbe295aa", CellTags->{"Description", "TemplateCell"}, CellID->345142523], Cell[CellGroupData[{ Cell[877, 33, 1104, 27, 70, "Section",ExpressionUUID->"45ae5e86-2396-4cb8-89ff-b8d06ce27677", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[1984, 62, 2266, 41, 70, "Input",ExpressionUUID->"2bf9bc57-c928-4ed7-bf7a-bd39f0c94cf8", CellTags->"TabNext", CellID->57050588], Cell[4253, 105, 896, 18, 70, "Input",ExpressionUUID->"47844e08-7def-4121-90f9-6197cbf3f6c4", CellID->897965044] }, Open ]], Cell[CellGroupData[{ Cell[5186, 128, 137, 4, 70, "Section",ExpressionUUID->"a25bb478-0687-46ab-821e-e5c9951418b2", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[5348, 136, 1880, 48, 70, "Subsection",ExpressionUUID->"bd6438c2-6977-4c01-bdde-c7ee5af52c86", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[7253, 188, 222, 7, 70, "UsageInputs",ExpressionUUID->"16dc1e13-133a-4bc2-bac5-9723eda67247", CellID->556542600], Cell[7478, 197, 482, 16, 70, "UsageDescription",ExpressionUUID->"21b458e2-ad28-482c-9dc2-ca968d9b5607", CellID->276687399] }, Open ]], Cell[CellGroupData[{ Cell[7997, 218, 275, 9, 70, "UsageInputs",ExpressionUUID->"250ca98d-5d0c-4eb6-ab55-d723387cded3", CellID->80369402], Cell[8275, 229, 261, 8, 70, "UsageDescription",ExpressionUUID->"554019bb-4468-47de-a3f6-487ad10880a8", CellID->306623013] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8585, 243, 1329, 30, 70, "Subsection",ExpressionUUID->"05d7ebbb-0872-4035-86f9-6bdd68eb7593", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[9917, 275, 569, 9, 70, "Notes",ExpressionUUID->"9491a974-74c7-4f30-a84d-3b97074d3a55", CellTags->"TabNext", CellID->992123199], Cell[10489, 286, 1878, 54, 70, "TableNotes",ExpressionUUID->"2bd2b73d-5cbc-42da-9797-8199fde1f8ad", CellID->102655877], Cell[12370, 342, 577, 9, 70, "Notes",ExpressionUUID->"ea6240de-d885-4b80-b5c0-e8cf188c708a", CellID->959544555], Cell[12950, 353, 1238, 29, 70, "TableNotes",ExpressionUUID->"66cada4c-1539-4409-8138-1fbbb01e9cc3", CellID->309479269], Cell[14191, 384, 699, 13, 70, "Notes",ExpressionUUID->"5a307ee5-5192-4d8d-9980-7bc5e9ee3722", CellID->155689613], Cell[14893, 399, 1101, 21, 70, "TableNotes",ExpressionUUID->"2db74264-31d7-4203-b724-3fb0d7607641", CellID->625844737], Cell[15997, 422, 1251, 28, 70, "Notes",ExpressionUUID->"d13a8479-08f0-4485-8747-089d06b6f913", CellID->410797644], Cell[17251, 452, 821, 18, 70, "TableNotes",ExpressionUUID->"674fbb0f-c7a5-4acf-bc57-88c082c2f943", CellID->73431620], Cell[18075, 472, 1011, 18, 70, "Notes",ExpressionUUID->"b0acd1b8-9d9a-4f37-aee8-a203b299c652", CellID->445954247], Cell[19089, 492, 1434, 32, 70, "Notes",ExpressionUUID->"ad1bf639-baac-4683-81c4-e9507f582cf4", CellID->79908213], Cell[20526, 526, 1123, 20, 70, "Notes",ExpressionUUID->"8a276886-2702-478d-bad5-242504f7a994", CellID->877663283], Cell[21652, 548, 1336, 23, 70, "Notes",ExpressionUUID->"e5291341-967d-4a13-aad9-065ee35c9fbf", CellID->792573195], Cell[22991, 573, 2356, 55, 70, "TableNotes",ExpressionUUID->"de8ed5e7-a882-449c-943c-f58dd1e01f7a", CellID->921999960], Cell[25350, 630, 860, 15, 70, "Notes",ExpressionUUID->"f174d3d4-db8a-4c15-88dd-a724e2642b24", CellTags->"TabNext", CellID->301127480], Cell[26213, 647, 709, 13, 70, "Notes",ExpressionUUID->"5414e741-99d5-42ca-9870-d12d65e05b47", CellTags->"TabNext", CellID->340823985] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26971, 666, 6926, 150, 70, "Section",ExpressionUUID->"0a323cdb-d473-4062-87af-35ece6ddfd3d", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell[33922, 820, 56, 1, 70, "Subsection",ExpressionUUID->"d4591f94-8f78-4927-8085-c108ee15333d", CellID->462042388], Cell[33981, 823, 281, 6, 70, "Text",ExpressionUUID->"5c9f0599-51bf-4739-925f-994555a7cb3e", CellID->773551605], Cell[CellGroupData[{ Cell[34287, 833, 520, 12, 70, "Input",ExpressionUUID->"6b667494-cdf1-4a8f-b8c5-b048ed47b43e", CellID->659763335], Cell[34810, 847, 501, 13, 70, "Output",ExpressionUUID->"15dec1de-540f-48b3-8f30-2345a0736fae", CellID->382487704] }, Open ]], Cell[CellGroupData[{ Cell[35348, 865, 473, 12, 70, "Input",ExpressionUUID->"5db4d0d7-5f17-48b7-8f68-86ee741b9504", CellID->555310410], Cell[35824, 879, 1426, 35, 70, "Output",ExpressionUUID->"ad6f88f1-6e47-41ab-be36-4c9cb1fe366e", CellID->129673350] }, Open ]], Cell[CellGroupData[{ Cell[37287, 919, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"812f780e-d97b-4961-a77c-50d27c65e34c", CellID->224031726], Cell[37415, 924, 180, 3, 70, "Text",ExpressionUUID->"90d92ceb-c2cb-47c9-9e05-040b13812322", CellID->845494834], Cell[CellGroupData[{ Cell[37620, 931, 491, 13, 70, "Input",ExpressionUUID->"35b6177b-4945-4a29-a172-96e79d7f28bc", CellID->713729598], Cell[38114, 946, 551, 15, 70, "Output",ExpressionUUID->"5dec200b-9b71-4ec0-b739-b04cf5153c4e", CellID->883706698] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[38714, 967, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"518dcd8d-daeb-478a-b088-85ac66b0f2e1", CellID->224031727], Cell[38842, 972, 313, 7, 70, "Text",ExpressionUUID->"9c8da0f4-5491-4741-8722-941ca55fc475", CellID->150511216], Cell[CellGroupData[{ Cell[39180, 983, 420, 11, 70, "Input",ExpressionUUID->"23fc63e1-1f59-4ab1-a317-21eb94b256e8", CellID->518999917], Cell[39603, 996, 401, 11, 70, "Output",ExpressionUUID->"31c593e9-54de-4f17-a012-ef3593570107", CellID->140589089] }, Open ]], Cell[CellGroupData[{ Cell[40041, 1012, 477, 12, 70, "Input",ExpressionUUID->"d3b0b451-5faf-4a5b-83d6-0494a6ea3150", CellID->190461484], Cell[40521, 1026, 184, 5, 70, "Output",ExpressionUUID->"081b770b-8e47-467b-a245-1a2a2bf0b1d5", CellID->412267331] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40754, 1037, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"70ed41c5-4a64-41bb-879d-385de13ecad8", CellID->224031728], Cell[40882, 1042, 396, 8, 70, "Text",ExpressionUUID->"b1606941-26bb-42e8-a3df-392abf9a4def", CellID->660727651], Cell[CellGroupData[{ Cell[41303, 1054, 1204, 34, 70, "Input",ExpressionUUID->"99d3986f-d3c7-44f4-af68-2a5ba025d24a", CellID->375716984], Cell[42510, 1090, 949, 28, 70, "Output",ExpressionUUID->"2f8b38aa-8fac-45a6-b944-3570fd084c39", CellID->766352833] }, Open ]], Cell[CellGroupData[{ Cell[43496, 1123, 386, 10, 70, "Input",ExpressionUUID->"a5a6234a-a299-4948-aea1-05facfa9a9e3", CellID->754388989], Cell[43885, 1135, 1818, 55, 70, "Output",ExpressionUUID->"04afaa2a-564a-4efc-8fbe-ccfa919fdb24", CellID->204396048] }, Open ]], Cell[CellGroupData[{ Cell[45740, 1195, 660, 19, 70, "Input",ExpressionUUID->"308e7b4d-d63b-4cdd-a0a5-9c66c830c825", CellID->577049433], Cell[46403, 1216, 711, 22, 70, "Output",ExpressionUUID->"16d41d35-7488-4040-aef8-9201f272fa54", CellID->859905320] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47163, 1244, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"86698006-8b74-44fc-a85d-eed54df7a7e7", CellID->224031729], Cell[47291, 1249, 410, 8, 70, "Text",ExpressionUUID->"6b929b9d-f9f5-43d6-ac70-babe0a9c4975", CellID->256643133], Cell[CellGroupData[{ Cell[47726, 1261, 421, 11, 70, "Input",ExpressionUUID->"e0efa580-c6ed-4dba-bb17-023dd6abf154", CellID->704370900], Cell[48150, 1274, 1380, 35, 70, "Output",ExpressionUUID->"6ebb191d-c511-4983-ad60-d8a2f88c8148", CellID->198475664] }, Open ]], Cell[CellGroupData[{ Cell[49567, 1314, 553, 13, 70, "Input",ExpressionUUID->"94cb382f-587e-45e1-8260-a0c01b26b16f", CellID->887710737], Cell[50123, 1329, 4513, 155, 70, "Output",ExpressionUUID->"2040cef1-bf12-4314-8b67-a5a586b2051c", CellID->815802664] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[54697, 1491, 47, 1, 70, "Subsection",ExpressionUUID->"e192613e-8099-4508-b640-adf7f2989a4d", CellID->964056545], Cell[CellGroupData[{ Cell[54769, 1496, 123, 2, 70, "Subsubsection",ExpressionUUID->"49f5cb4e-3baa-4f3b-ae42-44fae1e60246", CellID->604205909], Cell[54895, 1500, 546, 10, 70, "Text",ExpressionUUID->"31b1dfec-c9c9-4582-8b2a-775555269d79", CellID->660315145], Cell[CellGroupData[{ Cell[55466, 1514, 475, 12, 70, "Input",ExpressionUUID->"ffd80c41-4d1a-4fa9-9257-3d21d4851979", CellID->852127017], Cell[55944, 1528, 302, 7, 70, "Output",ExpressionUUID->"5ca43f1f-03ec-4b03-afdc-efae8e273649", CellID->388277278] }, Open ]], Cell[CellGroupData[{ Cell[56283, 1540, 710, 22, 70, "Input",ExpressionUUID->"7f1a2c55-e2ec-44f0-93b5-bbcdfabb14f4", CellID->556690563], Cell[56996, 1564, 408, 13, 70, "Output",ExpressionUUID->"21e7287b-179e-40c6-b3ae-deda88d85882", CellID->234016498] }, Open ]], Cell[57419, 1580, 295, 4, 70, "Text",ExpressionUUID->"cdbf38bf-0b2a-4740-91d1-ca2f79d216ae", CellID->843098503], Cell[CellGroupData[{ Cell[57739, 1588, 17090, 431, 70, "Input",ExpressionUUID->"aef2bc55-a1cd-45b4-b981-1dffa7a12b64", CellID->208151207], Cell[74832, 2021, 51804, 1319, 70, "Output",ExpressionUUID->"6661ad5b-a621-4c32-8a32-9c700fc88081", CellID->188593293] }, Open ]], Cell[CellGroupData[{ Cell[126673, 3345, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"f44aa7d8-4209-40f2-87b4-b810609805bb", CellID->224031730], Cell[126801, 3350, 340, 5, 70, "Text",ExpressionUUID->"b1d7bfb2-c23a-497b-90ec-5ae63babf9ea", CellID->477259298], Cell[CellGroupData[{ Cell[127166, 3359, 690, 20, 70, "Input",ExpressionUUID->"1d926661-3f93-4a16-a1a1-a37712abfa92", CellID->182088202], Cell[127859, 3381, 4195, 127, 70, "Output",ExpressionUUID->"6e2de1d5-323c-4e2c-92ae-1ab8b362539a", CellID->666726113] }, Open ]], Cell[132069, 3511, 433, 8, 70, "Text",ExpressionUUID->"226eb902-a990-4a8c-9678-e2061aefa1a4", CellID->200836085], Cell[CellGroupData[{ Cell[132527, 3523, 701, 20, 70, "Input",ExpressionUUID->"612c700e-8b80-4d02-9824-a29ea183dd24", CellID->954035753], Cell[133231, 3545, 4169, 127, 70, "Output",ExpressionUUID->"1fbdf014-2fc4-46c4-b55d-7222e079e050", CellID->281780404] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[137449, 3678, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"7e913982-3290-49a3-9843-1431928371d8", CellID->224031731], Cell[137577, 3683, 657, 12, 70, "Text",ExpressionUUID->"ed65b70d-76e3-44f2-9d80-792932cccaff", CellID->697845782], Cell[CellGroupData[{ Cell[138259, 3699, 492, 13, 70, "Input",ExpressionUUID->"1284db0b-ba0b-42b1-b1c9-4da40884dc23", CellID->237841805], Cell[138754, 3714, 903, 28, 70, "Output",ExpressionUUID->"5c0e71a7-c107-4d2e-8ca6-9f2fb3165964", CellID->950915791] }, Open ]], Cell[139672, 3745, 650, 11, 70, "Text",ExpressionUUID->"2aa13a05-e16e-4872-9c8f-d32801246c89", CellID->51041547], Cell[CellGroupData[{ Cell[140347, 3760, 441, 12, 70, "Input",ExpressionUUID->"ad1d7dc1-de12-4658-84a1-e70d21ec37a7", CellID->694066048], Cell[140791, 3774, 7998, 244, 70, "Output",ExpressionUUID->"f624ed1c-aa48-4373-8ce5-4d28b390c3bd", CellID->88747991] }, Open ]], Cell[148804, 4021, 606, 8, 70, "Text",ExpressionUUID->"c5296187-b4c7-480d-b1d5-044e417e2562", CellID->794810968], Cell[CellGroupData[{ Cell[149435, 4033, 387, 10, 70, "Input",ExpressionUUID->"37712afa-adba-4b44-a5ea-623d8d84f93c", CellID->819122378], Cell[149825, 4045, 398, 12, 70, "Output",ExpressionUUID->"7b70c80f-0998-4768-bd58-3e13823f76cf", CellID->472229915] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[150272, 4063, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"59da6b57-0a04-40c4-b2af-cb477aef7528", CellID->224031732], Cell[150400, 4068, 700, 12, 70, "Text",ExpressionUUID->"acd68a62-61e8-4445-ada8-af4c6a3de45e", CellID->723587552], Cell[CellGroupData[{ Cell[151125, 4084, 1147, 36, 70, "Input",ExpressionUUID->"ab7d2701-0166-47e7-a6ac-9a67377c9770", CellID->129442126], Cell[152275, 4122, 998, 31, 70, "Output",ExpressionUUID->"f9dc4121-0e69-4d80-93db-02a312187006", CellID->153598516] }, Open ]], Cell[CellGroupData[{ Cell[153310, 4158, 911, 27, 70, "Input",ExpressionUUID->"73ea22f8-3b57-4ee7-bbd5-855f2f83b641", CellID->516640004], Cell[154224, 4187, 153, 4, 70, "Output",ExpressionUUID->"b00e3ec0-6208-4aae-8600-387dc05c5e00", CellID->653366462] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[154426, 4197, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"a98ebd8c-c617-4378-82dd-eb41e1c5cf79", CellID->224031733], Cell[154554, 4202, 847, 13, 70, "Text",ExpressionUUID->"5cb785e6-8997-4f1a-98b4-e141aa9c1526", CellID->355265985], Cell[CellGroupData[{ Cell[155426, 4219, 1370, 30, 70, "Input",ExpressionUUID->"2b498763-eced-48e9-b5e4-04ceb65d05aa", CellID->566974], Cell[156799, 4251, 795, 20, 70, "Output",ExpressionUUID->"735ca43f-bd3a-4877-8d33-8668102101ee", CellID->831799941] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[157655, 4278, 190, 3, 70, "Subsubsection",ExpressionUUID->"2a49df6e-63dc-4d13-8660-79701f86890b", CellID->547613991], Cell[157848, 4283, 920, 15, 70, "Text",ExpressionUUID->"4232e1be-bcd1-4c17-8d1d-4e59774b89a9", CellID->356275519], Cell[CellGroupData[{ Cell[158793, 4302, 413, 9, 70, "Input",ExpressionUUID->"0a00a6de-d129-4ed8-81aa-9e3eb2870c66", CellID->853613307], Cell[159209, 4313, 301, 7, 70, "Output",ExpressionUUID->"dffb6a98-90a7-4fca-97a3-e7ea9443deb5", CellID->14742083] }, Open ]], Cell[CellGroupData[{ Cell[159547, 4325, 472, 12, 70, "Input",ExpressionUUID->"af166514-d9e0-4b65-a0da-37f23173df6f", CellID->512575565], Cell[160022, 4339, 1115, 28, 70, "Output",ExpressionUUID->"6540c571-e696-4d92-b95e-3d8196013136", CellID->200598931] }, Open ]], Cell[161152, 4370, 720, 10, 70, "Text",ExpressionUUID->"aa24a69f-c302-41dd-a6b3-e62c141db88a", CellID->318690416], Cell[CellGroupData[{ Cell[161897, 4384, 525, 14, 70, "Input",ExpressionUUID->"ae87d1b4-cddb-4638-b896-4e7ac4551bc6", CellID->821676203], Cell[162425, 4400, 2908, 72, 70, "Output",ExpressionUUID->"b7fcfdd9-5530-4ed9-822c-b12a85cea22e", CellID->329943499] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[165382, 4478, 236, 4, 70, "Subsubsection",ExpressionUUID->"2399e044-7c2b-44e6-97e2-9a49426f8cde", CellID->262662783], Cell[165621, 4484, 790, 11, 70, "Text",ExpressionUUID->"85cfc59f-ee4f-4015-bf74-9a6ac2d3ad4b", CellID->243887168], Cell[CellGroupData[{ Cell[166436, 4499, 519, 13, 70, "Input",ExpressionUUID->"7b78ac64-b006-4966-b147-35d0ab5dc1e9", CellID->669148147], Cell[166958, 4514, 208, 6, 70, "Output",ExpressionUUID->"44493976-36bc-47d9-be00-a9442ff1cfcf", CellID->30576446] }, Open ]], Cell[CellGroupData[{ Cell[167203, 4525, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"a162035b-43fc-4071-8fb2-d9bf1efbd521", CellID->224031734], Cell[167331, 4530, 793, 11, 70, "Text",ExpressionUUID->"a6576354-c37b-4950-8074-695dbffd7158", CellID->426646543], Cell[CellGroupData[{ Cell[168149, 4545, 680, 19, 70, "Input",ExpressionUUID->"8a99c306-2946-44fd-953a-6291458315e7", CellID->666864216], Cell[168832, 4566, 280, 8, 70, "Output",ExpressionUUID->"ca01c772-ec2f-437b-b795-8b49e35d3fce", CellID->886214588] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[169161, 4580, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"e74170ce-3709-46c8-85e8-71f818666e41", CellID->224031735], Cell[169289, 4585, 910, 15, 70, "Text",ExpressionUUID->"0d0c1e92-1203-4cce-a078-f46f287106c7", CellID->531956355], Cell[CellGroupData[{ Cell[170224, 4604, 563, 13, 70, "Input",ExpressionUUID->"f624930f-95b8-4abc-b61c-40ad85841d67", CellID->301640544], Cell[170790, 4619, 1118, 28, 70, "Output",ExpressionUUID->"9349a74e-00e5-4800-be04-30fe5d788473", CellID->438784417] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[171981, 4655, 91, 2, 70, "Subsection",ExpressionUUID->"4ec0994c-bd3b-471d-9972-da500215e749", CellID->776923543], Cell[172075, 4659, 876, 12, 70, "Text",ExpressionUUID->"1f760542-7b44-4033-a36c-e30a407bf8ac", CellID->959360977], Cell[CellGroupData[{ Cell[172976, 4675, 545, 13, 70, "Input",ExpressionUUID->"72368d10-b746-4ed5-bdc0-c8ab423248f5", CellID->13312565], Cell[173524, 4690, 3383, 83, 70, "Output",ExpressionUUID->"7424f07d-9387-45fe-bfa1-7f7e43f41b2c", CellID->258787359] }, Open ]], Cell[CellGroupData[{ Cell[176944, 4778, 738, 22, 70, "Input",ExpressionUUID->"7dabdde5-e420-4ab8-8609-a85569165029", CellID->813071816], Cell[177685, 4802, 8517, 259, 70, "Output",ExpressionUUID->"12860dc8-ad07-45a6-a592-8189f90801ab", CellID->363237467] }, Open ]], Cell[CellGroupData[{ Cell[186239, 5066, 482, 7, 70, "Subsubsection",ExpressionUUID->"970f1566-0de0-47de-b5ca-8d23a9777977", CellID->106626330], Cell[186724, 5075, 423, 8, 70, "Text",ExpressionUUID->"50c25ee5-14b7-4a12-8ef1-1784838f7dca", CellID->144795908], Cell[CellGroupData[{ Cell[187172, 5087, 490, 12, 70, "Input",ExpressionUUID->"3edc4bf8-5c9e-4d1f-9bab-d5728615b1b3", CellID->612577106], Cell[187665, 5101, 736, 20, 70, "Output",ExpressionUUID->"c768c5a3-6d21-4f4b-a703-ceb298a06ffa", CellID->555077275] }, Open ]], Cell[188416, 5124, 507, 9, 70, "Text",ExpressionUUID->"c2901815-e19c-47a0-9b88-ec04b853664a", CellID->81233446], Cell[CellGroupData[{ Cell[188948, 5137, 512, 13, 70, "Input",ExpressionUUID->"7b58ec91-b808-4312-8f93-f12983448857", CellID->469962206], Cell[189463, 5152, 1043, 29, 70, "Output",ExpressionUUID->"4789daa6-d998-458f-a188-3a1d4ff48b18", CellID->590305632] }, Open ]], Cell[190521, 5184, 504, 9, 70, "Text",ExpressionUUID->"548fb9b6-9150-4685-a42b-00db57c2a94c", CellID->445954640], Cell[CellGroupData[{ Cell[191050, 5197, 574, 13, 70, "Input",ExpressionUUID->"a5977d9c-9d96-4570-b09f-069993e22f73", CellID->500534891], Cell[191627, 5212, 1888, 65, 70, "Output",ExpressionUUID->"02638535-c3c5-4401-bb70-7b54e7a45a3f", CellID->738183569] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[193564, 5283, 727, 10, 70, "Subsubsection",ExpressionUUID->"52beb943-ca0b-4de3-a6ca-462177b11a2e", CellID->260416806], Cell[194294, 5295, 646, 13, 70, "Text",ExpressionUUID->"11336659-e28f-4448-afd4-dfe4b7c3b6c9", CellID->284985345], Cell[CellGroupData[{ Cell[194965, 5312, 430, 11, 70, "Input",ExpressionUUID->"a682ad4e-0775-4af2-bc68-e69969daf85e", CellID->325435470], Cell[195398, 5325, 1076, 27, 70, "Output",ExpressionUUID->"d1be1d1e-292f-4f3f-9c19-74808818fd86", CellID->737547824] }, Open ]], Cell[196489, 5355, 472, 8, 70, "Text",ExpressionUUID->"ceca8f74-806d-4f37-af04-d1e6f8ae6119", CellID->652843204], Cell[CellGroupData[{ Cell[196986, 5367, 499, 13, 70, "Input",ExpressionUUID->"6841826e-199b-43b9-aebb-467f0197b00f", CellID->808621234], Cell[197488, 5382, 1509, 37, 70, "Output",ExpressionUUID->"51623e05-3f80-47f5-aa83-0c56f02726e4", CellID->823029606] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[199070, 5427, 174, 4, 70, "Section",ExpressionUUID->"19268110-26e3-47c7-a7ca-c3b8d427b1c3", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[199269, 5435, 918, 24, 70, "Subsection",ExpressionUUID->"9f492a8d-7d8b-486c-88bd-234a4a43e007", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[200190, 5461, 51, 1, 70, "Text",ExpressionUUID->"01f59e46-2c37-4beb-b749-97d271e46c21", CellID->533273918] }, Open ]], Cell[CellGroupData[{ Cell[200278, 5467, 893, 24, 70, "Subsection",ExpressionUUID->"865c5cdd-6a1f-4ca0-8448-87d3205baace", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[201174, 5493, 55, 1, 70, "Item",ExpressionUUID->"4ecc6bf6-e854-422d-813f-8102af26d837", CellID->871734526], Cell[201232, 5496, 50, 1, 70, "Item",ExpressionUUID->"0d3228b1-e541-4855-9e40-f9af2ad49836", CellID->517761194], Cell[201285, 5499, 54, 1, 70, "Item",ExpressionUUID->"97fcfba2-dd35-4d62-8e15-fb1abb36bb20", CellID->691879880], Cell[201342, 5502, 53, 1, 70, "Item",ExpressionUUID->"118de0d4-a445-4486-8e06-e3dc300db5d4", CellID->130195157], Cell[201398, 5505, 54, 1, 70, "Item",ExpressionUUID->"60ff6491-7fc5-483b-874a-a98438889b91", CellID->803040677], Cell[201455, 5508, 61, 1, 70, "Item",ExpressionUUID->"a0b5f208-d578-4b9d-a89b-f260949d6630", CellID->274134134] }, Open ]], Cell[CellGroupData[{ Cell[201553, 5514, 167, 5, 70, "Subsection",ExpressionUUID->"0fb00f54-0f0c-40b7-a94f-062c1a4a43a7", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[201723, 5521, 53, 1, 70, "Item",ExpressionUUID->"e0a4d847-4566-4b63-a303-24f2afd32fca", CellID->197113425], Cell[201779, 5524, 67, 1, 70, "Item",ExpressionUUID->"2975a392-a663-418a-be83-207dfaf3dcee", CellID->899989995], Cell[201849, 5527, 50, 1, 70, "Item",ExpressionUUID->"7ea21011-7a10-4967-9ac5-0d1248c57a82", CellID->297764926], Cell[201902, 5530, 66, 1, 70, "Item",ExpressionUUID->"30afa03a-7f2f-4447-8d8b-69ad592c9536", CellID->747815033], Cell[201971, 5533, 56, 1, 70, "Item",ExpressionUUID->"ef6e4901-3920-40ab-8518-d69e5adc6079", CellID->254453] }, Open ]], Cell[CellGroupData[{ Cell[202064, 5539, 870, 24, 70, "Subsection",ExpressionUUID->"0d8bbaa3-e562-4907-8d1f-6934df5bb475", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[202937, 5565, 53, 1, 70, "Item",ExpressionUUID->"7a8913d6-de67-4b08-a35b-92ef7b876638", CellID->12751187], Cell[202993, 5568, 53, 1, 70, "Item",ExpressionUUID->"06ba8bbf-bbc3-4362-b819-1d1ae0197a7e", CellID->835189925], Cell[203049, 5571, 55, 1, 70, "Item",ExpressionUUID->"10fe476e-f898-4a82-8012-09bf824cae8a", CellID->591981159] }, Open ]], Cell[CellGroupData[{ Cell[203141, 5577, 919, 24, 70, "Subsection",ExpressionUUID->"72bcdbcd-c10a-4046-a81b-c045ddc55d86", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[204063, 5603, 50, 1, 70, "Item",ExpressionUUID->"c2c6df23-4f87-411b-a9f5-657cb1405097", CellID->770824232], Cell[204116, 5606, 47, 1, 70, "Item",ExpressionUUID->"50143728-fd29-488c-9782-15187e97ebce", CellID->13812411], Cell[204166, 5609, 57, 1, 70, "Item",ExpressionUUID->"55c3329a-1f93-4bc0-bbc4-4e11fa414c77", CellID->393954331], Cell[204226, 5612, 56, 1, 70, "Item",ExpressionUUID->"5a6699e7-8e53-4393-be16-c785e17a8c2c", CellID->399961040], Cell[204285, 5615, 52, 1, 70, "Item",ExpressionUUID->"c81e4e9d-a07c-4826-87aa-05d03595407a", CellID->371070148], Cell[204340, 5618, 57, 1, 70, "Item",ExpressionUUID->"66829e3b-7361-4814-88d9-6705e62dca89", CellID->593777050], Cell[204400, 5621, 57, 1, 70, "Item",ExpressionUUID->"a0d5f19e-0c26-40cb-befb-59a03814d768", CellID->184754487], Cell[204460, 5624, 66, 1, 70, "Item",ExpressionUUID->"64a596c1-0b49-4224-85cf-18941949493d", CellID->222617539] }, Open ]], Cell[CellGroupData[{ Cell[204563, 5630, 971, 25, 70, "Subsection",ExpressionUUID->"0618fcd6-73af-4020-b285-17e82ab6cdbd", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[205537, 5657, 183, 6, 70, "Text",ExpressionUUID->"28139386-09ab-49f9-b418-5f80afb8d7d1", CellID->204387779], Cell[205723, 5665, 227, 6, 70, "Text",ExpressionUUID->"f16830c2-49e5-4178-994c-be14c53e66bc", CellID->366317704], Cell[205953, 5673, 229, 6, 70, "Text",ExpressionUUID->"391c8399-7c79-4daa-9986-44002a8caa84", CellID->268125786], Cell[206185, 5681, 217, 6, 70, "Text",ExpressionUUID->"0ee14dac-85fc-40af-89ba-e67f67188860", CellID->539412096] }, Open ]], Cell[CellGroupData[{ Cell[206439, 5692, 823, 24, 70, "Subsection",ExpressionUUID->"7a45be1a-c948-484b-b41c-29ecb711ef1e", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[207265, 5718, 222, 5, 70, "Item",ExpressionUUID->"81460e55-892a-43af-8566-8b313bf89d8c", CellID->702248223], Cell[207490, 5725, 220, 5, 70, "Item",ExpressionUUID->"1a8c5878-53ee-43d7-bdd9-6141436886f0", CellID->723889498], Cell[207713, 5732, 274, 5, 70, "Item",ExpressionUUID->"1ca8e086-97d8-4dc8-8a23-7e7cdb3382e6", CellID->527194634] }, Open ]], Cell[CellGroupData[{ Cell[208024, 5742, 1762, 43, 70, "Subsection",ExpressionUUID->"cbd90b52-74ce-4ff4-bf78-f78c4bb77b53", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[209811, 5789, 129, 4, 70, "Input",ExpressionUUID->"0394894a-3e09-406f-9bf3-8d9c7d86cbe7", CellID->667877521], Cell[209943, 5795, 93, 3, 70, "Output",ExpressionUUID->"b735d879-edae-4711-b2b8-8289c2cb010b", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[210097, 5805, 1048, 26, 70, "Section",ExpressionUUID->"fb69b4f0-1b36-4465-9c82-9cd7135d3e9a", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[211148, 5833, 509, 8, 70, "Text",ExpressionUUID->"4cbd5995-3a20-4d7d-bf4e-4a9ee4d3375b", CellTags->"TabNext", CellID->991784503] }, Open ]], Cell[CellGroupData[{ Cell[211694, 5846, 929, 25, 70, "Section",ExpressionUUID->"3dd62a0d-d852-4b4a-89d2-da1a2782ffc4", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell[212626, 5873, 495, 8, 70, "Text",ExpressionUUID->"7133bc42-f485-4d72-b111-1d9775d69f24", CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)