(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 134137, 3266] NotebookOptionsPosition[ 77233, 2064] NotebookOutlinePosition[ 127412, 3110] CellTagsIndexPosition[ 126839, 3090] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["MobileAutomatonRulePlot", "Title", CellChangeTimes->{{3.751939024201107*^9, 3.751939027862863*^9}}, CellTags->{"Title", "TabNext"}, CellID->18217985], Cell["Generate the rule icon for a mobile automaton.", "Text", CellChangeTimes->{{3.752926969337956*^9, 3.7529269873886967`*^9}}, CellTags->{"Description", "TabNext"}, CellID->27787318], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name above. All definitions, including \ dependencies, will be included in the resource function when it is generated. \ Additional cells can be added and definitions can be given for multiple input \ cases.\n\nThis section should be evaluated before evaluating creating the \ Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->40452676], Cell[BoxData[ RowBox[{ RowBox[{"MobileAutomatonRulePlot", "[", RowBox[{"rules", ":", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", "__Integer", "}"}], "\[Rule]", RowBox[{"{", RowBox[{"_Integer", ",", "_Integer"}], "}"}]}], ")"}], ".."}], "}"}]}], "]"}], ":=", "\n", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"rp", "=", RowBox[{"Reverse", "[", RowBox[{"Sort", "[", "rules", "]"}], "]"}]}], ",", RowBox[{"d", "=", ".1"}]}], "}"}], ",", "\n", " ", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "+", "1"}], ",", "1"}], "}"}], ",", "\n", " ", RowBox[{"mag0", "[", RowBox[{"rp", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "0.25", "]"}], ",", "\n", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"1", "-", "d"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "\n", " ", RowBox[{ RowBox[{"Length", "[", "rules", "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "0.25", "]"}], ",", "\n", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "rules", "]"}], ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "rules", "]"}], ",", RowBox[{"1", "-", "d"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "-", "d"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\n", " ", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.7519390487160873`*^9, {3.7519391922958193`*^9, 3.751939206359274*^9}, { 3.751939250013898*^9, 3.7519392545750513`*^9}}, CellLabel->"In[1]:=", CellID->984624922], Cell[BoxData[ RowBox[{ RowBox[{"MobileAutomatonRulePlot", "[", RowBox[{"rules", ":", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", "__Integer", "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "__Integer", "}"}], ",", "_Integer"}], "}"}]}], ")"}], ".."}], "}"}]}], "]"}], ":=", "\n", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"rp", "=", RowBox[{"Reverse", "[", RowBox[{"Sort", "[", "rules", "]"}], "]"}]}], ",", RowBox[{"d", "=", ".1"}]}], "}"}], ",", "\n", " ", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "+", "1"}], ",", "1"}], "}"}], ",", "\n", " ", RowBox[{"mag0", "[", RowBox[{"rp", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "0.25", "]"}], ",", "\n", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"1", "-", "d"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "\n", " ", RowBox[{ RowBox[{"Length", "[", "rules", "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "0.25", "]"}], ",", "\n", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "rules", "]"}], ",", "d"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "rules", "]"}], ",", RowBox[{"1", "-", "d"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "-", "d"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", "\n", " ", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.7519390487160873`*^9, {3.7519391922958193`*^9, 3.751939206359274*^9}, { 3.751939250013898*^9, 3.7519392545750513`*^9}, {3.752927091516343*^9, 3.752927098919198*^9}}, CellLabel->"In[2]:=", CellID->1351930258], Cell[BoxData[ RowBox[{ RowBox[{"MobileAutomatonRulePlot", "[", RowBox[{"rulespec", ":", RowBox[{"{", RowBox[{"_Integer", ",", "_Integer"}], "}"}]}], "]"}], ":=", RowBox[{"MobileAutomatonRulePlot", "[", RowBox[{"ToMARule", "[", "rulespec", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.751939263534877*^9, 3.7519393011204042`*^9}}, CellLabel->"In[3]:=", CellID->692161424], Cell[BoxData[ RowBox[{ RowBox[{"ToMARule", "[", RowBox[{ RowBox[{"{", RowBox[{"sn_Integer", ",", "dn_Integer"}], "}"}], ",", RowBox[{"k_Integer:", "2"}]}], "]"}], ":=", RowBox[{"MapThread", "[", RowBox[{ RowBox[{ RowBox[{"#1", "\[Rule]", RowBox[{"{", RowBox[{"#2", ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "#3"]}], "}"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Tuples", "[", RowBox[{ RowBox[{"Reverse", "[", RowBox[{ RowBox[{"Range", "[", "k", "]"}], "-", "1"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"IntegerDigits", "[", RowBox[{"sn", ",", "k", ",", SuperscriptBox["k", "3"]}], "]"}], ",", RowBox[{"IntegerDigits", "[", RowBox[{"dn", ",", "2", ",", SuperscriptBox["k", "3"]}], "]"}]}], "}"}]}], "]"}]}]], "Input", CellLabel->"In[4]:=", CellID->534970892], Cell[BoxData[ RowBox[{ RowBox[{"mag0", "[", RowBox[{ RowBox[{"{", RowBox[{"a_", ",", "b_", ",", "c_"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"d_Integer", ",", "dir_Integer"}], "}"}]}], "]"}], ":=", "\n", " ", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "]"}]}], "]"}]}], "}"}], ",", "\n", " ", RowBox[{"GrayLevel", "[", RowBox[{"1", "-", RowBox[{"a", "/", "2"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"GrayLevel", "[", RowBox[{"1", "-", RowBox[{"b", "/", "2"}]}], "]"}], ",", "\n", " ", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"GrayLevel", "[", RowBox[{"1", "-", RowBox[{"c", "/", "2"}]}], "]"}], ",", "\n", " ", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.15", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "0.25", "]"}], ",", "\n", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "]"}], ",", "\n", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", RowBox[{"1", "-", RowBox[{"d", "/", "2"}]}], "]"}], ",", "\n", " ", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{"5", "/", "4"}], ")"}]}], ")"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}], ")"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.15`", "]"}], ",", "\n", " ", RowBox[{"AbsoluteThickness", "[", "0.25`", "]"}], ",", "\n", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{"5", "/", "4"}], ")"}]}], ")"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}], ")"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}], ")"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{"5", "/", "4"}], ")"}]}], ")"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{"5", "/", "\n", " ", "4"}], ")"}]}], ")"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"1.5", ",", "0.5"}], "}"}], ",", "0.3"}], "]"}], ",", "\n", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"(", "1.5", ")"}], ")"}], "+", "dir"}], ",", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{"3", "/", "4"}], ")"}]}], ")"}]}], "}"}], ",", "0.3"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", "\n", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}], ")"}], ",", RowBox[{"3", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{"7", "/", "4"}], ")"}]}], ")"}], ",", RowBox[{"3", "/", "2"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", "\n", " ", RowBox[{"FrameTicks", "\[Rule]", "None"}], ",", RowBox[{"FrameStyle", "\[Rule]", RowBox[{"{", RowBox[{"AbsoluteThickness", "[", "0.25`", "]"}], "}"}]}]}], "]"}]}]], "Input", CellLabel->"In[5]:=", CellID->192229430], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"mag0", "[", RowBox[{ RowBox[{"{", RowBox[{"a_", ",", "b_", ",", "c_"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d1_", ",", "d2_", ",", "d3_"}], "}"}], ",", "dir_Integer"}], "}"}]}], "]"}], ":=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"GrayLevel", "[", RowBox[{"1", "-", RowBox[{"a", "/", "2"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"GrayLevel", "[", RowBox[{"1", "-", RowBox[{"b", "/", "2"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"GrayLevel", "[", RowBox[{"1", "-", RowBox[{"c", "/", "2"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.15", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "0.25", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", RowBox[{"1", "-", RowBox[{"d1", "/", "2"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "5"}], "/", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]}], "}"}]}], "]"}], ",", RowBox[{"GrayLevel", "[", RowBox[{"1", "-", RowBox[{"d2", "/", "2"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "5"}], "/", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]}], "}"}]}], "]"}], ",", RowBox[{"GrayLevel", "[", RowBox[{"1", "-", RowBox[{"d3", "/", "2"}]}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{ RowBox[{"-", "5"}], "/", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.15", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "0.25", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "5"}], "/", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{ RowBox[{"-", "5"}], "/", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "5"}], "/", "4"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "5"}], "/", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{ RowBox[{"-", "5"}], "/", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"1.5", ",", "0.5"}], "}"}], ",", "0.3"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1.5", "+", "dir"}], ",", RowBox[{ RowBox[{"-", "3"}], "/", "4"}]}], "}"}], ",", "0.3"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"3", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "4"}], ",", RowBox[{"3", "/", "2"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"FrameTicks", "\[Rule]", "None"}], ",", RowBox[{"FrameStyle", "\[Rule]", RowBox[{"{", RowBox[{"AbsoluteThickness", "[", "0.25", "]"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellLabel->"In[6]:=", CellID->1559011903] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", CellTags->"Documentation", CellID->491847979], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->253280348], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MobileAutomatonRulePlot", "[", StyleBox["rules", FontSlant->"Italic"], "]"}]], "UsageInputs", CellChangeTimes->{{3.752926824320751*^9, 3.75292682765462*^9}}, CellTags->"TabNext", CellID->121044399], Cell[TextData[{ "generates a plot representing ", StyleBox["rules", FontSlant->"Italic"], " for a mobile automaton." }], "UsageDescription", CellChangeTimes->{{3.752926880623096*^9, 3.752926959299405*^9}, { 3.752927234164317*^9, 3.752927249452375*^9}, {3.752927315057624*^9, 3.752927318251855*^9}}, CellTags->"TabNext", CellID->274605684] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->123126086], Cell["Generalized mobile automata is not supported.", "Notes", CellChangeTimes->{{3.752928398998234*^9, 3.752928411183445*^9}}, CellTags->"TabNext", CellID->107622986] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ See existing documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", CellTags->"Examples", CellID->163631071], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["Generate rule icons:", "Text", CellChangeTimes->{{3.7529276133247128`*^9, 3.752927618899967*^9}}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MobileAutomatonRulePlot", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}]}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.751939146020689*^9, 3.751939150393379*^9}}, CellLabel->"In[7]:=", CellID->802851877], Cell[BoxData[ GraphicsBox[{{{InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{0, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{1, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {0, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{0, 0.1}, {0, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{0, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{1, 0}]}, {GrayLevel[1], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {1, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{1, 0.1}, {1, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{0, 0}]}, {GrayLevel[1], RectangleBox[{1, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{0.5, Rational[-3, 4]}, {0.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {2, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{2, 0.1}, {2, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{0, 0}]}, {GrayLevel[1], RectangleBox[{1, 0}]}, {GrayLevel[1], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{0.5, Rational[-3, 4]}, {0.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {3, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{3, 0.1}, {3, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[1], RectangleBox[{0, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{1, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{0.5, Rational[-3, 4]}, {0.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {4, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{4, 0.1}, {4, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[1], RectangleBox[{0, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{1, 0}]}, {GrayLevel[1], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {5, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{5, 0.1}, {5, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[1], RectangleBox[{0, 0}]}, {GrayLevel[1], RectangleBox[{1, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {6, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{6, 0.1}, {6, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[1], RectangleBox[{0, 0}]}, {GrayLevel[1], RectangleBox[{1, 0}]}, {GrayLevel[1], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{0.5, Rational[-3, 4]}, {0.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {7, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{7, 0.1}, {7, 0.9}}]}}}, {AbsoluteThickness[0.25], LineBox[{{0, 0.1}, {8, 0.1}, {8, 0.9}, {0, 0.9}}]}}, AspectRatio->Automatic]], "Output", CellChangeTimes->{3.751939151180785*^9, 3.751939222573756*^9, 3.7529236879589767`*^9, 3.752927018709475*^9, 3.752927118179792*^9, 3.752927186820252*^9}, CellLabel->"Out[7]=", CellID->2076636312] }, Open ]], Cell["Generate rule icons by rule number:", "Text", CellChangeTimes->{{3.7529276133247128`*^9, 3.752927618899967*^9}, { 3.7529281765606194`*^9, 3.752928179902152*^9}}, CellID->1200548202], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MobileAutomatonRulePlot", "[", RowBox[{"{", RowBox[{"57", ",", "37"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.751939146020689*^9, 3.751939150393379*^9}, { 3.7519393096717043`*^9, 3.7519393157338676`*^9}}, CellLabel->"In[8]:=", CellID->661352495], Cell[BoxData[ GraphicsBox[{{{InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{0, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{1, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {0, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{0, 0.1}, {0, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{0, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{1, 0}]}, {GrayLevel[1], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {1, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{1, 0.1}, {1, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{0, 0}]}, {GrayLevel[1], RectangleBox[{1, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{0.5, Rational[-3, 4]}, {0.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {2, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{2, 0.1}, {2, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{0, 0}]}, {GrayLevel[1], RectangleBox[{1, 0}]}, {GrayLevel[1], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {3, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{3, 0.1}, {3, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[1], RectangleBox[{0, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{1, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {4, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{4, 0.1}, {4, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[1], RectangleBox[{0, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{1, 0}]}, {GrayLevel[1], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[ NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{0.5, Rational[-3, 4]}, {0.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {5, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{5, 0.1}, {5, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[1], RectangleBox[{0, 0}]}, {GrayLevel[1], RectangleBox[{1, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {6, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{6, 0.1}, {6, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[1], RectangleBox[{0, 0}]}, {GrayLevel[1], RectangleBox[{1, 0}]}, {GrayLevel[1], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}, { 2, Rational[-1, 4]}, {2, Rational[-5, 4]}, { 1, Rational[-5, 4]}}, {{1, -1.25}, {1, -0.25}, {2, -0.25}, { 2, -1.25}, {1, -1.25}}]]}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{0.5, Rational[-3, 4]}, {0.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {7, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{7, 0.1}, {7, 0.9}}]}}}, {AbsoluteThickness[0.25], LineBox[{{0, 0.1}, {8, 0.1}, {8, 0.9}, {0, 0.9}}]}}, AspectRatio->Automatic]], "Output", CellChangeTimes->{3.751939317164989*^9, 3.752923688186603*^9, 3.752927018924325*^9, 3.752927118299169*^9, 3.7529271869502287`*^9}, CellLabel->"Out[8]=", CellID->1122264740] }, Open ]], Cell["Slightly more complicated rules:", "Text", CellChangeTimes->{{3.7529276133247128`*^9, 3.752927618899967*^9}, { 3.7529281765606194`*^9, 3.752928179902152*^9}, {3.752928253353692*^9, 3.7529282645436163`*^9}}, CellID->1519520348], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MobileAutomatonRulePlot", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"-", "1"}]}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "1"}], "}"}]}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.751939146020689*^9, 3.751939150393379*^9}, { 3.751939235005559*^9, 3.7519392383604937`*^9}}, CellLabel->"In[9]:=", CellID->9461462], Cell[BoxData[ GraphicsBox[{{{InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{0, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{1, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, { {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{2, Rational[-5, 4]}, {2, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-5, 4]}, {0, Rational[-1, 4]}, { 3, Rational[-1, 4]}, {3, Rational[-5, 4]}, { 0, Rational[-5, 4]}}, {{0, -1.25}, {0, -0.25}, {3, -0.25}, { 3, -1.25}, {0, -1.25}}]], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}}, {{ 1, -1.25}, {1, -0.25}}]], LineBox[NCache[{{2, Rational[-5, 4]}, {2, Rational[-1, 4]}}, {{ 2, -1.25}, {2, -0.25}}]]}}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{0.5, Rational[-3, 4]}, {0.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {0, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{0, 0.1}, {0, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{0, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{1, 0}]}, {GrayLevel[1], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, { {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{2, Rational[-5, 4]}, {2, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-5, 4]}, {0, Rational[-1, 4]}, { 3, Rational[-1, 4]}, {3, Rational[-5, 4]}, { 0, Rational[-5, 4]}}, {{0, -1.25}, {0, -0.25}, {3, -0.25}, { 3, -1.25}, {0, -1.25}}]], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}}, {{ 1, -1.25}, {1, -0.25}}]], LineBox[NCache[{{2, Rational[-5, 4]}, {2, Rational[-1, 4]}}, {{ 2, -1.25}, {2, -0.25}}]]}}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{0.5, Rational[-3, 4]}, {0.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {1, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{1, 0.1}, {1, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{0, 0}]}, {GrayLevel[1], RectangleBox[{1, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, { {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{2, Rational[-5, 4]}, {2, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-5, 4]}, {0, Rational[-1, 4]}, { 3, Rational[-1, 4]}, {3, Rational[-5, 4]}, { 0, Rational[-5, 4]}}, {{0, -1.25}, {0, -0.25}, {3, -0.25}, { 3, -1.25}, {0, -1.25}}]], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}}, {{ 1, -1.25}, {1, -0.25}}]], LineBox[NCache[{{2, Rational[-5, 4]}, {2, Rational[-1, 4]}}, {{ 2, -1.25}, {2, -0.25}}]]}}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {2, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{2, 0.1}, {2, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{0, 0}]}, {GrayLevel[1], RectangleBox[{1, 0}]}, {GrayLevel[1], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, { {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{2, Rational[-5, 4]}, {2, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-5, 4]}, {0, Rational[-1, 4]}, { 3, Rational[-1, 4]}, {3, Rational[-5, 4]}, { 0, Rational[-5, 4]}}, {{0, -1.25}, {0, -0.25}, {3, -0.25}, { 3, -1.25}, {0, -1.25}}]], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}}, {{ 1, -1.25}, {1, -0.25}}]], LineBox[NCache[{{2, Rational[-5, 4]}, {2, Rational[-1, 4]}}, {{ 2, -1.25}, {2, -0.25}}]]}}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {3, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{3, 0.1}, {3, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[1], RectangleBox[{0, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{1, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, { {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{2, Rational[-5, 4]}, {2, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-5, 4]}, {0, Rational[-1, 4]}, { 3, Rational[-1, 4]}, {3, Rational[-5, 4]}, { 0, Rational[-5, 4]}}, {{0, -1.25}, {0, -0.25}, {3, -0.25}, { 3, -1.25}, {0, -1.25}}]], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}}, {{ 1, -1.25}, {1, -0.25}}]], LineBox[NCache[{{2, Rational[-5, 4]}, {2, Rational[-1, 4]}}, {{ 2, -1.25}, {2, -0.25}}]]}}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {4, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{4, 0.1}, {4, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[1], RectangleBox[{0, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{1, 0}]}, {GrayLevel[1], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, { {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{2, Rational[-5, 4]}, {2, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-5, 4]}, {0, Rational[-1, 4]}, { 3, Rational[-1, 4]}, {3, Rational[-5, 4]}, { 0, Rational[-5, 4]}}, {{0, -1.25}, {0, -0.25}, {3, -0.25}, { 3, -1.25}, {0, -1.25}}]], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}}, {{ 1, -1.25}, {1, -0.25}}]], LineBox[NCache[{{2, Rational[-5, 4]}, {2, Rational[-1, 4]}}, {{ 2, -1.25}, {2, -0.25}}]]}}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{0.5, Rational[-3, 4]}, {0.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {5, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{5, 0.1}, {5, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[1], RectangleBox[{0, 0}]}, {GrayLevel[1], RectangleBox[{1, 0}]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, { {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{2, Rational[-5, 4]}, {2, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-5, 4]}, {0, Rational[-1, 4]}, { 3, Rational[-1, 4]}, {3, Rational[-5, 4]}, { 0, Rational[-5, 4]}}, {{0, -1.25}, {0, -0.25}, {3, -0.25}, { 3, -1.25}, {0, -1.25}}]], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}}, {{ 1, -1.25}, {1, -0.25}}]], LineBox[NCache[{{2, Rational[-5, 4]}, {2, Rational[-1, 4]}}, {{ 2, -1.25}, {2, -0.25}}]]}}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {6, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{6, 0.1}, {6, 0.9}}]}}, {InsetBox[ GraphicsBox[{ {GrayLevel[1], RectangleBox[Scaled[{0, 0}], Scaled[{1, 1}]]}, {GrayLevel[1], RectangleBox[{0, 0}]}, {GrayLevel[1], RectangleBox[{1, 0}]}, {GrayLevel[1], RectangleBox[{2, 0}], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[{{0, 0}, {3, 0}, {3, 1}, {0, 1}, {0, 0}}], LineBox[{{1, 0}, {1, 1}}], LineBox[{{2, 0}, {2, 1}}]}, { {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}, {GrayLevel[ NCache[ Rational[1, 2], 0.5]], RectangleBox[NCache[{2, Rational[-5, 4]}, {2, -1.25}]], {GrayLevel[0.15], AbsoluteThickness[0.25], LineBox[NCache[{{0, Rational[-5, 4]}, {0, Rational[-1, 4]}, { 3, Rational[-1, 4]}, {3, Rational[-5, 4]}, { 0, Rational[-5, 4]}}, {{0, -1.25}, {0, -0.25}, {3, -0.25}, { 3, -1.25}, {0, -1.25}}]], LineBox[NCache[{{1, Rational[-5, 4]}, {1, Rational[-1, 4]}}, {{ 1, -1.25}, {1, -0.25}}]], LineBox[NCache[{{2, Rational[-5, 4]}, {2, Rational[-1, 4]}}, {{ 2, -1.25}, {2, -0.25}}]]}}}, {GrayLevel[0], DiskBox[{1.5, 0.5}, 0.3], DiskBox[NCache[{2.5, Rational[-3, 4]}, {2.5, -0.75}], 0.3]}}}, AspectRatio->Automatic, Frame->False, FrameStyle->{ AbsoluteThickness[0.25]}, FrameTicks->None, PlotRange->NCache[{{ Rational[-1, 2], Rational[7, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-0.5, 3.5}, {-1.75, 1.5}}]], {7, 0}, { Left, Bottom}, {1, 1}], {AbsoluteThickness[0.25], LineBox[{{7, 0.1}, {7, 0.9}}]}}}, {AbsoluteThickness[0.25], LineBox[{{0, 0.1}, {8, 0.1}, {8, 0.9}, {0, 0.9}}]}}, AspectRatio->Automatic]], "Output", CellChangeTimes->{3.752861395377788*^9, 3.752923693714881*^9, 3.752923734707683*^9, 3.752926072776319*^9, 3.7529261480290413`*^9, 3.752926778484624*^9, 3.752927118417261*^9, 3.752927187018751*^9}, CellLabel->"Out[9]=", CellID->554613579] }, Open ]] }, Open ]], Cell["Options", "Subsection", CellID->1575259], Cell["Applications", "Subsection", CellID->20767984], Cell["Properties and Relations", "Subsection", CellID->461307998], Cell["Possible Issues", "Subsection", CellID->95944414], Cell["Neat Examples", "Subsection", CellID->5316679] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", CellTags->"Source & Additional Information", CellID->127601628], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Name of the person, people or organization that should be publicly \ credited with contributing the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->193619321], Cell["Stephen Wolfram", "Text", CellChangeTimes->{{3.752923723545219*^9, 3.752923726518632*^9}}, CellTags->"TabNext", CellID->268773406] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource in \ search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->56929831], Cell[CellGroupData[{ Cell["rule icon", "Item", CellChangeTimes->{{3.752926997335656*^9, 3.7529269987565937`*^9}}, CellTags->"TabNext", CellID->286151546], Cell["computational system", "Item", CellChangeTimes->{{3.752927006476581*^9, 3.752927010567835*^9}}, CellID->43497569], Cell["mobile automata", "Item", CellChangeTimes->{{3.752928328023595*^9, 3.752928332547887*^9}}, CellID->571706568] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "Names of published resource objects from any Wolfram repository that \ are related to this resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->234336100], Cell["GrayCode (resources from any Wolfram repository)", "Item", CellTags->"TabNext", CellID->96811861] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public code repository.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->4373816], Cell["\<\ Code taken without modification from the working notebooks for A New Kind of \ Science.\ \>", "Text", CellChangeTimes->{{3.7519394948865547`*^9, 3.75193952350985*^9}}, CellTags->"TabNext", CellID->122131667] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "URLs or hyperlinks for external information related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Item", CellTags->"Links", CellID->443077927], Cell["Link to other related material", "Item", CellTags->"TabNext", CellID->70093026] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Optional list of tests that can be used to verify that the function \ is working properly in any environment.\nTests can be specified as \ Input/Output cell pairs or as literal VerificationTest expressions if you \ need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->349784570], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->152812409], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->111998499] }, Open ]] }, Open ]] }, Open ]], Cell["Notes", "Section", DefaultNewCellStyle->"Text", CellTags->"Notes", CellID->359397282] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{"ResourceType" -> "Function", "ResourceCreateNotebook" -> True}, CreateCellID->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ 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`}}}]}}, { Background -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 26, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook.\"", LabelStyle -> "TextStyling"], Annotation[#, "View a completed sample definition notebook.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon"]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Preview\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Preview"]), "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Deploy\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"Locally on this computer\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Local"]), "\"For my cloud account\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"]), "\"Publicly in the cloud\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "CloudPublic"]), "\"In this session only (without documentation)\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Submit to Repository\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository.\"", LabelStyle -> "TextStyling"], Annotation[#, "Submit your function to the Wolfram Function Repository.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], 2 -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {2, 2, {}, 2}}, FrameStyle -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`]], "Grid"]], "DockedCell", CellFrameMargins -> -1]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], 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:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], 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:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, 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:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TagBox[ TooltipBox[ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"More info\"", LabelStyle -> "TextStyling"], Annotation[#, "More info", "Tooltip"]& ], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic]}, 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[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["Text"], ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}], 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]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 158, 3, 70, "Title",ExpressionUUID->"8b4672eb-5bad-416d-a227-b2f95946789b", CellTags->{"Title", "TabNext"}, CellID->18217985]}, "TabNext"->{ Cell[580, 22, 158, 3, 70, "Title",ExpressionUUID->"8b4672eb-5bad-416d-a227-b2f95946789b", CellTags->{"Title", "TabNext"}, CellID->18217985], Cell[741, 27, 188, 3, 70, "Text",ExpressionUUID->"117bbc01-8f45-42c2-a0a6-bc50b91c5bdb", CellTags->{"Description", "TabNext"}, CellID->27787318], Cell[24250, 715, 230, 6, 70, "UsageInputs",ExpressionUUID->"20c9346e-7d3b-4ef5-9b40-513c35790e78", CellTags->"TabNext", CellID->121044399], Cell[24483, 723, 352, 10, 70, "UsageDescription",ExpressionUUID->"2e6626d1-cc00-4f81-9d41-9be24178596c", CellTags->"TabNext", CellID->274605684], Cell[25658, 759, 170, 3, 70, "Notes",ExpressionUUID->"4c6b165c-4a78-4330-9b2b-c9a9c9749706", CellTags->"TabNext", CellID->107622986], Cell[72437, 1896, 139, 3, 70, "Text",ExpressionUUID->"11f2887c-fe84-4416-84f5-2b0f23cfb2c0", CellTags->"TabNext", CellID->268773406], Cell[73218, 1924, 135, 3, 70, "Item",ExpressionUUID->"bd366f54-7912-46f8-8967-ba33ff4340f8", CellTags->"TabNext", CellID->286151546], Cell[74313, 1960, 105, 2, 70, "Item",ExpressionUUID->"544f9c83-fd2b-4c37-9efc-bf93e67067e1", CellTags->"TabNext", CellID->96811861], Cell[75167, 1986, 220, 6, 70, "Text",ExpressionUUID->"5b123f53-e311-40f0-ae50-ee065e774806", CellTags->"TabNext", CellID->122131667], Cell[75986, 2015, 87, 2, 70, "Item",ExpressionUUID->"ce1d6312-ec2a-4526-93fb-0071a5c457a3", CellTags->"TabNext", CellID->70093026]}, "Description"->{ Cell[741, 27, 188, 3, 70, "Text",ExpressionUUID->"117bbc01-8f45-42c2-a0a6-bc50b91c5bdb", CellTags->{"Description", "TabNext"}, CellID->27787318]}, "Definition"->{ Cell[954, 34, 832, 19, 70, "Section",ExpressionUUID->"d5165403-97a4-4241-81b2-1d39d7aaff2e", CellTags->"Definition", CellID->40452676]}, "Documentation"->{ Cell[23375, 686, 80, 2, 70, "Section",ExpressionUUID->"0fec569c-af6d-4e8e-a2a8-db854e00f730", CellTags->"Documentation", CellID->491847979]}, "Usage"->{ Cell[23480, 692, 745, 19, 70, "Subsection",ExpressionUUID->"ec172cff-88c7-4295-beff-e81888914a0d", CellTags->"Usage", CellID->253280348]}, "Details & Options"->{ Cell[24884, 739, 771, 18, 70, "Subsection",ExpressionUUID->"a8e2110e-26f5-42dd-b5de-71a1a629e1b8", CellTags->"Details & Options", CellID->123126086]}, "Examples"->{ Cell[25877, 768, 740, 18, 70, "Section",ExpressionUUID->"9c194ac4-ce97-4a47-bbda-0d7b9ccfbd02", CellTags->"Examples", CellID->163631071]}, "Source & Additional Information"->{ Cell[71659, 1871, 116, 2, 70, "Section",ExpressionUUID->"d0a3a8a5-58ac-4023-8141-e479eca5c7ec", CellTags->"Source & Additional Information", CellID->127601628]}, "Contributed By"->{ Cell[71800, 1877, 634, 17, 70, "Subsection",ExpressionUUID->"374e927d-8d1b-4755-9973-7843462254f1", CellTags->"Contributed By", CellID->193619321]}, "Keywords"->{ Cell[72613, 1904, 580, 16, 70, "Subsection",ExpressionUUID->"5286f021-0948-4add-b2da-623a4e2626a9", CellTags->"Keywords", CellID->56929831]}, "Related Resource Objects"->{ Cell[73646, 1941, 664, 17, 70, "Subsection",ExpressionUUID->"c664e861-31fd-4860-ace7-57a7d1cd7b26", CellTags->"Related Resource Objects", CellID->234336100]}, "Source/Reference Citation"->{ Cell[74455, 1967, 709, 17, 70, "Subsection",ExpressionUUID->"ee18f2da-f53d-4e98-b6f2-f0e7ab65df00", CellTags->"Source/Reference Citation", CellID->4373816]}, "Links"->{ Cell[75424, 1997, 559, 16, 70, "Subsection",ExpressionUUID->"6018742a-6885-419c-9842-aefe98908d3d", CellTags->"Links", CellID->443077927]}, "Tests"->{ Cell[76110, 2022, 724, 18, 70, "Subsection",ExpressionUUID->"c41e3e88-a487-4e92-9fe2-b6a82ec4102f", CellTags->"Tests", CellID->349784570]}, "Notes"->{ Cell[77123, 2058, 94, 3, 70, "Section",ExpressionUUID->"ee41e803-fc0d-4c6b-a97d-4dcd28c86544", CellTags->"Notes", CellID->359397282]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 122766, 2996}, {"TabNext", 122930, 3000}, {"Description", 124403, 3031}, {"Definition", 124575, 3035}, {"Documentation", 124740, 3039}, {"Usage", 124902, 3043}, {"Details & Options", 125073, 3047}, {"Examples", 125247, 3051}, {"Source & Additional Information", 125432, 3055}, {"Contributed By", 125623, 3059}, {"Keywords", 125795, 3063}, {"Related Resource Objects", 125976, 3067}, {"Source/Reference Citation", 126175, 3071}, {"Links", 126353, 3075}, {"Tests", 126513, 3079}, {"Notes", 126673, 3083} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 158, 3, 70, "Title",ExpressionUUID->"8b4672eb-5bad-416d-a227-b2f95946789b", CellTags->{"Title", "TabNext"}, CellID->18217985], Cell[741, 27, 188, 3, 70, "Text",ExpressionUUID->"117bbc01-8f45-42c2-a0a6-bc50b91c5bdb", CellTags->{"Description", "TabNext"}, CellID->27787318], Cell[CellGroupData[{ Cell[954, 34, 832, 19, 70, "Section",ExpressionUUID->"d5165403-97a4-4241-81b2-1d39d7aaff2e", CellTags->"Definition", CellID->40452676], Cell[1789, 55, 3024, 85, 70, "Input",ExpressionUUID->"0ac6ebbb-2101-48a4-a4bb-70c0818cebd2", CellID->984624922], Cell[4816, 142, 3108, 87, 70, "Input",ExpressionUUID->"00106fa2-d6ac-4152-b3f1-3aa977429ee9", CellID->1351930258], Cell[7927, 231, 400, 10, 70, "Input",ExpressionUUID->"f306dd47-296e-419e-b6fa-e8ef8231e0f9", CellID->692161424], Cell[8330, 243, 976, 31, 70, "Input",ExpressionUUID->"22aafe0a-299b-495a-9cca-24817e490c53", CellID->534970892], Cell[9309, 276, 6572, 190, 70, "Input",ExpressionUUID->"815427f0-50e1-4b30-bfa4-7541dcde0840", CellID->192229430], Cell[15884, 468, 7454, 213, 70, "Input",ExpressionUUID->"2b979659-2803-429e-a60d-dc4510883ae4", CellID->1559011903] }, Open ]], Cell[CellGroupData[{ Cell[23375, 686, 80, 2, 70, "Section",ExpressionUUID->"0fec569c-af6d-4e8e-a2a8-db854e00f730", CellTags->"Documentation", CellID->491847979], Cell[CellGroupData[{ Cell[23480, 692, 745, 19, 70, "Subsection",ExpressionUUID->"ec172cff-88c7-4295-beff-e81888914a0d", CellTags->"Usage", CellID->253280348], Cell[CellGroupData[{ Cell[24250, 715, 230, 6, 70, "UsageInputs",ExpressionUUID->"20c9346e-7d3b-4ef5-9b40-513c35790e78", CellTags->"TabNext", CellID->121044399], Cell[24483, 723, 352, 10, 70, "UsageDescription",ExpressionUUID->"2e6626d1-cc00-4f81-9d41-9be24178596c", CellTags->"TabNext", CellID->274605684] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24884, 739, 771, 18, 70, "Subsection",ExpressionUUID->"a8e2110e-26f5-42dd-b5de-71a1a629e1b8", CellTags->"Details & Options", CellID->123126086], Cell[25658, 759, 170, 3, 70, "Notes",ExpressionUUID->"4c6b165c-4a78-4330-9b2b-c9a9c9749706", CellTags->"TabNext", CellID->107622986] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25877, 768, 740, 18, 70, "Section",ExpressionUUID->"9c194ac4-ce97-4a47-bbda-0d7b9ccfbd02", CellTags->"Examples", CellID->163631071], Cell[CellGroupData[{ Cell[26642, 790, 56, 1, 70, "Subsection",ExpressionUUID->"96d89b9c-c5e9-43fb-9ec1-46406bc6f004", CellID->285421464], Cell[26701, 793, 124, 2, 70, "Text",ExpressionUUID->"24f49bc3-6240-4643-9a60-b23d7433d10d", CellID->221583938], Cell[CellGroupData[{ Cell[26850, 799, 1560, 50, 70, "Input",ExpressionUUID->"4f0431a0-76c5-43b2-9129-5cb335675126", CellID->802851877], Cell[28413, 851, 11956, 271, 70, "Output",ExpressionUUID->"7d767c4e-38e3-44b7-9e15-fc09991dfbec", CellID->2076636312] }, Open ]], Cell[40384, 1125, 191, 3, 70, "Text",ExpressionUUID->"19a3e289-421c-4a6f-80d1-344234b0b1a6", CellID->1200548202], Cell[CellGroupData[{ Cell[40600, 1132, 287, 7, 70, "Input",ExpressionUUID->"61dc8f29-0732-4720-8754-b7bbc995f6a6", CellID->661352495], Cell[40890, 1141, 11995, 273, 70, "Output",ExpressionUUID->"92522675-c128-487a-a497-7b79083db4f6", CellID->1122264740] }, Open ]], Cell[52900, 1417, 239, 4, 70, "Text",ExpressionUUID->"20179ad2-4f45-4e66-a33e-fbd2424f6e22", CellID->1519520348], Cell[CellGroupData[{ Cell[53164, 1425, 2126, 67, 70, "Input",ExpressionUUID->"00984ee4-5347-4334-8dea-eba76ec41433", CellID->9461462], Cell[55293, 1494, 16015, 355, 70, "Output",ExpressionUUID->"a81dfd47-c1bc-4de7-b256-16ba65a90e3e", CellID->554613579] }, Open ]] }, Open ]], Cell[71335, 1853, 47, 1, 70, "Subsection",ExpressionUUID->"62fc710a-d707-44cd-9326-639034ad2a06", CellID->1575259], Cell[71385, 1856, 53, 1, 70, "Subsection",ExpressionUUID->"000cba89-ec3c-48d7-9aef-3137af7eb34d", CellID->20767984], Cell[71441, 1859, 66, 1, 70, "Subsection",ExpressionUUID->"53ba02ea-a820-4dd8-afd9-8cd5a5fcef05", CellID->461307998], Cell[71510, 1862, 56, 1, 70, "Subsection",ExpressionUUID->"ef859c81-ed14-422b-8288-9ca311572017", CellID->95944414], Cell[71569, 1865, 53, 1, 70, "Subsection",ExpressionUUID->"462aa7eb-3642-45b5-899a-08f8601b5463", CellID->5316679] }, Open ]], Cell[CellGroupData[{ Cell[71659, 1871, 116, 2, 70, "Section",ExpressionUUID->"d0a3a8a5-58ac-4023-8141-e479eca5c7ec", CellTags->"Source & Additional Information", CellID->127601628], Cell[CellGroupData[{ Cell[71800, 1877, 634, 17, 70, "Subsection",ExpressionUUID->"374e927d-8d1b-4755-9973-7843462254f1", CellTags->"Contributed By", CellID->193619321], Cell[72437, 1896, 139, 3, 70, "Text",ExpressionUUID->"11f2887c-fe84-4416-84f5-2b0f23cfb2c0", CellTags->"TabNext", CellID->268773406] }, Open ]], Cell[CellGroupData[{ Cell[72613, 1904, 580, 16, 70, "Subsection",ExpressionUUID->"5286f021-0948-4add-b2da-623a4e2626a9", CellTags->"Keywords", CellID->56929831], Cell[CellGroupData[{ Cell[73218, 1924, 135, 3, 70, "Item",ExpressionUUID->"bd366f54-7912-46f8-8967-ba33ff4340f8", CellTags->"TabNext", CellID->286151546], Cell[73356, 1929, 121, 2, 70, "Item",ExpressionUUID->"f45dc181-9eff-4ffa-a2c2-b758a9c22cdc", CellID->43497569], Cell[73480, 1933, 117, 2, 70, "Item",ExpressionUUID->"b21f9073-e63f-4d23-a1d4-8cf08bc62b01", CellID->571706568] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[73646, 1941, 664, 17, 70, "Subsection",ExpressionUUID->"c664e861-31fd-4860-ace7-57a7d1cd7b26", CellTags->"Related Resource Objects", CellID->234336100], Cell[74313, 1960, 105, 2, 70, "Item",ExpressionUUID->"544f9c83-fd2b-4c37-9efc-bf93e67067e1", CellTags->"TabNext", CellID->96811861] }, Open ]], Cell[CellGroupData[{ Cell[74455, 1967, 709, 17, 70, "Subsection",ExpressionUUID->"ee18f2da-f53d-4e98-b6f2-f0e7ab65df00", CellTags->"Source/Reference Citation", CellID->4373816], Cell[75167, 1986, 220, 6, 70, "Text",ExpressionUUID->"5b123f53-e311-40f0-ae50-ee065e774806", CellTags->"TabNext", CellID->122131667] }, Open ]], Cell[CellGroupData[{ Cell[75424, 1997, 559, 16, 70, "Subsection",ExpressionUUID->"6018742a-6885-419c-9842-aefe98908d3d", CellTags->"Links", CellID->443077927], Cell[75986, 2015, 87, 2, 70, "Item",ExpressionUUID->"ce1d6312-ec2a-4526-93fb-0071a5c457a3", CellTags->"TabNext", CellID->70093026] }, Open ]], Cell[CellGroupData[{ Cell[76110, 2022, 724, 18, 70, "Subsection",ExpressionUUID->"c41e3e88-a487-4e92-9fe2-b6a82ec4102f", CellTags->"Tests", CellID->349784570], Cell[CellGroupData[{ Cell[76859, 2044, 129, 4, 70, "Input",ExpressionUUID->"b1ea8a0a-6127-4116-900a-02d96e23e05b", CellID->152812409], Cell[76991, 2050, 93, 3, 70, "Output",ExpressionUUID->"92783b51-352c-46e9-88d6-35ee7b3b7d15", CellID->111998499] }, Open ]] }, Open ]] }, Open ]], Cell[77123, 2058, 94, 3, 70, "Section",ExpressionUUID->"ee41e803-fc0d-4c6b-a97d-4dcd28c86544", CellTags->"Notes", CellID->359397282] }, Open ]] } ] *) (* End of internal cache information *)