(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 93177, 2244] NotebookOptionsPosition[ 33592, 978] NotebookOutlinePosition[ 84665, 2045] CellTagsIndexPosition[ 84030, 2023] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["HookLengths", "Title", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{3.758559783592554*^9}, CellTags->{"Title", "TabNext"}, CellID->362346026], Cell["\<\ Get the list of lists whose entries are the hook lengths of the entries of a \ Young diagram\ \>", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.758559800714366*^9, 3.758559927892323*^9}, 3.7585603484990253`*^9, {3.758560386923156*^9, 3.758560410265971*^9}, { 3.758640626095508*^9, 3.758640627521214*^9}, {3.7594967335665216`*^9, 3.75949675713354*^9}}, CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition",Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name above. All definitions, including \ dependencies, will be included in the resource function when it is generated. \ Additional cells can be added and definitions can be given for multiple input \ cases.\n\nThis section should be evaluated before evaluating creating the \ Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Definition", CellID->608264297], Cell[BoxData[ RowBox[{ RowBox[{"HookLengths", "@", "p_"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mat", ",", "mmax", ",", "nmax"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"mat", "=", RowBox[{"PadRight", "[", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{"1", ",", "#1"}], "]"}], "&"}], "/@", "p"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mmax", ",", "nmax"}], "}"}], "=", RowBox[{"Dimensions", "@", "mat"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{"#", ",", RowBox[{"-", "1"}]}], "]"}], "&"}], "/@", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Total", "@", RowBox[{"Flatten", "@", RowBox[{"{", RowBox[{ RowBox[{"Take", "[", RowBox[{"mat", ",", RowBox[{"{", RowBox[{"m", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "nmax"}], "}"}]}], "]"}], ",", RowBox[{"Take", "[", RowBox[{"mat", ",", RowBox[{"{", RowBox[{"m", ",", "mmax"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "n"}], "}"}]}], "]"}]}], "}"}]}]}]}], ",", RowBox[{"{", RowBox[{"m", ",", "mmax"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "nmax"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}]], "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.758559776194602*^9}, CellTags->"TabNext", CellLabel->"In[1]:=", CellID->778396829] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Deletable->False, CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage",Cell[ BoxData[ FrameBox[ Cell[ "Document every accepted input usage case. Use Enter to create new \ cases as needed.\n\nEach usage should contain a brief explanation saying what \ the function does for the given input structure.\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"UsageInputs", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HookLengths", "[", StyleBox["p", "TI"], "]"}]], "UsageInputs", CellChangeTimes->{{3.758560036682313*^9, 3.758560070968358*^9}, 3.7585602585274887`*^9, {3.759496902233499*^9, 3.759496905740281*^9}}, CellTags->"TabNext", CellID->157543866], Cell[TextData[{ "gives a list of lists of lengths ", Cell[BoxData[ StyleBox["p", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", for a partition ", Cell[BoxData[ StyleBox["p", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", where an entry is the hook length of the corresponding cell in the Young \ diagram of ", Cell[BoxData[ StyleBox["p", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellChangeTimes->{ 3.758559983609178*^9, {3.758560091821108*^9, 3.758560244897279*^9}, { 3.758560285766694*^9, 3.758560310454157*^9}, 3.7585603829102163`*^9, { 3.758560418086524*^9, 3.7585604893437557`*^9}, {3.7586406322012787`*^9, 3.7586406334575243`*^9}, {3.7586663350304947`*^9, 3.758666351122285*^9}, { 3.7594968410123043`*^9, 3.759496860208651*^9}, {3.759496896969481*^9, 3.759496969644993*^9}}, CellTags->"TabNext", CellID->231889230] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used. Add multiple \ cells including tables and hyperlinks as needed. Typical information \ includes: acceptable inputs, result formats, options specifications, and \ background information.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[TextData[{ "In the Young diagram of shape ", StyleBox["p", FontSlant->"Italic"], ", the hook for a cell ", StyleBox["c", FontSlant->"Italic"], " is the set of cells containing ", StyleBox["c", FontSlant->"Italic"], ", the cells to the right of ", StyleBox["c", FontSlant->"Italic"], " and the cells below ", StyleBox["c", FontSlant->"Italic"], "." }], "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.758560327660872*^9, 3.7585603406217813`*^9}, { 3.75856049982362*^9, 3.75856060017204*^9}, {3.7585609981901073`*^9, 3.7585610879233313`*^9}, {3.758666365122546*^9, 3.758666385841221*^9}, { 3.75866641883392*^9, 3.758666517921986*^9}}, CellTags->"TabNext", CellID->521904482], Cell[TextData[{ "The hook length of a cell ", StyleBox["c", FontSlant->"Italic"], " is the number of cells in the hook of ", StyleBox["c", FontSlant->"Italic"], "." }], "Notes", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.758560327660872*^9, 3.7585603406217813`*^9}, { 3.75856049982362*^9, 3.75856060017204*^9}, {3.7585609981901073`*^9, 3.7585610879233313`*^9}, {3.758666365122546*^9, 3.758666385841221*^9}, { 3.75866641883392*^9, 3.7586665460199842`*^9}}, CellTags->"TabNext", CellID->1868278476] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples",Cell[ BoxData[ FrameBox[ Cell[ "Demonstrate how to use the function. Examples should start with the \ most basic use case. Each example should be described using text cells. Use \ \"Subsection\" and \"Subsubsection\" cells to group examples as needed.\n\n\ Example groups can optionally be delimited by inserting page breaks between \ them (affects example count on documentation page).\n\nSee existing \ documentation pages for examples.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Deletable->False, CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Here is a partition :", "Text", CellChangeTimes->{{3.758560613603302*^9, 3.7585606600705957`*^9}}, CellID->13078159], Cell[BoxData[ RowBox[{ RowBox[{"p", "=", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1", ",", "1"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.75856062322153*^9, 3.758560662499299*^9}}, CellLabel->"In[2]:=", CellID->443871870], Cell["This is its Ferrers diagram:", "Text", CellChangeTimes->{{3.758647080389038*^9, 3.758647093884068*^9}}, CellID->1607496491], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{"\"\<\[FilledCircle]\>\"", ",", "#"}], "]"}], "&"}], "/@", "p"}], "]"}]], "Input", CellChangeTimes->{{3.758647100159395*^9, 3.758647116084569*^9}}, CellLabel->"In[3]:=", CellID->832168269], Cell[BoxData[ TagBox[GridBox[{ {"\<\"\[FilledCircle]\"\>", "\<\"\[FilledCircle]\"\>", "\<\"\ \[FilledCircle]\"\>", "\<\"\[FilledCircle]\"\>", "\<\"\[FilledCircle]\"\>"}, {"\<\"\[FilledCircle]\"\>", "\<\"\[FilledCircle]\"\>", "\<\"\ \[FilledCircle]\"\>", "", ""}, {"\<\"\[FilledCircle]\"\>", "", "", "", ""}, {"\<\"\[FilledCircle]\"\>", "", "", "", ""} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{3.758647117054576*^9, 3.7586671586371593`*^9}, CellLabel->"Out[3]=", CellID->685493522] }, Open ]], Cell[TextData[{ "These are the hook lengths for the shape ", StyleBox["p", FontSlant->"Italic"], ":" }], "Text", CellChangeTimes->{{3.7586655174708*^9, 3.758665529558107*^9}, { 3.75866682527521*^9, 3.758666829426512*^9}}, CellID->1628977726], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HookLengths", "@", "p"}]], "Input", CellLabel->"In[4]:=", CellID->1079674365], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "5", ",", "4", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7586655329716797`*^9, 3.758667162037315*^9}, CellLabel->"Out[4]=", CellID->1439563231] }, Open ]], Cell["This is used to format a Young diagram:", "Text", CellChangeTimes->{{3.758641412630273*^9, 3.758641449917089*^9}, 3.7586471564978313`*^9, {3.758666590548203*^9, 3.758666599722034*^9}}, CellID->1374007138], Cell[BoxData[ RowBox[{ RowBox[{"formatyoungdiagram", "[", "p_", "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mat", ",", "mmax", ",", "nmax"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"mat", "=", RowBox[{"PadRight", "[", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{"1", ",", "#"}], "]"}], "&"}], "/@", "p"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"mmax", ",", "nmax"}], "}"}], "=", RowBox[{"Dimensions", "@", "mat"}]}], ";", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "None", ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"m", ",", "n"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"mat", "[", RowBox[{"[", RowBox[{"m", ",", "n"}], "]"}], "]"}], "\[Equal]", "1"}]}], ",", RowBox[{"{", RowBox[{"m", ",", "mmax"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "nmax"}], "}"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"True", "==", RowBox[{"Last", "@", "#"}]}], "&"}]}], "]"}]}], "}"}]}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.758641437127564*^9, 3.758641440846694*^9}, { 3.7586419455112953`*^9, 3.758641960190734*^9}, {3.758665571821294*^9, 3.7586655722544947`*^9}, {3.7586656137275953`*^9, 3.758665621883946*^9}, { 3.7586667590040903`*^9, 3.7586667731328573`*^9}}, CellLabel->"In[5]:=", CellID->444025492], Cell[TextData[{ "The Young diagram with shape ", StyleBox["p", FontSlant->"Italic"], ":" }], "Text", CellChangeTimes->{{3.758560667169404*^9, 3.7585606759769897`*^9}, { 3.758641132601016*^9, 3.758641133943954*^9}, {3.758641395426646*^9, 3.75864140515065*^9}, 3.758647148770392*^9, {3.758666622873378*^9, 3.758666636216878*^9}}, CellID->72464520], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{"\"\< \>\"", ",", "#"}], "]"}], "&"}], "/@", "p"}], ",", RowBox[{"formatyoungdiagram", "@", "p"}]}], "]"}]], "Input", CellChangeTimes->{{3.758641138735661*^9, 3.7586412080231123`*^9}, { 3.75864147291046*^9, 3.758641480740039*^9}, {3.758665610971142*^9, 3.7586656287388973`*^9}, 3.7586666414380093`*^9}, CellLabel->"In[6]:=", CellID->69637583], Cell[BoxData[ TagBox[GridBox[{ {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "", ""}, {"\<\" \"\>", "", "", "", ""}, {"\<\" \"\>", "", "", "", ""} }, AutoDelete->False, GridBoxFrame->{ "Columns" -> None, "Rows" -> None, "ItemsIndexed" -> {{1, 1} -> True, {1, 2} -> True, {1, 3} -> True, {1, 4} -> True, {1, 5} -> True, {2, 1} -> True, {2, 2} -> True, {2, 3} -> True, {3, 1} -> True, {4, 1} -> True}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{{3.7586411884007473`*^9, 3.758641209207983*^9}, { 3.758641474010304*^9, 3.7586414825104523`*^9}, 3.758641899955154*^9, 3.758641967334651*^9, 3.758665576526073*^9, 3.758665630100769*^9, 3.75866664370483*^9, 3.758666776520701*^9, 3.7586671680864964`*^9}, CellLabel->"Out[6]=", CellID->2104272077] }, Open ]], Cell["A hook of length 5:", "Text", CellChangeTimes->{{3.758561132852003*^9, 3.758561136202168*^9}, { 3.758641979198552*^9, 3.758641980243511*^9}, {3.75864691699426*^9, 3.7586469287457542`*^9}, 3.75864714261872*^9, {3.758665669819079*^9, 3.758665670185341*^9}}, CellID->1468348740], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{ RowBox[{"PadRight", "@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\< \>\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\< \>\"", ",", "\"\\"", ",", "\"\< \>\""}], "}"}], ",", RowBox[{"{", "\"\< \>\"", "}"}], ",", RowBox[{"{", "\"\< \>\"", "}"}]}], "}"}]}], "/.", " ", RowBox[{"0", "\[Rule]", "\"\<\>\""}]}], ",", RowBox[{"formatyoungdiagram", "@", "p"}]}], "]"}]], "Input", CellChangeTimes->{{3.7585611567578793`*^9, 3.758561169880548*^9}, 3.758646769581799*^9, {3.758646800686837*^9, 3.758646909430511*^9}, { 3.758647005517264*^9, 3.7586470191029787`*^9}, {3.758665637076338*^9, 3.7586656402345448`*^9}}, CellLabel->"In[7]:=", CellID->1680129086], Cell[BoxData[ TagBox[GridBox[{ {"\<\" \"\>", "\<\"x\"\>", "\<\"x\"\>", "\<\"x\"\>", "\<\"x\"\>"}, {"\<\" \"\>", "\<\"x\"\>", "\<\" \"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\" \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"\<\" \"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, GridBoxFrame->{ "Columns" -> None, "Rows" -> None, "ItemsIndexed" -> {{1, 1} -> True, {1, 2} -> True, {1, 3} -> True, {1, 4} -> True, {1, 5} -> True, {2, 1} -> True, {2, 2} -> True, {2, 3} -> True, {3, 1} -> True, {4, 1} -> True}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{{3.758646890016637*^9, 3.758646911034812*^9}, { 3.758647008524225*^9, 3.7586470202847967`*^9}, 3.758665580160479*^9, 3.75866564156994*^9, 3.758666779665587*^9, 3.758667171603586*^9}, CellLabel->"Out[7]=", CellID->1417352955] }, Open ]], Cell[TextData[{ "The hook lengths of ", StyleBox["p", FontSlant->"Italic"], ":" }], "Text", CellChangeTimes->{{3.7585608942667637`*^9, 3.758560922755438*^9}, { 3.758665676778863*^9, 3.7586656996891813`*^9}, {3.758666677064706*^9, 3.758666679175259*^9}}, CellID->1422806978], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{ RowBox[{"PadRight", "@", RowBox[{"HookLengths", "@", "p"}]}], "/.", " ", RowBox[{"0", "\[Rule]", "\"\<\>\""}]}], ",", RowBox[{"formatyoungdiagram", "@", "p"}]}], "]"}]], "Input", CellChangeTimes->{ 3.758642019177215*^9, {3.7586466679855547`*^9, 3.7586467302569027`*^9}, { 3.758665647613673*^9, 3.75866565041821*^9}}, CellLabel->"In[8]:=", CellID->418404233], Cell[BoxData[ TagBox[GridBox[{ {"8", "5", "4", "2", "1"}, {"5", "2", "1", "\<\"\"\>", "\<\"\"\>"}, {"2", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"}, {"1", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, GridBoxFrame->{ "Columns" -> None, "Rows" -> None, "ItemsIndexed" -> {{1, 1} -> True, {1, 2} -> True, {1, 3} -> True, {1, 4} -> True, {1, 5} -> True, {2, 1} -> True, {2, 2} -> True, {2, 3} -> True, {3, 1} -> True, {4, 1} -> True}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{ 3.758642024862952*^9, {3.758646674309264*^9, 3.758646731457883*^9}, 3.758665583462449*^9, 3.758665651257257*^9, 3.7586667843350763`*^9, 3.758667175169507*^9}, CellLabel->"Out[8]=", CellID->1543784411] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellID->568056528], Cell[TextData[{ "The number of standard Young tableaux for the diagram of shape ", StyleBox["p", FontSlant->"Italic"], ":" }], "Text", CellChangeTimes->{{3.758665722183504*^9, 3.7586657768710947`*^9}, { 3.758666027908655*^9, 3.75866603166963*^9}}, CellID->731377574], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Total", "[", "p", "]"}], "!"}], "/", RowBox[{"Times", "@@", RowBox[{"Flatten", "[", RowBox[{"HookLengths", "@", "p"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.758665787352064*^9, 3.758665867645547*^9}, { 3.7586659544201736`*^9, 3.7586659619946957`*^9}}, CellLabel->"In[9]:=", CellID->1970814962], Cell[BoxData["567"], "Output", CellChangeTimes->{3.7586658725692377`*^9, 3.758665963585182*^9, 3.758667178573049*^9}, CellLabel->"Out[9]=", CellID->1702612397] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Deletable->False, CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By",Cell[ BoxData[ FrameBox[ Cell[ "Name of the person, people or organization that should be publicly \ credited with contributing the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Contributed By", CellID->757508554], Cell["George Beck", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7586653472156057`*^9, 3.758665349491929*^9}}, CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords",Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms that should be used to include this resource in \ search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell["standard Young tableau", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7586653819395227`*^9, 3.758665387490899*^9}}, CellTags->"TabNext", CellID->123227828], Cell["semi-standard Young tableau", "Item", CellChangeTimes->{{3.758665390040442*^9, 3.7586654015222597`*^9}, { 3.759497023431233*^9, 3.759497023437028*^9}}, CellID->1605550893], Cell["Ferrers diagram", "Item", CellChangeTimes->{{3.758665390040442*^9, 3.7586654015222597`*^9}, { 3.759497023754767*^9, 3.759497060338151*^9}}, CellID->2010962972], Cell["hook", "Item", CellChangeTimes->{{3.758665390040442*^9, 3.7586654015222597`*^9}, { 3.759497023754767*^9, 3.759497069196216*^9}}, CellID->322362563], Cell["hook length", "Item", CellChangeTimes->{{3.758665390040442*^9, 3.7586654015222597`*^9}, { 3.759497023754767*^9, 3.759497075614105*^9}}, CellID->125097591], Cell["young diagram", "Item", CellChangeTimes->{{3.758665390040442*^9, 3.7586654015222597`*^9}, { 3.759497023754767*^9, 3.759497079967391*^9}}, CellID->1595088933] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols",Cell[ BoxData[ FrameBox[ Cell[ "List related Wolfram Language symbols. Include up to twenty \ documented, system-level symbols.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Symbols", CellID->911170439], Cell[CellGroupData[{ Cell["PartitionsP", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.758665416107822*^9, 3.7586654188017178`*^9}}, CellTags->"TabNext", CellID->79477165], Cell["IntegerPartitions", "Item", CellChangeTimes->{{3.758665420643976*^9, 3.758665425817618*^9}}, CellID->299829197] }, Open ]] }, Open ]], Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects",Cell[ BoxData[ FrameBox[ Cell[ "Names of published resource objects from any Wolfram repository that \ are related to this resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Related Resource Objects", CellID->217060377], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Citation for original source of the function or its components. For \ example, original publication of an algorithm or public code repository.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->967310595], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links",Cell[ BoxData[ FrameBox[ Cell[ "URLs or hyperlinks for external information related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Links", CellID->593846556], Cell[CellGroupData[{ Cell[TextData[ButtonBox["Ferrers Diagram", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/FerrersDiagram.html"], None}, ButtonNote->"http://mathworld.wolfram.com/FerrersDiagram.html"]], "Item", CellChangeTimes->{{3.758666205439505*^9, 3.758666222487751*^9}}, CellID->1813808265], Cell[TextData[ButtonBox["Young Tableau", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/YoungTableau.html"], None}, ButtonNote->"http://mathworld.wolfram.com/YoungTableau.html"]], "Item", CellChangeTimes->{{3.758666271288389*^9, 3.758666283311757*^9}}, CellID->1082704270], Cell[TextData[ButtonBox["Hook Length Formula", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/HookLengthFormula.html"], None}, ButtonNote->"http://mathworld.wolfram.com/HookLengthFormula.html"]], "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7586654469644203`*^9, 3.75866546698991*^9}}, CellTags->"TabNext", CellID->485448166], Cell[TextData[ButtonBox["Young Tableaux", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/YoungTableaux/"], None}, ButtonNote->"http://demonstrations.wolfram.com/YoungTableaux/"]], "Item", CellChangeTimes->{{3.758666165561194*^9, 3.758666176127049*^9}}, CellID->2122094276] }, Open ]] }, Open ]], Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests",Cell[ BoxData[ FrameBox[ Cell[ "Optional list of tests that can be used to verify that the function \ is working properly in any environment.\nTests can be specified as \ Input/Output cell pairs or as literal VerificationTest expressions if you \ need to specify options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Input", CellTags->"Tests", CellID->16051757] }, Closed]], Cell["Author Notes", "Section", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Author Notes", CellID->795110225], 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["\<\ This notebook ought to a link to Combinatorica`NumberOfTableaux once that \ becomes a WFR resource function.\ \>", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellChangeTimes->{{3.7586652152916517`*^9, 3.758665315797401*^9}, { 3.758666299349223*^9, 3.758666299851988*^9}}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, TaggingRules->{ "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, "TemplateVersion" -> "1.2.10"}, CreateCellID->True, FrontEndVersion->"11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { Background -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], AspectRatio -> Automatic, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ "\"Function Resource Definition Notebook\"", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 26, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet]\"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository/"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Open Sample Notebook\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"View a completed sample definition notebook.\"", LabelStyle -> "TextStyling"], Annotation[#, "View a completed sample definition notebook.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`\ viewExampleNotebook[]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Style Guidelines\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ MessageDialog["Coming soon"]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Preview\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"In a notebook\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Preview"]), "\"On the cloud\"" :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"])}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ ButtonBox[ TagBox[ TooltipBox[ StyleBox[ TagBox[ GridBox[{{"\"Deploy\"", "\"\[DownPointer]\""}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "Rows" -> {False, {True}, False}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, FrameStyle -> RGBColor[ 0.9941176470588236, 0.7098039215686275, 0.6019607843137255]], "Grid"], "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"\"", LabelStyle -> "TextStyling"], Annotation[#, "", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ Null]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic], { "\"Locally on this computer\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Local"]), "\"For my cloud account\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "Cloud"]), "\"Publicly in the cloud\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "CloudPublic"]), "\"In this session only (without documentation)\"" :> ( Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`getResource[ ButtonNotebook[], "KernelSession"])}, Appearance -> None, Method -> "Queued"], DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm]], ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False], ButtonBox[ TagBox[ TooltipBox[ StyleBox[ "\"Submit to Repository\"", "Text", FontFamily -> "Source Sans Pro", FontWeight -> Bold, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], "\"Submit your function to the Wolfram Function Repository.\"", LabelStyle -> "TextStyling"], Annotation[#, "Submit your function to the Wolfram Function Repository.", "Tooltip"]& ], ButtonFunction :> (Symbol["System`ResourceFunction"]; FunctionResource`DefinitionNotebook`Private`showProgress[ FunctionResource`DefinitionNotebook`Private`submitRepository[ ButtonNotebook[]]]), FrameMargins -> 0, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PImSfFdud67eiMoKtcDiuDUEiHzNk/zXY0h Qj0E1RgCxYGymFreFmq9qzVCVw9BtUZAWTQtIPdgmo9qF8SFkGABWVFlgE89 GAHVILREyLyrw2sFBNUZAlUygAGpWsiwhUy/kBViZMQLebFPThojJSWTml8A +GMDZA== "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3408331`9.347418435291374}, "Instant", "Gregorian", -4.]]]], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PIhRulnuv6fbBMIArKBIri0vAmX+Zas9TvL CK4egoAiQHGgLKaW7yk6f7JM0NRDUZYJUBZNC9B2TPPR7IK4EBIsQMavTEM8 6iEIqAauBejOP9nGBLUA1QBVMoABqVrIsIU8v5AXYmTEC3mxT0YaIyklk5pf AJBwAV4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.3758572`9.34780490414085}, "Instant", "Gregorian", -4.]]]], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAQikHs/zgAHikgeB0uTTzC1PKxLfr3teNw04BsoAguLW9ilL5vnPr3ypG/ E9L/ZJtAEJANFAGKA2UxtfzYveTvjvlwxcgIKA6URdMCtB1oGlb1UF1XjkBc CAkWIOPPw2t/26PwaQHKPrwG1wJ05/9fP/CohyCgGqBKBjAgVQsZtpDnF/JC jIx4IS/2yUhjJKVkUvMLAMWzMVI= "], "Byte", ColorSpace -> "RGB", Interleaving -> True, MetaInformation -> Association[ "Comments" -> Association[ "Software" -> "Wolfram Mathematica 8.0", "Creation Time" -> DateObject[{ 2018, 10, 9, 12, 3, 39.4378565`9.348488185213698}, "Instant", "Gregorian", -4.]]]]}, Background -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`], Method -> "Queued", ImageSize -> All, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`], 2 -> RGBColor[ 0.9215686274509803, 0.3411764705882353, 0.10588235294117647`]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {}, 5}, "Rows" -> {2, 2, {}, 2}}, FrameStyle -> RGBColor[ 0.9882352941176471, 0.4196078431372549, 0.20392156862745098`]], "Grid"]], "DockedCell", CellFrameMargins -> -1]}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {0, 0}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 1, 0]], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TagBox[ TooltipBox[ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"More info\"", LabelStyle -> "TextStyling"], Annotation[#, "More info", "Tooltip"]& ], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs"], All]; SelectionMove[ FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], StyleKeyMapping -> {}, ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}, ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["Text"], ContextMenu -> { MenuItem["Cu&t", "Cut"], MenuItem["&Copy", "Copy"], MenuItem["&Paste", FrontEnd`Paste[After]], Menu["Cop&y As", { MenuItem["Plain &Text", FrontEnd`CopySpecial["PlainText"]], MenuItem["&Input Text", FrontEnd`CopySpecial["InputText"]], MenuItem["&LaTeX", KernelExecute[ ToExpression["FrontEnd`CopyAsTeX[]"]], MenuEvaluator -> Automatic], MenuItem["M&athML", KernelExecute[ ToExpression["FrontEnd`CopyAsMathML[]"]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Cell &Object", FrontEnd`CopySpecial["CellObject"]], MenuItem["&Cell Expression", FrontEnd`CopySpecial["CellExpression"]], MenuItem["&Notebook Expression", FrontEnd`CopySpecial["NotebookExpression"]]}], Delimiter, MenuItem["Format as Template Input", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateToggle[EvaluationNotebook[]]"]], MenuEvaluator -> Automatic], MenuItem["Format as Code", KernelExecute[ ToExpression[ "System`ResourceFunction; \ FunctionTemplateToggle`DT`FunctionTemplateLiteralInput[EvaluationNotebook[]]"]\ ], MenuEvaluator -> Automatic], Delimiter, MenuItem["Make &Hyperlink...", "CreateHyperlinkDialog"], MenuItem["Insert Table/&Matrix...", "CreateGridBoxDialog"], MenuItem["Chec&k Spelling...", "FindNextMisspelling"], Menu["Citatio&n", { MenuItem[ "Insert Bibliographical &Reference...", "InsertBibReference"], MenuItem["Insert Bibliographical &Note...", "InsertBibNote"], Delimiter, MenuItem["Set / Change Citation &Style...", "SetCitationStyle"], MenuItem["&Insert Bibliography and Notes", "InsertBibAndNotes"], MenuItem["&Delete Bibliography and Notes", "DeleteBibAndNotes"], MenuItem["Re&build Bibliography and Notes", "RebuildBibAndNotes"]}], Delimiter, Menu["Sty&le", { MenuItem[ "Start Cell Style Names", "MenuListStyles", $CellContext`MenuAnchor -> True], Delimiter, MenuItem["&Other...", "StyleOther"]}], Delimiter, MenuItem["Create Inline Cell", "CreateInlineCell"], MenuItem["Di&vide Cell", "CellSplit"], MenuItem["Evaluate &in Place", All], Delimiter, MenuItem["Toggle &Full Screen", FrontEndExecute[ FrontEnd`Value[ FEPrivate`NotebookToggleFullScreen[]]]]}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None]}, Visible -> False, FrontEndVersion -> "11.3 for Linux x86 (64-bit) (March 6, 2018)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Title"->{ Cell[580, 22, 520, 9, 70, "Title",ExpressionUUID->"b1ccf236-e698-40a3-8d57-b64b144fd561", CellTags->{"Title", "TabNext"}, CellID->362346026]}, "TabNext"->{ Cell[580, 22, 520, 9, 70, "Title",ExpressionUUID->"b1ccf236-e698-40a3-8d57-b64b144fd561", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1103, 33, 813, 15, 70, "Text",ExpressionUUID->"69091080-9b76-4367-8509-dbfc93eeac3d", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[2821, 75, 2205, 59, 70, "Input",ExpressionUUID->"18262ef2-49be-4610-b4a2-7520c33ea686", CellTags->"TabNext", CellID->778396829], Cell[5995, 170, 271, 6, 70, "UsageInputs",ExpressionUUID->"d4182d7f-bcf5-4c8f-899a-2c0bbcfb1334", CellTags->"TabNext", CellID->157543866], Cell[6269, 178, 931, 24, 70, "UsageDescription",ExpressionUUID->"d53e6691-8417-41b9-83f3-9fffab4b987c", CellTags->"TabNext", CellID->231889230], Cell[8088, 232, 1087, 29, 70, "Notes",ExpressionUUID->"0098546f-f463-4033-aab2-ff39ea9e3c41", CellTags->"TabNext", CellID->521904482], Cell[9178, 263, 890, 20, 70, "Notes",ExpressionUUID->"8e0cbd41-3df4-42a6-b18b-8e5c8323dc3e", CellTags->"TabNext", CellID->1868278476], Cell[22840, 676, 534, 9, 70, "Text",ExpressionUUID->"e5cfae4e-a03c-406a-8cc9-e15838d9fcbe", CellTags->"TabNext", CellID->832483124], Cell[24061, 712, 545, 9, 70, "Item",ExpressionUUID->"18d2cbb3-e6fe-4947-8688-69d8af99d63a", CellTags->"TabNext", CellID->123227828], Cell[26195, 774, 533, 9, 70, "Item",ExpressionUUID->"da6e1be4-3df3-4f6c-946f-6f2b54784677", CellTags->"TabNext", CellID->79477165], Cell[28362, 834, 496, 8, 70, "Text",ExpressionUUID->"62de5f45-5420-46a6-b81c-03bd517d8989", CellTags->"TabNext", CellID->343081869], Cell[30139, 884, 740, 13, 70, "Item",ExpressionUUID->"468c3bb3-187c-4585-8062-fac937159692", CellTags->"TabNext", CellID->485448166], Cell[32876, 961, 688, 13, 70, "Text",ExpressionUUID->"6799d6c0-dd37-4cd6-9527-7a6d777e378a", CellTags->"TabNext", CellID->920818074]}, "Description"->{ Cell[1103, 33, 813, 15, 70, "Text",ExpressionUUID->"69091080-9b76-4367-8509-dbfc93eeac3d", CellTags->{"Description", "TabNext"}, CellID->450900334]}, "Definition"->{ Cell[1941, 52, 877, 21, 70, "Section",ExpressionUUID->"3d817e8b-6b44-460f-b4a1-aa38b4d64b36", CellTags->"Definition", CellID->608264297]}, "Documentation"->{ Cell[5063, 139, 99, 3, 70, "Section",ExpressionUUID->"3a0dc8d7-9aab-4a63-9d43-01507e735fac", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[5187, 146, 783, 20, 70, "Subsection",ExpressionUUID->"edb5119f-d621-4640-ab3d-347744555b14", CellTags->"Usage", CellID->694807545]}, "Details & Options"->{ Cell[7249, 208, 814, 20, 70, "Subsection",ExpressionUUID->"aefb9e13-9ae3-4d7a-9bef-0a29cb954acc", CellTags->"Details & Options", CellID->29639701]}, "Examples"->{ Cell[10129, 290, 913, 21, 70, "Section",ExpressionUUID->"cb34e77d-ca1d-47fa-83dc-4394c3da0069", CellTags->"Examples", CellID->847663398]}, "Source & Additional Information"->{ Cell[22005, 649, 135, 3, 70, "Section",ExpressionUUID->"926f0e4d-ee62-4074-bfa2-3ea452a2d5cb", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[22165, 656, 672, 18, 70, "Subsection",ExpressionUUID->"a7dca4d0-e1bd-4afc-851c-966f48742fe0", CellTags->"Contributed By", CellID->757508554]}, "Keywords"->{ Cell[23411, 690, 625, 18, 70, "Subsection",ExpressionUUID->"83b1227b-4fa3-49c0-bb3f-25b2071116d0", CellTags->"Keywords", CellID->246422893]}, "Related Symbols"->{ Cell[25508, 752, 662, 18, 70, "Subsection",ExpressionUUID->"5a0c6119-65e1-4b5b-bddd-3c76f54a15a5", CellTags->"Related Symbols", CellID->911170439]}, "Related Resource Objects"->{ Cell[26877, 791, 702, 18, 70, "Subsection",ExpressionUUID->"1f9cc0ed-7118-42f7-a8dc-aa56232b9963", CellTags->"Related Resource Objects", CellID->217060377]}, "Source/Reference Citation"->{ Cell[27604, 813, 755, 19, 70, "Subsection",ExpressionUUID->"4583952c-cf2f-4497-8a6e-26ec5c65229a", CellTags->"Source/Reference Citation", CellID->967310595]}, "Links"->{ Cell[28895, 847, 597, 17, 70, "Subsection",ExpressionUUID->"c186b148-499f-46c6-a2ed-89b4fa2e9d7b", CellTags->"Links", CellID->593846556]}, "Tests"->{ Cell[31219, 909, 767, 20, 70, "Subsection",ExpressionUUID->"45ec72ef-f586-4587-b222-9095aa38935c", CellTags->"Tests", CellID->16051757]}, "Author Notes"->{ Cell[32001, 932, 127, 4, 70, "Section",ExpressionUUID->"fe2f13b7-ce79-4163-8657-79d02af60238", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[32153, 940, 720, 19, 70, "Section",ExpressionUUID->"eff507b4-86e9-4a28-8ec7-442a3caaf630", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 79161, 1912}, {"TabNext", 79326, 1916}, {"Description", 81227, 1956}, {"Definition", 81402, 1960}, {"Documentation", 81569, 1964}, {"Usage", 81730, 1968}, {"Details & Options", 81900, 1972}, {"Examples", 82072, 1976}, {"Source & Additional Information", 82257, 1980}, {"Contributed By", 82447, 1984}, {"Keywords", 82618, 1988}, {"Related Symbols", 82790, 1992}, {"Related Resource Objects", 82978, 1996}, {"Source/Reference Citation", 83176, 2000}, {"Links", 83355, 2004}, {"Tests", 83514, 2008}, {"Author Notes", 83679, 2012}, {"Submission Notes", 83852, 2016} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 520, 9, 70, "Title",ExpressionUUID->"b1ccf236-e698-40a3-8d57-b64b144fd561", CellTags->{"Title", "TabNext"}, CellID->362346026], Cell[1103, 33, 813, 15, 70, "Text",ExpressionUUID->"69091080-9b76-4367-8509-dbfc93eeac3d", CellTags->{"Description", "TabNext"}, CellID->450900334], Cell[CellGroupData[{ Cell[1941, 52, 877, 21, 70, "Section",ExpressionUUID->"3d817e8b-6b44-460f-b4a1-aa38b4d64b36", CellTags->"Definition", CellID->608264297], Cell[2821, 75, 2205, 59, 70, "Input",ExpressionUUID->"18262ef2-49be-4610-b4a2-7520c33ea686", CellTags->"TabNext", CellID->778396829] }, Open ]], Cell[CellGroupData[{ Cell[5063, 139, 99, 3, 70, "Section",ExpressionUUID->"3a0dc8d7-9aab-4a63-9d43-01507e735fac", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[5187, 146, 783, 20, 70, "Subsection",ExpressionUUID->"edb5119f-d621-4640-ab3d-347744555b14", CellTags->"Usage", CellID->694807545], Cell[CellGroupData[{ Cell[5995, 170, 271, 6, 70, "UsageInputs",ExpressionUUID->"d4182d7f-bcf5-4c8f-899a-2c0bbcfb1334", CellTags->"TabNext", CellID->157543866], Cell[6269, 178, 931, 24, 70, "UsageDescription",ExpressionUUID->"d53e6691-8417-41b9-83f3-9fffab4b987c", CellTags->"TabNext", CellID->231889230] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7249, 208, 814, 20, 70, "Subsection",ExpressionUUID->"aefb9e13-9ae3-4d7a-9bef-0a29cb954acc", CellTags->"Details & Options", CellID->29639701], Cell[CellGroupData[{ Cell[8088, 232, 1087, 29, 70, "Notes",ExpressionUUID->"0098546f-f463-4033-aab2-ff39ea9e3c41", CellTags->"TabNext", CellID->521904482], Cell[9178, 263, 890, 20, 70, "Notes",ExpressionUUID->"8e0cbd41-3df4-42a6-b18b-8e5c8323dc3e", CellTags->"TabNext", CellID->1868278476] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10129, 290, 913, 21, 70, "Section",ExpressionUUID->"cb34e77d-ca1d-47fa-83dc-4394c3da0069", CellTags->"Examples", CellID->847663398], Cell[CellGroupData[{ Cell[11067, 315, 56, 1, 70, "Subsection",ExpressionUUID->"8c4fd9db-d4e1-4721-a557-8393c00503a8", CellID->462042388], Cell[11126, 318, 124, 2, 70, "Text",ExpressionUUID->"fc60e82f-0d51-4075-a11c-3350c1241a41", CellID->13078159], Cell[11253, 322, 244, 7, 70, "Input",ExpressionUUID->"eac6218d-b64b-43db-84f1-c3b55525e28b", CellID->443871870], Cell[11500, 331, 131, 2, 70, "Text",ExpressionUUID->"4c9f076c-d1a6-4db3-b133-9c43832e20e8", CellID->1607496491], Cell[CellGroupData[{ Cell[11656, 337, 294, 9, 70, "Input",ExpressionUUID->"3d3878a6-6258-4d0e-a154-75bca241c4db", CellID->832168269], Cell[11953, 348, 603, 14, 70, "Output",ExpressionUUID->"68f404d4-9602-49e9-915c-4acf08dabf60", CellID->685493522] }, Open ]], Cell[12571, 365, 250, 8, 70, "Text",ExpressionUUID->"67853130-1462-4ad7-8f79-f41771bade57", CellID->1628977726], Cell[CellGroupData[{ Cell[12846, 377, 103, 3, 70, "Input",ExpressionUUID->"dec15d43-9785-4b5d-8b94-5bd1cdc29b03", CellID->1079674365], Cell[12952, 382, 389, 11, 70, "Output",ExpressionUUID->"55c55f65-798e-46d3-9f69-ab66489397be", CellID->1439563231] }, Open ]], Cell[13356, 396, 216, 3, 70, "Text",ExpressionUUID->"af514617-d029-4a24-9fa8-5306771b5db7", CellID->1374007138], Cell[13575, 401, 1843, 49, 70, "Input",ExpressionUUID->"046413fd-ba10-4587-a8c1-dd2c5f12f270", CellID->444025492], Cell[15421, 452, 363, 10, 70, "Text",ExpressionUUID->"a95555a7-9a92-408f-9306-9d8426ef1dfa", CellID->72464520], Cell[CellGroupData[{ Cell[15809, 466, 471, 12, 70, "Input",ExpressionUUID->"0609caa5-9841-4fc6-bc99-2568fbed6659", CellID->69637583], Cell[16283, 480, 938, 20, 70, "Output",ExpressionUUID->"2308c2bd-8c5a-477a-b64d-28cacd4aab0c", CellID->2104272077] }, Open ]], Cell[17236, 503, 294, 5, 70, "Text",ExpressionUUID->"a0c8e8c1-c23e-4e98-b584-bff298f58c6c", CellID->1468348740], Cell[CellGroupData[{ Cell[17555, 512, 891, 22, 70, "Input",ExpressionUUID->"7f109376-296e-4a3d-9ea2-316851a7be20", CellID->1680129086], Cell[18449, 536, 944, 19, 70, "Output",ExpressionUUID->"744835c9-3be4-4486-aabf-e50afbc60af9", CellID->1417352955] }, Open ]], Cell[19408, 558, 285, 9, 70, "Text",ExpressionUUID->"15904edd-6d7e-4255-b7de-d8d1d8ab37ac", CellID->1422806978], Cell[CellGroupData[{ Cell[19718, 571, 444, 12, 70, "Input",ExpressionUUID->"7b67b771-e459-44be-95b3-5713b0591c76", CellID->418404233], Cell[20165, 585, 844, 20, 70, "Output",ExpressionUUID->"3cf2f5e9-28c2-4767-b24e-54342ff141bf", CellID->1543784411] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21058, 611, 54, 1, 70, "Subsection",ExpressionUUID->"33d6e250-d3c5-48f1-a86d-558c7938a870", CellID->568056528], Cell[21115, 614, 275, 8, 70, "Text",ExpressionUUID->"ee8c0639-0e0d-4534-ba22-f9bdc623d685", CellID->731377574], Cell[CellGroupData[{ Cell[21415, 626, 361, 10, 70, "Input",ExpressionUUID->"3f2052ba-76b4-41b3-a18e-b4d4d41c1997", CellID->1970814962], Cell[21779, 638, 165, 4, 70, "Output",ExpressionUUID->"e9033a81-3d2c-4bd1-8d53-360ebfc30e04", CellID->1702612397] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22005, 649, 135, 3, 70, "Section",ExpressionUUID->"926f0e4d-ee62-4074-bfa2-3ea452a2d5cb", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[22165, 656, 672, 18, 70, "Subsection",ExpressionUUID->"a7dca4d0-e1bd-4afc-851c-966f48742fe0", CellTags->"Contributed By", CellID->757508554], Cell[22840, 676, 534, 9, 70, "Text",ExpressionUUID->"e5cfae4e-a03c-406a-8cc9-e15838d9fcbe", CellTags->"TabNext", CellID->832483124] }, Open ]], Cell[CellGroupData[{ Cell[23411, 690, 625, 18, 70, "Subsection",ExpressionUUID->"83b1227b-4fa3-49c0-bb3f-25b2071116d0", CellTags->"Keywords", CellID->246422893], Cell[CellGroupData[{ Cell[24061, 712, 545, 9, 70, "Item",ExpressionUUID->"18d2cbb3-e6fe-4947-8688-69d8af99d63a", CellTags->"TabNext", CellID->123227828], Cell[24609, 723, 181, 3, 70, "Item",ExpressionUUID->"288f19fe-27a3-4ac4-a29d-003bd3898770", CellID->1605550893], Cell[24793, 728, 169, 3, 70, "Item",ExpressionUUID->"f4ee6a9e-b623-4c9f-aef9-8fcb3234d96e", CellID->2010962972], Cell[24965, 733, 157, 3, 70, "Item",ExpressionUUID->"a04a4a7c-dd6e-457c-9c1b-64de55191db3", CellID->322362563], Cell[25125, 738, 164, 3, 70, "Item",ExpressionUUID->"b568cefe-1951-42a0-bfbb-f8fb72fbf46e", CellID->125097591], Cell[25292, 743, 167, 3, 70, "Item",ExpressionUUID->"75ffb99d-eff8-4c93-a34f-bda17530e4b6", CellID->1595088933] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25508, 752, 662, 18, 70, "Subsection",ExpressionUUID->"5a0c6119-65e1-4b5b-bddd-3c76f54a15a5", CellTags->"Related Symbols", CellID->911170439], Cell[CellGroupData[{ Cell[26195, 774, 533, 9, 70, "Item",ExpressionUUID->"da6e1be4-3df3-4f6c-946f-6f2b54784677", CellTags->"TabNext", CellID->79477165], Cell[26731, 785, 119, 2, 70, "Item",ExpressionUUID->"a965a870-1e95-4bea-b489-e46160011a72", CellID->299829197] }, Open ]] }, Open ]], Cell[26877, 791, 702, 18, 70, "Subsection",ExpressionUUID->"1f9cc0ed-7118-42f7-a8dc-aa56232b9963", CellTags->"Related Resource Objects", CellID->217060377], Cell[CellGroupData[{ Cell[27604, 813, 755, 19, 70, "Subsection",ExpressionUUID->"4583952c-cf2f-4497-8a6e-26ec5c65229a", CellTags->"Source/Reference Citation", CellID->967310595], Cell[28362, 834, 496, 8, 70, "Text",ExpressionUUID->"62de5f45-5420-46a6-b81c-03bd517d8989", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[28895, 847, 597, 17, 70, "Subsection",ExpressionUUID->"c186b148-499f-46c6-a2ed-89b4fa2e9d7b", CellTags->"Links", CellID->593846556], Cell[CellGroupData[{ Cell[29517, 868, 311, 6, 70, "Item",ExpressionUUID->"737beea4-17d2-4db4-9744-2fa70e9a4ca4", CellID->1813808265], Cell[29831, 876, 305, 6, 70, "Item",ExpressionUUID->"f680eea9-e7c1-4042-a470-0e903b589fe6", CellID->1082704270], Cell[30139, 884, 740, 13, 70, "Item",ExpressionUUID->"468c3bb3-187c-4585-8062-fac937159692", CellTags->"TabNext", CellID->485448166], Cell[30882, 899, 310, 6, 70, "Item",ExpressionUUID->"b6c1b4e3-1178-4d08-801e-d24740df9f74", CellID->2122094276] }, Open ]] }, Open ]], Cell[31219, 909, 767, 20, 70, "Subsection",ExpressionUUID->"45ec72ef-f586-4587-b222-9095aa38935c", CellTags->"Tests", CellID->16051757] }, Closed]], Cell[32001, 932, 127, 4, 70, "Section",ExpressionUUID->"fe2f13b7-ce79-4163-8657-79d02af60238", CellTags->"Author Notes", CellID->795110225], Cell[CellGroupData[{ Cell[32153, 940, 720, 19, 70, "Section",ExpressionUUID->"eff507b4-86e9-4a28-8ec7-442a3caaf630", CellTags->"Submission Notes", CellID->843283583], Cell[32876, 961, 688, 13, 70, "Text",ExpressionUUID->"6799d6c0-dd37-4cd6-9527-7a6d777e378a", CellTags->"TabNext", CellID->920818074] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)