(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 211589, 5259] NotebookOptionsPosition[ 114744, 3326] NotebookOutlinePosition[ 191798, 4834] CellTagsIndexPosition[ 191114, 4811] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["GeneralizedMapThread", "Title", CellTags->"Title"], Cell["\<\ A version of MapThread that allows for ragged arrays and for lists with \ unequal depth\ \>", "Text", CellTags->"Description"], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line above. \ You can add input cells and extra code to define additional input cases or \ prerequisites. All definitions, including dependencies, will be included in \ the generated resource function.\n\nThis section should be evaluated before \ creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->474513213], Cell[BoxData[{ RowBox[{"ClearAll", "[", RowBox[{"iListOrAssociation", ",", "GeneralizedMapThread"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"iListOrAssociation", "[", "p_", "]"}], ":=", RowBox[{ RowBox[{"ListQ", "[", "p", "]"}], "\[Or]", RowBox[{"AssociationQ", "[", "p", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f_", ",", "lsts_List", ",", RowBox[{"n_Integer", "?", "NonNegative"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"newlists", ",", "len"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Apply", "[", RowBox[{"f", ",", "lsts"}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"len", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{"Length", "/@", RowBox[{"Select", "[", RowBox[{"lsts", ",", "iListOrAssociation"}], "]"}]}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"newlists", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Length", "[", "lst", "]"}], "==", "len"}], "\[And]", RowBox[{"iListOrAssociation", "[", "lst", "]"}]}], ",", "\[IndentingNewLine]", "lst", "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"ConstantArray", "[", RowBox[{"lst", ",", "len"}], "]"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"lst", ",", "lsts"}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MapThread", "[", RowBox[{ RowBox[{ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", "##", "}"}], ",", RowBox[{"n", "-", "1"}]}], "]"}], "&"}], ",", "newlists"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f_", ",", "lsts_"}], "]"}], ":=", RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", "lsts", ",", "1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GeneralizedMapThread", "[", "f_", "]"}], "[", "lsts_", "]"}], ":=", RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", "lsts"}], "]"}]}]}], "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.7710090351927557`*^9, 3.7710091075231333`*^9}, { 3.771009159110498*^9, 3.771009178919568*^9}, {3.771009454746911*^9, 3.771009553357594*^9}, {3.771010983796042*^9, 3.771011064785694*^9}, { 3.771011596464629*^9, 3.771011601943737*^9}, {3.7710120477828913`*^9, 3.771012050868973*^9}, {3.771131081570969*^9, 3.771131163466467*^9}, { 3.771131204744978*^9, 3.771131238040408*^9}, {3.7711312717720222`*^9, 3.771131276612564*^9}, {3.77113132861303*^9, 3.771131352183103*^9}, { 3.7711313856535177`*^9, 3.7711314382073298`*^9}, {3.77113147061271*^9, 3.771131495066559*^9}, {3.771131597532909*^9, 3.771131604684016*^9}, { 3.771131659247827*^9, 3.771131662305492*^9}, {3.771131797880292*^9, 3.771131810372468*^9}, {3.7711318637838717`*^9, 3.771131892688776*^9}, { 3.771132165281981*^9, 3.7711321806027*^9}, {3.771132248208082*^9, 3.771132261611668*^9}, {3.771132412409832*^9, 3.77113250578543*^9}, { 3.7711325672035093`*^9, 3.771132569619255*^9}, {3.771132608467774*^9, 3.771132608908334*^9}, {3.771132658199977*^9, 3.771132770313726*^9}, { 3.771133063105364*^9, 3.771133096071349*^9}, {3.771133824425602*^9, 3.771133867514861*^9}, {3.771133921371563*^9, 3.771133963353853*^9}, { 3.77113402245798*^9, 3.7711340269030447`*^9}, {3.7711342127917643`*^9, 3.7711342593031054`*^9}, {3.771134551883609*^9, 3.77113458738935*^9}, { 3.77113476847893*^9, 3.7711348016923313`*^9}, {3.771134853909058*^9, 3.7711348674526997`*^9}, 3.77113492951268*^9, {3.7711352178774233`*^9, 3.7711352200463867`*^9}, {3.771135259038164*^9, 3.7711352710459833`*^9}, { 3.771135363037421*^9, 3.771135382193904*^9}, {3.771135433015293*^9, 3.771135476368524*^9}, {3.7733069092596407`*^9, 3.773306928017077*^9}, { 3.7733070401220503`*^9, 3.7733070523547707`*^9}, {3.773307113221052*^9, 3.7733071186297283`*^9}, {3.773307253738106*^9, 3.77330730569162*^9}, { 3.773307371678293*^9, 3.773307449354154*^9}, {3.773307536356143*^9, 3.773307545324554*^9}, {3.773307578733004*^9, 3.773307698018076*^9}, { 3.7733077457990627`*^9, 3.773307748217011*^9}, {3.773307996196658*^9, 3.773308035095421*^9}, {3.773308120353592*^9, 3.7733082119715433`*^9}, { 3.773308285814499*^9, 3.773308290698936*^9}, {3.773308333468649*^9, 3.773308335438336*^9}, {3.7733083813424387`*^9, 3.7733084196456003`*^9}, { 3.773308639181777*^9, 3.773308692351379*^9}, {3.773308782696197*^9, 3.773308826424206*^9}, {3.7733089043457747`*^9, 3.773308912368854*^9}, { 3.7733096922325277`*^9, 3.773309704727126*^9}, {3.7733100101931047`*^9, 3.773310019927595*^9}, {3.7733137579493647`*^9, 3.77331376307705*^9}, { 3.773313811115868*^9, 3.7733138457983522`*^9}, {3.773315070324629*^9, 3.7733151281212893`*^9}}, CellTags->"TabNext", CellLabel->"In[6]:=", CellID->778396829] }, Open ]], Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, then \ pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->"Usage", CellID->643497520], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{ StyleBox["f", "TI"], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["a", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["a", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["b", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["b", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}]}], "]"}]], "UsageInputs"], Cell[TextData[{ "gives ", Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ StyleBox["f", "TI"], "[", RowBox[{ SubscriptBox[ StyleBox["a", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["b", "TI"], StyleBox["1", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "]"}], ",", RowBox[{ StyleBox["f", "TI"], "[", RowBox[{ SubscriptBox[ StyleBox["a", "TI"], StyleBox["2", "TR"]], ",", SubscriptBox[ StyleBox["b", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "]"}], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}]], FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{ StyleBox["f", "TI"], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["expr", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["expr", "TI"], StyleBox["2", "TR"]], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "applies ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to the parts of the ", Cell[BoxData[ SubscriptBox[ StyleBox["expr", "TI"], StyleBox["i", "TI"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " at level ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", StyleBox["f", "TI"], "]"}]], "UsageInputs"], Cell[TextData[{ "represents an operator form of ", Cell[BoxData["GeneralizedMapThread"], "InlineFormula", FontFamily->"Source Sans Pro"], " that can be applied to an expression." }], "UsageDescription"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->66019318], Cell[TextData[{ "If the lists do not have equal length, the smallest lists are made equal \ length by making copies using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ConstantArray", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ConstantArray"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->2106171866], Cell[TextData[{ Cell[BoxData["GeneralizedMapThread"], "InlineFormula", FontFamily->"Source Sans Pro"], " works on ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " objects." }], "Notes", CellID->1900346723], Cell[TextData[{ Cell[BoxData["GeneralizedMapThread"], "InlineFormula", FontFamily->"Source Sans Pro"], "[", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "][", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "] is equivalent to ", Cell[BoxData["GeneralizedMapThread"], "InlineFormula", FontFamily->"Source Sans Pro"], "[", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ StyleBox["expr", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "]." }], "Notes", CellTags->"TabNext", CellID->521904482] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Have the second argument be a constant:", "Text", CellChangeTimes->{{3.773310207844962*^9, 3.7733102160353527`*^9}, { 3.7840062434220743`*^9, 3.784006243801084*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", "9", ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.773310185170177*^9, 3.7733102219033318`*^9}, { 3.773315521576871*^9, 3.773315526307023*^9}, 3.773315580130723*^9}, CellLabel->"In[11]:=", CellID->1361972870], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "9", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "9", ",", "b"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "9", ",", "c"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "9", ",", "d"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{{3.773310200296693*^9, 3.773310222236293*^9}, 3.7733112716803293`*^9, 3.773313383459549*^9, 3.773314161773087*^9, 3.77331489499807*^9, {3.773315516503016*^9, 3.773315526908103*^9}, 3.773315580765077*^9, 3.7737638795369587`*^9}, CellLabel->"Out[11]=", CellID->704733800] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->832336434], Cell["It works on expressions with unequal lengths \ (\[OpenCurlyDoubleQuote]ragged\[CloseCurlyDoubleQuote]):", "Text", CellChangeTimes->{{3.773310207844962*^9, 3.7733102160353527`*^9}, { 3.773310631686399*^9, 3.773310652214985*^9}, {3.7840062625543947`*^9, 3.7840062646604595`*^9}}, CellID->461940098], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Range", "[", "2", "]"}], ",", RowBox[{"Range", "[", "3", "]"}], ",", RowBox[{"Range", "[", "4", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"f", ",", "g", ",", "h", ",", "i"}], "}"}]}], "}"}]}], "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.7733105544874973`*^9, 3.773310617233673*^9}}, CellLabel->"In[12]:=", CellID->1755019743], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "b"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "c"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "d"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "e"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "f"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "g"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "h"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "i"}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7733105758830633`*^9, 3.773310579494356*^9}, { 3.7733106097962847`*^9, 3.7733106176005096`*^9}, 3.773310667091824*^9, 3.773311273526697*^9, 3.773314163194385*^9, 3.773314898091628*^9, { 3.7733155590756083`*^9, 3.773315583809245*^9}, 3.773763882111191*^9}, CellLabel->"Out[12]=", CellID->1148791732] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->174526116], Cell[TextData[{ "Apply ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " to the corresponding values of associations, copying values where \ necessary:" }], "Text", CellChangeTimes->{{3.773310817388425*^9, 3.7733108446840477`*^9}}, CellID->65987167], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"<|", RowBox[{"a", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "|>"}], ",", RowBox[{"<|", RowBox[{"a", "\[Rule]", "2"}], "|>"}], ",", RowBox[{"<|", RowBox[{"a", "\[Rule]", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "|>"}]}], "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.77331076165077*^9, 3.773310814344735*^9}}, CellLabel->"In[354]:=", CellID->2124793111], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{"a", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "3"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "2", ",", "4"}], "]"}]}], "}"}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{{3.773310771165698*^9, 3.773310814728712*^9}, { 3.773313826021875*^9, 3.773313851398427*^9}, 3.773314164417089*^9, 3.7733149007157288`*^9, {3.773315560612557*^9, 3.773315585108201*^9}}, CellLabel->"Out[354]=", CellID->950912362] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->964056545], Cell["Apply to a list of lists with varying depths and lengths:", "Text", CellChangeTimes->{{3.773310944219625*^9, 3.773310947021353*^9}, { 3.773311297068178*^9, 3.7733113045434837`*^9}, {3.773311385849757*^9, 3.773311387990468*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"mid", "=", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", "3", "]"}], ",", RowBox[{"Range", "[", "4", "]"}], ",", RowBox[{"Range", "[", "5", "]"}], ",", RowBox[{"Range", "[", "2", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"out", "=", RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", "4", "]"}], ",", "mid", ",", "4"}], "}"}], ",", "2"}], "]"}]}]}], "Input", CellChangeTimes->{{3.773310917112417*^9, 3.773310934174502*^9}, { 3.7733113102557487`*^9, 3.77331131069217*^9}}, CellLabel->"In[355]:=", CellID->836153427], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "1", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "3", ",", "4"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"2", ",", "1", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "2", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "3", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "4", ",", "4"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"3", ",", "1", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "2", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "3", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "4", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "5", ",", "4"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"4", ",", "1", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "2", ",", "4"}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.773310922459999*^9, 3.7733109346207533`*^9}, { 3.773311306972142*^9, 3.773311311550767*^9}, 3.773311390274106*^9, 3.773314167202223*^9, 3.7733149036935377`*^9, 3.773315589290694*^9}, CellLabel->"Out[356]=", CellID->113478405] }, Open ]], Cell["The final results are ragged:", "Text", CellChangeTimes->{{3.773311317488285*^9, 3.7733113687737513`*^9}, { 3.7840062911892405`*^9, 3.784006291621655*^9}}, CellID->1907554436], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", "out", "]"}]], "Input", CellChangeTimes->{{3.773311313066853*^9, 3.7733113395700493`*^9}}, CellLabel->"In[357]:=", CellID->498726094], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{"f", "[", RowBox[{"1", ",", "1", ",", "4"}], "]"}], RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "4"}], "]"}], RowBox[{"f", "[", RowBox[{"1", ",", "3", ",", "4"}], "]"}], "", ""}, { RowBox[{"f", "[", RowBox[{"2", ",", "1", ",", "4"}], "]"}], RowBox[{"f", "[", RowBox[{"2", ",", "2", ",", "4"}], "]"}], RowBox[{"f", "[", RowBox[{"2", ",", "3", ",", "4"}], "]"}], RowBox[{"f", "[", RowBox[{"2", ",", "4", ",", "4"}], "]"}], ""}, { RowBox[{"f", "[", RowBox[{"3", ",", "1", ",", "4"}], "]"}], RowBox[{"f", "[", RowBox[{"3", ",", "2", ",", "4"}], "]"}], RowBox[{"f", "[", RowBox[{"3", ",", "3", ",", "4"}], "]"}], RowBox[{"f", "[", RowBox[{"3", ",", "4", ",", "4"}], "]"}], RowBox[{"f", "[", RowBox[{"3", ",", "5", ",", "4"}], "]"}]}, { RowBox[{"f", "[", RowBox[{"4", ",", "1", ",", "4"}], "]"}], RowBox[{"f", "[", RowBox[{"4", ",", "2", ",", "4"}], "]"}], "", "", ""} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{{3.7733113140932493`*^9, 3.773311340027108*^9}, { 3.77331137039867*^9, 3.773311391690672*^9}, 3.773314168385641*^9, 3.7733149048909817`*^9, 3.773315591153816*^9}, CellLabel->"Out[357]=", CellID->930199798] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->253249249], Cell[TextData[{ "Apply at level 1 means that ", Cell[BoxData[ RowBox[{"{", RowBox[{ StyleBox["a", "TI"], ",", StyleBox["b", "TI"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " from the final list is considered a single value:" }], "Text", CellChangeTimes->{{3.773311425140696*^9, 3.773311457770816*^9}, { 3.773311490683578*^9, 3.773311496550358*^9}, {3.77331160917551*^9, 3.773311620221221*^9}, {3.773316394823889*^9, 3.773316395083373*^9}, 3.784006311315051*^9}, CellID->995067595], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13"}], "}"}], ",", "2", ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.773311459603739*^9, 3.773311494673853*^9}, { 3.7733115387558117`*^9, 3.7733115389660063`*^9}, 3.773315692746367*^9}, CellLabel->"In[379]:=", CellID->1690783212], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"11", ",", "2", ",", "7"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"12", ",", "2", ",", "8"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"13", ",", "2", ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.773311409138*^9, {3.7733114602606373`*^9, 3.773311497547694*^9}, 3.773311539539266*^9, 3.7733141710045147`*^9, 3.7733149087965937`*^9, 3.773315598551586*^9, 3.773315693090125*^9}, CellLabel->"Out[379]=", CellID->1062376210] }, Open ]], Cell[TextData[{ "Apply at level 2 means interpreting ", Cell[BoxData[ RowBox[{"{", RowBox[{ StyleBox["a", "TI"], ",", StyleBox["b", "TI"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " as separate values, and copying all the other values:" }], "Text", CellChangeTimes->{{3.7733114692251577`*^9, 3.773311541665469*^9}, { 3.773311614633803*^9, 3.773311615316276*^9}, 3.7840063292967176`*^9}, CellID->2096873973], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13"}], "}"}], ",", "2", ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "}"}]}], "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{ 3.773311465284539*^9, {3.773311503369891*^9, 3.773311504286991*^9}, { 3.773311536134584*^9, 3.773311536435285*^9}, 3.7733156944656553`*^9}, CellLabel->"In[421]:=", CellID->1409930297], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"f", "[", RowBox[{"11", ",", "2", ",", "7"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"f", "[", RowBox[{"12", ",", "2", ",", "8"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"13", ",", "2", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"13", ",", "2", ",", "b"}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.773311465531625*^9, {3.7733115046376123`*^9, 3.773311543280713*^9}, 3.7733141721271753`*^9, 3.773314909911395*^9, 3.773315599657938*^9, 3.7733156948453207`*^9, 3.773316401655449*^9}, CellLabel->"Out[421]=", CellID->1172924820] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1372625092], Cell[TextData[{ "Create an operator of ", Cell[BoxData["GeneralizedMapThread"], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.773315697971649*^9, 3.7733157082186604`*^9}, 3.7733158140150414`*^9}, CellID->1652496038], Cell[BoxData[ RowBox[{ RowBox[{"op", "=", RowBox[{"GeneralizedMapThread", "[", "f", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.77331568738765*^9, 3.7733157124768343`*^9}}, CellLabel->"In[422]:=", CellID->596657193], Cell["Use the operator on some data:", "Text", CellChangeTimes->{{3.7733157164979057`*^9, 3.773315724127132*^9}, { 3.77331582750784*^9, 3.7733158379237843`*^9}, {3.773315889476903*^9, 3.7733158909640207`*^9}}, CellID->190766715], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"op", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "5"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.773315727553117*^9, 3.773315759407021*^9}, { 3.7733158224277983`*^9, 3.77331588251705*^9}}, CellLabel->"In[423]:=", CellID->208904671], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "5"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "5"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "5"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.773315759917988*^9, {3.773315818822208*^9, 3.773315892013858*^9}, 3.77331597691812*^9, 3.773316405713539*^9}, CellLabel->"Out[423]=", CellID->1111199998] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellID->568056528], Cell[TextData[{ "Subtract the vector ", Cell[BoxData[ RowBox[{"{", RowBox[{ StyleBox["a", "TI"], ",", StyleBox["b", "TI"]}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " from a list of vectors:" }], "Text", CellChangeTimes->{{3.773311691052731*^9, 3.773311702202471*^9}, 3.773764061109583*^9}, CellID->900293773], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{ RowBox[{ RowBox[{"Subtract", "[", RowBox[{"#1", ",", RowBox[{"First", "@", "#2"}]}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"c", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.773311714414043*^9, 3.773311714635041*^9}, { 3.7733160419285793`*^9, 3.7733160622099657`*^9}, {3.773316103918599*^9, 3.773316108497058*^9}, {3.77331624701022*^9, 3.773316254955656*^9}}, CellLabel->"In[424]:=", CellID->955132211], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "a"}], ",", RowBox[{"1", "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "a"}], ",", RowBox[{"2", "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "-", "a"}], ",", RowBox[{"3", "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4", "-", "a"}], ",", RowBox[{"5", "-", "b"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.773316063054358*^9, 3.7733161090759573`*^9}, 3.773316255888096*^9, 3.773316408395651*^9}, CellLabel->"Out[424]=", CellID->315396549] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1313439539], Cell["\<\ Apply a list of functions to a single argument without pure functions:\ \>", "Text", CellChangeTimes->{{3.7733130726900253`*^9, 3.7733130867568274`*^9}}, CellID->1114840142], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"Construct", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "g", ",", "h"}], "}"}], ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.773313029176355*^9, 3.773313056253193*^9}, { 3.7733131004925957`*^9, 3.773313131671213*^9}, 3.773313165508219*^9}, CellLabel->"In[425]:=", CellID->667905639], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "2", "]"}], ",", RowBox[{"g", "[", "2", "]"}], ",", RowBox[{"h", "[", "2", "]"}]}], "}"}]], "Output", CellChangeTimes->{{3.773313029597546*^9, 3.773313056549963*^9}, { 3.7733130877694902`*^9, 3.773313132068255*^9}, 3.7733131658694277`*^9, 3.773314176264872*^9, 3.773314914112339*^9, 3.773315604020781*^9, 3.7733159245101433`*^9, 3.773316131453031*^9, 3.773316409772912*^9}, CellLabel->"Out[425]=", CellID->524700828] }, Open ]], Cell[TextData[{ "This can also be achieved using ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Through", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Through"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.773313200800685*^9, 3.773313211027957*^9}}, CellID->1183702696], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Through", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "g", ",", "h"}], "}"}], "[", "2", "]"}], "]"}]], "Input",\ CellChangeTimes->{{3.773313182613409*^9, 3.7733131928955803`*^9}}, CellLabel->"In[426]:=", CellID->1884765744], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "2", "]"}], ",", RowBox[{"g", "[", "2", "]"}], ",", RowBox[{"h", "[", "2", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.773313193243783*^9, 3.773314177327176*^9, 3.77331491520289*^9, 3.773315605102199*^9, 3.773315925507916*^9, 3.773316132863277*^9, 3.773316411159602*^9}, CellLabel->"Out[426]=", CellID->310235741] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellID->754506620], Cell[TextData[{ "When the arrays are of equal length, ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["MapThread", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/MapThread"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and GeneralizedMapThread give the same result:" }], "Text", CellChangeTimes->{{3.77331185250307*^9, 3.773311874400354*^9}, { 3.773313243776115*^9, 3.773313249829941*^9}, 3.784006364829109*^9}, CellID->1550517141], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "9"}], "}"}]}], "}"}]}], "]"}], "===", RowBox[{"MapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "12", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "9"}], "}"}]}], "}"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.7733118195334587`*^9, 3.7733118791536493`*^9}, { 3.7733122658772*^9, 3.773312267631713*^9}}, CellLabel->"In[395]:=", CellID->1671316914], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.773311824138569*^9, 3.773311879479686*^9}, 3.773312268072866*^9, 3.773313253177125*^9, 3.7733141787370987`*^9, 3.773314916858223*^9, 3.7733156085038567`*^9, 3.7733159268737497`*^9}, CellLabel->"Out[395]=", CellID->1866440743] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->393002080], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["MapThread", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/MapThread"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " cannot handle lists with elements of unequal length (\ \[OpenCurlyDoubleQuote]ragged\[CloseCurlyDoubleQuote]):" }], "Text", CellChangeTimes->{{3.773311991008337*^9, 3.77331200973269*^9}, 3.773312132841571*^9, {3.7733132617766037`*^9, 3.773313266684412*^9}, { 3.773313501575513*^9, 3.773313508886341*^9}, {3.784006376414242*^9, 3.7840063777023153`*^9}}, CellID->2093744690], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d", ",", "e"}], "}"}]}], "}"}]}], "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.773311986388329*^9, 3.773311988147666*^9}, 3.773312270060309*^9}, CellLabel->"In[396]:=", CellID->739520637], Cell[BoxData[ TemplateBox[{ "MapThread","mptd", "\"Object \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \ RowBox[{\\\"1\\\", \\\",\\\", \\\"2\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\ \"{\\\", RowBox[{\\\"3\\\", \\\",\\\", \\\"4\\\", \\\",\\\", \\\"5\\\"}], \ \\\"}\\\"}]}], \\\"}\\\"}]\\) at position {2, \ \\!\\(\\*RowBox[{\\\"1\\\"}]\\)} in \\!\\(\\*RowBox[{\\\"MapThread\\\", \\\"[\ \\\", RowBox[{\\\"f\\\", \\\",\\\", RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"1\\\", \ \\\",\\\", \\\"2\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\ \"3\\\", \\\",\\\", \\\"4\\\", \\\",\\\", \\\"5\\\"}], \\\"}\\\"}]}], \\\"}\\\ \"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \ RowBox[{\\\"a\\\", \\\",\\\", \\\"b\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\ \"{\\\", RowBox[{\\\"c\\\", \\\",\\\", \\\"d\\\", \\\",\\\", \\\"e\\\"}], \ \\\"}\\\"}]}], \\\"}\\\"}]}], \\\"}\\\"}], \\\",\\\", \\\"2\\\"}], \ \\\"]\\\"}]\\) has only \\!\\(\\*RowBox[{\\\"1\\\"}]\\) of required \ \\!\\(\\*RowBox[{\\\"2\\\"}]\\) dimensions.\"",2,396,35,31648811322360916082, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7733122716811028`*^9, {3.773313255775132*^9, 3.773313267996026*^9}, 3.773313510068845*^9, 3.773314181617588*^9, 3.773315611013032*^9, 3.7733159289173*^9}, CellLabel->"During evaluation of In[396]:=", CellID->892761495], Cell[BoxData[ RowBox[{"MapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d", ",", "e"}], "}"}]}], "}"}]}], "}"}], ",", "2"}], "]"}]], "Output", CellChangeTimes->{ 3.773312271692774*^9, {3.7733132557855062`*^9, 3.773313268003051*^9}, 3.773313510078733*^9, 3.7733141816246243`*^9, 3.773315611018942*^9, 3.773315928925088*^9}, CellLabel->"Out[396]=", CellID->174204876] }, Open ]], Cell[TextData[{ Cell[BoxData["GeneralizedMapThread"], "InlineFormula", FontFamily->"Source Sans Pro"], " can handle these cases:" }], "Text", CellChangeTimes->{{3.773312053025528*^9, 3.7733121359993668`*^9}}, CellID->1264845271], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d", ",", "e"}], "}"}]}], "}"}]}], "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.773311936678195*^9, 3.773311982095153*^9}, { 3.773312012115687*^9, 3.773312013718696*^9}, 3.7733122773880053`*^9}, CellLabel->"In[397]:=", CellID->1757546310], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "b"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"3", ",", "c"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "d"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"5", ",", "e"}], "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7733119664251747`*^9, 3.773311974351266*^9}, 3.773312041950952*^9, 3.773312111402367*^9, 3.7733122778726377`*^9, 3.773313270598324*^9, 3.773313511571303*^9, 3.773314182700349*^9, 3.7733156121867247`*^9, 3.773315929866255*^9}, CellLabel->"Out[397]=", CellID->171372887] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->441115352], Cell[TextData[{ Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Thread", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Thread"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " can handle arrays with different depths:" }], "Text", CellChangeTimes->{{3.773312809213152*^9, 3.773312810035239*^9}, { 3.773312906633246*^9, 3.773312934163314*^9}, {3.773312986643118*^9, 3.773312987450515*^9}, 3.773763816349496*^9}, CellID->2054039417], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Thread", "[", RowBox[{"f", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "2", ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.773312812276556*^9, 3.7733128210383797`*^9}}, CellLabel->"In[366]:=", CellID->183791298], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "2", ",", "5"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "2", ",", "6"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.77331282138811*^9, 3.773312935446834*^9, 3.7733130098378696`*^9, 3.773313273705083*^9, 3.77331351331765*^9, 3.7733141839657516`*^9, 3.773315614234475*^9}, CellLabel->"Out[366]=", CellID->334062090] }, Open ]], Cell[TextData[{ "GeneralizedMapThread can also do this but the syntax of \ GeneralizedMapThread follows the syntax of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["MapThread", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/MapThread"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.773312953661456*^9, 3.773313001083129*^9}}, CellID->2052312684], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "2", ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.773312829545545*^9, 3.7733128331330223`*^9}}, CellLabel->"In[367]:=", CellID->1487199632], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "4"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "2", ",", "5"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "2", ",", "6"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.773312834509832*^9, 3.773312936633027*^9, 3.773313007525597*^9, 3.7733132780427856`*^9, 3.773313514943034*^9, 3.773314185012792*^9, 3.7733156152952957`*^9}, CellLabel->"Out[367]=", CellID->1128726865] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellID->92483860], Cell["Associations must have the same keys:", "Text", CellChangeTimes->{{3.7733122398669243`*^9, 3.7733122471236*^9}}, CellID->1186266912], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"<|", RowBox[{"a", "\[Rule]", "2"}], "|>"}], ",", RowBox[{"<|", RowBox[{"a", "\[Rule]", "3"}], "|>"}], ",", RowBox[{"<|", RowBox[{ RowBox[{"a", "\[Rule]", "4"}], ",", RowBox[{"b", "\[Rule]", "2"}]}], "|>"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.773312216683968*^9, 3.7733122879795113`*^9}, { 3.7733138654009323`*^9, 3.773313868187005*^9}}, CellLabel->"In[368]:=", CellID->1291938957], Cell[BoxData[ TemplateBox[{ "MapThread","mpth", "\"Incompatible heads of objects at positions {2, \\!\\(\\*RowBox[{\\\"2\\\ \"}]\\)} and {2, \\!\\(\\*RowBox[{\\\"3\\\"}]\\)} of \ \\!\\(\\*RowBox[{\\\"MapThread\\\", \\\"[\\\", \ RowBox[{RowBox[{RowBox[{\\\"GeneralizedMapThread\\\", \\\"[\\\", \ RowBox[{\\\"f\\\", \\\",\\\", RowBox[{\\\"{\\\", \\\"##1\\\", \\\"}\\\"}], \\\ \",\\\", RowBox[{\\\"1\\\", \\\"-\\\", \\\"1\\\"}]}], \\\"]\\\"}], \ \\\"&\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"\[LeftAssociation]\\\", RowBox[{\\\"a\\\", \ \\\"\[Rule]\\\", \\\"2\\\"}], \\\"\[RightAssociation]\\\"}], \\\",\\\", \ RowBox[{\\\"\[LeftAssociation]\\\", RowBox[{\\\"a\\\", \\\"\[Rule]\\\", \\\"2\ \\\"}], \\\"\[RightAssociation]\\\"}]}], \\\"}\\\"}], \\\",\\\", \ RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\[LeftAssociation]\\\", \ RowBox[{\\\"a\\\", \\\"\[Rule]\\\", \\\"3\\\"}], \ \\\"\[RightAssociation]\\\"}], \\\",\\\", RowBox[{\\\"\[LeftAssociation]\\\", \ RowBox[{\\\"a\\\", \\\"\[Rule]\\\", \\\"3\\\"}], \ \\\"\[RightAssociation]\\\"}]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"\ \[LeftAssociation]\\\", RowBox[{RowBox[{\\\"a\\\", \\\"\[Rule]\\\", \ \\\"4\\\"}], \\\",\\\", RowBox[{\\\"b\\\", \\\"\[Rule]\\\", \\\"2\\\"}]}], \\\ \"\[RightAssociation]\\\"}]}], \\\"}\\\"}]}], \\\"]\\\"}]\\); heads are \ \\!\\(\\*RowBox[{\\\"List\\\"}]\\) and \\!\\(\\*RowBox[{\\\"Association\\\"}]\ \\).\"",2,368,33,31648811322360916082,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.773313868554865*^9, 3.773314188173963*^9, 3.7733156178595133`*^9}, CellLabel->"During evaluation of In[368]:=", CellID->2033787875], Cell[BoxData[ RowBox[{"MapThread", "[", RowBox[{ RowBox[{ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", "##1", "}"}], ",", RowBox[{"1", "-", "1"}]}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[LeftAssociation]", RowBox[{"a", "\[Rule]", "2"}], "\[RightAssociation]"}], ",", RowBox[{"\[LeftAssociation]", RowBox[{"a", "\[Rule]", "2"}], "\[RightAssociation]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[LeftAssociation]", RowBox[{"a", "\[Rule]", "3"}], "\[RightAssociation]"}], ",", RowBox[{"\[LeftAssociation]", RowBox[{"a", "\[Rule]", "3"}], "\[RightAssociation]"}]}], "}"}], ",", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"a", "\[Rule]", "4"}], ",", RowBox[{"b", "\[Rule]", "2"}]}], "\[RightAssociation]"}]}], "}"}]}], "]"}]], "Output", CellChangeTimes->{{3.7733122355186663`*^9, 3.773312288424347*^9}, 3.773313280562402*^9, 3.773313532555626*^9, 3.773313794094805*^9, { 3.773313858582655*^9, 3.773313868565118*^9}, 3.7733141881797333`*^9, 3.773315617867772*^9}, CellLabel->"Out[368]=", CellID->375605826] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->764337092], Cell["Associations and lists can not be mixed:", "Text", CellChangeTimes->{{3.7733135774095163`*^9, 3.7733135901727953`*^9}}, CellID->2109535518], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"<|", RowBox[{"a", "\[Rule]", "1"}], "|>"}], ",", "2"}], "}"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.773313561321612*^9, 3.773313572871928*^9}, { 3.773313783355947*^9, 3.773313786246505*^9}}, CellLabel->"In[369]:=", CellID->647706746], Cell[BoxData[ TemplateBox[{ "MapThread","mpth", "\"Incompatible heads of objects at positions {2, \\!\\(\\*RowBox[{\\\"1\\\ \"}]\\)} and {2, \\!\\(\\*RowBox[{\\\"2\\\"}]\\)} of \ \\!\\(\\*RowBox[{\\\"MapThread\\\", \\\"[\\\", \ RowBox[{RowBox[{RowBox[{\\\"GeneralizedMapThread\\\", \\\"[\\\", \ RowBox[{\\\"f\\\", \\\",\\\", RowBox[{\\\"{\\\", \\\"##1\\\", \\\"}\\\"}], \\\ \",\\\", RowBox[{\\\"1\\\", \\\"-\\\", \\\"1\\\"}]}], \\\"]\\\"}], \ \\\"&\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ \[LeftAssociation]\\\", RowBox[{\\\"a\\\", \\\"\[Rule]\\\", \\\"1\\\"}], \\\"\ \[RightAssociation]\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \\\"2\\\", \ \\\"}\\\"}]}], \\\"}\\\"}]}], \\\"]\\\"}]\\); heads are \ \\!\\(\\*RowBox[{\\\"Association\\\"}]\\) and \\!\\(\\*RowBox[{\\\"List\\\"}]\ \\).\"",2,369,34,31648811322360916082,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.773313862422035*^9, 3.77331387013794*^9}, 3.773314190034581*^9, 3.7733156192359743`*^9}, CellLabel->"During evaluation of In[369]:=", CellID->436196496], Cell[BoxData[ RowBox[{"MapThread", "[", RowBox[{ RowBox[{ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", "##1", "}"}], ",", RowBox[{"1", "-", "1"}]}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[LeftAssociation]", RowBox[{"a", "\[Rule]", "1"}], "\[RightAssociation]"}], ",", RowBox[{"{", "2", "}"}]}], "}"}]}], "]"}]], "Output", CellChangeTimes->{{3.7733135643661327`*^9, 3.773313591473517*^9}, { 3.7733137772796383`*^9, 3.773313786560295*^9}, {3.7733138624273767`*^9, 3.773313870145466*^9}, 3.773314190043763*^9, 3.773315619243178*^9}, CellLabel->"Out[369]=", CellID->1792821061] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1666715828], Cell[TextData[{ "Values with another head, such as ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["List", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/List"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " or ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Association", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Association"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", or an incorrect length will get copied:" }], "Text", CellChangeTimes->{{3.773313678644446*^9, 3.7733136788017263`*^9}, { 3.773313906156633*^9, 3.773313940897423*^9}, {3.7840064047103276`*^9, 3.784006415911729*^9}}, CellID->839883026], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"G", "[", RowBox[{"a", ",", "b"}], "]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.773313682944663*^9, 3.7733137517411413`*^9}, { 3.773313885670822*^9, 3.773313894513866*^9}}, CellLabel->"In[370]:=", CellID->1900475558], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", RowBox[{"G", "[", RowBox[{"a", ",", "b"}], "]"}]}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", RowBox[{"G", "[", RowBox[{"a", ",", "b"}], "]"}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{{3.773313686031393*^9, 3.7733137701244097`*^9}, { 3.773313871713035*^9, 3.773313942049889*^9}, 3.773314192290721*^9, 3.7733156204647827`*^9}, CellLabel->"Out[370]=", CellID->583344748] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->1852210909], Cell["\<\ For the case of unequal length, the longest list is taken as the actual \ length. Here the last list is the longest; the first list is copied:\ \>", "Text", CellChangeTimes->{{3.7733139563277617`*^9, 3.773314039096386*^9}, { 3.784006428463622*^9, 3.7840064452116637`*^9}}, CellID->1904421409], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7733139471469707`*^9, 3.773313948067603*^9}}, CellLabel->"In[371]:=", CellID->386368364], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", "2"}], "]"}], ",", RowBox[{"f", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", "3"}], "]"}], ",", RowBox[{"f", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", "4"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.77331394841998*^9, 3.7733141938008623`*^9, {3.773315143510063*^9, 3.7733151592947893`*^9}, 3.77331562840828*^9}, CellLabel->"Out[371]=", CellID->697704800] }, Open ]], Cell["Here the first list is the longest; the last list is copied:", "Text", CellChangeTimes->{{3.7733139968428793`*^9, 3.7733140502228727`*^9}, { 3.78400645197791*^9, 3.784006453551276*^9}}, CellID->1438373964], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", "2", "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.773313973943244*^9, 3.773313974316394*^9}}, CellLabel->"In[372]:=", CellID->56842514], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.773313975031657*^9, 3.7733140208911743`*^9, 3.773314052574387*^9, 3.773314194838282*^9, {3.7733151410233192`*^9, 3.77331516812458*^9}, 3.773315630759324*^9}, CellLabel->"Out[372]=", CellID->990291431] }, Open ]], Cell["\<\ An extra bracket around the second list will make it the shortest:\ \>", "Text", CellChangeTimes->{{3.7733140736626387`*^9, 3.773314093962023*^9}}, CellID->905764497], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], "}"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.773314062541621*^9, 3.773314070393064*^9}}, CellLabel->"In[373]:=", CellID->2125533916], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], "}"}]}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], "}"}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{{3.773314064068009*^9, 3.7733140965604267`*^9}, 3.773314196858283*^9, 3.773315139468648*^9, 3.773315171007553*^9, 3.7733156332185793`*^9}, CellLabel->"Out[373]=", CellID->1011059733] }, Open ]], Cell["\<\ One can also give it a different head, which prevent it from being \ interpreted as a list:\ \>", "Text", CellChangeTimes->{{3.7733149818673897`*^9, 3.773314986955661*^9}, { 3.773315176496709*^9, 3.773315183495797*^9}, 3.7840064659169216`*^9}, CellID->1498137003], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"c", "[", RowBox[{"2", ",", "3", ",", "4"}], "]"}]}], "}"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.77331499429521*^9, 3.7733150401625843`*^9}}, CellLabel->"In[374]:=", CellID->1980298828], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", RowBox[{"c", "[", RowBox[{"2", ",", "3", ",", "4"}], "]"}]}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", RowBox[{"c", "[", RowBox[{"2", ",", "3", ",", "4"}], "]"}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{{3.773314999649887*^9, 3.773315040448721*^9}, { 3.7733151362410707`*^9, 3.773315186609462*^9}, 3.773315635105438*^9}, CellLabel->"Out[374]=", CellID->816050561] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", CellID->540091361], Cell["\<\ Interpret the entries as three levels deep, copying them all:\ \>", "Text", CellChangeTimes->{{3.7733123577093*^9, 3.7733123778821077`*^9}, { 3.784006477866806*^9, 3.7840064785374484`*^9}}, CellID->833804323], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.773312346158339*^9, 3.7733123538511133`*^9}}, CellLabel->"In[412]:=", CellID->1142369266], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"{", RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "3"}], "]"}], "}"}], "}"}], "}"}]], "Output",\ CellChangeTimes->{{3.77331235420922*^9, 3.77331238003299*^9}, 3.773313284898395*^9, 3.773313775114458*^9, 3.77331419809975*^9, 3.773315642502843*^9, 3.773316351477688*^9}, CellLabel->"Out[412]=", CellID->1147689187] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->73934594], Cell["Create a complex ragged array with different depths:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7733144829831743`*^9, 3.773314497951198*^9}, 3.773315503700017*^9}, CellID->1666596213], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "1234", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"random", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"5", ",", "#"}], "]"}], "&"}], "/@", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"#", ",", "3"}], "}"}]}], "]"}]}], ")"}], "&"}], "/@", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}], ",", "2"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.77331420094516*^9, 3.773314472048294*^9}, { 3.773314513046371*^9, 3.7733145697489567`*^9}}, CellLabel->"In[413]:=", CellID->429883847], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "5", ",", "0", ",", "2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "1", ",", "2", ",", "4", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "3", ",", "0", ",", "5", ",", "4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "3", ",", "1", ",", "4", ",", "4"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0", ",", "4", ",", "2", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "2", ",", "5", ",", "5", ",", "2"}], "}"}]}], "}"}]}], "}"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.773314407922019*^9, 3.773314472373412*^9}, { 3.773314534399663*^9, 3.7733145702244873`*^9}, 3.7733146008737803`*^9, 3.773314674815345*^9, 3.773314709860792*^9, 3.773315505245743*^9, 3.773315644710146*^9, 3.773316358197075*^9}, CellLabel->"Out[414]=", CellID->1603404668] }, Open ]], Cell[TextData[{ "Apply the function ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " five levels deep, with the second argument set constant to ", Cell[BoxData[ StyleBox["a", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.773314684564042*^9, 3.773314706439227*^9}, { 3.784006500230948*^9, 3.7840065691520214`*^9}}, CellID->313068411], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"random", ",", "a"}], "}"}], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.773314576768289*^9, 3.7733145920447063`*^9}, 3.773314681195167*^9}, CellLabel->"In[415]:=", CellID->1196333512], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"5", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"3", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "a"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"5", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"3", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"5", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"5", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"3", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"5", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}]}], "}"}]}], "}"}]}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"5", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"5", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"3", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"5", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"5", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"0", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"5", ",", "a"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"4", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"5", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"5", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "a"}], "]"}]}], "}"}]}], "}"}]}], "}"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.773314577410838*^9, 3.7733146022625017`*^9}, { 3.773314675674*^9, 3.7733147116764297`*^9}, 3.773315507598447*^9, 3.773315647439*^9, 3.773316359294841*^9}, CellLabel->"Out[415]=", CellID->1938753698] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->127820888], Cell["Sander Huisman", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->547400482], Cell["generalized map thread", "Item"], Cell["Map thread", "Item"], Cell["rethread", "Item"], Cell["autothread", "Item"], Cell["ragged map thread", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Categories", CellID->749076926], Cell["Core Language & Structure", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->161079978], Cell["MapThread", "Item"], Cell["Through", "Item"], Cell["Thread", "Item"], Cell["Apply", "Item"], Cell["Map", "Item"], Cell["Inner", "Item"], Cell["Distribute", "Item"], Cell["AssociationThread", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->588449267], Cell["Resource Name (resources from any Wolfram repository)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->642091068], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->521525586], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Specify an optional list of tests for verifying that the function is \ working properly in any environment. Tests can be specified as Input/Output \ cell pairs or as symbolic VerificationTest expressions for including \ additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", "7"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "7"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "7"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "7"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "7"}], "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"VerificationTest", "[", RowBox[{ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Range", "[", "2", "]"}], ",", RowBox[{"Range", "[", "3", "]"}], ",", RowBox[{"Range", "[", "4", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d", ",", "e"}], "}"}], ",", RowBox[{"{", RowBox[{"f", ",", "g", ",", "h", ",", "i"}], "}"}]}], "}"}]}], "}"}], ",", "2"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "b"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "c"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "d"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "e"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "f"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "g"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "h"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "i"}], "]"}]}], "}"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7733133865000343`*^9, 3.7733134126169653`*^9}}, CellLabel->"In[303]:=", CellID->667877521], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "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[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "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[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", "7"}], "}"}]}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "7"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "7"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "7"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "7"}], "]"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "7"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "7"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "7"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "7"}], "]"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000311`2.6432753868588317", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "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:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 4, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`GeneralizedMapThread[$CellContext`f, {{1, 2, 3, 4}, 7}]], "ExpectedOutput" -> HoldForm[{ $CellContext`f[1, 7], $CellContext`f[2, 7], $CellContext`f[3, 7], $CellContext`f[4, 7]}], "ActualOutput" -> HoldForm[{ $CellContext`f[1, 7], $CellContext`f[2, 7], $CellContext`f[3, 7], $CellContext`f[4, 7]}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000311`2.6432753868588317, "Seconds"], "CPUTimeUsed" -> Quantity[0.0003089999999978943, "Seconds"], "MemoryUsed" -> Quantity[360, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.773313394800404*^9, 3.773313413196329*^9}, 3.7733148647586803`*^9}, CellLabel->"Out[303]=", CellID->340486068], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["TestResultObject", "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[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "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[{ InsetBox[ BoxData[ FormBox[ PaneBox[ DynamicBox[ FEPrivate`FrontEndResource[ "MUnitExpressions", "SuccessIcon"]], Alignment -> Center, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], TraditionalForm]]]}, PlotRange -> {{0, 1}, {0, 1}}, Background -> GrayLevel[0.93], Axes -> False, AspectRatio -> 1, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Frame -> True, FrameTicks -> None, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.55]]], GridBox[{{ RowBox[{ TagBox["\"Outcome: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Success\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test ID: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["None", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Input: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"GeneralizedMapThread", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Range", "[", "2", "]"}], ",", RowBox[{"Range", "[", "3", "]"}], ",", RowBox[{"Range", "[", "4", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}]}], "}"}], ",", "2"}], "]"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Expected output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "b"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "c"}], "]"}], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "f"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "g"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "h"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "i"}], "]"}]}], "}"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Actual output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "a"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "b"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "c"}], "]"}], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ",", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", "f"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"2", ",", "g"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"3", ",", "h"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"4", ",", "i"}], "]"}]}], "}"}]}], "}"}], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Time taken: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ PaneBox[ TagBox[ TemplateBox[{ "0.000253`2.5536355190078117", "\"s\"", "seconds", "\"Seconds\""}, "Quantity", SyntaxForm -> Mod], Short[#, Rational[2, 3]]& ], ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> 0, StripOnInput -> True], "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:>{}], "]"}], TestResultObject[ Association[ "TestClass" -> None, "TestIndex" -> 5, "TestID" -> None, "Outcome" -> "Success", "Input" -> HoldForm[ $CellContext`GeneralizedMapThread[$CellContext`f, {{ Range[2], Range[3], Range[ 4]}, {{$CellContext`a, $CellContext`b}, {$CellContext`c, \ $CellContext`d, $CellContext`e}, {$CellContext`f, $CellContext`g, \ $CellContext`h, $CellContext`i}}}, 2]], "ExpectedOutput" -> HoldForm[{{ $CellContext`f[1, $CellContext`a], $CellContext`f[2, $CellContext`b]}, { $CellContext`f[1, $CellContext`c], $CellContext`f[2, $CellContext`d], $CellContext`f[3, $CellContext`e]}, { $CellContext`f[1, $CellContext`f], $CellContext`f[2, $CellContext`g], $CellContext`f[3, $CellContext`h], $CellContext`f[4, $CellContext`i]}}], "ActualOutput" -> HoldForm[{{ $CellContext`f[1, $CellContext`a], $CellContext`f[2, $CellContext`b]}, { $CellContext`f[1, $CellContext`c], $CellContext`f[2, $CellContext`d], $CellContext`f[3, $CellContext`e]}, { $CellContext`f[1, $CellContext`f], $CellContext`f[2, $CellContext`g], $CellContext`f[3, $CellContext`h], $CellContext`f[4, $CellContext`i]}}], "ExpectedMessages" -> {}, "ActualMessages" -> {}, "AbsoluteTimeUsed" -> Quantity[0.000253`2.5536355190078117, "Seconds"], "CPUTimeUsed" -> Quantity[0.00025600000000380874`, "Seconds"], "MemoryUsed" -> Quantity[1320, "Bytes"]]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.773313394800404*^9, 3.773313413196329*^9}, 3.773314864778223*^9}, CellLabel->"Out[304]=", CellID->1652909268] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes",Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Submission Notes", CellID->843283583], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.26", "CreationTimestamp" -> 3.784986892157564`16.330639368987192*^9, "UpdatedTimestamp" -> 3.784986892157644`16.330639368987203*^9}, CreateCellID->True, FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, Background -> RGBColor[0.996078, 0.941176, 0.921569], CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75], CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, False]]]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.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+HJQe2D6J0DtQTGfgR1u/wOo Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw= "], 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 eve8lMPjwkBdpVlKDtNeMcWlaUg5bLCT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+V+XP9TIsKXP8jkPnPVODmg9UbqsLt 97yxfXJHjSrcfWD3LFJ1gLkfxn9jH7F5d64snA9Wby4H139K1mzizNtyqObX y8PtN2iZ8/3/RXm4+2B8mPthfJj/YPph/oeZDwsfmP2w8IO5Dxa+6OEPAGHh sd4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOB35VvNh9m88Bxo+YItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfL0f78Zk/gnC+ jhfnwVVSwnC+lOWP9TMtReD8F6xHa9LMROH8SRvy1QUFxdD4EnA+l8bzeR0a knD+koMNFkpCUnB+Qq3Nl7tnEXwZkH2d0qjyvjJo7pOF8CXFHX6IXestL0fw jz1eFOXyR84hZft5LeO7cg4b7OR+vTulAJFPlHeo4X59bPd0BB+iXxrOR/EP kI/iXyC/aX6cGIOFCJwPdp+oMJwPDt/PgnA+2D1PBOB8WHygxy8Abafrpg== "]}]}, 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+HJQe2D6J0DtQTGfgR1u/wOo Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw= "], 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+HJQe2D6J0DtQTGfgR1u/wOo Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw= "]]}, 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 eve8lMPjwkBdpVlKDtNeMcWlaUg5bLCT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+V+XP9TIsKXP8jkPnPVODmg9UbqsLt 97yxfXJHjSrcfWD3LFJ1gLkfxn9jH7F5d64snA9Wby4H139K1mzizNtyqObX y8PtN2iZ8/3/RXm4+2B8mPthfJj/YPph/oeZDwsfmP2w8IO5Dxa+6OEPAGHh sd4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOB35VvNh9m88Bxo+YItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfL0f78Zk/gnC+ jhfnwVVSwnC+lOWP9TMtReD8F6xHa9LMROH8SRvy1QUFxdD4EnA+l8bzeR0a knD+koMNFkpCUnB+Qq3Nl7tnEXwZkH2d0qjyvjJo7pOF8CXFHX6IXestL0fw jz1eFOXyR84hZft5LeO7cg4b7OR+vTulAJFPlHeo4X59bPd0BB+iXxrOR/EP kI/iXyC/aX6cGIOFCJwPdp+oMJwPDt/PgnA+2D1PBOB8WHygxy8Abafrpg== "]}]}, 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[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[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[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( FunctionResourceTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`FunctionTemplateToggle[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`\ FunctionTemplateLiteralInput[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`DocDelimiter[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertSubscript[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table Functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> ( Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; FunctionResource`DefinitionNotebook`Private`showProgress[Null]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[2]]", InputForm], "\"Insert table with three columns\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableInsert[3]]", InputForm], "\"Add a row to the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ System`FrontEndExecute[{System`FrontEndToken[System`ButtonNotebook[], \ \"NewRow\"]}]]", InputForm], "\"Sort the selected table\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableSort[]]", InputForm], "\"Merge selected tables\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DocuToolsTemplate`TableMerge[]]", InputForm]}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], Button[ RawBoxes[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"]], Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]]; Identity[ FunctionResource`DocuToolsTemplate`InsertComment[]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> RGBColor[1, 1, 1]}, { FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T 7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/ "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> "Queued", ImageSize -> {All, 20}], ""], StandardForm], Evaluator -> "System", SingleEvaluation -> True], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> RGBColor[0.996078, 0.941176, 0.921569]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], Background -> RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet] \"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]\ & , "\"View a completed sample definition notebook\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`viewStyleGuidelines[]\ & , "\"View general guidelines for authoring resource functions\"", True}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Tools"]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`checkNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Preview\"]]", InputForm], "\"On the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Local\"]]", InputForm], "\"For my cloud account\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"Cloud\"]]", InputForm], "\"Publicly in the cloud\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"CloudPublic\"]]", InputForm], "\"In this session only (without documentation)\"" :> ToExpression[ "System`Block[{ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = System`False}, \ System`Symbol[\"System`ResourceFunction\"]; \ FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\ ], \"KernelSession\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", Initialization :> If[ Not[$CloudEvaluation], CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = ""]], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.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 -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> F\ alse, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`\ submitRepositoryUpdate[ ButtonNotebook[]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ 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 -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function Repository\ \""}, "PrettyTooltipTemplate"], FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, Background -> None, AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> Block[{ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Symbol["System`ResourceFunction"]; If[ TrueQ[#4], CurrentValue[ ButtonNotebook[], {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; FunctionResource`DefinitionNotebook`Private`showProgress, Identity][ #2[]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPngeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPA8Wu WjBdNmVARkARoDhCWZjUdUsWNDUQBBQHykJcC9RyxRzdKAgCigNlGcCAGGVE mka824j1KdHhRkwsEBOnAMp0Eag= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotdGIa7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2ctQqQ1GnGhqIAgoDpSFuBarUcgGMoABMcqINI14txHp U+LDjZhYICZOAZ5bBHA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nr99I5gU7gaCAKKAMWBshDXArV8vnUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBDsjmM "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["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]]}, 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", FontFamily -> "Source Sans Pro"], 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]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None, FontSize -> 14], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.854902, 0.396078, 0.145098], RGBColor[0.0196078, 0.286275, 0.65098]]]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.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], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821083, 0.94165615, 0.87130765]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.90526255, 0.92601685, 0.9564697]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.9340271499999999, 0.95373535, 0.87923275]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False]}, Visible -> False, FrontEndVersion -> "12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[558, 20, 57, 1, 70, "Title",ExpressionUUID->"82c149ae-ee2e-4b5d-b56e-c4f88d9b003e", CellTags->"Title"]}, "Description"->{ Cell[618, 23, 137, 4, 70, "Text",ExpressionUUID->"b3bc114d-3c2e-4a33-a899-f5ff90db1ac0", CellTags->"Description"]}, "Definition"->{ Cell[780, 31, 887, 21, 70, "Section",ExpressionUUID->"779614ec-b307-419c-ba0e-d562a0eb10a2", CellTags->"Definition", CellID->474513213]}, "TabNext"->{ Cell[1670, 54, 5958, 114, 70, "Input",ExpressionUUID->"c6b04228-d399-450b-aeae-cc9e1de9dba6", CellTags->"TabNext", CellID->778396829], Cell[14519, 403, 672, 25, 70, "Notes",ExpressionUUID->"438d56a6-0cab-42bc-9462-9cfb38667857", CellTags->"TabNext", CellID->521904482], Cell[84933, 2618, 508, 8, 70, "Item",ExpressionUUID->"9bc4fd20-8632-4809-b599-729e376d4c9c", CellTags->"TabNext", CellID->960273585], Cell[86243, 2652, 496, 8, 70, "Text",ExpressionUUID->"7df2c2fd-766b-4968-901a-df5f62997154", CellTags->"TabNext", CellID->343081869], Cell[87393, 2685, 485, 8, 70, "Item",ExpressionUUID->"15ff4948-d5e7-429a-9b5f-d067d065087b", CellTags->"TabNext", CellID->485448166], Cell[112964, 3281, 509, 8, 70, "Text",ExpressionUUID->"d298474a-7c54-4ec4-ab5a-3561d9ba1664", CellTags->"TabNext", CellID->567921317], Cell[114233, 3315, 495, 8, 70, "Text",ExpressionUUID->"adc87645-b7d7-4239-92b2-1a4cfc5c74cc", CellTags->"TabNext", CellID->920818074]}, "Documentation"->{ Cell[7643, 171, 99, 3, 70, "Section",ExpressionUUID->"7b8fe9f9-a8bf-41c8-a2c9-c67b4f5a951c", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[7767, 178, 1650, 42, 70, "Subsection",ExpressionUUID->"ff032786-6238-4b49-8086-6516faf88e8f", CellTags->"Usage", CellID->643497520]}, "Details & Options"->{ Cell[12134, 334, 1131, 24, 70, "Subsection",ExpressionUUID->"45b99248-2e35-4e41-8570-81ea10fd95b3", CellTags->"Details & Options", CellID->66019318]}, "Examples"->{ Cell[15228, 433, 6400, 143, 70, "Section",ExpressionUUID->"aad6833f-9049-4c76-b8ae-d92c02caa583", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[81304, 2483, 135, 3, 70, "Section",ExpressionUUID->"b9be6d9b-180a-42df-953c-09c736da8e27", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[81464, 2490, 683, 18, 70, "Subsection",ExpressionUUID->"b9bba5c6-3f82-4096-ad91-607eb70ec0e7", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[82217, 2515, 684, 18, 70, "Subsection",ExpressionUUID->"6bf790a3-e1ad-4f3c-9711-3220c16e5d3d", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[83100, 2548, 126, 4, 70, "Subsection",ExpressionUUID->"e6d92db9-a38d-4a5d-bbfd-d04bab651e84", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[83307, 2559, 661, 18, 70, "Subsection",ExpressionUUID->"2606ec7b-6e17-42ee-aa07-7dfc4dd1c6eb", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[84219, 2598, 711, 18, 70, "Subsection",ExpressionUUID->"3a195f95-74f1-4fda-8720-6f84a985cc8f", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[85478, 2631, 762, 19, 70, "Subsection",ExpressionUUID->"764d17af-ecbd-479a-9a20-8358ef83ed6e", CellTags->"Source/Reference Citation", CellID->642091068]}, "Links"->{ Cell[86776, 2665, 614, 18, 70, "Subsection",ExpressionUUID->"0fa5f9a3-ebf2-44e9-a96f-7c02e6432b47", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[87915, 2698, 767, 20, 70, "Subsection",ExpressionUUID->"53853a95-2b23-48d8-a6f6-be69c0d777a1", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[112834, 3275, 127, 4, 70, "Section",ExpressionUUID->"095766c0-33a8-4543-9d3a-91345ee64269", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[113510, 3294, 720, 19, 70, "Section",ExpressionUUID->"466a759e-130b-482c-b2be-8d8fdbadc21d", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 187017, 4716}, {"Description", 187150, 4719}, {"Definition", 187288, 4722}, {"TabNext", 187448, 4726}, {"Documentation", 188467, 4748}, {"Usage", 188628, 4752}, {"Details & Options", 188799, 4756}, {"Examples", 188973, 4760}, {"Source & Additional Information", 189160, 4764}, {"Contributed By", 189351, 4768}, {"Keywords", 189523, 4772}, {"Categories", 189691, 4776}, {"Related Symbols", 189865, 4780}, {"Related Resource Objects", 190054, 4784}, {"Source/Reference Citation", 190253, 4788}, {"Links", 190433, 4792}, {"Tests", 190593, 4796}, {"Author Notes", 190759, 4800}, {"Submission Notes", 190934, 4804} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 57, 1, 70, "Title",ExpressionUUID->"82c149ae-ee2e-4b5d-b56e-c4f88d9b003e", CellTags->"Title"], Cell[618, 23, 137, 4, 70, "Text",ExpressionUUID->"b3bc114d-3c2e-4a33-a899-f5ff90db1ac0", CellTags->"Description"], Cell[CellGroupData[{ Cell[780, 31, 887, 21, 70, "Section",ExpressionUUID->"779614ec-b307-419c-ba0e-d562a0eb10a2", CellTags->"Definition", CellID->474513213], Cell[1670, 54, 5958, 114, 70, "Input",ExpressionUUID->"c6b04228-d399-450b-aeae-cc9e1de9dba6", CellTags->"TabNext", CellID->778396829] }, Open ]], Cell[7643, 171, 99, 3, 70, "Section",ExpressionUUID->"7b8fe9f9-a8bf-41c8-a2c9-c67b4f5a951c", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[7767, 178, 1650, 42, 70, "Subsection",ExpressionUUID->"ff032786-6238-4b49-8086-6516faf88e8f", CellTags->"Usage", CellID->643497520], Cell[CellGroupData[{ Cell[9442, 224, 715, 24, 70, "UsageInputs",ExpressionUUID->"b894947c-9b88-4b5b-b010-4de19be6dca8"], Cell[10160, 250, 735, 28, 70, "UsageDescription",ExpressionUUID->"154e27ec-13c9-41c0-8896-413ae069424d"] }, Open ]], Cell[CellGroupData[{ Cell[10932, 283, 391, 13, 70, "UsageInputs",ExpressionUUID->"a2a2a44e-fb7a-4ff5-b097-5d8d2eb44301"], Cell[11326, 298, 414, 16, 70, "UsageDescription",ExpressionUUID->"9a4bbc15-c101-4814-9c98-11392ae7d87c"] }, Open ]], Cell[CellGroupData[{ Cell[11777, 319, 98, 2, 70, "UsageInputs",ExpressionUUID->"49e56656-c460-439b-884d-263c79fa1c00"], Cell[11878, 323, 207, 5, 70, "UsageDescription",ExpressionUUID->"0fcf1cdb-6c98-45eb-a6c6-a314d2510912"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12134, 334, 1131, 24, 70, "Subsection",ExpressionUUID->"45b99248-2e35-4e41-8570-81ea10fd95b3", CellTags->"Details & Options", CellID->66019318], Cell[13268, 360, 623, 19, 70, "Notes",ExpressionUUID->"8c9b5669-f09f-4cb9-83d9-80e782dce18d", CellID->2106171866], Cell[13894, 381, 622, 20, 70, "Notes",ExpressionUUID->"d96f996d-9f68-4966-9eb1-c6d351bee707", CellID->1900346723], Cell[14519, 403, 672, 25, 70, "Notes",ExpressionUUID->"438d56a6-0cab-42bc-9462-9cfb38667857", CellTags->"TabNext", CellID->521904482] }, Open ]], Cell[CellGroupData[{ Cell[15228, 433, 6400, 143, 70, "Section",ExpressionUUID->"aad6833f-9049-4c76-b8ae-d92c02caa583", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[21653, 580, 56, 1, 70, "Subsection",ExpressionUUID->"5c2d7076-ddd5-4486-825c-eb13f02cc6df", CellID->462042388], Cell[21712, 583, 193, 3, 70, "Text",ExpressionUUID->"847ab82f-fcef-4e6d-8f91-8793c170177f", CellID->13078159], Cell[CellGroupData[{ Cell[21930, 590, 489, 13, 70, "Input",ExpressionUUID->"041ed1a7-3b73-4890-a498-39d345bb383d", CellID->1361972870], Cell[22422, 605, 652, 16, 70, "Output",ExpressionUUID->"31e3b651-c6a5-44aa-8ece-43f272fcb639", CellID->704733800] }, Open ]], Cell[CellGroupData[{ Cell[23111, 626, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"7573ee06-755d-4501-b8fa-0e9ece3c9115", CellID->832336434], Cell[23239, 631, 309, 5, 70, "Text",ExpressionUUID->"687a05da-13db-42f4-b3a6-a272fad96ead", CellID->461940098], Cell[CellGroupData[{ Cell[23573, 640, 710, 21, 70, "Input",ExpressionUUID->"32c034ca-7606-47aa-b1cb-3a3a73fc3c6e", CellID->1755019743], Cell[24286, 663, 1115, 32, 70, "Output",ExpressionUUID->"2037529d-1f1e-4a32-b385-03ef1f7cd020", CellID->1148791732] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25450, 701, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"af35a47f-79e3-4377-a5c1-007895823bd0", CellID->174526116], Cell[25578, 706, 298, 9, 70, "Text",ExpressionUUID->"1d335674-08e7-425e-abbb-2112ccf51b5f", CellID->65987167], Cell[CellGroupData[{ Cell[25901, 719, 576, 18, 70, "Input",ExpressionUUID->"9c519f6a-58cf-45da-9761-384f74fc7505", CellID->2124793111], Cell[26480, 739, 559, 14, 70, "Output",ExpressionUUID->"5522330d-f803-4757-adbb-d451f030a1fc", CellID->950912362] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27100, 760, 47, 1, 70, "Subsection",ExpressionUUID->"18b3443d-d365-4d5b-8b24-736705d892a6", CellID->964056545], Cell[27150, 763, 259, 4, 70, "Text",ExpressionUUID->"c2cafe12-241d-4e1e-a9f6-dbd84440523d", CellID->649685796], Cell[CellGroupData[{ Cell[27434, 771, 681, 20, 70, "Input",ExpressionUUID->"ce1e5235-a9cd-47d0-9749-be25307098f4", CellID->836153427], Cell[28118, 793, 1558, 43, 70, "Output",ExpressionUUID->"dc0eb10f-1bda-4c1b-97c8-8970b7bf4ce4", CellID->113478405] }, Open ]], Cell[29691, 839, 185, 3, 70, "Text",ExpressionUUID->"39035df6-ca6b-4eb4-b930-6b078671043d", CellID->1907554436], Cell[CellGroupData[{ Cell[29901, 846, 172, 4, 70, "Input",ExpressionUUID->"84d97452-2547-4680-ad6e-7e7330d7e47e", CellID->498726094], Cell[30076, 852, 1460, 42, 70, "Output",ExpressionUUID->"ba775e05-29e9-4454-aeb1-4a3a57d986ae", CellID->930199798] }, Open ]], Cell[CellGroupData[{ Cell[31573, 899, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"e210e9f2-6212-421a-9f1e-15ea3ef6a6f7", CellID->253249249], Cell[31701, 904, 531, 14, 70, "Text",ExpressionUUID->"2fe081da-885a-4916-bdaa-09cf1f7a7f4d", CellID->995067595], Cell[CellGroupData[{ Cell[32257, 922, 529, 14, 70, "Input",ExpressionUUID->"ce876ef7-3649-4d25-8aa0-96b476f61fc2", CellID->1690783212], Cell[32789, 938, 589, 16, 70, "Output",ExpressionUUID->"4fc90ea7-60ea-44bf-a3cf-47619322c889", CellID->1062376210] }, Open ]], Cell[33393, 957, 449, 12, 70, "Text",ExpressionUUID->"139d8e6c-2ce9-4894-adc1-ccf5e6a7406e", CellID->2096873973], Cell[CellGroupData[{ Cell[33867, 973, 565, 16, 70, "Input",ExpressionUUID->"9e13f33f-a7e5-48d9-b0f7-e1d04405f5a8", CellID->1409930297], Cell[34435, 991, 713, 20, 70, "Output",ExpressionUUID->"726683de-0ddf-41f1-90be-d378415c4541", CellID->1172924820] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35197, 1017, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"fbbc2fcf-2785-4355-ad65-340e226889af", CellID->1372625092], Cell[35326, 1022, 266, 8, 70, "Text",ExpressionUUID->"1b40439f-08bb-46d1-8ba1-56db89bfd41a", CellID->1652496038], Cell[35595, 1032, 228, 6, 70, "Input",ExpressionUUID->"7d24a9e1-9a31-48f8-b5ff-a097ea9a831b", CellID->596657193], Cell[35826, 1040, 235, 4, 70, "Text",ExpressionUUID->"69eb19be-3ca5-4e11-b8be-c29c88a62d6f", CellID->190766715], Cell[CellGroupData[{ Cell[36086, 1048, 327, 10, 70, "Input",ExpressionUUID->"b40e6a26-8f09-4645-8fab-3f16825e16f5", CellID->208904671], Cell[36416, 1060, 429, 13, 70, "Output",ExpressionUUID->"1e109b57-5ed4-4842-b2c4-1263efbe08b3", CellID->1111199998] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36906, 1080, 54, 1, 70, "Subsection",ExpressionUUID->"9590cfa6-00c8-4734-9a2c-cfb124d5fb1d", CellID->568056528], Cell[36963, 1083, 352, 12, 70, "Text",ExpressionUUID->"92e6cf76-4245-450e-b748-0d4b55c8ae65", CellID->900293773], Cell[CellGroupData[{ Cell[37340, 1099, 905, 26, 70, "Input",ExpressionUUID->"6d3a3775-546a-4b9b-9dbf-30e1b481f568", CellID->955132211], Cell[38248, 1127, 658, 22, 70, "Output",ExpressionUUID->"57eccc30-96e3-4389-8d87-b171ad5fbb84", CellID->315396549] }, Open ]], Cell[CellGroupData[{ Cell[38943, 1154, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"e2580633-8722-4e34-8bf0-3d1845e37c6b", CellID->1313439539], Cell[39072, 1159, 185, 4, 70, "Text",ExpressionUUID->"431898ed-7428-4562-bdfe-28e6fb718a92", CellID->1114840142], Cell[CellGroupData[{ Cell[39282, 1167, 404, 11, 70, "Input",ExpressionUUID->"3a626167-4c0f-436e-b45a-5474dc9b2fb4", CellID->667905639], Cell[39689, 1180, 499, 11, 70, "Output",ExpressionUUID->"339c3a53-1323-434b-992a-c1f28e1d267c", CellID->524700828] }, Open ]], Cell[40203, 1194, 603, 19, 70, "Text",ExpressionUUID->"c4f1cd17-0334-41a4-b690-11195ab852a7", CellID->1183702696], Cell[CellGroupData[{ Cell[40831, 1217, 263, 8, 70, "Input",ExpressionUUID->"c41a1f57-42c6-4f2a-8d42-44362c09b051", CellID->1884765744], Cell[41097, 1227, 394, 10, 70, "Output",ExpressionUUID->"0bc264b6-2d56-4383-bb6f-e5183cb9b1c0", CellID->310235741] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41552, 1244, 66, 1, 70, "Subsection",ExpressionUUID->"7a8b15af-4311-4ce1-aaab-963eed959866", CellID->754506620], Cell[41621, 1247, 729, 20, 70, "Text",ExpressionUUID->"3c767ecd-74dd-447b-92c6-34008860893d", CellID->1550517141], Cell[CellGroupData[{ Cell[42375, 1271, 865, 26, 70, "Input",ExpressionUUID->"748b1200-47c6-49f3-8dee-c866b3cb25fa", CellID->1671316914], Cell[43243, 1299, 289, 5, 70, "Output",ExpressionUUID->"e4b32213-5ae7-4188-9aa5-11d83675cb39", CellID->1866440743] }, Open ]], Cell[CellGroupData[{ Cell[43569, 1309, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"7bb530cf-2e2f-4a09-9a1d-a83da8015c60", CellID->393002080], Cell[43697, 1314, 855, 22, 70, "Text",ExpressionUUID->"ce0b315b-6f4f-4380-9467-2c192e32bd35", CellID->2093744690], Cell[CellGroupData[{ Cell[44577, 1340, 639, 21, 70, "Input",ExpressionUUID->"3fa50ecc-7756-4c63-a5e6-85fc1af0ffeb", CellID->739520637], Cell[45219, 1363, 1436, 25, 70, "Message",ExpressionUUID->"a2aaa33c-ac6a-4e4a-be42-91f9308188ba", CellID->892761495], Cell[46658, 1390, 739, 23, 70, "Output",ExpressionUUID->"9fd771a1-1956-4f35-b122-f2d50c388f96", CellID->174204876] }, Open ]], Cell[47412, 1416, 234, 6, 70, "Text",ExpressionUUID->"4c185d6c-2617-4d44-b0a3-80c165c279d8", CellID->1264845271], Cell[CellGroupData[{ Cell[47671, 1426, 699, 21, 70, "Input",ExpressionUUID->"aca2b12e-9efd-479e-942e-6cb830d3a420", CellID->1757546310], Cell[48373, 1449, 776, 22, 70, "Output",ExpressionUUID->"6c5cd1f0-9455-4ceb-889d-a20c6699315c", CellID->171372887] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49198, 1477, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"3f1b3c74-a484-4fa3-8ed9-c760eb34023d", CellID->441115352], Cell[49326, 1482, 726, 20, 70, "Text",ExpressionUUID->"b8b02a2b-6d0d-4282-a236-f31f24a5a747", CellID->2054039417], Cell[CellGroupData[{ Cell[50077, 1506, 356, 10, 70, "Input",ExpressionUUID->"8c7bfce3-fdb5-4a99-8de1-102eb9dbf2fa", CellID->183791298], Cell[50436, 1518, 502, 13, 70, "Output",ExpressionUUID->"3a810bff-b394-4fb8-b0c8-f2821e65339b", CellID->334062090] }, Open ]], Cell[50953, 1534, 676, 20, 70, "Text",ExpressionUUID->"f9d23b65-59a1-4ee2-a71f-0ebca541d870", CellID->2052312684], Cell[CellGroupData[{ Cell[51654, 1558, 395, 11, 70, "Input",ExpressionUUID->"4fe5a367-f631-4e6b-a045-f9257919f6ce", CellID->1487199632], Cell[52052, 1571, 505, 13, 70, "Output",ExpressionUUID->"0ba83c00-5861-4b49-9c0b-20f2c2f72e69", CellID->1128726865] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[52618, 1591, 56, 1, 70, "Subsection",ExpressionUUID->"51eac104-3bca-4607-ad32-ac017325fbde", CellID->92483860], Cell[52677, 1594, 140, 2, 70, "Text",ExpressionUUID->"c3934f3c-9cda-493d-a78f-da44fa7621a3", CellID->1186266912], Cell[CellGroupData[{ Cell[52842, 1600, 565, 16, 70, "Input",ExpressionUUID->"f1fc888f-c060-4957-ac00-672008abd178", CellID->1291938957], Cell[53410, 1618, 1672, 28, 70, "Message",ExpressionUUID->"cbe47c2f-7558-4875-93a6-abdaec9e88e3", CellID->2033787875], Cell[55085, 1648, 1257, 34, 70, "Output",ExpressionUUID->"14de22f8-108b-4a71-b766-77777d28193e", CellID->375605826] }, Open ]], Cell[CellGroupData[{ Cell[56379, 1687, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"f0c6c1fd-e5dd-459e-a8b0-6260b0cb4740", CellID->764337092], Cell[56507, 1692, 147, 2, 70, "Text",ExpressionUUID->"21b96fd4-7981-4c95-826b-ca0c4bbfd430", CellID->2109535518], Cell[CellGroupData[{ Cell[56679, 1698, 379, 11, 70, "Input",ExpressionUUID->"59ad9284-4811-4a34-a1a1-35d1ded8e8d4", CellID->647706746], Cell[57061, 1711, 1069, 19, 70, "Message",ExpressionUUID->"149631b1-fad3-42e7-894a-d22b18f2951d", CellID->436196496], Cell[58133, 1732, 677, 17, 70, "Output",ExpressionUUID->"ce9e0939-7d07-4eb0-8667-f51397d5886c", CellID->1792821061] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[58859, 1755, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"bd68b73e-d0fd-4111-8ccb-6df114d91b7e", CellID->1666715828], Cell[58988, 1760, 1204, 36, 70, "Text",ExpressionUUID->"2a53c9ed-60d5-489d-b216-5369380e4c3c", CellID->839883026], Cell[CellGroupData[{ Cell[60217, 1800, 419, 12, 70, "Input",ExpressionUUID->"b2c66a11-260b-445b-b1d0-20acce4e771c", CellID->1900475558], Cell[60639, 1814, 510, 15, 70, "Output",ExpressionUUID->"b19fa49c-6d6b-4898-b571-3796560d3a06", CellID->583344748] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[61198, 1835, 126, 3, 70, "ExampleDelimiter",ExpressionUUID->"d2debee4-b06a-4bb3-85f9-36c19a9cf55a", CellID->1852210909], Cell[61327, 1840, 306, 6, 70, "Text",ExpressionUUID->"8e98aba9-4bf8-48ef-8870-850d5fef7186", CellID->1904421409], Cell[CellGroupData[{ Cell[61658, 1850, 374, 11, 70, "Input",ExpressionUUID->"5b5fdac4-4a81-4a7f-bdbc-15692ebfae41", CellID->386368364], Cell[62035, 1863, 590, 19, 70, "Output",ExpressionUUID->"035d7732-c277-4ca7-a507-ffac87c156b6", CellID->697704800] }, Open ]], Cell[62640, 1885, 215, 3, 70, "Text",ExpressionUUID->"419502e8-8524-4391-bf98-baf9147283ed", CellID->1438373964], Cell[CellGroupData[{ Cell[62880, 1892, 334, 10, 70, "Input",ExpressionUUID->"d4a0e9a8-6499-4763-b6c2-010a6d2a2a7a", CellID->56842514], Cell[63217, 1904, 468, 14, 70, "Output",ExpressionUUID->"8740d3c9-9c62-46be-8993-fa437f942d05", CellID->990291431] }, Open ]], Cell[63700, 1921, 178, 4, 70, "Text",ExpressionUUID->"5b9af059-9ce8-4eae-9a2d-a3106d8b2ebd", CellID->905764497], Cell[CellGroupData[{ Cell[63903, 1929, 404, 13, 70, "Input",ExpressionUUID->"c935abc8-d00a-4af9-b2f6-780a747062f6", CellID->2125533916], Cell[64310, 1944, 578, 18, 70, "Output",ExpressionUUID->"f135506f-0cc3-4e3a-b973-fee18f64a166", CellID->1011059733] }, Open ]], Cell[64903, 1965, 278, 6, 70, "Text",ExpressionUUID->"18d6ccc3-3a19-4204-b30c-905c39d3c1c3", CellID->1498137003], Cell[CellGroupData[{ Cell[65206, 1975, 392, 12, 70, "Input",ExpressionUUID->"ce015709-1671-448d-86a1-3120393199dc", CellID->1980298828], Cell[65601, 1989, 502, 14, 70, "Output",ExpressionUUID->"4f4a41a7-726d-47a3-afc2-5a564a9a7a21", CellID->816050561] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[66164, 2010, 55, 1, 70, "Subsection",ExpressionUUID->"34d66601-7d3e-4866-8f1d-66ec6884f827", CellID->540091361], Cell[66222, 2013, 222, 5, 70, "Text",ExpressionUUID->"a2171a66-b8e9-463b-af63-731c104203f4", CellID->833804323], Cell[CellGroupData[{ Cell[66469, 2022, 279, 7, 70, "Input",ExpressionUUID->"db8dc85f-5d47-4e71-9731-b3c4a1e3aa86", CellID->1142369266], Cell[66751, 2031, 392, 11, 70, "Output",ExpressionUUID->"8155a5db-79fc-4d7c-bd74-bb74f1bb147c", CellID->1147689187] }, Open ]], Cell[CellGroupData[{ Cell[67180, 2047, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"a5069194-d5e2-43ac-899e-f079d203f50f", CellID->73934594], Cell[67307, 2052, 202, 4, 70, "Text",ExpressionUUID->"0dd7cbcd-0328-4ca6-bcb0-c1bea7358473", CellID->1666596213], Cell[CellGroupData[{ Cell[67534, 2060, 802, 24, 70, "Input",ExpressionUUID->"875faa7b-6ac6-42d1-8d71-75d73482cb2f", CellID->429883847], Cell[68339, 2086, 3264, 98, 70, "Output",ExpressionUUID->"700fc526-4143-4ce0-993c-a003143825ca", CellID->1603404668] }, Open ]], Cell[71618, 2187, 438, 13, 70, "Text",ExpressionUUID->"ce7d4aab-fadc-43df-8f36-93d5941bc34c", CellID->313068411], Cell[CellGroupData[{ Cell[72081, 2204, 300, 8, 70, "Input",ExpressionUUID->"3cf2c4a4-783d-4f0b-9c2e-df2cff183b65", CellID->1196333512], Cell[72384, 2214, 8847, 261, 70, "Output",ExpressionUUID->"ed3b5e6f-e382-4079-89a6-11616037757e", CellID->1938753698] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[81304, 2483, 135, 3, 70, "Section",ExpressionUUID->"b9be6d9b-180a-42df-953c-09c736da8e27", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[81464, 2490, 683, 18, 70, "Subsection",ExpressionUUID->"b9bba5c6-3f82-4096-ad91-607eb70ec0e7", CellTags->"Contributed By", CellID->127820888], Cell[82150, 2510, 30, 0, 70, "Text",ExpressionUUID->"3199d638-7f5d-4e78-9a5e-566ba6ba961d"] }, Open ]], Cell[CellGroupData[{ Cell[82217, 2515, 684, 18, 70, "Subsection",ExpressionUUID->"6bf790a3-e1ad-4f3c-9711-3220c16e5d3d", CellTags->"Keywords", CellID->547400482], Cell[82904, 2535, 38, 0, 70, "Item",ExpressionUUID->"c36c5a53-1501-4391-88cc-1025782da45a"], Cell[82945, 2537, 26, 0, 70, "Item",ExpressionUUID->"d35f1d86-0233-45e5-86fc-6c5da39f6b5b"], Cell[82974, 2539, 24, 0, 70, "Item",ExpressionUUID->"d58c8c23-6046-4da4-891f-76a11b49e63e"], Cell[83001, 2541, 26, 0, 70, "Item",ExpressionUUID->"8913901f-c9ee-42ed-9f2b-becdf14c5c2f"], Cell[83030, 2543, 33, 0, 70, "Item",ExpressionUUID->"93a9df07-8a69-43e2-8523-a09533941540"] }, Open ]], Cell[CellGroupData[{ Cell[83100, 2548, 126, 4, 70, "Subsection",ExpressionUUID->"e6d92db9-a38d-4a5d-bbfd-d04bab651e84", CellTags->"Categories", CellID->749076926], Cell[83229, 2554, 41, 0, 70, "Item",ExpressionUUID->"afef149d-eb50-4af8-960a-9822174d91cd"] }, Open ]], Cell[CellGroupData[{ Cell[83307, 2559, 661, 18, 70, "Subsection",ExpressionUUID->"2606ec7b-6e17-42ee-aa07-7dfc4dd1c6eb", CellTags->"Related Symbols", CellID->161079978], Cell[83971, 2579, 25, 0, 70, "Item",ExpressionUUID->"b0c34eee-1489-4367-88af-94fd79e627d2"], Cell[83999, 2581, 23, 0, 70, "Item",ExpressionUUID->"7afcbe67-77fa-4868-a306-8183d4d89aed"], Cell[84025, 2583, 22, 0, 70, "Item",ExpressionUUID->"030f0a52-3da4-48a5-b66a-97851c1607fe"], Cell[84050, 2585, 21, 0, 70, "Item",ExpressionUUID->"a013f71c-9f24-470d-b55f-005013ced881"], Cell[84074, 2587, 19, 0, 70, "Item",ExpressionUUID->"7b91ae8c-22a5-4b19-97dd-df8060b6a889"], Cell[84096, 2589, 21, 0, 70, "Item",ExpressionUUID->"73f1b43c-e0d9-4b9a-a5f3-2260df466c15"], Cell[84120, 2591, 26, 0, 70, "Item",ExpressionUUID->"2d5b8427-c495-46f4-ab47-43049b99db22"], Cell[84149, 2593, 33, 0, 70, "Item",ExpressionUUID->"7b3bb47c-c068-4611-8e6d-58fd7cf1725a"] }, Open ]], Cell[CellGroupData[{ Cell[84219, 2598, 711, 18, 70, "Subsection",ExpressionUUID->"3a195f95-74f1-4fda-8720-6f84a985cc8f", CellTags->"Related Resource Objects", CellID->588449267], Cell[84933, 2618, 508, 8, 70, "Item",ExpressionUUID->"9bc4fd20-8632-4809-b599-729e376d4c9c", CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[85478, 2631, 762, 19, 70, "Subsection",ExpressionUUID->"764d17af-ecbd-479a-9a20-8358ef83ed6e", CellTags->"Source/Reference Citation", CellID->642091068], Cell[86243, 2652, 496, 8, 70, "Text",ExpressionUUID->"7df2c2fd-766b-4968-901a-df5f62997154", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[86776, 2665, 614, 18, 70, "Subsection",ExpressionUUID->"0fa5f9a3-ebf2-44e9-a96f-7c02e6432b47", CellTags->"Links", CellID->521525586], Cell[87393, 2685, 485, 8, 70, "Item",ExpressionUUID->"15ff4948-d5e7-429a-9b5f-d067d065087b", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[87915, 2698, 767, 20, 70, "Subsection",ExpressionUUID->"53853a95-2b23-48d8-a6f6-be69c0d777a1", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[88707, 2722, 2226, 68, 70, "Input",ExpressionUUID->"71a009f0-43ce-49a5-bb96-600a3605b491", CellID->667877521], Cell[90936, 2792, 9711, 212, 70, "Output",ExpressionUUID->"aea10c19-73a8-4a6a-9bee-b45230c7165c", CellID->340486068], Cell[100650, 3006, 12123, 262, 70, "Output",ExpressionUUID->"2c785879-babe-491b-a127-926e1652c7ee", CellID->1652909268] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[112834, 3275, 127, 4, 70, "Section",ExpressionUUID->"095766c0-33a8-4543-9d3a-91345ee64269", CellTags->"Author Notes", CellID->795110225], Cell[112964, 3281, 509, 8, 70, "Text",ExpressionUUID->"d298474a-7c54-4ec4-ab5a-3561d9ba1664", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[113510, 3294, 720, 19, 70, "Section",ExpressionUUID->"466a759e-130b-482c-b2be-8d8fdbadc21d", CellTags->"Submission Notes", CellID->843283583], Cell[114233, 3315, 495, 8, 70, "Text",ExpressionUUID->"adc87645-b7d7-4239-92b2-1a4cfc5c74cc", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)