(* 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[ 109623, 2560] NotebookOptionsPosition[ 40280, 1125] NotebookOutlinePosition[ 100102, 2340] CellTagsIndexPosition[ 99467, 2318] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["SelectIndices", "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.7559768235686197`*^9, 3.756053488083436*^9, 3.756053522786228*^9}, CellTags->{"Title", "TabNext"}, CellID->362346026], Cell["Find indices of parts satisfying criterion", "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.75599307105727*^9, 3.755993072186736*^9}, { 3.755993107792153*^9, 3.755993137680284*^9}, {3.756062038558277*^9, 3.756062042103655*^9}, {3.756062085438698*^9, 3.756062111853862*^9}, { 3.756062150548065*^9, 3.7560621632280397`*^9}, {3.756062257880714*^9, 3.756062260743684*^9}}, CellTags->{"Description", "TabNext"}, CellID->1930731953], 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[{"SelectIndices", "[", "args___", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";", RowBox[{"GeneralUtilities`SelectIndices", "[", "args", "]"}]}], ")"}]}]], "Input", 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.755973105870977*^9, 3.755973122741209*^9}, { 3.7559742466761427`*^9, 3.755974252931004*^9}, {3.755974293336796*^9, 3.7559743541421013`*^9}, {3.756053524353788*^9, 3.756053525280867*^9}}, CellTags->"TabNext", CellID->778396829] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectIndices", "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["crit", "TI"]}], "]"}]], "UsageInputs", CellChangeTimes->{{3.755972642713025*^9, 3.755972656799383*^9}, 3.755974247979188*^9, {3.755974375412714*^9, 3.75597437768537*^9}, 3.755977219356345*^9, 3.755979137146308*^9, {3.756053498673691*^9, 3.756053510221352*^9}}, CellTags->"TabNext", CellID->157543866], Cell[TextData[{ "gives indices of elements ", Cell[BoxData[ FormBox[ SubscriptBox["e", "i"], TraditionalForm]]], " of ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula"], " for which ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["crit", "TI"], "[", SubscriptBox["e", "i"]}], TraditionalForm]]], "] yields ", Cell[BoxData[ ButtonBox["True", BaseStyle->"Link"]], "InlineFormula"], "." }], "UsageDescription", CellChangeTimes->{{3.755972681479418*^9, 3.755972704301618*^9}, { 3.755972819096834*^9, 3.7559728320665007`*^9}, 3.755974465082159*^9, 3.755977125584546*^9, {3.756053621751891*^9, 3.756053699393251*^9}, { 3.756053752622429*^9, 3.756053775945066*^9}, {3.7560542248647127`*^9, 3.7560542248647614`*^9}, {3.7560556727901907`*^9, 3.7560557356434317`*^9}, {3.756055772082733*^9, 3.756055797221581*^9}, { 3.756064215791831*^9, 3.756064218590947*^9}}, CellTags->"TabNext", CellID->1147214401] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectIndices", "[", StyleBox["crit", "TI"], "]"}]], "UsageInputs", CellChangeTimes->{{3.755972642713025*^9, 3.755972656799383*^9}, 3.755974247979188*^9, {3.755974375412714*^9, 3.75597437768537*^9}, 3.755977219356345*^9, 3.755979137146308*^9, {3.756053498673691*^9, 3.756053510221352*^9}, {3.7560541172634172`*^9, 3.756054117662813*^9}}, CellTags->"TabNext", CellID->1313431698], Cell[TextData[{ "is the operator form of ", Cell[BoxData["SelectIndices"], "InlineFormula"], "." }], "UsageDescription", CellChangeTimes->{{3.755972681479418*^9, 3.755972704301618*^9}, { 3.755972819096834*^9, 3.7559728320665007`*^9}, 3.755974465082159*^9, 3.755977125584546*^9, {3.756053621751891*^9, 3.756053699393251*^9}, { 3.756053752622429*^9, 3.756053775945066*^9}, {3.7560541339434834`*^9, 3.75605414223848*^9}}, CellTags->"TabNext", CellID->862140773] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[TextData[{ "The object ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula"], " can have any head, not necessarily ", Cell[BoxData[ ButtonBox["List", BaseStyle->"Link"]], "InlineFormula"], ". " }], "Notes", CellChangeTimes->{{3.756056694365305*^9, 3.7560567183654423`*^9}, { 3.756059328525839*^9, 3.75605932852845*^9}}, CellID->811154], Cell[TextData[{ "When used on an ", Cell[BoxData[ TemplateBox[{Cell[ TextData["Association"]],"paclet:ref/Association"}, "RefLink", BaseStyle->{"InlineFormula"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData["SelectIndices"], "InlineFormula"], " picks out keys." }], "Notes", CellChangeTimes->{{3.756056694365305*^9, 3.7560567183654423`*^9}, { 3.756059328525839*^9, 3.75605932852845*^9}, {3.7560595475314083`*^9, 3.756059596964533*^9}, 3.756059648817925*^9}, CellID->1062119576], Cell[TextData[{ Cell[BoxData["SelectIndices"], "InlineFormula"], " can be used on ", Cell[BoxData[ ButtonBox["SparseArray", BaseStyle->"Link"]], "InlineFormula"], " objects." }], "Notes", CellChangeTimes->{{3.756056694365305*^9, 3.7560567183654423`*^9}, { 3.756059330080173*^9, 3.7560593550983067`*^9}, {3.756059883229697*^9, 3.7560598832313957`*^9}}, CellID->2135353777], Cell[TextData[{ Cell[BoxData[ RowBox[{ RowBox[{"SelectIndices", "[", StyleBox["crit", "TI"], "]"}], "[", StyleBox["list", "TI"], "]"}]], "InlineFormula"], " is equivalent to ", Cell[BoxData[ RowBox[{ RowBox[{"SelectIndices", "[", StyleBox["crit", "TI"], "]"}], "[", StyleBox["list", "TI"], "]"}]], "InlineFormula"], "." }], "Notes", CellChangeTimes->{{3.756056694365305*^9, 3.7560567183654423`*^9}, { 3.756059330080173*^9, 3.7560593550983067`*^9}, {3.7560598845691633`*^9, 3.756059972274207*^9}}, CellID->1089830323] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ Example groups can optionally be delimited by inserting page breaks between \ them (affects example count on documentation page).\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Select indices of even elements:", "Text", CellChangeTimes->{{3.7559794237158127`*^9, 3.7559794668465*^9}, { 3.755979677585816*^9, 3.755979722855756*^9}, {3.756056884253265*^9, 3.7560569126743803`*^9}, {3.756062386027645*^9, 3.7560623919778223`*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectIndices", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "7", ",", "6", ",", "2"}], "}"}], ",", "EvenQ"}], "]"}]], "Input", CellChangeTimes->{{3.755973169789324*^9, 3.755973188994316*^9}, { 3.75597336074142*^9, 3.755973361931511*^9}, 3.755974250788033*^9, { 3.7559793735822268`*^9, 3.7559793828285093`*^9}, 3.7560535264978437`*^9, { 3.756055974602129*^9, 3.756056011120454*^9}, 3.756056928756894*^9, { 3.756057100309506*^9, 3.756057116165811*^9}}, CellLabel->"In[23]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "3", ",", "5", ",", "6"}], "}"}]], "Output", CellChangeTimes->{ 3.755973190614975*^9, 3.755973362913331*^9, {3.755979374961363*^9, 3.755979383465981*^9}, {3.756055980532283*^9, 3.756056011590633*^9}, 3.756056930378728*^9, {3.756057102514389*^9, 3.756057117056613*^9}}, CellLabel->"Out[23]=", CellID->1422817152] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1332894376], Cell[TextData[{ "The operator form of ", Cell[BoxData["Selec"], "InlineFormula"], "tIndices:" }], "Text", CellChangeTimes->{{3.756057080357093*^9, 3.756057092131521*^9}, 3.7560600060611067`*^9, {3.756062331981019*^9, 3.7560623496984367`*^9}}, CellID->1553855575], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SelectIndices", "[", "EvenQ", "]"}], "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "7", ",", "6", ",", "2"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.756059810398287*^9, 3.75605981489167*^9}}, CellLabel->"In[36]:=", CellID->1753741656], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "3", ",", "5", ",", "6"}], "}"}]], "Output", CellChangeTimes->{{3.756059806910325*^9, 3.756059816511385*^9}, 3.756060039164095*^9}, CellLabel->"Out[36]=", CellID->610839809] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellChangeTimes->{{3.756062499333519*^9, 3.756062500909301*^9}}, CellID->964056545], Cell["Select indices of a list:", "Text", CellChangeTimes->{{3.7559794237158127`*^9, 3.7559794668465*^9}, { 3.755979677585816*^9, 3.755979722855756*^9}, {3.756056884253265*^9, 3.7560569126743803`*^9}, {3.756062386027645*^9, 3.7560623919778223`*^9}, { 3.756062532996849*^9, 3.756062537332376*^9}}, CellID->2092638824], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectIndices", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", "EvenQ"}], "]"}]], "Input", CellChangeTimes->{{3.755973169789324*^9, 3.755973188994316*^9}, { 3.75597336074142*^9, 3.755973361931511*^9}, 3.755974250788033*^9, { 3.7559793735822268`*^9, 3.7559793828285093`*^9}, 3.7560535264978437`*^9, { 3.756055974602129*^9, 3.756056011120454*^9}, 3.756056928756894*^9, { 3.756057100309506*^9, 3.756057116165811*^9}, {3.7560625598275023`*^9, 3.756062580322749*^9}}, CellLabel->"In[41]:=", CellID->1641028049], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}]], "Output", CellChangeTimes->{ 3.755973190614975*^9, 3.755973362913331*^9, {3.755979374961363*^9, 3.755979383465981*^9}, {3.756055980532283*^9, 3.756056011590633*^9}, 3.756056930378728*^9, {3.756057102514389*^9, 3.756057117056613*^9}, { 3.756062561099738*^9, 3.756062580804538*^9}}, CellLabel->"Out[41]=", CellID->1445972840] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1817534448], Cell["Select indices of an expression with an arbitrary head:", "Text", CellChangeTimes->{{3.7559794237158127`*^9, 3.7559794668465*^9}, { 3.755979677585816*^9, 3.755979722855756*^9}, {3.756056884253265*^9, 3.7560569126743803`*^9}, {3.756062386027645*^9, 3.7560623919778223`*^9}, { 3.756062532996849*^9, 3.756062537332376*^9}, {3.7560626433676434`*^9, 3.756062661423217*^9}}, CellID->1403310189], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectIndices", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "]"}], ",", "EvenQ"}], "]"}]], "Input", CellChangeTimes->{{3.755973169789324*^9, 3.755973188994316*^9}, { 3.75597336074142*^9, 3.755973361931511*^9}, 3.755974250788033*^9, { 3.7559793735822268`*^9, 3.7559793828285093`*^9}, 3.7560535264978437`*^9, { 3.756055974602129*^9, 3.756056011120454*^9}, 3.756056928756894*^9, { 3.756057100309506*^9, 3.756057116165811*^9}, {3.7560625598275023`*^9, 3.756062580322749*^9}, {3.7560626661675043`*^9, 3.7560626742385883`*^9}}, CellLabel->"In[42]:=", CellID->1768935169], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}]], "Output", CellChangeTimes->{ 3.755973190614975*^9, 3.755973362913331*^9, {3.755979374961363*^9, 3.755979383465981*^9}, {3.756055980532283*^9, 3.756056011590633*^9}, 3.756056930378728*^9, {3.756057102514389*^9, 3.756057117056613*^9}, { 3.756062561099738*^9, 3.756062580804538*^9}, 3.756062674600408*^9}, CellLabel->"Out[42]=", CellID->185605232] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1071418188], Cell[TextData[{ "Keys of an ", Cell[BoxData["Ass"], "InlineFormula"], "ociation:" }], "Text", CellChangeTimes->{{3.7560627268446608`*^9, 3.756062757259255*^9}, { 3.756063018716123*^9, 3.756063058686277*^9}}, CellID->1320878780], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectIndices", "[", RowBox[{ RowBox[{"<|", RowBox[{ RowBox[{"a", "\[Rule]", "1"}], ",", RowBox[{"b", "\[Rule]", "2"}], ",", RowBox[{"c", "\[Rule]", "3"}], ",", RowBox[{"d", "\[Rule]", "4"}]}], "|>"}], ",", RowBox[{ RowBox[{"#", ">", "2"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.756059470474101*^9, 3.7560594861343613`*^9}}, CellLabel->"In[43]:=", CellID->1438666406], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Key", "[", "c", "]"}], ",", RowBox[{"Key", "[", "d", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.756059504197497*^9, 3.756062933270097*^9}, CellLabel->"Out[43]=", CellID->1717663011] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->139559256], Cell[TextData[{ "Indices of a ", Cell[BoxData[ ButtonBox["SparseArray", BaseStyle->"Link"]], "InlineFormula"], ":" }], "Text", CellChangeTimes->{{3.7560627268446608`*^9, 3.756062757259255*^9}, { 3.756063005137548*^9, 3.756063007984126*^9}, {3.7560630662063303`*^9, 3.75606309625452*^9}, {3.756063162742428*^9, 3.756063164987108*^9}}, CellID->520273068], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s", " ", "=", " ", RowBox[{"SparseArray", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"2", "^", "i"}], "\[Rule]", "i"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "5"}], "}"}]}], "]"}], "]"}]}]], "Input", CellLabel->"In[45]:=", CellID->750594546], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["SparseArray", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBgBGIBIAaxJ7AxOi9wuWB/IX12WU/bXfv7faeFk0ve2DcH Lgn7XH7RnsnPa04B12P7a1WlLiV27+ytynfHzVI6Zz/HeNEW8x9X7F8sUnwc uOqVfc3fJaaJYTfsWVS+/my+88w+69J2sXLf9zjVkypu08r44Uv+I/t3pn4h DZav7GdOndSVvZB65tNafGe3gevOLS/sb7gvX1cz7a39yYjcf/Ff39sDAM9u yto= "], {{0, 0}, {16, 1}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", "32", "}"}], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmVmYGBgBGIBIAaxJ7AxOi9wuWB/IX12WU/bXfv7faeFk0ve2DcH Lgn7XH7RnsnPa04B12P7a1WlLiV27+ytynfHzVI6Zz/HeNEW8x9X7F8sUnwc uOqVfc3fJaaJYTfsWVS+/my+88w+69J2sXLf9zjVkypu08r44Uv+I/t3pn4h DZav7GdOndSVvZB65tNafGe3gevOLS/sb7gvX1cz7a39yYjcf/Ff39sDAM9u yto= "], {{0, 0}, {16, 1}}, {0, 1}], AspectRatio -> 1, Axes -> False, Frame -> False, FrameLabel -> {None, None}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultPlotStyle" -> Automatic, "DomainPadding" -> Scaled[0.02], "RangePadding" -> Scaled[0.05]}], GridBox[{{ RowBox[{ TagBox["\"Specified elements: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["5", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", "32", "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Default: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Density: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.15625`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Elements:\"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"\"", "SummaryItem"]}]}, { TagBox[ TagBox[ GridBox[{{ RowBox[{ RowBox[{"{", "2", "}"}], "\[Rule]", StyleBox[ PaneBox[ "1", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", "4", "}"}], "\[Rule]", StyleBox[ PaneBox[ "2", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", "8", "}"}], "\[Rule]", StyleBox[ PaneBox[ "3", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", "16", "}"}], "\[Rule]", StyleBox[ PaneBox[ "4", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}, { RowBox[{ RowBox[{"{", "32", "}"}], "\[Rule]", StyleBox[ PaneBox[ "5", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True, BaselinePosition -> Baseline, ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> False]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], "SummaryItem"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], SparseArray[ Automatic, {32}, 0, { 1, {{0, 5}, {{2}, {4}, {8}, {16}, {32}}}, {1, 2, 3, 4, 5}}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7560571497335253`*^9, 3.756063191059292*^9}, CellLabel->"Out[45]=", CellID->1586134576] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectIndices", "[", RowBox[{"s", ",", "OddQ"}], "]"}]], "Input", CellChangeTimes->{ 3.756057156019169*^9, {3.756058887154437*^9, 3.756058891185439*^9}}, CellLabel->"In[46]:=", CellID->1171115942], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "8", ",", "32"}], "}"}]], "Output", CellChangeTimes->{3.7560588918374977`*^9, 3.756063201307293*^9}, CellLabel->"Out[46]=", CellID->1770468873] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->219158946], Cell[TextData[{ "Use ", Cell[BoxData["SelectIndices"], "InlineFormula", FontFamily->"Source Sans Pro"], " in operator form:" }], "Text", CellChangeTimes->{{3.7560627268446608`*^9, 3.756062757259255*^9}, { 3.756063005137548*^9, 3.756063007984126*^9}, {3.7560630662063303`*^9, 3.75606309625452*^9}, {3.756063162742428*^9, 3.756063164987108*^9}, { 3.7560635567223988`*^9, 3.756063632986631*^9}}, CellID->469950817], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SelectIndices", "[", "EvenQ", "]"}], "[", RowBox[{"Range", "[", "5", "]"}], "]"}]], "Input", CellChangeTimes->{{3.756059810398287*^9, 3.75605981489167*^9}, { 3.756063592154372*^9, 3.756063597297147*^9}}, CellLabel->"In[49]:=", CellID->9135156], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}]], "Output", CellChangeTimes->{{3.756059806910325*^9, 3.756059816511385*^9}, 3.756060039164095*^9, 3.756063599004681*^9}, CellLabel->"Out[49]=", CellID->1337705365] }, Open ]] }, Open ]] }, Open ]], Cell["Options", "Subsection", CellID->776923543], Cell["Applications", "Subsection", CellID->568056528], Cell["Properties and Relations", "Subsection", CellID->754506620], Cell["Possible Issues", "Subsection", CellID->92483860], Cell["Neat Examples", "Subsection", CellID->540091361] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Name of the person, people or organization that should be publicly \ credited with contributing the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->757508554], Cell["Taliesin Beynon (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.755970409178137*^9}, CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource in \ search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell["pick", "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.755992489736486*^9, 3.755992492547679*^9}, { 3.756063735715559*^9, 3.756063738661701*^9}}, CellTags->"TabNext", CellID->123227828], Cell["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.755992489736486*^9, 3.755992492547679*^9}, { 3.756063735715559*^9, 3.756063751194098*^9}}, CellID->1680379073], Cell["choose", "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.755992489736486*^9, 3.7559925015920486`*^9}, { 3.756063773017908*^9, 3.756063774201406*^9}}, CellID->580274121] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List related Wolfram Language symbols. Include up to twenty \ documented, system-level symbols.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->911170439], Cell["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.7559933057148447`*^9, 3.755993306849903*^9}, { 3.7560636704379797`*^9, 3.7560636715899*^9}}, CellTags->"TabNext", CellID->79477165] }, Open ]], Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "Names of published resource objects from any Wolfram repository that \ are related to this resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->217060377], Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public code repository.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->967310595], Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "URLs or hyperlinks for external information related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->593846556], Cell[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", CellID->16051757], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SelectIndices", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", ">", "1"}], ")"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.755973169789324*^9, 3.755973188994316*^9}, { 3.75597336074142*^9, 3.755973361931511*^9}, 3.755974250788033*^9, { 3.7559793735822268`*^9, 3.7559793828285093`*^9}, 3.7560535264978437`*^9, { 3.756055974602129*^9, 3.756056011120454*^9}, 3.756056928756894*^9, { 3.756057100309506*^9, 3.756057116165811*^9}, {3.7560625598275023`*^9, 3.756062580322749*^9}, {3.7560626661675043`*^9, 3.7560626742385883`*^9}, { 3.7560640296488333`*^9, 3.756064049686181*^9}}, CellLabel->"In[50]:=", CellID->1101344333], Cell[BoxData[ RowBox[{"{", "2", "}"}]], "Output", CellChangeTimes->{ 3.755973190614975*^9, 3.755973362913331*^9, {3.755979374961363*^9, 3.755979383465981*^9}, {3.756055980532283*^9, 3.756056011590633*^9}, 3.756056930378728*^9, {3.756057102514389*^9, 3.756057117056613*^9}, { 3.756062561099738*^9, 3.756062580804538*^9}, 3.756062674600408*^9, 3.756064051863689*^9}, CellLabel->"Out[50]=", CellID->1610422101] }, Open ]] }, Open ]] }, Open ]], Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], 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] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{"ResourceType" -> "Function", "ResourceCreateNotebook" -> True}, 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.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 22, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[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[ TemplateBox[{ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Coming soon\""}, "PrettyTooltipTemplate"], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon."]]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, 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.994118, 0.709804, 0.601961]], "Grid"], ActionMenuBox[ ButtonBox[ StyleBox[ "\"Preview \[DownPointer]\"", "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, 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[ StyleBox[ "\"Deploy \[DownPointer]\"", "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, 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"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TemplateBox[{ StyleBox[ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349206349206349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, FaceForm[ RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, FaceForm[ RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, ImageSize -> 18, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> Automatic], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.25}, "Rows" -> {{0}}}], "Grid"], "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository\""}, "PrettyTooltipTemplate"], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> {{1, 1}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 25}, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "RowsIndexed" -> {1 -> 6, 2 -> 4}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0]}], Cell[ StyleData["Notebook"], ComponentwiseContextMenu -> {"CellInsertionPoint" -> { MenuItem["Insert Example Group", FrontEndExecute[{ FrontEnd`NotebookWrite[ FrontEnd`InputNotebook[], Cell[ CellGroupData[{ Cell["", "PageBreak", PageBreakBelow -> True], Cell["XXXX", "Text"], Cell[ BoxData["XXXX"], "Input"]}, Open]]]}]], MenuItem["Insert Example Delimiter", FrontEndExecute[{ FrontEnd`NotebookWrite[ FrontEnd`InputNotebook[], Cell["", "PageBreak", PageBreakBelow -> True], After]}]], Delimiter, MenuItem["&Paste", FrontEnd`Paste[After]], Menu["&Insert New Cell", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Copy Notebook Ob&ject", FrontEnd`CopySpecial["NotebookObject"]], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}}], 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[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[ Rational[2, 45], 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{ FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[ Rational[2, 45]], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ Rational[2, 45]], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, Rational[2, 3], 0], Thickness[ Rational[2, 45]], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm]], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> Automatic], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ExampleGroupOpenerTemplate"], TemplateBoxOptions -> {DisplayFunction -> (DynamicBox[ ToBoxes[ If[ MatchQ[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "Openers", #, #2}, Closed], Alternatives[True, Open]], Style[ Graphics[{ Thickness[0.18], RGBColor[0.8509803921568627, 0.396078431372549, 0], Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 0.68 Inherited], Rotate[ Style[ Graphics[{ Thickness[0.18], RGBColor[0.8509803921568627, 0.396078431372549, 0], Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]], StandardForm]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 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 -> {}, DefaultNewCellStyle -> "Notes", 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], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["InlineFormula"], FontSize -> 0.99 Inherited], Cell[ StyleData["ExampleDelimiter"], ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {-5, 0}}, CellGroupingRules -> {"SectionGrouping", 58}, ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {76}, StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 9, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 571, 10, 70, "Title",ExpressionUUID->"0556504c-d595-46e7-bb3d-3e4ce7553c8d", CellTags->{"Title", "TabNext"}, CellID->362346026]}, "TabNext"->{ Cell[580, 22, 571, 10, 70, "Title",ExpressionUUID->"0556504c-d595-46e7-bb3d-3e4ce7553c8d", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1154, 34, 824, 13, 70, "Text",ExpressionUUID->"56b3df23-7334-41dc-802b-6a59348b3e89", CellTags->{"Description", "TabNext"}, CellID->1930731953], Cell[2883, 74, 920, 18, 70, "Input",ExpressionUUID->"4c178689-28c3-4cae-ae5c-9f4137500672", CellTags->"TabNext", CellID->778396829], Cell[4772, 128, 418, 10, 70, "UsageInputs",ExpressionUUID->"80878e05-2805-4bd3-9feb-89aa73b694cc", CellTags->"TabNext", CellID->157543866], Cell[5193, 140, 955, 28, 70, "UsageDescription",ExpressionUUID->"9822a3d7-63be-4a10-98f1-ebf11304fede", CellTags->"TabNext", CellID->1147214401], Cell[6185, 173, 420, 8, 70, "UsageInputs",ExpressionUUID->"49a613eb-ac7a-4398-aab5-248c864e2285", CellTags->"TabNext", CellID->1313431698], Cell[6608, 183, 478, 11, 70, "UsageDescription",ExpressionUUID->"f1fc446a-850c-4193-8a36-a1b053577cfa", CellTags->"TabNext", CellID->862140773], Cell[31108, 872, 531, 9, 70, "Text",ExpressionUUID->"c041102b-c600-4386-8ef5-45e7494b8dd6", CellTags->"TabNext", CellID->832483124], Cell[32326, 908, 574, 10, 70, "Item",ExpressionUUID->"bdb52855-0c6a-46e6-8756-d35b5268a95c", CellTags->"TabNext", CellID->123227828], Cell[34731, 966, 577, 10, 70, "Item",ExpressionUUID->"aee2c304-c27b-4da4-83c7-4d7d0731843e", CellTags->"TabNext", CellID->79477165]}, "Description"->{ Cell[1154, 34, 824, 13, 70, "Text",ExpressionUUID->"56b3df23-7334-41dc-802b-6a59348b3e89", CellTags->{"Description", "TabNext"}, CellID->1930731953]}, "Definition"->{ Cell[2003, 51, 877, 21, 70, "Section",ExpressionUUID->"5d7d3e1d-f297-4ab8-bc85-fbf1c7dd2407", CellTags->"Definition", CellID->608264297]}, "Documentation"->{ Cell[3840, 97, 99, 3, 70, "Section",ExpressionUUID->"f9baed54-e33f-4cf9-b9d7-f26b5c20e661", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[3964, 104, 783, 20, 70, "Subsection",ExpressionUUID->"7e99150e-c9e4-499e-a438-86b94161548a", CellTags->"Usage", CellID->694807545]}, "Details & Options"->{ Cell[7135, 200, 814, 20, 70, "Subsection",ExpressionUUID->"e86e13b4-ec8f-4798-91b8-6310e04f9c7f", CellTags->"Details & Options", CellID->29639701]}, "Examples"->{ Cell[9878, 292, 913, 21, 70, "Section",ExpressionUUID->"2a4b61a3-4818-4cba-88f9-1361738672dd", CellTags->"Examples", CellID->847663398]}, "Source & Additional Information"->{ Cell[30273, 845, 135, 3, 70, "Section",ExpressionUUID->"a42323a4-ce48-4631-b401-f6d58f00559a", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[30433, 852, 672, 18, 70, "Subsection",ExpressionUUID->"825f0ed5-3856-445f-9095-b1b747839e42", CellTags->"Contributed By", CellID->757508554]}, "Keywords"->{ Cell[31676, 886, 625, 18, 70, "Subsection",ExpressionUUID->"033df8fa-50f5-489b-9973-3a8c4c102c37", CellTags->"Keywords", CellID->246422893]}, "Related Symbols"->{ Cell[34066, 946, 662, 18, 70, "Subsection",ExpressionUUID->"08c51726-1bd5-4277-ab20-e941578f386a", CellTags->"Related Symbols", CellID->911170439]}, "Related Resource Objects"->{ Cell[35323, 979, 702, 18, 70, "Subsection",ExpressionUUID->"618c3de4-934b-45a5-ad3b-28099d9543d4", CellTags->"Related Resource Objects", CellID->217060377]}, "Source/Reference Citation"->{ Cell[36028, 999, 755, 19, 70, "Subsection",ExpressionUUID->"438aebd3-4691-41f3-975d-bc6707b9baba", CellTags->"Source/Reference Citation", CellID->967310595]}, "Links"->{ Cell[36786, 1020, 597, 17, 70, "Subsection",ExpressionUUID->"501d7b19-ad02-42ec-98db-7b72684ec79b", CellTags->"Links", CellID->593846556]}, "Tests"->{ Cell[37408, 1041, 767, 20, 70, "Subsection",ExpressionUUID->"7686c6d0-3713-4ca7-801a-dcd2670c7e72", CellTags->"Tests", CellID->16051757]}, "Author Notes"->{ Cell[39414, 1097, 127, 4, 70, "Section",ExpressionUUID->"6bb136c7-7f24-4ee3-b3b6-da063f4d4ab6", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[39544, 1103, 720, 19, 70, "Section",ExpressionUUID->"2879f921-4299-4dfb-81e7-ffc1733eba5c", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 94999, 2216}, {"TabNext", 95165, 2220}, {"Description", 96661, 2251}, {"Definition", 96837, 2255}, {"Documentation", 97004, 2259}, {"Usage", 97164, 2263}, {"Details & Options", 97334, 2267}, {"Examples", 97506, 2271}, {"Source & Additional Information", 97690, 2275}, {"Contributed By", 97880, 2279}, {"Keywords", 98051, 2283}, {"Related Symbols", 98223, 2287}, {"Related Resource Objects", 98411, 2291}, {"Source/Reference Citation", 98609, 2295}, {"Links", 98788, 2299}, {"Tests", 98948, 2303}, {"Author Notes", 99114, 2307}, {"Submission Notes", 99288, 2311} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 571, 10, 70, "Title",ExpressionUUID->"0556504c-d595-46e7-bb3d-3e4ce7553c8d", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1154, 34, 824, 13, 70, "Text",ExpressionUUID->"56b3df23-7334-41dc-802b-6a59348b3e89", CellTags->{"Description", "TabNext"}, CellID->1930731953], Cell[CellGroupData[{ Cell[2003, 51, 877, 21, 70, "Section",ExpressionUUID->"5d7d3e1d-f297-4ab8-bc85-fbf1c7dd2407", CellTags->"Definition", CellID->608264297], Cell[2883, 74, 920, 18, 70, "Input",ExpressionUUID->"4c178689-28c3-4cae-ae5c-9f4137500672", CellTags->"TabNext", CellID->778396829] }, Open ]], Cell[CellGroupData[{ Cell[3840, 97, 99, 3, 70, "Section",ExpressionUUID->"f9baed54-e33f-4cf9-b9d7-f26b5c20e661", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[3964, 104, 783, 20, 70, "Subsection",ExpressionUUID->"7e99150e-c9e4-499e-a438-86b94161548a", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[4772, 128, 418, 10, 70, "UsageInputs",ExpressionUUID->"80878e05-2805-4bd3-9feb-89aa73b694cc", CellTags->"TabNext", CellID->157543866], Cell[5193, 140, 955, 28, 70, "UsageDescription",ExpressionUUID->"9822a3d7-63be-4a10-98f1-ebf11304fede", CellTags->"TabNext", CellID->1147214401] }, Open ]], Cell[CellGroupData[{ Cell[6185, 173, 420, 8, 70, "UsageInputs",ExpressionUUID->"49a613eb-ac7a-4398-aab5-248c864e2285", CellTags->"TabNext", CellID->1313431698], Cell[6608, 183, 478, 11, 70, "UsageDescription",ExpressionUUID->"f1fc446a-850c-4193-8a36-a1b053577cfa", CellTags->"TabNext", CellID->862140773] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7135, 200, 814, 20, 70, "Subsection",ExpressionUUID->"e86e13b4-ec8f-4798-91b8-6310e04f9c7f", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[7974, 224, 361, 12, 70, "Notes",ExpressionUUID->"b0550759-f19c-4695-9454-0b4236869bbf", CellID->811154], Cell[8338, 238, 531, 15, 70, "Notes",ExpressionUUID->"b9645802-7fb3-4c73-a143-3772d8a9786e", CellID->1062119576], Cell[8872, 255, 387, 11, 70, "Notes",ExpressionUUID->"d088649a-f3f6-4ccb-80b3-b15979276b29", CellID->2135353777], Cell[9262, 268, 555, 17, 70, "Notes",ExpressionUUID->"dbe87e28-b67b-493e-9dc2-b7c2abc1f8fc", CellID->1089830323] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9878, 292, 913, 21, 70, "Section",ExpressionUUID->"2a4b61a3-4818-4cba-88f9-1361738672dd", CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell[10816, 317, 56, 1, 70, "Subsection",ExpressionUUID->"68fc7b70-2c89-45e1-8db6-61a9eb637c04", CellID->462042388], Cell[10875, 320, 281, 4, 70, "Text",ExpressionUUID->"47d2bc73-ef3b-4d73-9e5c-8fcec514cf5b", CellID->13078159], Cell[CellGroupData[{ Cell[11181, 328, 567, 12, 70, "Input",ExpressionUUID->"82c47676-830e-4fe0-b109-1615e163633f", CellID->443871870], Cell[11751, 342, 373, 8, 70, "Output",ExpressionUUID->"3804f068-27d4-44d4-8a1c-3592b801cb8b", CellID->1422817152] }, Open ]], Cell[CellGroupData[{ Cell[12161, 355, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"a8c87af1-9afb-48ab-8195-2998f2771b1f", CellID->1332894376], Cell[12290, 360, 271, 7, 70, "Text",ExpressionUUID->"8d510919-0b08-497d-962c-fe6b8b56a1a0", CellID->1553855575], Cell[CellGroupData[{ Cell[12586, 371, 298, 8, 70, "Input",ExpressionUUID->"dcf593a4-8059-4a8a-8179-1e4b8afec926", CellID->1753741656], Cell[12887, 381, 229, 6, 70, "Output",ExpressionUUID->"23b6f25c-efa5-4ddb-a57f-a27042bc7f9a", CellID->610839809] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13177, 394, 113, 2, 70, "Subsection",ExpressionUUID->"67344ac7-d1ce-4781-b850-372ce716f080", CellID->964056545], Cell[13293, 398, 325, 5, 70, "Text",ExpressionUUID->"03500fce-cfaa-4f85-a704-6b6464b7f128", CellID->2092638824], Cell[CellGroupData[{ Cell[13643, 407, 599, 13, 70, "Input",ExpressionUUID->"22c3c57d-b7cd-46ee-9f74-f1aa6edbbb02", CellID->1641028049], Cell[14245, 422, 403, 9, 70, "Output",ExpressionUUID->"91a6c863-9027-403c-b85d-e94c3076b656", CellID->1445972840] }, Open ]], Cell[CellGroupData[{ Cell[14685, 436, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"33dad176-cbc1-46af-b048-37ae0a52ea0f", CellID->1817534448], Cell[14814, 441, 406, 6, 70, "Text",ExpressionUUID->"8ee5473f-5175-4d75-84a8-5a2d745b7bed", CellID->1403310189], Cell[CellGroupData[{ Cell[15245, 451, 654, 13, 70, "Input",ExpressionUUID->"c83811bd-7b9d-40e3-a34e-de94c2430a50", CellID->1768935169], Cell[15902, 466, 424, 9, 70, "Output",ExpressionUUID->"c70cf63e-4af3-44d5-968b-d55a3a33bc05", CellID->185605232] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16375, 481, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"86a20a3f-9980-4077-a953-6578c9ac260e", CellID->1071418188], Cell[16504, 486, 234, 7, 70, "Text",ExpressionUUID->"1a8036b8-be7d-4d43-ba74-b7714d113efc", CellID->1320878780], Cell[CellGroupData[{ Cell[16763, 497, 445, 13, 70, "Input",ExpressionUUID->"b970eb5a-ecd0-4813-a47a-67f73479e794", CellID->1438666406], Cell[17211, 512, 244, 7, 70, "Output",ExpressionUUID->"19fddf40-f762-4524-9791-5d7a651522af", CellID->1717663011] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17504, 525, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"e3f8cd6a-48ba-454b-b8ed-6e8f03954db4", CellID->139559256], Cell[17632, 530, 367, 10, 70, "Text",ExpressionUUID->"106942a2-7e13-4df3-972d-85967d271e03", CellID->520273068], Cell[CellGroupData[{ Cell[18024, 544, 321, 10, 70, "Input",ExpressionUUID->"adf73feb-73f6-4dab-ad5d-4f3c87b5d0e9", CellID->750594546], Cell[18348, 556, 9946, 208, 70, "Output",ExpressionUUID->"b7bcce8e-4ae2-4ce1-b70b-865e90a72b73", CellID->1586134576] }, Open ]], Cell[CellGroupData[{ Cell[28331, 769, 228, 6, 70, "Input",ExpressionUUID->"14eb36ca-43e1-4b15-a767-36d217ab5bdd", CellID->1171115942], Cell[28562, 777, 195, 5, 70, "Output",ExpressionUUID->"3c899913-d312-4a7a-adda-2b4bb5367e23", CellID->1770468873] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28806, 788, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"e56a3dce-3e9a-4273-818a-503097cf44d3", CellID->219158946], Cell[28934, 793, 425, 10, 70, "Text",ExpressionUUID->"6b2ba318-abeb-44b7-87ed-d3eab1be3db8", CellID->469950817], Cell[CellGroupData[{ Cell[29384, 807, 286, 7, 70, "Input",ExpressionUUID->"c54b8755-b57f-4d5d-87e7-0049cb9ea6db", CellID->9135156], Cell[29673, 816, 232, 6, 70, "Output",ExpressionUUID->"034220b7-c388-48a1-8394-1fb40374d51f", CellID->1337705365] }, Open ]] }, Open ]] }, Open ]], Cell[29944, 827, 49, 1, 70, "Subsection",ExpressionUUID->"ed1bcb98-236f-490c-b51d-a9de3095dc43", CellID->776923543], Cell[29996, 830, 54, 1, 70, "Subsection",ExpressionUUID->"ec8d87ca-2064-4032-ab26-0d0a2c6083a9", CellID->568056528], Cell[30053, 833, 66, 1, 70, "Subsection",ExpressionUUID->"9c8ae05c-7c50-4e67-917f-251935a75da4", CellID->754506620], Cell[30122, 836, 56, 1, 70, "Subsection",ExpressionUUID->"aa2b1172-0e40-45bc-8894-35d15f436979", CellID->92483860], Cell[30181, 839, 55, 1, 70, "Subsection",ExpressionUUID->"b60b5e03-3c70-4a64-a651-15273098d1f1", CellID->540091361] }, Open ]], Cell[CellGroupData[{ Cell[30273, 845, 135, 3, 70, "Section",ExpressionUUID->"a42323a4-ce48-4631-b401-f6d58f00559a", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[30433, 852, 672, 18, 70, "Subsection",ExpressionUUID->"825f0ed5-3856-445f-9095-b1b747839e42", CellTags->"Contributed By", CellID->757508554], Cell[31108, 872, 531, 9, 70, "Text",ExpressionUUID->"c041102b-c600-4386-8ef5-45e7494b8dd6", CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[31676, 886, 625, 18, 70, "Subsection",ExpressionUUID->"033df8fa-50f5-489b-9973-3a8c4c102c37", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell[32326, 908, 574, 10, 70, "Item",ExpressionUUID->"bdb52855-0c6a-46e6-8756-d35b5268a95c", CellTags->"TabNext", CellID->123227828], Cell[32903, 920, 555, 9, 70, "Item",ExpressionUUID->"259d810e-5a8d-4876-b6d1-abc52062d1c1", CellID->1680379073], Cell[33461, 931, 556, 9, 70, "Item",ExpressionUUID->"21f8136d-8c0f-48e0-968c-7755b8261da2", CellID->580274121] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34066, 946, 662, 18, 70, "Subsection",ExpressionUUID->"08c51726-1bd5-4277-ab20-e941578f386a", CellTags->"Related Symbols", CellID->911170439], Cell[34731, 966, 577, 10, 70, "Item",ExpressionUUID->"aee2c304-c27b-4da4-83c7-4d7d0731843e", CellTags->"TabNext", CellID->79477165] }, Open ]], Cell[35323, 979, 702, 18, 70, "Subsection",ExpressionUUID->"618c3de4-934b-45a5-ad3b-28099d9543d4", CellTags->"Related Resource Objects", CellID->217060377], Cell[36028, 999, 755, 19, 70, "Subsection",ExpressionUUID->"438aebd3-4691-41f3-975d-bc6707b9baba", CellTags->"Source/Reference Citation", CellID->967310595], Cell[36786, 1020, 597, 17, 70, "Subsection",ExpressionUUID->"501d7b19-ad02-42ec-98db-7b72684ec79b", CellTags->"Links", CellID->593846556], Cell[CellGroupData[{ Cell[37408, 1041, 767, 20, 70, "Subsection",ExpressionUUID->"7686c6d0-3713-4ca7-801a-dcd2670c7e72", CellTags->"Tests", CellID->16051757], Cell[CellGroupData[{ Cell[38200, 1065, 744, 16, 70, "Input",ExpressionUUID->"6374088d-4b7c-4ca9-bee2-df21a4b81cbb", CellID->1101344333], Cell[38947, 1083, 428, 9, 70, "Output",ExpressionUUID->"b3f68366-9469-4763-b918-e6a41e829fe9", CellID->1610422101] }, Open ]] }, Open ]] }, Open ]], Cell[39414, 1097, 127, 4, 70, "Section",ExpressionUUID->"6bb136c7-7f24-4ee3-b3b6-da063f4d4ab6", CellTags->"Author Notes", CellID->795110225], Cell[39544, 1103, 720, 19, 70, "Section",ExpressionUUID->"2879f921-4299-4dfb-81e7-ffc1733eba5c", CellTags->"Submission Notes", CellID->843283583] }, Open ]] } ] *) (* End of internal cache information *)