(* 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[ 202770, 4452] NotebookOptionsPosition[ 114119, 2687] NotebookOutlinePosition[ 189910, 4172] CellTagsIndexPosition[ 189198, 4148] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["InShuffle", "Title", CellTags->"Title"], Cell["Perform an in shuffle on a list", "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[{ RowBox[{ RowBox[{"InShuffle", "[", "l_List", "]"}], " ", ":=", " ", RowBox[{"Riffle", " ", "@@", " ", RowBox[{"Reverse", "[", RowBox[{"TakeDrop", "[", RowBox[{"l", ",", " ", RowBox[{"Floor", "[", RowBox[{ RowBox[{"Length", "[", "l", "]"}], "/", "2"}], "]"}]}], "]"}], "]"}]}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"InShuffle", "[", RowBox[{"l_List", ",", " ", RowBox[{ RowBox[{"(", "n_Integer", ")"}], "?", "NonNegative"}]}], "]"}], " ", ":=", " ", RowBox[{"Nest", "[", RowBox[{"InShuffle", ",", " ", "l", ",", " ", "n"}], "]"}]}]}], "Input", InitializationCell->True] }, 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", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InShuffle", "[", StyleBox["list", "TI"], "]"}]], "UsageInputs"], Cell[TextData[{ "performs an in shuffle on ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InShuffle", "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "performs ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " in shuffles on ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options",Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Notes", CellTags->"Details & Options", CellID->66019318], Cell["\<\ An in shuffle is defined as follows: (1) split the list in two halves; and \ (2) interweave each half of the list starting with the second half, such that \ every other card came from the same half of the original list.\ \>", "Notes", Editable->True, Deletable->True, CellTags->"TabNext", CellID->521904482], Cell["Here is an example of a list with 10 items:", "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->557618692], Cell[BoxData[ GraphicsBox[{{ {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{1, 0}], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->12], NCache[{3/2, 1/2}, {1.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{2, 0}], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->12], NCache[{5/2, 1/2}, {2.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{3, 0}], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->12], NCache[{7/2, 1/2}, {3.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{4, 0}], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->12], NCache[{9/2, 1/2}, {4.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{5, 0}], InsetBox[ StyleBox["5", StripOnInput->False, FontSize->12], NCache[{11/2, 1/2}, {5.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{6, 0}], InsetBox[ StyleBox["6", StripOnInput->False, FontSize->12], NCache[{13/2, 1/2}, {6.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{7, 0}], InsetBox[ StyleBox["7", StripOnInput->False, FontSize->12], NCache[{15/2, 1/2}, {7.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{8, 0}], InsetBox[ StyleBox["8", StripOnInput->False, FontSize->12], NCache[{17/2, 1/2}, {8.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{9, 0}], InsetBox[ StyleBox["9", StripOnInput->False, FontSize->12], NCache[{19/2, 1/2}, {9.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{10, 0}], InsetBox[ StyleBox["10", StripOnInput->False, FontSize->12], NCache[{21/2, 1/2}, {10.5, 0.5}]]}}, { {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[NCache[{1/2, -3}, {0.5, -3}]], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->12], NCache[{1, -(5/2)}, {1, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[NCache[{3/2, -3}, {1.5, -3}]], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->12], NCache[{2, -(5/2)}, {2, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[NCache[{5/2, -3}, {2.5, -3}]], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->12], NCache[{3, -(5/2)}, {3, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[NCache[{7/2, -3}, {3.5, -3}]], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->12], NCache[{4, -(5/2)}, {4, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[NCache[{9/2, -3}, {4.5, -3}]], InsetBox[ StyleBox["5", StripOnInput->False, FontSize->12], NCache[{5, -(5/2)}, {5, -2.5}]]}}, { {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[NCache[{13/2, -3}, {6.5, -3}]], InsetBox[ StyleBox["6", StripOnInput->False, FontSize->12], NCache[{7, -(5/2)}, {7, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[NCache[{15/2, -3}, {7.5, -3}]], InsetBox[ StyleBox["7", StripOnInput->False, FontSize->12], NCache[{8, -(5/2)}, {8, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[NCache[{17/2, -3}, {8.5, -3}]], InsetBox[ StyleBox["8", StripOnInput->False, FontSize->12], NCache[{9, -(5/2)}, {9, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[NCache[{19/2, -3}, {9.5, -3}]], InsetBox[ StyleBox["9", StripOnInput->False, FontSize->12], NCache[{10, -(5/2)}, {10, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[NCache[{21/2, -3}, {10.5, -3}]], InsetBox[ StyleBox["10", StripOnInput->False, FontSize->12], NCache[{11, -(5/2)}, {11, -2.5}]]}}, { {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{1, -7}], InsetBox[ StyleBox["6", StripOnInput->False, FontSize->12], NCache[{3/2, -(13/2)}, {1.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{2, -7}], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->12], NCache[{5/2, -(13/2)}, {2.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{3, -7}], InsetBox[ StyleBox["7", StripOnInput->False, FontSize->12], NCache[{7/2, -(13/2)}, {3.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{4, -7}], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->12], NCache[{9/2, -(13/2)}, {4.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{5, -7}], InsetBox[ StyleBox["8", StripOnInput->False, FontSize->12], NCache[{11/2, -(13/2)}, {5.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{6, -7}], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->12], NCache[{13/2, -(13/2)}, {6.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{7, -7}], InsetBox[ StyleBox["9", StripOnInput->False, FontSize->12], NCache[{15/2, -(13/2)}, {7.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{8, -7}], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->12], NCache[{17/2, -(13/2)}, {8.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{9, -7}], InsetBox[ StyleBox["10", StripOnInput->False, FontSize->12], NCache[{19/2, -(13/2)}, {9.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{10, -7}], InsetBox[ StyleBox["5", StripOnInput->False, FontSize->12], NCache[{21/2, -(13/2)}, {10.5, -6.5}]]}}, { ArrowBox[BSplineCurveBox[ NCache[{{3/2, -0.25}, {3/2, -1}, {1., -1.}, {1., -1.75}}, {{ 1.5, -0.25}, {1.5, -1}, {1., -1.}, {1., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{5/2, -0.25}, {5/2, -1}, {2., -1.}, {2., -1.75}}, {{ 2.5, -0.25}, {2.5, -1}, {2., -1.}, {2., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{7/2, -0.25}, {7/2, -1}, {3., -1.}, {3., -1.75}}, {{ 3.5, -0.25}, {3.5, -1}, {3., -1.}, {3., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{9/2, -0.25}, {9/2, -1}, {4., -1.}, {4., -1.75}}, {{ 4.5, -0.25}, {4.5, -1}, {4., -1.}, {4., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{11/2, -0.25}, {11/2, -1}, {5., -1.}, {5., -1.75}}, {{ 5.5, -0.25}, {5.5, -1}, {5., -1.}, {5., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{13/2, -0.25}, {13/2, -1}, {7., -1.}, {7., -1.75}}, {{ 6.5, -0.25}, {6.5, -1}, {7., -1.}, {7., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{15/2, -0.25}, {15/2, -1}, {8., -1.}, {8., -1.75}}, {{ 7.5, -0.25}, {7.5, -1}, {8., -1.}, {8., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{17/2, -0.25}, {17/2, -1}, {9., -1.}, {9., -1.75}}, {{ 8.5, -0.25}, {8.5, -1}, {9., -1.}, {9., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{19/2, -0.25}, {19/2, -1}, {10., -1.}, {10., -1.75}}, {{ 9.5, -0.25}, {9.5, -1}, {10., -1.}, {10., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{21/2, -0.25}, {21/2, -1}, {11., -1.}, {11., -1.75}}, {{ 10.5, -0.25}, {10.5, -1}, {11., -1.}, {11., -1.75}}]]]}, { ArrowBox[BSplineCurveBox[ NCache[{{7., -3.25}, {7., -3.5}, {3/2, -4.5}, {3/2, -5.75}}, {{ 7., -3.25}, {7., -3.5}, {1.5, -4.5}, {1.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{1., -3.25}, {1., -3.5}, {5/2, -4.5}, {5/2, -5.75}}, {{ 1., -3.25}, {1., -3.5}, {2.5, -4.5}, {2.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{8., -3.25}, {8., -3.5}, {7/2, -4.5}, {7/2, -5.75}}, {{ 8., -3.25}, {8., -3.5}, {3.5, -4.5}, {3.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{2., -3.25}, {2., -3.5}, {9/2, -4.5}, {9/2, -5.75}}, {{ 2., -3.25}, {2., -3.5}, {4.5, -4.5}, {4.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{9., -3.25}, {9., -3.5}, {11/2, -4.5}, {11/2, -5.75}}, {{ 9., -3.25}, {9., -3.5}, {5.5, -4.5}, {5.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{3., -3.25}, {3., -3.5}, {13/2, -4.5}, {13/2, -5.75}}, {{ 3., -3.25}, {3., -3.5}, {6.5, -4.5}, {6.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{10., -3.25}, {10., -3.5}, {15/2, -4.5}, {15/2, -5.75}}, {{ 10., -3.25}, {10., -3.5}, {7.5, -4.5}, {7.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{4., -3.25}, {4., -3.5}, {17/2, -4.5}, {17/2, -5.75}}, {{ 4., -3.25}, {4., -3.5}, {8.5, -4.5}, {8.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{11., -3.25}, {11., -3.5}, {19/2, -4.5}, {19/2, -5.75}}, {{ 11., -3.25}, {11., -3.5}, {9.5, -4.5}, {9.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{5., -3.25}, {5., -3.5}, {21/2, -4.5}, {21/2, -5.75}}, {{ 5., -3.25}, {5., -3.5}, {10.5, -4.5}, {10.5, -5.75}}]]]}}, ImageSize->225, PlotRangePadding->0.2]], "Input", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->100630628], Cell[TextData[{ "When a list has an odd length ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ", the first \"half\" will be ", Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ StyleBox["n", "TI"], "-", "1"}], ")"}], "/", "2"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " long and the second \"half\" will be ", Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ StyleBox["n", "TI"], "+", "1"}], ")"}], "/", "2"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " long:" }], "Notes", Editable->True, Deletable->True, CellTags->"Nothing", CellID->1581963878], Cell[BoxData[ GraphicsBox[{{ {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{1, 0}], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->12], NCache[{3/2, 1/2}, {1.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{2, 0}], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->12], NCache[{5/2, 1/2}, {2.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{3, 0}], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->12], NCache[{7/2, 1/2}, {3.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{4, 0}], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->12], NCache[{9/2, 1/2}, {4.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{5, 0}], InsetBox[ StyleBox["5", StripOnInput->False, FontSize->12], NCache[{11/2, 1/2}, {5.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{6, 0}], InsetBox[ StyleBox["6", StripOnInput->False, FontSize->12], NCache[{13/2, 1/2}, {6.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{7, 0}], InsetBox[ StyleBox["7", StripOnInput->False, FontSize->12], NCache[{15/2, 1/2}, {7.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{8, 0}], InsetBox[ StyleBox["8", StripOnInput->False, FontSize->12], NCache[{17/2, 1/2}, {8.5, 0.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[None], RectangleBox[{9, 0}], InsetBox[ StyleBox["9", StripOnInput->False, FontSize->12], NCache[{19/2, 1/2}, {9.5, 0.5}]]}}, { {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[NCache[{1/2, -3}, {0.5, -3}]], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->12], NCache[{1, -(5/2)}, {1, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[NCache[{3/2, -3}, {1.5, -3}]], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->12], NCache[{2, -(5/2)}, {2, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[NCache[{5/2, -3}, {2.5, -3}]], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->12], NCache[{3, -(5/2)}, {3, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[NCache[{7/2, -3}, {3.5, -3}]], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->12], NCache[{4, -(5/2)}, {4, -2.5}]]}}, { {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[NCache[{11/2, -3}, {5.5, -3}]], InsetBox[ StyleBox["5", StripOnInput->False, FontSize->12], NCache[{6, -(5/2)}, {6, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[NCache[{13/2, -3}, {6.5, -3}]], InsetBox[ StyleBox["6", StripOnInput->False, FontSize->12], NCache[{7, -(5/2)}, {7, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[NCache[{15/2, -3}, {7.5, -3}]], InsetBox[ StyleBox["7", StripOnInput->False, FontSize->12], NCache[{8, -(5/2)}, {8, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[NCache[{17/2, -3}, {8.5, -3}]], InsetBox[ StyleBox["8", StripOnInput->False, FontSize->12], NCache[{9, -(5/2)}, {9, -2.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[NCache[{19/2, -3}, {9.5, -3}]], InsetBox[ StyleBox["9", StripOnInput->False, FontSize->12], NCache[{10, -(5/2)}, {10, -2.5}]]}}, { {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{1, -7}], InsetBox[ StyleBox["5", StripOnInput->False, FontSize->12], NCache[{3/2, -(13/2)}, {1.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{2, -7}], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->12], NCache[{5/2, -(13/2)}, {2.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{3, -7}], InsetBox[ StyleBox["6", StripOnInput->False, FontSize->12], NCache[{7/2, -(13/2)}, {3.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{4, -7}], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->12], NCache[{9/2, -(13/2)}, {4.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{5, -7}], InsetBox[ StyleBox["7", StripOnInput->False, FontSize->12], NCache[{11/2, -(13/2)}, {5.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{6, -7}], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->12], NCache[{13/2, -(13/2)}, {6.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{7, -7}], InsetBox[ StyleBox["8", StripOnInput->False, FontSize->12], NCache[{15/2, -(13/2)}, {7.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{8, -7}], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->12], NCache[{17/2, -(13/2)}, {8.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{9, -7}], InsetBox[ StyleBox["9", StripOnInput->False, FontSize->12], NCache[{19/2, -(13/2)}, {9.5, -6.5}]]}}, { ArrowBox[BSplineCurveBox[ NCache[{{3/2, -0.25}, {3/2, -1}, {1., -1.}, {1., -1.75}}, {{ 1.5, -0.25}, {1.5, -1}, {1., -1.}, {1., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{5/2, -0.25}, {5/2, -1}, {2., -1.}, {2., -1.75}}, {{ 2.5, -0.25}, {2.5, -1}, {2., -1.}, {2., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{7/2, -0.25}, {7/2, -1}, {3., -1.}, {3., -1.75}}, {{ 3.5, -0.25}, {3.5, -1}, {3., -1.}, {3., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{9/2, -0.25}, {9/2, -1}, {4., -1.}, {4., -1.75}}, {{ 4.5, -0.25}, {4.5, -1}, {4., -1.}, {4., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{11/2, -0.25}, {11/2, -1}, {6., -1.}, {6., -1.75}}, {{ 5.5, -0.25}, {5.5, -1}, {6., -1.}, {6., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{13/2, -0.25}, {13/2, -1}, {7., -1.}, {7., -1.75}}, {{ 6.5, -0.25}, {6.5, -1}, {7., -1.}, {7., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{15/2, -0.25}, {15/2, -1}, {8., -1.}, {8., -1.75}}, {{ 7.5, -0.25}, {7.5, -1}, {8., -1.}, {8., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{17/2, -0.25}, {17/2, -1}, {9., -1.}, {9., -1.75}}, {{ 8.5, -0.25}, {8.5, -1}, {9., -1.}, {9., -1.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{19/2, -0.25}, {19/2, -1}, {10., -1.}, {10., -1.75}}, {{ 9.5, -0.25}, {9.5, -1}, {10., -1.}, {10., -1.75}}]]]}, { ArrowBox[BSplineCurveBox[ NCache[{{6., -3.25}, {6., -3.5}, {3/2, -4.5}, {3/2, -5.75}}, {{ 6., -3.25}, {6., -3.5}, {1.5, -4.5}, {1.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{1., -3.25}, {1., -3.5}, {5/2, -4.5}, {5/2, -5.75}}, {{ 1., -3.25}, {1., -3.5}, {2.5, -4.5}, {2.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{7., -3.25}, {7., -3.5}, {7/2, -4.5}, {7/2, -5.75}}, {{ 7., -3.25}, {7., -3.5}, {3.5, -4.5}, {3.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{2., -3.25}, {2., -3.5}, {9/2, -4.5}, {9/2, -5.75}}, {{ 2., -3.25}, {2., -3.5}, {4.5, -4.5}, {4.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{8., -3.25}, {8., -3.5}, {11/2, -4.5}, {11/2, -5.75}}, {{ 8., -3.25}, {8., -3.5}, {5.5, -4.5}, {5.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{3., -3.25}, {3., -3.5}, {13/2, -4.5}, {13/2, -5.75}}, {{ 3., -3.25}, {3., -3.5}, {6.5, -4.5}, {6.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{9., -3.25}, {9., -3.5}, {15/2, -4.5}, {15/2, -5.75}}, {{ 9., -3.25}, {9., -3.5}, {7.5, -4.5}, {7.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{4., -3.25}, {4., -3.5}, {17/2, -4.5}, {17/2, -5.75}}, {{ 4., -3.25}, {4., -3.5}, {8.5, -4.5}, {8.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{10., -3.25}, {10., -3.5}, {19/2, -4.5}, {19/2, -5.75}}, {{ 10., -3.25}, {10., -3.5}, {9.5, -4.5}, {9.5, -5.75}}]]]}}, ImageSize->NCache[405/2, 202.5], PlotRangePadding->0.2]], "Input", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->75679434] }, 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["Perform an in shuffle on a list of 10 items:", "Text", CellChangeTimes->{{3.765394110156773*^9, 3.7653941288257513`*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InShuffle", "[", RowBox[{"Range", "[", "10", "]"}], "]"}]], "Input", CellChangeTimes->{{3.765391367167933*^9, 3.765391369956929*^9}, { 3.765394130603301*^9, 3.7653941312921143`*^9}}, CellLabel->"In[4]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{ "6", ",", "1", ",", "7", ",", "2", ",", "8", ",", "3", ",", "9", ",", "4", ",", "10", ",", "5"}], "}"}]], "Output", CellChangeTimes->{3.7653913702430563`*^9, 3.7653941395713873`*^9, 3.765397032343011*^9, 3.765442685267043*^9}, CellLabel->"Out[4]=", CellID->1104593595] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->964056545], Cell["Perform an in shuffle 3 times to a list:", "Text", CellChangeTimes->{{3.765396200261222*^9, 3.765396224278665*^9}}, CellID->501929943], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InShuffle", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.765391367167933*^9, 3.765391369956929*^9}, { 3.765394130603301*^9, 3.7653941312921143`*^9}, {3.765396195097145*^9, 3.765396195252236*^9}}, CellLabel->"In[5]:=", CellID->503311441], Cell[BoxData[ RowBox[{"{", RowBox[{ "7", ",", "3", ",", "10", ",", "6", ",", "2", ",", "9", ",", "5", ",", "1", ",", "8", ",", "4"}], "}"}]], "Output", CellChangeTimes->{ 3.7653913702430563`*^9, 3.7653941395713873`*^9, {3.765396226719849*^9, 3.765396228386866*^9}, 3.765397033957122*^9, 3.765442686257886*^9}, CellLabel->"Out[5]=", CellID->1810422954] }, Open ]], Cell["Confirm that this is the same:", "Text", CellChangeTimes->{{3.7653962475772247`*^9, 3.765396265676161*^9}}, CellID->411814321], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InShuffle", "[", RowBox[{"InShuffle", "[", RowBox[{"InShuffle", "[", RowBox[{"Range", "[", "10", "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7653962323300962`*^9, 3.7653962574752493`*^9}}, CellLabel->"In[6]:=", CellID->448269952], Cell[BoxData[ RowBox[{"{", RowBox[{ "7", ",", "3", ",", "10", ",", "6", ",", "2", ",", "9", ",", "5", ",", "1", ",", "8", ",", "4"}], "}"}]], "Output", CellChangeTimes->{{3.765396245191485*^9, 3.7653962584232883`*^9}, 3.765397036053657*^9, 3.76544268725779*^9}, CellLabel->"Out[6]=", CellID->231729521] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "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], CellID->485279578], Cell["The list can contain expressions of different type:", "Text", CellChangeTimes->{{3.765395353885231*^9, 3.765395365632092*^9}}, CellID->337999680], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InShuffle", "[", RowBox[{"{", RowBox[{ FractionBox["2", "3"], ",", RowBox[{"3", "+", RowBox[{"2", "I"}]}], ",", "\"\\"", ",", GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwlmXk4lN/7x61ZEjPPjJAU7SsppYXuUwlFSokWIWkhSURIKpWQZK9kS4X4 RHZJTpSikKiEopAsYx7rmJksv/O9fn+d63Vd82zv9/u+73Ou0bA/u/e4mIiI SJaoiMj/VnEsW9ux9upmXun/rwt7SjfNibSFu/mNw7PJKnyu5dAUcRbORecZ fCHrH/YpfkHEZbjytMwnmazNhtfLn0TcAbWrSdX7yPrVNmJxfEQirNs+w2J/ eCLsdVZpvheRBWux8JX37SwIH7LOjYnAsF7xqYGaH4ZNFTtlt7rXwY2SV9tl t9eBq4/Z0VzX71B44Y1OSVMjnCk6Hio2/xcsypjzyZjTCl+6d8ik2ndCZ1fT wQrpDgjW4okUHOwGDal00Z3MLji3vDL69RMOCNzfr83gd0Pn8c4rSQUcOOdZ NH+teA9YJok4X3nPgedXZqgVzeiBjYobtqIeDtTb6Sx6Oq8HxKaecvGKftja M3OLrmkPRNTfMsK5/WB/MpktmtADOd67Ba/KuGDW1Oihq9cLwmOnM3+6DEDG zO7au/Z9YMcc9irxHICSqcNzXzj1QUWpz7YHfgMQ4RBZ0+DWB2Eqwd8PhA5A kYnnplH/Plj8KU3sy7MBWGcWvKg7uQ8sNnZZfuAMQPaxhbdCfvdBJuPoVIHT IKjEWJwpP8gBdml3VbTbIKSUiVVNP8oB79OuUed9BsHkR7Oh2SkOGLy7vHR1 8CC4N4gnl3pyoOViwr5nTwfhTo7bE9NIDkj/bUl91D0IHw3k7WZ/5ID9K8s9 YSeGIGA/5vmt7YfVBcqUytkhcOPND3bX6wexrOaGhxeGwHveqmrbbf2QnGRj lRs4BJoP7SzmmvdD+7UTNt/Sh0A3OXzzRmei005P59n0ELxe71vzM4lwY3Rg 2oVhYJze2F8rzoXVdVY7ta8Mw5HOxpx8GS6IVanIFQcOQ6BDISdSgQvJxfF3 Pt4fhp7D4QXrVLnQHv8khvtyGA7k3TqvuJoL9g75j3VERuDXG9dV62y4cGzw y+vXgSPg6O/YJsjigp1PmFVR2Ai05sw+5pPHBWtxU27WvRHw1K3ZMVzEBUvF N6qJaSMQGle0qZb4aLwh2/NS5Qi0Gc2PXNLABc2rt1dslB4FmYnPGi4jXFgm u+ONNmMU1GKdLc7zubA4UuLQUuVReFu0tMltnAvqTy7eVF4yCrdB6esBCRpY VY7tPKNR2Bzme7GSRQOfYXgv9+YorMuIy1yrTcPIfVGtjDuj0PYxN+y1Dg2D 815VJN8dBX9RYf629TT06ugMh6eOQlHd/XergYafB+aZub4fBdFg/e5cUxrK kybFV0rxgMtRPr/lBA2lS4tjFyjwoMrjy4I9jjS8zPHQnq3Eg/6ygulWzjTk veXYTF/MA1py0GuXGw2p3c0vegx5cG9+TsmPSzSErCo8mxLAg8NaZ02uR9Lw YXVjl0coDwZ3JC+XiaFBeu3Yke0xPDDmiNwIuEfD9Q26pp1PyP1ZHUlO8TRc 3Fq4ZF4FD0avKJz5nkJDkUFj4mA1D/a2npim8ZQGnuHYzLIvPJghfYRtn0GD m4mupF0nD5pviIbUZNHgZFH4O158DN7tjGjZUURDmmXjgTPTx2BlzMbplsU0 dB0Y+6THGoNSkVMZh0poOHpEt7Rl3hjUR5zctOs1DQdOFMaqbB0DB92RkMb3 NBh5Fe6LvjIGOnPFo658Je/r0/jBIXAMlp/aGMNqJPr5jm3RCRuDwkg1scTv NGy+qruqIXEMnvu4Kia20LAuuFCOicfg9VJndYPfNJwPabz2690YPLmqciK2 nYac0DFhVu0YrIrOpXo6aFgZqdtj1joGnFLXxLNdNCyIK6wImRiDvHWVfhp9 NNgnNOpZS/LhWtPN4Y0cGpKSxnKXz+DDzIHuatN+GmY/0U3+MJsPOVtD/jtI 03Ao1UoldgEf1J3NcywGaLj39EKY4wo+bOx8pWo8SPKVWegnrceHptspysrD NOx53jjauI0PA5p5GSOEQ3PGnFNN+DA8ceth1QgNsoW6hw0P86FWUJdnzaPB +IVVveIxPkyf1fp51hgNAS8v7PjjRN5n9+iez4TFXhfqXvfhg/nX6POLBTSk z6BSJvz5ECLxe88XwnsPO7Mv3OLDz7RGHS8hDcK0d/4DkXwIrzRRZ/2j4RFP fdAxjg9aXCbrCWFTg4u2HY/5ELBEdIbmOMl/+Nca62d8yJcdnpFJ2GBlcPru Uj5MpJkviJyggePTqVz1jg9mGn4b+ISjKjff3PqJD+MvVuy3mKRBb+b90ZeN fLCK23YhlfCfY8PH1v7iwzrPjMRBwqHZu+ozu/kw5b27dvUU8XMqFS0Z5MMz GzXx04RbTcWyHgr40GAruTmWcECstZqqmACe6Av9XhPW7C64FSUrgDG9wYqf hL+tZQpnsASwbXE7NUTY79rpUzdVBZC+8/3xCcKLP1d8E1kggBHv+NIpwnVz 1Lf7rBBAtJyDmoCwl7NP7rCOADJaZ/v3EFYv/qJxRl8A43uqOXWEK6W0wrq2 C4Bn7H0ki7Dr/qBJWzMBZK1a+eU6YeVHHc5NlgJo4w3vMSf8ekC/Za8tYfkf DWzCjpvv7ag+KYBHrjzrT+T7qZChwu2uAnhxz5JzhXBxk+ki7CWAzYGU/1LC 9otTo9ZfFcCPt1vnVBF9ZT1ExXOCBFB+QKzMlnBO+eFzyyMEkFDv4tRP/DnE KGh7HCuAO9vTZrkRFrNhmM15JID5Oz5/7if+ZmQ4ldzNEICJQD7MjrCF4O0y Zp4AdvEC938g+Rg3nHs/uEQArxwc5y0nbNre4HGpRgDnX1ENn/kkD1qanbyv 5Ptv6BUqEY67FLjXtVUAyDf0kQXJY7+yvtYxWgCXDwdG544Sf3endBszhbDy ocsfySHib7yIVbmKEDLG7JkSpD5aew9VbJonhKM5F40EpJ60AhSSNdcIgdYx bqgk9VZX4nWYvV8ItSaqbuPdxB/ZhqrbR4SgLk2P5fwl/hxYuV7qhBC09K8H 25F6dh3+zRZ6CkHc4lxjEql35jKT2rZ7QtgdZala8JP0J6lEZmWSEPrOuGmh H0TvP0MWz9OEkBDpe7G8mQaHh7EtV4qEkBNeX5JF+k+Rcm+3xnchHD6qRa/4 TMNtnv4K2V9CYFgeqvH6RPz5En526K8QFsdEdJXU0DA9bAOvfEwI3KDWjys/ 0GAjFSTuoPQPOOd0XXLKaVjz54eh6dx/4JlOab8m/VD6zapgncX/oDYhcvW7 UuKn33eGpO4/aBnxHC4m/VSSt3hOiuU/kBos9THKoeG/znfru6P/QZHwuGJ/ Ig1Xy2f51sX/g89+mSKXSX+3THLBRU/+QY3shjUyD2gQsZ5pGJT/D8pPXHKd RubDvobj+5Z9/QcfB+SOPL5F+kGZhIszexySeOWhLh6k3yRufTQQMQ7vAuU2 bdlGw83Kup/+D8ahSNVjYRSZb+8GbZQVH5Pfb1+l3LqJhu0GF29vyB+HuVc7 ZlmR+bi1J/eCf+M4/LyenftzAan/NQtN2bMnICNoTHMzmber3kuN6j6ZgKsx HTkWJVw4OxCt9eHZBKDnN3qCC7mQqbLAybpgAt5aXd9dlMOFlc6o7cr7CZCR nZ/FTyPzneldVdUzAQW3t3cqRHNhweHe+MOak+CccdTx/mkuKNHVhpcLJ6Fc st13PsWFe+H4aA+ehNCrxko2clxQ1snx3Vc5CS9Tl9qHTSPsfTdncdMknO6o Uvgh7IdZ4vZz6oSTsFJLgq/Q0Q9zlMZG1TdPwWj78Nm+7H5YBBpPyt9OQYrX GPPSjn6IfV8sKu4ogg6zfy10t+PAwK/n3rSzCLJ/HpemSfZ/RsKUwRZXEXQi PfZghzkHRlZE/s7zEkEL1I7uWr+NA2YRp8tOBIogReekZ2ELOSB2ZPbVD6ki qLg+oH28uw9OD10SiegSQb6NIiJ1ZH+qp7ZlSt1BFNXdDDxYc6gXjK2/uNmf EkXf2950aZj3gsWDk12PnEXRIcEN0bNGvXBaJbRmkYcoavsX2zu0phdiFVse rAgQRZ+Kjn9/KNcL/Bke69eniSLfUsOohJIeyJtMO7ebI4puRhgGLlbqgeW/ GJ2XzouhQ7rDnWqFf+FZGnUq300cyfGkPrm2dYJv65GG5QES6Ofe40uvufyG c3rrTRKiJJFvnVHUGr8WECYa2PeFTUPNXaYPKzW/QJ1rrN2FZCmkJue9xO3L e9hgNG/y50Np9Pmb3IlJkedQtX1DGoqTQRvqbOZkhWTiJ9n3N7RnyKLPLHW9 JxcqseL8FU42T6cji8U5Cwz/NOB6UWl/lRI5JPEh8alOcwvOl3ZPqauagaK8 V+W/ifmNVygynOwr5NGKsEcHrF92YjqUx17zTQGtus3sWFT1F3MG5pSvbFZA holviqsa/uLevUZnl7QqoLf0vmcnWv/izpn3qtS6CI/f+R46/Bc3J2zwk+Yp oI0RppN31bqxvVXpMFeWgdSX2W+95dqNd50UPfJ2GQNti3do7GD24Pk3b2qd dWIg6SpL/4Ytvdjtm46fvTMDrSsQj325sxe/Xthevd+FgZa0njgXv68X27zV c9JzY6DwllZLs+O9OFZ06LGMDwOd7vtc5hDYiylf61mPgxjIyyzM0L6mF4ud 05ZsSmMgx6PjdeF7+7D569Z91ekMtDJI8c+zQ304SSEkGf/HQL4xel5v7Pvw 5swuSHnOQD+yJdktbn3Yp++Bj3sRAwX9ZXFeRvThoePTBmZUMlDdp+ILWz/3 4fZDLc1b/zKQ9vYtsy13cLCcvlWqXQ8DJbxq+aRnzsFr5za4+/UxEFdeIUb1 IAcHdnyQK6YZaJalm3nZKQ7Wci7erM1nIKfCaUbPbnKw76X7yXNlmCjdLtJE 8i0HKyZZOY0vY6K90iEaqev68Wb/hnWzVjJRycl6+RD9fnzKYbf4ei0mMlwS XH3KoB+XLDGKc1/DRHq9Sdkye/uxffa62t5NTPSmTru/27kfZ5Yrrm4yZSIN 9eSbqg/7sfGfBkG+CxN1zjfNNhDn4kvLQy9muTKRUUnU8EtpLs45ZzyR5sZE l8LVO5fLc7HqZIlInCcTvW8r+DCqzMXcmSlS/n5MNBmmE6StycVRxl6KZqFM VL9S+j8jKy7+lTFbu+sZE9UkKnD+POJixaFvOW1ZTLT6uWGgaxoX71wfrtOU zUSp579mDP/HxblvJddX5zNR5p/o6x35XBzwk7s55xUTLWeY2Di+J0dZhTJT vxomEuRWVcj1cLGX2/FTM/uZaF+yvW3GIhoHmnBPbqSZaEvVqmkRy2h8d8GF kzaDTHSSI/b6rCaNC74FnkgZZaLgPqNTjHU0Ht74n8O6SSbqcB917jKgsYv4 sJ2lAoVCHE2tO+1ofOnHRTsfJoUWjc3M2+RA45B8CbsEFoUM/x6VDz5J44yT M227lChE8bLfTXehcffHDUc81SnUb3JoxSMfGh+LunIwRptCDDmQ1IigsdsZ mYPFayjUc1dRpTuKxv6GEQda11Jo/8RFjZS7NE7iP7JatJFCkbnf5KTiadxq /X5/wVYKzQ9xXG+dSuP+tXv2NxtQKNF/b0vzUxqPyzdZTBpSaNPFj857/qOx alnvPkMTCp39lnBAPZvGBxbK7/22j0Ka7gVoXzGNT03GmAv3Uyg4hG8QVELj C41zzeccoNBSyXOrC0ppHBOkveeENYWWPw96N1JO44Z+CzOeA4UcZULKJT7S 2Kzgwc6ZnhTaqDp862wTud+w/ZSiF4W2yj3Yw2+m8bVVy/IUfSikN9qi7v2D xkXpRWqKfhRyM01vt2+j8bzErwOsAAotfOL++1snjfV+xD1hBRK9xOv4c7to bKXicIgVTCG7rePKR/8SvSOH3lChFHp5/4bbxx4a824q3GXGUIiFWf6IS2NG xTcT5j1y/ab7jTtoGi8XSxBhxhI/ah6vMRmgsZ3vCidGAoUeq+yeXDtEY58X w3MYSRTyMHR3njtM42hecYNCMmGnJb9ERmj8wXWHvkIKhRIcTjRmjNK48xlj SD6NQhZx1w958Gg81duYIp9O9A21aV83RmOd4ycY8pkUmm0eMPWQT/RJXlkx 4zl5vod3lImAxo5tI94zcihkJHRb2U844eC1DrkCCp181eSk/I/oE7PznlwR hYa3jMsnE25oYO6SK6YQO/9OwfxxGnMZTaJyJRRyKXA/Gk9Y2iypYHophdZ2 BikoTBA9b508Pf01hTa35L/2Iqxfqak+vZxC4ro/zzcTPiDJ+yL7lkKp4X+X 60yS/G19FST7jkIT10r/3CAccvn6ZtlKCkU82ZVM9ts4tcRkWOYDhf4L8T/K nKJxuYBKk6mm0N5a0/kmhH+sa7aWqaXQnsn4v76Eee4PmTJ1FNqQ5ZiZQpiZ feqddD2FzriRaUR4BVfrovQXCil9N97WTthw+ZiW9DcKrTm7izlC2O5UaafU dwqFVWT+JucPfPHJjftSzRSqPemUR84fOKbd1EzqB8nD78tB5PyBn89li0u1 kvosGbDrI/zBuqVw2i/yPP/XG78S/nM/2XlaO8lD8cjMQsIijY4a0zopVMWJ Gg0jPIut/U2yi1wfn/7NnrCOOT9YsptCt823FK8gvDsUg2Qvuf7WiSQu0cPp Y8CIBIfoU7s0KI3wdWmzpxJcCi2OjTt/iHDCdkUbiQEKMV3q7SUIv/D/QUkM Uehc5a99KUR/7riTrziPQqFifzfXE/8OHjBZKhij0Gl7kXgbwm9zl3/jCijU WFGyq4P4f9+Jo9U8QSGR+pjUr0IaS7yr/vFpiuRnzeiebYRdNJ4FVYiykIaM 166nJE8G3890PJdkIZ/3V5ANyV/WGrOwFCkWslhoqfuM5HPWHU39OBkWsmvn Xh0h+R3YTsfcnMFC01PVWM4k3w9yXXfaKBLOebVsapDG0xTMx/YpsdBBX+5b BmFXJ+3HO1RYaOynV94sUk+GGkMTOmos9OxiYJQSqb+hUPfs6QtZyLPA1zaf 1OeR3n02ootZ6D3XMiOom8aV23Wmjy1hoYTiGDNLUs/x4yMO7SvI9cKzcd9J /Rs7eSq/0GGhrBvyNldJf8itsKzIXMdC/Z23zyi30niOhq7b4/UsFOo18i2V 9JPhxrGPd/RYSH+ouSir6X/6e18+YcBChT0r3xxroLHMw4MrrA1ZqPujMOPV ZxqfH9/QZG7MQldEUwYV6mi8I1e4Wt+UhUxq10bHV9N4RN23i2XBQrNseMZH Kmhs62sdKWPJQnkeDgt83pB8NeqhKSui5x41uztlNE4Mnbjfe5iFdu02Fia/ ovHOcb9dZcdYaMmf7+9c8mn8sPFqnos7C8XMuqN9/xGNuypWtYV6sJAQFRRK PyT1kNcmk3WBhWaAwe6zCWQehenb0hdZ6AYnIF/jPo2rdwhkXK+z0AabBnfV UBrzX7ranosm9zfXdDzmSePN6XODw++ykFbNoWMG7qTf3qvNy75P/K1rvjjb lcbyHitkh+JZyCvo1PQcRxrP1+zOc0thoUt9pqVu1qQ/JdnKni9kIba4qLEJ onFUqPzaqBcs1GxWfzdBj8ZNvq9s816yUE3jccWe9TR2OKiaP4JZaCpzWsIx bRp7U422HpUsFLBaXZzWoPHj62b5nk0s1MWxZduJ0lh4St/O+x8L1dcER+S+ IPP95TLkMcFCb7LTryIyzx/MUFY/N8VCzmckOyqec7FezlDbKXE2avD7KlKc ysV+/1JtD0xnI84lzUqjaC4WD6VsdVXZ6FmWSYDQhYvlcv8eGd3IRmX/7V9Y MZuLrSW/6g/qsdG26jnJ9kpc/MyqXK1/MxvVUPxCPpOLzcbjfnZuZaPYiFV5 8lJcHLZ975EvO9koNcGD3T7Qj9nfS6xzD7FRd+XCtMVv+rHaRPjhcz6E/8aq rLcn+6P2XS/u+rJRe22ulsPhfnz+vYxSqR8bFQzUf7hp0Y8/hF+tl73GRvIN rHv5hv3Yc9G5HY9vsdHPa0XvMpb147rde3Qb49joqoS5vsQgB/sny7P0MRs1 FynuP3+Bg7uMbn2QllBE1rb9az6d7sP2JnbqC6cpois7fLSVjvXhn2ZrPbdI K6Jxwe9QK7Jf/bK/TcNHThF1aYm5lxn34fJja7z72IrojxJauHFhH46/3LK4 dqEiMh9xsSn70YstCpffiDRSRA/rDo+tN+zFbxZVw5xbiqjx2FsNe/Ee7CSd IqEhMxN5bpfdWWPbhQuTFui/CZ+JpF6tdCrR6MC1m/Qq9jKVUIBbccWbu22Y 7/Rgn12oEtIqtCh+H/kdV+5J3D9jpjKaaP3+Xj20Dttv0EtNjVJGcZ7WaWpx Zdixv2b0R4wyKpG001SzLMOuD20NqPvKqLrn42klRhm+LHPtt2+8MmJN22Q/ fu01jmuqUt2booyCz79dpNhYir95W4WNFyqjhu6ZntHuxXhnsZu3eYsyqndO mPErJRubu0hUBvxURhu/N7a0qWTjA/NiZpa0KaP51766N4c8xyeDX+Qu6lRG x/ypQ1f/ZOLrh0S4/zjK6L2P5kCGbzouFd62T5lURh5PoxdFPn2IKzLnZreI qCCe01lT9p0kXG2fPcUQV0EtYXnV6j0JuOXDl7iLUiros9H9+FG/WMyPVW3c w1BBv7clFm9LD8dTZs8WBlAqyGHRzk2M3lA8TRzOv2SroNXD9tF3Lgdj9ml7 5iIVFVT39e/JC+lXsercEdvDqipoAdU2r+KyD57XcCMzTE0FvUjxsI9MP4eX 3VSaqJirgtbHnblclH4Ua296avJPQwUt1L79v/+3Sv8Ph2LZdw== "]]}, Annotation[#, "Charting`Private`Tag$15294#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{0, 2 Pi}, {-0.9999998592131705, 0.9999998782112116}}, {{ 0, 6.283185307179586}, {-0.9999998592131705, 0.9999998782112116}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], ",", RowBox[{"x", "^", "2"}], ",", TemplateBox[{"\"Enschede\"",RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Enschede\"", ",", "\"Overijssel\"", ",", "\"Netherlands\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Enschede\\\", \\\"Overijssel\\\", \ \\\"Netherlands\\\"}]\"","\"city\""}, "Entity"]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.765395332094161*^9, 3.7653954128757257`*^9}, 3.765397059906054*^9}, CellLabel->"In[7]:=", CellID->508737551], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwlmXk4lN/7x61ZEjPPjJAU7SsppYXuUwlFSokWIWkhSURIKpWQZK9kS4X4 RHZJTpSikKiEopAsYx7rmJksv/O9fn+d63Vd82zv9/u+73Ou0bA/u/e4mIiI SJaoiMj/VnEsW9ux9upmXun/rwt7SjfNibSFu/mNw7PJKnyu5dAUcRbORecZ fCHrH/YpfkHEZbjytMwnmazNhtfLn0TcAbWrSdX7yPrVNmJxfEQirNs+w2J/ eCLsdVZpvheRBWux8JX37SwIH7LOjYnAsF7xqYGaH4ZNFTtlt7rXwY2SV9tl t9eBq4/Z0VzX71B44Y1OSVMjnCk6Hio2/xcsypjzyZjTCl+6d8ik2ndCZ1fT wQrpDgjW4okUHOwGDal00Z3MLji3vDL69RMOCNzfr83gd0Pn8c4rSQUcOOdZ NH+teA9YJok4X3nPgedXZqgVzeiBjYobtqIeDtTb6Sx6Oq8HxKaecvGKftja M3OLrmkPRNTfMsK5/WB/MpktmtADOd67Ba/KuGDW1Oihq9cLwmOnM3+6DEDG zO7au/Z9YMcc9irxHICSqcNzXzj1QUWpz7YHfgMQ4RBZ0+DWB2Eqwd8PhA5A kYnnplH/Plj8KU3sy7MBWGcWvKg7uQ8sNnZZfuAMQPaxhbdCfvdBJuPoVIHT IKjEWJwpP8gBdml3VbTbIKSUiVVNP8oB79OuUed9BsHkR7Oh2SkOGLy7vHR1 8CC4N4gnl3pyoOViwr5nTwfhTo7bE9NIDkj/bUl91D0IHw3k7WZ/5ID9K8s9 YSeGIGA/5vmt7YfVBcqUytkhcOPND3bX6wexrOaGhxeGwHveqmrbbf2QnGRj lRs4BJoP7SzmmvdD+7UTNt/Sh0A3OXzzRmei005P59n0ELxe71vzM4lwY3Rg 2oVhYJze2F8rzoXVdVY7ta8Mw5HOxpx8GS6IVanIFQcOQ6BDISdSgQvJxfF3 Pt4fhp7D4QXrVLnQHv8khvtyGA7k3TqvuJoL9g75j3VERuDXG9dV62y4cGzw y+vXgSPg6O/YJsjigp1PmFVR2Ai05sw+5pPHBWtxU27WvRHw1K3ZMVzEBUvF N6qJaSMQGle0qZb4aLwh2/NS5Qi0Gc2PXNLABc2rt1dslB4FmYnPGi4jXFgm u+ONNmMU1GKdLc7zubA4UuLQUuVReFu0tMltnAvqTy7eVF4yCrdB6esBCRpY VY7tPKNR2Bzme7GSRQOfYXgv9+YorMuIy1yrTcPIfVGtjDuj0PYxN+y1Dg2D 815VJN8dBX9RYf629TT06ugMh6eOQlHd/XergYafB+aZub4fBdFg/e5cUxrK kybFV0rxgMtRPr/lBA2lS4tjFyjwoMrjy4I9jjS8zPHQnq3Eg/6ygulWzjTk veXYTF/MA1py0GuXGw2p3c0vegx5cG9+TsmPSzSErCo8mxLAg8NaZ02uR9Lw YXVjl0coDwZ3JC+XiaFBeu3Yke0xPDDmiNwIuEfD9Q26pp1PyP1ZHUlO8TRc 3Fq4ZF4FD0avKJz5nkJDkUFj4mA1D/a2npim8ZQGnuHYzLIvPJghfYRtn0GD m4mupF0nD5pviIbUZNHgZFH4O158DN7tjGjZUURDmmXjgTPTx2BlzMbplsU0 dB0Y+6THGoNSkVMZh0poOHpEt7Rl3hjUR5zctOs1DQdOFMaqbB0DB92RkMb3 NBh5Fe6LvjIGOnPFo658Je/r0/jBIXAMlp/aGMNqJPr5jm3RCRuDwkg1scTv NGy+qruqIXEMnvu4Kia20LAuuFCOicfg9VJndYPfNJwPabz2690YPLmqciK2 nYac0DFhVu0YrIrOpXo6aFgZqdtj1joGnFLXxLNdNCyIK6wImRiDvHWVfhp9 NNgnNOpZS/LhWtPN4Y0cGpKSxnKXz+DDzIHuatN+GmY/0U3+MJsPOVtD/jtI 03Ao1UoldgEf1J3NcywGaLj39EKY4wo+bOx8pWo8SPKVWegnrceHptspysrD NOx53jjauI0PA5p5GSOEQ3PGnFNN+DA8ceth1QgNsoW6hw0P86FWUJdnzaPB +IVVveIxPkyf1fp51hgNAS8v7PjjRN5n9+iez4TFXhfqXvfhg/nX6POLBTSk z6BSJvz5ECLxe88XwnsPO7Mv3OLDz7RGHS8hDcK0d/4DkXwIrzRRZ/2j4RFP fdAxjg9aXCbrCWFTg4u2HY/5ELBEdIbmOMl/+Nca62d8yJcdnpFJ2GBlcPru Uj5MpJkviJyggePTqVz1jg9mGn4b+ISjKjff3PqJD+MvVuy3mKRBb+b90ZeN fLCK23YhlfCfY8PH1v7iwzrPjMRBwqHZu+ozu/kw5b27dvUU8XMqFS0Z5MMz GzXx04RbTcWyHgr40GAruTmWcECstZqqmACe6Av9XhPW7C64FSUrgDG9wYqf hL+tZQpnsASwbXE7NUTY79rpUzdVBZC+8/3xCcKLP1d8E1kggBHv+NIpwnVz 1Lf7rBBAtJyDmoCwl7NP7rCOADJaZ/v3EFYv/qJxRl8A43uqOXWEK6W0wrq2 C4Bn7H0ki7Dr/qBJWzMBZK1a+eU6YeVHHc5NlgJo4w3vMSf8ekC/Za8tYfkf DWzCjpvv7ag+KYBHrjzrT+T7qZChwu2uAnhxz5JzhXBxk+ki7CWAzYGU/1LC 9otTo9ZfFcCPt1vnVBF9ZT1ExXOCBFB+QKzMlnBO+eFzyyMEkFDv4tRP/DnE KGh7HCuAO9vTZrkRFrNhmM15JID5Oz5/7if+ZmQ4ldzNEICJQD7MjrCF4O0y Zp4AdvEC938g+Rg3nHs/uEQArxwc5y0nbNre4HGpRgDnX1ENn/kkD1qanbyv 5Ptv6BUqEY67FLjXtVUAyDf0kQXJY7+yvtYxWgCXDwdG544Sf3endBszhbDy ocsfySHib7yIVbmKEDLG7JkSpD5aew9VbJonhKM5F40EpJ60AhSSNdcIgdYx bqgk9VZX4nWYvV8ItSaqbuPdxB/ZhqrbR4SgLk2P5fwl/hxYuV7qhBC09K8H 25F6dh3+zRZ6CkHc4lxjEql35jKT2rZ7QtgdZala8JP0J6lEZmWSEPrOuGmh H0TvP0MWz9OEkBDpe7G8mQaHh7EtV4qEkBNeX5JF+k+Rcm+3xnchHD6qRa/4 TMNtnv4K2V9CYFgeqvH6RPz5En526K8QFsdEdJXU0DA9bAOvfEwI3KDWjys/ 0GAjFSTuoPQPOOd0XXLKaVjz54eh6dx/4JlOab8m/VD6zapgncX/oDYhcvW7 UuKn33eGpO4/aBnxHC4m/VSSt3hOiuU/kBos9THKoeG/znfru6P/QZHwuGJ/ Ig1Xy2f51sX/g89+mSKXSX+3THLBRU/+QY3shjUyD2gQsZ5pGJT/D8pPXHKd RubDvobj+5Z9/QcfB+SOPL5F+kGZhIszexySeOWhLh6k3yRufTQQMQ7vAuU2 bdlGw83Kup/+D8ahSNVjYRSZb+8GbZQVH5Pfb1+l3LqJhu0GF29vyB+HuVc7 ZlmR+bi1J/eCf+M4/LyenftzAan/NQtN2bMnICNoTHMzmber3kuN6j6ZgKsx HTkWJVw4OxCt9eHZBKDnN3qCC7mQqbLAybpgAt5aXd9dlMOFlc6o7cr7CZCR nZ/FTyPzneldVdUzAQW3t3cqRHNhweHe+MOak+CccdTx/mkuKNHVhpcLJ6Fc st13PsWFe+H4aA+ehNCrxko2clxQ1snx3Vc5CS9Tl9qHTSPsfTdncdMknO6o Uvgh7IdZ4vZz6oSTsFJLgq/Q0Q9zlMZG1TdPwWj78Nm+7H5YBBpPyt9OQYrX GPPSjn6IfV8sKu4ogg6zfy10t+PAwK/n3rSzCLJ/HpemSfZ/RsKUwRZXEXQi PfZghzkHRlZE/s7zEkEL1I7uWr+NA2YRp8tOBIogReekZ2ELOSB2ZPbVD6ki qLg+oH28uw9OD10SiegSQb6NIiJ1ZH+qp7ZlSt1BFNXdDDxYc6gXjK2/uNmf EkXf2950aZj3gsWDk12PnEXRIcEN0bNGvXBaJbRmkYcoavsX2zu0phdiFVse rAgQRZ+Kjn9/KNcL/Bke69eniSLfUsOohJIeyJtMO7ebI4puRhgGLlbqgeW/ GJ2XzouhQ7rDnWqFf+FZGnUq300cyfGkPrm2dYJv65GG5QES6Ofe40uvufyG c3rrTRKiJJFvnVHUGr8WECYa2PeFTUPNXaYPKzW/QJ1rrN2FZCmkJue9xO3L e9hgNG/y50Np9Pmb3IlJkedQtX1DGoqTQRvqbOZkhWTiJ9n3N7RnyKLPLHW9 JxcqseL8FU42T6cji8U5Cwz/NOB6UWl/lRI5JPEh8alOcwvOl3ZPqauagaK8 V+W/ifmNVygynOwr5NGKsEcHrF92YjqUx17zTQGtus3sWFT1F3MG5pSvbFZA holviqsa/uLevUZnl7QqoLf0vmcnWv/izpn3qtS6CI/f+R46/Bc3J2zwk+Yp oI0RppN31bqxvVXpMFeWgdSX2W+95dqNd50UPfJ2GQNti3do7GD24Pk3b2qd dWIg6SpL/4Ytvdjtm46fvTMDrSsQj325sxe/Xthevd+FgZa0njgXv68X27zV c9JzY6DwllZLs+O9OFZ06LGMDwOd7vtc5hDYiylf61mPgxjIyyzM0L6mF4ud 05ZsSmMgx6PjdeF7+7D569Z91ekMtDJI8c+zQ304SSEkGf/HQL4xel5v7Pvw 5swuSHnOQD+yJdktbn3Yp++Bj3sRAwX9ZXFeRvThoePTBmZUMlDdp+ILWz/3 4fZDLc1b/zKQ9vYtsy13cLCcvlWqXQ8DJbxq+aRnzsFr5za4+/UxEFdeIUb1 IAcHdnyQK6YZaJalm3nZKQ7Wci7erM1nIKfCaUbPbnKw76X7yXNlmCjdLtJE 8i0HKyZZOY0vY6K90iEaqev68Wb/hnWzVjJRycl6+RD9fnzKYbf4ei0mMlwS XH3KoB+XLDGKc1/DRHq9Sdkye/uxffa62t5NTPSmTru/27kfZ5Yrrm4yZSIN 9eSbqg/7sfGfBkG+CxN1zjfNNhDn4kvLQy9muTKRUUnU8EtpLs45ZzyR5sZE l8LVO5fLc7HqZIlInCcTvW8r+DCqzMXcmSlS/n5MNBmmE6StycVRxl6KZqFM VL9S+j8jKy7+lTFbu+sZE9UkKnD+POJixaFvOW1ZTLT6uWGgaxoX71wfrtOU zUSp579mDP/HxblvJddX5zNR5p/o6x35XBzwk7s55xUTLWeY2Di+J0dZhTJT vxomEuRWVcj1cLGX2/FTM/uZaF+yvW3GIhoHmnBPbqSZaEvVqmkRy2h8d8GF kzaDTHSSI/b6rCaNC74FnkgZZaLgPqNTjHU0Ht74n8O6SSbqcB917jKgsYv4 sJ2lAoVCHE2tO+1ofOnHRTsfJoUWjc3M2+RA45B8CbsEFoUM/x6VDz5J44yT M227lChE8bLfTXehcffHDUc81SnUb3JoxSMfGh+LunIwRptCDDmQ1IigsdsZ mYPFayjUc1dRpTuKxv6GEQda11Jo/8RFjZS7NE7iP7JatJFCkbnf5KTiadxq /X5/wVYKzQ9xXG+dSuP+tXv2NxtQKNF/b0vzUxqPyzdZTBpSaNPFj857/qOx alnvPkMTCp39lnBAPZvGBxbK7/22j0Ka7gVoXzGNT03GmAv3Uyg4hG8QVELj C41zzeccoNBSyXOrC0ppHBOkveeENYWWPw96N1JO44Z+CzOeA4UcZULKJT7S 2Kzgwc6ZnhTaqDp862wTud+w/ZSiF4W2yj3Yw2+m8bVVy/IUfSikN9qi7v2D xkXpRWqKfhRyM01vt2+j8bzErwOsAAotfOL++1snjfV+xD1hBRK9xOv4c7to bKXicIgVTCG7rePKR/8SvSOH3lChFHp5/4bbxx4a824q3GXGUIiFWf6IS2NG xTcT5j1y/ab7jTtoGi8XSxBhxhI/ah6vMRmgsZ3vCidGAoUeq+yeXDtEY58X w3MYSRTyMHR3njtM42hecYNCMmGnJb9ERmj8wXWHvkIKhRIcTjRmjNK48xlj SD6NQhZx1w958Gg81duYIp9O9A21aV83RmOd4ycY8pkUmm0eMPWQT/RJXlkx 4zl5vod3lImAxo5tI94zcihkJHRb2U844eC1DrkCCp181eSk/I/oE7PznlwR hYa3jMsnE25oYO6SK6YQO/9OwfxxGnMZTaJyJRRyKXA/Gk9Y2iypYHophdZ2 BikoTBA9b508Pf01hTa35L/2Iqxfqak+vZxC4ro/zzcTPiDJ+yL7lkKp4X+X 60yS/G19FST7jkIT10r/3CAccvn6ZtlKCkU82ZVM9ts4tcRkWOYDhf4L8T/K nKJxuYBKk6mm0N5a0/kmhH+sa7aWqaXQnsn4v76Eee4PmTJ1FNqQ5ZiZQpiZ feqddD2FzriRaUR4BVfrovQXCil9N97WTthw+ZiW9DcKrTm7izlC2O5UaafU dwqFVWT+JucPfPHJjftSzRSqPemUR84fOKbd1EzqB8nD78tB5PyBn89li0u1 kvosGbDrI/zBuqVw2i/yPP/XG78S/nM/2XlaO8lD8cjMQsIijY4a0zopVMWJ Gg0jPIut/U2yi1wfn/7NnrCOOT9YsptCt823FK8gvDsUg2Qvuf7WiSQu0cPp Y8CIBIfoU7s0KI3wdWmzpxJcCi2OjTt/iHDCdkUbiQEKMV3q7SUIv/D/QUkM Uehc5a99KUR/7riTrziPQqFifzfXE/8OHjBZKhij0Gl7kXgbwm9zl3/jCijU WFGyq4P4f9+Jo9U8QSGR+pjUr0IaS7yr/vFpiuRnzeiebYRdNJ4FVYiykIaM 166nJE8G3890PJdkIZ/3V5ANyV/WGrOwFCkWslhoqfuM5HPWHU39OBkWsmvn Xh0h+R3YTsfcnMFC01PVWM4k3w9yXXfaKBLOebVsapDG0xTMx/YpsdBBX+5b BmFXJ+3HO1RYaOynV94sUk+GGkMTOmos9OxiYJQSqb+hUPfs6QtZyLPA1zaf 1OeR3n02ootZ6D3XMiOom8aV23Wmjy1hoYTiGDNLUs/x4yMO7SvI9cKzcd9J /Rs7eSq/0GGhrBvyNldJf8itsKzIXMdC/Z23zyi30niOhq7b4/UsFOo18i2V 9JPhxrGPd/RYSH+ouSir6X/6e18+YcBChT0r3xxroLHMw4MrrA1ZqPujMOPV ZxqfH9/QZG7MQldEUwYV6mi8I1e4Wt+UhUxq10bHV9N4RN23i2XBQrNseMZH Kmhs62sdKWPJQnkeDgt83pB8NeqhKSui5x41uztlNE4Mnbjfe5iFdu02Fia/ ovHOcb9dZcdYaMmf7+9c8mn8sPFqnos7C8XMuqN9/xGNuypWtYV6sJAQFRRK PyT1kNcmk3WBhWaAwe6zCWQehenb0hdZ6AYnIF/jPo2rdwhkXK+z0AabBnfV UBrzX7ranosm9zfXdDzmSePN6XODw++ykFbNoWMG7qTf3qvNy75P/K1rvjjb lcbyHitkh+JZyCvo1PQcRxrP1+zOc0thoUt9pqVu1qQ/JdnKni9kIba4qLEJ onFUqPzaqBcs1GxWfzdBj8ZNvq9s816yUE3jccWe9TR2OKiaP4JZaCpzWsIx bRp7U422HpUsFLBaXZzWoPHj62b5nk0s1MWxZduJ0lh4St/O+x8L1dcER+S+ IPP95TLkMcFCb7LTryIyzx/MUFY/N8VCzmckOyqec7FezlDbKXE2avD7KlKc ysV+/1JtD0xnI84lzUqjaC4WD6VsdVXZ6FmWSYDQhYvlcv8eGd3IRmX/7V9Y MZuLrSW/6g/qsdG26jnJ9kpc/MyqXK1/MxvVUPxCPpOLzcbjfnZuZaPYiFV5 8lJcHLZ975EvO9koNcGD3T7Qj9nfS6xzD7FRd+XCtMVv+rHaRPjhcz6E/8aq rLcn+6P2XS/u+rJRe22ulsPhfnz+vYxSqR8bFQzUf7hp0Y8/hF+tl73GRvIN rHv5hv3Yc9G5HY9vsdHPa0XvMpb147rde3Qb49joqoS5vsQgB/sny7P0MRs1 FynuP3+Bg7uMbn2QllBE1rb9az6d7sP2JnbqC6cpois7fLSVjvXhn2ZrPbdI K6Jxwe9QK7Jf/bK/TcNHThF1aYm5lxn34fJja7z72IrojxJauHFhH46/3LK4 dqEiMh9xsSn70YstCpffiDRSRA/rDo+tN+zFbxZVw5xbiqjx2FsNe/Ee7CSd IqEhMxN5bpfdWWPbhQuTFui/CZ+JpF6tdCrR6MC1m/Qq9jKVUIBbccWbu22Y 7/Rgn12oEtIqtCh+H/kdV+5J3D9jpjKaaP3+Xj20Dttv0EtNjVJGcZ7WaWpx Zdixv2b0R4wyKpG001SzLMOuD20NqPvKqLrn42klRhm+LHPtt2+8MmJN22Q/ fu01jmuqUt2booyCz79dpNhYir95W4WNFyqjhu6ZntHuxXhnsZu3eYsyqndO mPErJRubu0hUBvxURhu/N7a0qWTjA/NiZpa0KaP51766N4c8xyeDX+Qu6lRG x/ypQ1f/ZOLrh0S4/zjK6L2P5kCGbzouFd62T5lURh5PoxdFPn2IKzLnZreI qCCe01lT9p0kXG2fPcUQV0EtYXnV6j0JuOXDl7iLUiros9H9+FG/WMyPVW3c w1BBv7clFm9LD8dTZs8WBlAqyGHRzk2M3lA8TRzOv2SroNXD9tF3Lgdj9ml7 5iIVFVT39e/JC+lXsercEdvDqipoAdU2r+KyD57XcCMzTE0FvUjxsI9MP4eX 3VSaqJirgtbHnblclH4Ua296avJPQwUt1L79v/+3Sv8Ph2LZdw== "]]}, Annotation[#, "Charting`Private`Tag$15294#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange-> NCache[{{0, 2 Pi}, {-0.9999998592131705, 0.9999998782112116}}, {{ 0, 6.283185307179586}, {-0.9999998592131705, 0.9999998782112116}}], PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], ",", FractionBox["2", "3"], ",", SuperscriptBox["x", "2"], ",", RowBox[{"3", "+", RowBox[{"2", " ", "\[ImaginaryI]"}]}], ",", TemplateBox[{"\"Enschede\"",RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Enschede\"", ",", "\"Overijssel\"", ",", "\"Netherlands\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Enschede\\\", \\\"Overijssel\\\", \ \\\"Netherlands\\\"}]\"","\"city\""}, "Entity"], ",", "\<\"Test\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.7653953364643517`*^9, 3.765395343032504*^9}, { 3.7653953912424498`*^9, 3.7653954133083887`*^9}, 3.765397066354764*^9, 3.765442688723216*^9}, CellLabel->"Out[7]=", CellID->376965284] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Applications", "Subsection", CellID->568056528], Cell["Create a sorted deck of cards:", "Text", CellChangeTimes->{{3.7653950625023117`*^9, 3.7653950711029673`*^9}, { 3.765395981101227*^9, 3.765395981972308*^9}}, CellID->1475016469], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"deck", "=", RowBox[{ RowBox[{"StringJoin", "@*", "Reverse"}], "/@", RowBox[{"Tuples", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\<\[SpadeSuit]\>\"", ",", "\"\<\[HeartSuit]\>\"", ",", "\"\<\[DiamondSuit]\>\"", ",", "\"\<\[ClubSuit]\>\""}], "}"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"ToString", "/@", RowBox[{"Range", "[", RowBox[{"2", ",", "10"}], "]"}]}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], "}"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.765394733047505*^9, 3.7653950371167088`*^9}, { 3.765395133708374*^9, 3.765395150423085*^9}, 3.765395284485042*^9}, CellLabel->"In[8]:=", CellID->1688074145], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"A\[SpadeSuit]\"\>", ",", "\<\"2\[SpadeSuit]\"\>", ",", "\<\"3\[SpadeSuit]\"\>", ",", "\<\"4\[SpadeSuit]\"\>", ",", "\<\"5\[SpadeSuit]\"\>", ",", "\<\"6\[SpadeSuit]\"\>", ",", "\<\"7\[SpadeSuit]\"\>", ",", "\<\"8\[SpadeSuit]\"\>", ",", "\<\"9\[SpadeSuit]\"\>", ",", "\<\"10\[SpadeSuit]\"\>", ",", "\<\"J\[SpadeSuit]\"\>", ",", "\<\"Q\[SpadeSuit]\"\>", ",", "\<\"K\[SpadeSuit]\"\>", ",", "\<\"A\[HeartSuit]\"\>", ",", "\<\"2\[HeartSuit]\"\>", ",", "\<\"3\[HeartSuit]\"\>", ",", "\<\"4\[HeartSuit]\"\>", ",", "\<\"5\[HeartSuit]\"\>", ",", "\<\"6\[HeartSuit]\"\>", ",", "\<\"7\[HeartSuit]\"\>", ",", "\<\"8\[HeartSuit]\"\>", ",", "\<\"9\[HeartSuit]\"\>", ",", "\<\"10\[HeartSuit]\"\>", ",", "\<\"J\[HeartSuit]\"\>", ",", "\<\"Q\[HeartSuit]\"\>", ",", "\<\"K\[HeartSuit]\"\>", ",", "\<\"A\[DiamondSuit]\"\>", ",", "\<\"2\[DiamondSuit]\"\>", ",", "\<\"3\[DiamondSuit]\"\>", ",", "\<\"4\[DiamondSuit]\"\>", ",", "\<\"5\[DiamondSuit]\"\>", ",", "\<\"6\[DiamondSuit]\"\>", ",", "\<\"7\[DiamondSuit]\"\>", ",", "\<\"8\[DiamondSuit]\"\>", ",", "\<\"9\[DiamondSuit]\"\>", ",", "\<\"10\[DiamondSuit]\"\>", ",", "\<\"J\[DiamondSuit]\"\>", ",", "\<\"Q\[DiamondSuit]\"\>", ",", "\<\"K\[DiamondSuit]\"\>", ",", "\<\"A\[ClubSuit]\"\>", ",", "\<\"2\[ClubSuit]\"\>", ",", "\<\"3\[ClubSuit]\"\>", ",", "\<\"4\[ClubSuit]\"\>", ",", "\<\"5\[ClubSuit]\"\>", ",", "\<\"6\[ClubSuit]\"\>", ",", "\<\"7\[ClubSuit]\"\>", ",", "\<\"8\[ClubSuit]\"\>", ",", "\<\"9\[ClubSuit]\"\>", ",", "\<\"10\[ClubSuit]\"\>", ",", "\<\"J\[ClubSuit]\"\>", ",", "\<\"Q\[ClubSuit]\"\>", ",", "\<\"K\[ClubSuit]\"\>"}], "}"}]], "Output", CellChangeTimes->{3.765395284763369*^9, 3.765395984572145*^9, 3.765397077158717*^9, 3.76544269011794*^9}, CellLabel->"Out[8]=", CellID->1611281835] }, Open ]], Cell["Shuffle the deck once:", "Text", CellChangeTimes->{{3.765395091344396*^9, 3.7653950962742662`*^9}, { 3.765395280794726*^9, 3.765395281282179*^9}, {3.765395987577114*^9, 3.765395988209815*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InShuffle", "[", "deck", "]"}]], "Input", CellChangeTimes->{{3.765395239899317*^9, 3.7653952416204*^9}}, CellLabel->"In[9]:=", CellID->501540103], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"A\[DiamondSuit]\"\>", ",", "\<\"A\[SpadeSuit]\"\>", ",", "\<\"2\[DiamondSuit]\"\>", ",", "\<\"2\[SpadeSuit]\"\>", ",", "\<\"3\[DiamondSuit]\"\>", ",", "\<\"3\[SpadeSuit]\"\>", ",", "\<\"4\[DiamondSuit]\"\>", ",", "\<\"4\[SpadeSuit]\"\>", ",", "\<\"5\[DiamondSuit]\"\>", ",", "\<\"5\[SpadeSuit]\"\>", ",", "\<\"6\[DiamondSuit]\"\>", ",", "\<\"6\[SpadeSuit]\"\>", ",", "\<\"7\[DiamondSuit]\"\>", ",", "\<\"7\[SpadeSuit]\"\>", ",", "\<\"8\[DiamondSuit]\"\>", ",", "\<\"8\[SpadeSuit]\"\>", ",", "\<\"9\[DiamondSuit]\"\>", ",", "\<\"9\[SpadeSuit]\"\>", ",", "\<\"10\[DiamondSuit]\"\>", ",", "\<\"10\[SpadeSuit]\"\>", ",", "\<\"J\[DiamondSuit]\"\>", ",", "\<\"J\[SpadeSuit]\"\>", ",", "\<\"Q\[DiamondSuit]\"\>", ",", "\<\"Q\[SpadeSuit]\"\>", ",", "\<\"K\[DiamondSuit]\"\>", ",", "\<\"K\[SpadeSuit]\"\>", ",", "\<\"A\[ClubSuit]\"\>", ",", "\<\"A\[HeartSuit]\"\>", ",", "\<\"2\[ClubSuit]\"\>", ",", "\<\"2\[HeartSuit]\"\>", ",", "\<\"3\[ClubSuit]\"\>", ",", "\<\"3\[HeartSuit]\"\>", ",", "\<\"4\[ClubSuit]\"\>", ",", "\<\"4\[HeartSuit]\"\>", ",", "\<\"5\[ClubSuit]\"\>", ",", "\<\"5\[HeartSuit]\"\>", ",", "\<\"6\[ClubSuit]\"\>", ",", "\<\"6\[HeartSuit]\"\>", ",", "\<\"7\[ClubSuit]\"\>", ",", "\<\"7\[HeartSuit]\"\>", ",", "\<\"8\[ClubSuit]\"\>", ",", "\<\"8\[HeartSuit]\"\>", ",", "\<\"9\[ClubSuit]\"\>", ",", "\<\"9\[HeartSuit]\"\>", ",", "\<\"10\[ClubSuit]\"\>", ",", "\<\"10\[HeartSuit]\"\>", ",", "\<\"J\[ClubSuit]\"\>", ",", "\<\"J\[HeartSuit]\"\>", ",", "\<\"Q\[ClubSuit]\"\>", ",", "\<\"Q\[HeartSuit]\"\>", ",", "\<\"K\[ClubSuit]\"\>", ",", "\<\"K\[HeartSuit]\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.7653952425177183`*^9, 3.765395286794938*^9, {3.765395986253709*^9, 3.765395990110701*^9}, 3.7653970792347717`*^9, 3.765442690967448*^9}, CellLabel->"Out[9]=", CellID->1298088006] }, Open ]], Cell["The original is obtained after 52 shuffles:", "Text", CellChangeTimes->{{3.765395256067191*^9, 3.765395301711368*^9}}, CellID->1001018680], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InShuffle", "[", RowBox[{"deck", ",", "52"}], "]"}]], "Input", CellChangeTimes->{{3.7653950424085197`*^9, 3.7653950461739397`*^9}, { 3.7653950982058496`*^9, 3.765395118256014*^9}, {3.765395159468172*^9, 3.765395167523179*^9}, {3.7653952354320517`*^9, 3.765395250402598*^9}, { 3.765395305280477*^9, 3.7653953088083563`*^9}, {3.7654424481265507`*^9, 3.7654424492499657`*^9}}, CellLabel->"In[10]:=", CellID->836153427], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"A\[SpadeSuit]\"\>", ",", "\<\"2\[SpadeSuit]\"\>", ",", "\<\"3\[SpadeSuit]\"\>", ",", "\<\"4\[SpadeSuit]\"\>", ",", "\<\"5\[SpadeSuit]\"\>", ",", "\<\"6\[SpadeSuit]\"\>", ",", "\<\"7\[SpadeSuit]\"\>", ",", "\<\"8\[SpadeSuit]\"\>", ",", "\<\"9\[SpadeSuit]\"\>", ",", "\<\"10\[SpadeSuit]\"\>", ",", "\<\"J\[SpadeSuit]\"\>", ",", "\<\"Q\[SpadeSuit]\"\>", ",", "\<\"K\[SpadeSuit]\"\>", ",", "\<\"A\[HeartSuit]\"\>", ",", "\<\"2\[HeartSuit]\"\>", ",", "\<\"3\[HeartSuit]\"\>", ",", "\<\"4\[HeartSuit]\"\>", ",", "\<\"5\[HeartSuit]\"\>", ",", "\<\"6\[HeartSuit]\"\>", ",", "\<\"7\[HeartSuit]\"\>", ",", "\<\"8\[HeartSuit]\"\>", ",", "\<\"9\[HeartSuit]\"\>", ",", "\<\"10\[HeartSuit]\"\>", ",", "\<\"J\[HeartSuit]\"\>", ",", "\<\"Q\[HeartSuit]\"\>", ",", "\<\"K\[HeartSuit]\"\>", ",", "\<\"A\[DiamondSuit]\"\>", ",", "\<\"2\[DiamondSuit]\"\>", ",", "\<\"3\[DiamondSuit]\"\>", ",", "\<\"4\[DiamondSuit]\"\>", ",", "\<\"5\[DiamondSuit]\"\>", ",", "\<\"6\[DiamondSuit]\"\>", ",", "\<\"7\[DiamondSuit]\"\>", ",", "\<\"8\[DiamondSuit]\"\>", ",", "\<\"9\[DiamondSuit]\"\>", ",", "\<\"10\[DiamondSuit]\"\>", ",", "\<\"J\[DiamondSuit]\"\>", ",", "\<\"Q\[DiamondSuit]\"\>", ",", "\<\"K\[DiamondSuit]\"\>", ",", "\<\"A\[ClubSuit]\"\>", ",", "\<\"2\[ClubSuit]\"\>", ",", "\<\"3\[ClubSuit]\"\>", ",", "\<\"4\[ClubSuit]\"\>", ",", "\<\"5\[ClubSuit]\"\>", ",", "\<\"6\[ClubSuit]\"\>", ",", "\<\"7\[ClubSuit]\"\>", ",", "\<\"8\[ClubSuit]\"\>", ",", "\<\"9\[ClubSuit]\"\>", ",", "\<\"10\[ClubSuit]\"\>", ",", "\<\"J\[ClubSuit]\"\>", ",", "\<\"Q\[ClubSuit]\"\>", ",", "\<\"K\[ClubSuit]\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.765395046466448*^9, {3.76539510743587*^9, 3.7653951186169157`*^9}, { 3.7653951521717997`*^9, 3.765395162763502*^9}, 3.76539525098398*^9, { 3.765395288308093*^9, 3.765395309195019*^9}, 3.765395990810338*^9, 3.765397083392304*^9, 3.765442692519464*^9}, CellLabel->"Out[10]=", CellID->888001344] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellID->754506620], Cell["\<\ An in shuffle on a list of length 2 can be seen as swapping the elements or \ reversing the list:\ \>", "Text", CellChangeTimes->{{3.765395549164597*^9, 3.7653955594922028`*^9}, { 3.765398086090567*^9, 3.765398117054894*^9}}, CellID->1000397995], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InShuffle", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7653955436926203`*^9, 3.7653955443284492`*^9}}, CellLabel->"In[11]:=", CellID->1241131825], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.76539554469363*^9, 3.765397085853554*^9, 3.7653979108719177`*^9, 3.7653981192460003`*^9, 3.765442694768861*^9}, CellLabel->"Out[11]=", CellID->573311310] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "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], CellID->380712487], Cell[TextData[{ "Figure out after how many in shuffles a list of size ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " returns to its original order:" }], "Text", CellChangeTimes->{{3.7653956536834803`*^9, 3.765395666241117*^9}, { 3.7653962938226852`*^9, 3.7653963043456917`*^9}, 3.7653967280161257`*^9, { 3.765396803333953*^9, 3.765396803764922*^9}, {3.7728098615233126`*^9, 3.7728099133573294`*^9}, {3.7728099524466934`*^9, 3.7728099598101463`*^9}}, CellID->1031755412], Cell[BoxData[ RowBox[{ RowBox[{"howManyIterations", "[", "n_", "]"}], ":=", RowBox[{"Length", "[", RowBox[{"NestWhileList", "[", RowBox[{"InShuffle", ",", RowBox[{"InShuffle", "@", RowBox[{"Range", "[", "n", "]"}]}], ",", RowBox[{ RowBox[{"#", "=!=", RowBox[{"Range", "[", "n", "]"}]}], "&"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.765396388999378*^9, 3.7653963969562473`*^9}, { 3.7653964286206837`*^9, 3.765396429247734*^9}, {3.765396565543311*^9, 3.765396572311267*^9}, {3.7653966265890923`*^9, 3.765396631956164*^9}, { 3.765396668724524*^9, 3.7653966829896307`*^9}}, CellLabel->"In[12]:=", CellID->519299187], Cell["\<\ For lists of even length, the number of shuffles to return to the original \ order is known analytically:\ \>", "Text", CellChangeTimes->{{3.7653966912945967`*^9, 3.765396754245631*^9}, { 3.7728100772461243`*^9, 3.7728100790889864`*^9}, 3.7728101589330006`*^9}, CellID->777291503], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"howManyIterations", "[", RowBox[{"2", "#"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "10", "]"}]}]], "Input", CellLabel->"In[13]:=", CellID->670206393], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "4", ",", "3", ",", "6", ",", "10", ",", "12", ",", "4", ",", "8", ",", "18", ",", "6"}], "}"}]], "Output", CellChangeTimes->{3.765396777924467*^9, 3.765397120582678*^9, 3.7654426967837133`*^9}, CellLabel->"Out[13]=", CellID->1515535990] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MultiplicativeOrder", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"2", "#"}], "+", "1"}]}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "10", "]"}]}]], "Input", CellChangeTimes->{{3.7653964357311563`*^9, 3.7653964385605583`*^9}, { 3.76539647512921*^9, 3.765396541737754*^9}}, CellLabel->"In[14]:=", CellID->488455316], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "4", ",", "3", ",", "6", ",", "10", ",", "12", ",", "4", ",", "8", ",", "18", ",", "6"}], "}"}]], "Output", CellChangeTimes->{{3.765396479506694*^9, 3.765396542013591*^9}, 3.7653967786807203`*^9, {3.765397096741692*^9, 3.765397118293804*^9}, 3.765442697472982*^9}, CellLabel->"Out[14]=", CellID->1621559450] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "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], CellID->129204022], Cell[TextData[{ "Visualize how the positions of items are changed for a list of length 21 in \ the form of a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Graph", "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/Graph"], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro", FontSize->0.9428571428571428 Inherited], ":" }], "Text", CellChangeTimes->{{3.765397767009993*^9, 3.765397796447941*^9}}, CellID->124154517], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Range", "[", "21", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"edges", "=", RowBox[{"Thread", "[", RowBox[{"t", "->", RowBox[{"Ordering", "[", RowBox[{"InShuffle", "[", "t", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graph", "[", RowBox[{"edges", ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.76539749250766*^9, 3.7653975630949163`*^9}, { 3.7653976415075006`*^9, 3.765397758110669*^9}, {3.7653978078987303`*^9, 3.7653978259032497`*^9}, {3.765397879476923*^9, 3.765397898396963*^9}}, CellLabel->"In[15]:=", CellID->2051972913], Cell[BoxData[ GraphicsBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.028611509869230407`], ArrowBox[{{1.787790109283575, -0.2965206725210847}, { 2.2973045122346063`, -1.1563672643010692`}}, 0.041129168649192166`], ArrowBox[{{2.2973045122346063`, -1.1563672643010692`}, { 1.8066212107370407`, -2.0276201260363607`}}, 0.041129168649192166`], ArrowBox[{{1.8066212107370407`, -2.0276201260363607`}, { 0.806520547762146, -2.0392351798746837`}}, 0.041129168649192166`], ArrowBox[{{2.890410276070268, -1.9373580692169727`}, { 3.3764429387837214`, -2.8112986663685104`}}, 0.041129168649192166`], ArrowBox[{{3.3764429387837214`, -2.8112986663685104`}, { 3.890281438483281, -1.953411716570289}}, 0.041129168649192166`], ArrowBox[{{0.806520547762146, -2.0392351798746837`}, { 0.29652067252108427`, -1.1797354467131869`}}, 0.041129168649192166`], ArrowBox[{{0.8057791123844829, -4.373872711869655}, { 1.8049986158522344`, -4.363748754179884}}, 0.041129168649192166`], ArrowBox[{{1.8049986158522344`, -4.363748754179884}, { 2.2963149003841146`, -3.493217899044809}}, 0.041129168649192166`], ArrowBox[{{3.890281438483281, -1.953411716570289}, { 2.890410276070268, -1.9373580692169727`}}, 0.041129168649192166`], ArrowBox[BezierCurveBox[{{1.2965206725210845`, -4.966914056911824}, { 0.7965206725210688, -5.1313548040949435`}, { 0.2965206725210845, -4.966914056911824}}], 0.041129168649192166`], ArrowBox[BezierCurveBox[{{0.2965206725210845, -4.966914056911824}, { 0.7965206725210933, -4.802473309728719}, { 1.2965206725210845`, -4.966914056911824}}], 0.041129168649192166`], ArrowBox[{{0.29652067252108427`, -1.1797354467131869`}, { 0.7867938036350264, -0.3082235149561585}}, 0.041129168649192166`], ArrowBox[{{2.890410276070268, -3.452136063064399}, { 3.3764429387837214`, -4.326076660215937}}, 0.041129168649192166`], ArrowBox[{{3.3764429387837214`, -4.326076660215937}, { 3.890281438483281, -3.468189710417715}}, 0.041129168649192166`], ArrowBox[{{2.2963149003841146`, -3.493217899044809}, { 1.7887689163443414`, -2.6322765249168523`}}, 0.041129168649192166`], ArrowBox[{{0.7867938036350264, -0.3082235149561585}, { 1.787790109283575, -0.2965206725210847}}, 0.041129168649192166`], ArrowBox[{{0.29652067252108427`, -3.512347861254452}, { 0.8057791123844829, -4.373872711869655}}, 0.041129168649192166`], ArrowBox[{{3.890281438483281, -3.468189710417715}, { 2.890410276070268, -3.452136063064399}}, 0.041129168649192166`], ArrowBox[{{0.7881677922184946, -2.641227661147971}, { 0.29652067252108427`, -3.512347861254452}}, 0.041129168649192166`], ArrowBox[{{1.7887689163443414`, -2.6322765249168523`}, { 0.7881677922184946, -2.641227661147971}}, 0.041129168649192166`], ArrowBox[BezierCurveBox[{{3.390345857276775, -0.7965206725210845}, { 3.301866601809014, -0.9873042049063868}, { 3.1029881242714237`, -1.0437004473669809`}, { 2.975817499796966, -0.9847433685921076}, { 2.975817499796966, -0.6082979764500613}, { 3.1029881242714237`, -0.5493408976751881}, { 3.301866601809014, -0.6057371401357822}, { 3.390345857276775, -0.7965206725210845}}, SplineDegree->7], 0.041129168649192166`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{1.787790109283575, -0.2965206725210847}, 0.041129168649192166], InsetBox["1", Offset[{2, 2}, {1.8289192779327672, -0.2553915038718926}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2973045122346063, -1.1563672643010692}, 0.041129168649192166], InsetBox["2", Offset[{2, 2}, {2.3384336808837984, -1.115238095651877}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.8066212107370407, -2.0276201260363607}, 0.041129168649192166], InsetBox["4", Offset[{2, 2}, {1.8477503793862329, -1.9864909573871685}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.890410276070268, -1.9373580692169727}, 0.041129168649192166], InsetBox["3", Offset[{2, 2}, {2.9315394447194603, -1.8962289005677806}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.3764429387837214, -2.8112986663685104}, 0.041129168649192166], InsetBox["6", Offset[{2, 2}, {3.4175721074329135, -2.7701694977193183}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.806520547762146, -2.0392351798746837}, 0.041129168649192166], InsetBox["8", Offset[{2, 2}, {0.8476497164113381, -1.9981060112254916}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.8057791123844829, -4.373872711869655}, 0.041129168649192166], InsetBox["5", Offset[{2, 2}, {0.846908281033675, -4.332743543220463}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.8049986158522344, -4.363748754179884}, 0.041129168649192166], InsetBox["10", Offset[{2, 2}, {1.8461277845014266, -4.322619585530692}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.890281438483281, -1.953411716570289}, 0.041129168649192166], InsetBox["12", Offset[{2, 2}, {3.9314106071324733, -1.9122825479210968}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.2965206725210845, -4.966914056911824}, 0.041129168649192166], InsetBox["7", Offset[{2, 2}, {1.3376498411702766, -4.925784888262632}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.2965206725210845, -4.966914056911824}, 0.041129168649192166], InsetBox["14", Offset[{2, 2}, {0.33764984117027663, -4.925784888262632}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.29652067252108427, -1.1797354467131869}, 0.041129168649192166], InsetBox["16", Offset[{2, 2}, {0.3376498411702764, -1.1386062780639947}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.890410276070268, -3.452136063064399}, 0.041129168649192166], InsetBox["9", Offset[{2, 2}, {2.9315394447194603, -3.4110068944152068}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.3764429387837214, -4.326076660215937}, 0.041129168649192166], InsetBox["18", Offset[{2, 2}, {3.4175721074329135, -4.2849474915667445}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2963149003841146, -3.493217899044809}, 0.041129168649192166], InsetBox["20", Offset[{2, 2}, {2.3374440690333067, -3.4520887303956167}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7867938036350264, -0.3082235149561585}, 0.041129168649192166], InsetBox["11", Offset[{2, 2}, {0.8279229722842185, -0.2670943463069664}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.29652067252108427, -3.512347861254452}, 0.041129168649192166], InsetBox["13", Offset[{2, 2}, {0.3376498411702764, -3.4712186926052597}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.890281438483281, -3.468189710417715}, 0.041129168649192166], InsetBox["15", Offset[{2, 2}, {3.9314106071324733, -3.427060541768523}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7881677922184946, -2.641227661147971}, 0.041129168649192166], InsetBox["17", Offset[{2, 2}, {0.8292969608676868, -2.6000984924987787}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.7887689163443414, -2.6322765249168523}, 0.041129168649192166], InsetBox["19", Offset[{2, 2}, {1.8298980849935336, -2.59114735626766}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.390345857276775, -0.7965206725210845}, 0.041129168649192166], InsetBox["21", Offset[{2, 2}, {3.431475025925967, -0.7553915038718924}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}, FormatType->TraditionalForm, FrameTicks->None]], "Input", CellChangeTimes->{{3.765442704980723*^9, 3.7654427049933968`*^9}}, CellID->1752404611], Cell["\<\ Confirm that 6 nested in shuffles returns the list of 21 items to the \ original order:\ \>", "Text", CellChangeTimes->{{3.7653978331836557`*^9, 3.7653978619778843`*^9}}, CellID->1636173961], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Range", "[", "21", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"edges", "=", RowBox[{"Thread", "[", RowBox[{"t", "->", RowBox[{"Ordering", "[", RowBox[{"InShuffle", "[", RowBox[{"t", ",", "6"}], "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graph", "[", RowBox[{"edges", ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.7653978639166183`*^9, 3.765397864151717*^9}}, CellLabel->"In[19]:=", CellID->1863134646], Cell[BoxData[ GraphicsBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.032857252776741355`], ArrowBox[BezierCurveBox[{{0.7500500000000071, -0.7500500000000001}, { 0.7323541489064549, -0.7882067064770606}, { 0.6925784533989368, -0.7994859549691794}, { 0.6671443285040454, -0.7876945392142047}, { 0.6671443285040453, -0.7124054607857955}, { 0.6925784533989368, -0.7006140450308208}, { 0.7323541489064549, -0.7118932935229396}, { 0.7500500000000071, -0.7500500000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.7500500000000071, -0.4500300000000001}, { 0.7323541489064549, -0.4881867064770606}, { 0.6925784533989368, -0.4994659549691794}, { 0.6671443285040454, -0.4876745392142047}, { 0.6671443285040453, -0.41238546078579547`}, { 0.6925784533989368, -0.4005940450308208}, { 0.7323541489064549, -0.4118732935229396}, { 0.7500500000000071, -0.4500300000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.45003000000000437`, -0.7500500000000001}, { 0.4323341489064523, -0.7882067064770606}, { 0.3925584533989341, -0.7994859549691794}, { 0.36712432850404264`, -0.7876945392142047}, { 0.36712432850404264`, -0.7124054607857955}, { 0.3925584533989341, -0.7006140450308208}, { 0.4323341489064523, -0.7118932935229396}, { 0.45003000000000437`, -0.7500500000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.750050000000007, -0.15001000000000003`}, { 0.7323541489064549, -0.1881667064770605}, { 0.6925784533989366, -0.19944595496917933`}, { 0.6671443285040453, -0.18765453921420466`}, { 0.6671443285040453, -0.1123654607857954}, { 0.6925784533989366, -0.10057404503082075`}, { 0.7323541489064548, -0.11185329352293956`}, { 0.750050000000007, -0.15001000000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15000999999999998`, -1.0500700000000003`}, { 0.13231414890644788`, -1.0882267064770608`}, { 0.0925384533989297, -1.0995059549691795`}, { 0.06710432850403825, -1.087714539214205}, { 0.06710432850403823, -1.0124254607857957`}, { 0.0925384533989297, -1.000634045030821}, { 0.13231414890644785`, -1.0119132935229398`}, { 0.15000999999999998`, -1.0500700000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.0500700000000052`, -1.3500900000000002`}, { 1.032374148906453, -1.3882467064770607`}, { 0.9925984533989348, -1.3995259549691794`}, { 0.9671643285040434, -1.3877345392142049`}, { 0.9671643285040434, -1.3124454607857956`}, { 0.9925984533989348, -1.300654045030821}, { 1.032374148906453, -1.3119332935229397`}, { 1.0500700000000052`, -1.3500900000000002`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.7500500000000034, -1.3500900000000002`}, { 0.7323541489064513, -1.3882467064770607`}, { 0.6925784533989331, -1.3995259549691794`}, { 0.6671443285040417, -1.3877345392142049`}, { 0.6671443285040417, -1.3124454607857956`}, { 0.6925784533989331, -1.300654045030821}, { 0.7323541489064512, -1.3119332935229397`}, { 0.7500500000000034, -1.3500900000000002`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.4500300000000017, -1.3500900000000002`}, { 0.4323341489064496, -1.3882467064770607`}, { 0.3925584533989314, -1.3995259549691794`}, { 0.36712432850404, -1.3877345392142049`}, { 0.36712432850404, -1.3124454607857956`}, { 0.3925584533989314, -1.300654045030821}, { 0.4323341489064496, -1.3119332935229397`}, { 0.4500300000000017, -1.3500900000000002`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15000999999999998`, -1.3500900000000002`}, { 0.13231414890644788`, -1.3882467064770607`}, { 0.0925384533989297, -1.3995259549691794`}, { 0.06710432850403825, -1.3877345392142049`}, { 0.06710432850403823, -1.3124454607857956`}, { 0.0925384533989297, -1.300654045030821}, { 0.13231414890644785`, -1.3119332935229397`}, { 0.15000999999999998`, -1.3500900000000002`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.050070000000007, -1.0500700000000003`}, { 1.0323741489064548`, -1.0882267064770608`}, { 0.9925984533989366, -1.0995059549691795`}, { 0.9671643285040452, -1.087714539214205}, { 0.9671643285040452, -1.0124254607857957`}, { 0.9925984533989366, -1.000634045030821}, { 1.0323741489064548`, -1.0119132935229398`}, { 1.050070000000007, -1.0500700000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.4500300000000017, -1.0500700000000003`}, { 0.4323341489064496, -1.0882267064770608`}, { 0.3925584533989314, -1.0995059549691795`}, { 0.36712432850404, -1.087714539214205}, { 0.36712432850404, -1.0124254607857957`}, { 0.3925584533989314, -1.000634045030821}, { 0.4323341489064496, -1.0119132935229398`}, { 0.4500300000000017, -1.0500700000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.7500500000000052, -1.0500700000000003`}, { 0.7323541489064531, -1.0882267064770608`}, { 0.6925784533989349, -1.0995059549691795`}, { 0.6671443285040435, -1.087714539214205}, { 0.6671443285040435, -1.0124254607857957`}, { 0.6925784533989349, -1.000634045030821}, { 0.732354148906453, -1.0119132935229398`}, { 0.7500500000000052, -1.0500700000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.050070000000007, -0.15001000000000003`}, { 1.0323741489064548`, -0.1881667064770605}, { 0.9925984533989366, -0.19944595496917933`}, { 0.9671643285040452, -0.18765453921420466`}, { 0.9671643285040452, -0.1123654607857954}, { 0.9925984533989366, -0.10057404503082075`}, { 1.0323741489064548`, -0.11185329352293956`}, { 1.050070000000007, -0.15001000000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.050070000000007, -0.4500300000000001}, { 1.0323741489064548`, -0.4881867064770606}, { 0.9925984533989366, -0.4994659549691794}, { 0.9671643285040452, -0.4876745392142047}, { 0.9671643285040452, -0.41238546078579547`}, { 0.9925984533989366, -0.4005940450308208}, { 1.0323741489064548`, -0.4118732935229396}, { 1.050070000000007, -0.4500300000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.050070000000007, -0.7500500000000001}, { 1.0323741489064548`, -0.7882067064770606}, { 0.9925984533989366, -0.7994859549691794}, { 0.9671643285040452, -0.7876945392142047}, { 0.9671643285040452, -0.7124054607857955}, { 0.9925984533989366, -0.7006140450308208}, { 1.0323741489064548`, -0.7118932935229396}, { 1.050070000000007, -0.7500500000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.350090000000007, -0.15001000000000003`}, { 1.3323941489064548`, -0.1881667064770605}, { 1.2926184533989367`, -0.19944595496917933`}, { 1.2671843285040452`, -0.18765453921420466`}, { 1.2671843285040452`, -0.1123654607857954}, { 1.2926184533989367`, -0.10057404503082075`}, { 1.3323941489064548`, -0.11185329352293956`}, { 1.350090000000007, -0.15001000000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15001000000000175`, -0.7500500000000001}, { 0.13231414890644966`, -0.7882067064770606}, { 0.09253845339893148, -0.7994859549691794}, { 0.06710432850404002, -0.7876945392142047}, { 0.06710432850404001, -0.7124054607857955}, { 0.09253845339893148, -0.7006140450308208}, { 0.13231414890644963`, -0.7118932935229396}, { 0.15001000000000175`, -0.7500500000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15001000000000175`, -0.15001000000000003`}, { 0.13231414890644966`, -0.1881667064770605}, { 0.09253845339893148, -0.19944595496917933`}, { 0.06710432850404002, -0.18765453921420466`}, { 0.06710432850404001, -0.1123654607857954}, { 0.09253845339893148, -0.10057404503082075`}, { 0.13231414890644963`, -0.11185329352293956`}, { 0.15001000000000175`, -0.15001000000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.45003000000000526`, -0.4500300000000001}, { 0.43233414890645316`, -0.4881867064770606}, { 0.39255845339893497`, -0.4994659549691794}, { 0.36712432850404353`, -0.4876745392142047}, { 0.36712432850404353`, -0.41238546078579547`}, { 0.39255845339893497`, -0.4005940450308208}, { 0.43233414890645316`, -0.4118732935229396}, { 0.45003000000000526`, -0.4500300000000001}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.45003000000000526`, -0.15001000000000003`}, { 0.43233414890645316`, -0.1881667064770605}, { 0.39255845339893497`, -0.19944595496917933`}, { 0.36712432850404353`, -0.18765453921420466`}, { 0.36712432850404353`, -0.1123654607857954}, { 0.39255845339893497`, -0.10057404503082075`}, { 0.43233414890645316`, -0.11185329352293956`}, { 0.45003000000000526`, -0.15001000000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15001000000000175`, -0.4500300000000001}, { 0.13231414890644966`, -0.4881867064770606}, { 0.09253845339893148, -0.4994659549691794}, { 0.06710432850404002, -0.4876745392142047}, { 0.06710432850404001, -0.41238546078579547`}, { 0.09253845339893148, -0.4005940450308208}, { 0.13231414890644963`, -0.4118732935229396}, { 0.15001000000000175`, -0.4500300000000001}}, SplineDegree->7], 0.015772532764924796`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{0.7500500000000071, -0.7500500000000001}, 0.015772532764924796], InsetBox["1", Offset[{2, 2}, {0.765822532764932, -0.7342774672350754}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7500500000000071, -0.4500300000000001}, 0.015772532764924796], InsetBox["2", Offset[{2, 2}, {0.765822532764932, -0.4342574672350753}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.45003000000000437, -0.7500500000000001}, 0.015772532764924796], InsetBox["3", Offset[{2, 2}, {0.46580253276492917, -0.7342774672350754}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.750050000000007, -0.15001000000000003}, 0.015772532764924796], InsetBox["4", Offset[{2, 2}, {0.7658225327649317, -0.13423746723507524}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15000999999999998, -1.0500700000000003}, 0.015772532764924796], InsetBox["5", Offset[{2, 2}, {0.16578253276492477, -1.0342974672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.0500700000000052, -1.3500900000000002}, 0.015772532764924796], InsetBox["6", Offset[{2, 2}, {1.06584253276493, -1.3343174672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7500500000000034, -1.3500900000000002}, 0.015772532764924796], InsetBox["7", Offset[{2, 2}, {0.7658225327649282, -1.3343174672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.4500300000000017, -1.3500900000000002}, 0.015772532764924796], InsetBox["8", Offset[{2, 2}, {0.4658025327649265, -1.3343174672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15000999999999998, -1.3500900000000002}, 0.015772532764924796], InsetBox["9", Offset[{2, 2}, {0.16578253276492477, -1.3343174672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.050070000000007, -1.0500700000000003}, 0.015772532764924796], InsetBox["10", Offset[{2, 2}, {1.0658425327649317, -1.0342974672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.4500300000000017, -1.0500700000000003}, 0.015772532764924796], InsetBox["11", Offset[{2, 2}, {0.4658025327649265, -1.0342974672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7500500000000052, -1.0500700000000003}, 0.015772532764924796], InsetBox["12", Offset[{2, 2}, {0.76582253276493, -1.0342974672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.050070000000007, -0.15001000000000003}, 0.015772532764924796], InsetBox["13", Offset[{2, 2}, {1.0658425327649317, -0.13423746723507524}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.050070000000007, -0.4500300000000001}, 0.015772532764924796], InsetBox["14", Offset[{2, 2}, {1.0658425327649317, -0.4342574672350753}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.050070000000007, -0.7500500000000001}, 0.015772532764924796], InsetBox["15", Offset[{2, 2}, {1.0658425327649317, -0.7342774672350754}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.350090000000007, -0.15001000000000003}, 0.015772532764924796], InsetBox["16", Offset[{2, 2}, {1.3658625327649316, -0.13423746723507524}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15001000000000175, -0.7500500000000001}, 0.015772532764924796], InsetBox["17", Offset[{2, 2}, {0.16578253276492655, -0.7342774672350754}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15001000000000175, -0.15001000000000003}, 0.015772532764924796], InsetBox["18", Offset[{2, 2}, {0.16578253276492655, -0.13423746723507524}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.45003000000000526, -0.4500300000000001}, 0.015772532764924796], InsetBox["19", Offset[{2, 2}, {0.46580253276493006, -0.4342574672350753}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.45003000000000526, -0.15001000000000003}, 0.015772532764924796], InsetBox["20", Offset[{2, 2}, {0.46580253276493006, -0.13423746723507524}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15001000000000175, -0.4500300000000001}, 0.015772532764924796], InsetBox["21", Offset[{2, 2}, {0.16578253276492655, -0.4342574672350753}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}, FormatType->TraditionalForm, FrameTicks->None]], "Input", CellChangeTimes->{{3.765442711971877*^9, 3.7654427119848537`*^9}}, CellID->351453609] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellID->92483860], Cell["0 iterations returns the original list:", "Text", CellChangeTimes->{{3.765396910579115*^9, 3.7653969462393*^9}}, CellID->1957072080], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InShuffle", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "0"}], "]"}]], "Input", CellChangeTimes->{ 3.765396898436646*^9, {3.7653969853362713`*^9, 3.765396988346253*^9}}, CellLabel->"In[23]:=", CellID->622170175], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]], "Output", CellChangeTimes->{ 3.7653968992539062`*^9, {3.765396980602466*^9, 3.765396988939383*^9}, 3.765442713692045*^9}, CellLabel->"Out[23]=", CellID->1059264430] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", CellID->540091361], Cell[TextData[{ "Plot how many in shuffles are needed to return to the original order for a \ list of length ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.7653956536834803`*^9, 3.765395666241117*^9}, { 3.7653962938226852`*^9, 3.7653963043456917`*^9}, {3.765396805669392*^9, 3.765396860458777*^9}, {3.772810189938871*^9, 3.7728101932018747`*^9}}, CellID->1086514322], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"howManyIterations", "[", "n_", "]"}], ":=", RowBox[{"Length", "[", RowBox[{"NestWhileList", "[", RowBox[{"InShuffle", ",", RowBox[{"InShuffle", "@", RowBox[{"Range", "[", "n", "]"}]}], ",", RowBox[{ RowBox[{"#", "=!=", RowBox[{"Range", "[", "n", "]"}]}], "&"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"howManyIterations", "[", "i", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1024"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"data", ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7653956674396057`*^9, 3.765395694225239*^9}, { 3.76539573119044*^9, 3.765395773449608*^9}, {3.765395817441977*^9, 3.765395901456016*^9}, {3.765396308266588*^9, 3.7653963306926947`*^9}}, CellLabel->"In[24]:=", CellID->1602524722], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxd2znQ80YBxvEdhsKlCwoXFCLDMB6GYQwEMGcWc5lbhADmVj6SYG5BCDE5 98vpXETlW6p06dKlSpcuXap0qdIlTPw8mdn/1zzzm9l3pZVWq92Vv4/c+/vD j38g/P/fB0N4L9/7NzyUZ4h5juAx8kPwBH/3YbhAuQfgjyI/Bk+RH4c/gfP5 JDzDeXwK/jTyM/CDON/Pwp/DeX8enqOeL8BfxPG+BH8Z+RX4q0rfl4fgqNT1 THD4mlLXM8FhkWeCw9fx93D4hlLtTXD4plL3McHhW6gfDt9W6ronOCyVum8J Dt9Rqj8kOHw3zwSH7+XtSXD4vlL3M8HhB3kmOPwwzwSHHynVHxMcSqWuV4RT mWcHhx8r1c8jnGT3mw4ODysf0N/Dydb16uDwE6X6eYST7H7XweERpe5LhNMj eXZw+KlS/SHCydbz2MHhZ0qNBxFOtu5HB4efK/W8RjjZC/09HFZK9fsIJ1vX s4PDL/KMcHLqueng8Mu8PRFOv8yzg8Ov8vZEOMEdHH6t1P2IcLI1rnRw+A3O H062xvkODr/NzzPCSX6//8Phd0pffzjZeu92cKiUGk8LOFZ5VnByeY1XLdzZ i1v2cHhUqXGhgOOjeVZwcnmN6y3c2RoPezjcU+p+F3C09d6p4HQvzxbuXF7z jh4Ov1eqPxRwtHW/KzjZet+0cAf3cHhM9ei9X8DxsTwrOD2Wn08Ld7LHzR4O j+ftKOAouz9VcHo8zxbuXN73Hw5PKPU+LeD4RJ4VnJAt3Lk+Hx8Of1AudHw4 2poXVXCy/fzBnexxv4fDWqlxvYCjrfGsgtM6zxbunKqvh8MfVV7ziQKOst+z FZxs9z+4Q309HP4k671awPFPeVZwcmq8auFO9njSw+HPSo0HBRxt93842Rov WriTPS/v4fAXpfpjAce/5FnByeU1r2rhztZ8oYfDX5VatxRwtNVfKzjJnue1 cCf7vdvD4W9Kj79wlN8f/+Dk8uqPLdzZCx0fDn9XPRoPCzjKXodUcHJ5zRda uHN5zUd7ONRKrYPHcGHrfGdwtNXeEq5kzxtqOLm83kcN3NpaT+zhrs7zBPdO HW+Awz+UGs/GcGFrPJnB0VZ/LOHKVn+v4SR7vGjg1lZ9e7hzfYtbnuDe1vM8 wOGfSs2LxnBhaz0wg+M/8yzhyuX1vNVwkj3eNnBr637t4c71aT52gntb8+EB Dk8qdT3GcCF7HTODI1zClex5Ww0nl5cbuPX5qD/u4e7JPE9w7/p0Pwc4/EvW emoMF7LX6TM42rpeJVzZi1vWcJK9b9DArcvrednDHeo7wb3b4+cfDk8ptd8z hgtb7+sZHG2tt0u4kr1uqOHk8lpPNnD7VJ57uEOe4N71LW45wOHfSj1vY7iQ 3V9mcHR5vS9LuJI9b67hZOu8Grj18fQ+28Odj6f2nOBe9rx7gMPTSj//cCH7 eZzB8ek8S7hyfRoPajjZel82cPt0nnu4c3mt109wL3veP8Bhk7d3DBe2xtMZ HDd5lnDl8upPNZxcXs9jA7eyr/ce7lyfnpcT3NuaLw9w+I9S64IxXNi6HjM4 2uqPJVzJXg/WcLJ1vAZuXZ/Gwz3cyV7nnuDe9Wm+OsDhGbXD73+4eCbPGRyR JVyhvhpOstezDdzaut57uINPcC/7u8EAh2eVep+N4cL2+A9H2evcEq5k72vX cHJ9Op8Gbp/Ncw93Lu/+D/ey96MGODyn1LpsDBe2579wtPU+LuHK1nylhpOt 9VoDt7au1x7unsvzBPdOtWeAw/N5e8Zw8XyeMzgqvZ9QwpXr03qmhpPLe/4D t7bGiz3c2RoPT3Ave907wOEF5eKWY7h4IW/PDI4ur/VACVey1801nGSvpxu4 fSHPPdz5ePpudoJ72+sfOLyo43n+Cxey9zFncIRLuJK9bq/hJHs+0MCt/P77 D+5ezPME967vgVsOcEhKvQ9H8Fj2+2gCF7L3eabwzOX1PprDUfY+whIuU54r uPL56n6u4drW+2QDJ9n7Jlu4cXt0vndwi+Pt4L3bq32/A9y5vXqej/DJVvkz 3Kc8L/Dg46m+KxzuKxe3HMHj+3lO4MLl1d4pPJO9TzWHo63vsUu4xPms4Op+ nmu4dnnNpzdwstUftnBzP887uHV5zQd28N7W9+QD3MnexznCJ18PfXc8w73L az5/gQeX177vFQ4vKe/dcgSPbe3XT+BC9j7nFJ7Jfp7ncHR9mg8s4fKlPFdw pfR+0Rqubc3HNnCy791yCzc+H61n7+BW9nxvB+9l71sd4M716Xc/R/jk89H7 9gz3tu7nBR5k73td4fCyUs/DCB7L3uecwMXLeU7hmevTfGoOR9en99kSLl/O cwVXSl/vNVzL/p65gZOPp/fiFm5cXv3pDm7dHs1Hd/De5TUfP8Cdj6fx/Aif XJ/GkzPc435d4AH1XeHwilL9aQSPZX/HmsCFy+t8pvBM9r7hHI6y95mXcOn6 tJ5YwdUrea7hWunxZgMn16f5zhZuXsnzDm6RO3jv+jReHODOXtzyCJ98vtq3 PcO97N9JXeDB9el9fIXDq0rN10fwWPZ8YQIXr+Y5hWeobw5H2d8Tl3Dp8vre s4IrW+ulNVzbWk9u4OT2aLzZwo3s+ewd3Lo+9ccdvHd7NF4e4M7lNd84widb v0c4w/2reV7gweUXt7zC4TWlvieN4LHs7ywTuHgtzyk8U/p77ByOtuZDS7j0 +ai/ruDK56P17BquZe87b+Dk4+l76hZufDy//+HW5bWftYP3sn/XdYA72evk I3zy8bSePcO9j6f51gUeXF7vgyscXlc7NB6P4LHs+dwELmT3pyk8k71vPoej 7PnWEi5xvBVcyf7OtYZr2fvuGzj5fH3/4cZWf7uD29fz3MF7t0f7wQe4c3t0 Pkf4hOt5hntb/fECD65P31OucNgqtS8+gse2fg8wgYttnlN45vKe/8HRVnuW cCn7fbOCK9vjP1zbWm9u4OTjaT9uCzfbPO/gVunfOezgvevT83aAO1v96Qif cD5nuN/meYEHl9d68AqHN27p9cQIHtua707gwtb3mik8k/17jDkcZX9HWcKl 7N9xrOAKXsO169N4toGTz1e/i93Cjez16B3cvpHnDt471Z4D3Lk+PQ9H+PRG nme4R17gwfXpfX6Fw5tK7WeN4LHs7+wTuJDdH6bwTPZ3ozkcZd/HJVy6Pj3P K7iyNV9bw7Xs99kGTi6v67GFG7dX4+Ed3L6Z5w7e+3oubnmAO9en63GET2/m eYZ716fx4gIPsr97XeHwltrr+w+PZf8eaAIXsr/zTuGZ69N4MIej69N6YAmX suebK7h6K881XCv9e6QNnHw+mm9u4eatPO/g1uer3zPt4L3s73YHuHN5/d7k CJ9kj2dnuLc1nlzgwe3VfPcKh7fVXt2PETy2ff/hQvb/45jCM1vfM+dwdH16 ny/h8u08V3CldH9Yw7Wt8WgDJ9nf2bdw4/P1/A9ufR7q7zt4L/t3/Qe4c3v1 vecIn2R/Tz/DPa7XBR5Q3xUO7yj1XXAEj2W/DydwIft3blN45vq0np3DUfb/ m1nCpY+n67WCq3fyXMO1y2s/dAMnn8/illu4eSfPO7hF+R28l/17vAPcubze Z0f45PJaD5zh3u3R83iBB1vf665w+O8t/XvEETyWvZ6awIXs7wFTeCb7u/Ec ji6v/aolXMr+fwgruLLV3jVcuz49rxs4yf4OvYUbW+u1O7h1fYtb7uC97O/W B7hzfWrPET6hPWe4t3W/LvAg+7v3FQ7vKrVfNYLHsuc7E7iwNZ+awjPXt7jl HI627scSLm3t56zgSvb7ag3Xsn+nsYGTy3v/H258PL2v7uDW1nxxB+9tr//g Dj7Cp3fzPMO926P1/AUeXJ9+j3qFQ6N8MP4P52kNng== "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.004583333333333334], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Number of shuffles needed\"", TraditionalForm], None}, { FormBox["\"L\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{454.36328125, Automatic}, Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 1024.}, {0, 1018.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.765395821667091*^9, 3.765395832498993*^9}, { 3.765395862881323*^9, 3.7653959035680513`*^9}, {3.765396319954418*^9, 3.7653963329707336`*^9}, 3.765396868612088*^9, 3.765442716645615*^9}, CellLabel->"Out[26]=", CellID->1724726104] }, 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["faro shuffle", "Item"], Cell["weave shuffle", "Item"], Cell["dovetail shuffle", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Deletable->False, DefaultNewCellStyle->"Item", CellTags->"Categories", CellID->749076926], Cell["Data Manipulation & Analysis", "Item"], Cell["Just For Fun", "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["Riffle", "Item"], Cell["StringRiffle", "Item"], Cell["PermutationGroup", "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["OutShuffle", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation",Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Deletable->False, DefaultNewCellStyle->"Text", CellTags->"Source/Reference Citation", CellID->642091068], Cell["\<\ Conway, J.\[NonBreakingSpace]H. and Guy, R.\[NonBreakingSpace]K. \"Fractions \ Cycle into Decimals.\" In The Book of Numbers. New York: Springer-Verlag, pp.\ \[NonBreakingSpace]163-165, 1996. Diaconis, P.; R.L. Graham; W.M. Kantor (1983). \"The mathematics of perfect \ shuffles\" (PDF). Advances in Applied Mathematics. 4 (2): 175\[Dash]196. \ doi:10.1016/0196-8858(83)90009-X.\ \>", "Text"] }, 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[TextData[ButtonBox["In-Shuffle\[Dash]Wolfram MathWorld", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/In-Shuffle.html"], None}, ButtonNote->"http://mathworld.wolfram.com/In-Shuffle.html"]], "Item"] }, 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[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", 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.19"}, 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+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.07142857142857142], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "], CurveClosed -> {1}]}, JoinForm[{"Miter", 3.25}], Thickness[0.049999999999999996`], RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+DB7YPph9sDMh9EwcZg6mD5c 5qLbC3MXTD/M3TDzYf6C2YMrHGD2AAAVXK28 "]]}, FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6 eve8lMOjwkBdpVlKDtNeMcWlaUg5rLeT+/XumZKDfHH3s3cNkhD1xsoOydvP axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+R+XP9TIsKXD/Y/GcqcPPB6g1V4fZ7 3Ng+uaNGFe4+sPpFqg4w98P4b+wjNu/OlYXzwerN5eD6T8maTZx5Ww7V/Hp5 uP0GLXO+/78oD3cfjA9zP4wP8x9MP8z/MPNh4QOzHxZ+MPfBwhc9/AFZSbHT "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOe35VvNh9m88Bxg+bItQUGsrtcErW bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfN0f78Zk/gnC+ thfnwVVSwnC+lOWP9TMtReD8Z6xHa9LMROH8SRvy1QUFxdD4EnA+p8bzeR0a knD+ooMNFkpCUnB+XK3Nl7tnpVDt65RGlfeVQXOfLIQvKe7wQ+xab3k5gn/0 8aIolz9yDinbz2sZ35VzWG8n9+vdKQWIfKK8Qw3362O7pyP4EP3ScD6Kf4B8 FP8C+Q3z48QYLETgfLD7RIXhfHD4fhaE88HueSIA58PiAz1+AUR/638= "]}]}, FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> False]}, ImageSize -> {14., 14.}, PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (If[ MatchQ[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}], Blank[CellObject]], NotebookDelete[ CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = Inherited, CurrentValue[ ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[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 :> (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 -> False, 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"], #, 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, 0}, {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"], 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"]], StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.921569, 0.341176, 0.105882]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.614379, 0.227451, 0.0705882]], Cell[ StyleData["InlineFormula"], FontSize -> 0.99 Inherited], Cell[ StyleData["ExampleDelimiter"], 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, 46, 1, 70, "Title",ExpressionUUID->"75715f26-cb63-463b-a21a-4f02d4058dfa", CellTags->"Title"]}, "Description"->{ Cell[607, 23, 73, 1, 70, "Text",ExpressionUUID->"6ce2a379-8eee-4e23-bd6d-38f109dfcd4a", CellTags->"Description"]}, "Definition"->{ Cell[705, 28, 887, 21, 70, "Section",ExpressionUUID->"d280df75-e2dd-48e9-b3b6-1af2c7911ea4", CellTags->"Definition", CellID->474513213]}, "Documentation"->{ Cell[2292, 74, 99, 3, 70, "Section",ExpressionUUID->"0f5c156c-bb3a-4feb-af77-124dd5624652", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[2416, 81, 1615, 42, 70, "Subsection",ExpressionUUID->"66bdb52c-1caa-423a-b0af-b3d5088d462f", CellTags->"Usage", CellID->310800389]}, "Details & Options"->{ Cell[4802, 164, 1131, 24, 70, "Subsection",ExpressionUUID->"2ce8522a-e0d3-4dc1-accb-a471f371b679", CellTags->"Details & Options", CellID->66019318]}, "TabNext"->{ Cell[5936, 190, 321, 8, 70, "Notes",ExpressionUUID->"2cb1208c-bbf6-41bf-9dea-8e3bb37ee3d1", CellTags->"TabNext", CellID->521904482], Cell[112339, 2642, 509, 8, 70, "Text",ExpressionUUID->"99235fbd-5190-4794-8832-896ced55f52d", CellTags->"TabNext", CellID->567921317], Cell[113608, 2676, 495, 8, 70, "Text",ExpressionUUID->"c8acfeee-40cf-4a86-b16f-d4f76433fe9b", CellTags->"TabNext", CellID->920818074]}, "Nothing"->{ Cell[6260, 200, 185, 6, 70, "Notes",ExpressionUUID->"024b9ca5-569c-473b-a743-e924773cd87b", CellTags->"Nothing", CellID->557618692], Cell[6448, 208, 9702, 209, 70, "Input",ExpressionUUID->"18ff0c47-48d8-48fd-b0a7-932458c341fa", CellTags->"Nothing", CellID->100630628], Cell[16153, 419, 648, 24, 70, "Notes",ExpressionUUID->"9e664f01-cf41-4944-918c-bfaf17aa0ce7", CellTags->"Nothing", CellID->1581963878], Cell[16804, 445, 8749, 189, 70, "Input",ExpressionUUID->"f711c72d-6c05-4bbf-bbaf-d96df58bae07", CellTags->"Nothing", CellID->75679434]}, "Examples"->{ Cell[25590, 639, 6400, 143, 70, "Section",ExpressionUUID->"cf7f877e-c2fb-4633-a6a3-910529c12752", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[105499, 2406, 135, 3, 70, "Section",ExpressionUUID->"ebf55044-52b4-4779-befe-63ccc1e2565c", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[105659, 2413, 683, 18, 70, "Subsection",ExpressionUUID->"7464ddef-3d8f-4437-b90f-62afefbdea36", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[106412, 2438, 684, 18, 70, "Subsection",ExpressionUUID->"092c9c9c-8461-49c9-a873-16190ca24178", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[107231, 2467, 126, 4, 70, "Subsection",ExpressionUUID->"1b440b85-5426-486c-8a8c-b65756ac8fc4", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[107472, 2480, 661, 18, 70, "Subsection",ExpressionUUID->"68ec8a26-d93d-41f8-93e7-d530d04ee4dd", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[108261, 2509, 711, 18, 70, "Subsection",ExpressionUUID->"b4154df0-a925-4627-b2a6-e0cde399a3ad", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[109038, 2534, 762, 19, 70, "Subsection",ExpressionUUID->"3ddf558b-5552-45b3-a70b-5c93e09a42c9", CellTags->"Source/Reference Citation", CellID->642091068]}, "Links"->{ Cell[110242, 2567, 614, 18, 70, "Subsection",ExpressionUUID->"c793666f-4569-42da-b299-6e32722e2be9", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[111131, 2596, 767, 20, 70, "Subsection",ExpressionUUID->"095c8c11-3b05-4556-b0fb-65711ae72597", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[112209, 2636, 127, 4, 70, "Section",ExpressionUUID->"eb41a8c1-1172-4d59-8621-92401e0c111d", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[112885, 2655, 720, 19, 70, "Section",ExpressionUUID->"83248e8e-fd44-42d0-868b-3f8c67612a7f", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 185079, 4052}, {"Description", 185212, 4055}, {"Definition", 185349, 4058}, {"Documentation", 185515, 4062}, {"Usage", 185675, 4066}, {"Details & Options", 185845, 4070}, {"TabNext", 186017, 4074}, {"Nothing", 186459, 4084}, {"Examples", 187048, 4097}, {"Source & Additional Information", 187235, 4101}, {"Contributed By", 187427, 4105}, {"Keywords", 187600, 4109}, {"Categories", 187769, 4113}, {"Related Symbols", 187944, 4117}, {"Related Resource Objects", 188134, 4121}, {"Source/Reference Citation", 188334, 4125}, {"Links", 188515, 4129}, {"Tests", 188676, 4133}, {"Author Notes", 188843, 4137}, {"Submission Notes", 189018, 4141} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 46, 1, 70, "Title",ExpressionUUID->"75715f26-cb63-463b-a21a-4f02d4058dfa", CellTags->"Title"], Cell[607, 23, 73, 1, 70, "Text",ExpressionUUID->"6ce2a379-8eee-4e23-bd6d-38f109dfcd4a", CellTags->"Description"], Cell[CellGroupData[{ Cell[705, 28, 887, 21, 70, "Section",ExpressionUUID->"d280df75-e2dd-48e9-b3b6-1af2c7911ea4", CellTags->"Definition", CellID->474513213], Cell[1595, 51, 682, 20, 70, "Input",ExpressionUUID->"01ee6e72-b875-4d0c-9739-c15fcf7452c5", InitializationCell->True] }, Open ]], Cell[2292, 74, 99, 3, 70, "Section",ExpressionUUID->"0f5c156c-bb3a-4feb-af77-124dd5624652", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[2416, 81, 1615, 42, 70, "Subsection",ExpressionUUID->"66bdb52c-1caa-423a-b0af-b3d5088d462f", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[4056, 127, 90, 2, 70, "UsageInputs",ExpressionUUID->"1d9d62fe-c2f7-4b62-aeba-ac9d18154111"], Cell[4149, 131, 168, 6, 70, "UsageDescription",ExpressionUUID->"985f8c83-76a4-420f-acb7-08408878e269"] }, Open ]], Cell[CellGroupData[{ Cell[4354, 142, 134, 4, 70, "UsageInputs",ExpressionUUID->"6ea366f2-cc61-4944-965f-8dd5db9479cc"], Cell[4491, 148, 262, 10, 70, "UsageDescription",ExpressionUUID->"9118983d-b0f6-4187-b2bb-b2d3d2ce496d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4802, 164, 1131, 24, 70, "Subsection",ExpressionUUID->"2ce8522a-e0d3-4dc1-accb-a471f371b679", CellTags->"Details & Options", CellID->66019318], Cell[5936, 190, 321, 8, 70, "Notes",ExpressionUUID->"2cb1208c-bbf6-41bf-9dea-8e3bb37ee3d1", CellTags->"TabNext", CellID->521904482], Cell[6260, 200, 185, 6, 70, "Notes",ExpressionUUID->"024b9ca5-569c-473b-a743-e924773cd87b", CellTags->"Nothing", CellID->557618692], Cell[6448, 208, 9702, 209, 70, "Input",ExpressionUUID->"18ff0c47-48d8-48fd-b0a7-932458c341fa", CellTags->"Nothing", CellID->100630628], Cell[16153, 419, 648, 24, 70, "Notes",ExpressionUUID->"9e664f01-cf41-4944-918c-bfaf17aa0ce7", CellTags->"Nothing", CellID->1581963878], Cell[16804, 445, 8749, 189, 70, "Input",ExpressionUUID->"f711c72d-6c05-4bbf-bbaf-d96df58bae07", CellTags->"Nothing", CellID->75679434] }, Open ]], Cell[CellGroupData[{ Cell[25590, 639, 6400, 143, 70, "Section",ExpressionUUID->"cf7f877e-c2fb-4633-a6a3-910529c12752", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[32015, 786, 56, 1, 70, "Subsection",ExpressionUUID->"8928f18c-e2d7-4a28-bab2-3d03d75abe63", CellID->462042388], Cell[32074, 789, 147, 2, 70, "Text",ExpressionUUID->"b92a4016-ba53-4df9-9284-19983ca4c11e", CellID->13078159], Cell[CellGroupData[{ Cell[32246, 795, 255, 6, 70, "Input",ExpressionUUID->"e9ac924b-707f-48af-b0db-e5ef661463aa", CellID->443871870], Cell[32504, 803, 320, 8, 70, "Output",ExpressionUUID->"a9e05e72-0113-4134-b3b9-f90ef765f1cc", CellID->1104593595] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32873, 817, 47, 1, 70, "Subsection",ExpressionUUID->"ad655b7c-20a0-4375-94ab-1fb4aec254bf", CellID->964056545], Cell[32923, 820, 142, 2, 70, "Text",ExpressionUUID->"2c1b7063-dbb2-4064-a5c8-f75441d83a5b", CellID->501929943], Cell[CellGroupData[{ Cell[33090, 826, 328, 8, 70, "Input",ExpressionUUID->"a8ff5f3e-cf9c-42fb-b947-aff9e791ad5f", CellID->503311441], Cell[33421, 836, 370, 9, 70, "Output",ExpressionUUID->"374a7a83-56be-46e0-8c3e-ab69c7499a44", CellID->1810422954] }, Open ]], Cell[33806, 848, 134, 2, 70, "Text",ExpressionUUID->"86617e9b-0eb1-4b33-8179-a6f4058a91e2", CellID->411814321], Cell[CellGroupData[{ Cell[33965, 854, 283, 7, 70, "Input",ExpressionUUID->"c754a7b1-d773-474b-9f8a-964132af7d2e", CellID->448269952], Cell[34251, 863, 319, 8, 70, "Output",ExpressionUUID->"5b9029ff-7267-4bd4-b75f-d3c45037e2a1", CellID->231729521] }, Open ]], Cell[CellGroupData[{ Cell[34607, 876, 565, 18, 70, "ExampleDelimiter",ExpressionUUID->"3f844c21-13c7-435a-b380-45bc941f86b8", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->485279578], Cell[35175, 896, 153, 2, 70, "Text",ExpressionUUID->"0c9f34e3-40b8-4290-9648-bfafc0ed8776", CellID->337999680], Cell[CellGroupData[{ Cell[35353, 902, 11586, 215, 70, "Input",ExpressionUUID->"efbfcd02-cdab-41e6-ae98-2cd0d9db0a4a", CellID->508737551], Cell[46942, 1119, 11583, 215, 70, "Output",ExpressionUUID->"0b67996c-dc16-4b78-a525-73275418c06f", CellID->376965284] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[58586, 1341, 54, 1, 70, "Subsection",ExpressionUUID->"debeaab5-8dfa-4cfd-9aac-135b863562a0", CellID->568056528], Cell[58643, 1344, 186, 3, 70, "Text",ExpressionUUID->"c39fc457-324f-4eff-85b5-b5bde7771e34", CellID->1475016469], Cell[CellGroupData[{ Cell[58854, 1351, 873, 23, 70, "Input",ExpressionUUID->"5491cacd-af2e-491b-bd71-ac601b0136f9", CellID->1688074145], Cell[59730, 1376, 1887, 32, 70, "Output",ExpressionUUID->"cbd5b910-7e0d-4be2-a472-f5d27ecc3d7e", CellID->1611281835] }, Open ]], Cell[61632, 1411, 224, 4, 70, "Text",ExpressionUUID->"6a036ccb-b922-40e2-a82d-d7c38ac64408", CellID->649685796], Cell[CellGroupData[{ Cell[61881, 1419, 172, 4, 70, "Input",ExpressionUUID->"078bae4d-0de7-4f19-8cf6-c7c19f9c83bc", CellID->501540103], Cell[62056, 1425, 1942, 33, 70, "Output",ExpressionUUID->"24b56e1d-0bc6-4e89-8fc3-aee9f7c63765", CellID->1298088006] }, Open ]], Cell[64013, 1461, 146, 2, 70, "Text",ExpressionUUID->"8c361914-1814-4240-a1fd-6866b0028b66", CellID->1001018680], Cell[CellGroupData[{ Cell[64184, 1467, 455, 9, 70, "Input",ExpressionUUID->"a17b08ef-8811-4a82-8256-e78efb4a8458", CellID->836153427], Cell[64642, 1478, 2062, 35, 70, "Output",ExpressionUUID->"929969e3-01b3-45ca-91b2-1c25926a9f84", CellID->888001344] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[66753, 1519, 66, 1, 70, "Subsection",ExpressionUUID->"d9fa2361-42aa-4c92-ad00-a98c731c8abf", CellID->754506620], Cell[66822, 1522, 259, 6, 70, "Text",ExpressionUUID->"1289ba6d-11a2-4584-bc58-37e487c4e294", CellID->1000397995], Cell[CellGroupData[{ Cell[67106, 1532, 224, 6, 70, "Input",ExpressionUUID->"c4c6410c-6017-439a-9f31-a693bb4b6229", CellID->1241131825], Cell[67333, 1540, 253, 6, 70, "Output",ExpressionUUID->"52c189c5-5192-4297-b323-36841a1c70d0", CellID->573311310] }, Open ]], Cell[CellGroupData[{ Cell[67623, 1551, 565, 18, 70, "ExampleDelimiter",ExpressionUUID->"28b96494-c52d-471b-b63a-f450aaa1215c", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->380712487], Cell[68191, 1571, 533, 12, 70, "Text",ExpressionUUID->"897f591e-0dca-49e8-8cee-f27bd1bc7620", CellID->1031755412], Cell[68727, 1585, 680, 16, 70, "Input",ExpressionUUID->"b10167d1-451e-41a8-b678-f6e66a1257ed", CellID->519299187], Cell[69410, 1603, 295, 6, 70, "Text",ExpressionUUID->"d27f2e4b-2785-4803-b1ac-af8abd1fb93c", CellID->777291503], Cell[CellGroupData[{ Cell[69730, 1613, 210, 7, 70, "Input",ExpressionUUID->"6ea45551-0d00-49cb-a5b4-8191a4d6cf66", CellID->670206393], Cell[69943, 1622, 299, 8, 70, "Output",ExpressionUUID->"7c6f1ce0-422b-49d3-b00d-a837a85cbbd6", CellID->1515535990] }, Open ]], Cell[CellGroupData[{ Cell[70279, 1635, 383, 11, 70, "Input",ExpressionUUID->"a96cb35f-4fc2-4be2-98f1-58d6758968be", CellID->488455316], Cell[70665, 1648, 374, 9, 70, "Output",ExpressionUUID->"493687b7-4396-4e89-bd32-44e8f0142927", CellID->1621559450] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[71088, 1663, 565, 18, 70, "ExampleDelimiter",ExpressionUUID->"bfbdcd38-1d85-4c54-9531-97d22314763a", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->129204022], Cell[71656, 1683, 700, 21, 70, "Text",ExpressionUUID->"3831f14f-84c9-447f-a27c-194e9cc491a2", CellID->124154517], Cell[72359, 1706, 716, 18, 70, "Input",ExpressionUUID->"3a53ee52-8367-4972-b51e-e5f6f2d8ae13", CellID->2051972913], Cell[73078, 1726, 8154, 144, 70, "Input",ExpressionUUID->"2e3b9a38-b181-439d-9920-7d2bb0af4cdd", CellID->1752404611], Cell[81235, 1872, 202, 5, 70, "Text",ExpressionUUID->"25cf408e-85ea-46ed-8dbb-fd4f3301b986", CellID->1636173961], Cell[81440, 1879, 595, 17, 70, "Input",ExpressionUUID->"e432a433-e698-4170-a3bd-91deea953d98", CellID->1863134646], Cell[82038, 1898, 15003, 297, 70, "Input",ExpressionUUID->"debc479a-8836-493b-8275-834525597067", CellID->351453609] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[97090, 2201, 56, 1, 70, "Subsection",ExpressionUUID->"d4c0bc24-99a3-4282-94b2-ffb33c5512db", CellID->92483860], Cell[97149, 2204, 140, 2, 70, "Text",ExpressionUUID->"b3511539-3485-48c6-8cd7-2787866b334c", CellID->1957072080], Cell[CellGroupData[{ Cell[97314, 2210, 256, 7, 70, "Input",ExpressionUUID->"3d19c6e0-438b-41e4-a34a-e332cf5c244b", CellID->622170175], Cell[97573, 2219, 325, 9, 70, "Output",ExpressionUUID->"fb0b80ed-7592-4bcb-870d-fe5e7968538c", CellID->1059264430] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[97947, 2234, 55, 1, 70, "Subsection",ExpressionUUID->"1bc8ca7c-ffa0-45f3-87a5-f1b2a3152989", CellID->540091361], Cell[98005, 2237, 458, 11, 70, "Text",ExpressionUUID->"e35080be-9cb7-4aa5-a3b0-0da470cafff0", CellID->1086514322], Cell[CellGroupData[{ Cell[98488, 2252, 1237, 34, 70, "Input",ExpressionUUID->"2c37e4ee-9786-4362-abdf-a9c418b0d1ba", CellID->1602524722], Cell[99728, 2288, 5710, 111, 70, "Output",ExpressionUUID->"9f8e65d1-a22d-4753-8cc8-4b76b0efad97", CellID->1724726104] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[105499, 2406, 135, 3, 70, "Section",ExpressionUUID->"ebf55044-52b4-4779-befe-63ccc1e2565c", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[105659, 2413, 683, 18, 70, "Subsection",ExpressionUUID->"7464ddef-3d8f-4437-b90f-62afefbdea36", CellTags->"Contributed By", CellID->127820888], Cell[106345, 2433, 30, 0, 70, "Text",ExpressionUUID->"35ffe47c-f3d2-447d-bfa5-51b4f4216462"] }, Open ]], Cell[CellGroupData[{ Cell[106412, 2438, 684, 18, 70, "Subsection",ExpressionUUID->"092c9c9c-8461-49c9-a873-16190ca24178", CellTags->"Keywords", CellID->547400482], Cell[107099, 2458, 28, 0, 70, "Item",ExpressionUUID->"84d7dc7b-499d-4be8-8f8a-d378fc97b05f"], Cell[107130, 2460, 29, 0, 70, "Item",ExpressionUUID->"b0fe93eb-fc2b-41fb-8d00-3f716419140a"], Cell[107162, 2462, 32, 0, 70, "Item",ExpressionUUID->"38f06da2-b274-40ac-9f54-191dda8d9347"] }, Open ]], Cell[CellGroupData[{ Cell[107231, 2467, 126, 4, 70, "Subsection",ExpressionUUID->"1b440b85-5426-486c-8a8c-b65756ac8fc4", CellTags->"Categories", CellID->749076926], Cell[107360, 2473, 44, 0, 70, "Item",ExpressionUUID->"c50d9826-8880-4b33-8917-175e7b438388"], Cell[107407, 2475, 28, 0, 70, "Item",ExpressionUUID->"5e23d429-1177-4d9d-8738-dc32cd2b3e2d"] }, Open ]], Cell[CellGroupData[{ Cell[107472, 2480, 661, 18, 70, "Subsection",ExpressionUUID->"68ec8a26-d93d-41f8-93e7-d530d04ee4dd", CellTags->"Related Symbols", CellID->161079978], Cell[108136, 2500, 22, 0, 70, "Item",ExpressionUUID->"a940b71f-9108-4b9e-8f69-8e8b2dcf4fbf"], Cell[108161, 2502, 28, 0, 70, "Item",ExpressionUUID->"7dd64364-76ba-4994-beb0-7a55c74f0ca9"], Cell[108192, 2504, 32, 0, 70, "Item",ExpressionUUID->"4442fb8d-50a0-4169-86b5-f33d962a6c38"] }, Open ]], Cell[CellGroupData[{ Cell[108261, 2509, 711, 18, 70, "Subsection",ExpressionUUID->"b4154df0-a925-4627-b2a6-e0cde399a3ad", CellTags->"Related Resource Objects", CellID->588449267], Cell[108975, 2529, 26, 0, 70, "Item",ExpressionUUID->"e2d0998c-8750-4d0e-b2b9-6d4910695d7d"] }, Open ]], Cell[CellGroupData[{ Cell[109038, 2534, 762, 19, 70, "Subsection",ExpressionUUID->"3ddf558b-5552-45b3-a70b-5c93e09a42c9", CellTags->"Source/Reference Citation", CellID->642091068], Cell[109803, 2555, 402, 7, 70, "Text",ExpressionUUID->"bae492aa-4929-48ea-9821-8e13e5986178"] }, Open ]], Cell[CellGroupData[{ Cell[110242, 2567, 614, 18, 70, "Subsection",ExpressionUUID->"c793666f-4569-42da-b299-6e32722e2be9", CellTags->"Links", CellID->521525586], Cell[110859, 2587, 235, 4, 70, "Item",ExpressionUUID->"98139209-1616-4b91-b950-cb475e2ae824"] }, Open ]], Cell[CellGroupData[{ Cell[111131, 2596, 767, 20, 70, "Subsection",ExpressionUUID->"095c8c11-3b05-4556-b0fb-65711ae72597", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[111923, 2620, 129, 4, 70, "Input",ExpressionUUID->"f8de486c-325e-4e49-82af-f270f41603a9", CellID->667877521], Cell[112055, 2626, 93, 3, 70, "Output",ExpressionUUID->"f863cb4c-3012-41fc-a565-0b7a1c5abba8", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[112209, 2636, 127, 4, 70, "Section",ExpressionUUID->"eb41a8c1-1172-4d59-8621-92401e0c111d", CellTags->"Author Notes", CellID->795110225], Cell[112339, 2642, 509, 8, 70, "Text",ExpressionUUID->"99235fbd-5190-4794-8832-896ced55f52d", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[112885, 2655, 720, 19, 70, "Section",ExpressionUUID->"83248e8e-fd44-42d0-868b-3f8c67612a7f", CellTags->"Submission Notes", CellID->843283583], Cell[113608, 2676, 495, 8, 70, "Text",ExpressionUUID->"c8acfeee-40cf-4a86-b16f-d4f76433fe9b", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)