(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 162965, 4103] NotebookOptionsPosition[ 89234, 2514] NotebookOutlinePosition[ 140346, 3581] CellTagsIndexPosition[ 139693, 3559] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["StringFunction", "Title", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{3.756063732128482*^9, 3.756073434510897*^9}, CellTags->{"Title", "TabNext"}, CellID->362346026], Cell["Use functions meant for lists on strings", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756064002441383*^9, 3.7560640120900984`*^9}, { 3.756066688171747*^9, 3.756066692427614*^9}}, CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name above. All definitions, including \ dependencies, will be included in the resource function when it is generated. \ Additional cells can be added and definitions can be given for multiple input \ cases.\n\nThis section should be evaluated before evaluating creating the \ Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->608264297], Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", " ", "//", " ", "ClearAll"}], ";"}]], "Code", CellChangeTimes->{{3.7560637125880885`*^9, 3.756063714299035*^9}, 3.7560649645304723`*^9, 3.7560734461935472`*^9}, CellLabel->"In[2]:=", CellID->522071536], Cell[CellGroupData[{ Cell["Messages", "Subsection", CellChangeTimes->{{3.7560634869158497`*^9, 3.756063490649762*^9}}, CellLabel->"In[3]:=", CellID->18887762], Cell[TextData[{ "Messages are printed using ", ButtonBox["ResourceFunction[\"ResourceFunctionMessage\"]", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ ResourceFunctionMessage"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ ResourceFunctionMessage"] }], "Text", CellChangeTimes->{{3.754419870953169*^9, 3.754419887676673*^9}}, CellID->16843904], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"StringFunction", "::", "strse"}], " ", "=", " ", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"StringFunction", "::", "strings"}], " ", "=", " ", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"StringFunction", "::", "argx"}], " ", "=", " ", "\"\<`1` called with `2` arguments; 1 argument is expected.\>\""}], ";"}]}], "Code", CellChangeTimes->{{3.7544180632888393`*^9, 3.754418072600562*^9}, { 3.754418137840624*^9, 3.7544181404085474`*^9}, {3.7544185890262427`*^9, 3.7544186172824106`*^9}, {3.7544201660163956`*^9, 3.754420277077081*^9}, { 3.7544204580757236`*^9, 3.7544204643175554`*^9}, {3.754421406301849*^9, 3.754421422140379*^9}, {3.7544214716769085`*^9, 3.754421477421742*^9}, { 3.756064352345848*^9, 3.7560643654104753`*^9}, {3.756064763337516*^9, 3.7560647857388515`*^9}, {3.756073447522506*^9, 3.7560734485414753`*^9}}, CellLabel->"In[1]:=", CellID->4938731] }, Closed]], Cell[CellGroupData[{ Cell["Formatting", "Subsection", CellChangeTimes->{{3.756064305466255*^9, 3.7560643068422146`*^9}}, CellLabel->"In[4]:=", CellID->284083894], Cell["\<\ This formats StringFunction as a ResourceFunction since it can be returned in \ the output when used as an operator or if there is an error.\ \>", "Text", CellChangeTimes->{{3.7544183347368026`*^9, 3.754418383225356*^9}, 3.756064316963911*^9, 3.7560734516633825`*^9}, CellID->19811963], Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", " ", "/:", " ", RowBox[{ RowBox[{"MakeBoxes", "[", " ", RowBox[{ RowBox[{"expr", ":", " ", RowBox[{"StringFunction", "[", " ", "___", " ", "]"}]}], ",", " ", "StandardForm"}], " ", "]"}], " ", "/;", " ", RowBox[{"!", " ", RowBox[{"TrueQ", " ", "@", " ", "$inDef"}]}]}], " ", ":=", "\n", " ", RowBox[{"Block", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"$inDef", " ", "=", " ", "True"}], " ", "}"}], ",", "\n", " ", RowBox[{"ResourceFunction", ";", "\n", " ", RowBox[{"With", "[", "\n", " ", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"sb", " ", "=", " ", RowBox[{"MakeBoxes", "[", " ", RowBox[{"StringFunction", ",", " ", "StandardForm"}], " ", "]"}]}], ",", "\n", " ", RowBox[{"rb", " ", "=", " ", RowBox[{ "FunctionResource`Private`makeResourceFunctionBoxes", "[", " ", "\"\\"", " ", "]"}]}]}], "\n", " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"MakeBoxes", "[", " ", RowBox[{"expr", ",", " ", "StandardForm"}], " ", "]"}], " ", "/.", " ", RowBox[{"sb", " ", "->", " ", "rb"}]}]}], "\n", " ", "]"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.7544214972781506`*^9, 3.7544215984451413`*^9}, { 3.7560643226677375`*^9, 3.756064328588586*^9}, {3.75606823428715*^9, 3.7560682383980293`*^9}, {3.7560734534003277`*^9, 3.7560734554212685`*^9}}, CellLabel->"In[1]:=", CellID->38345076] }, Closed]], Cell[CellGroupData[{ Cell["Definition", "Subsection", CellChangeTimes->{{3.75606370718526*^9, 3.7560637082012267`*^9}}, CellLabel->"In[2]:=", CellID->514980529], Cell["Main definition:", "Text", CellChangeTimes->{{3.756065339026202*^9, 3.756065340924168*^9}}, CellID->587903488], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringFunction", "[", " ", "f_", " ", "]"}], "[", " ", RowBox[{ RowBox[{"string_String", "?", " ", "StringQ"}], ",", " ", "args___"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{"chars", ",", " ", "result", ",", " ", "valid"}], " ", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"chars", " ", "=", " ", RowBox[{"Characters", " ", "@", " ", "string"}]}], ";", "\n", " ", RowBox[{"result", " ", "=", " ", RowBox[{"f", "[", " ", RowBox[{"chars", ",", " ", "args"}], " ", "]"}]}], ";", "\n", " ", RowBox[{"valid", " ", "=", " ", RowBox[{"validQ", " ", "@", " ", "result"}]}], ";", "\n", " ", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"!", " ", "valid"}], ",", "\n", " ", RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", " ", "\n", " ", RowBox[{ RowBox[{"StringFunction", "::", "strings"}], ",", " ", "\n", " ", "result"}], "\n", " ", "]"}]}], "\n", " ", "]"}], ";", "\n", " ", RowBox[{ RowBox[{"Map", "[", " ", RowBox[{"StringJoin", ",", " ", "result", ",", " ", RowBox[{"{", " ", RowBox[{"-", "2"}], " ", "}"}]}], " ", "]"}], " ", "/;", " ", "valid"}]}]}], "\n", " ", "]"}]}], ";"}]], "Code", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{ 3.7560633648820963`*^9, {3.756063519697891*^9, 3.7560635326794925`*^9}, { 3.756063652008891*^9, 3.756063697722535*^9}, {3.75606380946318*^9, 3.756063812377072*^9}, {3.7560638925496836`*^9, 3.756063899002468*^9}, { 3.7560644019763837`*^9, 3.7560644844068985`*^9}, {3.756064980463002*^9, 3.7560649874467635`*^9}, {3.75606563867729*^9, 3.756065641436222*^9}, { 3.756068296219291*^9, 3.7560682984542246`*^9}, 3.7560696464097366`*^9, { 3.756072921019328*^9, 3.7560729277191267`*^9}, {3.7560734579521923`*^9, 3.756073458886166*^9}}, CellTags->"TabNext", CellLabel->"In[1]:=", CellID->778396829], Cell["Allow lists of strings:", "Text", CellChangeTimes->{{3.756065461188554*^9, 3.756065466403393*^9}}, CellID->122687915], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringFunction", "[", " ", "f_", " ", "]"}], "[", " ", RowBox[{ RowBox[{"strings_List", "?", " ", "validQ"}], ",", " ", "args___"}], " ", "]"}], " ", ":=", "\n", " ", RowBox[{"Map", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringFunction", "[", " ", "f", " ", "]"}], "[", " ", RowBox[{"#", ",", " ", "args"}], " ", "]"}], " ", "&"}], ",", " ", "strings"}], " ", "]"}]}], ";"}]], "Code", CellChangeTimes->{{3.7560653470759845`*^9, 3.7560654421411233`*^9}, { 3.756065656333759*^9, 3.7560656614606247`*^9}, {3.7560734604891195`*^9, 3.756073461261094*^9}}, CellLabel->"In[2]:=", CellID->81127447], Cell[CellGroupData[{ Cell["Error cases", "Subsubsection", CellChangeTimes->{{3.7560713305501165`*^9, 3.756071332326081*^9}}, CellLabel->"In[3]:=", CellID->709849478], Cell["Invalid argument count:", "Text", CellChangeTimes->{{3.756064736905311*^9, 3.7560647400902243`*^9}}, CellID->47095844], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"StringFunction", "[", " ", "args___", " ", "]"}], " ", ":=", " ", RowBox[{"Null", " ", "/;", " ", RowBox[{"(", "\n", " ", RowBox[{"And", "[", " ", RowBox[{ RowBox[{ RowBox[{"Length", " ", "@", " ", RowBox[{"HoldComplete", " ", "@", " ", "args"}]}], " ", "=!=", " ", "1"}], ",", "\n", " ", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", " ", "\n", " ", RowBox[{ RowBox[{"StringFunction", "::", "argx"}], ",", " ", "\n", " ", "StringFunction", ",", "\n", " ", RowBox[{"Length", " ", "@", " ", RowBox[{"HoldComplete", " ", "@", " ", "args"}]}]}], "\n", " ", "]"}], ";", "\n", " ", "False"}]}], "\n", " ", "]"}], "\n", ")"}]}]}], ";"}]], "Code", CellChangeTimes->{{3.7560645186118727`*^9, 3.756064523546728*^9}, { 3.7560645642095013`*^9, 3.756064700292412*^9}, {3.756064824037675*^9, 3.7560649272935925`*^9}, {3.7560655776501236`*^9, 3.756065586549856*^9}, { 3.7560694753688593`*^9, 3.7560694876994867`*^9}, 3.756069520750492*^9, { 3.756073463414029*^9, 3.7560734653229713`*^9}}, CellLabel->"In[1]:=", CellID->154846196], Cell["Invalid arguments:", "Text", CellChangeTimes->{{3.7560647144659905`*^9, 3.7560647170988874`*^9}}, CellID->132372696], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringFunction", "[", " ", "f_", " ", "]"}], "[", " ", RowBox[{ RowBox[{"other", ":", " ", RowBox[{"Except", "[", " ", RowBox[{"_", "?", " ", "validQ"}], " ", "]"}]}], ",", " ", "args___"}], " ", "]"}], " ", ":=", " ", RowBox[{"Null", " ", "/;", " ", RowBox[{"(", "\n", " ", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", " ", "\"\\"", " ", "]"}], "[", " ", "\n", " ", RowBox[{ RowBox[{"StringFunction", "::", "strse"}], ",", " ", "\n", " ", RowBox[{"HoldForm", " ", "@", " ", RowBox[{ RowBox[{"StringFunction", "[", " ", "f", " ", "]"}], "[", " ", "other", " ", "]"}]}]}], "\n", " ", "]"}], ";", "\n", " ", "False"}], "\n", ")"}]}]}], ";"}]], "Code", CellChangeTimes->{{3.7560645186118727`*^9, 3.756064523546728*^9}, { 3.7560645642095013`*^9, 3.756064700292412*^9}, {3.7560695030080285`*^9, 3.7560695079258795`*^9}, {3.7560734669199247`*^9, 3.756073468468892*^9}}, CellLabel->"In[2]:=", CellID->207594605] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Dependencies", "Subsection", CellChangeTimes->{{3.756065497098544*^9, 3.7560654985225277`*^9}}, CellLabel->"In[3]:=", CellID->413766183], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"validQ", "[", " ", "arg_", " ", "]"}], " ", ":=", "\n", " ", RowBox[{"MatchQ", "[", " ", RowBox[{ RowBox[{"Flatten", " ", "@", " ", RowBox[{"List", " ", "@", " ", "arg"}]}], ",", " ", "\n", " ", RowBox[{"{", " ", RowBox[{"___String", "?", " ", "StringQ"}], " ", "}"}]}], "\n", " ", "]"}]}], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{"validQ", "[", " ", "___", " ", "]"}], " ", ":=", "\n", " ", "False"}], ";"}]}], "Code", CellChangeTimes->{{3.7560655006674643`*^9, 3.756065568516424*^9}, { 3.75606560963318*^9, 3.7560656204518647`*^9}}, CellLabel->"In[1]:=", CellID->27700573] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellLabel->"In[3]:=", CellID->694807545], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", StyleBox["f", "TI"], "]"}], "[", RowBox[{ StyleBox["string", "TI"], ",", StyleBox["\[Ellipsis]", "TR"]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.7560640247407074`*^9, 3.756064039432254*^9}, 3.756073469699855*^9}, CellTags->"TabNext", CellID->157543866], Cell[TextData[{ "applies ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to the characters in ", Cell[BoxData[ StyleBox["string", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellChangeTimes->{{3.7560640777461176`*^9, 3.7560641014514103`*^9}, { 3.7586526075376053`*^9, 3.7586526104361467`*^9}, {3.758652647158794*^9, 3.758652670571396*^9}}, CellTags->"TabNext", CellID->231889230] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellLabel->"In[1]:=", CellID->29639701], Cell[CellGroupData[{ Cell[TextData[{ "The function ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " should return a string or a list of strings when given a list of \ characters." }], "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756072229970091*^9, 3.756072254284358*^9}, { 3.7586527375365334`*^9, 3.758652751586296*^9}}, CellTags->"TabNext", CellID->521904482], Cell[TextData[{ "If ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " returns a list, the output is joined into a single string." }], "Notes", CellChangeTimes->{{3.756072268830943*^9, 3.756072294595149*^9}, { 3.75607233821284*^9, 3.7560723382188387`*^9}}, CellID->164540], Cell[TextData[{ Cell[BoxData[ RowBox[{"StringFunction", "[", StyleBox["f", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is automatically threaded over lists, as if it had the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Listable", "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/Listable"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " attribute." }], "Notes", CellChangeTimes->{{3.756072268830943*^9, 3.756072294595149*^9}, { 3.7560723395598183`*^9, 3.7560723658020096`*^9}, {3.7560734707048097`*^9, 3.7560734707048097`*^9}, {3.7586527823779182`*^9, 3.7586528247063017`*^9}}, CellID->467013871] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ Example groups can optionally be delimited by inserting page breaks between \ them (affects example count on documentation page).\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellLabel->"In[1]:=", CellID->462042388], Cell["Use a function meant for lists on a string:", "Text", CellChangeTimes->{{3.7560641354813814`*^9, 3.756064140920225*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "Reverse", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7560641230437384`*^9, 3.7560641306355352`*^9}, 3.7560734715587845`*^9}, CellLabel->"In[1]:=", CellID->443871870], Cell[BoxData["\<\"dlroW olleH\"\>"], "Output", CellChangeTimes->{3.7560641447700825`*^9, 3.756064998987417*^9, 3.756065715500998*^9, 3.7560667027083063`*^9, 3.756068165529215*^9, 3.7560682532635784`*^9, 3.756069666492115*^9, 3.756071786124426*^9, 3.756072968361905*^9, 3.7560731491714706`*^9, 3.7560735179333634`*^9}, CellLabel->"Out[1]=", CellID->208710299] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->366188871], Cell["Create new string functions from existing functions:", "Text", CellChangeTimes->{{3.756064172001286*^9, 3.7560641829929676`*^9}}, CellID->665994666], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyStringSelect", "=", RowBox[{"StringFunction", "[", "Select", "]"}]}]], "Input", CellChangeTimes->{{3.7560641879117885`*^9, 3.7560641926506667`*^9}, { 3.7560724269791746`*^9, 3.75607242717017*^9}, 3.756073472278781*^9}, CellLabel->"In[1]:=", CellID->334391270], Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"\[EmptyCircle]\"\>", StripOnInput->False, ShowStringCharacters->False, FontSize->1.2 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], FontColor->RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`]], StyleBox["\<\"StringFunction\"\>", StripOnInput->False, ShowAutoStyles->False, ShowStringCharacters->False, FontFamily->"Roboto", FontSize->0.9 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], FontColor->RGBColor[ 0.2784313725490196, 0.2784313725490196, 0.2784313725490196]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}}], "Grid"], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {2, 2}}, FrameStyle->Directive[ Thickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["StringFunction"], Selectable->False], "[", "Select", "]"}]], "Output", CellChangeTimes->{3.756065003898288*^9, 3.7560657214588013`*^9, 3.756066703061293*^9, 3.7560681656672087`*^9, 3.7560682534055743`*^9, 3.7560696666831083`*^9, 3.7560717862504225`*^9, 3.7560724330799866`*^9, 3.756072972603791*^9, 3.7560731493124666`*^9, 3.7560735180573587`*^9}, CellLabel->"Out[1]=", CellID->4490481] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyStringSelect", "[", RowBox[{"\"\\"", ",", "LowerCaseQ"}], "]"}]], "Input", CellChangeTimes->{{3.756065006322225*^9, 3.7560650138839884`*^9}, 3.756072430119076*^9}, CellLabel->"In[2]:=", CellID->349077401], Cell[BoxData["\<\"elloorld\"\>"], "Output", CellChangeTimes->{3.756065015690915*^9, 3.7560657216088147`*^9, 3.7560667031933146`*^9, 3.7560681657732067`*^9, 3.7560682535005713`*^9, 3.756069666844104*^9, 3.75607178632942*^9, 3.756072433216981*^9, 3.7560729752516966`*^9, 3.7560731493744636`*^9, 3.756073518173357*^9}, CellLabel->"Out[2]=", CellID->223284928] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->435407042], Cell["Rotate a string:", "Text", CellChangeTimes->{{3.7560651983784523`*^9, 3.7560652004423847`*^9}}, CellID->101245653], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "RotateLeft", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7560650830899153`*^9, 3.7560651216427574`*^9}, 3.756073472974742*^9}, CellLabel->"In[1]:=", CellID->178737646], Cell[BoxData["\<\"ello WorldH\"\>"], "Output", CellChangeTimes->{3.756063946658055*^9, 3.75606512527664*^9, 3.756065728616604*^9, 3.7560667037462735`*^9, 3.7560681658792048`*^9, 3.756068253604568*^9, 3.7560696670130987`*^9, 3.7560717864454165`*^9, 3.756072989209277*^9, 3.7560731494814615`*^9, 3.75607351840635*^9}, CellLabel->"Out[1]=", CellID->59714152] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "RotateRight", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.756069679621724*^9, 3.7560696807486877`*^9}, 3.756073473590725*^9}, CellLabel->"In[2]:=", CellID->176467414], Cell[BoxData["\<\"dHello Worl\"\>"], "Output", CellChangeTimes->{3.7560696890724373`*^9, 3.7560717865354147`*^9, 3.756072990146249*^9, 3.756073149565459*^9, 3.756073518507346*^9}, CellLabel->"Out[2]=", CellID->199667282] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->209667118], Cell["Get a random permutation of a string:", "Text", CellChangeTimes->{{3.756065208258129*^9, 3.756065221563754*^9}}, CellID->367123194], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "RandomSample", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7560651852028418`*^9, 3.756065187970741*^9}, 3.756073474093708*^9}, CellLabel->"In[1]:=", CellID->10330184], Cell[BoxData["\<\"lHW rolldoe\"\>"], "Output", CellChangeTimes->{3.7560651896497145`*^9, 3.7560652260156116`*^9, 3.7560657290395737`*^9, 3.7560667041502604`*^9, 3.7560681659992*^9, 3.756068253735564*^9, 3.756069667152095*^9, 3.7560717866464105`*^9, 3.7560729928201694`*^9, 3.7560731497384524`*^9, 3.756073518674342*^9}, CellLabel->"Out[1]=", CellID->1527730] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->333353209], Cell["Replace all vowels:", "Text", CellChangeTimes->{{3.756065297274479*^9, 3.7560653016823225`*^9}}, CellID->126820850], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", RowBox[{"ReplaceAll", "[", RowBox[{ RowBox[{ "\"\\"", "|", "\"\\"", "|", "\"\\"", "|", "\"\\"", "|", "\"\\""}], "\[Rule]", "\"\\""}], "]"}], "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7560652450290403`*^9, 3.7560652780790577`*^9}, 3.75607347466269*^9}, CellLabel->"In[1]:=", CellID->68704188], Cell[BoxData["\<\"HXllX WXrld\"\>"], "Output", CellChangeTimes->{3.756065283776861*^9, 3.756065737034335*^9, 3.756066704483276*^9, 3.7560681660851974`*^9, 3.7560682538625584`*^9, 3.75606966729609*^9, 3.756071786773405*^9, 3.7560729952790947`*^9, 3.7560731499504466`*^9, 3.756073518803338*^9}, CellLabel->"Out[1]=", CellID->574868715] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->939223204], Cell["Insert spaces between each letter:", "Text", CellChangeTimes->{{3.7560706618452063`*^9, 3.756070670796938*^9}}, CellID->514531209], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "StringRiffle", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7560706508535357`*^9, 3.756070653331461*^9}, 3.756073475496666*^9}, CellLabel->"In[1]:=", CellID->59476235], Cell[BoxData["\<\"H e l l o W o r l d\"\>"], "Output", CellChangeTimes->{{3.756070654691422*^9, 3.7560706767747583`*^9}, 3.7560717868684034`*^9, 3.756072997795019*^9, 3.7560731500474443`*^9, 3.7560735189233327`*^9}, CellLabel->"Out[1]=", CellID->4481573] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->6947720], Cell["And many more:", "Text", CellChangeTimes->{{3.756071525126296*^9, 3.7560715289091573`*^9}}, CellID->723358548], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "Delete", "]"}], "[", RowBox[{"\"\\"", ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.7560713881924076`*^9, 3.756071437639899*^9}, 3.7560734761266613`*^9}, CellLabel->"In[1]:=", CellID->261810641], Cell[BoxData["\<\"abde\"\>"], "Output", CellChangeTimes->{{3.7560714206164093`*^9, 3.756071438966859*^9}, 3.756071743854697*^9, 3.7560717870613956`*^9, 3.756073000762931*^9, 3.7560731501494417`*^9, 3.75607351905833*^9}, CellLabel->"Out[1]=", CellID->381249287] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "Drop", "]"}], "[", RowBox[{"\"\\"", ",", "6"}], "]"}]], "Input", CellChangeTimes->{{3.7560714764387503`*^9, 3.756071512970637*^9}, 3.7560734768566265`*^9}, CellLabel->"In[2]:=", CellID->18412459], Cell[BoxData["\<\"do it!\"\>"], "Output", CellChangeTimes->{{3.7560714803946133`*^9, 3.7560715136096153`*^9}, 3.756071743977693*^9, 3.7560717871523952`*^9, 3.7560730020708904`*^9, 3.756073150229439*^9, 3.7560735191493273`*^9}, CellLabel->"Out[2]=", CellID->74961880] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "Union", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7560715672730026`*^9, 3.7560715744707904`*^9}, 3.7560734775116067`*^9}, CellLabel->"In[3]:=", CellID->917551892], Cell[BoxData["\<\" aghinrst\"\>"], "Output", CellChangeTimes->{3.756071575062767*^9, 3.7560717441136885`*^9, 3.756071787236393*^9, 3.756073003567847*^9, 3.7560731503144364`*^9, 3.7560735192343245`*^9}, CellLabel->"Out[3]=", CellID->409483889] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "DeleteDuplicates", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7560716037099323`*^9, 3.756071605455857*^9}, 3.7560734781515875`*^9}, CellLabel->"In[4]:=", CellID->172344810], Cell[BoxData["\<\"this arng\"\>"], "Output", CellChangeTimes->{3.756071606806815*^9, 3.7560717441986847`*^9, 3.7560717873143897`*^9, 3.7560730048508067`*^9, 3.7560731504524326`*^9, 3.7560735193123217`*^9}, CellLabel->"Out[4]=", CellID->129665919] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "Sort", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7560716317830677`*^9, 3.7560716324540453`*^9}, 3.756073478758569*^9}, CellLabel->"In[5]:=", CellID->50129405], Cell[BoxData["\<\" aghiiinrssstt\"\>"], "Output", CellChangeTimes->{3.756071632827033*^9, 3.756071744290683*^9, 3.756071787400388*^9, 3.7560730060507708`*^9, 3.7560731505304284`*^9, 3.756073519411318*^9}, CellLabel->"Out[5]=", CellID->122335379] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "Permutations", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.756071647686589*^9, 3.756071661838163*^9}, { 3.756071720269409*^9, 3.7560717255342493`*^9}, 3.756073479278553*^9}, CellLabel->"In[6]:=", CellID->177946196], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"abcd\"\>", ",", "\<\"abdc\"\>", ",", "\<\"acbd\"\>", ",", "\<\"acdb\"\>", ",", "\<\"adbc\"\>", ",", "\<\"adcb\"\>", ",", "\<\"bacd\"\>", ",", "\<\"badc\"\>", ",", "\<\"bcad\"\>", ",", "\<\"bcda\"\>", ",", "\<\"bdac\"\>", ",", "\<\"bdca\"\>", ",", "\<\"cabd\"\>", ",", "\<\"cadb\"\>", ",", "\<\"cbad\"\>", ",", "\<\"cbda\"\>", ",", "\<\"cdab\"\>", ",", "\<\"cdba\"\>", ",", "\<\"dabc\"\>", ",", "\<\"dacb\"\>", ",", "\<\"dbac\"\>", ",", "\<\"dbca\"\>", ",", "\<\"dcab\"\>", ",", "\<\"dcba\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.7560716552833586`*^9, 3.756071662268149*^9}, { 3.756071721001384*^9, 3.7560717443706803`*^9}, 3.7560717874853845`*^9, 3.7560730070977397`*^9, 3.756073150641426*^9, 3.7560735195303164`*^9}, CellLabel->"Out[6]=", CellID->37618445] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "Subsets", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7560716810305867`*^9, 3.756071716225529*^9}, 3.7560734797655582`*^9}, CellLabel->"In[7]:=", CellID->142033729], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"\"\>", ",", "\<\"s\"\>", ",", "\<\"t\"\>", ",", "\<\"r\"\>", ",", "\<\"i\"\>", ",", "\<\"n\"\>", ",", "\<\"g\"\>", ",", "\<\"st\"\>", ",", "\<\"sr\"\>", ",", "\<\"si\"\>", ",", "\<\"sn\"\>", ",", "\<\"sg\"\>", ",", "\<\"tr\"\>", ",", "\<\"ti\"\>", ",", "\<\"tn\"\>", ",", "\<\"tg\"\>", ",", "\<\"ri\"\>", ",", "\<\"rn\"\>", ",", "\<\"rg\"\>", ",", "\<\"in\"\>", ",", "\<\"ig\"\>", ",", "\<\"ng\"\>", ",", "\<\"str\"\>", ",", "\<\"sti\"\>", ",", "\<\"stn\"\>", ",", "\<\"stg\"\>", ",", "\<\"sri\"\>", ",", "\<\"srn\"\>", ",", "\<\"srg\"\>", ",", "\<\"sin\"\>", ",", "\<\"sig\"\>", ",", "\<\"sng\"\>", ",", "\<\"tri\"\>", ",", "\<\"trn\"\>", ",", "\<\"trg\"\>", ",", "\<\"tin\"\>", ",", "\<\"tig\"\>", ",", "\<\"tng\"\>", ",", "\<\"rin\"\>", ",", "\<\"rig\"\>", ",", "\<\"rng\"\>", ",", "\<\"ing\"\>", ",", "\<\"stri\"\>", ",", "\<\"strn\"\>", ",", "\<\"strg\"\>", ",", "\<\"stin\"\>", ",", "\<\"stig\"\>", ",", "\<\"stng\"\>", ",", "\<\"srin\"\>", ",", "\<\"srig\"\>", ",", "\<\"srng\"\>", ",", "\<\"sing\"\>", ",", "\<\"trin\"\>", ",", "\<\"trig\"\>", ",", "\<\"trng\"\>", ",", "\<\"ting\"\>", ",", "\<\"ring\"\>", ",", "\<\"strin\"\>", ",", "\<\"strig\"\>", ",", "\<\"strng\"\>", ",", "\<\"sting\"\>", ",", "\<\"sring\"\>", ",", "\<\"tring\"\>", ",", "\<\"string\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.75607168253354*^9, 3.756071744476677*^9}, 3.7560717875803823`*^9, 3.7560730128265676`*^9, 3.7560731507064247`*^9, 3.756073519644313*^9}, CellLabel->"Out[7]=", CellID->21166964] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "Gather", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.756071698223072*^9, 3.756071703811898*^9}, 3.7560734802785206`*^9}, CellLabel->"In[8]:=", CellID->348976827], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"tt\"\>", ",", "\<\"h\"\>", ",", "\<\"iii\"\>", ",", "\<\"sss\"\>", ",", "\<\" \"\>", ",", "\<\"a\"\>", ",", "\<\"r\"\>", ",", "\<\"n\"\>", ",", "\<\"g\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.7560716996690245`*^9, 3.756071704650874*^9}, 3.756071744570675*^9, 3.7560717876763783`*^9, 3.7560730181094093`*^9, 3.756073150782421*^9, 3.7560735198013077`*^9}, CellLabel->"Out[8]=", CellID->450729066] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellLabel->"In[9]:=", CellID->964056545], Cell[TextData[{ "Functions created by ", Cell[BoxData["StringFunction"], "InlineFormula", FontFamily->"Source Sans Pro"], " behave as though they were ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Listable", "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/Listable"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.756065758695711*^9, 3.7560657736242623`*^9}, { 3.7560723925752087`*^9, 3.7560724022709136`*^9}, {3.7560734808305054`*^9, 3.7560734808305054`*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyStringReverse", "=", RowBox[{"StringFunction", "[", "Reverse", "]"}]}]], "Input", CellChangeTimes->{{3.7560724115456367`*^9, 3.7560724191584325`*^9}, 3.756073481557483*^9}, CellLabel->"In[1]:=", CellID->229823540], Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"\[EmptyCircle]\"\>", StripOnInput->False, ShowStringCharacters->False, FontSize->1.2 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], FontColor->RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`]], StyleBox["\<\"StringFunction\"\>", StripOnInput->False, ShowAutoStyles->False, ShowStringCharacters->False, FontFamily->"Roboto", FontSize->0.9 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], FontColor->RGBColor[ 0.2784313725490196, 0.2784313725490196, 0.2784313725490196]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}}], "Grid"], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {2, 2}}, FrameStyle->Directive[ Thickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["StringFunction"], Selectable->False], "[", "Reverse", "]"}]], "Output", CellChangeTimes->{3.756072449656489*^9, 3.756073043475647*^9, 3.756073151026415*^9, 3.7560735199983015`*^9}, CellLabel->"Out[1]=", CellID->536067346] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyStringReverse", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7560657888448095`*^9, 3.7560658188669014`*^9}, 3.7560724100396833`*^9, 3.756072452442405*^9}, CellLabel->"In[2]:=", CellID->836153427], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"tac\"\>", ",", "\<\"god\"\>", ",", "\<\"hsif\"\>", ",", "\<\"etaretneleoc\"\>"}], "}"}]], "Output", CellChangeTimes->{3.7560658202638364`*^9, 3.7560665750791388`*^9, 3.756066705168233*^9, 3.7560681662241926`*^9, 3.756068257808441*^9, 3.7560717879263725`*^9, 3.7560724556923075`*^9, 3.756073043567643*^9, 3.7560731510914125`*^9, 3.7560735201082983`*^9}, CellLabel->"Out[2]=", CellID->552781101] }, Open ]], Cell["This is similar to many of the built-in string functions:", "Text", CellChangeTimes->{{3.756073032438978*^9, 3.756073040143747*^9}}, CellID->446570698], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StringReverse", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.756072462371107*^9, 3.7560724659629993`*^9}}, CellLabel->"In[3]:=", CellID->795307080], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"tac\"\>", ",", "\<\"god\"\>", ",", "\<\"hsif\"\>", ",", "\<\"etaretneleoc\"\>"}], "}"}]], "Output", CellChangeTimes->{3.75607246729396*^9, 3.7560730436606407`*^9, 3.756073151154411*^9, 3.7560735202092953`*^9}, CellLabel->"Out[3]=", CellID->266818263] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->71648755], Cell[TextData[{ "Use a custom function in ", Cell[BoxData["StringFunction"], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.756066018610902*^9, 3.756066028379581*^9}, { 3.7560734823754764`*^9, 3.7560734823754764`*^9}}, CellID->97598071], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"randomStartsWith", "[", "c_", "]"}], ":=", RowBox[{ RowBox[{"RandomChoice", "[", RowBox[{"DictionaryLookup", "[", RowBox[{"c", "~~", "__"}], "]"}], "]"}], "<>", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{"standsFor", "=", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"#", ",", "\"\< stands for:\\n\>\"", ",", RowBox[{ RowBox[{"StringFunction", "[", RowBox[{"Map", "[", "randomStartsWith", "]"}], "]"}], "[", "#", "]"}]}], "}"}], "]"}], "&"}]}]}], "Input", CellChangeTimes->{{3.7560725035138707`*^9, 3.7560725172244625`*^9}, { 3.756072552042413*^9, 3.756072570304866*^9}, 3.756073482982442*^9, { 3.7560735958320265`*^9, 3.7560736683278475`*^9}}, CellLabel->"In[1]:=", CellID->283786393], Cell[BoxData[ RowBox[{ TemplateBox[{"#1","\" stands for:\\n\"",RowBox[{ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[EmptyCircle]\"", FontSize -> 1.2 Inherited, ShowStringCharacters -> False, FontColor -> RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`], FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], StripOnInput -> False], StyleBox[ "\"StringFunction\"", FontColor -> RGBColor[ 0.2784313725490196, 0.2784313725490196, 0.2784313725490196], ShowAutoStyles -> False, ShowStringCharacters -> False, FontFamily -> "Roboto", FontSize -> 0.9 Inherited, FontWeight -> Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], Background -> RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding -> False, FrameMargins -> {{3, 4}, {2, 2}}, FrameStyle -> Directive[ Thickness[1], RGBColor[ 0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius -> 3, StripOnInput -> False, Selectable -> False], ResourceFunction["StringFunction"], Selectable -> False], "[", RowBox[{"Map", "[", "randomStartsWith", "]"}], "]"}], "[", "#1", "]"}]}, "RowDefault"], "&"}]], "Output", CellChangeTimes->{{3.756072573369773*^9, 3.7560725807365494`*^9}, 3.7560730487184887`*^9, 3.7560731513374057`*^9, 3.7560735203502913`*^9, { 3.7560735520133395`*^9, 3.756073583775386*^9}, {3.756073653202299*^9, 3.7560737244801574`*^9}}, CellLabel->"Out[2]=", CellID->161656360] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"standsFor", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{ 3.75606618769182*^9, {3.7560662615695934`*^9, 3.7560663293105636`*^9}, { 3.7560664963555183`*^9, 3.756066498007469*^9}, 3.7560725215803275`*^9, 3.756072576808668*^9, {3.7560736578661633`*^9, 3.7560736771995773`*^9}}, CellLabel->"In[3]:=", CellID->699552180], Cell[BoxData[ TemplateBox[{ "\"string\"","\" stands for:\\n\"", "\"skepticism! tribunal! raids! indulged! nougats! griddles! \""}, "RowDefault"]], "Output", CellChangeTimes->{ 3.756066189213747*^9, {3.756066267091408*^9, 3.7560664480709944`*^9}, 3.7560665009663796`*^9, {3.7560665367853327`*^9, 3.7560665615665865`*^9}, 3.7560667054142227`*^9, 3.75606816644919*^9, 3.7560682580054407`*^9, 3.756071788238363*^9, 3.75607252617519*^9, 3.756072580886546*^9, 3.7560730488384852`*^9, 3.756073151456402*^9, 3.756073520506291*^9, { 3.7560735521913376`*^9, 3.756073583902382*^9}, {3.756073659944098*^9, 3.7560737246151543`*^9}}, CellLabel->"Out[3]=", CellID->479979478] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->670099024], Cell["\<\ If the given function produces nested lists of strings, the list structure \ will be preserved:\ \>", "Text", CellChangeTimes->{{3.756069751148574*^9, 3.75606975963032*^9}, { 3.7560698350680504`*^9, 3.7560698526285243`*^9}, {3.756073102567872*^9, 3.7560731115926*^9}}, CellID->735294674], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"List", ",", "#", ",", "#"}], "]"}], "&"}], "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.756069736175025*^9, 3.7560697415578628`*^9}, { 3.75606979319431*^9, 3.7560697937493105`*^9}, {3.75606987439987*^9, 3.756069874546865*^9}, {3.7560699056429324`*^9, 3.7560699452367563`*^9}, 3.75607005576042*^9, {3.7560700919633346`*^9, 3.7560700921093283`*^9}, 3.7560732727057576`*^9, 3.7560734836464205`*^9}, CellLabel->"In[1]:=", CellID->402981725], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"oo\"\>", ",", "\<\"oo\"\>", ",", "\<\"oe\"\>", ",", "\<\"or\"\>", ",", "\<\"o!\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"oo\"\>", ",", "\<\"oo\"\>", ",", "\<\"oe\"\>", ",", "\<\"or\"\>", ",", "\<\"o!\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"eo\"\>", ",", "\<\"eo\"\>", ",", "\<\"ee\"\>", ",", "\<\"er\"\>", ",", "\<\"e!\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ro\"\>", ",", "\<\"ro\"\>", ",", "\<\"re\"\>", ",", "\<\"rr\"\>", ",", "\<\"r!\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"!o\"\>", ",", "\<\"!o\"\>", ",", "\<\"!e\"\>", ",", "\<\"!r\"\>", ",", "\<\"!!\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.75606976340322*^9, 3.756069794373274*^9, {3.7560698574593773`*^9, 3.756069945746725*^9}, 3.756070056261405*^9, 3.756070094177265*^9, 3.7560702213584433`*^9, 3.7560705089288025`*^9, 3.756071788358359*^9, 3.756073059112177*^9, 3.756073151552399*^9, 3.756073277493616*^9, 3.75607352071328*^9}, CellLabel->"Out[1]=", CellID->137294642] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->420930125], Cell[TextData[{ "Characters are separated using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Characters", "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/Characters"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " instead of byte values, so encoding is preserved:" }], "Text", CellChangeTimes->{{3.756069751148574*^9, 3.75606975963032*^9}, { 3.7560698350680504`*^9, 3.7560698526285243`*^9}, {3.7560704703249645`*^9, 3.756070498946103*^9}}, CellID->127332978], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", RowBox[{"StringRiffle", "@*", "CharacterName"}], "]"}], "[", "\"\<\:732b\:9ce5\:72ac\>\"", "]"}]], "Input", CellChangeTimes->{{3.756069736175025*^9, 3.7560697415578628`*^9}, { 3.75606979319431*^9, 3.7560697937493105`*^9}, {3.75606987439987*^9, 3.756069874546865*^9}, {3.7560699056429324`*^9, 3.7560699452367563`*^9}, 3.75607005576042*^9, {3.7560700919633346`*^9, 3.7560700921093283`*^9}, { 3.756070249883587*^9, 3.7560702889494123`*^9}, {3.7560703197954865`*^9, 3.7560703792607*^9}, {3.756070417554549*^9, 3.7560704200014753`*^9}, 3.756073484223404*^9}, CellLabel->"In[1]:=", CellID->268335531], Cell[BoxData["\<\"CJKUnifiedIdeograph732B CJKUnifiedIdeograph9CE5 \ CJKUnifiedIdeograph72AC\"\>"], "Output", CellChangeTimes->{ 3.75606976340322*^9, 3.756069794373274*^9, {3.7560698574593773`*^9, 3.756069945746725*^9}, 3.756070056261405*^9, 3.756070094177265*^9, 3.7560702213584433`*^9, {3.756070362888191*^9, 3.7560703807526536`*^9}, 3.756070420611457*^9, 3.756070509091797*^9, 3.756071788477355*^9, 3.756073118235401*^9, 3.756073151645396*^9, 3.7560735208912745`*^9}, CellLabel->"Out[1]=", CellID->39902402] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellLabel->"In[1]:=", CellID->754506620], Cell["The given function is applied to a list of strings:", "Text", CellChangeTimes->{{3.7560720809265723`*^9, 3.7560720942261715`*^9}}, CellID->8862120], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", RowBox[{"ToString", "@*", "ListQ"}], "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.756072053022406*^9, 3.756072064870051*^9}, 3.756073484815405*^9}, CellLabel->"In[1]:=", CellID->18001411], Cell[BoxData["\<\"True\"\>"], "Output", CellChangeTimes->{{3.7560720587412357`*^9, 3.7560720655780306`*^9}, 3.7560721079997544`*^9, {3.7560731229252596`*^9, 3.7560731520763836`*^9}, 3.756073521200266*^9}, CellLabel->"Out[1]=", CellID->224254256] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", RowBox[{"ToString", "@*", "StringQ"}], "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.756072073024811*^9, 3.756072074016781*^9}, 3.7560734853753867`*^9}, CellLabel->"In[2]:=", CellID->645385439], Cell[BoxData["\<\"False\"\>"], "Output", CellChangeTimes->{ 3.756072074549761*^9, 3.7560721081157503`*^9, {3.756073123013256*^9, 3.756073152148381*^9}, 3.756073521299263*^9}, CellLabel->"Out[2]=", CellID->146156711] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->55349951], Cell[TextData[{ Cell[BoxData["StringFunction"], "InlineFormula", FontFamily->"Source Sans Pro"], " applies ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to ", Cell[BoxData[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Characters", "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/Characters"], MouseAppearanceTag["LinkHand"]], "[", StyleBox["string", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " and joins the result:" }], "Text", CellChangeTimes->{{3.756065893546636*^9, 3.756065894682626*^9}, { 3.7560659412411976`*^9, 3.7560659807350407`*^9}, {3.7560734860313497`*^9, 3.7560734860313497`*^9}}, CellID->216038366], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "Echo", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7560658974675145`*^9, 3.7560659135640564`*^9}, 3.756073486743327*^9}, CellLabel->"In[1]:=", CellID->16709128], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"e\"\>", ",", "\<\"l\"\>", ",", "\<\"l\"\>", ",", "\<\"o\"\>", ",", "\<\" \"\>", ",", "\<\"W\"\>", ",", "\<\"o\"\>", ",", "\<\"r\"\>", ",", "\<\"l\"\>", ",", "\<\"d\"\>"}], "}"}]], "Echo", CellChangeTimes->{3.756073521553254*^9}, CellID->325255427], Cell[BoxData["\<\"Hello World\"\>"], "Output", CellChangeTimes->{ 3.756065914404004*^9, 3.7560659891497855`*^9, 3.75606661250604*^9, 3.756066706614212*^9, 3.756068189152505*^9, 3.7560682638432612`*^9, 3.75607052333037*^9, 3.7560717888013444`*^9, {3.756073126851141*^9, 3.756073152296377*^9}, 3.756073521564254*^9}, CellLabel->"Out[1]=", CellID->504747911] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", RowBox[{"Map", "[", "Echo", "]"}], "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.756066598244466*^9, 3.756066604477281*^9}, 3.756073487406308*^9}, CellLabel->"In[2]:=", CellID->357909886], Cell[CellGroupData[{ Cell[BoxData["\<\"a\"\>"], "Echo", CellChangeTimes->{3.756073521732249*^9}, CellID->420182526], Cell[BoxData["\<\"b\"\>"], "Echo", CellChangeTimes->{3.75607352174125*^9}, CellID->22377294], Cell[BoxData["\<\"c\"\>"], "Echo", CellChangeTimes->{3.7560735217792473`*^9}, CellID->254306644] }, Open ]], Cell[BoxData["\<\"abc\"\>"], "Output", CellChangeTimes->{{3.75606660625422*^9, 3.7560666130620112`*^9}, 3.7560667070361996`*^9, 3.7560681893984976`*^9, 3.7560682641452537`*^9, 3.756070523572362*^9, 3.75607178897834*^9, {3.756073127081135*^9, 3.756073152479371*^9}, 3.7560735218132477`*^9}, CellLabel->"Out[2]=", CellID->60063829] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellLabel->"In[3]:=", CellID->92483860], Cell[TextData[{ "The given ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " must produce a string or lists of strings from its output:" }], "Text", CellChangeTimes->{{3.756066744866037*^9, 3.756066764977461*^9}}, CellID->191765634], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", "ToCharacterCode", "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7560667716282625`*^9, 3.7560667803769693`*^9}, 3.7560734880453024`*^9}, CellLabel->"In[1]:=", CellID->258082118], Cell[BoxData[ TemplateBox[{ "ResourceFunction","usermessage", "\"\\!\\(\\*TagBox[GridBox[{{StyleBox[RowBox[{\\\"StringFunction\\\", \ \\\"::\\\", \\\"strings\\\"}], \\\"MessageName\\\"], \\\"\\\\\\\": \\\\\\\"\\\ \", \\\"\\\\\\\"String or list of strings expected instead of \\\\\\\\!\\\\\\\ \\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"{\\\\\\\\\\\\\\\", RowBox[{RowBox[{\\\\\\\ \\\\\\\\\"{\\\\\\\\\\\\\\\", \\\\\\\\\\\\\\\"97\\\\\\\\\\\\\\\", \\\\\\\\\\\\\ \\\"}\\\\\\\\\\\\\\\"}], \\\\\\\\\\\\\\\",\\\\\\\\\\\\\\\", \ RowBox[{\\\\\\\\\\\\\\\"{\\\\\\\\\\\\\\\", \ \\\\\\\\\\\\\\\"98\\\\\\\\\\\\\\\", \\\\\\\\\\\\\\\"}\\\\\\\\\\\\\\\"}], \\\\\ \\\\\\\\\\\",\\\\\\\\\\\\\\\", RowBox[{\\\\\\\\\\\\\\\"{\\\\\\\\\\\\\\\", \ \\\\\\\\\\\\\\\"99\\\\\\\\\\\\\\\", \\\\\\\\\\\\\\\"}\\\\\\\\\\\\\\\"}]}], \\\ \\\\\\\\\\\\\"}\\\\\\\\\\\\\\\"}]\\\\\\\\).\\\\\\\"\\\"}}, Rule[AutoDelete, \ False], Rule[GridBoxItemSize, List[Rule[\\\"Columns\\\", \ List[List[Automatic]]], Rule[\\\"Rows\\\", List[List[Automatic]]]]], \ Rule[GridBoxSpacings, List[Rule[\\\"Columns\\\", List[List[0]]]]]], \ \\\"Grid\\\"]\\)\"",2,1,4,31123617519152618569,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7560695700690107`*^9, 3.7560705329650803`*^9, 3.7560706066818657`*^9, 3.756071789212333*^9, {3.7560731318719907`*^9, 3.7560731526713653`*^9}, 3.75607352202124*^9}, CellLabel->"During evaluation of In[1]:=", CellID->547407580], Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"\[EmptyCircle]\"\>", StripOnInput->False, ShowStringCharacters->False, FontSize->1.2 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], FontColor->RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`]], StyleBox["\<\"StringFunction\"\>", StripOnInput->False, ShowAutoStyles->False, ShowStringCharacters->False, FontFamily->"Roboto", FontSize->0.9 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], FontColor->RGBColor[ 0.2784313725490196, 0.2784313725490196, 0.2784313725490196]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}}], "Grid"], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {2, 2}}, FrameStyle->Directive[ Thickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["StringFunction"], Selectable->False], "[", "ToCharacterCode", "]"}], "[", "\<\"abc\"\>", "]"}]], "Output", CellChangeTimes->{ 3.7560667877437754`*^9, 3.7560678351906023`*^9, 3.7560681974922543`*^9, 3.7560682692490983`*^9, 3.7560695700870123`*^9, 3.7560705329900784`*^9, 3.7560706066978645`*^9, 3.756071789230333*^9, {3.75607313188199*^9, 3.756073152686365*^9}, 3.7560735220372405`*^9}, CellLabel->"Out[1]=", CellID->939383281] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", RowBox[{"StringRiffle", "@*", RowBox[{"Map", "[", "ToString", "]"}], "@*", "Flatten", "@*", "ToCharacterCode"}], "]"}], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.75606962610833*^9, 3.756069628734274*^9}, { 3.75607055833632*^9, 3.756070596798163*^9}, 3.756073494681237*^9}, CellLabel->"In[2]:=", CellID->195304307], Cell[BoxData["\<\"97 98 99\"\>"], "Output", CellChangeTimes->{ 3.7560696319391537`*^9, 3.756070533082077*^9, {3.7560705657220964`*^9, 3.75607060682186*^9}, 3.7560717892593317`*^9, {3.756073131981985*^9, 3.7560731527243643`*^9}, 3.7560735220712395`*^9}, CellLabel->"Out[2]=", CellID->390337459] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->179871968], Cell[TextData[{ "Validity isn\[CloseCurlyQuote]t determined until evaluation of ", Cell[BoxData[ RowBox[{ RowBox[{"StringFunction", "[", StyleBox["\[Ellipsis]", "TR"], "]"}], "[", StyleBox["args", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.7560739443195567`*^9, 3.7560739882952332`*^9}, { 3.756074020994275*^9, 3.756074036087796*^9}}, CellID->751003640], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{"StringFunction", "[", "invalid", "]"}]}]], "Input", CellChangeTimes->{{3.756073971336743*^9, 3.7560739750406322`*^9}}, CellLabel->"In[1]:=", CellID->26497484], Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"\[EmptyCircle]\"\>", StripOnInput->False, ShowStringCharacters->False, FontSize->1.2 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], FontColor->RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`]], StyleBox["\<\"StringFunction\"\>", StripOnInput->False, ShowAutoStyles->False, ShowStringCharacters->False, FontFamily->"Roboto", FontSize->0.9 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], FontColor->RGBColor[ 0.2784313725490196, 0.2784313725490196, 0.2784313725490196]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}}], "Grid"], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {2, 2}}, FrameStyle->Directive[ Thickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["StringFunction"], Selectable->False], "[", "invalid", "]"}]], "Output", CellChangeTimes->{{3.7560739911211452`*^9, 3.7560740086876197`*^9}}, CellLabel->"Out[1]=", CellID->6389747] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.756073993285083*^9, 3.756073997288982*^9}}, CellLabel->"In[2]:=", CellID->349173017], Cell[BoxData[ TemplateBox[{ "ResourceFunction","usermessage", "\"\\!\\(\\*TagBox[GridBox[{{StyleBox[RowBox[{\\\"StringFunction\\\", \ \\\"::\\\", \\\"strings\\\"}], \\\"MessageName\\\"], \\\"\\\\\\\": \\\\\\\"\\\ \", \\\"\\\\\\\"String or list of strings expected instead of \\\\\\\\!\\\\\\\ \\(\\\\\\\\*RowBox[{\\\\\\\\\\\\\\\"invalid\\\\\\\\\\\\\\\", \ \\\\\\\\\\\\\\\"[\\\\\\\\\\\\\\\", RowBox[{\\\\\\\\\\\\\\\"{\\\\\\\\\\\\\\\", \ RowBox[{\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"o\\\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\"\\\\\\\\\\\\\\\", \\\\\\\\\\\\\\\",\\\\\\\\\\\\\\\", \\\\\\\\\\\\\ \\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"h\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\ \\\\\\\", \\\\\\\\\\\\\\\",\\\\\\\\\\\\\\\", \\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\" \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\", \\\\\\\\\\\ \\\\\",\\\\\\\\\\\\\\\", \ \\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"n\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\"\\\\\\\\\\\\\\\", \\\\\\\\\\\\\\\",\\\\\\\\\\\\\\\", \\\\\\\\\\\\\\\"\\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\"o\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\",\ \\\\\\\\\\\\\\\",\\\\\\\\\\\\\\\", \ \\\\\\\\\\\\\\\"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\"\\\\\\\\\\\\\\\"}], \\\\\\\\\\\\\\\"}\\\\\\\\\\\\\\\"}], \ \\\\\\\\\\\\\\\"]\\\\\\\\\\\\\\\"}]\\\\\\\\).\\\\\\\"\\\"}}, Rule[AutoDelete, \ False], Rule[GridBoxItemSize, List[Rule[\\\"Columns\\\", \ List[List[Automatic]]], Rule[\\\"Rows\\\", List[List[Automatic]]]]], \ Rule[GridBoxSpacings, List[Rule[\\\"Columns\\\", List[List[0]]]]]], \ \\\"Grid\\\"]\\)\"",2,2,6,31123617519152618569,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.756073997862945*^9, 3.7560740088146152`*^9}}, CellLabel->"During evaluation of In[2]:=", CellID->121306559], Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"\[EmptyCircle]\"\>", StripOnInput->False, ShowStringCharacters->False, FontSize->1.2 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], Bold, Plain]], FontColor->RGBColor[0.9882352941176471, 0.4, 0.25098039215686274`]], StyleBox["\<\"StringFunction\"\>", StripOnInput->False, ShowAutoStyles->False, ShowStringCharacters->False, FontFamily->"Roboto", FontSize->0.9 Inherited, FontWeight->Dynamic[ FEPrivate`If[ CurrentValue[Evaluatable], "DemiBold", Plain]], FontColor->RGBColor[ 0.2784313725490196, 0.2784313725490196, 0.2784313725490196]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Center}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}}], "Grid"], Selectable -> False, Background->RGBColor[ 0.9686274509803922, 0.9686274509803922, 0.9686274509803922], ContentPadding->False, FrameMargins->{{3, 4}, {2, 2}}, FrameStyle->Directive[ Thickness[1], RGBColor[0.8627450980392157, 0.8627450980392157, 0.8627450980392157]], RoundingRadius->3, StripOnInput->False], ResourceFunction["StringFunction"], Selectable->False], "[", "invalid", "]"}], "[", "\<\"oh no!\"\>", "]"}]], "Output", CellChangeTimes->{{3.7560739978819447`*^9, 3.7560740088346148`*^9}}, CellLabel->"Out[2]=", CellID->95465589] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", CellLabel->"In[3]:=", CellID->540091361], Cell["\<\ Create a scrolling marquee to experience that 90\[CloseCurlyQuote]s website \ nostalgia:\ \>", "Text", CellChangeTimes->{{3.7560708890643983`*^9, 3.756070893695242*^9}, { 3.756070956317361*^9, 3.7560709828045664`*^9}, {3.7560710645571065`*^9, 3.7560710701549406`*^9}}, CellID->145735921], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"scroll", "[", "text_String", "]"}], ":=", RowBox[{"ListAnimate", "[", RowBox[{"NestList", "[", RowBox[{ RowBox[{"StringFunction", "[", "RotateLeft", "]"}], ",", RowBox[{"text", "<>", "\"\< \>\""}], ",", RowBox[{"StringLength", "[", "text", "]"}]}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.756070809795763*^9, 3.756070878260706*^9}, 3.7560734958982*^9}, CellLabel->"In[1]:=", CellID->125481406], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Style", "[", RowBox[{ RowBox[{"scroll", "[", "\"\\"", "]"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "24"}], ",", RowBox[{"FontColor", "\[Rule]", "Purple"}]}], "]"}]], "Input", CellChangeTimes->{{3.7560706913983192`*^9, 3.7560707548224425`*^9}, { 3.756070790443344*^9, 3.7560707923382854`*^9}, {3.7560708403468447`*^9, 3.7560708515255303`*^9}, {3.7560709292551737`*^9, 3.756070950465536*^9}, { 3.756071000482049*^9, 3.7560710194694605`*^9}}, CellLabel->"In[2]:=", CellID->615730886], Cell[BoxData[ StyleBox[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`i20$$ = 11, Typeset`show$$ = True, Typeset`bookmarkList$$ = { "\"min\"" :> {$CellContext`i20$$ = 1}, "\"max\"" :> {$CellContext`i20$$ = 34}}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`i20$$], 1, ""}, 1, 34, 1}}, Typeset`size$$ = Automatic, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`i20$29050$$ = 0}, PaneBox[ PanelBox[ DynamicWrapperBox[GridBox[{ { ItemBox[ ItemBox[ TagBox[ StyleBox[GridBox[{ {"\<\"\"\>", AnimatorBox[Dynamic[$CellContext`i20$$], {1, 34, 1}, AnimationRate->Automatic, AnimationRunTime->0., AnimationTimeIndex->1.6176470588237706`, AppearanceElements->{ "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}, AutoAction->False, DisplayAllSteps->True]} }, AutoDelete->False, GridBoxAlignment->{ "Columns" -> {Right, {Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "ListAnimateLabel", StripOnInput->False], {"ControlArea", Top}], Alignment->{Automatic, Inherited}, StripOnInput->False], Background->None, StripOnInput->False]}, { ItemBox[ TagBox[ StyleBox[ PaneBox[ TagBox[ PaneSelectorBox[{ 1->"\<\"Welcome to my website about cats! \"\>", 2->"\<\"elcome to my website about cats! W\"\>", 3->"\<\"lcome to my website about cats! We\"\>", 4->"\<\"come to my website about cats! Wel\"\>", 5->"\<\"ome to my website about cats! Welc\"\>", 6->"\<\"me to my website about cats! Welco\"\>", 7->"\<\"e to my website about cats! Welcom\"\>", 8->"\<\" to my website about cats! Welcome\"\>", 9->"\<\"to my website about cats! Welcome \"\>", 10->"\<\"o my website about cats! Welcome t\"\>", 11->"\<\" my website about cats! Welcome to\"\>", 12->"\<\"my website about cats! Welcome to \"\>", 13->"\<\"y website about cats! Welcome to m\"\>", 14->"\<\" website about cats! Welcome to my\"\>", 15->"\<\"website about cats! Welcome to my \"\>", 16->"\<\"ebsite about cats! Welcome to my w\"\>", 17->"\<\"bsite about cats! Welcome to my we\"\>", 18->"\<\"site about cats! Welcome to my web\"\>", 19->"\<\"ite about cats! Welcome to my webs\"\>", 20->"\<\"te about cats! Welcome to my websi\"\>", 21->"\<\"e about cats! Welcome to my websit\"\>", 22->"\<\" about cats! Welcome to my website\"\>", 23->"\<\"about cats! Welcome to my website \"\>", 24->"\<\"bout cats! Welcome to my website a\"\>", 25->"\<\"out cats! Welcome to my website ab\"\>", 26->"\<\"ut cats! Welcome to my website abo\"\>", 27->"\<\"t cats! Welcome to my website abou\"\>", 28->"\<\" cats! Welcome to my website about\"\>", 29->"\<\"cats! Welcome to my website about \"\>", 30->"\<\"ats! Welcome to my website about c\"\>", 31->"\<\"ts! Welcome to my website about ca\"\>", 32->"\<\"s! Welcome to my website about cat\"\>", 33->"\<\"! Welcome to my website about cats\"\>", 34->"\<\" Welcome to my website about cats!\"\>"}, Dynamic[$CellContext`i20$$], Alignment->Automatic, BaseStyle->"ListAnimateCore", ImageSize->All, TransitionDirection->Horizontal, TransitionDuration->0.5, TransitionEffect->Automatic], Identity, Editable->True, Selectable->True], ImageMargins->10], Deployed->False, StripOnInput->False, ScriptLevel->0, GraphicsBoxOptions->{PreserveImageOptions->True}, Graphics3DBoxOptions->{PreserveImageOptions->True}], Identity, Editable->False, Selectable->False], Alignment->{Left, Center}, Background->GrayLevel[1], Frame->1, FrameStyle->GrayLevel[0, 0.2], ItemSize->Automatic, StripOnInput->False]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> { Offset[0.7], { Offset[0.5599999999999999]}, Offset[0.7]}, "Rows" -> { Offset[0.4], { Offset[0.8]}, Offset[0.4]}}], If[ And[ CurrentValue["NotebookSelected"], CurrentValue["SelectionOver"]], Manipulate`Dump`ReadControllerState[ Map[Manipulate`Dump`updateOneVar[#, CurrentValue["PreviousFormatTime"], CurrentValue["CurrentFormatTime"]]& , { Manipulate`Dump`controllerLink[{$CellContext`i20$$, \ $CellContext`i20$29050$$}, "X1", If["DefaultAbsolute", True, "JB1"], False, {1, 34, 1}, 34, 1.]}], CurrentValue[{ "ControllerData", { "Gamepad", "Joystick", "Multi-Axis Controller"}}], {}]], ImageSizeCache->{459., {47.75, 60.75}}], DefaultBaseStyle->{}, FrameMargins->{{5, 5}, {5, 5}}], BaselinePosition->Automatic, ImageMargins->0], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "ListAnimate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]], StripOnInput->False, FontFamily->"Comic Sans MS", FontSize->24, FontColor->RGBColor[0.5, 0, 0.5]]], "Output", CellChangeTimes->{{3.7560708655870843`*^9, 3.756070879981652*^9}, 3.75607095132151*^9, {3.7560710065868483`*^9, 3.7560710222613764`*^9}, 3.7560710774987183`*^9, 3.756071789474325*^9, {3.75607313615786*^9, 3.7560731530493526`*^9}, 3.756073522328232*^9}, CellLabel->"Out[2]=", CellID->347089210] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Name of the person, people or organization that should be publicly \ credited with contributing the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellLabel->"In[3]:=", CellID->757508554], Cell["Richard Hennigan (Wolfram Research)", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7560710893563633`*^9, 3.756071095146189*^9}}, CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource in \ search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellLabel->"In[1]:=", CellID->246422893], Cell[CellGroupData[{ Cell["strings", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756071099174083*^9, 3.7560711002430353`*^9}}, CellTags->"TabNext", CellID->123227828], Cell["string map", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756071099174083*^9, 3.7560711022899733`*^9}}, CellID->307345847], Cell["string function", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756071099174083*^9, 3.7560711045909057`*^9}}, CellID->597677416], Cell["string select", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756071099174083*^9, 3.7560711095177565`*^9}}, CellID->157188323], Cell["string apply", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756071099174083*^9, 3.756071115900566*^9}}, CellID->310339099], Cell["string list", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756071099174083*^9, 3.756071117037547*^9}}, CellID->333415074] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List related Wolfram Language symbols. Include up to twenty \ documented, system-level symbols.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellLabel->"In[1]:=", CellID->911170439], Cell[CellGroupData[{ Cell["Characters", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756071134913994*^9, 3.7560711485825834`*^9}}, CellID->729141007], Cell["String", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756071134913994*^9, 3.7560711717308874`*^9}}, CellID->798295677], Cell["StringJoin", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756071134913994*^9, 3.756071174385809*^9}}, CellID->29044346] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "Names of published resource objects from any Wolfram repository that \ are related to this resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellLabel->"In[1]:=", CellID->217060377], Cell[CellGroupData[{ Cell["StringSort", "Item", CellChangeTimes->{{3.7560719737397904`*^9, 3.756071975481738*^9}}, CellID->15029149], Cell["StringUnion", "Item", CellChangeTimes->{{3.7560719737397904`*^9, 3.756071983658493*^9}}, CellID->141294182], Cell["StringIntersection", "Item", CellChangeTimes->{{3.7560719737397904`*^9, 3.7560719923232327`*^9}}, CellID->46952613], Cell["SlugifyString", "Item", CellChangeTimes->{{3.7560719737397904`*^9, 3.756071995182165*^9}}, CellID->141688345], Cell["ToFullString", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756071832254043*^9, 3.7560718340700045`*^9}, { 3.7560719434527006`*^9, 3.756071943453701*^9}}, CellTags->"TabNext", CellID->960273585], Cell["FromCamelCase", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.756071832254043*^9, 3.7560718340700045`*^9}, { 3.756071943830714*^9, 3.7560719461746216`*^9}}, CellID->4767910] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public code repository.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellLabel->"In[1]:=", CellID->967310595], 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[ "URLs or hyperlinks for external information related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellLabel->"In[1]:=", CellID->593846556], 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[ "Optional list of tests that can be used to verify that the function \ is working properly in any environment.\nTests can be specified as \ Input/Output cell pairs or as literal VerificationTest expressions if you \ need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellLabel->"In[1]:=", CellID->16051757], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[1]:=", CellID->667877521], Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Output", CellChangeTimes->{3.756066708898137*^9, 3.756073153579338*^9, 3.75607352270722*^9}, CellLabel->"Out[1]=", CellID->38672350] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes",Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.10"}, CreateCellID->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { Background -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 26, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook.\"", LabelStyle -> "TextStyling"], Annotation[#, "View a completed sample definition notebook.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon"]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Preview\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Preview"]), "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Deploy\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"Locally on this computer\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Local"]), "\"For my cloud account\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"]), "\"Publicly in the cloud\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "CloudPublic"]), "\"In this session only (without documentation)\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Submit to Repository\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository.\"", LabelStyle -> "TextStyling"], Annotation[#, "Submit your function to the Wolfram Function Repository.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], 2 -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {2, 2, {}, 2}}, FrameStyle -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`]], "Grid"]], "DockedCell", CellFrameMargins -> -1]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TagBox[ TooltipBox[ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"More info\"", LabelStyle -> "TextStyling"], Annotation[#, "More info", "Tooltip"]& ], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["Text"], ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 545, 9, 70, "Title",ExpressionUUID->"01bee2a9-79a1-49f7-93f1-c46b2c7bdb33", CellTags->{"Title", "TabNext"}, CellID->362346026]}, "TabNext"->{ Cell[580, 22, 545, 9, 70, "Title",ExpressionUUID->"01bee2a9-79a1-49f7-93f1-c46b2c7bdb33", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1128, 33, 629, 10, 70, "Text",ExpressionUUID->"83346b5d-5936-452b-a2bc-69e2495b084a", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[7214, 196, 2649, 57, 70, "Code",ExpressionUUID->"b53c1f69-dd70-44d5-8cc0-f4d57dde1e24", CellTags->"TabNext", CellID->778396829], Cell[15633, 425, 335, 10, 70, "UsageInputs",ExpressionUUID->"d1583da8-80f9-43b0-a949-80b85a3642c7", CellTags->"TabNext", CellID->157543866], Cell[15971, 437, 483, 15, 70, "UsageDescription",ExpressionUUID->"075ca362-6b07-418b-88f5-73bdf566e9c7", CellTags->"TabNext", CellID->231889230], Cell[17365, 483, 775, 17, 70, "Notes",ExpressionUUID->"30417dbb-be81-444f-a3af-b3f811734f22", CellTags->"TabNext", CellID->521904482], Cell[74482, 2125, 558, 9, 70, "Text",ExpressionUUID->"3ff7a09e-e7e2-4f7d-8394-6bbbe8d786f8", CellTags->"TabNext", CellID->832483124], Cell[75750, 2162, 530, 9, 70, "Item",ExpressionUUID->"b17372c8-07c8-407b-a7dd-8fa5cdeac959", CellTags->"TabNext", CellID->123227828], Cell[82427, 2323, 586, 10, 70, "Item",ExpressionUUID->"29d96385-1ae7-4e41-9f7d-aabd28a1d168", CellTags->"TabNext", CellID->960273585], Cell[84409, 2372, 496, 8, 70, "Text",ExpressionUUID->"4fee4a2a-9e5a-4846-b891-72f547cfedfe", CellTags->"TabNext", CellID->343081869], Cell[85565, 2405, 485, 8, 70, "Item",ExpressionUUID->"42498877-231f-44a9-aedd-90cb19981fcb", CellTags->"TabNext", CellID->485448166], Cell[87442, 2468, 509, 8, 70, "Text",ExpressionUUID->"b9ea0960-d167-4bd5-a32e-65aa0ba99734", CellTags->"TabNext", CellID->567921317], Cell[88711, 2502, 495, 8, 70, "Text",ExpressionUUID->"f00b127f-7380-440f-b7a8-3435bf73827e", CellTags->"TabNext", CellID->920818074]}, "Description"->{ Cell[1128, 33, 629, 10, 70, "Text",ExpressionUUID->"83346b5d-5936-452b-a2bc-69e2495b084a", CellTags->{"Description", "TabNext"}, CellID->450900334]}, "Definition"->{ Cell[1782, 47, 877, 21, 70, "Section",ExpressionUUID->"ec074756-5a3b-4024-b1cf-5ac1a8c8de7c", CellTags->"Definition", CellID->608264297]}, "Documentation"->{ Cell[14678, 393, 99, 3, 70, "Section",ExpressionUUID->"6a0bcfc3-debe-484a-bf19-9cd95ea50cb6", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[14802, 400, 806, 21, 70, "Subsection",ExpressionUUID->"a2e2cf58-9b71-46cc-9897-097accd628eb", CellTags->"Usage", CellID->694807545]}, "Details & Options"->{ Cell[16503, 458, 837, 21, 70, "Subsection",ExpressionUUID->"cc929009-3cd6-4f65-ab3d-f7c8b48c1251", CellTags->"Details & Options", CellID->29639701]}, "Examples"->{ Cell[19456, 545, 913, 21, 70, "Section",ExpressionUUID->"1654a1b4-899b-417e-ae95-9552c77a58b6", CellTags->"Examples", CellID->847663398]}, "Source & Additional Information"->{ Cell[73624, 2097, 135, 3, 70, "Section",ExpressionUUID->"de931908-36aa-4718-8672-998d0dde18be", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[73784, 2104, 695, 19, 70, "Subsection",ExpressionUUID->"69e0d3dd-88e9-4a7a-b75a-b961950c902c", CellTags->"Contributed By", CellID->757508554]}, "Keywords"->{ Cell[75077, 2139, 648, 19, 70, "Subsection",ExpressionUUID->"8921a653-dd4f-4592-864e-0d04aab932fa", CellTags->"Keywords", CellID->246422893]}, "Related Symbols"->{ Cell[78906, 2227, 685, 19, 70, "Subsection",ExpressionUUID->"8203349c-8685-4899-ba89-c24d21bb9682", CellTags->"Related Symbols", CellID->911170439]}, "Related Resource Objects"->{ Cell[81197, 2284, 725, 19, 70, "Subsection",ExpressionUUID->"57038d8b-9fc1-46a2-96ea-c157d90e00fb", CellTags->"Related Resource Objects", CellID->217060377]}, "Source/Reference Citation"->{ Cell[83628, 2350, 778, 20, 70, "Subsection",ExpressionUUID->"a5756982-36dc-40f0-ae34-74f027240740", CellTags->"Source/Reference Citation", CellID->967310595]}, "Links"->{ Cell[84942, 2385, 620, 18, 70, "Subsection",ExpressionUUID->"915fe052-385f-4057-becd-a01c446b2a6e", CellTags->"Links", CellID->593846556]}, "Tests"->{ Cell[86087, 2418, 790, 21, 70, "Subsection",ExpressionUUID->"7bff25e4-966d-4d19-91be-8e4cfa7d91b2", CellTags->"Tests", CellID->16051757]}, "Author Notes"->{ Cell[87312, 2462, 127, 4, 70, "Section",ExpressionUUID->"a6f2a6af-f4d2-4c00-9697-f14844cc424e", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[87988, 2481, 720, 19, 70, "Section",ExpressionUUID->"d7256aee-adb6-46f0-bc71-ea87f0e8e417", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 134803, 3448}, {"TabNext", 134968, 3452}, {"Description", 136877, 3492}, {"Definition", 137052, 3496}, {"Documentation", 137219, 3500}, {"Usage", 137381, 3504}, {"Details & Options", 137552, 3508}, {"Examples", 137725, 3512}, {"Source & Additional Information", 137910, 3516}, {"Contributed By", 138101, 3520}, {"Keywords", 138273, 3524}, {"Related Symbols", 138446, 3528}, {"Related Resource Objects", 138635, 3532}, {"Source/Reference Citation", 138834, 3536}, {"Links", 139014, 3540}, {"Tests", 139174, 3544}, {"Author Notes", 139340, 3548}, {"Submission Notes", 139514, 3552} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 545, 9, 70, "Title",ExpressionUUID->"01bee2a9-79a1-49f7-93f1-c46b2c7bdb33", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1128, 33, 629, 10, 70, "Text",ExpressionUUID->"83346b5d-5936-452b-a2bc-69e2495b084a", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[1782, 47, 877, 21, 70, "Section",ExpressionUUID->"ec074756-5a3b-4024-b1cf-5ac1a8c8de7c", CellTags->"Definition", CellID->608264297], Cell[2662, 70, 260, 6, 70, "Code",ExpressionUUID->"d73fd500-4b15-41bf-94a6-86941972fd22", CellID->522071536], Cell[CellGroupData[{ Cell[2947, 80, 140, 3, 70, "Subsection",ExpressionUUID->"daf64af1-af81-4f15-94f2-25cf0acef2ec", CellID->18887762], Cell[3090, 85, 466, 12, 70, "Text",ExpressionUUID->"1888eb92-5bf5-4748-a9aa-650c3c8ec963", CellID->16843904], Cell[3559, 99, 1114, 24, 70, "Code",ExpressionUUID->"e65b5332-8a9b-4bd6-a453-bcdc843104c6", CellID->4938731] }, Closed]], Cell[CellGroupData[{ Cell[4710, 128, 143, 3, 70, "Subsection",ExpressionUUID->"a07394e6-3a12-4a01-a7e5-6998013741e2", CellID->284083894], Cell[4856, 133, 301, 6, 70, "Text",ExpressionUUID->"aa6d0a02-d688-467b-b3eb-e34fd3c63fe3", CellID->19811963], Cell[5160, 141, 1751, 41, 70, "Code",ExpressionUUID->"64495549-7a90-47f6-a01f-a527f8a1cb4f", CellID->38345076] }, Closed]], Cell[CellGroupData[{ Cell[6948, 187, 142, 3, 70, "Subsection",ExpressionUUID->"723b7ed8-6b6f-4cff-8616-7ec921c8e8be", CellID->514980529], Cell[7093, 192, 118, 2, 70, "Text",ExpressionUUID->"12f55d57-d105-4e31-b2cb-5fc8e30e8752", CellID->587903488], Cell[7214, 196, 2649, 57, 70, "Code",ExpressionUUID->"b53c1f69-dd70-44d5-8cc0-f4d57dde1e24", CellTags->"TabNext", CellID->778396829], Cell[9866, 255, 125, 2, 70, "Text",ExpressionUUID->"ae459dc7-95c0-4470-849b-93741d238c36", CellID->122687915], Cell[9994, 259, 724, 19, 70, "Code",ExpressionUUID->"19e92dd4-e200-4874-85e8-73c661e5316d", CellID->81127447], Cell[CellGroupData[{ Cell[10743, 282, 147, 3, 70, "Subsubsection",ExpressionUUID->"29de0dda-5f52-4a2a-8153-b98f062af65b", CellID->709849478], Cell[10893, 287, 126, 2, 70, "Text",ExpressionUUID->"80855123-98f4-46ba-a2f9-a565d117d653", CellID->47095844], Cell[11022, 291, 1384, 31, 70, "Code",ExpressionUUID->"d3fc4ed1-c964-4767-908c-2d4b0904a4c1", CellID->154846196], Cell[12409, 324, 124, 2, 70, "Text",ExpressionUUID->"335af6d0-da63-42ab-a1f1-f2cb73875192", CellID->132372696], Cell[12536, 328, 1165, 28, 70, "Code",ExpressionUUID->"5555e33d-9e85-4748-8688-f114a0de155e", CellID->207594605] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[13750, 362, 145, 3, 70, "Subsection",ExpressionUUID->"e752c0e1-13f8-4da7-a383-1a8b1130249c", CellID->413766183], Cell[13898, 367, 731, 20, 70, "Code",ExpressionUUID->"09d4e300-9bf4-4597-abbd-d7839047cf5d", CellID->27700573] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[14678, 393, 99, 3, 70, "Section",ExpressionUUID->"6a0bcfc3-debe-484a-bf19-9cd95ea50cb6", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[14802, 400, 806, 21, 70, "Subsection",ExpressionUUID->"a2e2cf58-9b71-46cc-9897-097accd628eb", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[15633, 425, 335, 10, 70, "UsageInputs",ExpressionUUID->"d1583da8-80f9-43b0-a949-80b85a3642c7", CellTags->"TabNext", CellID->157543866], Cell[15971, 437, 483, 15, 70, "UsageDescription",ExpressionUUID->"075ca362-6b07-418b-88f5-73bdf566e9c7", CellTags->"TabNext", CellID->231889230] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16503, 458, 837, 21, 70, "Subsection",ExpressionUUID->"cc929009-3cd6-4f65-ab3d-f7c8b48c1251", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[17365, 483, 775, 17, 70, "Notes",ExpressionUUID->"30417dbb-be81-444f-a3af-b3f811734f22", CellTags->"TabNext", CellID->521904482], Cell[18143, 502, 322, 9, 70, "Notes",ExpressionUUID->"3a0171c5-1e5a-41c8-b0d4-617b6a17c137", CellID->164540], Cell[18468, 513, 927, 25, 70, "Notes",ExpressionUUID->"c3dd8f3a-edfd-4753-a67c-81ebbce985b6", CellID->467013871] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19456, 545, 913, 21, 70, "Section",ExpressionUUID->"1654a1b4-899b-417e-ae95-9552c77a58b6", CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell[20394, 570, 79, 2, 70, "Subsection",ExpressionUUID->"228b519a-6d3a-4c2d-9e37-33293e5900a9", CellID->462042388], Cell[20476, 574, 146, 2, 70, "Text",ExpressionUUID->"02ac909c-0d21-41e8-949e-1d424dd07248", CellID->13078159], Cell[CellGroupData[{ Cell[20647, 580, 263, 7, 70, "Input",ExpressionUUID->"14bb80c4-d2e0-42a7-8a32-86534f778e9f", CellID->443871870], Cell[20913, 589, 370, 6, 70, "Output",ExpressionUUID->"3dece213-b107-4cd2-ad0e-5f810bde05e6", CellID->208710299] }, Open ]], Cell[CellGroupData[{ Cell[21320, 600, 64, 2, 70, "PageBreak",ExpressionUUID->"5e3c19da-7ef8-4c8d-86ad-ce7859cf3058", PageBreakBelow->True, CellID->366188871], Cell[21387, 604, 156, 2, 70, "Text",ExpressionUUID->"8e9fbdab-ba5a-458e-91f7-231558a520cd", CellID->665994666], Cell[CellGroupData[{ Cell[21568, 610, 294, 6, 70, "Input",ExpressionUUID->"c7757d07-052b-40b1-bba7-3d037edf5402", CellID->334391270], Cell[21865, 618, 1877, 49, 70, "Output",ExpressionUUID->"cc43cc6e-030c-44b5-823f-2d26de5a66ab", CellID->4490481] }, Open ]], Cell[CellGroupData[{ Cell[23779, 672, 254, 6, 70, "Input",ExpressionUUID->"975e693a-99aa-46a3-bcb4-f41cf509b69f", CellID->349077401], Cell[24036, 680, 368, 6, 70, "Output",ExpressionUUID->"5a9f1241-27a2-4080-a919-11951f3fa1df", CellID->223284928] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24453, 692, 64, 2, 70, "PageBreak",ExpressionUUID->"b342942f-f0c7-44fc-9a07-13739d043aad", PageBreakBelow->True, CellID->435407042], Cell[24520, 696, 122, 2, 70, "Text",ExpressionUUID->"f0f79426-263d-469b-8928-3e7239b0c3c8", CellID->101245653], Cell[CellGroupData[{ Cell[24667, 702, 264, 7, 70, "Input",ExpressionUUID->"9585146a-f273-4192-86da-36e754299d1a", CellID->178737646], Cell[24934, 711, 367, 6, 70, "Output",ExpressionUUID->"903e79fb-f9d1-4bba-96bb-e61e9a5767b8", CellID->59714152] }, Open ]], Cell[CellGroupData[{ Cell[25338, 722, 263, 7, 70, "Input",ExpressionUUID->"c34192b7-7527-4211-8453-f58ab6f336e5", CellID->176467414], Cell[25604, 731, 226, 4, 70, "Output",ExpressionUUID->"9c3f07bd-c138-4ff5-9b0f-7ea7e46309e1", CellID->199667282] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25879, 741, 64, 2, 70, "PageBreak",ExpressionUUID->"db60732e-2691-4d6b-8d33-2bc0758119b0", PageBreakBelow->True, CellID->209667118], Cell[25946, 745, 139, 2, 70, "Text",ExpressionUUID->"fdd3ed59-bbd5-45ff-93e1-4f02148e2f37", CellID->367123194], Cell[CellGroupData[{ Cell[26110, 751, 263, 7, 70, "Input",ExpressionUUID->"e2c3a4cb-3013-4848-81bc-56ef4bca10af", CellID->10330184], Cell[26376, 760, 370, 6, 70, "Output",ExpressionUUID->"935b12ed-8f2f-497d-892c-bfdfe8cf22ca", CellID->1527730] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26795, 772, 64, 2, 70, "PageBreak",ExpressionUUID->"de408f07-2b27-41b0-b7ec-4c12c36c9c68", PageBreakBelow->True, CellID->333353209], Cell[26862, 776, 123, 2, 70, "Text",ExpressionUUID->"9870fb82-36bb-4ec5-949b-89a0198e454d", CellID->126820850], Cell[CellGroupData[{ Cell[27010, 782, 439, 12, 70, "Input",ExpressionUUID->"6e57556b-3779-4e98-9c1a-2619a3369bfd", CellID->68704188], Cell[27452, 796, 345, 6, 70, "Output",ExpressionUUID->"abbb01df-86b3-44c5-88dc-989c82adc824", CellID->574868715] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27846, 808, 64, 2, 70, "PageBreak",ExpressionUUID->"5792d47e-a608-44a1-b047-4da85a3ff270", PageBreakBelow->True, CellID->939223204], Cell[27913, 812, 138, 2, 70, "Text",ExpressionUUID->"692735eb-cdae-4e52-91f5-b2cf2540c8c5", CellID->514531209], Cell[CellGroupData[{ Cell[28076, 818, 263, 7, 70, "Input",ExpressionUUID->"b34592d2-368e-437f-a9c7-8594ec6187c7", CellID->59476235], Cell[28342, 827, 267, 5, 70, "Output",ExpressionUUID->"90952994-94fb-4080-b08b-36f74c9c7cae", CellID->4481573] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28658, 838, 62, 2, 70, "PageBreak",ExpressionUUID->"1faa88f8-36f3-434e-b387-1cedaa62053f", PageBreakBelow->True, CellID->6947720], Cell[28723, 842, 118, 2, 70, "Text",ExpressionUUID->"55914482-7574-4a6e-b7c1-cdd3e7192377", CellID->723358548], Cell[CellGroupData[{ Cell[28866, 848, 274, 7, 70, "Input",ExpressionUUID->"3c638095-4890-48a3-9f9f-6c8c91ca0614", CellID->261810641], Cell[29143, 857, 271, 5, 70, "Output",ExpressionUUID->"03d23a94-8fa0-4107-8efd-610a7acdb32f", CellID->381249287] }, Open ]], Cell[CellGroupData[{ Cell[29451, 867, 278, 7, 70, "Input",ExpressionUUID->"0fb2017d-2921-4037-a5d6-04186ff6041e", CellID->18412459], Cell[29732, 876, 277, 5, 70, "Output",ExpressionUUID->"f7d579c7-485b-4ce1-b731-ca06afa91b51", CellID->74961880] }, Open ]], Cell[CellGroupData[{ Cell[30046, 886, 266, 7, 70, "Input",ExpressionUUID->"699101b9-8cf6-46fd-9cc8-a24113529fd5", CellID->917551892], Cell[30315, 895, 251, 5, 70, "Output",ExpressionUUID->"d918cce3-834b-4c12-9a6d-ee08a386fad9", CellID->409483889] }, Open ]], Cell[CellGroupData[{ Cell[30603, 905, 275, 7, 70, "Input",ExpressionUUID->"d8a06c6d-df04-4b72-bf60-208bac09f64b", CellID->172344810], Cell[30881, 914, 255, 5, 70, "Output",ExpressionUUID->"6c27480b-2548-45e8-98bf-a6926f1feb07", CellID->129665919] }, Open ]], Cell[CellGroupData[{ Cell[31173, 924, 262, 7, 70, "Input",ExpressionUUID->"2d12e418-b1ec-4157-9afd-3e2edf985b04", CellID->50129405], Cell[31438, 933, 256, 5, 70, "Output",ExpressionUUID->"d4f9dfd4-7fbe-4468-96a1-9b67ac05418e", CellID->122335379] }, Open ]], Cell[CellGroupData[{ Cell[31731, 943, 303, 7, 70, "Input",ExpressionUUID->"38ae49f6-57f6-415d-9434-777ed51e339a", CellID->177946196], Cell[32037, 952, 848, 15, 70, "Output",ExpressionUUID->"fcd2e267-d099-4668-9367-5142db938565", CellID->37618445] }, Open ]], Cell[CellGroupData[{ Cell[32922, 972, 256, 7, 70, "Input",ExpressionUUID->"1b391352-f198-4d28-bb57-0f0c80f3a738", CellID->142033729], Cell[33181, 981, 1621, 27, 70, "Output",ExpressionUUID->"2f3aeba3-049d-4156-8626-f37ac38894b3", CellID->21166964] }, Open ]], Cell[CellGroupData[{ Cell[34839, 1013, 263, 7, 70, "Input",ExpressionUUID->"e55f9ba9-1ffb-4ce1-a001-49a0cb1e2f6f", CellID->348976827], Cell[35105, 1022, 465, 9, 70, "Output",ExpressionUUID->"8617edb6-91f6-475f-874a-5e2b2293db80", CellID->450729066] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35631, 1038, 70, 2, 70, "Subsection",ExpressionUUID->"8972c59b-432d-4342-a9da-eef4131c739c", CellID->964056545], Cell[35704, 1042, 818, 24, 70, "Text",ExpressionUUID->"d88baf29-9c9b-4588-a58c-e4928e66874e", CellID->649685796], Cell[CellGroupData[{ Cell[36547, 1070, 249, 6, 70, "Input",ExpressionUUID->"48bfc913-4f26-48f0-9d28-e280a5079c98", CellID->229823540], Cell[36799, 1078, 1706, 47, 70, "Output",ExpressionUUID->"d4b72d78-f605-414f-8368-b9cefd935dc3", CellID->536067346] }, Open ]], Cell[CellGroupData[{ Cell[38542, 1130, 357, 9, 70, "Input",ExpressionUUID->"918cff4d-f003-4df6-b655-822828306c16", CellID->836153427], Cell[38902, 1141, 453, 9, 70, "Output",ExpressionUUID->"12b57d8f-70dc-4e5d-b98d-e7586181e289", CellID->552781101] }, Open ]], Cell[39370, 1153, 159, 2, 70, "Text",ExpressionUUID->"8fdba35d-f339-4aae-8c01-2ac9b51abc17", CellID->446570698], Cell[CellGroupData[{ Cell[39554, 1159, 303, 8, 70, "Input",ExpressionUUID->"af6bf62a-8457-426f-9e62-0133bea1055c", CellID->795307080], Cell[39860, 1169, 304, 7, 70, "Output",ExpressionUUID->"af527814-b200-452e-97a7-c844025353a0", CellID->266818263] }, Open ]], Cell[CellGroupData[{ Cell[40201, 1181, 63, 2, 70, "PageBreak",ExpressionUUID->"15f38577-8630-4132-b225-19235afddbe0", PageBreakBelow->True, CellID->71648755], Cell[40267, 1185, 284, 8, 70, "Text",ExpressionUUID->"5b1f4870-1c31-4d77-bf7a-9d72d1208009", CellID->97598071], Cell[CellGroupData[{ Cell[40576, 1197, 834, 22, 70, "Input",ExpressionUUID->"ac3187c2-f4c7-49ce-9e3e-e18c0f9983b5", CellID->283786393], Cell[41413, 1221, 2243, 48, 70, "Output",ExpressionUUID->"fb230bdd-a5cd-49a7-990a-165aa2060f37", CellID->161656360] }, Open ]], Cell[CellGroupData[{ Cell[43693, 1274, 364, 7, 70, "Input",ExpressionUUID->"b37982f3-181f-4ac3-880a-79b725700d61", CellID->699552180], Cell[44060, 1283, 696, 14, 70, "Output",ExpressionUUID->"149d29e7-593e-4822-851b-5d8fd27e05c5", CellID->479979478] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44805, 1303, 64, 2, 70, "PageBreak",ExpressionUUID->"5ed3245e-d9ac-4625-af9a-018f4ea05606", PageBreakBelow->True, CellID->670099024], Cell[44872, 1307, 304, 7, 70, "Text",ExpressionUUID->"5f0c8ca6-cc8d-4002-9b9b-326b34544dbe", CellID->735294674], Cell[CellGroupData[{ Cell[45201, 1318, 590, 13, 70, "Input",ExpressionUUID->"2899b741-2aad-4a14-aa19-7e87b0510fd3", CellID->402981725], Cell[45794, 1333, 1127, 25, 70, "Output",ExpressionUUID->"e0fb5917-a550-4cc2-a270-5ba9b7b64445", CellID->137294642] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46970, 1364, 64, 2, 70, "PageBreak",ExpressionUUID->"f2e4dbe1-0753-4a33-ab7f-1f61a29a09cf", PageBreakBelow->True, CellID->420930125], Cell[47037, 1368, 759, 21, 70, "Text",ExpressionUUID->"b3be0609-f6af-44bf-ab9e-7adc9cb65923", CellID->127332978], Cell[CellGroupData[{ Cell[47821, 1393, 683, 13, 70, "Input",ExpressionUUID->"968ee7cf-5f24-4a4e-9d08-94bc9ce8e342", CellID->268335531], Cell[48507, 1408, 530, 9, 70, "Output",ExpressionUUID->"905493a2-e2db-4be0-91c5-82a570f9694a", CellID->39902402] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49098, 1424, 89, 2, 70, "Subsection",ExpressionUUID->"3388c6c9-5ab5-4644-bd56-5eb6bf3fb24f", CellID->754506620], Cell[49190, 1428, 155, 2, 70, "Text",ExpressionUUID->"954908dc-88db-4283-8061-0b3e149bf917", CellID->8862120], Cell[CellGroupData[{ Cell[49370, 1434, 286, 8, 70, "Input",ExpressionUUID->"25d51958-f895-4536-be57-0e4a8d158178", CellID->18001411], Cell[49659, 1444, 256, 5, 70, "Output",ExpressionUUID->"b3a4f377-9382-4d1e-8921-8a44d535053b", CellID->224254256] }, Open ]], Cell[CellGroupData[{ Cell[49952, 1454, 291, 8, 70, "Input",ExpressionUUID->"3afdb676-e451-467d-af2b-5bdecaac21a2", CellID->645385439], Cell[50246, 1464, 224, 5, 70, "Output",ExpressionUUID->"a0551ea8-dae6-42b7-8544-5d6bf7cb52c9", CellID->146156711] }, Open ]], Cell[CellGroupData[{ Cell[50507, 1474, 63, 2, 70, "PageBreak",ExpressionUUID->"b2dfa8d1-c171-4deb-ad87-4e2cee462ecc", PageBreakBelow->True, CellID->55349951], Cell[50573, 1478, 960, 29, 70, "Text",ExpressionUUID->"71b09cb9-ac23-45ea-a6ec-2a8f4dc1a002", CellID->216038366], Cell[CellGroupData[{ Cell[51558, 1511, 257, 7, 70, "Input",ExpressionUUID->"1c1c9de6-cf7c-477e-9d15-8e1c6569eb0d", CellID->16709128], Cell[51818, 1520, 319, 6, 70, "Echo",ExpressionUUID->"c7349638-7bd4-4364-9bf1-13bc6b667409", CellID->325255427], Cell[52140, 1528, 372, 7, 70, "Output",ExpressionUUID->"125367fa-1577-4dd4-9d9a-00f167d3e48b", CellID->504747911] }, Open ]], Cell[CellGroupData[{ Cell[52549, 1540, 277, 8, 70, "Input",ExpressionUUID->"65c3a0dd-0c85-4722-84bc-86fa6a228c42", CellID->357909886], Cell[CellGroupData[{ Cell[52851, 1552, 96, 2, 70, "Echo",ExpressionUUID->"49b16641-ffb4-47ed-8dd2-f37c6ce9b753", CellID->420182526], Cell[52950, 1556, 94, 2, 70, "Echo",ExpressionUUID->"771c5ee3-408f-40eb-b510-1ca6cdc131f9", CellID->22377294], Cell[53047, 1560, 98, 2, 70, "Echo",ExpressionUUID->"b3b23988-ad58-42cf-b1f4-a928d8dab024", CellID->254306644] }, Open ]], Cell[53160, 1565, 344, 6, 70, "Output",ExpressionUUID->"712b17cf-8afe-4905-a2d8-28f6838d8edc", CellID->60063829] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53565, 1578, 79, 2, 70, "Subsection",ExpressionUUID->"ff072c5f-868e-4fa2-ad02-09a4494b701c", CellID->92483860], Cell[53647, 1582, 281, 8, 70, "Text",ExpressionUUID->"012b428c-400f-4b6d-a9cc-5f654804477f", CellID->191765634], Cell[CellGroupData[{ Cell[53953, 1594, 263, 7, 70, "Input",ExpressionUUID->"a7b99d24-85c2-4c60-861b-0bba82714a90", CellID->258082118], Cell[54219, 1603, 1432, 24, 70, "Message",ExpressionUUID->"cd1082d7-8d81-4bd1-b2b2-ee3904a83779", CellID->547407580], Cell[55654, 1629, 1987, 53, 70, "Output",ExpressionUUID->"8e6d29da-b217-4b47-bb64-68813d1f5e3f", CellID->939383281] }, Open ]], Cell[CellGroupData[{ Cell[57678, 1687, 406, 9, 70, "Input",ExpressionUUID->"0d13fca0-b896-4358-be10-c2f175804159", CellID->195304307], Cell[58087, 1698, 306, 6, 70, "Output",ExpressionUUID->"39a0824f-dfc4-47b0-9c3f-9c2dcc2f08f5", CellID->390337459] }, Open ]], Cell[CellGroupData[{ Cell[58430, 1709, 64, 2, 70, "PageBreak",ExpressionUUID->"0faa87e8-21e9-40a0-aef5-e782f420265f", PageBreakBelow->True, CellID->179871968], Cell[58497, 1713, 434, 12, 70, "Text",ExpressionUUID->"4c1f91c2-4fd0-4725-a5d1-ae5daa112e7a", CellID->751003640], Cell[CellGroupData[{ Cell[58956, 1729, 206, 5, 70, "Input",ExpressionUUID->"422972ad-683f-4548-bc90-f199fa00ae69", CellID->26497484], Cell[59165, 1736, 1661, 46, 70, "Output",ExpressionUUID->"7b6140b9-b9a4-4bc3-9c92-fe4fd6863f85", CellID->6389747] }, Open ]], Cell[CellGroupData[{ Cell[60863, 1787, 176, 4, 70, "Input",ExpressionUUID->"00817225-1e99-44b2-b535-8f098f9f0d9f", CellID->349173017], Cell[61042, 1793, 1790, 28, 70, "Message",ExpressionUUID->"f05830c9-7a4c-45be-91eb-8ad6a9b46c11", CellID->121306559], Cell[62835, 1823, 1757, 49, 70, "Output",ExpressionUUID->"430da6c4-ff12-4e42-ba40-f6604386f10c", CellID->95465589] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[64653, 1879, 78, 2, 70, "Subsection",ExpressionUUID->"abdbdb5a-ab50-4f40-8362-fbb67bff239f", CellID->540091361], Cell[64734, 1883, 304, 7, 70, "Text",ExpressionUUID->"9d590abe-a75d-473d-91f4-590bad2d388f", CellID->145735921], Cell[65041, 1892, 499, 14, 70, "Input",ExpressionUUID->"24f41bcd-1f0c-41c2-bed5-2ffb7f1cb353", CellID->125481406], Cell[CellGroupData[{ Cell[65565, 1910, 635, 13, 70, "Input",ExpressionUUID->"cebcf6b0-31a8-4c0b-ac10-785a8195ca28", CellID->615730886], Cell[66203, 1925, 7360, 165, 70, "Output",ExpressionUUID->"b7ecdfb2-c95f-4a3e-9eb6-9803047de047", CellID->347089210] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[73624, 2097, 135, 3, 70, "Section",ExpressionUUID->"de931908-36aa-4718-8672-998d0dde18be", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[73784, 2104, 695, 19, 70, "Subsection",ExpressionUUID->"69e0d3dd-88e9-4a7a-b75a-b961950c902c", CellTags->"Contributed By", CellID->757508554], Cell[74482, 2125, 558, 9, 70, "Text",ExpressionUUID->"3ff7a09e-e7e2-4f7d-8394-6bbbe8d786f8", CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[75077, 2139, 648, 19, 70, "Subsection",ExpressionUUID->"8921a653-dd4f-4592-864e-0d04aab932fa", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell[75750, 2162, 530, 9, 70, "Item",ExpressionUUID->"b17372c8-07c8-407b-a7dd-8fa5cdeac959", CellTags->"TabNext", CellID->123227828], Cell[76283, 2173, 511, 8, 70, "Item",ExpressionUUID->"0e72d667-5d15-4df4-b235-915abb1484e1", CellID->307345847], Cell[76797, 2183, 516, 8, 70, "Item",ExpressionUUID->"c8191ce0-c9c5-47eb-aaa0-abd037273671", CellID->597677416], Cell[77316, 2193, 514, 8, 70, "Item",ExpressionUUID->"7bc698fe-feb8-4389-a19a-205df04b97c7", CellID->157188323], Cell[77833, 2203, 511, 8, 70, "Item",ExpressionUUID->"8a549ae3-701b-4e87-ba50-df1360fd8d49", CellID->310339099], Cell[78347, 2213, 510, 8, 70, "Item",ExpressionUUID->"1be97799-518c-4a45-bf1d-bbbb022ea2ca", CellID->333415074] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[78906, 2227, 685, 19, 70, "Subsection",ExpressionUUID->"8203349c-8685-4899-ba89-c24d21bb9682", CellTags->"Related Symbols", CellID->911170439], Cell[CellGroupData[{ Cell[79616, 2250, 511, 8, 70, "Item",ExpressionUUID->"78478f7f-5409-4ad1-a718-2f40d6808b9e", CellID->729141007], Cell[80130, 2260, 507, 8, 70, "Item",ExpressionUUID->"7c8097b9-a76b-4583-8eaf-44a5b1116799", CellID->798295677], Cell[80640, 2270, 508, 8, 70, "Item",ExpressionUUID->"f66adc98-7094-46e1-a75d-6532897c4ffc", CellID->29044346] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[81197, 2284, 725, 19, 70, "Subsection",ExpressionUUID->"57038d8b-9fc1-46a2-96ea-c157d90e00fb", CellTags->"Related Resource Objects", CellID->217060377], Cell[CellGroupData[{ Cell[81947, 2307, 113, 2, 70, "Item",ExpressionUUID->"ba8aa054-758d-4faa-bfe3-06ff9ea7a57c", CellID->15029149], Cell[82063, 2311, 115, 2, 70, "Item",ExpressionUUID->"79172ce4-e44b-4634-9745-3e33f04339e2", CellID->141294182], Cell[82181, 2315, 123, 2, 70, "Item",ExpressionUUID->"cf8b64d2-229a-4299-8e03-3c5636a2ad4d", CellID->46952613], Cell[82307, 2319, 117, 2, 70, "Item",ExpressionUUID->"07b3f9cf-bd4f-49d2-9b40-3798bf81dd94", CellID->141688345], Cell[82427, 2323, 586, 10, 70, "Item",ExpressionUUID->"29d96385-1ae7-4e41-9f7d-aabd28a1d168", CellTags->"TabNext", CellID->960273585], Cell[83016, 2335, 563, 9, 70, "Item",ExpressionUUID->"e0e38cef-8e35-492a-a5e7-b515c1314f44", CellID->4767910] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[83628, 2350, 778, 20, 70, "Subsection",ExpressionUUID->"a5756982-36dc-40f0-ae34-74f027240740", CellTags->"Source/Reference Citation", CellID->967310595], Cell[84409, 2372, 496, 8, 70, "Text",ExpressionUUID->"4fee4a2a-9e5a-4846-b891-72f547cfedfe", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[84942, 2385, 620, 18, 70, "Subsection",ExpressionUUID->"915fe052-385f-4057-becd-a01c446b2a6e", CellTags->"Links", CellID->593846556], Cell[85565, 2405, 485, 8, 70, "Item",ExpressionUUID->"42498877-231f-44a9-aedd-90cb19981fcb", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[86087, 2418, 790, 21, 70, "Subsection",ExpressionUUID->"7bff25e4-966d-4d19-91be-8e4cfa7d91b2", CellTags->"Tests", CellID->16051757], Cell[CellGroupData[{ Cell[86902, 2443, 129, 4, 70, "Input",ExpressionUUID->"a39db460-fdbe-4229-82e6-c4048c542788", CellID->667877521], Cell[87034, 2449, 217, 6, 70, "Output",ExpressionUUID->"977c58ce-b4b5-4b26-8a60-999c243e1830", CellID->38672350] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[87312, 2462, 127, 4, 70, "Section",ExpressionUUID->"a6f2a6af-f4d2-4c00-9697-f14844cc424e", CellTags->"Author Notes", CellID->795110225], Cell[87442, 2468, 509, 8, 70, "Text",ExpressionUUID->"b9ea0960-d167-4bd5-a32e-65aa0ba99734", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[87988, 2481, 720, 19, 70, "Section",ExpressionUUID->"d7256aee-adb6-46f0-bc71-ea87f0e8e417", CellTags->"Submission Notes", CellID->843283583], Cell[88711, 2502, 495, 8, 70, "Text",ExpressionUUID->"f00b127f-7380-440f-b7a8-3435bf73827e", CellTags->"TabNext", CellID->920818074] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)