(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 296109, 6537] NotebookOptionsPosition[ 140220, 3567] NotebookOutlinePosition[ 282266, 6248] CellTagsIndexPosition[ 280457, 6198] WindowTitle->GeneralMiniMaxApproximation | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["GeneralMiniMaxApproximation", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->113688728], Cell["\<\ Find a mini-max approximation of a function defined parametrically\ \>", "Text", CellTags->{"Description", "TemplateCell"}, CellID->720974674], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"Options", "[", "GeneralMiniMaxApproximation", "]"}], "]"}], " ", "^:=", " ", RowBox[{"Replace", "[", RowBox[{ RowBox[{"ToExpression", "[", RowBox[{ "\"\\"", ",", " ", "InputForm", ",", " ", "HoldComplete"}], "]"}], ",", " ", RowBox[{ RowBox[{"HoldComplete", "[", "sym_", "]"}], " ", ":>", " ", RowBox[{"Options", "[", "sym", "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{"SetOptions", "[", RowBox[{"GeneralMiniMaxApproximation", ",", " ", "opts___"}], "]"}], "]"}], " ", "^:=", " ", RowBox[{"Replace", "[", RowBox[{ RowBox[{"ToExpression", "[", RowBox[{ "\"\\"", ",", " ", "InputForm", ",", " ", "HoldComplete"}], "]"}], ",", " ", RowBox[{ RowBox[{"HoldComplete", "[", "sym_", "]"}], " ", ":>", " ", RowBox[{"SetOptions", "[", RowBox[{"sym", ",", " ", "opts"}], "]"}]}]}], "]"}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"GeneralMiniMaxApproximation", "[", "args___", "]"}], " ", ":=", " ", RowBox[{"(", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "$ContextPath", "}"}], ",", " ", RowBox[{"Needs", "[", "\"\\"", "]"}]}], "]"}], ";", " ", RowBox[{ RowBox[{ "Symbol", "[", "\"\\"", "]"}], " ", "@@", " ", RowBox[{"Replace", "[", RowBox[{ RowBox[{"HoldComplete", "[", "args", "]"}], ",", " ", "$optionDispatch", ",", " ", RowBox[{"{", "1", "}"}]}], "]"}]}]}], ")"}]}]}], "Input", InitializationCell->True, CellID->340372850], Cell[BoxData[ RowBox[{"$optionDispatch", " ", ":=", " ", RowBox[{"$optionDispatch", " ", "=", " ", RowBox[{"Dispatch", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{ RowBox[{"(", RowBox[{"r$", ":", RowBox[{"Rule", " ", "|", " ", "RuleDelayed"}]}], ")"}], "[", RowBox[{ RowBox[{"\"\\"", " ", "|", " ", RowBox[{"(", RowBox[{"symbol$_Symbol", " ", "/;", " ", RowBox[{ RowBox[{"SymbolName", "[", RowBox[{"Unevaluated", "[", "symbol$", "]"}], "]"}], " ", "===", " ", "\"\\""}]}], ")"}]}], ",", " ", "v$_"}], "]"}], "]"}], " ", ":>", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"sym$", " ", "=", " ", RowBox[{ "Symbol", "[", "\"\\"", "]"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"r$", "[", RowBox[{"sym$", ",", " ", "v$"}], "]"}], " ", "/;", " ", "True"}]}], "]"}]}], ",", " ", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{ RowBox[{"(", RowBox[{"r$", ":", RowBox[{"Rule", " ", "|", " ", "RuleDelayed"}]}], ")"}], "[", RowBox[{ RowBox[{"\"\\"", " ", "|", " ", RowBox[{"(", RowBox[{"symbol$_Symbol", " ", "/;", " ", RowBox[{ RowBox[{"SymbolName", "[", RowBox[{"Unevaluated", "[", "symbol$", "]"}], "]"}], " ", "===", " ", "\"\\""}]}], ")"}]}], ",", " ", "v$_"}], "]"}], "]"}], " ", ":>", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"sym$", " ", "=", " ", RowBox[{ "Symbol", "[", "\"\\"", "]"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"r$", "[", RowBox[{"sym$", ",", " ", "v$"}], "]"}], " ", "/;", " ", "True"}]}], "]"}]}], ",", " ", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{ RowBox[{"(", RowBox[{"r$", ":", RowBox[{"Rule", " ", "|", " ", "RuleDelayed"}]}], ")"}], "[", RowBox[{ RowBox[{"\"\\"", " ", "|", " ", RowBox[{"(", RowBox[{"symbol$_Symbol", " ", "/;", " ", RowBox[{ RowBox[{"SymbolName", "[", RowBox[{"Unevaluated", "[", "symbol$", "]"}], "]"}], " ", "===", " ", "\"\\""}]}], ")"}]}], ",", " ", "v$_"}], "]"}], "]"}], " ", ":>", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"sym$", " ", "=", " ", RowBox[{ "Symbol", "[", "\"\\"", "]"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"r$", "[", RowBox[{"sym$", ",", " ", "v$"}], "]"}], " ", "/;", " ", "True"}]}], "]"}]}], ",", " ", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{ RowBox[{"(", RowBox[{"r$", ":", RowBox[{"Rule", " ", "|", " ", "RuleDelayed"}]}], ")"}], "[", RowBox[{ RowBox[{"\"\\"", " ", "|", " ", RowBox[{"(", RowBox[{"symbol$_Symbol", " ", "/;", " ", RowBox[{ RowBox[{"SymbolName", "[", RowBox[{"Unevaluated", "[", "symbol$", "]"}], "]"}], " ", "===", " ", "\"\\""}]}], ")"}]}], ",", " ", "v$_"}], "]"}], "]"}], " ", ":>", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"sym$", " ", "=", " ", RowBox[{ "Symbol", "[", "\"\\"", "]"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"r$", "[", RowBox[{"sym$", ",", " ", "v$"}], "]"}], " ", "/;", " ", "True"}]}], "]"}]}], ",", " ", RowBox[{ RowBox[{"HoldPattern", "[", RowBox[{ RowBox[{"(", RowBox[{"r$", ":", RowBox[{"Rule", " ", "|", " ", "RuleDelayed"}]}], ")"}], "[", RowBox[{ RowBox[{"\"\\"", " ", "|", " ", RowBox[{"(", RowBox[{"symbol$_Symbol", " ", "/;", " ", RowBox[{ RowBox[{"SymbolName", "[", RowBox[{"Unevaluated", "[", "symbol$", "]"}], "]"}], " ", "===", " ", "\"\\""}]}], ")"}]}], ",", " ", "v$_"}], "]"}], "]"}], " ", ":>", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"sym$", " ", "=", " ", RowBox[{ "Symbol", "[", "\"\\"", "]"}]}], "}"}], ",", " ", RowBox[{ RowBox[{"r$", "[", RowBox[{"sym$", ",", " ", "v$"}], "]"}], " ", "/;", " ", "True"}]}], "]"}]}]}], "}"}], "]"}]}]}]], "Input", InitializationCell->True, CellID->544946667], Cell[BoxData[ RowBox[{ RowBox[{"Attributes", "[", "sym$", "]"}], " ", "=", " ", RowBox[{"{", "Temporary", "}"}]}]], "Input", InitializationCell->True, CellID->983028928] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralMiniMaxApproximation", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["f", "TI"], StyleBox["x", "TI"]], ",", SubscriptBox[ StyleBox["f", "TI"], StyleBox["y", "TI"]]}], "}"}], ",", RowBox[{"{", RowBox[{ StyleBox["t", "TI"], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["t", "TI"], StyleBox["0", "TR"]], ",", SubscriptBox[ StyleBox["t", "TI"], StyleBox["1", "TR"]]}], "}"}], ",", StyleBox["m", "TI"], ",", StyleBox["n", "TI"]}], "}"}], ",", StyleBox["x", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->99651980], Cell[TextData[{ "finds the rational polynomial function of ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", with numerator order ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and denominator order ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", that gives a mini-max approximation to the curve with ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ StyleBox["y", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " coordinates ", Cell[BoxData[ SubscriptBox[ StyleBox["f", "TI"], StyleBox["x", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ SubscriptBox[ StyleBox["f", "TI"], StyleBox["y", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " generated as a function of ", Cell[BoxData[ StyleBox["t", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " on the interval ", Cell[BoxData[ SubscriptBox[ StyleBox["t", "TI"], StyleBox["0", "TR"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to ", Cell[BoxData[ SubscriptBox[ StyleBox["t", "TI"], StyleBox["1", "TR"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->822865711] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralMiniMaxApproximation", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["f", "TI"], StyleBox["x", "TI"]], ",", SubscriptBox[ StyleBox["f", "TI"], StyleBox["y", "TI"]]}], "}"}], ",", StyleBox["approx", "TI"], ",", RowBox[{"{", RowBox[{ StyleBox["t", "TI"], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["t", "TI"], StyleBox["0", "TR"]], ",", SubscriptBox[ StyleBox["t", "TI"], StyleBox["1", "TR"]]}], "}"}], ",", StyleBox["m", "TI"], ",", StyleBox["n", "TI"]}], "}"}], ",", StyleBox["x", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->948622369], Cell[TextData[{ "finds the mini-max approximation, starting the iterative algorithm with ", Cell[BoxData[ StyleBox["approx", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->661530763] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ Cell[BoxData["GeneralMiniMaxApproximation"], "InlineFormula", FontFamily->"Source Sans Pro"], " by default minimizes the maximum value of the relative error between the \ approximation and ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->60509687], Cell[TextData[{ Cell[BoxData[ RowBox[{"GeneralMiniMaxApproximation", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["f", "TI"], StyleBox["x", "TI"]], ",", SubscriptBox[ StyleBox["f", "TI"], StyleBox["y", "TI"]], ",", StyleBox["g", "TI"]}], "}"}], ",", RowBox[{"{", RowBox[{ StyleBox["t", "TI"], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["t", "TI"], StyleBox["0", "TR"]], ",", SubscriptBox[ StyleBox["t", "TI"], StyleBox["1", "TR"]]}], "}"}], ",", StyleBox["m", "TI"], ",", StyleBox["n", "TI"]}], "}"}], ",", StyleBox["x", "TI"]}], "]"}]], "InlineFormula", "TemplateInclusion", FontFamily->"Source Sans Pro"], " computes the error using a factor of ", Cell[BoxData[ StyleBox["g", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ". In this case, the mini-max approximation returned by ", Cell[BoxData["GeneralMiniMaxApproximation"], "InlineFormula", FontFamily->"Source Sans Pro"], " is the rational function ", Cell[BoxData[ RowBox[{ StyleBox["h", "TI"], "[", StyleBox["x", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " that minimizes the maximum value of the quantity ", Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox[ StyleBox["f", "TI"], StyleBox["y", "TI"]], "-", RowBox[{ StyleBox["h", "TI"], "[", SubscriptBox[ StyleBox["f", "TI"], StyleBox["x", "TI"]], "]"}]}], ")"}], "/", StyleBox["g", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->63608694], Cell[TextData[{ Cell[BoxData["GeneralMiniMaxApproximation"], "InlineFormula", FontFamily->"Source Sans Pro"], " returns ", Cell[BoxData[ RowBox[{"{", RowBox[{ StyleBox["abscissa", "TI"], ",", RowBox[{"{", RowBox[{ StyleBox["approximation", "TI"], ",", StyleBox["maxerror", "TI"]}], "}"}]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", where ", Cell[BoxData[ StyleBox["abscissa", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is a list of the abscissas where the relative error is a local maximum, ", Cell[BoxData[ StyleBox["approximation", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is the rational approximant and ", Cell[BoxData[ StyleBox["maxerror", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is the global maximum of the relative error." }], "Notes", CellID->464556240], Cell[TextData[{ "When an approximation is given as the second argument of ", Cell[BoxData["GeneralMiniMaxApproximation"], "InlineFormula", FontFamily->"Source Sans Pro"], ", it must have the same form as the result returned by ", Cell[BoxData["GeneralMiniMaxApproximation"], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->192448634], Cell[TextData[{ Cell[BoxData["GeneralMiniMaxApproximation"], "InlineFormula", FontFamily->"Source Sans Pro"], " takes the same options as the resource function ", Cell[BoxData[ ButtonBox["MiniMaxApproximation", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ MiniMaxApproximation/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ MiniMaxApproximation/"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->582074090], Cell[TextData[{ "In the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " option, a list of derivatives must give derivatives for both parts of the \ parametrically-defined function." }], "Notes", CellID->499992391] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell[TextData[{ "A degree ", Cell[BoxData[ RowBox[{"(", RowBox[{"2", ",", "4"}], ")"}]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], " mini-max approximation to the inverse of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Exp", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Exp", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7627520501342983`*^9, 3.762752051380823*^9}, { 3.762754270311824*^9, 3.762754273366447*^9}, {3.762880266327558*^9, 3.762880267273652*^9}, {3.854556303162923*^9, 3.8545563087239237`*^9}}, CellID->29418034], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralMiniMaxApproximation", "[", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", "2", ",", "4"}], "}"}], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.762752065827985*^9}, CellLabel->"In[21]:=", CellID->854218114], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1.`", ",", "1.0471601651412084`", ",", "1.1813107377365257`", ",", "1.3793050470405284`", ",", "1.603108046957371`", ",", "1.807147573922206`", ",", "1.9491940550717777`", ",", "2.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.082397791607715`"}], "+", RowBox[{"1.2738087749743898`", " ", "x"}], "+", RowBox[{"0.8236002441268396`", " ", SuperscriptBox["x", "2"]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"1.7318693037788044`", " ", "x"}], "+", RowBox[{"0.2459175701415049`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.0030965712043458985`", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"0.000058428236477872275`", " ", SuperscriptBox["x", "4"]}]}], ")"}]}], ",", RowBox[{"-", "6.746838844263272`*^-8"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.762752067658731*^9}, CellLabel->"Out[21]=", CellID->169179732] }, Open ]], Cell[TextData[{ "Extract the approximation and plot the relative error in the approximation \ over the interval ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["e", "TI"], "\[LessEqual]", StyleBox["x", "TI"], "\[LessEqual]", SuperscriptBox[ StyleBox["e", "TI"], "2"]}], TraditionalForm]], "InlineMath"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.762752101698913*^9, 3.7627521622542477`*^9}, { 3.854556002118127*^9, 3.854556002118194*^9}}, CellID->158720753], Cell[BoxData[ RowBox[{ RowBox[{"log", "=", RowBox[{"%", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.7627521896183853`*^9}, CellLabel->"In[22]:=", CellID->105763995], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"1", "-", FractionBox["log", RowBox[{"Log", "[", "x", "]"}]]}], ",", RowBox[{"{", RowBox[{"x", ",", "\[ExponentialE]", ",", SuperscriptBox["\[ExponentialE]", "2"]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[23]:=", CellID->597429990], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwl2nk8VU0YB3AUyU52KhVZ0mtJQhplT7KTQtnX6957jpIka0QbSZGizZY2 KZJlkkoSkiIh0WKLksia3uO5f9X383tmzpyZOccZH6s8GXY+HGxsbPRFbGwL /34/+ymd5zHnVuq/a9xlSVzJ+TRn+gnYTHE1gU8fzLs38Azsf0yViTVdgl/V 1oP5HmXRcNjq2fnYNjC9IcUHW6R185IfwA1sX7ywDFeNpEcX+HPaFk+MBxM1 DT6DhX6K78Wc98R9Z0fA0V8F7HDb6hlyaJR1vUd+Vrgg7WPUh99gdelmc2wZ lnPh4TR4a9DEZpxqoNkYwsm14Cs/LJSR9z2xDk9ucDVG2mjjmuk+W16we+sV A9TOVc2mLgyOFu01RyubdmoNy4KPL/nigEYNNLZ1rgQ35X9yQjX3RK3qV4N5 ml47I99znX4FSmBkdcIV3XINuOitBb5V/sgDRTZZFthvAv+0TvRE1lvVSwz1 wFomtl5obM1kk9xW8LPMFm+k+/0ox8cd4LGJND/E4+Yv2GAFXp+i44+6mnbI VtiChWXf+6PoYhHtC7vAAVacgchO/o9h4h6wocS5QLTm/Afrg27gJHG5IFR7 6EqAoxc4ZFaRhjK+x4Ua+4LXceTSUICbX9yGAFZ9zPJgxLftvyxhBviBCjsd dRcLF7KRYLf9NDoqkp8o/bkfvC/0LR3Zc1c2N4aD43vTGMhwaAvP3BGw0/s/ DKTe8NhIJQYcsUSFiQRSnpYmHFtw9HOzaCaaI0xGHxyHfG4+n4m+279Q/nIK fDqikYnqJF5dMkiDeuWfwgQqnbZsC06HXPGPOoFyO5sEL2WC/fp3EiitymZ7 fRY455U/gWIvt8ROXYH2CTdjCMSMcahcmwN5RnIGgfZ5tU045ENuE32bQFYm zmpxhWDehGoC6St2+N+7DfUiN94QSGWp67VPReDUXz0Ekvr+sZP/ATjf7weB uBv3iek/ZPW3bIZAf+70WgWWQx45t4hEX1O8EjOqwJzr+Ej0lvz2pLYa6nPy REhU4+A3O/4UzHNQgkRF2oNaa15Afe11aRJlSwbRbevBrlqyJDo1M5wf1Qje qE45oovee7sZ2udmU/WBeFS66y14NIHqz/kK6cDzHmw4Sl3PLHb8lE4HtC/q pcaj7R36wvcj5AaenCSSN51iO9cDeWfYHIFElML1nn4B+6qOEYidZy7kVx/U X4/rI9Do9yO3Vw5Bbhb/gUDdjf/6do6w9vemVwRquBsjFzEK9RuvVRCo4syi PYW/WetTX0igDMcljVwz4H56PIESNiVxbfwLPjXJJNABKd6tXmxLFhyyy4VA dh8F7j/mAnuUqBJo2+OU4ZGlC2ZjPl5GIPWrImtl+cENZdNMxO8jfiFsGfhW Sg21/0wzWvLEof3N8FwmGlKS5muVAg8GHqP23/DyKA058O795kwUu1/BZ0gV 2tfGRzEQ0yk/W1IdvPeHNgPt01FuN90AnikbpiP9OdUd13XB5y/Z09GfOC0N V1PwjnuCwagkM/eAw3ZwZ281De2/J15uaQnOHmbS0Fj3lOEWO/DNO41B6Idu lcOKveDhovBA1PfTJKznAJjnZYEfeu+y67F3Lrh1NsYDlW0I3xm8mHvBXVPb tyGPAdECpyVgJscuA8STdZdjKw94VF9GH7lyfXsoIgRuT87fiNg+WK8ukwHb JOWsQuaRCpMcG8ApRyPUcXtd85UMD3DPJzMbHHMkaDbGG7w/fZEtVtHkcgry AxcFYFsccXEzLwoGl1lr2GM5et6BL2HghmpeJ+y/LMLivxTWeL1SXPCkm+L4 UwyWzf7siStj3Q8PPwEnPtjohWPzL3CIPQdHCid6YYFfvMK+r8D0TBVvvPbo 6HrudlZ/9b4+2KnwkZ/lLzDf23I/LPt67Mf+cXBBJ7s//vx7XWjWJDhQ1twf 07dkH/3xF9xn1OKP45tjr6bwLF2whfTHAPzgz47Od2vAYWENQThcJt7z71qw 1XMuGt66FQ8qqICljbbScEOS+lSoOrihuYiGv8qKiUltYeVqicG4cJvVpW1b Wf3NVwRjpu+xNYFG4KN/fwTjubvTGhXbwbHH7eh4mVG3lZsTOPSTIAO3+0m0 xe8GP1u3hYGzT9q43XEFv8sPYGCVtpqgf57gVLVqBjYMyE+8ygDnVWswMffp HsF6EpypaMLETcVS6WMHwDyKzky8Z+5ErlEE+MvPCCYmk5k13xLBG28/odoP Zji0n2D1X9/MxJcNn/TVnwa/PP2JiRsmhHmL0sB7+OaYWMH1vn34FfDBHnUC V5Z0fqNdB3PqbiGwneDisH154HLd7QSOrHG4ZHwLzNByJ3C70p+vAmWs+RA9 TmB67IqD7BXgqftnCczZZbp0vAqM/l4isGZy+voPT8GKp+8QuG7g8eNXteBt baUE3ms4YItfgmVeYgKfmNAJvf4azFvUSODV1h7c51vAV3PeEbisICkzsZV1 PeNOAn916cDBneCJpH4Ch5dw2Lp3g+XVRggsLLjui10v6/oxYwRGNYeX6PSD seocgd/J5FxQGQJ/TWAjcdCBhnXLR8B/Ty8mMcfr8SrBUbCjCTeJM5SW23D8 Bm8q5CXxf7Emn8cnwCNVAiR+1hm8v38K/CJamMR7Np7n6pgFL/u9jMS/TuOM hnnwSjFxEicO9Kk8ZudZ8OZ+CRKvMBSsurcYXBIgReIHFzdZ5ywBf7skTWKL iX2953nA4jEyJO6xSgxJ4gdfFqe+Jw8WFHFGCIFb3CgLcHxIpy8DL95FOceF XcVDHHySg7JeiXKlvRS4wp3q742AnZWpLHiYoK7n7x/eo7MSvF+bGs/8k2vk utXgW3eo8abJvFq8QgH8vUOMxOsO/D4vpAQ+VUHdb02TjPKidazchpoPZyXj ion1YLeL1Hz9iKHtHFAHb7tIzWd8Z9qnjg3gMRtqvmU3VhGN2uBXldR6FJ/+ tqhaF6z6iVov8wH+88X6YEYZtZ7d27SVcg1Y7c2nCMw7kWB53ASsd+YHgTHe yVtpDnZuHSAwmShaP7ID/Ob5Z2p/y1wzs7UDV91uJfDJb/5ccY5g5bwmAhvc VXv+wBncY/mCwHmGVYaS+8Br8h8SeDffUXYLT3Chy10C87VZVB/2AR+qziNw SED7lk9B4M+X0gi8NeW3Tl4YmP8ujcDju8sn3x8Gt//2IHD+mpjSpVHg8WEn Ags8FNAKjgdrzxsQuPOjsppWKtjzpgB1fsgfHfE5Bza/yk5gQ+LhrfQM1npZ jzNxwWITldls1n5ob2fi0HXuCjU3wV9ys5lYeWLt1993wEn0ZCbuwiPXFIpZ ++F3FBMb2R2WSyoDi2xyZ2KhQ+dlbJ6D+24vZ+KbtQ3C3d3g1NtSDLw35Wyz 4GewgPNvOhbZsyd52zfwnlMNdBw20s+X+501vktH6NhUdBE3bYo1v7SOYNzj oTs/Lcy74D8vomj4yEvlt7Ji4IYD9jQsrSFdYCAJDnu6loYd2WZt41eAaYbU z4f67MpcoXXgjO8iQfhBp8FORWNwTnNyAE5yNL3kEAo257D2xZrb7fXudrDa 92vtxde99TT7z/EtuDrPVRj/R5ShZRfA0Xv7OHDZEe0dBpfAbBFl7VVN5zW9 06+x6qcO86GpOpXzZnfB6vc71yKr9TIz+XXgDHm+zWh6YvaJ/yx4blOrJTrK Ed6UNs/qf+r5TiQgONVRzc6/YEvVUiskrzT+W5Ib7E5a2CCrPcMKL0XBCbcU 7FAO7kpS/g/8Q63REVkfq7IdcgdHy39wRYV1KgE9XmBPTwM3xMWTEd3mC3Y1 zXVDlSfJuzU0cN5fxl6klKrIfzEM3H2czR1xZJ2p25ECPlSQ6IEeFPsY3H4M 7i0lvZHgeIvT9Rpw3ZnL3ihw41b6hefg5I0N3kiuTDor/hX4cZu8DzpV9XrG 7T1YI+ytD/Kt0y0V+AmW/qfgh6S6+dczVwgsWC06OwDtrcrZs2sVeIPx0wCU c2lzIpIHOzX0B6D/XAK+8KmAdyipByLD9mcXbmwEe/HgQBTUcpjriyU4xaEp CBXdE9GqtwafNvsZhP6k3PC4ZwdGc4I0FG39vjLKGaxRaENDaQ2aIbLe4F7R 1zRUVTv4yfEweBVvdTDiyIvm3xIJ/sTzMRiZx0tslo8BR9RPB6MWI5PzYwng uURNOuqrvmKZnAo+xHaVjgQrdj2quwHWfEEwkEPmj767t8Bt5ccZKPNQvGj6 XbB48HUGkte5z/ApAW/hf8dAOiUCazmegA2WSzGRx93nqZvbwaIrCSZ6Nj8z 7NEJlqBFMNFaK3WzxO4FR2ulUt/fQ8OZs+++gq8FZDERqcL0pv8Cjxm/YKJ3 h3Jx2ji037nnDRNpv+yQrJiEPMe8k4lm/Ewal8yDzYp+UN/vudLaV3kEF6x7 kzoffB23TnnBD/ZMlCWQqXH80IjQgtnikQKBeL78zNaTAD/cqE2gVLnnS96t AXPaOBFonDHjMbMW2q+YcCOQ02O1SjkVyI1CfAgkvTeTGawO+f2ZEAJdu8j4 wLUF8kLtZAIt/p6zYf1WyA/nnCOQr17HKXsjlr9fpM6bH4wNr2wHS3AWEKhY XPqmrhM4yg8TSNTXmtN9N/QXdPkpgUJLju5LcIW8oqiOQHoOP5e99QTn72sh 0NMzzyJoDKjP//mFQGt7p9tSSVb+u59AiepqGo8OQG7/5juBLF9f+MYZAXmX 1G8C3Vnx2kA1CvLXR/8QSIi+ONMuFnzx5TSB3vExrC4nggd7/hFI2zWn4PkJ 8NH7HCTKuPmBY/g09LfWnTpfzswIuImkQt7Vt4RErhbGD3XOgUvNeEiELxwS 3pcBroylzqdyg3eC4i9C+/l0Aeo8fUxKruUqmGZLnWfF+VB8TQ7UV3csI9H2 FM+h4nzIvY3EqPOx6DHr64WQu58QJ9GdjJsPzt4G1xRT5+Me2Wapo0Xg9EeS JFp2dTxy/33w98tSJDJVkPrqXQqu86HO12E3tmx3fAT9G/DKkKhwvecdk0rI XVIof7yXsEz7MVhpgrKQ9s2wtTXgB7rUed2w/PVH8efQnn8v5f1o3HBJHeTb PCnn10gWTNZD7mpKucN0C/9AI5jOQ5nvlQfZ3gz1CXeo/pF1wvu6t5AXaVIm 3hbqP2oDz5ynxpuz6/XVGx+gPrSTup+2zt9cmV2Qq7FR5naXpB3/BNbhpO5/ 81f9N+GfoT57iJovur+HdtA3yBlF1HxeGY6/6DIAOXYSJVELs5DN8jvkGR+p 9eCcaPLR/wG5oIkwiXQO/a5X/QVWPyVIosC/EurLx6FeoJSfRFkx+uf4JyEv e8xLomZOj5m/05CjwqUk2ihQ+Kz7H2s+V1P7R2t7f5ofu9BCfvMutb92njj0 4hMH2GoFG4miBbNVmznB+pdnCHTBVn2f+ZIFs926N0k9T2drzlRzQx6TO06g bxL9f4p4wQUaPwg0v/uQsjI/eEX9EIEkL/G6XhUAGxlTz4uFnPqTM8Lg/o+f CHRX6dAJUgL6v1bwmkB1gbx4SBJ83eYVgT7fyhr1lIb64Y5a6vnVqHG0X86q P19FoEO6vHJaayBvu3WDet8czrK7JQ+5UUAOgW5VqcXLrwVncF8mUPc2hyFR ZbDt6FkCGVlkPZj4D9ob+kYQKPBZ5JFT6pCHlh6g+kPupgqakJt+o1Pj0VzT 7rAR8jWf3AkULXNj9v5myH+aGhEIDz8wJM0hH/nHTqA+3/O8PBZgJbNpJhLo Pfju6g5wE32Uidxa9XzfWIGb93Uz0VxVdZK6I/T371UZE+klNzT/8ADbDfgx kefSOxcSvKA+19iNiY7HJXuu8IHcPs6OiT4ctBvf6Q+5ZYE+E4W5t0vcpkO+ JU2QiUo1vu4NOgy5xmp3BtJ8NzvcnwbWlnwUjKyXj20NOw9OpWcFI5rvQBp3 Bpg7LSYY5U6901e+CN6+c3swklx+52TgVXBkdBsNzfu4q47cZs23wkAQejn5 LGisFsxlMxSA3GVOD81NgZ8UHPJB3+ZnjcgZ8PxBJx8U+Dkgq38WLK66wQft v2Fi0zIPfm007I0SN/0tyV8svOD2TW7e6K49LcZOCKztq+eF5k9YSBYogoUj vrijrDkuU3sncBfP7C4U1rtzY3IFWO7la2nk6X44lk9aBHKXj3aYZvWPP08G fMtwgz0O1Y+7YLAcPLA4yR4flzxRRMqB5aW1HPD95szu9rXgS+GJjnjxtnK9 3A3gxDvKzjhv1fTYlp3gsjcWbnjoc6gXIxo8fyDMCw9eFgxnjwW3x1zywgOu BSln48AnGdVeuK/tQ9XDBPDQzyXe+Eu9viTbKXBd1Dlv3FXM0ZhyAWxaVuiD m2JPaxcXg53DKv1wo4HiTuMHYBGyyw83zD32aisB15vP+eH60F8pM2XgvJOb /fGLQIfvho/BewPL/HG1nfSVt6/AfftuBuB7q/OWTnwFz9keCMKS4aUKtD5W /+9PB+HoN7XbvvSD9fQKgrBVdP+hN0NgZmZHEB7+qDR0exTMV72FhtdeuFnv OwfuPvmXhi8J3jvRvmzZgiuzPOl4sd+TfGsxcHXlQToOwm+e1oqD9zw8Scd6 wWOzD6TAc6iUjt/Xb6CdWQlWPb+EgUUSSi0t1oFXOF1n4GNzFfyVhuDnu/cx 8dwJmWo7Y3C9kT8TkzKHyUETsIMEwcR79fTei28Ht4bHMrF2WNkVwpo1Ps0c Jv76+8EGRVewuvsXJt4TJ9pX5QZW/jTExM0i+zMc9oH1zcaYuEJjw98YT3B6 CxuBUxn3arv8wadaZQm87fvt3akHwLKJNgQuDefnUz4INjtPnR9VeYLx4zDw llOuBJZUVl0zchgcvdGfwKO+hcNmsWB2RiSBff8svdwdx5qPp3EE7ooPsD0Q D+ZhSyLwixyl0muJ4IYNZwmc/Tkv6u9p8Lo46rwrSnJppqWAz8veJPBxdt+v KqngK9nU+fiAnMJ253PgWNcyAlvuvS5y/yJrfR7XEbhmhOP59izW+LIaCKxz xPNgTzZY27uZwPKXVnXxXwPvvPmewLMfLuf6F7DuX+4bgTsWHXT7eoM1nwLU eb9svZWY+03w0/4hAu+PmTu66w74ktsoge1uvtV/exfcPT1GYPXWwnGre+DC mAkCDyvt9jZ9AB60nyFwvZ26bE0Ja7zZcwQuiFjybstDsNu7eQJ7N5cYbSwH 8y5aRGLDmZOzRRXgh7OLSSwn731ftQo88YmLxF0HRdbIV4NXBfGQuPzqYMfl J2AxET4SZ7yqTpV5Cs7M4Sdx6ES6Rfoz8P3VgiR2WMngWFYL9j4pRFLnWdPy 0y/AN3uFSSwUspzkeQk+uXoZiRtqX/WyN4Cl/cRIXDh67cKRRtZ6Bi78fko6 3Ha6Cbx8jwSJfY1tlx5oBgtulCSxMV3pyegb8LVZyqsz/oXR3oI7bkuRmK2m TX3gHfjRDmkSd3+/PeDVBt7aSrlSLP7Kp/dgwkKGxJkGrs4uH8BWNymHBWwQ et8B7pyk7HSWp86uCyylLktirareqKaP4KUOlEX6yzZZfALf86I8KpTy83kP eNk+yk16fvnbPrOeN+r7Dt/yRvuqvoD5pCgfPy0mofsNnP+eup5/2XDTgz4w dyxl089PE9QHwJqSlOX5LqJbg+A1mdT9cGiTfxS/g78todyzb/ud68PgAx7U fOAkOd+VP8DtedR8Zd2fXH7xJ1i8nZrfiI9NreK/wP9NUPO/Z0neqdQxsPw8 tT46GkdMBMZZ76sxURKLuzj8TZoAV7yl1nP86LoSzkmw5xURErfc4QiOmQJP OVPrf5rjXlfYLHjmlACJaaqJaeNzrPnnofaThdM+S+Y8a/wkL4m5Cvkr/dhF F/x+CTeJv779GvKFA7xPi9qvNX8r1u1bDJ6wpPZzpG3gRaclYHdDNhLbWjh1 13OD/1Ohngd5I8NVBjxg6kc39fxoSecr8oNlGJMEFpesL54SAasGjRB4UKh0 giYKriinntfKpdd0esXAuyb7Cew5ewi/lAQ3bvpM4DvdyvWZK8DGba0Ejnkv xi8oB353uoXADs3sNnGrwNlarwk88+RDa5A8+IcZ9b4xzU3q1VcBbzj9iMDd QYNT3RvBKdkZBL7n3brZfhM4ZH0agY+6PYl8oQP+eSOZwCrWFxYXbQa3BCUQ OFRzu1DMNjCHaAiBBaYLFNfsBGvMmRO491daYLoVmN3fiMAPhqJv89qAu59s IfCeLucN43bgjwaaBM57zG3w3Bn8ykeawAYJ/k5+3uBQ934mlnt4XW3WB/xi RQ8Tcwx0cyf7gZPr2pn42XbHitJA1nx2v2RiC35DOS4C/FD8JhM7pckM5RwB Wz8OYGL6taYjn8+DHZKLGNjm7dJdoRms+ZXMYmCNxSbqPJlg7cNJDDzuU/FZ Iwuc+tqDgcOVC8xiroNVSoQYOKEoRliuCCx/0o+Os7FWrttLcNqGGRoeSOqP a6sHR7/+QsOajpme1g3ghJ2NNPz8+7+V216DdUYv0/Cw5KtM+VawyFsjGtYL 8Uj53gP2V0gIwq2Kpw8fmgI3PJwIwHxn+m3PKYpB/jDBF3unDdauVwYf3ern iyvTv2+uVQE33DHzxcHZPxUm17Pyzdy+uOnm5LSzFrhHKtEHJ9cuuSa7DSzL H+eNReYUx67vARcM+npiST//1OJT4LKtn1yw14xsxtgvVt7ybxuuUiybDbEW XzCbRoAhKnFe9bvjAdh4ztQVfU4PTXMsBYsqnXBFAu9fbWx+CP6j/doV+TqG hj0vBz+bc3JD4nav/t6tBrfI+exFoTsOcMc3gDlfbHFHOujlcrWvYNtTZp6o cg1hHrdMYsGCq1f5oo8anfv/iIL1p7f4onkDk6sB4uAD5Xt80VZXqRlrKfDF mbO+6Hnak5uyK8FH6Zx+qIlTRLBUBazM+9UPfeovbh3YBg62Sg5AbH9kOVyN wFvVbgSg1YuP/ffaGHzmT00A8pZzOVZiBlbT+ROABpwX6cbuBJ886hKIRl/a X5LZDR5RXhWEOG6Ne1oxwc9+pNOQ5ththV4C3GNfREMeOn4DISFgifQ6Gqp+ 9iH4Qijr+g+naCjyIw77GgFWcdkVjGYFkk6HJ4GXiQvQkYqjoS3/CfDgTnk6 2nNxdtmVk6z+PfToqFyRfuF5Mvj9cl86CttqnyN0Hpz4uYKOxonl5XnXWPcX T52X5MvaInRzwOvJ/QxkP59s0JALXqObyEDFxzme/yoAFzreZSDm9f7X+ndZ 462dZaCRd/e+tVQsOHqw1JSJ+jaZCv97B65PeclEkZIHP4S2gYXONjOR+HT+ 1R/vwWfi3jORSflSze4O6E9S7RsT5eg32lX1QL7l7j8m8trmkHZ4GPxrhwaB ZlbFu/4egfqE9Zuo8yxHqXzQT9Z8z+kTqOapRMmeMbC0tzmBVpt2tupOgU0c 9xKox8JTYmqR5EJ/R8sTCBS27uwnBqckzBd5gkBCfM/y+7kgt5NMIZBBo4LO +6WQF6hcIFC29aBzqSB4NKiQQNrq0qv+EwZXnLxDoCahHYO5ItCezCwm0N83 tw6dE4P8TEQ5gVwdmJn7ZSCv2/OSQONaVz2HZSE3/NxAoJNiLSreK8AhTs0E qmjbUGG/Cvxt8XsCSe+e7NRUhPZmh74QqFhXKadQCfJGnz4CWUjvpq1WYd0P GiRQeGf5nPB6sGfpDwJ9cItc/ksT2peUT1Hn/dD5w4la4OzNswRamxzZsVIb HJz7l0BkdWS6lS60z9zAQSLJD/MT3/TAI7sWkwj/inQ4og/1S324SMS7Jkr4 lgHkcbo8JCre/I9htA38jo2PRM4OUU0dhlDfVsRPonnaP1XSGBy9XZBEOfFR J5aaghvrhUhkkf1v8IoZtH+kJUKi0dIoc53tYL1jy0i0ZSCK088S6oe/iZHo K/WdOb8TcuExcRIdl4quOWcNeWmfBInUNdlWrbcFtz6VJFGbRXTUMzuoD0yS IlGEF1u3iwOY2CRNotUR0fq/HcGfGynXpbFdPL4L/NBShkSM29HTq3az9sN9 yuK1bM6P9kD/cYtkSVTZHV1q4wo5fTNlz0k2sQE3yG+6UOYWigmJ2ge5tjfl O0rsLeIeYB5Hyg7bYtTveILl/6M8s5s92cQbHPmTut5VMmakywf6E71A2fwE u+V+P8i/qlD+cT2mkDcA8r4cavxplexLrweCpanvQaTXGuOnR4P6w7bU/feM sNe+CQYvOkrNTwJXrHwAA1yUTc2f6kqOODYCHHOVmt+3m2J700noj36Smv9w G46tavvBoftESSQXEJtdewDqM6Sp9aqN4fjrdhDyhiphEtEyY10mwiAX2U6t t8h9jvKT4WD/SgESlb2KlZSPgPqXEtR+4fwb22oXBb6esJREt8QWaQ1FgyUy l5DI7r+41JhYaH/qHCeJsvfFWRfFg/cbs5PIOGzRHbNjUN87OU+goZQ4vk+J YNOzcwTaVBP3kv8k1E/ETBKou2ORUu4psH7rOIGO/o5L0E+G+hChMQI1yx81 CkoFF6FhAgUcO1pVlwH15uGfqPeLXsQqk0zwG7MuAiWMhMQ/uQjew/aBQNft vXaWZ4O9NFsI9HGl4cebOdCfQ+ZTAg236G5TyoO87vFj6v0Xr5Gbkw/55uYK AkkMywVnFYKFi+8TyLbs39zpInDuoWsEcg+adOcthvZLJrMIRF/x89mx++CA fdT77MTR7pPRpVC//lcygZ7bVMmSlZB3SkYQSHcwXN+xDjxwyIZA5pfIK29e gpvzLQjkZB242OoVtG+qNiZQSMnuBtMmsNgDHQLdjtFx1XkHFrqykkCrpP8c lukBTyUPMpF648in9F7W+4b5mYlQ9Dcj0S/gtfqdTOTS946Xv4+1H841MNG5 4vsX57+Dr1jfYaKlO4iK3klwUF8wE/E1Hil0mgbr5vswkZD18QuvZsDODm7U zx/76wdL/kL/50MsmUjepXVD0iKphfxarTITbQ3SvaUuCL6e8ISBwk6wZ0Wt BQdERtNRBL/AyXFF8LhSEB1FJUsfDlAGZ952pKOEsxt226uCPU1U6Cjtoo+Y oiY4v+hNMCq6+fJU0xbwxTipYNT/6kzkckeWz5wKQlPxI4uKncCxgUQQ4tm6 PcnUGewm5RiE/nvAlsZwAdtNywSh0EuMG088wErP8wMRV/DOdz508K6chwFI QWCpyp1jYI6dj/yQl010KyoHe0Xt8ELdOfbuZRVgCyslL+Q8vfa7RhV47N9i L2R5rZFNoRr8mxd7Iq1xaVXeWnBG/X+eiCujJPb9G3A2O68HKvg0pMYcZI3v wV439IPuePyqpPSCrdg87JHEmamWwUhwCreROo5ivu5x+ALu0rvlgr19I1Nf fQVzb+JwxRau640N+8De4s6uWNz8RL7aIFg1YpEbvrPSjM7zk+W3zntxVxOe fTwDnkmNdMd66++IrxORWbA2m6gXllvjVnd1GTgnXd8Lc0nxhUuKgbPFfbxw y+LAj5yS4I6XJV44oEshp2c5WH/O0RtnnMjSOK8MbjE544P/DJ60ZN8GJpf+ 8sNDEifS0g3BzYul/HG3SVLXemNwdNtWf/ziajxtjxl4fCbZH2fsjjx5fyfY f7NqAN78ktHgswecqukaiKML7CzrQ8C3bpyn4f1tNmnuB8B2CWU0HLDYuutP KFhIpYOG7dx30NaEg/Ez2WC8RtL4ZEQ0eLXu5WBce2xjw3+nWOO7lUHHvH6S lmfzwP9E1jOxv9rpCwIFYHtpXep8NrmoP+kGOI/dhIkjE3/GRN8C0xiuTDx6 o/ZhcDF455MkJn43vH+NOWaNl6+bidVLhphPH4OJaeo8eOqIO0ZPWP3V/GJi UwHL3RufgcMGFxO4TG1N8up68K5YZQJnkW9m5lrBR28HUedjPTPzsPfgFybU +dVpUdW53+3gl6XhBBZKK1Af6gTLrE4icGxJlO/7XrCbRA51fj4ycd/uC5iD UUjgzaZB7E1fwVFZRQQeb3O69KwfLB1ZSWDfqfUt90bAS8yo83pN9fWV63+C G6zeE3hlklRwwSg4cl0XgdulOLkv/waXen4jsNbncEfpCdZ6VA4S+Ezh6LVz f8AVQyMEttjcteXkNPjCkwnqPL3I7sSSWfBcwDSBFzW8aI+dA+/+Nkdg97Qt a+f/ghkb2Ehc6Xo/5NA/MLvDIhJLKSg/GWeTXXCTKReJQ0eyBZgc4PO8S0ms Fnn8hi8neAWPAImjxcRiO7jA2TpCJG65dXmPFTf4l64IieWNVTbULAV38ItS /XU+4NXmBS9/IEbiOtLg6w0+8CFVCer6PPWVywXAZaGSJA686nDujCD4QqoU NV6dT8GcwuCPUdIkFmgOMD0kArZAMiTe5ze+YmQZ+Foj5aL5yEl3MfCN9bIk 5ji/tPmdOHjlXsoO69MKzCXBzxec+2xFTKUU2FON8h+XG7vVZcAlr6n+zH9v 0MyRBUcbLPx+7zjmkVwBjo+kxvN91fYvJ1aCj52kxqv/6G3FPzmwSQB1P6dt 9qaFrAbHiVL329M/QOtfA2Y/Tc2HRlSIiYsCq//WZSSOFZ9f/not+NmQMInf 3U78Y6gETmoUJPFak2WvS5XB547wk/hgV1a+yjpw3gwPNb8hStHZquAIY24S S/Pedxb5D/xhDyeJade2aCSogY9s4SBxlW7d0hl1sMrwPLVf/D+W925grf+t SQIX//M767gR3F71m9pf6WNBL7XBqzJ/Uvvv+ZLl93TBdcV9BJ5yTZ2Q3wzO /dFL4O3jsk0Z+uCEcWq/D6/WjIo2AO9yo54PVF65a3wr634fNxA42dZM3d8Q vOF7LYE1o117rU3AApfKCXzoY4LRyh3g9L2XCVy/X1j2rCX4C3sGgWX5Lo1z WYEVaSkErta7l/vDhnW/adEE5sroXIKdwOrr9xLYWc23R8OZNT9sjgS+UTta lrsb7H5hB4EtJzgDT7mC5yV0CJxqp97g6gmWMBYg8Ngqns2jXmA9Yw4C2/36 ciPOB4zmJphYJCX9WKE/OC21i4lTG+cNp+jgVqs8Jh671H7vBJM1vsUZTGxH K5ZbSYK3M6j3owiv77zJAfAPzyCqvXnjo7OHwRVl66j2EvlKikfA7/llqPb9 0enlkWBbMR6qfYLWgd4Y8HBIEwOnPr2orpYIdrqymTIKzK9PA5c/mQzGY/zG 4nvPgxs8G4Kx3cfl8b/SwdpuV4KxSMQbT8mLYH0X02Cc+khnhe9VcLHfcRpO 1Vpyjv0Oa7wrxgLx2KLeRefugl3nKwKx3dtyUukeOHBdfCAWIek21g/Ax4PE AnHq3VberHLWfqKvD8CpKjmxOi/Aqh/0/PCetIk/RXXgyGt/ffHqedMg5Xqw eO1jX3z/zaC9dCM4VcrQF78LU1OYawHb9SAfLP6i/MXjbtb+dpf0wt3qfPo6 PWDRuGZPnJfpVlTUC66fOOaJN9HZLlz9CnZ4Oe6BncVMA+OGWM+DeK07zvR6 w2f2B/zu4ClX7Nm4OubxJGv8yv0uWGXT/olN0+BEPwMXXMEj0a00B94a8303 7rrnepeHY/mCR7k1d+EVbAO2TfxgfcODtvjapfnzjgpgprz3Brx+H+3t9Frw 1h4jNVy2qkMwWwlcvfOuIn6dV5LYtw4c/aFQCM8V0cIPaoJtfq5WRI7PO9wu GIAHei1NEfePUvmPu8EdSuZu6GyRvEeMC5hr5ZG9aEVIapaCG3jM+cE+pDUV LE53B0s2i3ogDw4F7n++YNOOdC9ULn72u9x+8O+uVn9k8oH6zjwAPvQzNgA1 X6R7BxwEL9fSCET9chYf74WDe3edCUKi69hfG8aAFde609HlETpvfyzrfvrE GUilqMvsxFGwdm8TA23dWFb99hj4r/FVJno1qfD3YBKYf/k/JnIqP6srewLs meZGoM8R7KHVJxccHX+zkkDBBoxi79Pg6YW/n/kfyl+lFQ== "]]}, Annotation[#, "Charting`Private`Tag$34822#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{2.718281828459045, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{E, E^2}, {-6.746834579907102*^-8, 6.746837533100347*^-8}}, {{ 2.718281828459045, 7.38905609893065}, {-6.746834579907102*^-8, 6.746837533100347*^-8}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.762752192473922*^9}, CellLabel->"Out[23]=", CellID->236772611] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", Selectable->False, ShowCellBracket->Automatic, CellMargins->{{66, 14}, {5, 10}}, Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, TaggingRules->{}, CellEvaluationFunction->(($Line = 0; Null)& ), ShowCellLabel->False, CellLabelAutoDelete->True, TabFilling->"\[LongDash]\[NegativeThickSpace]", TabSpacings->{100}, StyleMenuListing->None, FontFamily->"Verdana", FontWeight->Bold, FontSlant->"Plain", FontColor->GrayLevel[0.905882], CellID->226797627], Cell["Minimize the maximum absolute error: ", "Text", TaggingRules->{}, CellChangeTimes->{{3.762752921016685*^9, 3.762752941036121*^9}}, CellID->721281785], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralMiniMaxApproximation", "[", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], ",", "t", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", "2", ",", "4"}], "}"}], ",", "x"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.762752949138982*^9}, CellLabel->"In[24]:=", CellID->624186989], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1.`", ",", "1.0526677905784694`", ",", "1.1981457107517948`", ",", "1.4034336396505713`", ",", "1.625304663297373`", ",", "1.8204578921591092`", ",", "1.9531088438294866`", ",", "2.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.0701764032660663`"}], "+", RowBox[{"1.2791576409976981`", " ", "x"}], "+", RowBox[{"0.8066839311968768`", " ", SuperscriptBox["x", "2"]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"1.7108292031404915`", " ", "x"}], "+", RowBox[{"0.2400605646820394`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.0029771835474025933`", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"0.00005546132272935377`", " ", SuperscriptBox["x", "4"]}]}], ")"}]}], ",", RowBox[{"-", "9.77379378440129`*^-8"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7627529516493273`*^9}, CellLabel->"Out[24]=", CellID->568105208] }, Open ]], Cell["The absolute error is equioscillatory:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762752101698913*^9, 3.7627521622542477`*^9}, { 3.762753006909666*^9, 3.762753014876446*^9}}, CellID->588505449], Cell[BoxData[ RowBox[{ RowBox[{"log", "=", RowBox[{"%", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{3.762753031786825*^9}, CellLabel->"In[25]:=", CellID->519482260], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"log", "-", RowBox[{"Log", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "\[ExponentialE]", ",", SuperscriptBox["\[ExponentialE]", "2"]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[26]:=", CellID->371195232], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt2nk4VV0XAHBRZExklsgsSpK5TSqVFElSVOY5w+Xee84xk1IoryQloogk RSUZdpIkISSpTJVMUSqJlL7but9f/J5z9rDWXntrnycF10BbD04ODo54Lg6O fz8/nek/x/dgkRnr1xDKhELVix7lzT4E127+RaBTzKulI/VgrW01TKTjeORZ QxNY/7EtHREr5+Zju8BM9cogZJnWx097DW64YBaIZLjrJF16wJbx4kcQHk3Q MX0PVuvr80aLSsU95ybAReN9zqhr5S/a2CS4Z9Wng6gwrTfq9Xdwo4nGAWRF 5J2/Nwve3Ntji1JNdVpCFnH/s7aYiS5a0bpTd1wW7H08eg+eNF278e0KsEOx lT2uK122q2kluLCHdz/2PPvWq1ANLM/tcAgXO/lkuuuCk34ruuPIVqvCPfpg kXAbD2xtpn3X3AjcocjwxN8Uf7bKm4EtjG54Y8NPRzl7d4CJ7GZ/zHfQe0nz LrBteP0R3NO6Q7ZqN3ixTHkAji4T0Tu/D4xom4JwA5njs9cN/MFmMhhnfIpj bPYE95rZ0bDPQa+4dT7gPoe7NCywcXXW0kBwkGJgCN6zuLqthQJrCNeFYvOx DXy/I9jxXRanY+3mB5s0YsD6mt50LJTyqPzYcXD/bk4G/h28ZfLOSXDtgh0M /GnPE/UPyWCPjhQGbpR4dtE0jZ2/P6JMXD5r1XXkHLu9324mzn/buuTiBbDo yiQmjr3UETuTAy5NmmXioBi7apU8MLedJoEPu3X9sCsAa51wIrCJ6hvv0hvg ly53CazB63S5/xb4rEQfgaU+9b4VvAPOO7yQxItbDouZ3AOPmauReLrk3S7f SrBZ03YSD6a4JWTUsOc/703iF7SPDxtqwYtG4klcZ+c1N/UIXHU6h8S39EZ1 FZ+AeecrSJwt6Rewuwl82Pg5iZN/jRdEtYBlbD6QOLwn4N2NNnD05h8k9sWT 0j0vwE3yiyjskEOz43sFlpgQofDW2Klkgzfg0FI5Cuu5M5549rLXl65GYSWL GY6zA2ADc20Ki6hRRo8+gJ3k9Ci8gO93yNchdv2IGFF48lPEjRVj4C9KJhTu a/k7tHMCfP0Qy803Y+TDJ8GNDaz3q/7jOlD0HVztrk/hopD4M93T7PamOhTO 2MvTwv0LfOfwKgof0z/Bvf4P2PrZSgrTpfjN3Dh4/vnzCUkKu88lkf9xgUsv C1DYtlfo9gNucJ7sXxJvfJAyPsELfjT/hcTauSIqsoLgP9b9JJaLSztsKQxW kWghsaCH+HlCFMzneJ/Evy0yOq6Kgw+vzCPxmJq0wEspcGtIMokbx5dHrZUH b3zuSOLy1ksVhxXBm4bMSJx/S+Fbsgp4d64SiWNDlT3GNMETsiMEDrIvyJbU Bn8dfcKqRwP1bot14LmQq6x6/K2544ohOODVYQJPx+mudbIAe8fWM/HdC/l0 u+3gkmtZTBxaKl5pZcWe/wCdib/1zZhvsAWbJiky8WfDGju5Q+Bfh0MZeOjL FmKADhar/hKK87nvVXcT4Kp3VaHYfbnagvYw8LkDx0Pxe0u+kw9jwKf3yobi vvzWzMvJ4LtvUQh+5bjvgXs+2NbVJxin0xq5DhaCm8M0g7H9CcNte6+D01d+ CcKd5TLtW0rBXsohQbht6cB7lRpw293xANz4xJt7tBPcFd3tiyvWUTuPLFz8 z6s32Llil5FlhfY8YCvpZhfMl3WT04wPfLFxkwt24v54T0QYHFuk44w5Xluv rJAB200vd8LbIpV/cq4DN7ec3IO7G9tyMlzAZvlGSjgmwm8uxp3t14USWEOH 297PC8zxK22uJjzTmB8dYT+fi5dG8gFX6R8IcO1FA33kLRpuuTqF7Y/jO9DP g6pTjzA4uuTcQVQd6xw2/hCsq551CMUWnOcUe8yOZ3vuYST0lX+p5zPwsdsd zkjl6KTW4m5wxc5WV2RfdN/L6ivYMyfXE8k+//Y5dApcf1zSC73/voqR9RN8 KPeUFwrYkH308x9wuDvhjeLbYnNT+Hj/mfPPRl90Z3rH205FsK5G8RFEycS7 /lFhP48QC0BmZnhUWQMs8CkiADWf0J5haLPfX2YViAZlxcSkNoB34IAgJLqp b9dBe7DU0Ggw6vaS6IrfD76sKUFD2Uk2B0ucwE6zm2hIo6vO768reKHSRRoy 9ylIyA0Ee961CEG000F1HxPAeslHQ9Hi0Qy77kRw4bmCUHTJ/OFQ0ylwqm5T KGr+sZT/VhrYRVmIjpSdbu+hcsDLBlLoqPru24/+V8BRYbfoyHbJQuLwVfDt wud0FFlnd3FzMXu8CgEG6labHhSqAD8timGggFg55oIqsNuLLAZa1GPBO1XD Hj/5PgPpnD6n9foR+EH5FwZK/GHAuPIcvKjXnolQXRiPwTBYK16YQJ0yeec1 xsA2zcoE8qM3r1o+Aea/akSgDLXlNpzfwXipG4G+nsIZzfPgly0lBEoYGdJ4 sIDvnx1u1BJIznxJTelC8Gn5DgJZ/jj8Lp0P3Fj3nUB5jgs0XMTBXnNrSWR0 V716jxQ4IcKMRO1CtrssZME9abtINP/wMm3VSvCnOB8Spck8WyinDJZwYpBo Ff17urAa2LYplkQOapurfmiBP/hcINHnGP+dI9rg0sx8EsW/Tet/sw4c7X6L RGWnPnLVGoJVq+tJtG1EML3MBBy5o5VEfRv11PJNwX20VyTi/3HM6uQWcP3J ERJhvJO/ehvYXeEriWgJy5omdoB1TWdJpGz7NmGFNfj8IAeFumUub91ty45n 6WIKJX305o7bCz75RIhCpjfXPL7jwI5/kRiFvhHTcUOO4A0t0hS6al5jLnmY Hb+cPIX2CxxdYOkKbppRopBAl2VtmAe49qA6hWovLY264Q123alFoRCf7g39 fuz2jdoUUll36bdwIHhr6zoKvfntUWVOA7s561EouUGTCqWDOyMNKGSW8t3g KgHm1zCi0NT+yp+vwsAMV2MKFSjGlPNGgU+osf59fWBiK904lp3/cJaF7gnp Holn93+Y5YfRL79lJ4DF2lntQy0vlrYlgo06WP2rLXML4jwN3u5mSKG3vepr dFPBVUf1KXSqYHLC4yyYW389hcyD7xWfywBfpXQo9MMo0u9pJljUZg2FChdu 0ZjLZufr3ioKObXyj2peBu8oU6XQkoyOgkP54CVmihSqcznvmVIIPusiRyHG KmfluuvgwxJSFFL/oTL4vQQ87iJKoR48cVm5DIw3ClJok22Y/IkKsP6jvySa ljHvr6wCD3vMkKjo4+LscQwevTRJImEyXcbmMZijp59E9eYH38Q0guX7u0jE FFA6f/sZ+GZYC6s+L5WKS3SATeLuk+h6Q/PSvj6w6dskEh1KOdO25D34e0U0 iUQOHDi98SM4RDeURMTEsED+J/BingMksljGtdh/BrxLQ4FEs71PG7Lm2M+5 RUhUXJAS/3yenZ+jnCQSNZbjWreI/58dfN4TaMDFcH52KZhrNItAEU/VX8iK gTeZJBFIeq10oakk+KYhRaC9HHO74+XApuv3EqgpuzpfeBVYwJSHQHfemu5U 3QxGsk5MtHuT9krLreDxvVuY6HOR/E9/S3Cf+WomUqcW5JbZgF8b/GWgbMlH UxsOgp3zWeflib0WF+0YYE2uFjpSqdELZpLgB+WldFSvpGpxIRw8rJJOR/Pf eSb7Y8G2pofoKDT16Sa/0+BlLp9C0aHnVp9iCsEy47MhSGf7HqObb8CypuPB KOejjvTFXvZ8/jwLRkKxIr8SBsDmqdeD0Whl+33XIfDcBl/W+5o2huLfwCYl H4OQkPBOgwhegX+OLS8KRGNdFno7DMDjtnp+6Iq7kc7wWXDD79suyPp4ze4x Z8F/HlhgYIqLGjV8BtzAM25vzDA3X0Z0lye41k3SHFcn0W7W+YMN1pzZjNVS VQUzCfb7xXHbMWfWf407UsCLFxbsxnfKPExvPAAHnTB2xEumOuyv1IG3yXY4 Yt/1ZgHnH4Or7b2dsHyFdFb8M7A8PnMQJ9c8/3XwFXizwdBh7NloWC70BezA MHHFUn2CWkFyQv88srLAEx+qyTuwTwG8K2nME+ddNE5ASuDxKi0vvNrR54OA Bni1/20vbN5df/7aerDDompv7NcRxv3BCsz98KEvrmkY7d8bBrbDFwMw59Vo wQ2R4OY13QF4W7yEsVIMuMhRNBB3bNqS/u0YOOBdQiAeqs2xOp0KVttlEISX VO2733iN3b+FVDB2ufk41bgbvFb7AQ3Xz/8ad3kL9vJ+Q8Mqu7S3JvSB42k/ aHhs/MJc5yC4d04jBNM0gtwDvoK1+8+E4Nh8ab1cviX/3NbkFIoHp6xTngiC dy6lh2KLzfFjE8LgXNXkUMz34Uu2kQR4/6PqUJwq/5inUxHMc0eKji9nBr7m 3gDOdmui44Wf8tZpmYGFM/vp2NPoTfKeTeD6nCk61ni92TxnO7t/cTkGLhOX vm5oD/5xLYCBH/1XH+4fCH51iJuJVd7NdqXSwDHBkkycoL1m7X062Ha3BhNb PT//cVE4WIvYycSdAoG7LiWAD7n8x8SDx6XkO3LB5eeWEFhcAMXX5bHHI5cT eHuK61hZAdhxzSoCl2Rcv3PmBpgUtSAwcW3D9r33wXG1JIGLtFxLtlSD9xkf I3Bv6TFRvQdg1ROpBDavfN4r/pg9XlYRgQWeudC628AWRd0ERtbHXjW+AD+o /kDg4BdFJve7wCqXPxO46+137gs97PYfuUicMx6f6TgC7rTWJPF6oaL6vr/g rluhJNbdPpzmtUAY6vlbOIl3JpJP+jnBjdys+3n0kmzNtkXg1sI0En+UGJ6+ xQ/ObS8l8fx+Ul1dEJx5nXVfl7zI75QrBK5yeEBiS3nth/8tBZ/QbCbxTTUy kSYBXlLFur83+vLjMUnw1OpREr8vzpp0lQYbMD6TeNnaur17loP/RM6QWCvE LuGZHDjZ7A+JLe4OVW6SB198uYDCpCG/vK4i2IXio3BqWJZtsRJY7aQQhYtr 1sQrqYDTj4iw7usb7caWqbP7uylF4Z9xQ7LJGmANoeUUFm4grBdpgs+ZyVN4 k2XWnR+rwaIKKhT2rY+MSNYGt3Grs8ZDzhbKOuC3Faz7e2XFxiU168Cb9VdT +L2OYrfdevCyWG0K891YmDuuB/Y4z7r/r1Ud8jlqADaN0KWwQ+4THVkj8D0t PQpHy1ybu20M7i/Sp3Dh2ZP1OzaAG6YMKNy2xD/5AwJH8RtReObETvswM7Dc F5ZXLFyzQtQcfPuSMYUtIoVHijaBdy83oXDAzNdb5lvAAt4sp9NekG8swNNR LOPxO+a0bWAVD5aHPNP5+SzBNyVYFnrH7MzdAb58jtW/nuP+LMOdYMmPrPEP vjTybN8FVuZg+ai17BofG3a+RljzL3765yeHLXjPJVZ8nZv6azP2gK8osuL/ XVN7QnsvO346Kz9KBpdtG+3BK9NZ+bMqi5NxdmDHf5SV31BNj8Gf+8GCG1n5 z7xqceO0I3j4GWt96uTVGKoHwfLKrPUbu8Br+uAQuNOKtb5Gp5vbPruAeRaz 1t+Vt+T8MTd2fWfKUvhk3GlXOQ/wjnlJCr9m2k7t9Gavp/ZSCnN8W1fz0ef/ 8QpSWM1f7FiEH7seLy2mMOHcLXEjAOyz4y9rv765P7A5iJ0Ph1+s/WGXea0n GPx7/Q8SS2w/ZCxAB9cdHiNx+drBQ35hYPfQDhL3XX+syhUBDuZk7TdulYLJ C5HgpS6PSbxX2je2KQZ8KuUeiac4J/PVE8D3q86TWDaiPeDhCXB9+38k3vyz TH9/IvjA/RMkPvOJ/jThFLjgD0Finc658eE0sO2hvSS2Xv7NjEgHB2pbkdjf cyRtcQZ7vl3mJM6f6TRRzwQn5axhnRfLS5J8c8FKmjys88TDWXPiBvs8MSsh sMxN++iIm+AIj8sENpix6hQsBRc5p7POv5OG4avvsJ+/iSDwYIlIc2Al+GW/ JYGf/qz3+9YAFt7dy8RDZlUPYhvB+Z9amZjzZKmoaBN7/x6qZWIT2eyqdS3s /p5fZuISMyY//QXYv8+DidNOqF//2Q9+1DnIwM4yp8Z+z7DX3+QJHX+cn9tE +8WOL+ouHfu+98kangMP5l2h49BrW2w65sEB6VF0nKD/527BwqX/fE1Sj45v 7vGPsRUGx1dkheL5REvJQlWwurNDCM76zW2xxx5MOxQXhLUl69eP7AMTRj5B uH5djHLEfvDa+V1BeMx3bmGBE7u/DdJB2OD1l0e/XME65ocDcefd7o2XA8Fj u4qPYL7Aog1fE8BBy1V9MfFu5/rTVeDp1Luu2NU5LFZAWuSfoxUrTfHYe4Zb YDT4aJOoAxq9tIRaEAu2eprsgEacClPOxIHTLvLsR0Ndr2vuHQOb4V/70Ycm E0mOZLBJT58j6injbEk5D+78mXUYtcae0isrAweUk26odOVV3h+D4ObQI75I kipX9h8C68ld8kXR7Q0bPwyDG/LafNGu6GGyfQycvW2dHxrvVRu7MQmmPk77 IZXz15s8f4O7LZhH0MUlpYndoqL/HH5VKwgt9HpYYC0G1l6+OQj54fZHDeJg z6gDQcjoyLe5O1JgLu7jQehV0zr//1aA46T6g5DIsXIry1XgTRaJwej47yrB anPwhMILGvqdKFNruxl86vgIDdFkwmijW8ALO/7Q0CEjo1fi28ELxNRCkB5R kRNsDb5pExaCBr/fWafqBHY9KRuKNn66sT+VDn7lt52OyilBAXUmuNDUkY40 +Y7gBwQ49Yc/HUmqaypOhIEdeVLoaNKzaHxrLLi2tpOOst9fjfpzCvyNcmCg udeX8r0LwZHp25joDRfz4OA1sNmlvUxUobVLzPk6WCHJlYlCY34f3VcClhAJ Z6Jxtf3uFnfAp1tuMFEPU0RRqRYcPctPoMrc0TeXHoJ1TCUIlPGsNlXmEdjZ eyWB7FYEcoo2sPPhYUCg5oZn7xY0g3253QhULRaf0/8K7P++jEAXTJ0cHF+D ix2rCUT4rBN+9Qbcf+8xgXRr3kW19oL5pLoJVOyODtd8AOdHzBHo5CkxCcOP 4AbBhSTyrhhvvTMEvhotQCIlgUxUPApOElpOoqzbP5dnfgEbNpmQKLy39aX4 V/b7gZtJdIDnanLqN3Dezx0kEne0+3PiB9j4Juu+e4qztIeYA9tUM0gUuds3 055n2T8vtbxGot2W9n1Ni8H02RLW+JvMFUz5wFZJd0jUpCtdoCoI3u70gNW/ ZFPZjAhYKf8FiUaFy3/4LwN3BHaTqJr3ssE7MXDv8l4Suc6R+KkkeJHSEIlK +tSbLsiBnbunSRTzSkxwiTz4Sc0vEtm1LbCJUwCHH5sn0a+Hr1/6KYFfPFxE oZbKx5IDyuBgXV4K5dwudbRTBTueFKCQRf6JdyYaYL4BEQpJZdOVSleBO/vF KDSe7uKlrAV+XydJodQEwwlBbXC/jhyFPGKUtWPXsufzQJ5CBtTSkGkd8Nwa RQr1+Y3O9K0H61eqUqjU/aXxHn3wlk51Ch09+DDyiQH4QvsqCu2zv/HQ2Ahs UqZFIQ3r8wtvGYOVGWso9Gdr/FalDez5L19LoTaz4JMZiJ2/Ah0KXTE82CJg Br4hpkshhs524ZiN4GbP9RTavmr9nh/mYKNMPQrJKimk+2wGs/7SUuiLrODr 3i3gxSUGFKoTm5Wx3QoOSDKk0Fmhj4catoHVdhlRyJunPdfIEmz8nWVjjprB kh3gwjBjCgnNFqoq7mS3H2b53dc033O7wKl6JhS6MxZ9g98GLObD8vEP/pNR u9n5i/z3vazHYd2ULdiCYFnr5WaGtx142o5ljlbt+z172fUpxvKLBtnfNvvA 5ytY4119sNj0sQP4lCnLZMVUjOEB8NQ11nytSgfqbziy6/EnK74VRc08Kw+C NdRZ/na5wjL9EHs+G1j5eJyZl8znDN6hx8pXRlpKW6QLWEGElU//5HDR765g qp2Vf9Nj3vZe7uCDoesoJH/vypo5DzDjNWv9OEf6Fp/2Aksv16bQB0np9yt9 wLtMV1OofvveqnJfsJSZJiseKiXN0h8ctkKDla/rz470HQHH9LLqy1LQXJ47 GBz9YyWFNFHE7HkaOMGaVZ+CgRUdWqHgbQnLWfXTtjp+L5Odv3QJCtmnyYzl RYAPK/Kx6vmx/SODKPBoCDdrf0z/d7E5mh3PFU4K9exbbD0Vx67vS6z96Crz 4/amk+zzgX+URJuttJNfJYL32A2SSDnCz9MvGewW3k+ikb53kmdSwGt8X5Io 4HJrxPt0dn3UsM4Pmxe8+xgZ4DGOShKtXbhFm+8CuEaRdd5MeVS9X5sF/sFT SCJKvXBrzBVw645TJHI68EFeLJ+9v5OOk2hDotyvwqtgieJoEnFMpBW3XQNX JdJIdOxWzFL5W+CoJjvWefuueux2KdiBbyeJtovMPNp6G7xfYwuJBEIDGIHl 4L9860mUqu/4FleDzW1ESZSNdfMPPmWfJz+eEmjkxHBcVxN4w8daAunsveBq 3QzOuX+PQI8//V2x8Tl7/KX5BBqXfHZB6SV4MjKSQEYhLimfBsCGjpoEOoqW Bbq/Z/d/SYFArbxPdvZ+AOs0iRPIJUeT//kQeG8bB4ESWn7Gl42D66+8YKKX qqfCyBnwxpBQJpL7bnbg2yxYWNqbibzxdwO/OXY9Fzgy0W+7/dNO8+x8MMyZ aGWsUrDZQrF/7v4oxERBPZWePMJgfakrDCTw3/Dus6rgFWb36cg9bbRBSx1c lFRIR9XnPhk3aIBras7R0ZHsL8o/tcCtLXQ6ar3+c9ZBF8xfqE1Hpxt4Lstu BAvtzw1FIr9Vv105AHbeExiCJL28U8uSwd66j4KQh2FU6qbTYMHW4iBUxp+e 2pkCPrwnPQjtvPUodfoMOFrBJwjFzsqdMboAvt4qGIQ+Jb48U3cVPMhbEIDw LfOzHQ/AOtaX/ZDbL9mMb1/Bjb76HqhGtWIuxFocvDvWBt11UPj+5g7Y5ujd 7bhaMXhbnKgE9Gda54Z7174NnV4G9j855YbnTbfk+oiDB2pV3LGZk9Qvaylw 9uRJd/w47eF12RXgO3ttPXDrIpEl5RpgZ55eT9w/XPZyZCOYcXbAB3MWT7nu CgJ3TqcFYp1vN5TfBYOjbesDsYuB10hICNjo+PdAXFv/+sh5Bji4Ri0IR/Zi YjAcLFoXH4TnhE6cok6AF0wZB+Op4OWVVy+D1yll0LBSRVe4YR7YXPUGDe+Z P23anA8WFK2j4bKTnI+/FoL3532i4aArw89NboIzizaE4InO0o8dVeCbmr0h eEjfYunfTrC4OS8dR0oyXzO6wA7fpehYfLYg9/MrsHWyBh1vqeTV6XsD5gzb Qcd5Ji22NQNgdeMkOnbbaJcWNg7mMuFl4F8K8U7fJ8AZAZIMnMpZruT3BZyS oMrAdY8k7h74Bj5I28LAKy3evjScAa+ViWbgAUtXiRkuyX/2uDXJwMSqM/2B i8CD1vMMLCxQXzDMDU56yc/Epi3KBq94wYvPqDBxtvWoQ/kScHHnASZ2sgu6 ECoDtnXFTDylm+s6LgvOcmxi4iSxDg13OfCYYRcTV3Wtq9qjAN6UP8HE0vt/ vtVRBfOvlyHw64ORy7/qgEfUgwkczZgPS9AF51qEE1jldOSbFXpgZ/PjBKbV Rp7bZQi+1HWRwPyKUUuLTcHvAxsIXGb8N3DTRvB/sW0EdrCLan1jDs4LeUPg vPioRF4L8LXJCQJvGIla5GUFFrcTJfEgB4f7/E7w032yJD4pFV131hq8zVCZ xF2W0VH1tuBDZ/VIHHgjelZhP3jy5j4S59JiJno8wCKHz5B4W+ICq1AvsKT+ BRJ/vhJTxO8DfvEph8RGL2O8jPzBKz7dIPEL/dh352hgJ9MGElM2nGZrQtn5 m3tGYnmf2OwGOtjhTDuJ/S/EOv4gwBP7eki86E/sS9soMOfaSRIXi3HpjkWD vzZPkdh2dVxqTCw4Z/MsibMPx1nfimev95MFFN5McJVsPQ4uaF9E4bGUOIH+ BHD7PV4K69fFPRVMAp8UX0rhvjdcavnJYK7Tyyh89HvcMZPT7PffS1C4Teno Jr9UsLGsHIUZGxZe5kwDP1ygQGFZ+6McF86CfesUKexz/GhNYwZ4plONwoRR uMKWC+BzHP/+v89ESPzDTPA4vxaF03L8RjdksT29msJX9rjtrMxm1/NDbQqX cTuW6uWAG/x0KFx731bsdi741I91FG71tyTXXAH3HVpP4d4V5r3X88A3C/Qo PN5huFHtKvj7c30K/4pfm59XAM5/ZUDhxYbqvArXwFXYkMIS4/JHsorAa+ON KKxySbJdqhg8p2FMYV1b4fXpN9j1cYtl80WLz4vcBAcsM6Hw7oq/v0/dAi9y YNnZ76czfxm4k/r3/VHuS/3x2+z8hrMc3j6ktvAuO18HWU482pcUXQ42kWP5 gn7X5O977P1ZwxqvcKzFjrwPFjBhuTzrccWPSvCJ86z5PrapkaVVg/m6WPF0 ct2N/lzDfv6VFe/78uJB3wfs+hpn5WPSJ2/bcC17/R6z8vVX9mKxWx17fSNY +RRqOyM88Aj8a5kua73jEkOdHrP3WyJrPQxHKZO9jeCXomsovO0iLaf9KdhP hbW+9ta+C3c9A7dIsNY/5O7+ZotW8Jt0FQrHeu/WfvQcHKakROEUme1ppu3s /KSw6utGjIGTQSe7XhfJUrhaV7v2zkvwR0EpCjcNqyqtfQUenhKj8PBOiXH1 N+C6Q0sorCA9HSYzwO4/l4PC2i0T/efesfvL/k1iFP1x07IPYEVqhsSOQ538 gkPgV81fSHy27Hbm/Cf2/h9g7c88j+t/qQnw0vZXJC6TvOL28zM4MqeDxM8j U1dNfgVfffOExLw7gqve/QTzVt8isUBLRJH9LNjlQRGJha1Pnn/2Cxx8OY/E 4nuuMO/+ARfxZJBYyfHluhNcUv+cuCuCxGq971bOLwTHWjNIvOrw56Uh3OBV 2oEk1nHjmXTiBV9McSaxmZ9hsfYS8K+WjSTePLElM18YfL7ZkMRbA21PSouA fxatJfGuED/vhWLgd9wKJHYKy1LqlgbfNZ4nMJG4ICtKBeyUWUbgcEGhpClV cHp6IYGjTkuH+aiDy4KzCXzszLr9ezTB2U9OEDgt00NMVQdc8e0QgW9df5rc ugHct52LwMPP/otcvhccrqjLxDPxE1xl9uCZ70pMzGe2/YSFAzjpkhgTr77D kRboCJZLmGZgxsXAaw9dwOtzyhmY+8jOTo8AcP70GgZWFuLVKDkOfpzJQ8d6 je43zU+Avw1/D8XbYmt1X50EzwoPhGL/aaYpxylw++y9UHynb8jONg1creYZ ijffrI+azgEvEqgOwW420S9RJfgkuYuG+/L2OFdUgdUVDGjYYVbl09oaML1Y gYatLrdwKNeCvQOmgrHulLQmfwN7/NyMYMydcTf2VTv46Ju3Qbiwf2xN0CjY xuViAP4csPdkrqT0P7cKt3lhxhzzupE0ePrDf1747/ELzS9k2I7b44WFc/uF uFeA36zq8sTrXvic8VUG2ym99sCEfuTFdTrgSc4uN8zJUVDyeAeYo9vxMJb4 b6ZjNBI8cPfmDhwV9HzA7gPYpCjMHrl7RqY+GwQPWi3chyydtDabD4G73yft Q+LbEgvWjIJzBrMcUMmKrQF8X8BOyg8OoJ5WPPfgF3jhoz+HkJFWifgqERnY T6jMDU2PJlkt2AguK2n1Q2MSiWnnzMEHboj4o74tJ3q0NoPLw+390ZPceP8D W8G+J3v9Ucb+yKTbO8GNVqNHkPHTwGaPA2C+uulAFF1oa9UUAg6c+RqMQrts 0pzp4B3mwjTks9C6Z5oB7vVaTUO2zjv8FSn2+5t9aUhRcnNSeDQ4V3+AhhqO r29enQyWKagPQfxeklZnroK1cvzpyHvNqfNChWDXj3F0VP+Ta/jENfDz+Qt0 FJnwJSa6GPyguJGOJq813DtSBk4dU2CgzvFQxW0Y3JHxjIG0744FPXoA7vve z0DJEc4YPQQvXD7FQBZCVvvX14P5u2WYqGKN4umVTeAVQ6z7WBat/dfvl2Af 3lkm+mW0dRvxCnxTnI9A9lw1Z793g29/kiaQcFqh9thbdn4+GRMo9m6U56t3 YIf1YQTqi/hx2/YDWIB+kkDGFn4LWgfBuuR5Ak112V+sHwbrt5QTyHNGq6N0 Arw14zOB6mqvrND6Ah75MkegFSekjhROgi8t5iVRt9SixZe+g6+HrSSRpXHP hqRZsLGTLYmuctkm8syBK24dJBFX85Pu2N/gD3XeJKp2uh1C/gUfl4sk0ZrI k9c8F8lC/q7mkyhaTCz2DTd4sqSERB3Flw7sWgweD7lHIsbbO/x6/OC/Oo0k aqSZDl4TAJtotpFIiq+perkQuGbgFWs8g/4ji5aCm8ghEgm1+ViQIuC4gxMk Ouw1JTchCm799Z1EnOm8bZ3iYGdnDgrZaaUVbpMEt6lyUyi/Xi6mWgqsUMBP oW3f1+nkyYIvPROj0IWTmE9SDjwdKE2hTwrbPySuAIc2yVHI5P6Lqr/y4KI3 Kyl0yuZQWshKsHqOCoUGhkf8hxXZ85PWoNDaqJAtjsrgrdu1KBQrPr/8uQqY V1ObQp03EqbN1cAOdToUUtki+rxcHfyQfz2FmD1ZBRqrwF08+hRqDFGLztZk j1duQCFp/tsOIqvBW8SNKOR/ecPaY2vAD1SNKVRj2Mj7Sxu8fOzf97922/dH dMBTTiYUcvburXy3Dvw8iuWyv15n9q4Hm9qyzHXum99TPXb+XrDa262O2LzB ACy08N/3vMc8y0sNwQnvDSk045T6Q8kY3BLAmt/2KdnWDBOwR6EeK7+JBVcF EHjglC6FxlfqREWbgp8qsOJHldX7pszA153XUOj07q3a3ubgZTs0WfkdaV/c swmcPKBGIZ1op3fWW8C58soUOioxfP+RBbiHT4FCXSXBqfrbwM+yZSlE9h7b tGIH+N1DEQo1hS6VPWPFzo+NIIVkBS5Oce8C6x3joVCtUWn+Zxuw+MgvEol0 GEe62oI/iUyRyM2nwb5rD/jRh3EScWe85cH24GP0XhI5rPEcWOsAjl3/kkTX GiYr8veDs883k8jqxyLfZCfwBqtKEqXaajc7uYL/7PyPRN8U+Iwn3cDrNOJJ ZPv1w7U4D/C9swRrPinnjhd5g/UlD7Hat8ybzwSw47+vyGp/sbs0MQhs+VeU 1d6/TH4FDSz6nIvVnt9zfgudPT7/ewKlbmu5fyYMvG8wg0DfJArUVCPY8fvF E8h2OPpcZSS7/pjBBBI5pkt/FwOukt3Gav8oU3tNAvha4hcmSkW+BU1pYB1v FSb6JrhZ/FA6e39N8zGRbe/y+K/nwCUcXxhIJLzdVTIT7BV7l4FS7xvIeeaC HTVNGOhbgkjy7GWwbbQsA9k6jM8l5YE/b/9NRyI/L72+XQA+YlxJR6m6PGcX lICzjq6ho29c77jO3mSvH42fjmxfVNLUSsGM9qFQJEILsLG+A07syQxFqTdf 8mdVgukSf0NQqkZerMET8OH4azR0IO3H9K1GcJBOFA2tnLfwU28ClzrY0dDt 9tE90i3go0J/glEnsUb5dwd7vZZsC0biTyqfPOgDVzw+Hoj6tAVMDAbARlUK gejqhYO3br1jt0+pDED6ARzncwfBOS9HjiAHMQvfuDH2+VCo748uuLULbJ1m n8eeWd7ItWVlzIOfYJunSt5IQz/0h/4sO38zRV6oik+iT+03WPbebU/UU+p0 k49zOdTr2XJ3JMcxsrtVEKz5MNoZXb44n75XGcxhSVghrcP+L2ZVwN2cBdtR hcKbJdlq4G3TrRbo+dW7CUOrwG2BfBvR71v+FFMH7HyqSgntffzm4HlTsHBq 9yY8cHzbhQ0bwSkZUluxv2V51ztzcPRrF0sc+/w/aw0LsOyyoza45PW2jVVW 4Bl3+3148edypd797PlrvnLFZ24pucQ4ghMMHrthuZDULOWDYKu1d92x7swR 8QBncMXkBU/swqm8+K8n+FdPhC+uFD/zST4UHH9qdzDe8ppD7TEd7BbQHYzb MgPcfZjg1XbONDwsb9lbSoED14eE4GWrFjw3jwF7+ubT8aWJAP7hWPCOs7oM rHGrZ2viUTBfaz0Dm62vqH1xHCx9ZISJn/1U/sM8Aaa9DCOwfeUZQ9lEcL61 MInfhy9g1Cax59+TT+IjpoFl7qfAtyJY9+H/ARTC9CE= "]]}, Annotation[#, "Charting`Private`Tag$35125#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{2.718281828459045, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{E, E^2}, {-9.773793641087991*^-8, 9.773792775114032*^-8}}, {{ 2.718281828459045, 7.38905609893065}, {-9.773793641087991*^-8, 9.773792775114032*^-8}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.762753044836789*^9}, CellLabel->"Out[26]=", CellID->135002132] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", TaggingRules->{}, CellID->890561554], Cell[CellGroupData[{ Cell["Derivatives", "Subsubsection", TaggingRules->{}, CellChangeTimes->{3.762669795846827*^9}, CellID->549196982], Cell["\<\ A list of derivatives for both parts of parametrically defined function, \ evaluated at numeric points: \ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.762751216291443*^9, 3.762751217109363*^9}, { 3.7627512598343697`*^9, 3.7627513513511868`*^9}}, CellID->344430172], Cell[BoxData[ RowBox[{ RowBox[{"derivs", "[", RowBox[{"t_", "?", "NumberQ"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"exp", "=", SuperscriptBox["\[ExponentialE]", "t"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"exp", ",", "exp", ",", "exp"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "0"}], "}"}]}], "}"}]}], "]"}]}]], "Input",\ TaggingRules->{}, CellChangeTimes->{3.7627513948230867`*^9}, CellLabel->"In[19]:=", CellID->601606999], Cell["The approximation:", "Text", TaggingRules->{}, CellChangeTimes->{{3.762751444387615*^9, 3.762751455230988*^9}}, CellID->796187503], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralMiniMaxApproximation", "[", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", "2", ",", "4"}], "}"}], ",", "x", ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"derivs", "[", "t", "]"}]}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7627513987342653`*^9, 3.7627514094517107`*^9}}, CellLabel->"In[20]:=", CellID->717742409], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1.`", ",", "1.0471601651412084`", ",", "1.1813107377365257`", ",", "1.3793050470405284`", ",", "1.603108046957371`", ",", "1.807147573922206`", ",", "1.9491940550717777`", ",", "2.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.082397791607715`"}], "+", RowBox[{"1.2738087749743898`", " ", "x"}], "+", RowBox[{"0.8236002441268396`", " ", SuperscriptBox["x", "2"]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"1.7318693037788044`", " ", "x"}], "+", RowBox[{"0.2459175701415049`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.0030965712043458985`", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"0.000058428236477872275`", " ", SuperscriptBox["x", "4"]}]}], ")"}]}], ",", RowBox[{"-", "6.746838844263272`*^-8"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7627514634734707`*^9}, CellLabel->"Out[20]=", CellID->701679988] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell[TextData[{ "For functions with an easily computable inverse, the result given by ", Cell[BoxData["GeneralMiniMaxApproximation"], "InlineFormula", FontFamily->"Source Sans Pro"], " is close to the one returned by the resource function ", ButtonBox["MiniMaxApproximation", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ MiniMaxApproximation/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ MiniMaxApproximation/"], ", up to the abscissas of the extrema:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.762749451456972*^9, 3.7627494559426107`*^9}, { 3.762749656095027*^9, 3.762749670594201*^9}, {3.762749952359733*^9, 3.762750017586933*^9}, {3.762750449856543*^9, 3.762750455561915*^9}, { 3.854556072067175*^9, 3.854556084810884*^9}, {3.854556209302114*^9, 3.854556244565057*^9}}, CellID->105288599], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gmm", "=", RowBox[{"GeneralMiniMaxApproximation", "[", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", "2", ",", "4"}], "}"}], ",", "x"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762750331157209*^9, 3.7627503316023703`*^9}}, CellLabel->"In[16]:=", CellID->845489840], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1.`", ",", "1.0471601651412084`", ",", "1.1813107377365257`", ",", "1.3793050470405284`", ",", "1.603108046957371`", ",", "1.807147573922206`", ",", "1.9491940550717777`", ",", "2.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.082397791607715`"}], "+", RowBox[{"1.2738087749743898`", " ", "x"}], "+", RowBox[{"0.8236002441268396`", " ", SuperscriptBox["x", "2"]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"1.7318693037788044`", " ", "x"}], "+", RowBox[{"0.2459175701415049`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.0030965712043458985`", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"0.000058428236477872275`", " ", SuperscriptBox["x", "4"]}]}], ")"}]}], ",", RowBox[{"-", "6.746838844263272`*^-8"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.762750051609808*^9, 3.7627503344767113`*^9}, CellLabel->"Out[16]=", CellID->923695536] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mm", "=", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Log", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"{", RowBox[{"\[ExponentialE]", ",", SuperscriptBox["\[ExponentialE]", "2"]}], "}"}], ",", "2", ",", "4"}], "}"}]}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762750079647189*^9, 3.7627501051548977`*^9}, { 3.762750338834154*^9, 3.762750339929386*^9}}, CellLabel->"In[17]:=", CellID->919356212], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "2.7182818284590446`", ",", "2.849547373160997`", ",", "3.258642631312911`", ",", "3.9721402178919427`", ",", "4.9684506295883795`", ",", "6.093042666568837`", ",", "7.023025127467671`", ",", "7.38905609893065`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "2.0823977915550684`"}], "+", RowBox[{"1.2738087749873102`", " ", "x"}], "+", RowBox[{"0.8236002440647215`", " ", SuperscriptBox["x", "2"]}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"1.731869303696219`", " ", "x"}], "+", RowBox[{"0.24591757012071283`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.003096571203981212`", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"0.00005842823647002409`", " ", SuperscriptBox["x", "4"]}]}], ")"}]}], ",", RowBox[{"-", "6.746838862149507`*^-8"}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.762750317124469*^9, 3.762750341331089*^9}}, CellLabel->"Out[17]=", CellID->721482699] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"1", "-", FractionBox[ RowBox[{"gmm", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}], RowBox[{"mm", "\[LeftDoubleBracket]", RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]]}], ",", RowBox[{"{", RowBox[{"x", ",", "\[ExponentialE]", ",", SuperscriptBox["\[ExponentialE]", "2"]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.762750386200674*^9, 3.7627504104268084`*^9}}, CellLabel->"In[18]:=", CellID->41847975], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGBwAmIQ/Xry/elc+1kdGMBgg80e1sNLfh6E8Q/Y9JUv2/ji CIJvFJ17+tgphPoKpd//mq7B+AwMXlPucRfdRPCl2Q5JJN5B8Pe97DCyf4TQ PyE6x17vKUI+6ay/j+wLhH0m9saRPK8R8qwbxdJ+v4Xr33NN6VfRqw8I81ZM uVt/8zNCvU/FkpnbfyL4k+yNzhazssH1y5/zNXkjA+Mf2PPB3tDxtjxC/tBG Eb9TSgj+FOUfUTtV2eDmpU29nb5CAy5vY8G+v2S6NkKes3JRY5sewvxbr1r7 Sg0R5q2JyZydYoJQX3fOZ0WwOULe38Fgq5MVQv6T8vdzCg4IecvXLUx3vRHy XLEZ/Gf8EPJ3znnL7A5E8Bs2CZnNDEeoD1L55tQRhZBXnnbTvzwWxj+x5wv7 3pi0BIT6Y5ULMkOTEf6Z8bq5zCUNwc+MTW82zkSYx+OoN1cwH8EP5thz4WwV gu/0ypbrTy2Cb3Bmv7NWI4LPN+HwtrZ2hPl/Cl0/bOlCuOd18HHNx70I/i1T z2TBiQj9J8RPz7GfgvDPtp8+13KnI8xbevsc/5xZCP1T9gZ4npqL0N80/1LT jwUI9QWNIXvUliDk45OvfQ1ZjuDbqN/K2LgWwdfijFl0fwOCL/n67m3eLQj+ t3UP/bJ2IczfYPbSRPk4Qn6eRHZe4CkEv/fXm+X1ZxH8mjt5D9deQOjP2vdB 6s5lhH8jFhSFcF1HqHdv+tJrcQvhX7OUsuNpdxHyPsXnjxvch/FP7QEA/kMg vA== "]], LineBox[{{2.894407806522096, -7.216449660063518*^-16}, { 2.895378437928523, -4.440892098500626*^-16}, { 2.8969314481788055`, -4.440892098500626*^-16}, { 2.9093555301810694`, -6.661338147750939*^-16}, { 2.9108056250728063`, -4.440892098500626*^-16}, { 2.912255719964543, -4.440892098500626*^-16}, { 2.915155909748017, -6.661338147750939*^-16}, { 2.9166060046397537`, -4.440892098500626*^-16}, { 2.9180560995314906`, -6.661338147750939*^-16}, { 2.9195061944232275`, -6.661338147750939*^-16}, { 2.9209562893149643`, -2.220446049250313*^-16}, { 2.922406384206701, -2.220446049250313*^-16}, { 2.9234939553755037`, -7.216449660063518*^-16}}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQHXLVj0/1FLsDAxic2tPdLGrJcAbGP7DHa1Zb7Y9z CD7nxu8HP1yE8TfsOXE8g+3lFQS//d5Nr4fXYfwTe9y+evXfvIXgs/LsuXzx LsK8I0q6EqceIOSbLefFHHqM4DsF8C/c9QxhPmN6w9NNLxHyB2o/aq5+g+DX T0nKW/weYb7d6subZn9C6P970OX75K8I+T03tlr3/EDwq9+rNbT8hvEZGKzY Zhyp+Ycw/6cMJ2cpIwdc/Q7jKt9cFg64+Vxz1zM5cCH4MWxPtwsJIPgMN/2V dkgj9Ac5tV7vUkTwl6ze1ROrjuB71Kl+ZzKG8U/s+Wh0IPCNKcK8Wc+j1ly1 QKh3nvOVbb81Qv7Q4pdc72xh/FN7AFjXl/k= "]], LineBox[CompressedData[" 1:eJxNlnc41f///w9KVhRlr2yKZIWOLWSnqLxV9i4rkk0pUeJEiJAySiGpxCEJ mUlGSFoKRUmR7fv5/a7rnLv+6bpd9/F4PJ+v1+tctjn6WLnQEggEGzoC4f/9 X3ww/sszLQZtwv//10pOXb+dnKxD4TqyZlUjZ6g+ePSkvZ+zIYWbyUmii21m xtD7m1/npjuAo8O9FqOdwTIK9DZebhQuI4dl7mHWPAFd+GRB4Jdg9LtzhBnL JUH/d1Ty74ta6OQY+9CJ5+iLKcyg3doInfU382bXNuR7tu5NT3wF/bp6hNCT LugS56ZkGfrRN1Ek/Uj+Hbi8w5F4ZBj54OnMF9GfoGty9RrfHUGfzd2nbqa/ wfyd0z9P/QV//rM96MY/9J3UyD73cxl67OuYm0lMjNT+ilmTdz2i4BC+WMdl CUaqX1u7dlxchsIEQvtF+bkgefAI/9atPBrIc+gNmx+1Qd7/im/91zjomvWh G1RHwcwz503j9zJRubbWjJlsBPaP29I6aQLu58sz3G9FYQKhQLdGl/s49CMs 52iMHSmcS2TpM64LdYE/wKNf44MXWEIxZ2mTD/KDSy7Vuv7QtZP+qBYEU3Xi 3yNV/96Gwl8oGv2YMRJsO2kYuCcGedYnrEonYsHv3kvvVCJhv8TCqUmXVOi6 fk/upaWjb0Y9wqslE1y0bq/MYjbY7hXz+I48MFv6m8Jj+egL2m4vXl8MXXpG YuRPCc4zVDuZJ14Ov55VqPDFSvAsn+6Hqmrk735lyJ6oxf6bzlzjs2xEX4Pu 0cHoZuRPs4hlPGyDPpzzgJPrDfRkj+Beo1706ytqpYT0g4ub2jcPD4PZbW2v 6HwFB0+OsuT/AO94UtLW9xP9H6IC4xmmMZ9kTNynPgO/wRY6Bu856PPvW5pu LILvFSbFdq6gj2OPIJ3iemYqf3RQW5nfTOFcYniLdDf/Vui8u3iLtLjB1oTF /bGC4NZscv6m7eCKd1pmkvrg/XryIsaGFC4j/7wr/M/bmMpE6RCam+WW8Dd9 +h3YewB+532fjedsKFxJpHnwRojPFno294u/GkcpXEckRj1ssbeHPjB6K/us E/qDLFICClyhb3lyzqjFA/xAMFBgwhv3YX7eZZrVF/tOTFq/3BUA/0Vrg6yD QWCJGhW/02cwr0FM0uB6GPIOl7j4aiKhr/zZMPUhBpz131wD7XmcV+3FWIb4 ReRPkVr0vK5gv80LT7kTSeASh7uTZanYx7Tlen13OvrG5RPSZjMx71in6Y/o IvCiikbd7WIKNxDTs2VTX5Zgvgq9oOf3B9T7JnefYNXa+Aj379u7wiFfCT+r xq8xq2pw8e0PNYG12NeI5TUp/Tnmfw2oc6tugD/m3f++uZfw19xN/ib6CmzL HlNt0AX/3Bn/JI8enFdh3wH10kFw7lcF3qz3mMcaw74Q9xH3FSY4PRD4Bf3j VV1PHb+Bc3dYqnFOrznfJjPVcEYWav/3PgMVE1UWqv9wgASn6h5wExv9rJgm hQmEm0aNj1b01vir9JTLLdDXdENbiceNwmXEW87qCqOpyMv5VWpyZECvDFcx 0cpCn158xSGvHPhfXVNwTstD/+FbZb4v8pH/UioX/qsI+lyzzDXDUujmsnwL hc3on59ZfO6+iP5ztCGvUlbgZ2WbG6yj2Uj1Z/AFjU6so3AZWUzq7x9uBgpX EkuU/Al7meFX05li8WOFbm47Id6yhcJ1xAFXT4UZLvidA8Y0t/FR+4k/I11N zAQpTCCcuTRy6Mw28LoMR+d8MeQT8z/6dklCv107dFFaDryzzfaa9S70V73t z4tWQr5zqqd6QB36gkjH5EVD5M/tNFl4ZAydjdhC/9kMuph1o5D6QeilDno7 XA/h/Oonn6uSbHF+iws1+7/bQ7/bLOPx0QlMz5Qe1ecKdjBZn97ugXnkS/6l 9d5grlcfmip9cB5/NrPhEn/M67CsmrkdiD4pkuTGzGDsS3sjudkkCfmKchet +8/g5xneKOsryErVHUobSXv6Wan6yAUe4Tc32ah9esY3KmbkNlGZpGlvIK4A /qwg2n9QGRzFd2fx4R4KEwi1ExW6/kbQ1a+0v/7pAN2RsSTjvBOFK4nxZ684 CrrAP3Da6q+ZO4VziYRpxZqvHtClvLeeD/eCbvlt1nzrCfQH2/dz3T9J9ZMf 7xo55hUKXaFncWI0BbqFwLR28DXo3q5jKQzpmBdXOjyWngF//lwPUToTer1O W9LTLPBw/PORfdnYj1ug5JLnTZxX2fX2x4U89FmVXldKuI35J+eS4vgK0Jeg c2GouBB9Ky72Oybvo4+v1CYqvBR51TnTno0PKFxHPqijJ5Vdjj6/eLUwuQr4 E7t3vq59BP9dfgkxiyfQR0rY232qwIQ5BmECGX0COqsBSTXYz6b7B9+DOvhb /jV4TTfB/027+llMM3Ta+AccHK3IE/mzqxU7oJdon2YO7IaeclG6+N8H9Nnz JX5fmsN9fF1Z1PNfgO752ePG6CL6fjW+nbVbBp+6s9fyzQry85ce3jEkbKbm I3y30dXQULiOTHfwip0C3WZqPm738qPCdVQ/eSOfF5sAPZi00u9O2gB/VmMF XzgTuPSAd7TVJviVdg8OvtwMvZLXSEmDA1z/SXRUkhPc5/POdJkP/N+BfQX+ AuCPKk9WRwXB35dJ5W+24Xw+nwgsRqKY/7fhpEuNGM57pmioVkGCwv97/xKM uYskKdxMPutT6ScgjTzDAYk2kgyFK4mXVVLEGHZgPjsvbUS4LPrTln3eTstB 5//0Xt5dHvNuNpjEv9+FPomip1+sFDGvOEFSo1kJfnmf1GsaKuhTV/HbJ6UG v3mDVOmyJvTuwmsMAdrgwwnrHMd00Odo9XFLtz446GNaSJEx7m/xxfoeAVOc J6owQPaqGeatT/h0nsEC+8eftPgYbgk9RXn7VfcD4BtL9AYHbMDy3A3KY4fQ 36AYLR5+ZM3z9FxcV2gHVh349WLBEdzzqF8nzwd9TD53NX7HQc+Od5M9Hw99 V4GYAN8lnK/h+SeWsstr7ud99pL+Ffgn5v6bGEjC/URu4Rk6ScK+7PJ9bXQp yBeYXK1OT4Vf3c2yWDYN8zpiNmbWp6PfPrs1/tD1Ne/n0wshE5lg3t80tpw5 YB2pMDXtPHDiNd+5q0XgoXUuT0ZLwL7CIoVhZWA64odrm8vBMgFHgvY8wv61 iZyurx9D33+329qlEnrwJzPlK9U4z6m0GBnGGvh9zJ4Ina2F35NuYsvyM+iu T4WZTj8HO/pYr07V4z6Picf/9WwAWyf/GT72En5LQ6me/maw6bJdi1UrWN+j 6aFBB+Yr6GTEyXWD5f51hBf1gGXu0waI9CEv4bTbPesteBuP91HOAezD35lr lTSI3wfu2F5DpiH4N/3WVFgZBk/mjrzr+A4es+HpMpwAj7CYNz2fRP9Q8JOy R1PgfrmJ/J3T4O4R4cw7f5B/dd06SXQG52m1jI+9MYv3r4n+WQjX3JrfV/If n+R55Gv9pVyYF8FPpY7axi7BXzGcbLG6DC5LadI/s4rnf894Ue0PgZ3KRQT5 nSdoKVxHvv3YWWyUjp2az/HO4HFYT/WTr/XTrrNmAJMSd8+/YoQ/Ud/7pxEz OLast5/ICo5yZXr1mA0cxq/1Qn4z+FRc0X2xLWBH+9AYFl6wt/nqxgI+CjeT g4hnM7QEoMdzJ5T5C4NT6NmILCLg7L+kl/miOG/RZ84DWuIUziU+fH19uF8C em2toKe/FPLN9/JmmGVw/qG4uyxasuB1OlXq+Yrggm3z0xpm4DK28Ii35uir WiYw+VlCfzXAsO32Aej9Ly/d07DGfp8fbVJ9awN94lbKC9/DyP9L5rZgssX+ tFFZg7f+A7OcFHbVOAq/sLFUuK89dBnVewxMjmAlCfmUW07wa26pENJwwXwj WtXiPlew1VS1iq873i+7Ya16Rk/ovlWGA8QT4Az/QxtuBeB8t+3fkYiBmFdi flywLwhcSfxyxycY+XoZN2XGEOjt3D/q8kLR10fvY0oMxz4f/06/7Y3A+b5/ DnLyiQKP57CF0MSAx+yKkq6exbxRHp1C8Vjo3/oGap6ch/71qn/PvjjMG7Fk /vHuIvb70krkJlxe8/6U03YkZYD7C1wkB3LAvdebo7cVrHk/YhJVyssxr0NL 0ky/Ys35l5459T0Ctz09HOL+BP7WoN9JC5XYv3lKpFaQDH7pefCH7jNwk+Qk TW8d8k0jsdxu9dAbbwrunH8BveHYk70JjeAXfJZ2Ai/hr+8f8y9tBj9Pjb6o 04rvuc6KN7e7Dfs/EClgnBlBH3fIY3Hvb8hHdTXpfBkFj0q9PWo7DjaPGj3T 9R19E++lvt+fQt8BZTV68WnoVZf2iWT9gS4yckSTYwb6xT2etvGz2HeKFBJE M4d5h7/Hk4Ln4X+mk1nyawEskVHc6roEf+JU9bf3y9BnDNtprVfBdjlDgu0E Dtzv7IS6Hi14u/myTRUdB7WPlL8xYNd68MKSwJUiego3kx0OyhULMVC4jJzF 9iChnwN+9RPTixU84Letit7JQmD2849Njbcjf2GpeiNZF/pSAl+dlT50f75Q //G94GPq6m8598GvElyZ62cBfeRPhaKkHXSdH/ePkAKhLw7k5LsXgSP2e2ba bNhC9Wudd7dxc95C1bNrlfKPtkBnSR7dnyq5lcrOKeNNstJgctqPPU0yW6n5 E9m/xP/Jgl8V/5s/rAT/laYNefw60NmXJKdv2YI9V6XdiHbw19PuGOo5Cual l9t/4jj8AYzyTesdKNxMbmdR2JPtCL/YJqUyFWf4wzhUxDtdoPdwql53c6Mw gZC6y0h3+yn4ud3cSeWXobuoRZL0rkAvZ75G6kmCThi+R3IhQTcre0GavYp5 12MGSRdS4R87+JvEnQY9Zl7wqvp15H8k9F6tLwDXlummvnkGZj57JNXpOfoO W/um/q0H50teSI1tAE/P30jlbMI8Sb35VNt2cFJv6bXP/eh3WuBPn/4Nndut +Ib7nzXPt1vt1vBfsOp9m5LWf2BW+6SGvGVwVSPdbytGTmqfrwJptpmJk6qL 5wgvabJQmEAYZC6lebQRelKwxobtbBTOJe792sZycxP8C/tt2bnY0V9WO8Z1 mQPssv20AN1WMG/6etEznOh7vS5F6hcX+mL9RORceMDqw2WK73iRnzLWUtvP j/3yn3RovhSAbitmp68hBH1T8vd9D4XR17QcbCEtAn+o5wbrHFH4v+mJ2SdI gKtnjwY57UDe1a4rj0MVOpGN+ekPDTB7vX7nCz1wjWTlYoAF5kW1p6Yx7oeu 7xegmGMFvb1KzqvVGvqQWf6gsB303OmYoMdHsY9zmj276XGqnyhF1Cz5ZA// xEc+49OO8JfFzn9lcUb/KZm30Xku4MUA0tMOd/hruX2tnTzRF1Nj9nvOCzrT BkZpMR/kXxV/a3jqC51k2WBv4Y/nbTNzc2kkADrv9cj0kED0D2seVdp0Gn15 X9Rf5wfjfK5x3N57QqDLyM5u6AoF/+zqvuUaDn950AOtpQjMU6vzPi0ZA15y NuaoOQuuY5QqtYrFPudK1puMnYdudODLt/A4zDv87YhNTyJ0/oTd0x5J4I87 tyauJsPvfuZ1o0wqeIdgiUPdNfin6hOWrdOhV7h5ZPzIwP2dZjFUjs6kcDNZ /YFYF+cN+FesaU/cywbXL3xg0M0Fn8+puf32JthYP1P7xC3MZx0PHqLNB19T UNoiVwS/7dvNZS/uYB/BsF8mR4rhL2i8e/ZcCfyennFCvGXQ5dhcq0sfQJ9+ qHdo70Pwo8Pb/gxW4Pl9TgtKsX4MnfVtm/LrJ2u+R+ug4MYq7MNp1bZcWod8 kEkgQ2w7/HnxrXdWO9a8ry1CJiGd4AWGwIm/r8ESRq2Xfd7gfbC6ILTzezfm RTSdeu3cC/3u+la/D33Q3+oLcdj2Y76qZovAzhH0O4cLPrvzFXoSOcBebBR9 5MVmmpwx9I2pC97i+Q5/xu4AqXVTa36P5QUUBxbRTxb1MzrLwUXte7/r3anZ LVzUvhWtvTc9OLmoeSHz0o4hLi5qXtuOZ8GCB7qD51mJF7zgmOBJKxV+9N8+ fyjyjgD6G1OeF/MLoe9b3vb+K8Jghgep6+hE0Cf9bFU+SBR9xh0eR8fF0Of1 rvuinQQ1T7w0rvG4UxL++/8KP+tKQ3+1np3tsQz6f3GE7ZHegfmbRL65Zcmi 30qzqi5GHvm+IEd/CxXo/861Z9fvRp77qkqbshrmq93M/VekjrxtKZMYPxH+ 0JpTllc0wFltw2G0Wtjvw2h575gOdMIsP62dHuaLrLsg16kPvx77b1tdA/id hf+78MgQ+4wdplOLMYPO6HbCZcYceZnAt8nulmCTszq17/Yj751c/N38APhy zlau+oPYp+R+pJ6yDfKd1eM+RYfAUy0HsviOwL+5v6Y50Ra6wjfJGRo77Hfg b/K2wKO4v1O0S2Zjx5CfV7+9WuGMPO29v47mvvArTN8X/+SHPgdVt7GAAPjr GgZOZATBH/G+NngkjMKVxEXWi4khFzHvr59AVUEe8mKVfWFqt8EHVq5otefD H6O/j/Z4IfrL42kbfxdhH99bo53EUvBkz4Ovb6rRx8/nVeRSA93UQcxrrhb6 vclrUwL1YE/6sEX3ZvB1U+XaxRZwC+lnVGIbWErIgb7iFfoPu/C2GLzG/heK uxMGutZ8r7sNNq/24PlHcJ8eCOqDzjlfePPn2zXvw0C/h+sA9L1VjArDg+Ch 6+oL1kPY51SoV33He+RZ7LLi936A/zaxw6rmI+6TKLDCq/wZ+Z5luS/3voDX PUsKyPq25vvKeb5nyxh0pahpukvj6Gu3F22n+wG/k87BlNAJCjeTPxo7cs3R cVPPP3A0QuC3AjfVHxW0EhqnBJa4EjEopEJhAsG/LiLNXA3MPbAy81Ud/trf EQfDiRTOJTozrZZv0YSfWTRy8z0tzC/fs+qjp4P84YORrwZ1kV/xXt3hr4/8 7djIBEYDsHH26niuIYUriVOPI41U90HXGItc72YKHvnfn5grZtR5xHieqPpU C+TlFQjbZPdjfp9xVGSDFfYLcyIM/3cQukhYFPGPNfTmFEJm/CGwz/2o+W1H MO+mf/TkkAvYKIHG9JQb+n7eir7L7AFW7412U/eGv3t3zKc0f+jrl2N6rSJx Po8L52qa06GrjYcQrZvBjCZ+1Z/+gVk6wu/azCO/ySI+o20BzNF1LU57CX7O A7dOP1rG8+PtLXWVWYVf4BDZOofAQ2XhgWb9LbQULiOK/dereJGOh9q3/fjP zQH0YAWnDVN2jGCVrxwfupiQV3MTfmXAQmUycXxHTfVGzNP2Ursnz0bhOqL+ 5N7M/E3IG/pYxfOyw2/8+9iZKxxg8wAv93VbwVYzpw+d4UTe+vQ5g59c0A/P Jyk78YDtQm+I9fNSuJJov3yHw4wfeafIx7T1AtA9z3Z+LBaGfnL9UKewCM7n d2GsNlUUenACzY1ICcwL28h66a8kOPIKb6iHNPpjNkt6Dssgf/6q4pEDO+BP yXTZKqmA+04X8F+XpQh/Zk7En03K2Cd7W8LnWBXq/ZLzbqV1LeyGv0D8dp2P Gvx3CstKR9TB96Rrso8Q4S8rbrn8SoPCzeQK2b4wPS3s96T0s1elNrhq1y9b WV1w7cPFfXl66K9XZlDj2gu98ckWqUsG4PZqWfqgfeDXGuoz342R735mMHLc FDz44nj9PgvwaFtyhIA1eC52kq7cBu8bk/a+iwaH0S9XQUjx+Q8clOVz57kD 8vQnzHpcTkIXZ2WUKbkA3ckyqlezCvrPk9bxN7l5qcyVPPdmPILCucRI386P B79Anx2/ZEqjw0fpIzK7cZteLeCj+ndGxN9xXc9P9Udt3RozSA9+cy/H1pyB n+oX05dRrGekcCUx6F0Fswozhf/3++evNXKHBToPUytZgBXsefNgajIb/GTV DyfWb6Yy0eiPosJtfrC9+/uqT4rYp3zV7aq1Mvro0qa9WlSwX0HjBoEHauAJ EYXIKC3wmffn9YRM0Nd6ajP/VVMwP0vWX3pzcJ36g/yflsjTp7/bUGuD/Q7v dP246zD0O01TlflHwKYz6z0v28FPspJvt3PE/tPbmPZMOcFv9fvLnbMuYPak tAt33cH+x/1mNTzXPB85E5cuLzCpY0V37iR4Oqv/QYIv7tvKu1xYyB/Mzuy6 sjcQTDLqeHo1dE2eq1BKMhz7W41GpVVFQGc/rxT4KRr7kV5kyu+MW8OanoWt KeDpjfqcx64hb/VeIPZ3GvTye//+nMtY0x/W5cidSeE6sr9JcVdxFvZ9wxur rZUNv8L3Y6Vvctbcx1NVQdeba1hpQypNyZr9ZG7HqL6EbpsyM1vWDBZZMfCS bgU/7Bo/wNsB7gneKb70Bn2cL6tePhsGX3fqYjGcBedlrVyzFhegsuxx7+55 CQFqX+W2QbZsKQqXkfVHDE11ZcCdBY/ivm0H23qINsbLIv9tezLNzp3o9/u5 otEtD32pzDvktALyFwIGH/MpgdlVjP48U4b/xtyjnc67KVxJlKoW9WZQo3Ad 8WF4ctE9dWqeqKm9OmJJRL6V9sS2GQ3sY904eDRDC/M+XjC6rqFD7SN7Gz/u +6QL/scixnFeH30xnckWMgbgkgEjnWpTMMPPx2Lvj4Cvlok5RP8HFgwg3RA/ ivlKcyc4T9pDd6AVZ1h1BVdxXv0hfAq8d4Ag1RgIfp150tnjNPa1OzaUu/EM +keFjd8/CMH9bNlO06kbjfvImTzJPBoDXaZsyDDhHPof+Ruf23kerK1cWdd9 Af02VVfV+BPAJ7R8yp0Twf8Hja/YaA== "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQ/UdC0ernQzYHBjA4tUdIo8rq8GMYf8MeRq4/xR+f wfgH9nx4XbtW/hWCf+/s/2e+bxH8M+sbFWo+IPTvnsgcteozQn5GKPtZtl8I +TbzTjbTvwh+qSS3QzIDO1x90F2+zfvZEHzH/RPevOWE8U/sMVgopCbDyw7X L9c8Jd5LAKGeN1VsZoUwQv0ftxmXlokh5F9pSPFclUTI3+Sa48osi5A/8Ua2 3lABYf62c/N3xCsj5F//njAnRhXGP7UHADBvYco= "]], LineBox[{{2.956302352301051, -7.216449660063518*^-16}, { 2.9572086616083864`, -4.440892098500626*^-16}, { 2.9586587565001237`, -6.661338147750939*^-16}, { 2.9601088513918605`, -2.220446049250313*^-16}, {2.9615589462835974`, 0.}, {2.9630090411753343`, -6.661338147750939*^-16}, { 2.964459136067071, -6.661338147750939*^-16}, { 2.965909230958808, -6.661338147750939*^-16}, { 2.967359325850545, -6.661338147750939*^-16}, { 2.9688094207422817`, -6.661338147750939*^-16}, { 2.9702595156340186`, -4.440892098500626*^-16}, { 2.9717096105257554`, -6.661338147750939*^-16}, { 2.9720721342486898`, -7.216449660063518*^-16}}], LineBox[{{2.9244002646828395`, -7.216449660063518*^-16}, { 2.925306573990175, -4.440892098500626*^-16}, { 2.9267566688819118`, -2.220446049250313*^-16}, { 2.9282067637736486`, -6.661338147750939*^-16}, { 2.9296568586653855`, -6.661338147750939*^-16}, { 2.9311069535571224`, -6.661338147750939*^-16}, { 2.9314694772800567`, -7.216449660063518*^-16}}]}, Annotation[#, "Charting`Private`Tag$34421#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{2.718281828459045, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{E, E^2}, {-7.216449660063518*^-16, 5.551115123125783*^-16}}, {{ 2.718281828459045, 7.38905609893065}, {-7.216449660063518*^-16, 5.551115123125783*^-16}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7627504231577587`*^9}, CellLabel->"Out[18]=", CellID->974130744] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Wolfram Research", "Text", CellID->475868307] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["rational approximation", "Item", CellID->134535563], Cell["rational interpolation", "Item", CellID->634606372], Cell["rational function", "Item", CellID->845151266] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "3D Visualization"}], "\" \"", "\"3D Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessibility"}], "\" \"", "\"Accessibility\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Array Manipulation"}], "\" \"", "\"Array Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Symbolic & Numeric Computation", { False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVT8tqw0AMpKVp7RD6CSWn3vwRxk0gEJIS9QfszSRdsi9W0mH/\ vmsCpT1p0IxmRn3T0YKkONDzUSWpdPQyfMPccL488NPestAbFT9FZ836fX1Qj1zREH0Vj2JjqA47gW\ due5Xo68501HzmmJCl0HIYBdeYLbh6H9N8wpfHu/c8T+rAzeZsZZwqWmxHx/gl2g84/GXmgtGpD/\ 8DX3dBkFPGvRS1fSikE6N+tDqBo2aDr5JAzVaDmTU/2K1YQg=="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->7987461] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["PadeApproximant", "Item", CellID->459394649] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["MiniMaxApproximation", "Item", CellID->550490103], Cell["EconomizedRationalApproximation", "Item", CellID->765907627], Cell["RationalInterpolation", "Item", CellID->488723993], Cell["GeneralRationalInterpolation", "Item", CellID->45148297] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[TextData[ButtonBox["Tutorial: Function Approximations Package", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/FunctionApproximations/\ tutorial/FunctionApproximations"], None}, ButtonNote-> "https://reference.wolfram.com/language/FunctionApproximations/tutorial/\ FunctionApproximations"]], "Item", CellID->583044281], Cell[TextData[ButtonBox["Guide: Function Approximations Package", BaseStyle->"Hyperlink", ButtonData->{ URL["https://reference.wolfram.com/language/FunctionApproximations/guide/\ FunctionApproximationsPackage"], None}, ButtonNote-> "https://reference.wolfram.com/language/FunctionApproximations/guide/\ FunctionApproximationsPackage"]], "Item", CellID->847135762] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[BoxData[ Marketplace`Private`getTemplateTests[ "Function", <| "Name" -> "GeneralMiniMaxApproximation", "UUID" -> "5d101e1d-e817-418a-8863-acc1356145c1", "ResourceType" -> "Function", "Version" -> "1.0.0", "Description" -> "Find a mini-max approximation of a function defined parametrically", "Keywords" -> { "rational approximation", "rational interpolation", "rational function"}, "Attributes" -> {}, "AutoUpdate" -> Automatic, "LatestUpdate" -> DateObject[{2019, 3, 29}, "Day", "Gregorian", -5.], "ShortName" -> "GeneralMiniMaxApproximation", "AlternativeNames" -> {}, "AutoCopyExampleNotebook" -> True, "Categories" -> {"Symbolic & Numeric Computation"}, "ContributedBy" -> "Wolfram Research", "DefinitionNotebook" -> "marketplacestorage/resources/5d1/5d101e1d-e817-418a-8863-acc1356145c1/\ DefinitionNotebook/original.nb", "Details" -> "", "Discoverable" -> Automatic, "DisplayedSourceFields" -> {}, "Documentation" -> <|"Usage" -> {<|"Usage" -> BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox[ "\"GeneralMiniMaxApproximation\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["f", "TI"], StyleBox["x", "TI"]], ",", SubscriptBox[ StyleBox["f", "TI"], StyleBox["y", "TI"]]}], "}"}], ",", RowBox[{"{", RowBox[{ StyleBox["t", "TI"], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["t", "TI"], StyleBox["0", "TR"]], ",", SubscriptBox[ StyleBox["t", "TI"], StyleBox["1", "TR"]]}], "}"}], ",", StyleBox["m", "TI"], ",", StyleBox["n", "TI"]}], "}"}], ",", StyleBox["x", "TI"]}], "]"}]], "Description" -> TextData[{"finds the rational polynomial function of ", Cell[ BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], ", with numerator order ", Cell[ BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " and denominator order ", Cell[ BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], ", that gives a mini-max approximation to the curve with ", Cell[ BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " and ", Cell[ BoxData[ StyleBox["y", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " coordinates ", Cell[ BoxData[ SubscriptBox[ StyleBox["f", "TI"], StyleBox["x", "TI"]]], "InlineFormula", FontFamily -> "Source Sans Pro"], " and ", Cell[ BoxData[ SubscriptBox[ StyleBox["f", "TI"], StyleBox["y", "TI"]]], "InlineFormula", FontFamily -> "Source Sans Pro"], " generated as a function of ", Cell[ BoxData[ StyleBox["t", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " on the interval ", Cell[ BoxData[ SubscriptBox[ StyleBox["t", "TI"], StyleBox["0", "TR"]]], "InlineFormula", FontFamily -> "Source Sans Pro"], " to ", Cell[ BoxData[ SubscriptBox[ StyleBox["t", "TI"], StyleBox["1", "TR"]]], "InlineFormula", FontFamily -> "Source Sans Pro"], "."}]|>, <|"Usage" -> BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox[ "\"GeneralMiniMaxApproximation\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["f", "TI"], StyleBox["x", "TI"]], ",", SubscriptBox[ StyleBox["f", "TI"], StyleBox["y", "TI"]]}], "}"}], ",", StyleBox["approx", "TI"], ",", RowBox[{"{", RowBox[{ StyleBox["t", "TI"], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["t", "TI"], StyleBox["0", "TR"]], ",", SubscriptBox[ StyleBox["t", "TI"], StyleBox["1", "TR"]]}], "}"}], ",", StyleBox["m", "TI"], ",", StyleBox["n", "TI"]}], "}"}], ",", StyleBox["x", "TI"]}], "]"}]], "Description" -> TextData[{ "finds the mini-max approximation, starting the iterative algorithm \ with ", Cell[ BoxData[ StyleBox["approx", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], "."}]|>}, "Notes" -> { Cell[ TextData[{ Cell[ BoxData[ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox[ "\"GeneralMiniMaxApproximation\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " by default minimizes the maximum value of the relative error \ between the approximation and ", Cell[ BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], "."}], "Notes", CellID -> 27348], Cell[ TextData[{ Cell[ BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox[ "\"GeneralMiniMaxApproximation\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["f", "TI"], StyleBox["x", "TI"]], ",", SubscriptBox[ StyleBox["f", "TI"], StyleBox["y", "TI"]], ",", StyleBox["g", "TI"]}], "}"}], ",", RowBox[{"{", RowBox[{ StyleBox["t", "TI"], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["t", "TI"], StyleBox["0", "TR"]], ",", SubscriptBox[ StyleBox["t", "TI"], StyleBox["1", "TR"]]}], "}"}], ",", StyleBox["m", "TI"], ",", StyleBox["n", "TI"]}], "}"}], ",", StyleBox["x", "TI"]}], "]"}]], "InlineFormula", "TemplateInclusion", FontFamily -> "Source Sans Pro"], " computes the error using a factor of ", Cell[ BoxData[ StyleBox["g", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], ". In this case, the mini-max approximation returned by ", Cell[ BoxData[ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox[ "\"GeneralMiniMaxApproximation\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " is the rational function ", Cell[ BoxData[ RowBox[{ StyleBox["h", "TI"], "[", StyleBox["x", "TI"], "]"}]], "InlineFormula", FontFamily -> "Source Sans Pro"], " that minimizes the maximum value of the quantity ", Cell[ BoxData[ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox[ StyleBox["f", "TI"], StyleBox["y", "TI"]], "-", RowBox[{ StyleBox["h", "TI"], "[", SubscriptBox[ StyleBox["f", "TI"], StyleBox["x", "TI"]], "]"}]}], ")"}], "/", StyleBox["g", "TI"]}]], "InlineFormula", FontFamily -> "Source Sans Pro"], "."}], "Notes", CellID -> 23199], Cell[ TextData[{ Cell[ BoxData[ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox[ "\"GeneralMiniMaxApproximation\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " returns ", Cell[ BoxData[ RowBox[{"{", RowBox[{ StyleBox["abscissa", "TI"], ",", RowBox[{"{", RowBox[{ StyleBox["approximation", "TI"], ",", StyleBox["maxerror", "TI"]}], "}"}]}], "}"}]], "InlineFormula", FontFamily -> "Source Sans Pro"], ", where ", Cell[ BoxData[ StyleBox["abscissa", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " is a list of the abscissas where the relative error is a local \ maximum, ", Cell[ BoxData[ StyleBox["approximation", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " is the rational approximant and ", Cell[ BoxData[ StyleBox["maxerror", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " is the global maximum of the relative error."}], "Notes", CellID -> 19668], Cell[ TextData[{"When an approximation is given as the second argument of ", Cell[ BoxData[ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox[ "\"GeneralMiniMaxApproximation\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"]], "InlineFormula", FontFamily -> "Source Sans Pro"], ", it must have the same form as the result returned by ", Cell[ BoxData[ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox[ "\"GeneralMiniMaxApproximation\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"]], "InlineFormula", FontFamily -> "Source Sans Pro"], "."}], "Notes", CellID -> 24484], Cell[ TextData[{ Cell[ BoxData[ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox[ "\"GeneralMiniMaxApproximation\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"]], "InlineFormula", FontFamily -> "Source Sans Pro"], " takes the same options as the resource function ", Cell[ BoxData[ ButtonBox[ "MiniMaxApproximation", BaseStyle -> "Hyperlink", ButtonData -> { URL[ "https://resources.wolframcloud.com/FunctionRepository/\ resources/MiniMaxApproximation/"], None}, ButtonNote -> "https://resources.wolframcloud.com/FunctionRepository/resources/\ MiniMaxApproximation/"]], "InlineFormula", FontFamily -> "Source Sans Pro"], "."}], "Notes", CellID -> 1238684166], Cell[ TextData[{"In the ", Cell[ BoxData["\"Derivatives\""], "InlineFormula", FontFamily -> "Source Sans Pro"], " option, a list of derivatives must give derivatives for both \ parts of the parametrically-defined function."}], "Notes", CellID -> 931373930]}|>, "ExampleNotebook" -> CloudObject[ "https://www.wolframcloud.com/objects/441a81c4-f992-4712-8265-\ 17e692e2397e"], "ExternalLinks" -> { Hyperlink[ "Tutorial: Function Approximations Package", "https://reference.wolfram.com/language/FunctionApproximations/tutorial/\ FunctionApproximations"], Hyperlink[ "Guide: Function Approximations Package", "https://reference.wolfram.com/language/FunctionApproximations/guide/\ FunctionApproximationsPackage"]}, "OriginalUUID" -> "30a626cc-4a53-4b4b-97d0-3d4bcf66e52a", "Originator" -> Missing["NoInput"], "PermissionsGroups" -> {}, "PricingInformation" -> 0, "Public" -> True, "PublisherUUID" -> "1ca97c83-1e23-4ef8-a6ef-83680a155d35", "RelatedSymbols" -> {"PadeApproximant"}, "ReleaseDate" -> DateObject[{2019, 3, 29}, "Day", "Gregorian", -5.], "SeeAlso" -> { "MiniMaxApproximation", "EconomizedRationalApproximation", "RationalInterpolation", "GeneralRationalInterpolation"}, "SourceMetadata" -> <||>, "StoredElements" -> {Automatic}, "SubmissionID" -> "3716", "SubmissionUUID" -> "cb591d23-2646-46d3-879c-5de2d2448b00", "Submitter" -> "bakshee@wolfram.com", "SymbolName" -> "FunctionRepository`$30a626cc4a534b4b97d03d4bcf66e52a`\ GeneralMiniMaxApproximation", "VersionHistory" -> <| "1.0.0" -> <| "Timestamp" -> DateObject[{2019, 3, 29, 15, 31, 55.304321`8.495334038793152}, "Instant", "Gregorian", -5.], "Approver" -> "pacoj@wolfram.com", "SubmissionID" -> "3716", "Submitter" -> "bakshee@wolfram.com", "SubmissionUUID" -> "cb591d23-2646-46d3-879c-5de2d2448b00", "OriginalUUID" -> "30a626cc-4a53-4b4b-97d0-3d4bcf66e52a"|>|>, "WolframLanguageVersionRequired" -> "11.3", "VerificationTests" -> Missing["NotFound"]|>, Missing[]]], "Input", CellID->189678273] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{"\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{"\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"GeneralMiniMaxApproximation | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.854556371952505`16.338549390665033*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.854556372002271`16.33854939067064*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.0 for Linux x86 (64-bit) (November 22, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[643, 23, 110, 2, 70, "Title",ExpressionUUID->"f48cc3f8-ad9c-416a-8e7f-3140132bd8af", CellTags->{"Name", "TemplateCell", "Title"}, CellID->113688728]}, "TemplateCell"->{ Cell[643, 23, 110, 2, 70, "Title",ExpressionUUID->"f48cc3f8-ad9c-416a-8e7f-3140132bd8af", CellTags->{"Name", "TemplateCell", "Title"}, CellID->113688728], Cell[756, 27, 154, 4, 70, "Text",ExpressionUUID->"74ebbc38-3bc2-41d8-9b79-cbebe0cd0ca0", CellTags->{"Description", "TemplateCell"}, CellID->720974674]}, "Title"->{ Cell[643, 23, 110, 2, 70, "Title",ExpressionUUID->"f48cc3f8-ad9c-416a-8e7f-3140132bd8af", CellTags->{"Name", "TemplateCell", "Title"}, CellID->113688728]}, "Description"->{ Cell[756, 27, 154, 4, 70, "Text",ExpressionUUID->"74ebbc38-3bc2-41d8-9b79-cbebe0cd0ca0", CellTags->{"Description", "TemplateCell"}, CellID->720974674]}, "Definition"->{ Cell[935, 35, 1206, 29, 70, "Section",ExpressionUUID->"1c4fd5fa-40b9-4d0c-a19c-2c1a8048c963", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[935, 35, 1206, 29, 70, "Section",ExpressionUUID->"1c4fd5fa-40b9-4d0c-a19c-2c1a8048c963", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[935, 35, 1206, 29, 70, "Section",ExpressionUUID->"1c4fd5fa-40b9-4d0c-a19c-2c1a8048c963", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[9703, 279, 1980, 50, 70, "Subsection",ExpressionUUID->"11dc6502-3dba-413d-80d7-32c2c79313f8", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[14920, 459, 1429, 32, 70, "Subsection",ExpressionUUID->"2276faab-f6aa-4bdb-9847-eed6ee9edbc2", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[20571, 636, 7029, 152, 70, "Section",ExpressionUUID->"9b548783-7bdc-4406-9a93-b3e9e5c3326f", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[89964, 2154, 1026, 26, 70, "Subsection",ExpressionUUID->"89a3a635-56f5-4e21-b80e-67f098489ea3", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[91082, 2188, 996, 26, 70, "Subsection",ExpressionUUID->"ab063e47-5b65-4064-b52f-5812f94eb2a0", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[92293, 2228, 221, 6, 70, "Subsection",ExpressionUUID->"85e94fa1-7978-44df-8b8b-2cc726db50b7", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[100011, 2486, 980, 26, 70, "Subsection",ExpressionUUID->"5e352848-d032-4a2b-9293-56344cc58345", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[101082, 2520, 1039, 26, 70, "Subsection",ExpressionUUID->"732fdb43-c838-474b-8b6c-a9ce154e398f", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[102413, 2563, 1084, 26, 70, "Subsection",ExpressionUUID->"a5673a82-a643-4896-865a-90ab526d45d1", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[104053, 2604, 923, 26, 70, "Subsection",ExpressionUUID->"c735951c-9083-4929-927a-b6d7daa19ae1", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[105758, 2655, 1874, 45, 70, "Subsection",ExpressionUUID->"2b14800e-6065-4535-b237-9fe9311ed74d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[122553, 3058, 955, 25, 70, "Subsection",ExpressionUUID->"3c543146-d4a7-45b4-9c6b-0312be9d1427", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[123533, 3087, 1174, 31, 70, "Subsubsection",ExpressionUUID->"b5b23bac-b385-4c1c-9be5-6a6cad3131bc", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[124836, 3127, 1113, 29, 70, "Subsubsection",ExpressionUUID->"f8138f41-51bd-44c1-a39e-ce85a6f01b22", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[127310, 3203, 1280, 33, 70, "Subsubsection",ExpressionUUID->"4f7c57ef-7b05-41cb-ab79-5f97659ce238", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[129995, 3284, 1913, 46, 70, "Subsubsection",ExpressionUUID->"3ab714ef-09eb-4f2c-a08e-ed44445731f3", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[134844, 3420, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5dcef834-0485-4039-a416-340097ded4e2", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[136917, 3484, 1155, 28, 70, "Section",ExpressionUUID->"221c7424-1bf8-4971-81ec-cae40809dc08", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[138641, 3527, 1033, 26, 70, "Section",ExpressionUUID->"54aca540-22c9-4689-bdc7-cea5a15c5bb5", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[9483, 270, 195, 5, 70, "Section",ExpressionUUID->"0dfe64b6-04bc-45d0-9c6a-8f0d5748008b", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[9483, 270, 195, 5, 70, "Section",ExpressionUUID->"0dfe64b6-04bc-45d0-9c6a-8f0d5748008b", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[89690, 2145, 249, 5, 70, "Section",ExpressionUUID->"e2d62275-718d-4717-96ce-c72eb6c71e5c", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[9703, 279, 1980, 50, 70, "Subsection",ExpressionUUID->"11dc6502-3dba-413d-80d7-32c2c79313f8", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[14920, 459, 1429, 32, 70, "Subsection",ExpressionUUID->"2276faab-f6aa-4bdb-9847-eed6ee9edbc2", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[14920, 459, 1429, 32, 70, "Subsection",ExpressionUUID->"2276faab-f6aa-4bdb-9847-eed6ee9edbc2", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Examples"->{ Cell[20571, 636, 7029, 152, 70, "Section",ExpressionUUID->"9b548783-7bdc-4406-9a93-b3e9e5c3326f", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[89690, 2145, 249, 5, 70, "Section",ExpressionUUID->"e2d62275-718d-4717-96ce-c72eb6c71e5c", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[89964, 2154, 1026, 26, 70, "Subsection",ExpressionUUID->"89a3a635-56f5-4e21-b80e-67f098489ea3", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[89964, 2154, 1026, 26, 70, "Subsection",ExpressionUUID->"89a3a635-56f5-4e21-b80e-67f098489ea3", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[91082, 2188, 996, 26, 70, "Subsection",ExpressionUUID->"ab063e47-5b65-4064-b52f-5812f94eb2a0", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[92293, 2228, 221, 6, 70, "Subsection",ExpressionUUID->"85e94fa1-7978-44df-8b8b-2cc726db50b7", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[92517, 2236, 7457, 245, 70, "Output",ExpressionUUID->"52c45244-ed69-4905-90b0-14b546a24c27", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->7987461]}, "Categories-Checkboxes"->{ Cell[92517, 2236, 7457, 245, 70, "Output",ExpressionUUID->"52c45244-ed69-4905-90b0-14b546a24c27", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->7987461]}, "CheckboxCell"->{ Cell[92517, 2236, 7457, 245, 70, "Output",ExpressionUUID->"52c45244-ed69-4905-90b0-14b546a24c27", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->7987461], Cell[125952, 3158, 1321, 40, 70, "Output",ExpressionUUID->"958434b4-b204-479e-9867-5208c686b725", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524], Cell[128593, 3238, 1365, 41, 70, "Output",ExpressionUUID->"8a3e261d-c403-408c-8af0-2abe9b53890a", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059], Cell[131911, 3332, 2896, 83, 70, "Output",ExpressionUUID->"274d217e-de47-46b0-8127-1cde6353cff1", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308], Cell[135918, 3449, 938, 28, 70, "Output",ExpressionUUID->"a8131ef2-9d2c-4d1b-bc7d-6b90c57b3924", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Related Symbols"->{ Cell[100011, 2486, 980, 26, 70, "Subsection",ExpressionUUID->"5e352848-d032-4a2b-9293-56344cc58345", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[101082, 2520, 1039, 26, 70, "Subsection",ExpressionUUID->"732fdb43-c838-474b-8b6c-a9ce154e398f", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[102413, 2563, 1084, 26, 70, "Subsection",ExpressionUUID->"a5673a82-a643-4896-865a-90ab526d45d1", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[103500, 2591, 516, 8, 70, "Text",ExpressionUUID->"660015b3-8d2f-4b6c-922f-afd90bcaa9ca", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[124710, 3120, 89, 2, 70, "Text",ExpressionUUID->"8796fb2b-f582-49c7-bf8a-f6253ec2a92e", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[138075, 3514, 529, 8, 70, "Text",ExpressionUUID->"4d34d62e-3da2-4a37-8b5c-f656a2f9911e", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[139677, 3555, 515, 8, 70, "Text",ExpressionUUID->"fc0f57ff-06f7-42f8-9bed-40143626e3a6", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "TabNext"->{ Cell[103500, 2591, 516, 8, 70, "Text",ExpressionUUID->"660015b3-8d2f-4b6c-922f-afd90bcaa9ca", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[138075, 3514, 529, 8, 70, "Text",ExpressionUUID->"4d34d62e-3da2-4a37-8b5c-f656a2f9911e", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[139677, 3555, 515, 8, 70, "Text",ExpressionUUID->"fc0f57ff-06f7-42f8-9bed-40143626e3a6", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[104053, 2604, 923, 26, 70, "Subsection",ExpressionUUID->"c735951c-9083-4929-927a-b6d7daa19ae1", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[105758, 2655, 1874, 45, 70, "Subsection",ExpressionUUID->"2b14800e-6065-4535-b237-9fe9311ed74d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[105758, 2655, 1874, 45, 70, "Subsection",ExpressionUUID->"2b14800e-6065-4535-b237-9fe9311ed74d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[122553, 3058, 955, 25, 70, "Subsection",ExpressionUUID->"3c543146-d4a7-45b4-9c6b-0312be9d1427", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[123533, 3087, 1174, 31, 70, "Subsubsection",ExpressionUUID->"b5b23bac-b385-4c1c-9be5-6a6cad3131bc", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[123533, 3087, 1174, 31, 70, "Subsubsection",ExpressionUUID->"b5b23bac-b385-4c1c-9be5-6a6cad3131bc", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[124710, 3120, 89, 2, 70, "Text",ExpressionUUID->"8796fb2b-f582-49c7-bf8a-f6253ec2a92e", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[124836, 3127, 1113, 29, 70, "Subsubsection",ExpressionUUID->"f8138f41-51bd-44c1-a39e-ce85a6f01b22", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[125952, 3158, 1321, 40, 70, "Output",ExpressionUUID->"958434b4-b204-479e-9867-5208c686b725", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "Operating System"->{ Cell[124836, 3127, 1113, 29, 70, "Subsubsection",ExpressionUUID->"f8138f41-51bd-44c1-a39e-ce85a6f01b22", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[125952, 3158, 1321, 40, 70, "Output",ExpressionUUID->"958434b4-b204-479e-9867-5208c686b725", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "CompatibilityFeatures"->{ Cell[127310, 3203, 1280, 33, 70, "Subsubsection",ExpressionUUID->"4f7c57ef-7b05-41cb-ab79-5f97659ce238", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[128593, 3238, 1365, 41, 70, "Output",ExpressionUUID->"8a3e261d-c403-408c-8af0-2abe9b53890a", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "Required Features"->{ Cell[127310, 3203, 1280, 33, 70, "Subsubsection",ExpressionUUID->"4f7c57ef-7b05-41cb-ab79-5f97659ce238", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[128593, 3238, 1365, 41, 70, "Output",ExpressionUUID->"8a3e261d-c403-408c-8af0-2abe9b53890a", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "CompatibilityEvaluationEnvironment"->{ Cell[129995, 3284, 1913, 46, 70, "Subsubsection",ExpressionUUID->"3ab714ef-09eb-4f2c-a08e-ed44445731f3", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[131911, 3332, 2896, 83, 70, "Output",ExpressionUUID->"274d217e-de47-46b0-8127-1cde6353cff1", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Environments"->{ Cell[129995, 3284, 1913, 46, 70, "Subsubsection",ExpressionUUID->"3ab714ef-09eb-4f2c-a08e-ed44445731f3", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[131911, 3332, 2896, 83, 70, "Output",ExpressionUUID->"274d217e-de47-46b0-8127-1cde6353cff1", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Cloud Support"->{ Cell[134844, 3420, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5dcef834-0485-4039-a416-340097ded4e2", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[134844, 3420, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5dcef834-0485-4039-a416-340097ded4e2", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[135918, 3449, 938, 28, 70, "Output",ExpressionUUID->"a8131ef2-9d2c-4d1b-bc7d-6b90c57b3924", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[135918, 3449, 938, 28, 70, "Output",ExpressionUUID->"a8131ef2-9d2c-4d1b-bc7d-6b90c57b3924", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Author Notes"->{ Cell[136917, 3484, 1155, 28, 70, "Section",ExpressionUUID->"221c7424-1bf8-4971-81ec-cae40809dc08", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[138641, 3527, 1033, 26, 70, "Section",ExpressionUUID->"54aca540-22c9-4689-bdc7-cea5a15c5bb5", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 263617, 5906}, {"TemplateCell", 263800, 5910}, {"Title", 264136, 5917}, {"Description", 264318, 5921}, {"Definition", 264496, 5925}, {"Function", 264692, 5929}, {"TemplateCellGroup", 264897, 5933}, {"Documentation", 268747, 5994}, {"TemplateSection", 268940, 5998}, {"Usage", 269313, 6005}, {"Details & Options", 269507, 6009}, {"Notes", 269711, 6013}, {"Examples", 269918, 6017}, {"Source & Additional Information", 270128, 6021}, {"Contributed By", 270340, 6025}, {"ContributorInformation", 270575, 6029}, {"Keywords", 270796, 6033}, {"Categories", 270987, 6037}, {"Categories-Checkboxes", 271381, 6044}, {"CheckboxCell", 271592, 6048}, {"Related Symbols", 272711, 6064}, {"Related Resource Objects", 272924, 6068}, {"Source/Reference Citation", 273148, 6072}, {"DefaultContent", 273362, 6076}, {"TabNext", 274034, 6089}, {"Links", 274536, 6099}, {"Tests", 274720, 6103}, {"VerificationTests", 274938, 6107}, {"Compatibility", 275152, 6111}, {"CompatibilityWolframLanguageVersionRequired", 275382, 6115}, {"Wolfram Language Version", 275655, 6119}, {"ScrapeDefault", 275917, 6123}, {"CompatibilityOperatingSystem", 276121, 6127}, {"Operating System", 276591, 6134}, {"CompatibilityOperatingSystem-Checkboxes", 276856, 6138}, {"CompatibilityFeatures", 277113, 6142}, {"Required Features", 277565, 6149}, {"CompatibilityFeatures-Checkboxes", 277817, 6153}, {"CompatibilityEvaluationEnvironment", 278074, 6157}, {"Environments", 278554, 6164}, {"CompatibilityEvaluationEnvironment-Checkboxes", 278827, 6168}, {"Cloud Support", 279088, 6172}, {"CompatibilityCloudSupport", 279333, 6176}, {"CompatibilityCloudSupport-Checkboxes", 279811, 6183}, {"Author Notes", 280053, 6187}, {"Submission Notes", 280253, 6191} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[643, 23, 110, 2, 70, "Title",ExpressionUUID->"f48cc3f8-ad9c-416a-8e7f-3140132bd8af", CellTags->{"Name", "TemplateCell", "Title"}, CellID->113688728], Cell[756, 27, 154, 4, 70, "Text",ExpressionUUID->"74ebbc38-3bc2-41d8-9b79-cbebe0cd0ca0", CellTags->{"Description", "TemplateCell"}, CellID->720974674], Cell[CellGroupData[{ Cell[935, 35, 1206, 29, 70, "Section",ExpressionUUID->"1c4fd5fa-40b9-4d0c-a19c-2c1a8048c963", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2144, 66, 1894, 53, 70, "Input",ExpressionUUID->"7bd1400c-24d6-40f2-ba6b-02f9f45d0194", InitializationCell->True, CellID->340372850], Cell[4041, 121, 5225, 137, 70, "Input",ExpressionUUID->"f40eb899-d04f-4f16-8cc4-10ed14b9e76d", InitializationCell->True, CellID->544946667], Cell[9269, 260, 177, 5, 70, "Input",ExpressionUUID->"00456086-8ad5-4df3-9650-26d2d5b55b1b", InitializationCell->True, CellID->983028928] }, Open ]], Cell[CellGroupData[{ Cell[9483, 270, 195, 5, 70, "Section",ExpressionUUID->"0dfe64b6-04bc-45d0-9c6a-8f0d5748008b", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[9703, 279, 1980, 50, 70, "Subsection",ExpressionUUID->"11dc6502-3dba-413d-80d7-32c2c79313f8", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[11708, 333, 723, 26, 70, "UsageInputs",ExpressionUUID->"082282e0-7aa1-48e2-9e18-4a6c4f6dba7d", CellID->99651980], Cell[12434, 361, 1402, 51, 70, "UsageDescription",ExpressionUUID->"67997072-640d-467f-b333-8721beba8677", CellID->822865711] }, Open ]], Cell[CellGroupData[{ Cell[13873, 417, 759, 27, 70, "UsageInputs",ExpressionUUID->"cc6b7cc7-1389-4d27-b1a9-1fb232511f96", CellID->948622369], Cell[14635, 446, 236, 7, 70, "UsageDescription",ExpressionUUID->"15199d75-23a5-4427-af74-408199e78b16", CellID->661530763] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14920, 459, 1429, 32, 70, "Subsection",ExpressionUUID->"2276faab-f6aa-4bdb-9847-eed6ee9edbc2", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[16352, 493, 341, 10, 70, "Notes",ExpressionUUID->"56f81b25-12f8-4af7-bb52-f1927997abab", CellID->60509687], Cell[16696, 505, 1717, 58, 70, "Notes",ExpressionUUID->"e7ac8f42-da77-4e3d-850d-26b6027552fe", CellID->63608694], Cell[18416, 565, 895, 27, 70, "Notes",ExpressionUUID->"7c40b9c5-b9f4-4547-814b-da1afb330214", CellID->464556240], Cell[19314, 594, 369, 9, 70, "Notes",ExpressionUUID->"5ec72a2e-1bb6-4019-9c39-4e42cc46f863", CellID->192448634], Cell[19686, 605, 571, 16, 70, "Notes",ExpressionUUID->"7b8d4cc5-a74e-4d3e-8240-7e8b33a48d12", CellID->582074090], Cell[20260, 623, 262, 7, 70, "Notes",ExpressionUUID->"ee761cfc-f5ac-41c9-b0de-06ff290a146e", CellID->499992391] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20571, 636, 7029, 152, 70, "Section",ExpressionUUID->"9b548783-7bdc-4406-9a93-b3e9e5c3326f", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[27625, 792, 75, 2, 70, "Subsection",ExpressionUUID->"489a0c1a-13c2-421e-9c5d-7f529ac39e61", CellID->904125756], Cell[27703, 796, 1013, 30, 70, "Text",ExpressionUUID->"d4d069e8-147e-4b95-a337-6e69c16f066a", CellID->29418034], Cell[CellGroupData[{ Cell[28741, 830, 433, 14, 70, "Input",ExpressionUUID->"cb9f90b6-2172-40e1-a0d3-af469fa6e8b9", CellID->854218114], Cell[29177, 846, 1140, 31, 70, "Output",ExpressionUUID->"78880490-9fb5-493d-9b66-761164b5333c", CellID->169179732] }, Open ]], Cell[30332, 880, 498, 15, 70, "Text",ExpressionUUID->"71486428-985c-4e95-b230-ca160a2d2c99", CellID->158720753], Cell[30833, 897, 269, 8, 70, "Input",ExpressionUUID->"741288d5-949f-4f6a-9b09-b8ed711bf35d", CellID->105763995], Cell[CellGroupData[{ Cell[31127, 909, 339, 11, 70, "Input",ExpressionUUID->"95a238c1-0fda-4378-b118-a42876b5e7fd", CellID->597429990], Cell[31469, 922, 16044, 285, 70, "Output",ExpressionUUID->"1f00904b-9856-4697-832e-25685bb469ea", CellID->236772611] }, Open ]], Cell[CellGroupData[{ Cell[47550, 1212, 584, 19, 70, "ExampleDelimiter",ExpressionUUID->"87d9edb6-8013-430a-9807-88e6be74b81e", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->226797627], Cell[48137, 1233, 158, 3, 70, "Text",ExpressionUUID->"96da0f52-4999-4adc-a371-e11cecb90238", CellID->721281785], Cell[CellGroupData[{ Cell[48320, 1240, 443, 14, 70, "Input",ExpressionUUID->"4be77b46-45e2-497d-9f1b-4477499dfc3a", CellID->624186989], Cell[48766, 1256, 1142, 31, 70, "Output",ExpressionUUID->"718ab0d1-6a00-4822-8699-a0e143364a07", CellID->568105208] }, Open ]], Cell[49923, 1290, 210, 4, 70, "Text",ExpressionUUID->"c73ecd5d-e0b8-4fca-97e0-118e37326017", CellID->588505449], Cell[50136, 1296, 267, 8, 70, "Input",ExpressionUUID->"2ad81b97-4a55-4ce3-8b01-faa38a65876e", CellID->519482260], Cell[CellGroupData[{ Cell[50428, 1308, 315, 10, 70, "Input",ExpressionUUID->"f0bb7ec2-049e-4b1d-93d9-8a0da40b323e", CellID->371195232], Cell[50746, 1320, 16345, 290, 70, "Output",ExpressionUUID->"2677934e-3e2c-4b08-8d00-e8bd0d71628a", CellID->135002132] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[67152, 1617, 68, 2, 70, "Subsection",ExpressionUUID->"6e39aeab-8b70-4eb9-87e5-d93aad717799", CellID->890561554], Cell[CellGroupData[{ Cell[67245, 1623, 117, 3, 70, "Subsubsection",ExpressionUUID->"5ac49fdc-6a6b-415b-b5af-c7592d88d368", CellID->549196982], Cell[67365, 1628, 287, 7, 70, "Text",ExpressionUUID->"95ebe765-c646-4948-8b0a-20d7e34da90d", CellID->344430172], Cell[67655, 1637, 561, 19, 70, "Input",ExpressionUUID->"a0c0cb14-fd89-4a09-bcab-90197f0c2072", CellID->601606999], Cell[68219, 1658, 139, 3, 70, "Text",ExpressionUUID->"38586af9-28d1-44ab-bf61-da179e687e2c", CellID->796187503], Cell[CellGroupData[{ Cell[68383, 1665, 555, 16, 70, "Input",ExpressionUUID->"ad52b695-52b9-4727-9e3b-134109ba05ee", CellID->717742409], Cell[68941, 1683, 1142, 31, 70, "Output",ExpressionUUID->"1e1844b1-0270-4fff-a5c7-2c47198caa29", CellID->701679988] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[70144, 1721, 85, 2, 70, "Subsection",ExpressionUUID->"988dddaa-5022-4c46-8daa-0228a80b8bc3", CellID->232113220], Cell[70232, 1725, 942, 21, 70, "Text",ExpressionUUID->"1f8a198c-8ba3-4d61-8fb1-1a1a20a08bff", CellID->105288599], Cell[CellGroupData[{ Cell[71199, 1750, 494, 15, 70, "Input",ExpressionUUID->"658f4824-d508-4a60-805f-c219b9896964", CellID->845489840], Cell[71696, 1767, 1164, 31, 70, "Output",ExpressionUUID->"88818b24-b417-40ea-a57a-f9aacf7d8d06", CellID->923695536] }, Open ]], Cell[CellGroupData[{ Cell[72897, 1803, 579, 17, 70, "Input",ExpressionUUID->"404f6050-25bb-4374-9ade-e2b2437c4c78", CellID->919356212], Cell[73479, 1822, 1193, 31, 70, "Output",ExpressionUUID->"20d53f58-fe86-4dec-84ef-586be0d19196", CellID->721482699] }, Open ]], Cell[CellGroupData[{ Cell[74709, 1858, 568, 15, 70, "Input",ExpressionUUID->"add29e84-c6dc-4b80-a2cf-ce647206094e", CellID->41847975], Cell[75280, 1875, 14349, 263, 70, "Output",ExpressionUUID->"243a678d-e918-4202-a5b8-0e4c3600cfad", CellID->974130744] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[89690, 2145, 249, 5, 70, "Section",ExpressionUUID->"e2d62275-718d-4717-96ce-c72eb6c71e5c", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[89964, 2154, 1026, 26, 70, "Subsection",ExpressionUUID->"89a3a635-56f5-4e21-b80e-67f098489ea3", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[90993, 2182, 52, 1, 70, "Text",ExpressionUUID->"d81b4cbe-4f40-4fd6-9972-c694124617b0", CellID->475868307] }, Open ]], Cell[CellGroupData[{ Cell[91082, 2188, 996, 26, 70, "Subsection",ExpressionUUID->"ab063e47-5b65-4064-b52f-5812f94eb2a0", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[92081, 2216, 58, 1, 70, "Item",ExpressionUUID->"237ce3a9-9330-4f5a-a25c-bf1254a43854", CellID->134535563], Cell[92142, 2219, 58, 1, 70, "Item",ExpressionUUID->"0eb324d6-6a41-4a05-b24e-757fd020abd8", CellID->634606372], Cell[92203, 2222, 53, 1, 70, "Item",ExpressionUUID->"a1d7890d-75d9-4536-9b63-c150da0a7eaa", CellID->845151266] }, Open ]], Cell[CellGroupData[{ Cell[92293, 2228, 221, 6, 70, "Subsection",ExpressionUUID->"85e94fa1-7978-44df-8b8b-2cc726db50b7", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[92517, 2236, 7457, 245, 70, "Output",ExpressionUUID->"52c45244-ed69-4905-90b0-14b546a24c27", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->7987461] }, Open ]], Cell[CellGroupData[{ Cell[100011, 2486, 980, 26, 70, "Subsection",ExpressionUUID->"5e352848-d032-4a2b-9293-56344cc58345", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[100994, 2514, 51, 1, 70, "Item",ExpressionUUID->"b14bd62e-ded8-4003-adae-af96c1007d4a", CellID->459394649] }, Open ]], Cell[CellGroupData[{ Cell[101082, 2520, 1039, 26, 70, "Subsection",ExpressionUUID->"732fdb43-c838-474b-8b6c-a9ce154e398f", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[102124, 2548, 56, 1, 70, "Item",ExpressionUUID->"fed66c97-ef11-48c2-b896-6992e8cd0023", CellID->550490103], Cell[102183, 2551, 67, 1, 70, "Item",ExpressionUUID->"71989fd6-764a-403f-9a41-f3a925de8203", CellID->765907627], Cell[102253, 2554, 57, 1, 70, "Item",ExpressionUUID->"5978201f-acee-454b-9761-4945ce6dcff9", CellID->488723993], Cell[102313, 2557, 63, 1, 70, "Item",ExpressionUUID->"7e525940-0d9e-4879-bc05-c6f3481bc741", CellID->45148297] }, Open ]], Cell[CellGroupData[{ Cell[102413, 2563, 1084, 26, 70, "Subsection",ExpressionUUID->"a5673a82-a643-4896-865a-90ab526d45d1", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[103500, 2591, 516, 8, 70, "Text",ExpressionUUID->"660015b3-8d2f-4b6c-922f-afd90bcaa9ca", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[104053, 2604, 923, 26, 70, "Subsection",ExpressionUUID->"c735951c-9083-4929-927a-b6d7daa19ae1", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[104979, 2632, 367, 8, 70, "Item",ExpressionUUID->"0e8380d7-862a-458b-aecc-0f39316f23ff", CellID->583044281], Cell[105349, 2642, 372, 8, 70, "Item",ExpressionUUID->"b3a1da8d-9b16-4d4a-a86e-1748b0798d2c", CellID->847135762] }, Open ]], Cell[CellGroupData[{ Cell[105758, 2655, 1874, 45, 70, "Subsection",ExpressionUUID->"2b14800e-6065-4535-b237-9fe9311ed74d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[107635, 2702, 14881, 351, 70, "Input",ExpressionUUID->"e7fa027c-ed8e-4c04-9d3f-4735fe328d53", CellID->189678273] }, Open ]], Cell[CellGroupData[{ Cell[122553, 3058, 955, 25, 70, "Subsection",ExpressionUUID->"3c543146-d4a7-45b4-9c6b-0312be9d1427", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[123533, 3087, 1174, 31, 70, "Subsubsection",ExpressionUUID->"b5b23bac-b385-4c1c-9be5-6a6cad3131bc", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[124710, 3120, 89, 2, 70, "Text",ExpressionUUID->"8796fb2b-f582-49c7-bf8a-f6253ec2a92e", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[124836, 3127, 1113, 29, 70, "Subsubsection",ExpressionUUID->"f8138f41-51bd-44c1-a39e-ce85a6f01b22", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[125952, 3158, 1321, 40, 70, "Output",ExpressionUUID->"958434b4-b204-479e-9867-5208c686b725", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[127310, 3203, 1280, 33, 70, "Subsubsection",ExpressionUUID->"4f7c57ef-7b05-41cb-ab79-5f97659ce238", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[128593, 3238, 1365, 41, 70, "Output",ExpressionUUID->"8a3e261d-c403-408c-8af0-2abe9b53890a", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[129995, 3284, 1913, 46, 70, "Subsubsection",ExpressionUUID->"3ab714ef-09eb-4f2c-a08e-ed44445731f3", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[131911, 3332, 2896, 83, 70, "Output",ExpressionUUID->"274d217e-de47-46b0-8127-1cde6353cff1", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[134844, 3420, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5dcef834-0485-4039-a416-340097ded4e2", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[135918, 3449, 938, 28, 70, "Output",ExpressionUUID->"a8131ef2-9d2c-4d1b-bc7d-6b90c57b3924", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[136917, 3484, 1155, 28, 70, "Section",ExpressionUUID->"221c7424-1bf8-4971-81ec-cae40809dc08", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[138075, 3514, 529, 8, 70, "Text",ExpressionUUID->"4d34d62e-3da2-4a37-8b5c-f656a2f9911e", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[138641, 3527, 1033, 26, 70, "Section",ExpressionUUID->"54aca540-22c9-4689-bdc7-cea5a15c5bb5", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[139677, 3555, 515, 8, 70, "Text",ExpressionUUID->"fc0f57ff-06f7-42f8-9bed-40143626e3a6", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)