(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 121515, 2928] NotebookOptionsPosition[ 58730, 1592] NotebookOutlinePosition[ 110404, 2671] CellTagsIndexPosition[ 109751, 2649] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["NthDigit", "Title", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7565743130180535`*^9, 3.7565743147050533`*^9}}, CellTags->{"Title", "TabNext"}, CellID->362346026], Cell["\<\ Computes the digit in a given place of the positional representation of a \ number\ \>", "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}, CellChangeTimes->{3.756574354598054*^9}, CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name above. All definitions, including \ dependencies, will be included in the resource function when it is generated. \ Additional cells can be added and definitions can be given for multiple input \ cases.\n\nThis section should be evaluated before evaluating creating the \ Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->608264297], Cell[BoxData[{ RowBox[{"ClearAll", "[", "NthDigit", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NthDigit", "::", "argct"}], " ", "=", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"NthDigit", "::", "base"}], " ", "=", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"NthDigit", "::", "dignum"}], " ", "=", " ", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{"NthDigit", "[", "args___", "]"}], ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"res", "=", " ", RowBox[{"iNthDigit", "[", "args", "]"}]}], "}"}], ",", "\n", "\t", RowBox[{"res", " ", "/;", " ", RowBox[{ RowBox[{"IntegerQ", "[", "res", "]"}], "||", RowBox[{"MatchQ", "[", RowBox[{"res", ",", " ", "Indeterminate"}], "]"}]}]}]}], "\n", "]"}]}]}], "Code", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.749997857892607*^9, 3.7499978796817856`*^9}, { 3.7500000786606617`*^9, 3.750000121027898*^9}, 3.7511223574776187`*^9, { 3.7511223931851892`*^9, 3.7511224374896193`*^9}, {3.7511230319920635`*^9, 3.7511230587457385`*^9}, {3.751124382841135*^9, 3.751124384480299*^9}, { 3.751125387602601*^9, 3.751125410279868*^9}, {3.751125473128153*^9, 3.7511254956924086`*^9}, {3.751127592364055*^9, 3.7511276284516635`*^9}, { 3.751128579233732*^9, 3.75112858411522*^9}, {3.751133392473008*^9, 3.7511333946312237`*^9}, {3.7565757642140536`*^9, 3.7565757653140535`*^9}, {3.7565787284010534`*^9, 3.7565787350810537`*^9}, {3.756578806270054*^9, 3.756578817225054*^9}, { 3.756578884409054*^9, 3.756578884699054*^9}}, CellTags->"TabNext", CellLabel->"In[4]:=", CellID->206237809], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ "*", " ", "Code", " ", "for", " ", "finding", " ", "the", " ", "n"}], "-", RowBox[{ "th", " ", "digit", " ", "of", " ", "a", " ", "real", " ", "number"}]}], " ", "**)"}], "\n", RowBox[{ RowBox[{"ClearAll", "[", "iNthDigit", "]"}], "\n", RowBox[{"SetAttributes", "[", RowBox[{"iNthDigit", ",", " ", "HoldFirst"}], "]"}], "\n", "\n", RowBox[{ RowBox[{"iNthDigit", "[", "args___", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"NthDigit", "::", "argct"}], ",", " ", RowBox[{"Length", "[", RowBox[{"{", "args", "}"}], "]"}]}], "]"}], ";", " ", "$Failed"}], ")"}]}], " ", RowBox[{"(*", " ", RowBox[{ "fallback", " ", "to", " ", "produce", " ", "error", " ", "message", " ", "when", " ", "argument", " ", "count", " ", "is", " ", "wrong"}], " ", "*)"}], "\n", RowBox[{ RowBox[{"iNthDigit", "[", RowBox[{"expr_", ",", " ", RowBox[{"n_", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"NumericQ", "[", "#", "]"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"!", RowBox[{"IntegerQ", "[", "#", "]"}]}], "||", RowBox[{"Quiet", "[", RowBox[{"#", "\[LessEqual]", "0"}], "]"}]}], ")"}]}], "&"}], ")"}]}], ",", " ", RowBox[{"base_:", "10"}]}], "]"}], ":=", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"NthDigit", "::", "dignum"}], ",", " ", "n"}], "]"}], ";", " ", "$Failed"}], ")"}]}], " ", RowBox[{"(*", " ", RowBox[{"second", " ", "arg", " ", RowBox[{"(", "n", ")"}], " ", "must", " ", "be", " ", "a", " ", "positive", " ", "integer"}], " ", "*)"}], "\n", RowBox[{ RowBox[{"iNthDigit", "[", RowBox[{"expr_", ",", " ", "n_", ",", " ", RowBox[{"base_", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"NumericQ", "[", "#", "]"}], " ", "&&", " ", RowBox[{"Quiet", "[", RowBox[{"!", RowBox[{"TrueQ", "[", RowBox[{"#", ">", "1"}], "]"}]}], "]"}]}], "&"}], ")"}]}]}], "]"}], ":=", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"NthDigit", "::", "base"}], ",", " ", "base"}], "]"}], ";", " ", "$Failed"}], ")"}]}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"base", " ", "must", " ", "be", " ", "a", " ", "number"}], " ", ">", " ", "1"}], " ", "*)"}], "\n", "\n", RowBox[{"(*", RowBox[{ "quick", " ", "fix", " ", "for", " ", "cases", " ", "like", " ", "\"\\"", " ", "where", " ", "N", " ", "is", " ", RowBox[{"10", "^", "_Integer"}]}], "*)"}], "\n", RowBox[{ RowBox[{"iNthDigit", "[", RowBox[{"x_", ",", " ", "index_"}], "]"}], ":=", " ", RowBox[{"iNthDigit", "[", RowBox[{"x", ",", " ", "index", ",", " ", "10"}], "]"}]}], "\n", RowBox[{ RowBox[{"iNthDigit", "[", RowBox[{ RowBox[{"base_Integer", "^", RowBox[{"_", "?", "IntegerQ"}]}], ",", " ", "index_", ",", " ", "base_Integer"}], "]"}], ":=", " ", RowBox[{"Boole", "[", RowBox[{"index", "\[Equal]", "1"}], "]"}]}], " ", "\n", RowBox[{ RowBox[{ RowBox[{"iNthDigit", "[", RowBox[{"x_Integer", ",", " ", "index_", ",", " ", RowBox[{"base_:", "10"}]}], "]"}], " ", "/;", " ", RowBox[{"(", RowBox[{"IntegerQ", " ", "@", " ", RowBox[{"Log", "[", RowBox[{"base", ",", " ", "x"}], "]"}]}], ")"}]}], ":=", " ", RowBox[{"Boole", "[", RowBox[{"index", "\[Equal]", "1"}], "]"}]}], "\n", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"iNthDigit", "[", RowBox[{"x_", ",", "n_", ",", RowBox[{"base_:", " ", "10"}]}], "]"}], ":=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"y", "=", "x"}], "}"}], ",", "\n", "\t", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"q", "=", RowBox[{"Rationalize", "[", "y", "]"}]}], "}"}], ",", "\n", "\t\t", RowBox[{ RowBox[{"(", RowBox[{"NthDigit", "[", RowBox[{"q", ",", "n", ",", "base"}], "]"}], ")"}], " ", "/;", " ", RowBox[{ RowBox[{"ExactNumberQ", "[", "q", "]"}], " ", "&&", " ", RowBox[{"y", "\[Equal]", "q"}]}]}]}], "\n", "\t", "]"}], " ", "/;", " ", RowBox[{ RowBox[{"Head", "[", "y", "]"}], "===", "Real"}]}]}], "\n", "]"}]}], "*)"}], "\n", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"iNthDigit", "[", RowBox[{"expr_", ",", " ", "n_", ",", RowBox[{"base_:", " ", "10"}]}], "]"}], " ", "/;", " ", RowBox[{"Element", "[", RowBox[{"expr", ",", " ", "Reals"}], "]"}]}], ":=", " ", RowBox[{"Module", "[", "\n", "\t", RowBox[{ RowBox[{"{", "\n", "\t\t", RowBox[{ "reps", ",", " ", "exprExact", ",", " ", "dig", ",", " ", "fN"}], "\n", "\t", "}"}], ",", "\n", "\t", RowBox[{"(*", " ", RowBox[{ "define", " ", "exprExact", " ", "which", " ", "reflects", " ", "expr", RowBox[{"(", RowBox[{"when", " ", "InexactNumberQ"}], ")"}], " ", "but", " ", "with", " ", "infinite", " ", "precision"}], " ", "*)"}], "\n", "\t", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Precision", "[", "expr", "]"}], "/", RowBox[{"Log", "[", RowBox[{"10", ",", " ", "base"}], "]"}]}], " ", "/.", " ", RowBox[{"MachinePrecision", " ", "\[Rule]", " ", "Infinity"}]}], ")"}], " ", "<", " ", "n"}], ",", " ", RowBox[{"Return", "[", "Indeterminate", "]"}]}], "]"}], ";", "\n", "\t", RowBox[{"reps", "=", " ", RowBox[{"Cases", "[", RowBox[{ RowBox[{"Hold", "[", "expr", "]"}], ",", " ", RowBox[{ RowBox[{"num_", "?", "InexactNumberQ"}], " ", "\[RuleDelayed]", " ", RowBox[{"(", RowBox[{"num", "\[Rule]", " ", RowBox[{"SetPrecision", "[", RowBox[{"num", ",", " ", "Infinity"}], "]"}]}], ")"}]}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "Infinity"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t", RowBox[{"exprExact", "=", " ", RowBox[{ RowBox[{"Hold", "[", "expr", "]"}], " ", "/.", " ", "reps"}]}], ";", "\[IndentingNewLine]", "\t", "\n", "\t", RowBox[{"(*", " ", RowBox[{ RowBox[{ "define", " ", "a", " ", "fake", " ", "function", " ", "fN"}], ",", " ", RowBox[{ "that", " ", "numericalizes", " ", "the", " ", "unevaluated", " ", "expression", " ", "to", " ", "the", " ", "precision", " ", "needed"}]}], " ", "*)"}], "\n", "\t", RowBox[{"SetAttributes", "[", RowBox[{"fN", ",", " ", "NumericFunction"}], "]"}], ";", "\n", "\t", RowBox[{ RowBox[{"Function", "[", RowBox[{"body", ",", " ", RowBox[{ RowBox[{"fN", "[", "prec_Real", "]"}], ":=", " ", RowBox[{"N", "[", RowBox[{"body", ",", RowBox[{"Precision", "[", "prec", "]"}]}], "]"}]}], ",", " ", RowBox[{"{", "HoldAll", "}"}]}], "]"}], " ", "@@", " ", "exprExact"}], ";", "\[IndentingNewLine]", "\n", "\t", RowBox[{"(*", " ", RowBox[{ RowBox[{"main", " ", "calculation"}], ",", " ", RowBox[{"calling", " ", "RealDigits"}]}], " ", "*)"}], "\n", "\t", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$MaxExtraPrecision", "=", RowBox[{"10", "^", "6"}]}], "}"}], ",", "\n", "\t\t", RowBox[{"dig", "=", " ", RowBox[{"RealDigits", "[", RowBox[{ RowBox[{"fN", "[", "1", "]"}], ",", " ", "base", ",", " ", "1", ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"expr", "<", "1"}], ",", " ", RowBox[{"1", "-", "n"}], ",", " ", RowBox[{"IntegerPart", "[", RowBox[{ RowBox[{"Ceiling", "[", RowBox[{"Log", "[", RowBox[{"base", ",", " ", "expr"}], "]"}], "]"}], "-", "n"}], "]"}]}], "]"}]}], "]"}]}]}], "\n", "\t", "]"}], ";", "\[IndentingNewLine]", "\n", "\t", RowBox[{"(*", RowBox[{ "clean", " ", "up", " ", "definition", " ", "for", " ", "of", " ", "fN", " ", "and", " ", "return", " ", "result"}], " ", "*)"}], "\n", "\t", RowBox[{"Remove", "[", "fN", "]"}], ";", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"dig", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], " ", "/;", " ", RowBox[{"MatchQ", "[", RowBox[{"dig", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "_", "}"}], ",", "_"}], "}"}]}], "]"}]}]}]}], "\n", "]"}]}]}]}]], "Code", CellChangeTimes->{{3.751122479454815*^9, 3.7511225390817776`*^9}, 3.751122669542822*^9, {3.7511228457054367`*^9, 3.7511228508349495`*^9}, { 3.7511229136112266`*^9, 3.751122930116877*^9}, {3.7511238034602027`*^9, 3.75112380803866*^9}, {3.75112391284114*^9, 3.7511241418740406`*^9}, { 3.7511276729671144`*^9, 3.7511276798748055`*^9}, {3.7511285030471144`*^9, 3.751128514326242*^9}, 3.7511288179936056`*^9, {3.751128901361942*^9, 3.751128907906596*^9}, 3.7511289656673717`*^9, {3.751129031076912*^9, 3.7511290345712614`*^9}, {3.751129260566859*^9, 3.751129262928095*^9}, { 3.751129496783478*^9, 3.751129547227522*^9}, {3.7511300552133155`*^9, 3.7511300563794317`*^9}, {3.751130693702158*^9, 3.751130712194007*^9}, { 3.7511310876185455`*^9, 3.7511311080115848`*^9}, {3.751131351636945*^9, 3.7511313566024413`*^9}, {3.751132472612031*^9, 3.751132540275797*^9}, { 3.7511327837801447`*^9, 3.751132810687835*^9}, {3.7511329004688125`*^9, 3.75113294044981*^9}, {3.751132979020667*^9, 3.751133086481412*^9}, { 3.751133183329096*^9, 3.751133223783141*^9}, {3.7511333456933303`*^9, 3.751133371322893*^9}, {3.7511334465244126`*^9, 3.751133450528813*^9}, { 3.7565768638870535`*^9, 3.7565769129110537`*^9}, {3.757171916904687*^9, 3.757171942777274*^9}, {3.7571719752525215`*^9, 3.75717199144814*^9}, { 3.7571720844264374`*^9, 3.7571721138313775`*^9}, {3.757428552521871*^9, 3.7574286236459827`*^9}, {3.7574287763202486`*^9, 3.757428785698187*^9}, { 3.7574288426288795`*^9, 3.75742885603722*^9}, {3.7574289052081366`*^9, 3.7574289074323587`*^9}, {3.757428984183033*^9, 3.757428986924307*^9}, { 3.75742901815843*^9, 3.7574290410607204`*^9}}, CellLabel->"In[9]:=", CellID->615145263] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{ StyleBox["x", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.7565748679290533`*^9, 3.7565748714380536`*^9}, 3.7565749620220537`*^9}, CellTags->"TabNext", CellID->157543866], Cell[TextData[{ "Returns the ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "th base-10 digit of ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellChangeTimes->{{3.7565749142310534`*^9, 3.7565749587550535`*^9}}, CellTags->"TabNext", CellID->231889230] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{ StyleBox["x", "TI"], ",", StyleBox["n", "TI"], ",", StyleBox["base", "TI"]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.7565748763680534`*^9, 3.7565748874570537`*^9}, 3.7565749656290536`*^9}, CellID->193252656], Cell[TextData[{ "Returns the ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "th digit of ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in the specified base." }], "UsageDescription", CellChangeTimes->{{3.7565748946130533`*^9, 3.7565749058610535`*^9}, { 3.7565749678670535`*^9, 3.7565749837730536`*^9}}, CellID->96681460] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{ StyleBox["x", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " returns the ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "th most significant digit of ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " when expressed in standard positional form, padding with zeros to the \ right of the decimal if necessary." }], "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7565750110880537`*^9, 3.756575099270054*^9}, { 3.756575429395054*^9, 3.7565754806810536`*^9}, {3.7565756674220533`*^9, 3.7565756679380536`*^9}}, CellTags->"TabNext", CellID->521904482], Cell[TextData[{ "For numbers ", Cell[BoxData[ RowBox[{ StyleBox["x", "TI"], "<", "1"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{ StyleBox["x", "TI"], ",", " ", "1"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " gives ", Cell[BoxData["0"], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{ StyleBox["x", "TI"], ",", " ", StyleBox["n", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " gives the digit ", Cell[BoxData[ RowBox[{ StyleBox["n", "TI"], "-", "1"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " places to the right of the decimal point." }], "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7565750110880537`*^9, 3.7565751511510534`*^9}, { 3.7565754889010534`*^9, 3.7565755455690536`*^9}}, CellID->193817088], Cell[TextData[{ "If ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is larger than ", Cell[BoxData[ RowBox[{ RowBox[{"Precision", "[", StyleBox["x", "TI"], "]"}], "/", RowBox[{"Log", "[", RowBox[{"10", ",", " ", StyleBox["b", "TI"]}], "]"}]}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", then ", Cell[BoxData[ RowBox[{ RowBox[{"NthDigit", "[", RowBox[{ StyleBox["x", "TI"], ",", StyleBox["n", "TI"], ",", StyleBox["b", "TI"]}], "]"}], " "}]], "InlineFormula", FontFamily->"Source Sans Pro"], " returns ", Cell[BoxData["Indeterminate"], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7565750110880537`*^9, 3.756575197520054*^9}, { 3.7565755531230536`*^9, 3.7565755742380533`*^9}, 3.757963305746337*^9}, CellID->208803115], Cell[TextData[{ "The base ", Cell[BoxData[ StyleBox["b", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in ", Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{ StyleBox["x", "TI"], ",", StyleBox["n", "TI"], ",", StyleBox["b", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " need not be an integer. For any real ", Cell[BoxData[ StyleBox["b", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " such that ", Cell[BoxData[ RowBox[{ StyleBox["b", "TI"], " ", ">", " ", "1"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{ StyleBox["x", "TI"], ",", StyleBox["n", "TI"], ",", StyleBox["b", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " finds the largest integer multiples of ", Cell[BoxData[ FormBox[ SuperscriptBox["b", "n"], TraditionalForm]]], " that can be subtracted from ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " while leaving a non-negative remainder." }], "Notes", InitializationCell->True, CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7565750110880537`*^9, 3.756575320791054*^9}, { 3.7565755799240537`*^9, 3.7565756113090534`*^9}}, CellID->465089807], Cell[TextData[{ Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{ StyleBox["x", "TI"], ",", StyleBox["n", "TI"], ",", StyleBox["b", "TI"]}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " discards the sign of ", Cell[BoxData[ StyleBox["b", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", InitializationCell->True, CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7565750110880537`*^9, 3.756575335541054*^9}, { 3.756575618612054*^9, 3.7565756244580536`*^9}}, CellID->691493710] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ Example groups can optionally be delimited by inserting page breaks between \ them (affects example count on documentation page).\n\nSee existing \ documentation pages for examples.", "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->847663398], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell[TextData[{ "Compute the ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula"], "th digit of a given number:" }], "Text", CellChangeTimes->{{3.74456107222976*^9, 3.744561110718609*^9}, { 3.7445611907426105`*^9, 3.7445611919127274`*^9}, {3.744561466808214*^9, 3.7445614682473583`*^9}}, CellID->583166055], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{"123.45", ",", "4"}], "]"}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.74456124144268*^9, 3.7445612535878944`*^9}, { 3.7511230128201466`*^9, 3.7511230186677313`*^9}}, CellLabel->"In[8]:=", CellID->740244223], Cell[BoxData["4"], "Output", CellChangeTimes->{3.7445612543219676`*^9, 3.7511230193898034`*^9, 3.751123066879552*^9, 3.7511241565595093`*^9, 3.751129764802277*^9, 3.7565769559330535`*^9, 3.757170983691375*^9, 3.757172141984193*^9, 3.7574242454846935`*^9, 3.757426719292554*^9, 3.7574286405556736`*^9, 3.7574287949551125`*^9, 3.7574291547160845`*^9}, CellLabel->"Out[8]=", CellID->246227288] }, Open ]], Cell[TextData[{ "Give the ", Cell[BoxData["2500"], "InlineFormula"], "th digit of ", Cell[BoxData[ StyleBox["\[Pi]", "TR"]], "InlineFormula"], " in base-", Cell[BoxData["10"], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.74456107222976*^9, 3.744561110718609*^9}, { 3.744561181000636*^9, 3.744561231785714*^9}, {3.757173468478829*^9, 3.7571734754565268`*^9}}, CellID->382372162], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{"Pi", ",", "2500"}], "]"}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.74456124144268*^9, 3.7445612535878944`*^9}, 3.756578707881054*^9, {3.7571709919321985`*^9, 3.7571709949445*^9}, { 3.757172143690363*^9, 3.757172144024397*^9}}, CellLabel->"In[7]:=", CellID->657504952], Cell[BoxData["2"], "Output", CellChangeTimes->{ 3.7445612543219676`*^9, 3.751123068948759*^9, 3.7511241605189047`*^9, 3.751129766196417*^9, 3.7565787201130533`*^9, 3.756578757145054*^9, 3.756578953284054*^9, {3.757170985536559*^9, 3.757170995719578*^9}, { 3.7571721398929834`*^9, 3.7571721445964537`*^9}, 3.7574242464166937`*^9, 3.7574267201847324`*^9, 3.757428643140932*^9, 3.7574287959652133`*^9, 3.757429149809594*^9}, CellLabel->"Out[7]=", CellID->132896406] }, Open ]], Cell[TextData[{ "Compute the base-", Cell[BoxData["10"], "InlineFormula", FontFamily->"Source Sans Pro"], " digits of a number less than 1:" }], "Text", CellChangeTimes->{{3.74456107222976*^9, 3.744561110718609*^9}, { 3.7445611907426105`*^9, 3.7445611919127274`*^9}, {3.744561425204054*^9, 3.7445614826037936`*^9}, {3.7571734184798293`*^9, 3.757173429338915*^9}}, CellID->175003134], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{ RowBox[{"3", "/", "10"}], ",", "2"}], "]"}]], "Input", CellLabel->"In[6]:=", CellID->154855584], Cell[BoxData["3"], "Output", CellChangeTimes->{3.7565772440800533`*^9, 3.7571721473637304`*^9, 3.7571733906360455`*^9, 3.757426723998495*^9, 3.7574286442470427`*^9, 3.7574287976973867`*^9, 3.7574291483064437`*^9}, CellLabel->"Out[6]=", CellID->138626705] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"NthDigit", "[", RowBox[{"0.012345", ",", "#"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "10", "]"}]}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.7445611225427914`*^9, 3.7445611281003466`*^9}, { 3.744561485216055*^9, 3.744561506140147*^9}, {3.7574291457141848`*^9, 3.7574291466112747`*^9}}, CellLabel->"In[5]:=", CellID->405351429], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.7445611303235693`*^9, 3.744561507532286*^9, 3.7511230713169956`*^9, 3.751124162010054*^9, 3.7511297680706043`*^9, 3.7565769695300536`*^9, 3.7571721495109453`*^9, 3.7571733980807896`*^9, 3.7574267261509256`*^9, { 3.7574286461962376`*^9, 3.757428653667985*^9}, 3.7574288035609727`*^9, 3.7574291468853016`*^9}, CellLabel->"Out[5]=", CellID->717137844] }, Open ]], Cell[TextData[{ "Give the first ", Cell[BoxData["10"], "InlineFormula"], " digit of ", Cell[BoxData[ RowBox[{"19", "/", "7"}]], "InlineFormula"], " in base ", Cell[BoxData["3"], "InlineFormula"], ":" }], "Text", CellChangeTimes->{{3.74456107222976*^9, 3.744561110718609*^9}, { 3.744561181000636*^9, 3.744561231785714*^9}, {3.744561278700405*^9, 3.744561302010736*^9}, {3.744561372145749*^9, 3.744561391524687*^9}}, CellID->12183084], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"NthDigit", "[", RowBox[{ RowBox[{"19", "/", "7"}], ",", "#", ",", " ", "3"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "10", "]"}]}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.744561306156151*^9, 3.744561351962731*^9}}, CellLabel->"In[4]:=", CellID->120381452], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "2", ",", "0", ",", "1", ",", "0", ",", "2", ",", "1", ",", "2", ",", "0", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.744561319121447*^9, 3.7445613525177865`*^9, 3.751123078222686*^9, 3.7511241636072135`*^9, 3.751129769644761*^9, 3.7565769801020536`*^9, 3.757172153740368*^9, 3.7571734041033916`*^9, 3.7574267278322616`*^9, 3.757428651906809*^9, 3.7574288036839848`*^9, 3.75742914136475*^9}, CellLabel->"Out[4]=", CellID->48383054] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellLabel->"In[67]:=", CellID->964056545], Cell["Noninteger bases are allowed:", "Text", CellChangeTimes->{{3.74456107222976*^9, 3.744561110718609*^9}, { 3.744561181000636*^9, 3.744561231785714*^9}, {3.744561579717504*^9, 3.744561580944627*^9}, {3.744561648054337*^9, 3.744561652373769*^9}, { 3.7445616863051615`*^9, 3.744561694878019*^9}}, CellID->18970353], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{"Pi", ",", "9", ",", " ", RowBox[{"3", "GoldenRatio"}]}], "]"}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.74456176739927*^9, 3.7445617735418844`*^9}, { 3.7571721559965935`*^9, 3.757172157278722*^9}, {3.757173706069586*^9, 3.75717371131211*^9}, {3.7574241783986936`*^9, 3.757424193268694*^9}}, CellLabel->"In[3]:=", CellID->36066992], Cell[BoxData["4"], "Output", CellChangeTimes->{ 3.744561774123943*^9, 3.751123086972561*^9, 3.751123124977361*^9, 3.751124169314784*^9, 3.7565769838000536`*^9, 3.7571721575957537`*^9, 3.7571733805980415`*^9, {3.757173704183397*^9, 3.7571737196019382`*^9}, { 3.7574241939906936`*^9, 3.7574242022996936`*^9}, 3.757426733739443*^9, 3.7574286556041784`*^9, 3.757428803842001*^9, {3.7574291226278763`*^9, 3.757429139526566*^9}}, CellLabel->"Out[3]=", CellID->109452056] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellLabel->"In[24]:=", CellID->568056528], Cell[TextData[{ "Compute the number of 1s in the first ", Cell[BoxData[ RowBox[{"10", "^", "4"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " binary digits of \[Pi]:" }], "Text", CellChangeTimes->{{3.74456107222976*^9, 3.744561110718609*^9}, { 3.744561181000636*^9, 3.744561231785714*^9}, {3.744561579717504*^9, 3.744561580944627*^9}, {3.744561648054337*^9, 3.744561652373769*^9}, { 3.7445616863051615`*^9, 3.744561694878019*^9}, {3.7565773352340536`*^9, 3.7565773933850536`*^9}, {3.7571722503040237`*^9, 3.7571722503040237`*^9}, { 3.7571730221712027`*^9, 3.757173025388524*^9}, {3.7571733144594283`*^9, 3.7571733259905815`*^9}, {3.7574242662776937`*^9, 3.7574242701466937`*^9}}, CellID->234909992], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Count", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NthDigit", "[", RowBox[{"Pi", ",", "#", ",", "2"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"10", "^", "4"}], "]"}]}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.744562046437171*^9, 3.744562094316959*^9}, { 3.744562360617586*^9, 3.744562364381963*^9}, {3.7571730072557116`*^9, 3.757173029888974*^9}}, CellLabel->"In[1]:=", CellID->3381692], Cell[BoxData["4986"], "Output", CellChangeTimes->{ 3.744562593386861*^9, 3.749998834768285*^9, 3.7565770946790533`*^9, { 3.757173004092395*^9, 3.757173012422228*^9}, 3.7574267396006145`*^9, 3.7574286635899773`*^9, 3.75742881153477*^9, 3.757429130381652*^9}, CellLabel->"Out[1]=", CellID->752334741] }, Open ]], Cell["\<\ Plot the distribution of first 10,000 digits of \[Pi] in base-47:\ \>", "Text", CellChangeTimes->{{3.74456107222976*^9, 3.744561110718609*^9}, { 3.744561181000636*^9, 3.744561231785714*^9}, {3.744561579717504*^9, 3.744561580944627*^9}, {3.744561648054337*^9, 3.744561652373769*^9}, { 3.7445616863051615`*^9, 3.744561694878019*^9}, {3.7565774048210535`*^9, 3.756577429322054*^9}, {3.7571733342604084`*^9, 3.757173355141496*^9}, { 3.7574242765816936`*^9, 3.7574242788536935`*^9}}, CellID->129277098], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"BinCounts", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NthDigit", "[", RowBox[{"Pi", ",", "#", ",", "47"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "10000", "]"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "46"}], "}"}]}], "]"}], ",", RowBox[{"DataRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "46"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7571730842294073`*^9, 3.757173095164501*^9}, { 3.7571731444234266`*^9, 3.757173145724557*^9}, {3.7571733020421867`*^9, 3.7571733035473375`*^9}}, CellLabel->"In[2]:=", CellID->130565654], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQA2IQjQIWZDpsZI3ewBr9wR7MT8iC8hkcIPxMhw4w4IDw D8DkBSB8hVwH2eOFMscLRaDy2VD1ElD5bIevnvO/eM6XgfAbUqH6FaD8bIf0 NBBQgvAdcqDmqcDNv6xee0m9Vg3NfA0I/0G6g/3LyXYvJ2tB9edC7dOBymc5 rFkFAnpw8yD2G0Dtz3Tg3pYARIZQfjrUPUZQ87IdDorlAJExnA9xnwmcX1EO AqZQ87Og7jWD8BnSHfRuNOneaDKH8mHut4Dal+XwxKLvsUWfJdS8DKh/rKDh n+0wEwys4fZB/GcD1x/wa4n/ryW2aP61g/PZQN7dYA+3H+J/B6h70x3u3QUB KL8hBxoejtDwTnewBDnvMYyfAw0fJ3h8TLEDOdgJLg8JL2cIf0GOw/t3IOAM Dx9I+LlA5bMcvEDe+QLjp0PD0xXuv6X+IA/C+JnQ8HWD2w/xlzs8vAAfINBk "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 168.55555555555557`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 46.}, {168.55555555555557`, 234.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.757173142365221*^9, 3.7571731500989943`*^9}, 3.757173361110093*^9, 3.7574267590725083`*^9, 3.757428686302248*^9, 3.757428816526269*^9, 3.7574291345710707`*^9}, CellLabel->"Out[2]=", CellID->13069609] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellLabel->"In[68]:=", CellID->754506620], Cell["NthDigit ignores the sign of its first argument:", "Text", CellChangeTimes->{{3.74456107222976*^9, 3.744561110718609*^9}, { 3.744561181000636*^9, 3.744561231785714*^9}, {3.744561579717504*^9, 3.744561580944627*^9}, {3.744561648054337*^9, 3.744561652373769*^9}, { 3.7445616863051615`*^9, 3.744561694878019*^9}, {3.744561832743804*^9, 3.744561847232253*^9}, {3.756577267600054*^9, 3.756577295612054*^9}}, CellID->613086276], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{ RowBox[{"-", RowBox[{"Sqrt", "[", "2", "]"}]}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.7565788678680534`*^9, 3.7565788756530533`*^9}}, CellLabel->"In[20]:=", CellID->260817403], Cell[BoxData["1"], "Output", CellChangeTimes->{{3.7565788759810534`*^9, 3.7565788938530536`*^9}, 3.7571732578147645`*^9, 3.757424220919694*^9, 3.7574267680793095`*^9, 3.757428691515769*^9, 3.7574288200406203`*^9, {3.7574290099466095`*^9, 3.7574290820368176`*^9}}, CellLabel->"Out[20]=", CellID->425775788] }, Open ]], Cell[TextData[{ "NthDigit gives ", Cell[BoxData[ ButtonBox["Indeterminate", BaseStyle->"Link"]], "InlineFormula"], " if more digits than the precision are requested:" }], "Text", CellChangeTimes->{{3.74456107222976*^9, 3.744561110718609*^9}, { 3.744561181000636*^9, 3.744561231785714*^9}, {3.744561579717504*^9, 3.744561580944627*^9}, {3.744561648054337*^9, 3.744561652373769*^9}, { 3.7445616863051615`*^9, 3.744561694878019*^9}, {3.744561832743804*^9, 3.744561847232253*^9}}, CellID->329767798], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{"5.635`10", ",", "20"}], "]"}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.7445619368992186`*^9, 3.7445619378893175`*^9}, { 3.7511298221930156`*^9, 3.7511298237181683`*^9}, 3.7574287100496225`*^9}, CellLabel->"In[18]:=", CellID->64455772], Cell[BoxData["Indeterminate"], "Output", CellChangeTimes->{ 3.7445619386283913`*^9, 3.7445626031668386`*^9, 3.7511231408619494`*^9, { 3.7511298112209187`*^9, 3.7511298244932456`*^9}, 3.7565771493660536`*^9, 3.7565788304460535`*^9, 3.756578893940054*^9, 3.7571732234643297`*^9, 3.7574242280546937`*^9, 3.7574249362266936`*^9, 3.7574267708638663`*^9, 3.7574287105056677`*^9, 3.757428821642781*^9, {3.7574288650941257`*^9, 3.7574288759952154`*^9}, {3.757428923694985*^9, 3.757428942123828*^9}, { 3.757429005407155*^9, 3.7574290291515293`*^9}, {3.757429060453659*^9, 3.7574290784794617`*^9}}, CellLabel->"Out[18]=", CellID->425128775] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{"5.635`100", ",", "20"}], "]"}]], "Input", CellChangeTimes->{ 3.70999648737139*^9, {3.7445619368992186`*^9, 3.7445619378893175`*^9}, { 3.7511298221930156`*^9, 3.7511298237181683`*^9}}, CellLabel->"In[19]:=", CellID->58445274], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7445619386283913`*^9, 3.7445626031668386`*^9, 3.7511231408619494`*^9, { 3.7511298112209187`*^9, 3.7511298244932456`*^9}, 3.7565771493660536`*^9, 3.7565788304460535`*^9, 3.756578893940054*^9, 3.7571732234643297`*^9, 3.7574242280546937`*^9, 3.7574249362266936`*^9, 3.7574267708638663`*^9, 3.757428824857102*^9, 3.7574289355651717`*^9, {3.757429007003315*^9, 3.757429079990613*^9}}, CellLabel->"Out[19]=", CellID->219716853] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellID->92483860], Cell[TextData[{ "Positional representations only work for bases greater than ", Cell[BoxData["1"], "InlineFormula", FontFamily->"Source Sans Pro"], ". Using an unsuitable base triggers a message:" }], "Text", CellChangeTimes->{{3.74456107222976*^9, 3.744561110718609*^9}, { 3.744561181000636*^9, 3.744561231785714*^9}, {3.744561579717504*^9, 3.744561580944627*^9}, {3.744561648054337*^9, 3.744561652373769*^9}, { 3.7445616863051615`*^9, 3.744561694878019*^9}, {3.744561832743804*^9, 3.744561847232253*^9}, {3.756577267600054*^9, 3.756577295612054*^9}, { 3.7571735471636963`*^9, 3.7571736196839476`*^9}}, CellID->460703879], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{"Pi", ",", " ", "3", ",", " ", RowBox[{"1", "/", "GoldenRatio"}]}], "]"}]], "Input", CellChangeTimes->{{3.7511242972685785`*^9, 3.7511243135122027`*^9}, 3.7511247430591536`*^9, {3.7511254360474453`*^9, 3.75112545420026*^9}, { 3.751129046400444*^9, 3.7511290476805725`*^9}, {3.751129737566554*^9, 3.751129738575655*^9}, {3.751129966468442*^9, 3.7511300073495293`*^9}, { 3.7511300451763115`*^9, 3.751130088622656*^9}, {3.7571735119521756`*^9, 3.7571735132103014`*^9}}, CellLabel->"In[22]:=", CellID->888659679], Cell[BoxData[ TemplateBox[{ "ResourceFunction","lfail", "\"Failed to load resource function from \ \\!\\(\\*InterpretationBox[RowBox[{\\\"CloudObject\\\", \\\"[\\\", \ TemplateBox[List[\\\"\\\\\\\"https://www.wolframcloud.com/objects/366bb8b9-\ 5dc9-4693-8031-2846d63c4f15\\\\\\\"\\\", \ \\\"https://www.wolframcloud.com/objects/366bb8b9-5dc9-4693-8031-2846d63c4f15\ \\\"], \\\"HyperlinkURL\\\"], \\\"]\\\"}], \ CloudObject[\\\"https://www.wolframcloud.com/objects/366bb8b9-5dc9-4693-8031-\ 2846d63c4f15\\\"], Rule[SelectWithContents, True]]\\).\"",2,22,2, 23287438183389971599,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7511300457723713`*^9, 3.7565771848630533`*^9, 3.757170952098216*^9, 3.7571721044084353`*^9, 3.757173623913371*^9, 3.7574242354776936`*^9, { 3.7574291086684804`*^9, 3.7574291101686306`*^9}}, CellLabel->"During evaluation of In[22]:=", CellID->19223101], Cell[BoxData[ RowBox[{"NthDigit", "[", RowBox[{"\[Pi]", ",", "3", ",", FractionBox["1", "GoldenRatio"]}], "]"}]], "Output", CellChangeTimes->{ 3.7511243155684085`*^9, 3.751124389673818*^9, 3.751124442729123*^9, 3.7511247100888567`*^9, 3.7511247436052074`*^9, {3.7511254364824886`*^9, 3.7511254546083007`*^9}, 3.7511263418930206`*^9, 3.7511276940122185`*^9, { 3.751127896133429*^9, 3.7511279239512105`*^9}, {3.7511279854703617`*^9, 3.751127987022517*^9}, 3.7511280228611*^9, 3.7511281100298166`*^9, { 3.751128141774991*^9, 3.751128166057419*^9}, {3.751128309096721*^9, 3.7511283244072523`*^9}, 3.7511285212559347`*^9, 3.7511285937291813`*^9, 3.7511289225530605`*^9, 3.7511289930301075`*^9, 3.7511290479876027`*^9, { 3.751129215417344*^9, 3.7511292720660086`*^9}, 3.7511293418359847`*^9, 3.7511295060264025`*^9, {3.751129732076005*^9, 3.7511297393187294`*^9}, 3.7511298642432203`*^9, {3.7511299670705023`*^9, 3.7511300076295576`*^9}, 3.7511300459523897`*^9, 3.756577184876054*^9, 3.7571709521132174`*^9, 3.7571721044224367`*^9, 3.7571736239283724`*^9, 3.7574242354896936`*^9, { 3.757429108692483*^9, 3.7574291101816316`*^9}}, CellLabel->"Out[22]=", CellID->85758322] }, 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[ "Name of the person, people or organization that should be publicly \ credited with contributing the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->757508554], Cell["Paco Jain (Wolfram Research)", "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}, CellChangeTimes->{3.7565744438490534`*^9}, CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource in \ search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell["digits", "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}, CellChangeTimes->{{3.7499980988406997`*^9, 3.7499981010029154`*^9}}, CellTags->"TabNext", CellID->286151546], Cell["numerics", "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}, CellChangeTimes->{{3.7499980988406997`*^9, 3.7499981013639517`*^9}}, CellTags->"TabNext", CellID->9428764], Cell["decimal expansion", "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}, CellChangeTimes->{{3.7499980988406997`*^9, 3.749998101700986*^9}}, CellTags->"TabNext", CellID->924124439], Cell["decimal digits", "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}, CellChangeTimes->{{3.7499980988406997`*^9, 3.7499981216589813`*^9}}, CellTags->"TabNext", CellID->305640664], Cell["convert bases", "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}, CellChangeTimes->{{3.7499980988406997`*^9, 3.7499981279116063`*^9}}, CellID->9326985] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List related Wolfram Language symbols. Include up to twenty \ documented, system-level symbols.", "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->911170439], Cell[CellGroupData[{ Cell["RealDigits", "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}, CellChangeTimes->{{3.7565746986700535`*^9, 3.7565747006290536`*^9}}, CellTags->"TabNext", CellID->79477165], Cell["IntegerDigits", "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}, CellChangeTimes->{{3.7565746986700535`*^9, 3.7565747028780537`*^9}}, CellTags->"TabNext", CellID->541370832], Cell["FromDigits", "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}, CellChangeTimes->{{3.7565746986700535`*^9, 3.756574703711054*^9}}, CellTags->"TabNext", CellID->522393955], Cell["DecimalForm", "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}, CellChangeTimes->{{3.7565746986700535`*^9, 3.7565747044760537`*^9}}, CellTags->"TabNext", CellID->578684348], Cell["BaseForm", "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}, CellChangeTimes->{{3.7565746986700535`*^9, 3.7565747017070537`*^9}}, CellTags->"TabNext", CellID->5341570] }, Open ]] }, Open ]], Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "Names of published resource objects from any Wolfram repository that \ are related to this resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->217060377], Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public code repository.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->967310595], Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "URLs or hyperlinks for external information related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->593846556], Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Optional list of tests that can be used to verify that the function \ is working properly in any environment.\nTests can be specified as \ Input/Output cell pairs or as literal VerificationTest expressions if you \ need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->16051757] }, Closed]], Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], 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["Needed for WolframAlphaNotebooks project", "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}, CellChangeTimes->{{3.7565744864830537`*^9, 3.7565744942900534`*^9}, { 3.7571732048784714`*^9, 3.7571732094239264`*^9}}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.10"}, CreateCellID->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { Background -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 26, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook.\"", LabelStyle -> "TextStyling"], Annotation[#, "View a completed sample definition notebook.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon"]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Preview\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Preview"]), "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Deploy\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"Locally on this computer\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Local"]), "\"For my cloud account\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"]), "\"Publicly in the cloud\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "CloudPublic"]), "\"In this session only (without documentation)\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Submit to Repository\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository.\"", LabelStyle -> "TextStyling"], Annotation[#, "Submit your function to the Wolfram Function Repository.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], 2 -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {2, 2, {}, 2}}, FrameStyle -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`]], "Grid"]], "DockedCell", CellFrameMargins -> -1]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TagBox[ TooltipBox[ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"More info\"", LabelStyle -> "TextStyling"], Annotation[#, "More info", "Tooltip"]& ], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["Text"], ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 545, 9, 70, "Title",ExpressionUUID->"b117a7d0-8a12-4175-855e-3b5277fffa62", CellTags->{"Title", "TabNext"}, CellID->362346026]}, "TabNext"->{ Cell[580, 22, 545, 9, 70, "Title",ExpressionUUID->"b117a7d0-8a12-4175-855e-3b5277fffa62", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1128, 33, 604, 12, 70, "Text",ExpressionUUID->"dedca71f-1b56-481d-88c3-23fa6ecd3830", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[2637, 72, 2296, 49, 70, "Code",ExpressionUUID->"af48dcb3-3d24-4488-9458-a3be47db0bce", CellTags->"TabNext", CellID->206237809], Cell[17436, 438, 270, 8, 70, "UsageInputs",ExpressionUUID->"a8efdbce-8c81-48c1-80b5-3849d211cdf7", CellTags->"TabNext", CellID->157543866], Cell[17709, 448, 378, 13, 70, "UsageDescription",ExpressionUUID->"c3710676-2922-4ca5-b1d7-e670c5be7cea", CellTags->"TabNext", CellID->231889230], Cell[19718, 519, 1154, 28, 70, "Notes",ExpressionUUID->"a34a8750-b15a-4a86-82a9-4f694ffe124a", CellTags->"TabNext", CellID->521904482], Cell[47036, 1293, 527, 9, 70, "Text",ExpressionUUID->"abdbac8b-7e19-4c77-a4f1-add7238ead05", CellTags->"TabNext", CellID->832483124], Cell[48250, 1329, 531, 9, 70, "Item",ExpressionUUID->"de885e75-f2cd-42b4-898c-a531010d799f", CellTags->"TabNext", CellID->286151546], Cell[48784, 1340, 531, 9, 70, "Item",ExpressionUUID->"5e005878-2250-451e-9390-7a993790932c", CellTags->"TabNext", CellID->9428764], Cell[49318, 1351, 540, 9, 70, "Item",ExpressionUUID->"4b1c50ed-7969-4c10-b26d-7fc51b4263d7", CellTags->"TabNext", CellID->924124439], Cell[49861, 1362, 539, 9, 70, "Item",ExpressionUUID->"76acca11-debd-496e-a376-54ca3dde74dd", CellTags->"TabNext", CellID->305640664], Cell[51653, 1409, 534, 9, 70, "Item",ExpressionUUID->"3185ce44-c731-4ea0-b9e8-5140dca3e67a", CellTags->"TabNext", CellID->79477165], Cell[52190, 1420, 538, 9, 70, "Item",ExpressionUUID->"b0e3c2a9-5610-4c3a-a9cd-cf409a7709bd", CellTags->"TabNext", CellID->541370832], Cell[52731, 1431, 533, 9, 70, "Item",ExpressionUUID->"a2bbc93c-8fde-49cc-bf7b-b3f3bb1f2f61", CellTags->"TabNext", CellID->522393955], Cell[53267, 1442, 536, 9, 70, "Item",ExpressionUUID->"9f13d9da-1b57-420a-ba22-4781d11d7e9f", CellTags->"TabNext", CellID->578684348], Cell[53806, 1453, 531, 9, 70, "Item",ExpressionUUID->"e629d4d5-95c0-4343-810d-1949db595c2a", CellTags->"TabNext", CellID->5341570], Cell[58084, 1578, 618, 10, 70, "Text",ExpressionUUID->"4caa5fb7-5e5e-41fb-a6c8-aa8a425a646e", CellTags->"TabNext", CellID->920818074]}, "Description"->{ Cell[1128, 33, 604, 12, 70, "Text",ExpressionUUID->"dedca71f-1b56-481d-88c3-23fa6ecd3830", CellTags->{"Description", "TabNext"}, CellID->450900334]}, "Definition"->{ Cell[1757, 49, 877, 21, 70, "Section",ExpressionUUID->"c5846ab9-d30c-486d-aced-58a3d42a7ac9", CellTags->"Definition", CellID->608264297]}, "Documentation"->{ Cell[16504, 407, 99, 3, 70, "Section",ExpressionUUID->"4e9451df-fa04-42a7-8f7a-cbbd6a74d2e9", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[16628, 414, 783, 20, 70, "Subsection",ExpressionUUID->"7e761832-c2c5-46a5-b41e-6221ea9d6134", CellTags->"Usage", CellID->694807545]}, "Details & Options"->{ Cell[18879, 495, 814, 20, 70, "Subsection",ExpressionUUID->"fcc6e25c-93dc-421d-a0f3-c5a928e8bf9c", CellTags->"Details & Options", CellID->29639701]}, "Examples"->{ Cell[26140, 707, 913, 21, 70, "Section",ExpressionUUID->"7e46497e-8a39-4f13-b3a8-faae748644f7", CellTags->"Examples", CellID->847663398]}, "Source & Additional Information"->{ Cell[46201, 1266, 135, 3, 70, "Section",ExpressionUUID->"46c22e5c-cece-4e8f-a8be-f29775a6a9e3", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[46361, 1273, 672, 18, 70, "Subsection",ExpressionUUID->"47e08658-4814-45aa-b38f-ffa7de217c2d", CellTags->"Contributed By", CellID->757508554]}, "Keywords"->{ Cell[47600, 1307, 625, 18, 70, "Subsection",ExpressionUUID->"aa5d185d-f6a8-4112-9cca-f6a1c6244322", CellTags->"Keywords", CellID->246422893]}, "Related Symbols"->{ Cell[50966, 1387, 662, 18, 70, "Subsection",ExpressionUUID->"644239c2-4639-495d-aa32-c469ed6771a7", CellTags->"Related Symbols", CellID->911170439]}, "Related Resource Objects"->{ Cell[54364, 1466, 702, 18, 70, "Subsection",ExpressionUUID->"cc708050-6ad4-4f34-a208-91d4a42be4e7", CellTags->"Related Resource Objects", CellID->217060377]}, "Source/Reference Citation"->{ Cell[55069, 1486, 755, 19, 70, "Subsection",ExpressionUUID->"c58db966-4950-4fbc-b197-a266aca8f8fb", CellTags->"Source/Reference Citation", CellID->967310595]}, "Links"->{ Cell[55827, 1507, 597, 17, 70, "Subsection",ExpressionUUID->"50779ff7-72ca-4e16-b389-da10926c05e4", CellTags->"Links", CellID->593846556]}, "Tests"->{ Cell[56427, 1526, 767, 20, 70, "Subsection",ExpressionUUID->"a619b1a1-7a76-4bef-9fcc-4c722ffe0c63", CellTags->"Tests", CellID->16051757]}, "Author Notes"->{ Cell[57209, 1549, 127, 4, 70, "Section",ExpressionUUID->"333e59fa-a00e-4584-80d8-f1d1c3906cbd", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[57361, 1557, 720, 19, 70, "Section",ExpressionUUID->"89325d6c-9add-478b-9516-b72b3558e7b1", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 104299, 2526}, {"TabNext", 104464, 2530}, {"Description", 106935, 2582}, {"Definition", 107110, 2586}, {"Documentation", 107277, 2590}, {"Usage", 107439, 2594}, {"Details & Options", 107610, 2598}, {"Examples", 107783, 2602}, {"Source & Additional Information", 107968, 2606}, {"Contributed By", 108159, 2610}, {"Keywords", 108331, 2614}, {"Related Symbols", 108504, 2618}, {"Related Resource Objects", 108693, 2622}, {"Source/Reference Citation", 108892, 2626}, {"Links", 109072, 2630}, {"Tests", 109232, 2634}, {"Author Notes", 109398, 2638}, {"Submission Notes", 109572, 2642} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 545, 9, 70, "Title",ExpressionUUID->"b117a7d0-8a12-4175-855e-3b5277fffa62", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1128, 33, 604, 12, 70, "Text",ExpressionUUID->"dedca71f-1b56-481d-88c3-23fa6ecd3830", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[1757, 49, 877, 21, 70, "Section",ExpressionUUID->"c5846ab9-d30c-486d-aced-58a3d42a7ac9", CellTags->"Definition", CellID->608264297], Cell[2637, 72, 2296, 49, 70, "Code",ExpressionUUID->"af48dcb3-3d24-4488-9458-a3be47db0bce", CellTags->"TabNext", CellID->206237809], Cell[4936, 123, 11531, 279, 70, "Code",ExpressionUUID->"e832ddf3-c1fc-456f-9f8a-4cd2a7885b5b", CellID->615145263] }, Open ]], Cell[CellGroupData[{ Cell[16504, 407, 99, 3, 70, "Section",ExpressionUUID->"4e9451df-fa04-42a7-8f7a-cbbd6a74d2e9", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[16628, 414, 783, 20, 70, "Subsection",ExpressionUUID->"7e761832-c2c5-46a5-b41e-6221ea9d6134", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[17436, 438, 270, 8, 70, "UsageInputs",ExpressionUUID->"a8efdbce-8c81-48c1-80b5-3849d211cdf7", CellTags->"TabNext", CellID->157543866], Cell[17709, 448, 378, 13, 70, "UsageDescription",ExpressionUUID->"c3710676-2922-4ca5-b1d7-e670c5be7cea", CellTags->"TabNext", CellID->231889230] }, Open ]], Cell[CellGroupData[{ Cell[18124, 466, 281, 8, 70, "UsageInputs",ExpressionUUID->"a77939b1-7ee8-4ab2-8201-78a3b1419025", CellID->193252656], Cell[18408, 476, 422, 13, 70, "UsageDescription",ExpressionUUID->"6fe561c4-5425-4da7-a6f7-8fa9c5e0d283", CellID->96681460] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18879, 495, 814, 20, 70, "Subsection",ExpressionUUID->"fcc6e25c-93dc-421d-a0f3-c5a928e8bf9c", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[19718, 519, 1154, 28, 70, "Notes",ExpressionUUID->"a34a8750-b15a-4a86-82a9-4f694ffe124a", CellTags->"TabNext", CellID->521904482], Cell[20875, 549, 1315, 37, 70, "Notes",ExpressionUUID->"ba516a86-714e-469f-8b98-9a4eeecf6f6f", CellID->193817088], Cell[22193, 588, 1284, 36, 70, "Notes",ExpressionUUID->"8a4b9db3-3e6c-4942-b8c8-d1e0ba93ab01", CellID->208803115], Cell[23480, 626, 1680, 49, 70, "Notes",ExpressionUUID->"e092f0f3-5f1d-47c6-bd80-ccc769133f99", InitializationCell->True, CellID->465089807], Cell[25163, 677, 916, 23, 70, "Notes",ExpressionUUID->"08b3d984-eb2c-4d4f-aedf-3ecaafead53a", InitializationCell->True, CellID->691493710] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26140, 707, 913, 21, 70, "Section",ExpressionUUID->"7e46497e-8a39-4f13-b3a8-faae748644f7", CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell[27078, 732, 56, 1, 70, "Subsection",ExpressionUUID->"d4792bdd-421b-4b78-acf6-0c456cc3582c", CellID->462042388], Cell[27137, 735, 321, 9, 70, "Text",ExpressionUUID->"09c2ad14-f02d-465e-8e06-288fae45222d", CellID->583166055], Cell[CellGroupData[{ Cell[27483, 748, 277, 7, 70, "Input",ExpressionUUID->"ac591cb2-9e45-458e-9544-0249c4fa7be5", CellID->740244223], Cell[27763, 757, 405, 7, 70, "Output",ExpressionUUID->"e9d4ac55-b25e-45ee-b1db-132f12058fa1", CellID->246227288] }, Open ]], Cell[28183, 767, 436, 14, 70, "Text",ExpressionUUID->"023c772a-0ffa-436c-bc14-cf7fbded7a65", CellID->382372162], Cell[CellGroupData[{ Cell[28644, 785, 344, 8, 70, "Input",ExpressionUUID->"6cd6278d-5905-4e8e-a5ce-feeaf56dd14d", CellID->657504952], Cell[28991, 795, 486, 9, 70, "Output",ExpressionUUID->"2085b872-d7a6-4afa-b934-28554df8c9be", CellID->132896406] }, Open ]], Cell[29492, 807, 394, 9, 70, "Text",ExpressionUUID->"0afe5e00-8945-44a1-9f1c-8c79f56c5f74", CellID->175003134], Cell[CellGroupData[{ Cell[29911, 820, 152, 5, 70, "Input",ExpressionUUID->"a5decaf2-1dd0-4909-bd2f-80cde39fdeb7", CellID->154855584], Cell[30066, 827, 263, 5, 70, "Output",ExpressionUUID->"d7285ed4-a5c9-405c-878e-d3173c07fb49", CellID->138626705] }, Open ]], Cell[CellGroupData[{ Cell[30366, 837, 410, 11, 70, "Input",ExpressionUUID->"adae907b-b865-4dde-a767-f70317f69805", CellID->405351429], Cell[30779, 850, 550, 12, 70, "Output",ExpressionUUID->"1e183221-2060-46d2-ad79-08e2ce25a312", CellID->717137844] }, Open ]], Cell[31344, 865, 448, 13, 70, "Text",ExpressionUUID->"7cec6ab9-a00a-4459-a284-e0347b17b4c4", CellID->12183084], Cell[CellGroupData[{ Cell[31817, 882, 340, 11, 70, "Input",ExpressionUUID->"40b448f3-9a1b-4538-9ceb-9e6ceb7c1e27", CellID->120381452], Cell[32160, 895, 509, 11, 70, "Output",ExpressionUUID->"12654903-826c-4db7-b347-277a7824dbec", CellID->48383054] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32718, 912, 71, 2, 70, "Subsection",ExpressionUUID->"79fbdb44-668a-4278-9395-37b001a9d2cb", CellID->964056545], Cell[32792, 916, 324, 5, 70, "Text",ExpressionUUID->"da611821-3727-4f5f-bafd-1b91168c6555", CellID->18970353], Cell[CellGroupData[{ Cell[33141, 925, 411, 9, 70, "Input",ExpressionUUID->"5b738f50-f4f6-41c5-8054-907901850fe0", CellID->36066992], Cell[33555, 936, 488, 9, 70, "Output",ExpressionUUID->"73a3e12d-57ec-43d7-a93e-654c31a6a5ec", CellID->109452056] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34092, 951, 78, 2, 70, "Subsection",ExpressionUUID->"7f46bfe4-f61b-447b-9f9e-9e4cd0e97076", CellID->568056528], Cell[34173, 955, 730, 14, 70, "Text",ExpressionUUID->"cd09ce3a-bc0a-4367-8bc4-2b3d05057d7f", CellID->234909992], Cell[CellGroupData[{ Cell[34928, 973, 496, 14, 70, "Input",ExpressionUUID->"365b69a9-a754-47ee-816c-94fb94f6066e", CellID->3381692], Cell[35427, 989, 310, 6, 70, "Output",ExpressionUUID->"3f10708d-4f48-4e3a-85cb-6f1a2f1957a8", CellID->752334741] }, Open ]], Cell[35752, 998, 521, 9, 70, "Text",ExpressionUUID->"abfadbd5-6121-4967-b75b-4211763f1514", CellID->129277098], Cell[CellGroupData[{ Cell[36298, 1011, 675, 19, 70, "Input",ExpressionUUID->"d321e539-168a-432a-b294-08a4c05a4175", CellID->130565654], Cell[36976, 1032, 2129, 52, 70, "Output",ExpressionUUID->"54e9d92b-7f1b-44e5-add8-b91c2a067f0b", CellID->13069609] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39154, 1090, 90, 2, 70, "Subsection",ExpressionUUID->"d6e1ca9b-20d0-494f-8340-67c8a689468d", CellID->754506620], Cell[39247, 1094, 439, 6, 70, "Text",ExpressionUUID->"5675b137-e183-45df-9302-143b7ef0561d", CellID->613086276], Cell[CellGroupData[{ Cell[39711, 1104, 250, 7, 70, "Input",ExpressionUUID->"89455dca-52e1-4790-b75e-96917587258f", CellID->260817403], Cell[39964, 1113, 320, 6, 70, "Output",ExpressionUUID->"94d8bcc4-e8e2-4c4e-93d7-90fffb93be8e", CellID->425775788] }, Open ]], Cell[40299, 1122, 515, 12, 70, "Text",ExpressionUUID->"b5e076dc-4e8d-47ff-8968-7fb94134b384", CellID->329767798], Cell[CellGroupData[{ Cell[40839, 1138, 307, 7, 70, "Input",ExpressionUUID->"73a157fc-2be2-4e91-8041-d8717675b8b0", CellID->64455772], Cell[41149, 1147, 661, 11, 70, "Output",ExpressionUUID->"6b06c86b-4212-4417-b4e9-fa105732365a", CellID->425128775] }, Open ]], Cell[CellGroupData[{ Cell[41847, 1163, 284, 7, 70, "Input",ExpressionUUID->"d2463fa7-b949-4918-958a-ac0ceae16f07", CellID->58445274], Cell[42134, 1172, 495, 9, 70, "Output",ExpressionUUID->"2744b840-ddec-4374-a041-1cfe8ec14aed", CellID->219716853] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[42678, 1187, 56, 1, 70, "Subsection",ExpressionUUID->"fb82752e-0e91-4d49-a0cf-a68f6505fe14", CellID->92483860], Cell[42737, 1190, 641, 12, 70, "Text",ExpressionUUID->"bf0735ae-fac0-4b57-8ed5-2e1949f14cba", CellID->460703879], Cell[CellGroupData[{ Cell[43403, 1206, 584, 11, 70, "Input",ExpressionUUID->"96cb28c6-a013-43f0-87d9-82fbbdedc6ba", CellID->888659679], Cell[43990, 1219, 922, 18, 70, "Message",ExpressionUUID->"db2b7589-b968-4dc0-a23a-df6c8de21fc3", CellID->19223101], Cell[44915, 1239, 1225, 20, 70, "Output",ExpressionUUID->"53e6f12f-ed52-41d4-8f29-d21a640424db", CellID->85758322] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46201, 1266, 135, 3, 70, "Section",ExpressionUUID->"46c22e5c-cece-4e8f-a8be-f29775a6a9e3", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[46361, 1273, 672, 18, 70, "Subsection",ExpressionUUID->"47e08658-4814-45aa-b38f-ffa7de217c2d", CellTags->"Contributed By", CellID->757508554], Cell[47036, 1293, 527, 9, 70, "Text",ExpressionUUID->"abdbac8b-7e19-4c77-a4f1-add7238ead05", CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[47600, 1307, 625, 18, 70, "Subsection",ExpressionUUID->"aa5d185d-f6a8-4112-9cca-f6a1c6244322", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell[48250, 1329, 531, 9, 70, "Item",ExpressionUUID->"de885e75-f2cd-42b4-898c-a531010d799f", CellTags->"TabNext", CellID->286151546], Cell[48784, 1340, 531, 9, 70, "Item",ExpressionUUID->"5e005878-2250-451e-9390-7a993790932c", CellTags->"TabNext", CellID->9428764], Cell[49318, 1351, 540, 9, 70, "Item",ExpressionUUID->"4b1c50ed-7969-4c10-b26d-7fc51b4263d7", CellTags->"TabNext", CellID->924124439], Cell[49861, 1362, 539, 9, 70, "Item",ExpressionUUID->"76acca11-debd-496e-a376-54ca3dde74dd", CellTags->"TabNext", CellID->305640664], Cell[50403, 1373, 514, 8, 70, "Item",ExpressionUUID->"3dd41b1c-49ea-462a-9983-bbec5fc410c2", CellID->9326985] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[50966, 1387, 662, 18, 70, "Subsection",ExpressionUUID->"644239c2-4639-495d-aa32-c469ed6771a7", CellTags->"Related Symbols", CellID->911170439], Cell[CellGroupData[{ Cell[51653, 1409, 534, 9, 70, "Item",ExpressionUUID->"3185ce44-c731-4ea0-b9e8-5140dca3e67a", CellTags->"TabNext", CellID->79477165], Cell[52190, 1420, 538, 9, 70, "Item",ExpressionUUID->"b0e3c2a9-5610-4c3a-a9cd-cf409a7709bd", CellTags->"TabNext", CellID->541370832], Cell[52731, 1431, 533, 9, 70, "Item",ExpressionUUID->"a2bbc93c-8fde-49cc-bf7b-b3f3bb1f2f61", CellTags->"TabNext", CellID->522393955], Cell[53267, 1442, 536, 9, 70, "Item",ExpressionUUID->"9f13d9da-1b57-420a-ba22-4781d11d7e9f", CellTags->"TabNext", CellID->578684348], Cell[53806, 1453, 531, 9, 70, "Item",ExpressionUUID->"e629d4d5-95c0-4343-810d-1949db595c2a", CellTags->"TabNext", CellID->5341570] }, Open ]] }, Open ]], Cell[54364, 1466, 702, 18, 70, "Subsection",ExpressionUUID->"cc708050-6ad4-4f34-a208-91d4a42be4e7", CellTags->"Related Resource Objects", CellID->217060377], Cell[55069, 1486, 755, 19, 70, "Subsection",ExpressionUUID->"c58db966-4950-4fbc-b197-a266aca8f8fb", CellTags->"Source/Reference Citation", CellID->967310595], Cell[55827, 1507, 597, 17, 70, "Subsection",ExpressionUUID->"50779ff7-72ca-4e16-b389-da10926c05e4", CellTags->"Links", CellID->593846556], Cell[56427, 1526, 767, 20, 70, "Subsection",ExpressionUUID->"a619b1a1-7a76-4bef-9fcc-4c722ffe0c63", CellTags->"Tests", CellID->16051757] }, Closed]], Cell[57209, 1549, 127, 4, 70, "Section",ExpressionUUID->"333e59fa-a00e-4584-80d8-f1d1c3906cbd", CellTags->"Author Notes", CellID->795110225], Cell[CellGroupData[{ Cell[57361, 1557, 720, 19, 70, "Section",ExpressionUUID->"89325d6c-9add-478b-9516-b72b3558e7b1", CellTags->"Submission Notes", CellID->843283583], Cell[58084, 1578, 618, 10, 70, "Text",ExpressionUUID->"4caa5fb7-5e5e-41fb-a6c8-aa8a425a646e", CellTags->"TabNext", CellID->920818074] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)