(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 135760, 3298] NotebookOptionsPosition[ 49324, 1575] NotebookOutlinePosition[ 124914, 3055] CellTagsIndexPosition[ 124230, 3032] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["SimplifyRepeatedSubexpressions", "Title", CellTags->"Title"], Cell["\<\ Replace repeated subexpressions in an expression with new symbols\ \>", "Text", CellTags->"Description"], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",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 -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->474513213], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"SimplifyRepeatedSubexpressions", "[", RowBox[{"expr_", ",", " ", RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], " ", ":=", " ", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "FunctionRepository`$4c0896e8e03d4dc69250c2adb9054271`result", " ", "=", " ", RowBox[{"{", "expr", "}"}]}], ",", " ", RowBox[{"subexpressions", " ", "=", " ", RowBox[{"ReverseSortBy", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"subs", "[", "expr", "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"LeafCount", "[", "#1", "]"}], " ", ">=", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], " ", "&"}]}], " ", "]"}], ",", " ", "LeafCount"}], "]"}]}]}], "}"}], ",", " ", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Position", "[", RowBox[{ "FunctionRepository`$4c0896e8e03d4dc69250c2adb9054271`result", ",", " ", "s"}], "]"}], "]"}], " ", ">", " ", "1"}], ",", " ", RowBox[{ RowBox[{"var", " ", "=", " ", RowBox[{"Unique", "[", "]"}]}], ";", " ", RowBox[{ "FunctionRepository`$4c0896e8e03d4dc69250c2adb9054271`result", " ", "=", " ", RowBox[{"Append", "[", RowBox[{ RowBox[{ "FunctionRepository`$4c0896e8e03d4dc69250c2adb9054271`result", " ", "/.", " ", RowBox[{"s", " ", "->", " ", "var"}]}], ",", " ", RowBox[{"var", " ", "->", " ", "s"}]}], "]"}]}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"s", ",", " ", "subexpressions"}], "}"}]}], "]"}], ";", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ "Length", "[", "FunctionRepository`$4c0896e8e03d4dc69250c2adb9054271`result", "]"}], " ", "<=", " ", "2"}], ",", " ", "FunctionRepository`$4c0896e8e03d4dc69250c2adb9054271`result", ",", " ", RowBox[{"{", RowBox[{ RowBox[{ "First", "[", "FunctionRepository`$4c0896e8e03d4dc69250c2adb9054271`result", "]"}], ",", " ", RowBox[{ "Rest", "[", "FunctionRepository`$4c0896e8e03d4dc69250c2adb9054271`result", "]"}]}], "}"}]}], "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"Options", "[", "SimplifyRepeatedSubexpressions", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{"\"\\"", " ", "->", " ", "2"}], "}"}]}]}], "Input", InitializationCell->True], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"subs", "[", RowBox[{ RowBox[{"(", "expr_", ")"}], "[", "parts___", "]"}], "]"}], " ", ":=", " ", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"parts", ",", " ", RowBox[{"subs", " ", "/@", " ", RowBox[{"{", "parts", "}"}]}]}], "}"}], "]"}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"subs", "[", "n_", "]"}], " ", ":=", " ", "n"}]}], "Input", InitializationCell->True] }, Open ]], Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyRepeatedSubexpressions", "[", StyleBox["expr", "TI"], "]"}]], "UsageInputs"], Cell[TextData[{ "returns a list of the ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " with repeated subexpressions removed, along with the replacement rules \ used to rewrite them in simpler form." }], "UsageDescription"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used 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 -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->66019318], 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->521904482] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ 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 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 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 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 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 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 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 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 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 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 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 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"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell[TextData[{ "Find the repeated term in the expression ", Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "3"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "2"]}]]], ":" }], "Text", CellChangeTimes->{3.7608945052284613`*^9}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"result", "=", RowBox[{"SimplifyRepeatedSubexpressions", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "3"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "2"]}], "]"}]}]], "Input", CellLabel->"In[6]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["$11", "2"], "+", SuperscriptBox["$11", "3"]}], ",", RowBox[{"$11", "\[Rule]", RowBox[{"a", "+", "b", "+", "c"}]}]}], "}"}]], "Output", CellLabel->"Out[6]=", CellID->1167254882] }, Open ]], Cell["\<\ Reconstruct the original expression from the decomposed form:\ \>", "Text", CellID->1927198693], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReplaceAll", "@@", "result"}]], "Input", CellLabel->"In[7]:=", CellID->240937250], Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "3"]}]], "Output", CellLabel->"Out[7]=", CellID->810873743] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", CellID->776923543], Cell["Finding many small common subexpressions may not be helpful:", "Text", CellChangeTimes->{{3.761065294969907*^9, 3.7610652976835747`*^9}}, CellID->1509016220], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyRepeatedSubexpressions", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"b", " ", "x"}], "+", "c"}], " ", "\[Equal]", "0"}], ",", "x"}], "]"}], "]"}]], "Input", CellLabel->"In[8]:=", CellID->1346891848], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "$12"}], "+", "$13"}], ")"}], " ", "$14", " ", "$15"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"$12", "+", "$13"}], ")"}], " ", "$14", " ", "$15"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"$12", "\[Rule]", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", " ", "a", " ", "c"}]}], ")"}], "$15"]}], ",", RowBox[{"$13", "\[Rule]", RowBox[{"-", "b"}]}], ",", RowBox[{"$14", "\[Rule]", FractionBox["1", "a"]}], ",", RowBox[{"$15", "\[Rule]", FractionBox["1", "2"]}]}], "}"}]}], "}"}]], "Output", CellLabel->"Out[8]=", CellID->423774739] }, Open ]], Cell[TextData[{ "Find only the largest with ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellChangeTimes->{3.761065301310034*^9, 3.761065332594442*^9}, CellID->1665011013], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyRepeatedSubexpressions", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"b", " ", "x"}], "+", "c"}], " ", "\[Equal]", "0"}], ",", "x"}], "]"}], ",", RowBox[{"\"\\"", "\[Rule]", "10"}]}], "]"}]], "Input", CellLabel->"In[9]:=", CellID->96136153], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "b"}], "-", "$16"}], RowBox[{"2", " ", "a"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "b"}], "+", "$16"}], RowBox[{"2", " ", "a"}]]}], "}"}]}], "}"}], ",", RowBox[{"$16", "\[Rule]", SqrtBox[ RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", " ", "a", " ", "c"}]}]]}]}], "}"}]], "Output", CellLabel->"Out[9]=", CellID->1801755034] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellID->568056528], Cell["\<\ Remove the discriminant from the quadratic solution equations:\ \>", "Text", CellID->113603500], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyRepeatedSubexpressions", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"b", " ", "x"}], "+", "c"}], " ", "\[Equal]", "0"}], ",", "x"}], "]"}], ",", RowBox[{"\"\\"", "\[Rule]", "10"}]}], "]"}]], "Input", CellLabel->"In[10]:=", CellID->1024906762], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "b"}], "-", "$17"}], RowBox[{"2", " ", "a"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", FractionBox[ RowBox[{ RowBox[{"-", "b"}], "+", "$17"}], RowBox[{"2", " ", "a"}]]}], "}"}]}], "}"}], ",", RowBox[{"$17", "\[Rule]", SqrtBox[ RowBox[{ SuperscriptBox["b", "2"], "-", RowBox[{"4", " ", "a", " ", "c"}]}]]}]}], "}"}]], "Output", CellLabel->"Out[10]=", CellID->2036190929] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellID->754506620], Cell[TextData[{ "Reconstruct the original expression from the decomposed form by applying ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ReplaceAll", "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/ReplaceAll"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellChangeTimes->{3.760894535373528*^9}, CellID->616659360], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"result", "=", RowBox[{"SimplifyRepeatedSubexpressions", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "3"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "2"]}], "]"}]}]], "Input", CellLabel->"In[11]:=", CellID->1798716845], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["$18", "2"], "+", SuperscriptBox["$18", "3"]}], ",", RowBox[{"$18", "\[Rule]", RowBox[{"a", "+", "b", "+", "c"}]}]}], "}"}]], "Output", CellLabel->"Out[11]=", CellID->2109028758] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReplaceAll", "@@", "result"}]], "Input", CellLabel->"In[12]:=", CellID->437783098], Cell[BoxData[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "3"]}]], "Output", CellLabel->"Out[12]=", CellID->186935018] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellID->92483860], Cell[TextData[{ "The ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["FullForm", "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/FullForm"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " of subexpressions must match; in this case no match is found:" }], "Text", CellChangeTimes->{{3.760894550368553*^9, 3.760894559276023*^9}}, CellID->1382127119], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyRepeatedSubexpressions", "[", RowBox[{"a", "+", "b", "+", "c", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "2"]}], "]"}]], "Input", CellLabel->"In[13]:=", CellID->1402728723], Cell[BoxData[ RowBox[{"{", RowBox[{"a", "+", "b", "+", "c", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "2"]}], "}"}]], "Output", CellLabel->"Out[13]=", CellID->702593811] }, Open ]], Cell[TextData[{ "This is because the outermost ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Plus", "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/Plus"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " has four arguments and not just the ", Cell[BoxData["a"], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ",", Cell[BoxData[ RowBox[{" ", "b"}]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " and ", Cell[BoxData["c"], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellChangeTimes->{{3.7608945644074707`*^9, 3.760894578252582*^9}}, CellID->913104907], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", RowBox[{"a", "+", "b", "+", "c", "+", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b", "+", "c"}], ")"}], "2"]}], "]"}]], "Input", CellLabel->"In[14]:=", CellID->1767951541], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"Plus", "[", RowBox[{"a", ",", "b", ",", "c", ",", RowBox[{"Power", "[", RowBox[{ RowBox[{"Plus", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", "2"}], "]"}]}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellLabel->"Out[14]//FullForm=", CellID->2121451260] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter"], Cell[TextData[{ "If the input expression contains elements with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["HoldAll", "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/HoldAll"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ", ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["HoldRest", "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/HoldRest"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["HoldFirst", "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/HoldFirst"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ", the contents will evaluate during the search:" }], "Text", CellID->2079656431], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyRepeatedSubexpressions", "[", RowBox[{"Hold", "[", RowBox[{"Print", "[", RowBox[{"{", RowBox[{ RowBox[{"2", "+", "2"}], ",", RowBox[{"2", "+", "2"}]}], "}"}], "]"}], "]"}], "]"}]], "Input", CellLabel->"In[15]:=", CellID->341797245], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}]], "Print", CellLabel->"During evaluation of In[15]:=", CellID->1555426793], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "4"}], "}"}]], "Print", CellLabel->"During evaluation of In[15]:=", CellID->739675020] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"Hold", "[", RowBox[{"Print", "[", RowBox[{"{", RowBox[{ RowBox[{"2", "+", "2"}], ",", RowBox[{"2", "+", "2"}]}], "}"}], "]"}], "]"}], "}"}]], "Output", CellLabel->"Out[15]=", CellID->2082712304] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", CellID->540091361], Cell["Simplify the order three polynomial solution:", "Text", CellID->396587948], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyRepeatedSubexpressions", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{"x", "^", "3"}]}], "+", RowBox[{"b", " ", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"c", " ", "x"}], "+", "d"}], "\[Equal]", "0"}], ",", "x"}], "]"}], ",", RowBox[{"\"\\"", "\[Rule]", "30"}]}], "]"}]], "Input", CellLabel->"In[16]:=", CellID->170717940], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["b", RowBox[{"3", " ", "a"}]]}], "+", FractionBox["$19", RowBox[{"3", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "a"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["b", "2"]}], "+", RowBox[{"3", " ", "a", " ", "c"}]}], ")"}], " ", "$20"}], RowBox[{"3", " ", "a"}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["b", RowBox[{"3", " ", "a"}]]}], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", "$19"}], RowBox[{"6", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "a"}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["b", "2"]}], "+", RowBox[{"3", " ", "a", " ", "c"}]}], ")"}], " ", "$20"}], RowBox[{"3", " ", SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", "a"}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["b", RowBox[{"3", " ", "a"}]]}], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", "$19"}], RowBox[{"6", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "a"}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["b", "2"]}], "+", RowBox[{"3", " ", "a", " ", "c"}]}], ")"}], " ", "$20"}], RowBox[{"3", " ", SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", "a"}]]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"$19", "\[Rule]", SuperscriptBox["$21", RowBox[{"1", "/", "3"}]]}], ",", RowBox[{"$20", "\[Rule]", FractionBox["1", SuperscriptBox["$21", RowBox[{"1", "/", "3"}]]]}], ",", RowBox[{"$21", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}], "+", SqrtBox[ RowBox[{ RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["b", "2"]}], "+", RowBox[{"3", " ", "a", " ", "c"}]}], ")"}], "3"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{"9", " ", "a", " ", "b", " ", "c"}], "-", RowBox[{"27", " ", SuperscriptBox["a", "2"], " ", "d"}]}], ")"}], "2"]}]]}]}]}], "}"}]}], "}"}]], "Output", CellLabel->"Out[16]=", CellID->436365235] }, Open ]], Cell["And the order four polynomial solution:", "Text", CellID->131743707], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SimplifyRepeatedSubexpressions", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{"x", "^", "4"}]}], "+", RowBox[{"b", " ", RowBox[{"x", "^", "3"}]}], "+", RowBox[{"c", " ", RowBox[{"x", "^", "2"}]}], "+", RowBox[{"d", " ", "x"}], "+", "e"}], "\[Equal]", "0"}], ",", "x"}], "]"}], ",", RowBox[{"\"\\"", "\[Rule]", "30"}]}], "]"}]], "Input", CellLabel->"In[17]:=", CellID->755351108], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["b", RowBox[{"4", " ", "a"}]]}], "-", FractionBox["$23", "2"], "+", "$25"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["b", RowBox[{"4", " ", "a"}]]}], "+", FractionBox["$23", "2"], "+", "$25"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["b", RowBox[{"4", " ", "a"}]]}], "-", FractionBox["$22", "2"], "+", "$24"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["b", RowBox[{"4", " ", "a"}]]}], "+", FractionBox["$22", "2"], "+", "$24"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"$22", "\[Rule]", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"2", " ", SuperscriptBox["a", "2"]}]], "-", FractionBox[ RowBox[{"4", " ", "c"}], RowBox[{"3", " ", "a"}]], "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["b", "3"], SuperscriptBox["a", "3"]]}], "+", FractionBox[ RowBox[{"4", " ", "b", " ", "c"}], SuperscriptBox["a", "2"]], "-", FractionBox[ RowBox[{"8", " ", "d"}], "a"]}], ")"}], " ", "$27"}], "+", "$29", "+", "$30"}]]}], ",", RowBox[{"$23", "\[Rule]", SqrtBox[ RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"2", " ", SuperscriptBox["a", "2"]}]], "-", FractionBox[ RowBox[{"4", " ", "c"}], RowBox[{"3", " ", "a"}]], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["b", "3"], SuperscriptBox["a", "3"]]}], "+", FractionBox[ RowBox[{"4", " ", "b", " ", "c"}], SuperscriptBox["a", "2"]], "-", FractionBox[ RowBox[{"8", " ", "d"}], "a"]}], ")"}], " ", "$27"}], "+", "$29", "+", "$30"}]]}], ",", RowBox[{"$24", "\[Rule]", FractionBox["$26", "2"]}], ",", RowBox[{"$25", "\[Rule]", RowBox[{"-", FractionBox["$26", "2"]}]}], ",", RowBox[{"$26", "\[Rule]", SqrtBox["$28"]}], ",", RowBox[{"$27", "\[Rule]", FractionBox["1", SqrtBox["$28"]]}], ",", RowBox[{"$28", "\[Rule]", RowBox[{ FractionBox[ SuperscriptBox["b", "2"], RowBox[{"4", " ", SuperscriptBox["a", "2"]}]], "-", FractionBox[ RowBox[{"2", " ", "c"}], RowBox[{"3", " ", "a"}]], "+", FractionBox["$32", RowBox[{"3", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "a"}]], "+", FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["c", "2"], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", RowBox[{"12", " ", "a", " ", "e"}]}], ")"}], " ", "$33"}], RowBox[{"3", " ", "a"}]]}]}], ",", RowBox[{"$29", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["c", "2"], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", RowBox[{"12", " ", "a", " ", "e"}]}], ")"}], " ", "$33"}], RowBox[{"3", " ", "a"}]]}]}], ",", RowBox[{"$30", "\[Rule]", RowBox[{"-", FractionBox["$32", RowBox[{"3", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", "a"}]]}]}], ",", RowBox[{"$32", "\[Rule]", SuperscriptBox["$34", RowBox[{"1", "/", "3"}]]}], ",", RowBox[{"$33", "\[Rule]", FractionBox["1", SuperscriptBox["$34", RowBox[{"1", "/", "3"}]]]}], ",", RowBox[{"$34", "\[Rule]", RowBox[{ RowBox[{"2", " ", SuperscriptBox["c", "3"]}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}], "+", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["c", "2"], "-", RowBox[{"3", " ", "b", " ", "d"}], "+", RowBox[{"12", " ", "a", " ", "e"}]}], ")"}], "3"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["c", "3"]}], "-", RowBox[{"9", " ", "b", " ", "c", " ", "d"}], "+", RowBox[{"27", " ", "a", " ", SuperscriptBox["d", "2"]}], "+", RowBox[{"27", " ", SuperscriptBox["b", "2"], " ", "e"}], "-", RowBox[{"72", " ", "a", " ", "c", " ", "e"}]}], ")"}], "2"]}], ")"}]}]}]}]}], "}"}]}], "}"}]], "Output", CellLabel->"Out[17]=", CellID->358998458] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->127820888], Cell["Jon McLoone", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->547400482], Cell["Algebra", "Item"], Cell["Decompose", "Item"], Cell["Common subexpressions", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Categories", CellID->749076926], Cell["Programming Utilities", "Item"], Cell["Symbolic & Numeric Computation", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->161079978], Cell["ReplaceAll", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->588449267], Cell["Resource Name (resources from any Wolfram repository)", "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->960273585] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->642091068], 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->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ 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"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->521525586], 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->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "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 VerificationTest expressions for including \ additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->74308299], 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["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], 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->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ 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"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], 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->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.19"}, CreateCellID->True, FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, Background -> RGBColor[0.996078, 0.941176, 0.921569], CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75], CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, False]]]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {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[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["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[{ FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`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 :> { FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), 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[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$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 -> (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 :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`FunctionTemplateToggle[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], 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 :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`\ FunctionTemplateLiteralInput[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], 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 :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`DocDelimiter[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], 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 :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertSubscript[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table Functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; FunctionResource`DefinitionNotebook`Private`showProgress[Null]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[2]]", InputForm], "\"Insert table with three columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[3]]", InputForm], "\"Add a row to the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ System`FrontEndExecute[{System`FrontEndToken[System`ButtonNotebook[], \ \"NewRow\"]}]]", InputForm], "\"Sort the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableSort[]]", InputForm], "\"Merge selected tables\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableMerge[]]", InputForm]}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], Button[ RawBoxes[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"]], Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertComment[]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}], ""], StandardForm], Evaluator -> "System", SingleEvaluation -> True], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (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], Background -> RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro SemiBold", 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 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[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[ "\"Function Repository \[RightGuillemet] \"", "Text", FontColor -> GrayLevel[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"], FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]\ & , "\"View a completed sample definition notebook\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewStyleGuidelines[]\ & , "\"View general guidelines for authoring resource functions\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Tools"]& , "\"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"], FunctionResource`DefinitionNotebook`Private`checkNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Preview\"]]", InputForm], "\"On the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Local\"]]", InputForm], "\"For my cloud account\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm], "\"Publicly in the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"CloudPublic\"]]", InputForm], "\"In this session only (without documentation)\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"KernelSession\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", 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.06349206349206349], 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[0.960784, 0.705882, 0.498039, 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., 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"], FunctionResource`DefinitionNotebook`Private`\ submitRepositoryUpdate[ ButtonNotebook[]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], 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[0.960784, 0.705882, 0.498039, 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., 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"], FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "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 -> 1.55}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]& )}], 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, Background -> None, AspectRatio -> Automatic, 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 SemiBold", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> Block[{ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]; If[ TrueQ[#4], CurrentValue[ ButtonNotebook[], {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; FunctionResource`DefinitionNotebook`Private`showProgress, Identity][ #2[]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPngeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPA8Wu WjBdNmVARkARoDhCWZjUdUsWNDUQBBQHykJcC9RyxRzdKAgCigNlGcCAGGVE mka824j1KdHhRkwsEBOnAMp0Eag= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotdGIa7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2ctQqQ1GnGhqIAgoDpSFuBarUcgGMoABMcqINI14txHp U+LDjZhYICZOAZ5bBHA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nr99I5gU7gaCAKKAMWBshDXArV8vnUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBDsjmM "], "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"], #, 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.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 0}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro SemiBold", 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["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], 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[ StyleData["Hyperlink"], FontColor -> RGBColor[0.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["InlineFormula"], FontSize -> 0.99 Inherited], 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.905882]], 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["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821083, 0.94165615, 0.87130765]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.90526255, 0.92601685, 0.9564697]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.9340271499999999, 0.95373535, 0.87923275]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False]}, Visible -> False, FrontEndVersion -> "12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[558, 20, 67, 1, 70, "Title",ExpressionUUID->"8408409e-a71f-4f46-a0d5-749d64da2257", CellTags->"Title"]}, "Description"->{ Cell[628, 23, 115, 3, 70, "Text",ExpressionUUID->"49cbdb63-c6c1-4992-88ed-1d928ccfc989", CellTags->"Description"]}, "Definition"->{ Cell[768, 30, 887, 21, 70, "Section",ExpressionUUID->"aa484033-2692-48bb-9f1d-04510cf969d0", CellTags->"Definition", CellID->474513213]}, "Documentation"->{ Cell[5084, 152, 99, 3, 70, "Section",ExpressionUUID->"eb4ffc27-64dd-4f77-b8ba-9dabeb66d105", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[5208, 159, 1615, 42, 70, "Subsection",ExpressionUUID->"4edabf35-c7ab-4412-aeb8-fb072debf99c", CellTags->"Usage", CellID->310800389]}, "Details & Options"->{ Cell[7285, 222, 1131, 24, 70, "Subsection",ExpressionUUID->"9638f30f-125c-4fbe-862e-3b0560f39ee7", CellTags->"Details & Options", CellID->66019318]}, "TabNext"->{ Cell[8419, 248, 503, 8, 70, "Notes",ExpressionUUID->"df12d889-0124-4c36-9c75-d2483cba2a03", CellTags->"TabNext", CellID->521904482], Cell[43354, 1404, 508, 8, 70, "Item",ExpressionUUID->"7f4f7226-a308-43d5-80b5-b250eff38f24", CellTags->"TabNext", CellID->960273585], Cell[44664, 1438, 496, 8, 70, "Text",ExpressionUUID->"9454f0d7-a5fc-474c-968f-6941c7f37fea", CellTags->"TabNext", CellID->343081869], Cell[45814, 1471, 485, 8, 70, "Item",ExpressionUUID->"94aae19a-9ce5-43c1-982f-f84338511bce", CellTags->"TabNext", CellID->485448166], Cell[47544, 1530, 509, 8, 70, "Text",ExpressionUUID->"d32a9bd7-5c0b-4e0f-bc04-d702389925c0", CellTags->"TabNext", CellID->567921317], Cell[48813, 1564, 495, 8, 70, "Text",ExpressionUUID->"203982dd-e78f-444d-864c-5b7b9f012553", CellTags->"TabNext", CellID->920818074]}, "Examples"->{ Cell[8959, 261, 6400, 143, 70, "Section",ExpressionUUID->"93f07f97-6344-48bb-9245-700cc5bb00ab", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[39936, 1285, 135, 3, 70, "Section",ExpressionUUID->"09409afb-ceb0-42ed-9bd3-c6964fb04b7e", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[40096, 1292, 683, 18, 70, "Subsection",ExpressionUUID->"64e8368f-c5de-440d-9da9-5d8cc43741cd", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[40846, 1317, 684, 18, 70, "Subsection",ExpressionUUID->"67e329b6-cca5-4969-b5af-561f79ba8035", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[41661, 1346, 126, 4, 70, "Subsection",ExpressionUUID->"3bf3c4b7-03c1-4514-8961-2fc708ca2853", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[41913, 1359, 661, 18, 70, "Subsection",ExpressionUUID->"21119a36-6baf-46f9-bbed-ae3b477053b8", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[42640, 1384, 711, 18, 70, "Subsection",ExpressionUUID->"b21c944a-b975-42b1-8820-ada0599ef55e", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[43899, 1417, 762, 19, 70, "Subsection",ExpressionUUID->"fbbd030b-71f9-442b-b635-d5ba35ce2e05", CellTags->"Source/Reference Citation", CellID->642091068]}, "Links"->{ Cell[45197, 1451, 614, 18, 70, "Subsection",ExpressionUUID->"f66f4078-ffba-4796-9589-2f5eff473fd7", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[46336, 1484, 767, 20, 70, "Subsection",ExpressionUUID->"9e1cc80b-1220-4cf6-8091-1b99d397831f", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[47414, 1524, 127, 4, 70, "Section",ExpressionUUID->"78dc25b2-0306-4a1c-a867-a603c130a94b", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[48090, 1543, 720, 19, 70, "Section",ExpressionUUID->"d5a8dad3-5fe4-4f14-a25c-a6bd24f5654d", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 120284, 2940}, {"Description", 120417, 2943}, {"Definition", 120555, 2946}, {"Documentation", 120721, 2950}, {"Usage", 120882, 2954}, {"Details & Options", 121053, 2958}, {"TabNext", 121225, 2962}, {"Examples", 122092, 2981}, {"Source & Additional Information", 122278, 2985}, {"Contributed By", 122469, 2989}, {"Keywords", 122641, 2993}, {"Categories", 122809, 2997}, {"Related Symbols", 122983, 3001}, {"Related Resource Objects", 123172, 3005}, {"Source/Reference Citation", 123371, 3009}, {"Links", 123551, 3013}, {"Tests", 123711, 3017}, {"Author Notes", 123877, 3021}, {"Submission Notes", 124051, 3025} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 67, 1, 70, "Title",ExpressionUUID->"8408409e-a71f-4f46-a0d5-749d64da2257", CellTags->"Title"], Cell[628, 23, 115, 3, 70, "Text",ExpressionUUID->"49cbdb63-c6c1-4992-88ed-1d928ccfc989", CellTags->"Description"], Cell[CellGroupData[{ Cell[768, 30, 887, 21, 70, "Section",ExpressionUUID->"aa484033-2692-48bb-9f1d-04510cf969d0", CellTags->"Definition", CellID->474513213], Cell[1658, 53, 2907, 78, 70, "Input",ExpressionUUID->"d267918f-f5c4-4995-9751-cc4c96a20011", InitializationCell->True], Cell[4568, 133, 501, 16, 70, "Input",ExpressionUUID->"710be62a-24e8-4684-84b8-39ca26454c0f", InitializationCell->True] }, Open ]], Cell[5084, 152, 99, 3, 70, "Section",ExpressionUUID->"eb4ffc27-64dd-4f77-b8ba-9dabeb66d105", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[5208, 159, 1615, 42, 70, "Subsection",ExpressionUUID->"4edabf35-c7ab-4412-aeb8-fb072debf99c", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[6848, 205, 111, 2, 70, "UsageInputs",ExpressionUUID->"9472da57-26ae-493a-ab67-69881a390323"], Cell[6962, 209, 274, 7, 70, "UsageDescription",ExpressionUUID->"e7f0e452-d928-4582-804e-4497bfddfb91"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7285, 222, 1131, 24, 70, "Subsection",ExpressionUUID->"9638f30f-125c-4fbe-862e-3b0560f39ee7", CellTags->"Details & Options", CellID->66019318], Cell[8419, 248, 503, 8, 70, "Notes",ExpressionUUID->"df12d889-0124-4c36-9c75-d2483cba2a03", CellTags->"TabNext", CellID->521904482] }, Open ]], Cell[CellGroupData[{ Cell[8959, 261, 6400, 143, 70, "Section",ExpressionUUID->"93f07f97-6344-48bb-9245-700cc5bb00ab", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[15384, 408, 56, 1, 70, "Subsection",ExpressionUUID->"bf433ef5-9165-4bce-ab56-aabd1b30f3a7", CellID->462042388], Cell[15443, 411, 357, 13, 70, "Text",ExpressionUUID->"cf0e8bda-1c63-4d2e-8e27-b7a5889d4f8d", CellID->13078159], Cell[CellGroupData[{ Cell[15825, 428, 356, 11, 70, "Input",ExpressionUUID->"50f96faf-0b36-4298-bee8-135509ad8e74", CellID->443871870], Cell[16184, 441, 264, 9, 70, "Output",ExpressionUUID->"c4258970-89aa-4dee-9c01-beb9daee5ddc", CellID->1167254882] }, Open ]], Cell[16463, 453, 106, 3, 70, "Text",ExpressionUUID->"34a44914-37e3-47df-b12c-ed306708e19c", CellID->1927198693], Cell[CellGroupData[{ Cell[16594, 460, 107, 3, 70, "Input",ExpressionUUID->"0ff5bd72-6d0b-4dcd-a8f7-08377aa345bc", CellID->240937250], Cell[16704, 465, 259, 9, 70, "Output",ExpressionUUID->"03cc1fcd-41a2-4289-80f0-6c7dc8fbc070", CellID->810873743] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17012, 480, 49, 1, 70, "Subsection",ExpressionUUID->"4b91b87c-9fee-4562-988e-40a9bf5f31e9", CellID->776923543], Cell[17064, 483, 165, 2, 70, "Text",ExpressionUUID->"7e45cc44-562c-49c7-b8b6-9cd1af06d2f4", CellID->1509016220], Cell[CellGroupData[{ Cell[17254, 489, 342, 11, 70, "Input",ExpressionUUID->"fa42b654-767d-4499-8327-a4205276840e", CellID->1346891848], Cell[17599, 502, 970, 33, 70, "Output",ExpressionUUID->"61e8060c-3a1c-4a49-8c03-eaf29854d98f", CellID->423774739] }, Open ]], Cell[18584, 538, 281, 8, 70, "Text",ExpressionUUID->"61b12c96-ceac-4ce7-9b35-2f742bdf76e3", CellID->1665011013], Cell[CellGroupData[{ Cell[18890, 550, 422, 13, 70, "Input",ExpressionUUID->"5f8e2608-6e75-4bba-b19f-c7b101d2da11", CellID->96136153], Cell[19315, 565, 643, 23, 70, "Output",ExpressionUUID->"fd6ec68f-0531-4dc9-b898-cf9ac899ed93", CellID->1801755034] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20007, 594, 54, 1, 70, "Subsection",ExpressionUUID->"f994fd4a-c910-48df-8bb4-9f7172032f7a", CellID->568056528], Cell[20064, 597, 106, 3, 70, "Text",ExpressionUUID->"3aaff759-50a1-442a-ae40-f0cee7c0d300", CellID->113603500], Cell[CellGroupData[{ Cell[20195, 604, 425, 13, 70, "Input",ExpressionUUID->"d54d0623-a0a7-4f53-9dd8-7609da659ae3", CellID->1024906762], Cell[20623, 619, 644, 23, 70, "Output",ExpressionUUID->"2e35c213-100d-434f-8030-39136f1d2a70", CellID->2036190929] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21316, 648, 66, 1, 70, "Subsection",ExpressionUUID->"f1850767-20cc-4ed4-b6b6-933138b370c1", CellID->754506620], Cell[21385, 651, 667, 20, 70, "Text",ExpressionUUID->"87544e52-02a5-425d-a96c-3a3f87bf513e", CellID->616659360], Cell[CellGroupData[{ Cell[22077, 675, 358, 11, 70, "Input",ExpressionUUID->"8851e9d6-41a6-4a60-84a0-682b4855c3aa", CellID->1798716845], Cell[22438, 688, 265, 9, 70, "Output",ExpressionUUID->"54e5574c-0200-4831-97c1-ea661656927f", CellID->2109028758] }, Open ]], Cell[CellGroupData[{ Cell[22740, 702, 108, 3, 70, "Input",ExpressionUUID->"1f3e08e3-2934-41fb-bb0b-84df6a48caaa", CellID->437783098], Cell[22851, 707, 260, 9, 70, "Output",ExpressionUUID->"fa8ba616-3a2d-46f1-9659-5e54bb98a9f6", CellID->186935018] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23160, 722, 56, 1, 70, "Subsection",ExpressionUUID->"5b68fdd3-9483-431d-aacf-23e09bb66f78", CellID->92483860], Cell[23219, 725, 680, 20, 70, "Text",ExpressionUUID->"1987b0ad-1096-45d2-98a6-29287cf32e12", CellID->1382127119], Cell[CellGroupData[{ Cell[23924, 749, 257, 7, 70, "Input",ExpressionUUID->"218cb245-d0d1-4655-a1e9-c3bbba297ea4", CellID->1402728723], Cell[24184, 758, 223, 7, 70, "Output",ExpressionUUID->"dfe7b7eb-c34c-49eb-a8eb-74c9a85219cf", CellID->702593811] }, Open ]], Cell[24422, 768, 1053, 33, 70, "Text",ExpressionUUID->"87b5e75a-39a0-4258-afe9-397b8aa81530", CellID->913104907], Cell[CellGroupData[{ Cell[25500, 805, 235, 7, 70, "Input",ExpressionUUID->"02270605-ced4-47d8-891f-7b0628ad8400", CellID->1767951541], Cell[25738, 814, 418, 14, 70, "Output",ExpressionUUID->"07f7511c-6677-4372-90e4-f775c161771a", CellID->2121451260] }, Open ]], Cell[26171, 831, 105, 2, 70, "ExampleDelimiter",ExpressionUUID->"9e7d3a09-1689-48e6-b04b-7a845447f257"], Cell[26279, 835, 1640, 51, 70, "Text",ExpressionUUID->"f324dcbb-eb29-47d7-9e86-9bae6f2ba4d2", CellID->2079656431], Cell[CellGroupData[{ Cell[27944, 890, 296, 9, 70, "Input",ExpressionUUID->"3642d2fa-d406-4162-b458-e72ea758315c", CellID->341797245], Cell[CellGroupData[{ Cell[28265, 903, 138, 4, 70, "Print",ExpressionUUID->"13f6e928-9a1f-491a-a3b6-d4b42245ac41", CellID->1555426793], Cell[28406, 909, 137, 4, 70, "Print",ExpressionUUID->"e5d3594b-f33a-49bb-b650-2f182484ee01", CellID->739675020] }, Open ]], Cell[28558, 916, 264, 9, 70, "Output",ExpressionUUID->"c0a6bb37-63f9-4383-8e3b-5e53c4b1ccac", CellID->2082712304] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28871, 931, 55, 1, 70, "Subsection",ExpressionUUID->"ed63263a-05eb-4dc7-a3f8-ee3b76b68379", CellID->540091361], Cell[28929, 934, 81, 1, 70, "Text",ExpressionUUID->"5b698bd4-43b7-4eb4-ae46-d13773132079", CellID->396587948], Cell[CellGroupData[{ Cell[29035, 939, 485, 15, 70, "Input",ExpressionUUID->"7acb9ac4-f9ba-4fd8-a9f9-1c56df60340c", CellID->170717940], Cell[29523, 956, 3885, 120, 70, "Output",ExpressionUUID->"e1380673-ce86-460f-a968-ba21c49d5161", CellID->436365235] }, Open ]], Cell[33423, 1079, 75, 1, 70, "Text",ExpressionUUID->"8cc56704-aca5-4072-bff8-623a3b18a0fc", CellID->131743707], Cell[CellGroupData[{ Cell[33523, 1084, 552, 17, 70, "Input",ExpressionUUID->"46a28f6f-c5e6-41c9-9355-995937fb9657", CellID->755351108], Cell[34078, 1103, 5797, 175, 70, "Output",ExpressionUUID->"34d22a1a-22fa-49e7-84d2-dfa019168841", CellID->358998458] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39936, 1285, 135, 3, 70, "Section",ExpressionUUID->"09409afb-ceb0-42ed-9bd3-c6964fb04b7e", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[40096, 1292, 683, 18, 70, "Subsection",ExpressionUUID->"64e8368f-c5de-440d-9da9-5d8cc43741cd", CellTags->"Contributed By", CellID->127820888], Cell[40782, 1312, 27, 0, 70, "Text",ExpressionUUID->"cda20ac2-4a47-4ebd-8665-6ae2e30ad435"] }, Open ]], Cell[CellGroupData[{ Cell[40846, 1317, 684, 18, 70, "Subsection",ExpressionUUID->"67e329b6-cca5-4969-b5af-561f79ba8035", CellTags->"Keywords", CellID->547400482], Cell[41533, 1337, 23, 0, 70, "Item",ExpressionUUID->"de3fe38b-3895-43a7-958c-d7815de83166"], Cell[41559, 1339, 25, 0, 70, "Item",ExpressionUUID->"c502ddae-abe2-4fa4-b823-3287ad8b01f5"], Cell[41587, 1341, 37, 0, 70, "Item",ExpressionUUID->"027cfb05-b42e-4ba2-83bf-10feb3013701"] }, Open ]], Cell[CellGroupData[{ Cell[41661, 1346, 126, 4, 70, "Subsection",ExpressionUUID->"3bf3c4b7-03c1-4514-8961-2fc708ca2853", CellTags->"Categories", CellID->749076926], Cell[41790, 1352, 37, 0, 70, "Item",ExpressionUUID->"6b8fb63e-beb8-4028-ab7e-129689e5827e"], Cell[41830, 1354, 46, 0, 70, "Item",ExpressionUUID->"7688fb7f-2c2b-407e-b196-6e13c154e952"] }, Open ]], Cell[CellGroupData[{ Cell[41913, 1359, 661, 18, 70, "Subsection",ExpressionUUID->"21119a36-6baf-46f9-bbed-ae3b477053b8", CellTags->"Related Symbols", CellID->161079978], Cell[42577, 1379, 26, 0, 70, "Item",ExpressionUUID->"86ebda8d-1c70-4ca4-9b02-0ba4452f8bfe"] }, Open ]], Cell[CellGroupData[{ Cell[42640, 1384, 711, 18, 70, "Subsection",ExpressionUUID->"b21c944a-b975-42b1-8820-ada0599ef55e", CellTags->"Related Resource Objects", CellID->588449267], Cell[43354, 1404, 508, 8, 70, "Item",ExpressionUUID->"7f4f7226-a308-43d5-80b5-b250eff38f24", CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[43899, 1417, 762, 19, 70, "Subsection",ExpressionUUID->"fbbd030b-71f9-442b-b635-d5ba35ce2e05", CellTags->"Source/Reference Citation", CellID->642091068], Cell[44664, 1438, 496, 8, 70, "Text",ExpressionUUID->"9454f0d7-a5fc-474c-968f-6941c7f37fea", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[45197, 1451, 614, 18, 70, "Subsection",ExpressionUUID->"f66f4078-ffba-4796-9589-2f5eff473fd7", CellTags->"Links", CellID->521525586], Cell[45814, 1471, 485, 8, 70, "Item",ExpressionUUID->"94aae19a-9ce5-43c1-982f-f84338511bce", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[46336, 1484, 767, 20, 70, "Subsection",ExpressionUUID->"9e1cc80b-1220-4cf6-8091-1b99d397831f", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[47128, 1508, 129, 4, 70, "Input",ExpressionUUID->"34aa7862-835e-4c9a-8155-560fe483c8e4", CellID->667877521], Cell[47260, 1514, 93, 3, 70, "Output",ExpressionUUID->"db6040c8-f177-4ea4-9586-a20f23dd4193", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[47414, 1524, 127, 4, 70, "Section",ExpressionUUID->"78dc25b2-0306-4a1c-a867-a603c130a94b", CellTags->"Author Notes", CellID->795110225], Cell[47544, 1530, 509, 8, 70, "Text",ExpressionUUID->"d32a9bd7-5c0b-4e0f-bc04-d702389925c0", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[48090, 1543, 720, 19, 70, "Section",ExpressionUUID->"d5a8dad3-5fe4-4f14-a25c-a6bd24f5654d", CellTags->"Submission Notes", CellID->843283583], Cell[48813, 1564, 495, 8, 70, "Text",ExpressionUUID->"203982dd-e78f-444d-864c-5b7b9f012553", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)