(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 351626, 7457] NotebookOptionsPosition[ 220628, 4911] NotebookOutlinePosition[ 342279, 7248] CellTagsIndexPosition[ 341327, 7217] WindowTitle->EnumerateSubstitutionSystemRules | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["EnumerateSubstitutionSystemRules", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->617517993], Cell["\<\ Enumerate possible inequivalent string substitution rules with a given \ signature\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->647598439], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[BoxData[ RowBox[{ RowBox[{"EnumerateSubstitutionSystemRules", "[", RowBox[{ RowBox[{"ns", ":", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"_Integer", "\[Rule]", "_Integer"}], ")"}], " ", ".."}], "}"}]}], ",", "k_Integer"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ab", "=", RowBox[{"ToUpperCase", "[", RowBox[{"FromLetterNumber", "[", RowBox[{"Range", "[", "k", "]"}], "]"}], "]"}]}], ",", "rep", ",", "res"}], "}"}], ",", RowBox[{ RowBox[{"res", "=", RowBox[{ RowBox[{ RowBox[{"Partition", "[", RowBox[{"#", ",", "2"}], "]"}], "&"}], "/@", RowBox[{"Tuples", "[", RowBox[{ RowBox[{ RowBox[{"Map", "[", RowBox[{"StringJoin", ",", RowBox[{"Tuples", "[", RowBox[{"ab", ",", "#"}], "]"}]}], "]"}], "&"}], "/@", RowBox[{"Level", "[", RowBox[{"ns", ",", RowBox[{"{", RowBox[{"-", "1"}], "}"}]}], "]"}]}], "]"}]}]}], ";", RowBox[{"rep", "=", RowBox[{"Thread", "/@", RowBox[{"(", RowBox[{"Thread", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ab", "\[Rule]", "#"}], ")"}], "&"}], "/@", RowBox[{"Permutations", "[", "ab", "]"}]}], "]"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"Rule", ",", RowBox[{"DeleteDuplicates", "[", RowBox[{ RowBox[{ RowBox[{"First", "[", RowBox[{"Sort", "[", "#", "]"}], "]"}], "&"}], "/@", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Catenate", "[", RowBox[{"{", RowBox[{"#", ",", RowBox[{"StringReverse", "/@", "#"}]}], "}"}], "]"}], "&"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{"u", ",", RowBox[{ RowBox[{"Function", "[", RowBox[{"r", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"StringReplace", "[", RowBox[{"#", ",", "r"}], "]"}], "&"}], ",", "u"}], "]"}]}], "]"}], "/@", "rep"}]}], "]"}], ",", "res"}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", "2", "}"}]}], "]"}]}]}], "]"}]}]], "Input", CellLabel->"In[1]:=", CellID->500940840] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnumerateSubstitutionSystemRules", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ StyleBox["p", "TI"], "\[Rule]", StyleBox["q", "TI"]}], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->775196922], Cell[TextData[{ "gives all possible substitution system rules with ", StyleBox["n", "TI"], " characters, where length-", StyleBox["p", "TI"], " strings are replaced with length-", StyleBox["q", "TI"], " strings." }], "UsageDescription", CellID->620941866] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell["Additional information about usage and options.", "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->2456492] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellTags->"TemplateCell", CellID->271681710], Cell["All two-character substitution system rules:", "Text", CellID->50486340], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnumerateSubstitutionSystemRules", "[", RowBox[{ RowBox[{"{", RowBox[{"2", "\[Rule]", "2"}], "}"}], ",", "2"}], "]"}]], "Input", CellLabel->"In[2]:=", CellID->969778923], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"AA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"AB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"AA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"AB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BA\"\>"}], "}"}]}], "}"}]], "Output",\ CellLabel->"Out[2]=", CellID->877597031] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->964056545], Cell["\<\ All two-character substitution system rules that replace length-2 strings \ with length-3 strings:\ \>", "Text", CellID->607428286], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnumerateSubstitutionSystemRules", "[", RowBox[{ RowBox[{"{", RowBox[{"2", "\[Rule]", "3"}], "}"}], ",", "2"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->193787210], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"AAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"AAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"ABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"ABB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BBB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"AAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"AAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"ABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BAA\"\>"}], "}"}]}], "}"}]], "Output", CellLabel->"Out[3]=", CellID->921872700] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031726], Cell["\<\ Three-character substitution system rules that replace length-3 strings with \ length-2 strings:\ \>", "Text", CellID->623523997], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnumerateSubstitutionSystemRules", "[", RowBox[{ RowBox[{"{", RowBox[{"3", "\[Rule]", "2"}], "}"}], ",", "3"}], "]"}]], "Input", CellLabel->"In[4]:=", CellID->687870580], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"AAA\"\>", "\[Rule]", "\<\"AA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAA\"\>", "\[Rule]", "\<\"AB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAA\"\>", "\[Rule]", "\<\"BB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAA\"\>", "\[Rule]", "\<\"BC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAB\"\>", "\[Rule]", "\<\"AA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAB\"\>", "\[Rule]", "\<\"AB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAB\"\>", "\[Rule]", "\<\"AC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAB\"\>", "\[Rule]", "\<\"BA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAB\"\>", "\[Rule]", "\<\"BB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAB\"\>", "\[Rule]", "\<\"BC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAB\"\>", "\[Rule]", "\<\"CA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAB\"\>", "\[Rule]", "\<\"CB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AAB\"\>", "\[Rule]", "\<\"CC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABA\"\>", "\[Rule]", "\<\"AA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABA\"\>", "\[Rule]", "\<\"AB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABA\"\>", "\[Rule]", "\<\"AC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABA\"\>", "\[Rule]", "\<\"BB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABA\"\>", "\[Rule]", "\<\"BC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABA\"\>", "\[Rule]", "\<\"CC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABC\"\>", "\[Rule]", "\<\"AA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABC\"\>", "\[Rule]", "\<\"AB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABC\"\>", "\[Rule]", "\<\"AC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABC\"\>", "\[Rule]", "\<\"BA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABC\"\>", "\[Rule]", "\<\"BB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ABC\"\>", "\[Rule]", "\<\"CA\"\>"}], "}"}]}], "}"}]], "Output", CellLabel->"Out[4]=", CellID->846903198] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031727], Cell["\<\ Three-character substitution system rules that replace length-2 strings with \ length-3 strings:\ \>", "Text", CellID->973656220], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnumerateSubstitutionSystemRules", "[", RowBox[{ RowBox[{"{", RowBox[{"2", "\[Rule]", "3"}], "}"}], ",", "3"}], "]"}]], "Input", CellID->33978936], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"AAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"AAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"ABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"ABB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"ABC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BAC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BBB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BBC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BCB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"AAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"AAB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"AAC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"ABA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"ABC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"ACA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"ACB\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"ACC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BAA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BAC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BBC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BCA\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BCC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"CAC\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"CCC\"\>"}], "}"}]}], "}"}]], "Output", CellID->279175409] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->224031728], Cell["Use multiple rules:", "Text", CellID->638813523], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"EnumerateSubstitutionSystemRules", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "2"}], ",", RowBox[{"2", "\[Rule]", "3"}]}], "}"}], ",", "2"}], "]"}]], "Input", CellLabel->"In[5]:=", CellID->974019465], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"AAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"AAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"ABA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"ABB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BBB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"AAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"AAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"ABA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"ABB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BBA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BBB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"AAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"AAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"ABA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"ABB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"BAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AA\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"BBB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"AAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"AAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"ABA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"ABB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BBA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BBB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"AAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"AAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"ABA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"ABB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BBA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BBB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BA\"\>", "\[Rule]", "\<\"AAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BA\"\>", "\[Rule]", "\<\"AAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BA\"\>", "\[Rule]", "\<\"ABA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BA\"\>", "\[Rule]", "\<\"ABB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BA\"\>", "\[Rule]", "\<\"BAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BA\"\>", "\[Rule]", "\<\"BAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BA\"\>", "\[Rule]", "\<\"BBA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BA\"\>", "\[Rule]", "\<\"BBB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"AAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"AAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"ABA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"ABB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"BAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"BAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"BBA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"AB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"BBB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"AAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"AAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"ABA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"ABB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AA\"\>", "\[Rule]", "\<\"BBB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"AAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"AAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"ABA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"ABB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BBA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"AB\"\>", "\[Rule]", "\<\"BBB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"AAA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"AAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"ABA\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"ABB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"BAB\"\>"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"A\"\>", "\[Rule]", "\<\"BB\"\>"}], ",", RowBox[{"\<\"BB\"\>", "\[Rule]", "\<\"BBB\"\>"}]}], "}"}]}], "}"}]], "Output", CellLabel->"Out[5]=", CellID->402925309] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellID->568056528], Cell[TextData[{ "Visualize all the enumerated substitution systems with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["RulePlot", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/RulePlot", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellID->111835432], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsGrid", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"RulePlot", "[", RowBox[{"SubstitutionSystem", "[", "#", "]"}], "]"}], "&"}], "/@", RowBox[{"EnumerateSubstitutionSystemRules", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "\[Rule]", "2"}], ",", RowBox[{"2", "\[Rule]", "3"}]}], "}"}], ",", "2"}], "]"}]}], ",", "8"}], "]"}], "]"}]], "Input", CellLabel->"In[6]:=", CellID->786089958], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {196., -79.70625}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {588., -79.70625}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {980., -79.70625}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1372., -79.70625}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1764., -79.70625}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2156., -79.70625}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2548., -79.70625}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2940., -79.70625}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}]}, {InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {196., -239.11874999999998}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {588., -239.11874999999998}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {980., -239.11874999999998}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1372., -239.11874999999998}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1764., -239.11874999999998}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2156., -239.11874999999998}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2548., -239.11874999999998}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2940., -239.11874999999998}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999997}]}, {InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {196., -398.53125}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999994}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {588., -398.53125}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999994}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {980., -398.53125}, ImageScaled[ {0.5, 0.5}], {360., 146.24999999999994}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1372., -398.53125}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999994}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1764., -398.53125}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999994}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2156., -398.53125}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999994}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2548., -398.53125}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999994}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2940., -398.53125}, ImageScaled[{0.5, 0.5}], {360., 146.24999999999994}]}, {InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {196., -557.94375}, ImageScaled[{0.5, 0.5}], {360., 146.25000000000006}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {588., -557.94375}, ImageScaled[{0.5, 0.5}], {360., 146.25000000000006}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {980., -557.94375}, ImageScaled[{0.5, 0.5}], {360., 146.25000000000006}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1372., -557.94375}, ImageScaled[{0.5, 0.5}], {360., 146.25000000000006}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1764., -557.94375}, ImageScaled[{0.5, 0.5}], {360., 146.25000000000006}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2156., -557.94375}, ImageScaled[{0.5, 0.5}], {360., 146.25000000000006}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2548., -557.94375}, ImageScaled[{0.5, 0.5}], {360., 146.25000000000006}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2940., -557.94375}, ImageScaled[{0.5, 0.5}], {360., 146.25000000000006}]}, {InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {196., -717.35625}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {588., -717.35625}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {980., -717.35625}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1372., -717.35625}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1764., -717.35625}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2156., -717.35625}, ImageScaled[ {0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2548., -717.35625}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2940., -717.35625}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}]}, {InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {196., -876.76875}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {588., -876.76875}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {980., -876.76875}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1372., -876.76875}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1764., -876.76875}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2156., -876.76875}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2548., -876.76875}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2940., -876.76875}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}]}, {InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {196., -1036.18125}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {588., -1036.18125}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {980., -1036.18125}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1372., -1036.18125}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1764., -1036.18125}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2156., -1036.18125}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2548., -1036.18125}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2940., -1036.18125}, ImageScaled[{0.5, 0.5}], {360., 146.2500000000001}]}, {InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {196., -1195.59375}, ImageScaled[ {0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[1], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {588., -1195.59375}, ImageScaled[{0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {980., -1195.59375}, ImageScaled[{0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1372., -1195.59375}, ImageScaled[{0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1764., -1195.59375}, ImageScaled[{0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2156., -1195.59375}, ImageScaled[{0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2548., -1195.59375}, ImageScaled[{0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2940., -1195.59375}, ImageScaled[{0.5, 0.5}], {360., 146.25}]}, {InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {196., -1355.00625}, ImageScaled[{0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {588., -1355.00625}, ImageScaled[{0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {980., -1355.00625}, ImageScaled[{0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1372., -1355.00625}, ImageScaled[{0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {1764., -1355.00625}, ImageScaled[{0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2156., -1355.00625}, ImageScaled[ {0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[1], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2548., -1355.00625}, ImageScaled[{0.5, 0.5}], {360., 146.25}], InsetBox[ GraphicsBox[{{InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[1], RectangleBox[{-1, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{0.6153846153846154, Rational[1, 2]}, {0.6153846153846154, 0.5}], {Center, Center}, {1.2307692307692308, 1}], InsetBox[ GraphicsBox[{ {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[{-1, 0}]}, {GrayLevel[0], RectangleBox[{0, 0}]}}, {EdgeForm[GrayLevel[ NCache[-1 + GoldenRatio, 0.6180339887498949]]], {GrayLevel[0], RectangleBox[NCache[{-1, Rational[-5, 4]}, {-1, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{0, Rational[-5, 4]}, {0, -1.25}]]}, {GrayLevel[0], RectangleBox[NCache[{1, Rational[-5, 4]}, {1, -1.25}]]}}}, PlotRange->NCache[{{ Rational[-3, 2], Rational[5, 2]}, { Rational[-7, 4], Rational[3, 2]}}, {{-1.5, 2.5}, {-1.75, 1.5}}]], NCache[{1.8461538461538463`, Rational[1, 2]}, {1.8461538461538463`, 0.5}], {Center, Center}, {1.2307692307692308, 1}]}, {GrayLevel[ 0.8], {LineBox[{{0, 0}, {0, 1}}], LineBox[{{1.2307692307692308`, 0}, {1.2307692307692308`, 1}}], LineBox[{{2.4615384615384617`, 0}, {2.4615384615384617`, 1}}]}, { LineBox[{{0, 0}, {2.4615384615384617`, 0}}], LineBox[{{0, 1}, {2.4615384615384617`, 1}}]}}}, DisplayFunction->Identity, ImagePadding->{{0., 1.}, {0.9999999999999716, 1.4210854715202004`*^-14}}], {2940., -1355.00625}, ImageScaled[{0.5, 0.5}], {360., 146.25}]}}, {}}, ContentSelectable->True, ImageSize->{ UpTo[600], UpTo[700]}, PlotRangePadding->{6, 5}]], "Output", CellLabel->"Out[6]=", CellID->735097674] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell["Stephen Wolfram and Jan Mangaldan", "Text", CellID->409719857] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell["substitution system", "Item", CellID->828263968], Cell["strings", "Item", CellID->281649519] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell["Higher Mathematical Computation", "Item", CellID->899989995], Cell["Strings & Text", "Item", CellID->297764926], Cell["Wolfram Physics Project", "Item", CellID->254453] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell["SubstitutionSystem", "Item", CellID->12751187] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell["StringTuples", "Item", CellID->47345032], Cell["SequentialSubstitutionSystem", "Item", CellID->188350533], Cell["SequentialSubstitutionSystemPlot", "Item", CellID->301852787], Cell["SequentialSubstitutionSystemRulePlot", "Item", CellID->663662276] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->91842863] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->515049506] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->991784503] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"EnumerateSubstitutionSystemRules | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ ByteArray[CompressedData[" 1:eJwBdgiJ9yFib1JiAQAAAGkIAAA4Qzp4nK1ba3MbtxWtZavjyTiZOpMPnXza tGzrtGleTtL0MU0kUrLZkWhJSzlfDe5ekqiwCxbAimL/WP9eL/ZFErsg7w7j 0Yz52HMOHhcX916A0yP9YV8mC5ml8dnDQoHWXKbTR/r4OuNgpkf6aDjFt0/P GReZgmt8/f4ViwSYYaoNEyL89QCmPOUGcSNpYCLlXV9wSC3Ywz0CiHX44ga0 zFQE4UobSArQuybbuylrJTrS74VgBiDYCum+9DXjXX8O0V3zW/0DVd9D4DTg xe4GnEt1u4iZwcb/pZPwGugI/tEvKHh0N5Z9uVidZsbIVP+VLOlCHdGeX1QK AZF5zVOjX5Ll1iBH6Pc7hJIE/0f7A2X0a6rUQEaZxTH76VhKobeZuuqP5Wwm 4OfQL5gc/U926KcGHsy1/mqP9K3hAl+AriGOxhd+jUwp2zJIFgJN7y0ou+T0 P8nz2op35F965ddfVAwXMsoHTp+Sx9vLQV64+ARPuAFV2tq/Dphrh8tpwx92 tGEh5KoS1t/Ru7+JI7uOAddsIgAbucB1ybu4jgaUvKIQiRO0Co3iC9DfdhBc wxyxb7xiZ//J+D0T+LLSuVJygVOyutZ9qvQOEqchn/obggQZM3bM+iCE1t+T 1R0k2aDPHiKR6dwmc+d1iEE7XGSDPs8waFglEylGLIG9m+HaiW0DHb0/7dBL c2u84OlduRteHtDtJh15wl9BCoqJt0xw3M+lok+4iySvrFdgToSwRjIcaPrK 2oI5Yr/ZJVZC9u1Mm0IFhGzCiHjN4xhSu+zTGT2YcoCOYOAVtLEJxNf6C6pQ CXAEPvMKDGepVBDbcbhiBneIVOu/U8VawI7wV37hfCeqlN5M/o1uexjh+viR rO5hIC/O9WZRrSv9tw7iDtaR/Z1X9sJuxEwM00Vm9KsDvMEmETm4upAsbslH yMFVO96R/9wrf4kfJ0xYd7p+Zq/62g+34slOYiTLYFR/TVasMeRkZCTDOYvl 0nqIbzro1Chydlm9PZUPNxhysQisiWh6dukhcBrw3d4G2AwZLXNiO7MagzZ9 GYM+69qMVhpy+Fi9fZOZAcvdJjl8bEAd0T/vFa2UxiuMIv/RVXcT3Xn23USp 8+zvzpT8McWV1JrbOLBKCveN99raXSjZfyHQYLiL2YgOI8UWEA/TqaT7r3Y8 OQK4UnDPYVmnROQIwAHS+5tNBNdzTN0GfQW597+9uejQ31a8I/+tV/4GZhwF 1ElmZJjNZrgm681SD6iN2MVCjhgqkgr55h6U4uhmyBGDj4G82CuCrSCQvNjb 0OSoYQ1G/7xvV2mRbNS4/Mt6EzS2myU5VXCR5JpLBWwJychp4pXCrNjADq7O ppZ7CJylujGdTc1l6DwiFUGZ4qPvpFeh/Bydm1Fmf5sT07kZTQ7yVofBidQc k89VQaaKehx9q/MQOA342tuAkN3DVgheR84n1CZ4KciBZbFhnUyk6lDl3gCR yyQFpnvdbxtHH9wtmN2PVVLMD31wfRTkakXBEJaFR3K1YgtGDiPwofJQ6wLu QdDDCAdI3j7CuVzi8p/Z8yv69rGJIruMEL0un66Kc6MypBxwJuSM7jL8HGSX ERqWxkzF/L9QxbfnXADdZXgIyOWFYoPfyvYPqf016chFngJadaJoyujgpmzx 0X1YNqly8A7J8QaKHMYgJuFm7fjpYYyLJAfrLrA8OyUH6+14ulfJJjpSfGF+ hiMjh4tcsSyK5Nf6S/rcFgiyBY3Lgx7bw/MDerjB42j/drf2JahZh+KGTzqn IW/JOeRGLsuODw9Vr6nIxbMcFtrYg5z3+cTDZjDi35i3/dYhR967PNb3O/R1 46CtPoLD6Ihcwt1DRB+Q/MzLdmnCFD1S2YKRY7PbdJjOQfH8qGTMZjP0/DcZ 7qP02MxLQc7HCj/YUrYm52M+BvI4vOWwPDAB8FKQN3LLcPbA0Iqhlief1rSA OwmHZiXgVcZjEDyFDsdELWCys/+Jm3m189PDhQ0UubbTO+UmYYtLNkv5lJcX Psierio+tLGQg/ReeSfHFuv0J63Sm4+QQ2Ec3kk2qz5c1+/IobCHgFyZL/Bl 5S+XJlfmG1Dyjtkr74TEecmMnsRu4+h9zO8kxBDX4e2+w8S1vTaw5CSj1zjX pydZtc02OOhjvFUJ7TDGWzh6b8sT541iGPnEtoklZxK9YZpPT7n2OlyWcZGd JSvD6C5ZIekGfMG0Kc9EiiVD3tlqS3Ip6P21yHWBsMsQO0i6MV2yh7yRY1le 5upgTA0sXbY6dVj7YbpsA0tOTXvFTbWqmlP1mJyatuPpxmVjb6mYWlUuroN3 dLF01dqlvVkUQ93dpF2K6aP8Svq6gm0vqR/pxyepXWpPLmyB7YNeWbMaZckE Z+xl/u/Fj4h81p9LHkFRzAr/92g85zpIS9WALRaAMX1gZDCBILIHdhAHUyWT gAUpLEEF9wXzZ4GW+JdAMMWHMpyTIGEryxQspUImHcCDPf+A+PNgIIOVzIIl 13NLbdQqYJmRtkIaMSFWQSTTe+sU01lgthqETzP8tjiWF1Cp/4BdPT4VMrqb PsY+c2300141s8+qV1fMzPUHOJLFZdx8CqfHnvv0j8P8yv+z8vYuDnsGOF5P QiFN/1E+tFbm2WYCEb4fYiSd6UtkYTP7+PPKQIdpbMOv/Lrak/zh907ywWWY aoVPRxDd2esO+Wz+sihBhB8XPy64ZCmSqXfFuyJzCD9qMxwy+leVvdS18fqX CD33q9ZfIRxvCH3aQHizm63xs6MQPs9PgWEEyzqDOD5nQkP9xMc3kMh7OEsW mJ4W+UJVFXcf/cgOaRrfpnOWxqK4Cab1k7HK1s88Lxr3E09juRxzgzNRsvxC f1heJt1o8v8BGs6SpF7eUus= "]]]], "CreationTimestamp" -> 3.847367548397426`16.33773866665885*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.847367548455669`16.337738666665427*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.5.0", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]])& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]])& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]])& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]])& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Preview\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "In a notebook"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"On the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`$ClickedAction = "On the cloud"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Cloud"]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]])& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], ( DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]])& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[ RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "12.3 for Linux x86 (64-bit) (July 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[648, 23, 115, 2, 70, "Title",ExpressionUUID->"579378de-8004-49bc-9562-85bba2a84d3b", CellTags->{"Name", "TemplateCell", "Title"}, CellID->617517993]}, "TemplateCell"->{ Cell[648, 23, 115, 2, 70, "Title",ExpressionUUID->"579378de-8004-49bc-9562-85bba2a84d3b", CellTags->{"Name", "TemplateCell", "Title"}, CellID->617517993], Cell[766, 27, 170, 5, 70, "Text",ExpressionUUID->"a4c89350-2ab5-431d-8ce6-5b300e892448", CellTags->{"Description", "TemplateCell"}, CellID->647598439], Cell[16293, 435, 83, 2, 70, "Subsection",ExpressionUUID->"9cba6d5f-c740-4d33-bcdb-bd15f6d43d89", CellTags->"TemplateCell", CellID->271681710]}, "Title"->{ Cell[648, 23, 115, 2, 70, "Title",ExpressionUUID->"579378de-8004-49bc-9562-85bba2a84d3b", CellTags->{"Name", "TemplateCell", "Title"}, CellID->617517993]}, "Description"->{ Cell[766, 27, 170, 5, 70, "Text",ExpressionUUID->"a4c89350-2ab5-431d-8ce6-5b300e892448", CellTags->{"Description", "TemplateCell"}, CellID->647598439]}, "Definition"->{ Cell[961, 36, 1104, 27, 70, "Section",ExpressionUUID->"7e00f9e0-09f0-4ed6-855e-6d2acac1f1a7", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "Function"->{ Cell[961, 36, 1104, 27, 70, "Section",ExpressionUUID->"7e00f9e0-09f0-4ed6-855e-6d2acac1f1a7", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710]}, "TemplateCellGroup"->{ Cell[961, 36, 1104, 27, 70, "Section",ExpressionUUID->"7e00f9e0-09f0-4ed6-855e-6d2acac1f1a7", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[4895, 155, 1880, 48, 70, "Subsection",ExpressionUUID->"5eefb374-7102-42a4-ac59-7763c188cf95", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[7460, 235, 1329, 30, 70, "Subsection",ExpressionUUID->"292d38ac-0f11-4f18-9205-20255f71c455", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[9342, 281, 6926, 150, 70, "Section",ExpressionUUID->"a51febea-c41e-49ea-8ce6-2af086a6fb8e", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[208020, 4530, 918, 24, 70, "Subsection",ExpressionUUID->"547fdd5b-22e9-41a6-a558-b8d711faf85e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[209047, 4562, 893, 24, 70, "Subsection",ExpressionUUID->"447dcf9b-093b-449e-b492-9b8deb24999a", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[210081, 4597, 167, 5, 70, "Subsection",ExpressionUUID->"f1b621c4-cf1f-449c-a558-a7f7b6b06b07", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[210467, 4616, 870, 24, 70, "Subsection",ExpressionUUID->"8e8e1dd7-a55e-4254-8d87-455893d1097b", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[211430, 4648, 919, 24, 70, "Subsection",ExpressionUUID->"e297106a-f11c-400e-8cfe-0b6dbeb5c4df", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[212649, 4689, 971, 25, 70, "Subsection",ExpressionUUID->"9230631e-a89e-4beb-bfef-098065815c83", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[214155, 4729, 823, 24, 70, "Subsection",ExpressionUUID->"71196d7b-d517-4d89-af1e-546afb93c633", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[215503, 4768, 1762, 43, 70, "Subsection",ExpressionUUID->"dbeb7e8e-248e-414e-837e-93a6938e770c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[217576, 4831, 1048, 26, 70, "Section",ExpressionUUID->"8b25b2fc-966b-49ba-80eb-64573f73b947", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[219173, 4872, 929, 25, 70, "Section",ExpressionUUID->"3b60deba-aeb3-441e-9671-b51f54a64846", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]}, "Documentation"->{ Cell[4733, 147, 137, 4, 70, "Section",ExpressionUUID->"dc5bb2fe-afd8-45e4-a467-611a254a3a09", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535]}, "TemplateSection"->{ Cell[4733, 147, 137, 4, 70, "Section",ExpressionUUID->"dc5bb2fe-afd8-45e4-a467-611a254a3a09", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[207821, 4522, 174, 4, 70, "Section",ExpressionUUID->"fc5900d8-0de7-490a-a7ce-7e254924c752", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Usage"->{ Cell[4895, 155, 1880, 48, 70, "Subsection",ExpressionUUID->"5eefb374-7102-42a4-ac59-7763c188cf95", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898]}, "Details & Options"->{ Cell[7460, 235, 1329, 30, 70, "Subsection",ExpressionUUID->"292d38ac-0f11-4f18-9205-20255f71c455", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "Notes"->{ Cell[7460, 235, 1329, 30, 70, "Subsection",ExpressionUUID->"292d38ac-0f11-4f18-9205-20255f71c455", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828]}, "TabNext"->{ Cell[8792, 267, 501, 8, 70, "Notes",ExpressionUUID->"d56266ee-fd8e-4355-86d8-1f84b49310b8", CellTags->"TabNext", CellID->2456492], Cell[213623, 4716, 495, 8, 70, "Text",ExpressionUUID->"3a70f068-1268-47ae-8fe5-628a91bd96be", CellTags->"TabNext", CellID->91842863], Cell[214981, 4755, 485, 8, 70, "Item",ExpressionUUID->"1fa8379d-4e8c-473f-a5fc-9561bde631a6", CellTags->"TabNext", CellID->515049506], Cell[218627, 4859, 509, 8, 70, "Text",ExpressionUUID->"9a51e945-259e-4e24-a41f-82667fcd6668", CellTags->"TabNext", CellID->991784503], Cell[220105, 4899, 495, 8, 70, "Text",ExpressionUUID->"35218f16-e8f1-4b90-bbcf-f4048d183beb", CellTags->"TabNext", CellID->932041030]}, "Examples"->{ Cell[9342, 281, 6926, 150, 70, "Section",ExpressionUUID->"a51febea-c41e-49ea-8ce6-2af086a6fb8e", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657]}, "Source & Additional Information"->{ Cell[207821, 4522, 174, 4, 70, "Section",ExpressionUUID->"fc5900d8-0de7-490a-a7ce-7e254924c752", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224]}, "Contributed By"->{ Cell[208020, 4530, 918, 24, 70, "Subsection",ExpressionUUID->"547fdd5b-22e9-41a6-a558-b8d711faf85e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "ContributorInformation"->{ Cell[208020, 4530, 918, 24, 70, "Subsection",ExpressionUUID->"547fdd5b-22e9-41a6-a558-b8d711faf85e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457]}, "Keywords"->{ Cell[209047, 4562, 893, 24, 70, "Subsection",ExpressionUUID->"447dcf9b-093b-449e-b492-9b8deb24999a", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136]}, "Categories"->{ Cell[210081, 4597, 167, 5, 70, "Subsection",ExpressionUUID->"f1b621c4-cf1f-449c-a558-a7f7b6b06b07", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420]}, "Related Symbols"->{ Cell[210467, 4616, 870, 24, 70, "Subsection",ExpressionUUID->"8e8e1dd7-a55e-4254-8d87-455893d1097b", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728]}, "Related Resource Objects"->{ Cell[211430, 4648, 919, 24, 70, "Subsection",ExpressionUUID->"e297106a-f11c-400e-8cfe-0b6dbeb5c4df", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769]}, "Source/Reference Citation"->{ Cell[212649, 4689, 971, 25, 70, "Subsection",ExpressionUUID->"9230631e-a89e-4beb-bfef-098065815c83", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429]}, "Links"->{ Cell[214155, 4729, 823, 24, 70, "Subsection",ExpressionUUID->"71196d7b-d517-4d89-af1e-546afb93c633", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842]}, "Tests"->{ Cell[215503, 4768, 1762, 43, 70, "Subsection",ExpressionUUID->"dbeb7e8e-248e-414e-837e-93a6938e770c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "VerificationTests"->{ Cell[215503, 4768, 1762, 43, 70, "Subsection",ExpressionUUID->"dbeb7e8e-248e-414e-837e-93a6938e770c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343]}, "Author Notes"->{ Cell[217576, 4831, 1048, 26, 70, "Section",ExpressionUUID->"8b25b2fc-966b-49ba-80eb-64573f73b947", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325]}, "Submission Notes"->{ Cell[219173, 4872, 929, 25, 70, "Section",ExpressionUUID->"3b60deba-aeb3-441e-9671-b51f54a64846", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 332508, 7046}, {"TemplateCell", 332691, 7050}, {"Title", 333178, 7060}, {"Description", 333360, 7064}, {"Definition", 333538, 7068}, {"Function", 333735, 7072}, {"TemplateCellGroup", 333941, 7076}, {"Documentation", 336507, 7119}, {"TemplateSection", 336699, 7123}, {"Usage", 337072, 7130}, {"Details & Options", 337266, 7134}, {"Notes", 337469, 7138}, {"TabNext", 337674, 7142}, {"Examples", 338400, 7158}, {"Source & Additional Information", 338609, 7162}, {"Contributed By", 338822, 7166}, {"ContributorInformation", 339058, 7170}, {"Keywords", 339280, 7174}, {"Categories", 339472, 7178}, {"Related Symbols", 339670, 7182}, {"Related Resource Objects", 339883, 7186}, {"Source/Reference Citation", 340105, 7190}, {"Links", 340309, 7194}, {"Tests", 340493, 7198}, {"VerificationTests", 340711, 7202}, {"Author Notes", 340924, 7206}, {"Submission Notes", 341124, 7210} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[648, 23, 115, 2, 70, "Title",ExpressionUUID->"579378de-8004-49bc-9562-85bba2a84d3b", CellTags->{"Name", "TemplateCell", "Title"}, CellID->617517993], Cell[766, 27, 170, 5, 70, "Text",ExpressionUUID->"a4c89350-2ab5-431d-8ce6-5b300e892448", CellTags->{"Description", "TemplateCell"}, CellID->647598439], Cell[CellGroupData[{ Cell[961, 36, 1104, 27, 70, "Section",ExpressionUUID->"7e00f9e0-09f0-4ed6-855e-6d2acac1f1a7", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->201182710], Cell[2068, 65, 2628, 77, 70, "Input",ExpressionUUID->"34dd6699-3769-44db-bdc1-b01e817cabd7", CellID->500940840] }, Open ]], Cell[CellGroupData[{ Cell[4733, 147, 137, 4, 70, "Section",ExpressionUUID->"dc5bb2fe-afd8-45e4-a467-611a254a3a09", CellTags->{"Documentation", "TemplateSection"}, CellID->94487535], Cell[CellGroupData[{ Cell[4895, 155, 1880, 48, 70, "Subsection",ExpressionUUID->"5eefb374-7102-42a4-ac59-7763c188cf95", CellTags->{"TemplateCellGroup", "Usage"}, CellID->321985898], Cell[CellGroupData[{ Cell[6800, 207, 345, 11, 70, "UsageInputs",ExpressionUUID->"7a660970-6f27-4110-997b-d17df5c92f64", CellID->775196922], Cell[7148, 220, 263, 9, 70, "UsageDescription",ExpressionUUID->"e8375516-d5c4-4daf-9a44-3a58e5edb932", CellID->620941866] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7460, 235, 1329, 30, 70, "Subsection",ExpressionUUID->"292d38ac-0f11-4f18-9205-20255f71c455", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->892718828], Cell[8792, 267, 501, 8, 70, "Notes",ExpressionUUID->"d56266ee-fd8e-4355-86d8-1f84b49310b8", CellTags->"TabNext", CellID->2456492] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9342, 281, 6926, 150, 70, "Section",ExpressionUUID->"a51febea-c41e-49ea-8ce6-2af086a6fb8e", CellTags->{"Examples", "TemplateCellGroup"}, CellID->677271657], Cell[CellGroupData[{ Cell[16293, 435, 83, 2, 70, "Subsection",ExpressionUUID->"9cba6d5f-c740-4d33-bcdb-bd15f6d43d89", CellTags->"TemplateCell", CellID->271681710], Cell[16379, 439, 79, 1, 70, "Text",ExpressionUUID->"5c9ec371-5900-4389-be22-ebfae17f547a", CellID->50486340], Cell[CellGroupData[{ Cell[16483, 444, 206, 6, 70, "Input",ExpressionUUID->"fa4d4305-e0db-431c-9a0d-1f21156b7941", CellID->969778923], Cell[16692, 452, 596, 17, 70, "Output",ExpressionUUID->"ceb89754-101c-49f7-81c6-c57be17d00f8", CellID->877597031] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17337, 475, 47, 1, 70, "Subsection",ExpressionUUID->"55f2c727-6bc9-4402-a5e7-1045ceb2dee9", CellID->964056545], Cell[17387, 478, 142, 4, 70, "Text",ExpressionUUID->"b071fcc0-578e-49bc-8d93-64e52c0a186e", CellID->607428286], Cell[CellGroupData[{ Cell[17554, 486, 206, 6, 70, "Input",ExpressionUUID->"c9e84260-b90f-4edf-a253-60a45507d60e", CellID->193787210], Cell[17763, 494, 939, 25, 70, "Output",ExpressionUUID->"a19c29b0-8d39-441a-82a4-35775719db89", CellID->921872700] }, Open ]], Cell[CellGroupData[{ Cell[18739, 524, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"4ee2f8f9-6789-4487-ae0a-bb32956551a6", CellID->224031726], Cell[18867, 529, 140, 4, 70, "Text",ExpressionUUID->"e789d6f6-b6c1-455c-a30e-7b7c7578e003", CellID->623523997], Cell[CellGroupData[{ Cell[19032, 537, 206, 6, 70, "Input",ExpressionUUID->"b833bf42-d01e-4211-8bf2-4bc9d1a2262a", CellID->687870580], Cell[19241, 545, 2199, 55, 70, "Output",ExpressionUUID->"cd6a4ccc-3ae4-41ea-9f35-2fe9d094f7ff", CellID->846903198] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21489, 606, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"de8027b2-3265-4ba2-b5e2-1034e3d4a813", CellID->224031727], Cell[21617, 611, 140, 4, 70, "Text",ExpressionUUID->"6be34cb1-e655-41b1-a6bf-8e7a6edcf98a", CellID->973656220], Cell[CellGroupData[{ Cell[21782, 619, 182, 5, 70, "Input",ExpressionUUID->"013a81c2-c915-48e6-9f70-3023c4aeaab6", CellID->33978936], Cell[21967, 626, 2176, 54, 70, "Output",ExpressionUUID->"6f1daa1c-a11f-448a-a716-d80a12989623", CellID->279175409] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24192, 686, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"c0732811-f35d-4eba-b755-b12188e5a234", CellID->224031728], Cell[24320, 691, 55, 1, 70, "Text",ExpressionUUID->"0e6823dd-4601-4dad-9b9d-840125b4289e", CellID->638813523], Cell[CellGroupData[{ Cell[24400, 696, 264, 8, 70, "Input",ExpressionUUID->"2c53c3aa-2081-4652-b83f-d23caad9c991", CellID->974019465], Cell[24667, 706, 11547, 293, 70, "Output",ExpressionUUID->"9e46a436-9e30-4fce-b96c-a60cf321c400", CellID->402925309] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36275, 1006, 54, 1, 70, "Subsection",ExpressionUUID->"a57042c6-afa1-4479-b8b7-9d24877a6b88", CellID->568056528], Cell[36332, 1009, 607, 20, 70, "Text",ExpressionUUID->"2cbad8a3-bc7d-49af-9279-3a09e4f96025", CellID->111835432], Cell[CellGroupData[{ Cell[36964, 1033, 527, 16, 70, "Input",ExpressionUUID->"97d2f43c-6fdd-4eb8-966c-2af9b0a0f29a", CellID->786089958], Cell[37494, 1051, 170266, 3464, 70, "Output",ExpressionUUID->"186f5642-4fa9-4f13-b5a6-66ed85b30b9a", CellID->735097674] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[207821, 4522, 174, 4, 70, "Section",ExpressionUUID->"fc5900d8-0de7-490a-a7ce-7e254924c752", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->122838224], Cell[CellGroupData[{ Cell[208020, 4530, 918, 24, 70, "Subsection",ExpressionUUID->"547fdd5b-22e9-41a6-a558-b8d711faf85e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->340488457], Cell[208941, 4556, 69, 1, 70, "Text",ExpressionUUID->"ecfa85a6-4357-4445-a9fa-738050926ece", CellID->409719857] }, Open ]], Cell[CellGroupData[{ Cell[209047, 4562, 893, 24, 70, "Subsection",ExpressionUUID->"447dcf9b-093b-449e-b492-9b8deb24999a", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->888841136], Cell[209943, 4588, 55, 1, 70, "Item",ExpressionUUID->"66a27c59-c74b-49b8-9554-31f1b470aab6", CellID->828263968], Cell[210001, 4591, 43, 1, 70, "Item",ExpressionUUID->"162b9f27-a2ac-4a71-998c-7551d1d7b1eb", CellID->281649519] }, Open ]], Cell[CellGroupData[{ Cell[210081, 4597, 167, 5, 70, "Subsection",ExpressionUUID->"f1b621c4-cf1f-449c-a558-a7f7b6b06b07", CellTags->{"Categories", "TemplateCellGroup"}, CellID->841175420], Cell[210251, 4604, 67, 1, 70, "Item",ExpressionUUID->"19066fa1-92e1-4106-90a7-3149d578dd33", CellID->899989995], Cell[210321, 4607, 50, 1, 70, "Item",ExpressionUUID->"51f59e73-4ea4-4eee-97bb-ff3da497638f", CellID->297764926], Cell[210374, 4610, 56, 1, 70, "Item",ExpressionUUID->"57e37794-5d08-47c3-b49f-e77a121dce49", CellID->254453] }, Open ]], Cell[CellGroupData[{ Cell[210467, 4616, 870, 24, 70, "Subsection",ExpressionUUID->"8e8e1dd7-a55e-4254-8d87-455893d1097b", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->819464728], Cell[211340, 4642, 53, 1, 70, "Item",ExpressionUUID->"e41c07d3-4dd6-40d8-9b96-faabc7b9ea1e", CellID->12751187] }, Open ]], Cell[CellGroupData[{ Cell[211430, 4648, 919, 24, 70, "Subsection",ExpressionUUID->"e297106a-f11c-400e-8cfe-0b6dbeb5c4df", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->58300769], Cell[212352, 4674, 47, 1, 70, "Item",ExpressionUUID->"f6715363-e2b6-4f07-b359-6a5ba52b55eb", CellID->47345032], Cell[212402, 4677, 64, 1, 70, "Item",ExpressionUUID->"2f342279-859b-480a-bca4-75e0852b6a50", CellID->188350533], Cell[212469, 4680, 68, 1, 70, "Item",ExpressionUUID->"a786bbff-9dc4-47ad-8f39-1fe71470c080", CellID->301852787], Cell[212540, 4683, 72, 1, 70, "Item",ExpressionUUID->"ed77d2e4-6210-4ded-9747-f8f064a32040", CellID->663662276] }, Open ]], Cell[CellGroupData[{ Cell[212649, 4689, 971, 25, 70, "Subsection",ExpressionUUID->"9230631e-a89e-4beb-bfef-098065815c83", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->218541429], Cell[213623, 4716, 495, 8, 70, "Text",ExpressionUUID->"3a70f068-1268-47ae-8fe5-628a91bd96be", CellTags->"TabNext", CellID->91842863] }, Open ]], Cell[CellGroupData[{ Cell[214155, 4729, 823, 24, 70, "Subsection",ExpressionUUID->"71196d7b-d517-4d89-af1e-546afb93c633", CellTags->{"Links", "TemplateCellGroup"}, CellID->280139842], Cell[214981, 4755, 485, 8, 70, "Item",ExpressionUUID->"1fa8379d-4e8c-473f-a5fc-9561bde631a6", CellTags->"TabNext", CellID->515049506] }, Open ]], Cell[CellGroupData[{ Cell[215503, 4768, 1762, 43, 70, "Subsection",ExpressionUUID->"dbeb7e8e-248e-414e-837e-93a6938e770c", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->539954343], Cell[CellGroupData[{ Cell[217290, 4815, 129, 4, 70, "Input",ExpressionUUID->"857a8aab-bc95-4ef3-a627-d87531a3887b", CellID->667877521], Cell[217422, 4821, 93, 3, 70, "Output",ExpressionUUID->"9405cfb6-1b3e-4e96-b354-120305262f9f", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[217576, 4831, 1048, 26, 70, "Section",ExpressionUUID->"8b25b2fc-966b-49ba-80eb-64573f73b947", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->720474325], Cell[218627, 4859, 509, 8, 70, "Text",ExpressionUUID->"9a51e945-259e-4e24-a41f-82667fcd6668", CellTags->"TabNext", CellID->991784503] }, Open ]], Cell[CellGroupData[{ Cell[219173, 4872, 929, 25, 70, "Section",ExpressionUUID->"3b60deba-aeb3-441e-9671-b51f54a64846", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->577229082], Cell[220105, 4899, 495, 8, 70, "Text",ExpressionUUID->"35218f16-e8f1-4b90-bbcf-f4048d183beb", CellTags->"TabNext", CellID->932041030] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)