(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 164310, 4026] NotebookOptionsPosition[ 161577, 3929] NotebookOutlinePosition[ 162096, 3951] CellTagsIndexPosition[ 162009, 3946] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "Permutations"}]], "Input", CellChangeTimes->{{3.471437592440927*^9, 3.4714375979239745`*^9}}], Cell[BoxData[ RowBox[{ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Permutations\\\", \\\"[\\\", StyleBox[\\\ \"list\\\", \\\"TI\\\"], \\\"]\\\"}]\\) generates a list of all possible \ permutations of the elements in \\!\\(\\*StyleBox[\\\"list\\\", \ \\\"TI\\\"]\\). \\n\\!\\(\\*RowBox[{\\\"Permutations\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"list\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"n\\\", \\\ \"TI\\\"]}], \\\"]\\\"}]\\) gives all permutations containing at most \ \\!\\(\\*StyleBox[\\\"n\\\", \\\"TI\\\"]\\) \ elements.\\n\\!\\(\\*RowBox[{\\\"Permutations\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"list\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \ StyleBox[\\\"n\\\", \\\"TI\\\"], \\\"}\\\"}]}], \\\"]\\\"}]\\) gives all \ permutations containing exactly \\!\\(\\*StyleBox[\\\"n\\\", \\\"TI\\\"]\\) \ elements.\"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Permutations"]}]], "Print", "PrintUsage", CellChangeTimes->{3.4714375988789916`*^9}, CellTags->"Info3471412398-4712451"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"s", " ", "=", RowBox[{"Map", "[", RowBox[{"Sort", ",", RowBox[{"Permutations", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", "3", "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.471437670853877*^9, 3.4714377085790014`*^9}, { 3.4714377558328133`*^9, 3.4714377599936795`*^9}, {3.471437807985725*^9, 3.4714378232171717`*^9}, {3.471453458313142*^9, 3.47145346670323*^9}, { 3.47145350501816*^9, 3.47145351023267*^9}, {3.471453908943479*^9, 3.4714539214631853`*^9}}], Cell[CellGroupData[{ Cell[BoxData["s"], "Input", CellChangeTimes->{ 3.4714378303856583`*^9, {3.4714536790587783`*^9, 3.4714536856579657`*^9}, 3.471453722754224*^9, {3.471453757472705*^9, 3.4714537683206434`*^9}, 3.4714539288455257`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4714378355786858`*^9, 3.4714534790266595`*^9, 3.4714535150077553`*^9, 3.4714536945773163`*^9, 3.471453769791252*^9, 3.4714539306559563`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mean", " ", "=", " ", RowBox[{ RowBox[{"Mean", "[", RowBox[{"Transpose", "[", RowBox[{"Permutations", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", "3", "}"}]}], "]"}], "]"}], "]"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.4714393614048543`*^9, 3.4714393770444784`*^9}, { 3.471439487485652*^9, 3.471439517354834*^9}, {3.471439642439602*^9, 3.4714396827436624`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.`", ",", "2.3333333333333335`", ",", "2.6666666666666665`", ",", "3.`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "2.`", ",", "2.6666666666666665`", ",", "3.`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "2.3333333333333335`", ",", "2.6666666666666665`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "2.6666666666666665`", ",", "3.`", ",", "3.3333333333333335`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "3.`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "6.`", ",", "6.333333333333333`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.666666666666667`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "2.`", ",", "2.3333333333333335`", ",", "2.6666666666666665`", ",", "3.`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "2.`", ",", "3.`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "2.3333333333333335`", ",", "3.`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "2.6666666666666665`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "3.`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "3.3333333333333335`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "3.6666666666666665`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "4.`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "7.`", ",", "4.333333333333333`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "2.`", ",", "2.6666666666666665`", ",", "3.`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "2.`", ",", "3.`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "2.6666666666666665`", ",", "3.`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "3.`", ",", "3.3333333333333335`", ",", "4.`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "4.`", ",", "4.333333333333333`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.666666666666667`", ",", "7.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "2.3333333333333335`", ",", "2.6666666666666665`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "2.3333333333333335`", ",", "3.`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "2.6666666666666665`", ",", "3.`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "5.`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "7.`", ",", "7.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "2.6666666666666665`", ",", "3.`", ",", "3.3333333333333335`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "2.6666666666666665`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "3.`", ",", "3.3333333333333335`", ",", "4.`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "6.`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "8.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "8.`", ",", "3.`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "3.`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "5.`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "7.`", ",", "7.666666666666667`", ",", "8.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "8.333333333333334`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.666666666666667`", ",", "8.`", ",", "8.333333333333334`", ",", "3.3333333333333335`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "3.3333333333333335`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "6.`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "8.`", ",", "8.333333333333334`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "8.`", ",", "8.666666666666666`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "8.333333333333334`", ",", "8.666666666666666`", ",", "3.6666666666666665`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "6.`", ",", "6.333333333333333`", ",", "3.6666666666666665`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "4.`", ",", "4.333333333333333`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.666666666666667`", ",", "7.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "7.`", ",", "7.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "7.`", ",", "7.666666666666667`", ",", "8.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "8.`", ",", "8.333333333333334`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "8.`", ",", "9.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "8.`", ",", "8.333333333333334`", ",", "9.`", ",", "4.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.666666666666667`", ",", "4.`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "7.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "8.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "8.333333333333334`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "8.`", ",", "8.666666666666666`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "8.`", ",", "9.`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "8.`", ",", "8.333333333333334`", ",", "8.666666666666666`", ",", "9.`", ",", "4.333333333333333`", ",", "4.666666666666667`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "4.333333333333333`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "4.666666666666667`", ",", "5.`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "5.`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "5.333333333333333`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "8.`", ",", "5.666666666666667`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.666666666666667`", ",", "8.`", ",", "8.333333333333334`", ",", "6.`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "8.333333333333334`", ",", "8.666666666666666`", ",", "6.333333333333333`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "8.`", ",", "8.333333333333334`", ",", "9.`", ",", "6.666666666666667`", ",", "7.`", ",", "7.333333333333333`", ",", "7.666666666666667`", ",", "8.`", ",", "8.333333333333334`", ",", "8.666666666666666`", ",", "9.`"}], "}"}]], "Output", CellChangeTimes->{ 3.4714393823683567`*^9, 3.471439497238934*^9, {3.471439648471442*^9, 3.4714396891866093`*^9}, 3.471454084965416*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.4714401452199216`*^9, 3.4714401631543207`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinCounts", "[", RowBox[{"mean", ",", RowBox[{"{", RowBox[{"1.9", ",", "9.5", ",", RowBox[{"1", "/", "3"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.4714411389961596`*^9, {3.471441493740056*^9, 3.471441496579718*^9}, { 3.471441883924067*^9, 3.4714419121224575`*^9}, 3.4714470628816547`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6", ",", "6", ",", "12", ",", "18", ",", "24", ",", "30", ",", "42", ",", "48", ",", "54", ",", "60", ",", "60", ",", "60", ",", "60", ",", "54", ",", "48", ",", "42", ",", "30", ",", "24", ",", "18", ",", "12", ",", "6", ",", "6"}], "}"}]], "Output", CellChangeTimes->{3.471441140166006*^9, 3.4714414999437604`*^9, 3.471441918102544*^9, 3.471447064859068*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bcm", " ", "=", " ", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "6", ",", "12", ",", "18", ",", "24", ",", "30", ",", "42", ",", "48", ",", "54", ",", "60", ",", "60", ",", "60", ",", "60", ",", "54", ",", "48", ",", "42", ",", "30", ",", "24", ",", "18", ",", "12", ",", "6", ",", "6"}], "}"}]}]], "Input", CellChangeTimes->{{3.4714470667456656`*^9, 3.4714470806812973`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "6", ",", "6", ",", "12", ",", "18", ",", "24", ",", "30", ",", "42", ",", "48", ",", "54", ",", "60", ",", "60", ",", "60", ",", "60", ",", "54", ",", "48", ",", "42", ",", "30", ",", "24", ",", "18", ",", "12", ",", "6", ",", "6"}], "}"}]], "Output", CellChangeTimes->{3.471447103459136*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{"bcm", "/", "720"}], ",", RowBox[{"BarSpacing", "\[Rule]", " ", "15"}], ",", " ", RowBox[{"ChartLabels", " ", "->", " ", RowBox[{"{", RowBox[{ "\"\<\>\"", ",", "\"\<2\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<3\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<4\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<5\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<6\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<7\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<8\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<9\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4714418120185127`*^9, 3.471441851930998*^9}, { 3.471441927314844*^9, 3.471441965161055*^9}, {3.4714458209660254`*^9, 3.471445823189516*^9}, {3.47144673935744*^9, 3.471446821794546*^9}, { 3.471447089263756*^9, 3.471447089835984*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {{}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {1., 0.}]}, ImageSizeCache->{{20.75, 22.187688616523097`}, {92.68368479858945, 93.18368479858945}}], StatusArea[#, 0]& , TagBoxNote->"0"], StyleBox["0", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16., 0.}, {17., 0.008333333333333333}]}, ImageSizeCache->{{35.75301786436954, 37.19070648089264}, { 72.22650751219702, 93.18368479858945}}], StatusArea[#, Rational[1, 120]]& , TagBoxNote->"1/120"], StyleBox[ FractionBox["1", "120"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 120], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{32., 0.}, {33., 0.008333333333333333}]}, ImageSizeCache->{{50.756035728739086`, 52.19372434526218}, { 72.22650751219702, 93.18368479858945}}], StatusArea[#, Rational[1, 120]]& , TagBoxNote->"1/120"], StyleBox[ FractionBox["1", "120"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 120], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{48., 0.}, {49., 0.016666666666666666`}]}, ImageSizeCache->{{65.75905359310863, 67.19674220963172}, { 51.76933022580457, 93.18368479858945}}], StatusArea[#, Rational[1, 60]]& , TagBoxNote->"1/60"], StyleBox[ FractionBox["1", "60"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 60], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{64., 0.}, {65., 0.025}]}, ImageSizeCache->{{80.76207145747817, 82.19976007400126}, { 31.31215293941213, 93.18368479858945}}], StatusArea[#, Rational[1, 40]]& , TagBoxNote->"1/40"], StyleBox[ FractionBox["1", "40"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 40], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{80., 0.}, {81., 0.03333333333333333}]}, ImageSizeCache->{{95.76508932184771, 97.20277793837082}, { 10.854975653019693`, 93.18368479858945}}], StatusArea[#, Rational[1, 30]]& , TagBoxNote->"1/30"], StyleBox[ FractionBox["1", "30"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 30], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{96., 0.}, {97., 0.041666666666666664`}]}, ImageSizeCache->{{110.76810718621726`, 112.20579580274035`}, {-9.602201633372744, 93.18368479858945}}], StatusArea[#, Rational[1, 24]]& , TagBoxNote->"1/24"], StyleBox[ FractionBox["1", "24"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 24], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{112., 0.}, {113., 0.058333333333333334`}]}, ImageSizeCache->{{125.7711250505868, 127.2088136671099}, {-50.51655620615763, 93.18368479858945}}], StatusArea[#, Rational[7, 120]]& , TagBoxNote->"7/120"], StyleBox[ FractionBox["7", "120"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[7, 120], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{128., 0.}, {129., 0.06666666666666667}]}, ImageSizeCache->{{140.77414291495634`, 142.21183153147945`}, {-70.97373349255007, 93.18368479858945}}], StatusArea[#, Rational[1, 15]]& , TagBoxNote->"1/15"], StyleBox[ FractionBox["1", "15"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 15], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{144., 0.}, {145., 0.075}]}, ImageSizeCache->{{155.7771607793259, 157.21484939584897`}, {-91.4309107789425, 93.18368479858945}}], StatusArea[#, Rational[3, 40]]& , TagBoxNote->"3/40"], StyleBox[ FractionBox["3", "40"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[3, 40], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{160., 0.}, {161., 0.08333333333333333}]}, ImageSizeCache->{{170.78017864369542`, 172.21786726021853`}, {-111.88808806533494`, 93.18368479858945}}], StatusArea[#, Rational[1, 12]]& , TagBoxNote->"1/12"], StyleBox[ FractionBox["1", "12"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 12], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{176., 0.}, {177., 0.08333333333333333}]}, ImageSizeCache->{{185.78319650806498`, 187.22088512458808`}, {-111.88808806533494`, 93.18368479858945}}], StatusArea[#, Rational[1, 12]]& , TagBoxNote->"1/12"], StyleBox[ FractionBox["1", "12"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 12], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{192., 0.}, {193., 0.08333333333333333}]}, ImageSizeCache->{{200.78621437243453`, 202.2239029889576}, {-111.88808806533494`, 93.18368479858945}}], StatusArea[#, Rational[1, 12]]& , TagBoxNote->"1/12"], StyleBox[ FractionBox["1", "12"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 12], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{208., 0.}, {209., 0.08333333333333333}]}, ImageSizeCache->{{215.78923223680405`, 217.22692085332716`}, {-111.88808806533494`, 93.18368479858945}}], StatusArea[#, Rational[1, 12]]& , TagBoxNote->"1/12"], StyleBox[ FractionBox["1", "12"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 12], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{224., 0.}, {225., 0.075}]}, ImageSizeCache->{{230.7922501011736, 232.22993871769668`}, {-91.4309107789425, 93.18368479858945}}], StatusArea[#, Rational[3, 40]]& , TagBoxNote->"3/40"], StyleBox[ FractionBox["3", "40"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[3, 40], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{240., 0.}, {241., 0.06666666666666667}]}, ImageSizeCache->{{245.79526796554313`, 247.23295658206624`}, {-70.97373349255007, 93.18368479858945}}], StatusArea[#, Rational[1, 15]]& , TagBoxNote->"1/15"], StyleBox[ FractionBox["1", "15"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 15], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{256., 0.}, {257., 0.058333333333333334`}]}, ImageSizeCache->{{260.7982858299127, 262.23597444643576`}, {-50.51655620615763, 93.18368479858945}}], StatusArea[#, Rational[7, 120]]& , TagBoxNote->"7/120"], StyleBox[ FractionBox["7", "120"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[7, 120], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{272., 0.}, {273., 0.041666666666666664`}]}, ImageSizeCache->{{275.80130369428224`, 277.2389923108053}, {-9.602201633372744, 93.18368479858945}}], StatusArea[#, Rational[1, 24]]& , TagBoxNote->"1/24"], StyleBox[ FractionBox["1", "24"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 24], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{288., 0.}, {289., 0.03333333333333333}]}, ImageSizeCache->{{290.8043215586518, 292.24201017517487`}, { 10.854975653019693`, 93.18368479858945}}], StatusArea[#, Rational[1, 30]]& , TagBoxNote->"1/30"], StyleBox[ FractionBox["1", "30"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 30], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{304., 0.}, {305., 0.025}]}, ImageSizeCache->{{305.8073394230213, 307.2450280395444}, { 31.31215293941213, 93.18368479858945}}], StatusArea[#, Rational[1, 40]]& , TagBoxNote->"1/40"], StyleBox[ FractionBox["1", "40"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 40], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{320., 0.}, {321., 0.016666666666666666`}]}, ImageSizeCache->{{320.81035728739084`, 322.248045903914}, { 51.76933022580457, 93.18368479858945}}], StatusArea[#, Rational[1, 60]]& , TagBoxNote->"1/60"], StyleBox[ FractionBox["1", "60"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 60], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{336., 0.}, {337., 0.008333333333333333}]}, ImageSizeCache->{{335.8133751517604, 337.2510637682835}, { 72.22650751219702, 93.18368479858945}}], StatusArea[#, Rational[1, 120]]& , TagBoxNote->"1/120"], StyleBox[ FractionBox["1", "120"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 120], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{352., 0.}, {353., 0.008333333333333333}]}, ImageSizeCache->{{350.81639301612995`, 352.254081632653}, { 72.22650751219702, 93.18368479858945}}], StatusArea[#, Rational[1, 120]]& , TagBoxNote->"1/120"], StyleBox[ FractionBox["1", "120"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 120], { GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {}, GraphicsGroupBox[ {GrayLevel[0], StyleBox[ GraphicsGroupBox[{ LineBox[{{{0., 0}, Offset[{0, -4}, {0., 0}]}, {{353., 0}, Offset[{0, -4}, {353., 0}]}}], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {0.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"2\"\>"], Offset[{0, -2}, {16.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {32.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {48.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"3\"\>"], Offset[{0, -2}, {64.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {80.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {96.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"4\"\>"], Offset[{0, -2}, {112.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {128.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {144.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"5\"\>"], Offset[{0, -2}, {160.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {176.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {192.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"6\"\>"], Offset[{0, -2}, {208.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {224.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {240.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"7\"\>"], Offset[{0, -2}, {256.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {272.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {288.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"8\"\>"], Offset[{0, -2}, {304.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {320.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {336.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"9\"\>"], Offset[{0, -2}, {352.5, 0}], ImageScaled[{Rational[1, 2], 1}]]}], Antialiasing->False]}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, PlotRangePadding->Scaled[0.02], Ticks->{None, Automatic}]], "Output", CellChangeTimes->{{3.471441864835445*^9, 3.471441872922818*^9}, { 3.471441931817486*^9, 3.4714419664451523`*^9}, 3.471445827623802*^9, { 3.4714467954427176`*^9, 3.4714468226948795`*^9}, {3.47144709902485*^9, 3.47144710679486*^9}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXctu1DAUdedBOxWwQGKJ1PJQO2WLhAgSQkLiITQLkBALVqOKqF0gqras 2bBGQfwJi/xMlnyIia8fsWecoSnDjJ2cimaSez33nnN8k5TETibT86OPn6bn x4fTnRen05Oj48OzneefT0tTf4OxjSPG2O8dJtZ5uaoWvPzHj8VCWJqt79LH kOUpc37SnLN98g0sX8Kygt8nc5/xImNJmtOWblpkiR1CNzURyuYH+us8Z1lW 0NZYoeC8YFWElOW+0EnGCs43Jf7bljehaBS1SlIGTOkLVWILdwVQJqu4lGAE apmMwgtJdIw8k/a59iquhmPnTBXZKxL5HeUqylA6ta1Nqvjv2VSUBD1a9hVj bmko4qWilxxoGj61LWE60PJsrj3lJyoCB/W66zOdLH0zlKqv27ASUwJj1WkC CsGSPeIUlmI/thhotrJfigWV1JedoerYF0OroJDfNXWQGDHGFpwsd21UL6qO DBuCbQr3QOtlzFVNm7KzymjP0Ve202WptZcVxn0Mdg1JXU6erisKla70qcoe WyKmM7uoDU9DtkU0wua5aafLad+mr2pBw7f3GLtThc+hM3CqrWw6rzWZfYek +abO0UvXo8i/7+2qGZ99aFLa7RuQli/NN+cPszdlVnW8VkqJ5SuPYxj+d66L D7HCPpDbG+Sqsj15+vrXZDKJ29YTm9dWurZZ3z/ByQNpg7RBWkgbnw3SQtr4 bJAW0sZng7SQNj7bmqUlZYMTJWJBUauQFtKGZIO0kDY+G6SFtPHZIG1HpD0I TZ41SHZL5jU5xe+CO5GQbDK5B3kgz1LkIXUgCmoG8kAeyAN5IA/kgTwB2SAP 5IE88cuD/2mhZiAP5IE8YcrzqBNSPIAAEAACQACm5uyZqdjV1OFquqnPX273 yTCsZp7KX5LycackdCd568nCfdra9vrE+szc9H7nK9E/IV3q4vf1JE5nsjy1 H4p4Dzumnm8auFbP5+sZvap5+ajC5lWoNHN27h50bHxQ9DyjAOU4UBKZ068c FLNVc8Y2tkHXlev8X3YQAAJAAAgAATovAPHvHu2Zfn/ZErLPQBEUQREUQREU QREUQTFeisSwjcQ60HegCIqgCIqg+D8pVs3bQ+x9NHTegkSAJIhDnNBboT9I gARIgARIgEQNCZWhwcBqPY7Qfl2NbwBcfFIsGgvo9/VarEX9GNIrHl8u3iEk x9oPnDd7cTXM+V2EEtQPVR55fTOvBGO+0Y3tKoWR1yd3keolY23Rof7wMKqd P2G/mqwdOtSM9e07J5HWniV8Z/00IMBTwARMwATMEGESylDBRaIhYAImYAIm YAImzuQxawiYgAmYgAmYgIkzecwaAiZgAiZghgrzy0ohnUggKlqDoSV6OIU2 1d0zXQ+dSzw/T9iSjBWc6/vkvnug66JTf1t/2+vz2KrH2J2tiUT9GI1tr696 nqEsvcT/TMNY+oTurzP9Q3tVSHTq95itvz1xchgMjUYDHgT6Gdv6KQRzTgAQ AAGQuIEQDugAIBcCUjVfdfpvS076FamQKphUlKklXJAKqZAKqcI88v1sHPY7 giHY6oKxG/TZ9OU4nBcsM9cOay8dXh7WJS+YK5u6DLhsSI0vsJrXjrive6CL 3j/+AUjjyYVqnTqr9PlujKxcGFVeNNkvgPKxJpspCZcLqeZK8GjxvqXuAC0V SrhHowiDXeDvgwUhaPlmiX5y21a28QdWZ6n+\ \>"]] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.4714456953705482`*^9, 3.4714457005577164`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"median", " ", "=", " ", RowBox[{ RowBox[{"Median", "[", RowBox[{"Transpose", "[", RowBox[{"Permutations", "[", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", "3", "}"}]}], "]"}], "]"}], "]"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.4714460070986433`*^9, 3.4714460145112553`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "2.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "2.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "9.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "9.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "2.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "3.`", ",", "3.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "9.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`"}], "}"}]], "Output", CellChangeTimes->{3.471446019258998*^9, 3.4714541102889905`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinCounts", "[", RowBox[{"median", ",", RowBox[{"{", RowBox[{"1.5", ",", "9.5", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4714460576081057`*^9, 3.4714460685849423`*^9}, { 3.4714461929500294`*^9, 3.471446241883421*^9}, 3.4714469807951117`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "48", ",", "84", ",", "108", ",", "120", ",", "120", ",", "108", ",", "84", ",", "48"}], "}"}]], "Output", CellChangeTimes->{3.4714469908442736`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bcmd", " ", "=", RowBox[{"{", RowBox[{ "0", ",", "48", ",", "84", ",", "108", ",", "120", ",", "120", ",", "108", ",", "84", ",", "48"}], "}"}]}]], "Input", CellChangeTimes->{{3.471446923480421*^9, 3.4714469242274437`*^9}, { 3.4714469960978436`*^9, 3.471447000664934*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "48", ",", "84", ",", "108", ",", "120", ",", "120", ",", "108", ",", "84", ",", "48"}], "}"}]], "Output", CellChangeTimes->{3.471447001891418*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{"bcmd", "/", "720"}], ",", RowBox[{"BarSpacing", "\[Rule]", " ", "40"}], ",", " ", RowBox[{"ChartLabels", " ", "->", " ", RowBox[{"{", RowBox[{ "\"\<\>\"", ",", "\"\<2\>\"", ",", "\"\<3\>\"", ",", "\"\<4\>\"", ",", "\"\<5\>\"", ",", "\"\<6\>\"", ",", "\"\<7\>\"", ",", "\"\<8\>\"", ",", "\"\<9\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.471446164653989*^9, 3.471446176653221*^9}, { 3.471446420441328*^9, 3.4714465310719433`*^9}, {3.471446577279923*^9, 3.471446578986845*^9}, {3.4714466885491686`*^9, 3.4714467172641277`*^9}, { 3.471446928735944*^9, 3.471446929461484*^9}, {3.471447013533251*^9, 3.4714470376186237`*^9}, {3.4714471299955235`*^9, 3.4714471677450604`*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {{}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {1., 0.}]}, ImageSizeCache->{{20.749999999999996`, 22.256091433533896`}, { 92.68368479858945, 93.18368479858945}}], StatusArea[#, 0]& , TagBoxNote->"0"], StyleBox["0", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{41., 0.}, {42., 0.06666666666666667}]}, ImageSizeCache->{{61.99974877488988, 63.50584020842378}, { 10.854975653019693`, 93.18368479858945}}], StatusArea[#, Rational[1, 15]]& , TagBoxNote->"1/15"], StyleBox[ FractionBox["1", "15"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 15], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{82., 0.}, {83., 0.11666666666666667`}]}, ImageSizeCache->{{103.24949754977976`, 104.75558898331366`}, {-50.51655620615763, 93.18368479858945}}], StatusArea[#, Rational[7, 60]]& , TagBoxNote->"7/60"], StyleBox[ FractionBox["7", "60"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[7, 60], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{123., 0.}, {124., 0.15}]}, ImageSizeCache->{{144.49924632466963`, 146.00533775820352`}, {-91.4309107789425, 93.18368479858945}}], StatusArea[#, Rational[3, 20]]& , TagBoxNote->"3/20"], StyleBox[ FractionBox["3", "20"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[3, 20], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{164., 0.}, {165., 0.16666666666666666`}]}, ImageSizeCache->{{185.74899509955952`, 187.25508653309342`}, {-111.88808806533494`, 93.18368479858945}}], StatusArea[#, Rational[1, 6]]& , TagBoxNote->"1/6"], StyleBox[ FractionBox["1", "6"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 6], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{205., 0.}, {206., 0.16666666666666666`}]}, ImageSizeCache->{{226.9987438744494, 228.5048353079833}, {-111.88808806533494`, 93.18368479858945}}], StatusArea[#, Rational[1, 6]]& , TagBoxNote->"1/6"], StyleBox[ FractionBox["1", "6"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 6], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{246., 0.}, {247., 0.15}]}, ImageSizeCache->{{268.24849264933925`, 269.7545840828732}, {-91.4309107789425, 93.18368479858945}}], StatusArea[#, Rational[3, 20]]& , TagBoxNote->"3/20"], StyleBox[ FractionBox["3", "20"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[3, 20], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{287., 0.}, {288., 0.11666666666666667`}]}, ImageSizeCache->{{309.49824142422915`, 311.0043328577631}, {-50.51655620615763, 93.18368479858945}}], StatusArea[#, Rational[7, 60]]& , TagBoxNote->"7/60"], StyleBox[ FractionBox["7", "60"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[7, 60], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{328., 0.}, {329., 0.06666666666666667}]}, ImageSizeCache->{{350.74799019911904`, 352.2540816326529}, { 10.854975653019693`, 93.18368479858945}}], StatusArea[#, Rational[1, 15]]& , TagBoxNote->"1/15"], StyleBox[ FractionBox["1", "15"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 15], { GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {}, GraphicsGroupBox[ {GrayLevel[0], StyleBox[ GraphicsGroupBox[{ LineBox[{{{0., 0}, Offset[{0, -4}, {0., 0}]}, {{329., 0}, Offset[{0, -4}, {329., 0}]}}], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {0.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"2\"\>"], Offset[{0, -2}, {41.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"3\"\>"], Offset[{0, -2}, {82.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"4\"\>"], Offset[{0, -2}, {123.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"5\"\>"], Offset[{0, -2}, {164.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"6\"\>"], Offset[{0, -2}, {205.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"7\"\>"], Offset[{0, -2}, {246.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"8\"\>"], Offset[{0, -2}, {287.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"9\"\>"], Offset[{0, -2}, {328.5, 0}], ImageScaled[{Rational[1, 2], 1}]]}], Antialiasing->False]}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, PlotRangePadding->Scaled[0.02], Ticks->{None, Automatic}]], "Output", CellChangeTimes->{ 3.471446180176433*^9, 3.4714462307366734`*^9, 3.471446414346016*^9, 3.471446497494014*^9, 3.4714465335151463`*^9, 3.4714465842784986`*^9, { 3.4714466905548997`*^9, 3.4714467178158503`*^9}, 3.4714469324944925`*^9, { 3.4714470077289352`*^9, 3.471447038912486*^9}, {3.4714471312874327`*^9, 3.4714471685038013`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"midMean", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Last", "[", "x", "]"}], " ", "+", " ", RowBox[{"First", "[", "x", "]"}]}], ")"}], "/", "2"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdxV0oAwEAB/DLicUebp2HJdE83Ku1J0eJY0WWGB7mkuZjtQdhG/awYyU8 KCYpI9JSKF68nJctlpLysHycpV0tbE6RlXzUiPt7+PUz9A5ZB3IIgtCrcLSd FDn5qY7xroSx66A0hk3DgQvMidYEVtqCMtYrTS84SlZnMOUMuOrVt1q0o7iE fZzEOxTpx/FBzTzO843/XybvS5hJ+W7xR5/jDldmTCnMU1kFt04YX/EeHXrD ngfuE2u6Fn5wjc1LNmDRYce7h8l+TL/POXFI9zuChdzwIpay50vYyLtPcTnd c4bXBYOENwun4tiS3E7jWPfXMx4zH+eb1RO66QJc5IlYcC2r7cRVzLINbwi8 HTcedQj4vnjGj9NXkVUc5JrX8PcNe4lPZiuu8R+sl9Cs "]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"midMeans", " ", "=", " ", RowBox[{ RowBox[{"midMean", "[", RowBox[{"Transpose", "[", "s", "]"}], "]"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.471450150221162*^9, 3.4714501563731117`*^9}, { 3.4714501930670524`*^9, 3.471450213623354*^9}, {3.4714533197985697`*^9, 3.471453373333229*^9}, {3.4714534156527863`*^9, 3.471453444442936*^9}, { 3.4714538312257967`*^9, 3.47145384280904*^9}, {3.4714539549903364`*^9, 3.4714539767643337`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.`", ",", "2.5`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "2.`", ",", "2.5`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "2.5`", ",", "2.5`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "2.`", ",", "2.5`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "2.`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "2.5`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "3.`", ",", "3.5`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "3.5`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "4.`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "4.5`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "5.`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "6.`", ",", "5.5`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "2.`", ",", "2.5`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "2.`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "2.5`", ",", "3.`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.5`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "2.5`", ",", "2.5`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "2.5`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "2.5`", ",", "3.`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "7.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "3.`", ",", "3.5`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "3.`", ",", "3.5`", ",", "4.`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.5`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "3.5`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "3.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "7.5`", ",", "8.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "4.`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "4.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "8.`", ",", "8.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "8.5`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "8.5`", ",", "8.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "4.5`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "4.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "8.`", ",", "8.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "9.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "8.5`", ",", "9.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.5`", ",", "5.`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "6.`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "7.`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "7.5`", ",", "8.`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "8.5`", ",", "5.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "9.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "8.5`", ",", "9.`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "8.5`", ",", "8.5`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "8.5`", ",", "9.`", ",", "5.5`", ",", "6.`", ",", "6.5`", ",", "7.`", ",", "7.5`", ",", "8.`", ",", "8.5`", ",", "9.`"}], "}"}]], "Output", CellChangeTimes->{ 3.471450157114276*^9, 3.471450226509248*^9, 3.4714509332657704`*^9, { 3.4714510100362473`*^9, 3.471451031330783*^9}, 3.471451356104918*^9, 3.4714517319294963`*^9, 3.471451849044071*^9, 3.4714521537833557`*^9, { 3.4714522367009*^9, 3.4714522484071817`*^9}, {3.471452780837948*^9, 3.4714528024293394`*^9}, {3.4714528333609533`*^9, 3.471452845320149*^9}, { 3.471452908585631*^9, 3.4714529450823183`*^9}, 3.471453194207975*^9, 3.471453342807839*^9, {3.471453381551453*^9, 3.4714534454780254`*^9}, { 3.47145387479918*^9, 3.4714538866001825`*^9}, {3.4714539634116726`*^9, 3.4714539797114105`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinCounts", "[", RowBox[{"midMeans", ",", RowBox[{"{", RowBox[{"1.5", ",", "9.75", ",", ".5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.471450325740202*^9, 3.471450363486809*^9}, { 3.47145058565423*^9, 3.471450600403286*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "6", ",", "12", ",", "24", ",", "36", ",", "54", ",", "72", ",", "96", ",", "120", ",", "96", ",", "72", ",", "54", ",", "36", ",", "24", ",", "12", ",", "6"}], "}"}]], "Output", CellChangeTimes->{{3.4714505914526873`*^9, 3.471450601888542*^9}, 3.47145398785542*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BinLists", "[", RowBox[{"midMeans", ",", RowBox[{"{", RowBox[{"1.5", ",", "9.75", ",", ".5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.471450736880879*^9, 3.47145075400283*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "2.`", ",", "2.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.5`", ",", "2.5`", ",", "2.5`", ",", "2.5`", ",", "2.5`", ",", "2.5`", ",", "2.5`", ",", "2.5`", ",", "2.5`", ",", "2.5`", ",", "2.5`", ",", "2.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`", ",", "3.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`", ",", "4.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`", ",", "4.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`", ",", "5.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`", ",", "6.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`", ",", "7.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "8.5`", ",", "8.5`", ",", "8.5`", ",", "8.5`", ",", "8.5`", ",", "8.5`", ",", "8.5`", ",", "8.5`", ",", "8.5`", ",", "8.5`", ",", "8.5`", ",", "8.5`"}], "}"}], ",", RowBox[{"{", RowBox[{ "9.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`", ",", "9.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4714507564723983`*^9, 3.4714540089409847`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bcmidMeans", " ", "=", " ", RowBox[{"{", RowBox[{ "0", ",", "6", ",", "12", ",", "24", ",", "36", ",", "54", ",", "72", ",", "96", ",", "120", ",", "96", ",", "72", ",", "54", ",", "36", ",", "24", ",", "12", ",", "6"}], "}"}]}]], "Input", CellChangeTimes->{{3.471450441726918*^9, 3.4714504576096907`*^9}, 3.4714540375827065`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "6", ",", "12", ",", "24", ",", "36", ",", "54", ",", "72", ",", "96", ",", "120", ",", "96", ",", "72", ",", "54", ",", "36", ",", "24", ",", "12", ",", "6"}], "}"}]], "Output", CellChangeTimes->{3.471450460394669*^9, 3.4714540391431537`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{"bcmidMeans", "/", "720"}], ",", RowBox[{"BarSpacing", "\[Rule]", " ", "25"}], ",", " ", RowBox[{"ChartLabels", " ", "->", " ", RowBox[{"{", RowBox[{ "\"\<\>\"", ",", "\"\<2\>\"", ",", "\"\<\>\"", ",", "\"\<3\>\"", ",", "\"\<\>\"", ",", "\"\<4\>\"", ",", "\"\<\>\"", ",", "\"\<5\>\"", ",", "\"\<\>\"", ",", "\"\<6\>\"", ",", "\"\<\>\"", ",", "\"\<7\>\"", ",", "\"\<\>\"", ",", "\"\<8\>\"", ",", "\"\<\>\"", ",", "\"\<9\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4714504936191053`*^9, 3.4714505259949627`*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {{}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {1., 0.}]}, ImageSizeCache->{{20.75, 22.096557753536196`}, {92.68368479858948, 93.18368479858948}}], StatusArea[#, 0]& , TagBoxNote->"0"], StyleBox["0", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0, { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{26., 0.}, {27., 0.008333333333333333}]}, ImageSizeCache->{{42.76050159194112, 44.107059345477325`}, { 82.45509615539326, 93.18368479858948}}], StatusArea[#, Rational[1, 120]]& , TagBoxNote->"1/120"], StyleBox[ FractionBox["1", "120"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 120], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{52., 0.}, {53., 0.016666666666666666`}]}, ImageSizeCache->{{64.77100318388224, 66.11756093741845}, { 72.22650751219705, 93.18368479858948}}], StatusArea[#, Rational[1, 60]]& , TagBoxNote->"1/60"], StyleBox[ FractionBox["1", "60"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 60], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{78., 0.}, {79., 0.03333333333333333}]}, ImageSizeCache->{{86.78150477582338, 88.12806252935957}, { 51.7693302258046, 93.18368479858948}}], StatusArea[#, Rational[1, 30]]& , TagBoxNote->"1/30"], StyleBox[ FractionBox["1", "30"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 30], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{104., 0.}, {105., 0.05}]}, ImageSizeCache->{{108.7920063677645, 110.1385641213007}, { 31.312152939412158`, 93.18368479858948}}], StatusArea[#, Rational[1, 20]]& , TagBoxNote->"1/20"], StyleBox[ FractionBox["1", "20"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 20], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{130., 0.}, {131., 0.075}]}, ImageSizeCache->{{130.80250795970562`, 132.14906571324184`}, { 0.6263870098235031, 93.18368479858948}}], StatusArea[#, Rational[3, 40]]& , TagBoxNote->"3/40"], StyleBox[ FractionBox["3", "40"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[3, 40], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{156., 0.}, {157., 0.1}]}, ImageSizeCache->{{152.81300955164676`, 154.15956730518295`}, {-30.059378919765166`, 93.18368479858948}}], StatusArea[#, Rational[1, 10]]& , TagBoxNote->"1/10"], StyleBox[ FractionBox["1", "10"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 10], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{182., 0.}, {183., 0.13333333333333333`}]}, ImageSizeCache->{{174.82351114358787`, 176.17006889712408`}, {-70.97373349255004, 93.18368479858948}}], StatusArea[#, Rational[2, 15]]& , TagBoxNote->"2/15"], StyleBox[ FractionBox["2", "15"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[2, 15], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{208., 0.}, {209., 0.16666666666666666`}]}, ImageSizeCache->{{196.834012735529, 198.1805704890652}, {-111.88808806533491`, 93.18368479858948}}], StatusArea[#, Rational[1, 6]]& , TagBoxNote->"1/6"], StyleBox[ FractionBox["1", "6"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 6], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{234., 0.}, {235., 0.13333333333333333`}]}, ImageSizeCache->{{218.84451432747014`, 220.19107208100633`}, {-70.97373349255004, 93.18368479858948}}], StatusArea[#, Rational[2, 15]]& , TagBoxNote->"2/15"], StyleBox[ FractionBox["2", "15"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[2, 15], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{260., 0.}, {261., 0.1}]}, ImageSizeCache->{{240.85501591941124`, 242.20157367294743`}, {-30.059378919765166`, 93.18368479858948}}], StatusArea[#, Rational[1, 10]]& , TagBoxNote->"1/10"], StyleBox[ FractionBox["1", "10"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 10], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{286., 0.}, {287., 0.075}]}, ImageSizeCache->{{262.8655175113524, 264.21207526488854`}, { 0.6263870098235031, 93.18368479858948}}], StatusArea[#, Rational[3, 40]]& , TagBoxNote->"3/40"], StyleBox[ FractionBox["3", "40"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[3, 40], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{312., 0.}, {313., 0.05}]}, ImageSizeCache->{{284.8760191032935, 286.2225768568297}, { 31.312152939412158`, 93.18368479858948}}], StatusArea[#, Rational[1, 20]]& , TagBoxNote->"1/20"], StyleBox[ FractionBox["1", "20"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 20], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{338., 0.}, {339., 0.03333333333333333}]}, ImageSizeCache->{{306.88652069523465`, 308.2330784487708}, { 51.7693302258046, 93.18368479858948}}], StatusArea[#, Rational[1, 30]]& , TagBoxNote->"1/30"], StyleBox[ FractionBox["1", "30"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 30], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{364., 0.}, {365., 0.016666666666666666`}]}, ImageSizeCache->{{328.89702228717573`, 330.24358004071195`}, { 72.22650751219705, 93.18368479858948}}], StatusArea[#, Rational[1, 60]]& , TagBoxNote->"1/60"], StyleBox[ FractionBox["1", "60"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 60], { GrayLevel[0]}], "Tooltip"]& ]}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{390., 0.}, {391., 0.008333333333333333}]}, ImageSizeCache->{{350.90752387911687`, 352.2540816326531}, { 82.45509615539326, 93.18368479858948}}], StatusArea[#, Rational[1, 120]]& , TagBoxNote->"1/120"], StyleBox[ FractionBox["1", "120"], { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[ Rational[1, 120], { GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {}, GraphicsGroupBox[ {GrayLevel[0], StyleBox[ GraphicsGroupBox[{ LineBox[{{{0., 0}, Offset[{0, -4}, {0., 0}]}, {{391., 0}, Offset[{0, -4}, {391., 0}]}}], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {0.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"2\"\>"], Offset[{0, -2}, {26.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {52.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"3\"\>"], Offset[{0, -2}, {78.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {104.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"4\"\>"], Offset[{0, -2}, {130.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {156.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"5\"\>"], Offset[{0, -2}, {182.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {208.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"6\"\>"], Offset[{0, -2}, {234.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {260.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"7\"\>"], Offset[{0, -2}, {286.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {312.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"8\"\>"], Offset[{0, -2}, {338.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"\"\>"], Offset[{0, -2}, {364.5, 0}], ImageScaled[{Rational[1, 2], 1}]], InsetBox[ PaneBox["\<\"9\"\>"], Offset[{0, -2}, {390.5, 0}], ImageScaled[{Rational[1, 2], 1}]]}], Antialiasing->False]}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, PlotRangePadding->Scaled[0.02], Ticks->{None, Automatic}]], "Output", CellChangeTimes->{{3.471450519775634*^9, 3.4714505273220263`*^9}, 3.471454042179092*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", "mean", "]"}], ",", " ", RowBox[{"Variance", "[", "mean", "]"}], ",", RowBox[{"Mean", "[", "median", "]"}], ",", RowBox[{"Variance", "[", "median", "]"}], ",", RowBox[{"Mean", "[", "midMeans", "]"}], ",", RowBox[{"Variance", "[", "midMeans", "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.4714502720795736`*^9, 3.4714502859068136`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "5.5`", ",", "2.141863699582754`", ",", "5.5`", ",", "3.855354659248957`", ",", "5.5`", ",", "1.9276773296244785`"}], "}"}]], "Output", CellChangeTimes->{3.471454125046835*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sqrt", "[", "2.141863699582754", "]"}]], "Input", CellChangeTimes->{{3.4715644249169273`*^9, 3.4715645224761124`*^9}}], Cell[BoxData["1.4635107446078945`"], "Output", CellChangeTimes->{{3.471564463198656*^9, 3.471564493166465*^9}, 3.471564524078549*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"18", "/", "720"}], " ", "//", "N"}]], "Input", CellChangeTimes->{{3.471567420045539*^9, 3.4715674597754183`*^9}}], Cell[BoxData["0.025`"], "Output", CellChangeTimes->{{3.4715674254895267`*^9, 3.4715674620203915`*^9}}] }, Open ]] }, WindowSize->{1225, 644}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, ShowSelection->True, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info3471412398-4712451"->{ Cell[693, 26, 1093, 20, 81, "Print", CellTags->"Info3471412398-4712451"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3471412398-4712451", 161906, 3940} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 123, 2, 31, "Input"], Cell[693, 26, 1093, 20, 81, "Print", CellTags->"Info3471412398-4712451"] }, Open ]], Cell[1801, 49, 700, 16, 31, "Input"], Cell[CellGroupData[{ Cell[2526, 69, 226, 4, 31, "Input"], Cell[2755, 75, 50117, 1445, 962, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52909, 1525, 580, 14, 31, "Input"], Cell[53492, 1541, 16831, 231, 658, "Output"] }, Open ]], Cell[70338, 1775, 96, 1, 31, "Input"], Cell[CellGroupData[{ Cell[70459, 1780, 346, 8, 31, "Input"], Cell[70808, 1790, 419, 8, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71264, 1803, 425, 8, 31, "Input"], Cell[71692, 1813, 358, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72087, 1825, 953, 18, 31, "Input"], Cell[73043, 1845, 25189, 690, 242, 23144, 655, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[98247, 2538, 96, 1, 31, "Input"], Cell[CellGroupData[{ Cell[98368, 2543, 484, 12, 31, "Input"], Cell[98855, 2557, 9241, 124, 354, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108133, 2686, 299, 6, 31, "Input"], Cell[108435, 2694, 196, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108668, 2704, 314, 7, 31, "Input"], Cell[108985, 2713, 204, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[109226, 2723, 796, 15, 31, "Input"], Cell[110025, 2740, 9707, 269, 242, "Output"] }, Open ]], Cell[119747, 3012, 690, 16, 31, "Input"], Cell[CellGroupData[{ Cell[120462, 3032, 484, 9, 31, "Input"], Cell[120949, 3043, 10182, 134, 411, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[131168, 3182, 271, 6, 31, "Input"], Cell[131442, 3190, 331, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[131810, 3202, 221, 5, 31, "Input"], Cell[132034, 3209, 10540, 172, 468, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[142611, 3386, 379, 8, 31, "Input"], Cell[142993, 3396, 304, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[143334, 3407, 638, 13, 31, "Input"], Cell[143975, 3422, 16289, 461, 242, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[160301, 3888, 421, 9, 31, "Input"], Cell[160725, 3899, 223, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[160985, 3909, 143, 2, 31, "Input"], Cell[161131, 3913, 138, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[161306, 3920, 149, 3, 31, "Input"], Cell[161458, 3925, 103, 1, 30, "Output"] }, Open ]] } ] *) (* End of internal cache information *)