(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 173923, 4053] NotebookOptionsPosition[ 66442, 1934] NotebookOutlinePosition[ 162273, 3805] CellTagsIndexPosition[ 161322, 3774] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["CloudResourceFunction", "Title", CellTags->{"Name", "TemplateCell", "Title"}], Cell["\<\ Access functions deployed to your own or another user\[CloseCurlyQuote]s \ Wolfram Cloud account that are not in the official Function Repository\ \>", "Text", CellTags->{"Description", "TemplateCell"}], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line above. \ You can add input cells and extra code to define additional input cases or \ prerequisites. All definitions, including dependencies, will be included in \ the generated resource function.\n\nThis section should be evaluated before \ creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301], Cell[BoxData[{ RowBox[{ RowBox[{"CloudResourceFunction", "[", "obj_CloudObject", "]"}], ":=", RowBox[{"ResourceFunction", "[", "obj", "]"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"CloudResourceFunction", "[", "pathOrFunc_String", "]"}], ":=", "\n", "\t", RowBox[{"If", "[", "\n", "\t\t", RowBox[{ RowBox[{ RowBox[{"StringMatchQ", "[", RowBox[{"pathOrFunc", ",", RowBox[{"\"\\"", "~~", "___"}]}], "]"}], "||", RowBox[{"StringMatchQ", "[", RowBox[{"pathOrFunc", ",", RowBox[{"\"\\"", "~~", "___"}]}], "]"}]}], ",", "\n", "\t\t", RowBox[{"ResourceFunction", "[", "\n", "\t\t\t", RowBox[{"CloudObject", "[", "pathOrFunc", "]"}], "]"}], ",", "\n", "\t\t", RowBox[{"ResourceFunction", "[", "\n", "\t\t\t", RowBox[{"CloudObject", "[", "\n", "\t\t\t\t", RowBox[{ RowBox[{ "StringTemplate", "[", "\"\\"", "]"}], "[", "\n", "\t\t\t\t\t", RowBox[{"$WolframID", ",", "pathOrFunc"}], "]"}], "]"}], "]"}]}], "]"}]}], "\n", "\t\t\t"}], "\n", RowBox[{ RowBox[{"CloudResourceFunction", "[", RowBox[{"{", RowBox[{"user_String", ",", "pathOrFunc_String"}], "}"}], "]"}], ":=", "\n", "\t", RowBox[{"If", "[", "\n", "\t\t", RowBox[{ RowBox[{"StringMatchQ", "[", RowBox[{"pathOrFunc", ",", RowBox[{"\"\\"", "~~", "___"}]}], "]"}], ",", "\n", "\t\t", RowBox[{"ResourceFunction", "[", "\n", "\t\t\t", RowBox[{"CloudObject", "[", "\n", "\t\t\t\t", RowBox[{ RowBox[{"StringTemplate", "[", "\"\\"", "]"}], "[", "\n", "\t\t\t\t\t", RowBox[{"user", ",", "pathOrFunc"}], "]"}], "]"}], "]"}], ",", "\n", "\t\t", RowBox[{"ResourceFunction", "[", "\n", "\t\t\t", RowBox[{"CloudObject", "[", "\n", "\t\t\t\t", RowBox[{ RowBox[{ "StringTemplate", "[", "\"\\"", "]"}], "[", "\n", "\t\t\t\t\t", RowBox[{"user", ",", "pathOrFunc"}], "]"}], "]"}], "]"}]}], "]"}]}]}], "Code", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.76876349803902*^9, 3.7687635315594893`*^9}, { 3.768784778177452*^9, 3.7687849818291225`*^9}, 3.7687865596190553`*^9, { 3.768822109645541*^9, 3.768822114187771*^9}, 3.768822187151548*^9, { 3.7688248627101817`*^9, 3.768824896033193*^9}, 3.76882530666063*^9, 3.7688255325562706`*^9, 3.7688293838314047`*^9}, CellTags->"TabNext", CellLabel->"In[20]:=", CellID->778396829] }, Open ]], Cell["Documentation", "Section", CellTags->"Documentation", CellID->363488142], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, then \ pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudResourceFunction", "[", "\"\<\!\(\*StyleBox[\"name\", \"TI\"]\)\>\"", "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell[TextData[{ "gets a resource function ", Cell[BoxData[ RowBox[{ StyleBox["name", "TI"], " "}]], "InlineFormula", FontFamily->"Source Sans Pro"], "from your personal cloud account." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudResourceFunction", "[", "\"\\"", "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell["gets a function from your personal cloud at a given path.", \ "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudResourceFunction", "[", "\"\<\!\(\*StyleBox[\"uri\", \"TI\"]\)\>\"", "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell[TextData[{ "gets a function from a specified", Cell[BoxData[ RowBox[{" ", StyleBox["uri", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudResourceFunction", "[", RowBox[{"{", RowBox[{ "\"\<\!\(\*StyleBox[\"user\", \"TI\"]\)\>\"", ",", "\"\<\!\(\*StyleBox[\"name\", \"TI\"]\)\>\""}], "}"}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell[TextData[{ "gets function", Cell[BoxData[ RowBox[{" ", StyleBox["name", "TI"], " "}]], "InlineFormula", FontFamily->"Source Sans Pro"], "deployed by the specified ", Cell[BoxData[ StyleBox["user", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudResourceFunction", "[", RowBox[{"{", RowBox[{ "\"\<\!\(\*StyleBox[\"user\", \"TI\"]\)\>\"", ",", "\"\\""}], "}"}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell[TextData[{ "gets a resource function deployed by ", Cell[BoxData[ StyleBox["user", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and specified by file ", Cell[BoxData[ StyleBox["path", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349], Cell[TextData[{ " When the function is specified with ", Cell[BoxData[ RowBox[{"\"\<\!\(\*StyleBox[\"name\", \"TI\"]\)\>\"", ","}]], "InlineFormula", FontFamily->"Source Sans Pro"], " ", Cell[BoxData["CloudResourceFunction"], "InlineFormula", FontFamily->"Source Sans Pro"], " attempts to retrieve the function from the default deployment path used by \ the function resource definition notebook. For functions deployed using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CloudDeploy", "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/CloudDeploy", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", the path or URI is needed." }], "Notes", CellTags->"TabNext", CellID->521904482] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], 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.2863], 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.2863], 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.2863], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Retrieve a function deployed to your cloud:", "Text", CellChangeTimes->{{3.7689103226153283`*^9, 3.768910341814433*^9}, { 3.768910383386672*^9, 3.768910427580296*^9}, 3.7722090903391943`*^9}, CellID->651083367], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rt", "=", RowBox[{ "CloudResourceFunction", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.7687862261175675`*^9, 3.7687862422766504`*^9}, { 3.768828273218753*^9, 3.7688282758951435`*^9}, {3.768909151303708*^9, 3.7689091539790864`*^9}, {3.7689103447166324`*^9, 3.7689103691524935`*^9}, { 3.768915699231404*^9, 3.76891571451912*^9}}, CellLabel->"In[42]:=", CellID->512933563], Cell[BoxData[ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->GrayLevel[0.45]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"RainbowText\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", GrayLevel[0.45], "\"RainbowText\""}], ResourceFunction[ ResourceObject[ Association[ "Name" -> "RainbowText", "UUID" -> "cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa", "ResourceType" -> "Function", "Description" -> "Make any text fabulous by letting the letters go through the rainbow", "ResourceLocations" -> { CloudObject[ "https://www.wolframcloud.com/objects/documentation/Resources/cc5/\ cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa"]}, "Version" -> None, "Documentation" -> Association["Usage" -> { Association["Usage" -> BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"RainbowText\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", "\"\!\(\*StyleBox[\"string\", \"TI\"]\)\"", "]"}]], "Description" -> TextData[{"Turns ", Cell[ BoxData[ StyleBox["string", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], "\[CloseCurlyQuote]s letters the colors of the rainbow."}]]}], "ExampleNotebook" -> NotebookObject[ FrontEndObject[ LinkObject["79cq9_shm", 3, 1]], 55], "ExampleNotebookData" -> Automatic, "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/objects/documentation/Resources/cc5/\ cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa/download/DefinitionData"], "ShortName" -> "RainbowText", "SymbolName" -> "FunctionRepository`$cc52f115d5eb4b3d8f2e81b1b52b31aa`RainbowText"]]], Selectable->False]], "Output", CellChangeTimes->{ 3.768824268810419*^9, 3.768824526989417*^9, 3.768824597984199*^9, 3.768824694152853*^9, 3.7688283846967273`*^9, {3.768828425356296*^9, 3.768828443624319*^9}, 3.7688291340998135`*^9, 3.7688292082520866`*^9, 3.768910399051964*^9, 3.768911052267765*^9, {3.7689157073944445`*^9, 3.7689157160092106`*^9}}, CellLabel->"Out[42]=", CellID->396454370] }, Open ]], Cell["Use the function:", "Text", CellChangeTimes->{{3.768910407036024*^9, 3.768910425400646*^9}}, CellID->88550150], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rt", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7689103723125362`*^9, 3.7689103806393766`*^9}, { 3.7689157192082715`*^9, 3.7689157330858545`*^9}}, CellLabel->"In[43]:=", CellID->458662141], Cell[BoxData[ TemplateBox[{ StyleBox["\"r\"", Bold, Hue[0], StripOnInput -> False], StyleBox["\"a\"", Bold, Hue[ Rational[1, 19]], StripOnInput -> False], StyleBox["\"i\"", Bold, Hue[ Rational[2, 19]], StripOnInput -> False], StyleBox["\"n\"", Bold, Hue[ Rational[3, 19]], StripOnInput -> False], StyleBox["\"b\"", Bold, Hue[ Rational[4, 19]], StripOnInput -> False], StyleBox["\"o\"", Bold, Hue[ Rational[5, 19]], StripOnInput -> False], StyleBox["\"w\"", Bold, Hue[ Rational[6, 19]], StripOnInput -> False], StyleBox["\"s\"", Bold, Hue[ Rational[7, 19]], StripOnInput -> False], StyleBox["\" \"", Bold, Hue[ Rational[8, 19]], StripOnInput -> False], StyleBox["\"a\"", Bold, Hue[ Rational[9, 19]], StripOnInput -> False], StyleBox["\"r\"", Bold, Hue[ Rational[10, 19]], StripOnInput -> False], StyleBox["\"e\"", Bold, Hue[ Rational[11, 19]], StripOnInput -> False], StyleBox["\" \"", Bold, Hue[ Rational[12, 19]], StripOnInput -> False], StyleBox["\"a\"", Bold, Hue[ Rational[13, 19]], StripOnInput -> False], StyleBox["\"w\"", Bold, Hue[ Rational[14, 19]], StripOnInput -> False], StyleBox["\"e\"", Bold, Hue[ Rational[15, 19]], StripOnInput -> False], StyleBox["\"s\"", Bold, Hue[ Rational[16, 19]], StripOnInput -> False], StyleBox["\"o\"", Bold, Hue[ Rational[17, 19]], StripOnInput -> False], StyleBox["\"m\"", Bold, Hue[ Rational[18, 19]], StripOnInput -> False], StyleBox["\"e\"", Bold, Hue[1], StripOnInput -> False]}, "RowDefault"]], "Output", CellChangeTimes->{3.7689157339373364`*^9}, CellLabel->"Out[43]=", CellID->66747003] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->964056545], Cell["\<\ Use a URL of your own or another user\[CloseCurlyQuote]s function to retrieve \ it:\ \>", "Text", CellChangeTimes->{{3.768910445322298*^9, 3.768910464187606*^9}, 3.768910504259781*^9}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudResourceFunction", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7688292297467012`*^9, 3.768829240922945*^9}, { 3.768915775047391*^9, 3.7689157808858447`*^9}}, CellLabel->"In[44]:=", CellID->546703625], Cell[BoxData[ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->GrayLevel[0.45]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"RainbowText\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", GrayLevel[0.45], "\"RainbowText\""}], ResourceFunction[ ResourceObject[ Association[ "Name" -> "RainbowText", "UUID" -> "cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa", "ResourceType" -> "Function", "Description" -> "Make any text fabulous by letting the letters go through the rainbow", "ResourceLocations" -> { CloudObject[ "https://www.wolframcloud.com/objects/documentation/Resources/cc5/\ cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa"]}, "Version" -> None, "Documentation" -> Association["Usage" -> { Association["Usage" -> BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"RainbowText\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", "\"\!\(\*StyleBox[\"string\", \"TI\"]\)\"", "]"}]], "Description" -> TextData[{"Turns ", Cell[ BoxData[ StyleBox["string", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], "\[CloseCurlyQuote]s letters the colors of the rainbow."}]]}], "ExampleNotebook" -> NotebookObject[ FrontEndObject[ LinkObject["79cq9_shm", 3, 1]], 55], "ExampleNotebookData" -> Automatic, "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/objects/documentation/Resources/cc5/\ cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa/download/DefinitionData"], "ShortName" -> "RainbowText", "SymbolName" -> "FunctionRepository`$cc52f115d5eb4b3d8f2e81b1b52b31aa`RainbowText"]]], Selectable->False]], "Output", CellChangeTimes->{3.7688292454172287`*^9, 3.768911058702783*^9, 3.7689157861776304`*^9}, CellLabel->"Out[44]=", CellID->150236060] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->36350636], Cell["\<\ Use the Wolfram user account and name of the function instead:\ \>", "Text", CellChangeTimes->{{3.7689104709194393`*^9, 3.768910502000181*^9}, { 3.772209096612685*^9, 3.772209097075362*^9}}, CellID->55235300], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudResourceFunction", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.76882924785176*^9, 3.768829286254022*^9}, { 3.768911061179254*^9, 3.768911062653344*^9}, {3.7689157972439065`*^9, 3.768915814904179*^9}}, CellLabel->"In[46]:=", CellID->25132607], Cell[BoxData[ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->GrayLevel[0.45]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"RainbowText\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", GrayLevel[0.45], "\"RainbowText\""}], ResourceFunction[ ResourceObject[ Association[ "Name" -> "RainbowText", "UUID" -> "cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa", "ResourceType" -> "Function", "Description" -> "Make any text fabulous by letting the letters go through the rainbow", "ResourceLocations" -> { CloudObject[ "https://www.wolframcloud.com/objects/documentation/Resources/cc5/\ cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa"]}, "Version" -> None, "Documentation" -> Association["Usage" -> { Association["Usage" -> BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"RainbowText\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", "\"\!\(\*StyleBox[\"string\", \"TI\"]\)\"", "]"}]], "Description" -> TextData[{"Turns ", Cell[ BoxData[ StyleBox["string", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], "\[CloseCurlyQuote]s letters the colors of the rainbow."}]]}], "ExampleNotebook" -> NotebookObject[ FrontEndObject[ LinkObject["79cq9_shm", 3, 1]], 55], "ExampleNotebookData" -> Automatic, "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/objects/documentation/Resources/cc5/\ cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa/download/DefinitionData"], "ShortName" -> "RainbowText", "SymbolName" -> "FunctionRepository`$cc52f115d5eb4b3d8f2e81b1b52b31aa`RainbowText"]]], Selectable->False]], "Output", CellChangeTimes->{ 3.7688292879589677`*^9, 3.7689110644222455`*^9, {3.7689158117091203`*^9, 3.768915816144425*^9}}, CellLabel->"Out[46]=", CellID->162335053] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->145930206], Cell["Use the username and file path:", "Text", CellChangeTimes->{{3.768910519435375*^9, 3.7689105741324883`*^9}}, CellID->449820846], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudResourceFunction", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7688293075259666`*^9, 3.768829309127986*^9}, { 3.7689158216600747`*^9, 3.768915848593712*^9}}, CellLabel->"In[47]:=", CellID->283138752], Cell[BoxData[ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->GrayLevel[0.45]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"RainbowText\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", GrayLevel[0.45], "\"RainbowText\""}], ResourceFunction[ ResourceObject[ Association[ "Name" -> "RainbowText", "UUID" -> "cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa", "ResourceType" -> "Function", "Description" -> "Make any text fabulous by letting the letters go through the rainbow", "ResourceLocations" -> { CloudObject[ "https://www.wolframcloud.com/objects/documentation/Resources/cc5/\ cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa"]}, "Version" -> None, "Documentation" -> Association["Usage" -> { Association["Usage" -> BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"RainbowText\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", "\"\!\(\*StyleBox[\"string\", \"TI\"]\)\"", "]"}]], "Description" -> TextData[{"Turns ", Cell[ BoxData[ StyleBox["string", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], "\[CloseCurlyQuote]s letters the colors of the rainbow."}]]}], "ExampleNotebook" -> NotebookObject[ FrontEndObject[ LinkObject["79cq9_shm", 3, 1]], 55], "ExampleNotebookData" -> Automatic, "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/objects/documentation/Resources/cc5/\ cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa/download/DefinitionData"], "ShortName" -> "RainbowText", "SymbolName" -> "FunctionRepository`$cc52f115d5eb4b3d8f2e81b1b52b31aa`RainbowText"]]], Selectable->False]], "Output", CellChangeTimes->{3.7688293120322013`*^9, 3.7689110681459417`*^9, 3.7689158503226624`*^9}, CellLabel->"Out[47]=", CellID->102392116] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellID->754506620], Cell[TextData[{ Cell[BoxData["CloudResourceFunction"], "InlineFormula", FontFamily->"Source Sans Pro"], " retrieves new definitions every time it is called:" }], "Text", CellChangeTimes->{{3.7689091783736634`*^9, 3.7689091843040433`*^9}, { 3.768910579707035*^9, 3.7689106092197495`*^9}, {3.768910737811162*^9, 3.768910761489495*^9}, {3.768918256397828*^9, 3.7689182596068153`*^9}, { 3.7689185435809774`*^9, 3.768918562881914*^9}, 3.772209103452894*^9}, CellID->45407972], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbsoluteTiming", "[", RowBox[{ RowBox[{"CloudResourceFunction", "[", "\"\\"", "]"}], "[", "\"\\"", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7689182695096035`*^9, 3.7689182744601293`*^9}, { 3.768918392764003*^9, 3.7689184180749545`*^9}, {3.7689184790331554`*^9, 3.768918479379079*^9}, {3.768918583302205*^9, 3.7689185988995285`*^9}, { 3.7689186545915904`*^9, 3.7689186984523025`*^9}}, CellLabel->"In[13]:=", CellID->802748876], Cell[BoxData[ RowBox[{"{", RowBox[{"1.1523969`", ",", TemplateBox[{ StyleBox["\"a\"", Bold, Hue[0], StripOnInput -> False], StyleBox["\"b\"", Bold, Hue[ Rational[1, 8]], StripOnInput -> False], StyleBox["\"c\"", Bold, Hue[ Rational[1, 4]], StripOnInput -> False], StyleBox["\"d\"", Bold, Hue[ Rational[3, 8]], StripOnInput -> False], StyleBox["\"e\"", Bold, Hue[ Rational[1, 2]], StripOnInput -> False], StyleBox["\"f\"", Bold, Hue[ Rational[5, 8]], StripOnInput -> False], StyleBox["\"g\"", Bold, Hue[ Rational[3, 4]], StripOnInput -> False], StyleBox["\"h\"", Bold, Hue[ Rational[7, 8]], StripOnInput -> False], StyleBox["\"i\"", Bold, Hue[1], StripOnInput -> False]}, "RowDefault"]}], "}"}]], "Output", CellChangeTimes->{ 3.7689183135011864`*^9, {3.768918399754891*^9, 3.7689184033466816`*^9}, 3.7689184812703505`*^9, 3.768918600788351*^9, 3.7689187021240187`*^9}, CellLabel->"Out[13]=", CellID->449449142] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbsoluteTiming", "[", RowBox[{ RowBox[{"CloudResourceFunction", "[", "\"\\"", "]"}], "[", "\"\\"", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7689182695096035`*^9, 3.7689182744601293`*^9}, { 3.768918392764003*^9, 3.7689184180749545`*^9}, {3.7689184790331554`*^9, 3.768918479379079*^9}, {3.768918583302205*^9, 3.7689185988995285`*^9}, { 3.7689186545915904`*^9, 3.7689186984523025`*^9}}, CellLabel->"In[14]:=", CellID->1499976174], Cell[BoxData[ RowBox[{"{", RowBox[{"0.7870647`", ",", TemplateBox[{ StyleBox["\"j\"", Bold, Hue[0], StripOnInput -> False], StyleBox["\"k\"", Bold, Hue[ Rational[1, 8]], StripOnInput -> False], StyleBox["\"l\"", Bold, Hue[ Rational[1, 4]], StripOnInput -> False], StyleBox["\"m\"", Bold, Hue[ Rational[3, 8]], StripOnInput -> False], StyleBox["\"n\"", Bold, Hue[ Rational[1, 2]], StripOnInput -> False], StyleBox["\"o\"", Bold, Hue[ Rational[5, 8]], StripOnInput -> False], StyleBox["\"p\"", Bold, Hue[ Rational[3, 4]], StripOnInput -> False], StyleBox["\"q\"", Bold, Hue[ Rational[7, 8]], StripOnInput -> False], StyleBox["\"r\"", Bold, Hue[1], StripOnInput -> False]}, "RowDefault"]}], "}"}]], "Output", CellChangeTimes->{ 3.7689183135011864`*^9, {3.768918399754891*^9, 3.7689184033466816`*^9}, 3.7689184812703505`*^9, 3.768918600788351*^9, 3.7689187029105315`*^9}, CellLabel->"Out[14]=", CellID->287388886] }, Open ]], Cell["Assign the function to a symbol for faster performance:", "Text", CellChangeTimes->{{3.7689182695096035`*^9, 3.7689182744601293`*^9}, { 3.768918392764003*^9, 3.7689184180749545`*^9}, 3.768918477584221*^9, { 3.768918566958377*^9, 3.7689186062659473`*^9}}, CellID->442075521], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rainbowText", "=", RowBox[{"CloudResourceFunction", "[", "\"\\"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"AbsoluteTiming", "[", RowBox[{"rainbowText", "[", "\"\\"", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.7689186132456036`*^9, 3.7689186513785906`*^9}, { 3.768918705469949*^9, 3.768918713942148*^9}}, CellLabel->"In[15]:=", CellID->776119773], Cell[BoxData[ RowBox[{"{", RowBox[{"0.000497`", ",", TemplateBox[{ StyleBox["\"t\"", Bold, Hue[0], StripOnInput -> False], StyleBox["\"h\"", Bold, Hue[ Rational[1, 28]], StripOnInput -> False], StyleBox["\"i\"", Bold, Hue[ Rational[1, 14]], StripOnInput -> False], StyleBox["\"s\"", Bold, Hue[ Rational[3, 28]], StripOnInput -> False], StyleBox["\" \"", Bold, Hue[ Rational[1, 7]], StripOnInput -> False], StyleBox["\"i\"", Bold, Hue[ Rational[5, 28]], StripOnInput -> False], StyleBox["\"s\"", Bold, Hue[ Rational[3, 14]], StripOnInput -> False], StyleBox["\" \"", Bold, Hue[ Rational[1, 4]], StripOnInput -> False], StyleBox["\"a\"", Bold, Hue[ Rational[2, 7]], StripOnInput -> False], StyleBox["\" \"", Bold, Hue[ Rational[9, 28]], StripOnInput -> False], StyleBox["\"f\"", Bold, Hue[ Rational[5, 14]], StripOnInput -> False], StyleBox["\"a\"", Bold, Hue[ Rational[11, 28]], StripOnInput -> False], StyleBox["\"s\"", Bold, Hue[ Rational[3, 7]], StripOnInput -> False], StyleBox["\"t\"", Bold, Hue[ Rational[13, 28]], StripOnInput -> False], StyleBox["\"e\"", Bold, Hue[ Rational[1, 2]], StripOnInput -> False], StyleBox["\"r\"", Bold, Hue[ Rational[15, 28]], StripOnInput -> False], StyleBox["\" \"", Bold, Hue[ Rational[4, 7]], StripOnInput -> False], StyleBox["\"f\"", Bold, Hue[ Rational[17, 28]], StripOnInput -> False], StyleBox["\"u\"", Bold, Hue[ Rational[9, 14]], StripOnInput -> False], StyleBox["\"n\"", Bold, Hue[ Rational[19, 28]], StripOnInput -> False], StyleBox["\"c\"", Bold, Hue[ Rational[5, 7]], StripOnInput -> False], StyleBox["\"t\"", Bold, Hue[ Rational[3, 4]], StripOnInput -> False], StyleBox["\"i\"", Bold, Hue[ Rational[11, 14]], StripOnInput -> False], StyleBox["\"o\"", Bold, Hue[ Rational[23, 28]], StripOnInput -> False], StyleBox["\"n\"", Bold, Hue[ Rational[6, 7]], StripOnInput -> False], StyleBox["\" \"", Bold, Hue[ Rational[25, 28]], StripOnInput -> False], StyleBox["\"n\"", Bold, Hue[ Rational[13, 14]], StripOnInput -> False], StyleBox["\"o\"", Bold, Hue[ Rational[27, 28]], StripOnInput -> False], StyleBox["\"w\"", Bold, Hue[1], StripOnInput -> False]}, "RowDefault"]}], "}"}]], "Output", CellChangeTimes->{3.768918632505334*^9, 3.768918715778007*^9}, CellLabel->"Out[16]=", CellID->692152524] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellChangeTimes->{{3.768908361853713*^9, 3.7689083692871456`*^9}}, CellID->92483860], Cell[TextData[{ "A cloud connection is required to use the function, which can be easily \ done with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CloudConnect", "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/CloudConnect", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.7689108203653784`*^9, 3.7689109160190697`*^9}}, CellID->365030068], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"CloudDisconnect", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"CloudResourceFunction", "[", "\"\\"", "]"}]}], "Input", CellChangeTimes->{{3.768918767715124*^9, 3.7689187955698385`*^9}}, CellLabel->"In[18]:=", CellID->230530196], Cell[BoxData[ RowBox[{"CloudResourceFunction", "[", "\<\"RainbowFunction\"\>", "]"}]], "Output", CellChangeTimes->{3.768918811191139*^9}, CellLabel->"Out[19]=", CellID->576697544] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudConnect", "[", "]"}]], "Input", CellChangeTimes->{{3.768918845395385*^9, 3.768918853564316*^9}, { 3.7689189180353055`*^9, 3.768918935814267*^9}}, CellLabel->"In[28]:=", CellID->342198517], Cell[BoxData["\<\"documentation@wolfram.com\"\>"], "Output", CellChangeTimes->{{3.7689188558209114`*^9, 3.7689188836126623`*^9}, { 3.7689189206286936`*^9, 3.768918944280012*^9}}, CellLabel->"Out[28]=", CellID->243404636] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudResourceFunction", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.768918845395385*^9, 3.768918853564316*^9}, { 3.7689189180353055`*^9, 3.768918935814267*^9}}, CellLabel->"In[29]:=", CellID->304243289], Cell[BoxData[ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->GrayLevel[0.45]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"RainbowText\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", GrayLevel[0.45], "\"RainbowText\""}], ResourceFunction[ ResourceObject[ Association[ "Name" -> "RainbowText", "UUID" -> "cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa", "ResourceType" -> "Function", "Description" -> "Make any text fabulous by letting the letters go through the rainbow", "ResourceLocations" -> { CloudObject[ "https://www.wolframcloud.com/objects/documentation/Resources/cc5/\ cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa"]}, "Version" -> None, "Documentation" -> Association["Usage" -> { Association["Usage" -> BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox["ResourceFunction", "ResourceFunctionSymbol"], "[", StyleBox["\"RainbowText\"", "ResourceFunctionName"], "]"}], "ResourceFunctionHandle"], "[", "\"\!\(\*StyleBox[\"string\", \"TI\"]\)\"", "]"}]], "Description" -> TextData[{"Turns ", Cell[ BoxData[ StyleBox["string", "TI"]], "InlineFormula", FontFamily -> "Source Sans Pro"], "\[CloseCurlyQuote]s letters the colors of the rainbow."}]]}], "ExampleNotebook" -> NotebookObject[ FrontEndObject[ LinkObject["79cq9_shm", 3, 1]], 55], "ExampleNotebookData" -> Automatic, "FunctionLocation" -> CloudObject[ "https://www.wolframcloud.com/objects/documentation/Resources/cc5/\ cc52f115-d5eb-4b3d-8f2e-81b1b52b31aa/download/DefinitionData"], "ShortName" -> "RainbowText", "SymbolName" -> "FunctionRepository`$cc52f115d5eb4b3d8f2e81b1b52b31aa`RainbowText"]]], Selectable->False]], "Output", CellChangeTimes->{{3.7689188558209114`*^9, 3.7689188836126623`*^9}, { 3.7689189206286936`*^9, 3.7689189450399184`*^9}}, CellLabel->"Out[29]=", CellID->78273324] }, Open ]], Cell["\<\ To access a function in another users account, the permissions need to be \ given to your cloud account, which can only be done by the person who \ deployed the function:\ \>", "Text", CellChangeTimes->{{3.768909210707202*^9, 3.7689092214067*^9}, { 3.768910919070181*^9, 3.768910991861136*^9}}, CellID->421420865], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CloudResourceFunction", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.768911000043071*^9, 3.7689110256752186`*^9}, { 3.7689110917193637`*^9, 3.7689110959647384`*^9}, {3.7689160492074533`*^9, 3.768916052604293*^9}}, CellLabel->"In[63]:=", CellID->100840119], Cell[BoxData[ TemplateBox[{ "CloudObject", "notperm", "\"Unable to perform the requested operation. Permission denied.\"", 2, 63, 13, 23401550492518253011, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.768916103392041*^9}, CellLabel->"During evaluation of In[63]:=", CellID->539026347], Cell[BoxData["$Failed"], "Output", CellChangeTimes->{3.768916103418024*^9}, CellLabel->"Out[63]=", CellID->385354196] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", CellTags->"Source & Additional Information", CellID->348526984], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318], Cell["Katja Della Libera", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024], Cell["Resource function", "Item"], Cell["Clouddeploy", "Item"], Cell["Resource object", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Cloud & Deployment", {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[ "Programming Utilities", {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Repository Tools", {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"}], "\" \"", "\"Sound\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {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"}, ColumnsEqual->True, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{}, RowsEqual->True], "Grid"]], "Output", Editable->False, Deletable->False, CellTags->"CategoriesCell"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732], Cell["ResourceFunction", "Item"], Cell["CloudObject", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204], Cell["ResourceFunctionSearch", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests", Cell[ BoxData[ FrameBox[ Cell[ "Specify an optional list of tests for verifying that the function is \ working properly in any environment. Tests can be specified as Input/Output \ cell pairs or as symbolic VerificationTest expressions for including \ additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "CreationTimestamp" -> 3.808751429624706`16.33335761940427*^9, "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.808751429751221`16.333357619418695*^9, "TemplateVersion" -> "1.3.1"}, CreateCellID->True, FrontEndVersion->"12.1 for Linux x86 (64-bit) (March 18, 2020)", 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.9216, 0.3412, 0.1059], CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, AutoQuoteCharacters -> {}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.4588, 0.4588, 0.4588]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.0909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], RGBColor[0.6274, 0.6274, 0.6274, 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:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[0.6274, 0.6274, 0.6274, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.0909], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], 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:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "]]}, { 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:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.0444]], 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[{ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$ = 0., ResourceSystemClientTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$ > ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.9882, 0.4196, 0.2039], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ 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.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TemplateInput[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ LiteralInput[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ DelimiterInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ SubscriptInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, Null]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableInsert[2]]; Null]]], "\"Insert table with three columns\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableInsert[3]]; Null]]], "\"Add a row to the selected table\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableRowInsert[]]; Null]]], "\"Sort the selected table\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableSort[]]; Null]]], "\"Merge selected tables\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableMerge[]]; Null]]]}, Appearance -> None, Method -> "Queued"], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ CommentInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic]}}, 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 -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {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:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {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.078}, {30.578, 18.75}, {30.582, 18.289}, {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.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.9882, 0.4196, 0.2039], 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 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet] \"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`ViewExampleNotebook[ ButtonNotebook[]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`ViewStyleGuidelines[ ButtonNotebook[]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 10, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 10, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`ToggleToolbar[ ButtonNotebook[]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.9941, 0.7098, 0.602]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`CheckDefinitionNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`PreviewResource[ ButtonNotebook[], "Notebook"]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"On the cloud\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`PreviewResource[ ButtonNotebook[], "Cloud"]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "Local"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"For my cloud account\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"Publicly in the cloud\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "CloudPublic"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"In this session only (without documentation)\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "KernelSession"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0635], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[0.9608, 0.7059, 0.498, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], With[{ResourceSystemClientTools`BuildDefinitionNotebook`\ Private`nb = ButtonNotebook[]}, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, ResourceSystemClient`DefinitionNotebook`\ SubmitRepositoryUpdate[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb], "ShowProgress" -> True]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0635], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[0.9608, 0.7059, 0.498, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function Repository\ \""}, "PrettyTooltipTemplate"], With[{ResourceSystemClientTools`BuildDefinitionNotebook`\ Private`nb = ButtonNotebook[]}, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, ResourceSystemClient`DefinitionNotebook`SubmitRepository[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb], "ShowProgress" -> True]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.9882, 0.4196, 0.2039], RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.9882, 0.4196, 0.2039], 2 -> RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.9882, 0.4196, 0.2039]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {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:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {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.078}, {30.578, 18.75}, {30.582, 18.289}, {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.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$, If[ TrueQ[#4], With[{ResourceSystemClientTools`BuildDefinitionNotebook`\ Private`nb = ButtonNotebook[]}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; #2[]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, {TaggingRules, "StatusMessage"}] = ""; Null], #2[]]]; Null]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.9216, 0.3412, 0.1059], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 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.0556], 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:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, 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.1753, 7.4169}, { 7.7969, 11.3084}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.3084}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/sWTrBh9WVTg5rt0 5zz/3akCt//sGRBQgbsPxoe5H8aH+Q+mH+Z/mPmw8IHZDws/mPtg4Yse/gBw FJLS "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`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[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`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[ 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[ StyleData["Hyperlink"], FontColor -> RGBColor[0.9216, 0.3412, 0.1059]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.6144, 0.2275, 0.0706]], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.8549, 0.3961, 0.1451], RGBColor[0.0196, 0.2863, 0.651]]]], Cell[ StyleData["StringTypeLink"], TemplateBoxOptions -> {DisplayFunction :> (TagBox[ DynamicBox[ If[ CurrentValue["MouseOver"], ButtonBox[ StyleBox[#, FontColor -> RGBColor[0.9686, 0.4667, 0.]], ButtonData -> #2], ButtonBox[#, ButtonData -> #2]]], MouseAppearanceTag["LinkHand"]]& )}, ButtonBoxOptions -> { BaseStyle -> {FontColor -> GrayLevel[0.4667], "Link"}}], 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["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.9059]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.8807, 0.611, 0.1421], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821, 0.9417, 0.8713]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.3684, 0.5068, 0.7098], Background -> RGBColor[0.9053, 0.926, 0.9565]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.5602, 0.6916, 0.1949], Background -> RGBColor[0.934, 0.9537, 0.8792]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "12.1 for Linux x86 (64-bit) (March 18, 2020)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[558, 20, 84, 1, 70, "Title",ExpressionUUID->"69368e33-ec56-4ada-8525-f8e68982bbf8", CellTags->{"Name", "TemplateCell", "Title"}]}, "TemplateCell"->{ Cell[558, 20, 84, 1, 70, "Title",ExpressionUUID->"69368e33-ec56-4ada-8525-f8e68982bbf8", CellTags->{"Name", "TemplateCell", "Title"}], Cell[645, 23, 213, 4, 70, "Text",ExpressionUUID->"658f9adb-6f0d-48a8-90cb-1e71ef906ff9", CellTags->{"Description", "TemplateCell"}]}, "Title"->{ Cell[558, 20, 84, 1, 70, "Title",ExpressionUUID->"69368e33-ec56-4ada-8525-f8e68982bbf8", CellTags->{"Name", "TemplateCell", "Title"}]}, "Description"->{ Cell[645, 23, 213, 4, 70, "Text",ExpressionUUID->"658f9adb-6f0d-48a8-90cb-1e71ef906ff9", CellTags->{"Description", "TemplateCell"}]}, "Definition"->{ Cell[883, 31, 946, 23, 70, "Section",ExpressionUUID->"ec0f5d35-34a0-420f-a7e2-3c4460fa3ac8", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301]}, "Function"->{ Cell[883, 31, 946, 23, 70, "Section",ExpressionUUID->"ec0f5d35-34a0-420f-a7e2-3c4460fa3ac8", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301]}, "TemplateCellGroup"->{ Cell[883, 31, 946, 23, 70, "Section",ExpressionUUID->"ec0f5d35-34a0-420f-a7e2-3c4460fa3ac8", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301], Cell[4900, 132, 1697, 44, 70, "Subsection",ExpressionUUID->"922da871-9137-40fe-b46f-7a8419364de8", CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351], Cell[8909, 275, 1187, 26, 70, "Subsection",ExpressionUUID->"ed4885d3-e56e-482c-a17d-f6bb328fcfd1", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349], Cell[11147, 337, 6634, 145, 70, "Section",ExpressionUUID->"71a4a612-9460-4867-a083-4814af35a679", CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095], Cell[50878, 1430, 756, 20, 70, "Subsection",ExpressionUUID->"7f6eeab9-61cf-4b4d-ab61-036cac4379ba", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318], Cell[51708, 1457, 731, 20, 70, "Subsection",ExpressionUUID->"47122b65-8bac-4391-ba1d-64ed5b1e221f", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024], Cell[52576, 1488, 130, 3, 70, "Subsection",ExpressionUUID->"0aec8b16-714d-4382-a61b-776ab9604d3e", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210], Cell[59158, 1713, 708, 20, 70, "Subsection",ExpressionUUID->"91a83c82-9e1b-4e0d-bfb6-e16f084dde52", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732], Cell[59968, 1742, 758, 20, 70, "Subsection",ExpressionUUID->"58238564-256a-4d25-8a07-b819d8e33163", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204], Cell[60804, 1769, 809, 21, 70, "Subsection",ExpressionUUID->"726fa9e3-8724-4a09-8d9d-037e716e2abf", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096], Cell[62149, 1805, 661, 20, 70, "Subsection",ExpressionUUID->"e4b4c442-5681-49ac-9c18-7cb2f8a22e19", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713], Cell[63335, 1840, 836, 22, 70, "Subsection",ExpressionUUID->"abde4584-5831-424c-9a59-162919db5f7b", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658], Cell[64482, 1882, 131, 3, 70, "Section",ExpressionUUID->"7701ba2a-7fb3-4731-b4c1-bb80c5d6b402", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409], Cell[65162, 1900, 766, 21, 70, "Section",ExpressionUUID->"54a88fdd-6e20-414a-b3a3-4db900fbb572", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912]}, "TabNext"->{ Cell[1832, 56, 2948, 67, 70, "Code",ExpressionUUID->"7a0397cb-a800-4512-b018-0f78091e9bc8", CellTags->"TabNext", CellID->778396829], Cell[10099, 303, 1011, 29, 70, "Notes",ExpressionUUID->"093601f6-ba98-44e9-a8da-c4204c4800f3", CellTags->"TabNext", CellID->521904482], Cell[61616, 1792, 496, 8, 70, "Text",ExpressionUUID->"5dfed40a-9b59-4c9f-b26f-6430bb8d3b40", CellTags->"TabNext", CellID->343081869], Cell[62813, 1827, 485, 8, 70, "Item",ExpressionUUID->"b1111471-d4da-4353-9e94-b9a925127466", CellTags->"TabNext", CellID->485448166], Cell[64616, 1887, 509, 8, 70, "Text",ExpressionUUID->"7f2a6084-5ff6-4b75-82f9-d3f65dd38510", CellTags->"TabNext", CellID->567921317], Cell[65931, 1923, 495, 8, 70, "Text",ExpressionUUID->"40002663-5685-40de-8a72-7d9c15cef5c7", CellTags->"TabNext", CellID->920818074]}, "Documentation"->{ Cell[4795, 126, 80, 2, 70, "Section",ExpressionUUID->"d789e621-85a9-4eab-8b4a-3d7b89ffb264", CellTags->"Documentation", CellID->363488142]}, "Usage"->{ Cell[4900, 132, 1697, 44, 70, "Subsection",ExpressionUUID->"922da871-9137-40fe-b46f-7a8419364de8", CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351]}, "Details & Options"->{ Cell[8909, 275, 1187, 26, 70, "Subsection",ExpressionUUID->"ed4885d3-e56e-482c-a17d-f6bb328fcfd1", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349]}, "Notes"->{ Cell[8909, 275, 1187, 26, 70, "Subsection",ExpressionUUID->"ed4885d3-e56e-482c-a17d-f6bb328fcfd1", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349]}, "Examples"->{ Cell[11147, 337, 6634, 145, 70, "Section",ExpressionUUID->"71a4a612-9460-4867-a083-4814af35a679", CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095]}, "Source & Additional Information"->{ Cell[50737, 1424, 116, 2, 70, "Section",ExpressionUUID->"2b41d83f-8f2e-4c55-a439-40f54e622425", CellTags->"Source & Additional Information", CellID->348526984]}, "Contributed By"->{ Cell[50878, 1430, 756, 20, 70, "Subsection",ExpressionUUID->"7f6eeab9-61cf-4b4d-ab61-036cac4379ba", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318]}, "ContributorInformation"->{ Cell[50878, 1430, 756, 20, 70, "Subsection",ExpressionUUID->"7f6eeab9-61cf-4b4d-ab61-036cac4379ba", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318]}, "Keywords"->{ Cell[51708, 1457, 731, 20, 70, "Subsection",ExpressionUUID->"47122b65-8bac-4391-ba1d-64ed5b1e221f", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024]}, "Categories"->{ Cell[52576, 1488, 130, 3, 70, "Subsection",ExpressionUUID->"0aec8b16-714d-4382-a61b-776ab9604d3e", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210]}, "CategoriesCell"->{ Cell[52709, 1493, 6412, 215, 70, "Output",ExpressionUUID->"5dd79824-0446-4c5e-b3e8-1780f071ff5f", CellTags->"CategoriesCell"]}, "Related Symbols"->{ Cell[59158, 1713, 708, 20, 70, "Subsection",ExpressionUUID->"91a83c82-9e1b-4e0d-bfb6-e16f084dde52", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732]}, "Related Resource Objects"->{ Cell[59968, 1742, 758, 20, 70, "Subsection",ExpressionUUID->"58238564-256a-4d25-8a07-b819d8e33163", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204]}, "Source/Reference Citation"->{ Cell[60804, 1769, 809, 21, 70, "Subsection",ExpressionUUID->"726fa9e3-8724-4a09-8d9d-037e716e2abf", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096]}, "Links"->{ Cell[62149, 1805, 661, 20, 70, "Subsection",ExpressionUUID->"e4b4c442-5681-49ac-9c18-7cb2f8a22e19", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713]}, "Tests"->{ Cell[63335, 1840, 836, 22, 70, "Subsection",ExpressionUUID->"abde4584-5831-424c-9a59-162919db5f7b", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658]}, "VerificationTests"->{ Cell[63335, 1840, 836, 22, 70, "Subsection",ExpressionUUID->"abde4584-5831-424c-9a59-162919db5f7b", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658]}, "Author Notes"->{ Cell[64482, 1882, 131, 3, 70, "Section",ExpressionUUID->"7701ba2a-7fb3-4731-b4c1-bb80c5d6b402", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409]}, "Submission Notes"->{ Cell[65162, 1900, 766, 21, 70, "Section",ExpressionUUID->"54a88fdd-6e20-414a-b3a3-4db900fbb572", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 152929, 3612}, {"TemplateCell", 153089, 3615}, {"Title", 153380, 3620}, {"Description", 153539, 3623}, {"Definition", 153695, 3626}, {"Function", 153891, 3630}, {"TemplateCellGroup", 154096, 3634}, {"TabNext", 156642, 3677}, {"Documentation", 157516, 3696}, {"Usage", 157677, 3700}, {"Details & Options", 157871, 3704}, {"Notes", 158073, 3708}, {"Examples", 158278, 3712}, {"Source & Additional Information", 158488, 3716}, {"Contributed By", 158679, 3720}, {"ContributorInformation", 158914, 3724}, {"Keywords", 159135, 3728}, {"Categories", 159326, 3732}, {"CategoriesCell", 159522, 3736}, {"Related Symbols", 159677, 3739}, {"Related Resource Objects", 159889, 3743}, {"Source/Reference Citation", 160111, 3747}, {"Links", 160314, 3751}, {"Tests", 160497, 3755}, {"VerificationTests", 160713, 3759}, {"Author Notes", 160924, 3763}, {"Submission Notes", 161121, 3767} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 84, 1, 70, "Title",ExpressionUUID->"69368e33-ec56-4ada-8525-f8e68982bbf8", CellTags->{"Name", "TemplateCell", "Title"}], Cell[645, 23, 213, 4, 70, "Text",ExpressionUUID->"658f9adb-6f0d-48a8-90cb-1e71ef906ff9", CellTags->{"Description", "TemplateCell"}], Cell[CellGroupData[{ Cell[883, 31, 946, 23, 70, "Section",ExpressionUUID->"ec0f5d35-34a0-420f-a7e2-3c4460fa3ac8", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301], Cell[1832, 56, 2948, 67, 70, "Code",ExpressionUUID->"7a0397cb-a800-4512-b018-0f78091e9bc8", CellTags->"TabNext", CellID->778396829] }, Open ]], Cell[4795, 126, 80, 2, 70, "Section",ExpressionUUID->"d789e621-85a9-4eab-8b4a-3d7b89ffb264", CellTags->"Documentation", CellID->363488142], Cell[CellGroupData[{ Cell[4900, 132, 1697, 44, 70, "Subsection",ExpressionUUID->"922da871-9137-40fe-b46f-7a8419364de8", CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351], Cell[CellGroupData[{ Cell[6622, 180, 156, 3, 70, "UsageInputs",ExpressionUUID->"2ec8ad40-aa03-4433-bd6f-4b6405c0c1df"], Cell[6781, 185, 218, 7, 70, "UsageDescription",ExpressionUUID->"ae080612-9fd9-401d-80d0-a75eba7e393f"] }, Open ]], Cell[CellGroupData[{ Cell[7036, 197, 157, 3, 70, "UsageInputs",ExpressionUUID->"f4f4ec29-d45f-40af-b301-9eb298615101"], Cell[7196, 202, 87, 1, 70, "UsageDescription",ExpressionUUID->"0ee8d77a-07e5-4dc5-9d9d-5c439b47957f"] }, Open ]], Cell[CellGroupData[{ Cell[7320, 208, 155, 3, 70, "UsageInputs",ExpressionUUID->"581c45ed-4b21-402c-860f-96084bd98a3e"], Cell[7478, 213, 192, 7, 70, "UsageDescription",ExpressionUUID->"e288a04b-b9ac-47ad-99e5-576a0f6cf45e"] }, Open ]], Cell[CellGroupData[{ Cell[7707, 225, 253, 7, 70, "UsageInputs",ExpressionUUID->"2f83de0b-70ca-490e-bb13-a8710fe7282e"], Cell[7963, 234, 303, 11, 70, "UsageDescription",ExpressionUUID->"ba5a7ce0-4d8a-4897-b4bf-2b63a47021c1"] }, Open ]], Cell[CellGroupData[{ Cell[8303, 250, 254, 7, 70, "UsageInputs",ExpressionUUID->"9d23298d-41d2-4866-8c82-c370ed83cce2"], Cell[8560, 259, 300, 10, 70, "UsageDescription",ExpressionUUID->"21302124-fffb-4227-9c4f-a3a5f5a60375"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8909, 275, 1187, 26, 70, "Subsection",ExpressionUUID->"ed4885d3-e56e-482c-a17d-f6bb328fcfd1", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349], Cell[10099, 303, 1011, 29, 70, "Notes",ExpressionUUID->"093601f6-ba98-44e9-a8da-c4204c4800f3", CellTags->"TabNext", CellID->521904482] }, Open ]], Cell[CellGroupData[{ Cell[11147, 337, 6634, 145, 70, "Section",ExpressionUUID->"71a4a612-9460-4867-a083-4814af35a679", CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095], Cell[CellGroupData[{ Cell[17806, 486, 56, 1, 70, "Subsection",ExpressionUUID->"3b0041a6-4aa5-4a33-836b-50c62baa5f52", CellID->462042388], Cell[17865, 489, 221, 3, 70, "Text",ExpressionUUID->"3c860287-b649-43a8-963c-7910bde95a0f", CellID->651083367], Cell[CellGroupData[{ Cell[18111, 496, 433, 9, 70, "Input",ExpressionUUID->"5dc0c5c9-2b81-44fa-9c2a-69af826d26b1", CellID->512933563], Cell[18547, 507, 3540, 81, 70, "Output",ExpressionUUID->"5be45629-bd2c-471f-87c7-6e810f473dca", CellID->396454370] }, Open ]], Cell[22102, 591, 118, 2, 70, "Text",ExpressionUUID->"d6fa740e-9773-4662-97cc-85294adb3d2f", CellID->88550150], Cell[CellGroupData[{ Cell[22245, 597, 249, 5, 70, "Input",ExpressionUUID->"0f132939-396b-4960-8721-3d932a4e611e", CellID->458662141], Cell[22497, 604, 1812, 63, 70, "Output",ExpressionUUID->"0b07c69c-be9b-4e03-ac38-89c8b383105b", CellID->66747003] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24358, 673, 47, 1, 70, "Subsection",ExpressionUUID->"e12a3672-eef6-494d-a357-c1ec66a3dc1e", CellID->964056545], Cell[24408, 676, 219, 6, 70, "Text",ExpressionUUID->"daac8cde-eddf-4e4c-8618-be9b423b899c", CellID->649685796], Cell[CellGroupData[{ Cell[24652, 686, 338, 7, 70, "Input",ExpressionUUID->"88d1111a-2e61-49aa-bdbf-ea1f94128c6c", CellID->546703625], Cell[24993, 695, 3294, 77, 70, "Output",ExpressionUUID->"7d261ecf-e1c5-473d-aaa7-203d1bcbc22a", CellID->150236060] }, Open ]], Cell[CellGroupData[{ Cell[28324, 777, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"61afe9ed-240c-4b92-b4db-1230dd4422a8", CellID->36350636], Cell[28451, 782, 222, 5, 70, "Text",ExpressionUUID->"24c26ded-2b73-4b46-ab48-fa3bd4db3786", CellID->55235300], Cell[CellGroupData[{ Cell[28698, 791, 383, 9, 70, "Input",ExpressionUUID->"d6cc7850-3ae4-4134-97ee-afe43e31a54b", CellID->25132607], Cell[29084, 802, 3324, 78, 70, "Output",ExpressionUUID->"d4bf329d-4648-4d6f-8c36-a64844d5b36c", CellID->162335053] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32457, 886, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"ca625363-f326-49d9-87a7-691fe0132432", CellID->145930206], Cell[32585, 891, 135, 2, 70, "Text",ExpressionUUID->"756e85df-c527-4bc0-82ad-d26b16618eb1", CellID->449820846], Cell[CellGroupData[{ Cell[32745, 897, 374, 10, 70, "Input",ExpressionUUID->"8c2eddd6-0d01-444c-a208-1d0b60440553", CellID->283138752], Cell[33122, 909, 3296, 77, 70, "Output",ExpressionUUID->"190940f8-d1af-4e96-9f35-6b4a9926a8af", CellID->102392116] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36479, 993, 66, 1, 70, "Subsection",ExpressionUUID->"e789720f-101e-4004-8d9a-eb3329fbe8d6", CellID->754506620], Cell[36548, 996, 486, 9, 70, "Text",ExpressionUUID->"36d8f749-1ac4-4ef5-91ea-75d41bfc2b7a", CellID->45407972], Cell[CellGroupData[{ Cell[37059, 1009, 499, 10, 70, "Input",ExpressionUUID->"91326529-b4c8-4e6d-bf6c-60dfbd8f76a3", CellID->802748876], Cell[37561, 1021, 1095, 34, 70, "Output",ExpressionUUID->"8ff9095a-55ef-4351-a966-e245e9b74789", CellID->449449142] }, Open ]], Cell[CellGroupData[{ Cell[38693, 1060, 500, 10, 70, "Input",ExpressionUUID->"53b27f7b-21c9-4499-ae7a-6e3b46e0a452", CellID->1499976174], Cell[39196, 1072, 1095, 34, 70, "Output",ExpressionUUID->"3889d808-9ce2-48d9-add3-99a2bcd26780", CellID->287388886] }, Open ]], Cell[40306, 1109, 287, 4, 70, "Text",ExpressionUUID->"67e3d79f-66b9-429d-a0cc-2ca664be5547", CellID->442075521], Cell[CellGroupData[{ Cell[40618, 1117, 457, 11, 70, "Input",ExpressionUUID->"d48a63ee-d6e0-4ff2-b410-144736b1617e", CellID->776119773], Cell[41078, 1130, 2817, 92, 70, "Output",ExpressionUUID->"7cf495dc-0fbe-4a99-9f39-7c0698b14fe8", CellID->692152524] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43944, 1228, 124, 2, 70, "Subsection",ExpressionUUID->"5daf5665-6013-4c8c-a0a8-022dc57262c5", CellID->92483860], Cell[44071, 1232, 695, 21, 70, "Text",ExpressionUUID->"8444f964-7f58-4b55-b43d-37221000ff05", CellID->365030068], Cell[CellGroupData[{ Cell[44791, 1257, 295, 7, 70, "Input",ExpressionUUID->"a0d03a8f-249c-4e30-94a0-b0475176a272", CellID->230530196], Cell[45089, 1266, 186, 5, 70, "Output",ExpressionUUID->"4efe252d-5a2e-4c04-9b38-bb354f8c9a6b", CellID->576697544] }, Open ]], Cell[CellGroupData[{ Cell[45312, 1276, 221, 5, 70, "Input",ExpressionUUID->"2d60e663-0f9f-468a-8810-6520abe7275e", CellID->342198517], Cell[45536, 1283, 225, 4, 70, "Output",ExpressionUUID->"8ab8f284-f6c8-4a58-aaf4-6fb2691c632d", CellID->243404636] }, Open ]], Cell[CellGroupData[{ Cell[45798, 1292, 336, 7, 70, "Input",ExpressionUUID->"18bfe573-0850-485c-9f98-c4c794aecd62", CellID->304243289], Cell[46137, 1301, 3323, 77, 70, "Output",ExpressionUUID->"ff6d1009-33a1-4b35-987d-1376a3d7ef15", CellID->78273324] }, Open ]], Cell[49475, 1381, 327, 7, 70, "Text",ExpressionUUID->"3d925789-b9b2-4202-a844-75a76837fb08", CellID->421420865], Cell[CellGroupData[{ Cell[49827, 1392, 399, 10, 70, "Input",ExpressionUUID->"a8c8b3b9-0ef2-494a-828b-ae489c7e6259", CellID->100840119], Cell[50229, 1404, 324, 8, 70, "Message",ExpressionUUID->"6620e37f-df64-49fc-b304-bed7cda495f2", CellID->539026347], Cell[50556, 1414, 120, 3, 70, "Output",ExpressionUUID->"bd05b8c3-d35c-4af1-9821-650242b075d2", CellID->385354196] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[50737, 1424, 116, 2, 70, "Section",ExpressionUUID->"2b41d83f-8f2e-4c55-a439-40f54e622425", CellTags->"Source & Additional Information", CellID->348526984], Cell[CellGroupData[{ Cell[50878, 1430, 756, 20, 70, "Subsection",ExpressionUUID->"7f6eeab9-61cf-4b4d-ab61-036cac4379ba", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318], Cell[51637, 1452, 34, 0, 70, "Text",ExpressionUUID->"5dab003c-6be5-4b39-bb36-e864bce4d49f"] }, Open ]], Cell[CellGroupData[{ Cell[51708, 1457, 731, 20, 70, "Subsection",ExpressionUUID->"47122b65-8bac-4391-ba1d-64ed5b1e221f", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024], Cell[52442, 1479, 33, 0, 70, "Item",ExpressionUUID->"4e8f3a0f-93fa-47ec-b728-4541fbc2cf35"], Cell[52478, 1481, 27, 0, 70, "Item",ExpressionUUID->"8f27a99b-cd8d-4c3e-88b9-9351b1bc55ac"], Cell[52508, 1483, 31, 0, 70, "Item",ExpressionUUID->"5f3fd402-fb16-4fa8-8292-a1cc53739248"] }, Open ]], Cell[CellGroupData[{ Cell[52576, 1488, 130, 3, 70, "Subsection",ExpressionUUID->"0aec8b16-714d-4382-a61b-776ab9604d3e", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210], Cell[52709, 1493, 6412, 215, 70, "Output",ExpressionUUID->"5dd79824-0446-4c5e-b3e8-1780f071ff5f", CellTags->"CategoriesCell"] }, Open ]], Cell[CellGroupData[{ Cell[59158, 1713, 708, 20, 70, "Subsection",ExpressionUUID->"91a83c82-9e1b-4e0d-bfb6-e16f084dde52", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732], Cell[59869, 1735, 32, 0, 70, "Item",ExpressionUUID->"8a74b2a2-884c-4f13-9710-dafd4eb6f8ed"], Cell[59904, 1737, 27, 0, 70, "Item",ExpressionUUID->"e42b3541-c6d4-4b7c-9238-16896ec9b845"] }, Open ]], Cell[CellGroupData[{ Cell[59968, 1742, 758, 20, 70, "Subsection",ExpressionUUID->"58238564-256a-4d25-8a07-b819d8e33163", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204], Cell[60729, 1764, 38, 0, 70, "Item",ExpressionUUID->"ea665450-324b-4d62-a3d6-047ebf1eaed3"] }, Open ]], Cell[CellGroupData[{ Cell[60804, 1769, 809, 21, 70, "Subsection",ExpressionUUID->"726fa9e3-8724-4a09-8d9d-037e716e2abf", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096], Cell[61616, 1792, 496, 8, 70, "Text",ExpressionUUID->"5dfed40a-9b59-4c9f-b26f-6430bb8d3b40", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[62149, 1805, 661, 20, 70, "Subsection",ExpressionUUID->"e4b4c442-5681-49ac-9c18-7cb2f8a22e19", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713], Cell[62813, 1827, 485, 8, 70, "Item",ExpressionUUID->"b1111471-d4da-4353-9e94-b9a925127466", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[63335, 1840, 836, 22, 70, "Subsection",ExpressionUUID->"abde4584-5831-424c-9a59-162919db5f7b", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658], Cell[CellGroupData[{ Cell[64196, 1866, 129, 4, 70, "Input",ExpressionUUID->"f81cdd6c-6cce-431d-a700-c00950dce6eb", CellID->667877521], Cell[64328, 1872, 93, 3, 70, "Output",ExpressionUUID->"d43f5dda-a076-43a0-8a57-4984eeb02a2d", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[64482, 1882, 131, 3, 70, "Section",ExpressionUUID->"7701ba2a-7fb3-4731-b4c1-bb80c5d6b402", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409], Cell[64616, 1887, 509, 8, 70, "Text",ExpressionUUID->"7f2a6084-5ff6-4b75-82f9-d3f65dd38510", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[65162, 1900, 766, 21, 70, "Section",ExpressionUUID->"54a88fdd-6e20-414a-b3a3-4db900fbb572", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912], Cell[65931, 1923, 495, 8, 70, "Text",ExpressionUUID->"40002663-5685-40de-8a72-7d9c15cef5c7", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)