(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 887256, 19637] NotebookOptionsPosition[ 697143, 15930] NotebookOutlinePosition[ 840837, 18643] CellTagsIndexPosition[ 838953, 18592] WindowTitle->Shuffle | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Shuffle", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->800123581], Cell["Rearrange elements of a list", "Text", CellTags->{"Description", "TemplateCell"}, CellID->534136912], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", 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, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{ "Shuffle", ",", "shuffle", ",", "mposition", ",", "downUnder", ",", "downUnder1", ",", "milk", ",", "milkPost"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.80189789011309*^9, 3.801897898581015*^9}, 3.803017441583605*^9, 3.803184034589765*^9, 3.8031851460646257`*^9, { 3.8031995388182907`*^9, 3.803199544070242*^9}, {3.803871640085886*^9, 3.8038716423286858`*^9}, 3.804661846171857*^9, 3.806395579276095*^9, { 3.806654913547535*^9, 3.8066549161513023`*^9}, {3.806658356551168*^9, 3.806658357049251*^9}, {3.806661811050137*^9, 3.806661811480624*^9}, { 3.806663034101727*^9, 3.8066630345988903`*^9}, {3.80673993262134*^9, 3.806739934596787*^9}, {3.8068193317612457`*^9, 3.806819333477263*^9}, { 3.806819669508576*^9, 3.806819671811323*^9}, {3.806820107369832*^9, 3.806820109713975*^9}, 3.806822767321525*^9, {3.806824655589822*^9, 3.8068246560597267`*^9}, {3.80682783671906*^9, 3.8068278418885202`*^9}, { 3.806843408877956*^9, 3.80684340925149*^9}, {3.806995730381838*^9, 3.806995733226884*^9}, {3.806995821177874*^9, 3.806995822175063*^9}}, CellLabel->"In[21]:=", CellID->43356257], Cell[BoxData[{ RowBox[{ RowBox[{"$default", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"$tag", "=", "\"\<4dae2702-65ae-466b-b82e-56439b0ccfc1\>\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Shuffle", "[", RowBox[{"list_List", ",", "rest___"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"res", "=", RowBox[{"Catch", "[", RowBox[{ RowBox[{"shuffle", "[", RowBox[{"list", ",", "rest"}], "]"}], ",", "$tag"}], "]"}]}], "}"}], ",", RowBox[{"res", "/;", RowBox[{"!", RowBox[{"FailureQ", "[", "res", "]"}]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Shuffle", "[", "\"\\"", "]"}], ":=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Shuffle", "[", "]"}], "[", "list_List", "]"}], ":=", RowBox[{"Shuffle", "[", "list", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"x_", "?", RowBox[{"(", RowBox[{ RowBox[{"!", RowBox[{"ListQ", "[", "#", "]"}]}], "&"}], ")"}]}], ",", "rest___"}], "]"}], "[", "list_List", "]"}], ":=", RowBox[{"Shuffle", "[", RowBox[{"list", ",", "x", ",", "rest"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Shuffle", "::", "known"}], ":=", "\"\\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"shuffle", "[", RowBox[{ RowBox[{"{", "}"}], ",", "___"}], "]"}], ":=", RowBox[{"{", "}"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"shuffle", "[", "list_", "]"}], ":=", RowBox[{"shuffle", "[", RowBox[{"list", ",", "$default"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"shuffle", "[", RowBox[{"list_", ",", RowBox[{"\"\\"", "|", "\"\\""}]}], "]"}], ":=", RowBox[{"outShuffle", "[", "list", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"shuffle", "[", RowBox[{"list_", ",", RowBox[{"\"\\"", "|", "\"\\""}]}], "]"}], ":=", RowBox[{"inShuffle", "[", "list", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"shuffle", "[", RowBox[{"list_", ",", RowBox[{"\"\\"", "|", "\"\\""}]}], "]"}], ":=", RowBox[{"reverseFaro", "[", RowBox[{"Identity", ",", "list"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"shuffle", "[", RowBox[{"list_", ",", RowBox[{"\"\\"", "|", "\"\\""}]}], "]"}], ":=", RowBox[{"reverseFaro", "[", RowBox[{"Reverse", ",", "list"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"shuffle", "[", RowBox[{"list_", ",", RowBox[{ "\"\\"", "|", "\"\\"", "|", "\"\\""}]}], "]"}], ":=", RowBox[{"monge", "[", "list", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"shuffle", "[", RowBox[{"list_", ",", RowBox[{"\"\\"", "|", "\"\\""}]}], "]"}], ":=", RowBox[{"downMonge", "[", "list", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"shuffle", "[", RowBox[{"list_", ",", RowBox[{"\"\\"", "|", "\"\\""}]}], "]"}], ":=", RowBox[{"downUnder", "[", "list", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"shuffle", "[", RowBox[{"list_", ",", RowBox[{"\"\\"", "|", "\"\\""}]}], "]"}], ":=", RowBox[{"milk", "[", "list", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"shuffle", "[", RowBox[{"list_", ",", RowBox[{"\"\\"", "|", "\"\\""}]}], "]"}], ":=", RowBox[{"RandomSample", "[", "list", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"shuffle", "[", RowBox[{"list_", ",", RowBox[{"n_Integer", "?", "NonNegative"}], ",", RowBox[{"method", ":", "_", ":", "$default"}]}], "]"}], ":=", RowBox[{"Nest", "[", RowBox[{ RowBox[{ RowBox[{"shuffle", "[", RowBox[{"#", ",", "method"}], "]"}], "&"}], ",", "list", ",", "n"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"shuffle", "[", RowBox[{"_List", ",", "x_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Shuffle", "::", "known"}], ",", "x", ",", RowBox[{"wrapInQuotes", "/@", RowBox[{"Shuffle", "[", "\"\\"", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Throw", "[", RowBox[{"$Failed", ",", "$tag"}], "]"}]}], "\[IndentingNewLine]", ")"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"shuffle", "[", "___", "]"}], ":=", "$Failed"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Sander", " ", "Huisman"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"outShuffle", "[", "list_", "]"}], ":=", RowBox[{"Riffle", " ", "@@", " ", RowBox[{"TakeDrop", "[", RowBox[{"list", ",", " ", RowBox[{"Ceiling", "[", RowBox[{ RowBox[{"Length", "[", "list", "]"}], "/", "2"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"inShuffle", "[", "list_", "]"}], " ", ":=", " ", RowBox[{"Riffle", " ", "@@", " ", RowBox[{"Reverse", "[", RowBox[{"TakeDrop", "[", RowBox[{"list", ",", " ", RowBox[{"Floor", "[", RowBox[{ RowBox[{"Length", "[", "list", "]"}], "/", "2"}], "]"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", " ", "\n", RowBox[{"(*", " ", RowBox[{"Katja", " ", "Della", " ", "Libera"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"monge", "[", "list_", "]"}], ":=", RowBox[{"list", "[", RowBox[{"[", " ", RowBox[{"mposition", "[", RowBox[{"Length", "[", "list", "]"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"downMonge", "[", "list_", "]"}], ":=", RowBox[{"Reverse", "[", RowBox[{"monge", "[", "list", "]"}], "]"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"milk", "[", "list_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"list", "[", RowBox[{"[", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "i"}]}], "}"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Length", "[", "list", "]"}], "/", "2"}]}], "}"}]}], "]"}], "//", RowBox[{ RowBox[{"milkPost", "[", RowBox[{"#", ",", "list"}], "]"}], "&"}]}], "//", "Reverse"}], "//", "Flatten"}]}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{ RowBox[{"downUnder1", "[", "list_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sow", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], ";", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}], "@", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "list", "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"downUnder", "[", "list_", "]"}], ":=", RowBox[{"Join", "@@", RowBox[{ RowBox[{"Reap", "[", RowBox[{"FixedPoint", "[", RowBox[{"downUnder1", ",", "list"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mposition", "[", RowBox[{"n_", "?", "EvenQ"}], "]"}], ":=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"n", ",", "2", ",", RowBox[{"-", "2"}]}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"1", ",", RowBox[{"n", "-", "1"}], ",", "2"}], "]"}]}], "]"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"mposition", "[", "n_", "]"}], ":=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "2", ",", RowBox[{"-", "2"}]}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"1", ",", "n", ",", "2"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"milkPost", "[", RowBox[{"x_", ",", "list_"}], "]"}], ":=", RowBox[{"x", "/;", RowBox[{"EvenQ", "[", RowBox[{"Length", "[", "list", "]"}], "]"}]}]}], "\n", RowBox[{ RowBox[{ RowBox[{"milkPost", "[", RowBox[{"x_", ",", "list_"}], "]"}], ":=", RowBox[{"Join", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"list", "[", RowBox[{"[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Length", "[", "list", "]"}], "+", "1"}], ")"}], "/", "2"}], "]"}], "]"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"reverseFaro", "[", RowBox[{"fun_", ",", "list_"}], "]"}], ":=", RowBox[{"Join", "@@", RowBox[{"fun", "@", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "list", "]"}]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wrapInQuotes", "[", "s_String", "]"}], ":=", RowBox[{"\"\<\\\"\>\"", "<>", "s", "<>", "\"\<\\\"\>\""}]}], "\n"}], "Input",\ TaggingRules->{}, InitializationCell->True, CellChangeTimes->{{3.8018023491847763`*^9, 3.8018023492123003`*^9}, { 3.801802714218047*^9, 3.801802723966928*^9}, {3.801819465781232*^9, 3.801819487216345*^9}, {3.8018889152586327`*^9, 3.8018889744296293`*^9}, { 3.801889266315124*^9, 3.801889266934308*^9}, {3.8018905830706463`*^9, 3.8018905860559998`*^9}, {3.801890629944254*^9, 3.8018907925639544`*^9}, { 3.8018927386449203`*^9, 3.8018927437493687`*^9}, 3.8018928882692137`*^9, { 3.8018978864293823`*^9, 3.801897887862615*^9}, {3.801897932301807*^9, 3.801897988224959*^9}, {3.801908687431634*^9, 3.801908688637329*^9}, { 3.801908740165689*^9, 3.801908774928063*^9}, {3.801908877938648*^9, 3.80190887913768*^9}, 3.801912582971394*^9, 3.8030175477254257`*^9, { 3.803017578615898*^9, 3.803017643556574*^9}, {3.803017676643446*^9, 3.803017695970525*^9}, {3.803017958518704*^9, 3.803017982846159*^9}, { 3.803018067745755*^9, 3.8030180678742027`*^9}, {3.8030228153454103`*^9, 3.803022847414587*^9}, 3.803022881560102*^9, {3.803023139315413*^9, 3.803023197066195*^9}, {3.803023344484016*^9, 3.803023346835071*^9}, { 3.803023454327423*^9, 3.803023467805311*^9}, {3.803023703740779*^9, 3.8030237131312647`*^9}, {3.803023745115122*^9, 3.803023749736335*^9}, { 3.803023793665516*^9, 3.803023794615498*^9}, {3.803025778485023*^9, 3.8030258416401167`*^9}, 3.803184036026312*^9, {3.803184488206449*^9, 3.803184494709922*^9}, {3.8031846628596983`*^9, 3.80318467975358*^9}, 3.8031847415826817`*^9, {3.803184824787387*^9, 3.80318482741123*^9}, { 3.803184914821683*^9, 3.803184915852501*^9}, {3.80318553950119*^9, 3.803185545019696*^9}, {3.803185648474515*^9, 3.803185649442618*^9}, { 3.803185782291823*^9, 3.803185838015459*^9}, {3.80318588114896*^9, 3.8031859049904413`*^9}, {3.803188959304744*^9, 3.803188998724691*^9}, { 3.803189095264893*^9, 3.803189098327539*^9}, {3.8031994026701593`*^9, 3.8031997620134153`*^9}, {3.803871647005121*^9, 3.803871656999714*^9}, { 3.80388004376505*^9, 3.803880083384099*^9}, {3.803880136983954*^9, 3.8038801770788527`*^9}, {3.80388021783912*^9, 3.8038802182862673`*^9}, { 3.8038820726756*^9, 3.803882112875827*^9}, {3.803882266888851*^9, 3.803882276744993*^9}, 3.803882472532803*^9, {3.803886489351955*^9, 3.803886499268097*^9}, 3.804661969335327*^9, {3.804662303168605*^9, 3.8046623038385973`*^9}, {3.804662433997779*^9, 3.804662450027562*^9}, { 3.804664841433963*^9, 3.8046648839791307`*^9}, {3.804665524333674*^9, 3.804665525962699*^9}, {3.8046683263907833`*^9, 3.804668371037291*^9}, { 3.804669476016906*^9, 3.804669514246447*^9}, 3.8063956508439703`*^9, { 3.806402636354591*^9, 3.80640263862652*^9}, {3.806404138749381*^9, 3.806404141756673*^9}, {3.806654949047165*^9, 3.806654950278021*^9}, { 3.806655052365046*^9, 3.806655138167486*^9}, {3.806655169594509*^9, 3.806655274225707*^9}, {3.8066553478723717`*^9, 3.8066555408447027`*^9}, { 3.806655596747438*^9, 3.806655633162777*^9}, 3.806655668933967*^9, { 3.806656072586954*^9, 3.806656207352536*^9}, {3.806656246856483*^9, 3.806656247263713*^9}, {3.806657552120294*^9, 3.806657552414712*^9}, { 3.8066575890229177`*^9, 3.8066576920677443`*^9}, {3.806657775498003*^9, 3.806657800042282*^9}, {3.806657920599945*^9, 3.8066579211756067`*^9}, { 3.806658146330697*^9, 3.806658389630652*^9}, {3.8066584366861753`*^9, 3.806658552107106*^9}, {3.806658679399684*^9, 3.806658703328025*^9}, { 3.8066601645407953`*^9, 3.8066601876345587`*^9}, {3.806660931500399*^9, 3.806660942610482*^9}, {3.806660999707097*^9, 3.806661010025526*^9}, { 3.806661049618409*^9, 3.806661064064561*^9}, {3.8066614462275457`*^9, 3.806661474234273*^9}, {3.8066615060810423`*^9, 3.806661519727769*^9}, { 3.806661550010337*^9, 3.806661596792492*^9}, {3.806661725938439*^9, 3.80666173294742*^9}, {3.806661764066436*^9, 3.806661797889937*^9}, { 3.8066618418015757`*^9, 3.8066618622708273`*^9}, {3.806661896495646*^9, 3.806661902861902*^9}, {3.806661957030117*^9, 3.806661965989579*^9}, { 3.806662003989304*^9, 3.8066620657554903`*^9}, {3.806662123595826*^9, 3.806662208129424*^9}, {3.806662334206903*^9, 3.806662355384283*^9}, { 3.806662425349988*^9, 3.806662441845686*^9}, {3.806663011610415*^9, 3.806663073735166*^9}, {3.80666430625252*^9, 3.806664310379243*^9}, { 3.806739809080917*^9, 3.806739903406591*^9}, {3.80673995470857*^9, 3.806739968003935*^9}, {3.806740027980653*^9, 3.806740064427322*^9}, { 3.806740098857864*^9, 3.80674012946478*^9}, {3.806740202637995*^9, 3.806740261326034*^9}, 3.806743728950795*^9, {3.80681494870403*^9, 3.806814949329917*^9}, {3.8068149825884743`*^9, 3.806815077889283*^9}, { 3.806815353154923*^9, 3.806815362240635*^9}, {3.806815868046924*^9, 3.8068158692521057`*^9}, 3.806815916948009*^9, {3.806816138949267*^9, 3.806816160198763*^9}, {3.8068162589000196`*^9, 3.806816364816869*^9}, { 3.806818771087208*^9, 3.806818821953438*^9}, {3.806819279847327*^9, 3.806819286156605*^9}, {3.806824614781886*^9, 3.806824616487969*^9}, { 3.806824693982214*^9, 3.8068247161731873`*^9}, {3.806825140411992*^9, 3.8068251827227983`*^9}, {3.806827823994213*^9, 3.806827829512413*^9}, { 3.806827859819787*^9, 3.806827873451828*^9}, {3.8068285837117567`*^9, 3.806828587520653*^9}, {3.80683010804289*^9, 3.8068301968847733`*^9}, { 3.8068434382940073`*^9, 3.806843455540207*^9}, {3.806895941685216*^9, 3.806895959197192*^9}, {3.806897492696999*^9, 3.806897496523053*^9}, 3.8068991339937572`*^9, {3.806982869093749*^9, 3.806982895175604*^9}, { 3.8069829361770782`*^9, 3.806982939402379*^9}, {3.806985430904166*^9, 3.8069854597759447`*^9}, {3.8069855688896646`*^9, 3.806985629617105*^9}, { 3.8069856647867117`*^9, 3.8069856717355747`*^9}, {3.806985779887933*^9, 3.806985829562325*^9}, {3.80698587328414*^9, 3.806985908567129*^9}, { 3.806985964793251*^9, 3.806986050845367*^9}, {3.806995396736422*^9, 3.8069954235986137`*^9}, 3.8069954670894957`*^9, 3.806995753443204*^9, { 3.806998990950975*^9, 3.806998993331613*^9}}, CellLabel->"In[22]:=", CellID->479571949] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> 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, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", StyleBox["list", "TI"], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->100566249], Cell[TextData[{ "returns a perfect shuffle of the elments in ", Cell[BoxData[ StyleBox["list", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ". " }], "UsageDescription", CellID->597060730] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["n", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->274568844], Cell[TextData[{ "repeats the shuffle ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " times." }], "UsageDescription", CellID->304194143] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ StyleBox["list", "TI"], ",", "\"\<\!\(\*StyleBox[\"type\", \"TI\"]\)\>\""}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->634367973], Cell[TextData[{ "performs the shuffle ", Cell[BoxData["\"\<\!\(\*StyleBox[\"type\", \"TI\"]\)\>\""], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->680047643] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ StyleBox["list", "TI"], ",", StyleBox["n", "TI"], ",", "\"\<\!\(\*StyleBox[\"type\", \"TI\"]\)\>\""}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->505956609], Cell[TextData[{ "repeats the ", Cell[BoxData["\"\<\!\(\*StyleBox[\"type\", \"TI\"]\)\>\""], "InlineFormula", FontFamily->"Source Sans Pro"], " shuffle ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " times." }], "UsageDescription", CellID->552971637] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", "\"\\"", "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->405344560], Cell["returns a list of implemented shuffle types.", "UsageDescription", CellID->866755566] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", 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, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell["A shuffle is a permuation of elements in a list.", "Notes", CellID->349168435], Cell["\<\ Shuffle handles lists of arbitrary elements, although the most common \ application is shuffling a deck of cards.\ \>", "Notes", CellID->448183129], Cell[TextData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ RowBox[{"Shuffle", "[", StyleBox["n", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ", ", Cell[BoxData[ RowBox[{ "Shuffle", "[", "\"\<\!\(\*StyleBox[\"type\", \"TI\"]\)\>\"", "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ StyleBox["n", "TI"], ",", "\"\<\!\(\*StyleBox[\"type\", \"TI\"]\)\>\""}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " represent operator forms of ", Cell[BoxData["Shuffle"], "InlineFormula", FontFamily->"Source Sans Pro"], " that can be applied to a list.\nThe specification \"", Cell[BoxData[ StyleBox["type", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "\" can be one of:" }], "Notes", CellID->846504787], Cell[BoxData[GridBox[{ {Cell["\"Out\"", "TableText"], Cell["perfect out shuffle", "TableText"]}, {Cell["\"In\"", "TableText"], Cell["perfect in shuffle", "TableText"]}, {Cell["\"ReverseOut\"", "TableText"], Cell[ "reverse out shuffle", "TableText"]}, {Cell["\"ReverseIn\"", "TableText"], Cell[ "reverse in shuffle", "TableText"]}, {Cell["\"DownUnder\"", "TableText"], Cell[ "down under shuffle", "TableText"]}, {Cell["\"Monge\"", "TableText"], Cell["Monge shuffle", "TableText"]}, {Cell["\"DownMonge\"", "TableText"], Cell[ "down Monge shuffle", "TableText"]}, {Cell["\"Milk\"", "TableText"], Cell["milk shuffle", "TableText"]}, {Cell["\"RandomSample\"", "TableText"], Cell[ "random permutation", "TableText"]} }]], "TableNotes", CellID->285384535], 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 element comes from the same half of the list.\ \>", "Notes", Editable->True, Deletable->True, CellTags->"TabNext", CellID->932223730], Cell[CellGroupData[{ Cell["Here is an example of a list with 10 items:", "Notes", Editable->True, Deletable->True, GeneratedCell->True, CellAutoOverwrite->True, CellTags->"Nothing", CellID->96817561], 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->897314942] }, Open ]], Cell[CellGroupData[{ 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->490339672], 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->125753172] }, Open ]], Cell["\<\ The out shuffle keeps the top card on top and the bottom card on bottom of \ the deck.\ \>", "Notes", CellID->725105008], Cell["\<\ An in shuffle is similar to the out shuffle, only the order of the \ interleaving halves is reversed so the top card in the original deck ends up \ in the second position from the top. \ \>", "Notes", CellID->741311832], Cell["\<\ Perfect shuffles (in and out) are also known as Faro shuffles, weave shuffles \ or dovetail shuffles.\ \>", "Notes", CellID->487062007], Cell["\<\ Reverse perfect shuffles pick every second card in a separate pile and then \ join the halves, placing the separate pile on top of (for the reverse in \ shuffle) or under (for the reverse out shuffle) the remaining cards.\ \>", "Notes", CellID->468963724], Cell["\<\ In a down under shuffle, one places the top card down on another pile, then \ places the second card under the bottom of the remaining deck and repeats the \ procedure until just one card remains.\ \>", "Notes", CellID->803764517], Cell["\<\ The down under shuffle is also called the Australian shuffle, in a reference \ to Australia.\ \>", "Notes", CellID->979875907], Cell["\<\ A Monge shuffle is defined as taking the cards from a deck and shuffling them \ by forming a new deck, alternating between putting the cards from the old \ deck on the top and bottom of the new deck.\ \>", "Notes", CellTags->"TabNext", CellID->133115789], Cell["\<\ There are two types of Monge shuffles, depending on how the deck is held in \ the hand\[LongDash]face up or face down\[LongDash] or, equivalently, whether \ the cards are numbered from top to bottom or from bottom to top.\ \>", "Notes", CellID->147327130], Cell["\<\ The down Monge shuffle is equivalent to perforing the Monge shuffle and then \ reversing the deck.\ \>", "Notes", CellID->504398848], Cell["\<\ The Monge shuffle is also known as an over Monge shuffle, Mongean shuffle and \ Monge's shuffle.\ \>", "Notes", CellID->854162907], Cell["\<\ In a milk shuffle, the deck of cards is \"milked\" by taking a card off the \ top and bottom and putting them aside, then repeating the milking, adding the \ milked cards on top of the pile aside.\ \>", "Notes", CellID->491659681], Cell["The milk shuffle is also known as the Klondike shuffle.", "Notes", CellID->609749887], Cell[TextData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", StyleBox["list", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is the same as ", Cell[BoxData[ RowBox[{ RowBox[{"Shuffle", "[", RowBox[{ StyleBox["list", "TI"], ",", "\"\<\!\(\*TagBox[ButtonBox[StyleBox[\"Out\", \ \"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/Out\",ContentPadding->False],\ MouseAppearanceTag[\"LinkHand\"]]\)\>\""}], "]"}], "."}]], "InlineFormula", FontFamily->"Source Sans Pro"] }], "Notes", CellID->116008650], Cell[TextData[{ Cell[BoxData[ RowBox[{ RowBox[{"Shuffle", "[", "\[Ellipsis]", "]"}], "[", StyleBox["list", "TI"], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], " is equiavalent to ", Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ StyleBox["list", "TI"], ",", "\[Ellipsis]"}], "]"}]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->306892676] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> 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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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", FontWeight -> "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, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellChangeTimes->{{3.806741661908258*^9, 3.806741663796461*^9}}, CellID->904125756], Cell["A perfect shuffle of a list:", "Text", TaggingRules->{}, CellChangeTimes->{ 3.803880861152162*^9, {3.803880906892153*^9, 3.803880907779706*^9}, { 3.8038809619155283`*^9, 3.803880963059414*^9}, {3.804665371567539*^9, 3.8046653789424067`*^9}, {3.804674820030665*^9, 3.804674841357259*^9}, { 3.8063989856779547`*^9, 3.806399001909728*^9}, {3.8066698237807827`*^9, 3.806669834212676*^9}}, CellID->755996899], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{"Range", "[", "10", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.804662314295785*^9, 3.804662369183634*^9}, { 3.804665388606893*^9, 3.804665389261998*^9}, {3.806397281928607*^9, 3.806397304254999*^9}, {3.806397867919087*^9, 3.806397869542066*^9}, 3.8064867011039124`*^9, {3.806486755262657*^9, 3.806486756141533*^9}, 3.806666154732416*^9, {3.8066705150846786`*^9, 3.8066705155231447`*^9}}, CellLabel->"In[572]:=", CellID->519816470], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "6", ",", "2", ",", "7", ",", "3", ",", "8", ",", "4", ",", "9", ",", "5", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.80466235601033*^9, 3.804662369637711*^9}, { 3.804665389908798*^9, 3.804665409519046*^9}, 3.804665537793358*^9, 3.8046695701001797`*^9, 3.806397304615925*^9, 3.806397869913452*^9, 3.8063990145450087`*^9, 3.806402649524549*^9, 3.806404154433304*^9, { 3.806486690265305*^9, 3.806486702673747*^9}, 3.8064867567511387`*^9, 3.806494564722773*^9, 3.8066698398503513`*^9}, CellLabel->"Out[572]=", CellID->848383272] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107562], Cell["Shuffle several times:", "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[207409]}, CellChangeTimes->{{3.8063990247091713`*^9, 3.806399045205114*^9}}, CellID->643944939], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "3"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.804662314295785*^9, 3.804662369183634*^9}, { 3.804665388606893*^9, 3.804665389261998*^9}, {3.806397281928607*^9, 3.806397304254999*^9}, {3.806397867919087*^9, 3.806397869542066*^9}, { 3.8063990562935543`*^9, 3.806399064076581*^9}, {3.806399254794766*^9, 3.806399278353722*^9}, {3.806486759189754*^9, 3.806486759997514*^9}, 3.806666155918436*^9, {3.806670534717148*^9, 3.806670534770453*^9}}, CellLabel->"In[575]:=", CellID->796261179], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "9", ",", "8", ",", "7", ",", "6", ",", "5", ",", "4", ",", "3", ",", "2", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.80466235601033*^9, 3.804662369637711*^9}, { 3.804665389908798*^9, 3.804665409519046*^9}, 3.804665537793358*^9, 3.8046695701001797`*^9, 3.806397304615925*^9, 3.806397869913452*^9, 3.8063990145450087`*^9, {3.806399060669065*^9, 3.806399064513773*^9}, { 3.806399258191436*^9, 3.806399279077938*^9}, 3.806402737894912*^9, 3.8064867095153837`*^9, 3.806486760624795*^9, 3.806494568350511*^9, 3.8066699210004587`*^9}, CellLabel->"Out[575]=", CellID->325976644] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107563], Cell["Use a shuffle operator:", "Text", TaggingRules->{}, CellChangeTimes->{{3.806895757648675*^9, 3.8068957669517927`*^9}, 3.80699000555413*^9}, CellID->60399414], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Shuffle", "[", "]"}], "[", RowBox[{"Range", "[", "10", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806895707861827*^9, 3.806895709713092*^9}, { 3.80689586295811*^9, 3.806895878653523*^9}}, CellLabel->"In[65]:=", CellID->945655777], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "6", ",", "2", ",", "7", ",", "3", ",", "8", ",", "4", ",", "9", ",", "5", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.806895865809024*^9, 3.806895879356303*^9}, 3.806895978905025*^9}, CellLabel->"Out[65]=", CellID->727222272] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", TaggingRules->{}, CellID->204653245], Cell["Shuffle an integer list:", "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[207489]}, CellChangeTimes->{{3.806829598119359*^9, 3.806829622478909*^9}}, CellID->457868401], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806829625312751*^9, 3.8068296363021517`*^9}}, CellLabel->"In[1293]:=", CellID->561783735], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "3", ",", "2"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8068296371768913`*^9}, CellLabel->"Out[1293]=", CellID->884177317] }, Open ]], Cell["Or a list of arbitrary expressions:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8068296625331306`*^9, 3.806829682861836*^9}}, CellID->787483186], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{"{", RowBox[{"1", ",", "two", ",", "\"\\""}], "}"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806829700499922*^9, 3.8068297295712433`*^9}}, CellLabel->"In[1295]:=", CellID->381154726], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "\<\"three\"\>", ",", "two"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.806829717573625*^9, 3.8068297302869167`*^9}}, CellLabel->"Out[1295]=", CellID->907266356] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107564], Cell["Shuffle several times:", "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[207569]}, CellChangeTimes->{{3.80682979835485*^9, 3.806829807098785*^9}}, CellID->375202648], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", "3"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.80682981748258*^9, 3.806829854952833*^9}}, CellLabel->"In[1302]:=", CellID->330351970], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "3", ",", "5", ",", "2", ",", "4"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.80682982039054*^9, 3.806829855624463*^9}}, CellLabel->"Out[1302]=", CellID->416193721] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107565], Cell["Use a specified shuffle type:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8068960920882597`*^9, 3.806896105562168*^9}, 3.806897276236382*^9}, CellID->682285530], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "5", "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806896121074746*^9, 3.806896142966756*^9}}, CellLabel->"In[67]:=", CellID->265834379], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "1", ",", "4", ",", "2", ",", "5"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.806896145181204*^9}, CellLabel->"Out[67]=", CellID->207024421] }, Open ]], Cell["Repeat the shuffle several times:", "Text", TaggingRules->{}, CellChangeTimes->{{3.806896183820723*^9, 3.806896211027588*^9}, { 3.8068962583557453`*^9, 3.8068962772430897`*^9}}, CellID->722215847], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "5", "]"}], ",", "3", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806896121074746*^9, 3.806896142966756*^9}, { 3.806896222981311*^9, 3.806896243940097*^9}}, CellLabel->"In[71]:=", CellID->529256492], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "4", ",", "1", ",", "3", ",", "5"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.806896145181204*^9, {3.806896228987102*^9, 3.806896244412383*^9}}, CellLabel->"Out[71]=", CellID->399621759] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107566], Cell["Operator form:", "Text", TaggingRules->{}, CellChangeTimes->{{3.806897295227644*^9, 3.806897308851012*^9}, 3.8069899606074343`*^9, {3.8069900434607887`*^9, 3.806990046253437*^9}}, CellID->255381406], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Shuffle", "[", "]"}], "[", RowBox[{"Range", "[", "5", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806897331123122*^9, 3.806897335426598*^9}}, CellLabel->"In[72]:=", CellID->822752327], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "4", ",", "2", ",", "5", ",", "3"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.806897336035617*^9}, CellLabel->"Out[72]=", CellID->958689361] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Shuffle", "[", "3", "]"}], "[", RowBox[{"Range", "[", "5", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806897331123122*^9, 3.806897345842284*^9}}, CellLabel->"In[73]:=", CellID->361272310], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "3", ",", "5", ",", "2", ",", "4"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.806897346837655*^9}, CellLabel->"Out[73]=", CellID->58281825] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Shuffle", "[", "\"\\"", "]"}], "[", RowBox[{"Range", "[", "5", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8068973515815983`*^9, 3.806897371842752*^9}}, CellLabel->"In[74]:=", CellID->171396027], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "1", ",", "4", ",", "2", ",", "5"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8068973722054253`*^9}, CellLabel->"Out[74]=", CellID->449040871] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Shuffle", "[", RowBox[{"3", ",", "\"\\""}], "]"}], "[", RowBox[{"Range", "[", "5", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8068973515815983`*^9, 3.806897380513468*^9}}, CellLabel->"In[75]:=", CellID->667759199], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "4", ",", "1", ",", "3", ",", "5"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.806897381991252*^9}, CellLabel->"Out[75]=", CellID->43027140] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107567], Cell["A list of implemented shuffles:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8072439528291407`*^9, 3.807243970020886*^9}, 3.8092548155969*^9}, CellID->110654206], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", "\"\\"", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807015335147169*^9, 3.807015340795597*^9}}, CellLabel->"In[173]:=", CellID->621554613], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Out\"\>", ",", "\<\"ReverseOut\"\>", ",", "\<\"In\"\>", ",", "\<\"ReverseIn\"\>", ",", "\<\"Monge\"\>", ",", "\<\"DownMonge\"\>", ",", "\<\"Milk\"\>", ",", "\<\"DownUnder\"\>", ",", "\<\"RandomSample\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.807015341111706*^9, 3.807243977568533*^9}, CellLabel->"Out[173]=", CellID->700251784] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107568], Cell["An out shuffle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8066700830628347`*^9, 3.806670095174446*^9}}, CellID->130998838], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{"Range", "[", "12", "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.804662314295785*^9, 3.804662369183634*^9}, { 3.804665388606893*^9, 3.804665389261998*^9}, {3.806397281928607*^9, 3.806397304254999*^9}, {3.806397867919087*^9, 3.806397869542066*^9}, 3.8064867011039124`*^9, {3.806486755262657*^9, 3.806486756141533*^9}, 3.806666154732416*^9, 3.806670111845071*^9, {3.8066705601964808`*^9, 3.8066705807487297`*^9}}, CellLabel->"In[592]:=", CellID->691946966], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "7", ",", "2", ",", "8", ",", "3", ",", "9", ",", "4", ",", "10", ",", "5", ",", "11", ",", "6", ",", "12"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.80466235601033*^9, 3.804662369637711*^9}, { 3.804665389908798*^9, 3.804665409519046*^9}, 3.804665537793358*^9, 3.8046695701001797`*^9, 3.806397304615925*^9, 3.806397869913452*^9, 3.8063990145450087`*^9, 3.806402649524549*^9, 3.806404154433304*^9, { 3.806486690265305*^9, 3.806486702673747*^9}, 3.8064867567511387`*^9, 3.806494564722773*^9, 3.8066698398503513`*^9, 3.806670112595045*^9, 3.806670581699164*^9}, CellLabel->"Out[592]=", CellID->64865990] }, Open ]], Cell["Same as:", "Text", TaggingRules->{}, CellChangeTimes->{{3.806670161645015*^9, 3.806670164316884*^9}}, CellID->953121616], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.804662314295785*^9, 3.804662369183634*^9}, { 3.804665388606893*^9, 3.804665389261998*^9}, {3.806397281928607*^9, 3.806397304254999*^9}, {3.806397867919087*^9, 3.806397869542066*^9}, 3.8064867011039124`*^9, {3.806486755262657*^9, 3.806486756141533*^9}, 3.806666154732416*^9, 3.806670111845071*^9, {3.806670168028215*^9, 3.8066701738287373`*^9}, {3.806670585186108*^9, 3.80667058608185*^9}}, CellLabel->"In[593]:=", CellID->746919246], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "7", ",", "2", ",", "8", ",", "3", ",", "9", ",", "4", ",", "10", ",", "5", ",", "11", ",", "6", ",", "12"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.80667017446559*^9, 3.8066705870207644`*^9}, CellLabel->"Out[593]=", CellID->34087802] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107569], Cell["An in shuffle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.80667034895219*^9, 3.806670356143486*^9}}, CellID->380893420], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.804662314295785*^9, 3.804662369183634*^9}, { 3.804665388606893*^9, 3.804665389261998*^9}, {3.806397281928607*^9, 3.806397304254999*^9}, {3.806397867919087*^9, 3.806397869542066*^9}, 3.8064867011039124`*^9, {3.806486755262657*^9, 3.806486756141533*^9}, 3.806666154732416*^9, 3.806670111845071*^9, {3.806670168028215*^9, 3.8066701738287373`*^9}, {3.806670367002789*^9, 3.8066703673446827`*^9}, { 3.806670605178751*^9, 3.806670605843102*^9}}, CellLabel->"In[595]:=", CellID->398536413], Cell[BoxData[ RowBox[{"{", RowBox[{ "7", ",", "1", ",", "8", ",", "2", ",", "9", ",", "3", ",", "10", ",", "4", ",", "11", ",", "5", ",", "12", ",", "6"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.80667017446559*^9, 3.806670368112795*^9, 3.806670606473735*^9}, CellLabel->"Out[595]=", CellID->66683138] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "3", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.804662314295785*^9, 3.804662369183634*^9}, { 3.804665388606893*^9, 3.804665389261998*^9}, {3.806397281928607*^9, 3.806397304254999*^9}, {3.806397867919087*^9, 3.806397869542066*^9}, 3.8064867011039124`*^9, {3.806486755262657*^9, 3.806486756141533*^9}, 3.806666154732416*^9, 3.806670111845071*^9, {3.806670168028215*^9, 3.8066701738287373`*^9}, {3.806670367002789*^9, 3.8066703673446827`*^9}, { 3.806670605178751*^9, 3.806670605843102*^9}, {3.806670669664592*^9, 3.8066706755039253`*^9}}, CellLabel->"In[596]:=", CellID->616267509], Cell[BoxData[ RowBox[{"{", RowBox[{ "5", ",", "10", ",", "2", ",", "7", ",", "12", ",", "4", ",", "9", ",", "1", ",", "6", ",", "11", ",", "3", ",", "8"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.806670676682063*^9}, CellLabel->"Out[596]=", CellID->358464409] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107570], Cell["A reverse out shuffle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.80667034895219*^9, 3.806670356143486*^9}, { 3.806743705099955*^9, 3.806743710564383*^9}}, CellID->983016919], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.804662314295785*^9, 3.804662369183634*^9}, { 3.804665388606893*^9, 3.804665389261998*^9}, {3.806397281928607*^9, 3.806397304254999*^9}, {3.806397867919087*^9, 3.806397869542066*^9}, 3.8064867011039124`*^9, {3.806486755262657*^9, 3.806486756141533*^9}, 3.806666154732416*^9, 3.806670111845071*^9, {3.806670168028215*^9, 3.8066701738287373`*^9}, {3.806670367002789*^9, 3.8066703673446827`*^9}, { 3.806670605178751*^9, 3.806670605843102*^9}, {3.806743714971715*^9, 3.806743717836266*^9}, 3.806824742388679*^9}, CellLabel->"In[1171]:=", CellID->64363819], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "5", ",", "7", ",", "9", ",", "11", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "12"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8068247431121798`*^9}, CellLabel->"Out[1171]=", CellID->256151392] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107571], Cell["A reverse in shuffle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.80667034895219*^9, 3.806670356143486*^9}, { 3.8067438419367523`*^9, 3.806743844823812*^9}}, CellID->423558667], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.804662314295785*^9, 3.804662369183634*^9}, { 3.804665388606893*^9, 3.804665389261998*^9}, {3.806397281928607*^9, 3.806397304254999*^9}, {3.806397867919087*^9, 3.806397869542066*^9}, 3.8064867011039124`*^9, {3.806486755262657*^9, 3.806486756141533*^9}, 3.806666154732416*^9, 3.806670111845071*^9, {3.806670168028215*^9, 3.8066701738287373`*^9}, {3.806670367002789*^9, 3.8066703673446827`*^9}, { 3.806670605178751*^9, 3.806670605843102*^9}, {3.8067438497052*^9, 3.8067438511993513`*^9}, 3.806824762654834*^9}, CellLabel->"In[181]:=", CellID->233468037], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "12", ",", "1", ",", "3", ",", "5", ",", "7", ",", "9", ",", "11"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.80682476334142*^9, 3.806899196755726*^9}, CellLabel->"Out[181]=", CellID->591828674] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107572], Cell["A down under shuffle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.806828536479787*^9, 3.806828542367779*^9}}, CellID->88024630], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.804662314295785*^9, 3.804662369183634*^9}, { 3.804665388606893*^9, 3.804665389261998*^9}, {3.806397281928607*^9, 3.806397304254999*^9}, {3.806397867919087*^9, 3.806397869542066*^9}, 3.8064867011039124`*^9, {3.806486755262657*^9, 3.806486756141533*^9}, 3.806666154732416*^9, 3.806670111845071*^9, {3.806670168028215*^9, 3.8066701738287373`*^9}, {3.806670367002789*^9, 3.8066703673446827`*^9}, { 3.806670605178751*^9, 3.806670605843102*^9}, {3.8067438497052*^9, 3.8067438511993513`*^9}, 3.806824762654834*^9, {3.80682855384024*^9, 3.806828557391782*^9}}, CellLabel->"In[1290]:=", CellID->761360771], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "5", ",", "7", ",", "9", ",", "11", ",", "2", ",", "6", ",", "10", ",", "4", ",", "12", ",", "8"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.806828558504806*^9, 3.806828619048018*^9}, CellLabel->"Out[1290]=", CellID->852931884] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107573], Cell["A Monge shuffle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8066707153427067`*^9, 3.806670721495923*^9}}, CellID->429112954], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "\"\\""}], "]"}]], "Input",\ TaggingRules->{}, CellChangeTimes->{{3.804662314295785*^9, 3.804662369183634*^9}, { 3.804665388606893*^9, 3.804665389261998*^9}, {3.806397281928607*^9, 3.806397304254999*^9}, {3.806397867919087*^9, 3.806397869542066*^9}, 3.8064867011039124`*^9, {3.806486755262657*^9, 3.806486756141533*^9}, 3.806666154732416*^9, 3.806670111845071*^9, {3.806670168028215*^9, 3.8066701738287373`*^9}, {3.806670367002789*^9, 3.8066703673446827`*^9}, { 3.806670605178751*^9, 3.806670605843102*^9}, {3.806670737004384*^9, 3.806670738182914*^9}}, CellLabel->"In[601]:=", CellID->713100800], Cell[BoxData[ RowBox[{"{", RowBox[{ "12", ",", "10", ",", "8", ",", "6", ",", "4", ",", "2", ",", "1", ",", "3", ",", "5", ",", "7", ",", "9", ",", "11"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.80667017446559*^9, 3.806670368112795*^9, 3.806670606473735*^9, 3.8066707572795553`*^9, 3.806670791955535*^9}, CellLabel->"Out[601]=", CellID->423369427] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107574], Cell["A down Monge shuffle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8066707153427067`*^9, 3.806670721495923*^9}, { 3.80667084265361*^9, 3.806670843572771*^9}}, CellID->165567824], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.804662314295785*^9, 3.804662369183634*^9}, { 3.804665388606893*^9, 3.804665389261998*^9}, {3.806397281928607*^9, 3.806397304254999*^9}, {3.806397867919087*^9, 3.806397869542066*^9}, 3.8064867011039124`*^9, {3.806486755262657*^9, 3.806486756141533*^9}, 3.806666154732416*^9, 3.806670111845071*^9, {3.806670168028215*^9, 3.8066701738287373`*^9}, {3.806670367002789*^9, 3.8066703673446827`*^9}, { 3.806670605178751*^9, 3.806670605843102*^9}, {3.806670737004384*^9, 3.806670738182914*^9}, {3.8066708491954613`*^9, 3.80667085002794*^9}}, CellLabel->"In[606]:=", CellID->853894411], Cell[BoxData[ RowBox[{"{", RowBox[{ "11", ",", "9", ",", "7", ",", "5", ",", "3", ",", "1", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "12"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.80667017446559*^9, 3.806670368112795*^9, 3.806670606473735*^9, 3.8066707572795553`*^9, 3.806670791955535*^9, 3.806670853980225*^9}, CellLabel->"Out[606]=", CellID->410316871] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107575], Cell["A milk shuffle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.806829238527678*^9, 3.8068292442476387`*^9}, 3.806990062919734*^9}, CellID->238269441], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.804662314295785*^9, 3.804662369183634*^9}, { 3.804665388606893*^9, 3.804665389261998*^9}, {3.806397281928607*^9, 3.806397304254999*^9}, {3.806397867919087*^9, 3.806397869542066*^9}, 3.8064867011039124`*^9, {3.806486755262657*^9, 3.806486756141533*^9}, 3.806666154732416*^9, 3.806670111845071*^9, {3.806670168028215*^9, 3.8066701738287373`*^9}, {3.806670367002789*^9, 3.8066703673446827`*^9}, { 3.806670605178751*^9, 3.806670605843102*^9}, {3.806670737004384*^9, 3.806670738182914*^9}, {3.8066708491954613`*^9, 3.80667085002794*^9}, { 3.8068292550724287`*^9, 3.8068292558957653`*^9}}, CellLabel->"In[1291]:=", CellID->870220990], Cell[BoxData[ RowBox[{"{", RowBox[{ "6", ",", "7", ",", "5", ",", "8", ",", "4", ",", "9", ",", "3", ",", "10", ",", "2", ",", "11", ",", "1", ",", "12"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.806829256423366*^9}, CellLabel->"Out[1291]=", CellID->716936346] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107576], Cell["Random samples:", "Text", TaggingRules->{}, CellChangeTimes->{{3.80700563046177*^9, 3.807005652364834*^9}, { 3.807005868896646*^9, 3.8070058763750153`*^9}}, CellID->487692261], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807005661586186*^9, 3.8070056870840807`*^9}}, CellLabel->"In[100]:=", CellID->956751716], Cell[BoxData[ RowBox[{"{", RowBox[{ "8", ",", "10", ",", "7", ",", "5", ",", "2", ",", "9", ",", "3", ",", "4", ",", "6", ",", "12", ",", "1", ",", "11"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.807005688247632*^9, 3.8070058788361683`*^9}, CellLabel->"Out[100]=", CellID->353570459] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807005661586186*^9, 3.8070056870840807`*^9}, 3.807005880183292*^9}, CellLabel->"In[107]:=", CellID->89510933], Cell[BoxData[ RowBox[{"{", RowBox[{ "10", ",", "9", ",", "1", ",", "4", ",", "12", ",", "7", ",", "3", ",", "6", ",", "2", ",", "5", ",", "8", ",", "11"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.807005882884314*^9, {3.80700598300581*^9, 3.807005985088739*^9}}, CellLabel->"Out[107]=", CellID->397851114] }, Open ]], Cell[TextData[{ "Use ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["SeedRandom", "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/SeedRandom", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " to fix the order of elements:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.807005723074892*^9, 3.807005753386322*^9}, 3.807267341020316*^9}, CellID->306660727], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SeedRandom", "[", "10", "]"}], ";", " ", RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "\"\\""}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807005756030789*^9, 3.80700577356177*^9}, { 3.80700591991055*^9, 3.8070059282053967`*^9}, 3.807005969341448*^9}, CellLabel->"In[104]:=", CellID->532620781], Cell[BoxData[ RowBox[{"{", RowBox[{ "11", ",", "12", ",", "10", ",", "8", ",", "5", ",", "4", ",", "9", ",", "3", ",", "7", ",", "2", ",", "1", ",", "6"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.807005688247632*^9, 3.8070057859604483`*^9, 3.807005929674101*^9, 3.8070059700707483`*^9}, CellLabel->"Out[104]=", CellID->357113182] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"SeedRandom", "[", "10", "]"}], ";", " ", RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "\"\\""}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807005756030789*^9, 3.80700577356177*^9}, { 3.80700591991055*^9, 3.807005931438141*^9}, 3.807005972972259*^9}, CellLabel->"In[105]:=", CellID->276097313], Cell[BoxData[ RowBox[{"{", RowBox[{ "11", ",", "12", ",", "10", ",", "8", ",", "5", ",", "4", ",", "9", ",", "3", ",", "7", ",", "2", ",", "1", ",", "6"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8070059321655188`*^9, 3.807005973586074*^9}, CellLabel->"Out[105]=", CellID->405283915] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Applications", "Subsection", TaggingRules->{}, CellID->605265931], Cell["Create a deck of cards:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7653950625023117`*^9, 3.7653950711029673`*^9}, { 3.765395981101227*^9, 3.765395981972308*^9}, {3.765442420009637*^9, 3.7654424206763*^9}, {3.807007331198621*^9, 3.8070073330215187`*^9}}, CellID->850573899], 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", TaggingRules->{}, CellChangeTimes->{{3.765394733047505*^9, 3.7653950371167088`*^9}, { 3.765395133708374*^9, 3.765395150423085*^9}, 3.765395284485042*^9}, CellLabel->"In[120]:=", CellID->169757296], 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", TaggingRules->{}, CellChangeTimes->{3.765395284763369*^9, 3.765395984572145*^9, 3.765397077158717*^9, 3.765440788529736*^9, 3.765442421859125*^9, 3.8070073380345497`*^9}, CellLabel->"Out[120]=", CellID->537865556] }, Open ]], Cell["Shuffle the deck:", "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[207649]}, 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}, { 3.8070073699013*^9, 3.807007371851472*^9}}, CellID->660042272], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", "deck", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.765395239899317*^9, 3.7653952416204*^9}, { 3.7654407965035057`*^9, 3.765440796908443*^9}, {3.807007375445594*^9, 3.807007378501919*^9}}, CellLabel->"In[121]:=", CellID->449726246], 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", TaggingRules->{}, CellChangeTimes->{ 3.7653952425177183`*^9, 3.765395286794938*^9, {3.765395986253709*^9, 3.765395990110701*^9}, 3.7653970792347717`*^9, 3.765440797307184*^9, 3.7654424230086517`*^9, 3.807007378894052*^9}, CellLabel->"Out[121]=", CellID->718369186] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107577], Cell[TextData[{ "Use a a series of in and out shuffles to move the top card of a deck down \ into any desired position; for instance, to place the top card under ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " other cards, express ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " as a binary number and do an in shuffle for each 1 and an out shuffle for \ each 0:" }], "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[207729]}, CellChangeTimes->{{3.807264260648589*^9, 3.807264279086241*^9}, { 3.807264523180393*^9, 3.807264555100124*^9}, {3.8072658550137873`*^9, 3.807265882148728*^9}, {3.807265943748324*^9, 3.807265962787943*^9}, { 3.8072660515542097`*^9, 3.80726611196071*^9}, {3.807266194351467*^9, 3.80726619864749*^9}, 3.8072664737543983`*^9, {3.807266701936006*^9, 3.8072667033596582`*^9}, 3.807266757269062*^9, {3.8092548590665197`*^9, 3.8092548606862783`*^9}}, CellID->882670095], Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "10"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8072663116502123`*^9, 3.807266313790161*^9}}, CellLabel->"In[294]:=", CellID->698914058], Cell[BoxData[ RowBox[{ RowBox[{"list", "=", RowBox[{"Range", "[", "20", "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807265126087062*^9, 3.8072651390107727`*^9}, { 3.807266229187881*^9, 3.8072662292634583`*^9}}, CellLabel->"In[297]:=", CellID->353939106], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"list", "=", RowBox[{"Shuffle", "[", RowBox[{"list", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"#", "===", "1"}], ",", "\"\\"", ",", "\"\\"", ","}], "]"}]}], "]"}]}], ")"}], "&"}], "/@", RowBox[{"IntegerDigits", "[", RowBox[{"n", ",", "2"}], "]"}]}], ";", " ", "list"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807265621042453*^9, 3.807265635345933*^9}, { 3.8072662381925297`*^9, 3.807266265935371*^9}, {3.8072663962453814`*^9, 3.8072663971326227`*^9}, {3.8072665636424723`*^9, 3.807266573625524*^9}}, CellLabel->"In[298]:=", CellID->52258245], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "9", ",", "11", ",", "17", ",", "8", ",", "15", ",", "16", ",", "2", ",", "14", ",", "20", ",", "1", ",", "7", ",", "19", ",", "5", ",", "6", ",", "13", ",", "4", ",", "10", ",", "12", ",", "18"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.807265635973044*^9, 3.807265650553755*^9}, 3.8072662864769163`*^9, {3.807266321846341*^9, 3.80726633006738*^9}, { 3.80726640529291*^9, 3.8072664105399857`*^9}, {3.807266575169685*^9, 3.8072665803412848`*^9}, 3.8072667357470207`*^9}, CellLabel->"Out[298]=", CellID->903325552] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Drop", "[", RowBox[{"%", ",", "n"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8072662983224983`*^9, 3.807266334357712*^9}}, CellLabel->"In[299]:=", CellID->129373487], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "7", ",", "19", ",", "5", ",", "6", ",", "13", ",", "4", ",", "10", ",", "12", ",", "18"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8072663358373137`*^9, 3.807266411972744*^9, 3.807266581462283*^9, 3.807266735783812*^9}, CellLabel->"Out[299]=", CellID->521568349] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", TaggingRules->{}, CellID->232113220], Cell[CellGroupData[{ Cell["Permutation cycles", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.80700908231037*^9, 3.807009083085785*^9}, { 3.807009171346966*^9, 3.807009171803382*^9}, {3.826195727608489*^9, 3.826195728105528*^9}}, CellID->478766700], Cell["Permutation cycles of a shuffle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.806491138479059*^9, 3.806491154366289*^9}}, CellID->662895455], Cell[BoxData[ RowBox[{ RowBox[{"shuffle", "=", RowBox[{"Shuffle", "[", RowBox[{"Range", "[", "8", "]"}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806491992146286*^9, 3.806491995393608*^9}, { 3.8069218578447227`*^9, 3.8069218700758*^9}}, CellLabel->"In[378]:=", CellID->356479671], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PermutationCycles", "[", RowBox[{"shuffle", ",", "h"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8064909944828873`*^9, 3.806491007588347*^9}, { 3.806491047513221*^9, 3.806491047872653*^9}, {3.8064911622268*^9, 3.806491167789762*^9}, {3.8064919864354477`*^9, 3.8064919898343773`*^9}, 3.806666156934299*^9, {3.806921850309597*^9, 3.806921854019837*^9}}, CellLabel->"In[1]:=", CellID->510463933], Cell[BoxData[ RowBox[{"h", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", "8", "}"}]}], "}"}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8064910085837708`*^9, 3.8064910485813837`*^9, 3.806491168151656*^9, 3.8064919972972383`*^9, 3.806494575303953*^9, 3.806917845145123*^9, 3.806921875719626*^9}, CellLabel->"Out[1]=", CellID->424947742] }, Open ]], Cell["Visualize as a graph:", "Text", TaggingRules->{}, CellChangeTimes->{{3.806492005640888*^9, 3.806492019238399*^9}}, CellID->228410936], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"shuffle", ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, 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}, {3.806399848912595*^9, 3.80639985124666*^9}, {3.806490875934183*^9, 3.80649089730908*^9}, { 3.806492031065889*^9, 3.8064921063825083`*^9}, 3.806666158246222*^9, { 3.806921774356587*^9, 3.80692180932822*^9}, {3.8069218805793953`*^9, 3.8069218826916103`*^9}}, CellLabel->"In[2]:=", CellID->848900978], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 5, 3, 4, 6, 7, 8}, {{{1, 1}, {2, 3}, {3, 4}, {4, 2}, {5, 6}, {6, 7}, {7, 5}, {8, 8}}, Null}, {VertexLabels -> {"Name"}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[BezierCurveBox[{{0.7421232349727844, -0.7421232349727844}, { 0.653643979505024, -0.9329067673580868}, { 0.45476550196743304`, -0.9893030098186808}, { 0.3275948774929758, -0.9303459310438076}, { 0.3275948774929758, -0.5539005389017613}, { 0.45476550196743304`, -0.49494346012688806`}, { 0.6536439795050238, -0.5513397025874821}, { 0.7421232349727844, -0.7421232349727844}}, SplineDegree->7], 0.02545293926124706], ArrowBox[{{1.7263697049183533`, -0.24212323497278443`}, { 2.2124023676318068`, -1.1160638321243221`}}, 0.02545293926124706], ArrowBox[{{2.2124023676318068`, -1.1160638321243221`}, { 2.7262408673313665`, -0.2581768823261006}}, 0.02545293926124706], ArrowBox[{{2.7262408673313665`, -0.2581768823261006}, { 1.7263697049183533`, -0.24212323497278443`}}, 0.02545293926124706], ArrowBox[{{1.7263697049183533`, -1.7263697049183535`}, { 2.2124023676318068`, -2.600310302069891}}, 0.02545293926124706], ArrowBox[{{2.2124023676318068`, -2.600310302069891}, { 2.7262408673313665`, -1.7424233522716697`}}, 0.02545293926124706], ArrowBox[{{2.7262408673313665`, -1.7424233522716697`}, { 1.7263697049183533`, -1.7263697049183535`}}, 0.02545293926124706], ArrowBox[BezierCurveBox[{{0.7421232349727844, -2.226369704918353}, { 0.653643979505024, -2.4171532373036553`}, { 0.45476550196743304`, -2.4735494797642494`}, { 0.3275948774929758, -2.414592400989376}, { 0.3275948774929758, -2.03814700884733}, { 0.45476550196743304`, -1.9791899300724567`}, { 0.6536439795050238, -2.035586172533051}, { 0.7421232349727844, -2.226369704918353}}, SplineDegree->7], 0.02545293926124706]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{0.7421232349727844, -0.7421232349727844}, 0.02545293926124706], InsetBox["1", Offset[{2, 2}, {0.7675761742340315, -0.7166702957115374}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.7263697049183533, -0.24212323497278443}, 0.02545293926124706], InsetBox["2", Offset[{2, 2}, {1.7518226441796003, -0.21667029571153737}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2124023676318068, -1.1160638321243221}, 0.02545293926124706], InsetBox["5", Offset[{2, 2}, {2.237855306893054, -1.090610892863075}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.7262408673313665, -0.2581768823261006}, 0.02545293926124706], InsetBox["3", Offset[{2, 2}, {2.7516938065926135, -0.23272394306485353}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.7263697049183533, -1.7263697049183535}, 0.02545293926124706], InsetBox["4", Offset[{2, 2}, {1.7518226441796003, -1.7009167656571065}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2124023676318068, -2.600310302069891}, 0.02545293926124706], InsetBox["6", Offset[{2, 2}, {2.237855306893054, -2.574857362808644}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.7262408673313665, -1.7424233522716697}, 0.02545293926124706], InsetBox["7", Offset[{2, 2}, {2.7516938065926135, -1.7169704130104226}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7421232349727844, -2.226369704918353}, 0.02545293926124706], InsetBox["8", Offset[{2, 2}, {0.7675761742340315, -2.200916765657106}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8064908976293697`*^9, 3.806492048704288*^9, {3.806492083291052*^9, 3.8064921073813972`*^9}, 3.8064945768591547`*^9, 3.806921883817021*^9}, CellLabel->"Out[2]=", CellID->668709116] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107578], Cell["\<\ Elements that retain their positions after a shuffle are shown as fixed \ points on the cycle graph:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.8070047058554287`*^9, 3.807004721470484*^9}, { 3.807004769564809*^9, 3.8070048220774593`*^9}, {3.80700488881872*^9, 3.8070048889701853`*^9}, {3.8070075499678926`*^9, 3.807007560855955*^9}, { 3.8070151256577578`*^9, 3.807015127105933*^9}, {3.8072488578089867`*^9, 3.80724886054571*^9}, 3.8092548783712*^9}, CellID->697429314], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "12", "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, 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}, {3.806399848912595*^9, 3.80639985124666*^9}, {3.806490875934183*^9, 3.80649089730908*^9}, { 3.806492031065889*^9, 3.8064921063825083`*^9}, 3.806666158246222*^9, { 3.806921774356587*^9, 3.80692180932822*^9}, {3.8069218805793953`*^9, 3.8069218826916103`*^9}, {3.8070048399005823`*^9, 3.807004860651235*^9}}, CellLabel->"In[94]:=", CellID->186086876], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 7, 4, 8, 10, 11, 6, 9, 5, 3, 12}, {{{1, 1}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 7}, {7, 8}, {8, 9}, { 9, 10}, {10, 11}, {11, 2}, {12, 12}}, Null}, { VertexLabels -> {"Name"}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[BezierCurveBox[{{0.9310074361838891, -4.900356627259588}, { 0.8425281807161287, -5.09114015964489}, { 0.6436497031785378, -5.147536402105484}, { 0.5164790787040805, -5.0885793233306105`}, { 0.5164790787040805, -4.712133931188565}, { 0.6436497031785378, -4.653176852413692}, { 0.8425281807161286, -4.709573094874285}, { 0.9310074361838891, -4.900356627259588}}, SplineDegree->7], 0.039924510835955135`], ArrowBox[{{3.326184417407631, -0.9901526319565503}, { 2.496049373393486, -0.43100743618388915`}}, 0.039924510835955135`], ArrowBox[{{2.496049373393486, -0.43100743618388915`}, { 1.495809607701414, -0.46529189577965946`}}, 0.039924510835955135`], ArrowBox[{{1.495809607701414, -0.46529189577965946`}, { 0.7067283924266055, -1.080109114124745}}, 0.039924510835955135`], ArrowBox[{{0.7067283924266055, -1.080109114124745}, { 0.43100743618388915`, -2.0409319868008495`}}, 0.039924510835955135`], ArrowBox[{{0.43100743618388915`, -2.0409319868008495`}, { 0.7740243432712286, -2.979653093104111}}, 0.039924510835955135`], ArrowBox[{{0.7740243432712286, -2.979653093104111}, { 1.60316218689477, -3.5383417548918095`}}, 0.039924510835955135`], ArrowBox[{{1.60316218689477, -3.5383417548918095`}, { 2.6022587813621163`, -3.5050578909371595`}}, 0.039924510835955135`], ArrowBox[{{2.6022587813621163`, -3.5050578909371595`}, { 3.391265531433672, -2.8903621410862113`}}, 0.039924510835955135`], ArrowBox[{{3.391265531433672, -2.8903621410862113`}, { 3.6676115858893104`, -1.929238020585772}}, 0.039924510835955135`], ArrowBox[{{3.6676115858893104`, -1.929238020585772}, { 3.326184417407631, -0.9901526319565503}}, 0.039924510835955135`], ArrowBox[BezierCurveBox[{{2.980316947220489, -4.900356627259588}, { 2.891837691752728, -5.09114015964489}, { 2.6929592142151377`, -5.147536402105484}, { 2.5657885897406802`, -5.0885793233306105`}, { 2.5657885897406802`, -4.712133931188565}, { 2.6929592142151377`, -4.653176852413692}, { 2.891837691752728, -4.709573094874285}, { 2.980316947220489, -4.900356627259588}}, SplineDegree->7], 0.039924510835955135`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{0.9310074361838891, -4.900356627259588}, 0.039924510835955135], InsetBox["1", Offset[{2, 2}, {0.9709319470198443, -4.860432116423633}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.326184417407631, -0.9901526319565503}, 0.039924510835955135], InsetBox["2", Offset[{2, 2}, {3.366108928243586, -0.9502281211205952}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.496049373393486, -0.43100743618388915}, 0.039924510835955135], InsetBox["7", Offset[{2, 2}, {2.535973884229441, -0.391082925347934}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.495809607701414, -0.46529189577965946}, 0.039924510835955135], InsetBox["4", Offset[{2, 2}, {1.5357341185373692, -0.4253673849437043}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7067283924266055, -1.080109114124745}, 0.039924510835955135], InsetBox["8", Offset[{2, 2}, {0.7466529032625606, -1.0401846032887898}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.43100743618388915, -2.0409319868008495}, 0.039924510835955135], InsetBox["10", Offset[{2, 2}, {0.4709319470198443, -2.0010074759648946}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7740243432712286, -2.979653093104111}, 0.039924510835955135], InsetBox["11", Offset[{2, 2}, {0.8139488541071838, -2.939728582268156}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.60316218689477, -3.5383417548918095}, 0.039924510835955135], InsetBox["6", Offset[{2, 2}, {1.6430866977307252, -3.4984172440558545}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.6022587813621163, -3.5050578909371595}, 0.039924510835955135], InsetBox["9", Offset[{2, 2}, {2.6421832921980712, -3.4651333801012045}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.391265531433672, -2.8903621410862113}, 0.039924510835955135], InsetBox["5", Offset[{2, 2}, {3.431190042269627, -2.8504376302502563}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.6676115858893104, -1.929238020585772}, 0.039924510835955135], InsetBox["3", Offset[{2, 2}, {3.7075360967252653, -1.8893135097498168}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.980316947220489, -4.900356627259588}, 0.039924510835955135], InsetBox["12", Offset[{2, 2}, {3.020241458056444, -4.860432116423633}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", TaggingRules->{}, CellChangeTimes->{3.807004861695323*^9}, CellLabel->"Out[94]=", CellID->434040578] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Fixed points", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.80700908231037*^9, 3.807009083085785*^9}, { 3.807009158644079*^9, 3.8070091766032887`*^9}, {3.82619573367422*^9, 3.8261957461996717`*^9}}, CellID->476488976], Cell["An out shuffle does not change the first element:", "Text", TaggingRules->{}, 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, { 3.8070150128135147`*^9, 3.807015026733202*^9}, 3.807015067675867*^9}, CellID->326433484], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7653955436926203`*^9, 3.7653955443284492`*^9}, { 3.765440820040287*^9, 3.765440842829927*^9}, {3.765441049351173*^9, 3.7654410504858294`*^9}, {3.807015081667985*^9, 3.807015085595318*^9}}, CellLabel->"In[128]:=", CellID->870038117], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "4", ",", "2", ",", "5", ",", "3"}], "}"}]], "Output", TaggingRules->{}, 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}, 3.807015087139493*^9}, CellLabel->"Out[128]=", CellID->412221894] }, Open ]], Cell["\<\ For an even-sized list, an out shuffle also does not change the last element:\ \ \>", "Text", TaggingRules->{}, 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}, {3.807015151800102*^9, 3.80701518395298*^9}, 3.826195785190187*^9}, CellID->148210480], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6"}], "}"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7653955436926203`*^9, 3.7653955443284492`*^9}, { 3.765440820040287*^9, 3.765440842829927*^9}, {3.8070149739365597`*^9, 3.807014986430517*^9}}, CellLabel->"In[127]:=", CellID->193386128], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "4", ",", "2", ",", "5", ",", "3", ",", "6"}], "}"}]], "Output", TaggingRules->{}, 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, 3.8070149885421553`*^9}, CellLabel->"Out[127]=", CellID->631363142] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "#", "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{"7", ",", "8"}], "}"}]}]], "Input", TaggingRules->{}, 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}, {3.806399848912595*^9, 3.80639985124666*^9}, {3.806490875934183*^9, 3.80649089730908*^9}, { 3.806492031065889*^9, 3.8064921063825083`*^9}, 3.806666158246222*^9, { 3.806921774356587*^9, 3.80692180932822*^9}, {3.8069218805793953`*^9, 3.8069218826916103`*^9}, {3.8070048399005823`*^9, 3.807004860651235*^9}, { 3.8070152340169783`*^9, 3.807015278646476*^9}}, CellLabel->"In[130]:=", CellID->260920249], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 5, 3, 4, 6, 7}, {{{1, 1}, {2, 3}, {3, 4}, {4, 2}, {5, 6}, {6, 7}, {7, 5}}, Null}, {VertexLabels -> {"Name"}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[BezierCurveBox[{{0.739494313297046, -0.739494313297046}, { 0.6510150578292855, -0.9302778456823483}, { 0.45213658029169457`, -0.9866740881429423}, { 0.3249659558172373, -0.9277170093680691}, { 0.3249659558172373, -0.5512716172260228}, { 0.45213658029169457`, -0.4923145384511496}, { 0.6510150578292854, -0.5487107809117436}, { 0.739494313297046, -0.739494313297046}}, SplineDegree->7], 0.026381894269278436`], ArrowBox[{{0.23949431329704596`, -1.7184829398911377`}, { 0.7255269760104992, -2.5924235370426754`}}, 0.026381894269278436`], ArrowBox[{{0.7255269760104992, -2.5924235370426754`}, { 1.239365475710059, -1.7345365872444538`}}, 0.026381894269278436`], ArrowBox[{{1.239365475710059, -1.7345365872444538`}, { 0.23949431329704596`, -1.7184829398911377`}}, 0.026381894269278436`], ArrowBox[{{1.7184829398911379`, -0.23949431329704596`}, { 2.204515602604591, -1.1134349104485837`}}, 0.026381894269278436`], ArrowBox[{{2.204515602604591, -1.1134349104485837`}, { 2.7183541023041506`, -0.2555479606503621}}, 0.026381894269278436`], ArrowBox[{{2.7183541023041506`, -0.2555479606503621}, { 1.7184829398911379`, -0.23949431329704596`}}, 0.026381894269278436`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{0.739494313297046, -0.739494313297046}, 0.026381894269278436], InsetBox["1", Offset[{2, 2}, {0.7658762075663244, -0.7131124190277676}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.23949431329704596, -1.7184829398911377}, 0.026381894269278436], InsetBox["2", Offset[{2, 2}, {0.2658762075663244, -1.6921010456218593}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7255269760104992, -2.5924235370426754}, 0.026381894269278436], InsetBox["5", Offset[{2, 2}, {0.7519088702797776, -2.566041642773397}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.239365475710059, -1.7345365872444538}, 0.026381894269278436], InsetBox["3", Offset[{2, 2}, {1.2657473699793373, -1.7081546929751754}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.7184829398911379, -0.23949431329704596}, 0.026381894269278436], InsetBox["4", Offset[{2, 2}, {1.7448648341604163, -0.2131124190277675}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.204515602604591, -1.1134349104485837}, 0.026381894269278436], InsetBox["6", Offset[{2, 2}, {2.2308974968738693, -1.0870530161793053}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.7183541023041506, -0.2555479606503621}, 0.026381894269278436], InsetBox["7", Offset[{2, 2}, {2.744735996573429, -0.22916606638108367}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 5, 3, 4, 6, 7, 8}, {{{1, 1}, {2, 3}, {3, 4}, {4, 2}, {5, 6}, {6, 7}, {7, 5}, {8, 8}}, Null}, {VertexLabels -> {"Name"}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[BezierCurveBox[{{ 0.7421232349727844, -0.7421232349727844}, { 0.653643979505024, -0.9329067673580868}, { 0.45476550196743304`, -0.9893030098186808}, { 0.3275948774929758, -0.9303459310438076}, { 0.3275948774929758, -0.5539005389017613}, { 0.45476550196743304`, -0.49494346012688806`}, { 0.6536439795050238, -0.5513397025874821}, { 0.7421232349727844, -0.7421232349727844}}, SplineDegree->7], 0.02545293926124706], ArrowBox[{{1.7263697049183533`, -0.24212323497278443`}, { 2.2124023676318068`, -1.1160638321243221`}}, 0.02545293926124706], ArrowBox[{{2.2124023676318068`, -1.1160638321243221`}, { 2.7262408673313665`, -0.2581768823261006}}, 0.02545293926124706], ArrowBox[{{2.7262408673313665`, -0.2581768823261006}, { 1.7263697049183533`, -0.24212323497278443`}}, 0.02545293926124706], ArrowBox[{{1.7263697049183533`, -1.7263697049183535`}, { 2.2124023676318068`, -2.600310302069891}}, 0.02545293926124706], ArrowBox[{{2.2124023676318068`, -2.600310302069891}, { 2.7262408673313665`, -1.7424233522716697`}}, 0.02545293926124706], ArrowBox[{{2.7262408673313665`, -1.7424233522716697`}, { 1.7263697049183533`, -1.7263697049183535`}}, 0.02545293926124706], ArrowBox[BezierCurveBox[{{0.7421232349727844, -2.226369704918353}, { 0.653643979505024, -2.4171532373036553`}, { 0.45476550196743304`, -2.4735494797642494`}, { 0.3275948774929758, -2.414592400989376}, { 0.3275948774929758, -2.03814700884733}, { 0.45476550196743304`, -1.9791899300724567`}, { 0.6536439795050238, -2.035586172533051}, { 0.7421232349727844, -2.226369704918353}}, SplineDegree->7], 0.02545293926124706]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{0.7421232349727844, -0.7421232349727844}, 0.02545293926124706], InsetBox["1", Offset[{2, 2}, {0.7675761742340315, -0.7166702957115374}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.7263697049183533, -0.24212323497278443}, 0.02545293926124706], InsetBox["2", Offset[{2, 2}, {1.7518226441796003, -0.21667029571153737}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2124023676318068, -1.1160638321243221}, 0.02545293926124706], InsetBox["5", Offset[{2, 2}, {2.237855306893054, -1.090610892863075}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.7262408673313665, -0.2581768823261006}, 0.02545293926124706], InsetBox["3", Offset[{2, 2}, {2.7516938065926135, -0.23272394306485353}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.7263697049183533, -1.7263697049183535}, 0.02545293926124706], InsetBox["4", Offset[{2, 2}, {1.7518226441796003, -1.7009167656571065}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2124023676318068, -2.600310302069891}, 0.02545293926124706], InsetBox["6", Offset[{2, 2}, {2.237855306893054, -2.574857362808644}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.7262408673313665, -1.7424233522716697}, 0.02545293926124706], InsetBox["7", Offset[{2, 2}, {2.7516938065926135, -1.7169704130104226}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7421232349727844, -2.226369704918353}, 0.02545293926124706], InsetBox["8", Offset[{2, 2}, {0.7675761742340315, -2.200916765657106}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.807015263486738*^9, 3.807015279833496*^9}}, CellLabel->"Out[130]=", CellID->110963010] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107579], Cell["\<\ An in shuffle does not change the last element of an odd-sized list:\ \>", "Text", TaggingRules->{}, 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, { 3.8070150128135147`*^9, 3.807015026733202*^9}, 3.807015067675867*^9, { 3.807016272575181*^9, 3.807016308682274*^9}, {3.807245283936946*^9, 3.807245287580467*^9}, 3.826195794694808*^9}, CellID->321405741], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Labeled", "[", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "#", "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}], ",", "#", ",", "Top"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"5", ",", "8"}], "]"}]}], ",", "2"}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]], "Input", TaggingRules->{}, 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}, {3.806399848912595*^9, 3.80639985124666*^9}, {3.806490875934183*^9, 3.80649089730908*^9}, { 3.806492031065889*^9, 3.8064921063825083`*^9}, 3.806666158246222*^9, { 3.806921774356587*^9, 3.80692180932822*^9}, {3.8069218805793953`*^9, 3.8069218826916103`*^9}, {3.8070048399005823`*^9, 3.807004860651235*^9}, { 3.8070152340169783`*^9, 3.807015278646476*^9}, {3.8070154696419973`*^9, 3.8070155030416527`*^9}, {3.80701555900825*^9, 3.807015594565847*^9}, { 3.807016345394499*^9, 3.807016423583432*^9}}, CellLabel->"In[142]:=", CellID->517923532], Cell[BoxData[ TagBox[GridBox[{ { TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 3, 4, 2, 5}, {{{1, 2}, {2, 3}, {3, 4}, {4, 1}, {5, 5}}, Null}, { VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[{{0.2538674030870078, -1.2539626277446758`}, { 1.2531456048326584`, -1.2518565080525612`}}, 0.022640257968104954`], ArrowBox[{{1.2531456048326584`, -1.2518565080525612`}, { 1.2497698199097556`, -0.25040379069874086`}}, 0.022640257968104954`], ArrowBox[{{1.2497698199097556`, -0.25040379069874086`}, { 0.25040379069874086`, -0.2540817777349258}}, 0.022640257968104954`], ArrowBox[{{0.25040379069874086`, -0.2540817777349258}, { 0.2538674030870078, -1.2539626277446758`}}, 0.022640257968104954`], ArrowBox[ BezierCurveBox[{{2.25395318623014, -0.7504037906987409}, { 2.165473930762379, -0.9411873230840432}, { 1.9665954532247885`, -0.9975835655446372}, { 1.8394248287503312`, -0.938626486769764}, { 1.8394248287503312`, -0.5621810946277177}, { 1.9665954532247885`, -0.5032240158528445}, { 2.165473930762379, -0.5596202583134385}, { 2.25395318623014, -0.7504037906987409}}, SplineDegree -> 7], 0.022640257968104954`]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{0.2538674030870078, -1.2539626277446758`}, 0.022640257968104954`], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {0.2765076610551127, -1.231322369776571}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.2531456048326584`, -1.2518565080525612`}, 0.022640257968104954`], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {1.2757858628007632`, -1.2292162500844563`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.2497698199097556`, -0.25040379069874086`}, 0.022640257968104954`], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {1.2724100778778604`, -0.2277635327306359}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.25040379069874086`, -0.2540817777349258}, 0.022640257968104954`], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {0.27304404866684584`, -0.23144151976682084`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.25395318623014, -0.7504037906987409}, 0.022640257968104954`], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {2.276593444198245, -0.7277635327306359}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "5"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 4, 2, 3, 5, 6}, {{{1, 2}, {2, 3}, {3, 1}, {4, 5}, {5, 6}, {6, 4}}, Null}, { VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[{{{0.2342364699455688, -0.2342364699455688}, { 0.720269132659022, -1.1081770670971065`}}, {{ 0.720269132659022, -1.1081770670971065`}, { 1.2341076323585818`, -0.25029011729888495`}}, {{ 1.2341076323585818`, -0.25029011729888495`}, { 0.2342364699455688, -0.2342364699455688}}, {{ 0.2342364699455688, -1.576650006988244}, { 0.720269132659022, -2.450590604139782}}, {{ 0.720269132659022, -2.450590604139782}, { 1.2341076323585818`, -1.5927036543415602`}}, {{ 1.2341076323585818`, -1.5927036543415602`}, { 0.2342364699455688, -1.576650006988244}}}, 0.024343082395781784`]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{0.2342364699455688, -0.2342364699455688}, 0.024343082395781784`], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {0.25857955234135055`, -0.209893387549787}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.720269132659022, -1.1081770670971065`}, 0.024343082395781784`], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {0.7446122150548038, -1.0838339847013247`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.2341076323585818`, -0.25029011729888495`}, 0.024343082395781784`], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {1.2584507147543635`, -0.22594703490310317`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.2342364699455688, -1.576650006988244}, 0.024343082395781784`], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {0.25857955234135055`, -1.5523069245924623`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.720269132659022, -2.450590604139782}, 0.024343082395781784`], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {0.7446122150548038, -2.426247521744}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.2341076323585818`, -1.5927036543415602`}, 0.024343082395781784`], InsetBox[ FormBox["6", TraditionalForm], Offset[{2, 2}, {1.2584507147543635`, -1.5683605719457785`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "6"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )]}, { TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 4, 2, 3, 5, 6, 7}, {{{1, 2}, {2, 3}, {3, 1}, {4, 5}, {5, 6}, {6, 4}, {7, 7}}, Null}, {VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[{{0.23949431329704596`, -1.7184829398911377`}, { 0.7255269760104992, -2.5924235370426754`}}, 0.026381894269278436`], ArrowBox[{{0.7255269760104992, -2.5924235370426754`}, { 1.239365475710059, -1.7345365872444538`}}, 0.026381894269278436`], ArrowBox[{{1.239365475710059, -1.7345365872444538`}, { 0.23949431329704596`, -1.7184829398911377`}}, 0.026381894269278436`], ArrowBox[{{1.7184829398911379`, -0.23949431329704596`}, { 2.204515602604591, -1.1134349104485837`}}, 0.026381894269278436`], ArrowBox[{{2.204515602604591, -1.1134349104485837`}, { 2.7183541023041506`, -0.2555479606503621}}, 0.026381894269278436`], ArrowBox[{{2.7183541023041506`, -0.2555479606503621}, { 1.7184829398911379`, -0.23949431329704596`}}, 0.026381894269278436`], ArrowBox[ BezierCurveBox[{{0.739494313297046, -0.739494313297046}, { 0.6510150578292855, -0.9302778456823483}, { 0.45213658029169457`, -0.9866740881429423}, { 0.3249659558172373, -0.9277170093680691}, { 0.3249659558172373, -0.5512716172260228}, { 0.45213658029169457`, -0.4923145384511496}, { 0.6510150578292854, -0.5487107809117436}, { 0.739494313297046, -0.739494313297046}}, SplineDegree -> 7], 0.026381894269278436`]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{0.23949431329704596`, -1.7184829398911377`}, 0.026381894269278436`], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {0.2658762075663244, -1.6921010456218593`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.7255269760104992, -2.5924235370426754`}, 0.026381894269278436`], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {0.7519088702797776, -2.566041642773397}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.239365475710059, -1.7345365872444538`}, 0.026381894269278436`], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {1.2657473699793373`, -1.7081546929751754`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.7184829398911379`, -0.23949431329704596`}, 0.026381894269278436`], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {1.7448648341604163`, -0.2131124190277675}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.204515602604591, -1.1134349104485837`}, 0.026381894269278436`], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {2.2308974968738693`, -1.0870530161793053`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.7183541023041506`, -0.2555479606503621}, 0.026381894269278436`], InsetBox[ FormBox["6", TraditionalForm], Offset[{2, 2}, {2.744735996573429, -0.22916606638108367`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.739494313297046, -0.739494313297046}, 0.026381894269278436`], InsetBox[ FormBox["7", TraditionalForm], Offset[{2, 2}, {0.7658762075663244, -0.7131124190277676}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "7"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 5, 7, 8, 4, 2, 3, 6}, {{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 1}, {7, 8}, { 8, 7}}, Null}, {VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[{{1.7877480834541857`, -0.2964786466916949}, { 2.297262486405217, -1.1563252384716793`}}, 0.025278065998576904`], ArrowBox[{{2.297262486405217, -1.1563252384716793`}, { 1.8065791849076513`, -2.027578100206971}}, 0.025278065998576904`], ArrowBox[{{1.8065791849076513`, -2.027578100206971}, { 0.8064785219327566, -2.039193154045294}}, 0.025278065998576904`], ArrowBox[{{0.8064785219327566, -2.039193154045294}, { 0.2964786466916949, -1.179693420883797}}, 0.025278065998576904`], ArrowBox[{{0.2964786466916949, -1.179693420883797}, { 0.786751777805637, -0.3081814891267687}}, 0.025278065998576904`], ArrowBox[{{0.786751777805637, -0.3081814891267687}, { 1.7877480834541857`, -0.2964786466916949}}, 0.025278065998576904`], ArrowBox[ BezierCurveBox[{{1.296478646691695, -2.6321504474286836`}, { 0.7964786466916879, -2.7965911946117963`}, { 0.2964786466916951, -2.6321504474286836`}}], 0.025278065998576904`], ArrowBox[ BezierCurveBox[{{0.2964786466916951, -2.6321504474286836`}, { 0.7964786466916892, -2.467709700245569}, { 1.296478646691695, -2.6321504474286836`}}], 0.025278065998576904`]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{1.7877480834541857`, -0.2964786466916949}, 0.025278065998576904`], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {1.8130261494527626`, -0.271200580693118}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.297262486405217, -1.1563252384716793`}, 0.025278065998576904`], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {2.322540552403794, -1.1310471724731024`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.8065791849076513`, -2.027578100206971}, 0.025278065998576904`], InsetBox[ FormBox["7", TraditionalForm], Offset[{2, 2}, {1.8318572509062283`, -2.002300034208394}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.8064785219327566, -2.039193154045294}, 0.025278065998576904`], InsetBox[ FormBox["8", TraditionalForm], Offset[{2, 2}, {0.8317565879313336, -2.013915088046717}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.2964786466916949, -1.179693420883797}, 0.025278065998576904`], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {0.3217567126902718, -1.15441535488522}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.786751777805637, -0.3081814891267687}, 0.025278065998576904`], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {0.812029843804214, -0.2829034231281918}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.296478646691695, -2.6321504474286836`}, 0.025278065998576904`], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {1.321756712690272, -2.6068723814301067`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.2964786466916951, -2.6321504474286836`}, 0.025278065998576904`], InsetBox[ FormBox["6", TraditionalForm], Offset[{2, 2}, {0.321756712690272, -2.6068723814301067`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "8"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{3.807016576279867*^9}, CellLabel->"Out[142]=", CellID->767954369] }, Open ]], Cell["Same as a Monge shuffle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.807244894913497*^9, 3.8072449186997967`*^9}, { 3.8072450555217743`*^9, 3.807245065160138*^9}, 3.8072459160664263`*^9}, CellID->921106214], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Labeled", "[", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "#", "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}], ",", "#", ",", "Top"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"5", ",", "8"}], "]"}]}], ",", "2"}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807016510016471*^9, 3.807016523020523*^9}, { 3.8070165895321913`*^9, 3.8070166156663*^9}, {3.8072447021760063`*^9, 3.807244703655592*^9}, {3.80724476269851*^9, 3.807244777100589*^9}, 3.8072459432495317`*^9}, CellLabel->"In[179]:=", CellID->438308289], Cell[BoxData[ TagBox[GridBox[{ { TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 4, 3, 2, 5}, {{{1, 2}, {2, 3}, {3, 1}, {4, 4}, {5, 5}}, Null}, { VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[{{1.7342564699455687`, -0.2447521566485229}, { 2.2202891326590217`, -1.1186927538000606`}}, 0.02252624684229343], ArrowBox[{{2.2202891326590217`, -1.1186927538000606`}, { 2.7341276323585815`, -0.26080580400183906`}}, 0.02252624684229343], ArrowBox[{{2.7341276323585815`, -0.26080580400183906`}, { 1.7342564699455687`, -0.2447521566485229}}, 0.02252624684229343], ArrowBox[ BezierCurveBox[{{0.7447521566485229, -0.7447521566485229}, { 0.6562729011807624, -0.9355356890338252}, { 0.4573944236431715, -0.9919319314944193}, { 0.33022379916871425`, -0.932974852719546}, { 0.33022379916871425`, -0.5565294605774997}, { 0.4573944236431715, -0.49757238180262653`}, { 0.6562729011807623, -0.5539686242632206}, { 0.7447521566485229, -0.7447521566485229}}, SplineDegree -> 7], 0.02252624684229343], ArrowBox[ BezierCurveBox[{{0.7447521566485229, -2.234256469945569}, { 0.6562729011807624, -2.425040002330871}, { 0.4573944236431715, -2.4814362447914653`}, { 0.33022379916871425`, -2.422479166016592}, { 0.33022379916871425`, -2.0460337738745458`}, { 0.4573944236431715, -1.9870766950996726`}, { 0.6562729011807623, -2.0434729375602667`}, { 0.7447521566485229, -2.234256469945569}}, SplineDegree -> 7], 0.02252624684229343]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{1.7342564699455687`, -0.2447521566485229}, 0.02252624684229343], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {1.7567827167878622`, -0.22222590980622947`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.2202891326590217`, -1.1186927538000606`}, 0.02252624684229343], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {2.242815379501315, -1.096166506957767}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.7341276323585815`, -0.26080580400183906`}, 0.02252624684229343], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {2.756653879200875, -0.23827955715954563`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.7447521566485229, -0.7447521566485229}, 0.02252624684229343], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {0.7672784034908163, -0.7222259098062295}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.7447521566485229, -2.234256469945569}, 0.02252624684229343], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {0.7672784034908163, -2.2117302231032756`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "5"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 6, 5, 3, 2, 4}, {{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 1}}, Null}, { VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[{{{-0.8660254037844389, 0.5000000000000007}, {-0.8660254037844384, \ -0.4999999999999994}}, {{-0.8660254037844384, -0.4999999999999994}, { 3.8285686989269494`*^-16, -1.}}, {{ 3.8285686989269494`*^-16, -1.}, { 0.8660254037844389, -0.5000000000000012}}, {{ 0.8660254037844389, -0.5000000000000012}, {0.8660254037844386, 0.4999999999999993}}, {{0.8660254037844386, 0.4999999999999993}, {1.8369701987210297`*^-16, 1.}}, {{ 1.8369701987210297`*^-16, 1.}, {-0.8660254037844389, 0.5000000000000007}}}, 0.02261146496815286]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{-0.8660254037844389, 0.5000000000000007}, 0.02261146496815286], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {-0.843413938816286, 0.5226114649681535}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{-0.8660254037844384, -0.4999999999999994}, 0.02261146496815286], InsetBox[ FormBox["6", TraditionalForm], Offset[{2, 2}, {-0.8434139388162856, -0.47738853503184653`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{3.8285686989269494`*^-16, -1.}, 0.02261146496815286], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {0.022611464968153243`, -0.9773885350318472}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.8660254037844389, -0.5000000000000012}, 0.02261146496815286], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {0.8886368687525918, -0.47738853503184836`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.8660254037844386, 0.4999999999999993}, 0.02261146496815286], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {0.8886368687525914, 0.5226114649681521}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.8369701987210297`*^-16, 1.}, 0.02261146496815286], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {0.022611464968153045`, 1.0226114649681528`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "6"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )]}, { TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 6, 5, 3, 2, 4, 7}, {{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 1}, {7, 7}}, Null}, {VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[{{1.8502480834541857`, -0.3589786466916949}, { 2.359762486405217, -1.2188252384716793`}}, 0.02995682143432357], ArrowBox[{{2.359762486405217, -1.2188252384716793`}, { 1.8690791849076513`, -2.090078100206971}}, 0.02995682143432357], ArrowBox[{{1.8690791849076513`, -2.090078100206971}, { 0.8689785219327566, -2.101693154045294}}, 0.02995682143432357], ArrowBox[{{0.8689785219327566, -2.101693154045294}, { 0.3589786466916949, -1.242193420883797}}, 0.02995682143432357], ArrowBox[{{0.3589786466916949, -1.242193420883797}, { 0.849251777805637, -0.3706814891267687}}, 0.02995682143432357], ArrowBox[{{0.849251777805637, -0.3706814891267687}, { 1.8502480834541857`, -0.3589786466916949}}, 0.02995682143432357], ArrowBox[ BezierCurveBox[{{0.8589786466916951, -3.3196504474286836`}, { 0.7704993912239346, -3.510433979813986}, { 0.5716209136863437, -3.56683022227458}, { 0.44445028921188645`, -3.507873143499707}, { 0.44445028921188645`, -3.1314277513576605`}, { 0.5716209136863437, -3.0724706725827873`}, { 0.7704993912239345, -3.1288669150433814`}, { 0.8589786466916951, -3.3196504474286836`}}, SplineDegree -> 7], 0.02995682143432357]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{1.8502480834541857`, -0.3589786466916949}, 0.02995682143432357], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {1.8802049048885092`, -0.32902182525737134`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.359762486405217, -1.2188252384716793`}, 0.02995682143432357], InsetBox[ FormBox["6", TraditionalForm], Offset[{2, 2}, {2.3897193078395405`, -1.1888684170373558`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.8690791849076513`, -2.090078100206971}, 0.02995682143432357], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {1.899036006341975, -2.0601212787726473`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.8689785219327566, -2.101693154045294}, 0.02995682143432357], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {0.8989353433670801, -2.0717363326109703`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.3589786466916949, -1.242193420883797}, 0.02995682143432357], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {0.3889354681260184, -1.2122365994494735`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.849251777805637, -0.3706814891267687}, 0.02995682143432357], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {0.8792085992399605, -0.34072466769244514`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.8589786466916951, -3.3196504474286836`}, 0.02995682143432357], InsetBox[ FormBox["7", TraditionalForm], Offset[{2, 2}, {0.8889354681260186, -3.28969362599436}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "7"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 8, 7, 5, 2, 6, 3, 4}, {{{1, 2}, {2, 3}, {3, 4}, {4, 1}, {5, 6}, {6, 7}, {7, 8}, { 8, 5}}, Null}, {VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[{{{0.2542611937857486, -1.2543564184434166`}, { 1.2535393955313991`, -1.252250298751302}}, {{ 1.2535393955313991`, -1.252250298751302}, { 1.2501636106084963`, -0.25079758139748165`}}, {{ 1.2501636106084963`, -0.25079758139748165`}, { 0.25079758139748165`, -0.2544755684336666}}, {{ 0.25079758139748165`, -0.2544755684336666}, { 0.2542611937857486, -1.2543564184434166`}}, {{ 1.7585981707146292`, -1.2543564184434166`}, { 2.75787637246028, -1.252250298751302}}, {{ 2.75787637246028, -1.252250298751302}, { 2.754500587537377, -0.25079758139748165`}}, {{ 2.754500587537377, -0.25079758139748165`}, { 1.7551345583263622`, -0.2544755684336666}}, {{ 1.7551345583263622`, -0.2544755684336666}, { 1.7585981707146292`, -1.2543564184434166`}}}, 0.026597132291176592`]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{0.2542611937857486, -1.2543564184434166`}, 0.026597132291176592`], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {0.2808583260769252, -1.22775928615224}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.2535393955313991`, -1.252250298751302}, 0.026597132291176592`], InsetBox[ FormBox["8", TraditionalForm], Offset[{2, 2}, {1.2801365278225758`, -1.2256531664601253`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.2501636106084963`, -0.25079758139748165`}, 0.026597132291176592`], InsetBox[ FormBox["7", TraditionalForm], Offset[{2, 2}, {1.276760742899673, -0.22420044910630504`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.25079758139748165`, -0.2544755684336666}, 0.026597132291176592`], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {0.27739471368865826`, -0.22787843614248998`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.7585981707146292`, -1.2543564184434166`}, 0.026597132291176592`], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {1.7851953030058059`, -1.22775928615224}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.75787637246028, -1.252250298751302}, 0.026597132291176592`], InsetBox[ FormBox["6", TraditionalForm], Offset[{2, 2}, {2.7844735047514564`, -1.2256531664601253`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.754500587537377, -0.25079758139748165`}, 0.026597132291176592`], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {2.7810977198285536`, -0.22420044910630504`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.7551345583263622`, -0.2544755684336666}, 0.026597132291176592`], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {1.7817316906175389`, -0.22787843614248998`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "8"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8070165246067953`*^9, {3.807016591764206*^9, 3.807016616908369*^9}, 3.8072447050345087`*^9, {3.807244768926198*^9, 3.8072447790571623`*^9}, 3.807245944428431*^9}, CellLabel->"Out[179]=", CellID->82674127] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107580], Cell["\<\ A down Monge shuffle preserves the last element of even-sized decks:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.8072460752085867`*^9, 3.8072461086081553`*^9}, { 3.807246570247189*^9, 3.8072465755511217`*^9}}, CellID->415336727], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Labeled", "[", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "#", "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}], ",", "#", ",", "Top"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"5", ",", "8"}], "]"}]}], ",", "2"}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807016510016471*^9, 3.807016523020523*^9}, { 3.8070165895321913`*^9, 3.8070166156663*^9}, {3.8072447021760063`*^9, 3.807244703655592*^9}, {3.80724476269851*^9, 3.807244777100589*^9}, { 3.8072459432495317`*^9, 3.807245962594338*^9}}, CellLabel->"In[180]:=", CellID->932446269], Cell[BoxData[ TagBox[GridBox[{ { TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 5, 4, 2, 3}, {{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 1}}, Null}, { VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[{{{-0.9510565162951538, 0.30901699437494834`}, {-0.5877852522924727, \ -0.8090169943749468}}, {{-0.5877852522924727, -0.8090169943749468}, { 0.5877852522924737, -0.8090169943749481}}, {{ 0.5877852522924737, -0.8090169943749481}, {0.9510565162951533, 0.30901699437494634`}}, {{0.9510565162951533, 0.30901699437494634`}, {-7.044813998280222*^-16, 1.}}, {{-7.044813998280222*^-16, 1.}, {-0.9510565162951538, 0.30901699437494834`}}}, 0.021812234931106983`]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{-0.9510565162951538, 0.30901699437494834`}, 0.021812234931106983`], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {-0.9292442813640468, 0.3308292293060553}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{-0.5877852522924727, -0.8090169943749468}, 0.021812234931106983`], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {-0.5659730173613657, -0.7872047594438398}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.5877852522924737, -0.8090169943749481}, 0.021812234931106983`], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {0.6095974872235806, -0.7872047594438412}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.9510565162951533, 0.30901699437494634`}, 0.021812234931106983`], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {0.9728687512262603, 0.3308292293060533}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{-7.044813998280222*^-16, 1.}, 0.021812234931106983`], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {0.02181223493110628, 1.021812234931107}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "5"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 5, 4, 2, 3, 6}, {{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 1}, {6, 6}}, Null}, { VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[{{0.669120402479326, -0.3233664973828869}, { 0.3233664973828869, -1.261306743809494}}, 0.028075956931826088`], ArrowBox[{{0.3233664973828869, -1.261306743809494}, { 1.1086172738166478`, -1.8802890054263406`}}, 0.028075956931826088`], ArrowBox[{{1.1086172738166478`, -1.8802890054263406`}, { 1.940147947465623, -1.3252176074035815`}}, 0.028075956931826088`], ArrowBox[{{1.940147947465623, -1.3252176074035815`}, { 1.6693151787900684`, -0.36286806701592544`}}, 0.028075956931826088`], ArrowBox[{{1.6693151787900684`, -0.36286806701592544`}, { 0.669120402479326, -0.3233664973828869}}, 0.028075956931826088`], ArrowBox[ BezierCurveBox[{{0.8233664973828869, -3.0270220001921144`}, { 0.7348872419151264, -3.2178055325774166`}, { 0.5360087643775355, -3.274201775038011}, { 0.40883813990307827`, -3.2152446962631376`}, { 0.40883813990307827`, -2.8387993041210913`}, { 0.5360087643775355, -2.779842225346218}, { 0.7348872419151263, -2.836238467806812}, { 0.8233664973828869, -3.0270220001921144`}}, SplineDegree -> 7], 0.028075956931826088`]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{0.669120402479326, -0.3233664973828869}, 0.028075956931826088`], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {0.6971963594111521, -0.29529054045106085`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.3233664973828869, -1.261306743809494}, 0.028075956931826088`], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {0.351442454314713, -1.233230786877668}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.1086172738166478`, -1.8802890054263406`}, 0.028075956931826088`], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {1.1366932307484738`, -1.8522130484945145`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.940147947465623, -1.3252176074035815`}, 0.028075956931826088`], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {1.968223904397449, -1.2971416504717554`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.6693151787900684`, -0.36286806701592544`}, 0.028075956931826088`], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {1.6973911357218945`, -0.33479211008409937`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.8233664973828869, -3.0270220001921144`}, 0.028075956931826088`], InsetBox[ FormBox["6", TraditionalForm], Offset[{2, 2}, {0.851442454314713, -2.9989460432602884`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "6"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )]}, { TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 7, 6, 4, 2, 5, 3}, {{{1, 2}, {2, 3}, {3, 4}, {4, 1}, {5, 6}, {6, 5}, {7, 7}}, Null}, {VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[{{0.2120694728540941, -1.2121646975117621`}, { 1.2113476745997447`, -1.2100585778196475`}}, 0.02195864600300143], ArrowBox[{{1.2113476745997447`, -1.2100585778196475`}, { 1.2079718896768419`, -0.2086058604658272}}, 0.02195864600300143], ArrowBox[{{1.2079718896768419`, -0.2086058604658272}, { 0.2086058604658272, -0.21228384750201212`}}, 0.02195864600300143], ArrowBox[{{0.2086058604658272, -0.21228384750201212`}, { 0.2120694728540941, -1.2121646975117621`}}, 0.02195864600300143], ArrowBox[ BezierCurveBox[{{1.2086058604658272`, -1.6293764184434165`}, { 0.7086058604658275, -1.7938171656265363`}, { 0.2086058604658272, -1.6293764184434165`}}], 0.02195864600300143], ArrowBox[ BezierCurveBox[{{0.2086058604658272, -1.6293764184434165`}, { 0.7086058604658217, -1.4649356712603}, { 1.2086058604658272`, -1.6293764184434165`}}], 0.02195864600300143], ArrowBox[ BezierCurveBox[{{2.128559395531399, -0.7086058604658272}, { 2.040080140063638, -0.8993893928511295}, { 1.8412016625260474`, -0.9557856353117236}, { 1.7140310380515902`, -0.8968285565368503}, { 1.7140310380515902`, -0.520383164394804}, { 1.8412016625260474`, -0.4614260856199308}, { 2.040080140063638, -0.5178223280805249}, { 2.128559395531399, -0.7086058604658272}}, SplineDegree -> 7], 0.02195864600300143]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{0.2120694728540941, -1.2121646975117621`}, 0.02195864600300143], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {0.23402811885709554`, -1.1902060515087607`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.2113476745997447`, -1.2100585778196475`}, 0.02195864600300143], InsetBox[ FormBox["7", TraditionalForm], Offset[{2, 2}, {1.2333063206027461`, -1.188099931816646}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.2079718896768419`, -0.2086058604658272}, 0.02195864600300143], InsetBox[ FormBox["6", TraditionalForm], Offset[{2, 2}, {1.2299305356798433`, -0.18664721446282576`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.2086058604658272, -0.21228384750201212`}, 0.02195864600300143], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {0.23056450646882862`, -0.1903252014990107}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.2086058604658272`, -1.6293764184434165`}, 0.02195864600300143], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {1.2305645064688286`, -1.607417772440415}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.2086058604658272, -1.6293764184434165`}, 0.02195864600300143], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {0.23056450646882862`, -1.607417772440415}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.128559395531399, -0.7086058604658272}, 0.02195864600300143], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {2.1505180415344003`, -0.6866472144628257}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "7"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 7, 6, 4, 2, 5, 3, 8}, {{{1, 2}, {2, 3}, {3, 4}, {4, 1}, {5, 6}, {6, 5}, {7, 7}, { 8, 8}}, Null}, {VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[{{0.22242050773763727`, -1.2225157323953053`}, { 1.2216987094832878`, -1.2204096127031907`}}, 0.02607877068573694], ArrowBox[{{1.2216987094832878`, -1.2204096127031907`}, { 1.218322924560385, -0.21895689534937035`}}, 0.02607877068573694], ArrowBox[{{1.218322924560385, -0.21895689534937035`}, { 0.21895689534937035`, -0.2226348823855553}}, 0.02607877068573694], ArrowBox[{{0.21895689534937035`, -0.2226348823855553}, { 0.22242050773763727`, -1.2225157323953053`}}, 0.02607877068573694], ArrowBox[ BezierCurveBox[{{2.65824159311507, -2.160429523094046}, { 2.1582415931150334`, -2.3248702702771613`}, { 1.6582415931150698`, -2.160429523094046}}], 0.02607877068573694], ArrowBox[ BezierCurveBox[{{1.6582415931150698`, -2.160429523094046}, { 2.1582415931151058`, -1.9959887759109123`}, { 2.65824159311507, -2.160429523094046}}], 0.02607877068573694], ArrowBox[ BezierCurveBox[{{2.1596125001820283`, -0.7189568953493704}, { 2.0711332447142676`, -0.9097404277346727}, { 1.872254767176677, -0.9661366701952667}, { 1.7450841427022197`, -0.9071795914203935}, { 1.7450841427022197`, -0.5307341992783472}, { 1.872254767176677, -0.471777120503474}, { 2.0711332447142676`, -0.528173362964068}, { 2.1596125001820283`, -0.7189568953493704}}, SplineDegree -> 7], 0.02607877068573694], ArrowBox[ BezierCurveBox[{{0.7189568953493704, -2.160429523094046}, { 0.6304776398816099, -2.3512130554793482`}, { 0.43159916234401896`, -2.4076092979399424`}, { 0.3044285378695617, -2.348652219165069}, { 0.3044285378695617, -1.9722068270230229`}, { 0.43159916234401896`, -1.9132497482481496`}, { 0.6304776398816098, -1.9696459907087436`}, { 0.7189568953493704, -2.160429523094046}}, SplineDegree -> 7], 0.02607877068573694]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{0.22242050773763727`, -1.2225157323953053`}, 0.02607877068573694], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {0.24849927842337421`, -1.1964369617095683`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.2216987094832878`, -1.2204096127031907`}, 0.02607877068573694], InsetBox[ FormBox["7", TraditionalForm], Offset[{2, 2}, {1.2477774801690247`, -1.1943308420174539`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.218322924560385, -0.21895689534937035`}, 0.02607877068573694], InsetBox[ FormBox["6", TraditionalForm], Offset[{2, 2}, {1.2444016952461219`, -0.1928781246636334}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.21895689534937035`, -0.2226348823855553}, 0.02607877068573694], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {0.2450356660351073, -0.19655611169981835`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.65824159311507, -2.160429523094046}, 0.02607877068573694], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {2.684320363800807, -2.134350752408309}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.6582415931150698`, -2.160429523094046}, 0.02607877068573694], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {1.6843203638008069`, -2.134350752408309}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.1596125001820283`, -0.7189568953493704}, 0.02607877068573694], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {2.1856912708677654`, -0.6928781246636334}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.7189568953493704, -2.160429523094046}, 0.02607877068573694], InsetBox[ FormBox["8", TraditionalForm], Offset[{2, 2}, {0.7450356660351073, -2.134350752408309}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "8"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{3.807245964046095*^9}, CellLabel->"Out[180]=", CellID->998706281] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107581], Cell["A down under shuffle preserves the first element:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8072466619747963`*^9, 3.807246699040864*^9}, 3.807248794771653*^9}, CellID->436645718], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Grid", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Labeled", "[", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "#", "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}], ",", "#", ",", "Top"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"5", ",", "8"}], "]"}]}], ",", "2"}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807016510016471*^9, 3.807016523020523*^9}, { 3.8070165895321913`*^9, 3.8070166156663*^9}, {3.8072447021760063`*^9, 3.807244703655592*^9}, {3.80724476269851*^9, 3.807244777100589*^9}, { 3.8072459432495317`*^9, 3.807245962594338*^9}, {3.807246123902288*^9, 3.8072461302436457`*^9}, 3.807246505800226*^9, 3.807246712588912*^9}, CellLabel->"In[183]:=", CellID->461703715], Cell[BoxData[ TagBox[GridBox[{ { TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 5, 4}, {{{1, 1}, {2, 3}, {3, 4}, {4, 5}, {5, 2}}, Null}, { VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[ BezierCurveBox[{{2.25395318623014, -0.7504037906987409}, { 2.165473930762379, -0.9411873230840432}, { 1.9665954532247885`, -0.9975835655446372}, { 1.8394248287503312`, -0.938626486769764}, { 1.8394248287503312`, -0.5621810946277177}, { 1.9665954532247885`, -0.5032240158528445}, { 2.165473930762379, -0.5596202583134385}, { 2.25395318623014, -0.7504037906987409}}, SplineDegree -> 7], 0.022640257968104954`], ArrowBox[{{0.2538674030870078, -1.2539626277446758`}, { 1.2531456048326584`, -1.2518565080525612`}}, 0.022640257968104954`], ArrowBox[{{1.2531456048326584`, -1.2518565080525612`}, { 1.2497698199097556`, -0.25040379069874086`}}, 0.022640257968104954`], ArrowBox[{{1.2497698199097556`, -0.25040379069874086`}, { 0.25040379069874086`, -0.2540817777349258}}, 0.022640257968104954`], ArrowBox[{{0.25040379069874086`, -0.2540817777349258}, { 0.2538674030870078, -1.2539626277446758`}}, 0.022640257968104954`]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{2.25395318623014, -0.7504037906987409}, 0.022640257968104954`], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {2.276593444198245, -0.7277635327306359}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.2538674030870078, -1.2539626277446758`}, 0.022640257968104954`], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {0.2765076610551127, -1.231322369776571}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.2531456048326584`, -1.2518565080525612`}, 0.022640257968104954`], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {1.2757858628007632`, -1.2292162500844563`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.2497698199097556`, -0.25040379069874086`}, 0.022640257968104954`], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {1.2724100778778604`, -0.2277635327306359}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.25040379069874086`, -0.2540817777349258}, 0.022640257968104954`], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {0.27304404866684584`, -0.23144151976682084`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "5"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 5, 6, 4}, {{{1, 1}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 2}}, Null}, { VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[ BezierCurveBox[{{0.8233664973828869, -3.0270220001921144`}, { 0.7348872419151264, -3.2178055325774166`}, { 0.5360087643775355, -3.274201775038011}, { 0.40883813990307827`, -3.2152446962631376`}, { 0.40883813990307827`, -2.8387993041210913`}, { 0.5360087643775355, -2.779842225346218}, { 0.7348872419151263, -2.836238467806812}, { 0.8233664973828869, -3.0270220001921144`}}, SplineDegree -> 7], 0.028075956931826088`], ArrowBox[{{0.669120402479326, -0.3233664973828869}, { 0.3233664973828869, -1.261306743809494}}, 0.028075956931826088`], ArrowBox[{{0.3233664973828869, -1.261306743809494}, { 1.1086172738166478`, -1.8802890054263406`}}, 0.028075956931826088`], ArrowBox[{{1.1086172738166478`, -1.8802890054263406`}, { 1.940147947465623, -1.3252176074035815`}}, 0.028075956931826088`], ArrowBox[{{1.940147947465623, -1.3252176074035815`}, { 1.6693151787900684`, -0.36286806701592544`}}, 0.028075956931826088`], ArrowBox[{{1.6693151787900684`, -0.36286806701592544`}, { 0.669120402479326, -0.3233664973828869}}, 0.028075956931826088`]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{0.8233664973828869, -3.0270220001921144`}, 0.028075956931826088`], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {0.851442454314713, -2.9989460432602884`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.669120402479326, -0.3233664973828869}, 0.028075956931826088`], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {0.6971963594111521, -0.29529054045106085`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.3233664973828869, -1.261306743809494}, 0.028075956931826088`], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {0.351442454314713, -1.233230786877668}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.1086172738166478`, -1.8802890054263406`}, 0.028075956931826088`], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {1.1366932307484738`, -1.8522130484945145`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.940147947465623, -1.3252176074035815`}, 0.028075956931826088`], InsetBox[ FormBox["6", TraditionalForm], Offset[{2, 2}, {1.968223904397449, -1.2971416504717554`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.6693151787900684`, -0.36286806701592544`}, 0.028075956931826088`], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {1.6973911357218945`, -0.33479211008409937`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "6"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )]}, { TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 5, 4, 7, 6}, {{{1, 1}, {2, 3}, {3, 4}, {4, 2}, {5, 6}, {6, 5}, {7, 7}}, Null}, {VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[ BezierCurveBox[{{0.7148166174863922, -0.7148166174863922}, { 0.6263373620186317, -0.9056001498716946}, { 0.4274588844810408, -0.9619963923322887}, { 0.3002882600065835, -0.9030393135574155}, { 0.3002882600065835, -0.5265939214153691}, { 0.4274588844810408, -0.4676368426404958}, { 0.6263373620186317, -0.5240330851010898}, { 0.7148166174863922, -0.7148166174863922}}, SplineDegree -> 7], 0.02203794420941302], ArrowBox[{{1.6445142712526704`, -0.21481661748639214`}, { 2.130546933966124, -1.0887572146379298`}}, 0.02203794420941302], ArrowBox[{{2.130546933966124, -1.0887572146379298`}, { 2.6443854336656836`, -0.2308702648397083}}, 0.02203794420941302], ArrowBox[{{2.6443854336656836`, -0.2308702648397083}, { 1.6445142712526704`, -0.21481661748639214`}}, 0.02203794420941302], ArrowBox[ BezierCurveBox[{{2.644449852459177, -2.0814201510349455`}, { 2.144449852459217, -2.2458608982180728`}, { 1.6444498524591769`, -2.0814201510349455`}}], 0.02203794420941302], ArrowBox[ BezierCurveBox[{{1.6444498524591769`, -2.0814201510349455`}, { 2.1444498524591884`, -1.916979403851823}, { 2.644449852459177, -2.0814201510349455`}}], 0.02203794420941302], ArrowBox[ BezierCurveBox[{{0.7148166174863922, -2.144449852459177}, { 0.6263373620186317, -2.335233384844479}, { 0.4274588844810408, -2.3916296273050732`}, { 0.3002882600065835, -2.3326725485302}, { 0.3002882600065835, -1.9562271563881537`}, { 0.4274588844810408, -1.8972700776132805`}, { 0.6263373620186317, -1.9536663200738744`}, { 0.7148166174863922, -2.144449852459177}}, SplineDegree -> 7], 0.02203794420941302]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{0.7148166174863922, -0.7148166174863922}, 0.02203794420941302], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {0.7368545616958053, -0.6927786732769792}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.6445142712526704`, -0.21481661748639214`}, 0.02203794420941302], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {1.6665522154620833`, -0.19277867327697912`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.130546933966124, -1.0887572146379298`}, 0.02203794420941302], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {2.152584878175537, -1.0667192704285169`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.6443854336656836`, -0.2308702648397083}, 0.02203794420941302], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {2.6664233778750965`, -0.20883232063029528`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.644449852459177, -2.0814201510349455`}, 0.02203794420941302], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {2.66648779666859, -2.0593822068255325`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.6444498524591769`, -2.0814201510349455`}, 0.02203794420941302], InsetBox[ FormBox["7", TraditionalForm], Offset[{2, 2}, {1.6664877966685898`, -2.0593822068255325`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.7148166174863922, -2.144449852459177}, 0.02203794420941302], InsetBox[ FormBox["6", TraditionalForm], Offset[{2, 2}, {0.7368545616958053, -2.122411908249764}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "7"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 5, 4, 7, 6, 8}, {{{1, 1}, {2, 3}, {3, 4}, {4, 2}, {5, 6}, {6, 5}, {7, 7}, { 8, 8}}, Null}, {VertexLabels -> {"Name"}}]]}, TagBox[ GraphicsGroupBox[{{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[ BezierCurveBox[{{0.7218552939891137, -0.7218552939891137}, { 0.6333760385213532, -0.9126388263744161}, { 0.43449756098376235`, -0.9690350688350101}, { 0.3073269365093051, -0.9100779900601369}, { 0.3073269365093051, -0.5336325979180907}, { 0.43449756098376235`, -0.4746755191432174}, { 0.6333760385213532, -0.5310717616038114}, { 0.7218552939891137, -0.7218552939891137}}, SplineDegree -> 7], 0.026112250043138704`], ArrowBox[{{1.6656303007608348`, -1.7285955833915723`}, { 2.151662963474288, -2.60253618054311}}, 0.026112250043138704`], ArrowBox[{{2.151662963474288, -2.60253618054311}, { 2.6655014631738476`, -1.7446492307448884`}}, 0.026112250043138704`], ArrowBox[{{2.6655014631738476`, -1.7446492307448884`}, { 1.6656303007608348`, -1.7285955833915723`}}, 0.026112250043138704`], ArrowBox[ BezierCurveBox[{{1.2218552939891136`, -3.1092764699455686`}, { 0.7218552939891205, -3.273717217128693}, { 0.22185529398911363`, -3.1092764699455686`}}], 0.026112250043138704`], ArrowBox[ BezierCurveBox[{{0.22185529398911363`, -3.1092764699455686`}, { 0.721855293989123, -2.94483572276245}, { 1.2218552939891136`, -3.1092764699455686`}}], 0.026112250043138704`], ArrowBox[ BezierCurveBox[{{0.7218552939891137, -2.1655658819673413`}, { 0.6333760385213532, -2.3563494143526436`}, { 0.43449756098376235`, -2.4127456568132377`}, { 0.3073269365093051, -2.3537885780383645`}, { 0.3073269365093051, -1.9773431858963182`}, { 0.43449756098376235`, -1.918386107121445}, { 0.6333760385213532, -1.974782349582039}, { 0.7218552939891137, -2.1655658819673413`}}, SplineDegree -> 7], 0.026112250043138704`], ArrowBox[ BezierCurveBox[{{2.1655658819673413`, -0.7218552939891137}, { 2.0770866264995806`, -0.9126388263744161}, { 1.87820814896199, -0.9690350688350101}, { 1.7510375244875327`, -0.9100779900601369}, { 1.7510375244875327`, -0.5336325979180907}, { 1.87820814896199, -0.4746755191432174}, { 2.0770866264995806`, -0.5310717616038114}, { 2.1655658819673413`, -0.7218552939891137}}, SplineDegree -> 7], 0.026112250043138704`]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], { DiskBox[{0.7218552939891137, -0.7218552939891137}, 0.026112250043138704`], InsetBox[ FormBox["1", TraditionalForm], Offset[{2, 2}, {0.7479675440322524, -0.6957430439459751}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.6656303007608348`, -1.7285955833915723`}, 0.026112250043138704`], InsetBox[ FormBox["2", TraditionalForm], Offset[{2, 2}, {1.6917425508039736`, -1.7024833333484335`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.151662963474288, -2.60253618054311}, 0.026112250043138704`], InsetBox[ FormBox["3", TraditionalForm], Offset[{2, 2}, {2.1777752135174264`, -2.5764239304999714`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.6655014631738476`, -1.7446492307448884`}, 0.026112250043138704`], InsetBox[ FormBox["5", TraditionalForm], Offset[{2, 2}, {2.691613713216986, -1.7185369807017497`}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{1.2218552939891136`, -3.1092764699455686`}, 0.026112250043138704`], InsetBox[ FormBox["4", TraditionalForm], Offset[{2, 2}, {1.2479675440322524`, -3.08316421990243}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.22185529398911363`, -3.1092764699455686`}, 0.026112250043138704`], InsetBox[ FormBox["7", TraditionalForm], Offset[{2, 2}, {0.24796754403225235`, -3.08316421990243}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{0.7218552939891137, -2.1655658819673413`}, 0.026112250043138704`], InsetBox[ FormBox["6", TraditionalForm], Offset[{2, 2}, {0.7479675440322524, -2.139453631924203}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, { DiskBox[{2.1655658819673413`, -0.7218552939891137}, 0.026112250043138704`], InsetBox[ FormBox["8", TraditionalForm], Offset[{2, 2}, {2.19167813201048, -0.6957430439459751}], ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}}}], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "8"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )]} }, AutoDelete->False, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", TaggingRules->{}, CellChangeTimes->{3.807246131306308*^9, 3.807246507323154*^9, 3.807246713266974*^9}, CellLabel->"Out[183]=", CellID->526955515] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Shuffle order", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.80700908231037*^9, 3.807009083085785*^9}, { 3.807009158644079*^9, 3.8070091766032887`*^9}, {3.807014849306534*^9, 3.807014851105783*^9}, {3.807247740845126*^9, 3.807247744588623*^9}, { 3.8261957539105873`*^9, 3.8261957543964567`*^9}}, CellID->486956713], Cell["\<\ The order, or period, of a shuffle is the number of shuffles that restores \ the original sequence of cards in the deck:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.804674412641868*^9, 3.804674436649013*^9}, { 3.806400972133377*^9, 3.8064010356919317`*^9}, {3.806401097002946*^9, 3.806401121978557*^9}, 3.806401209924011*^9, {3.806402274063457*^9, 3.8064022820067043`*^9}, {3.806487554483704*^9, 3.806487557746893*^9}, { 3.8069227576917562`*^9, 3.806922762611847*^9}, {3.8070013977635727`*^9, 3.807001438114046*^9}, {3.8070014775769863`*^9, 3.807001487998487*^9}}, CellID->630451215], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"\"\\"", ",", "8"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806921989062683*^9, 3.806922062102186*^9}}, CellLabel->"In[5]:=", CellID->651935793], Cell[BoxData["4"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.806922064183902*^9, 3.8069225406798487`*^9, {3.806922591178788*^9, 3.806922614114653*^9}, 3.806922655717235*^9, 3.806922709988534*^9}, CellLabel->"Out[0]=", CellID->310873766] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "8", "]"}], ",", "4", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8072504174344254`*^9, 3.807250449741541*^9}}, CellLabel->"In[203]:=", CellID->120188982], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.807250450331914*^9}, CellLabel->"Out[203]=", CellID->300643372] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107582], Cell["Shuffle periods for several shuffle types and deck sizes:", "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[207809]}, CellChangeTimes->{{3.806488054030799*^9, 3.8064880871732388`*^9}, { 3.806991704440691*^9, 3.80699171737549*^9}, {3.8070061088647327`*^9, 3.807006141064745*^9}, 3.807248103967844*^9, {3.8072506112594643`*^9, 3.8072506142752542`*^9}, {3.807250689938176*^9, 3.807250702841653*^9}}, CellID->441640923], Cell[BoxData[ RowBox[{ RowBox[{"range", "=", RowBox[{"Range", "[", RowBox[{"4", ",", "52", ",", "4"}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806488112397586*^9, 3.806488264505678*^9}, { 3.806488398944462*^9, 3.806488439949275*^9}, 3.806666168734057*^9, { 3.806923041141889*^9, 3.806923041291103*^9}, {3.806923208348794*^9, 3.8069232327701283`*^9}, {3.806923695757472*^9, 3.8069237398837423`*^9}, 3.8069238206982183`*^9, {3.8069238512881403`*^9, 3.806923852791718*^9}, { 3.80692390614301*^9, 3.806924008243463*^9}, {3.8069241560729427`*^9, 3.806924195918754*^9}, {3.8069252140950003`*^9, 3.8069252238588142`*^9}, { 3.806925318419031*^9, 3.80692535605753*^9}, {3.806925388672011*^9, 3.806925396407978*^9}, {3.806925694248516*^9, 3.8069257025352707`*^9}, 3.806925838918666*^9, {3.806925890387877*^9, 3.8069258970355186`*^9}, { 3.80692610182372*^9, 3.806926186234421*^9}, {3.806982949837838*^9, 3.80698296622805*^9}, 3.8069830803504353`*^9, 3.806989474623415*^9}, CellLabel->"In[73]:=", CellID->122653006], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Labeled", "[", RowBox[{ RowBox[{"TableForm", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Shuffle", "[", "type", "]"}], ",", "#"}], "]"}], "&"}], "/@", "range"}], ",", RowBox[{"{", RowBox[{"type", ",", RowBox[{"Shuffle", "[", "\"\\"", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"TableHeadings", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Shuffle", "[", "\"\\"", "]"}], ",", "range"}], "}"}]}]}], "]"}], ",", "\"\\"", ",", "Top"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806488112397586*^9, 3.806488264505678*^9}, { 3.806488398944462*^9, 3.806488439949275*^9}, 3.806666168734057*^9, { 3.806923041141889*^9, 3.806923041291103*^9}, {3.806923208348794*^9, 3.8069232327701283`*^9}, {3.806923695757472*^9, 3.8069237398837423`*^9}, 3.8069238206982183`*^9, {3.8069238512881403`*^9, 3.806923852791718*^9}, { 3.80692390614301*^9, 3.806924008243463*^9}, {3.8069241560729427`*^9, 3.806924195918754*^9}, {3.8069252140950003`*^9, 3.8069252238588142`*^9}, { 3.806925318419031*^9, 3.80692535605753*^9}, {3.806925388672011*^9, 3.806925396407978*^9}, {3.806925694248516*^9, 3.8069257025352707`*^9}, 3.806925838918666*^9, {3.806925890387877*^9, 3.8069258970355186`*^9}, { 3.80692610182372*^9, 3.806926186234421*^9}, {3.806982949837838*^9, 3.80698296622805*^9}, 3.8069830803504353`*^9, 3.806989474623415*^9}, CellID->317497974], Cell[BoxData[ TemplateBox[{ TagBox[ TagBox[ GridBox[{{ StyleBox["\[Null]", ShowStringCharacters -> False], TagBox["4", HoldForm], TagBox["8", HoldForm], TagBox["12", HoldForm], TagBox["16", HoldForm], TagBox["20", HoldForm], TagBox["24", HoldForm], TagBox["28", HoldForm], TagBox["32", HoldForm], TagBox["36", HoldForm], TagBox["40", HoldForm], TagBox["44", HoldForm], TagBox["48", HoldForm], TagBox["52", HoldForm]}, { TagBox["\"Out\"", HoldForm], "2", "3", "10", "4", "18", "11", "18", "5", "12", "12", "14", "23", "8"}, { TagBox["\"ReverseOut\"", HoldForm], "2", "3", "10", "4", "18", "11", "18", "5", "12", "12", "14", "23", "8"}, { TagBox["\"In\"", HoldForm], "4", "6", "12", "8", "6", "20", "28", "10", "36", "20", "12", "21", "52"}, { TagBox["\"ReverseIn\"", HoldForm], "4", "6", "12", "8", "6", "20", "28", "10", "36", "20", "12", "21", "52"}, { TagBox["\"Monge\"", HoldForm], "3", "4", "10", "5", "10", "21", "9", "6", "9", "27", "11", "24", "12"}, { TagBox["\"DownMonge\"", HoldForm], "3", "4", "11", "5", "12", "23", "20", "6", "35", "39", "28", "36", "51"}, { TagBox["\"Milk\"", HoldForm], "3", "4", "11", "5", "12", "23", "20", "6", "35", "39", "28", "36", "51"}, { TagBox["\"DownUnder\"", HoldForm], "2", "6", "28", "12", "40", "126", "50", "60", "140", "39", "1170", "1386", "1392"}, { TagBox["\"RandomSample\"", HoldForm], "3", "12", "10", "8", "90", "42", "27", "30", "210", "38", "44", "440", "3192"}}, RowSpacings -> 1, ColumnSpacings -> 3, RowAlignments -> Baseline, ColumnAlignments -> Left, ColumnLines -> {1, False}, RowLines -> {1, False}, ColumnAlignments -> Left], { OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {{ "Out", "ReverseOut", "In", "ReverseIn", "Monge", "DownMonge", "Milk", "DownUnder", "RandomSample"}, {4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52}}]]], "\"Shuffle order per deck size\""}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.806924196991212*^9, 3.806925225607933*^9, 3.8069253584146233`*^9, 3.806925397427717*^9, {3.806925669791319*^9, 3.806925703087089*^9}, 3.8069257622574587`*^9, 3.806925803107163*^9, 3.8069258611408863`*^9, 3.8069259022796383`*^9, {3.806926104495719*^9, 3.8069261231817627`*^9}, 3.806926156268198*^9, 3.806926187429214*^9, 3.806983103515774*^9, 3.8069861247433453`*^9, {3.806986157532631*^9, 3.806986177627956*^9}, 3.8069862747445803`*^9}, CellLabel->"Out[426]=", CellID->940187708] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107583], Cell[TextData[{ "The shuffle order of an out shuffle of ", Cell[BoxData[ RowBox[{"2", StyleBox["n", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " cards is the multiplicative order of 2 modulo ", Cell[BoxData[ RowBox[{ RowBox[{"2", StyleBox["n", "TI"]}], "-", "1"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.8069903733273067`*^9, 3.806990435723328*^9}, { 3.806991824604965*^9, 3.80699189176929*^9}, {3.807001105929113*^9, 3.807001128546123*^9}}, CellID->558879768], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Shuffle", "[", "\"\\"", "]"}], ",", RowBox[{"2", " ", "#"}]}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "26", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806990476169978*^9, 3.806990533772601*^9}, { 3.806990788121076*^9, 3.806990789945056*^9}, {3.8069908229046307`*^9, 3.8069908244078407`*^9}, {3.8069921695640182`*^9, 3.8069921824054413`*^9}, { 3.806992475678088*^9, 3.806992476643311*^9}, {3.80700116766661*^9, 3.807001168449505*^9}}, CellLabel->"In[71]:=", CellID->191120223], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "4", ",", "3", ",", "6", ",", "10", ",", "12", ",", "4", ",", "8", ",", "18", ",", "6", ",", "11", ",", "20", ",", "18", ",", "28", ",", "5", ",", "10", ",", "12", ",", "36", ",", "12", ",", "20", ",", "14", ",", "12", ",", "23", ",", "21", ",", "8"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.806990534721547*^9, 3.806990790557892*^9, {3.806990825180357*^9, 3.806990837299114*^9}, 3.8069915169607763`*^9, 3.8069919366742287`*^9, 3.806992183476255*^9, 3.806992477281302*^9, 3.806995883110675*^9, 3.8069965739853287`*^9, 3.8069994312678213`*^9, {3.80700114774886*^9, 3.807001174328668*^9}}, CellLabel->"Out[71]=", CellID->197643025] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MultiplicativeOrder", "[", RowBox[{"2", ",", RowBox[{ RowBox[{"2", "#"}], "-", "1"}]}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "26", "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.806991122522599*^9, 3.806991148781708*^9}, 3.806991509936878*^9, {3.806992249065771*^9, 3.806992261289324*^9}}, CellLabel->"In[72]:=", CellID->55508619], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "4", ",", "3", ",", "6", ",", "10", ",", "12", ",", "4", ",", "8", ",", "18", ",", "6", ",", "11", ",", "20", ",", "18", ",", "28", ",", "5", ",", "10", ",", "12", ",", "36", ",", "12", ",", "20", ",", "14", ",", "12", ",", "23", ",", "21", ",", "8"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.806991140469743*^9, 3.8069911548988934`*^9}, { 3.806991511490551*^9, 3.8069915178936996`*^9}, 3.806991937442905*^9, 3.8069922619368687`*^9, 3.807001176294066*^9}, CellLabel->"Out[72]=", CellID->889672171] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "===", "%%"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807001179502084*^9, 3.807001181153344*^9}}, CellLabel->"In[73]:=", CellID->344564957], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{3.807001181739393*^9}, CellLabel->"Out[73]=", CellID->418136101] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107584], Cell["\<\ Shuffle period for a Monge shuffle of an odd-sized deck is the same as the \ shuffle period of the even-sized deck with one less card:\ \>", "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[207889]}, CellChangeTimes->{{3.807252352813291*^9, 3.8072524062039824`*^9}, { 3.807252469531578*^9, 3.807252525594795*^9}, {3.826195832433194*^9, 3.826195838423801*^9}}, CellID->1649034], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"\"\\"", ",", "#"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"2", ",", "20"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8072525320221*^9, 3.807252609752983*^9}}, CellLabel->"In[205]:=", CellID->263794257], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "2", ",", "3", ",", "3", ",", "6", ",", "6", ",", "4", ",", "4", ",", "6", ",", "6", ",", "10", ",", "10", ",", "14", ",", "14", ",", "5", ",", "5", ",", "18", ",", "18", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8072526103802137`*^9}, CellLabel->"Out[205]=", CellID->527412844] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Inverses", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.80700908231037*^9, 3.807009083085785*^9}, { 3.807009158644079*^9, 3.8070091766032887`*^9}, {3.807014849306534*^9, 3.807014851105783*^9}}, CellID->270587270], Cell["\<\ Out and reverse out shuffles are inverses of each other\[LongDash]that is, \ applying one shuffle after another restores the original order of the deck:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.8070199668420067`*^9, 3.807020034631442*^9}, { 3.807243724198641*^9, 3.807243725476942*^9}, {3.826195849589965*^9, 3.826195852961405*^9}}, CellID->617712782], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.80700349751748*^9, 3.807003544046988*^9}}, CellLabel->"In[82]:=", CellID->32447252], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "6", ",", "2", ",", "7", ",", "3", ",", "8", ",", "4", ",", "9", ",", "5", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8070035180486593`*^9, 3.807003544755549*^9}}, CellLabel->"Out[82]=", CellID->702327463] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{"%", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.80700349751748*^9, 3.807003533183296*^9}}, CellLabel->"In[83]:=", CellID->170728872], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8070035343704147`*^9, 3.807003547318139*^9}}, CellLabel->"Out[83]=", CellID->210210930] }, Open ]], Cell["And vice versa:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8070087904778433`*^9, 3.807008796397799*^9}}, CellID->993820411], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.80700349751748*^9, 3.807003544046988*^9}, 3.807008740752347*^9}, CellID->383797683], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "6", ",", "2", ",", "7", ",", "3", ",", "8", ",", "4", ",", "9", ",", "5", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8070035180486593`*^9, 3.807003544755549*^9}}, CellLabel->"Out[82]=", CellID->702327464] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{"%", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.80700349751748*^9, 3.807003533183296*^9}, { 3.807008738280653*^9, 3.80700874428755*^9}}, CellID->15996472], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8070035343704147`*^9, 3.807003547318139*^9}}, CellLabel->"Out[83]=", CellID->210210931] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107585], Cell["\<\ Shuffles that are mutual inverses have the same cycle structure and, \ therefore, the same fixed points and the same shuffle period:\ \>", "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[207969]}, CellChangeTimes->{{3.8072481887814713`*^9, 3.807248295819154*^9}, { 3.807249143425057*^9, 3.8072491441398897`*^9}, {3.807249187908546*^9, 3.8072491911249647`*^9}}, CellID->604995485], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Labeled", "[", RowBox[{ RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "#"}], "]"}], "]"}], ",", "#", ",", "Top"}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]], "Input", TaggingRules->{}, 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}, {3.806399848912595*^9, 3.80639985124666*^9}, {3.806490875934183*^9, 3.80649089730908*^9}, { 3.806492031065889*^9, 3.8064921063825083`*^9}, 3.806666158246222*^9, { 3.806921774356587*^9, 3.80692180932822*^9}, {3.8069218805793953`*^9, 3.8069218826916103`*^9}, {3.807248344034956*^9, 3.8072483444742737`*^9}, { 3.80724843056919*^9, 3.8072484830403214`*^9}, {3.8072487033185167`*^9, 3.807248724996821*^9}, {3.8072492806050158`*^9, 3.807249308947016*^9}}, CellLabel->"In[199]:=", CellID->657501526], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 6, 8, 9, 5, 3, 4, 7, 10}, {{{1, 1}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 7}, {7, 2}, {8, 9}, {9, 8}, {10, 10}}, Null}]]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[CompressedData[" 1:eJxdlHtQVFUcx3dx9967t911JUWQR2wIAYYJsUBS3QOGQjUKEkiiETBIPGWE AURkYVhcBwWJR1DGSwtpMKwM0UY7h5ViQkgWERcQZZHHrrmwAcWgC2TTvfeP /rhz5jfn9/h+vr+5RxpzeG+cGYfDiXj+/Xsmq821iT/rqCtTJzMn5ATS2/Z1 HfE1UZpzjqq7uWq4ujXjW5m7GfC+edzoIJ2DJQfs6itPmijnnPuxkwQHDfZ4 OYRL9BQnb5V/yZ6D6DqKjHP3G8mfg+vPbHK+nqqjJLlKQcWb/bCtetk2qUwM HhW07Nmv5KP/Yux/MQloXbAqc0Shv6GjzpIv288qCYS9Kr71S4yOCi4qjJFu FCD/CvuMy4nTlIuTp7XHFwL0OEKeWqOfpHZUdT+txUg0pgpVRqw8oipk3JYf QkkUH662i+zTUuW9n8b4HSNRz3znuk7Lh9TXWXuHbXNIdPppA3eyY5jqCarL iAomkbEp9/brfw1S3v3OB6O4JFr/VvVwG2eA+m0/6kqvECCnNd/gVtJ+qlTT p05ZK2D5GT+Z+wcLwDrSiLP154+EOIYl42x/2TPdmYQVDJ2i5zcUpmcnXMJY fV1h0LylCEOHaP3Dq/JipQJj+YaqJf4WFzGkp/ldfHbNuS5hrD/+F0bVn8Xh rH+2gaXFF3Q4YvxVq2Z7hrIIJLf5fczuqgjwDIE14jt8dGI0pWQpXwQ6krpb tRN8dK7UbYsgSAQ+l0TcJBb4iJs3rkmViMBMvddoDgdD3vpVq/fvCUHx5cXa bSSGKv2gSlUrBPFNgwGb12FoV63lxEKsEPxkeqk9ZAOG9rhXt/NchSDjncbs KxYYslmJVaj/Jth4c/n4Pu11gs3XGHyPvlhIsP08dz6TFgcR7LzE7y1j4yUE MNB6uht6Jb33cFbvZEhJ6/16nOV5Yu4W2f4JzvIa6LjTQow3+fLRFJ2P15w2 9rvw2X6vza+MtGzioyR63nCsveoNMR/JaD1vB0dxFTw+qzf6YP6HZcs85Ejz iHFvXcwSD9nSvB/ANqeVRR4Kpv1g4kDaLyaf8ZPp50P7zcwzo/cxQuth9sXo VdL7ZHjy6X0zvKto9td3n/9/nOgsZdUDHYxMzdUUHCVB/3vLZR9Z/wFdiQ7/ 474k2H4bpje+YoCV1yIKvEYEoOGU1Vzw0Aw0HyhRHvpYANKwnCE1ZoQLPilu 0wMESPU6GzgbZoQDBX9O63YQoLLYxqc51Agvmhn4oms4GN/6Y/IWjhH6ZDc/ zKRwkCYvPxbeOQNN3S9Ip8cw0N5odGwWGiBc03pi/isM3Krx2F1megyZ94N5 L5h7ETmfHpA/xdZLubIv3dIm2P4JDhU75VfHYQs9f0PADV1erpbV913Jk5Ci u2OsfpNsdtti3xjLt1jlvtbjsJbl994o7FOcH2f9qbsTt9szbAIeoP3D9zm7 Z0VPQcZfjV/rdlCng/8A83SjSw== "], {{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[ BezierCurveBox[{1, 14, 17, 19, 25, 27, 30, 1}, SplineDegree -> 7], 0.03403963574087113], ArrowBox[{2, 3}, 0.03403963574087113], ArrowBox[{3, 4}, 0.03403963574087113], ArrowBox[{4, 5}, 0.03403963574087113], ArrowBox[{5, 6}, 0.03403963574087113], ArrowBox[{6, 7}, 0.03403963574087113], ArrowBox[{7, 2}, 0.03403963574087113], ArrowBox[ BezierCurveBox[{ 8, {3.3205168097510236`, -2.855530970897478}, 9}], 0.03403963574087113], ArrowBox[ BezierCurveBox[{ 9, {3.320516809751075, -2.5266494765312357`}, 8}], 0.03403963574087113], ArrowBox[ BezierCurveBox[{10, 69, 72, 74, 80, 82, 85, 10}, SplineDegree -> 7], 0.03403963574087113]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], DiskBox[1, 0.03403963574087113], DiskBox[2, 0.03403963574087113], DiskBox[3, 0.03403963574087113], DiskBox[4, 0.03403963574087113], DiskBox[5, 0.03403963574087113], DiskBox[6, 0.03403963574087113], DiskBox[7, 0.03403963574087113], DiskBox[8, 0.03403963574087113], DiskBox[9, 0.03403963574087113], DiskBox[10, 0.03403963574087113]}}]], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "\"Out\""}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], ",", TemplateBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1, 2, 3, 5, 9, 8, 6, 4, 7, 10}, {{{1, 1}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 7}, {7, 2}, {8, 9}, {9, 8}, {10, 10}}, Null}]]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[CompressedData[" 1:eJxdlHtQVFUcx3dx9967t911JUWQR2wIAYYJsUBS3QOGQjUKEkiiETBIPGWE AURkYVhcBwWJR1DGSwtpMKwM0UY7h5ViQkgWERcQZZHHrrmwAcWgC2TTvfeP /rhz5jfn9/h+vr+5RxpzeG+cGYfDiXj+/Xsmq821iT/rqCtTJzMn5ATS2/Z1 HfE1UZpzjqq7uWq4ujXjW5m7GfC+edzoIJ2DJQfs6itPmijnnPuxkwQHDfZ4 OYRL9BQnb5V/yZ6D6DqKjHP3G8mfg+vPbHK+nqqjJLlKQcWb/bCtetk2qUwM HhW07Nmv5KP/Yux/MQloXbAqc0Shv6GjzpIv288qCYS9Kr71S4yOCi4qjJFu FCD/CvuMy4nTlIuTp7XHFwL0OEKeWqOfpHZUdT+txUg0pgpVRqw8oipk3JYf QkkUH662i+zTUuW9n8b4HSNRz3znuk7Lh9TXWXuHbXNIdPppA3eyY5jqCarL iAomkbEp9/brfw1S3v3OB6O4JFr/VvVwG2eA+m0/6kqvECCnNd/gVtJ+qlTT p05ZK2D5GT+Z+wcLwDrSiLP154+EOIYl42x/2TPdmYQVDJ2i5zcUpmcnXMJY fV1h0LylCEOHaP3Dq/JipQJj+YaqJf4WFzGkp/ldfHbNuS5hrD/+F0bVn8Xh rH+2gaXFF3Q4YvxVq2Z7hrIIJLf5fczuqgjwDIE14jt8dGI0pWQpXwQ6krpb tRN8dK7UbYsgSAQ+l0TcJBb4iJs3rkmViMBMvddoDgdD3vpVq/fvCUHx5cXa bSSGKv2gSlUrBPFNgwGb12FoV63lxEKsEPxkeqk9ZAOG9rhXt/NchSDjncbs KxYYslmJVaj/Jth4c/n4Pu11gs3XGHyPvlhIsP08dz6TFgcR7LzE7y1j4yUE MNB6uht6Jb33cFbvZEhJ6/16nOV5Yu4W2f4JzvIa6LjTQow3+fLRFJ2P15w2 9rvw2X6vza+MtGzioyR63nCsveoNMR/JaD1vB0dxFTw+qzf6YP6HZcs85Ejz iHFvXcwSD9nSvB/ANqeVRR4Kpv1g4kDaLyaf8ZPp50P7zcwzo/cxQuth9sXo VdL7ZHjy6X0zvKto9td3n/9/nOgsZdUDHYxMzdUUHCVB/3vLZR9Z/wFdiQ7/ 474k2H4bpje+YoCV1yIKvEYEoOGU1Vzw0Aw0HyhRHvpYANKwnCE1ZoQLPilu 0wMESPU6GzgbZoQDBX9O63YQoLLYxqc51Agvmhn4oms4GN/6Y/IWjhH6ZDc/ zKRwkCYvPxbeOQNN3S9Ip8cw0N5odGwWGiBc03pi/isM3Krx2F1megyZ94N5 L5h7ETmfHpA/xdZLubIv3dIm2P4JDhU75VfHYQs9f0PADV1erpbV913Jk5Ci u2OsfpNsdtti3xjLt1jlvtbjsJbl994o7FOcH2f9qbsTt9szbAIeoP3D9zm7 Z0VPQcZfjV/rdlCng/8A83SjSw== "], {{ Arrowheads[Medium], Directive[ Opacity[0.7], Hue[0.6, 0.7, 0.5]], ArrowBox[ BezierCurveBox[{1, 14, 17, 19, 25, 27, 30, 1}, SplineDegree -> 7], 0.03403963574087113], ArrowBox[{2, 3}, 0.03403963574087113], ArrowBox[{3, 4}, 0.03403963574087113], ArrowBox[{4, 5}, 0.03403963574087113], ArrowBox[{5, 6}, 0.03403963574087113], ArrowBox[{6, 7}, 0.03403963574087113], ArrowBox[{7, 2}, 0.03403963574087113], ArrowBox[ BezierCurveBox[{ 8, {3.3205168097510236`, -2.855530970897478}, 9}], 0.03403963574087113], ArrowBox[ BezierCurveBox[{ 9, {3.320516809751075, -2.5266494765312357`}, 8}], 0.03403963574087113], ArrowBox[ BezierCurveBox[{10, 69, 72, 74, 80, 82, 85, 10}, SplineDegree -> 7], 0.03403963574087113]}, { Directive[ Hue[0.6, 0.2, 0.8], EdgeForm[ Directive[ GrayLevel[0], Opacity[0.7]]]], DiskBox[1, 0.03403963574087113], DiskBox[2, 0.03403963574087113], DiskBox[3, 0.03403963574087113], DiskBox[4, 0.03403963574087113], DiskBox[5, 0.03403963574087113], DiskBox[6, 0.03403963574087113], DiskBox[7, 0.03403963574087113], DiskBox[8, 0.03403963574087113], DiskBox[9, 0.03403963574087113], DiskBox[10, 0.03403963574087113]}}]], MouseAppearanceTag[ "NetworkGraphics"]], $CellContext`AllowKernelInitialization -> False]], { FormatType -> TraditionalForm, FrameTicks -> None, DefaultBaseStyle -> { "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}}], "\"ReverseOut\""}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.807248463406437*^9, 3.807248485143549*^9}, 3.80724872622252*^9, {3.8072492815992107`*^9, 3.807249309493455*^9}}, CellLabel->"Out[199]=", CellID->815381270] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"#", ",", "10"}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]], "Input", TaggingRules->{}, 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}, {3.806399848912595*^9, 3.80639985124666*^9}, {3.806490875934183*^9, 3.80649089730908*^9}, { 3.806492031065889*^9, 3.8064921063825083`*^9}, 3.806666158246222*^9, { 3.806921774356587*^9, 3.80692180932822*^9}, {3.8069218805793953`*^9, 3.8069218826916103`*^9}, {3.807248344034956*^9, 3.8072483444742737`*^9}, { 3.80724843056919*^9, 3.807248539399809*^9}}, CellLabel->"In[191]:=", CellID->232084496], Cell[BoxData[ RowBox[{"{", RowBox[{"6", ",", "6"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8072485278414907`*^9, 3.807248540011241*^9}}, CellLabel->"Out[191]=", CellID->520144720] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107586], Cell[TextData[{ "If ", Cell[BoxData[ StyleBox["k", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " is the shuffle period for a length-", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " list , then the sequence of elements after ", Cell[BoxData[ StyleBox["m", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " shuffles is the same as ", Cell[BoxData[ RowBox[{ StyleBox["k", "TI"], "-", StyleBox["m", "TI"]}]], "InlineFormula", FontFamily->"Source Sans Pro"], " reverse shuffles:" }], "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[208049]}, CellChangeTimes->{{3.807263217355178*^9, 3.807263291095635*^9}, { 3.807263326561079*^9, 3.807263348263959*^9}, {3.8072633869990473`*^9, 3.80726351555759*^9}, {3.807263815944278*^9, 3.8072638358999233`*^9}, { 3.826195873502722*^9, 3.826195875657587*^9}}, CellID->160678849], Cell[BoxData[ RowBox[{ RowBox[{"n", "=", "52"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8072635351834297`*^9, 3.8072635422775707`*^9}, { 3.807263587359371*^9, 3.807263587500866*^9}}, CellLabel->"In[252]:=", CellID->966643336], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"k", "=", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"\"\\"", ",", "n"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807263531977441*^9, 3.807263567528404*^9}}, CellLabel->"In[253]:=", CellID->418230539], Cell[BoxData["8"], "Output", TaggingRules->{}, CellChangeTimes->{{3.8072635683650846`*^9, 3.807263589557026*^9}, 3.807263901689464*^9}, CellLabel->"Out[253]=", CellID->117021226] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"m", "=", "3"}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807263604752657*^9, 3.807263608148549*^9}}, CellLabel->"In[254]:=", CellID->525309281], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "n", "]"}], ",", "m", ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807263615128607*^9, 3.807263653691832*^9}, { 3.807263890844098*^9, 3.807263893270665*^9}}, CellLabel->"In[255]:=", CellID->247268586], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "33", ",", "14", ",", "46", ",", "27", ",", "8", ",", "40", ",", "21", ",", "2", ",", "34", ",", "15", ",", "47", ",", "28", ",", "9", ",", "41", ",", "22", ",", "3", ",", "35", ",", "16", ",", "48", ",", "29", ",", "10", ",", "42", ",", "23", ",", "4", ",", "36", ",", "17", ",", "49", ",", "30", ",", "11", ",", "43", ",", "24", ",", "5", ",", "37", ",", "18", ",", "50", ",", "31", ",", "12", ",", "44", ",", "25", ",", "6", ",", "38", ",", "19", ",", "51", ",", "32", ",", "13", ",", "45", ",", "26", ",", "7", ",", "39", ",", "20", ",", "52"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.807263654399035*^9, {3.807263893870379*^9, 3.807263903205567*^9}}, CellLabel->"Out[255]=", CellID->148694144] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "n", "]"}], ",", RowBox[{"k", "-", "m"}], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.807263615128607*^9, 3.807263680851317*^9}}, CellLabel->"In[256]:=", CellID->159847307], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "33", ",", "14", ",", "46", ",", "27", ",", "8", ",", "40", ",", "21", ",", "2", ",", "34", ",", "15", ",", "47", ",", "28", ",", "9", ",", "41", ",", "22", ",", "3", ",", "35", ",", "16", ",", "48", ",", "29", ",", "10", ",", "42", ",", "23", ",", "4", ",", "36", ",", "17", ",", "49", ",", "30", ",", "11", ",", "43", ",", "24", ",", "5", ",", "37", ",", "18", ",", "50", ",", "31", ",", "12", ",", "44", ",", "25", ",", "6", ",", "38", ",", "19", ",", "51", ",", "32", ",", "13", ",", "45", ",", "26", ",", "7", ",", "39", ",", "20", ",", "52"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8072636814880943`*^9, {3.807263895451416*^9, 3.80726390412155*^9}}, CellLabel->"Out[256]=", CellID->330715504] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "===", "%%"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.80726368553581*^9, 3.807263690147345*^9}}, CellLabel->"In[257]:=", CellID->658187859], Cell[BoxData["True"], "Output", TaggingRules->{}, CellChangeTimes->{ 3.807263690643326*^9, {3.807263896582075*^9, 3.8072639051897097`*^9}}, CellLabel->"Out[257]=", CellID->471771958] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107587], Cell["In and reverse in shuffles are mutual inverses:", "Text", TaggingRules->{}, CellChangeTimes->{{3.8070199668420067`*^9, 3.807020034631442*^9}, { 3.8070200681445932`*^9, 3.8070200939174643`*^9}}, CellID->533798711], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Shuffle", "[", "\"\\"", "]"}], "@", RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "\"\\""}], "]"}]}]], "Input",\ TaggingRules->{}, CellChangeTimes->{{3.80700349751748*^9, 3.807003533183296*^9}, { 3.807020113013392*^9, 3.807020114871567*^9}, {3.807244155783897*^9, 3.807244171824068*^9}}, CellLabel->"In[174]:=", CellID->228714539], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8070035343704147`*^9, 3.807003547318139*^9}, 3.807020115347106*^9, 3.807244173548314*^9}, CellLabel->"Out[174]=", CellID->988534620] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Shuffle", "[", "\"\\"", "]"}], "@", RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "\"\\""}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.80700349751748*^9, 3.807003533183296*^9}, { 3.807008738280653*^9, 3.80700874428755*^9}, {3.80702013302563*^9, 3.80702013512315*^9}, {3.80724418501302*^9, 3.807244193199671*^9}}, CellLabel->"In[175]:=", CellID->314539653], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8070035343704147`*^9, 3.807003547318139*^9}, 3.80702013815842*^9, 3.807244193878079*^9}, CellLabel->"Out[175]=", CellID->398488875] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107588], Cell["\<\ For an even-sized deck, a milk shuffle and a down Monge shuffle are mutual \ inverses:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.804671325309663*^9, 3.804671330715494*^9}, { 3.804671382300117*^9, 3.804671385595264*^9}, 3.8046716771563807`*^9, 3.804675590250139*^9, {3.806402409141618*^9, 3.8064024381327877`*^9}, { 3.806402777135435*^9, 3.806402793534774*^9}, {3.806402841812978*^9, 3.806402880062028*^9}, {3.806402934106576*^9, 3.806402962627427*^9}, { 3.806403058598886*^9, 3.806403059449326*^9}, 3.806403104353414*^9, { 3.8064858171867027`*^9, 3.806485956927286*^9}, {3.806486048733625*^9, 3.806486064133608*^9}, {3.806488537081759*^9, 3.806488541706237*^9}, { 3.8064942966411743`*^9, 3.806494296831777*^9}, {3.806494849897636*^9, 3.806494857569319*^9}, {3.807008053650676*^9, 3.8070080557223682`*^9}, { 3.807246844940029*^9, 3.807246878210298*^9}, 3.8072489439610643`*^9, 3.826195890464423*^9}, CellID->571679972], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Shuffle", "[", "\"\\"", "]"}], "@", RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "\"\\""}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.80700349751748*^9, 3.807003533183296*^9}, { 3.807020113013392*^9, 3.807020114871567*^9}, {3.807244155783897*^9, 3.807244171824068*^9}, {3.8072469147459307`*^9, 3.8072469155144444`*^9}, 3.8072469509792347`*^9}, CellLabel->"In[186]:=", CellID->303182474], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8070035343704147`*^9, 3.807003547318139*^9}, 3.807020115347106*^9, 3.807244173548314*^9, {3.807246928052704*^9, 3.807246951870524*^9}}, CellLabel->"Out[186]=", CellID->1611221] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Shuffle", "[", "\"\\"", "]"}], "@", RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "\"\\""}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.80700349751748*^9, 3.807003533183296*^9}, { 3.807008738280653*^9, 3.80700874428755*^9}, {3.80702013302563*^9, 3.80702013512315*^9}, {3.80724418501302*^9, 3.807244193199671*^9}, { 3.8072469185146427`*^9, 3.8072469259216223`*^9}, {3.807246957082584*^9, 3.807246957866232*^9}}, CellLabel->"In[187]:=", CellID->925115217], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8070035343704147`*^9, 3.807003547318139*^9}, 3.80702013815842*^9, 3.807244193878079*^9, {3.807246933301874*^9, 3.807246958621072*^9}}, CellLabel->"Out[187]=", CellID->698343698] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107589], Cell["\<\ For an odd-sized deck, a milk shuffle and a Monge shuffle are mutual inverses:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.8064861834747066`*^9, 3.806486183826518*^9}, { 3.80648622970518*^9, 3.8064863128672123`*^9}, {3.8064864133738213`*^9, 3.806486413796732*^9}, {3.80724895475259*^9, 3.807248987759823*^9}, 3.8261958981922073`*^9}, CellID->58819273], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Shuffle", "[", "\"\\"", "]"}], "@", RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "11", "]"}], ",", "\"\\""}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.80700349751748*^9, 3.807003533183296*^9}, { 3.807020113013392*^9, 3.807020114871567*^9}, {3.807244155783897*^9, 3.807244171824068*^9}, {3.8072469147459307`*^9, 3.8072469155144444`*^9}, 3.8072469509792347`*^9, {3.8072490105438757`*^9, 3.8072490153030376`*^9}}, CellLabel->"In[193]:=", CellID->134203154], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8070035343704147`*^9, 3.807003547318139*^9}, 3.807020115347106*^9, 3.807244173548314*^9, {3.807246928052704*^9, 3.807246951870524*^9}, 3.807249017167122*^9}, CellLabel->"Out[193]=", CellID->871675500] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Shuffle", "[", "\"\\"", "]"}], "@", RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "11", "]"}], ",", "\"\\""}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.80700349751748*^9, 3.807003533183296*^9}, { 3.807008738280653*^9, 3.80700874428755*^9}, {3.80702013302563*^9, 3.80702013512315*^9}, {3.80724418501302*^9, 3.807244193199671*^9}, { 3.8072469185146427`*^9, 3.8072469259216223`*^9}, {3.807246957082584*^9, 3.807246957866232*^9}, {3.80724902019934*^9, 3.807249024358961*^9}}, CellLabel->"In[194]:=", CellID->12583449], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.8070035343704147`*^9, 3.807003547318139*^9}, 3.80702013815842*^9, 3.807244193878079*^9, {3.807246933301874*^9, 3.807246958621072*^9}, 3.8072490274809227`*^9}, CellLabel->"Out[194]=", CellID->351566631] }, Open ]] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellID->461278909], Cell["Shuffle a deck of cards:", "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[208129]}, CellChangeTimes->{{3.8064032379746227`*^9, 3.806403269349725*^9}, { 3.806490145380642*^9, 3.8064901551004343`*^9}}, CellID->87179531], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"deck", "=", RowBox[{ RowBox[{"Range", "[", "8", "]"}], "//", "Reverse"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8064900847119493`*^9, 3.8064900896301413`*^9}}, CellLabel->"In[201]:=", CellID->880801690], Cell[BoxData[ RowBox[{"{", RowBox[{ "8", ",", "7", ",", "6", ",", "5", ",", "4", ",", "3", ",", "2", ",", "1"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.8064900909645233`*^9, 3.807249490983741*^9}, CellLabel->"Out[201]=", CellID->842761797] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "deck", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8064895991566896`*^9, 3.806489599158813*^9}, { 3.806489653074284*^9, 3.806489722998844*^9}, {3.80648989981227*^9, 3.806489916571096*^9}, {3.806489963202056*^9, 3.8064899660893173`*^9}, { 3.806490004948008*^9, 3.8064900187688303`*^9}, {3.80649007884039*^9, 3.8064900824780083`*^9}}, CellLabel->"In[944]:=", CellID->525863330], Cell[BoxData[ GraphicsBox[{InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"8\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"8\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.3, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.7, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 0.75}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 0.75}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 0.975}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.5, 0.525}, Automatic, Scaled[0.15]]}}], BoxRotation->0.39269908169872414`], {0.3, 0}, Automatic, 2.5238795325112866`], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"7\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"7\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.3, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.7, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 0.75}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 0.75}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 0.975}, Automatic, Scaled[0.15]]}}], BoxRotation->0.28049934407051724`], {0.6, 0}, Automatic, 2.5609173219451], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"6\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"6\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.3, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.7, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 0.75}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 0.75}, Automatic, Scaled[0.15]]}}], BoxRotation->0.16829960644231035`], {0.8999999999999999, 0}, Automatic, 2.585871018518236], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"5\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"5\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.3, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.7, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 0.75}, Automatic, Scaled[0.15]]}}], BoxRotation->0.05609986881410345], {1.2, 0}, Automatic, 2.5984268150178167`], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"4\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"4\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.3, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.7, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 1.2}, Automatic, Scaled[0.15]]}}], BoxRotation->-0.05609986881410345], {1.5, 0}, Automatic, 2.5984268150178167`], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"3\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"3\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 0.75}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.5, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 1.2}, Automatic, Scaled[0.15]]}}], BoxRotation->-0.16829960644231035`], {1.7999999999999998, 0}, Automatic, 2.585871018518236], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"2\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"2\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.5, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 1.2}, Automatic, Scaled[0.15]]}}], BoxRotation->-0.28049934407051724`], {2.1, 0}, Automatic, 2.5609173219451], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"A\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 0.75}, Automatic, Scaled[0.15]]}}], BoxRotation->-0.39269908169872414`], {2.4, 0}, Automatic, 2.5238795325112866`]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.80648972343242*^9, {3.8064899115494423`*^9, 3.806489917054097*^9}, 3.806489966522799*^9, {3.806490008298126*^9, 3.806490019203074*^9}, 3.806490104011396*^9}, CellLabel->"Out[944]=", CellID->439754355] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"Shuffle", "[", RowBox[{"deck", ",", "\"\\""}], "]"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8064895991566896`*^9, 3.806489599158813*^9}, { 3.806489653074284*^9, 3.806489722998844*^9}, {3.806489770669085*^9, 3.8064898096547127`*^9}, {3.806489923810557*^9, 3.806489925376924*^9}, { 3.806490023425169*^9, 3.806490023592133*^9}, {3.806490108191142*^9, 3.806490109222247*^9}, {3.8072494773443413`*^9, 3.807249484783947*^9}}, CellLabel->"In[202]:=", CellID->522828320], Cell[BoxData[ GraphicsBox[{InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"5\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"5\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.3, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.7, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 0.75}, Automatic, Scaled[0.15]]}}], BoxRotation->0.39269908169872414`], {0.3, 0}, Automatic, 2.5238795325112866`], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"4\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"4\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.3, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.7, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 1.2}, Automatic, Scaled[0.15]]}}], BoxRotation->0.28049934407051724`], {0.6, 0}, Automatic, 2.5609173219451], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"6\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"6\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.3, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.7, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 0.75}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 0.75}, Automatic, Scaled[0.15]]}}], BoxRotation->0.16829960644231035`], {0.8999999999999999, 0}, Automatic, 2.585871018518236], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"3\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"3\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 0.75}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.5, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 1.2}, Automatic, Scaled[0.15]]}}], BoxRotation->0.05609986881410345], {1.2, 0}, Automatic, 2.5984268150178167`], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"7\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"7\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.3, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.7, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 0.75}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 0.75}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 0.975}, Automatic, Scaled[0.15]]}}], BoxRotation->-0.05609986881410345], {1.5, 0}, Automatic, 2.5984268150178167`], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"2\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"2\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.5, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 1.2}, Automatic, Scaled[0.15]]}}], BoxRotation->-0.16829960644231035`], {1.7999999999999998, 0}, Automatic, 2.585871018518236], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"8\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"8\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.3, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.7, 0.3}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 1.2}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.3, 0.75}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.7, 0.75}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 0.975}, Automatic, Scaled[0.15]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.5, 0.525}, Automatic, Scaled[0.15]]}}], BoxRotation->-0.28049934407051724`], {2.1, 0}, Automatic, 2.5609173219451], InsetBox[ RotationBox[ GraphicsBox[ {GrayLevel[1], EdgeForm[GrayLevel[0]], RectangleBox[{0, 0}, {1, 1.5}, RoundingRadius->0.07], {GrayLevel[0], InsetBox[ StyleBox["\<\"A\"\>", StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.1, 1.4}], InsetBox[ StyleBox[ RotationBox["\<\"A\"\>", BoxRotation->3.141592653589793], StripOnInput->False, FontFamily->"Arial", FontSize->Scaled[0.15]], {0.9, 0.1}], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.1, 1.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[GeometricTransformationBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, {{{-1, 0}, {0, -1}}, {0, 0}}]], {0.9, 0.25}, Automatic, Scaled[0.1]], InsetBox[ GraphicsBox[ {FaceForm[{RGBColor[0., 0., 0.], Opacity[1.]}], 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}, {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}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGITIGZigICGqcsdwIzOmRB6OpRfC+XPhfLjIfyG5ah8 hq1o/N1Qfjkafyoaf9VMB6HmA6cUty93uOybJHBjO9T8zVD5EzMdhIHyC9cv d0gSiLA0uTnTweNhlci7lcsd1rk/rJryAqp+CVT9j5kOFS/VDDuA7p33fvmx 09yzIOJ9UHlDwvx2sZvnyutQ9TeUI8zfKdf6WrAIYf/bGnvTuByE+8DqMxDu fweUv5eC6j+GRIT/UfhT0fiw8EtHC/8StPCuR+O3osZfQxta/HZA+T1ofHT5 NjT9eWj8DDT7wqDyzVC+C5r7lLHz4eZpQvlTUfnw9KeMnd8wA82+6WjumYrq Xjgf6h+GKaj+hfM70fg9aPqB8gBmfsMI "]]}, ImageSize->{21.381713338743793`, Automatic}], {0.5, 0.75}, Automatic, Scaled[0.15]]}}], BoxRotation->-0.39269908169872414`], {2.4, 0}, Automatic, 2.5238795325112866`]}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.806489811214693*^9, 3.806489925889141*^9, 3.806489968705572*^9, 3.806490023973633*^9, 3.806490109711438*^9, {3.807249486086108*^9, 3.807249493423139*^9}}, CellLabel->"Out[202]=", CellID->236915892] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107590], Cell["The shuffle periods vs. deck size for an out shuffle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.807250943813717*^9, 3.807250980963643*^9}, 3.807251056619218*^9}, CellID->69796083], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"\"\\"", ",", "i"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "300"}], "}"}]}], "]"}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", TaggingRules->{}, 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}, {3.8072508953503103`*^9, 3.807250910931223*^9}, {3.807250991799274*^9, 3.807251031689887*^9}}, CellLabel->"In[204]:=", CellID->123796970], 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 "]]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Shuffles period\"", TraditionalForm], None}, { FormBox["\"Deck size\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "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", TaggingRules->{}, CellChangeTimes->{3.765441608429357*^9, 3.765442516942526*^9, 3.807251033404223*^9}, CellLabel->"Out[204]=", CellID->243788011] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107591], Cell["\<\ Recurring patterns in Monge shuffles of different-length lists:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.774129948276703*^9, 3.774129950652001*^9}, { 3.7741300937741985`*^9, 3.7741301189347353`*^9}, {3.7741301663007007`*^9, 3.7741301723229094`*^9}, {3.774130210319676*^9, 3.7741302112633896`*^9}, { 3.8072530255708733`*^9, 3.807253046169553*^9}, {3.807253496514819*^9, 3.807253534793222*^9}}, CellID->738019392], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Labeled", "[", RowBox[{ RowBox[{"ArrayPlot", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "n", "]"}], ",", "x", ",", "\"\\""}], "]"}], "/", "n"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}], "]"}], ",", "n", ",", "Top"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "10", ",", "20"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.7741295912042584`*^9, {3.7741296986870117`*^9, 3.774129700934336*^9}, { 3.7741297425241885`*^9, 3.7741297552803855`*^9}, {3.77412983377335*^9, 3.7741298833350286`*^9}, {3.7741299252112474`*^9, 3.774130030440961*^9}, { 3.774130068557663*^9, 3.774130081997686*^9}, {3.774130125396815*^9, 3.774130137609205*^9}, {3.774130175342013*^9, 3.774130186398734*^9}, { 3.7741334743189945`*^9, 3.7741334744949455`*^9}, {3.807253140968624*^9, 3.8072531493404703`*^9}, {3.807253253033904*^9, 3.807253303960161*^9}}, CellLabel->"In[207]:=", CellID->836998418], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{ GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIuIJ41EwR22jOAwQP7s2dA4I29MRg8tofIn4TKw9Tf hIq/tE8Dg2dQ9ZfR1J20h6lHNe8l3B6Yfpj9MHNg7oKpw27fY7g+VHsu26Pa vxPD/ej2ofsXZg9MP8x+mDno7ke3D92/6OGDHt7Y3Y+wD7t/0cMHEd7o7h+N 39H4HY3f0fgd7PELABoQx/k= "], {{0, 0}, {10, 21}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], 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"}}}}, "DefaultPlotStyle" -> Automatic}], "10"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], ",", TemplateBox[{ GraphicsBox[ RasterBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWJuIHYTjy256HrcHkgAWQ/twVzxt/ZgKvYJVPyiPUTd dqj8XXv9XS8Wdeu9goo/h9LX7RmgAKYeph+mD2YuTD/MPpg5MHfAzIO5D2Yu TD26/ajufQi3D2YOqj+Ow/2Dau5dDPuxh8NzuDmo7tgO9w9qODzHsB89HFD9 ux0jPmDuQzX3Oob96OEAsw9mDnp8wNyHau5oehhND6PpYTQ9jKYHXOkBADuR 2R8= "], {{0, 0}, {11, 21}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], 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"}}}}, "DefaultPlotStyle" -> Automatic}], "11"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], ",", TemplateBox[{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztU8EJAjEQDL79WoCVpAfBBgTf9qXvlJD/ffLJKxwEwkF68NRMZCbYgNxC OLKXnZ2d3T1ebqfrzhhzWM9+Pee3Vfu4v2yx5m3Ffvy5+efmT+0e2//Q/FO7 +/Z1zW8M3iMecYw79XzAYR5O+H15c97c4xjX9XzAYf4w8Ku9TrxHPOK0TuQD DvOvomeUOpPl+PKjTic6BeE5d1yuM0t8GOrkfs3C33d+3IckfYSVoU7k474E 4elkTrK8r8LfS3+i4BTRF3pm0cuJDmWok3UAThB96zDX/N7L3CWZi0V0KjK3 cZhrzrvtL+ux7S/z3PaXcf5/f5/ioMwA "], {{0, 0}, {12, 21}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], 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"}}}}, "DefaultPlotStyle" -> Automatic}], "12"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], ",", TemplateBox[{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlLENwjAQRSN6KmAAKoZI4R0YIRI1HTtkiLAD8giuqdyYIgWyhCIh70AI /mf9S08VlAgF5/7/z+Zu35yPp1VVVbvxXo/3NbRdaJOpb5vxepvH97EbzKU5 jNfLbKeFaKbl+ml+7/f5vZDXff79np9d/ramyh/UQYfro+jAF3rIA13khD7y s89ddLjeq3xRcQfRZd4k3PDhHFHVF374MvcguszbCzd8UAcd5in88GXuILrI CX3khw+ft1P1SelYxT2o8/eij/zw4fO2qr7wM5eXPLzvTvSRn3286DBP4Wcu J3l43+2sH9jHqb4YZvy8P1by8PmnWT+wj1V9EWb8zJXU/yUq3tIP3D/LPFjm wTIPlnnwv3nwAWYO3ks= "], {{0, 0}, {13, 21}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], 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"}}}}, "DefaultPlotStyle" -> Automatic}], "13"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], ",", TemplateBox[{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlTGOwjAQRUccYDsOgMSewzUtR0DakuUuOUoK6NOmS5HGDYpWllaIO5DN +o/1v7kBRERRovDn2c8Zbw6n/dfKzNbz+TGfzXY3/7rwf53Cdzwf4/kebDmu +XkblsfHPnz+3TY/+f6WrzG/j7whXJbHKSyvb3/z/ej/45zo+ZzTBuSBB7ng RD74UQfj4nEULuTzeM2QBx7kghP54Ecdno++4kI+clCXeVvPZc7O+VFH/SgX 5yfn53kpvnicN+dHned+lCuKh+R56guc7HWUeS9+lAv57GES3ijzO0h+53XU j3IhHzm8fvvKF/tvxZvZcz+FC/mcM3ie+gKn0XGV+YsyjsLF38co/s3UFzg5 v5d5T+K5cPG4Oq+LPPWl/YbXfar8KJf2H/5uY+VL+w2v+6nyo1zaf9hTqnxp vwE/r+/iR7m0/7CnqfKl/Yb5h8qPcmn/ee8P7/3hFfaHB0/DHtU= "], {{0, 0}, {14, 21}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], 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"}}}}, "DefaultPlotStyle" -> Automatic}], "14"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], ",", TemplateBox[{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlTFOxDAQRSMugCg4AGfgAL4DEhdAoqbkLHAL19C4TOkiRYogWShCEdo7 sAl+s/rjpaGOpVWKrP/782di3zw83T1edF13ffxdHn+vL+vqw+22PsPHtK5D uNpWqc9Unzncb2sO72/r+q7/n+r7WN8P4XlbX+FXf6nPMXR1sR891cmmBx9d fKGPXzjUAY/64LLf+4Sj9UfTxZfmNBmHOuBRn3Jz4xMOelrP6OqfXa691QGP +pSbGp9wNMfJdH0/8QtHcymWj3Jj4xMOevB1nk79xC8czSVbPnDZ733CQU/z L3/0czCO5pIsH+VOjU846Gk9uemn5ppcX6PlA1fnN7u8Z5fjYLrn+zm6764Y j/rgan4nn3D0+1vcPPl+9u67y8ajPri6PzqdxeU4mq7v5/nzKxmP+pQ7ND7h aI69m6fFzU1x5050czIbl/3ep85jMb7Ok++nP78OxqM+5Y6NT53HbHw9d30/ U3PO65wsjrvfR3D2+2i/j/5zH/0APjMlPA== "], {{0, 0}, {15, 21}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], 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"}}}}, "DefaultPlotStyle" -> Automatic}], "15"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], ",", TemplateBox[{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztkrEJwzAQRUUmSJMBMol3yAiB1FnNI6h06UKFChVGCBOM8QwJ5Ku4t4Cb OxCvuvd18O/P9+N1CSHcfu8a+hzDn7u4iR9xFZtYxUUsYhaTOIuTGMVxCGYK fBk5Cfkz/jXhvxF3jLivz4H9FZ4ZvgZvgr8iJyOv39dzC/YTPBt8Dd4If//v gjsO3Fdwd5+IuzN8Dd4d/g05FXkJuSP2vX/W4/2zPu+f9Xr/rN/7Z3O8fzbP +2dzz+/fFwWaW80= "], {{0, 0}, {16, 21}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], 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"}}}}, "DefaultPlotStyle" -> Automatic}], "16"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], ",", TemplateBox[{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztUjEKwkAQPPyBha3gP4T9g6WlYG3rS/QXqbRNmTJFBIsUQYIEEQn6A3Pn zsLkAVY7cBzJ3c3MDrPY7FbbSQhhNqzpsOYJvSwTXrJOeMo+4SHHQ0Qn51PE XS5VRCufd8RNfu8bfVfr/aveq/S81P+Ffue6ZxIU4AEv+KAHXvZRmT/osO/C 5oEu5oQ+5mcfpfGCj/UK8wF++IMOfHOutelyfr3lyD7yUZ6t6YGXfdSjnDPz DT3MA13Or7Ec2UdmvOCDHnjhA/yccz/KqbN5oMv5lZYj+/Ceek+9p95T76n3 1HvqPf1fT78L7Oi5 "], {{0, 0}, {17, 21}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], 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"}}}}, "DefaultPlotStyle" -> Automatic}], "17"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], ",", TemplateBox[{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlkFKxEAQRYNHENzNxluMq76D4AUE16IH8SDaR+htcJPNLAKz6EWCEwzS eAZj7F/N/20OIBhmYGbI1H+/qroql7f313dnTdNcLO/z5b17fVhe3j2uHw6u Wa/BrT/v3t3T2355fbqr9cOc7xvdzXr17uf/If8P8br8e8z3Tfl7ci/P39eH O+3XgDnuMd/XSpzgEI/1onBMxgcdcEMPfqALn9CHf3AgL4ij/NBDXHAgPvig A27225su+2wd+/eSl7jBX+rCHAepQyfcreQvmE/owz84kBfEUX6tC/sMxgcd rq83P9CFz4auQeoTLY7ya104v8n4oANuKMEPdOGT9UvfIy+Io/y/1yVJvwTT ATf04Id1velr33O/jRv8oTofHD+ZDnNHyx904ZPzUPoeeeE4hV/rAg6OP5gO uLkfg+nCJ/S175EX9l/4tS48B47GBx2ub29++HxHOXe+mmuIo/xaF52j3P9R 8jGLH29547lV+p77LVT8Whedo+Dj+iQ5j53o9pYH7Xvui1Txa110jvKc6oV7 Mj+6/zgPsZprHKfwa110jnKeZuPWPcm6o+lr3/N57Tb4fXU+EJ/n1Gjcuid1 //HcKn2PvHCcUZ47Sl10jnL/T5KPsiehyz7TRt93cm4Kv9ZF5yj4oMPcZU/q /oO+9j3vwbbi17roHOX+P0i/DzKXdP91Vd9zfv+fD//K8+EX6Akv6A== "], {{0, 0}, { 18, 21}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], 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"}}}}, "DefaultPlotStyle" -> Automatic}], "18"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], ",", TemplateBox[{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlj2KFFEUhRtzIzEyMnMDmr5gNqAuYIIBIwVjN+AKZgOmnZgXhhVVVEFD QQVDIz00PqQDV2Dbvu8W59yaBQgOdDfFVN3znfv36vnNx7fvHm02m6fnz5Pz 58XXL98+/+rK9dWnx/cvd+XP9+20L5fL22O5XL4+lVfn7+urH+XD5YHv7f9T e64vf+Ns2/Nje+6uvLnccF+eDe/Pt/xs99X23KFdz+13KJv2RzziExdd4sOD DpzowY8uvtDHLxzkAR7yAxfx3A+6xIcHHTjRgx9dzecu/MKhee4i38p1l/ys 1+sQOnBqfo+hiy/Vr8GhedhGvuEinvvxesGDjvZHDX508aX6s/XhPnjIj3JN yY/XCx50tD/m4EdX87kPv3D4fJAfuDTe4sfrBQ86Wp8h+NHVfh/Dr/bhMh/k By7iuR+vFzzoaH264EdX81nDr/bhMh/kBy7iuR+vl/quVp9t8Ot+6EMfv9o3 Q9qLcGn/Ln7W61VDR/vjFPzoaj6H8Kt906W9qFy75Ge9XstehlPr1oeu5rML v9o327QXlat/wI/Xa9nL2h/H4Nd9O1odJuvDU9qLcBFv3c+c5gkdODW/+6L9 WtP5CofPB/mBS8/pyeIOaZ70HOysbmM6j/181T48pr2oXGPy4/XyvQyn5rfa fhgeOF/7NB/kR98navLj9fK9DKfmd7b57dL5CofPB/lRrjn58Xr5Xtb+OAS/ n8d+vsKxPh/VuIbkx+vle1n7Yxf8fh77+QqHzwf5Ua7/76v/+vvqb+3g880= "], {{0, 0}, {19, 21}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], 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"}}}}, "DefaultPlotStyle" -> Automatic}], "19"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], ",", TemplateBox[{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztVUFqhEAQHPKG5AF5Qx4wf8gTAsk170l+4BM8exISEBYCggfFZVEMviG7 bldL1ST3HGZAltW2qqam2r5/en18vgkh3J2v2/P1sq01fn5c1nd82NYS398u a45hW1O81p2s7mh1o9UNVtfb887ut/bel9UfrK6x57Xdr+x/ab+F1YUAPOAD F7yMPzoPdIIP+sGLfTH/7DrYh8L9gS74BjzgAxe8wIce8EAn843Oi32BH/uF DvgQaPWRz7NzPOAz7u436xlcJ/hYf+v7Yv7Gz4lzs0p+OvcNeJyrKvGb89gk ueN8Tb4vPqfSdcAH9mmUXC6Sk4Pksxf8wXl+z93svJpv7r9RclmLP0vSX+wP 8rn7DT2cnzLpY/Bqvrm/j5KbRfxp/+ivwXHVb/atT3LH514k+cZ+OQfITSv+ TEl/sT9d4jf0cJ/3SR8zby39MkoOVsmrfs8qwSsln+p3L31+SvqY/d/zzec6 uA+c10bOs5DvTZ4feX5cefL84P5if/L8yPODc5fnx/+cHz9IvKO+ "], {{0, 0}, {20, 21}}, {0, 1}], Frame -> Automatic, FrameLabel -> {None, None}, FrameTicks -> {{None, None}, {None, None}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], 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"}}}}, "DefaultPlotStyle" -> Automatic}], "20"}, "Labeled", DisplayFunction->(GridBox[{{ ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {2, 1}]& ), InterpretationFunction->(RowBox[{"Labeled", "[", RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.80725330518795*^9}, CellLabel->"Out[207]=", CellID->793329886] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->14107592], Cell["Card movement after repeating a Monge shuffle:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7756532349669967`*^9, 3.7756532848838315`*^9}, { 3.7756533227685766`*^9, 3.7756533276710815`*^9}, {3.807253918955785*^9, 3.807253960834179*^9}, {3.807253998289514*^9, 3.807254004672535*^9}, { 3.807254238988846*^9, 3.807254263267323*^9}}, CellID->142608288], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Callout", "/@", RowBox[{"Shuffle", "[", RowBox[{ RowBox[{"Range", "[", "10", "]"}], ",", "n", ",", "\"\\""}], "]"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{ RowBox[{"ToString", "[", "n", "]"}], "<>", "\"\<-shuffle\>\""}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "6"}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.8072540115530653`*^9, 3.807254190341694*^9}, { 3.807254281260393*^9, 3.807254309387291*^9}}, CellLabel->"In[214]:=", CellID->509107046], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 10.}, {2., 8.}, {3., 6.}, {4., 4.}, {5., 2.}, {6., 1.}, {7., 3.}, {8., 5.}, {9., 7.}, {10., 9.}}]}, { TagBox[ {Opacity[0.], PointBox[{{1., 10.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535016, {1}}]& ], TagBox[ {Opacity[0.], PointBox[{{2., 8.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535016, {2}}]& ], TagBox[ {Opacity[0.], PointBox[{{3., 6.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535016, {3}}]& ], TagBox[ {Opacity[0.], PointBox[{{4., 4.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535016, {4}}]& ], TagBox[ {Opacity[0.], PointBox[{{5., 2.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535016, {5}}]& ], TagBox[ {Opacity[0.], PointBox[{{6., 1.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535016, {6}}]& ], TagBox[ {Opacity[0.], PointBox[{{7., 3.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535016, {7}}]& ], TagBox[ {Opacity[0.], PointBox[{{8., 5.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535016, {8}}]& ], TagBox[ {Opacity[0.], PointBox[{{9., 7.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535016, {9}}]& ], TagBox[ {Opacity[0.], PointBox[{{10., 9.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535016, { 10}}]& ]}}, {{{{}, {GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 9.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 9.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 10.052934799313826`, 9.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, { 10.052934799313826`, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 9.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 9.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 9.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 10.052934799313826`, 9.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, { 10.052934799313826`, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 9.087307402797368}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 10.052934799313826`, 9.087307402797368}], Offset[{20.656854249492383`, 0.4568542494923804}, { 10.052934799313826`, 9.087307402797368}], Offset[{9.656854249492381, 0.45685424949237863`}, { 10.052934799313826`, 9.087307402797368}], Offset[{9.656854249492378, 13.456854249492379`}, { 10.052934799313826`, 9.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["9", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {10.052934799313826, 9.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 7.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 7.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 9.052934799313826, 7.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {9.052934799313826, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 7.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 7.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 7.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 9.052934799313826, 7.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {9.052934799313826, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 7.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 9.052934799313826, 7.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 9.052934799313826, 7.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 9.052934799313826, 7.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 9.052934799313826, 7.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["7", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {9.052934799313826, 7.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 5.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 5.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 8.052934799313826, 5.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {8.052934799313826, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 5.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 5.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 5.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 8.052934799313826, 5.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {8.052934799313826, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 5.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 8.052934799313826, 5.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 8.052934799313826, 5.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 8.052934799313826, 5.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 8.052934799313826, 5.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["5", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {8.052934799313826, 5.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 3.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 3.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 7.052934799313826, 3.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {7.052934799313826, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 3.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 3.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 3.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 7.052934799313826, 3.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {7.052934799313826, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 3.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 7.052934799313826, 3.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 7.052934799313826, 3.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 7.052934799313826, 3.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 7.052934799313826, 3.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["3", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {7.052934799313826, 3.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 1.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 1.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 6.052934799313826, 1.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {6.052934799313826, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 1.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 1.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 1.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 6.052934799313826, 1.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {6.052934799313826, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 1.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 6.052934799313826, 1.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 6.052934799313826, 1.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 6.052934799313826, 1.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 6.052934799313826, 1.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["1", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {6.052934799313826, 1.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 2.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 2.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 5.052934799313826, 2.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {5.052934799313826, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 2.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 2.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 2.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 5.052934799313826, 2.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {5.052934799313826, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 2.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 5.052934799313826, 2.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 5.052934799313826, 2.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 5.052934799313826, 2.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 5.052934799313826, 2.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["2", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {5.052934799313826, 2.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 4.052934799313826, 4.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 4.052934799313826, 4.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 4.052934799313826, 4.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 4.052934799313826, 4.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 4.052934799313826, 4.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 4.052934799313826, 4.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["4", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {4.052934799313826, 4.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 6.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 6.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 3.0529347993138263`, 6.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 6.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 6.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 6.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 3.0529347993138263`, 6.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 6.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 3.0529347993138263`, 6.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 3.0529347993138263`, 6.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 3.0529347993138263`, 6.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 3.0529347993138263`, 6.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["6", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {3.0529347993138263, 6.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 8.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 8.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 2.0529347993138263`, 8.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 8.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 8.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 8.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 2.0529347993138263`, 8.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 8.087307402797368}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 2.0529347993138263`, 8.087307402797368}], Offset[{20.656854249492383`, 0.4568542494923804}, { 2.0529347993138263`, 8.087307402797368}], Offset[{9.656854249492381, 0.45685424949237863`}, { 2.0529347993138263`, 8.087307402797368}], Offset[{9.656854249492378, 13.456854249492379`}, { 2.0529347993138263`, 8.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["8", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {2.0529347993138263, 8.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{5.656854249492381, 5.65685424949238}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{7.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 10.087307402797368`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{5.656854249492381, 5.65685424949238}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{7.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 10.087307402797368`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{26.656854249492376`, 13.45685424949238}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{26.656854249492383`, 0.4568542494923813}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{9.656854249492381, 0.45685424949237774`}, { 1.0529347993138263`, 10.087307402797368`}], Offset[{9.656854249492378, 13.456854249492377`}, { 1.0529347993138263`, 10.087307402797368`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["10", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{18.15685424949238, 6.9568542494923795}, \ {1.0529347993138263, 10.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}}, {}}, {}}}, 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, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotLabel->FormBox["\"1-shuffle\"", TraditionalForm], PlotRange->{{0., 10.}, {0, 10.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.08]}, { Scaled[0.02], Scaled[0.0970820393249937]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 9.}, {2., 5.}, {3., 1.}, {4., 4.}, {5., 8.}, {6., 10.}, {7., 6.}, {8., 2.}, {9., 3.}, {10., 7.}}]}, { TagBox[ {Opacity[0.], PointBox[{{1., 9.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535310, {1}}]& ], TagBox[ {Opacity[0.], PointBox[{{2., 5.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535310, {2}}]& ], TagBox[ {Opacity[0.], PointBox[{{3., 1.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535310, {3}}]& ], TagBox[ {Opacity[0.], PointBox[{{4., 4.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535310, {4}}]& ], TagBox[ {Opacity[0.], PointBox[{{5., 8.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535310, {5}}]& ], TagBox[ {Opacity[0.], PointBox[{{6., 10.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535310, {6}}]& ], TagBox[ {Opacity[0.], PointBox[{{7., 6.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535310, {7}}]& ], TagBox[ {Opacity[0.], PointBox[{{8., 2.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535310, {8}}]& ], TagBox[ {Opacity[0.], PointBox[{{9., 3.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535310, {9}}]& ], TagBox[ {Opacity[0.], PointBox[{{10., 7.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535310, { 10}}]& ]}}, {{{{}, {GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 7.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 7.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 10.052934799313826`, 7.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 10.052934799313826`, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 7.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 7.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 7.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 10.052934799313826`, 7.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 10.052934799313826`, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 7.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 10.052934799313826`, 7.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 10.052934799313826`, 7.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 10.052934799313826`, 7.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 10.052934799313826`, 7.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["7", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {10.052934799313826, 7.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 3.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 3.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 9.052934799313826, 3.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {9.052934799313826, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 3.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 3.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 3.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 9.052934799313826, 3.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {9.052934799313826, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 3.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 9.052934799313826, 3.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 9.052934799313826, 3.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 9.052934799313826, 3.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 9.052934799313826, 3.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["3", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {9.052934799313826, 3.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-5.65685424949238, 5.656854249492381}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-7.65685424949238, 5.656854249492381}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 7.947065200686174, 2.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-5.65685424949238, 5.656854249492381}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-7.65685424949238, 5.656854249492381}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 7.947065200686174, 2.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.45685424949238}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-9.656854249492378, 0.4568542494923813}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-20.656854249492376`, 0.4568542494923795}, { 7.947065200686174, 2.0873074027973675`}], Offset[{-20.656854249492383`, 13.45685424949238}, { 7.947065200686174, 2.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["2", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-15.15685424949238, 6.95685424949238}, \ {7.947065200686174, 2.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 6.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 6.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 7.052934799313826, 6.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {7.052934799313826, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 6.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 6.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 6.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 7.052934799313826, 6.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {7.052934799313826, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 6.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 7.052934799313826, 6.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 7.052934799313826, 6.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 7.052934799313826, 6.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 7.052934799313826, 6.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["6", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {7.052934799313826, 6.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 10.087307402797368`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 10.087307402797368`}], Offset[{5.656854249492381, 5.65685424949238}, { 6.052934799313826, 10.087307402797368`}], Offset[{7.65685424949238, 5.65685424949238}, {6.052934799313826, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 10.087307402797368`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 10.087307402797368`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 10.087307402797368`}], Offset[{5.656854249492381, 5.65685424949238}, { 6.052934799313826, 10.087307402797368`}], Offset[{7.65685424949238, 5.65685424949238}, {6.052934799313826, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 10.087307402797368`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{26.656854249492376`, 13.45685424949238}, { 6.052934799313826, 10.087307402797368`}], Offset[{26.656854249492383`, 0.4568542494923813}, { 6.052934799313826, 10.087307402797368`}], Offset[{9.656854249492381, 0.45685424949237774`}, { 6.052934799313826, 10.087307402797368`}], Offset[{9.656854249492378, 13.456854249492377`}, { 6.052934799313826, 10.087307402797368`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["10", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{18.15685424949238, 6.9568542494923795}, \ {6.052934799313826, 10.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 8.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 8.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 5.052934799313826, 8.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, {5.052934799313826, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 8.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 8.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 8.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 5.052934799313826, 8.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, {5.052934799313826, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 8.087307402797368}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 5.052934799313826, 8.087307402797368}], Offset[{20.656854249492383`, 0.4568542494923804}, { 5.052934799313826, 8.087307402797368}], Offset[{9.656854249492381, 0.45685424949237863`}, { 5.052934799313826, 8.087307402797368}], Offset[{9.656854249492378, 13.456854249492379`}, { 5.052934799313826, 8.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["8", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {5.052934799313826, 8.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 4.052934799313826, 4.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 4.052934799313826, 4.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 4.052934799313826, 4.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 4.052934799313826, 4.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 4.052934799313826, 4.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 4.052934799313826, 4.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["4", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {4.052934799313826, 4.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 1.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 1.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 3.0529347993138263`, 1.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 3.0529347993138263`, 1.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["1", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {3.0529347993138263, 1.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 5.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 5.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 5.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 5.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 2.0529347993138263`, 5.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 2.0529347993138263`, 5.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 2.0529347993138263`, 5.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["5", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {2.0529347993138263, 5.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 9.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 9.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 1.0529347993138263`, 9.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 9.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 9.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 9.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 1.0529347993138263`, 9.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 9.087307402797368}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 1.0529347993138263`, 9.087307402797368}], Offset[{20.656854249492383`, 0.4568542494923804}, { 1.0529347993138263`, 9.087307402797368}], Offset[{9.656854249492381, 0.45685424949237863`}, { 1.0529347993138263`, 9.087307402797368}], Offset[{9.656854249492378, 13.456854249492379`}, { 1.0529347993138263`, 9.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["9", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {1.0529347993138263, 9.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}}, {}}, {}}}, 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, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotLabel->FormBox["\"2-shuffle\"", TraditionalForm], PlotRange->{{0., 10.}, {0, 10.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.08]}, { Scaled[0.02], Scaled[0.0970820393249937]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 7.}, {2., 2.}, {3., 10.}, {4., 4.}, {5., 5.}, {6., 9.}, {7., 1.}, {8., 8.}, {9., 6.}, {10., 3.}}]}, { TagBox[ {Opacity[0.], PointBox[{{1., 7.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535573, {1}}]& ], TagBox[ {Opacity[0.], PointBox[{{2., 2.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535573, {2}}]& ], TagBox[ {Opacity[0.], PointBox[{{3., 10.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535573, {3}}]& ], TagBox[ {Opacity[0.], PointBox[{{4., 4.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535573, {4}}]& ], TagBox[ {Opacity[0.], PointBox[{{5., 5.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535573, {5}}]& ], TagBox[ {Opacity[0.], PointBox[{{6., 9.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535573, {6}}]& ], TagBox[ {Opacity[0.], PointBox[{{7., 1.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535573, {7}}]& ], TagBox[ {Opacity[0.], PointBox[{{8., 8.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535573, {8}}]& ], TagBox[ {Opacity[0.], PointBox[{{9., 6.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535573, {9}}]& ], TagBox[ {Opacity[0.], PointBox[{{10., 3.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535573, { 10}}]& ]}}, {{{{}, {GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 3.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 3.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 10.052934799313826`, 3.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 10.052934799313826`, 3.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["3", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {10.052934799313826, 3.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 6.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 6.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 9.052934799313826, 6.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {9.052934799313826, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 6.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 6.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 6.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 9.052934799313826, 6.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {9.052934799313826, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 6.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 9.052934799313826, 6.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 9.052934799313826, 6.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 9.052934799313826, 6.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 9.052934799313826, 6.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["6", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {9.052934799313826, 6.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 8.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 8.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 8.052934799313826, 8.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, {8.052934799313826, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 8.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 8.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 8.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 8.052934799313826, 8.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, {8.052934799313826, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 8.087307402797368}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 8.052934799313826, 8.087307402797368}], Offset[{20.656854249492383`, 0.4568542494923804}, { 8.052934799313826, 8.087307402797368}], Offset[{9.656854249492381, 0.45685424949237863`}, { 8.052934799313826, 8.087307402797368}], Offset[{9.656854249492378, 13.456854249492379`}, { 8.052934799313826, 8.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["8", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {8.052934799313826, 8.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 1.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 1.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 7.052934799313826, 1.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {7.052934799313826, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 1.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 1.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 1.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 7.052934799313826, 1.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {7.052934799313826, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 1.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 7.052934799313826, 1.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 7.052934799313826, 1.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 7.052934799313826, 1.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 7.052934799313826, 1.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["1", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {7.052934799313826, 1.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 9.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 9.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 6.052934799313826, 9.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, {6.052934799313826, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 9.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 9.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 9.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 6.052934799313826, 9.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, {6.052934799313826, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 9.087307402797368}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 6.052934799313826, 9.087307402797368}], Offset[{20.656854249492383`, 0.4568542494923804}, { 6.052934799313826, 9.087307402797368}], Offset[{9.656854249492381, 0.45685424949237863`}, { 6.052934799313826, 9.087307402797368}], Offset[{9.656854249492378, 13.456854249492379`}, { 6.052934799313826, 9.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["9", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {6.052934799313826, 9.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 5.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 5.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 5.052934799313826, 5.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {5.052934799313826, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 5.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 5.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 5.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 5.052934799313826, 5.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {5.052934799313826, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 5.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 5.052934799313826, 5.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 5.052934799313826, 5.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 5.052934799313826, 5.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 5.052934799313826, 5.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["5", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {5.052934799313826, 5.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-5.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-7.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-5.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-7.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.45685424949238}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-9.656854249492378, 0.4568542494923813}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-20.656854249492376`, 0.4568542494923795}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-20.656854249492383`, 13.45685424949238}, { 3.9470652006861737`, 4.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["4", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-15.15685424949238, 6.95685424949238}, \ {3.9470652006861737, 4.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{5.656854249492381, 5.65685424949238}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{7.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 10.087307402797368`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{5.656854249492381, 5.65685424949238}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{7.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 10.087307402797368`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{26.656854249492376`, 13.45685424949238}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{26.656854249492383`, 0.4568542494923813}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{9.656854249492381, 0.45685424949237774`}, { 3.0529347993138263`, 10.087307402797368`}], Offset[{9.656854249492378, 13.456854249492377`}, { 3.0529347993138263`, 10.087307402797368`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["10", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{18.15685424949238, 6.9568542494923795}, \ {3.0529347993138263, 10.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 2.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 2.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 2.0529347993138263`, 2.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 2.0529347993138263`, 2.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["2", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {2.0529347993138263, 2.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 7.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 7.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 1.0529347993138263`, 7.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 7.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 7.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 7.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 1.0529347993138263`, 7.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 7.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 1.0529347993138263`, 7.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 1.0529347993138263`, 7.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 1.0529347993138263`, 7.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 1.0529347993138263`, 7.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["7", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {1.0529347993138263, 7.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}}, {}}, {}}}, 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, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotLabel->FormBox["\"3-shuffle\"", TraditionalForm], PlotRange->{{0., 10.}, {0, 10.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.08]}, { Scaled[0.02], Scaled[0.0970820393249937]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 3.}, {2., 8.}, {3., 9.}, {4., 4.}, {5., 2.}, {6., 7.}, { 7., 10.}, {8., 5.}, {9., 1.}, {10., 6.}}]}, { TagBox[ {Opacity[0.], PointBox[{{1., 3.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535829, {1}}]& ], TagBox[ {Opacity[0.], PointBox[{{2., 8.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535829, {2}}]& ], TagBox[ {Opacity[0.], PointBox[{{3., 9.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535829, {3}}]& ], TagBox[ {Opacity[0.], PointBox[{{4., 4.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535829, {4}}]& ], TagBox[ {Opacity[0.], PointBox[{{5., 2.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535829, {5}}]& ], TagBox[ {Opacity[0.], PointBox[{{6., 7.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535829, {6}}]& ], TagBox[ {Opacity[0.], PointBox[{{7., 10.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535829, {7}}]& ], TagBox[ {Opacity[0.], PointBox[{{8., 5.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535829, {8}}]& ], TagBox[ {Opacity[0.], PointBox[{{9., 1.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535829, {9}}]& ], TagBox[ {Opacity[0.], PointBox[{{10., 6.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$535829, { 10}}]& ]}}, {{{{}, {GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 6.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 6.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 10.052934799313826`, 6.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 10.052934799313826`, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 6.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 6.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 6.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 10.052934799313826`, 6.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 10.052934799313826`, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 6.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 10.052934799313826`, 6.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 10.052934799313826`, 6.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 10.052934799313826`, 6.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 10.052934799313826`, 6.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["6", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {10.052934799313826, 6.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 1.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 1.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 9.052934799313826, 1.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {9.052934799313826, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 1.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 1.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 1.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 9.052934799313826, 1.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {9.052934799313826, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 1.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 9.052934799313826, 1.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 9.052934799313826, 1.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 9.052934799313826, 1.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 9.052934799313826, 1.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["1", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {9.052934799313826, 1.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 5.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 5.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 8.052934799313826, 5.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {8.052934799313826, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 5.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 5.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 5.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 8.052934799313826, 5.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {8.052934799313826, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 5.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 8.052934799313826, 5.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 8.052934799313826, 5.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 8.052934799313826, 5.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 8.052934799313826, 5.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["5", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {8.052934799313826, 5.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 10.087307402797368`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 10.087307402797368`}], Offset[{5.656854249492381, 5.65685424949238}, { 7.052934799313826, 10.087307402797368`}], Offset[{7.65685424949238, 5.65685424949238}, {7.052934799313826, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 10.087307402797368`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 10.087307402797368`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 10.087307402797368`}], Offset[{5.656854249492381, 5.65685424949238}, { 7.052934799313826, 10.087307402797368`}], Offset[{7.65685424949238, 5.65685424949238}, {7.052934799313826, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 10.087307402797368`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{26.656854249492376`, 13.45685424949238}, { 7.052934799313826, 10.087307402797368`}], Offset[{26.656854249492383`, 0.4568542494923813}, { 7.052934799313826, 10.087307402797368`}], Offset[{9.656854249492381, 0.45685424949237774`}, { 7.052934799313826, 10.087307402797368`}], Offset[{9.656854249492378, 13.456854249492377`}, { 7.052934799313826, 10.087307402797368`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["10", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{18.15685424949238, 6.9568542494923795}, \ {7.052934799313826, 10.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 7.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 7.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 6.052934799313826, 7.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {6.052934799313826, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 7.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 7.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 7.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 6.052934799313826, 7.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {6.052934799313826, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 7.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 6.052934799313826, 7.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 6.052934799313826, 7.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 6.052934799313826, 7.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 6.052934799313826, 7.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["7", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {6.052934799313826, 7.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 2.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 2.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 5.052934799313826, 2.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {5.052934799313826, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 2.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 2.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 2.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 5.052934799313826, 2.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {5.052934799313826, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 2.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 5.052934799313826, 2.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 5.052934799313826, 2.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 5.052934799313826, 2.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 5.052934799313826, 2.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["2", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {5.052934799313826, 2.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 4.052934799313826, 4.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 4.052934799313826, 4.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 4.052934799313826, 4.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 4.052934799313826, 4.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 4.052934799313826, 4.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 4.052934799313826, 4.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["4", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {4.052934799313826, 4.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 9.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 9.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 3.0529347993138263`, 9.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 9.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 9.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 9.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 3.0529347993138263`, 9.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 9.087307402797368}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 3.0529347993138263`, 9.087307402797368}], Offset[{20.656854249492383`, 0.4568542494923804}, { 3.0529347993138263`, 9.087307402797368}], Offset[{9.656854249492381, 0.45685424949237863`}, { 3.0529347993138263`, 9.087307402797368}], Offset[{9.656854249492378, 13.456854249492379`}, { 3.0529347993138263`, 9.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["9", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {3.0529347993138263, 9.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-4.242640687119285, 4.242640687119286}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-4.242640687119285, 4.242640687119286}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-5.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-7.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-9.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-9.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 8.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-4.242640687119285, 4.242640687119286}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-4.242640687119285, 4.242640687119286}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-5.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-7.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-9.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-9.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 8.087307402797368}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.45685424949238}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-9.656854249492378, 0.4568542494923813}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-20.656854249492376`, 0.4568542494923795}, { 1.9470652006861737`, 8.087307402797368}], Offset[{-20.656854249492383`, 13.45685424949238}, { 1.9470652006861737`, 8.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["8", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-15.15685424949238, 6.95685424949238}, \ {1.9470652006861737, 8.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 3.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 3.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 1.0529347993138263`, 3.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 1.0529347993138263`, 3.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["3", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {1.0529347993138263, 3.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}}, {}}, {}}}, 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, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotLabel->FormBox["\"4-shuffle\"", TraditionalForm], PlotRange->{{0., 10.}, {0, 10.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.08]}, { Scaled[0.02], Scaled[0.0970820393249937]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 6.}, {2., 5.}, {3., 7.}, {4., 4.}, {5., 8.}, {6., 3.}, { 7., 9.}, {8., 2.}, {9., 10.}, {10., 1.}}]}, { TagBox[ {Opacity[0.], PointBox[{{1., 6.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536093, {1}}]& ], TagBox[ {Opacity[0.], PointBox[{{2., 5.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536093, {2}}]& ], TagBox[ {Opacity[0.], PointBox[{{3., 7.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536093, {3}}]& ], TagBox[ {Opacity[0.], PointBox[{{4., 4.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536093, {4}}]& ], TagBox[ {Opacity[0.], PointBox[{{5., 8.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536093, {5}}]& ], TagBox[ {Opacity[0.], PointBox[{{6., 3.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536093, {6}}]& ], TagBox[ {Opacity[0.], PointBox[{{7., 9.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536093, {7}}]& ], TagBox[ {Opacity[0.], PointBox[{{8., 2.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536093, {8}}]& ], TagBox[ {Opacity[0.], PointBox[{{9., 10.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536093, {9}}]& ], TagBox[ {Opacity[0.], PointBox[{{10., 1.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536093, { 10}}]& ]}}, {{{{}, {GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 1.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 1.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 10.052934799313826`, 1.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 10.052934799313826`, 1.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["1", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {10.052934799313826, 1.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 10.087307402797368`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 10.087307402797368`}], Offset[{5.656854249492381, 5.65685424949238}, { 9.052934799313826, 10.087307402797368`}], Offset[{7.65685424949238, 5.65685424949238}, {9.052934799313826, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 10.087307402797368`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 10.087307402797368`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 9.052934799313826, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 9.052934799313826, 10.087307402797368`}], Offset[{5.656854249492381, 5.65685424949238}, { 9.052934799313826, 10.087307402797368`}], Offset[{7.65685424949238, 5.65685424949238}, {9.052934799313826, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, {9.052934799313826, 10.087307402797368`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{26.656854249492376`, 13.45685424949238}, { 9.052934799313826, 10.087307402797368`}], Offset[{26.656854249492383`, 0.4568542494923813}, { 9.052934799313826, 10.087307402797368`}], Offset[{9.656854249492381, 0.45685424949237774`}, { 9.052934799313826, 10.087307402797368`}], Offset[{9.656854249492378, 13.456854249492377`}, { 9.052934799313826, 10.087307402797368`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["10", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{18.15685424949238, 6.9568542494923795}, \ {9.052934799313826, 10.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 2.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 2.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 8.052934799313826, 2.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {8.052934799313826, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 2.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 2.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 8.052934799313826, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 2.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 8.052934799313826, 2.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 8.052934799313826, 2.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {8.052934799313826, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 2.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {8.052934799313826, 2.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 8.052934799313826, 2.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 8.052934799313826, 2.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 8.052934799313826, 2.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 8.052934799313826, 2.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["2", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {8.052934799313826, 2.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 9.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 9.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 7.052934799313826, 9.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, {7.052934799313826, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 9.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 9.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 7.052934799313826, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 9.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 7.052934799313826, 9.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 7.052934799313826, 9.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, {7.052934799313826, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 9.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {7.052934799313826, 9.087307402797368}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 7.052934799313826, 9.087307402797368}], Offset[{20.656854249492383`, 0.4568542494923804}, { 7.052934799313826, 9.087307402797368}], Offset[{9.656854249492381, 0.45685424949237863`}, { 7.052934799313826, 9.087307402797368}], Offset[{9.656854249492378, 13.456854249492379`}, { 7.052934799313826, 9.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["9", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {7.052934799313826, 9.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 3.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 3.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 6.052934799313826, 3.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {6.052934799313826, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 3.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 3.0873074027973675`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 6.052934799313826, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 3.0873074027973675`}], Offset[{4.242640687119286, 4.242640687119285}, { 6.052934799313826, 3.0873074027973675`}], Offset[{5.656854249492381, 5.65685424949238}, { 6.052934799313826, 3.0873074027973675`}], Offset[{7.65685424949238, 5.65685424949238}, {6.052934799313826, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 3.0873074027973675`}], Offset[{9.65685424949238, 5.65685424949238}, {6.052934799313826, 3.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 6.052934799313826, 3.0873074027973675`}], Offset[{20.656854249492383`, 0.4568542494923804}, { 6.052934799313826, 3.0873074027973675`}], Offset[{9.656854249492381, 0.45685424949237863`}, { 6.052934799313826, 3.0873074027973675`}], Offset[{9.656854249492378, 13.456854249492379`}, { 6.052934799313826, 3.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["3", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {6.052934799313826, 3.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 8.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 8.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 5.052934799313826, 8.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, {5.052934799313826, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 8.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 8.087307402797368}], Offset[{2.8284271247461903`, 2.82842712474619}, { 5.052934799313826, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 8.087307402797368}], Offset[{4.242640687119286, 4.242640687119285}, { 5.052934799313826, 8.087307402797368}], Offset[{5.656854249492381, 5.65685424949238}, { 5.052934799313826, 8.087307402797368}], Offset[{7.65685424949238, 5.65685424949238}, {5.052934799313826, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 8.087307402797368}], Offset[{9.65685424949238, 5.65685424949238}, {5.052934799313826, 8.087307402797368}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 5.052934799313826, 8.087307402797368}], Offset[{20.656854249492383`, 0.4568542494923804}, { 5.052934799313826, 8.087307402797368}], Offset[{9.656854249492381, 0.45685424949237863`}, { 5.052934799313826, 8.087307402797368}], Offset[{9.656854249492378, 13.456854249492379`}, { 5.052934799313826, 8.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["8", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {5.052934799313826, 8.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 4.052934799313826, 4.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 4.052934799313826, 4.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 4.052934799313826, 4.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, {4.052934799313826, 4.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 4.052934799313826, 4.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 4.052934799313826, 4.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 4.052934799313826, 4.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 4.052934799313826, 4.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["4", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {4.052934799313826, 4.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 7.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 7.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 3.0529347993138263`, 7.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 7.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 7.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 3.0529347993138263`, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 7.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 3.0529347993138263`, 7.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 3.0529347993138263`, 7.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 7.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 3.0529347993138263`, 7.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 3.0529347993138263`, 7.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 3.0529347993138263`, 7.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 3.0529347993138263`, 7.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 3.0529347993138263`, 7.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["7", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {3.0529347993138263, 7.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 5.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 5.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 5.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 2.0529347993138263`, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 5.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 2.0529347993138263`, 5.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 2.0529347993138263`, 5.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 2.0529347993138263`, 5.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 2.0529347993138263`, 5.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 2.0529347993138263`, 5.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 2.0529347993138263`, 5.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["5", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {2.0529347993138263, 5.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 6.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 6.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 1.0529347993138263`, 6.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 6.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 6.087307402797367}], Offset[{2.8284271247461903`, 2.82842712474619}, { 1.0529347993138263`, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 6.087307402797367}], Offset[{4.242640687119286, 4.242640687119285}, { 1.0529347993138263`, 6.087307402797367}], Offset[{5.656854249492381, 5.65685424949238}, { 1.0529347993138263`, 6.087307402797367}], Offset[{7.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 6.087307402797367}], Offset[{9.65685424949238, 5.65685424949238}, { 1.0529347993138263`, 6.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{20.656854249492376`, 13.45685424949238}, { 1.0529347993138263`, 6.087307402797367}], Offset[{20.656854249492383`, 0.4568542494923804}, { 1.0529347993138263`, 6.087307402797367}], Offset[{9.656854249492381, 0.45685424949237863`}, { 1.0529347993138263`, 6.087307402797367}], Offset[{9.656854249492378, 13.456854249492379`}, { 1.0529347993138263`, 6.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["6", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{15.15685424949238, 6.9568542494923795}, \ {1.0529347993138263, 6.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}}, {}}, {}}}, 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, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotLabel->FormBox["\"5-shuffle\"", TraditionalForm], PlotRange->{{0., 10.}, {0, 10.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.08]}, { Scaled[0.02], Scaled[0.0970820393249937]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 1.}, {2., 2.}, {3., 3.}, {4., 4.}, {5., 5.}, {6., 6.}, { 7., 7.}, {8., 8.}, {9., 9.}, {10., 10.}}]}, { TagBox[ {Opacity[0.], PointBox[{{1., 1.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536387, {1}}]& ], TagBox[ {Opacity[0.], PointBox[{{2., 2.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536387, {2}}]& ], TagBox[ {Opacity[0.], PointBox[{{3., 3.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536387, {3}}]& ], TagBox[ {Opacity[0.], PointBox[{{4., 4.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536387, {4}}]& ], TagBox[ {Opacity[0.], PointBox[{{5., 5.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536387, {5}}]& ], TagBox[ {Opacity[0.], PointBox[{{6., 6.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536387, {6}}]& ], TagBox[ {Opacity[0.], PointBox[{{7., 7.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536387, {7}}]& ], TagBox[ {Opacity[0.], PointBox[{{8., 8.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536387, {8}}]& ], TagBox[ {Opacity[0.], PointBox[{{9., 9.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536387, {9}}]& ], TagBox[ {Opacity[0.], PointBox[{{10., 10.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$536387, { 10}}]& ]}}, {{{{}, {GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 10.087307402797368`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 10.087307402797368`}], Offset[{5.656854249492381, 5.65685424949238}, { 10.052934799313826`, 10.087307402797368`}], Offset[{7.65685424949238, 5.65685424949238}, { 10.052934799313826`, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 10.087307402797368`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 10.087307402797368`}], Offset[{2.8284271247461903`, 2.82842712474619}, { 10.052934799313826`, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 10.087307402797368`}], Offset[{4.242640687119286, 4.242640687119285}, { 10.052934799313826`, 10.087307402797368`}], Offset[{5.656854249492381, 5.65685424949238}, { 10.052934799313826`, 10.087307402797368`}], Offset[{7.65685424949238, 5.65685424949238}, { 10.052934799313826`, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 10.087307402797368`}], Offset[{9.65685424949238, 5.65685424949238}, { 10.052934799313826`, 10.087307402797368`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{26.656854249492376`, 13.45685424949238}, { 10.052934799313826`, 10.087307402797368`}], Offset[{26.656854249492383`, 0.4568542494923813}, { 10.052934799313826`, 10.087307402797368`}], Offset[{9.656854249492381, 0.45685424949237774`}, { 10.052934799313826`, 10.087307402797368`}], Offset[{9.656854249492378, 13.456854249492377`}, { 10.052934799313826`, 10.087307402797368`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["10", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{18.15685424949238, 6.9568542494923795}, \ {10.052934799313826, 10.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 8.947065200686174, 9.087307402797368}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 8.947065200686174, 9.087307402797368}], Offset[{-4.242640687119285, 4.242640687119286}, { 8.947065200686174, 9.087307402797368}], Offset[{-4.242640687119285, 4.242640687119286}, { 8.947065200686174, 9.087307402797368}], Offset[{-5.65685424949238, 5.656854249492381}, { 8.947065200686174, 9.087307402797368}], Offset[{-7.65685424949238, 5.656854249492381}, { 8.947065200686174, 9.087307402797368}], Offset[{-9.65685424949238, 5.656854249492381}, { 8.947065200686174, 9.087307402797368}], Offset[{-9.65685424949238, 5.656854249492381}, { 8.947065200686174, 9.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 8.947065200686174, 9.087307402797368}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 8.947065200686174, 9.087307402797368}], Offset[{-4.242640687119285, 4.242640687119286}, { 8.947065200686174, 9.087307402797368}], Offset[{-4.242640687119285, 4.242640687119286}, { 8.947065200686174, 9.087307402797368}], Offset[{-5.65685424949238, 5.656854249492381}, { 8.947065200686174, 9.087307402797368}], Offset[{-7.65685424949238, 5.656854249492381}, { 8.947065200686174, 9.087307402797368}], Offset[{-9.65685424949238, 5.656854249492381}, { 8.947065200686174, 9.087307402797368}], Offset[{-9.65685424949238, 5.656854249492381}, { 8.947065200686174, 9.087307402797368}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.45685424949238}, { 8.947065200686174, 9.087307402797368}], Offset[{-9.656854249492378, 0.4568542494923813}, { 8.947065200686174, 9.087307402797368}], Offset[{-20.656854249492376`, 0.4568542494923795}, { 8.947065200686174, 9.087307402797368}], Offset[{-20.656854249492383`, 13.45685424949238}, { 8.947065200686174, 9.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["9", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-15.15685424949238, 6.95685424949238}, \ {8.947065200686174, 9.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 7.947065200686174, 8.087307402797368}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 7.947065200686174, 8.087307402797368}], Offset[{-4.242640687119285, 4.242640687119286}, { 7.947065200686174, 8.087307402797368}], Offset[{-4.242640687119285, 4.242640687119286}, { 7.947065200686174, 8.087307402797368}], Offset[{-5.65685424949238, 5.656854249492381}, { 7.947065200686174, 8.087307402797368}], Offset[{-7.65685424949238, 5.656854249492381}, { 7.947065200686174, 8.087307402797368}], Offset[{-9.65685424949238, 5.656854249492381}, { 7.947065200686174, 8.087307402797368}], Offset[{-9.65685424949238, 5.656854249492381}, { 7.947065200686174, 8.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 7.947065200686174, 8.087307402797368}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 7.947065200686174, 8.087307402797368}], Offset[{-4.242640687119285, 4.242640687119286}, { 7.947065200686174, 8.087307402797368}], Offset[{-4.242640687119285, 4.242640687119286}, { 7.947065200686174, 8.087307402797368}], Offset[{-5.65685424949238, 5.656854249492381}, { 7.947065200686174, 8.087307402797368}], Offset[{-7.65685424949238, 5.656854249492381}, { 7.947065200686174, 8.087307402797368}], Offset[{-9.65685424949238, 5.656854249492381}, { 7.947065200686174, 8.087307402797368}], Offset[{-9.65685424949238, 5.656854249492381}, { 7.947065200686174, 8.087307402797368}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.45685424949238}, { 7.947065200686174, 8.087307402797368}], Offset[{-9.656854249492378, 0.4568542494923813}, { 7.947065200686174, 8.087307402797368}], Offset[{-20.656854249492376`, 0.4568542494923795}, { 7.947065200686174, 8.087307402797368}], Offset[{-20.656854249492383`, 13.45685424949238}, { 7.947065200686174, 8.087307402797368}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["8", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-15.15685424949238, 6.95685424949238}, \ {7.947065200686174, 8.087307402797368}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 6.947065200686174, 7.087307402797367}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 6.947065200686174, 7.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 6.947065200686174, 7.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 6.947065200686174, 7.087307402797367}], Offset[{-5.65685424949238, 5.656854249492381}, { 6.947065200686174, 7.087307402797367}], Offset[{-7.65685424949238, 5.656854249492381}, { 6.947065200686174, 7.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 6.947065200686174, 7.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 6.947065200686174, 7.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 6.947065200686174, 7.087307402797367}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 6.947065200686174, 7.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 6.947065200686174, 7.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 6.947065200686174, 7.087307402797367}], Offset[{-5.65685424949238, 5.656854249492381}, { 6.947065200686174, 7.087307402797367}], Offset[{-7.65685424949238, 5.656854249492381}, { 6.947065200686174, 7.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 6.947065200686174, 7.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 6.947065200686174, 7.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.45685424949238}, { 6.947065200686174, 7.087307402797367}], Offset[{-9.656854249492378, 0.4568542494923813}, { 6.947065200686174, 7.087307402797367}], Offset[{-20.656854249492376`, 0.4568542494923795}, { 6.947065200686174, 7.087307402797367}], Offset[{-20.656854249492383`, 13.45685424949238}, { 6.947065200686174, 7.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["7", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-15.15685424949238, 6.95685424949238}, \ {6.947065200686174, 7.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 5.947065200686174, 6.087307402797367}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 5.947065200686174, 6.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 5.947065200686174, 6.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 5.947065200686174, 6.087307402797367}], Offset[{-5.65685424949238, 5.656854249492381}, { 5.947065200686174, 6.087307402797367}], Offset[{-7.65685424949238, 5.656854249492381}, { 5.947065200686174, 6.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 5.947065200686174, 6.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 5.947065200686174, 6.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 5.947065200686174, 6.087307402797367}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 5.947065200686174, 6.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 5.947065200686174, 6.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 5.947065200686174, 6.087307402797367}], Offset[{-5.65685424949238, 5.656854249492381}, { 5.947065200686174, 6.087307402797367}], Offset[{-7.65685424949238, 5.656854249492381}, { 5.947065200686174, 6.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 5.947065200686174, 6.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 5.947065200686174, 6.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.45685424949238}, { 5.947065200686174, 6.087307402797367}], Offset[{-9.656854249492378, 0.4568542494923813}, { 5.947065200686174, 6.087307402797367}], Offset[{-20.656854249492376`, 0.4568542494923795}, { 5.947065200686174, 6.087307402797367}], Offset[{-20.656854249492383`, 13.45685424949238}, { 5.947065200686174, 6.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["6", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-15.15685424949238, 6.95685424949238}, \ {5.947065200686174, 6.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 4.947065200686174, 5.087307402797367}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 4.947065200686174, 5.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 4.947065200686174, 5.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 4.947065200686174, 5.087307402797367}], Offset[{-5.65685424949238, 5.656854249492381}, { 4.947065200686174, 5.087307402797367}], Offset[{-7.65685424949238, 5.656854249492381}, { 4.947065200686174, 5.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 4.947065200686174, 5.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 4.947065200686174, 5.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 4.947065200686174, 5.087307402797367}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 4.947065200686174, 5.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 4.947065200686174, 5.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 4.947065200686174, 5.087307402797367}], Offset[{-5.65685424949238, 5.656854249492381}, { 4.947065200686174, 5.087307402797367}], Offset[{-7.65685424949238, 5.656854249492381}, { 4.947065200686174, 5.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 4.947065200686174, 5.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 4.947065200686174, 5.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.45685424949238}, { 4.947065200686174, 5.087307402797367}], Offset[{-9.656854249492378, 0.4568542494923813}, { 4.947065200686174, 5.087307402797367}], Offset[{-20.656854249492376`, 0.4568542494923795}, { 4.947065200686174, 5.087307402797367}], Offset[{-20.656854249492383`, 13.45685424949238}, { 4.947065200686174, 5.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["5", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-15.15685424949238, 6.95685424949238}, \ {4.947065200686174, 5.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-5.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-7.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-4.242640687119285, 4.242640687119286}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-5.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-7.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-9.65685424949238, 5.656854249492381}, { 3.9470652006861737`, 4.087307402797367}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.45685424949238}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-9.656854249492378, 0.4568542494923813}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-20.656854249492376`, 0.4568542494923795}, { 3.9470652006861737`, 4.087307402797367}], Offset[{-20.656854249492383`, 13.45685424949238}, { 3.9470652006861737`, 4.087307402797367}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["4", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-15.15685424949238, 6.95685424949238}, \ {3.9470652006861737, 4.087307402797367}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-5.65685424949238, 5.656854249492381}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-7.65685424949238, 5.656854249492381}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 2.9470652006861737`, 3.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-5.65685424949238, 5.656854249492381}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-7.65685424949238, 5.656854249492381}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 2.9470652006861737`, 3.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.45685424949238}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-9.656854249492378, 0.4568542494923813}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-20.656854249492376`, 0.4568542494923795}, { 2.9470652006861737`, 3.0873074027973675`}], Offset[{-20.656854249492383`, 13.45685424949238}, { 2.9470652006861737`, 3.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["3", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-15.15685424949238, 6.95685424949238}, \ {2.9470652006861737, 3.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-5.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-7.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 2.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-5.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-7.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 1.9470652006861737`, 2.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.45685424949238}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-9.656854249492378, 0.4568542494923813}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-20.656854249492376`, 0.4568542494923795}, { 1.9470652006861737`, 2.0873074027973675`}], Offset[{-20.656854249492383`, 13.45685424949238}, { 1.9470652006861737`, 2.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["2", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-15.15685424949238, 6.95685424949238}, \ {1.9470652006861737, 2.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}], GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-5.65685424949238, 5.656854249492381}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-7.65685424949238, 5.656854249492381}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 0.9470652006861737, 1.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{-2.82842712474619, 2.8284271247461903`}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-2.82842712474619, 2.8284271247461903`}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-4.242640687119285, 4.242640687119286}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-5.65685424949238, 5.656854249492381}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-7.65685424949238, 5.656854249492381}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-9.65685424949238, 5.656854249492381}, { 0.9470652006861737, 1.0873074027973675`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{-9.656854249492381, 13.45685424949238}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-9.656854249492378, 0.4568542494923813}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-20.656854249492376`, 0.4568542494923795}, { 0.9470652006861737, 1.0873074027973675`}], Offset[{-20.656854249492383`, 13.45685424949238}, { 0.9470652006861737, 1.0873074027973675`}]}]}, {RGBColor[ 0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox[ TagBox["1", Annotation[#, "Expressions"]& ], BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{-15.15685424949238, 6.95685424949238}, \ {0.9470652006861737, 1.0873074027973675}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}}, {}}, {}}}, 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, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotLabel->FormBox["\"6-shuffle\"", TraditionalForm], PlotRange->{{0., 10.}, {0, 10.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.08]}, { Scaled[0.02], Scaled[0.0970820393249937]}}, Ticks->{Automatic, Automatic}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.807254156984521*^9, 3.807254191567*^9}, { 3.807254287959667*^9, 3.807254310931046*^9}}, CellLabel->"Out[214]=", CellID->53436513] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> 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, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["\<\ Wolfram Staff (original content for an out shuffle by Sander Huisman and for \ a Monge shuffle by Katja Della Libera)\ \>", "Text", CellID->799860536] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> 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, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["card shuffling", "Item", CellID->366894711], Cell["card deck", "Item", CellID->188090990], Cell["shuffle order", "Item", CellID->709322606], Cell["shuffle period", "Item", CellID->145603806], Cell["shuffle cycles", "Item", CellID->515092989], Cell["shuffle fixed points", "Item", CellID->771155132], Cell["perfect shuffle", "Item", CellID->189331947], Cell["reverse shuffle", "Item", CellID->10072332], Cell["faro shuffle", "Item", CellID->632565851], Cell["weave shuffle", "Item", CellID->411680774], Cell["dovetail shuffle", "Item", CellID->913356364], Cell["out shuffle", "Item", CellID->134648224], Cell["in shuffle", "Item", CellID->903976675], Cell["monge shuffle", "Item", CellID->467776872], Cell["down monge shuffle", "Item", CellID->562223764], Cell["over monge shuffle", "Item", CellID->535046329], Cell["down under shuffle", "Item", CellID->678309964], Cell["australian shuffle", "Item", CellID->496043013], Cell["milk shuffle", "Item", CellID->439928907], Cell["klondike shuffle", "Item", CellID->491450243], Cell["random shuffle", "Item", CellID->671500387] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "3D Visualization"}], "\" \"", "\"3D Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessibility"}], "\" \"", "\"Accessibility\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Accessing External Services & APIs"}], "\" \"", "\"Accessing External Services & APIs\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Associations"}], "\" \"", "\"Associations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Astronomical Computation & Data"}], "\" \"", "\"Astronomical Computation & Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Background & Scheduled Tasks"}], "\" \"", "\"Background & Scheduled Tasks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calculus"}], "\" \"", "\"Calculus\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Calling External Programs"}], "\" \"", "\"Calling External Programs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Functions & Deployment"}], "\" \"", "\"Cloud Functions & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Code as Data"}], "\" \"", "\"Code as Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Color Processing"}], "\" \"", "\"Color Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computational Geometry"}], "\" \"", "\"Computational Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computation on Graphs"}], "\" \"", "\"Computation on Graphs\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Computer Vision"}], "\" \"", "\"Computer Vision\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Control Objects"}], "\" \"", "\"Control Objects\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Creating Form Interfaces & Apps"}], "\" \"", "\"Creating Form Interfaces & Apps\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cryptography"}], "\" \"", "\"Cryptography\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cultural Data"}], "\" \"", "\"Cultural Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Structures"}], "\" \"", "\"Data Structures\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Transforms and Smoothing"}], "\" \"", "\"Data Transforms and Smoothing\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Visualization"}], "\" \"", "\"Data Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Date & Time"}], "\" \"", "\"Date & Time\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Decorations"}], "\" \"", "\"Decorations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Differential Geometry"}], "\" \"", "\"Differential Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Dimension Reduction"}], "\" \"", "\"Dimension Reduction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Discrete Mathematics", {False, "Discrete Mathematics"}], "\" \"", "\"Discrete Mathematics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Dynamic Interactivity Language"}], "\" \"", "\"Dynamic Interactivity Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Error Handling"}], "\" \"", "\"Error Handling\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Expressions"}], "\" \"", "\"Expressions\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Language Interfaces"}], "\" \"", "\"External Language Interfaces\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "File Operations"}], "\" \"", "\"File Operations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Front End Utilities"}], "\" \"", "\"Front End Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Functional Programming"}], "\" \"", "\"Functional Programming\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Function Visualization"}], "\" \"", "\"Function Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Games"}], "\" \"", "\"Games\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data and Entities"}], "\" \"", "\"Geographic Data and Entities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Visualization"}], "\" \"", "\"Geographic Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometric Region Properties"}], "\" \"", "\"Geometric Region Properties\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometric Transforms"}], "\" \"", "\"Geometric Transforms\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Construction & Representation"}], "\" \"", "\"Graph Construction & Representation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Properties & Measurements"}], "\" \"", "\"Graph Properties & Measurements\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Graphs & Networks", {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graph Visualization"}], "\" \"", "\"Graph Visualization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Handling Arrays of Data"}], "\" \"", "\"Handling Arrays of Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Higher Mathematical Computation", { False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Image Filtering & Neighborhood Processing"}], "\" \"", "\"Image Filtering & Neighborhood Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Image Processing & Analysis"}], "\" \"", "\"Image Processing & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Importing and Exporting"}], "\" \"", "\"Importing and Exporting\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Interactive Manipulation"}], "\" \"", "\"Interactive Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Iterated Maps & Fractals"}], "\" \"", "\"Iterated Maps & Fractals\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Just For Fun", {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Layout & Tables"}], "\" \"", "\"Layout & Tables\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Life Sciences & Medicine: Data & Computation"}], "\" \"", "\"Life Sciences & Medicine: Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Linguistic Data"}], "\" \"", "\"Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["List Manipulation", {False, "List Manipulation"}], "\" \"", "\"List Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Logic & Boolean Algebra"}], "\" \"", "\"Logic & Boolean Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Low-Level Notebook Programming"}], "\" \"", "\"Low-Level Notebook Programming\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Maps & Cartography"}], "\" \"", "\"Maps & Cartography\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Mathematical Functions"}], "\" \"", "\"Mathematical Functions\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Matrices and Linear Algebra"}], "\" \"", "\"Matrices and Linear Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Molecular Structure & Computation"}], "\" \"", "\"Molecular Structure & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Natural Language Processing"}], "\" \"", "\"Natural Language Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Neural Networks"}], "\" \"", "\"Neural Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Basics"}], "\" \"", "\"Notebook Basics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Document Generation"}], "\" \"", "\"Notebook Document Generation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Formatting & Styling"}], "\" \"", "\"Notebook Formatting & Styling\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Number Theory"}], "\" \"", "\"Number Theory\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Numeric Approximation"}], "\" \"", "\"Numeric Approximation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Optimization"}], "\" \"", "\"Optimization\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Computing"}], "\" \"", "\"Parallel Computing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Persistent Storage"}], "\" \"", "\"Persistent Storage\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Physics & Chemistry: Data and Computation"}], "\" \"", "\"Physics & Chemistry: Data and Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Plane Geometry"}], "\" \"", "\"Plane Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Polynomial Algebra"}], "\" \"", "\"Polynomial Algebra\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Precollege Education"}], "\" \"", "\"Precollege Education\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Presentations with the Wolfram System"}], "\" \"", "\"Presentations with the Wolfram System\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Probability & Statistics"}], "\" \"", "\"Probability & Statistics\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Random Stuff"}], "\" \"", "\"Random Stuff\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Real & Complex Analysis"}], "\" \"", "\"Real & Complex Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Recreational Math", {False, "Recreational Math"}], "\" \"", "\"Recreational Math\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "RepositoryTools"}], "\" \"", "\"RepositoryTools\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Rules & Patterns"}], "\" \"", "\"Rules & Patterns\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Scientific Data Analysis"}], "\" \"", "\"Scientific Data Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Segmentation Analysis"}], "\" \"", "\"Segmentation Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sequence Analysis"}], "\" \"", "\"Sequence Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Shortcuts and Idioms"}], "\" \"", "\"Shortcuts and Idioms\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Signal Processing"}], "\" \"", "\"Signal Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social Data"}], "\" \"", "\"Social Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Solid Geometry"}], "\" \"", "\"Solid Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Statistical Data Analysis"}], "\" \"", "\"Statistical Data Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "String Manipulation"}], "\" \"", "\"String Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Text Analysis"}], "\" \"", "\"Text Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Text Manipulation"}], "\" \"", "\"Text Manipulation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Theorem Proving"}], "\" \"", "\"Theorem Proving\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time Series Processing"}], "\" \"", "\"Time Series Processing\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Topology"}], "\" \"", "\"Topology\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Tuning & Debugging"}], "\" \"", "\"Tuning & Debugging\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Units & Quantities"}], "\" \"", "\"Units & Quantities\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Viewers and Annotation"}], "\" \"", "\"Viewers and Annotation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Weather Data"}], "\" \"", "\"Weather Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Web Operations"}], "\" \"", "\"Web Operations\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram System Setup"}], "\" \"", "\"Wolfram System Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Working with Paclets"}], "\" \"", "\"Working with Paclets\""}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVUNFOwzAMlBAbLZqQKvFOnnjrR1QdhSFgqN4PZJm3RkuTKHaE+vckq4TGk8/y+Xy+\ pqhhATwZhOU2so9cw107oDrj4bik2w9NDI9rTSogo/iUPOAoWSuC6jVIP5B4Fl/\ IPy6cCZ7e9GnAcEWTRrRuTLKpcRZW75FYdC6ILlqosnoiW+2jmQlVj+\ nSBafVrJP8bRhHorKJ7C6iNRTfwXkMPMF9KxlPLmik5Hzr8yYdb2bnufbRIBUvB81yn9Cik4bwb1Cu\ 0eD1JL/vTBzt/4MPG8sYfAph9lk2doK4J0x5rXokF4PC3eQRivSZypxfMFt6UQ=="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->204934868] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> 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, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["Permute", "Item", CellID->212033364], Cell["Graph", "Item", CellID->663097762], Cell["Permutations", "Item", CellID->805979615], Cell["PermutationGroup", "Item", CellID->100071373], Cell["PermutationCycles", "Item", CellID->191646420], Cell["RandomSample", "Item", CellID->800497147], Cell["Riffle", "Item", CellID->878506259] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> 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, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["ShuffleOrder", "Item", CellID->511855195], Cell["PermutationCyclesGraph", "Item", CellID->259432589] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> 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, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> 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, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "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 ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellTags->"DefaultContent", CellLabel->"Out[3]=", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{"\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{"\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>", "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], 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->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> 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, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], 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->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Shuffle | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.860766903624239`16.339248570756634*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.860766903711517`16.33924857076645*^9, "VersionInformation" -> {"ResourceVersion" -> "1.0.0"}, "TemplateVersion" -> "1.6.3", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.0 for Linux x86 (64-bit) (February 4, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], 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["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], 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:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], 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:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], 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:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], 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:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { 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:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], 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[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], 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], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], 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]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], 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], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), 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[ RSNB`$$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 -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ 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], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", 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 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"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"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], 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.06349], 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[1., 1., 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.]]}, 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"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], 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[1., 1., 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.]]}, 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"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "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 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], 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, AspectRatio -> Automatic, Background -> None, 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 -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ 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.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", 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["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"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[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"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["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, 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["Examples", "Subsection"], 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.906]], 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["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.0 for Linux x86 (64-bit) (February 4, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[623, 23, 90, 2, 70, "Title",ExpressionUUID->"10f9aa66-7e64-4662-bd57-414b348e87b0", CellTags->{"Name", "TemplateCell", "Title"}, CellID->800123581]}, "TemplateCell"->{ Cell[623, 23, 90, 2, 70, "Title",ExpressionUUID->"10f9aa66-7e64-4662-bd57-414b348e87b0", CellTags->{"Name", "TemplateCell", "Title"}, CellID->800123581], Cell[716, 27, 108, 2, 70, "Text",ExpressionUUID->"0d29bd52-f680-4a80-8b92-eefce735c33b", CellTags->{"Description", "TemplateCell"}, CellID->534136912]}, "Title"->{ Cell[623, 23, 90, 2, 70, "Title",ExpressionUUID->"10f9aa66-7e64-4662-bd57-414b348e87b0", CellTags->{"Name", "TemplateCell", "Title"}, CellID->800123581]}, "Description"->{ Cell[716, 27, 108, 2, 70, "Text",ExpressionUUID->"0d29bd52-f680-4a80-8b92-eefce735c33b", CellTags->{"Description", "TemplateCell"}, CellID->534136912]}, "Definition"->{ Cell[849, 33, 1206, 29, 70, "Section",ExpressionUUID->"19b0cf13-3d4c-4862-9a19-fe38a809b55f", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[849, 33, 1206, 29, 70, "Section",ExpressionUUID->"19b0cf13-3d4c-4862-9a19-fe38a809b55f", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[849, 33, 1206, 29, 70, "Section",ExpressionUUID->"19b0cf13-3d4c-4862-9a19-fe38a809b55f", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[19974, 488, 1980, 50, 70, "Subsection",ExpressionUUID->"97e8648b-6a47-45ca-a323-0ad45f51a662", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[24081, 635, 1429, 32, 70, "Subsection",ExpressionUUID->"9c2bdbb4-97bb-417f-b22b-16dde67a01c8", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[50714, 1300, 7029, 152, 70, "Section",ExpressionUUID->"fd0d521b-b99d-4c7d-9f90-1439af0b76db", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[639146, 14066, 1026, 26, 70, "Subsection",ExpressionUUID->"7c357698-4f8a-4e82-967e-9d579116231e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[640373, 14103, 996, 26, 70, "Subsection",ExpressionUUID->"42d93c61-92f4-4bb9-805c-23c8a25bb532", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[642527, 14197, 221, 6, 70, "Subsection",ExpressionUUID->"d798c082-a028-4615-9e64-1e6655d5b5c5", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[671584, 15184, 980, 26, 70, "Subsection",ExpressionUUID->"b0c8b085-3701-45cf-b68b-2afd82bd90b6", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[672949, 15236, 1039, 26, 70, "Subsection",ExpressionUUID->"0ed74dd1-0b3d-4596-b13a-633841b552b6", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[674137, 15273, 1084, 26, 70, "Subsection",ExpressionUUID->"51f11818-9680-4e7e-a63a-0742a352945d", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[675777, 15314, 923, 26, 70, "Subsection",ExpressionUUID->"78fb728a-8bf7-4975-89b0-cbde9044f5a0", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[677245, 15355, 1874, 45, 70, "Subsection",ExpressionUUID->"e5f10412-d143-4bac-bbc9-423c57328859", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[679476, 15421, 955, 25, 70, "Subsection",ExpressionUUID->"1df542f0-c3fc-4262-addd-270c1f847378", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[680456, 15450, 1174, 31, 70, "Subsubsection",ExpressionUUID->"ef3deb31-d3c7-48fa-968a-ece73ea2d13e", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[681759, 15490, 1113, 29, 70, "Subsubsection",ExpressionUUID->"bf1cabdb-e290-4ebe-b4f8-14a0c3e06dd6", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[684233, 15566, 1280, 33, 70, "Subsubsection",ExpressionUUID->"308bf7dd-96a6-4768-b210-2b84c0b57483", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[686918, 15647, 1913, 46, 70, "Subsubsection",ExpressionUUID->"263c7214-3f06-4c70-ab93-8213a8637f7e", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[691767, 15783, 1071, 27, 70, "Subsubsection",ExpressionUUID->"1167d45f-6f1a-4562-8da7-fbe33611d968", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[693840, 15847, 1155, 28, 70, "Section",ExpressionUUID->"dccc99ec-e4ab-4c5d-aa3b-fb2efaf55348", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[695564, 15890, 1033, 26, 70, "Section",ExpressionUUID->"2143cdb5-84fb-49b2-88a4-e8fdc8da0bc3", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[19754, 479, 195, 5, 70, "Section",ExpressionUUID->"544bdd64-3099-49c7-8cdd-918ce3fcbc3f", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[19754, 479, 195, 5, 70, "Section",ExpressionUUID->"544bdd64-3099-49c7-8cdd-918ce3fcbc3f", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[638872, 14057, 249, 5, 70, "Section",ExpressionUUID->"2707169e-61d8-49ea-b206-c4bb6172bc56", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[19974, 488, 1980, 50, 70, "Subsection",ExpressionUUID->"97e8648b-6a47-45ca-a323-0ad45f51a662", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[24081, 635, 1429, 32, 70, "Subsection",ExpressionUUID->"9c2bdbb4-97bb-417f-b22b-16dde67a01c8", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[24081, 635, 1429, 32, 70, "Subsection",ExpressionUUID->"9c2bdbb4-97bb-417f-b22b-16dde67a01c8", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[27493, 729, 316, 8, 70, "Notes",ExpressionUUID->"854a4aa4-3454-4073-832b-4cdf1e453c87", CellTags->"TabNext", CellID->932223730], Cell[48345, 1220, 266, 6, 70, "Notes",ExpressionUUID->"8a0d20af-df77-4b47-b3c4-dcbebd9b2ec4", CellTags->"TabNext", CellID->133115789], Cell[675224, 15301, 516, 8, 70, "Text",ExpressionUUID->"d5d3c62b-a57a-4966-b6ce-cd157d25f56e", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[676703, 15342, 505, 8, 70, "Item",ExpressionUUID->"22e06a96-57ce-4504-9fff-a2fabbb42589", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[694998, 15877, 529, 8, 70, "Text",ExpressionUUID->"64e69550-3172-4867-afd0-90b26bbf5efc", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[696600, 15918, 515, 8, 70, "Text",ExpressionUUID->"9027e5ca-444f-45d6-abb8-02c7aeb0f3bf", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Nothing"->{ Cell[27834, 741, 184, 6, 70, "Notes",ExpressionUUID->"853ad13a-0153-4e5a-a58e-4ffd7c555e65", CellTags->"Nothing", CellID->96817561], Cell[28021, 749, 9702, 209, 70, "Input",ExpressionUUID->"500f54f4-136c-429d-9597-d1df82c7bcc3", CellTags->"Nothing", CellID->897314942], Cell[37760, 963, 649, 24, 70, "Notes",ExpressionUUID->"47d4d22f-08ba-405e-a225-76bd8bb0880c", CellTags->"Nothing", CellID->490339672], Cell[38412, 989, 8749, 189, 70, "Input",ExpressionUUID->"d5cbedd1-757f-4cd4-ad74-972e8b4489e4", CellTags->"Nothing", CellID->125753172]}, "Examples"->{ Cell[50714, 1300, 7029, 152, 70, "Section",ExpressionUUID->"fd0d521b-b99d-4c7d-9f90-1439af0b76db", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "Source & Additional Information"->{ Cell[638872, 14057, 249, 5, 70, "Section",ExpressionUUID->"2707169e-61d8-49ea-b206-c4bb6172bc56", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[639146, 14066, 1026, 26, 70, "Subsection",ExpressionUUID->"7c357698-4f8a-4e82-967e-9d579116231e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[639146, 14066, 1026, 26, 70, "Subsection",ExpressionUUID->"7c357698-4f8a-4e82-967e-9d579116231e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[640373, 14103, 996, 26, 70, "Subsection",ExpressionUUID->"42d93c61-92f4-4bb9-805c-23c8a25bb532", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[642527, 14197, 221, 6, 70, "Subsection",ExpressionUUID->"d798c082-a028-4615-9e64-1e6655d5b5c5", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[642751, 14205, 28796, 974, 70, "Output",ExpressionUUID->"32b2de97-a55f-458e-9aef-7e41dab9a369", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->204934868]}, "Categories-Checkboxes"->{ Cell[642751, 14205, 28796, 974, 70, "Output",ExpressionUUID->"32b2de97-a55f-458e-9aef-7e41dab9a369", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->204934868]}, "CheckboxCell"->{ Cell[642751, 14205, 28796, 974, 70, "Output",ExpressionUUID->"32b2de97-a55f-458e-9aef-7e41dab9a369", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->204934868], Cell[682875, 15521, 1321, 40, 70, "Output",ExpressionUUID->"d6eb0ebd-34e6-4796-99e4-61cf2d1a573d", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524], Cell[685516, 15601, 1365, 41, 70, "Output",ExpressionUUID->"07979878-f7d9-4f5e-b631-0cff2ad48c11", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059], Cell[688834, 15695, 2896, 83, 70, "Output",ExpressionUUID->"3daf5eb7-3be8-47cc-8655-16d0bb0c1989", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308], Cell[692841, 15812, 938, 28, 70, "Output",ExpressionUUID->"44fe71d1-93b2-408e-8606-c8cc0a70fd87", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Related Symbols"->{ Cell[671584, 15184, 980, 26, 70, "Subsection",ExpressionUUID->"b0c8b085-3701-45cf-b68b-2afd82bd90b6", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[672949, 15236, 1039, 26, 70, "Subsection",ExpressionUUID->"0ed74dd1-0b3d-4596-b13a-633841b552b6", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[674137, 15273, 1084, 26, 70, "Subsection",ExpressionUUID->"51f11818-9680-4e7e-a63a-0742a352945d", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "DefaultContent"->{ Cell[675224, 15301, 516, 8, 70, "Text",ExpressionUUID->"d5d3c62b-a57a-4966-b6ce-cd157d25f56e", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423], Cell[676703, 15342, 505, 8, 70, "Item",ExpressionUUID->"22e06a96-57ce-4504-9fff-a2fabbb42589", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[679144, 15404, 158, 5, 70, "Input",ExpressionUUID->"38e7444d-672a-4343-8c75-dc1ffaac3279", CellTags->"DefaultContent", CellID->946203791], Cell[679305, 15411, 122, 4, 70, "Output",ExpressionUUID->"bd11c4ed-aff4-499f-b169-d922a2d15101", CellTags->"DefaultContent", CellID->168370258], Cell[681633, 15483, 89, 2, 70, "Text",ExpressionUUID->"a726f3cd-62ae-4dc7-8644-77afca7518d7", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[694998, 15877, 529, 8, 70, "Text",ExpressionUUID->"64e69550-3172-4867-afd0-90b26bbf5efc", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[696600, 15918, 515, 8, 70, "Text",ExpressionUUID->"9027e5ca-444f-45d6-abb8-02c7aeb0f3bf", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Links"->{ Cell[675777, 15314, 923, 26, 70, "Subsection",ExpressionUUID->"78fb728a-8bf7-4975-89b0-cbde9044f5a0", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "Tests"->{ Cell[677245, 15355, 1874, 45, 70, "Subsection",ExpressionUUID->"e5f10412-d143-4bac-bbc9-423c57328859", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[677245, 15355, 1874, 45, 70, "Subsection",ExpressionUUID->"e5f10412-d143-4bac-bbc9-423c57328859", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[679476, 15421, 955, 25, 70, "Subsection",ExpressionUUID->"1df542f0-c3fc-4262-addd-270c1f847378", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[680456, 15450, 1174, 31, 70, "Subsubsection",ExpressionUUID->"ef3deb31-d3c7-48fa-968a-ece73ea2d13e", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[680456, 15450, 1174, 31, 70, "Subsubsection",ExpressionUUID->"ef3deb31-d3c7-48fa-968a-ece73ea2d13e", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[681633, 15483, 89, 2, 70, "Text",ExpressionUUID->"a726f3cd-62ae-4dc7-8644-77afca7518d7", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[681759, 15490, 1113, 29, 70, "Subsubsection",ExpressionUUID->"bf1cabdb-e290-4ebe-b4f8-14a0c3e06dd6", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[682875, 15521, 1321, 40, 70, "Output",ExpressionUUID->"d6eb0ebd-34e6-4796-99e4-61cf2d1a573d", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "Operating System"->{ Cell[681759, 15490, 1113, 29, 70, "Subsubsection",ExpressionUUID->"bf1cabdb-e290-4ebe-b4f8-14a0c3e06dd6", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[682875, 15521, 1321, 40, 70, "Output",ExpressionUUID->"d6eb0ebd-34e6-4796-99e4-61cf2d1a573d", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524]}, "CompatibilityFeatures"->{ Cell[684233, 15566, 1280, 33, 70, "Subsubsection",ExpressionUUID->"308bf7dd-96a6-4768-b210-2b84c0b57483", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[685516, 15601, 1365, 41, 70, "Output",ExpressionUUID->"07979878-f7d9-4f5e-b631-0cff2ad48c11", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "Required Features"->{ Cell[684233, 15566, 1280, 33, 70, "Subsubsection",ExpressionUUID->"308bf7dd-96a6-4768-b210-2b84c0b57483", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[685516, 15601, 1365, 41, 70, "Output",ExpressionUUID->"07979878-f7d9-4f5e-b631-0cff2ad48c11", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059]}, "CompatibilityEvaluationEnvironment"->{ Cell[686918, 15647, 1913, 46, 70, "Subsubsection",ExpressionUUID->"263c7214-3f06-4c70-ab93-8213a8637f7e", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[688834, 15695, 2896, 83, 70, "Output",ExpressionUUID->"3daf5eb7-3be8-47cc-8655-16d0bb0c1989", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Environments"->{ Cell[686918, 15647, 1913, 46, 70, "Subsubsection",ExpressionUUID->"263c7214-3f06-4c70-ab93-8213a8637f7e", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[688834, 15695, 2896, 83, 70, "Output",ExpressionUUID->"3daf5eb7-3be8-47cc-8655-16d0bb0c1989", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308]}, "Cloud Support"->{ Cell[691767, 15783, 1071, 27, 70, "Subsubsection",ExpressionUUID->"1167d45f-6f1a-4562-8da7-fbe33611d968", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[691767, 15783, 1071, 27, 70, "Subsubsection",ExpressionUUID->"1167d45f-6f1a-4562-8da7-fbe33611d968", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[692841, 15812, 938, 28, 70, "Output",ExpressionUUID->"44fe71d1-93b2-408e-8606-c8cc0a70fd87", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[692841, 15812, 938, 28, 70, "Output",ExpressionUUID->"44fe71d1-93b2-408e-8606-c8cc0a70fd87", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203]}, "Author Notes"->{ Cell[693840, 15847, 1155, 28, 70, "Section",ExpressionUUID->"dccc99ec-e4ab-4c5d-aa3b-fb2efaf55348", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[695564, 15890, 1033, 26, 70, "Section",ExpressionUUID->"2143cdb5-84fb-49b2-88a4-e8fdc8da0bc3", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 820518, 18269}, {"TemplateCell", 820700, 18273}, {"Title", 821035, 18280}, {"Description", 821216, 18284}, {"Definition", 821394, 18288}, {"Function", 821590, 18292}, {"TemplateCellGroup", 821795, 18296}, {"Documentation", 825666, 18357}, {"TemplateSection", 825860, 18361}, {"Usage", 826236, 18368}, {"Details & Options", 826431, 18372}, {"Notes", 826635, 18376}, {"TabNext", 826841, 18380}, {"Nothing", 827797, 18399}, {"Examples", 828387, 18412}, {"Source & Additional Information", 828598, 18416}, {"Contributed By", 828812, 18420}, {"ContributorInformation", 829049, 18424}, {"Keywords", 829272, 18428}, {"Categories", 829465, 18432}, {"Categories-Checkboxes", 829866, 18439}, {"CheckboxCell", 830082, 18443}, {"Related Symbols", 831210, 18459}, {"Related Resource Objects", 831424, 18463}, {"Source/Reference Citation", 831649, 18467}, {"DefaultContent", 831864, 18471}, {"Links", 833007, 18493}, {"Tests", 833192, 18497}, {"VerificationTests", 833411, 18501}, {"Compatibility", 833626, 18505}, {"CompatibilityWolframLanguageVersionRequired", 833857, 18509}, {"Wolfram Language Version", 834131, 18513}, {"ScrapeDefault", 834394, 18517}, {"CompatibilityOperatingSystem", 834599, 18521}, {"Operating System", 835071, 18528}, {"CompatibilityOperatingSystem-Checkboxes", 835337, 18532}, {"CompatibilityFeatures", 835595, 18536}, {"Required Features", 836049, 18543}, {"CompatibilityFeatures-Checkboxes", 836302, 18547}, {"CompatibilityEvaluationEnvironment", 836560, 18551}, {"Environments", 837042, 18558}, {"CompatibilityEvaluationEnvironment-Checkboxes", 837316, 18562}, {"Cloud Support", 837578, 18566}, {"CompatibilityCloudSupport", 837824, 18570}, {"CompatibilityCloudSupport-Checkboxes", 838304, 18577}, {"Author Notes", 838547, 18581}, {"Submission Notes", 838748, 18585} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[623, 23, 90, 2, 70, "Title",ExpressionUUID->"10f9aa66-7e64-4662-bd57-414b348e87b0", CellTags->{"Name", "TemplateCell", "Title"}, CellID->800123581], Cell[716, 27, 108, 2, 70, "Text",ExpressionUUID->"0d29bd52-f680-4a80-8b92-eefce735c33b", CellTags->{"Description", "TemplateCell"}, CellID->534136912], Cell[CellGroupData[{ Cell[849, 33, 1206, 29, 70, "Section",ExpressionUUID->"19b0cf13-3d4c-4862-9a19-fe38a809b55f", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2058, 64, 1198, 20, 70, "Input",ExpressionUUID->"c283f1e0-b2e9-41a5-9597-a610db239103", CellID->43356257], Cell[3259, 86, 16458, 388, 70, "Input",ExpressionUUID->"cbd75cda-3758-46c5-8a82-a78ea9b0be77", InitializationCell->True, CellID->479571949] }, Open ]], Cell[CellGroupData[{ Cell[19754, 479, 195, 5, 70, "Section",ExpressionUUID->"544bdd64-3099-49c7-8cdd-918ce3fcbc3f", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[19974, 488, 1980, 50, 70, "Subsection",ExpressionUUID->"97e8648b-6a47-45ca-a323-0ad45f51a662", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[21979, 542, 140, 4, 70, "UsageInputs",ExpressionUUID->"3732824c-c50d-4c5e-a88d-0ef5186fdfe8", CellID->100566249], Cell[22122, 548, 207, 7, 70, "UsageDescription",ExpressionUUID->"17027f6d-d764-47da-b89a-e7b5d0f44b54", CellID->597060730] }, Open ]], Cell[CellGroupData[{ Cell[22366, 560, 184, 6, 70, "UsageInputs",ExpressionUUID->"bed155e1-9ac3-4027-bb4c-c3e4e737f7e6", CellID->274568844], Cell[22553, 568, 185, 7, 70, "UsageDescription",ExpressionUUID->"67d64a3f-7d41-4c2b-a4d9-a21c4cd7907f", CellID->304194143] }, Open ]], Cell[CellGroupData[{ Cell[22775, 580, 209, 6, 70, "UsageInputs",ExpressionUUID->"0d7ceabd-a753-4409-be58-f30052a41f21", CellID->634367973], Cell[22987, 588, 202, 6, 70, "UsageDescription",ExpressionUUID->"345f0a8e-57c0-4cd6-8887-77e96b2e34e1", CellID->680047643] }, Open ]], Cell[CellGroupData[{ Cell[23226, 599, 238, 7, 70, "UsageInputs",ExpressionUUID->"4053841d-608c-4104-8363-b1a7ecce2f58", CellID->505956609], Cell[23467, 608, 303, 10, 70, "UsageDescription",ExpressionUUID->"ef40b62a-89c2-4100-90c6-06182b52e6f8", CellID->552971637] }, Open ]], Cell[CellGroupData[{ Cell[23807, 623, 130, 3, 70, "UsageInputs",ExpressionUUID->"fc6bcde8-89d0-4f38-9f16-5946d6645f6b", CellID->405344560], Cell[23940, 628, 92, 1, 70, "UsageDescription",ExpressionUUID->"113e9e43-8f39-4fd6-bb0f-d066d44b4c20", CellID->866755566] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24081, 635, 1429, 32, 70, "Subsection",ExpressionUUID->"9c2bdbb4-97bb-417f-b22b-16dde67a01c8", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[25513, 669, 85, 1, 70, "Notes",ExpressionUUID->"7bdfa43f-9356-46e8-a35b-c6d93769bb06", CellID->349168435], Cell[25601, 672, 158, 4, 70, "Notes",ExpressionUUID->"c51c26a0-dc6f-42f6-9ccb-48f4345c5bb9", CellID->448183129], Cell[25762, 678, 927, 31, 70, "Notes",ExpressionUUID->"50ca5b0b-2d7a-4810-9b2f-00562e08547e", CellID->846504787], Cell[26692, 711, 798, 16, 70, "TableNotes",ExpressionUUID->"6f90be9a-c749-4edb-989f-2cca256670c0", CellID->285384535], Cell[27493, 729, 316, 8, 70, "Notes",ExpressionUUID->"854a4aa4-3454-4073-832b-4cdf1e453c87", CellTags->"TabNext", CellID->932223730], Cell[CellGroupData[{ Cell[27834, 741, 184, 6, 70, "Notes",ExpressionUUID->"853ad13a-0153-4e5a-a58e-4ffd7c555e65", CellTags->"Nothing", CellID->96817561], Cell[28021, 749, 9702, 209, 70, "Input",ExpressionUUID->"500f54f4-136c-429d-9597-d1df82c7bcc3", CellTags->"Nothing", CellID->897314942] }, Open ]], Cell[CellGroupData[{ Cell[37760, 963, 649, 24, 70, "Notes",ExpressionUUID->"47d4d22f-08ba-405e-a225-76bd8bb0880c", CellTags->"Nothing", CellID->490339672], Cell[38412, 989, 8749, 189, 70, "Input",ExpressionUUID->"d5cbedd1-757f-4cd4-ad74-972e8b4489e4", CellTags->"Nothing", CellID->125753172] }, Open ]], Cell[47176, 1181, 131, 4, 70, "Notes",ExpressionUUID->"94e410e2-45d5-409c-beb0-5ac46ac260f7", CellID->725105008], Cell[47310, 1187, 230, 5, 70, "Notes",ExpressionUUID->"ac18a5d9-b82f-4fb4-94dd-3aaa2b2f9f1c", CellID->741311832], Cell[47543, 1194, 146, 4, 70, "Notes",ExpressionUUID->"0467e84f-c0d5-484f-9684-0e78424ad804", CellID->487062007], Cell[47692, 1200, 266, 5, 70, "Notes",ExpressionUUID->"a0ca64cc-3715-4f9c-9fb9-6feb89ada508", CellID->468963724], Cell[47961, 1207, 241, 5, 70, "Notes",ExpressionUUID->"5c45a991-4eb4-479d-85d6-7c7636eee40c", CellID->803764517], Cell[48205, 1214, 137, 4, 70, "Notes",ExpressionUUID->"352e5c7b-d08a-4041-a618-dfcac915f235", CellID->979875907], Cell[48345, 1220, 266, 6, 70, "Notes",ExpressionUUID->"8a0d20af-df77-4b47-b3c4-dcbebd9b2ec4", CellTags->"TabNext", CellID->133115789], Cell[48614, 1228, 266, 5, 70, "Notes",ExpressionUUID->"c117bebe-ae1b-4424-83c9-05d989fbe145", CellID->147327130], Cell[48883, 1235, 143, 4, 70, "Notes",ExpressionUUID->"51ba3fc6-6d8d-4f07-9c61-82eacf4236b0", CellID->504398848], Cell[49029, 1241, 141, 4, 70, "Notes",ExpressionUUID->"c1e1881d-8bee-4599-a942-c16e1b86ae66", CellID->854162907], Cell[49173, 1247, 241, 5, 70, "Notes",ExpressionUUID->"4bf2332f-322a-4e2c-9006-536fb92c0d32", CellID->491659681], Cell[49417, 1254, 92, 1, 70, "Notes",ExpressionUUID->"792a4035-a103-4eb0-ae53-1574cda44a4b", CellID->609749887], Cell[49512, 1257, 743, 21, 70, "Notes",ExpressionUUID->"30cd88cf-9e20-41af-ba29-068af9597be5", CellID->116008650], Cell[50258, 1280, 407, 14, 70, "Notes",ExpressionUUID->"973ef191-ea9f-480d-854f-6ea3c25e8c78", CellID->306892676] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[50714, 1300, 7029, 152, 70, "Section",ExpressionUUID->"fd0d521b-b99d-4c7d-9f90-1439af0b76db", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[57768, 1456, 141, 3, 70, "Subsection",ExpressionUUID->"21c37819-9ef9-4237-87b7-6f450afadfa7", CellID->904125756], Cell[57912, 1461, 428, 8, 70, "Text",ExpressionUUID->"9187f9bb-e0c5-4c10-8b32-d101da38e017", CellID->755996899], Cell[CellGroupData[{ Cell[58365, 1473, 519, 10, 70, "Input",ExpressionUUID->"ec4abcaf-02ab-49a3-8b75-f615e9607eae", CellID->519816470], Cell[58887, 1485, 630, 13, 70, "Output",ExpressionUUID->"35981106-1afd-4432-8c2e-38371fe95017", CellID->848383272] }, Open ]], Cell[CellGroupData[{ Cell[59554, 1503, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"50cb46f9-4ac4-4b5c-97c9-9e453fe15c49", CellID->14107562], Cell[59700, 1509, 187, 3, 70, "Text",ExpressionUUID->"781e87d4-2a99-4c81-b1f0-908c6d2e581f", CellID->643944939], Cell[CellGroupData[{ Cell[59912, 1516, 613, 12, 70, "Input",ExpressionUUID->"e44da605-eeee-462f-8dc3-ef1be8c33ddc", CellID->796261179], Cell[60528, 1530, 680, 14, 70, "Output",ExpressionUUID->"e13f4f15-56b0-4e67-890d-146b1ddbda4c", CellID->325976644] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[61257, 1550, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"6f0aa651-fa66-436b-bd64-69964c9eb28d", CellID->14107563], Cell[61403, 1556, 170, 4, 70, "Text",ExpressionUUID->"fd569596-58ad-481e-8bc4-d08a61644007", CellID->60399414], Cell[CellGroupData[{ Cell[61598, 1564, 293, 8, 70, "Input",ExpressionUUID->"471036e6-2627-4f6d-8900-7a1fa858f397", CellID->945655777], Cell[61894, 1574, 316, 9, 70, "Output",ExpressionUUID->"fad5c622-3774-4598-8d82-46a202cf0cbc", CellID->727222272] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[62271, 1590, 66, 2, 70, "Subsection",ExpressionUUID->"55a6cbfe-b1f6-4624-8b7c-94a403421d54", CellID->204653245], Cell[62340, 1594, 187, 3, 70, "Text",ExpressionUUID->"39599b20-0b3f-423e-8adf-4b4b5770987c", CellID->457868401], Cell[CellGroupData[{ Cell[62552, 1601, 250, 7, 70, "Input",ExpressionUUID->"b3410da8-7e6a-4de7-ba4c-6c0c4424e3ab", CellID->561783735], Cell[62805, 1610, 192, 6, 70, "Output",ExpressionUUID->"ec242b1d-3f26-45ad-b0d0-fce2cc308322", CellID->884177317] }, Open ]], Cell[63012, 1619, 158, 3, 70, "Text",ExpressionUUID->"a635df6c-cdba-4656-b3b6-fddb777ff166", CellID->787483186], Cell[CellGroupData[{ Cell[63195, 1626, 264, 7, 70, "Input",ExpressionUUID->"6d57e646-5258-4f24-9bc4-1f60fd87bd74", CellID->381154726], Cell[63462, 1635, 230, 6, 70, "Output",ExpressionUUID->"1dedb01a-5042-4c48-94c3-4b8a11bc9257", CellID->907266356] }, Open ]], Cell[CellGroupData[{ Cell[63729, 1646, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"8db139a7-e175-4d9d-8ed7-fdc8d200bb54", CellID->14107564], Cell[63875, 1652, 184, 3, 70, "Text",ExpressionUUID->"3315ac30-0277-496c-a7f0-d58da3491fce", CellID->375202648], Cell[CellGroupData[{ Cell[64084, 1659, 295, 9, 70, "Input",ExpressionUUID->"e378b384-71ca-40c2-8175-e1c1e2891012", CellID->330351970], Cell[64382, 1670, 233, 6, 70, "Output",ExpressionUUID->"9cd92fe8-d32f-481d-ac4f-e3b09781dbb9", CellID->416193721] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[64664, 1682, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"a773fb73-6363-4ee0-9f70-c5583f5895fa", CellID->14107565], Cell[64810, 1688, 178, 4, 70, "Text",ExpressionUUID->"4bd988f9-a9eb-402c-ae63-4650999352b0", CellID->682285530], Cell[CellGroupData[{ Cell[65013, 1696, 254, 7, 70, "Input",ExpressionUUID->"6108c41a-f2fe-40b6-9159-b905bc5b50af", CellID->265834379], Cell[65270, 1705, 208, 6, 70, "Output",ExpressionUUID->"f58bd0ac-fe04-4632-8764-12b6decbfd29", CellID->207024421] }, Open ]], Cell[65493, 1714, 207, 4, 70, "Text",ExpressionUUID->"32b891c2-93fb-44f2-9b4e-e06aa139f147", CellID->722215847], Cell[CellGroupData[{ Cell[65725, 1722, 316, 9, 70, "Input",ExpressionUUID->"a5008213-e2cb-4a35-8187-d118934e4483", CellID->529256492], Cell[66044, 1733, 257, 7, 70, "Output",ExpressionUUID->"0a53a39b-f9e9-42ae-9eab-90e159fa9a82", CellID->399621759] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[66350, 1746, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"7a11e5f3-7814-4e5a-b4c7-3e4dce17a71a", CellID->14107566], Cell[66496, 1752, 211, 4, 70, "Text",ExpressionUUID->"09b2f254-c720-4e14-aa0b-737d1e9874fc", CellID->255381406], Cell[CellGroupData[{ Cell[66732, 1760, 244, 7, 70, "Input",ExpressionUUID->"4d12c60a-950c-48b1-9fa9-ccd02cba5106", CellID->822752327], Cell[66979, 1769, 208, 6, 70, "Output",ExpressionUUID->"9d6a33bd-1b3a-4644-b8bb-3aa8787fdbce", CellID->958689361] }, Open ]], Cell[CellGroupData[{ Cell[67224, 1780, 249, 7, 70, "Input",ExpressionUUID->"27bad0eb-d2d0-4e5b-a610-21d8c337962e", CellID->361272310], Cell[67476, 1789, 207, 6, 70, "Output",ExpressionUUID->"6cace0a9-f298-4598-a3e5-0bd258ed102e", CellID->58281825] }, Open ]], Cell[CellGroupData[{ Cell[67720, 1800, 260, 7, 70, "Input",ExpressionUUID->"85c5eac4-55fe-46c9-b717-8bed495523a1", CellID->171396027], Cell[67983, 1809, 210, 6, 70, "Output",ExpressionUUID->"6e77e5cc-38b5-4434-a7eb-dd2330d84b7f", CellID->449040871] }, Open ]], Cell[CellGroupData[{ Cell[68230, 1820, 284, 8, 70, "Input",ExpressionUUID->"b03699f2-9a94-4f99-b098-8f1f52d26b16", CellID->667759199], Cell[68517, 1830, 207, 6, 70, "Output",ExpressionUUID->"72128639-2be1-476f-92f2-b9bdf52ad937", CellID->43027140] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[68773, 1842, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"b50552b9-23b1-4768-9cf5-23a8947f6428", CellID->14107567], Cell[68919, 1848, 178, 4, 70, "Text",ExpressionUUID->"5413330d-3299-4f32-a585-59c4b4937907", CellID->110654206], Cell[CellGroupData[{ Cell[69122, 1856, 202, 5, 70, "Input",ExpressionUUID->"54be54d8-d956-4b61-bdca-4d86ab78b7aa", CellID->621554613], Cell[69327, 1863, 409, 9, 70, "Output",ExpressionUUID->"28de783c-9d55-452b-a1e3-5bba0bca86f9", CellID->700251784] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[69785, 1878, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"a1dd7a99-7815-47b6-87b8-16248fd5b2e1", CellID->14107568], Cell[69931, 1884, 138, 3, 70, "Text",ExpressionUUID->"1eaa695f-4c92-407f-83ce-6d9a8178b466", CellID->130998838], Cell[CellGroupData[{ Cell[70094, 1891, 545, 11, 70, "Input",ExpressionUUID->"a8d90b30-6e78-40e9-94c8-22161db15dab", CellID->691946966], Cell[70642, 1904, 699, 14, 70, "Output",ExpressionUUID->"6b2f8a97-cc73-4597-bd94-3849be36a9de", CellID->64865990] }, Open ]], Cell[71356, 1921, 129, 3, 70, "Text",ExpressionUUID->"5c97716b-af00-43f3-b020-ca022fbc5517", CellID->953121616], Cell[CellGroupData[{ Cell[71510, 1928, 622, 12, 70, "Input",ExpressionUUID->"c34ec022-f361-4315-912c-234241a5cded", CellID->746919246], Cell[72135, 1942, 311, 8, 70, "Output",ExpressionUUID->"df7d689f-ee6a-4ecb-8639-99b46b99f4fc", CellID->34087802] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[72495, 1956, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"46444333-534e-4cb3-a744-ffcf528ef04d", CellID->14107569], Cell[72641, 1962, 134, 3, 70, "Text",ExpressionUUID->"d9af4815-14ba-454d-9207-cec0200bfdeb", CellID->380893420], Cell[CellGroupData[{ Cell[72800, 1969, 674, 13, 70, "Input",ExpressionUUID->"2e7afe2b-2c98-4c61-a1c0-1e0bdd9fabda", CellID->398536413], Cell[73477, 1984, 334, 9, 70, "Output",ExpressionUUID->"c7a034f0-7612-492d-b530-a948eced690e", CellID->66683138] }, Open ]], Cell[CellGroupData[{ Cell[73848, 1998, 739, 15, 70, "Input",ExpressionUUID->"eca83e55-6a84-4204-b954-63a8339d2411", CellID->616267509], Cell[74590, 2015, 289, 8, 70, "Output",ExpressionUUID->"eddb8b3d-78e2-4c67-9ee4-7997e2213166", CellID->358464409] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[74928, 2029, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"303c2e46-d44b-4741-990f-7216226efc95", CellID->14107570], Cell[75074, 2035, 191, 4, 70, "Text",ExpressionUUID->"6213dc99-72a0-413b-81df-391e4426da6a", CellID->983016919], Cell[CellGroupData[{ Cell[75290, 2043, 757, 15, 70, "Input",ExpressionUUID->"80f5350e-befb-4859-a79d-5fb9ec3a1854", CellID->64363819], Cell[76050, 2060, 292, 8, 70, "Output",ExpressionUUID->"1c389e82-fdc4-4eb1-a950-4a67ccda7de8", CellID->256151392] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[76391, 2074, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"a9cb4dc0-1216-4c24-8007-ccc218b68d41", CellID->14107571], Cell[76537, 2080, 192, 4, 70, "Text",ExpressionUUID->"a2cf1f80-8bb3-4674-8b9c-136b1246385d", CellID->423558667], Cell[CellGroupData[{ Cell[76754, 2088, 756, 15, 70, "Input",ExpressionUUID->"a3462ca1-6db8-4a81-9d74-2b1a07377e4c", CellID->233468037], Cell[77513, 2105, 310, 8, 70, "Output",ExpressionUUID->"3712c405-414d-4799-853b-da0067e6820a", CellID->591828674] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[77872, 2119, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"e23465c4-f9d8-402a-9af8-8a9527833702", CellID->14107572], Cell[78018, 2125, 141, 3, 70, "Text",ExpressionUUID->"143b41d4-79ef-4488-b16f-7146d08097df", CellID->88024630], Cell[CellGroupData[{ Cell[78184, 2132, 806, 16, 70, "Input",ExpressionUUID->"f326c358-0fa2-438a-8812-0c2de3ba0ed5", CellID->761360771], Cell[78993, 2150, 312, 8, 70, "Output",ExpressionUUID->"c389a126-32d4-4166-93fd-1fa483ed849a", CellID->852931884] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[79354, 2164, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"f5df7a93-e8bc-4062-b7c4-cc749f909efa", CellID->14107573], Cell[79500, 2170, 139, 3, 70, "Text",ExpressionUUID->"2f6dcb5b-7faf-4531-b593-34be9710055f", CellID->429112954], Cell[CellGroupData[{ Cell[79664, 2177, 729, 15, 70, "Input",ExpressionUUID->"42c99e98-62b7-4971-8729-17fa78dc8cbb", CellID->713100800], Cell[80396, 2194, 381, 9, 70, "Output",ExpressionUUID->"6e8c6c21-53fb-42f3-96ff-c1274ae1c9bb", CellID->423369427] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[80826, 2209, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"1e7debec-2b15-4bfe-86dd-03c3ead6ab7b", CellID->14107574], Cell[80972, 2215, 192, 4, 70, "Text",ExpressionUUID->"0f7f1dc1-c37b-42fc-8c8f-f277e511a91a", CellID->165567824], Cell[CellGroupData[{ Cell[81189, 2223, 781, 15, 70, "Input",ExpressionUUID->"f7c129b5-a315-4dfa-85ee-11798f5a3111", CellID->853894411], Cell[81973, 2240, 406, 10, 70, "Output",ExpressionUUID->"b2742eb8-411b-4324-9aca-5a9cf7582675", CellID->410316871] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[82428, 2256, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"16f36f15-7c6e-46ec-abff-ac213ac91be4", CellID->14107575], Cell[82574, 2262, 164, 4, 70, "Text",ExpressionUUID->"e8ecb17e-a024-4b21-a368-601a6c402100", CellID->238269441], Cell[CellGroupData[{ Cell[82763, 2270, 828, 15, 70, "Input",ExpressionUUID->"a3fa0f2b-8f18-48d4-bb20-5a24d9d485e5", CellID->870220990], Cell[83594, 2287, 290, 8, 70, "Output",ExpressionUUID->"cac09285-b23b-45a6-9c2e-aa91cb04dbbb", CellID->716936346] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[83933, 2301, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"b69df605-fac8-4e6f-a9bf-d3dde1aac721", CellID->14107576], Cell[84079, 2307, 186, 4, 70, "Text",ExpressionUUID->"155c516d-a961-4d32-9cf4-036650d2a832", CellID->487692261], Cell[CellGroupData[{ Cell[84290, 2315, 271, 8, 70, "Input",ExpressionUUID->"63682f5e-2b84-40db-807b-7865bca116ef", CellID->956751716], Cell[84564, 2325, 313, 8, 70, "Output",ExpressionUUID->"8101730e-1e33-49d8-a139-c01c28df7c26", CellID->353570459] }, Open ]], Cell[CellGroupData[{ Cell[84914, 2338, 296, 9, 70, "Input",ExpressionUUID->"45bd0ff4-f190-4771-a08d-98eff0a9630f", CellID->89510933], Cell[85213, 2349, 337, 9, 70, "Output",ExpressionUUID->"c9ed1d3c-4e3a-4a3c-9e12-0c9c27a93e38", CellID->397851114] }, Open ]], Cell[85565, 2361, 681, 22, 70, "Text",ExpressionUUID->"a65aed44-c2f9-4551-9b9a-171ade6825f4", CellID->306660727], Cell[CellGroupData[{ Cell[86271, 2387, 410, 11, 70, "Input",ExpressionUUID->"aed1c727-9c57-4822-8290-7972c80fbf14", CellID->532620781], Cell[86684, 2400, 362, 9, 70, "Output",ExpressionUUID->"5ffa8ada-eb34-4030-ac25-da0105e24562", CellID->357113182] }, Open ]], Cell[CellGroupData[{ Cell[87083, 2414, 408, 11, 70, "Input",ExpressionUUID->"7b37204c-5655-4351-97c8-9ce16b344e0b", CellID->276097313], Cell[87494, 2427, 313, 8, 70, "Output",ExpressionUUID->"7abfa674-f83a-42a3-afe7-756f58a94ebe", CellID->405283915] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[87868, 2442, 73, 2, 70, "Subsection",ExpressionUUID->"119bb3a8-97ab-4b26-989b-7b33dfa6f095", CellID->605265931], Cell[87944, 2446, 292, 5, 70, "Text",ExpressionUUID->"d2032056-a50e-4a5d-a1f4-f51a2c20000e", CellID->850573899], Cell[CellGroupData[{ Cell[88261, 2455, 893, 24, 70, "Input",ExpressionUUID->"37c1b968-7f8a-477a-8f94-12105ae6d50d", CellID->169757296], Cell[89157, 2481, 1957, 34, 70, "Output",ExpressionUUID->"01ad3205-e351-431c-96a1-223d145fae52", CellID->537865556] }, Open ]], Cell[91129, 2518, 373, 6, 70, "Text",ExpressionUUID->"0bc15325-b1b5-4d92-8f83-2cba6596dbd4", CellID->660042272], Cell[CellGroupData[{ Cell[91527, 2528, 291, 7, 70, "Input",ExpressionUUID->"fd2c56f6-189e-44d6-8cba-ebcf1bb6bbbe", CellID->449726246], Cell[91821, 2537, 2012, 35, 70, "Output",ExpressionUUID->"c2edb2dd-baf4-4d43-97e5-c578f924c872", CellID->718369186] }, Open ]], Cell[CellGroupData[{ Cell[93870, 2577, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"76044091-273a-477f-975e-a5b30f307f0f", CellID->14107577], Cell[94016, 2583, 1020, 21, 70, "Text",ExpressionUUID->"357f368e-1c8d-4925-a0fe-3751c02b811c", CellID->882670095], Cell[95039, 2606, 200, 6, 70, "Input",ExpressionUUID->"83c497fb-4739-4387-8771-a98ee5a1a73c", CellID->698914058], Cell[95242, 2614, 287, 8, 70, "Input",ExpressionUUID->"91cbfe44-fab6-46ae-8248-d2a09eea2293", CellID->353939106], Cell[CellGroupData[{ Cell[95554, 2626, 713, 19, 70, "Input",ExpressionUUID->"b852975e-20fd-4f04-bf25-4960b70b923c", CellID->52258245], Cell[96270, 2647, 608, 13, 70, "Output",ExpressionUUID->"594500b9-1c02-483d-90c1-64d2e772484e", CellID->903325552] }, Open ]], Cell[CellGroupData[{ Cell[96915, 2665, 212, 6, 70, "Input",ExpressionUUID->"09da6bd0-fd56-4435-a1ec-e113c6f0436b", CellID->129373487], Cell[97130, 2673, 342, 9, 70, "Output",ExpressionUUID->"7937f9e1-b229-48bb-a8de-ef4b24d275e2", CellID->521568349] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[97533, 2689, 85, 2, 70, "Subsection",ExpressionUUID->"1174aa30-1334-4bdb-a664-60b6f30e5e0f", CellID->232113220], Cell[CellGroupData[{ Cell[97643, 2695, 245, 5, 70, "Subsubsection",ExpressionUUID->"526c186b-abf1-47c4-b675-7a55b1c069ab", CellID->478766700], Cell[97891, 2702, 153, 3, 70, "Text",ExpressionUUID->"f6b66c25-81ae-4d19-a7b5-fe488eec4a6f", CellID->662895455], Cell[98047, 2707, 321, 9, 70, "Input",ExpressionUUID->"08098fcc-b336-4be8-9024-3ed38f959ff1", CellID->356479671], Cell[CellGroupData[{ Cell[98393, 2720, 449, 9, 70, "Input",ExpressionUUID->"c96b63e3-11fe-49d6-a555-b68149eab616", CellID->510463933], Cell[98845, 2731, 542, 15, 70, "Output",ExpressionUUID->"8516f86e-736b-45b4-9089-4069c3699b28", CellID->424947742] }, Open ]], Cell[99402, 2749, 142, 3, 70, "Text",ExpressionUUID->"6fb8bdf2-fba1-4b1c-9dea-5ab740249263", CellID->228410936], Cell[CellGroupData[{ Cell[99569, 2756, 961, 18, 70, "Input",ExpressionUUID->"5fc5f4b2-687b-4ec9-869a-0f416545f4c5", CellID->848900978], Cell[100533, 2776, 4813, 100, 70, "Output",ExpressionUUID->"f8d8ac3a-5457-44b2-8eb9-83b178f65c63", CellID->668709116] }, Open ]], Cell[CellGroupData[{ Cell[105383, 2881, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"5b2a1b32-0970-48f6-a5fa-f00c9e1e325e", CellID->14107578], Cell[105529, 2887, 505, 10, 70, "Text",ExpressionUUID->"bdb7611f-5c64-472d-ae02-51aa12faf0f8", CellID->697429314], Cell[CellGroupData[{ Cell[106059, 2901, 1110, 21, 70, "Input",ExpressionUUID->"c5a62fcc-41e4-4229-9c4b-f6bdc8ebbd9d", CellID->186086876], Cell[107172, 2924, 6318, 131, 70, "Output",ExpressionUUID->"cc0ae5f8-61a0-4771-869d-a642f055c65e", CellID->434040578] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[113551, 3062, 242, 5, 70, "Subsubsection",ExpressionUUID->"47c7dacc-324d-4f5c-b7b1-4239de57a2a8", CellID->476488976], Cell[113796, 3069, 465, 7, 70, "Text",ExpressionUUID->"9a3bb3cf-3934-4f81-8ece-8d0c2d925a5d", CellID->326433484], Cell[CellGroupData[{ Cell[114286, 3080, 456, 11, 70, "Input",ExpressionUUID->"1c3ba2ad-2640-47c0-83e5-2aaffc88a401", CellID->870038117], Cell[114745, 3093, 474, 10, 70, "Output",ExpressionUUID->"db7f2bf8-ff4d-45da-8cae-cff2b25d9f87", CellID->412221894] }, Open ]], Cell[115234, 3106, 478, 10, 70, "Text",ExpressionUUID->"9fec767d-655a-4f0b-9fe1-bba7a94d2476", CellID->148210480], Cell[CellGroupData[{ Cell[115737, 3120, 420, 11, 70, "Input",ExpressionUUID->"d95f329b-d0e2-44d6-b1ed-29c502c0303f", CellID->193386128], Cell[116160, 3133, 441, 11, 70, "Output",ExpressionUUID->"016e564b-5f8e-457c-92b8-acef983b14ed", CellID->631363142] }, Open ]], Cell[CellGroupData[{ Cell[116638, 3149, 1266, 26, 70, "Input",ExpressionUUID->"d7bc332f-4229-4230-a380-c1b6b5fe1314", CellID->260920249], Cell[117907, 3177, 8955, 184, 70, "Output",ExpressionUUID->"b154b1de-7b56-4ae8-b431-f76b15e5a997", CellID->110963010] }, Open ]], Cell[CellGroupData[{ Cell[126899, 3366, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"e5c35f0a-97be-4093-af87-5261e65df64e", CellID->14107579], Cell[127045, 3372, 614, 11, 70, "Text",ExpressionUUID->"02bd004c-7764-4ae1-a0a0-2ffcda8b8f40", CellID->321405741], Cell[CellGroupData[{ Cell[127684, 3387, 1751, 38, 70, "Input",ExpressionUUID->"d9608f80-0e66-48b4-b846-5665d65a9005", CellID->517923532], Cell[129438, 3427, 21540, 478, 70, "Output",ExpressionUUID->"6ad52204-7d08-4fe2-a931-2d98056126e1", CellID->767954369] }, Open ]], Cell[150993, 3908, 223, 4, 70, "Text",ExpressionUUID->"05ecb009-5d9f-4c05-86c7-b75d0112b5c0", CellID->921106214], Cell[CellGroupData[{ Cell[151241, 3916, 1057, 29, 70, "Input",ExpressionUUID->"5cde6683-a0be-4fc2-bb18-14c805dd14d8", CellID->438308289], Cell[152301, 3947, 21333, 468, 70, "Output",ExpressionUUID->"613f5a28-af40-4880-9390-96efa53a9198", CellID->82674127] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[173683, 4421, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"c342c198-b6ba-4784-8ae8-1b05e2e98e04", CellID->14107580], Cell[173829, 4427, 252, 6, 70, "Text",ExpressionUUID->"f6a1147c-6a5f-4468-82b9-7310e9ba0e1b", CellID->415336727], Cell[CellGroupData[{ Cell[174106, 4437, 1083, 29, 70, "Input",ExpressionUUID->"cb349e07-5295-4ec9-ac53-1a867b0ba4e7", CellID->932446269], Cell[175192, 4468, 22519, 496, 70, "Output",ExpressionUUID->"ba00ca89-5e49-4855-8681-813c67b068ec", CellID->998706281] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[197760, 4970, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"088f2528-3aa0-4054-914a-a74e8272d4fb", CellID->14107581], Cell[197906, 4976, 198, 4, 70, "Text",ExpressionUUID->"0437620f-1d8a-46d4-ad75-a4ea4fe073a5", CellID->436645718], Cell[CellGroupData[{ Cell[198129, 4984, 1182, 30, 70, "Input",ExpressionUUID->"7248dfde-7ad1-4506-a77b-6b7aed74b467", CellID->461703715], Cell[199314, 5016, 24168, 528, 70, "Output",ExpressionUUID->"e5676509-5e78-451d-81f0-2db1b73a2904", CellID->526955515] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[223543, 5551, 341, 6, 70, "Subsubsection",ExpressionUUID->"927c1eb3-7161-4675-b754-92b7b20debe6", CellID->486956713], Cell[223887, 5559, 623, 11, 70, "Text",ExpressionUUID->"6c890461-464a-4f37-a0c1-99442f37f4ae", CellID->630451215], Cell[CellGroupData[{ Cell[224535, 5574, 278, 7, 70, "Input",ExpressionUUID->"a6af010d-c857-474b-80aa-30d40ff219f5", CellID->651935793], Cell[224816, 5583, 253, 6, 70, "Output",ExpressionUUID->"5a49485a-4ca3-4f64-8390-c0f74c3ab839", CellID->310873766] }, Open ]], Cell[CellGroupData[{ Cell[225106, 5594, 272, 8, 70, "Input",ExpressionUUID->"1f1f884f-1384-411b-9f9b-6b12dc4c936a", CellID->120188982], Cell[225381, 5604, 245, 8, 70, "Output",ExpressionUUID->"5fdbe755-dfb1-45c3-9d30-863cf9bc6004", CellID->300643372] }, Open ]], Cell[CellGroupData[{ Cell[225663, 5617, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"cc7b18c9-04bf-4426-8986-a262f19b8cc9", CellID->14107582], Cell[225809, 5623, 445, 6, 70, "Text",ExpressionUUID->"664169a7-e0b9-4d65-9541-9bc190b2a61a", CellID->441640923], Cell[226257, 5631, 1083, 19, 70, "Input",ExpressionUUID->"9e095be2-3fa7-4146-9888-d454063147d9", CellID->122653006], Cell[CellGroupData[{ Cell[227365, 5654, 1706, 37, 70, "Input",ExpressionUUID->"9acbae05-ff45-43ec-860c-9d72fd796bb3", CellID->317497974], Cell[229074, 5693, 3484, 73, 70, "Output",ExpressionUUID->"3b092653-82b8-4bde-a85c-0ddcd74d096b", CellID->940187708] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[232607, 5772, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"0b104bea-b3b6-47a7-878d-917d769c2f12", CellID->14107583], Cell[232753, 5778, 575, 18, 70, "Text",ExpressionUUID->"168c49b8-67f3-4c4a-9ab2-82843cd6998a", CellID->558879768], Cell[CellGroupData[{ Cell[233353, 5800, 670, 16, 70, "Input",ExpressionUUID->"5c91d2b2-365e-43a0-a351-a369d16afd7d", CellID->191120223], Cell[234026, 5818, 743, 15, 70, "Output",ExpressionUUID->"52be8365-b8a9-49aa-a07c-f50b600769ce", CellID->197643025] }, Open ]], Cell[CellGroupData[{ Cell[234806, 5838, 421, 12, 70, "Input",ExpressionUUID->"08c7daae-30af-4b78-a00b-620ec1955e19", CellID->55508619], Cell[235230, 5852, 599, 12, 70, "Output",ExpressionUUID->"cb038af6-871e-4bad-8e8c-2a89bab1d9f7", CellID->889672171] }, Open ]], Cell[CellGroupData[{ Cell[235866, 5869, 181, 5, 70, "Input",ExpressionUUID->"1ee1932e-eb58-4834-b5be-c2ce610f9748", CellID->344564957], Cell[236050, 5876, 136, 4, 70, "Output",ExpressionUUID->"b83889d5-a97b-4a5e-8e3b-efccd438814f", CellID->418136101] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[236235, 5886, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"d6b95f84-6c3c-44cc-a8e2-7168d7c186dc", CellID->14107584], Cell[236381, 5892, 403, 8, 70, "Text",ExpressionUUID->"94231514-f33b-4c38-95f3-47f29e9a415e", CellID->1649034], Cell[CellGroupData[{ Cell[236809, 5904, 383, 11, 70, "Input",ExpressionUUID->"5e5f313a-ee7a-4ebf-8a1b-08571662a550", CellID->263794257], Cell[237195, 5917, 369, 9, 70, "Output",ExpressionUUID->"f6954f37-b2dd-4189-9199-779f9f53ca24", CellID->527412844] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[237625, 5933, 237, 5, 70, "Subsubsection",ExpressionUUID->"579cd0cd-8ed7-4634-bcb7-39ed55872841", CellID->270587270], Cell[237865, 5940, 381, 8, 70, "Text",ExpressionUUID->"047b0bb5-4b73-4142-9c55-27e89b850fe3", CellID->617712782], Cell[CellGroupData[{ Cell[238271, 5952, 254, 7, 70, "Input",ExpressionUUID->"8055f919-b6e9-4685-af8f-b1cdfd67a44d", CellID->32447252], Cell[238528, 5961, 292, 8, 70, "Output",ExpressionUUID->"a272cbb6-da4d-4406-b29a-a17eab18fbe2", CellID->702327463] }, Open ]], Cell[CellGroupData[{ Cell[238857, 5974, 228, 6, 70, "Input",ExpressionUUID->"c5626c91-c670-45fb-b59c-cc7e69e9a7db", CellID->170728872], Cell[239088, 5982, 292, 8, 70, "Output",ExpressionUUID->"ebaac14f-e645-4a22-906b-060e0928ab71", CellID->210210930] }, Open ]], Cell[239395, 5993, 138, 3, 70, "Text",ExpressionUUID->"daccd712-850c-4e7f-81a1-050aed91115c", CellID->993820411], Cell[CellGroupData[{ Cell[239558, 6000, 267, 8, 70, "Input",ExpressionUUID->"da69d8c8-759d-42ef-849f-15ee115b4dc0", CellID->383797683], Cell[239828, 6010, 292, 8, 70, "Output",ExpressionUUID->"cfc7cd35-dd05-46eb-8cc7-409ec9d841d4", CellID->702327464] }, Open ]], Cell[CellGroupData[{ Cell[240157, 6023, 244, 6, 70, "Input",ExpressionUUID->"3a72be47-7870-4575-9b17-1cc4f632f2df", CellID->15996472], Cell[240404, 6031, 292, 8, 70, "Output",ExpressionUUID->"5bb409c8-e425-4ca3-843e-0fc1be390edb", CellID->210210931] }, Open ]], Cell[CellGroupData[{ Cell[240733, 6044, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"2607891b-67ee-4d3a-a58b-2abacd4e504b", CellID->14107585], Cell[240879, 6050, 407, 8, 70, "Text",ExpressionUUID->"8b0401f5-6b0b-4baf-990c-4f6385d2e7a3", CellID->604995485], Cell[CellGroupData[{ Cell[241311, 6062, 1391, 28, 70, "Input",ExpressionUUID->"ecdb464a-d7bc-415e-9752-4795c4b30b2e", CellID->657501526], Cell[242705, 6092, 9619, 215, 70, "Output",ExpressionUUID->"cca61bd7-bf45-4458-bf8f-7a800d07a3e1", CellID->815381270] }, Open ]], Cell[CellGroupData[{ Cell[252361, 6312, 1111, 21, 70, "Input",ExpressionUUID->"4ca51ecd-7f67-4bdf-ac02-a40251f27d5b", CellID->232084496], Cell[253475, 6335, 205, 6, 70, "Output",ExpressionUUID->"4f142b33-22c6-4f57-b318-a66ac5adfb61", CellID->520144720] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[253729, 6347, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"9152a21c-1232-4f19-974b-f8864f6386a9", CellID->14107586], Cell[253875, 6353, 925, 26, 70, "Text",ExpressionUUID->"72d31d57-838a-4b39-850e-820ed40ffcec", CellID->160678849], Cell[254803, 6381, 251, 7, 70, "Input",ExpressionUUID->"41976d95-4088-4f71-a217-3d41f93709af", CellID->966643336], Cell[CellGroupData[{ Cell[255079, 6392, 304, 8, 70, "Input",ExpressionUUID->"dd880736-f305-464f-9e70-040caeb4644f", CellID->418230539], Cell[255386, 6402, 186, 5, 70, "Output",ExpressionUUID->"e79b6b5a-89d1-479e-a7f6-748b491c9d39", CellID->117021226] }, Open ]], Cell[255587, 6410, 197, 6, 70, "Input",ExpressionUUID->"3e9e10f8-96f5-4ce9-9363-a49b9b534ef9", CellID->525309281], Cell[CellGroupData[{ Cell[255809, 6420, 318, 9, 70, "Input",ExpressionUUID->"ab9fd2be-c494-416d-a84e-c2ea17840a43", CellID->247268586], Cell[256130, 6431, 802, 15, 70, "Output",ExpressionUUID->"0fc60fb3-6533-41de-8092-b5f1967ed43c", CellID->148694144] }, Open ]], Cell[CellGroupData[{ Cell[256969, 6451, 297, 8, 70, "Input",ExpressionUUID->"21637529-80ce-4123-b9e9-5aaeb1f056a8", CellID->159847307], Cell[257269, 6461, 803, 15, 70, "Output",ExpressionUUID->"dec3ec25-5662-47b4-a4b3-8740e608708c", CellID->330715504] }, Open ]], Cell[CellGroupData[{ Cell[258109, 6481, 181, 5, 70, "Input",ExpressionUUID->"471a06c7-f33a-4443-b12b-1e0f270c486b", CellID->658187859], Cell[258293, 6488, 188, 5, 70, "Output",ExpressionUUID->"81309805-4a03-4b38-893b-416db66eea19", CellID->471771958] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[258530, 6499, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"9c72024f-8c42-4b3d-b534-4c3432466295", CellID->14107587], Cell[258676, 6505, 223, 4, 70, "Text",ExpressionUUID->"c1a4fbb9-f2d4-43a7-b82a-6ba0ce090ac9", CellID->533798711], Cell[CellGroupData[{ Cell[258924, 6513, 430, 12, 70, "Input",ExpressionUUID->"fd7f2d79-16ad-4e57-9d1f-14a5abab14e2", CellID->228714539], Cell[259357, 6527, 341, 9, 70, "Output",ExpressionUUID->"ca147216-a565-4466-b0ab-98fbdf9365c9", CellID->988534620] }, Open ]], Cell[CellGroupData[{ Cell[259735, 6541, 474, 12, 70, "Input",ExpressionUUID->"a4384feb-6536-46f4-8866-74d7bc783b32", CellID->314539653], Cell[260212, 6555, 340, 9, 70, "Output",ExpressionUUID->"d5d3fe42-cfbf-4187-aae5-6546d496cd5a", CellID->398488875] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[260601, 6570, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"e232f73a-e57e-4f63-a033-925e3f527d4c", CellID->14107588], Cell[260747, 6576, 979, 17, 70, "Text",ExpressionUUID->"caa7063f-f887-4453-a0a9-998b59eefa59", CellID->571679972], Cell[CellGroupData[{ Cell[261751, 6597, 514, 13, 70, "Input",ExpressionUUID->"126e07e6-8959-464a-8d55-6bb56406541c", CellID->303182474], Cell[262268, 6612, 389, 10, 70, "Output",ExpressionUUID->"f010eb37-5d28-45b9-a5c0-52a54fb05efe", CellID->1611221] }, Open ]], Cell[CellGroupData[{ Cell[262694, 6627, 578, 14, 70, "Input",ExpressionUUID->"225be8cc-3829-4e54-a983-2cbfcf9d0944", CellID->925115217], Cell[263275, 6643, 390, 10, 70, "Output",ExpressionUUID->"74585170-ee3d-4835-8721-9a67fe7a196b", CellID->698343698] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[263714, 6659, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"9ed66cec-57f9-4a52-bbbb-0f07c20719bc", CellID->14107589], Cell[263860, 6665, 384, 8, 70, "Text",ExpressionUUID->"8496811c-95db-432c-b5be-6530738d6c7f", CellID->58819273], Cell[CellGroupData[{ Cell[264269, 6677, 560, 13, 70, "Input",ExpressionUUID->"bf58c2a1-0f2a-4de0-8260-b851b555dd5e", CellID->134203154], Cell[264832, 6692, 424, 10, 70, "Output",ExpressionUUID->"37563fc3-d30d-45e8-9268-aaf4b8c3eae9", CellID->871675500] }, Open ]], Cell[CellGroupData[{ Cell[265293, 6707, 618, 14, 70, "Input",ExpressionUUID->"34f79615-0866-4d0e-9463-75411c70af1a", CellID->12583449], Cell[265914, 6723, 425, 10, 70, "Output",ExpressionUUID->"8a216b30-d9fb-49d7-83be-c04908af3b1e", CellID->351566631] }, Open ]] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[266412, 6741, 74, 2, 70, "Subsection",ExpressionUUID->"d6f90f46-598f-4e6a-bb9e-b41f3fcf7812", CellID->461278909], Cell[266489, 6745, 239, 4, 70, "Text",ExpressionUUID->"21b175f0-7698-431e-8fe3-5c0cd460e41a", CellID->87179531], Cell[CellGroupData[{ Cell[266753, 6753, 249, 7, 70, "Input",ExpressionUUID->"780da4d7-5ef8-485c-8779-7bae6e2d56dd", CellID->880801690], Cell[267005, 6762, 269, 8, 70, "Output",ExpressionUUID->"23efd458-df08-4118-8631-622de8488038", CellID->842761797] }, Open ]], Cell[CellGroupData[{ Cell[267311, 6775, 506, 11, 70, "Input",ExpressionUUID->"27fc4385-c05c-4dd3-ac0f-eda83d6e0e80", CellID->525863330], Cell[267820, 6788, 51793, 955, 70, "Output",ExpressionUUID->"330a5112-9a06-4494-82c8-ef5558919457", CellID->439754355] }, Open ]], Cell[CellGroupData[{ Cell[319650, 7748, 618, 12, 70, "Input",ExpressionUUID->"42121f0d-e677-4654-a12c-6045cd974fdb", CellID->522828320], Cell[320271, 7762, 51790, 955, 70, "Output",ExpressionUUID->"906723c5-28c9-42b1-b42c-fd38c20a6832", CellID->236915892] }, Open ]], Cell[CellGroupData[{ Cell[372098, 8722, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"273d2d10-583f-4dbc-8c8a-cebd143515c9", CellID->14107590], Cell[372244, 8728, 199, 4, 70, "Text",ExpressionUUID->"6ba4dd55-caf4-44c8-9ddb-29aa28a53c7a", CellID->69796083], Cell[CellGroupData[{ Cell[372468, 8736, 1183, 27, 70, "Input",ExpressionUUID->"49c54979-1449-44ba-a262-d815ab54d283", CellID->123796970], Cell[373654, 8765, 2533, 61, 70, "Output",ExpressionUUID->"090fb24e-45cd-4e50-8c2d-77420bcb7868", CellID->243788011] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[376236, 8832, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"9e976d10-a364-4827-ac0a-ac1a536b67b5", CellID->14107591], Cell[376382, 8838, 446, 9, 70, "Text",ExpressionUUID->"61404dd8-0f5e-479c-afae-8fae8d1db2ae", CellID->738019392], Cell[CellGroupData[{ Cell[376853, 8851, 1178, 28, 70, "Input",ExpressionUUID->"f6e2167d-0859-41b0-b54a-a5487b6ffa54", CellID->836998418], Cell[378034, 8881, 20784, 461, 70, "Output",ExpressionUUID->"26119424-0253-4bc1-96d9-33dc3e9fc050", CellID->793329886] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[398867, 9348, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"167826b8-c690-4d89-b22e-86105d0b61a1", CellID->14107592], Cell[399013, 9354, 368, 6, 70, "Text",ExpressionUUID->"40152759-d8f3-44c1-8cc6-44a7a681dde8", CellID->142608288], Cell[CellGroupData[{ Cell[399406, 9364, 678, 20, 70, "Input",ExpressionUUID->"81c60602-e802-4608-a495-0524da943163", CellID->509107046], Cell[400087, 9386, 238712, 4663, 70, "Output",ExpressionUUID->"b7b242c9-bbce-428c-b431-489faac17138", CellID->53436513] }, Open ]] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[638872, 14057, 249, 5, 70, "Section",ExpressionUUID->"2707169e-61d8-49ea-b206-c4bb6172bc56", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[639146, 14066, 1026, 26, 70, "Subsection",ExpressionUUID->"7c357698-4f8a-4e82-967e-9d579116231e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[640175, 14094, 161, 4, 70, "Text",ExpressionUUID->"2a3cac2e-c08c-42bc-bf02-544512128a77", CellID->799860536] }, Open ]], Cell[CellGroupData[{ Cell[640373, 14103, 996, 26, 70, "Subsection",ExpressionUUID->"42d93c61-92f4-4bb9-805c-23c8a25bb532", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[641372, 14131, 50, 1, 70, "Item",ExpressionUUID->"40567f0f-d21c-4fce-9201-c44534e93263", CellID->366894711], Cell[641425, 14134, 45, 1, 70, "Item",ExpressionUUID->"4f8d93ea-68b6-406c-9341-f8c4e562b417", CellID->188090990], Cell[641473, 14137, 49, 1, 70, "Item",ExpressionUUID->"806023a9-6f58-473c-973f-a51fa9702a59", CellID->709322606], Cell[641525, 14140, 50, 1, 70, "Item",ExpressionUUID->"9953021d-f3db-4ab0-98c9-a4e5087fe415", CellID->145603806], Cell[641578, 14143, 50, 1, 70, "Item",ExpressionUUID->"1f8746aa-7619-4020-8b3f-77a4016ca68d", CellID->515092989], Cell[641631, 14146, 56, 1, 70, "Item",ExpressionUUID->"7123ae0b-47eb-4930-a85e-88d03697b104", CellID->771155132], Cell[641690, 14149, 51, 1, 70, "Item",ExpressionUUID->"08b8b6d3-c2fb-4b2c-809d-8e89bf6f4d0b", CellID->189331947], Cell[641744, 14152, 50, 1, 70, "Item",ExpressionUUID->"9d010f6d-eb90-4fcb-99c4-200199915603", CellID->10072332], Cell[641797, 14155, 48, 1, 70, "Item",ExpressionUUID->"2400bd0c-3364-44f2-bd39-c7756a85784f", CellID->632565851], Cell[641848, 14158, 49, 1, 70, "Item",ExpressionUUID->"88f9662a-8160-4a41-8765-520c3a0c2503", CellID->411680774], Cell[641900, 14161, 52, 1, 70, "Item",ExpressionUUID->"48338185-f4ba-4330-ae9c-8421afde5fac", CellID->913356364], Cell[641955, 14164, 47, 1, 70, "Item",ExpressionUUID->"f1e60da7-7199-40f9-a0d5-5dbd2a4a23db", CellID->134648224], Cell[642005, 14167, 46, 1, 70, "Item",ExpressionUUID->"c13cfed4-7340-4664-81e7-6c406f0d5f77", CellID->903976675], Cell[642054, 14170, 49, 1, 70, "Item",ExpressionUUID->"e43d3b48-c570-4f9e-ba51-e334514e47da", CellID->467776872], Cell[642106, 14173, 54, 1, 70, "Item",ExpressionUUID->"b2fd978c-f9ee-48a9-ad41-491f80bf61d0", CellID->562223764], Cell[642163, 14176, 54, 1, 70, "Item",ExpressionUUID->"fd901feb-8fb4-4ec1-827a-367cb94129be", CellID->535046329], Cell[642220, 14179, 54, 1, 70, "Item",ExpressionUUID->"ec2957d7-9b4f-458d-b070-6f16c7e19c77", CellID->678309964], Cell[642277, 14182, 54, 1, 70, "Item",ExpressionUUID->"9b413a1d-ea33-4f54-bad8-c6516035a846", CellID->496043013], Cell[642334, 14185, 48, 1, 70, "Item",ExpressionUUID->"bc99a968-7aee-4a84-869f-46db72a4de61", CellID->439928907], Cell[642385, 14188, 52, 1, 70, "Item",ExpressionUUID->"cfa08085-b8a2-4b4f-8900-63b8985d1bc9", CellID->491450243], Cell[642440, 14191, 50, 1, 70, "Item",ExpressionUUID->"4ae03425-5f96-465d-b576-d052a32b22f4", CellID->671500387] }, Open ]], Cell[CellGroupData[{ Cell[642527, 14197, 221, 6, 70, "Subsection",ExpressionUUID->"d798c082-a028-4615-9e64-1e6655d5b5c5", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[642751, 14205, 28796, 974, 70, "Output",ExpressionUUID->"32b2de97-a55f-458e-9aef-7e41dab9a369", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->204934868] }, Open ]], Cell[CellGroupData[{ Cell[671584, 15184, 980, 26, 70, "Subsection",ExpressionUUID->"b0c8b085-3701-45cf-b68b-2afd82bd90b6", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[672567, 15212, 43, 1, 70, "Item",ExpressionUUID->"c23bc588-4cb9-4b6a-a442-168456219c7a", CellID->212033364], Cell[672613, 15215, 41, 1, 70, "Item",ExpressionUUID->"b2e1814f-32b7-46b4-adf4-5664b24b0f71", CellID->663097762], Cell[672657, 15218, 48, 1, 70, "Item",ExpressionUUID->"3fcb602c-8239-47c6-8777-0f59e12d9988", CellID->805979615], Cell[672708, 15221, 52, 1, 70, "Item",ExpressionUUID->"5c926f35-1f40-43c8-8447-89ff2aff40b1", CellID->100071373], Cell[672763, 15224, 53, 1, 70, "Item",ExpressionUUID->"75a1ab1d-24d5-4241-9a2c-869c291c6489", CellID->191646420], Cell[672819, 15227, 48, 1, 70, "Item",ExpressionUUID->"e95f1f71-8bd9-4a32-8906-74acac4a1469", CellID->800497147], Cell[672870, 15230, 42, 1, 70, "Item",ExpressionUUID->"0159cc3a-f6c7-4d80-8387-a1b3e3bd8296", CellID->878506259] }, Open ]], Cell[CellGroupData[{ Cell[672949, 15236, 1039, 26, 70, "Subsection",ExpressionUUID->"0ed74dd1-0b3d-4596-b13a-633841b552b6", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[673991, 15264, 48, 1, 70, "Item",ExpressionUUID->"603e3e88-0704-4a8f-af07-d96a0bad4249", CellID->511855195], Cell[674042, 15267, 58, 1, 70, "Item",ExpressionUUID->"9908677f-c5a7-4fbd-8b84-ac5c7c138402", CellID->259432589] }, Open ]], Cell[CellGroupData[{ Cell[674137, 15273, 1084, 26, 70, "Subsection",ExpressionUUID->"51f11818-9680-4e7e-a63a-0742a352945d", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[675224, 15301, 516, 8, 70, "Text",ExpressionUUID->"d5d3c62b-a57a-4966-b6ce-cd157d25f56e", CellTags->{"DefaultContent", "TabNext"}, CellID->436399423] }, Open ]], Cell[CellGroupData[{ Cell[675777, 15314, 923, 26, 70, "Subsection",ExpressionUUID->"78fb728a-8bf7-4975-89b0-cbde9044f5a0", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[676703, 15342, 505, 8, 70, "Item",ExpressionUUID->"22e06a96-57ce-4504-9fff-a2fabbb42589", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[677245, 15355, 1874, 45, 70, "Subsection",ExpressionUUID->"e5f10412-d143-4bac-bbc9-423c57328859", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[679144, 15404, 158, 5, 70, "Input",ExpressionUUID->"38e7444d-672a-4343-8c75-dc1ffaac3279", CellTags->"DefaultContent", CellID->946203791], Cell[679305, 15411, 122, 4, 70, "Output",ExpressionUUID->"bd11c4ed-aff4-499f-b169-d922a2d15101", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[679476, 15421, 955, 25, 70, "Subsection",ExpressionUUID->"1df542f0-c3fc-4262-addd-270c1f847378", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[680456, 15450, 1174, 31, 70, "Subsubsection",ExpressionUUID->"ef3deb31-d3c7-48fa-968a-ece73ea2d13e", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[681633, 15483, 89, 2, 70, "Text",ExpressionUUID->"a726f3cd-62ae-4dc7-8644-77afca7518d7", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[681759, 15490, 1113, 29, 70, "Subsubsection",ExpressionUUID->"bf1cabdb-e290-4ebe-b4f8-14a0c3e06dd6", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[682875, 15521, 1321, 40, 70, "Output",ExpressionUUID->"d6eb0ebd-34e6-4796-99e4-61cf2d1a573d", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->40078524] }, Closed]], Cell[CellGroupData[{ Cell[684233, 15566, 1280, 33, 70, "Subsubsection",ExpressionUUID->"308bf7dd-96a6-4768-b210-2b84c0b57483", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[685516, 15601, 1365, 41, 70, "Output",ExpressionUUID->"07979878-f7d9-4f5e-b631-0cff2ad48c11", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->396992059] }, Closed]], Cell[CellGroupData[{ Cell[686918, 15647, 1913, 46, 70, "Subsubsection",ExpressionUUID->"263c7214-3f06-4c70-ab93-8213a8637f7e", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[688834, 15695, 2896, 83, 70, "Output",ExpressionUUID->"3daf5eb7-3be8-47cc-8655-16d0bb0c1989", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->62394308] }, Closed]], Cell[CellGroupData[{ Cell[691767, 15783, 1071, 27, 70, "Subsubsection",ExpressionUUID->"1167d45f-6f1a-4562-8da7-fbe33611d968", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[692841, 15812, 938, 28, 70, "Output",ExpressionUUID->"44fe71d1-93b2-408e-8606-c8cc0a70fd87", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->454919203] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[693840, 15847, 1155, 28, 70, "Section",ExpressionUUID->"dccc99ec-e4ab-4c5d-aa3b-fb2efaf55348", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[694998, 15877, 529, 8, 70, "Text",ExpressionUUID->"64e69550-3172-4867-afd0-90b26bbf5efc", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[695564, 15890, 1033, 26, 70, "Section",ExpressionUUID->"2143cdb5-84fb-49b2-88a4-e8fdc8da0bc3", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[696600, 15918, 515, 8, 70, "Text",ExpressionUUID->"9027e5ca-444f-45d6-abb8-02c7aeb0f3bf", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)