(* 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[ 205914, 4534] NotebookOptionsPosition[ 116413, 2752] NotebookOutlinePosition[ 192202, 4237] CellTagsIndexPosition[ 191490, 4213] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["OutShuffle", "Title", CellTags->"Title"], Cell["Perform an out 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[{"OutShuffle", "[", "l_List", "]"}], " ", ":=", " ", RowBox[{"Riffle", " ", "@@", " ", RowBox[{"TakeDrop", "[", RowBox[{"l", ",", " ", RowBox[{"Ceiling", "[", RowBox[{ RowBox[{"Length", "[", "l", "]"}], "/", "2"}], "]"}]}], "]"}]}]}], "\n", " "}], "\n", RowBox[{ RowBox[{"OutShuffle", "[", RowBox[{"l_List", ",", " ", RowBox[{ RowBox[{"(", "n_Integer", ")"}], "?", "NonNegative"}]}], "]"}], " ", ":=", " ", RowBox[{"Nest", "[", RowBox[{"OutShuffle", ",", " ", "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[{"OutShuffle", "[", StyleBox["list", "TI"], "]"}]], "UsageInputs"], Cell[TextData[{ "performs an out shuffle on ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OutShuffle", "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs"], Cell[TextData[{ "performs ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " out 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 out shuffle is defined as follows: (1) split the list in two halves; and \ (2) interweave each half of the list starting with the first half, such that \ every other card comes from the same half of the 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->33647561], 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[0.87, 0.94, 1]], RectangleBox[{1, -7}], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->12], NCache[{3/2, -(13/2)}, {1.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{2, -7}], InsetBox[ StyleBox["6", StripOnInput->False, FontSize->12], NCache[{5/2, -(13/2)}, {2.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{3, -7}], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->12], NCache[{7/2, -(13/2)}, {3.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{4, -7}], InsetBox[ StyleBox["7", StripOnInput->False, FontSize->12], NCache[{9/2, -(13/2)}, {4.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{5, -7}], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->12], NCache[{11/2, -(13/2)}, {5.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{6, -7}], InsetBox[ StyleBox["8", StripOnInput->False, FontSize->12], NCache[{13/2, -(13/2)}, {6.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{7, -7}], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->12], NCache[{15/2, -(13/2)}, {7.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{8, -7}], InsetBox[ StyleBox["9", StripOnInput->False, FontSize->12], NCache[{17/2, -(13/2)}, {8.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{9, -7}], InsetBox[ StyleBox["5", StripOnInput->False, FontSize->12], NCache[{19/2, -(13/2)}, {9.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{10, -7}], InsetBox[ StyleBox["10", 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[{{1., -3.25}, {1., -3.5}, {3/2, -4.5}, {3/2, -5.75}}, {{ 1., -3.25}, {1., -3.5}, {1.5, -4.5}, {1.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{7., -3.25}, {7., -3.5}, {5/2, -4.5}, {5/2, -5.75}}, {{ 7., -3.25}, {7., -3.5}, {2.5, -4.5}, {2.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{2., -3.25}, {2., -3.5}, {7/2, -4.5}, {7/2, -5.75}}, {{ 2., -3.25}, {2., -3.5}, {3.5, -4.5}, {3.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{8., -3.25}, {8., -3.5}, {9/2, -4.5}, {9/2, -5.75}}, {{ 8., -3.25}, {8., -3.5}, {4.5, -4.5}, {4.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{3., -3.25}, {3., -3.5}, {11/2, -4.5}, {11/2, -5.75}}, {{ 3., -3.25}, {3., -3.5}, {5.5, -4.5}, {5.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{9., -3.25}, {9., -3.5}, {13/2, -4.5}, {13/2, -5.75}}, {{ 9., -3.25}, {9., -3.5}, {6.5, -4.5}, {6.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{4., -3.25}, {4., -3.5}, {15/2, -4.5}, {15/2, -5.75}}, {{ 4., -3.25}, {4., -3.5}, {7.5, -4.5}, {7.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{10., -3.25}, {10., -3.5}, {17/2, -4.5}, {17/2, -5.75}}, {{ 10., -3.25}, {10., -3.5}, {8.5, -4.5}, {8.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{5., -3.25}, {5., -3.5}, {19/2, -4.5}, {19/2, -5.75}}, {{ 5., -3.25}, {5., -3.5}, {9.5, -4.5}, {9.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{11., -3.25}, {11., -3.5}, {21/2, -4.5}, {21/2, -5.75}}, {{ 11., -3.25}, {11., -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->404640239], Cell[TextData[{ "When the 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->36406387], 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[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[0.87, 0.94, 1]], RectangleBox[{1, -7}], InsetBox[ StyleBox["1", StripOnInput->False, FontSize->12], NCache[{3/2, -(13/2)}, {1.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{2, -7}], InsetBox[ StyleBox["6", StripOnInput->False, FontSize->12], NCache[{5/2, -(13/2)}, {2.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{3, -7}], InsetBox[ StyleBox["2", StripOnInput->False, FontSize->12], NCache[{7/2, -(13/2)}, {3.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{4, -7}], InsetBox[ StyleBox["7", StripOnInput->False, FontSize->12], NCache[{9/2, -(13/2)}, {4.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{5, -7}], InsetBox[ StyleBox["3", StripOnInput->False, FontSize->12], NCache[{11/2, -(13/2)}, {5.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{6, -7}], InsetBox[ StyleBox["8", StripOnInput->False, FontSize->12], NCache[{13/2, -(13/2)}, {6.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{7, -7}], InsetBox[ StyleBox["4", StripOnInput->False, FontSize->12], NCache[{15/2, -(13/2)}, {7.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[1, 0.85, 0.85]], RectangleBox[{8, -7}], InsetBox[ StyleBox["9", StripOnInput->False, FontSize->12], NCache[{17/2, -(13/2)}, {8.5, -6.5}]]}, {EdgeForm[GrayLevel[0]], FaceForm[RGBColor[0.87, 0.94, 1]], RectangleBox[{9, -7}], InsetBox[ StyleBox["5", 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}, {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[{{1., -3.25}, {1., -3.5}, {3/2, -4.5}, {3/2, -5.75}}, {{ 1., -3.25}, {1., -3.5}, {1.5, -4.5}, {1.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{7., -3.25}, {7., -3.5}, {5/2, -4.5}, {5/2, -5.75}}, {{ 7., -3.25}, {7., -3.5}, {2.5, -4.5}, {2.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{2., -3.25}, {2., -3.5}, {7/2, -4.5}, {7/2, -5.75}}, {{ 2., -3.25}, {2., -3.5}, {3.5, -4.5}, {3.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{8., -3.25}, {8., -3.5}, {9/2, -4.5}, {9/2, -5.75}}, {{ 8., -3.25}, {8., -3.5}, {4.5, -4.5}, {4.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{3., -3.25}, {3., -3.5}, {11/2, -4.5}, {11/2, -5.75}}, {{ 3., -3.25}, {3., -3.5}, {5.5, -4.5}, {5.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{9., -3.25}, {9., -3.5}, {13/2, -4.5}, {13/2, -5.75}}, {{ 9., -3.25}, {9., -3.5}, {6.5, -4.5}, {6.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{4., -3.25}, {4., -3.5}, {15/2, -4.5}, {15/2, -5.75}}, {{ 4., -3.25}, {4., -3.5}, {7.5, -4.5}, {7.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{10., -3.25}, {10., -3.5}, {17/2, -4.5}, {17/2, -5.75}}, {{ 10., -3.25}, {10., -3.5}, {8.5, -4.5}, {8.5, -5.75}}]]], ArrowBox[BSplineCurveBox[ NCache[{{5., -3.25}, {5., -3.5}, {19/2, -4.5}, {19/2, -5.75}}, {{ 5., -3.25}, {5., -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->128790269] }, 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 out shuffle on a list of 10 items:", "Text", CellChangeTimes->{{3.765394110156773*^9, 3.7653941288257513`*^9}, { 3.7654407474161997`*^9, 3.765440747703455*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OutShuffle", "[", RowBox[{"Range", "[", "10", "]"}], "]"}]], "Input", CellChangeTimes->{{3.765391367167933*^9, 3.765391369956929*^9}, { 3.765394130603301*^9, 3.7653941312921143`*^9}, {3.765440749869937*^9, 3.765440750265246*^9}}, CellLabel->"In[446]:=", CellID->443871870], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "6", ",", "2", ",", "7", ",", "3", ",", "8", ",", "4", ",", "9", ",", "5", ",", "10"}], "}"}]], "Output", CellChangeTimes->{3.7653913702430563`*^9, 3.7653941395713873`*^9, 3.765397032343011*^9, 3.7654407507587*^9}, CellLabel->"Out[446]=", CellID->556949303] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->964056545], Cell["Perform an out shuffle 3 times to a list:", "Text", CellChangeTimes->{{3.765396200261222*^9, 3.765396224278665*^9}, { 3.765440768574854*^9, 3.765440768845772*^9}}, CellID->501929943], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OutShuffle", "[", 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}, {3.765440770935864*^9, 3.765440771306552*^9}}, CellLabel->"In[565]:=", CellID->503311441], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "9", ",", "8", ",", "7", ",", "6", ",", "5", ",", "4", ",", "3", ",", "2", ",", "10"}], "}"}]], "Output", CellChangeTimes->{ 3.7653913702430563`*^9, 3.7653941395713873`*^9, {3.765396226719849*^9, 3.765396228386866*^9}, 3.765397033957122*^9, 3.765440771802286*^9, 3.765442409127616*^9}, CellLabel->"Out[565]=", CellID->1413799626] }, Open ]], Cell["Confirm that this is the same:", "Text", CellChangeTimes->{{3.7653962475772247`*^9, 3.765396265676161*^9}}, CellID->411814321], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OutShuffle", "[", RowBox[{"OutShuffle", "[", RowBox[{"OutShuffle", "[", RowBox[{"Range", "[", "10", "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7653962323300962`*^9, 3.7653962574752493`*^9}, { 3.765440774596531*^9, 3.765440775699847*^9}}, CellLabel->"In[566]:=", CellID->448269952], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "9", ",", "8", ",", "7", ",", "6", ",", "5", ",", "4", ",", "3", ",", "2", ",", "10"}], "}"}]], "Output", CellChangeTimes->{{3.765396245191485*^9, 3.7653962584232883`*^9}, 3.765397036053657*^9, 3.765440776496735*^9, 3.76544240972377*^9}, CellLabel->"Out[566]=", CellID->845508655] }, 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->70897752], Cell["The list can contain expressions of different types:", "Text", CellChangeTimes->{{3.765395353885231*^9, 3.765395365632092*^9}, { 3.7729439867489777`*^9, 3.77294399560194*^9}}, CellID->337999680], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OutShuffle", "[", 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, {3.765440781039733*^9, 3.7654407814592123`*^9}}, CellLabel->"In[567]:=", CellID->508737551], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["2", "3"], ",", 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[{"3", "+", RowBox[{"2", " ", "\[ImaginaryI]"}]}], ",", SuperscriptBox["x", "2"], ",", "\<\"Test\"\>", ",", TemplateBox[{"\"Enschede\"",RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Enschede\"", ",", "\"Overijssel\"", ",", "\"Netherlands\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Enschede\\\", \\\"Overijssel\\\", \ \\\"Netherlands\\\"}]\"","\"city\""}, "Entity"]}], "}"}]], "Output", CellChangeTimes->{{3.7653953364643517`*^9, 3.765395343032504*^9}, { 3.7653953912424498`*^9, 3.7653954133083887`*^9}, 3.765397066354764*^9, 3.765440782172359*^9, 3.765442412512459*^9}, CellLabel->"Out[567]=", CellID->129259902] }, 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}, {3.765442420009637*^9, 3.7654424206763*^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[568]:=", 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.765440788529736*^9, 3.765442421859125*^9}, CellLabel->"Out[568]=", CellID->1370880027] }, 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}, {3.765440790150051*^9, 3.765440793950458*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OutShuffle", "[", "deck", "]"}]], "Input", CellChangeTimes->{{3.765395239899317*^9, 3.7653952416204*^9}, { 3.7654407965035057`*^9, 3.765440796908443*^9}}, CellLabel->"In[569]:=", CellID->501540103], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"A\[SpadeSuit]\"\>", ",", "\<\"A\[DiamondSuit]\"\>", ",", "\<\"2\[SpadeSuit]\"\>", ",", "\<\"2\[DiamondSuit]\"\>", ",", "\<\"3\[SpadeSuit]\"\>", ",", "\<\"3\[DiamondSuit]\"\>", ",", "\<\"4\[SpadeSuit]\"\>", ",", "\<\"4\[DiamondSuit]\"\>", ",", "\<\"5\[SpadeSuit]\"\>", ",", "\<\"5\[DiamondSuit]\"\>", ",", "\<\"6\[SpadeSuit]\"\>", ",", "\<\"6\[DiamondSuit]\"\>", ",", "\<\"7\[SpadeSuit]\"\>", ",", "\<\"7\[DiamondSuit]\"\>", ",", "\<\"8\[SpadeSuit]\"\>", ",", "\<\"8\[DiamondSuit]\"\>", ",", "\<\"9\[SpadeSuit]\"\>", ",", "\<\"9\[DiamondSuit]\"\>", ",", "\<\"10\[SpadeSuit]\"\>", ",", "\<\"10\[DiamondSuit]\"\>", ",", "\<\"J\[SpadeSuit]\"\>", ",", "\<\"J\[DiamondSuit]\"\>", ",", "\<\"Q\[SpadeSuit]\"\>", ",", "\<\"Q\[DiamondSuit]\"\>", ",", "\<\"K\[SpadeSuit]\"\>", ",", "\<\"K\[DiamondSuit]\"\>", ",", "\<\"A\[HeartSuit]\"\>", ",", "\<\"A\[ClubSuit]\"\>", ",", "\<\"2\[HeartSuit]\"\>", ",", "\<\"2\[ClubSuit]\"\>", ",", "\<\"3\[HeartSuit]\"\>", ",", "\<\"3\[ClubSuit]\"\>", ",", "\<\"4\[HeartSuit]\"\>", ",", "\<\"4\[ClubSuit]\"\>", ",", "\<\"5\[HeartSuit]\"\>", ",", "\<\"5\[ClubSuit]\"\>", ",", "\<\"6\[HeartSuit]\"\>", ",", "\<\"6\[ClubSuit]\"\>", ",", "\<\"7\[HeartSuit]\"\>", ",", "\<\"7\[ClubSuit]\"\>", ",", "\<\"8\[HeartSuit]\"\>", ",", "\<\"8\[ClubSuit]\"\>", ",", "\<\"9\[HeartSuit]\"\>", ",", "\<\"9\[ClubSuit]\"\>", ",", "\<\"10\[HeartSuit]\"\>", ",", "\<\"10\[ClubSuit]\"\>", ",", "\<\"J\[HeartSuit]\"\>", ",", "\<\"J\[ClubSuit]\"\>", ",", "\<\"Q\[HeartSuit]\"\>", ",", "\<\"Q\[ClubSuit]\"\>", ",", "\<\"K\[HeartSuit]\"\>", ",", "\<\"K\[ClubSuit]\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.7653952425177183`*^9, 3.765395286794938*^9, {3.765395986253709*^9, 3.765395990110701*^9}, 3.7653970792347717`*^9, 3.765440797307184*^9, 3.7654424230086517`*^9}, CellLabel->"Out[569]=", CellID->343115287] }, Open ]], Cell["The original is obtained after only 8 out shuffles:", "Text", CellChangeTimes->{{3.765395256067191*^9, 3.765395301711368*^9}, { 3.7654408078504047`*^9, 3.765440809624078*^9}}, CellID->1001018680], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OutShuffle", "[", RowBox[{"deck", ",", "8"}], "]"}]], "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.765440801015469*^9, 3.765440803612405*^9}, {3.765442427970436*^9, 3.765442433160915*^9}}, CellLabel->"In[571]:=", 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.765440803929819*^9, {3.765442425763669*^9, 3.76544243394489*^9}}, CellLabel->"Out[571]=", CellID->1695100597] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellID->754506620], Cell["\<\ An out shuffle does not change the first and last items for a list of even \ length:\ \>", "Text", CellChangeTimes->{{3.765395549164597*^9, 3.7653955594922028`*^9}, { 3.765398086090567*^9, 3.765398117054894*^9}, {3.765440815915374*^9, 3.765440816224955*^9}, {3.7654408684580708`*^9, 3.765440884118905*^9}, { 3.76544101086721*^9, 3.765441016252882*^9}}, CellID->1000397995], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OutShuffle", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7653955436926203`*^9, 3.7653955443284492`*^9}, { 3.765440820040287*^9, 3.765440842829927*^9}}, CellLabel->"In[572]:=", CellID->1241131825], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "4", ",", "2", ",", "5", ",", "3", ",", "6"}], "}"}]], "Output", CellChangeTimes->{ 3.76539554469363*^9, 3.765397085853554*^9, 3.7653979108719177`*^9, 3.7653981192460003`*^9, {3.76544082096693*^9, 3.765440844664444*^9}, 3.765440886595295*^9, 3.765441018334859*^9, 3.765442464774641*^9}, CellLabel->"Out[572]=", CellID->93327489] }, Open ]], Cell["An out shuffle does not change the first element:", "Text", CellChangeTimes->{{3.765395549164597*^9, 3.7653955594922028`*^9}, { 3.765398086090567*^9, 3.765398117054894*^9}, {3.765440815915374*^9, 3.765440816224955*^9}, {3.7654408684580708`*^9, 3.765440884118905*^9}, { 3.76544101086721*^9, 3.765441060071899*^9}, 3.765442483721991*^9}, CellID->1394182570], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OutShuffle", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7653955436926203`*^9, 3.7653955443284492`*^9}, { 3.765440820040287*^9, 3.765440842829927*^9}, {3.765441049351173*^9, 3.7654410504858294`*^9}}, CellLabel->"In[575]:=", CellID->832381573], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "5", ",", "2", ",", "6", ",", "3", ",", "7", ",", "4"}], "}"}]], "Output", CellChangeTimes->{ 3.76539554469363*^9, 3.765397085853554*^9, 3.7653979108719177`*^9, 3.7653981192460003`*^9, {3.76544082096693*^9, 3.765440844664444*^9}, 3.765440886595295*^9, {3.765441018334859*^9, 3.765441063488161*^9}, { 3.765442473066311*^9, 3.765442485639123*^9}}, CellLabel->"Out[575]=", CellID->2140647006] }, Open ]], Cell["For a list of two, nothing happens:", "Text", CellChangeTimes->{{3.765395549164597*^9, 3.7653955594922028`*^9}, { 3.765398086090567*^9, 3.765398117054894*^9}, {3.765440815915374*^9, 3.765440816224955*^9}, {3.7654408684580708`*^9, 3.765440905603203*^9}, { 3.7729440120802836`*^9, 3.772944014931303*^9}}, CellID->918398070], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OutShuffle", "[", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7654408946162033`*^9, 3.765440894719636*^9}}, CellLabel->"In[576]:=", CellID->1389295449], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]], "Output", CellChangeTimes->{ 3.765440895075161*^9, 3.765441019926835*^9, 3.765441065570588*^9, { 3.7654424748606453`*^9, 3.7654424872704906`*^9}}, CellLabel->"Out[576]=", CellID->2134443186] }, 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->63476947], Cell["\<\ Figure out after how many out shuffles a list of size L 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.765440916863871*^9, 3.765440917166204*^9}}, CellID->1031755412], Cell[BoxData[ RowBox[{ RowBox[{"howManyIterations", "[", "n_", "]"}], ":=", RowBox[{"Length", "[", RowBox[{"NestWhileList", "[", RowBox[{"OutShuffle", ",", RowBox[{"OutShuffle", "@", 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}, {3.765440923012671*^9, 3.76544092556952*^9}}, CellLabel->"In[577]:=", 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.7729440850672197`*^9, 3.7729441018574595`*^9}}, CellID->777291503], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"howManyIterations", "[", RowBox[{"2", "#"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "10", "]"}]}]], "Input", CellLabel->"In[578]:=", CellID->670206393], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "4", ",", "3", ",", "6", ",", "10", ",", "12", ",", "4", ",", "8", ",", "18"}], "}"}]], "Output", CellChangeTimes->{3.765396777924467*^9, 3.765397120582678*^9, 3.76544092992653*^9, 3.765442497265361*^9}, CellLabel->"Out[578]=", CellID->88061753] }, 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}, {3.76544093511331*^9, 3.7654409381952677`*^9}}, CellLabel->"In[579]:=", CellID->488455316], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "4", ",", "3", ",", "6", ",", "10", ",", "12", ",", "4", ",", "8", ",", "18"}], "}"}]], "Output", CellChangeTimes->{{3.765396479506694*^9, 3.765396542013591*^9}, 3.7653967786807203`*^9, {3.765397096741692*^9, 3.765397118293804*^9}, { 3.765440932918779*^9, 3.765440938514477*^9}, 3.765442498272007*^9}, CellLabel->"Out[579]=", CellID->560931993] }, 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->321128408], Cell[TextData[{ "Visualize how the positions of items are changed for a list of length 22 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}, 3.7654412164200487`*^9}, CellID->124154517], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Range", "[", "22", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"edges", "=", RowBox[{"Thread", "[", RowBox[{"t", "->", RowBox[{"Ordering", "[", RowBox[{"OutShuffle", "[", "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}, { 3.765440945634112*^9, 3.765440970489099*^9}, {3.7654411004229517`*^9, 3.765441116702077*^9}, {3.7654411714115133`*^9, 3.76544117211736*^9}, { 3.765441206994853*^9, 3.765441213419345*^9}}, CellLabel->"In[580]:=", CellID->2051972913], Cell[BoxData[ GraphicsBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.021295845168689004`], ArrowBox[BezierCurveBox[{{3.3704127119105967`, -0.7898762907323582}, { 3.281933456442836, -0.9806598231176605}, { 3.0830549789052455`, -1.0370560655782546`}, { 2.955884354430788, -0.9780989868033814}, { 2.955884354430788, -0.6016535946613351}, { 3.0830549789052455`, -0.5426965158864618}, { 3.281933456442836, -0.5990927583470559}, { 3.3704127119105967`, -0.7898762907323582}}, SplineDegree->7], 0.04395708625038919], ArrowBox[{{1.781145727494849, -0.2898762907323582}, { 2.2906601304458802`, -1.1497228825123427`}}, 0.04395708625038919], ArrowBox[{{2.2906601304458802`, -1.1497228825123427`}, { 1.7999768289483147`, -2.020975744247634}}, 0.04395708625038919], ArrowBox[{{1.7999768289483147`, -2.020975744247634}, { 0.7998761659734199, -2.032590798085957}}, 0.04395708625038919], ArrowBox[{{2.8704771307040904`, -3.4697931307885566`}, { 3.3565097934175436`, -4.343733727940094}}, 0.04395708625038919], ArrowBox[{{3.3565097934175436`, -4.343733727940094}, { 3.8703482931171034`, -3.4858467781418727`}}, 0.04395708625038919], ArrowBox[{{0.7998761659734199, -2.032590798085957}, { 0.2898762907323582, -1.1730910649244604`}}, 0.04395708625038919], ArrowBox[{{0.7991347305957568, -4.353939566503477}, { 1.7983542340635084`, -4.343815608813705}}, 0.04395708625038919], ArrowBox[{{1.7983542340635084`, -4.343815608813705}, { 2.2896705185953885`, -3.47328475367863}}, 0.04395708625038919], ArrowBox[{{3.8703482931171034`, -3.4858467781418727`}, { 2.8704771307040904`, -3.4697931307885566`}}, 0.04395708625038919], ArrowBox[BezierCurveBox[{{5.4501652933753135`, -3.0487545179260445`}, { 4.9501652933752744`, -3.2131952651091744`}, { 4.4501652933753135`, -3.0487545179260445`}}], 0.04395708625038919], ArrowBox[BezierCurveBox[{{4.4501652933753135`, -3.0487545179260445`}, { 4.950165293375376, -2.8843137707428887`}, { 5.4501652933753135`, -3.0487545179260445`}}], 0.04395708625038919], ArrowBox[{{0.2898762907323582, -1.1730910649244604`}, { 0.7801494218463003, -0.301579133167432}}, 0.04395708625038919], ArrowBox[{{4.450229712168807, -0.2898762907323582}, { 4.93626237488226, -1.163816887883896}}, 0.04395708625038919], ArrowBox[{{4.93626237488226, -1.163816887883896}, { 5.450100874581819, -0.30592993808567437`}}, 0.04395708625038919], ArrowBox[{{2.2896705185953885`, -3.47328475367863}, { 1.7821245345556154`, -2.6123433795506736`}}, 0.04395708625038919], ArrowBox[{{0.7801494218463003, -0.301579133167432}, { 1.781145727494849, -0.2898762907323582}}, 0.04395708625038919], ArrowBox[{{0.2898762907323582, -3.4924147158882732`}, { 0.7991347305957568, -4.353939566503477}}, 0.04395708625038919], ArrowBox[{{5.450100874581819, -0.30592993808567437`}, { 4.450229712168807, -0.2898762907323582}}, 0.04395708625038919], ArrowBox[{{0.7815234104297686, -2.621294515781792}, { 0.2898762907323582, -3.4924147158882732`}}, 0.04395708625038919], ArrowBox[{{1.7821245345556154`, -2.6123433795506736`}, { 0.7815234104297686, -2.621294515781792}}, 0.04395708625038919], ArrowBox[BezierCurveBox[{{3.3704127119105967`, -2.3798347107604574`}, { 3.281933456442836, -2.5706182431457596`}, { 3.0830549789052455`, -2.6270144856063538`}, { 2.955884354430788, -2.5680574068314805`}, { 2.955884354430788, -2.1916120146894342`}, { 3.0830549789052455`, -2.132654935914561}, { 3.281933456442836, -2.189051178375155}, { 3.3704127119105967`, -2.3798347107604574`}}, SplineDegree->7], 0.04395708625038919]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{3.3704127119105967, -0.7898762907323582}, 0.04395708625038919], InsetBox["1", Offset[{2, 2}, {3.414369798160986, -0.745919204481969}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.781145727494849, -0.2898762907323582}, 0.04395708625038919], InsetBox["2", Offset[{2, 2}, {1.825102813745238, -0.24591920448196902}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2906601304458802, -1.1497228825123427}, 0.04395708625038919], InsetBox["3", Offset[{2, 2}, {2.3346172166962695, -1.1057657962619536}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.7999768289483147, -2.020975744247634}, 0.04395708625038919], InsetBox["5", Offset[{2, 2}, {1.8439339151987038, -1.9770186579972449}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.8704771307040904, -3.4697931307885566}, 0.04395708625038919], InsetBox["4", Offset[{2, 2}, {2.9144342169544797, -3.4258360445381673}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.3565097934175436, -4.343733727940094}, 0.04395708625038919], InsetBox["7", Offset[{2, 2}, {3.400466879667933, -4.299776641689705}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7998761659734199, -2.032590798085957}, 0.04395708625038919], InsetBox["9", Offset[{2, 2}, {0.8438332522238091, -1.988633711835568}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7991347305957568, -4.353939566503477}, 0.04395708625038919], InsetBox["6", Offset[{2, 2}, {0.843091816846146, -4.309982480253088}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.7983542340635084, -4.343815608813705}, 0.04395708625038919], InsetBox["11", Offset[{2, 2}, {1.8423113203138977, -4.299858522563317}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.8703482931171034, -3.4858467781418727}, 0.04395708625038919], InsetBox["13", Offset[{2, 2}, {3.9143053793674927, -3.4418896918914834}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{5.4501652933753135, -3.0487545179260445}, 0.04395708625038919], InsetBox["8", Offset[{2, 2}, {5.494122379625702, -3.004797431675655}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.4501652933753135, -3.0487545179260445}, 0.04395708625038919], InsetBox["15", Offset[{2, 2}, {4.494122379625702, -3.004797431675655}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.2898762907323582, -1.1730910649244604}, 0.04395708625038919], InsetBox["17", Offset[{2, 2}, {0.3338333769827474, -1.129133978674071}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.450229712168807, -0.2898762907323582}, 0.04395708625038919], InsetBox["10", Offset[{2, 2}, {4.494186798419196, -0.24591920448196902}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.93626237488226, -1.163816887883896}, 0.04395708625038919], InsetBox["19", Offset[{2, 2}, {4.9802194611326485, -1.1198598016335066}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2896705185953885, -3.47328475367863}, 0.04395708625038919], InsetBox["21", Offset[{2, 2}, {2.333627604845778, -3.429327667428241}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7801494218463003, -0.301579133167432}, 0.04395708625038919], InsetBox["12", Offset[{2, 2}, {0.8241065080966895, -0.2576220469170428}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.2898762907323582, -3.4924147158882732}, 0.04395708625038919], InsetBox["14", Offset[{2, 2}, {0.3338333769827474, -3.448457629637884}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{5.450100874581819, -0.30592993808567437}, 0.04395708625038919], InsetBox["16", Offset[{2, 2}, {5.494057960832208, -0.2619728518352852}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7815234104297686, -2.621294515781792}, 0.04395708625038919], InsetBox["18", Offset[{2, 2}, {0.8254804966801578, -2.577337429531403}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.7821245345556154, -2.6123433795506736}, 0.04395708625038919], InsetBox["20", Offset[{2, 2}, {1.8260816208060047, -2.5683862933002843}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.3704127119105967, -2.3798347107604574}, 0.04395708625038919], InsetBox["22", Offset[{2, 2}, {3.414369798160986, -2.335877624510068}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}, FormatType->TraditionalForm, FrameTicks->None]], "Input", CellChangeTimes->{{3.765442622690939*^9, 3.765442622706764*^9}}, CellID->1141734264], Cell["\<\ Confirm that six nested out shuffles return the list of 22 items to the \ original order:\ \>", "Text", CellChangeTimes->{{3.7653978331836557`*^9, 3.7653978619778843`*^9}, { 3.76544124107334*^9, 3.765441243144368*^9}, {3.772944059551984*^9, 3.7729440598278913`*^9}, 3.772944213086901*^9}, CellID->1636173961], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Range", "[", "22", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"edges", "=", RowBox[{"Thread", "[", RowBox[{"t", "->", RowBox[{"Ordering", "[", RowBox[{"OutShuffle", "[", RowBox[{"t", ",", "6"}], "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Graph", "[", RowBox[{"edges", ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.7653978639166183`*^9, 3.765397864151717*^9}, { 3.765441239779031*^9, 3.765441246395269*^9}}, CellLabel->"In[583]:=", CellID->1863134646], Cell[BoxData[ GraphicsBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.032857252776741355`], ArrowBox[BezierCurveBox[{{0.15001000000000006`, -1.0500700000000003`}, { 0.13231414890644794`, -1.0882267064770608`}, { 0.09253845339892978, -1.0995059549691795`}, { 0.06710432850403833, -1.087714539214205}, { 0.06710432850403832, -1.0124254607857957`}, { 0.09253845339892978, -1.000634045030821}, { 0.13231414890644794`, -1.0119132935229398`}, { 0.15001000000000006`, -1.0500700000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.7500500000000071, -0.7500500000000003}, { 0.7323541489064549, -0.7882067064770608}, { 0.6925784533989368, -0.7994859549691796}, { 0.6671443285040454, -0.787694539214205}, { 0.6671443285040453, -0.7124054607857957}, { 0.6925784533989368, -0.700614045030821}, { 0.7323541489064549, -0.7118932935229398}, { 0.7500500000000071, -0.7500500000000003}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.750050000000007, -0.15001000000000006`}, { 0.7323541489064549, -0.18816670647706052`}, { 0.6925784533989366, -0.19944595496917933`}, { 0.6671443285040453, -0.1876545392142047}, { 0.6671443285040453, -0.11236546078579543`}, { 0.6925784533989366, -0.10057404503082078`}, { 0.7323541489064548, -0.11185329352293959`}, { 0.750050000000007, -0.15001000000000006`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.750050000000007, -0.45003000000000015`}, { 0.7323541489064549, -0.48818670647706064`}, { 0.6925784533989366, -0.49946595496917945`}, { 0.6671443285040453, -0.4876745392142048}, { 0.6671443285040453, -0.4123854607857955}, { 0.6925784533989366, -0.40059404503082086`}, { 0.7323541489064548, -0.41187329352293967`}, { 0.750050000000007, -0.45003000000000015`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.4500300000000026, -1.0500700000000003`}, { 0.4323341489064505, -1.0882267064770608`}, { 0.3925584533989323, -1.0995059549691795`}, { 0.36712432850404086`, -1.087714539214205}, { 0.36712432850404086`, -1.0124254607857957`}, { 0.3925584533989323, -1.000634045030821}, { 0.4323341489064505, -1.0119132935229398`}, { 0.4500300000000026, -1.0500700000000003`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.350090000000007, -0.15001000000000006`}, { 1.3323941489064548`, -0.18816670647706052`}, { 1.2926184533989367`, -0.19944595496917933`}, { 1.2671843285040452`, -0.1876545392142047}, { 1.2671843285040452`, -0.11236546078579543`}, { 1.2926184533989367`, -0.10057404503082078`}, { 1.3323941489064548`, -0.11185329352293959`}, { 1.350090000000007, -0.15001000000000006`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.0500700000000052`, -1.3500900000000005`}, { 1.032374148906453, -1.388246706477061}, { 0.9925984533989348, -1.3995259549691796`}, { 0.9671643285040434, -1.387734539214205}, { 0.9671643285040434, -1.3124454607857958`}, { 0.9925984533989348, -1.3006540450308213`}, { 1.032374148906453, -1.31193329352294}, { 1.0500700000000052`, -1.3500900000000005`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.7500500000000034, -1.3500900000000005`}, { 0.7323541489064513, -1.388246706477061}, { 0.6925784533989331, -1.3995259549691796`}, { 0.6671443285040417, -1.387734539214205}, { 0.6671443285040417, -1.3124454607857958`}, { 0.6925784533989331, -1.3006540450308213`}, { 0.7323541489064512, -1.31193329352294}, { 0.7500500000000034, -1.3500900000000005`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.4500300000000017, -1.3500900000000005`}, { 0.4323341489064496, -1.388246706477061}, { 0.3925584533989314, -1.3995259549691796`}, { 0.36712432850404, -1.387734539214205}, { 0.36712432850404, -1.3124454607857958`}, { 0.3925584533989314, -1.3006540450308213`}, { 0.4323341489064496, -1.31193329352294}, { 0.4500300000000017, -1.3500900000000005`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.350090000000007, -0.9000600000000004}, { 1.3323941489064548`, -0.9382167064770609}, { 1.2926184533989367`, -0.9494959549691797}, { 1.2671843285040452`, -0.937704539214205}, { 1.2671843285040452`, -0.8624154607857958}, { 1.2926184533989367`, -0.8506240450308211}, { 1.3323941489064548`, -0.8619032935229399}, { 1.350090000000007, -0.9000600000000004}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15000999999999998`, -1.3500900000000005`}, { 0.13231414890644788`, -1.388246706477061}, { 0.0925384533989297, -1.3995259549691796`}, { 0.06710432850403825, -1.387734539214205}, { 0.06710432850403823, -1.3124454607857958`}, { 0.0925384533989297, -1.3006540450308213`}, { 0.13231414890644785`, -1.31193329352294}, { 0.15000999999999998`, -1.3500900000000005`}}, 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.15001000000000006`}, { 1.0323741489064548`, -0.18816670647706052`}, { 0.9925984533989366, -0.19944595496917933`}, { 0.9671643285040452, -0.1876545392142047}, { 0.9671643285040452, -0.11236546078579543`}, { 0.9925984533989366, -0.10057404503082078`}, { 1.0323741489064548`, -0.11185329352293959`}, { 1.050070000000007, -0.15001000000000006`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.050070000000007, -0.45003000000000015`}, { 1.0323741489064548`, -0.48818670647706064`}, { 0.9925984533989366, -0.49946595496917945`}, { 0.9671643285040452, -0.4876745392142048}, { 0.9671643285040452, -0.4123854607857955}, { 0.9925984533989366, -0.40059404503082086`}, { 1.0323741489064548`, -0.41187329352293967`}, { 1.050070000000007, -0.45003000000000015`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{1.050070000000007, -0.7500500000000003}, { 1.0323741489064548`, -0.7882067064770608}, { 0.9925984533989366, -0.7994859549691796}, { 0.9671643285040452, -0.787694539214205}, { 0.9671643285040452, -0.7124054607857957}, { 0.9925984533989366, -0.700614045030821}, { 1.0323741489064548`, -0.7118932935229398}, { 1.050070000000007, -0.7500500000000003}}, 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.45003000000000526`, -0.7500500000000003}, { 0.43233414890645316`, -0.7882067064770608}, { 0.39255845339893497`, -0.7994859549691796}, { 0.36712432850404353`, -0.787694539214205}, { 0.36712432850404353`, -0.7124054607857957}, { 0.39255845339893497`, -0.700614045030821}, { 0.43233414890645316`, -0.7118932935229398}, { 0.45003000000000526`, -0.7500500000000003}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15001000000000175`, -0.15001000000000006`}, { 0.13231414890644966`, -0.18816670647706052`}, { 0.09253845339893148, -0.19944595496917933`}, { 0.06710432850404002, -0.1876545392142047}, { 0.06710432850404001, -0.11236546078579543`}, { 0.09253845339893148, -0.10057404503082078`}, { 0.13231414890644963`, -0.11185329352293959`}, { 0.15001000000000175`, -0.15001000000000006`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15001000000000175`, -0.7500500000000003}, { 0.13231414890644966`, -0.7882067064770608}, { 0.09253845339893148, -0.7994859549691796}, { 0.06710432850404002, -0.787694539214205}, { 0.06710432850404001, -0.7124054607857957}, { 0.09253845339893148, -0.700614045030821}, { 0.13231414890644963`, -0.7118932935229398}, { 0.15001000000000175`, -0.7500500000000003}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.45003000000000526`, -0.45003000000000015`}, { 0.43233414890645316`, -0.48818670647706064`}, { 0.39255845339893497`, -0.49946595496917945`}, { 0.36712432850404353`, -0.4876745392142048}, { 0.36712432850404353`, -0.4123854607857955}, { 0.39255845339893497`, -0.40059404503082086`}, { 0.43233414890645316`, -0.41187329352293967`}, { 0.45003000000000526`, -0.45003000000000015`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.45003000000000526`, -0.15001000000000006`}, { 0.43233414890645316`, -0.18816670647706052`}, { 0.39255845339893497`, -0.19944595496917933`}, { 0.36712432850404353`, -0.1876545392142047}, { 0.36712432850404353`, -0.11236546078579543`}, { 0.39255845339893497`, -0.10057404503082078`}, { 0.43233414890645316`, -0.11185329352293959`}, { 0.45003000000000526`, -0.15001000000000006`}}, SplineDegree->7], 0.015772532764924796`], ArrowBox[BezierCurveBox[{{0.15001000000000175`, -0.45003000000000015`}, { 0.13231414890644966`, -0.48818670647706064`}, { 0.09253845339893148, -0.49946595496917945`}, { 0.06710432850404002, -0.4876745392142048}, { 0.06710432850404001, -0.4123854607857955}, { 0.09253845339893148, -0.40059404503082086`}, { 0.13231414890644963`, -0.41187329352293967`}, { 0.15001000000000175`, -0.45003000000000015`}}, SplineDegree->7], 0.015772532764924796`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{0.15001000000000006, -1.0500700000000003}, 0.015772532764924796], InsetBox["1", Offset[{2, 2}, {0.16578253276492486, -1.0342974672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7500500000000071, -0.7500500000000003}, 0.015772532764924796], InsetBox["2", Offset[{2, 2}, {0.765822532764932, -0.7342774672350756}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.750050000000007, -0.15001000000000006}, 0.015772532764924796], InsetBox["3", Offset[{2, 2}, {0.7658225327649317, -0.13423746723507526}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.750050000000007, -0.45003000000000015}, 0.015772532764924796], InsetBox["4", Offset[{2, 2}, {0.7658225327649317, -0.43425746723507536}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.4500300000000026, -1.0500700000000003}, 0.015772532764924796], InsetBox["5", Offset[{2, 2}, {0.4658025327649274, -1.0342974672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.350090000000007, -0.15001000000000006}, 0.015772532764924796], InsetBox["6", Offset[{2, 2}, {1.3658625327649316, -0.13423746723507526}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.0500700000000052, -1.3500900000000005}, 0.015772532764924796], InsetBox["7", Offset[{2, 2}, {1.06584253276493, -1.3343174672350757}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7500500000000034, -1.3500900000000005}, 0.015772532764924796], InsetBox["8", Offset[{2, 2}, {0.7658225327649282, -1.3343174672350757}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.4500300000000017, -1.3500900000000005}, 0.015772532764924796], InsetBox["9", Offset[{2, 2}, {0.4658025327649265, -1.3343174672350757}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.350090000000007, -0.9000600000000004}, 0.015772532764924796], InsetBox["10", Offset[{2, 2}, {1.3658625327649316, -0.8842874672350756}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15000999999999998, -1.3500900000000005}, 0.015772532764924796], InsetBox["11", Offset[{2, 2}, {0.16578253276492477, -1.3343174672350757}], 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.15001000000000006}, 0.015772532764924796], InsetBox["13", Offset[{2, 2}, {1.0658425327649317, -0.13423746723507526}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.050070000000007, -0.45003000000000015}, 0.015772532764924796], InsetBox["14", Offset[{2, 2}, {1.0658425327649317, -0.43425746723507536}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.050070000000007, -0.7500500000000003}, 0.015772532764924796], InsetBox["15", Offset[{2, 2}, {1.0658425327649317, -0.7342774672350756}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.050070000000007, -1.0500700000000003}, 0.015772532764924796], InsetBox["16", Offset[{2, 2}, {1.0658425327649317, -1.0342974672350755}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.45003000000000526, -0.7500500000000003}, 0.015772532764924796], InsetBox["17", Offset[{2, 2}, {0.46580253276493006, -0.7342774672350756}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15001000000000175, -0.15001000000000006}, 0.015772532764924796], InsetBox["18", Offset[{2, 2}, {0.16578253276492655, -0.13423746723507526}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15001000000000175, -0.7500500000000003}, 0.015772532764924796], InsetBox["19", Offset[{2, 2}, {0.16578253276492655, -0.7342774672350756}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.45003000000000526, -0.45003000000000015}, 0.015772532764924796], InsetBox["20", Offset[{2, 2}, {0.46580253276493006, -0.43425746723507536}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.45003000000000526, -0.15001000000000006}, 0.015772532764924796], InsetBox["21", Offset[{2, 2}, {0.46580253276493006, -0.13423746723507526}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.15001000000000175, -0.45003000000000015}, 0.015772532764924796], InsetBox["22", Offset[{2, 2}, {0.16578253276492655, -0.43425746723507536}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}, FormatType->TraditionalForm, FrameTicks->None]], "Input", CellChangeTimes->{{3.765442625495359*^9, 3.7654426255123777`*^9}}, CellID->1295357382] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", CellID->92483860], Cell["Zero iterations returns the original list:", "Text", CellChangeTimes->{{3.765396910579115*^9, 3.7653969462393*^9}, { 3.7729441577339087`*^9, 3.772944161944461*^9}, 3.7729442071009483`*^9}, CellID->1957072080], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OutShuffle", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "0"}], "]"}]], "Input", CellChangeTimes->{ 3.765396898436646*^9, {3.7653969853362713`*^9, 3.765396988346253*^9}, { 3.765441261332878*^9, 3.7654412616984863`*^9}}, CellLabel->"In[586]:=", 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.765441262451816*^9, 3.76544250859863*^9}, CellLabel->"Out[586]=", CellID->1816513088] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", CellID->540091361], Cell["\<\ Plot how many out shuffles are needed to return to the original order for a \ list of length L:\ \>", "Text", CellChangeTimes->{{3.7653956536834803`*^9, 3.765395666241117*^9}, { 3.7653962938226852`*^9, 3.7653963043456917`*^9}, {3.765396805669392*^9, 3.765396860458777*^9}, {3.765441271528058*^9, 3.765441271826326*^9}}, CellID->1086514322], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"howManyIterations", "[", "n_", "]"}], ":=", RowBox[{"Length", "[", RowBox[{"NestWhileList", "[", RowBox[{"OutShuffle", ",", RowBox[{"OutShuffle", "@", RowBox[{"Range", "[", "n", "]"}]}], ",", RowBox[{ RowBox[{"#", "=!=", RowBox[{"Range", "[", "n", "]"}]}], "&"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"howManyIterations", "[", "i", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "300"}], "}"}]}], "]"}]}], ";"}], "\[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}, { 3.765441277436178*^9, 3.7654412810379133`*^9}, {3.765441344190259*^9, 3.765441374013999*^9}, {3.765441426468513*^9, 3.765441432652521*^9}, { 3.765441587317535*^9, 3.765441604203395*^9}}, CellLabel->"In[587]:=", CellID->1602524722], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxd10uSFUUUxvHSkcMeOHDAIDUMwzAIo/H9QEkv4gMFr4gPGoSkpQER5coK zhJ6CbmEXkIugSXkEnoJhuH5l/F9Pan4ncjOW1l56uSplw+fXDt6flmWs88t y7/X//5OL+h1qeoXqsb3zC9a/CXzmarzFPMr9n+vml+z+OvmNyx+1vym3c++ +Zzd11vmty3+jvldu9/3zO/bOj4wf2jzfmT+2H7vvPkTi39qvpBX9qmqA/M8 P1MH5nlu1LGx+EV1XNTxy+f2/5j1XlIHZl+/UAdm/i9tfsw+fKUOzD5+rQ5M PlxWx2WLf6MOzPq+VQdmP6+o44rFr6rjqsW/UwcmH7fqinle5rG1+Pfqmibv wzwYTx5dU9c0dSDMA/P8flBXnHkf5pFe8/C6uqbZtzCP6xb/UV3Taz6YB+Z9 /EldcdaDMA9Mfv+srpj31TzwJq+/qCvO9yDMA1NXbqjrDY2HeRDnPTpQ1wNd T5jHgcVvqutNXU+Yh3m5pa449yPMA1NnflVXzP2bB6bu31bX23rfYR6MJ//v qCvmOZsH5hxu6oKznlZzaxoPc2d81qthnniT17vqgrNOVHO7q/Ewd8ZnnR/m iamPh+qCeR/NDec5FOZ+qPFhnoynD/lNXTD5YG6Y88LccZ43wzzNyz11SdMH VHO7Z3FzZ768n2GeaerocqQuR7quam7p9Tw09yOND/NkPPt/X11wnqfV3O5r PMzd4sM87feWB/b7eJPzmhvOPinMHfP+mWd6PQceqkuac6GaG6a+mftDjQ/z JM458ru6pNd+wtzS67lr7pj8M0+bb3mkLjjP2Wpujyxu7sSzXg3zTK/n/x/q grMeVHPD5L+546wXwzzTa5/+WF3S5GM1t8caD3NnfPZZwzwx/cOf6oLzO6aa G858DXNP0/cN80yv5/Bf6pJe66+5pdf6Z+6Mz3wc5ok3eX2iLum1nzQ3xme/ FObOePoF82Q83y879R7O7+Ji3sd5v9W8xbneZt6l6SPCfMz4PI+6+QTzPWF+ ttP4NJ8Spw/5W72Xpp4V8z6m3zJvceZjM+8w3yfm4zT1optPcM43zM+Yb5Pr Mp9izp+n6j2cfVIx7+P8Hqjm7VONN/OO8fm+hfk4Tb3t5hOc+zX+9z+PA+UV "]]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334], 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]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 300.}, {0, 292.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.765441608429357*^9, 3.765442516942526*^9}, CellLabel->"Out[589]=", CellID->266618201] }, 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"], Cell["perfect 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["InShuffle", "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["Out-Shuffle\[Dash]Wolfram MathWorld", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/Out-Shuffle.html"], None}, ButtonNote->"http://mathworld.wolfram.com/Out-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, 47, 1, 70, "Title",ExpressionUUID->"5c84f62b-ffb4-46b2-b90f-a821671bf3b8", CellTags->"Title"]}, "Description"->{ Cell[608, 23, 74, 1, 70, "Text",ExpressionUUID->"392c7712-73ad-4616-9d65-138ed035b814", CellTags->"Description"]}, "Definition"->{ Cell[707, 28, 887, 21, 70, "Section",ExpressionUUID->"186dee59-89d7-4522-8863-f1df618769b0", CellTags->"Definition", CellID->474513213]}, "Documentation"->{ Cell[2255, 73, 99, 3, 70, "Section",ExpressionUUID->"0af10fa8-b015-4323-989b-2736d01da1d5", CellTags->"Documentation", CellID->855965831]}, "Usage"->{ Cell[2379, 80, 1615, 42, 70, "Subsection",ExpressionUUID->"3607c0c3-0ccc-47aa-a964-9bd1f149f593", CellTags->"Usage", CellID->310800389]}, "Details & Options"->{ Cell[4769, 163, 1131, 24, 70, "Subsection",ExpressionUUID->"3bfc16e6-7088-428c-b857-830429c59c25", CellTags->"Details & Options", CellID->66019318]}, "TabNext"->{ Cell[5903, 189, 313, 8, 70, "Notes",ExpressionUUID->"0e66c09f-c62f-4dfd-9f25-fe2ad535321b", CellTags->"TabNext", CellID->521904482], Cell[114633, 2707, 509, 8, 70, "Text",ExpressionUUID->"665dc292-d5d9-484e-a69b-1de4ffa153f5", CellTags->"TabNext", CellID->567921317], Cell[115902, 2741, 495, 8, 70, "Text",ExpressionUUID->"5d02fa5b-c5c2-451c-9680-ba5c0771dcbd", CellTags->"TabNext", CellID->920818074]}, "Nothing"->{ Cell[6219, 199, 184, 6, 70, "Notes",ExpressionUUID->"8f4840bd-1793-4fd5-8b68-9df37322828b", CellTags->"Nothing", CellID->33647561], Cell[6406, 207, 9702, 209, 70, "Input",ExpressionUUID->"d4238509-0f1a-4358-a3c7-e7e751218ebb", CellTags->"Nothing", CellID->404640239], Cell[16111, 418, 648, 24, 70, "Notes",ExpressionUUID->"5335c41c-2605-43fe-8d5a-2771b9e2a8d4", CellTags->"Nothing", CellID->36406387], Cell[16762, 444, 8749, 189, 70, "Input",ExpressionUUID->"a5d4ddc9-8324-4e50-86f6-06e2fd2790d6", CellTags->"Nothing", CellID->128790269]}, "Examples"->{ Cell[25548, 638, 6400, 143, 70, "Section",ExpressionUUID->"c32f0521-204b-49f5-9a65-05465757ff56", CellTags->"Examples", CellID->180595041]}, "Source & Additional Information"->{ Cell[107757, 2469, 135, 3, 70, "Section",ExpressionUUID->"c337ce0e-9758-4322-9fc3-aa1611382fbd", CellTags->"Source & Additional Information", CellID->318391102]}, "Contributed By"->{ Cell[107917, 2476, 683, 18, 70, "Subsection",ExpressionUUID->"646ecc3c-e78a-4b64-b841-d2f97886932c", CellTags->"Contributed By", CellID->127820888]}, "Keywords"->{ Cell[108670, 2501, 684, 18, 70, "Subsection",ExpressionUUID->"3a52d65a-03a5-4cb0-bedc-de3b5e74ece8", CellTags->"Keywords", CellID->547400482]}, "Categories"->{ Cell[109523, 2532, 126, 4, 70, "Subsection",ExpressionUUID->"6d0aa009-596c-48aa-8318-f0ec38fb596c", CellTags->"Categories", CellID->749076926]}, "Related Symbols"->{ Cell[109764, 2545, 661, 18, 70, "Subsection",ExpressionUUID->"bddb1171-8924-40a1-bda8-24cd46ee5202", CellTags->"Related Symbols", CellID->161079978]}, "Related Resource Objects"->{ Cell[110553, 2574, 711, 18, 70, "Subsection",ExpressionUUID->"e6ed145f-cd15-4bc4-af92-69395d0584cd", CellTags->"Related Resource Objects", CellID->588449267]}, "Source/Reference Citation"->{ Cell[111329, 2599, 762, 19, 70, "Subsection",ExpressionUUID->"609c2d03-ce62-4f8d-aa0f-c7fc8557dce6", CellTags->"Source/Reference Citation", CellID->642091068]}, "Links"->{ Cell[112533, 2632, 614, 18, 70, "Subsection",ExpressionUUID->"d1b59146-acc3-4b8a-b663-d77c3a893ddf", CellTags->"Links", CellID->521525586]}, "Tests"->{ Cell[113425, 2661, 767, 20, 70, "Subsection",ExpressionUUID->"6c09004a-1c5f-4d85-bbf2-b89b2fd778ab", CellTags->"Tests", CellID->74308299]}, "Author Notes"->{ Cell[114503, 2701, 127, 4, 70, "Section",ExpressionUUID->"4dd14308-f039-4b54-907e-0e208ef9fc09", CellTags->"Author Notes", CellID->795110225]}, "Submission Notes"->{ Cell[115179, 2720, 720, 19, 70, "Section",ExpressionUUID->"920a75f9-7eb8-4da9-9404-0eeb9d30fb14", CellTags->"Submission Notes", CellID->843283583]} } *) (*CellTagsIndex CellTagsIndex->{ {"Title", 187373, 4117}, {"Description", 187506, 4120}, {"Definition", 187643, 4123}, {"Documentation", 187809, 4127}, {"Usage", 187969, 4131}, {"Details & Options", 188139, 4135}, {"TabNext", 188311, 4139}, {"Nothing", 188753, 4149}, {"Examples", 189340, 4162}, {"Source & Additional Information", 189527, 4166}, {"Contributed By", 189719, 4170}, {"Keywords", 189892, 4174}, {"Categories", 190061, 4178}, {"Related Symbols", 190236, 4182}, {"Related Resource Objects", 190426, 4186}, {"Source/Reference Citation", 190626, 4190}, {"Links", 190807, 4194}, {"Tests", 190968, 4198}, {"Author Notes", 191135, 4202}, {"Submission Notes", 191310, 4206} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 47, 1, 70, "Title",ExpressionUUID->"5c84f62b-ffb4-46b2-b90f-a821671bf3b8", CellTags->"Title"], Cell[608, 23, 74, 1, 70, "Text",ExpressionUUID->"392c7712-73ad-4616-9d65-138ed035b814", CellTags->"Description"], Cell[CellGroupData[{ Cell[707, 28, 887, 21, 70, "Section",ExpressionUUID->"186dee59-89d7-4522-8863-f1df618769b0", CellTags->"Definition", CellID->474513213], Cell[1597, 51, 643, 19, 70, "Input",ExpressionUUID->"009fad15-3003-4694-9ebb-8b5ed3fe9097", InitializationCell->True] }, Open ]], Cell[2255, 73, 99, 3, 70, "Section",ExpressionUUID->"0af10fa8-b015-4323-989b-2736d01da1d5", CellTags->"Documentation", CellID->855965831], Cell[CellGroupData[{ Cell[2379, 80, 1615, 42, 70, "Subsection",ExpressionUUID->"3607c0c3-0ccc-47aa-a964-9bd1f149f593", CellTags->"Usage", CellID->310800389], Cell[CellGroupData[{ Cell[4019, 126, 91, 2, 70, "UsageInputs",ExpressionUUID->"380a77bf-99e7-4acd-a758-52f64bff981c"], Cell[4113, 130, 169, 6, 70, "UsageDescription",ExpressionUUID->"8732784d-0161-4f89-b78e-beb9c7686ee7"] }, Open ]], Cell[CellGroupData[{ Cell[4319, 141, 135, 4, 70, "UsageInputs",ExpressionUUID->"aeeab8fb-41f0-41c3-8365-bdf31ad40ac5"], Cell[4457, 147, 263, 10, 70, "UsageDescription",ExpressionUUID->"92dd02ac-4f9e-4c52-a650-4753dba849f4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4769, 163, 1131, 24, 70, "Subsection",ExpressionUUID->"3bfc16e6-7088-428c-b857-830429c59c25", CellTags->"Details & Options", CellID->66019318], Cell[5903, 189, 313, 8, 70, "Notes",ExpressionUUID->"0e66c09f-c62f-4dfd-9f25-fe2ad535321b", CellTags->"TabNext", CellID->521904482], Cell[6219, 199, 184, 6, 70, "Notes",ExpressionUUID->"8f4840bd-1793-4fd5-8b68-9df37322828b", CellTags->"Nothing", CellID->33647561], Cell[6406, 207, 9702, 209, 70, "Input",ExpressionUUID->"d4238509-0f1a-4358-a3c7-e7e751218ebb", CellTags->"Nothing", CellID->404640239], Cell[16111, 418, 648, 24, 70, "Notes",ExpressionUUID->"5335c41c-2605-43fe-8d5a-2771b9e2a8d4", CellTags->"Nothing", CellID->36406387], Cell[16762, 444, 8749, 189, 70, "Input",ExpressionUUID->"a5d4ddc9-8324-4e50-86f6-06e2fd2790d6", CellTags->"Nothing", CellID->128790269] }, Open ]], Cell[CellGroupData[{ Cell[25548, 638, 6400, 143, 70, "Section",ExpressionUUID->"c32f0521-204b-49f5-9a65-05465757ff56", CellTags->"Examples", CellID->180595041], Cell[CellGroupData[{ Cell[31973, 785, 56, 1, 70, "Subsection",ExpressionUUID->"66e1c7cf-8302-45b1-9981-9e50cdf86924", CellID->462042388], Cell[32032, 788, 199, 3, 70, "Text",ExpressionUUID->"7b0a73a0-b0ab-45f2-a122-6a0ac6da9305", CellID->13078159], Cell[CellGroupData[{ Cell[32256, 795, 307, 7, 70, "Input",ExpressionUUID->"2bcd6635-1861-4004-9580-065346a6682a", CellID->443871870], Cell[32566, 804, 319, 8, 70, "Output",ExpressionUUID->"caf08d4a-7466-4dd7-860d-33de6618bb13", CellID->556949303] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32934, 818, 47, 1, 70, "Subsection",ExpressionUUID->"ddfb8da4-1bc6-4aa7-9b23-174ed7e75606", CellID->964056545], Cell[32984, 821, 192, 3, 70, "Text",ExpressionUUID->"beff6427-1cc1-47c7-b43b-580a11349e6e", CellID->501929943], Cell[CellGroupData[{ Cell[33201, 828, 377, 8, 70, "Input",ExpressionUUID->"73a7830e-2273-499a-b115-6f29ae6d4392", CellID->503311441], Cell[33581, 838, 398, 10, 70, "Output",ExpressionUUID->"2d261231-3203-4585-bd2a-2ec82e05f6bb", CellID->1413799626] }, Open ]], Cell[33994, 851, 134, 2, 70, "Text",ExpressionUUID->"9cea9800-8195-4ec7-9e7a-0e65502a012d", CellID->411814321], Cell[CellGroupData[{ Cell[34153, 857, 337, 8, 70, "Input",ExpressionUUID->"52b29969-ad71-4882-9487-9047d7412d64", CellID->448269952], Cell[34493, 867, 343, 8, 70, "Output",ExpressionUUID->"39ea0963-d387-45b7-8f86-75510b6c5f65", CellID->845508655] }, Open ]], Cell[CellGroupData[{ Cell[34873, 880, 564, 18, 70, "ExampleDelimiter",ExpressionUUID->"585ed164-a356-4a3a-ab3d-f35152c2eb4d", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->70897752], Cell[35440, 900, 204, 3, 70, "Text",ExpressionUUID->"8a894bce-323a-4305-b828-720388f4e6af", CellID->337999680], Cell[CellGroupData[{ Cell[35669, 907, 11637, 215, 70, "Input",ExpressionUUID->"fabdf358-cb35-42b5-a72b-5b96a384809e", CellID->508737551], Cell[47309, 1124, 11607, 215, 70, "Output",ExpressionUUID->"88c04513-9fc7-4d6f-81c8-f45038dcdf4f", CellID->129259902] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[58977, 1346, 54, 1, 70, "Subsection",ExpressionUUID->"e97e05eb-0d10-4caf-96de-70d2f85c5b52", CellID->568056528], Cell[59034, 1349, 233, 4, 70, "Text",ExpressionUUID->"ce988150-8a44-401b-926c-92860653de11", CellID->1475016469], Cell[CellGroupData[{ Cell[59292, 1357, 875, 23, 70, "Input",ExpressionUUID->"ac787ea5-938f-41cd-92f4-841d0e8b50a8", CellID->1688074145], Cell[60170, 1382, 1912, 32, 70, "Output",ExpressionUUID->"5e57e389-688a-4cde-b980-e6dd343a5cdd", CellID->1370880027] }, Open ]], Cell[62097, 1417, 270, 4, 70, "Text",ExpressionUUID->"4cb60ae8-d5ee-4306-982a-0c423a8a0fd2", CellID->649685796], Cell[CellGroupData[{ Cell[62392, 1425, 226, 5, 70, "Input",ExpressionUUID->"6708160b-ab2c-47d2-9075-ca7edbd8935b", CellID->501540103], Cell[62621, 1432, 1971, 34, 70, "Output",ExpressionUUID->"f6ffd7d0-ac58-4094-9825-e4bae1a78a7e", CellID->343115287] }, Open ]], Cell[64607, 1469, 205, 3, 70, "Text",ExpressionUUID->"aa952798-6a12-490a-a395-61746117e941", CellID->1001018680], Cell[CellGroupData[{ Cell[64837, 1476, 498, 9, 70, "Input",ExpressionUUID->"a7099a21-ecfc-4618-bee4-344998ae1074", CellID->836153427], Cell[65338, 1487, 2113, 36, 70, "Output",ExpressionUUID->"7f143a45-3afa-4a35-9538-d4dc773f7883", CellID->1695100597] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[67500, 1529, 66, 1, 70, "Subsection",ExpressionUUID->"663d95b9-df90-47c6-9852-88ca5dd01f4c", CellID->754506620], Cell[67569, 1532, 391, 8, 70, "Text",ExpressionUUID->"9bb70ba7-f022-4e18-a5d9-711397265653", CellID->1000397995], Cell[CellGroupData[{ Cell[67985, 1544, 318, 8, 70, "Input",ExpressionUUID->"dde7669a-5652-4e0d-9868-b9c4fc63bbcd", CellID->1241131825], Cell[68306, 1554, 393, 9, 70, "Output",ExpressionUUID->"bc5d2577-c6dd-4d40-bd0f-7f33ee72ce92", CellID->93327489] }, Open ]], Cell[68714, 1566, 373, 5, 70, "Text",ExpressionUUID->"57577565-26e1-4494-bb0f-d674a238de41", CellID->1394182570], Cell[CellGroupData[{ Cell[69112, 1575, 379, 9, 70, "Input",ExpressionUUID->"706c9cea-a36b-45cf-8b40-6c16380e0018", CellID->832381573], Cell[69494, 1586, 457, 10, 70, "Output",ExpressionUUID->"2c849341-1194-4ddc-af1e-b386981213a9", CellID->2140647006] }, Open ]], Cell[69966, 1599, 336, 5, 70, "Text",ExpressionUUID->"a7663b72-df6c-46ee-aa7b-62ebbf6d8d1f", CellID->918398070], Cell[CellGroupData[{ Cell[70327, 1608, 224, 6, 70, "Input",ExpressionUUID->"9795dcbe-fc42-442b-ad66-402a2efda434", CellID->1389295449], Cell[70554, 1616, 262, 7, 70, "Output",ExpressionUUID->"396fa26a-6af0-4c0f-93c7-b9f350d902d8", CellID->2134443186] }, Open ]], Cell[CellGroupData[{ Cell[70853, 1628, 564, 18, 70, "ExampleDelimiter",ExpressionUUID->"bbfd9620-e76b-4c7d-808f-55a769cbd4c9", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->63476947], Cell[71420, 1648, 379, 8, 70, "Text",ExpressionUUID->"afd54611-5c68-4570-9c64-13aa5af25228", CellID->1031755412], Cell[71802, 1658, 731, 17, 70, "Input",ExpressionUUID->"df7873dc-6689-48bd-84de-57b10f0dfb2f", CellID->519299187], Cell[72536, 1677, 270, 6, 70, "Text",ExpressionUUID->"dabbf49d-7178-490b-8eaa-718b08ad87ee", CellID->777291503], Cell[CellGroupData[{ Cell[72831, 1687, 211, 7, 70, "Input",ExpressionUUID->"ad574d9f-e8c5-4cc6-a9b7-8c0b96973f6f", CellID->670206393], Cell[73045, 1696, 317, 8, 70, "Output",ExpressionUUID->"62726c0a-f6aa-49e7-893d-34cc2bf85806", CellID->88061753] }, Open ]], Cell[CellGroupData[{ Cell[73399, 1709, 434, 12, 70, "Input",ExpressionUUID->"1d075989-1485-414a-b1ad-2a47721322d5", CellID->488455316], Cell[73836, 1723, 420, 9, 70, "Output",ExpressionUUID->"f82f66fe-0f6c-4e9f-a150-8e47e73a2c9d", CellID->560931993] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[74305, 1738, 565, 18, 70, "ExampleDelimiter",ExpressionUUID->"161f6fe3-814c-4a1f-9c7d-5c5532dcf811", Evaluatable->True, CellGroupingRules->{"SectionGrouping", 58}, CellID->321128408], Cell[74873, 1758, 728, 22, 70, "Text",ExpressionUUID->"fc86bf42-6927-47ee-bcea-5b27eb73023d", CellID->124154517], Cell[75604, 1782, 914, 21, 70, "Input",ExpressionUUID->"6e87c2f1-26fd-4068-8574-3ca1b9e2ab1d", CellID->2051972913], Cell[76521, 1805, 8770, 156, 70, "Input",ExpressionUUID->"d8c91581-efdd-4baa-b0c5-97427bde0457", CellID->1141734264], Cell[85294, 1963, 327, 7, 70, "Text",ExpressionUUID->"b9bca8e8-77dc-45ac-a693-1f336d55e8c6", CellID->1636173961], Cell[85624, 1972, 646, 18, 70, "Input",ExpressionUUID->"cdeab182-8262-4821-a4eb-6aa523256473", CellID->1863134646], Cell[86273, 1992, 15757, 313, 70, "Input",ExpressionUUID->"1e1e40da-9b21-4861-8a09-c567bc9049c6", CellID->1295357382] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[102079, 2311, 56, 1, 70, "Subsection",ExpressionUUID->"16e4a138-dafd-4582-8076-a8b286864957", CellID->92483860], Cell[102138, 2314, 219, 3, 70, "Text",ExpressionUUID->"104ae4a5-f33a-4691-b17a-887a8e683a20", CellID->1957072080], Cell[CellGroupData[{ Cell[102382, 2321, 310, 8, 70, "Input",ExpressionUUID->"afc0d296-fc17-46c9-b864-4747b4f31b00", CellID->622170175], Cell[102695, 2331, 347, 9, 70, "Output",ExpressionUUID->"36701ca8-5a65-4123-8de4-8af659cead29", CellID->1816513088] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[103091, 2346, 55, 1, 70, "Subsection",ExpressionUUID->"c462822a-480b-49ef-ae7d-0084304c0e70", CellID->540091361], Cell[103149, 2349, 356, 7, 70, "Text",ExpressionUUID->"fdc3c93b-da06-4271-ab82-15893f3031a6", CellID->1086514322], Cell[CellGroupData[{ Cell[103530, 2360, 1434, 37, 70, "Input",ExpressionUUID->"3838adc8-2ce8-467e-9cd1-7117c98773fc", CellID->1602524722], Cell[104967, 2399, 2729, 63, 70, "Output",ExpressionUUID->"704b5a8d-e18e-4657-ab5e-05054915f682", CellID->266618201] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[107757, 2469, 135, 3, 70, "Section",ExpressionUUID->"c337ce0e-9758-4322-9fc3-aa1611382fbd", CellTags->"Source & Additional Information", CellID->318391102], Cell[CellGroupData[{ Cell[107917, 2476, 683, 18, 70, "Subsection",ExpressionUUID->"646ecc3c-e78a-4b64-b841-d2f97886932c", CellTags->"Contributed By", CellID->127820888], Cell[108603, 2496, 30, 0, 70, "Text",ExpressionUUID->"681ca605-08f5-4599-a6c3-feaf346bcd50"] }, Open ]], Cell[CellGroupData[{ Cell[108670, 2501, 684, 18, 70, "Subsection",ExpressionUUID->"3a52d65a-03a5-4cb0-bedc-de3b5e74ece8", CellTags->"Keywords", CellID->547400482], Cell[109357, 2521, 28, 0, 70, "Item",ExpressionUUID->"af0875e6-e145-4621-95be-b24ede4f66ce"], Cell[109388, 2523, 29, 0, 70, "Item",ExpressionUUID->"fa8ddbc5-fb16-4276-ab47-c8053b3fae1a"], Cell[109420, 2525, 32, 0, 70, "Item",ExpressionUUID->"cab60fbb-0254-4279-9caa-eeae8a9b7711"], Cell[109455, 2527, 31, 0, 70, "Item",ExpressionUUID->"29cefd06-9455-4ae0-82ec-30718897819f"] }, Open ]], Cell[CellGroupData[{ Cell[109523, 2532, 126, 4, 70, "Subsection",ExpressionUUID->"6d0aa009-596c-48aa-8318-f0ec38fb596c", CellTags->"Categories", CellID->749076926], Cell[109652, 2538, 44, 0, 70, "Item",ExpressionUUID->"04fcafed-d0b8-4556-8c91-c954dc2a7c59"], Cell[109699, 2540, 28, 0, 70, "Item",ExpressionUUID->"7ba52728-028d-412a-b40a-22d5f5cb43ed"] }, Open ]], Cell[CellGroupData[{ Cell[109764, 2545, 661, 18, 70, "Subsection",ExpressionUUID->"bddb1171-8924-40a1-bda8-24cd46ee5202", CellTags->"Related Symbols", CellID->161079978], Cell[110428, 2565, 22, 0, 70, "Item",ExpressionUUID->"a1d13d4f-c866-4078-a401-e824ba3dabb8"], Cell[110453, 2567, 28, 0, 70, "Item",ExpressionUUID->"e2ec4ec2-efcd-4375-a7f7-6d12633108ad"], Cell[110484, 2569, 32, 0, 70, "Item",ExpressionUUID->"f5021b8e-9bc0-4274-bb68-4900fec947dc"] }, Open ]], Cell[CellGroupData[{ Cell[110553, 2574, 711, 18, 70, "Subsection",ExpressionUUID->"e6ed145f-cd15-4bc4-af92-69395d0584cd", CellTags->"Related Resource Objects", CellID->588449267], Cell[111267, 2594, 25, 0, 70, "Item",ExpressionUUID->"3f3510c1-7f08-47d1-8532-c85be9ed5996"] }, Open ]], Cell[CellGroupData[{ Cell[111329, 2599, 762, 19, 70, "Subsection",ExpressionUUID->"609c2d03-ce62-4f8d-aa0f-c7fc8557dce6", CellTags->"Source/Reference Citation", CellID->642091068], Cell[112094, 2620, 402, 7, 70, "Text",ExpressionUUID->"159a3de5-4481-4109-8ec8-15a6c3157f43"] }, Open ]], Cell[CellGroupData[{ Cell[112533, 2632, 614, 18, 70, "Subsection",ExpressionUUID->"d1b59146-acc3-4b8a-b663-d77c3a893ddf", CellTags->"Links", CellID->521525586], Cell[113150, 2652, 238, 4, 70, "Item",ExpressionUUID->"6fa92cba-b105-4dc5-9cdf-3152e181ddd4"] }, Open ]], Cell[CellGroupData[{ Cell[113425, 2661, 767, 20, 70, "Subsection",ExpressionUUID->"6c09004a-1c5f-4d85-bbf2-b89b2fd778ab", CellTags->"Tests", CellID->74308299], Cell[CellGroupData[{ Cell[114217, 2685, 129, 4, 70, "Input",ExpressionUUID->"53a29716-3e90-493a-8614-07fd78de0540", CellID->667877521], Cell[114349, 2691, 93, 3, 70, "Output",ExpressionUUID->"04f2bb98-5f93-463d-a507-8336d8473068", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[114503, 2701, 127, 4, 70, "Section",ExpressionUUID->"4dd14308-f039-4b54-907e-0e208ef9fc09", CellTags->"Author Notes", CellID->795110225], Cell[114633, 2707, 509, 8, 70, "Text",ExpressionUUID->"665dc292-d5d9-484e-a69b-1de4ffa153f5", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[115179, 2720, 720, 19, 70, "Section",ExpressionUUID->"920a75f9-7eb8-4da9-9404-0eeb9d30fb14", CellTags->"Submission Notes", CellID->843283583], Cell[115902, 2741, 495, 8, 70, "Text",ExpressionUUID->"5d02fa5b-c5c2-451c-9680-ba5c0771dcbd", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)